Fix #235 - added check for GS in SHRCLREOL.

This commit is contained in:
Bobbi Webber-Manners 2022-12-28 16:34:20 -05:00
parent 6301beda08
commit ccf13595ac
4 changed files with 7 additions and 4 deletions

Binary file not shown.

View File

@ -218,6 +218,6 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK BYTE00A BRK
DB $F7 DB $F7
HELLO ASC 'Applecorn MOS 2022-12-27' HELLO ASC 'Applecorn MOS 2022-12-28'
DB $00 ; Unify MOS messages DB $00 ; Unify MOS messages

View File

@ -560,7 +560,10 @@ SHRRSCR1LINE
* Clear from current location to EOL * Clear from current location to EOL
SHRCLREOL JSR SHRCHARADDR SHRCLREOL BIT VDUBANK ; Check it is a GS ..
BMI :GS ; .. easier to check here
RTS
:GS JSR SHRCHARADDR
STZ VDUADDR+0 ; Addr of start of line STZ VDUADDR+0 ; Addr of start of line
LDA #$08 ; Eight rows of pixels LDA #$08 ; Eight rows of pixels
STA :CTR STA :CTR

View File

@ -1,2 +1,2 @@
mame -w apple2ee -debug -sl5 mouse -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po #mame -w apple2ee -debug -sl5 mouse -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po
#mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/JGHMusic2.po mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/JGHMusic2.po