mirror of
https://github.com/irmen/prog8.git
synced 2024-07-26 05:29:15 +00:00
80 lines
1.5 KiB
Lua
80 lines
1.5 KiB
Lua
%import textio
|
|
%import floats
|
|
|
|
main {
|
|
sub score() -> ubyte {
|
|
cx16.r15++
|
|
return 5
|
|
}
|
|
|
|
sub start() {
|
|
float @shared total = 0
|
|
ubyte bb = 5
|
|
|
|
cx16.r0 = 5
|
|
total += cx16.r0 as float
|
|
total += score() as float
|
|
uword ww = 5
|
|
total += ww as float
|
|
total += bb as float
|
|
float result = score() as float
|
|
total += result
|
|
}
|
|
}
|
|
|
|
|
|
;%import textio
|
|
;%zeropage basicsafe
|
|
;%option no_sysinit
|
|
;
|
|
;main {
|
|
;
|
|
; sub start() {
|
|
; ; TODO ALSO TEST AS GLOBALS
|
|
; ubyte @requirezp zpvar = 10
|
|
; ubyte @zp zpvar2 = 20
|
|
; uword empty
|
|
; ubyte[10] bssarray
|
|
; uword[10] bsswordarray
|
|
; ubyte[10] nonbssarray = 99
|
|
; str name="irmen"
|
|
;
|
|
; txt.print("10 ")
|
|
; txt.print_ub(zpvar)
|
|
; txt.nl()
|
|
; zpvar++
|
|
;
|
|
; txt.print("20 ")
|
|
; txt.print_ub(zpvar2)
|
|
; txt.nl()
|
|
; zpvar2++
|
|
;
|
|
; txt.print("0 ")
|
|
; txt.print_uw(empty)
|
|
; txt.nl()
|
|
; empty++
|
|
;
|
|
; txt.print("0 ")
|
|
; txt.print_ub(bssarray[1])
|
|
; txt.nl()
|
|
; bssarray[1]++
|
|
;
|
|
; txt.print("0 ")
|
|
; txt.print_uw(bsswordarray[1])
|
|
; txt.nl()
|
|
; bsswordarray[1]++
|
|
;
|
|
; txt.print("99 ")
|
|
; txt.print_ub(nonbssarray[1])
|
|
; txt.nl()
|
|
; nonbssarray[1]++
|
|
;
|
|
; txt.print("r ")
|
|
; txt.chrout(name[1])
|
|
; txt.nl()
|
|
; name[1] = (name[1] as ubyte +1)
|
|
;
|
|
; txt.print("try running again.\n")
|
|
; }
|
|
;}
|