Apple-2-SW
/
A2osX
mirror of https://github.com/A2osX/A2osX.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Kernel 0.94.3b (kernel migration step b)

This commit is contained in:
burniouf 2023-07-14 12:24:49 +02:00
parent e32db79ce3
commit a417f7aba6
45 changed files with 176 additions and 202 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.

2
BIN/ACOS.S.KW.txt
View File

@ -109,7 +109,7 @@ KW.FOR jsr CORE.GetNextCharNB
KW.NEXT ldy pCCS KW.NEXT ldy pCCS
bmi .98 bmi .98
lda (pdata),y lda (pData),y
cmp #KWID.FOR cmp #KWID.FOR
bne .98 bne .98

2
BIN/ATLOGON.S.txt
View File

@ -551,7 +551,7 @@ P.GetParms .BS $07
P.GetStatus .BS $14 P.GetStatus .BS $14
P.FILogin .BS $19 P.FILogin .BS $19
NameBuf .BS 36 NameBuf .BS 36
lookupBuf .BS 5+99 LookupBuf .BS 5+99
DS.END DS.END
.ED .ED
*-------------------------------------- *--------------------------------------

2
BIN/ATMOUNT.S.txt
View File

@ -165,7 +165,7 @@ CS.RUN.ListVols lda A2osX.ATLKSID
bcs .9 bcs .9
>LDYA L.MSG.VOLLIST >LDYA L.MSG.VOLLIST
>SYSCALL Puts >SYSCALL PutS
lda ZPReplyBuf lda ZPReplyBuf
clc clc

4
BIN/ATTR.S.txt
View File

@ -33,8 +33,6 @@ bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
bPause .BS 1 bPause .BS 1
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -407,7 +405,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem

4
BIN/CC.S.LINK.txt
View File

@ -2,7 +2,7 @@ NEW
AUTO 3,1 AUTO 3,1
*-------------------------------------- *--------------------------------------
CC.Link >LDYA L.MSG.LINKING CC.Link >LDYA L.MSG.LINKING
>SYSCALL Puts >SYSCALL PutS
ldy #0 ldy #0
lda #1 lda #1
@ -257,7 +257,7 @@ CC.Link.CheckMain
rts rts
.9 >LDYA L.MSG.NOMAIN .9 >LDYA L.MSG.NOMAIN
>SYSCALL puts >SYSCALL putS
lda #E.CSYN lda #E.CSYN
sec sec
.99 rts .99 rts

4
BIN/CHAUX.S.txt
View File

@ -38,8 +38,6 @@ bPause .BS 1
bContinue .BS 1 bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -284,7 +282,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem

4
BIN/CHGRP.S.txt
View File

@ -24,8 +24,6 @@ ZPFileName .BS 2
ZPFileStat .BS 2 ZPFileStat .BS 2
ZPFullPath .BS 2 ZPFullPath .BS 2
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -277,7 +275,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem

4
BIN/CHMOD.S.txt
View File

@ -27,8 +27,6 @@ ZPMode .BS 2
ArgIndex .BS 1 ArgIndex .BS 1
StrMode .BS 1 StrMode .BS 1
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -317,7 +315,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem

4
BIN/CHOWN.S.txt
View File

@ -24,8 +24,6 @@ ZPFileName .BS 2
ZPFileStat .BS 2 ZPFileStat .BS 2
ZPFullPath .BS 2 ZPFullPath .BS 2
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -276,7 +274,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem

4
BIN/CHTYP.S.txt
View File

@ -37,8 +37,6 @@ bPause .BS 1
bContinue .BS 1 bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -280,7 +278,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem

7
BIN/DU.S.txt
View File

@ -36,10 +36,7 @@ bAllFiles .BS 1
ArgCount .BS 1 ArgCount .BS 1
ArgDir .BS 1 ArgDir .BS 1
hFilter .BS 1 ZS.END .ED
ZS.END
.ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
*-------------------------------------- *--------------------------------------
@ -439,7 +436,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .8 beq .8
>SYSCALL FreeMem >SYSCALL FreeMem

78
BIN/FNT2FON.S.txt
View File

