Apple II User Manual

Page of 257
3504   F9D1 38                 SEC
3505   F9D2 E5 E9              SBC OLDLEN
3506   F9D4 A4 E9              LDY OLDLEN
3507   F9D6 D0 02              BNE R101        ;ALREADY HAVE ROOM FOR CR
3508   F9D8 69 00              ADC #0          ;ADD ONE TO DIFFERENCE
3509   F9DA 48          R101   PHA
3510   F9DB 20 34 F9           JSR SAVNOW      ;NOWLN INTO S1
3511   F9DE 20 C5 F8           JSR SETBOT
3512   F9E1 A0 00              LDY #0
3513   F9E3 B1 DF       R102   LDA (NOWLN),Y
3514   F9E5 C9 00              CMP #0
3515   F9E7 F0 06              BEQ R108
3516   F9E9 20 28 F9           JSR AD1
3517   F9EC 4C E3 F9           JMP R102
3518   F9EF 68          R108   PLA
3519   F9F0 48                 PHA
3520   F9F1 18                 CLC
3521   F9F2 65 E1              ADC BOTLN       ;ADD DIFFERENCE TO END
3522   F9F4 85 E1              STA BOTLN       ;STORE NEW END
3523   F9F6 90 02              BCC R103
3524   F9F8 E6 E2              INC BOTLN+1
3525   F9FA 20 F9 F8    R103   JSR ATEND
3526   F9FD 90 0B              BCC R107
3527   F9FF A5 E7              LDA SAVE        ;RESTORE OLD BOTTOM
3528   FA01 85 E1              STA BOTLN
3529   FA03 A5 E8              LDA SAVE+1
3530   FA05 85 E2              STA BOTLN+1
3531   FA07 4C 5C FA           JMP ENDERR      ;RAN PAST BUFFER END
3532   FA0A 20 09 F9    R107   JSR NOWS1       ;SAVE CURRENT END
3533   FA0D 68                 PLA
3534   FA0E 18                 CLC
3535   FA0F 65 DF              ADC NOWLN
3536   FA11 85 DF              STA NOWLN
3537   FA13 90 02              BCC R104
3538   FA15 E6 E0              INC NOWLN+1
3539   FA17 A9 1A       R104   LDA #S1
3540   FA19 20 58 EB           JSR LDAY
3541   FA1C 91 DF              STA (NOWLN),Y
3542   FA1E 20 4A FA           JSR GOGO
3543   FA21 AD 1A A4           LDA S1
3544   FA24 CD 1C A4           CMP ADDR
3545   FA27 D0 08              BNE R105
3546   FA29 AD 1B A4           LDA S1+1
3547   FA2C CD 1D A4           CMP ADDR+1      ;BACK WHERE WE STARTED ??
3548   FA2F F0 13              BEQ R106        ;BRANCH IF DONE
3549   FA31 20 1D F9    R105   JSR SUB
3550   FA34 CE 1A A4           DEC S1
3551   FA37 AD 1A A4           LDA S1
3552   FA3A C9 FF              CMP #$FF
3553   FA3C D0 03              BNE R1051
3554   FA3E CE 1B A4           DEC S1+1
3555   FA41 4C 17 FA    R1051  JMP R104
3556   FA44 20 D0 F8    R106   JSR RESNOW
3557   FA47 4C BE F9           JMP R9
3558   FA4A
3559   FA4A             ;SEE IF IT WROTE INTO MEMORY
3560   FA4A D1 DF       GOGO   CMP (NOWLN),Y
3561   FA4C F0 0D              BEQ GOGO1
3562   FA4E             ;MOVE ADDRESS
3563   FA4E A5 DF              LDA NOWLN
3564   FA50 8D 1C A4           STA ADDR
3565   FA53 A5 E0              LDA NOWLN+1