$E0AB/57515:   Write byte in REL file

Jump from $CFCB:

E0AB: A9 A0     LDA #$A0
E0AD: 20 A6 DD  JSR $DDA6       ; test bits 6 & 7
E0B0: D0 27     BNE $E0D9       ; set?

Jump from $E0F0:

E0B2: A5 85     LDA $85         ; data byte
E0B4: 20 7C E0  JSR $E07C       ; write in record
E0B7: A5 F8     LDA $F8         ; end?
E0B9: F0 0D     BEQ $E0C8       ; yes
E0BB: 60        RTS

Jump from $E0DF:

E0BC: A9 20     LDA #$20
E0BE: 20 A6 DD  JSR $DDA6       ; test bit 5
E0C1: F0 05     BEQ $E0C8       ; not set
E0C3: A9 51     LDA #$51        ; 51, 'overflow in record'
E0C5: 8D 6C 02  STA $026C       ; set error flag

Jump from $E0B9, $E0C1:

E0C8: 20 F3 E0  JSR $E0F3       ; fill remainder with zeroes
E0CB: 20 53 E1  JSR $E153
E0CE: AD 6C 02  LDA $026C       ; error flag set?
E0D1: F0 03     BEQ $E0D6       ; no
E0D3: 4C C8 C1  JMP $C1C8       ; set error message

Jump from $E0D1:

E0D6: 4C BC E6  JMP $E6BC       ; error free execution

Jump from $E0B0:

E0D9: 29 80     AND #$80        ; bit 7 set?
E0DB: D0 05     BNE $E0E2       ; yes
E0DD: A5 F8     LDA $F8
E0DF: F0 DB     BEQ $E0BC       ; end?
E0E1: 60        RTS

Jump from $E0DB:

E0E2: A5 85     LDA $85         ; data byte
E0E4: 48        PHA
E0E5: 20 1C E3  JSR $E31C       ; expand side-sector
E0E8: 68        PLA
E0E9: 85 85     STA $85
E0EB: A9 80     LDA #$80
E0ED: 20 9D DD  JSR $DD9D       ; erase bit 7
E0F0: 4C B2 E0  JMP $E0B2       ; write byte in file

    Previous Page / Next Page