@ -14,7 +14,7 @@ NEW
.DUMMY .DUMMY
.OR ZPBIN .OR ZPBIN
ZS.START ZS.START
ZPPTR1 .BS 2 ZPPtr1 .BS 2
ZPInputBufPtr .BS 2 ZPInputBufPtr .BS 2
ZPInputTblPtr .BS 2 ZPInputTblPtr .BS 2
ZPInputBMPtr .BS 2 ZPInputBMPtr .BS 2
@ -75,7 +75,7 @@ CS.INIT
bne .2 bne .2
.99 >LDYA L.MSG.USAGE .99 >LDYA L.MSG.USAGE
>SYSCALL Puts >SYSCALL PutS
lda #E.SYN lda #E.SYN
sec sec
rts rts
@ -365,10 +365,10 @@ CS.RUN.GetChar lda (ZPInputTblPtr) Get Char PixW
.2 pha .2 pha
clc clc
adc ZPCharBufPtr adc ZPCharBufPtr
sta ZPPTR1 sta ZPPtr1
lda #0 lda #0
adc ZPCharBufPtr+1 adc ZPCharBufPtr+1
sta ZPPTR1+1 sta ZPPtr1+1
>LDA.G FON.Header+S.FON.PixH >LDA.G FON.Header+S.FON.PixH
tax tax
@ -381,14 +381,14 @@ CS.RUN.GetChar lda (ZPInputTblPtr) Get Char PixW
.4 tay .4 tay
lda TWIST,y lda TWIST,y
sta (ZPPTR1) sta (ZPPtr1)
lda ZPPTR1 lda ZPPtr1
clc clc
>ADC.G CharByteW >ADC.G CharByteW
sta ZPPTR1 sta ZPPtr1
bcc .5 bcc .5
inc ZPPTR1+1 inc ZPPtr1+1
.5 dex .5 dex
bne .3 bne .3
@ -411,9 +411,9 @@ CS.RUN.DumpChar >PUSHW L.MSG.DUMP
>SYSCALL PrintF >SYSCALL PrintF
lda ZPCharBufPtr lda ZPCharBufPtr
sta ZPPTR1 sta ZPPtr1
lda ZPCharBufPtr+1 lda ZPCharBufPtr+1
sta ZPPTR1+1 sta ZPPtr1+1
>LDA.G FON.Header+S.FON.PixH >LDA.G FON.Header+S.FON.PixH
@ -425,7 +425,7 @@ CS.RUN.DumpChar >PUSHW L.MSG.DUMP
ldy #0 ldy #0
.2 lda (ZPPTR1),y .2 lda (ZPPtr1),y
phy phy
ldx #8 ldx #8
@ -459,13 +459,13 @@ CS.RUN.DumpChar >PUSHW L.MSG.DUMP
>SYSCALL PutChar >SYSCALL PutChar
lda #10 lda #10
>SYSCALL PutChar >SYSCALL PutChar
lda ZPPTR1 lda ZPPtr1
clc clc
>ADC.G CharByteW >ADC.G CharByteW
sta ZPPTR1 sta ZPPtr1
bcc .7 bcc .7
inc ZPPTR1+1 inc ZPPtr1+1
.7 pla .7 pla
dec dec
@ -478,9 +478,9 @@ CS.RUN.ShiftLChar
bmi .9 bmi .9
.1 lda ZPCharBufPtr .1 lda ZPCharBufPtr
sta ZPPTR1 sta ZPPtr1
lda ZPCharBufPtr+1 lda ZPCharBufPtr+1
sta ZPPTR1+1 sta ZPPtr1+1
>LDA.G FON.Header+S.FON.PixH >LDA.G FON.Header+S.FON.PixH
tax tax
@ -488,15 +488,15 @@ CS.RUN.ShiftLChar
pha pha
.2 pla .2 pla
ora (ZPPTR1) ora (ZPPtr1)
pha pha
lda ZPPTR1 lda ZPPtr1
clc clc
>ADC.G CharByteW >ADC.G CharByteW
sta ZPPTR1 sta ZPPtr1
bcc .3 bcc .3
inc ZPPTR1+1 inc ZPPtr1+1
.3 dex .3 dex
bne .2 bne .2
@ -508,9 +508,9 @@ CS.RUN.ShiftLChar
bcs .9 bcs .9
lda ZPCharBufPtr lda ZPCharBufPtr
sta ZPPTR1 sta ZPPtr1
lda ZPCharBufPtr+1 lda ZPCharBufPtr+1
sta ZPPTR1+1 sta ZPPtr1+1
>LDA.G FON.Header+S.FON.PixH >LDA.G FON.Header+S.FON.PixH
tax tax
@ -519,19 +519,19 @@ CS.RUN.ShiftLChar
clc clc
.5 dey .5 dey
lda (ZPPTR1),y lda (ZPPtr1),y
ror ror
sta (ZPPTR1),y sta (ZPPtr1),y
tya tya
bne .5 bne .5
lda ZPPTR1 lda ZPPtr1
clc clc
>ADC.G CharByteW >ADC.G CharByteW
sta ZPPTR1 sta ZPPtr1
bcc .6 bcc .6
inc ZPPTR1+1 inc ZPPtr1+1
.6 dex .6 dex
bne .4 bne .4
@ -549,9 +549,9 @@ CS.RUN.CutRChar >LDA.G bNoShrink
bmi .9 bmi .9
.1 lda ZPCharBufPtr .1 lda ZPCharBufPtr
sta ZPPTR1 sta ZPPtr1
lda ZPCharBufPtr+1 lda ZPCharBufPtr+1
sta ZPPTR1+1 sta ZPPtr1+1
>LDA.G FON.Header+S.FON.PixH >LDA.G FON.Header+S.FON.PixH
tax tax
@ -562,16 +562,16 @@ CS.RUN.CutRChar >LDA.G bNoShrink
pha pha
.2 pla .2 pla
ora (ZPPTR1),y ora (ZPPtr1),y
pha pha
phy phy
lda ZPPTR1 lda ZPPtr1
clc clc
>ADC.G CharByteW >ADC.G CharByteW
sta ZPPTR1 sta ZPPtr1
bcc .3 bcc .3
inc ZPPTR1+1 inc ZPPtr1+1
.3 ply .3 ply
dex dex
@ -645,16 +645,16 @@ CS.RUN.StoreChar
bcs .99 bcs .99
lda ZPCharBufPtr lda ZPCharBufPtr
sta ZPPTR1 sta ZPPtr1
lda ZPCharBufPtr+1 lda ZPCharBufPtr+1
sta ZPPTR1+1 sta ZPPtr1+1
>LDA.G FON.Header+S.FON.PixH >LDA.G FON.Header+S.FON.PixH
pha pha
.2 >LDA.G CharOutByteW .2 >LDA.G CharOutByteW
tax tax
ldy #0 ldy #0
.3 lda (ZPPTR1),y .3 lda (ZPPtr1),y
jsr CS.RUN.WriteByte jsr CS.RUN.WriteByte
bcs .9 bcs .9
@ -667,13 +667,13 @@ CS.RUN.StoreChar
beq .8 beq .8
pha pha
lda ZPPTR1 lda ZPPtr1
clc clc
>ADC.G CharByteW >ADC.G CharByteW
sta ZPPTR1 sta ZPPtr1
bcc .2 bcc .2
inc ZPPTR1+1 inc ZPPtr1+1
bra .2 bra .2
.8 clc .8 clc

