prog8/compiler/res/prog8lib/test_stack.p8
2023-07-15 22:24:22 +02:00

41 lines
515 B
Lua

; utility debug code to print the SP (cpu stack pointer) register.
%import textio
test_stack {
%option no_symbol_prefixing
asmsub test() {
%asm {{
lda #13
jsr txt.chrout
lda #'-'
ldy #12
- jsr txt.chrout
dey
bne -
lda #13
jsr txt.chrout
lda #'s'
jsr txt.chrout
lda #'p'
jsr txt.chrout
lda #'='
jsr txt.chrout
tsx
txa
jsr txt.print_ub
lda #13
jsr txt.chrout
lda #'-'
ldy #12
- jsr txt.chrout
dey
bne -
lda #13
jsr txt.chrout
rts
}}
}
}