Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-06-01 19:41:43 +00:00
Code Issues Projects Releases Wiki Activity

Implemented VDU23 user defined graphics chars.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-12-29 16:37:58 -05:00
parent 65ad48c6e1
commit f61c535b5f
3 changed files with 40 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

43
auxmem.shr.s
View File

@ -171,11 +171,48 @@ SHRXPLDCHAR PHA
RTS
* Explode one pixel row of user define graphics char
* Explode one pixel row of user defined graphics char
* On entry: A contains row of font data
SHRUSERCHAR LDA VDUQ+4 ; Character number
SHRUSERCHAR LDA #<SHRFONTXPLD ; Use VDUADDR to point to ..
STA VDUADDR+0 ; .. start of table to write
LDA #>SHRFONTXPLD
STA VDUADDR+1
LDA #$E1
STA VDUBANK
LDA VDUQ+0 ; Character number
SEC
SBC #32 ; Font starts at 32
TAY
LDA #16 ; Bytes/char in 640 mode
LDX VDUPIXELS ; Pixels per byte
CPX #$02 ; 2 is 320-mode (MODE 1)
BNE :S0
LDA #32 ; Bytes/char in 320 mode
:S0 STA :INCREMENT
:L0 CPY #$00
BEQ :S1
CLC
LDA VDUADDR+0
ADC :INCREMENT
STA VDUADDR+0
LDA VDUADDR+1
ADC #$00
STA VDUADDR+1
DEY
BRA :L0
:S1 LDY #$00
:L1 LDA VDUQ+1,Y ; Row of pixels
JSR SHRXPLDROW
INY
CPY #$08 ; Last row?
BNE :L1
RTS
:INCREMENT DB $00
* Explode one row of pixels. Used by SHRXPLDCHAR & SHRUSERCHAR

5
auxmem.vdu.s
View File

@ -1196,12 +1196,7 @@ RELCOORD CLC
* 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