Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-09-09 00:54:29 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.92

Browse Source
This commit is contained in:
Rémy GIBERT 2018-12-12 08:05:29 +01:00
parent 140f312d12
commit a54459d486
2 changed files with 62 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
SYS/KERNEL.S.DEF.txt
View File

@ -144,7 +144,7 @@ S.TTY.DEVID .EQ 0
S.TTY.STATUS .EQ 0 S.TTY.STATUS .EQ 0
S.TTY.TITLE .EQ 48 S.TTY.TITLE .EQ 48
S.TTY.SCRBUF .EQ 128 S.TTY.SCRBUF .EQ 128 24x80=1920 bytes
* *
S.TTY .EQ 2048 S.TTY .EQ 2048
*-------------------------------------- *--------------------------------------

96
SYS/KERNEL.S.TERM.txt
View File

@ -13,8 +13,10 @@ ZPTmpWord .EQ ZPDRV+4
ZPTmpBool .EQ ZPDRV+6 ZPTmpBool .EQ ZPDRV+6
ZPBufPtr .EQ ZPDRV+8 ZPBufPtr .EQ ZPDRV+8
ZPCount .EQ ZPDRV+10 ZPCount .EQ ZPDRV+10
ZPBaseL1 .EQ ZPDRV+12 ZPBufBaseL1 .EQ ZPDRV+12
ZPBaseL2 .EQ ZPDRV+14 ZPBufBaseL2 .EQ ZPDRV+14
ZPScrBaseL1 .EQ ZPDRV+16
ZPScrBaseL2 .EQ ZPDRV+18
*-------------------------------------- *--------------------------------------
DRV.TERM cld DRV.TERM cld
>STYA pIOCTL >STYA pIOCTL
@ -642,11 +644,14 @@ ClrScr ldx #23
lda #" " lda #" "
bit bActive
bpl .4
sta SETWRITEAUX sta SETWRITEAUX
ldy #39 ldy #39
.2 sta (ZPBaseL1),y .2 sta (ZPScrBaseL1),y
dey dey
bpl .2 bpl .2
@ -654,10 +659,18 @@ ClrScr ldx #23
ldy #39 ldy #39
.3 sta (ZPBaseL1),y .3 sta (ZPScrBaseL1),y
dey dey
bpl .3 bpl .3
.4 sta SETWRITEAUX
ldy #79
.5 sta (ZPBufBaseL1),y
dey
bpl .5
dex dex
bpl .1 bpl .1
@ -915,16 +928,10 @@ SetCharAtYX cmp #$40
pla pla
bcs .1 bcs .1
* php
* sei
sta SETWRITEAUX sta SETWRITEAUX
.1 sta (ZPBaseL1),y .1 sta (ZPScrBaseL1),y
sta CLRWRITEAUX sta CLRWRITEAUX
* plp
rts rts
*.1 sta (ZPBaseL1),y
* rts
*-------------------------------------- *--------------------------------------
GetCharAtCurPos ldy CH GetCharAtCurPos ldy CH
ldx CV ldx CV
@ -937,46 +944,64 @@ GetCharAtYX jsr SETUP.L1X
bcs .1 bcs .1
* php
* sei
sta SETREADAUX sta SETREADAUX
.1 lda (ZPBaseL1),y .1 lda (ZPScrBaseL1),y
sta CLRREADAUX sta CLRREADAUX
* plp
rts rts
*.1 lda (ZPBaseL1),y
* rts
*-------------------------------------- *--------------------------------------
SETUP.L1X lda SCR.BASEL,x SETUP.L1X lda SCR.BASEL,x
sta ZPBaseL1 clc
adc ZPTTYPtr
sta ZPBufBaseL1
lda SCR.BASEH,x lda SCR.BASEH,x
sta ZPBaseL1+1 adc ZPTTYPtr+1
rts sta ZPBufBaseL1+1
*--------------------------------------
COPY.XtoL1 lda SCR.BASEL,x
sta ZPBaseL2
lda SCR.BASEH,x
sta ZPBaseL2+1
* php bit bActive
* sei bpl .8
lda SCR.BASEL,x
sta ZPScrBaseL1
lda SCR.BASEH,x
sta ZPScrBaseL1+1
.8 rts
*--------------------------------------
COPY.XtoL1 ldy #79
sta SETWRITEAUX sta SETWRITEAUX
sta SETREADAUX sta SETREADAUX
jsr .1 .1 lda (ZPBufBaseL2),y
sta (ZPBufBaseL1),y
dey
bpl .1
sta CLRWRITEAUX
sta CLRREADAUX
bit bActive
bpl .8
lda SCR.BASEL,x
sta ZPScrBaseL2
lda SCR.BASEH,x
sta ZPScrBaseL2+1
sta SETWRITEAUX
sta SETREADAUX
jsr .6
sta CLRWRITEAUX sta CLRWRITEAUX
sta CLRREADAUX sta CLRREADAUX
* plp
.1 ldy #39 .6 ldy #39
.2 lda (ZPBaseL2),y .7 lda (ZPScrBaseL2),y
sta (ZPBaseL1),y sta (ZPScrBaseL1),y
dey dey
bpl .2 bpl .7
rts .8 rts
*-------------------------------------- *--------------------------------------
Decimal.Out stz ZPTmpWord Decimal.Out stz ZPTmpWord
stz ZPTmpWord+1 stz ZPTmpWord+1
@ -1164,6 +1189,7 @@ SB.IS.NAWS .DA #IAC,#SB,#TELOPT.NAWS,#SB.IS
SB.IS.NAWS.LEN .EQ *-SB.IS.NAWS SB.IS.NAWS.LEN .EQ *-SB.IS.NAWS
*-------------------------------------- *--------------------------------------
bActive .BS 1 bActive .BS 1
*--------------------------------------
CH .BS 1 CH .BS 1
CV .BS 1 CV .BS 1
LWFLG .BS 1 LWFLG .BS 1