mirror of
https://github.com/irmen/prog8.git
synced 2024-07-26 20:29:55 +00:00
42 lines
751 B
Lua
42 lines
751 B
Lua
%import c64utils
|
|
%zeropage basicsafe
|
|
|
|
~ main {
|
|
|
|
; @todo see problem in looplabelproblem.p8
|
|
|
|
|
|
sub start() {
|
|
|
|
uword w = 12345
|
|
ubyte flags
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
clear_irqd()
|
|
c64utils.uword2bcd(w)
|
|
flags=read_flags()
|
|
c64scr.print_ubbin(1,flags)
|
|
c64.CHROUT('\n')
|
|
|
|
set_irqd()
|
|
c64utils.uword2bcd(w)
|
|
flags=read_flags()
|
|
c64scr.print_ubbin(1,flags)
|
|
c64.CHROUT('\n')
|
|
|
|
clear_irqd()
|
|
c64utils.uword2bcd(w)
|
|
flags=read_flags()
|
|
c64scr.print_ubbin(1,flags)
|
|
c64.CHROUT('\n')
|
|
|
|
set_irqd()
|
|
c64utils.uword2bcd(w)
|
|
flags=read_flags()
|
|
c64scr.print_ubbin(1,flags)
|
|
c64.CHROUT('\n')
|
|
|
|
}
|
|
}
|