mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-13 21:29:33 +00:00
Kernel 0.93
This commit is contained in:
parent
b1b8e7c3f8
commit
e32d4679f6
Binary file not shown.
@ -37,12 +37,12 @@ BUF.InsertClipboard
|
|||||||
lda (pData),y
|
lda (pData),y
|
||||||
clc
|
clc
|
||||||
adc BufLen
|
adc BufLen
|
||||||
sta (pData),y
|
sta BufLen
|
||||||
|
|
||||||
iny
|
iny
|
||||||
lda (pData),y
|
lda (pData),y
|
||||||
adc BufLen+1
|
adc BufLen+1
|
||||||
sta (pData),y
|
sta BufLen+1
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
.9 rts
|
.9 rts
|
||||||
|
@ -27,7 +27,7 @@ CS.START cld
|
|||||||
.DA 0
|
.DA 0
|
||||||
.DA CS.END-CS.START CS
|
.DA CS.END-CS.START CS
|
||||||
.DA DS.END-DS.START DS
|
.DA DS.END-DS.START DS
|
||||||
.DA #16 SS
|
.DA #64 SS
|
||||||
.DA #ZS.END-ZS.START Zero Page Size
|
.DA #ZS.END-ZS.START Zero Page Size
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
@ -1,6 +1,5 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CL.Init >LDYAI 256
|
CL.Init >LDYAI 256
|
||||||
|
@ -358,7 +358,7 @@ CMD.ECHO stz ZPPtr1 echo -N
|
|||||||
bcs .2
|
bcs .2
|
||||||
|
|
||||||
cmp #'N'
|
cmp #'N'
|
||||||
bne .99
|
bne CMD.ECHO.CSYN
|
||||||
|
|
||||||
lda #$ff
|
lda #$ff
|
||||||
eor ZPPtr1
|
eor ZPPtr1
|
||||||
@ -387,17 +387,17 @@ CMD.ECHO stz ZPPtr1 echo -N
|
|||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>LDYA L.MSG.ECHOCRLF
|
>LDYA L.MSG.ECHOCRLF
|
||||||
>SYSCALL printf
|
>SYSCALL printf
|
||||||
rts
|
.9 rts
|
||||||
|
|
||||||
.8 clc
|
.8 clc
|
||||||
rts
|
rts
|
||||||
|
|
||||||
.99 lda #E.CSYN
|
CMD.ECHO.CSYN lda #E.CSYN
|
||||||
sec
|
sec
|
||||||
.9 rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.GETKEY lda (ZPArgVBufPtr)
|
CMD.GETKEY lda (ZPArgVBufPtr)
|
||||||
beq .99
|
beq CMD.ECHO.CSYN
|
||||||
|
|
||||||
ldy #S.PS.hStdIn
|
ldy #S.PS.hStdIn
|
||||||
lda (pPS),y
|
lda (pPS),y
|
||||||
@ -405,25 +405,45 @@ CMD.GETKEY lda (ZPArgVBufPtr)
|
|||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
tay
|
tay
|
||||||
bne .1
|
beq .1
|
||||||
|
|
||||||
|
.10 lda #'0'
|
||||||
|
>STA.G M32.BUF
|
||||||
|
iny
|
||||||
|
lda #0
|
||||||
|
sta (pData),y
|
||||||
|
bra .8
|
||||||
|
|
||||||
|
.1 >SYSCALL getchar
|
||||||
|
bcs .9
|
||||||
|
cmp #'['
|
||||||
|
bne .4
|
||||||
|
|
||||||
>SYSCALL getchar
|
>SYSCALL getchar
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
.1 >PUSHA
|
ldx #EscChars.Cnt-1
|
||||||
|
|
||||||
|
.2 cmp EscChars,x
|
||||||
|
beq .3
|
||||||
|
dex
|
||||||
|
bpl .2
|
||||||
|
bra .10
|
||||||
|
|
||||||
|
.3 lda EscChars.Remap,x
|
||||||
|
|
||||||
|
.4 >PUSHA
|
||||||
>PUSHBI 1
|
>PUSHBI 1
|
||||||
>PUSHW L.FMT.GETKEY
|
>PUSHW L.FMT.GETKEY
|
||||||
>LEA.G M32.BUF
|
>LEA.G M32.BUF
|
||||||
>SYSCALL sprintf
|
>SYSCALL sprintf
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>PUSHEA.G M32.BUF
|
.8 >PUSHEA.G M32.BUF
|
||||||
|
|
||||||
>LDYA ZPArgVBufPtr
|
>LDYA ZPArgVBufPtr
|
||||||
>SYSCALL SetEnv
|
>SYSCALL SetEnv
|
||||||
.9 rts
|
.9 rts
|
||||||
|
|
||||||
.99 jmp CMD.Exec.CSYN
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CMD.READ lda (ZPArgVBufPtr)
|
CMD.READ lda (ZPArgVBufPtr)
|
||||||
beq .9
|
beq .9
|
||||||
|
@ -1,6 +1,5 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EXP.GET jsr CORE.ArgV.Next
|
EXP.GET jsr CORE.ArgV.Next
|
||||||
|
@ -1,6 +1,5 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
HIS.Init >LDYAI HISTORY.MAX Get a buffer for History
|
HIS.Init >LDYAI HISTORY.MAX Get a buffer for History
|
||||||
|
@ -1,6 +1,5 @@
|
|||||||
NEW
|
NEW
|
||||||
PREFIX
|
AUTO 3,1
|
||||||
AUTO 4,1
|
|
||||||
.LIST OFF
|
.LIST OFF
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
IO.Reset jsr IO.Reset.In
|
IO.Reset jsr IO.Reset.In
|
||||||
|
@ -702,6 +702,7 @@ EXP.OP.LOGIC .AZ "AND"
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
EscChars .AS 'DBAC'
|
EscChars .AS 'DBAC'
|
||||||
EscChars.Cnt .EQ *-EscChars
|
EscChars.Cnt .EQ *-EscChars
|
||||||
|
EscChars.Remap .DA #C.BS,#C.VT,#C.LF,#C.FS
|
||||||
NOD.Template .AZ "/DEV/PIPE%h"
|
NOD.Template .AZ "/DEV/PIPE%h"
|
||||||
M32.Printf .AZ "%L"
|
M32.Printf .AZ "%L"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
@ -753,9 +754,11 @@ IO.hIn .BS 1
|
|||||||
IO.hOut .BS 1
|
IO.hOut .BS 1
|
||||||
IO.hErr .BS 1
|
IO.hErr .BS 1
|
||||||
IO.hPipe .BS 1
|
IO.hPipe .BS 1
|
||||||
|
|
||||||
|
*M32.BUF .BS 12 -1234567890\0
|
||||||
|
M32.BUF .EQ *
|
||||||
IO.NodBuf .BS 12 /DEV/PIPExx\0
|
IO.NodBuf .BS 12 /DEV/PIPExx\0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
M32.BUF .BS 12 -1234567890\0
|
|
||||||
DS.END .ED
|
DS.END .ED
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
|
@ -738,26 +738,22 @@ CS.QUIT jsr LeaveSubDir
|
|||||||
>SYSCALL fclose
|
>SYSCALL fclose
|
||||||
|
|
||||||
.1 ldy #hDstFullPath
|
.1 ldy #hDstFullPath
|
||||||
jsr CS.QUIT.FREE
|
jsr .7
|
||||||
|
|
||||||
ldy #hDstFilename
|
ldy #hDstFilename
|
||||||
jsr CS.QUIT.FREE
|
jsr .7
|
||||||
.FIN
|
.FIN
|
||||||
ldy #hSrcFullPath
|
ldy #hSrcFullPath
|
||||||
jsr CS.QUIT.FREE
|
jsr .7
|
||||||
|
|
||||||
ldy #hFilter
|
ldy #hFilter
|
||||||
jsr CS.QUIT.FREE
|
|
||||||
|
|
||||||
clc
|
.7 lda (pData),y
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
CS.QUIT.FREE lda (pData),y
|
|
||||||
beq .9
|
beq .9
|
||||||
>SYSCALL FreeMem
|
>SYSCALL FreeMem
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
MAN
|
MAN
|
||||||
SAVE USR/SRC/BIN/X.CPMVRM.S
|
SAVE USR/SRC/BIN/X.CPMVRM.S
|
||||||
LOAD USR/SRC/BIN/MV.S
|
LOAD USR/SRC/BIN/CP.S
|
||||||
ASM
|
ASM
|
||||||
|
@ -362,7 +362,7 @@ DRV.TERM.COUT.FS
|
|||||||
inc
|
inc
|
||||||
sta (ZPDCBPtr),y
|
sta (ZPDCBPtr),y
|
||||||
cmp #80
|
cmp #80
|
||||||
bne DRV.TERM.COUT.FS.8
|
bcc DRV.TERM.COUT.FS.8
|
||||||
|
|
||||||
ldy #S.DCB.TTY.bLINEWRAP
|
ldy #S.DCB.TTY.bLINEWRAP
|
||||||
lda (ZPDCBPtr),y
|
lda (ZPDCBPtr),y
|
||||||
@ -1113,25 +1113,17 @@ DRV.TERM.CURBLNK.1
|
|||||||
bne DRV.TERM.CURBLNK.OFF
|
bne DRV.TERM.CURBLNK.OFF
|
||||||
|
|
||||||
jsr GetCharAtCurPos
|
jsr GetCharAtCurPos
|
||||||
|
bcs DRV.TERM.CURBLNK.RTS Out of screen
|
||||||
|
|
||||||
and #$80
|
and #$80
|
||||||
eor #" "
|
eor #" "
|
||||||
bra DRV.TERM.CURBLNK.SET
|
bra DRV.TERM.CURBLNK.SET
|
||||||
|
|
||||||
DRV.TERM.CURBLNK.OFF
|
DRV.TERM.CURBLNK.OFF
|
||||||
jsr GetCharAtCurPos
|
jsr GetCharAtCurPos
|
||||||
|
bcs DRV.TERM.CURBLNK.RTS Out of screen
|
||||||
|
|
||||||
DRV.TERM.CURBLNK.SET
|
DRV.TERM.CURBLNK.SET
|
||||||
pha
|
|
||||||
ldy #S.DCB.TTY.CV
|
|
||||||
lda (ZPDCBPtr),y
|
|
||||||
tax
|
|
||||||
dey
|
|
||||||
lda (ZPDCBPtr),y
|
|
||||||
tay CH
|
|
||||||
|
|
||||||
jsr DRV.TERM.SETUP.L1X.SCR
|
|
||||||
|
|
||||||
pla
|
|
||||||
jsr SetCharAtY.SCR
|
jsr SetCharAtY.SCR
|
||||||
|
|
||||||
ldy #S.DCB.TTY.bCURON
|
ldy #S.DCB.TTY.bCURON
|
||||||
|
@ -239,12 +239,18 @@ SetCharAtYX.8 rts
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
GetCharAtCurPos ldy #S.DCB.TTY.CV
|
GetCharAtCurPos ldy #S.DCB.TTY.CV
|
||||||
lda (ZPDCBPtr),y
|
lda (ZPDCBPtr),y
|
||||||
|
cmp #24
|
||||||
|
bcs .9 Out of screen
|
||||||
|
|
||||||
tax
|
tax
|
||||||
|
|
||||||
jsr DRV.TERM.SETUP.L1X
|
jsr DRV.TERM.SETUP.L1X
|
||||||
|
|
||||||
ldy #S.DCB.TTY.CH
|
ldy #S.DCB.TTY.CH
|
||||||
lda (ZPDCBPtr),y
|
lda (ZPDCBPtr),y
|
||||||
|
cmp #80
|
||||||
|
bcs .9 Out of screen
|
||||||
|
|
||||||
tay
|
tay
|
||||||
|
|
||||||
sta SETREADAUX
|
sta SETREADAUX
|
||||||
@ -257,7 +263,9 @@ GetCharAtCurPos ldy #S.DCB.TTY.CV
|
|||||||
* clc
|
* clc
|
||||||
adc #40 remap $00-$1F uppercase
|
adc #40 remap $00-$1F uppercase
|
||||||
|
|
||||||
.8 rts
|
.8 clc
|
||||||
|
|
||||||
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
DRV.TERM.SETUP.L1X
|
DRV.TERM.SETUP.L1X
|
||||||
ldy #S.FD.DEV.BUFPTR
|
ldy #S.FD.DEV.BUFPTR
|
||||||
|
Loading…
Reference in New Issue
Block a user