prog8/compiler/res/prog8lib/test_stack.p8

41 lines
515 B
Plaintext
Raw Normal View History

; utility debug code to print the SP (cpu stack pointer) register.
2021-01-07 00:56:31 +00:00
2020-11-22 17:17:43 +00:00
%import textio
test_stack {
2023-06-29 22:29:50 +00:00
%option no_symbol_prefixing
asmsub test() {
%asm {{
2021-01-07 00:56:31 +00:00
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
}}
}
}