4
BIN/FORMAT.S.txt
View File

@ -213,7 +213,7 @@ CS.RUN.Format jsr CS.RUN.GetDevDIB
CS.RUN.CheckOpt ldy #1 CS.RUN.CheckOpt ldy #1
lda (ZPPtr1),y lda (ZPPtr1),y
ldx #OptionList.Cnt-1 ldx #OptionList.L-1
.2 cmp OptionList,x .2 cmp OptionList,x
beq .3 beq .3
@ -914,7 +914,7 @@ MSG.WRITECAT .CZ "Writing Catalog..."
FMT.BLANK .CZ "BLANK%H%H" FMT.BLANK .CZ "BLANK%H%H"
*-------------------------------------- *--------------------------------------
OptionList .AS "AaBbDdLlSsTtVv" OptionList .AS "AaBbDdLlSsTtVv"
OptionList.cnt .EQ *-OptionList OptionList.L .EQ *-OptionList
*-------------------------------------- *--------------------------------------
Disk2.Default .DA 280 BlkCnt Disk2.Default .DA 280 BlkCnt
.DA #35 TrkCnt .DA #35 TrkCnt

2
BIN/FORTH.S.KW.txt
View File

@ -830,7 +830,7 @@ KW.TYPE >PULLW ZPPtr1 n
lda (pPS),y lda (pPS),y
>PUSHA >PUSHA
>PUSHW ZPAddrPtr >PUSHW ZPAddrPtr
>SYSCALL fputs >SYSCALL FPutS
clc clc
rts rts

2
BIN/GTEST.S.txt
View File

@ -281,7 +281,7 @@ CS.QUIT lda hFont
.7 lda hDevGFX .7 lda hDevGFX
beq .8 beq .8
>SYSCALL close >SYSCALL Close
.8 clc .8 clc
rts rts

4
BIN/HMACMD5.S.txt
View File

@ -66,7 +66,7 @@ CS.INIT >LDYA L.LIBCRYPT
CS.RUN ldy #S.PS.ARGC CS.RUN ldy #S.PS.ARGC
lda (pPS),y lda (pPS),y
beq .99 beq .99
.0 lda #0 .10 lda #0
pha pha
.1 inc ArgIndex .1 inc ArgIndex
@ -108,7 +108,7 @@ CS.RUN ldy #S.PS.ARGC
.4 lda ArgIndex .4 lda ArgIndex
sta aOptD,x sta aOptD,x
bra .0 bra .10
.8 lda bGotKey .8 lda bGotKey
beq .99 beq .99

16
BIN/LC.S.txt
View File

@ -89,7 +89,7 @@ CS.RUN inc ArgIndex
bne .9 bne .9
>LDYA ZPPtr1 >LDYA ZPPtr1
jsr InitSrcDirYA jsr X.InitSrcDirYA
bcc CS.RUN bcc CS.RUN
.99 rts .99 rts
*-------------------------------------- *--------------------------------------
@ -131,7 +131,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
.1 lda bPause .1 lda bPause
bne CS.RUN.LOOP Pause... bne CS.RUN.LOOP Pause...
*-------------------------------------- *--------------------------------------
jsr GetEntry jsr X.GetEntry
bcs CS.RUN.LEAVE bcs CS.RUN.LEAVE
ldy #S.STAT.MODE+1 ldy #S.STAT.MODE+1
@ -157,13 +157,13 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
sec sec
.99 rts .99 rts
*-------------------------------------- *--------------------------------------
CS.RUN.NEXT jsr GetNextEntry CS.RUN.NEXT jsr X.GetNextEntry
bcc CS.RUN.LOOP bcc CS.RUN.LOOP
CS.RUN.LEAVE jsr LeaveSubDir CS.RUN.LEAVE jsr X.LeaveSubDir
bcs .90 bcs .90
jsr BasePath.. jsr X.BasePath..
jmp CS.RUN.NEXT jmp CS.RUN.NEXT
@ -209,7 +209,7 @@ CS.RUN.DIR lda (ZPFileName)
bpl .8 bpl .8
>LDYA ZPFileName is now lowercase >LDYA ZPFileName is now lowercase
jmp EnterSubDirYA jmp X.EnterSubDirYA
.8 clc .8 clc
.9 rts .9 rts
@ -283,10 +283,10 @@ CS.RUN.GetNewPath
CS.DOEVENT sec CS.DOEVENT sec
rts rts
*-------------------------------------- *--------------------------------------
CS.QUIT jsr LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
jsr .7 jsr .7
lda hSrcFullPath lda hSrcFullPath

