mirror of
https://github.com/irmen/prog8.git
synced 2024-10-17 10:24:55 +00:00
69 lines
1.4 KiB
Lua
69 lines
1.4 KiB
Lua
%import c64utils
|
|
;%import c64flt
|
|
;%option enable_floats
|
|
%zeropage dontuse
|
|
|
|
main {
|
|
|
|
sub subje() {
|
|
ubyte xyz = 123
|
|
ubyte foo
|
|
c64scr.print_ub(xyz)
|
|
c64.CHROUT('\n')
|
|
c64scr.print_ub(foo)
|
|
c64.CHROUT('\n')
|
|
xyz++
|
|
foo++
|
|
}
|
|
|
|
sub start() {
|
|
ubyte xyz = 99 ; TODO fix compiler error when removing unused var
|
|
word wcosa = cos8(xyz)
|
|
word wcosa_sinb = wcosa / 128
|
|
|
|
subje()
|
|
subje()
|
|
subje()
|
|
|
|
; ubyte ub1
|
|
; ubyte ub2 = 99
|
|
; uword uw1
|
|
; uword uw2 = 9999
|
|
; ubyte[5] array1
|
|
; ubyte[5] array2 = [22,33,44,55,66]
|
|
;
|
|
; c64scr.print_ub(ub1)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_ub(ub2)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_uw(uw1)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_uw(uw2)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_ub(array1[0])
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_ub(array2[0])
|
|
; c64.CHROUT('\n')
|
|
;
|
|
; ub1++
|
|
; ub2++
|
|
; uw1++
|
|
; uw2++
|
|
; array1[0]++
|
|
; array2[0]++
|
|
;
|
|
; c64scr.print_ub(ub1)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_ub(ub2)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_uw(uw1)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_uw(uw2)
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_ub(array1[0])
|
|
; c64.CHROUT(',')
|
|
; c64scr.print_ub(array2[0])
|
|
; c64.CHROUT('\n')
|
|
}
|
|
}
|