Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-09-16 16:57:12 +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 bit bActive
sta ZPBaseL2 bpl .8
lda SCR.BASEH,x
sta ZPBaseL2+1 lda SCR.BASEL,x
sta ZPScrBaseL1
lda SCR.BASEH,x
sta ZPScrBaseL1+1
.8 rts
*--------------------------------------
COPY.XtoL1 ldy #79
* php
* sei
sta SETWRITEAUX sta SETWRITEAUX
sta SETREADAUX sta SETREADAUX
jsr .1 .1 lda (ZPBufBaseL2),y
sta (ZPBufBaseL1),y
dey
bpl .1
sta CLRWRITEAUX sta CLRWRITEAUX
sta CLRREADAUX sta CLRREADAUX
* plp
.1 ldy #39 bit bActive
bpl .8
.2 lda (ZPBaseL2),y lda SCR.BASEL,x
sta (ZPBaseL1),y sta ZPScrBaseL2
lda SCR.BASEH,x
sta ZPScrBaseL2+1
sta SETWRITEAUX
sta SETREADAUX
jsr .6
sta CLRWRITEAUX
sta CLRREADAUX
.6 ldy #39
.7 lda (ZPScrBaseL2),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