11
BIN/LS.S.txt
View File

@ -49,8 +49,6 @@ bToFile .BS 1
ZPLineBuf .BS 2 ZPLineBuf .BS 2
ZPLineBufPtr .BS 2 ZPLineBufPtr .BS 2
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -792,12 +790,12 @@ CS.RUN.LineBufFlush1
*-------------------------------------- *--------------------------------------
CS.RUN.LineBufOut CS.RUN.LineBufOut
lda #C.CR lda #C.CR
jsr CS.RUN.LineBufCOUT jsr CS.RUN.LineBufCOut
bit bToFile bit bToFile
bmi .1 bmi .1
lda #C.LF lda #C.LF
jsr CS.RUN.LineBufCOUT jsr CS.RUN.LineBufCOut
.1 lda #0 .1 lda #0
sta (ZPLineBufPtr) sta (ZPLineBufPtr)
@ -811,7 +809,7 @@ CS.RUN.LineBufOut
>PUSHYA >PUSHYA
>SYSCALL fputs >SYSCALL FPutS
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.SrcPathOut CS.RUN.SrcPathOut
@ -870,8 +868,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
ldy #hFilter >LDA.G hInclude
lda (pData),y
jsr .7 jsr .7
lda hPWBuf lda hPWBuf

2
BIN/MAN.S.txt
View File

@ -166,7 +166,7 @@ CS.QUIT lda hLineBuf
.7 beq .8 .7 beq .8
>SYSCALL Freemem >SYSCALL FreeMem
.8 rts .8 rts
*-------------------------------------- *--------------------------------------

4
BIN/PAK.S.txt
View File

@ -97,7 +97,7 @@ CS.RUN >INC.G ArgIndex
bcs .9 bcs .9
txa txa
>STA.G hExclude >STA.G hIgnore
bra CS.RUN bra CS.RUN
.9 >LDYA L.MSG.USAGE .9 >LDYA L.MSG.USAGE
@ -591,7 +591,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
ldy #hExclude ldy #hIgnore
jsr .7 jsr .7
ldy #hInclude ldy #hInclude

4
BIN/PS.S.txt
View File

@ -87,7 +87,7 @@ CS.RUN lda #1
rts rts
.10 >LDYA L.MSG0 .10 >LDYA L.MSG0
>SYSCALL Puts >SYSCALL PutS
ldx Index ldx Index
.1 lda PS.Table.hPS,x .1 lda PS.Table.hPS,x
@ -213,7 +213,7 @@ CS.RUN.PrintArgs
bra .1 bra .1
.8 >LDYA L.MSG3 .8 >LDYA L.MSG3
>SYSCALL Puts >SYSCALL PutS
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.DOEVENT sec CS.DOEVENT sec

1
BIN/RPCDUMP.S.txt
View File

@ -9,6 +9,7 @@ NEW
.INB inc/a2osx.i .INB inc/a2osx.i
.INB inc/eth.i .INB inc/eth.i
.INB inc/libtcpip.i .INB inc/libtcpip.i
.INB inc/net.tcpip.i
*-------------------------------------- *--------------------------------------
TIMEOUT.MAX .EQ 40 40*100ms = 4 sec. TIMEOUT.MAX .EQ 40 40*100ms = 4 sec.
*-------------------------------------- *--------------------------------------

2
BIN/SPDIAG.S.txt
View File

@ -88,7 +88,7 @@ CS.RUN lda #$C1
>PUSHA >PUSHA
>PUSHBI 2 >PUSHBI 2
>SYSCALL Printf >SYSCALL PrintF
bcs .9 bcs .9
ldy #$ff ldy #$ff

2
BIN/TELNET.S.txt
View File

@ -176,7 +176,7 @@ CS.RUN.OPENSKT >PUSHBI S.SOCKET.T.STREAM
bra .9 bra .9
.4 >LDYA L.MSG.SKTOK .4 >LDYA L.MSG.SKTOK
>SYSCALL Puts >SYSCALL PutS
>LDYAI BUFSIZE >LDYAI BUFSIZE
>SYSCALL GetMem >SYSCALL GetMem

4
BIN/UC.S.txt
View File

@ -35,8 +35,6 @@ bPause .BS 1
bContinue .BS 1 bContinue .BS 1
bRecurse .BS 1 bRecurse .BS 1
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -291,7 +289,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
jsr .7 jsr .7
lda hSrcFullPath lda hSrcFullPath

2
BIN/UNPAK.S.txt
View File

