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