mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-09-28 07:55:27 +00:00
Fixed VDU5 breakage in previous commit
This commit is contained in:
parent
7f311066f4
commit
7dd1e4ec28
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
@ -158,6 +158,9 @@ SHRPRCHAR LDX VDUPIXELS ; Pixels per byte
|
|||||||
* On entry: A - character to plot, CS show cursor/CC remove cursor
|
* On entry: A - character to plot, CS show cursor/CC remove cursor
|
||||||
SHRCURSOR PHP ; Preserve flags
|
SHRCURSOR PHP ; Preserve flags
|
||||||
PHA ; Preserve character
|
PHA ; Preserve character
|
||||||
|
LDA VDUSTATUS ; If VDU5 mode, bail
|
||||||
|
AND #$20
|
||||||
|
BNE :BAIL
|
||||||
LDA VDUPIXELS ; Pixels per byte
|
LDA VDUPIXELS ; Pixels per byte
|
||||||
CMP #$02 ; 2 is 320-mode (MODE 1)
|
CMP #$02 ; 2 is 320-mode (MODE 1)
|
||||||
BNE :MODE0
|
BNE :MODE0
|
||||||
@ -168,9 +171,6 @@ SHRCURSOR PHP ; Preserve flags
|
|||||||
LDX #%11011101 ; White/red/white/red
|
LDX #%11011101 ; White/red/white/red
|
||||||
:S1 STA :BYTES ; Bytes per char
|
:S1 STA :BYTES ; Bytes per char
|
||||||
STX :CURSBYTE
|
STX :CURSBYTE
|
||||||
LDA VDUSTATUS ; If VDU5 mode, bail
|
|
||||||
AND #$20
|
|
||||||
BNE :BAIL
|
|
||||||
LDA #$E1
|
LDA #$E1
|
||||||
STA VDUBANK2
|
STA VDUBANK2
|
||||||
JSR SHRCHARADDR ; Screen addr in VDUADDR
|
JSR SHRCHARADDR ; Screen addr in VDUADDR
|
||||||
@ -208,7 +208,8 @@ SHRCURSOR PHP ; Preserve flags
|
|||||||
CPY :BYTES
|
CPY :BYTES
|
||||||
BNE :L2
|
BNE :L2
|
||||||
:DONE RTS
|
:DONE RTS
|
||||||
:BAIL PLA
|
:BAIL PLA ; Fix stack
|
||||||
|
PLA
|
||||||
RTS
|
RTS
|
||||||
:BYTES DB $00 ; 2 for 640-mode, 4 for 320-mode
|
:BYTES DB $00 ; 2 for 640-mode, 4 for 320-mode
|
||||||
:CURSBYTE DB $00 ; Cursor byte for mode
|
:CURSBYTE DB $00 ; Cursor byte for mode
|
||||||
|
Loading…
Reference in New Issue
Block a user