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
BYTE00A BRK
DB $F7
HELLO ASC 'Applecorn MOS 2022-12-27'
HELLO ASC 'Applecorn MOS 2022-12-28'
DB $00 ; Unify MOS messages

View File

@ -560,7 +560,10 @@ SHRRSCR1LINE
* 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
LDA #$08 ; Eight rows of pixels
STA :CTR

View File

@ -1,2 +1,2 @@
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 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