Filter
Top Products
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