Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-01-09 14:30:50 +00:00
Code Issues Projects Releases Wiki Activity

Turn off SHR shadowing!

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2022-12-24 23:18:03 -05:00
parent e2f13be9f8
commit a6b964b30e
3 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

1
applecorn.s
View File

@ -99,6 +99,7 @@ NEWVIDEO EQU $C029 ; GS-specific, new video register
SPKR EQU $C030 SPKR EQU $C030
CLOCKCTL EQU $C034 ; GS-specific, Clock control register CLOCKCTL EQU $C034 ; GS-specific, Clock control register
SHADOW EQU $C035 ; GS-specific, Shadow Register
CYAREG EQU $C036 ; GS-specific, CYA Register CYAREG EQU $C036 ; GS-specific, CYA Register
GRON EQU $C050 GRON EQU $C050

9
auxmem.shr.s
View File

@ -82,7 +82,10 @@ SHRTAB DB $20 ; Text row 0
* Enable SHR mode * Enable SHR mode
SHRVDU22 JSR VDU12 ; Clear text and SHR screen SHRVDU22
LDA #$18 ; Inhibit SHR shadowing
TSB SHADOW
JSR VDU12 ; Clear text and SHR screen
LDA #$80 ; Most significant bit LDA #$80 ; Most significant bit
TSB NEWVIDEO ; Enable SHR mode TSB NEWVIDEO ; Enable SHR mode
LDA VDUPIXELS ; Pixels per byte LDA VDUPIXELS ; Pixels per byte
@ -147,7 +150,7 @@ SHRPRCHAR SEC
* Draw one pixel row of font in 320 mode * Draw one pixel row of font in 320 mode
* 4 bytes per char, 4 bits per pixel * 4 bytes per char, 4 bits per pixel
* TODO Implement this * TODO: Implement this
SHRCHAR320 PHY SHRCHAR320 PHY
LDA #$FF LDA #$FF
LDY #$00 LDY #$00
@ -276,6 +279,7 @@ SHRSCR1LINE TAY
* Reverse scroll one line * Reverse scroll one line
* Copy text line A to line A+1 * Copy text line A to line A+1
* TODO: Implement this
SHRRSCR1LINE SHRRSCR1LINE
RTS RTS
@ -331,6 +335,7 @@ SHRCLEAR PHP ; Disable interrupts
* Set text colour * Set text colour
* A=txt colour * A=txt colour
* TODO: Need to add support for 320 mode also
SHRSETTCOL TAX SHRSETTCOL TAX
LDA :MASKS640,X ; Lookup mask in table LDA :MASKS640,X ; Lookup mask in table
STA SHRCOLMASK ; Set colour mask STA SHRCOLMASK ; Set colour mask