mirror of
https://github.com/uffejakobsen/acme.git
synced 2024-11-28 13:49:22 +00:00
28 lines
471 B
Plaintext
28 lines
471 B
Plaintext
|
;ACME 0.97
|
||
|
|
|
||
|
|
; zp variables
|
||
|
|
!addr ptr = $fb
|
||
|
|
|
||
|
|
; kernal
|
||
|
|
!addr k_chrout = $ffd2
|
||
|
|
|
||
|
|
; print zero-terminated string
|
||
|
|
print_string_AAYY
|
||
|
|
sta ptr + 1 ; store high byte of pointer
|
||
|
|
lda #0 ; and clear low byte of pointer so we can use "(ptr), y"
|
||
|
|
sta ptr
|
||
|
|
beq +
|
||
|
|
;;;
|
||
|
|
--- jsr k_chrout
|
||
|
|
iny
|
||
|
|
bne +
|
||
|
|
; fix high byte
|
||
|
|
inc ptr + 1
|
||
|
|
+ lda (ptr), y
|
||
|
|
bne ---
|
||
|
|
rts
|
||
|
|
|
||
|
|
!eof
|
||
|
|
There is also a version in the c64 basic rom (strout, $ab1e), but that one
|
||
|
|
stops at double quotes.
|