mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-14 13:29:02 +00:00
Kernel version 0.8 : CONSOLE.DRV.S.txt, few bytes saved
This commit is contained in:
parent
0048e92a4a
commit
a05dc2324f
@ -17,7 +17,6 @@ ESCSEQ.MAXLEN .EQ 16
|
||||
*--------------------------------------
|
||||
ZPBaseL1 .EQ ZPDRV
|
||||
ZPBaseL2 .EQ ZPDRV+2
|
||||
ZPTmpByte .EQ ZPDRV+4
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
*--------------------------------------
|
||||
@ -450,15 +449,13 @@ CLRLINE ldx #0
|
||||
CLRSOL ldx #0
|
||||
ldy CH
|
||||
|
||||
CLR sty ZPTmpByte
|
||||
.1 phx
|
||||
lda #$20
|
||||
CLR sty .2+1
|
||||
.1 lda #$20
|
||||
ora INVFLG
|
||||
ldy CV
|
||||
jsr SetCharAtXY
|
||||
plx
|
||||
jsr SetCharAtXY X,Y unmodified
|
||||
inx
|
||||
cpx ZPTmpByte
|
||||
.2 cpx #$ff Self Modified
|
||||
bne .1
|
||||
clc
|
||||
rts
|
||||
@ -494,9 +491,7 @@ SCROLL.DN ldx SCROLLBOT
|
||||
bpl .3
|
||||
|
||||
cpx SCROLLTOP
|
||||
bne .1
|
||||
|
||||
|
||||
bne .1
|
||||
|
||||
clc
|
||||
rts
|
||||
|
Loading…
Reference in New Issue
Block a user