mirror of
https://github.com/irmen/prog8.git
synced 2024-12-02 07:49:27 +00:00
clean test.p8
This commit is contained in:
parent
5988ba76b5
commit
2365a076ac
@ -1,37 +1,10 @@
|
|||||||
%import textio
|
%import textio
|
||||||
%import floats
|
%import test_stack
|
||||||
%zeropage dontuse
|
%zeropage basicsafe
|
||||||
|
|
||||||
main {
|
main {
|
||||||
|
|
||||||
label:
|
|
||||||
sub start() {
|
sub start() {
|
||||||
|
txt.print("ok")
|
||||||
ubyte[6] ubs = 10 to 20 step 2
|
test_stack.test()
|
||||||
ubyte[] ubs2 = 10 to 20 step 2
|
|
||||||
float[6] fs = 10 to 20 step 2
|
|
||||||
float[] fs2 = 10 to 20 step 2
|
|
||||||
|
|
||||||
txt.print_ub(len(ubs))
|
|
||||||
txt.nl()
|
|
||||||
txt.print_ub(len(ubs2))
|
|
||||||
txt.nl()
|
|
||||||
txt.print_ub(len(fs))
|
|
||||||
txt.nl()
|
|
||||||
txt.print_ub(len(fs2))
|
|
||||||
txt.nl()
|
|
||||||
|
|
||||||
ubyte ix
|
|
||||||
for ix in 0 to 5 {
|
|
||||||
txt.print_ub(ubs2[ix])
|
|
||||||
txt.spc()
|
|
||||||
}
|
|
||||||
txt.nl()
|
|
||||||
for ix in 0 to 5 {
|
|
||||||
floats.print_f(fs2[ix])
|
|
||||||
txt.spc()
|
|
||||||
}
|
|
||||||
txt.nl()
|
|
||||||
|
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user