mirror of
https://github.com/A2osX/A2osX.git
synced 2025-04-10 15:39:43 +00:00
Kernel 0.94.3b (kernel migration step b)
This commit is contained in:
burniouf
parent
e32db79ce3
commit
a417f7aba6
Binary file not shown.
@ -109,7 +109,7 @@ KW.FOR jsr CORE.GetNextCharNB
|
||||
KW.NEXT ldy pCCS
|
||||
bmi .98
|
||||
|
||||
lda (pdata),y
|
||||
lda (pData),y
|
||||
cmp #KWID.FOR
|
||||
bne .98
|
||||
|
||||
|
||||
@ -551,7 +551,7 @@ P.GetParms .BS $07
|
||||
P.GetStatus .BS $14
|
||||
P.FILogin .BS $19
|
||||
NameBuf .BS 36
|
||||
lookupBuf .BS 5+99
|
||||
LookupBuf .BS 5+99
|
||||
DS.END
|
||||
.ED
|
||||
*--------------------------------------
|
||||
|
||||
@ -165,7 +165,7 @@ CS.RUN.ListVols lda A2osX.ATLKSID
|
||||
bcs .9
|
||||
|
||||
>LDYA L.MSG.VOLLIST
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
|
||||
lda ZPReplyBuf
|
||||
clc
|
||||
|
||||
@ -33,8 +33,6 @@ bContinue .BS 1
|
||||
bRecurse .BS 1
|
||||
bPause .BS 1
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -407,7 +405,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -2,7 +2,7 @@ NEW
|
||||
AUTO 3,1
|
||||
*--------------------------------------
|
||||
CC.Link >LDYA L.MSG.LINKING
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
|
||||
ldy #0
|
||||
lda #1
|
||||
@ -257,7 +257,7 @@ CC.Link.CheckMain
|
||||
rts
|
||||
|
||||
.9 >LDYA L.MSG.NOMAIN
|
||||
>SYSCALL puts
|
||||
>SYSCALL putS
|
||||
lda #E.CSYN
|
||||
sec
|
||||
.99 rts
|
||||
|
||||
@ -38,8 +38,6 @@ bPause .BS 1
|
||||
bContinue .BS 1
|
||||
bRecurse .BS 1
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -284,7 +282,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -24,8 +24,6 @@ ZPFileName .BS 2
|
||||
ZPFileStat .BS 2
|
||||
ZPFullPath .BS 2
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -277,7 +275,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -27,8 +27,6 @@ ZPMode .BS 2
|
||||
ArgIndex .BS 1
|
||||
StrMode .BS 1
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -317,7 +315,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -24,8 +24,6 @@ ZPFileName .BS 2
|
||||
ZPFileStat .BS 2
|
||||
ZPFullPath .BS 2
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -276,7 +274,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -37,8 +37,6 @@ bPause .BS 1
|
||||
bContinue .BS 1
|
||||
bRecurse .BS 1
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -280,7 +278,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -36,10 +36,7 @@ bAllFiles .BS 1
|
||||
ArgCount .BS 1
|
||||
ArgDir .BS 1
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END
|
||||
.ED
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
*--------------------------------------
|
||||
@ -439,7 +436,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .8
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -14,7 +14,7 @@ NEW
|
||||
.DUMMY
|
||||
.OR ZPBIN
|
||||
ZS.START
|
||||
ZPPTR1 .BS 2
|
||||
ZPPtr1 .BS 2
|
||||
ZPInputBufPtr .BS 2
|
||||
ZPInputTblPtr .BS 2
|
||||
ZPInputBMPtr .BS 2
|
||||
@ -75,7 +75,7 @@ CS.INIT
|
||||
bne .2
|
||||
|
||||
.99 >LDYA L.MSG.USAGE
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
lda #E.SYN
|
||||
sec
|
||||
rts
|
||||
@ -365,10 +365,10 @@ CS.RUN.GetChar lda (ZPInputTblPtr) Get Char PixW
|
||||
.2 pha
|
||||
clc
|
||||
adc ZPCharBufPtr
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
lda #0
|
||||
adc ZPCharBufPtr+1
|
||||
sta ZPPTR1+1
|
||||
sta ZPPtr1+1
|
||||
>LDA.G FON.Header+S.FON.PixH
|
||||
tax
|
||||
|
||||
@ -381,14 +381,14 @@ CS.RUN.GetChar lda (ZPInputTblPtr) Get Char PixW
|
||||
|
||||
.4 tay
|
||||
lda TWIST,y
|
||||
sta (ZPPTR1)
|
||||
lda ZPPTR1
|
||||
sta (ZPPtr1)
|
||||
lda ZPPtr1
|
||||
clc
|
||||
>ADC.G CharByteW
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
bcc .5
|
||||
|
||||
inc ZPPTR1+1
|
||||
inc ZPPtr1+1
|
||||
|
||||
.5 dex
|
||||
bne .3
|
||||
@ -411,9 +411,9 @@ CS.RUN.DumpChar >PUSHW L.MSG.DUMP
|
||||
>SYSCALL PrintF
|
||||
|
||||
lda ZPCharBufPtr
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
lda ZPCharBufPtr+1
|
||||
sta ZPPTR1+1
|
||||
sta ZPPtr1+1
|
||||
|
||||
>LDA.G FON.Header+S.FON.PixH
|
||||
|
||||
@ -425,7 +425,7 @@ CS.RUN.DumpChar >PUSHW L.MSG.DUMP
|
||||
|
||||
ldy #0
|
||||
|
||||
.2 lda (ZPPTR1),y
|
||||
.2 lda (ZPPtr1),y
|
||||
phy
|
||||
ldx #8
|
||||
|
||||
@ -459,13 +459,13 @@ CS.RUN.DumpChar >PUSHW L.MSG.DUMP
|
||||
>SYSCALL PutChar
|
||||
lda #10
|
||||
>SYSCALL PutChar
|
||||
lda ZPPTR1
|
||||
lda ZPPtr1
|
||||
clc
|
||||
>ADC.G CharByteW
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
bcc .7
|
||||
|
||||
inc ZPPTR1+1
|
||||
inc ZPPtr1+1
|
||||
|
||||
.7 pla
|
||||
dec
|
||||
@ -478,9 +478,9 @@ CS.RUN.ShiftLChar
|
||||
bmi .9
|
||||
|
||||
.1 lda ZPCharBufPtr
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
lda ZPCharBufPtr+1
|
||||
sta ZPPTR1+1
|
||||
sta ZPPtr1+1
|
||||
>LDA.G FON.Header+S.FON.PixH
|
||||
tax
|
||||
|
||||
@ -488,15 +488,15 @@ CS.RUN.ShiftLChar
|
||||
pha
|
||||
|
||||
.2 pla
|
||||
ora (ZPPTR1)
|
||||
ora (ZPPtr1)
|
||||
pha
|
||||
lda ZPPTR1
|
||||
lda ZPPtr1
|
||||
clc
|
||||
>ADC.G CharByteW
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
bcc .3
|
||||
|
||||
inc ZPPTR1+1
|
||||
inc ZPPtr1+1
|
||||
|
||||
.3 dex
|
||||
bne .2
|
||||
@ -508,9 +508,9 @@ CS.RUN.ShiftLChar
|
||||
bcs .9
|
||||
|
||||
lda ZPCharBufPtr
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
lda ZPCharBufPtr+1
|
||||
sta ZPPTR1+1
|
||||
sta ZPPtr1+1
|
||||
>LDA.G FON.Header+S.FON.PixH
|
||||
tax
|
||||
|
||||
@ -519,19 +519,19 @@ CS.RUN.ShiftLChar
|
||||
clc
|
||||
|
||||
.5 dey
|
||||
lda (ZPPTR1),y
|
||||
lda (ZPPtr1),y
|
||||
ror
|
||||
sta (ZPPTR1),y
|
||||
sta (ZPPtr1),y
|
||||
tya
|
||||
bne .5
|
||||
|
||||
lda ZPPTR1
|
||||
lda ZPPtr1
|
||||
clc
|
||||
>ADC.G CharByteW
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
bcc .6
|
||||
|
||||
inc ZPPTR1+1
|
||||
inc ZPPtr1+1
|
||||
|
||||
.6 dex
|
||||
bne .4
|
||||
@ -549,9 +549,9 @@ CS.RUN.CutRChar >LDA.G bNoShrink
|
||||
bmi .9
|
||||
|
||||
.1 lda ZPCharBufPtr
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
lda ZPCharBufPtr+1
|
||||
sta ZPPTR1+1
|
||||
sta ZPPtr1+1
|
||||
>LDA.G FON.Header+S.FON.PixH
|
||||
tax
|
||||
|
||||
@ -562,16 +562,16 @@ CS.RUN.CutRChar >LDA.G bNoShrink
|
||||
pha
|
||||
|
||||
.2 pla
|
||||
ora (ZPPTR1),y
|
||||
ora (ZPPtr1),y
|
||||
pha
|
||||
phy
|
||||
lda ZPPTR1
|
||||
lda ZPPtr1
|
||||
clc
|
||||
>ADC.G CharByteW
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
bcc .3
|
||||
|
||||
inc ZPPTR1+1
|
||||
inc ZPPtr1+1
|
||||
|
||||
.3 ply
|
||||
dex
|
||||
@ -645,16 +645,16 @@ CS.RUN.StoreChar
|
||||
bcs .99
|
||||
|
||||
lda ZPCharBufPtr
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
lda ZPCharBufPtr+1
|
||||
sta ZPPTR1+1
|
||||
sta ZPPtr1+1
|
||||
>LDA.G FON.Header+S.FON.PixH
|
||||
pha
|
||||
|
||||
.2 >LDA.G CharOutByteW
|
||||
tax
|
||||
ldy #0
|
||||
.3 lda (ZPPTR1),y
|
||||
.3 lda (ZPPtr1),y
|
||||
jsr CS.RUN.WriteByte
|
||||
bcs .9
|
||||
|
||||
@ -667,13 +667,13 @@ CS.RUN.StoreChar
|
||||
beq .8
|
||||
|
||||
pha
|
||||
lda ZPPTR1
|
||||
lda ZPPtr1
|
||||
clc
|
||||
>ADC.G CharByteW
|
||||
sta ZPPTR1
|
||||
sta ZPPtr1
|
||||
bcc .2
|
||||
|
||||
inc ZPPTR1+1
|
||||
inc ZPPtr1+1
|
||||
bra .2
|
||||
|
||||
.8 clc
|
||||
|
||||
@ -213,7 +213,7 @@ CS.RUN.Format jsr CS.RUN.GetDevDIB
|
||||
CS.RUN.CheckOpt ldy #1
|
||||
lda (ZPPtr1),y
|
||||
|
||||
ldx #OptionList.Cnt-1
|
||||
ldx #OptionList.L-1
|
||||
|
||||
.2 cmp OptionList,x
|
||||
beq .3
|
||||
@ -914,7 +914,7 @@ MSG.WRITECAT .CZ "Writing Catalog..."
|
||||
FMT.BLANK .CZ "BLANK%H%H"
|
||||
*--------------------------------------
|
||||
OptionList .AS "AaBbDdLlSsTtVv"
|
||||
OptionList.cnt .EQ *-OptionList
|
||||
OptionList.L .EQ *-OptionList
|
||||
*--------------------------------------
|
||||
Disk2.Default .DA 280 BlkCnt
|
||||
.DA #35 TrkCnt
|
||||
|
||||
@ -830,7 +830,7 @@ KW.TYPE >PULLW ZPPtr1 n
|
||||
lda (pPS),y
|
||||
>PUSHA
|
||||
>PUSHW ZPAddrPtr
|
||||
>SYSCALL fputs
|
||||
>SYSCALL FPutS
|
||||
|
||||
clc
|
||||
rts
|
||||
|
||||
@ -281,7 +281,7 @@ CS.QUIT lda hFont
|
||||
.7 lda hDevGFX
|
||||
beq .8
|
||||
|
||||
>SYSCALL close
|
||||
>SYSCALL Close
|
||||
|
||||
.8 clc
|
||||
rts
|
||||
|
||||
@ -66,7 +66,7 @@ CS.INIT >LDYA L.LIBCRYPT
|
||||
CS.RUN ldy #S.PS.ARGC
|
||||
lda (pPS),y
|
||||
beq .99
|
||||
.0 lda #0
|
||||
.10 lda #0
|
||||
pha
|
||||
|
||||
.1 inc ArgIndex
|
||||
@ -108,7 +108,7 @@ CS.RUN ldy #S.PS.ARGC
|
||||
|
||||
.4 lda ArgIndex
|
||||
sta aOptD,x
|
||||
bra .0
|
||||
bra .10
|
||||
|
||||
.8 lda bGotKey
|
||||
beq .99
|
||||
|
||||
16
BIN/LC.S.txt
16
BIN/LC.S.txt
@ -89,7 +89,7 @@ CS.RUN inc ArgIndex
|
||||
bne .9
|
||||
|
||||
>LDYA ZPPtr1
|
||||
jsr InitSrcDirYA
|
||||
jsr X.InitSrcDirYA
|
||||
bcc CS.RUN
|
||||
.99 rts
|
||||
*--------------------------------------
|
||||
@ -131,7 +131,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
|
||||
.1 lda bPause
|
||||
bne CS.RUN.LOOP Pause...
|
||||
*--------------------------------------
|
||||
jsr GetEntry
|
||||
jsr X.GetEntry
|
||||
bcs CS.RUN.LEAVE
|
||||
|
||||
ldy #S.STAT.MODE+1
|
||||
@ -157,13 +157,13 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
|
||||
sec
|
||||
.99 rts
|
||||
*--------------------------------------
|
||||
CS.RUN.NEXT jsr GetNextEntry
|
||||
CS.RUN.NEXT jsr X.GetNextEntry
|
||||
bcc CS.RUN.LOOP
|
||||
|
||||
CS.RUN.LEAVE jsr LeaveSubDir
|
||||
CS.RUN.LEAVE jsr X.LeaveSubDir
|
||||
bcs .90
|
||||
|
||||
jsr BasePath..
|
||||
jsr X.BasePath..
|
||||
|
||||
jmp CS.RUN.NEXT
|
||||
|
||||
@ -209,7 +209,7 @@ CS.RUN.DIR lda (ZPFileName)
|
||||
bpl .8
|
||||
|
||||
>LDYA ZPFileName is now lowercase
|
||||
jmp EnterSubDirYA
|
||||
jmp X.EnterSubDirYA
|
||||
|
||||
.8 clc
|
||||
.9 rts
|
||||
@ -283,10 +283,10 @@ CS.RUN.GetNewPath
|
||||
CS.DOEVENT sec
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.QUIT jsr LeaveSubDir
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
jsr .7
|
||||
|
||||
lda hSrcFullPath
|
||||
|
||||
11
BIN/LS.S.txt
11
BIN/LS.S.txt
@ -49,8 +49,6 @@ bToFile .BS 1
|
||||
ZPLineBuf .BS 2
|
||||
ZPLineBufPtr .BS 2
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -792,12 +790,12 @@ CS.RUN.LineBufFlush1
|
||||
*--------------------------------------
|
||||
CS.RUN.LineBufOut
|
||||
lda #C.CR
|
||||
jsr CS.RUN.LineBufCOUT
|
||||
jsr CS.RUN.LineBufCOut
|
||||
bit bToFile
|
||||
bmi .1
|
||||
|
||||
lda #C.LF
|
||||
jsr CS.RUN.LineBufCOUT
|
||||
jsr CS.RUN.LineBufCOut
|
||||
|
||||
.1 lda #0
|
||||
sta (ZPLineBufPtr)
|
||||
@ -811,7 +809,7 @@ CS.RUN.LineBufOut
|
||||
|
||||
>PUSHYA
|
||||
|
||||
>SYSCALL fputs
|
||||
>SYSCALL FPutS
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.SrcPathOut
|
||||
@ -870,8 +868,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
ldy #hFilter
|
||||
lda (pData),y
|
||||
>LDA.G hInclude
|
||||
jsr .7
|
||||
|
||||
lda hPWBuf
|
||||
|
||||
@ -166,7 +166,7 @@ CS.QUIT lda hLineBuf
|
||||
|
||||
.7 beq .8
|
||||
|
||||
>SYSCALL Freemem
|
||||
>SYSCALL FreeMem
|
||||
|
||||
.8 rts
|
||||
*--------------------------------------
|
||||
|
||||
@ -97,7 +97,7 @@ CS.RUN >INC.G ArgIndex
|
||||
bcs .9
|
||||
|
||||
txa
|
||||
>STA.G hExclude
|
||||
>STA.G hIgnore
|
||||
bra CS.RUN
|
||||
|
||||
.9 >LDYA L.MSG.USAGE
|
||||
@ -591,7 +591,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
ldy #hExclude
|
||||
ldy #hIgnore
|
||||
jsr .7
|
||||
|
||||
ldy #hInclude
|
||||
|
||||
@ -87,7 +87,7 @@ CS.RUN lda #1
|
||||
rts
|
||||
|
||||
.10 >LDYA L.MSG0
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
ldx Index
|
||||
|
||||
.1 lda PS.Table.hPS,x
|
||||
@ -213,7 +213,7 @@ CS.RUN.PrintArgs
|
||||
bra .1
|
||||
|
||||
.8 >LDYA L.MSG3
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
CS.DOEVENT sec
|
||||
|
||||
@ -9,6 +9,7 @@ NEW
|
||||
.INB inc/a2osx.i
|
||||
.INB inc/eth.i
|
||||
.INB inc/libtcpip.i
|
||||
.INB inc/net.tcpip.i
|
||||
*--------------------------------------
|
||||
TIMEOUT.MAX .EQ 40 40*100ms = 4 sec.
|
||||
*--------------------------------------
|
||||
|
||||
@ -88,7 +88,7 @@ CS.RUN lda #$C1
|
||||
>PUSHA
|
||||
|
||||
>PUSHBI 2
|
||||
>SYSCALL Printf
|
||||
>SYSCALL PrintF
|
||||
bcs .9
|
||||
|
||||
ldy #$ff
|
||||
|
||||
@ -176,7 +176,7 @@ CS.RUN.OPENSKT >PUSHBI S.SOCKET.T.STREAM
|
||||
bra .9
|
||||
|
||||
.4 >LDYA L.MSG.SKTOK
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
|
||||
>LDYAI BUFSIZE
|
||||
>SYSCALL GetMem
|
||||
|
||||
@ -35,8 +35,6 @@ bPause .BS 1
|
||||
bContinue .BS 1
|
||||
bRecurse .BS 1
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -291,7 +289,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
jsr .7
|
||||
|
||||
lda hSrcFullPath
|
||||
|
||||
@ -464,7 +464,7 @@ MSG.FILE .CZ "Extracting File:%s..."
|
||||
MSG.OK .CZ "[OK]"
|
||||
MSG.E.IARC .CZ "\r\nInvalid/corrupt archive"
|
||||
MSG.PAK .CS "PAK"
|
||||
MSG.SPINNER .CS "|/-\"
|
||||
MSG.SPINNER .AS "|/-\"
|
||||
*--------------------------------------
|
||||
.DUMMY
|
||||
.OR 0
|
||||
|
||||
@ -87,7 +87,7 @@ CS.RUN >LDYAI 256
|
||||
rts
|
||||
|
||||
.9 >LDYA L.MSG.INV
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
lda #E.IUSR
|
||||
sec
|
||||
rts
|
||||
|
||||
@ -44,8 +44,6 @@ bWord .BS 1
|
||||
bInWord .BS 1
|
||||
bTotal .BS 1
|
||||
|
||||
hFilter .BS 1
|
||||
|
||||
ZS.END .ED
|
||||
*--------------------------------------
|
||||
* File Header (16 Bytes)
|
||||
@ -571,7 +569,7 @@ CS.DOEVENT sec
|
||||
CS.QUIT jsr X.LeaveSubDir
|
||||
bcc CS.QUIT
|
||||
|
||||
>LDA.G hFilter
|
||||
>LDA.G hInclude
|
||||
beq .1
|
||||
|
||||
>SYSCALL FreeMem
|
||||
|
||||
@ -291,7 +291,7 @@ DIB .DA #S.DIB.S.WRITE+S.DIB.S.READ
|
||||
.PS "Grappler+ // Crd"
|
||||
.DA #S.DIB.T.CHAR
|
||||
.DA #0
|
||||
.DA 00
|
||||
.BS 2 Version
|
||||
*--------------------------------------
|
||||
DCB .DA #S.DCB.T.COM
|
||||
.DA #0 FLAGS
|
||||
|
||||
@ -117,10 +117,10 @@ SP.ScanSlots lda #$C1
|
||||
beq .7
|
||||
|
||||
sta DevCnt
|
||||
stz DevId
|
||||
stz DevID
|
||||
|
||||
.3 inc DevId
|
||||
ldx DevId
|
||||
.3 inc DevID
|
||||
ldx DevID
|
||||
lda #S.IOCTL.S.GETDIB
|
||||
jsr SP.Call
|
||||
bcs .6
|
||||
|
||||
@ -27,48 +27,48 @@ A2osX.ZCALL .EQ $0000
|
||||
* A2osX GLOBAL PAGE
|
||||
* $BC00->$BC0F : Public Vectors
|
||||
*--------------------------------------
|
||||
A2osX.SYSCALL .EQ $BC00
|
||||
A2osX.LIBCALL .EQ $BC03
|
||||
A2osX.ATKCALL .EQ $BC06
|
||||
A2osX.FPUCALL .EQ $BC09
|
||||
A2osX.BADCALL .EQ $BC0C
|
||||
A2osX.SYSCALL .EQ $1000
|
||||
A2osX.LIBCALL .EQ $1003
|
||||
A2osX.ATKCALL .EQ $1006
|
||||
A2osX.FPUCALL .EQ $1009
|
||||
A2osX.BADCALL .EQ $100C
|
||||
*--------------------------------------
|
||||
A2osX.SLEEP .EQ $BC10
|
||||
A2osX.SLEEP .EQ $1010
|
||||
*--------------------------------------
|
||||
* $BED0->$BEEF : Public Variables
|
||||
*--------------------------------------
|
||||
A2osX.SCRNDEVS .EQ $BED0 0=console, 1-8=VT100, 9=GFX
|
||||
A2osX.ASCREEN .EQ $BEDA Active Screen
|
||||
* free BEDB -> BEDF
|
||||
A2osX.KVER .EQ $BEE0
|
||||
A2osX.IRQMode .EQ $BEE3
|
||||
A2osX.ATLKSID .EQ $BEE4
|
||||
A2osX.FSID .EQ $BEE5
|
||||
A2osX.CPUTYPE .EQ $BEE6
|
||||
A2osX.CPUSPEED .EQ $BEE7 WORD, (->255.99 Mhz)
|
||||
A2osX.SCRNDEVS .EQ $11D0 0=console, 1-8=VT100, 9=GFX
|
||||
A2osX.ASCREEN .EQ $11DA Active Screen
|
||||
|
||||
A2osX.Z80SLOT .EQ $BEE9
|
||||
A2osX.HWType .EQ $BEEA
|
||||
A2osX.KVER .EQ $11E0
|
||||
A2osX.IRQMode .EQ $11E3
|
||||
A2osX.ATLKSID .EQ $11E4
|
||||
A2osX.FSID .EQ $11E5
|
||||
A2osX.CPUTYPE .EQ $11E6
|
||||
A2osX.CPUSPEED .EQ $11E7 WORD, (->255.99 Mhz)
|
||||
|
||||
A2osX.Z80SLOT .EQ $11E9
|
||||
A2osX.HWType .EQ $11EA
|
||||
A2osX.HWType.UNKNOWN .EQ 0
|
||||
A2osX.HWType.IIe .EQ 1
|
||||
A2osX.HWType.IIc .EQ 2
|
||||
A2osX.HWType.IIgs .EQ 3
|
||||
A2osX.HWSubT .EQ $BEEB
|
||||
A2osX.HWSubT .EQ $11EB
|
||||
A2osX.HWSubT.Enh .EQ 1
|
||||
A2osX.HWSubT.LCCard .EQ 2
|
||||
|
||||
A2osX.TIMER16 .EQ $BEEC WORD
|
||||
A2osX.RANDOM16 .EQ $BEEE WORD
|
||||
A2osX.TIMER16 .EQ $11EC WORD
|
||||
A2osX.RANDOM16 .EQ $11EE WORD
|
||||
*--------------------------------------
|
||||
* $BEF0->$BEFF : Kernel Config Block
|
||||
*--------------------------------------
|
||||
A2osX.KCONFIG .EQ $BEF0
|
||||
A2osX.HZ .EQ $BEF0 5/6 for 50/60Hz
|
||||
A2osX.TTYDEVS .EQ $BEF1
|
||||
A2osX.F .EQ $BEF8
|
||||
A2osX.KCONFIG .EQ $11F0
|
||||
A2osX.HZ .EQ $11F0 5/6 for 50/60Hz
|
||||
A2osX.TTYDEVS .EQ $11F1
|
||||
A2osX.F .EQ $11F8
|
||||
A2osX.F.CHROOT .EQ %10000000 ChRooting to /RAMx
|
||||
A2osX.F.PMODE .EQ %01000000 Pre-emptive Mode
|
||||
A2osX.S .EQ $BEF8 $BEF9->$BEFF, 7 slots
|
||||
A2osX.S .EQ $11F8 $BEF9->$BEFF, 7 slots
|
||||
A2osX.S.Z80 .EQ $80
|
||||
A2osX.S.VXD .EQ $81
|
||||
A2osX.S.ATK .EQ $82
|
||||
|
||||
@ -35,7 +35,7 @@ CONT.New jsr OBJ.Create A = Class
|
||||
*--------------------------------------
|
||||
CONT.Insert >SYSCALL2 GetMemPtr A = hParent
|
||||
>STYA ZPPtr2
|
||||
|
||||
|
||||
ldy #S.OBJ.Childs
|
||||
|
||||
.1 lda (ZPPtr2),y
|
||||
@ -48,26 +48,26 @@ CONT.Insert >SYSCALL2 GetMemPtr A = hParent
|
||||
lda #E.OOH
|
||||
* sec
|
||||
rts
|
||||
|
||||
.2 lda hObj
|
||||
|
||||
.2 lda hObj
|
||||
sta (ZPPtr2),y
|
||||
|
||||
|
||||
ldy #S.OBJ.S
|
||||
lda (ZPPtr2),y
|
||||
ora #S.OBJ.S.bHasChilds
|
||||
sta (ZPPtr2),y
|
||||
|
||||
sta (ZPPtr2),y
|
||||
|
||||
ldy #S.OBJ.InnerX
|
||||
lda (ZPPtr2),y
|
||||
|
||||
|
||||
ldy #S.OBJ.X1
|
||||
clc
|
||||
adc (ZPObjPtr),y
|
||||
sta (ZPObjPtr),y
|
||||
|
||||
|
||||
ldy #S.OBJ.InnerY
|
||||
lda (ZPPtr2),y
|
||||
|
||||
|
||||
ldy #S.OBJ.Y1
|
||||
clc
|
||||
adc (ZPObjPtr),y
|
||||
|
||||
@ -277,7 +277,7 @@ IO.fputs ldx ZPCtxPtr
|
||||
lda (pPS),y
|
||||
ldy #2
|
||||
sta (pStack),y
|
||||
>SYSCALL fputs
|
||||
>SYSCALL FPutS
|
||||
|
||||
plx
|
||||
stx ZPObjPtr+1
|
||||
|
||||
@ -65,7 +65,7 @@ CS.RUN .DO INITDDBG=1
|
||||
>LDYA L.MSG.START
|
||||
>SYSCALL PutS
|
||||
.FIN
|
||||
|
||||
|
||||
ldy #S.PS.PID
|
||||
lda (pPS),y
|
||||
cmp #1
|
||||
|
||||
@ -119,7 +119,7 @@ CS.RUN.AUTH lda #3
|
||||
bcs .9
|
||||
|
||||
>LDYA L.MSG.CRLF
|
||||
>SYSCALL Puts
|
||||
>SYSCALL PutS
|
||||
bcs .9
|
||||
|
||||
>PUSHW pData >PUSHEA.G Password
|
||||
@ -282,7 +282,7 @@ CS.RUN.GetLine >STYA ZPGetLinePtr
|
||||
*--------------------------------------
|
||||
CS.RUN.printf >PUSHYA
|
||||
>PUSHBI 0
|
||||
>SYSCALL printf
|
||||
>SYSCALL PrintF
|
||||
rts
|
||||
*--------------------------------------
|
||||
CS.RUN.DumpFile >PUSHYA
|
||||
|
||||
@ -631,7 +631,7 @@ CS.RUN.CheckOpt jsr CS.RUN.NextOpt
|
||||
lda (ZPPtr1),y
|
||||
bne .98
|
||||
|
||||
>LDA.G hExclude
|
||||
>LDA.G hIgnore
|
||||
bne .98
|
||||
|
||||
jsr CS.RUN.NextOpt
|
||||
@ -641,7 +641,7 @@ CS.RUN.CheckOpt jsr CS.RUN.NextOpt
|
||||
bcs .99
|
||||
|
||||
txa
|
||||
>STA.G hExclude
|
||||
>STA.G hIgnore
|
||||
bra CS.RUN.CheckOpt
|
||||
*--------------------------------------
|
||||
.5 >LDA.G index
|
||||
@ -710,7 +710,7 @@ CS.QUIT jsr X.LeaveSubDir
|
||||
ldy #hInclude
|
||||
jsr .7
|
||||
|
||||
ldy #hExclude
|
||||
ldy #hIgnore
|
||||
|
||||
.7 lda (pData),y
|
||||
.8 beq .9
|
||||
|
||||
@ -8,7 +8,7 @@ oDIRENTs .BS X.MAX.RECURSE*2
|
||||
STATBUF .BS S.STAT
|
||||
|
||||
hInclude .BS 1
|
||||
hExclude .BS 1
|
||||
hIgnore .BS 1
|
||||
|
||||
hSrcBasePath .BS 1
|
||||
.DO X.COPY.TO.DEST=1
|
||||
|
||||
@ -19,7 +19,7 @@ X.MAX.RECURSE .EQ 8
|
||||
* hSrcBasePath .BS 1
|
||||
* hDstBasePath .BS 1 (optional)
|
||||
* hInclude .BS 1
|
||||
* hExclude .BS 1
|
||||
* hIgnore .BS 1
|
||||
*--------------------------------------
|
||||
* Compare a ZPFileName against hInclude (e.g. '*test?.*')
|
||||
* CC : match
|
||||
@ -36,7 +36,7 @@ X.IgnoreMatch sec
|
||||
ldy #hInclude
|
||||
bcc .11
|
||||
|
||||
iny
|
||||
iny hIgnore
|
||||
|
||||
.11 lda (pData),y
|
||||
beq X.FilterMatch.RTS No filter....exit with passed carry
|
||||
|
||||
@ -9,7 +9,6 @@ C1 .EQ Mem.MHiMem
|
||||
C2 .EQ Mem.XLoMem
|
||||
C3 .EQ Mem.XHiMem
|
||||
*--------------------------------------
|
||||
C4 .EQ GP.CE-GP.CS
|
||||
C5 .EQ AUX.S
|
||||
*--------------------------------------
|
||||
C6 .EQ D1.S
|
||||
@ -25,11 +24,6 @@ C8 .EQ E0.S
|
||||
.DO Mem.XLoMem>$2000
|
||||
.LIST ON
|
||||
* ERROR:AUX too big
|
||||
.LIST OFF
|
||||
.FIN
|
||||
.DO C4>$1D0
|
||||
.LIST ON
|
||||
* ERROR:GP too big
|
||||
.LIST OFF
|
||||
.FIN
|
||||
.DO D1.S>$1000
|
||||
|
||||
@ -145,8 +145,6 @@ Mem.LastSlot .EQ $0806
|
||||
*--------------------------------------
|
||||
* free $1000->$1FFF = $1000 (4096) Aux
|
||||
*--------------------------------------
|
||||
A2osX.Main .EQ $1200
|
||||
*--------------------------------------
|
||||
K.S.STAT .EQ $1C00 S.STAT for internal kernel operations
|
||||
K.S.EVT .EQ $1C40 K.EVT.MAX*S.EVT=4*8=32b
|
||||
K.S.IOCTL .EQ $1C60 9 bytes
|
||||
@ -161,7 +159,7 @@ K.Buf256 .EQ $1E00 512 bytes....
|
||||
K.IOBuf .EQ $1F00 ....for ReadDir
|
||||
*--------------------------------------
|
||||
Mem.MLoMem .EQ $2000
|
||||
Mem.MHiMem .EQ A2osX.SYSCALL
|
||||
Mem.MHiMem .EQ $BF00
|
||||
Mem.XLoMem .EQ $1000
|
||||
Mem.XHiMem .EQ $A000
|
||||
DevMgr.HiMem .EQ $FFFA Protect IRQ vectors in Aux LC
|
||||
|
||||
@ -7,7 +7,7 @@ NEW
|
||||
* X = SYSfnc.Index
|
||||
* Y,A = free for Inline param
|
||||
*--------------------------------------
|
||||
GP.CS jmp GP.SysCall
|
||||
jmp GP.SysCall
|
||||
*--------------------------------------
|
||||
* LIBCALL (AUXLC to AUXLC)
|
||||
* Used by user
|
||||
@ -436,13 +436,11 @@ GP.IRQ.Exit stz IRQ.Skip reset flag
|
||||
*--------------------------------------
|
||||
*BrkHandler bra *
|
||||
*--------------------------------------
|
||||
GP.CE .BS $BED0-*
|
||||
*--------------------------------------
|
||||
* $BED0->$BEEF : Public Variables
|
||||
* $BED0->$BEEF : Public Variables
|
||||
*--------------------------------------
|
||||
.BS 32
|
||||
*--------------------------------------
|
||||
* $BEF0->$BEFF : Kernel Config Block
|
||||
* $BEF0->$BEFF : Kernel Config Block
|
||||
*--------------------------------------
|
||||
.DA #6 A2osX.HZ=60hz
|
||||
.DA #2 A2osX.TTYDEVS=2
|
||||
|
||||
@ -22,7 +22,7 @@ Kernel.Init2 sei
|
||||
|
||||
>LDYA PAKME.MAIN
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI A2osX.Main
|
||||
>LDYAI $1000
|
||||
jsr A2osX.Unpak
|
||||
|
||||
>LDYA PAKME.AUX
|
||||
@ -66,11 +66,6 @@ Kernel.Init2 sei
|
||||
|
||||
.4 sta CLRWRITEAUX
|
||||
|
||||
>LDYA PAKME.GP
|
||||
>STYA ZPInBufPtr
|
||||
>LDYAI A2osX.SYSCALL
|
||||
jsr A2osX.Unpak
|
||||
|
||||
sta SETALTZP
|
||||
|
||||
lda RRAMWRAMBNK2
|
||||
@ -639,7 +634,9 @@ DetectZ80 ldx #Z80.300.L
|
||||
|
||||
ldx #Z80.1000.L
|
||||
|
||||
.2 lda Z80.1000-1,x
|
||||
.2 lda $1000-1,x
|
||||
sta Z80.SAVE-1,x
|
||||
lda Z80.1000-1,x
|
||||
sta $1000-1,x 00000H for Z80
|
||||
dex
|
||||
bne .2
|
||||
@ -666,24 +663,21 @@ DetectZ80 ldx #Z80.300.L
|
||||
.8 lda ZPPtr1+1
|
||||
and #$0F
|
||||
clc
|
||||
.9 rts
|
||||
*--------------------------------------
|
||||
* Z80 Reserved
|
||||
*--------------------------------------
|
||||
*Z80CODE .EQ $300 0F300h
|
||||
*Z80STACK .EQ $3CF 0F3CFh
|
||||
*--------------------------------------
|
||||
Z80.300 .HS 3200E1 LD (0E100H),A Back to 6502
|
||||
|
||||
.9 php
|
||||
pha
|
||||
|
||||
ldx #Z80.1000.L
|
||||
|
||||
Z80.300.L .EQ *-Z80.300
|
||||
*--------------------------------------
|
||||
Z80.1000 .HS 31CFF3 START: LD SP,0F3CFh Init Stack
|
||||
.HS 3EFF LD A,0FFH Set Flag
|
||||
.HS 320B00 LD (FLAG),A
|
||||
.HS C300F3 JP 0F300h
|
||||
.HS 00 FLAG: .DB 0
|
||||
Z80.1000.L .EQ *-Z80.1000
|
||||
.90 lda Z80.SAVE-1,x
|
||||
sta $1000-1,x
|
||||
dex
|
||||
bne .90
|
||||
|
||||
|
||||
pla
|
||||
plp
|
||||
rts
|
||||
*--------------------------------------
|
||||
DevMgrInit >LDYAI MSG.DEV
|
||||
>SYSCALL2 puts
|
||||
@ -1438,6 +1432,25 @@ FD.BDEV .DA #S.FD.T.BDEV
|
||||
*--------------------------------------
|
||||
FD.BDEV.NAME .AZ "s1d1"
|
||||
*--------------------------------------
|
||||
* Z80 Reserved
|
||||
*--------------------------------------
|
||||
*Z80CODE .EQ $300 0F300h
|
||||
*Z80STACK .EQ $3CF 0F3CFh
|
||||
*--------------------------------------
|
||||
Z80.300 .HS 3200E1 LD (0E100H),A Back to 6502
|
||||
|
||||
|
||||
Z80.300.L .EQ *-Z80.300
|
||||
*--------------------------------------
|
||||
Z80.1000 .HS 31CFF3 START: LD SP,0F3CFh Init Stack
|
||||
.HS 3EFF LD A,0FFH Set Flag
|
||||
.HS 320B00 LD (FLAG),A
|
||||
.HS C300F3 JP 0F300h
|
||||
.HS 00 FLAG: .DB 0
|
||||
Z80.1000.L .EQ *-Z80.1000
|
||||
*--------------------------------------
|
||||
Z80.SAVE .EQ *
|
||||
*--------------------------------------
|
||||
MAN
|
||||
SAVE usr/src/sys/kernel.s.init
|
||||
LOAD usr/src/sys/kernel.s
|
||||
|
||||
@ -372,13 +372,13 @@ K.FreeMem.ERR >PUSHWI .1
|
||||
>PUSHA
|
||||
>PUSHBI 2
|
||||
|
||||
>SYSCALL2 printf
|
||||
* >DEBUG
|
||||
>SYSCALL2 PrintF
|
||||
>DEBUG
|
||||
lda #E.INVH
|
||||
sec
|
||||
rts
|
||||
|
||||
.1 .CZ "Free($%h),PID=%d\r\n"
|
||||
.1 .CZ "Free(%h),PID=%d\r\n"
|
||||
*--------------------------------------
|
||||
K.FreeMem tay
|
||||
beq K.FreeMem.ERR Slot=0, reserved by Kernel
|
||||
|
||||
@ -25,7 +25,6 @@ A2osX.Unpak >STYA ZPOutBufPtr
|
||||
|
||||
PAKME.MAIN .DA MAIN
|
||||
PAKME.AUX .DA AUX
|
||||
PAKME.GP .DA GP
|
||||
PAKME.D1 .DA D1
|
||||
PAKME.D2 .DA D2
|
||||
PAKME.E0 .DA E0
|
||||
@ -33,7 +32,8 @@ PAKME.E0 .DA E0
|
||||
MAIN .DA #0
|
||||
.DA MAIN.S
|
||||
|
||||
MAIN.B .PH A2osX.Main
|
||||
MAIN.B .PH $1000
|
||||
.INB usr/src/sys/kernel.s.gp
|
||||
.INB usr/src/sys/kernel.s.core
|
||||
.INB usr/src/sys/kernel.s.drv
|
||||
.INB usr/src/sys/kernel.s.pft
|
||||
@ -65,14 +65,6 @@ AUX.B .PH Mem.XHiMem
|
||||
.EP
|
||||
AUX.S .EQ *-AUX.B
|
||||
|
||||
GP .DA #0
|
||||
.DA GP.S
|
||||
|
||||
GP.B .PH A2osX.SYSCALL
|
||||
.INB usr/src/sys/kernel.s.gp
|
||||
.EP
|
||||
GP.S .EQ *-GP.B
|
||||
|
||||
D1 .DA #0
|
||||
.DA D1.S
|
||||
|
||||
@ -137,7 +129,7 @@ E0.S .EQ *-E0.B
|
||||
|
||||
.AS "PAKME" TAG
|
||||
.DA $2000 BIN ORG
|
||||
.DA #6 Chunk Count
|
||||
.DA #5 Chunk Count
|
||||
.DA PAKME.MAIN Chunks
|
||||
|
||||
.INB usr/src/sys/kernel.s.ctrl
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user