mirror of
https://github.com/irmen/prog8.git
synced 2024-11-29 17:50:35 +00:00
53 lines
946 B
Lua
53 lines
946 B
Lua
%import textio
|
|
%zeropage basicsafe
|
|
%option no_sysinit
|
|
|
|
main {
|
|
sub start() {
|
|
signed()
|
|
unsigned()
|
|
}
|
|
|
|
sub signed() {
|
|
byte @shared bvalue = -100
|
|
word @shared wvalue = -20000
|
|
|
|
bvalue /= 2 ; TODO should be a simple bit shift?
|
|
wvalue /= 2 ; TODO should be a simple bit shift?
|
|
|
|
txt.print_b(bvalue)
|
|
txt.nl()
|
|
txt.print_w(wvalue)
|
|
txt.nl()
|
|
|
|
bvalue *= 2
|
|
wvalue *= 2
|
|
|
|
txt.print_b(bvalue)
|
|
txt.nl()
|
|
txt.print_w(wvalue)
|
|
txt.nl()
|
|
}
|
|
|
|
sub unsigned() {
|
|
ubyte @shared ubvalue = 100
|
|
uword @shared uwvalue = 20000
|
|
|
|
ubvalue /= 2
|
|
uwvalue /= 2
|
|
|
|
txt.print_ub(ubvalue)
|
|
txt.nl()
|
|
txt.print_uw(uwvalue)
|
|
txt.nl()
|
|
|
|
ubvalue *= 2
|
|
uwvalue *= 2
|
|
|
|
txt.print_ub(ubvalue)
|
|
txt.nl()
|
|
txt.print_uw(uwvalue)
|
|
txt.nl()
|
|
}
|
|
}
|