$D0C7/53447:   Write block

Jump from $D1B8, $D4B0, $DB9C:

D0C7: A9 90     LDA #$90        ; code for 'write'

Jump from $D0C5:

D0C9: 8D 4D 02  STA $024D       ; save
D0CC: 20 93 DF  JSR $DF93       ; get buffer number
D0CF: AA        TAX
D0D0: 20 06 D5  JSR $D506       ; get track/sector, read/write block
D0D3: 8A        TXA
D0D4: 48        PHA
D0D5: 0A        ASL             ; buffer pointer times 2
D0D6: AA        TAX
D0D7: A9 00     LDA #$00
D0D9: 95 99     STA $99,X       ; pointer in buffer to zero
D0DB: 20 25 D1  JSR $D125       ; get file type
D0DE: C9 04     CMP #$04        ; rel-file or direct access?
D0E0: B0 06     BCS $D0E8       ; yes
D0E2: F6 B5     INC $B5,X
D0E4: D0 02     BNE $D0E8       ; increment block counter
D0E6: F6 BB     INC $BB,X

Jump from $D0E0, $D0E4:

D0E8: 68        PLA
D0E9: AA        TAX
D0EA: 60        RTS

    Previous Page / Next Page