Apple II User Manual

1047   87B6 60                 RTS

1048   87B7 A0 00       BMOVE  LDY #0          ;MOVE 1 BYT + VER
1049   87B9 B1 FE              LDA ($FE),Y

1050   87BB 91 FC              STA ($FC),Y
1051   87BD D1 FC              CMP ($FC),Y

1052   87BF F0 0B              BEQ BRT
1053   87C1 AC 52 A6    BRTT   LDY ERCNT       ;INC ERCNT, DONT PASS FF

1054   87C4 C0 FF              CPY #$FF
1055   87C6 F0 04              BEQ *+6

1056   87C8 C8                 INY
1057   87C9 8C 52 A6           STY ERCNT

1058   87CC 60          BRT    RTS
1059   87CD C9 1D       S13B   CMP #$1D        ;SAVE KIM FMT TAPE, 3 PARMS

1060   87CF D0 15              BNE S23B
1061   87D1 A0 00              LDY #$0         ;MODE = KIM

1062   87D3 AD 4E A6    S13C   LDA P1L
1063   87D6 D0 02              BNE *+4         ;ID MUST NOT = 0

1064   87D8 38                 SEC
1065   87D9 60                 RTS

1066   87DA C9 FF              CMP #$FF        ;ID MUST NOT = FF
1067   87DC D0 02              BNE *+4

1068   87DE 38          S1NG   SEC
1069   87DF 60                 RTS

1070   87E0 20 93 82           JSR INCP3       ;USE END ADDR + 1
1071   87E3 4C 87 8E           JMP SENTRY

1072   87E6 C9 1E       S23B   CMP #$1E        ;SAVE HS FMT TAPE, 3 PARMS
1073   87E8 D0 04              BNE L23P

1074   87EA A0 80              LDY #$80        ;MODE = HS
1075   87EC D0 E5              BNE S13C        ;(ALWAYS)

1076   87EE C9 13       L23P   CMP #$13        ;LOAD HS, 3 PARMS
1077   87F0 D0 0F              BNE MEM3

1078   87F2 AD 4E A6           LDA P1L
1079   87F5 C9 FF              CMP #$FF        ;ID MUST BE FF

1080   87F7 D0 E5              BNE S1NG        ;ERROR RETURN
1081   87F9 20 93 82           JSR INCP3       ;USE END ADDR + 1

1082   87FC A0 80              LDY #$80        ;MODE = HS
1083   87FE 4C 78 8C           JMP LENTRY

1084   8801 C9 4D       MEM3   CMP #'M'        ;MEM 3 SEARCH - BYTE
1085   8803 D0 22              BNE CALC3

1086   8805 20 9C 82           JSR P2SCR
1087   8808 AD 4E A6    MEM3C  LDA P1L

1088   880B A0 00              LDY #0
1089   880D D1 FE              CMP ($FE),Y

1090   880F F0 0B              BEQ MEM3E       ;FOUND SEARCH BYTE?
1091   8811 20 B2 82    MEM3D  JSR INCCMP      ;NO, INC BUFFER ADDR

1092   8814 70 04              BVS MEM3EX
1093   8816 F0 F0              BEQ MEM3C

1094   8818 90 EE              BCC MEM3C
1095   881A 18          MEM3EX CLC

1096   881B 60                 RTS             ;SEARCHED TO BOUND
1097   881C 20 17 85    MEM3E  JSR NEWLOC      ;FOUND SEARCH BYTE

1098   881F 90 05              BCC MEM3F
1099   8821 C9 47              CMP #'G'        ;ENTERED G?

1100   8823 F0 EC              BEQ MEM3D
1101   8825 38                 SEC

1102   8826 60          MEM3F  RTS
1103   8827 C9 43       CALC3  CMP #'C'        ;CALCULATE, 1, 2 OR 3 PARMS

1104   8829 D0 26              BNE EXE3        ;RESULT = P1+P2+P3
1105   882B 20 4D 83    C1     JSR CRLF

1106   882E 20 42 83           JSR SPACE
1107   8831 18                 CLC

1108   8832 AD 4E A6           LDA P1L