Apple II User Manual
3194 F780 C9 7F CMP #$7F ;RUB
3195 F782 4C 2A FF JMP PATC17 ;NO ZEROS IN CASE OF PAPER TAPE
3196 F785 C9 0A IN02A CMP #LF
3196 F785 C9 0A IN02A CMP #LF
3197 F787 F0 F1 BEQ IN02
3198 F789 C9 0D CMP #CR
3198 F789 C9 0D CMP #CR
3199 F78B F0 1B BEQ IN03
3200 F78D C0 3C CPY #60 ;DO NOT INCR Y IF 60
3200 F78D C0 3C CPY #60 ;DO NOT INCR Y IF 60
3201 F78F B0 08 BCS IN03B
3202 F791 99 38 A4 STA DIBUFF,Y
3202 F791 99 38 A4 STA DIBUFF,Y
3203 F794 C8 INY
3204 F795 C0 3C CPY #60
3204 F795 C0 3C CPY #60
3205 F797 D0 E1 BNE IN02 ;CONTIN , DISP WONT ALLOW > 60 CHR`
3206 F799 A0 3C IN03B LDY #60 ;SET Y TO MAX OF 60
3206 F799 A0 3C IN03B LDY #60 ;SET Y TO MAX OF 60
3207 F79B A9 01 LDA #$01
3208 F79D 0D 11 A4 ORA PRIFLG ;DO NOT OUTPUT TO PRI ANY MORE
3208 F79D 0D 11 A4 ORA PRIFLG ;DO NOT OUTPUT TO PRI ANY MORE
3209 F7A0 8D 11 A4 STA PRIFLG ;OTHERWISE CLOBBERS THE BUFFER
3210 F7A3 8C 15 A4 STY CURPO2
3210 F7A3 8C 15 A4 STY CURPO2
3211 F7A6 D0 D2 BNE IN02 ;GO BACK
3212 F7A8 84 EA IN03 STY LENGTH
3212 F7A8 84 EA IN03 STY LENGTH
3213 F7AA C0 00 CPY #0 ;FIRST CHAR?
3214 F7AC D0 17 BNE IN05
3214 F7AC D0 17 BNE IN05
3215 F7AE AD 19 A4 LDA COUNT ;K OR I COMM FLG ?
3216 F7B1 D0 12 BNE IN05 ;BRANCH IF C COMMAND
3216 F7B1 D0 12 BNE IN05 ;BRANCH IF C COMMAND
3217 F7B3 20 24 EA JSR CRCK ;<CR> IF PRI PNTR DIFF FROM 0
3218 F7B6 20 03 FF JSR PATC13 ;TURN ON TAPES & SET DEFAULT DEV
3218 F7B6 20 03 FF JSR PATC13 ;TURN ON TAPES & SET DEFAULT DEV
3219 F7B9 20 27 F7 IN03A JSR PLNE ;DISPLAY NEXT LINE DOWN
3220 F7BC 20 09 F7 JSR UPNO ;PRINT "END" IF BOTTOM
3220 F7BC 20 09 F7 JSR UPNO ;PRINT "END" IF BOTTOM
3221 F7BF 20 D8 F6 JSR DNNO
3222 F7C2 4C 78 FA JMP ERR0
3222 F7C2 4C 78 FA JMP ERR0
3223 F7C5 20 3F F9 IN05 JSR REPLAC ;INSERT THE LINE
3224 F7C8 4C 24 EA JMP CRCK ;<CR> IF PRI PTR NOT 0
3224 F7C8 4C 24 EA JMP CRCK ;<CR> IF PRI PTR NOT 0
3225 F7CB
3226 F7CB ;***** R COMMAND-READ LINE *****
3226 F7CB ;***** R COMMAND-READ LINE *****
3227 F7CB ;READ TEXT FROM ANY INPUT DEVICE UNTIL
3228 F7CB ;TWO CONSECUTIVE <CR> ARE ENCOUNTER.
3228 F7CB ;TWO CONSECUTIVE <CR> ARE ENCOUNTER.
3229 F7CB 20 48 E8 INPU JSR WHEREI
3230 F7CE AC 12 A4 LDY INFLG ;IF TAPE DO NOT ERRASE BUFFER
3230 F7CE AC 12 A4 LDY INFLG ;IF TAPE DO NOT ERRASE BUFFER
3231 F7D1 C0 54 CPY #'T'
3232 F7D3 F0 03 BEQ INPU1
3232 F7D3 F0 03 BEQ INPU1
3233 F7D5 20 13 EA JSR CRLOW
3234 F7D8 20 6D F7 INPU1 JSR INL
3234 F7D8 20 6D F7 INPU1 JSR INL
3235 F7DB 20 09 F7 JSR UPNO ;NEXT LINE
3236 F7DE 4C D8 F7 JMP INPU1
3236 F7DE 4C D8 F7 JMP INPU1
3237 F7E1
3238 F7E1 ;***** L COMMAND-LIST LINES *****
3238 F7E1 ;***** L COMMAND-LIST LINES *****
3239 F7E1 ;PRINT FROM HERE N LINES TO ACTIVE OUTPUT DEV
3240 F7E1 20 37 E8 LST JSR PSL1 ;PRINT "/"
3240 F7E1 20 37 E8 LST JSR PSL1 ;PRINT "/"
3241 F7E4 20 85 E7 JSR GCNT ;GET LINES COUNT
3242 F7E7 20 13 EA JSR CRLOW
3242 F7E7 20 13 EA JSR CRLOW
3243 F7EA 20 71 E8 JSR WHEREO ;WHERE TO
3244 F7ED 4C F8 F7 JMP LST02 ;ONE MORE LINE
3244 F7ED 4C F8 F7 JMP LST02 ;ONE MORE LINE
3245 F7F0 20 07 E9 LST01 JSR RCHEK
3246 F7F3 20 90 E7 JSR DONE
3246 F7F3 20 90 E7 JSR DONE
3247 F7F6 F0 0B BEQ LST3
3248 F7F8 20 27 F7 LST02 JSR PLNE
3248 F7F8 20 27 F7 LST02 JSR PLNE
3249 F7FB 20 09 F7 JSR UPNO ;NEXT LINE
3250 F7FE 20 E9 F8 JSR ATBOT
3250 F7FE 20 E9 F8 JSR ATBOT
3251 F801 90 ED BCC LST01 ;NO
3252 F803 20 3F F7 LST3 JSR P03 ;ONE MORE CRLF FOR TAPE
3252 F803 20 3F F7 LST3 JSR P03 ;ONE MORE CRLF FOR TAPE
3253 F806 20 0D FF JSR PATC14 ;CLOSE TAPE IF NEEDED
3254 F809 4C 5C FA JMP ENDERR
3254 F809 4C 5C FA JMP ENDERR
3255 F80C