@ -464,7 +464,7 @@ MSG.FILE .CZ "Extracting File:%s..."
MSG.OK .CZ "[OK]" MSG.OK .CZ "[OK]"
MSG.E.IARC .CZ "\r\nInvalid/corrupt archive" MSG.E.IARC .CZ "\r\nInvalid/corrupt archive"
MSG.PAK .CS "PAK" MSG.PAK .CS "PAK"
MSG.SPINNER .CS "|/-\" MSG.SPINNER .AS "|/-\"
*-------------------------------------- *--------------------------------------
.DUMMY .DUMMY
.OR 0 .OR 0

2
BIN/USERDEL.S.txt
View File

@ -87,7 +87,7 @@ CS.RUN >LDYAI 256
rts rts
.9 >LDYA L.MSG.INV .9 >LDYA L.MSG.INV
>SYSCALL Puts >SYSCALL PutS
lda #E.IUSR lda #E.IUSR
sec sec
rts rts

4
BIN/WC.S.txt
View File

@ -44,8 +44,6 @@ bWord .BS 1
bInWord .BS 1 bInWord .BS 1
bTotal .BS 1 bTotal .BS 1
hFilter .BS 1
ZS.END .ED ZS.END .ED
*-------------------------------------- *--------------------------------------
* File Header (16 Bytes) * File Header (16 Bytes)
@ -571,7 +569,7 @@ CS.DOEVENT sec
CS.QUIT jsr X.LeaveSubDir CS.QUIT jsr X.LeaveSubDir
bcc CS.QUIT bcc CS.QUIT
>LDA.G hFilter >LDA.G hInclude
beq .1 beq .1
>SYSCALL FreeMem >SYSCALL FreeMem

2
DRV/GRAPPLERP.DRV.S.txt
View File

@ -291,7 +291,7 @@ DIB .DA #S.DIB.S.WRITE+S.DIB.S.READ
.PS "Grappler+ // Crd" .PS "Grappler+ // Crd"
.DA #S.DIB.T.CHAR .DA #S.DIB.T.CHAR
.DA #0 .DA #0
.DA 00 .BS 2 Version
*-------------------------------------- *--------------------------------------
DCB .DA #S.DCB.T.COM DCB .DA #S.DCB.T.COM
.DA #0 FLAGS .DA #0 FLAGS

6
DRV/SPTAPE.DRV.S.txt
View File

@ -117,10 +117,10 @@ SP.ScanSlots lda #$C1
beq .7 beq .7
sta DevCnt sta DevCnt
stz DevId stz DevID
.3 inc DevId .3 inc DevID
ldx DevId ldx DevID
lda #S.IOCTL.S.GETDIB lda #S.IOCTL.S.GETDIB
jsr SP.Call jsr SP.Call
bcs .6 bcs .6

50
INC/A2osX.I.txt
View File

@ -27,48 +27,48 @@ A2osX.ZCALL .EQ $0000
* A2osX GLOBAL PAGE * A2osX GLOBAL PAGE
* $BC00->$BC0F : Public Vectors * $BC00->$BC0F : Public Vectors
*-------------------------------------- *--------------------------------------
A2osX.SYSCALL .EQ $BC00 A2osX.SYSCALL .EQ $1000
A2osX.LIBCALL .EQ $BC03 A2osX.LIBCALL .EQ $1003
A2osX.ATKCALL .EQ $BC06 A2osX.ATKCALL .EQ $1006
A2osX.FPUCALL .EQ $BC09 A2osX.FPUCALL .EQ $1009
A2osX.BADCALL .EQ $BC0C A2osX.BADCALL .EQ $100C
*-------------------------------------- *--------------------------------------
A2osX.SLEEP .EQ $BC10 A2osX.SLEEP .EQ $1010
*-------------------------------------- *--------------------------------------
* $BED0->$BEEF : Public Variables * $BED0->$BEEF : Public Variables
*-------------------------------------- *--------------------------------------
A2osX.SCRNDEVS .EQ $BED0 0=console, 1-8=VT100, 9=GFX A2osX.SCRNDEVS .EQ $11D0 0=console, 1-8=VT100, 9=GFX
A2osX.ASCREEN .EQ $BEDA Active Screen A2osX.ASCREEN .EQ $11DA 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.Z80SLOT .EQ $BEE9 A2osX.KVER .EQ $11E0
A2osX.HWType .EQ $BEEA 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.UNKNOWN .EQ 0
A2osX.HWType.IIe .EQ 1 A2osX.HWType.IIe .EQ 1
A2osX.HWType.IIc .EQ 2 A2osX.HWType.IIc .EQ 2
A2osX.HWType.IIgs .EQ 3 A2osX.HWType.IIgs .EQ 3
A2osX.HWSubT .EQ $BEEB A2osX.HWSubT .EQ $11EB
A2osX.HWSubT.Enh .EQ 1 A2osX.HWSubT.Enh .EQ 1
A2osX.HWSubT.LCCard .EQ 2 A2osX.HWSubT.LCCard .EQ 2
A2osX.TIMER16 .EQ $BEEC WORD A2osX.TIMER16 .EQ $11EC WORD
A2osX.RANDOM16 .EQ $BEEE WORD A2osX.RANDOM16 .EQ $11EE WORD
*-------------------------------------- *--------------------------------------
* $BEF0->$BEFF : Kernel Config Block * $BEF0->$BEFF : Kernel Config Block
*-------------------------------------- *--------------------------------------
A2osX.KCONFIG .EQ $BEF0 A2osX.KCONFIG .EQ $11F0
A2osX.HZ .EQ $BEF0 5/6 for 50/60Hz A2osX.HZ .EQ $11F0 5/6 for 50/60Hz
A2osX.TTYDEVS .EQ $BEF1 A2osX.TTYDEVS .EQ $11F1
A2osX.F .EQ $BEF8 A2osX.F .EQ $11F8
A2osX.F.CHROOT .EQ %10000000 ChRooting to /RAMx A2osX.F.CHROOT .EQ %10000000 ChRooting to /RAMx
A2osX.F.PMODE .EQ %01000000 Pre-emptive Mode 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.Z80 .EQ $80
A2osX.S.VXD .EQ $81 A2osX.S.VXD .EQ $81
A2osX.S.ATK .EQ $82 A2osX.S.ATK .EQ $82

