mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-13 22:29:29 +00:00
Fix #235 - added check for GS in SHRCLREOL.
This commit is contained in:
parent
6301beda08
commit
ccf13595ac
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -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
|
||||||
|
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue
Block a user