mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-25 18:29:36 +00:00
Kernel version 0.9 : Investigzting Terminal types...
This commit is contained in:
parent
0bbbeac390
commit
a8fec4ccfa
BIN
A2OSX.BOOT.po
BIN
A2OSX.BOOT.po
Binary file not shown.
BIN
A2OSX.SRC.po
BIN
A2OSX.SRC.po
Binary file not shown.
|
@ -9,13 +9,11 @@ SET PATH=${PATH};/A2OSX.DEV/BIN/
|
|||
SET PS1='$PWD'
|
||||
# Main Screen
|
||||
INSDRV CONSOLE.DRV
|
||||
ECHO toto
|
||||
STARTPROC GETTY CON ${A2OSX}SBIN/LOGIN
|
||||
ECHO jojo
|
||||
# Serial Login
|
||||
#INSDRV SSC.DRV 9600,N,8,1,X
|
||||
#INSDRV SSC.I.DRV 9600,N,8,1,X
|
||||
#STARTPROC GETTY COM2 ${A2OSX}SBIN/LOGIN
|
||||
INSDRV SSC.I.DRV 9600,N,8,1,X
|
||||
STARTPROC GETTY COM2 ${A2OSX}SBIN/LOGIN
|
||||
#INSDRV PIC.DRV
|
||||
# Network Section
|
||||
#INSDRV UTHERNET.DRV 000E3A123456
|
||||
|
|
|
@ -167,7 +167,7 @@ READ php
|
|||
beq .9
|
||||
|
||||
lda INBUF,x
|
||||
jsr READ.DEBUG
|
||||
* jsr READ.DEBUG
|
||||
inx
|
||||
cpx #BUF.SIZE
|
||||
bne .1
|
||||
|
|
|
@ -54,7 +54,6 @@ CS.INIT >SYSCALL GetArgC
|
|||
>SYSCALL MkNodYA
|
||||
bcs .9
|
||||
|
||||
txa
|
||||
ldy #S.PS.hStdIn
|
||||
sta (pPs),y
|
||||
ldy #S.PS.hStdOut
|
||||
|
@ -79,39 +78,49 @@ CS.INIT >SYSCALL GetArgC
|
|||
CS.RUN
|
||||
>LDYA L.MSG.TELNETOPT
|
||||
>SYSCALL CPrintFYA
|
||||
bcs .8
|
||||
bcs *
|
||||
|
||||
*.10 >SYSCALL GetC
|
||||
* bcc .10
|
||||
|
||||
bra .3
|
||||
|
||||
* lda #5 Ctrl-E
|
||||
* >SYSCALL PutCA
|
||||
* bcs .8
|
||||
|
||||
lda #$83
|
||||
jsr PRINT.DEBUG
|
||||
|
||||
.1 >SYSCALL Sleep
|
||||
>SYSCALL GetC
|
||||
bcs .2
|
||||
bcs .2
|
||||
|
||||
jsr PRINT.DEBUG
|
||||
bra .1
|
||||
|
||||
.2 lda #5 Ctrl-E
|
||||
>SYSCALL PutCA
|
||||
bcs *
|
||||
|
||||
lda #$84
|
||||
jsr PRINT.DEBUG
|
||||
|
||||
.3 >SYSCALL Sleep
|
||||
>SYSCALL GetC
|
||||
bcs .4
|
||||
|
||||
jsr PRINT.DEBUG
|
||||
|
||||
tax
|
||||
lda (pData)
|
||||
cmp #63
|
||||
beq .2
|
||||
beq .4
|
||||
inc
|
||||
sta (pData)
|
||||
tay
|
||||
txa
|
||||
sta (pData),y
|
||||
bra .1
|
||||
bra .3
|
||||
|
||||
.2 lda (pData)
|
||||
beq .3
|
||||
.4 lda (pData)
|
||||
beq .5
|
||||
>PUSHW pdata
|
||||
>PUSHW L.TERM
|
||||
>SYSCALL SetEnv
|
||||
|
||||
.3 >LDYA L.MSG.GREETINGS
|
||||
.5 >LDYA L.MSG.GREETINGS
|
||||
>SYSCALL CPrintFYA
|
||||
|
||||
bcs .8 unable to send greetings...loop..
|
||||
|
@ -139,7 +148,58 @@ CS.QUIT ldy #hBinName
|
|||
clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
PRINT.DEBUG phx
|
||||
phy
|
||||
pha
|
||||
|
||||
lda #2
|
||||
>SYSCALL GetDevByIDA
|
||||
bcs .9
|
||||
|
||||
>STYA ZPTmp1
|
||||
lda (ZPTmp1)
|
||||
sta PRINT.DEBUG.JMP+1
|
||||
ldy #1
|
||||
lda (ZPTmp1),y
|
||||
sta PRINT.DEBUG.JMP+2
|
||||
|
||||
lda #'{'
|
||||
ldx #DEVMGR.WRITE
|
||||
jsr PRINT.DEBUG.JMP
|
||||
|
||||
pla
|
||||
pha
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
tax
|
||||
lda PRINT.DEBUG.CHAR,x
|
||||
|
||||
ldx #DEVMGR.WRITE
|
||||
jsr PRINT.DEBUG.JMP
|
||||
|
||||
pla
|
||||
pha
|
||||
and #$0F
|
||||
tax
|
||||
lda PRINT.DEBUG.CHAR,x
|
||||
|
||||
ldx #DEVMGR.WRITE
|
||||
jsr PRINT.DEBUG.JMP
|
||||
|
||||
lda #'}'
|
||||
ldx #DEVMGR.WRITE
|
||||
jsr PRINT.DEBUG.JMP
|
||||
|
||||
.9 pla
|
||||
ply
|
||||
plx
|
||||
rts
|
||||
PRINT.DEBUG.JMP jmp $ffff
|
||||
*--------------------------------------
|
||||
CS.END
|
||||
PRINT.DEBUG.CHAR .AS "0123456789ABCDEF"
|
||||
MSG.USAGE >CSTR "GETTY <DEV> <PROGRAM>\r\n"
|
||||
MSG.TELNETOPT
|
||||
* .DA #IAC,#DO,#TELOPT.LINEMODE
|
||||
|
@ -148,6 +208,7 @@ MSG.TELNETOPT
|
|||
.DA #IAC,#WILL,#TELOPT.ECHO
|
||||
* .DA #IAC,#WILL,#TELOPT.SGA
|
||||
* .DA #IAC,#DO,#TELOPT.NAWS
|
||||
.DA #IAC,#DO,TELOPT.TTYPE
|
||||
.DA #13,#10,#0
|
||||
MSG.GREETINGS >CSTR "\r\nA2osX-GeTTY\r\n"
|
||||
TERM >PSTR "TERM"
|
||||
|
|
|
@ -191,6 +191,7 @@ CS.END
|
|||
MSG.LOGIN >CSTR "\r\nlogin:"
|
||||
MSG.PASSWORD >CSTR "\r\npassword:"
|
||||
SHELL >PSTR "${A2OSX}SBIN/SHELL"
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
.OR 0
|
||||
DS.START
|
||||
|
|
Loading…
Reference in New Issue
Block a user