18
LIB/LIBTUI.S.CONT.txt
View File

@ -35,7 +35,7 @@ CONT.New jsr OBJ.Create A = Class
*-------------------------------------- *--------------------------------------
CONT.Insert >SYSCALL2 GetMemPtr A = hParent CONT.Insert >SYSCALL2 GetMemPtr A = hParent
>STYA ZPPtr2 >STYA ZPPtr2
ldy #S.OBJ.Childs ldy #S.OBJ.Childs
.1 lda (ZPPtr2),y .1 lda (ZPPtr2),y
@ -48,26 +48,26 @@ CONT.Insert >SYSCALL2 GetMemPtr A = hParent
lda #E.OOH lda #E.OOH
* sec * sec
rts rts
.2 lda hObj .2 lda hObj
sta (ZPPtr2),y sta (ZPPtr2),y
ldy #S.OBJ.S ldy #S.OBJ.S
lda (ZPPtr2),y lda (ZPPtr2),y
ora #S.OBJ.S.bHasChilds ora #S.OBJ.S.bHasChilds
sta (ZPPtr2),y sta (ZPPtr2),y
ldy #S.OBJ.InnerX ldy #S.OBJ.InnerX
lda (ZPPtr2),y lda (ZPPtr2),y
ldy #S.OBJ.X1 ldy #S.OBJ.X1
clc clc
adc (ZPObjPtr),y adc (ZPObjPtr),y
sta (ZPObjPtr),y sta (ZPObjPtr),y
ldy #S.OBJ.InnerY ldy #S.OBJ.InnerY
lda (ZPPtr2),y lda (ZPPtr2),y
ldy #S.OBJ.Y1 ldy #S.OBJ.Y1
clc clc
adc (ZPObjPtr),y adc (ZPObjPtr),y

2
LIB/LIBTUI.S.IO.txt
View File

@ -277,7 +277,7 @@ IO.fputs ldx ZPCtxPtr
lda (pPS),y lda (pPS),y
ldy #2 ldy #2
sta (pStack),y sta (pStack),y
>SYSCALL fputs >SYSCALL FPutS
plx plx
stx ZPObjPtr+1 stx ZPObjPtr+1

2
SBIN/INITD.S.txt
View File

@ -65,7 +65,7 @@ CS.RUN .DO INITDDBG=1
>LDYA L.MSG.START >LDYA L.MSG.START
>SYSCALL PutS >SYSCALL PutS
.FIN .FIN
ldy #S.PS.PID ldy #S.PS.PID
lda (pPS),y lda (pPS),y
cmp #1 cmp #1

4
SBIN/LOGIN.S.txt
View File

@ -119,7 +119,7 @@ CS.RUN.AUTH lda #3
bcs .9 bcs .9
>LDYA L.MSG.CRLF >LDYA L.MSG.CRLF
>SYSCALL Puts >SYSCALL PutS
bcs .9 bcs .9
>PUSHW pData >PUSHEA.G Password >PUSHW pData >PUSHEA.G Password
@ -282,7 +282,7 @@ CS.RUN.GetLine >STYA ZPGetLinePtr
*-------------------------------------- *--------------------------------------
CS.RUN.printf >PUSHYA CS.RUN.printf >PUSHYA
>PUSHBI 0 >PUSHBI 0
>SYSCALL printf >SYSCALL PrintF
rts rts
*-------------------------------------- *--------------------------------------
CS.RUN.DumpFile >PUSHYA CS.RUN.DumpFile >PUSHYA

6
SHARED/X.CPMVRM.S.txt
View File

@ -631,7 +631,7 @@ CS.RUN.CheckOpt jsr CS.RUN.NextOpt
lda (ZPPtr1),y lda (ZPPtr1),y
bne .98 bne .98
>LDA.G hExclude >LDA.G hIgnore
bne .98 bne .98
jsr CS.RUN.NextOpt jsr CS.RUN.NextOpt
@ -641,7 +641,7 @@ CS.RUN.CheckOpt jsr CS.RUN.NextOpt
bcs .99 bcs .99
txa txa
>STA.G hExclude >STA.G hIgnore
bra CS.RUN.CheckOpt bra CS.RUN.CheckOpt
*-------------------------------------- *--------------------------------------
.5 >LDA.G index .5 >LDA.G index
@ -710,7 +710,7 @@ CS.QUIT jsr X.LeaveSubDir
ldy #hInclude ldy #hInclude
jsr .7 jsr .7
ldy #hExclude ldy #hIgnore
.7 lda (pData),y .7 lda (pData),y
.8 beq .9 .8 beq .9

