21 lines
453 B
Plaintext
21 lines
453 B
Plaintext
;********************************************************************************
|
|
; Printing Program
|
|
;********************************************************************************
|
|
.ifndef INCLUDE_PRINTER
|
|
INCLUDE_PRINTER = 1
|
|
|
|
printer:
|
|
stz LCD_CHARCOUNT
|
|
lda #%10000000
|
|
jsr _lcd_cmd
|
|
lda #LCD_CMD_CLEAR
|
|
jsr _lcd_cmd
|
|
@printer:
|
|
jsr kb_read
|
|
beq @printer
|
|
cmp #'*'
|
|
jeq return_home
|
|
jsr _lcd_char
|
|
bra @printer
|
|
.endif
|