mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-09 14:55:05 +00:00
Kernel 0.9.1 : Code reorganization & move to CSTR : GETTY,LOGIN
This commit is contained in:
parent
4eb13cc475
commit
3ceb61c354
Binary file not shown.
Binary file not shown.
@ -254,7 +254,7 @@ SYS.CreateProcessNewEnvYA .EQ $A4
|
|||||||
SYS.CreateProcessYA .EQ $A6
|
SYS.CreateProcessYA .EQ $A6
|
||||||
* .EQ $A8
|
* .EQ $A8
|
||||||
* .EQ $AA
|
* .EQ $AA
|
||||||
SYS.Sleep .EQ $AC
|
* .EQ $AC
|
||||||
* .EQ $AE
|
* .EQ $AE
|
||||||
|
|
||||||
SYS.GetArgC .EQ $B0
|
SYS.GetArgC .EQ $B0
|
||||||
@ -286,6 +286,8 @@ SYS.LoadStkObj.YA .EQ $D8
|
|||||||
SYS.GetStkObj.A .EQ $DA
|
SYS.GetStkObj.A .EQ $DA
|
||||||
SYS.FreeStkObj.A .EQ $DC
|
SYS.FreeStkObj.A .EQ $DC
|
||||||
* .EQ $DE
|
* .EQ $DE
|
||||||
|
|
||||||
|
SYS.Sleep .EQ $E0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* ProDOS ERROR CODES : $00->$5F
|
* ProDOS ERROR CODES : $00->$5F
|
||||||
* Lib ERROR CODES : $80->$BF
|
* Lib ERROR CODES : $80->$BF
|
||||||
|
@ -45,7 +45,6 @@ CS.INIT ldy #S.PS.ARGC
|
|||||||
cmp #2
|
cmp #2
|
||||||
bne .9
|
bne .9
|
||||||
|
|
||||||
>DEBUG
|
|
||||||
lda #1
|
lda #1
|
||||||
>SYSCALL GetArg.A
|
>SYSCALL GetArg.A
|
||||||
|
|
||||||
@ -114,8 +113,6 @@ CS.RUN jsr Init.Timeout
|
|||||||
ldy #IAC.VERB
|
ldy #IAC.VERB
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
* jsr PRINT.DEBUG
|
|
||||||
|
|
||||||
.12 >SYSCALL Sleep
|
.12 >SYSCALL Sleep
|
||||||
>SYSCALL GetChar
|
>SYSCALL GetChar
|
||||||
bcs .12
|
bcs .12
|
||||||
@ -123,8 +120,6 @@ CS.RUN jsr Init.Timeout
|
|||||||
ldy #IAC.OPT
|
ldy #IAC.OPT
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
|
||||||
* jsr PRINT.DEBUG
|
|
||||||
|
|
||||||
ldy #IAC.VERB
|
ldy #IAC.VERB
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
cmp #SB
|
cmp #SB
|
||||||
@ -231,56 +226,6 @@ CS.QUIT ldy #hBinName
|
|||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PRINT.DEBUG phx
|
|
||||||
phy
|
|
||||||
pha
|
|
||||||
|
|
||||||
lda #2
|
|
||||||
>SYSCALL GetDevByID.A
|
|
||||||
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
|
|
||||||
*--------------------------------------
|
|
||||||
Init.Timeout ldy #TimeOut
|
Init.Timeout ldy #TimeOut
|
||||||
lda #TIMEOUT.MAX
|
lda #TIMEOUT.MAX
|
||||||
sta (pData),y
|
sta (pData),y
|
||||||
|
@ -38,8 +38,7 @@ L.MSG.PASSWORD .DA MSG.PASSWORD
|
|||||||
L.SHELL .DA SHELL
|
L.SHELL .DA SHELL
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.INIT >DEBUG
|
CS.INIT lda (pPs)
|
||||||
lda (pPs)
|
|
||||||
ora #S.PS.F.EVENT Now accept events
|
ora #S.PS.F.EVENT Now accept events
|
||||||
sta (pPs)
|
sta (pPs)
|
||||||
clc Tell TskMgr To stay in memory
|
clc Tell TskMgr To stay in memory
|
||||||
@ -191,7 +190,7 @@ INPUT.LINEIN ldy #INPUT.Status
|
|||||||
CS.END
|
CS.END
|
||||||
MSG.LOGIN >CSTR "\r\nlogin:"
|
MSG.LOGIN >CSTR "\r\nlogin:"
|
||||||
MSG.PASSWORD >CSTR "\r\npassword:"
|
MSG.PASSWORD >CSTR "\r\npassword:"
|
||||||
SHELL >PSTR "${A2OSX}SBIN/SHELL"
|
SHELL >CSTR "${A2OSX}SBIN/SHELL"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DUMMY
|
.DUMMY
|
||||||
.OR 0
|
.OR 0
|
||||||
|
@ -150,6 +150,7 @@ CS.RUN >LDA.G bReadMode READ Command ?
|
|||||||
lda #0 reset it
|
lda #0 reset it
|
||||||
sta (ZPCMDBuf)
|
sta (ZPCMDBuf)
|
||||||
|
|
||||||
|
>STA.G bCmdBufexec
|
||||||
>STA.G bSecureRead Clear password mode
|
>STA.G bSecureRead Clear password mode
|
||||||
|
|
||||||
.12 jsr PrintPrompt
|
.12 jsr PrintPrompt
|
||||||
@ -318,11 +319,7 @@ CS.CHARIN tax Save Char
|
|||||||
rts
|
rts
|
||||||
|
|
||||||
* interactive mode
|
* interactive mode
|
||||||
.10 >LDA.G hCmdBuf
|
.10 >LDA.G bEscMode
|
||||||
>SYSCALL GetMemPtr.A
|
|
||||||
>STYA ZPCMDBuf
|
|
||||||
|
|
||||||
>LDA.G bEscMode
|
|
||||||
beq .13
|
beq .13
|
||||||
|
|
||||||
cpx #'['
|
cpx #'['
|
||||||
|
@ -481,6 +481,29 @@ CORE.DestroyEvent
|
|||||||
sta (pEvent)
|
sta (pEvent)
|
||||||
dec EvtMgr.Count
|
dec EvtMgr.Count
|
||||||
.9 rts
|
.9 rts
|
||||||
|
*/--------------------------------------
|
||||||
|
* # Sleep
|
||||||
|
* Make current process suspend until next RUN
|
||||||
|
* ## In :
|
||||||
|
* (none)
|
||||||
|
* ## Out :
|
||||||
|
* (none)
|
||||||
|
*\--------------------------------------
|
||||||
|
K.Sleep pla get PC LO
|
||||||
|
sec
|
||||||
|
sbc pCode
|
||||||
|
ldy #S.PS.PC
|
||||||
|
sta (pPs),y
|
||||||
|
|
||||||
|
pla get PC HI
|
||||||
|
sbc pCode+1
|
||||||
|
iny
|
||||||
|
sta (pPs),y
|
||||||
|
lda (pPs)
|
||||||
|
ora #S.PS.F.SLEEP
|
||||||
|
sta (pPs)
|
||||||
|
clc No error,
|
||||||
|
rts back to Kernel
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
TskMgr.Idx .BS 1
|
TskMgr.Idx .BS 1
|
||||||
TSKMGR.EVENTCNT .BS 1
|
TSKMGR.EVENTCNT .BS 1
|
||||||
|
@ -106,7 +106,7 @@ K.SYSCALL.JMP .DA 0 $00
|
|||||||
.DA K.CreateProcess.YA
|
.DA K.CreateProcess.YA
|
||||||
.DA 0
|
.DA 0
|
||||||
.DA 0
|
.DA 0
|
||||||
.DA K.Sleep
|
.DA 0
|
||||||
.DA 0
|
.DA 0
|
||||||
|
|
||||||
.DA K.GetArgC $B0
|
.DA K.GetArgC $B0
|
||||||
@ -137,6 +137,8 @@ K.SYSCALL.JMP .DA 0 $00
|
|||||||
.DA K.GetStkObj.A
|
.DA K.GetStkObj.A
|
||||||
.DA K.FreeStkObj.A
|
.DA K.FreeStkObj.A
|
||||||
.DA 0
|
.DA 0
|
||||||
|
*--------------------------------------
|
||||||
|
.DA K.Sleep $E0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* LO Byte :
|
* LO Byte :
|
||||||
* #RRAMWRAMBNK1,#RRAMWRAMBNK2
|
* #RRAMWRAMBNK1,#RRAMWRAMBNK2
|
||||||
@ -382,6 +384,8 @@ K.SYSCALL.BANK .DA #RRAMWRAMBNK1 $00
|
|||||||
.DA 0
|
.DA 0
|
||||||
.DA 0
|
.DA 0
|
||||||
.DA 0
|
.DA 0
|
||||||
|
*--------------------------------------
|
||||||
|
.DA 0 $E0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
PullPtr1Ptr2Ptr3
|
PullPtr1Ptr2Ptr3
|
||||||
sec
|
sec
|
||||||
|
@ -4,29 +4,6 @@ LOMEM $A00
|
|||||||
INC 1
|
INC 1
|
||||||
AUTO 6
|
AUTO 6
|
||||||
*/--------------------------------------
|
*/--------------------------------------
|
||||||
* # Sleep
|
|
||||||
* Make current process suspend until next RUN
|
|
||||||
* ## In :
|
|
||||||
* (none)
|
|
||||||
* ## Out :
|
|
||||||
* (none)
|
|
||||||
*\--------------------------------------
|
|
||||||
K.Sleep pla get PC LO
|
|
||||||
sec
|
|
||||||
sbc pCode
|
|
||||||
ldy #S.PS.PC
|
|
||||||
sta (pPs),y
|
|
||||||
|
|
||||||
pla get PC HI
|
|
||||||
sbc pCode+1
|
|
||||||
iny
|
|
||||||
sta (pPs),y
|
|
||||||
lda (pPs)
|
|
||||||
ora #S.PS.F.SLEEP
|
|
||||||
sta (pPs)
|
|
||||||
clc No error,
|
|
||||||
rts back to Kernel
|
|
||||||
*/--------------------------------------
|
|
||||||
* # ExecProcessNewEnv.YA
|
* # ExecProcessNewEnv.YA
|
||||||
* # ExecProcess.YA (Blocking Parent PID)
|
* # ExecProcess.YA (Blocking Parent PID)
|
||||||
* # CreateProcessNewEnv.YA
|
* # CreateProcessNewEnv.YA
|
||||||
|
Loading…
Reference in New Issue
Block a user