mirror of
https://github.com/irmen/prog8.git
synced 2024-07-30 01:29:08 +00:00
45 lines
973 B
Lua
45 lines
973 B
Lua
%import c64lib
|
|
%import c64utils
|
|
%import c64flt
|
|
%zeropage basicsafe
|
|
|
|
main {
|
|
|
|
sub start() {
|
|
|
|
ubyte A =$22
|
|
uword addr = $c080
|
|
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr += $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr += $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr += $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr += $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr += $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
|
|
addr -= $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr -= $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr -= $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
addr -= $21
|
|
c64scr.print_uwhex(addr, true)
|
|
c64.CHROUT('\n')
|
|
}
|
|
}
|