prog8/examples/test.p8

33 lines
594 B
Plaintext
Raw Normal View History

%import c64utils
%zeropage basicsafe
2020-07-26 22:32:59 +00:00
main {
2020-07-26 21:32:20 +00:00
sub start() {
uword xx = $ef34
xx &= $00f0
c64scr.print_uwhex(xx, 1)
2020-08-25 15:22:51 +00:00
c64.CHROUT('\n')
xx |= $000f
c64scr.print_uwhex(xx, 1)
c64.CHROUT('\n')
xx ^= $0011
c64scr.print_uwhex(xx, 1)
c64.CHROUT('\n')
xx = $ef34
xx &= $f000
c64scr.print_uwhex(xx, 1)
c64.CHROUT('\n')
xx |= $0f00
c64scr.print_uwhex(xx, 1)
c64.CHROUT('\n')
xx ^= $1100
c64scr.print_uwhex(xx, 1)
2020-08-25 15:22:51 +00:00
c64.CHROUT('\n')
2020-08-23 22:26:26 +00:00
}
}
2020-08-24 21:18:46 +00:00