mirror of
https://github.com/irmen/prog8.git
synced 2024-07-30 01:29:08 +00:00
92 lines
1.9 KiB
Lua
92 lines
1.9 KiB
Lua
%import textio
|
|
%import string
|
|
%import test_stack
|
|
|
|
main {
|
|
|
|
ubyte[23] savedata
|
|
ubyte[17] cargohold = 0
|
|
uword filenameptr = $c000
|
|
|
|
sub start() {
|
|
test_stack.test()
|
|
|
|
c64.SETNAM(string.length(filenameptr), filenameptr)
|
|
|
|
sys.memcopy(&savedata + 2, cargohold, len(cargohold))
|
|
sys.memcopy(cargohold, &savedata + 2, len(cargohold))
|
|
|
|
; uword @shared uw
|
|
; ubyte @shared ub
|
|
; word @shared ww
|
|
;
|
|
; push(127)
|
|
; pop(ub)
|
|
; txt.print_ub(ub)
|
|
; txt.nl()
|
|
; pushw(32767)
|
|
; popw(uw)
|
|
; txt.print_uw(uw)
|
|
; txt.nl()
|
|
;
|
|
; uw=10000
|
|
; routines(44,uw+123)
|
|
; routines2(44,uw+123)
|
|
;
|
|
; routine(uw+123, 22,33, true, 44)
|
|
; routine2(uw+123, 22,33, true, 44)
|
|
|
|
test_stack.test()
|
|
|
|
repeat {
|
|
}
|
|
|
|
}
|
|
|
|
sub routine(uword num, ubyte a1, ubyte a2, ubyte switch, byte a3) {
|
|
txt.print_uw(num)
|
|
txt.spc()
|
|
txt.print_ub(a1)
|
|
txt.spc()
|
|
txt.print_ub(a2)
|
|
txt.spc()
|
|
txt.print_ub(switch)
|
|
txt.spc()
|
|
txt.print_b(a3)
|
|
txt.nl()
|
|
}
|
|
|
|
sub routines(ubyte bb, uword num) {
|
|
txt.print_ub(bb)
|
|
txt.spc()
|
|
txt.print_uw(num)
|
|
txt.nl()
|
|
}
|
|
|
|
; TODO make switch R3 use Pc instead and make that work !
|
|
asmsub routine2(uword num @AY, ubyte a1 @R1, ubyte a2 @R2, ubyte switch @R3, ubyte a3 @X) {
|
|
%asm {{
|
|
sta routine.num
|
|
sty routine.num+1
|
|
lda cx16.r1
|
|
sta routine.a1
|
|
lda cx16.r2
|
|
sta routine.a2
|
|
lda cx16.r3
|
|
sta routine.switch
|
|
stx routine.a3
|
|
jmp routine
|
|
}}
|
|
}
|
|
|
|
asmsub routines2(ubyte bb @X, uword num @AY) {
|
|
%asm {{
|
|
sta routines.num
|
|
sty routines.num+1
|
|
stx routines.bb
|
|
jmp routines
|
|
}}
|
|
}
|
|
|
|
}
|