mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-15 19:29:32 +00:00
Refactoring font explode code.
This commit is contained in:
parent
bb0c610494
commit
65ad48c6e1
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
25
auxmem.shr.s
25
auxmem.shr.s
|
@ -163,7 +163,24 @@ SHRXPLDCHAR PHA
|
|||
:L1 >>> RDMAIN
|
||||
LDA (ZP1),Y ; Load row of font
|
||||
>>> RDAUX
|
||||
LDX VDUPIXELS ; Pixels per byte
|
||||
JSR SHRXPLDROW
|
||||
INY ; Next row of font
|
||||
CPY #$08 ; Last row?
|
||||
BNE :L1
|
||||
PLA
|
||||
RTS
|
||||
|
||||
|
||||
* Explode one pixel row of user define graphics char
|
||||
* On entry: A contains row of font data
|
||||
SHRUSERCHAR LDA VDUQ+4 ; Character number
|
||||
|
||||
RTS
|
||||
|
||||
|
||||
* Explode one row of pixels. Used by SHRXPLDCHAR & SHRUSERCHAR
|
||||
* On entry: A contains row of font data
|
||||
SHRXPLDROW LDX VDUPIXELS ; Pixels per byte
|
||||
CPX #$02 ; 2 is 320-mode (MODE 1)
|
||||
BNE :S1
|
||||
JSR SHRCHAR320
|
||||
|
@ -187,11 +204,7 @@ SHRXPLDCHAR PHA
|
|||
LDA VDUADDR+1
|
||||
ADC #$00
|
||||
STA VDUADDR+1
|
||||
:S4 INY ; Next row of font
|
||||
CPY #$08 ; Last row?
|
||||
BNE :L1
|
||||
PLA
|
||||
RTS
|
||||
:S4 RTS
|
||||
|
||||
|
||||
* Explode one pixel row of font in 320 mode
|
||||
|
|
16
auxmem.vdu.s
16
auxmem.vdu.s
|
@ -1,7 +1,7 @@
|
|||
* AUXMEM.VDU.S
|
||||
* (c) Bobbi 2021 GPLv3
|
||||
* (c) Bobbi 2021-2022 GPLv3
|
||||
*
|
||||
* Apple //e VDU Driver for 40/80 column mode (PAGE2)
|
||||
* Apple //e, //c & IIGS VDU Driver for 40/80 column mode (PAGE2)
|
||||
*
|
||||
* 15-Aug-2021 Optimised address calculations and PRCHRC.
|
||||
* Entry point to move copy cursor.
|
||||
|
@ -1193,8 +1193,16 @@ RELCOORD CLC
|
|||
RTS
|
||||
|
||||
* Program video system and define characters
|
||||
********************************************
|
||||
VDU23 RTS
|
||||
* VDU 23,charnum,row1,row2,row3,row4,row5,row6,row7,row8
|
||||
VDU23 BIT VDUSCREEN ; Check we are in SHR mode
|
||||
BVC :NOTSHR
|
||||
LDY #$00
|
||||
:L1 LDA VDUQ+5,Y ; Row of pixels
|
||||
JSR SHRUSERCHAR
|
||||
INY
|
||||
CPY #$08
|
||||
BNE :L1
|
||||
:NOTSHR RTS
|
||||
|
||||
|
||||
* Read from VDU system
|
||||
|
|
Loading…
Reference in New Issue
Block a user