2021-08-09 15:49:01 +00:00
|
|
|
|
|
|
|
|
|
|
|
.include "hardware.inc"
|
|
|
|
|
|
|
|
GBASL = $26
|
|
|
|
GBASH = $27
|
|
|
|
CURSOR_X = $62
|
|
|
|
CURSOR_Y = $63
|
|
|
|
INL = $FC
|
|
|
|
INH = $FD
|
2021-08-09 16:12:25 +00:00
|
|
|
OUTL = $FE
|
|
|
|
OUTH = $FF
|
2021-08-09 15:49:01 +00:00
|
|
|
|
|
|
|
font_test:
|
|
|
|
|
|
|
|
jsr HGR
|
|
|
|
|
2021-08-09 16:12:25 +00:00
|
|
|
; ldx #5
|
|
|
|
; ldy #10
|
|
|
|
; lda #'A'
|
|
|
|
|
|
|
|
; jsr hgr_put_char
|
|
|
|
|
|
|
|
lda #<test1
|
|
|
|
sta OUTL
|
|
|
|
lda #>test1
|
|
|
|
sta OUTH
|
|
|
|
|
|
|
|
jsr hgr_put_string
|
2021-08-09 15:49:01 +00:00
|
|
|
|
|
|
|
end:
|
|
|
|
jmp end
|
|
|
|
|
|
|
|
|
2021-08-09 16:12:25 +00:00
|
|
|
test1:
|
|
|
|
; 0123456789012345678901234567890123456789
|
|
|
|
.byte 0,10,"PACK MY BOX WITH FIVE DOZEN LIQUOR JUGS!",0
|
|
|
|
|
2021-08-09 15:49:01 +00:00
|
|
|
|
|
|
|
.include "hgr_font.s"
|