2
SHARED/X.FILEENUM.G.txt
View File

@ -8,7 +8,7 @@ oDIRENTs .BS X.MAX.RECURSE*2
STATBUF .BS S.STAT STATBUF .BS S.STAT
hInclude .BS 1 hInclude .BS 1
hExclude .BS 1 hIgnore .BS 1
hSrcBasePath .BS 1 hSrcBasePath .BS 1
.DO X.COPY.TO.DEST=1 .DO X.COPY.TO.DEST=1

4
SHARED/X.FILEENUM.S.txt
View File

@ -19,7 +19,7 @@ X.MAX.RECURSE .EQ 8
* hSrcBasePath .BS 1 * hSrcBasePath .BS 1
* hDstBasePath .BS 1 (optional) * hDstBasePath .BS 1 (optional)
* hInclude .BS 1 * hInclude .BS 1
* hExclude .BS 1 * hIgnore .BS 1
*-------------------------------------- *--------------------------------------
* Compare a ZPFileName against hInclude (e.g. '*test?.*') * Compare a ZPFileName against hInclude (e.g. '*test?.*')
* CC : match * CC : match
@ -36,7 +36,7 @@ X.IgnoreMatch sec
ldy #hInclude ldy #hInclude
bcc .11 bcc .11
iny iny hIgnore
.11 lda (pData),y .11 lda (pData),y
beq X.FilterMatch.RTS No filter....exit with passed carry beq X.FilterMatch.RTS No filter....exit with passed carry

6
SYS/KERNEL.S.CTRL.txt
View File

@ -9,7 +9,6 @@ C1 .EQ Mem.MHiMem
C2 .EQ Mem.XLoMem C2 .EQ Mem.XLoMem
C3 .EQ Mem.XHiMem C3 .EQ Mem.XHiMem
*-------------------------------------- *--------------------------------------
C4 .EQ GP.CE-GP.CS
C5 .EQ AUX.S C5 .EQ AUX.S
*-------------------------------------- *--------------------------------------
C6 .EQ D1.S C6 .EQ D1.S
@ -25,11 +24,6 @@ C8 .EQ E0.S
.DO Mem.XLoMem>$2000 .DO Mem.XLoMem>$2000
.LIST ON .LIST ON
* ERROR:AUX too big * ERROR:AUX too big
.LIST OFF
.FIN
.DO C4>$1D0
.LIST ON
* ERROR:GP too big
.LIST OFF .LIST OFF
.FIN .FIN
.DO D1.S>$1000 .DO D1.S>$1000

4
SYS/KERNEL.S.DEF.txt
View File

@ -145,8 +145,6 @@ Mem.LastSlot .EQ $0806
*-------------------------------------- *--------------------------------------
* free $1000->$1FFF = $1000 (4096) Aux * free $1000->$1FFF = $1000 (4096) Aux
*-------------------------------------- *--------------------------------------
A2osX.Main .EQ $1200
*--------------------------------------
K.S.STAT .EQ $1C00 S.STAT for internal kernel operations 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.EVT .EQ $1C40 K.EVT.MAX*S.EVT=4*8=32b
K.S.IOCTL .EQ $1C60 9 bytes K.S.IOCTL .EQ $1C60 9 bytes
@ -161,7 +159,7 @@ K.Buf256 .EQ $1E00 512 bytes....
K.IOBuf .EQ $1F00 ....for ReadDir K.IOBuf .EQ $1F00 ....for ReadDir
*-------------------------------------- *--------------------------------------
Mem.MLoMem .EQ $2000 Mem.MLoMem .EQ $2000
Mem.MHiMem .EQ A2osX.SYSCALL Mem.MHiMem .EQ $BF00
Mem.XLoMem .EQ $1000 Mem.XLoMem .EQ $1000
Mem.XHiMem .EQ $A000 Mem.XHiMem .EQ $A000
DevMgr.HiMem .EQ $FFFA Protect IRQ vectors in Aux LC DevMgr.HiMem .EQ $FFFA Protect IRQ vectors in Aux LC

8
SYS/KERNEL.S.GP.txt
View File

@ -7,7 +7,7 @@ NEW
* X = SYSfnc.Index * X = SYSfnc.Index
* Y,A = free for Inline param * Y,A = free for Inline param
*-------------------------------------- *--------------------------------------
GP.CS jmp GP.SysCall jmp GP.SysCall
*-------------------------------------- *--------------------------------------
* LIBCALL (AUXLC to AUXLC) * LIBCALL (AUXLC to AUXLC)
* Used by user * Used by user
@ -436,13 +436,11 @@ GP.IRQ.Exit stz IRQ.Skip reset flag
*-------------------------------------- *--------------------------------------
*BrkHandler bra * *BrkHandler bra *
*-------------------------------------- *--------------------------------------
GP.CE .BS $BED0-* * $BED0->$BEEF : Public Variables
*--------------------------------------
* $BED0->$BEEF : Public Variables
*-------------------------------------- *--------------------------------------
.BS 32 .BS 32
*-------------------------------------- *--------------------------------------
* $BEF0->$BEFF : Kernel Config Block * $BEF0->$BEFF : Kernel Config Block
*-------------------------------------- *--------------------------------------
.DA #6 A2osX.HZ=60hz .DA #6 A2osX.HZ=60hz
.DA #2 A2osX.TTYDEVS=2 .DA #2 A2osX.TTYDEVS=2

