;****************************
;* CHEAT.M68   -   LOGs OPR: 
;* Usage: .CHEAT
;* by Dave Heyliger
;****************************

        SEARCH  SYS               ; search normals
        SEARCH  SYSSYM
        SEARCH  TRM
        SEARCH  AAA

        PHDR    -1,0,PH$REE!PH$REU   ; define program header

        .OFINI                    ; define a variable
        .OFDEF  PASS,4            ; called PASS
        .OFSIZ  IMPSIZ            ; IMPSIZ is 4 bytes in size

        GETIMP  IMPSIZ,A3         ; A3 points to variables
        TYPE    <Password: >      ; ask user for password
        NOECHO                    ; can't see anything entered...
        KBD                       ; A2 will point to input
        LEA     A1,PASS(A3)       ; A1 will point to PASS
        PUSH    A1                ; save A1
        PACK                      ; create RAD50 password
        PACK
        POP     A1                ; point A1 back to RAD50 password
        LEA     A5,PASWRD         ; point A5 to "correct" RAD50 password
        CMM     @A1,@A5           ; match?
        BEQ     PHASE1            ; so far so good....
BYE:    ECHO                      ; let 'em see characters
        EXIT                      ; no match, sorry Charlie

PHASE1: TYPE    <Code: >          ; first password entered - ask for code
        KBD                       ; A2 will point to code
        GTDEC                     ; D1 will hold decimal value of entered code
        BMI     BYE               ; if error, EXIT
        LEA     A5,NUM            ; A5 will point to "correct" number code
        CMP     D1,@A5            ; match?
        BNE     BYE               ; no match, sorry Charlie
        JOBIDX  A6                ; match! A6 points to JOB's JCB
        MOVW    #[DSK],JOBDEV(A6) ; move "DSK" into device location
        CLRW    JOBDRV(A6)        ; move "0" into drive location
        MOVW    #402,JOBUSR(A6)   ; move [1,2] into PPN location
        TYPECR  <You are now in the OPR: account!>
        ECHO                      ; ECHO reset
        EXIT                      ; ta-daa!!!

PASWRD: RAD50   /GOOBER/          ; first user defined password
NUM:    LWORD   123456.           ; second decimal password
        END

.