     $E2E2/58082:   Divide data blocks into records

    Jump from $DD7B, $E3C2, $E3CE:

    E2E2: 20 2B DE  JSR $DE2B       ; set buffer pointer
    E2E5: A0 02     LDY #$02
    E2E7: A9 00     LDA #$00

    Jump from $E2EC:

    E2E9: 91 94     STA ($94),Y     ; erase buffer
    E2EB: C8        INY
    E2EC: D0 FB     BNE $E2E9
    E2EE: 20 04 E3  JSR $E304       ; set pointer to next record

    Jump from $E2FB:

    E2F1: 95 C1     STA $C1,X
    E2F3: A8        TAY
    E2F4: A9 FF     LDA #$FF
    E2F6: 91 94     STA ($94),Y     ; $FF as 1st character in record
    E2F8: 20 04 E3  JSR $E304       ; set pointer to next record
    E2FB: 90 F4     BCC $E2F1       ; done in this block?
    E2FD: D0 04     BNE $E303       ; block full?
    E2FF: A9 00     LDA #$00
    E301: 95 C1     STA $C1,X       ; write pointer to zero

    Jump from $E2FD:

    E303: 60        RTS

        Previous Page / Next Page