Apple II User Manual

0737   8526 A0 00              LDY #$00

0738   8528 91 FE              STA ($FE),Y
0739   852A D1 FE              CMP ($FE),Y     ;VERIFY MEM

0740   852C F0 03              BEQ NXTLOC
0741   852E 20 20 83           JSR OUTQM       ;TYPE ? AND CONTINUE

0742   8531 20 B2 82    NXTLOC JSR INCCMP
0743   8534 18                 CLC

0744   8535 90 E0              BCC NEWLOC
0745   8537 F0 3E       NH42   BEQ EXITM1

0746   8539 50 04              BVC *+6
0747   853B C9 3C              CMP #'<'

0748   853D F0 D8              BEQ NEWLOC
0749   853F C9 20              CMP #$20        ;SPACE ?

0750   8541 F0 EE              BEQ NXTLOC
0751   8543 C9 3E              CMP #'>'

0752   8545 F0 EA              BEQ NXTLOC
0753   8547 C9 2B              CMP #'+'

0754   8549 F0 10              BEQ LOCP8
0755   854B C9 3C              CMP #'<'

0756   854D F0 06              BEQ PRVLOC
0757   854F C9 2D              CMP #'-'

0758   8551 F0 16              BEQ LOCM8
0759   8553 38          DEPES  SEC

0760   8554 60                 RTS
0761   8555 20 BE 82    PRVLOC JSR DECCMP      ;BACK ONE BYT

0762   8558 18                 CLC
0763   8559 90 BC              BCC NEWLOC

0764   855B A5 FE       LOCP8  LDA $FE         ;GO FWD 8 BYTES
0765   855D 18                 CLC

0766   855E 69 08              ADC #$08
0767   8560 85 FE              STA $FE

0768   8562 90 02              BCC M42
0769   8564 E6 FF              INC $FF

0770   8566 18          M42    CLC
0771   8567 90 AE              BCC NEWLOC

0772   8569 A5 FE       LOCM8  LDA $FE         ;GO BACKWD 8 BYTES
0773   856B 38                 SEC

0774   856C E9 08              SBC #$08
0775   856E 85 FE              STA $FE

0776   8570 B0 02              BCS M43
0777   8572 C6 FF              DEC $FF

0778   8574 18          M43    CLC
0779   8575 90 A0              BCC NEWLOC

0780   8577 18          EXITM1 CLC
0781   8578 60                 RTS

0782   8579 C9 47       GO1    CMP #'G'        ;GO, 1 PARM (RTRN ADDR ON STK)
0783   857B D0 19              BNE VER1        ; ... PARM IS ADDR TO GO TO

0784   857D 20 4D 83           JSR CRLF
0785   8580 20 9C 8B           JSR NACCES      ;WRITE PROT MONITR RAM

0786   8583 A2 FF              LDX #$FF        ;PUSH RETURN ADDR
0787   8585 9A                 TXS

0788   8586 A9 7F              LDA #$7F
0789   8588 48                 PHA

0790   8589 A9 FF              LDA #$FF
0791   858B 48                 PHA

0792   858C AD 4B A6           LDA P3H
0793   858F 48                 PHA

0794   8590 AD 4A A6           LDA P3L
0795   8593 4C 08 84           JMP NR10

0796   8596 C9 56       VER1   CMP #'V'        ;VERIFY, 1 PARM (8 BYTES, CKSUM)
0797   8598 D0 1A              BNE JUMP1

0798   859A AD 4A A6           LDA P3L