mirror of
https://github.com/irmen/prog8.git
synced 2024-11-29 17:50:35 +00:00
228 lines
2.6 KiB
Plaintext
228 lines
2.6 KiB
Plaintext
; source IL file
|
|
; these are comments
|
|
; line 2 comment
|
|
; line 3 comment
|
|
|
|
|
|
%output basic ; create a c-64 program with basic SYS call to launch it
|
|
%zp restore , clobber ; clobber over the zp memory normally used by basic/kernal rom, frees up more zp
|
|
|
|
options
|
|
|
|
|
|
%blocks
|
|
|
|
|
|
~ main
|
|
{
|
|
; this is the main block with the start routine.
|
|
|
|
memory screen = $d021
|
|
memory border = $d020
|
|
memory cursor = 646
|
|
const cyan = 3
|
|
const .word redw = $2002
|
|
var uninitbyte1
|
|
var .byte uninitbyte2
|
|
var .word uninitword1
|
|
var .byte initbyte33 = 33
|
|
var .word initword9876 = $9876
|
|
var .array(10) bytes2 = $44
|
|
var .wordarray(10) words2 = $bbcc
|
|
]
|
|
|
|
|
|
start: ;foo
|
|
X = 55
|
|
Y = $77
|
|
Y = X
|
|
Y = X
|
|
X = 66
|
|
screen = 0
|
|
screen = 66
|
|
border = 66
|
|
cursor = 66
|
|
X = 66
|
|
Y = 66
|
|
A = 66
|
|
X = 66
|
|
Y = 66
|
|
A = 66
|
|
border = 66
|
|
cursor = 66
|
|
border = 66
|
|
cursor = 66
|
|
border = false
|
|
border = true
|
|
border = 0
|
|
border = 0
|
|
[$d020] = 0
|
|
screen = X
|
|
cursor = Y
|
|
[646] = Y
|
|
uninitbyte1 = 123
|
|
uninitword1 = 12345
|
|
uninitword1 = A
|
|
initbyte33 = 133
|
|
initword9876 = 9999
|
|
initword9876 = 1
|
|
initword9876 = Y
|
|
|
|
initbyte33 ++
|
|
initword9876 ++
|
|
|
|
Y = 0
|
|
Y = 1
|
|
Y = 2
|
|
Y = true
|
|
Y = false
|
|
A = 0
|
|
Y = 0
|
|
X = 0
|
|
|
|
; [646,Y] = [$d020,X]
|
|
|
|
|
|
_loop: block2.zpw1 ++
|
|
A ++
|
|
X ++
|
|
Y ++
|
|
[$d020] ++
|
|
A --
|
|
X --
|
|
Y--
|
|
[$d020]--
|
|
block2.zpw2 = 99
|
|
fidget.subroutine()
|
|
goto _loop
|
|
return 155,2,%00000101 ; will end up in A, X, Y
|
|
}
|
|
|
|
|
|
|
|
~ block2 {
|
|
|
|
return
|
|
|
|
sub memsub () -> () = $fff2
|
|
|
|
sub customsub (Y)->() {
|
|
|
|
%asm {
|
|
nop
|
|
nop
|
|
lda #99
|
|
nop
|
|
nop
|
|
}
|
|
|
|
A=2
|
|
X=33
|
|
return fidget.subroutine()
|
|
|
|
}
|
|
|
|
|
|
somelabel1222:
|
|
|
|
customsub(2)
|
|
return
|
|
|
|
var zp1
|
|
var zp2
|
|
var .word zpw1
|
|
var .word zpw2
|
|
var .array(100) some_array1 = $aa ; initialized with $aa bytes
|
|
const white = 1
|
|
const red = 2
|
|
const .word border2 = $d020
|
|
const .word screen2 = $d021
|
|
return
|
|
}
|
|
|
|
~ block3 {
|
|
somelabel1:
|
|
%asm {
|
|
nop
|
|
nop
|
|
nop
|
|
}
|
|
|
|
goto somelabel1
|
|
goto block2.somelabel1222
|
|
A=99
|
|
X=99
|
|
Y=99
|
|
A=99
|
|
X=99
|
|
Y=99
|
|
A=99
|
|
X=99
|
|
Y=99
|
|
[$d020]=55
|
|
[$d021]=55
|
|
[$d020]=55
|
|
[$d021]=55
|
|
|
|
A=1
|
|
X=1
|
|
[$d020]=1
|
|
[$aa]=1
|
|
[$bb]=1
|
|
Y=1
|
|
X=1
|
|
A=1
|
|
[$d021]=1
|
|
A=2
|
|
[$cc]=1
|
|
[$cd]=1
|
|
[$ce]=1
|
|
[$cf]=1
|
|
[$cf00]=1
|
|
[$cf01]=2
|
|
[$cf02]=1
|
|
Y=2
|
|
A=2
|
|
X=1
|
|
|
|
return
|
|
}
|
|
|
|
; comments before block 4
|
|
|
|
~ block4 {
|
|
A=1
|
|
A=2
|
|
A=3
|
|
A=4
|
|
A=5
|
|
X=8
|
|
X=9
|
|
Y=10
|
|
[$cc]=1
|
|
[$cc]=2
|
|
[$cc]=3
|
|
[$cc]=4
|
|
[$dd]=A
|
|
[$dd]=X
|
|
[$dd]=Y
|
|
return
|
|
}
|
|
|
|
|
|
~ fidget $0c00
|
|
{
|
|
|
|
subroutine:
|
|
|
|
; subroutine (A, X, Y)
|
|
;[border2] = red
|
|
;[screen2] = white
|
|
return $99
|
|
|
|
}
|
|
|
|
|
|
; comment at end
|
|
; another one
|