Kernel version 0.9 : Investigzting Terminal types...

A2osX.STARTUP.txt

@@ -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
+INSDRV SSC.I.DRV 9600,N,8,1,X
-#STARTPROC GETTY COM2 ${A2OSX}SBIN/LOGIN
+STARTPROC GETTY COM2 ${A2OSX}SBIN/LOGIN
 #INSDRV PIC.DRV
 # Network Section
 #INSDRV UTHERNET.DRV 000E3A123456

DRV/SSC.I.DRV.S.txt

@@ -167,7 +167,7 @@ READ			php
 				beq .9
 				
 				lda INBUF,x
-				jsr READ.DEBUG
+*				jsr READ.DEBUG
 				inx
 				cpx #BUF.SIZE
 				bne .1

SBIN/GETTY.S.txt

@@ -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
+				lda #$83
-*				bcc .10
+				jsr PRINT.DEBUG
-
-				bra .3
-				
-*				lda #5					Ctrl-E
-*				>SYSCALL PutCA
-*				bcs .8
 								
 .1				>SYSCALL Sleep
 				>SYSCALL GetC
 				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)
+.4				lda (pData)
-				beq .3
+				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"

SBIN/LOGIN.S.txt

@@ -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