dos33fsprogs/graphics/hgr/hgr_font_4am/bios_test.s
2023-08-23 21:44:35 -04:00

96 lines
1.4 KiB
ArmAsm

; Fake BIOS screen
; for another project
.include "zp.inc"
.include "hardware.inc"
bios_test:
;===================
; set graphics mode
;===================
jsr HOME
bit HIRES
bit FULLGR
bit SET_GR
bit PAGE1
jsr build_tables
;===================
; Load graphics
;===================
lda #<graphics_data
sta ZX0_src
lda #>graphics_data
sta ZX0_src+1
lda #$20 ; temporarily load to $2000
jsr full_decomp
; test 1
lda #<test1
ldy #>test1
jsr DrawCondensedString
; test 2
lda #<test2
ldy #>test2
jsr DrawCondensedString
; test 3
lda #<test3
ldy #>test3
jsr DrawCondensedString
; test 4
lda #<test4
ldy #>test4
jsr DrawCondensedString
; test 5
lda #<test5
ldy #>test5
jsr DrawCondensedString
end:
jmp end
test1:
; 0123456789012345678901234567890123456789
.byte 0,100,"PACK MY BOX WITH FIVE DOZEN LIQUOR JUGS!",0
test2:
.byte 0,150,"pack my box with five dozen liquor jugs?",0
test3:
.byte 9,80,"This is a HGR font test.",0
test4:
.byte 0,170,"0123456789)(*&^%$#@!`~<>,./';:[]{}\|_+=",0
test5:
.byte 0,180,"@/\/\/\/\______ |",0
.include "font_vmw_condensed.s"
.include "font_vmw_condensed_data.s"
.include "zx02_optim.s"
graphics_data:
.incbin "graphics/a2_energy.hgr.zx02"
hposn_low = $1713 ; 0xC0 bytes (lifetime, used by DrawLargeCharacter)
hposn_high = $1800 ; 0xC0 bytes (lifetime, used by DrawLargeCharacter)
.include "hgr_table.s"