$D075/53365:   Calculate blocks free

D075: 20 3A EF  JSR $EF3A
D078: A0 04     LDY #$04
D07A: A9 00     LDA #$00
D07C: AA        TAX
D07D: 18        CLC
D07E: 71 6D     ADC ($6D),Y
D080: 90 01     BCC $D083
D082: E8        INX
D083: C8        INY
D084: C8        INY
D085: C8        INY
D086: C8        INY
D087: C0 48     CPY #$48
D089: F0 F8     BEQ $D083
D08B: C0 90     CPY #$90
D08D: D0 EE     BNE $D07D
D08F: 48        PHA
D090: 8A        TXA
D091: A6 7F     LDX $7F
D093: 9D FC 02  STA $02FC,X
D096: 68        PLA
D097: 9D FA 02  STA $02FA,X
D09A: 60        RTS

    Previous Page / Next Page