mirror of https://github.com/a2-4am/4cade.git
54 lines
700 B
ArmAsm
Executable File
54 lines
700 B
ArmAsm
Executable File
!cpu 65c02
|
|
!to "cartoon.2#0602c8",plain
|
|
*=$2c8
|
|
|
|
cartoon=2
|
|
|
|
load=$2700
|
|
buffer=$2000
|
|
|
|
jsr $bf00
|
|
!byte $c8 ;open file
|
|
!word c8_parms ;->bd5d
|
|
; lda c8_parms+5
|
|
; sta ca_parms+1
|
|
jsr $bf00
|
|
!byte $ca ;read file
|
|
!word ca_parms
|
|
jsr $bf00
|
|
!byte $cc ;close
|
|
!word cc_parms
|
|
lda #$60
|
|
sta $277b
|
|
jsr $2700
|
|
lda #cartoon-1
|
|
sta $19c7
|
|
lda #$4c
|
|
sta $1832
|
|
jsr $2000
|
|
lda #$b0
|
|
sta $963b
|
|
lda #$6c
|
|
sta $963c
|
|
jmp $100
|
|
|
|
|
|
c8_parms ;bd5d
|
|
!byte 3
|
|
!word filename
|
|
!word buffer ;somewhere
|
|
!byte 0
|
|
|
|
ca_parms ;bd68
|
|
!byte 4
|
|
cc_parms ;bd70
|
|
!byte 1
|
|
!word $2700
|
|
!word $ffff
|
|
!word $ffff
|
|
|
|
filename
|
|
!byte (filename_e-filename)-1
|
|
!text "SPARE.CHANGE"
|
|
filename_e
|