base:print_stringchain
no way to compare when less than two revisions
Differences
This shows you the differences between two versions of the page.
— | base:print_stringchain [2017-08-10 17:34] (current) – created abujok | ||
---|---|---|---|
Line 1: | Line 1: | ||
+ | ====== Print Stringchain ====== | ||
+ | |||
+ | Prints a stored textchain on a C64 (like $AB1E). | ||
+ | |||
+ | < | ||
+ | |||
+ | BSOUT = $ffd2 ; print value in accu on screen | ||
+ | |||
+ | TXTOUT_LB = $22 ; pointer for text lb address (unused memory on zeropage) | ||
+ | TXTOUT_HB = $23 ; pointer for text hb address (unused memory on zeropage) | ||
+ | |||
+ | |||
+ | LDA #<txt2 ; HB address of text | ||
+ | sta TXTOUT_HB ; store on HB Text pointer | ||
+ | LDY #>txt2 ; LB address of text | ||
+ | sta TXTOUT_LB ; store on HB Text pointer | ||
+ | jsr TXTOUT | ||
+ | rts ; bye | ||
+ | |||
+ | |||
+ | ; | ||
+ | ; | ||
+ | ; | ||
+ | TXTOUT ldy #$00 ; set index to zero | ||
+ | t0 lda (TXTOUT_LB), | ||
+ | beq end ; Text end? | ||
+ | jsr BSOUT ; print char | ||
+ | iny ; index next char | ||
+ | jmp t0 ; loop | ||
+ | end rts ; bye | ||
+ | |||
+ | |||
+ | txt0 byte "HELLO WORLD.", | ||
+ | |||
+ | </ | ||
base/print_stringchain.txt · Last modified: 2017-08-10 17:34 by abujok