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

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-05-06 17:28:09 +02:00
parent f49ec39082
commit b707ec3c1e
4 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

2
BIN/SH.S.CL.txt
View File

@ -274,7 +274,7 @@ CL.PrintEOL >LDA.G CL.Ptr
inc
bra .1
.2 lda #' '
.2 lda #C.SPACE
>SYSCALL PutChar
>LDA.G CL.Ptr
.3 >CMP.G CL.Len

13
SYS/KERNEL.S.TERMX.txt
View File

@ -828,7 +828,9 @@ COUT.IAC.WILL ldx #WILLDO.CNT-1
beq .8
dex
bpl .2
bra COUT.IAC.EXIT
.7 ldx #DO
.HS 2C BIT ABS
.8 ldx #DONT
@ -850,6 +852,7 @@ COUT.IAC.DO ldx #DOWILL.CNT-1
bpl .2
bra COUT.IAC.EXIT
.7 ldx #WILL
.HS 2C BIT ABS
.8 ldx #WONT
@ -863,9 +866,11 @@ COUT.IAC.SendAX
jsr Char.Out.Put
pla
jsr Char.Out.Put
*--------------------------------------
COUT.IAC.WONT
*--------------------------------------
COUT.IAC.DONT
*--------------------------------------
COUT.IAC.EXIT
*--------------------------------------
RESET.MODE lda #0
@ -1415,14 +1420,16 @@ KeyRemapped .HS 080A0B15 Left,Down,Up,Right
KeyRemapped.Cnt .EQ *-KeyRemapped
KeyRemapped.Tbl .HS 44424143 esc[D,esc[B,esc[A,esc[C
*--------------------------------------
WILLDO .DA #TELOPT.BINARY,#TELOPT.SGA
WILLDO .DA #TELOPT.BINARY,#TELOPT.SGA,#TELOPT.ECHO
WILLDO.CNT .EQ *-WILLDO
WILLDONT .DA #TELOPT.TSPEED,#TELOPT.LINEMODE,#TELOPT.STATUS
WILLDONT.CNT .EQ *-WILLDONT
DOWILL .DA #TELOPT.BINARY,#TELOPT.SGA,#TELOPT.TTYPE,#TELOPT.NAWS
DOWILL.CNT .EQ *-DOWILL
DOWONT .DA #TELOPT.ECHO,#TELOPT.NEWENVIRON,#TELOPT.XDISPLOC,#TELOPT.TSPEED,#TELOPT.LFLOW
DOWONT .DA #TELOPT.ECHO,#TELOPT.NEWENVIRON,#TELOPT.XDISPLOC
.DA #TELOPT.TSPEED,#TELOPT.LFLOW,#TELOPT.AUTHENTICATION
DOWONT.CNT .EQ *-DOWONT
*--------------------------------------
SB.IS.TTYPE .DA #IAC,#SB,#TELOPT.TTYPE,#SB.IS
ENQ.String .AS "vt100"
ENQ.String.Len .EQ *-ENQ.String