mirror of
https://github.com/A2osX/A2osX.git
synced 2024-06-03 20:29:33 +00:00
Kernel 0.93
This commit is contained in:
parent
a2c877fad4
commit
e6c28cd69e
Binary file not shown.
|
@ -179,51 +179,41 @@ IO.PrintBatchErrMsg
|
|||
|
||||
.5 iny
|
||||
lda (ZPPtr1),y
|
||||
sta (ZPCLBuf),y
|
||||
beq .6
|
||||
|
||||
cmp #C.CR
|
||||
beq .6
|
||||
eor #C.CR
|
||||
bne .5
|
||||
|
||||
phy
|
||||
>PUSHA
|
||||
ldy #S.PS.hStdErr
|
||||
lda (pPS),y
|
||||
>SYSCALL fputc
|
||||
ply
|
||||
bra .5
|
||||
sta (ZPCLBuf),y
|
||||
|
||||
.6 >PUSHBI 0
|
||||
>PUSHW L.MSG.ECHOCRLF
|
||||
ldy #S.PS.hStdErr
|
||||
lda (pPS),y
|
||||
>SYSCALL fprintf
|
||||
.6 >PUSHW ZPCLBuf
|
||||
|
||||
>PUSHBI 2
|
||||
>PUSHW L.MSG.BATCHLINE
|
||||
jsr .80
|
||||
|
||||
ldy #$ff
|
||||
ldx #'-'
|
||||
|
||||
.7 iny
|
||||
lda (ZPPtr1),y
|
||||
lda (ZPCLBuf),y
|
||||
beq .8
|
||||
|
||||
cmp #C.CR
|
||||
beq .8
|
||||
|
||||
phy
|
||||
>PUSHBI '-'
|
||||
ldy #S.PS.hStdErr
|
||||
lda (pPS),y
|
||||
>SYSCALL fputc
|
||||
ply
|
||||
txa
|
||||
sta (ZPCLBuf),y
|
||||
bra .7
|
||||
|
||||
|
||||
.8 >PUSHW M32.TMP
|
||||
|
||||
>PUSHBI 2
|
||||
>PUSHW ZPCLBuf
|
||||
>PUSHBI 4
|
||||
>PUSHW L.MSG.BATCHERR
|
||||
ldy #S.PS.hStdErr
|
||||
|
||||
.80 ldy #S.PS.hStdErr
|
||||
lda (pPS),y
|
||||
>SYSCALL fprintf
|
||||
|
||||
rts
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
IO.PrintErrMsg pha Save EC for PrintF
|
||||
|
||||
|
|
10
BIN/SH.S.txt
10
BIN/SH.S.txt
|
@ -58,7 +58,7 @@ E.NOFOR .EQ $C5
|
|||
E.NOIF .EQ $C6
|
||||
E.BADEXP .EQ $C7
|
||||
E.BADFTYPE .EQ $C8
|
||||
E.FUNDEF .EQ $C7
|
||||
E.FUNDEF .EQ $C9
|
||||
*--------------------------------------
|
||||
.INB INC/MACROS.I
|
||||
.INB INC/A2OSX.I
|
||||
|
@ -112,6 +112,7 @@ L.MSG.PROMPT .DA MSG.PROMPT
|
|||
L.MSG.PROMPTCRLF .DA MSG.PROMPTCRLF
|
||||
L.MSG.TRACE .DA MSG.TRACE
|
||||
L.MSG.ECHOCRLF .DA MSG.ECHOCRLF
|
||||
L.MSG.BATCHLINE .DA MSG.BATCHLINE
|
||||
L.MSG.BATCHERR .DA MSG.BATCHERR
|
||||
L.MSG.ERROR .DA MSG.ERROR
|
||||
L.MSG.PRINTENV .DA MSG.PRINTENV
|
||||
|
@ -193,7 +194,6 @@ L.PS1 .DA PS1
|
|||
L.M32.Printf .DA M32.Printf
|
||||
L.ERR.Codes .DA ERR.Codes
|
||||
L.ERR.Messages .DA ERR.Messages
|
||||
L.NOD.Template .DA NOD.Template
|
||||
.DA 0
|
||||
*--------------------------------------
|
||||
CS.INIT clc
|
||||
|
@ -586,8 +586,9 @@ CS.END
|
|||
MSG.GREETINGS .AZ "\r\nA2osX-SH %d.%d\r\n\r\n"
|
||||
MSG.PROMPT .AZ "\e[?7h$ " Enable Line Wrap
|
||||
MSG.PROMPTCRLF .AZ "\e[?7l\r\n" Disable Line Wrap
|
||||
MSG.TRACE .AZ ">%s\r\n"
|
||||
MSG.BATCHERR .AZ "^\r\nLine #%D:"
|
||||
MSG.TRACE .AS ">"
|
||||
MSG.BATCHLINE .AZ "%s\r\n"
|
||||
MSG.BATCHERR .AZ "%s^\r\nLine #%D:"
|
||||
MSG.ERROR .AS "[$%h]:%S."
|
||||
MSG.ECHOCRLF .AZ "\r\n"
|
||||
MSG.PRINTENV .AZ "%s = %s\r\n"
|
||||
|
@ -703,7 +704,6 @@ EXP.OP.LOGIC .AZ "AND"
|
|||
EscChars .AS 'DBAC'
|
||||
EscChars.Cnt .EQ *-EscChars
|
||||
EscChars.Remap .DA #C.BS,#C.VT,#C.LF,#C.FS
|
||||
NOD.Template .AZ "/DEV/PIPE%h"
|
||||
M32.Printf .AZ "%L"
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
|
|
|
@ -751,9 +751,10 @@ CS.QUIT jsr LeaveSubDir
|
|||
.7 lda (pData),y
|
||||
beq .9
|
||||
>SYSCALL FreeMem
|
||||
.9 rts
|
||||
.9 clc
|
||||
rts
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE USR/SRC/BIN/X.CPMVRM.S
|
||||
LOAD USR/SRC/BIN/CP.S
|
||||
LOAD USR/SRC/BIN/RM.S
|
||||
ASM
|
||||
|
|
|
@ -492,13 +492,13 @@ READ php
|
|||
dex
|
||||
bpl .11
|
||||
|
||||
ldx DEVSLOTx0
|
||||
|
||||
ldy #S.IP
|
||||
.ELSE
|
||||
ldy #0
|
||||
.FIN
|
||||
|
||||
ldx DEVSLOTx0
|
||||
|
||||
.2 inc Counter
|
||||
bne .3
|
||||
inc Counter+1
|
||||
|
|
|
@ -853,7 +853,7 @@ IO.MLIOPEN >LDYAI 1024 get a ProDOS IOBUF
|
|||
*--------------------------------------
|
||||
IO.DEVDIR .DA #5 >PSTR "/DEV/"
|
||||
*--------------------------------------
|
||||
STAT.FIFO .AZ "/DEV/FIFO%d"
|
||||
STAT.FIFO .AS "/DEV/FIFO"
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE USR/SRC/SYS/KERNEL.S.IO
|
||||
|
|
|
@ -769,6 +769,39 @@ MEM.NextCharPtr2
|
|||
bne .8
|
||||
inc ZPPtr2+1
|
||||
.8 rts
|
||||
*/--------------------------------------
|
||||
* # GetMemStat
|
||||
* **In:**
|
||||
* Y,A = Ptr to 24 bytes buffer
|
||||
* ## RETURN VALUE
|
||||
* Buffer filled with memory stats
|
||||
*\--------------------------------------
|
||||
K.GetMemStat >STYA ZPPtr1
|
||||
|
||||
ldy #23
|
||||
ldx #7
|
||||
|
||||
.1 lda DevMgr.Stat,x
|
||||
sta (ZPPtr1),y
|
||||
dey
|
||||
dex
|
||||
bpl .1
|
||||
|
||||
sta SETREADAUX
|
||||
|
||||
jsr .2
|
||||
|
||||
sta CLRREADAUX
|
||||
|
||||
.2 ldx #7
|
||||
|
||||
.3 lda Mem.Table,x
|
||||
sta (ZPPtr1),y
|
||||
dey
|
||||
dex
|
||||
bpl .3
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
DevMgr.Stat .DA DevMgr.FreeMem
|
||||
DevMgr.Free .DA DevMgr.FreeMem
|
||||
|
|
|
@ -1,38 +1,5 @@
|
|||
NEW
|
||||
AUTO 3,1
|
||||
*/--------------------------------------
|
||||
* # GetMemStat
|
||||
* **In:**
|
||||
* Y,A = Ptr to 24 bytes buffer
|
||||
* ## RETURN VALUE
|
||||
* Buffer filled with memory stats
|
||||
*\--------------------------------------
|
||||
K.GetMemStat >STYA ZPPtr1
|
||||
|
||||
ldy #23
|
||||
ldx #7
|
||||
|
||||
.1 lda DevMgr.Stat,x
|
||||
sta (ZPPtr1),y
|
||||
dey
|
||||
dex
|
||||
bpl .1
|
||||
|
||||
sta SETREADAUX
|
||||
|
||||
jsr .2
|
||||
|
||||
sta CLRREADAUX
|
||||
|
||||
.2 ldx #7
|
||||
|
||||
.3 lda Mem.Table,x
|
||||
sta (ZPPtr1),y
|
||||
dey
|
||||
dex
|
||||
bpl .3
|
||||
|
||||
rts
|
||||
*--------------------------------------
|
||||
* # ChMod
|
||||
* change permissions of a file
|
||||
|
@ -310,15 +277,42 @@ K.MKFIFO >STYA ZPPtr1 pathname buffer
|
|||
jsr K.pipe
|
||||
bcs STAT.Access2Mode.RTS
|
||||
|
||||
sta K.S.STAT+S.STAT.DEV
|
||||
sta K.S.STAT+S.STAT.DEV hFD
|
||||
tax
|
||||
|
||||
ldy #11
|
||||
lda #0
|
||||
sta (ZPPtr1),y
|
||||
dey
|
||||
|
||||
>PUSHA
|
||||
>PUSHBI 1
|
||||
>PUSHWI STAT.FIFO
|
||||
>LDYA ZPPtr1
|
||||
jsr K.sprintf
|
||||
txa
|
||||
|
||||
and #$0F
|
||||
jsr .7
|
||||
sta (ZPPtr1),y
|
||||
dey
|
||||
|
||||
txa
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
jsr .7
|
||||
|
||||
.1 sta (ZPPtr1),y
|
||||
lda STAT.FIFO-1,y
|
||||
dey
|
||||
bpl .1
|
||||
|
||||
bra K.MkNod.I
|
||||
|
||||
.7 ora #$30
|
||||
cmp #'9'+1
|
||||
bcc .8
|
||||
|
||||
adc #6
|
||||
|
||||
.8 rts
|
||||
*/--------------------------------------
|
||||
* # MkNod
|
||||
* Create a special or ordinary file.
|
||||
|
|
Loading…
Reference in New Issue
Block a user