100 lines
1.1 KiB
ArmAsm
100 lines
1.1 KiB
ArmAsm
;license:MIT
|
|
;(c) 2018 by qkumba
|
|
|
|
!cpu 6502
|
|
!to "build/CREATESAVE",plain
|
|
|
|
*=$1000
|
|
|
|
- jsr $bf00
|
|
op_c7
|
|
!byte $c7
|
|
!word c7_parms
|
|
ldx $300
|
|
bne +
|
|
lda $bf30
|
|
sta c5_parms+1
|
|
jsr $bf00
|
|
!byte $c5
|
|
!word c5_parms
|
|
ldx $301
|
|
inx
|
|
txa
|
|
and #$0f
|
|
sta $300
|
|
lda #$2f
|
|
sta $301
|
|
dec op_c7
|
|
bne -
|
|
+ jsr $bf00
|
|
!byte $c0
|
|
!word c0_parms
|
|
jsr $bf00
|
|
!byte $c8
|
|
!word c8_parms
|
|
lda c8_parms+5
|
|
sta d0_parms+1
|
|
sta cb_parms+1
|
|
jsr $bf00
|
|
!byte $d0
|
|
!word d0_parms
|
|
dec d0_parms+2
|
|
dec d0_parms+3
|
|
jsr $bf00
|
|
!byte $ce
|
|
!word ce_parms
|
|
jsr $bf00
|
|
!byte $cb
|
|
!word cb_parms
|
|
jsr $bf00
|
|
!byte $cc
|
|
!word cc_parms
|
|
rts
|
|
|
|
cb_parms
|
|
!byte 4
|
|
!byte $d1
|
|
!word cc_parms
|
|
!word 1
|
|
!word $d1d1
|
|
|
|
cc_parms
|
|
!byte 1
|
|
!byte 0
|
|
|
|
ce_parms
|
|
d0_parms
|
|
!byte 2
|
|
!byte $d1
|
|
!byte 0,$28,2
|
|
|
|
c8_parms
|
|
!byte 3
|
|
!word filename
|
|
!word $2000
|
|
!byte $d1
|
|
|
|
c0_parms
|
|
!byte 7
|
|
!word filename
|
|
!byte %11000011
|
|
!byte 04
|
|
!word 0
|
|
!byte 1
|
|
!word 0
|
|
!word 0
|
|
|
|
filename
|
|
!byte (filename_e-filename)-1
|
|
!text "empty.sav"
|
|
filename_e
|
|
|
|
c7_parms
|
|
!byte 1
|
|
!word $300
|
|
|
|
c5_parms
|
|
!byte 2
|
|
!byte 0
|
|
!word $301
|