     $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