mirror of
https://github.com/irmen/prog8.git
synced 2024-10-17 10:24:55 +00:00
47 lines
868 B
Lua
47 lines
868 B
Lua
%import c64lib
|
|
%import c64utils
|
|
%import c64flt
|
|
%zeropage basicsafe
|
|
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
byte bb
|
|
word ww
|
|
float fl
|
|
bb=-1
|
|
c64scr.print_b(sgn(bb))
|
|
c64.CHROUT('\n')
|
|
bb=0
|
|
c64scr.print_b(sgn(bb))
|
|
c64.CHROUT('\n')
|
|
bb=1
|
|
c64scr.print_b(sgn(bb))
|
|
c64.CHROUT('\n')
|
|
c64.CHROUT('\n')
|
|
ww=-1
|
|
c64scr.print_b(sgn(ww))
|
|
c64.CHROUT('\n')
|
|
ww=0
|
|
c64scr.print_b(sgn(ww))
|
|
c64.CHROUT('\n')
|
|
ww=1
|
|
c64scr.print_b(sgn(ww))
|
|
c64.CHROUT('\n')
|
|
c64.CHROUT('\n')
|
|
fl=-1.1
|
|
c64scr.print_b(sgn(fl))
|
|
c64.CHROUT('\n')
|
|
fl=0.0
|
|
c64scr.print_b(sgn(fl))
|
|
c64.CHROUT('\n')
|
|
fl=1.0
|
|
c64scr.print_b(sgn(fl))
|
|
c64.CHROUT('\n')
|
|
c64.CHROUT('\n')
|
|
}
|
|
|
|
}
|