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-14 01:23:59 +00:00
|
|
|
; @todo test memset/memcopy (there's a bug in memcopy?)
|
|
|
|
|
2019-02-23 21:13:12 +00:00
|
|
|
; @todo see looplabelproblem.p8
|
|
|
|
|
2019-02-21 00:31:33 +00:00
|
|
|
sub start() {
|
2019-02-24 17:52:48 +00:00
|
|
|
ubyte xx
|
|
|
|
|
|
|
|
c64scr.print_ub(X)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
|
|
A=c64scr.getchr(20,1)
|
|
|
|
c64scr.print_ub(A)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
xx=c64scr.getchr(20,1)
|
|
|
|
c64scr.print_ub(xx)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print_ub(X)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
|
|
A=1+c64scr.getchr(20,1)
|
|
|
|
c64scr.print_ub(A)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
xx=1+c64scr.getchr(20,1)
|
|
|
|
c64scr.print_ub(xx)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print_ub(X)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
|
|
|
|
A=c64scr.getchr(20,1)+1
|
|
|
|
c64scr.print_ub(A)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
xx=c64scr.getchr(20,1)+1
|
|
|
|
c64scr.print_ub(xx)
|
|
|
|
c64.CHROUT('\n')
|
|
|
|
c64scr.print_ub(X)
|
|
|
|
c64.CHROUT('\n')
|
2019-02-12 20:53:57 +00:00
|
|
|
|
|
|
|
|
2019-02-23 21:48:26 +00:00
|
|
|
}
|
2019-02-23 21:13:12 +00:00
|
|
|
|
2019-02-24 17:52:48 +00:00
|
|
|
asmsub asm_routine(ubyte arg1 @ A, ubyte arg2 @ Y) -> clobbers() -> (ubyte @ A) {
|
|
|
|
return A+Y
|
|
|
|
}
|
|
|
|
|
2019-02-23 21:48:26 +00:00
|
|
|
sub drawNext(ubyte x) {
|
|
|
|
A=x
|
|
|
|
}
|
|
|
|
sub drawNextW(uword w) {
|
|
|
|
w++
|
2019-01-31 23:50:24 +00:00
|
|
|
}
|
2019-02-01 21:51:30 +00:00
|
|
|
|
2019-01-27 17:33:21 +00:00
|
|
|
}
|