Apple II User Manual

0675   84A1 20 D9 81    LDBYTE JSR INBYTE

0676   84A4 4C DD 82           JMP CHKSAD
0677   84A7 C9 44       DEPZ   CMP #'D'        ;DEPOSIT, 0 PARM - USE (OLD)

0678   84A9 D0 03              BNE MEMZ
0679   84AB 4C E1 84           JMP NEWLN

0680   84AE C9 4D       MEMZ   CMP #'M'        ;MEM, 0 PARM - USE (OLD)
0681   84B0 D0 03              BNE VERZ

0682   84B2 4C 17 85           JMP NEWLOC
0683   84B5 C9 56       VERZ   CMP #'V'        ;VERIFY, 0 PARM - USE (OLD)

0684   84B7 D0 0D              BNE L1ZB        ; ... DO 8 BYTES (LIKE VER 1 PARM)
0685   84B9 A5 FE              LDA $FE

0686   84BB 8D 4A A6           STA P3L
0687   84BE A5 FF              LDA $FF

0688   84C0 8D 4B A6           STA P3H
0689   84C3 4C 9A 85           JMP VER1+4

0690   84C6 C9 12       L1ZB   CMP #$12        ;LOAD KIM, ZERO PARM
0691   84C8 D0 05              BNE L2ZB

0692   84CA A0 00              LDY #0          ;MODE = KIM
0693   84CC 4C 78 8C    L1J    JMP LENTRY      ;GO TO CASSETTE ROUTINE

0694   84CF C9 13       L2ZB   CMP #$13        ;LOAD HS, ZERO PARM
0695   84D1 D0 04              BNE EZPARM

0696   84D3 A0 80              LDY #$80        ;MODE - HS
0697   84D5 D0 F5              BNE L1J         ;(ALWAYS)

0698   84D7 6C 6D A6    EZPARM JMP (URCVEC+1)  ;ELSE UNREC COMMAND
0699   84DA             B1PARM =*

0700   84DA             ;
0701   84DA             ; 1 PARAMETER COMMAND EXEC BLOCKS

0702   84DA             ;
0703   84DA C9 44       DEP1   CMP #'D'        ;DEPOSIT, 1 PARM

0704   84DC D0 32              BNE MEM1
0705   84DE 20 A7 82           JSR P3SCR

0706   84E1 20 16 83    NEWLN  JSR CRLFSZ
0707   84E4 A0 00              LDY #0

0708   84E6 A2 08              LDX #8
0709   84E8 20 42 83    DEPBYT JSR SPACE

0710   84EB 20 D9 81           JSR INBYTE
0711   84EE B0 11              BCS NH41

0712   84F0 91 FE              STA ($FE),Y
0713   84F2 D1 FE              CMP ($FE),Y     ;VERIFY

0714   84F4 F0 03              BEQ DEPN
0715   84F6 20 20 83           JSR OUTQM       ;TYPE "?" IF NG

0716   84F9 20 B2 82    DEPN   JSR INCCMP
0717   84FC CA                 DEX

0718   84FD D0 E9              BNE DEPBYT
0719   84FF F0 E0              BEQ NEWLN

0720   8501 F0 0B       NH41   BEQ DEPEC
0721   8503 C9 20              CMP #$20        ;SPACE = FWD

0722   8505 D0 4C              BNE DEPES
0723   8507 70 F0              BVS DEPN

0724   8509 20 42 83           JSR SPACE
0725   850C 10 EB              BPL DEPN

0726   850E 18          DEPEC  CLC
0727   850F 60                 RTS

0728   8510 C9 4D       MEM1   CMP #'M'        ;MEMORY, 1 PARM
0729   8512 D0 65              BNE GO1

0730   8514 20 A7 82           JSR P3SCR
0731   8517 20 16 83    NEWLOC JSR CRLFSZ

0732   851A 20 3A 83           JSR COMMA
0733   851D A0 00              LDY #0

0734   851F B1 FE              LDA ($FE),Y
0735   8521 20 D3 81           JSR OBCMIN

0736   8524 B0 11              BCS NH42