24 lines
366 B
PHP
24 lines
366 B
PHP
.import Print
|
|
.import ClearTxt
|
|
.import Cin_Str
|
|
.import Cin_Char
|
|
|
|
.import CIN_STR
|
|
|
|
|
|
; --- string with high-bit set, null-terminated
|
|
; Apple II char < 128 are inverted
|
|
.macro ASCIIZ str
|
|
.repeat .strlen (str), c
|
|
.byte .strat (str, c) | $80
|
|
.endrep
|
|
.byte 0
|
|
.endmacro
|
|
|
|
|
|
.macro PRINT string
|
|
lda #>string
|
|
ldx #<string
|
|
jsr Print
|
|
.endmacro
|