Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2025-01-05 18:29:21 +00:00
Code Issues Projects Releases Wiki Activity

Remove some redundant constants

Browse Source
This commit is contained in:
Joshua Bell 2018-06-01 19:00:00 -07:00
parent ad71d77c3d
commit 6201f4d814
2 changed files with 7 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
desk.acc/show.text.file.s
View File

@ -14,13 +14,6 @@
dummy1000 := $1000
;;; Modified to toggle fixed width
font_type := DEFAULT_FONT+0
font_last_char := DEFAULT_FONT+1
font_height := DEFAULT_FONT+2
font_width_table := DEFAULT_FONT+3 ; width in pixels, indexed by ASCII code
start: jmp copy2aux
save_stack:.byte 0
@ -441,9 +434,9 @@ end: rts
sta fixed_mode_flag
;; make backup of font width table; overwritten if fixed
ldx font_last_char
ldx DEFAULT_FONT + MGTK::Font::lastchar
sta RAMWRTOFF
loop: lda font_width_table - 1,x
loop: lda DEFAULT_FONT + MGTK::Font::charwidth - 1,x
sta font_width_backup - 1,x
dex
bne loop
@ -1058,7 +1051,7 @@ more: ldy drawtext_params::textlen
jmp handle_tab
: tay
lda font_width_table,y
lda DEFAULT_FONT + MGTK::Font::charwidth,y
clc
adc run_width
sta run_width
@ -1319,7 +1312,7 @@ loop: clc
start := font_width_backup
end := font_width_backup + $7E
dest := font_width_table
dest := DEFAULT_FONT + MGTK::Font::charwidth
lda #<start
sta STARTLO
@ -1345,9 +1338,9 @@ done: rts
.proc assign_fixed_font_width_table_if_needed
lda fixed_mode_flag ; if not fixed (i.e. proportional)
beq end ; then exit
ldx font_last_char
ldx DEFAULT_FONT + MGTK::Font::lastchar
lda #7 ; 7 pixels/character
loop: sta font_width_table - 1,x
loop: sta DEFAULT_FONT + MGTK::Font::charwidth - 1,x
dex
bne loop
end: rts

2
mgtk.inc
View File

@ -66,7 +66,7 @@ MLI := $4000
fonttype .byte ; 0=regular, $80=double-width
lastchar .byte ; char code of last character (usually $7F)
height .byte ; pixels (1-16)
;; charwidth .res N pixels, for each char
charwidth .byte ; pixels, for each char
;; row0 .res N bits
;; row0right .res N bits (double-width only)
.endstruct