prog8/testsource/source1.ill

197 lines
2.5 KiB
Plaintext
Raw Normal View History

2017-12-21 13:52:30 +00:00
; source IL file
; these are comments
2017-12-21 22:05:35 +00:00
; line 2 comment
; line 3 comment
2017-12-21 13:52:30 +00:00
2018-01-11 23:55:47 +00:00
%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/kernel rom, frees up more zp
2017-12-21 13:52:30 +00:00
2018-01-12 22:25:00 +00:00
~ main
2017-12-21 13:52:30 +00:00
{
2017-12-21 22:05:35 +00:00
; this is the main block with the start routine.
2017-12-21 13:52:30 +00:00
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
2018-01-03 20:43:19 +00:00
start: ;foo
2017-12-21 13:52:30 +00:00
X = 55
Y = $77
Y = X
Y = X
X = 66
screen = 0
2018-01-07 01:36:27 +00:00
screen = border = cursor = X = Y = A = X = Y = A = border = cursor = border = cursor = 66 ; multi-assign!
2017-12-21 13:52:30 +00:00
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 = Y = X = 0 ; multi assign!
; [646,Y] = [$d020,X]
2018-01-03 20:43:19 +00:00
_loop: block2.zpw1 ++
A ++
2017-12-21 13:52:30 +00:00
X ++
Y ++
[$d020] ++
A --
X --
Y--
[$d020]--
2017-12-24 23:15:04 +00:00
block2.zpw2 = 99
2017-12-23 13:36:23 +00:00
fidget.subroutine()
goto _loop
2017-12-21 13:52:30 +00:00
return 155,2,%00000101 ; will end up in A, X, Y
}
2017-12-23 23:58:55 +00:00
2017-12-21 13:52:30 +00:00
~ block2 {
2017-12-23 23:58:55 +00:00
return
2017-12-24 23:15:04 +00:00
sub memsub () -> () = $fff2
2017-12-23 23:58:55 +00:00
2017-12-24 23:15:04 +00:00
sub customsub (Y)->() {
2017-12-23 23:58:55 +00:00
%asm {
2017-12-23 23:58:55 +00:00
nop
nop
lda #99
nop
nop
}
A=2
X=33
2018-01-05 21:52:23 +00:00
return fidget.subroutine()
2017-12-23 23:58:55 +00:00
}
2018-01-03 20:43:19 +00:00
somelabel1222:
2018-01-07 01:36:27 +00:00
2017-12-23 23:58:55 +00:00
customsub(2)
2017-12-21 13:52:30 +00:00
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
2018-01-14 23:20:36 +00:00
return
2017-12-21 13:52:30 +00:00
}
~ block3 {
2018-01-03 20:43:19 +00:00
somelabel1:
%asm {
2017-12-21 13:52:30 +00:00
nop
nop
nop
}
2017-12-23 13:36:23 +00:00
goto somelabel1
goto block2.somelabel1222
2017-12-21 13:52:30 +00:00
A=X=Y=A=X=Y=A=X=Y=99
[$d020]=[$d021]=[$d020]=[$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
}
2017-12-21 22:05:35 +00:00
; comments before block 4
2017-12-21 13:52:30 +00:00
~ 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
}
2018-01-12 22:25:00 +00:00
~ fidget $0c00
2017-12-21 13:52:30 +00:00
{
2018-01-03 20:43:19 +00:00
subroutine:
2017-12-21 13:52:30 +00:00
; subroutine (A, X, Y)
;[border2] = red
;[screen2] = white
return $99
}
2017-12-21 22:05:35 +00:00
; comment at end
; another one