mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-09 14:55:05 +00:00
Kernel 0.92
This commit is contained in:
parent
b0c3ebec01
commit
7a5f5668f8
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -264,21 +264,16 @@ CL.PrintCmdBuf >LDYA ZPCLBuf
|
|||||||
CL.GetLine >LDYA ZPFileBufPtr
|
CL.GetLine >LDYA ZPFileBufPtr
|
||||||
>STYA.G CMD.FileBufPtr
|
>STYA.G CMD.FileBufPtr
|
||||||
|
|
||||||
lda #"a"
|
|
||||||
sta $815
|
|
||||||
|
|
||||||
lda (ZPFileBufPtr)
|
lda (ZPFileBufPtr)
|
||||||
beq .9
|
beq .9
|
||||||
|
|
||||||
inc $815
|
|
||||||
|
|
||||||
ldx #0 not in "
|
ldx #0 not in "
|
||||||
|
|
||||||
ldy #0
|
ldy #0
|
||||||
|
|
||||||
.1 lda (ZPFileBufPtr),y
|
.1 lda (ZPFileBufPtr),y
|
||||||
beq .7
|
beq .7
|
||||||
inc $815
|
|
||||||
cmp #C.CR
|
cmp #C.CR
|
||||||
beq .6
|
beq .6
|
||||||
|
|
||||||
|
@ -166,48 +166,21 @@ J.CMD.Eval.TOKEN4 .DA M32.Add
|
|||||||
L.M32.Printf .DA M32.Printf
|
L.M32.Printf .DA M32.Printf
|
||||||
L.ERR.Codes .DA ERR.Codes
|
L.ERR.Codes .DA ERR.Codes
|
||||||
L.ERR.Messages .DA ERR.Messages
|
L.ERR.Messages .DA ERR.Messages
|
||||||
L.MSG.DEBUG .DA MSG.DEBUG
|
|
||||||
.DO CSH=1
|
.DO CSH=1
|
||||||
.INB USR/SRC/BIN/SHELL.R.CSH
|
.INB USR/SRC/BIN/SHELL.R.CSH
|
||||||
.FIN
|
.FIN
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.DEBUG >PUSHWI K.VER
|
|
||||||
>PUSHBI 2
|
|
||||||
>LDYA L.MSG.GREETINGS
|
|
||||||
>SYSCALL printf
|
|
||||||
|
|
||||||
lda #0
|
|
||||||
>SYSCALL ArgV
|
|
||||||
>PUSHYA
|
|
||||||
>PUSHBI 2
|
|
||||||
>LDYA L.MSG.DEBUG
|
|
||||||
>SYSCALL printf
|
|
||||||
|
|
||||||
lda #1
|
|
||||||
>SYSCALL ArgV
|
|
||||||
>PUSHYA
|
|
||||||
>PUSHBI 2
|
|
||||||
>LDYA L.MSG.DEBUG
|
|
||||||
>SYSCALL printf
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
CS.INIT clc
|
CS.INIT clc
|
||||||
CS.INIT.RTS rts
|
CS.INIT.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN lda #"I"
|
CS.RUN jsr CMD.Init
|
||||||
sta $819
|
|
||||||
sta $817
|
|
||||||
|
|
||||||
jsr CMD.Init
|
|
||||||
bcs CS.INIT.RTS
|
bcs CS.INIT.RTS
|
||||||
|
|
||||||
ldy #S.PS.ARGC
|
ldy #S.PS.ARGC
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
beq .1 no arg, continue starting interactive
|
beq .1 no arg, continue starting interactive
|
||||||
|
|
||||||
jsr CS.DEBUG
|
|
||||||
|
|
||||||
lda #1
|
lda #1
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
>SYSCALL LoadTxtFile
|
>SYSCALL LoadTxtFile
|
||||||
@ -386,9 +359,6 @@ CS.RUN.BATCH >SYSCALL GetChar
|
|||||||
cmp #C.EOF
|
cmp #C.EOF
|
||||||
bne .3
|
bne .3
|
||||||
|
|
||||||
lda #"\"
|
|
||||||
sta $819
|
|
||||||
|
|
||||||
lda #$ff
|
lda #$ff
|
||||||
>STA.G bExit
|
>STA.G bExit
|
||||||
inc
|
inc
|
||||||
@ -398,8 +368,7 @@ CS.RUN.BATCH >SYSCALL GetChar
|
|||||||
.3 sec
|
.3 sec
|
||||||
bra CS.RUN.LOOP.END
|
bra CS.RUN.LOOP.END
|
||||||
|
|
||||||
.7 inc $817
|
.7 >LDA.G CL.bExec
|
||||||
>LDA.G CL.bExec
|
|
||||||
bpl CS.RUN.LOOP.80
|
bpl CS.RUN.LOOP.80
|
||||||
|
|
||||||
lda (ZPCLBuf)
|
lda (ZPCLBuf)
|
||||||
@ -594,7 +563,6 @@ ENV.PATH .AZ "PATH"
|
|||||||
ENV.PWD .AZ "PWD"
|
ENV.PWD .AZ "PWD"
|
||||||
ENV.PS1 .AZ "PS1"
|
ENV.PS1 .AZ "PS1"
|
||||||
ENV.HOME .AZ "HOME"
|
ENV.HOME .AZ "HOME"
|
||||||
MSG.DEBUG .AZ "{%s}\r\n"
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
* https://www.tldp.org/LDP/abs/html/io-redirection.html
|
* https://www.tldp.org/LDP/abs/html/io-redirection.html
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -149,12 +149,7 @@ STATUS >STYA ZPIOCTL
|
|||||||
OPEN sta A2osX.SCRNDEVS DEV.ID in A
|
OPEN sta A2osX.SCRNDEVS DEV.ID in A
|
||||||
|
|
||||||
lda #S.DIB.S.OPENED
|
lda #S.DIB.S.OPENED
|
||||||
ora DIB+S.DIB.S
|
tsb DIB+S.DIB.S
|
||||||
sta DIB+S.DIB.S
|
|
||||||
|
|
||||||
lda #"C"
|
|
||||||
sta $417
|
|
||||||
sta $817
|
|
||||||
|
|
||||||
stz OutPtr
|
stz OutPtr
|
||||||
stz OutCnt
|
stz OutCnt
|
||||||
@ -168,9 +163,7 @@ CONTROL sta SETTEXT
|
|||||||
sta CLRPAGE2
|
sta CLRPAGE2
|
||||||
lda #1
|
lda #1
|
||||||
sta A2osX.ASCREEN
|
sta A2osX.ASCREEN
|
||||||
lda #"c"
|
|
||||||
sta $417
|
|
||||||
sta $817
|
|
||||||
clc
|
clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -244,9 +244,7 @@ DRV.SYS cld
|
|||||||
DRV.SYS.STATUS >LDYAI DRV.SYS.DIB
|
DRV.SYS.STATUS >LDYAI DRV.SYS.DIB
|
||||||
jmp DRV.STATUS.YA
|
jmp DRV.STATUS.YA
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.SYS.Open lda #"S"
|
DRV.SYS.Open lda #DEVID.SYS
|
||||||
sta $423
|
|
||||||
lda #DEVID.SYS
|
|
||||||
sta A2osX.SCRNDEVS+1
|
sta A2osX.SCRNDEVS+1
|
||||||
jsr DRV.SYS.FF
|
jsr DRV.SYS.FF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -102,40 +102,34 @@ Kernel.Init3 sta SETALTZP
|
|||||||
sta IRQ.InKernel
|
sta IRQ.InKernel
|
||||||
|
|
||||||
jsr SysScrInit
|
jsr SysScrInit
|
||||||
lda #"A"
|
|
||||||
sta $427
|
|
||||||
jsr MemMgrInit
|
jsr MemMgrInit
|
||||||
>LDYAI FD.NULL
|
>LDYAI FD.NULL
|
||||||
>SYSCALL MKDev
|
>SYSCALL MKDev
|
||||||
inc $427
|
|
||||||
>LDYAI FD.SYS
|
>LDYAI FD.SYS
|
||||||
>SYSCALL MKDev
|
>SYSCALL MKDev
|
||||||
inc $427
|
|
||||||
jsr PS0.Init
|
jsr PS0.Init
|
||||||
bcc .10
|
bcs *
|
||||||
|
|
||||||
lda #"D"
|
|
||||||
sta $427
|
|
||||||
bra *
|
|
||||||
|
|
||||||
.10 inc $427
|
|
||||||
>LDYAI MSG.Init3
|
>LDYAI MSG.Init3
|
||||||
>SYSCALL puts
|
>SYSCALL puts
|
||||||
inc $427
|
|
||||||
jsr CPU.Init.6502
|
jsr CPU.Init.6502
|
||||||
inc $427
|
|
||||||
jsr CPU.Init.Z80
|
jsr CPU.Init.Z80
|
||||||
inc $427
|
|
||||||
jsr DevMgrInit
|
jsr DevMgrInit
|
||||||
inc $427
|
|
||||||
jsr IrqMgrInit
|
jsr IrqMgrInit
|
||||||
bcs *
|
bcs *
|
||||||
inc $427
|
|
||||||
jsr EvtMgrInit
|
jsr EvtMgrInit
|
||||||
inc $427
|
|
||||||
jsr TskMgrInit
|
jsr TskMgrInit
|
||||||
bcs *
|
bcs *
|
||||||
inc $427
|
|
||||||
|
|
||||||
ldy #S.PS.hPREFIX
|
ldy #S.PS.hPREFIX
|
||||||
lda (pPs),y
|
lda (pPs),y
|
||||||
@ -146,7 +140,6 @@ Kernel.Init3 sta SETALTZP
|
|||||||
>PUSHBI 2
|
>PUSHBI 2
|
||||||
>LDYAI MSG.Prefix
|
>LDYAI MSG.Prefix
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
inc $427
|
|
||||||
|
|
||||||
lda KBD
|
lda KBD
|
||||||
bpl .1
|
bpl .1
|
||||||
|
@ -186,15 +186,11 @@ K.IO.OPEN.REG.E >LDYAI S.FD.REG
|
|||||||
IO.OPEN.CDEV sta .1+1 A=DEVID
|
IO.OPEN.CDEV sta .1+1 A=DEVID
|
||||||
pha
|
pha
|
||||||
jsr K.IOCTL.GetPDrv
|
jsr K.IOCTL.GetPDrv
|
||||||
lda #"C"
|
|
||||||
sta $425
|
|
||||||
|
|
||||||
ldx #IOCTL.OPEN
|
ldx #IOCTL.OPEN
|
||||||
pla pass A=DEVID To Driver
|
pla pass A=DEVID To Driver
|
||||||
jsr K.IOCTL.pDrvJmp
|
jsr K.IOCTL.pDrvJmp
|
||||||
inc $425
|
|
||||||
bcs .9
|
bcs .9
|
||||||
inc $425
|
|
||||||
|
|
||||||
.1 ldx #$ff SELF MODIFIED
|
.1 ldx #$ff SELF MODIFIED
|
||||||
lda Dev.Table.hFD,x
|
lda Dev.Table.hFD,x
|
||||||
|
@ -989,21 +989,16 @@ K.SScanF.Fwd tya Y=char count parsed
|
|||||||
* CC : A = hFILE
|
* CC : A = hFILE
|
||||||
* CS : A = EC
|
* CS : A = EC
|
||||||
*\--------------------------------------
|
*\--------------------------------------
|
||||||
K.FOpen pha
|
K.FOpen jsr PFT.CheckPathYA
|
||||||
lda #"O"
|
|
||||||
sta $426
|
|
||||||
pla
|
|
||||||
jsr PFT.CheckPathYA
|
|
||||||
inc $426
|
|
||||||
bcs .99
|
bcs .99
|
||||||
inc $426
|
|
||||||
>PULLB K.Open.FLAGS
|
>PULLB K.Open.FLAGS
|
||||||
>PULLB K.Open.TYPE
|
>PULLB K.Open.TYPE
|
||||||
>PULLW K.Open.AUXTYPE
|
>PULLW K.Open.AUXTYPE
|
||||||
|
|
||||||
jsr IO.Open.I
|
jsr IO.Open.I
|
||||||
bcs .9
|
bcs .9
|
||||||
inc $426
|
|
||||||
tax
|
tax
|
||||||
|
|
||||||
stx .1+1 save hFD
|
stx .1+1 save hFD
|
||||||
@ -1011,9 +1006,7 @@ K.FOpen pha
|
|||||||
>LDYAI K.Buf256
|
>LDYAI K.Buf256
|
||||||
|
|
||||||
jsr STDIO.NewHFileYAX
|
jsr STDIO.NewHFileYAX
|
||||||
inc $426
|
|
||||||
bcc .9
|
bcc .9
|
||||||
inc $426
|
|
||||||
|
|
||||||
pha save MLI error
|
pha save MLI error
|
||||||
.1 lda #$ff SELF MODIFIED
|
.1 lda #$ff SELF MODIFIED
|
||||||
|
Loading…
Reference in New Issue
Block a user