Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-07-19 04:28:56 +00:00
Code Issues Projects Releases Wiki Activity

test example for fixed float ranges

Browse Source
This commit is contained in:
Irmen de Jong 2021-09-12 19:09:50 +02:00
parent 1a06e7a16e
commit 5988ba76b5
1 changed files with 21 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
examples/test.p8
View File

@ -1,42 +1,37 @@
%import textio
%import floats
%zeropage dontuse
main {
label:
sub start() {
sub2(&label)
sub2(&label_local)
sub2(&main.sub2.label_in_sub2)
uword xx = &label_local
txt.print_uwhex(xx, true)
ubyte[6] ubs = 10 to 20 step 2
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()
xx = &label
txt.print_uwhex(xx, true)
txt.print_ub(len(ubs2))
txt.nl()
xx = &main.label
txt.print_uwhex(xx, true)
txt.print_ub(len(fs))
txt.nl()
xx = &main.sub2.label_in_sub2
txt.print_uwhex(xx, true)
txt.nl()
xx = main.sub2.sub2var
txt.print_uwhex(xx, true)
txt.nl()
xx = &main.start.label_local
txt.print_uwhex(xx, true)
txt.print_ub(len(fs2))
txt.nl()
label_local:
return
}
sub sub2(uword ad) {
uword sub2var = 42
txt.print_uwhex(ad,true)
ubyte ix
for ix in 0 to 5 {
txt.print_ub(ubs2[ix])
txt.spc()
}
txt.nl()
label_in_sub2:
for ix in 0 to 5 {
floats.print_f(fs2[ix])
txt.spc()
}
txt.nl()
}
}