     $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