Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2024-09-27 16:55:31 +00:00
Code Issues Projects Releases Wiki Activity

SHR cursor now working in MODE 0 too

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2023-01-09 20:26:09 -05:00
parent f0e27aaba8
commit 906e2bd463
2 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

18
auxmem.shr.s
View File

@ -159,6 +159,16 @@ SHRPRCHAR CMP CURSORED ; Edit cursor?
* Plot or unplot a cursor on SHR screen * Plot or unplot a cursor on SHR screen
SHRCURSOR PHA ; Preserve character SHRCURSOR PHA ; Preserve character
LDA VDUPIXELS ; Pixels per byte
CMP #$02 ; 2 is 320-mode (MODE 1)
BNE :MODE0
LDA #$04 ; 4 bytes in 320 mode
LDX #$77 ; Two white pixels
BRA :S1
:MODE0 LDA #$02 ; 2 bytes in 640 mode
LDX #$FF ; Two white pixels
:S1 STA :BYTES ; Bytes per char
STX :WHITE
LDA VDUSTATUS ; If VDU5 mode, bail LDA VDUSTATUS ; If VDU5 mode, bail
AND #$20 AND #$20
BNE :BAIL BNE :BAIL
@ -182,21 +192,23 @@ SHRCURSOR PHA ; Preserve character
BEQ :CURSORON BEQ :CURSORON
BRA :CURSOROFF BRA :CURSOROFF
:CURSORON :CURSORON
:L1 LDA #$77 :L1 LDA :WHITE
STAL [VDUADDR],Y STAL [VDUADDR],Y
INY INY
CPY #$04 ; TODO: Two bytes for 640 mode CPY :BYTES
BNE :L1 BNE :L1
RTS RTS
:CURSOROFF :CURSOROFF
:L2 LDA SHRBGMASKA :L2 LDA SHRBGMASKA
STAL [VDUADDR],Y STAL [VDUADDR],Y
INY INY
CPY #$04 ; TODO: Two bytes for 640 mode CPY :BYTES
BNE :L2 BNE :L2
:DONE RTS :DONE RTS
:BAIL PLA :BAIL PLA
RTS RTS
:BYTES DB $00 ; 2 for 640-mode, 4 for 320-mode
:WHITE DB $00 ; White pixels for mode
* Write character to SHR screen in 320 pixel mode * Write character to SHR screen in 320 pixel mode