$CE0E/52750:   Set pointer for REL file

Jump from $E255, $E338, $E436:

CE0E: 20 2C CE  JSR $CE2C       ; record number * record length
CE11: 20 6E CE  JSR $CE6E       ; divide by 254
CE14: A5 90     LDA $90         ; remainder = pointer in data block
CE16: 85 D7     STA $D7         ; data pointer
CE18: 20 71 CE  JSR $CE71       ; divide by 120 = side-sector number
CE1B: E6 D7     INC $D7
CE1D: E6 D7     INC $D7         ; data pointer + 2 (track/sector pointer!)
CE1F: A5 8B     LDA $8B         ; result of division
CE21: 85 D5     STA $D5         ; equals side-sector number
CE23: A5 90     LDA $90         ; remainder
CE25: 0A        ASL             ; times 2
CE26: 18        CLC
CE27: 69 10     ADC #$10        ; plus 16
CE29: 85 D6     STA $D6         ; =pointer in side-sector to data block
CE2B: 60        RTS

    Previous Page / Next Page