mirror of
https://github.com/irmen/prog8.git
synced 2024-08-22 03:29:07 +00:00
107 lines
2.5 KiB
Lua
107 lines
2.5 KiB
Lua
%import textio
|
|
%import syslib
|
|
%import floats
|
|
%zeropage basicsafe
|
|
|
|
|
|
main {
|
|
|
|
|
|
; Color c1 = [11,22,33] ; TODO fix crash
|
|
; Color c2 = [11,22,33] ; TODO fix crash
|
|
; Color c3 = [11,22,33] ; TODO fix crash
|
|
; uword[] colors = [ c1, c2, c3] ; TODO should contain pointers to (the first element) of each struct
|
|
|
|
|
|
; str[] names = ["aap", "noot", "mies", "vuur"]
|
|
; uword[] names3 = ["aap", "noot", "mies", "vuur"]
|
|
; ubyte[] values = [11,22,33,44]
|
|
; uword[] arrays = [names, names3, values]
|
|
|
|
|
|
asmsub testX() {
|
|
%asm {{
|
|
stx _saveX
|
|
lda #13
|
|
jsr txt.chrout
|
|
lda _saveX
|
|
jsr txt.print_ub
|
|
lda #13
|
|
jsr txt.chrout
|
|
ldx _saveX
|
|
rts
|
|
_saveX .byte 0
|
|
}}
|
|
}
|
|
|
|
sub start() {
|
|
; byte bb = 100
|
|
; word ww = 30000
|
|
float ff1 = 12345
|
|
float ff2 = -99999
|
|
|
|
;ff = 1+((-ff) *3) ; TODO fix invalid splitting (can't split because it references ff itself)
|
|
;ff = 1+((-ff2) *3) ; TODO splitting should be okay here
|
|
|
|
testX()
|
|
floats.print_f(ff1) ; TODO if we remove this, the following calcuation is wrong
|
|
testX()
|
|
txt.chrout('\n')
|
|
testX()
|
|
ff1 = -ff2 * 3
|
|
testX()
|
|
floats.print_f(ff1)
|
|
testX()
|
|
txt.chrout('\n')
|
|
testX()
|
|
|
|
ff1 = -ff1 * 3
|
|
testX()
|
|
floats.print_f(ff1)
|
|
testX()
|
|
txt.chrout('\n')
|
|
|
|
ff1 = abs(ff2)
|
|
floats.print_f(ff1)
|
|
txt.chrout('\n')
|
|
testX()
|
|
return
|
|
|
|
; struct Color {
|
|
; ubyte red
|
|
; ubyte green
|
|
; ubyte blue
|
|
; }
|
|
;
|
|
; ;Color c1 = [11,22,33] ; TODO fix struct initializer crash
|
|
; Color c1
|
|
; Color c2
|
|
; Color c3
|
|
; ;Color c2 = [11,22,33]
|
|
; ;Color c3 = [11,22,33]
|
|
; ;uword[] colors = [ c1, c2, c3] ; TODO should contain pointers to (the first element) of each struct
|
|
;
|
|
; c1 = c2
|
|
; ;c1 = [11,22,33] ; TODO rewrite into individual struct member assignments
|
|
;
|
|
;
|
|
; uword s
|
|
; for s in names {
|
|
; txt.print(s)
|
|
; txt.chrout('\n')
|
|
; }
|
|
; txt.chrout('\n')
|
|
;
|
|
; txt.print(names[2])
|
|
; txt.chrout('\n')
|
|
; txt.print(names[3])
|
|
; txt.chrout('\n')
|
|
;
|
|
; repeat {
|
|
; txt.print(names3[rnd()&3])
|
|
; txt.chrout(' ')
|
|
; }
|
|
}
|
|
|
|
}
|