mirror of
https://github.com/bobbimanners/Applecorn.git
synced 2024-06-02 11:41:30 +00:00
CLREOL works properly in SHR 640 mode now.
This commit is contained in:
parent
0e74697271
commit
1aa7330663
BIN
applecorn.po
BIN
applecorn.po
Binary file not shown.
|
@ -221,6 +221,7 @@ SHRCLREOL JSR SHRCHARADDR
|
|||
STZ VDUADDR+0 ; Addr of start of line
|
||||
LDA #$08 ; Eight rows
|
||||
STA :CTR
|
||||
INC TXTWINRGT
|
||||
:L0 LDA VDUTEXTX
|
||||
TAX
|
||||
ASL ; 2 bytes / char
|
||||
|
@ -237,6 +238,7 @@ SHRCLREOL JSR SHRCHARADDR
|
|||
:S1 JSR SHRNEXTROW
|
||||
DEC :CTR
|
||||
BNE :L0
|
||||
DEC TXTWINRGT
|
||||
RTS
|
||||
:CTR DB $00
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user