Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-13 13:30:36 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.9.1 : Code reorganization & move to CSTR : now, SBIN commands....

Browse Source
This commit is contained in:
Rémy GIBERT 2017-08-31 08:23:29 +02:00
parent ce434c6fee
commit a4cf170ce6
8 changed files with 30 additions and 30 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.SRC.po
View File

Binary file not shown.

22
SBIN/GETTY.S.txt
View File

@ -25,7 +25,7 @@ CS.START cld
.DA 0 .DA 0
.DA CS.END-CS.START .DA CS.END-CS.START
.DA DS.END-DS.START Data Segment to Allocate .DA DS.END-DS.START Data Segment to Allocate
.DA 0 .DA 16 SS
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
* Relocation Table * Relocation Table
@ -53,7 +53,7 @@ CS.INIT >SYSCALL GetArgC
.1 lda #1 .1 lda #1
>SYSCALL GetArg.A >SYSCALL GetArg.A
>SYSCALL MkNodYA >SYSCALL MkNod.YA
bcs .9 bcs .9
ldy #S.PS.hStdIn ldy #S.PS.hStdIn
@ -85,7 +85,7 @@ CS.INIT >SYSCALL GetArgC
CS.RUN jsr Init.Timeout CS.RUN jsr Init.Timeout
.66 >SYSCALL Sleep .66 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcc .1 bcc .1
bcs .66 bcs .66
* jsr Wait.Timeout * jsr Wait.Timeout
@ -95,7 +95,7 @@ CS.RUN jsr Init.Timeout
.10 >SYSCALL Sleep .10 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .1 bcs .1
@ -106,7 +106,7 @@ CS.RUN jsr Init.Timeout
jmp .2 jmp .2
.11 >SYSCALL Sleep .11 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .11 bcs .11
ldy #IAC.VERB ldy #IAC.VERB
@ -115,7 +115,7 @@ CS.RUN jsr Init.Timeout
* jsr PRINT.DEBUG * jsr PRINT.DEBUG
.12 >SYSCALL Sleep .12 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .12 bcs .12
ldy #IAC.OPT ldy #IAC.OPT
@ -134,7 +134,7 @@ CS.RUN jsr Init.Timeout
bne .15 only interested in Term Type, go get IAC,SE bne .15 only interested in Term Type, go get IAC,SE
.13 >SYSCALL Sleep .13 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .13 bcs .13
cmp #SB.IS not a valid reply, go get IAC,SE cmp #SB.IS not a valid reply, go get IAC,SE
@ -144,7 +144,7 @@ CS.RUN jsr Init.Timeout
sta (pData) reset IAC.TERM sta (pData) reset IAC.TERM
.14 >SYSCALL Sleep .14 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .14 bcs .14
cmp #IAC cmp #IAC
@ -161,14 +161,14 @@ CS.RUN jsr Init.Timeout
bra .14 bra .14
.15 >SYSCALL Sleep .15 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .15 bcs .15
cmp #IAC cmp #IAC
bne .15 bne .15
.16 >SYSCALL Sleep .16 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .16 bcs .16
cmp #SE cmp #SE
@ -234,7 +234,7 @@ PRINT.DEBUG phx
pha pha
lda #2 lda #2
>SYSCALL GetDevByIDA >SYSCALL GetDevByID.A
bcs .9 bcs .9
>STYA ZPTmp1 >STYA ZPTmp1

2
SBIN/INSDRV.S.txt
View File

@ -24,7 +24,7 @@ CS.START cld
.DA 0 .DA 0
.DA CS.END-CS.START Code Length To Relocate .DA CS.END-CS.START Code Length To Relocate
.DA 0 Data Segment to Allocate .DA 0 Data Segment to Allocate
.DA 0 .DA 16 SS
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
* Relocation Table * Relocation Table

6
SBIN/LOGIN.S.txt
View File

@ -24,7 +24,7 @@ CS.START cld
.DA 0 .DA 0
.DA CS.END-CS.START Code Length To Relocate .DA CS.END-CS.START Code Length To Relocate
.DA DS.END-DS.START Data Segment to Allocate .DA DS.END-DS.START Data Segment to Allocate
.DA 0 .DA 16 SS
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
* Relocation Table * Relocation Table
@ -58,7 +58,7 @@ CS.RUN lda #0
jsr INPUT.RESET jsr INPUT.RESET
.1 >SYSCALL Sleep .1 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .1 no char bcs .1 no char
jsr INPUT.CHARIN jsr INPUT.CHARIN
jsr INPUT.LINEIN jsr INPUT.LINEIN
@ -72,7 +72,7 @@ CS.RUN lda #0
jsr INPUT.RESET jsr INPUT.RESET
.2 >SYSCALL Sleep .2 >SYSCALL Sleep
>SYSCALL GetC >SYSCALL GetChar
bcs .2 no char bcs .2 no char
jsr INPUT.CHARIN jsr INPUT.CHARIN
jsr INPUT.LINEIN jsr INPUT.LINEIN

24
SBIN/SHELL.S.CMD.txt
View File