59
SYS/KERNEL.S.INIT.txt
View File

@ -22,7 +22,7 @@ Kernel.Init2 sei
>LDYA PAKME.MAIN >LDYA PAKME.MAIN
>STYA ZPInBufPtr >STYA ZPInBufPtr
>LDYAI A2osX.Main >LDYAI $1000
jsr A2osX.Unpak jsr A2osX.Unpak
>LDYA PAKME.AUX >LDYA PAKME.AUX
@ -66,11 +66,6 @@ Kernel.Init2 sei
.4 sta CLRWRITEAUX .4 sta CLRWRITEAUX
>LDYA PAKME.GP
>STYA ZPInBufPtr
>LDYAI A2osX.SYSCALL
jsr A2osX.Unpak
sta SETALTZP sta SETALTZP
lda RRAMWRAMBNK2 lda RRAMWRAMBNK2
@ -639,7 +634,9 @@ DetectZ80 ldx #Z80.300.L
ldx #Z80.1000.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 sta $1000-1,x 00000H for Z80
dex dex
bne .2 bne .2
@ -666,24 +663,21 @@ DetectZ80 ldx #Z80.300.L
.8 lda ZPPtr1+1 .8 lda ZPPtr1+1
and #$0F and #$0F
clc 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 .90 lda Z80.SAVE-1,x
*-------------------------------------- sta $1000-1,x
Z80.1000 .HS 31CFF3 START: LD SP,0F3CFh Init Stack dex
.HS 3EFF LD A,0FFH Set Flag bne .90
.HS 320B00 LD (FLAG),A
.HS C300F3 JP 0F300h
.HS 00 FLAG: .DB 0 pla
Z80.1000.L .EQ *-Z80.1000 plp
rts
*-------------------------------------- *--------------------------------------
DevMgrInit >LDYAI MSG.DEV DevMgrInit >LDYAI MSG.DEV
>SYSCALL2 puts >SYSCALL2 puts
@ -1438,6 +1432,25 @@ FD.BDEV .DA #S.FD.T.BDEV
*-------------------------------------- *--------------------------------------
FD.BDEV.NAME .AZ "s1d1" 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 MAN
SAVE usr/src/sys/kernel.s.init SAVE usr/src/sys/kernel.s.init
LOAD usr/src/sys/kernel.s LOAD usr/src/sys/kernel.s

6
SYS/KERNEL.S.MEM.txt
View File

@ -372,13 +372,13 @@ K.FreeMem.ERR >PUSHWI .1
>PUSHA >PUSHA
>PUSHBI 2 >PUSHBI 2
>SYSCALL2 printf >SYSCALL2 PrintF
* >DEBUG >DEBUG
lda #E.INVH lda #E.INVH
sec sec
rts rts
.1 .CZ "Free($%h),PID=%d\r\n" .1 .CZ "Free(%h),PID=%d\r\n"
*-------------------------------------- *--------------------------------------
K.FreeMem tay K.FreeMem tay
beq K.FreeMem.ERR Slot=0, reserved by Kernel beq K.FreeMem.ERR Slot=0, reserved by Kernel

14
SYS/KERNEL.S.txt
View File

@ -25,7 +25,6 @@ A2osX.Unpak >STYA ZPOutBufPtr
PAKME.MAIN .DA MAIN PAKME.MAIN .DA MAIN
PAKME.AUX .DA AUX PAKME.AUX .DA AUX
PAKME.GP .DA GP
PAKME.D1 .DA D1 PAKME.D1 .DA D1
PAKME.D2 .DA D2 PAKME.D2 .DA D2
PAKME.E0 .DA E0 PAKME.E0 .DA E0
@ -33,7 +32,8 @@ PAKME.E0 .DA E0
MAIN .DA #0 MAIN .DA #0
.DA MAIN.S .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.core
.INB usr/src/sys/kernel.s.drv .INB usr/src/sys/kernel.s.drv
.INB usr/src/sys/kernel.s.pft .INB usr/src/sys/kernel.s.pft
@ -65,14 +65,6 @@ AUX.B .PH Mem.XHiMem
.EP .EP
AUX.S .EQ *-AUX.B 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 D1 .DA #0
.DA D1.S .DA D1.S
@ -137,7 +129,7 @@ E0.S .EQ *-E0.B
.AS "PAKME" TAG .AS "PAKME" TAG
.DA $2000 BIN ORG .DA $2000 BIN ORG
.DA #6 Chunk Count .DA #5 Chunk Count
.DA PAKME.MAIN Chunks .DA PAKME.MAIN Chunks
.INB usr/src/sys/kernel.s.ctrl .INB usr/src/sys/kernel.s.ctrl