Apple II User Manual

0923 86A3 20 FA 86 SP2C JSR DIFFZ

0924 86A6 B0 03 BCS SP2D
0925 86A8 4C C4 81 SPEXIT JMP RESALL

0926 86AB 20 4D 83 SP2D JSR CRLF
0927 86AE CD 58 A6 CMP MAXRC

0928 86B1 90 05 BCC SP2E
0929 86B3 AD 58 A6 LDA MAXRC

0930 86B6 B0 02 BCS SP2F
0931 86B8 69 01 SP2E ADC #1

0932 86BA 8D 3D A6 SP2F STA RC
0933 86BD A9 3B LDA #$3B ;SEMI COLON

0934 86BF 20 47 8A JSR OUTCHR
0935 86C2 AD 3D A6 LDA RC

0936 86C5 20 F4 86 JSR SVBYTE
0937 86C8 A5 FF LDA $FF

0938 86CA 20 F4 86 JSR SVBYTE
0939 86CD A5 FE LDA $FE

0940 86CF 20 F4 86 JSR SVBYTE
0941 86D2 A0 00 MORED2 LDY #$00

0942 86D4 B1 FE LDA ($FE),Y
0943 86D6 20 F4 86 JSR SVBYTE

0944 86D9 20 86 83 JSR INSTAT ;STOP IF KEY DEPRESSED
0945 86DC B0 CA BCS SPEXIT

0946 86DE 20 B2 82 JSR INCCMP
0947 86E1 70 C5 BVS SPEXIT

0948 86E3 CE 3D A6 DEC RC
0949 86E6 D0 EA BNE MORED2

0950 86E8 AE 37 A6 LDX SCR7
0951 86EB AD 36 A6 LDA SCR6

0952 86EE 20 F4 82 JSR OUTXAH
0953 86F1 18 CLC

0954 86F2 90 AF BCC SP2C
0955 86F4 20 DD 82 SVBYTE JSR CHKSAD

0956 86F7 4C FA 82 JMP OUTBYT
0957 86FA 20 2E 83 DIFFZ JSR ZERCK

0958 86FD AD 4A A6 DIFFL LDA P3L
0959 8700 38 SEC

0960 8701 E5 FE SBC $FE
0961 8703 48 PHA

0962 8704 AD 4B A6 LDA P3H
0963 8707 E5 FF SBC $FF

0964 8709 F0 04 BEQ DIFF1
0965 870B 68 PLA

0966 870C A9 FF LDA #$FF
0967 870E 60 RTS

0968 870F 68 DIFF1 PLA
0969 8710 60 RTS

0970 8711 4C 27 88 E2PARM JMP CALC3 ;MAY BE CALC OR EXEC
0971 8714 B3PARM =*

0972 8714 ;
0973 8714 ; 3 PARAMETER COMMAND EXECUTE BLOCKS

0974 8714 ;
0975 8714 C9 46 FILL3 CMP #'F' ;FILL MEM

0976 8716 D0 21 BNE BLK3
0977 8718 20 9C 82 JSR P2SCR

0978 871B A9 00 LDA #0
0979 871D 8D 52 A6 STA ERCNT ;ZERO ERROR COUNT

0980 8720 AD 4E A6 LDA P1L
0981 8723 A0 00 F1 LDY #0

0982 8725 91 FE STA ($FE),Y
0983 8727 D1 FE CMP ($FE),Y ;VERIFY

0984 8729 F0 03 BEQ F3