@ -156,7 +156,7 @@ Cmd.Exec.EXT ldy #1
>LDYA L.ENV.PATH push ENVNAME=PATH for search >LDYA L.ENV.PATH push ENVNAME=PATH for search
>SYSCALL GetEnvYA get value for ENV=PATH >SYSCALL GetEnv.YA get value for ENV=PATH
bcs .1 No PATH, try in CD bcs .1 No PATH, try in CD
>PUSHYA push search list >PUSHYA push search list
@ -181,7 +181,7 @@ Cmd.Exec.EXT ldy #1
>PUSHYA >PUSHYA
>PUSHW L.CMD replace CMD in TmpBuffer with full path >PUSHW L.CMD replace CMD in TmpBuffer with full path
>SYSCALL PStrCpy >SYSCALL StrCpy
pla pla
>SYSCALL FreeMem.A Discard this string... >SYSCALL FreeMem.A Discard this string...
@ -213,7 +213,7 @@ Cmd.Exec.EXT.TXT
>SYSCALL GetArg.A >SYSCALL GetArg.A
>PUSHYA >PUSHYA
>PUSHWI UsrBuf256 >PUSHWI UsrBuf256
>SYSCALL PStrCpy >SYSCALL StrCpy
inc UsrBuf256 Add a space.... inc UsrBuf256 Add a space....
ldy UsrBuf256 ldy UsrBuf256
@ -225,7 +225,7 @@ Cmd.Exec.EXT.TXT
Cmd.Exec.EXT.BIN Cmd.Exec.EXT.BIN
>PUSHW L.CMD >PUSHW L.CMD
>PUSHWI UsrBuf256 >PUSHWI UsrBuf256
>SYSCALL PStrCat >SYSCALL StrCat
lda ARGS lda ARGS
beq .1 beq .1
@ -237,7 +237,7 @@ Cmd.Exec.EXT.BIN
>PUSHW L.ARGS >PUSHW L.ARGS
>PUSHWI UsrBuf256 >PUSHWI UsrBuf256
>SYSCALL PStrCat >SYSCALL StrCat
.1 >LDYAI UsrBuf256 .1 >LDYAI UsrBuf256
bit bStartProc bit bStartProc
@ -272,11 +272,11 @@ Cmd.Exec.CD1 stz UsrBuf256
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>PUSHYA >PUSHYA
>PUSHWI UsrBuf256 >PUSHWI UsrBuf256
>SYSCALL PStrCpy >SYSCALL StrCpy
.1 >PUSHW L.ARGS Append ARG to buffer .1 >PUSHW L.ARGS Append ARG to buffer
>PUSHWI UsrBuf256 >PUSHWI UsrBuf256
>SYSCALL PStrCat >SYSCALL StrCat
lda #'/' lda #'/'
ldx UsrBuf256 ldx UsrBuf256
@ -350,7 +350,7 @@ Cmd.Exec.CD1 stz UsrBuf256
bne Cmd.Exec.ERRSYN bne Cmd.Exec.ERRSYN
.80 >LDYAI UsrBuf256 .80 >LDYAI UsrBuf256
>SYSCALL NewPStrYA >SYSCALL NewStr.YA
bcs .9 bcs .9
phx phx
@ -438,18 +438,18 @@ Cmd.Exec.SETVAR tax
beq .99 syntax error beq .99 syntax error
>LDYA L.ARGS String is VAR=VALUE... >LDYA L.ARGS String is VAR=VALUE...
>SYSCALL PutEnvYA >SYSCALL PutEnv.YA
rts rts
.2 dec ARGS String is "VAR=", Remove endig '=' .2 dec ARGS String is "VAR=", Remove endig '='
>LDYA L.ARGS String is "VAR"... >LDYA L.ARGS String is "VAR"...
>SYSCALL UnsetEnvYA >SYSCALL UnsetEnv.YA
rts rts
* Print requested VAR * Print requested VAR
.3 >LDYA L.ARGS .3 >LDYA L.ARGS
>SYSCALL GetEnvYA >SYSCALL GetEnv.YA
bcs .8 bcs .8
>PUSHYA push value >PUSHYA push value
@ -608,7 +608,7 @@ Cmd.Exec.SLEEP lda ARGS
adc pData+1 adc pData+1
>PUSHYA >PUSHYA
>PUSHW L.ARGS >PUSHW L.ARGS
>SYSCALL AToI >SYSCALL AToI.YA
bcs .9 bcs .9

2
SBIN/SHELL.S.CSH.txt
View File

@ -519,7 +519,7 @@ CSH.GetNumInACC ldy #0
>PUSHW L.CSH.ACC >PUSHW L.CSH.ACC
>PUSHW L.ARGS >PUSHW L.ARGS
>SYSCALL AToI >SYSCALL AToL
bcs .9 bcs .9
rts rts

4
SBIN/SHELL.S.txt
View File

@ -42,7 +42,7 @@ CS.START cld
.DA 0 .DA 0
.DA CS.END-CS.START Code Length To Relocate .DA CS.END-CS.START Code Length To Relocate
.DA DS.END-DS.START Data Segment to Allocate .DA DS.END-DS.START Data Segment to Allocate
.DA 0 .DA 64 SS
.DA 0 .DA 0
*-------------------------------------- *--------------------------------------
* Relocation Table * Relocation Table
@ -498,7 +498,7 @@ SetPWD ldy #S.PS.hPREFIX
rts rts
*-------------------------------------- *--------------------------------------
PrintPrompt >LDYA L.ENV.PS1 PrintPrompt >LDYA L.ENV.PS1
>SYSCALL GetEnvYA >SYSCALL GetEnv.YA
>SYSCALL ExpandStr.YA >SYSCALL ExpandStr.YA
phx phx
>PUSHYA >PUSHYA