2019-02-12 20:53:57 +00:00
|
|
|
%import c64utils
|
2019-02-02 23:14:56 +00:00
|
|
|
%zeropage basicsafe
|
2019-01-26 21:46:01 +00:00
|
|
|
|
2019-02-02 23:14:56 +00:00
|
|
|
~ main {
|
2019-01-27 20:25:16 +00:00
|
|
|
|
2019-02-25 00:08:10 +00:00
|
|
|
; @todo see problem in looplabelproblem.p8
|
|
|
|
|
2019-02-21 00:31:33 +00:00
|
|
|
sub start() {
|
2019-02-24 17:52:48 +00:00
|
|
|
|
2019-03-05 22:10:00 +00:00
|
|
|
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)
|
2019-02-27 23:13:59 +00:00
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
2019-02-24 17:52:48 +00:00
|
|
|
}
|
2019-01-27 17:33:21 +00:00
|
|
|
}
|