Apple II User Manual
3442 F951 F0 EB BEQ REP2
3443 F953 B9 38 A4 R88 LDA DIBUFF,Y
3444 F956 91 DF STA (NOWLN),Y
3444 F956 91 DF STA (NOWLN),Y
3445 F958 20 4A FA JSR GOGO
3446 F95B 88 DEY
3446 F95B 88 DEY
3447 F95C 10 F5 BPL R88
3448 F95E 60 RTS
3448 F95E 60 RTS
3449 F95F B0 6E R2W BCS R100 ;LENGTH > OLDLEN
3450 F961
3450 F961
3451 F961 ;LENGTH < OLDLEN
3452 F961 20 34 F9 JSR SAVNOW ;PUT NOWLN INTO ADDR
3452 F961 20 34 F9 JSR SAVNOW ;PUT NOWLN INTO ADDR
3453 F964 20 10 F9 JSR ADDRS1 ;PUT IT IN S1 ALSO
3454 F967 A5 E9 LDA OLDLEN
3454 F967 A5 E9 LDA OLDLEN
3455 F969 38 SEC
3456 F96A E5 EA SBC LENGTH ;GET DIFFERENCE IN LENGTHS
3456 F96A E5 EA SBC LENGTH ;GET DIFFERENCE IN LENGTHS
3457 F96C A4 EA LDY LENGTH
3458 F96E D0 07 BNE RQP
3458 F96E D0 07 BNE RQP
3459 F970 AE 19 A4 LDX COUNT ;C-COMM ?
3460 F973 D0 02 BNE RQP ;YES, JUMP
3460 F973 D0 02 BNE RQP ;YES, JUMP
3461 F975 69 00 ADC #0 ;INCLUDE <CR>
3462 F977 48 RQP PHA
3462 F977 48 RQP PHA
3463 F978 18 CLC
3464 F979 6D 1A A4 ADC S1
3464 F979 6D 1A A4 ADC S1
3465 F97C 8D 1A A4 STA S1
3466 F97F 90 03 BCC R6
3466 F97F 90 03 BCC R6
3467 F981 EE 1B A4 INC S1+1
3468 F984 A9 1A R6 LDA #S1
3468 F984 A9 1A R6 LDA #S1
3469 F986 20 58 EB JSR LDAY
3470 F989 91 DF STA (NOWLN),Y ;...AND NOVE IT UP (DOWN IN ADDR)
3470 F989 91 DF STA (NOWLN),Y ;...AND NOVE IT UP (DOWN IN ADDR)
3471 F98B 20 4A FA JSR GOGO
3472 F98E AA TAX
3472 F98E AA TAX
3473 F98F AD 1A A4 LDA S1
3474 F992 C5 E1 CMP BOTLN ;DONE ??
3474 F992 C5 E1 CMP BOTLN ;DONE ??
3475 F994 D0 07 BNE R5
3476 F996 AD 1B A4 LDA S1+1
3476 F996 AD 1B A4 LDA S1+1
3477 F999 C5 E2 CMP BOTLN+1
3478 F99B F0 0E BEQ R7
3478 F99B F0 0E BEQ R7
3479 F99D 20 28 F9 R5 JSR AD1
3480 F9A0 EE 1A A4 INC S1
3480 F9A0 EE 1A A4 INC S1
3481 F9A3 D0 03 BNE R55
3482 F9A5 EE 1B A4 INC S1+1
3482 F9A5 EE 1B A4 INC S1+1
3483 F9A8 4C 84 F9 R55 JMP R6
3484 F9AB 20 D0 F8 R7 JSR RESNOW ;RESTORE NOWLN
3484 F9AB 20 D0 F8 R7 JSR RESNOW ;RESTORE NOWLN
3485 F9AE 68 PLA ;RESTORE DIFFERENCE
3486 F9AF 8D 2A A4 STA CPIY ;SAVE IT
3486 F9AF 8D 2A A4 STA CPIY ;SAVE IT
3487 F9B2 A5 E1 LDA BOTLN
3488 F9B4 38 SEC
3488 F9B4 38 SEC
3489 F9B5 ED 2A A4 SBC CPIY ;AND SUBTRACT IT FROM BOTTOM
3490 F9B8 85 E1 STA BOTLN
3490 F9B8 85 E1 STA BOTLN
3491 F9BA B0 02 BCS R9
3492 F9BC C6 E2 DEC BOTLN+1
3492 F9BC C6 E2 DEC BOTLN+1
3493 F9BE AD 19 A4 R9 LDA COUNT ;C COMM OR K ,I COMM ?
3494 F9C1 D0 04 BNE R10
3494 F9C1 D0 04 BNE R10
3495 F9C3 A4 EA LDY LENGTH
3496 F9C5 D0 05 BNE R11
3496 F9C5 D0 05 BNE R11
3497 F9C7 A4 EA R10 LDY LENGTH
3498 F9C9 D0 83 BNE R87
3498 F9C9 D0 83 BNE R87
3499 F9CB 60 RTS
3500 F9CC 4C 47 F9 R11 JMP R8
3500 F9CC 4C 47 F9 R11 JMP R8
3501 F9CF
3502 F9CF ;LENGTH > OLDLEN
3502 F9CF ;LENGTH > OLDLEN
3503 F9CF A5 EA R100 LDA LENGTH ;NEW LINE IS LONGER