Brudnopis Delyry

Zapis Hiscore.dat z wykorzystaniem dowolnego DOS.

buflen      = $4f

            org hiscores

run_number  dta 0,0,0
            org hiscores+$10
tokens      dta 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
hiscore     dta 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
            org hiscores+$40
player_name dta d'123456789a'
            org hiscores+$4e
checksum    dta 0

            org code
save_hiscore
            jsr find_free_IOCB
            jsr open_file
            jsr write_binary
            jsr close_file
            rts

find_free_IOCB
            ldx #$00
            ldy #$01
?loop       lda icchid,x
            cmp #$ff
            beq found
            txa
            clc
            adc #$10
            tax
            bpl ?loop
            ldy #-95
found       rts

open_file
            lda #$03
            sta iccmd,x
            lda #<fname
            sta icbufa,x
            lda #>fname
            sta icbufa+1,x
            lda #$08
            sta icax1,x
            lda #$00
            sta icax2,x
            jsr ciov
            rts

close_file
            lda #$0c
            sta iccmd,x
            jsr ciov
            rts

write_binary
            lda #$0b
            sta iccmd,x
            lda #<hiscores
            sta icbufa,x
            lda #>hiscores
            sta icbufa+1,x
            lda #<buflen
            sta icbufl,x
            lda #>buflen
            sta icbufl+1,x
            jsr ciov
            rts

fname       dta c'D:HISCORE.DAT',$9B