Kernel 0.9.2

This commit is contained in:
Rémy GIBERT 2018-09-10 07:48:35 +02:00
parent f3857cd815
commit d8ac678572
3 changed files with 15 additions and 12 deletions

Binary file not shown.

Binary file not shown.

View File

@ -162,9 +162,9 @@ OPEN sta A2osX.SCRNDEVS DEV.ID in A
ldy #0 ldy #0
.1 lda TelnetOpt,y .1 lda TelnetOpt,y
beq CONTROL
jsr Char.Out.Put jsr Char.Out.Put
iny iny
cpy #TelnetOpt.LEN
bne .1 bne .1
*-------------------------------------- *--------------------------------------
CONTROL sta SETTEXT CONTROL sta SETTEXT
@ -1058,15 +1058,16 @@ GetPtrsAndCnt ldy #S.IOCTL.BUFPTR
rts rts
*-------------------------------------- *--------------------------------------
DRV.CS.END DRV.CS.END
*--------------------------------------
BASEL .HS 00.80.00.80.00.80.00.80.28.A8.28.A8.28.A8.28.A8.50.D0.50.D0.50.D0.50.D0
BASEH .HS 04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07
*--------------------------------------
CtrlChars .HS 05080A0C0D151B
CtrlChars.Cnt .EQ *-CtrlChars
*--------------------------------------
EscCodes >PSTR "MDc" EscCodes >PSTR "MDc"
EscSeqCmds >PSTR "mnrKH" EscSeqCmds >PSTR "mnrKH"
ENQ.String .AZ "XTERM" ENQ.String .AZ "XTERM"
SB.IS.TTYPE .DA #IAC,#SB,#TELOPT.TTYPE,#SB.IS
.AS 'XTERM'
.DA #IAC,#SE
SB.IS.TTYPE.LEN .EQ *-SB.IS.TTYPE
BASEL .HS 00.80.00.80.00.80.00.80.28.A8.28.A8.28.A8.28.A8.50.D0.50.D0.50.D0.50.D0
BASEH .HS 04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07.04.04.05.05.06.06.07.07
*-------------------------------------- *--------------------------------------
KeyRemapped .HS 05080A0B0D15 L,D,U,CR,R KeyRemapped .HS 05080A0B0D15 L,D,U,CR,R
KeyRemappedIdx .HS 050004080C0F KeyRemappedIdx .HS 050004080C0F
@ -1076,20 +1077,22 @@ KeyRemappedDOWN .HS 1B5B4200 esc[B
KeyRemappedUP .HS 1B5B4100 esc[A KeyRemappedUP .HS 1B5B4100 esc[A
KeyRemappedCR .HS 0D0A00 crlf KeyRemappedCR .HS 0D0A00 crlf
KeyRemappedRGHT .HS 1B5B4300 esc[C KeyRemappedRGHT .HS 1B5B4300 esc[C
*--------------------------------------
TelnetOpt .DA #IAC,#DO,#TELOPT.ECHO TelnetOpt .DA #IAC,#DO,#TELOPT.ECHO
.DA #0 TelnetOpt.LEN .EQ *-TelnetOpt
*-------------------------------------- *--------------------------------------
WILLDO .DA #TELOPT.BINARY,#TELOPT.SGA,#TELOPT.NAWS WILLDO .DA #TELOPT.BINARY,#TELOPT.SGA,#TELOPT.NAWS
WILLDO.CNT .EQ *-WILLDO WILLDO.CNT .EQ *-WILLDO
WILLDONT .DA #TELOPT.TSPEED,#TELOPT.LINEMODE WILLDONT .DA #TELOPT.TSPEED,#TELOPT.LINEMODE
WILLDONT.CNT .EQ *-WILLDONT WILLDONT.CNT .EQ *-WILLDONT
DOWILL .DA #TELOPT.BINARY,#TELOPT.SGA,#TELOPT.NAWS DOWILL .DA #TELOPT.BINARY,#TELOPT.SGA,#TELOPT.NAWS,#TELOPT.TTYPE
DOWILL.CNT .EQ *-DOWILL DOWILL.CNT .EQ *-DOWILL
DOWONT .DA #TELOPT.NEWENVIRON DOWONT .DA #TELOPT.NEWENVIRON
DOWONT.CNT .EQ *-DOWONT DOWONT.CNT .EQ *-DOWONT
*-------------------------------------- SB.IS.TTYPE .DA #IAC,#SB,#TELOPT.TTYPE,#SB.IS
CtrlChars .HS 05080A0C0D151B .AS 'XTERM'
CtrlChars.Cnt .EQ *-CtrlChars .DA #IAC,#SE
SB.IS.TTYPE.LEN .EQ *-SB.IS.TTYPE
*-------------------------------------- *--------------------------------------
CH .BS 1 CH .BS 1
CV .BS 1 CV .BS 1