mirror of
https://github.com/irmen/prog8.git
synced 2024-10-06 09:58:13 +00:00
50 lines
772 B
Plaintext
50 lines
772 B
Plaintext
output prg,basic
|
|
zp clobber, restore
|
|
|
|
;reg_preserve off ; @todo global option off/on default off?
|
|
|
|
import "c64lib"
|
|
|
|
~ ZP {
|
|
var .float fl1 = 3.1415927
|
|
var .float fl2 = 99.999999
|
|
var .float fl3 = 100000
|
|
}
|
|
|
|
|
|
~ main {
|
|
var .float fl1 = 3.1415927
|
|
var .float fl2 = 99.999999
|
|
var .float fl3 = 10
|
|
|
|
start
|
|
fl1 = 111111.22222
|
|
fl2 = 0
|
|
fl3 = 1
|
|
fl3 = -1
|
|
fl3 = 0.5
|
|
fl3 = -0.5
|
|
|
|
X=6
|
|
loop1
|
|
A=X
|
|
c64util.print_byte_hex(0, A)
|
|
c64.CHROUT!(" ")
|
|
X--
|
|
if_pos goto loop1
|
|
|
|
Y=6
|
|
loop2
|
|
A=Y
|
|
c64util.print_byte_hex(0, A)
|
|
c64.CHROUT!(" ")
|
|
Y--
|
|
if_neg goto stop
|
|
goto loop2
|
|
|
|
stop
|
|
|
|
return
|
|
|
|
}
|