mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-02-08 12:30:47 +00:00
77 lines
1.1 KiB
ArmAsm
77 lines
1.1 KiB
ArmAsm
; VMW 5x7 (well, 5x8) font test
|
|
|
|
.include "zp.inc"
|
|
.include "hardware.inc"
|
|
|
|
vmw_8_test:
|
|
;===================
|
|
; set graphics mode
|
|
;===================
|
|
jsr HOME
|
|
|
|
bit HIRES
|
|
bit FULLGR
|
|
bit SET_GR
|
|
bit PAGE1
|
|
|
|
jsr HGR
|
|
|
|
jsr build_tables
|
|
|
|
|
|
; 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,10,"PACK MY BOX WITH FIVE DOZEN LIQUOR JUGS!",0
|
|
test2:
|
|
.byte 0,30,"pack my box with five dozen liquor jugs?",0
|
|
test3:
|
|
.byte 9,50,"This is a HGR font test.",0
|
|
test4:
|
|
.byte 0,100,"0123456789)(*&^%$#@!`~<>,./';:[]{}\|_+=",0
|
|
test5:
|
|
.byte 0,120,"@/\/\/\/\______ |",0
|
|
|
|
.include "font_vmw_1x8.s"
|
|
.include "fonts/a2_lowercase_font.inc"
|
|
|
|
hposn_low = $1713 ; 0xC0 bytes (lifetime, used by DrawLargeCharacter)
|
|
hposn_high = $1800 ; 0xC0 bytes (lifetime, used by DrawLargeCharacter)
|
|
|
|
.include "hgr_table.s"
|