mirror of
https://github.com/irmen/prog8.git
synced 2024-09-08 10:55:08 +00:00
60 lines
1.3 KiB
Lua
60 lines
1.3 KiB
Lua
%import c64lib
|
|
%import c64utils
|
|
%import c64flt
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
remainder_ubyte(0, 1, 0)
|
|
remainder_ubyte(100, 6, 4)
|
|
remainder_ubyte(255, 2, 1)
|
|
remainder_ubyte(255, 20, 15)
|
|
|
|
remainder_uword(0,1,0)
|
|
remainder_uword(40000,511,142)
|
|
remainder_uword(40000,500,0)
|
|
remainder_uword(43211,12,11)
|
|
|
|
check_eval_stack()
|
|
}
|
|
|
|
sub remainder_ubyte(ubyte a1, ubyte a2, ubyte c) {
|
|
ubyte r = a1%a2
|
|
if r==c
|
|
c64scr.print(" ok ")
|
|
else
|
|
c64scr.print("err! ")
|
|
c64scr.print("ubyte ")
|
|
c64scr.print_ub(a1)
|
|
c64scr.print(" % ")
|
|
c64scr.print_ub(a2)
|
|
c64scr.print(" = ")
|
|
c64scr.print_ub(r)
|
|
c64.CHROUT('\n')
|
|
}
|
|
|
|
sub remainder_uword(uword a1, uword a2, uword c) {
|
|
uword r = a1%a2
|
|
if r==c
|
|
c64scr.print(" ok ")
|
|
else
|
|
c64scr.print("err! ")
|
|
c64scr.print("uword ")
|
|
c64scr.print_uw(a1)
|
|
c64scr.print(" % ")
|
|
c64scr.print_uw(a2)
|
|
c64scr.print(" = ")
|
|
c64scr.print_uw(r)
|
|
c64.CHROUT('\n')
|
|
}
|
|
|
|
sub check_eval_stack() {
|
|
if X!=255 {
|
|
c64scr.print("x=")
|
|
c64scr.print_ub(X)
|
|
c64scr.print(" error!\n")
|
|
}
|
|
}
|
|
}
|