Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-11-18 21:06:07 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-12-03 16:42:17 +01:00
parent 5aa0e30dca
commit 9de0b5d3be
25 changed files with 53 additions and 28 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/DNSINFO.S.txt
View File

@ -176,7 +176,7 @@ CS.QUIT lda hLIBTCPIP
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured." MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
SSCANF.IP .AZ "%d.%d.%d.%d" SSCANF.IP .AZ "%d.%d.%d.%d"

2
BIN/HTTPGET.S.txt
View File

@ -477,7 +477,7 @@ Wait.TimeOut sec
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured." MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
MSG.USAGE .AS "Usage : HTTPGET <ip|host> [port]\r\n" MSG.USAGE .AS "Usage : HTTPGET <ip|host> [port]\r\n"

2
BIN/IPCONFIG.S.txt
View File

@ -344,7 +344,7 @@ Wait.TimeOut ldy #TimeOut
.INB USR/SRC/SBIN/IPCONFIG.S.ETC .INB USR/SRC/SBIN/IPCONFIG.S.ETC
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
*-------------------------------------- *--------------------------------------
OptionList >PSTR "DEde" OptionList >PSTR "DEde"

2
BIN/NETSTAT.S.txt
View File

@ -159,7 +159,7 @@ CS.QUIT lda hLIBTCPIP
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP .AZ "LIBTCPIP" libtcpip .az "libtcpip"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
MSG0 .AZ "Type Prot Local Remote Options Status" MSG0 .AZ "Type Prot Local Remote Options Status"
MSG1 .AZ "%s %s %03d.%03d.%03d.%03d:%05D %03d.%03d.%03d.%03d:%05D %b %s\r\n" MSG1 .AZ "%s %s %03d.%03d.%03d.%03d:%05D %03d.%03d.%03d.%03d:%05D %b %s\r\n"

2
BIN/PAKME.S.txt
View File

@ -554,7 +554,7 @@ MSG.STORE .AZ "Store : %5D Bytes, New Ofs=$%H\r\n"
MSG.E.IARC .AZ "Invalid/corrupt archive" MSG.E.IARC .AZ "Invalid/corrupt archive"
TAG .AZ "PAKME" TAG .AZ "PAKME"
*-------------------------------------- *--------------------------------------
LIBPAK .AZ "LIBPAK" LIBPAK .AZ "libpak"
hLIB .BS 1 hLIB .BS 1
*-------------------------------------- *--------------------------------------
.DUMMY .DUMMY

2
BIN/PING.S.txt
View File

@ -354,7 +354,7 @@ CS.QUIT lda hFrame
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured." MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
MSG.USAGE .AS "Usage : PING <ip|host>\r\n" MSG.USAGE .AS "Usage : PING <ip|host>\r\n"
.AZ " -1-9 : Ping Count\r\n" .AZ " -1-9 : Ping Count\r\n"

2
BIN/RPCDUMP.S.txt
View File

@ -216,7 +216,7 @@ DumpRPCFrame lda #S.UDP+24
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
MSG.USAGE .AZ "Usage : RPCDUMP <ip|host>" MSG.USAGE .AZ "Usage : RPCDUMP <ip|host>"
MSG.UNKNOWN .AZ "%s: Unknown host\r\n" MSG.UNKNOWN .AZ "%s: Unknown host\r\n"

2
BIN/TELNET.S.txt
View File

@ -287,7 +287,7 @@ CS.QUIT lda hSocket
rts rts
*-------------------------------------- *--------------------------------------
CS.END CS.END
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured." MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
MSG.USAGE .AZ "Usage : TELNET <ip|host> [port]" MSG.USAGE .AZ "Usage : TELNET <ip|host> [port]"

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

@ -150,7 +150,7 @@ FD.DEV .DA #S.FD.T.CDEV
.BS 2 DRVPTR .BS 2 DRVPTR
.DA 0 DCBPTR .DA 0 DCBPTR
.DA 0 BUFPTR .DA 0 BUFPTR
FD.DEV.NAME .AZ "ETH7" FD.DEV.NAME .AZ "eth7"
*-------------------------------------- *--------------------------------------
* Driver Code * Driver Code
*-------------------------------------- *--------------------------------------

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

@ -156,7 +156,7 @@ FD.DEV .DA #S.FD.T.CDEV
.BS 2 DRVPTR .BS 2 DRVPTR
.DA 0 DCBPTR .DA 0 DCBPTR
.DA 0 BUFPTR .DA 0 BUFPTR
FD.DEV.NAME .AZ "ETH7" FD.DEV.NAME .AZ "eth7"
*-------------------------------------- *--------------------------------------
* Driver Code * Driver Code
*-------------------------------------- *--------------------------------------

2
DRV/X.SSC.DRV.S.txt
View File

@ -176,7 +176,7 @@ FD.DEV .DA #S.FD.T.CDEV
.BS 2 DRVPTR .BS 2 DRVPTR
.DA 0 DCBPTR .DA 0 DCBPTR
.DA 0 BUFPTR .DA 0 BUFPTR
FD.DEV.NAME .AZ "COM1" FD.DEV.NAME .AZ "com1"
*-------------------------------------- *--------------------------------------
* Driver Code * Driver Code
*-------------------------------------- *--------------------------------------

2
DRV/X.U2.DRV.S.txt
View File

@ -178,7 +178,7 @@ FD.DEV .DA #S.FD.T.CDEV
.BS 2 DRVPTR .BS 2 DRVPTR
.DA 0 DCBPTR .DA 0 DCBPTR
.DA 0 BUFPTR .DA 0 BUFPTR
FD.DEV.NAME .AZ "ETH7" FD.DEV.NAME .AZ "eth7"
*-------------------------------------- *--------------------------------------
* Driver Code * Driver Code
*-------------------------------------- *--------------------------------------

2
LIB/LIBBLKDEV.S.txt
View File

@ -3,7 +3,7 @@ NEW
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF LIB/LIBBLKDEV .TF lib/libblkdev
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB INC/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I

2
LIB/LIBCRYPT.S.txt
View File

@ -3,7 +3,7 @@ NEW
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF LIB/LIBCRYPT .TF lib/libcrypt
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB INC/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I

2
LIB/LIBETALK.S.txt
View File

@ -3,7 +3,7 @@ NEW
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF LIB/LIBETALK .TF lib/libetalk
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB INC/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I

2
LIB/LIBGUI.S.txt
View File

@ -3,7 +3,7 @@ NEW
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF LIB/GUI/LIBGUI .TF lib/libgui
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB INC/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I

2
LIB/LIBPAK.S.txt
View File

@ -3,7 +3,7 @@ NEW
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF LIB/LIBPAK .TF lib/libpak
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB INC/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I

2
LIB/LIBTCPIP.S.txt
View File

@ -3,7 +3,7 @@ NEW
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF LIB/LIBTCPIP .TF lib/libtcpip
*-------------------------------------- *--------------------------------------
AUXPIPE .EQ 1 AUXPIPE .EQ 1
IPDEBUG .EQ 0 IPDEBUG .EQ 0

2
SBIN/HTTPD.S.txt
View File

@ -342,7 +342,7 @@ CS.QUIT lda hSrvSocket
CS.END CS.END
*-------------------------------------- *--------------------------------------
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
MSG.TCPWAIT .AZ "HTTPD:Waiting for TCP/IP initializing..." MSG.TCPWAIT .AZ "HTTPD:Waiting for TCP/IP initializing..."
MSG.TCPIPERR .AZ "HTTPD:TCP/IP Not initialized properly." MSG.TCPIPERR .AZ "HTTPD:TCP/IP Not initialized properly."
MSG.INITOK .AZ "HTTPD:Listening on port %D, root dir: %s.\r\n" MSG.INITOK .AZ "HTTPD:Listening on port %D, root dir: %s.\r\n"

2
SBIN/LOGIN.S.txt
View File

@ -473,7 +473,7 @@ CS.CLEANUP.hPW lda ZPhPW
*-------------------------------------- *--------------------------------------
CS.END CS.END
*-------------------------------------- *--------------------------------------
LIBCRYPT .AZ "LIBCRYPT" LIBCRYPT .AZ "libcrypt"
hLIBCRYPT .BS 1 hLIBCRYPT .BS 1
MSG.NOAUTH .AS "\r\n\r\nA2osX-Login:No ETC/PASSWD file present, Logged as ROOT.\r\n" MSG.NOAUTH .AS "\r\n\r\nA2osX-Login:No ETC/PASSWD file present, Logged as ROOT.\r\n"
.AS "Consider adding ROOT password with USERADD command.\r\n" .AS "Consider adding ROOT password with USERADD command.\r\n"

2
SBIN/NETWORKD.S.txt
View File

@ -263,7 +263,7 @@ ETCNETWORK .AZ "${BOOT}ETC/NETWORK"
DevID .BS 1 DevID .BS 1
LibCnt .BS 1 LibCnt .BS 1
hLIBs .BS LIB.MAX+1 for ending 0 if MAX libs hLIBs .BS LIB.MAX+1 for ending 0 if MAX libs
DEVNAME .AZ "/DEV/ETH1" DEVNAME .AZ "/dev/eth1"
IOCTL .BS S.IOCTL IOCTL .BS S.IOCTL
DCB.NIC .BS S.DCB.NIC DCB.NIC .BS S.DCB.NIC
*-------------------------------------- *--------------------------------------

2
SBIN/TELNETD.S.txt
View File

@ -234,7 +234,7 @@ CS.QUIT lda hSrvSocket
CS.END CS.END
*-------------------------------------- *--------------------------------------
hLIBTCPIP .BS 1 hLIBTCPIP .BS 1
LIBTCPIP .AZ "LIBTCPIP" LIBTCPIP .AZ "libtcpip"
MSG.TCPWAIT .AZ "TELNETD:Waiting for TCP/IP initializing..." MSG.TCPWAIT .AZ "TELNETD:Waiting for TCP/IP initializing..."
MSG.INITOK .AZ "TELNETD:Init Ok, Listening." MSG.INITOK .AZ "TELNETD:Init Ok, Listening."
MSG.TCPIPERR .AZ "TELNETD:TCP/IP Not initialized properly." MSG.TCPIPERR .AZ "TELNETD:TCP/IP Not initialized properly."

31
SYS/KERNEL.S.BIN.txt
View File

@ -106,7 +106,26 @@ BIN.Load.Cleanup.RTS
* Y,A = MEMPTR * Y,A = MEMPTR
* X = hMem of Code Segment * X = hMem of Code Segment
*-------------------------------------- *--------------------------------------
BIN.Load ldx #0 BIN.Load lda CORE.FSID
bne .11
ldx #$ff
.10 inx
lda K.Buf256,x
beq .11
cmp #'a'
bcc .10
cmp #'z'+1
bcs .10
eor #$20
sta K.Buf256,x
bra .10
.11 ldx #0
.1 cpx Mem.LastSlot .1 cpx Mem.LastSlot
beq BIN.Load.1 beq BIN.Load.1
@ -116,19 +135,24 @@ BIN.Load ldx #0
jsr MEM.GetMemByID jsr MEM.GetMemByID
lda (ZPMemMgrSPtr) lda (ZPMemMgrSPtr)
bpl .1 In Use? bpl .1 In Use?
ldy #S.MEM.BIN any BIN PATH in this slot? ldy #S.MEM.BIN any BIN PATH in this slot?
lda (ZPMemMgrSPtr),y lda (ZPMemMgrSPtr),y
beq .1 beq .1
jsr K.GetMemPtr X unmodified, get pathname jsr K.GetMemPtr X unmodified, get pathname
>STYA .3+1 >STYA .3+1
ldy #0 ldy #0
.2 lda K.Buf256,y .2 lda K.Buf256,y
.3 cmp $ffff,y SELF MODIFIED .3 cmp $ffff,y SELF MODIFIED
bne .1 bne .1
iny iny
ora #0 ora #0
bne .2 bne .2
stx BIN.hMem save hMem stx BIN.hMem save hMem
txa txa
jsr MEM.GetMemByID jsr MEM.GetMemByID
@ -173,10 +197,11 @@ BIN.Load.1 >LDYA K.S.STAT+S.STAT.P.AUXTYPE
ply ply
jsr BIN.ComputeCSEndYA jsr BIN.ComputeCSEndYA
jsr BIN.RelExe jsr BIN.RelExe
>LDYAI K.Buf256 get back bin path >LDYAI K.Buf256 get back bin path
ldx #SYS.strdup make a copy of this string >SYSCALL2 strdup make a copy of this string
jsr K.SYSCALL2
bcs .98 bcs .98
lda BIN.hMem Keep X=new string hMem lda BIN.hMem Keep X=new string hMem
jsr MEM.GetMemByID X unmodified jsr MEM.GetMemByID X unmodified
lda (ZPMemMgrSPtr) lda (ZPMemMgrSPtr)

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

@ -197,10 +197,10 @@ KConfigLoad >LDYAI MSG.KCREAD
.DA #MLIGETFILEINFOEX .DA #MLIGETFILEINFOEX
.DA MLIGETFILEINFOEX00 .DA MLIGETFILEINFOEX00
bcc .1 bcc .1
cmp #MLI.E.BADCALL eor #MLI.E.BADCALL
beq .2 beq .2
.1 inc CORE.FSID .1 ror CORE.FSID ProDOS.FX detected
bra .9 bra .9
.2 jsr MLI .2 jsr MLI
@ -1155,7 +1155,7 @@ RAMx .AZ "/RAMx"
I.ENV.BOOT .AZ "BOOT" I.ENV.BOOT .AZ "BOOT"
I.ENV.ROOT .AZ "ROOT" I.ENV.ROOT .AZ "ROOT"
I.ENV.PATH .AZ "PATH=${BOOT}SBIN/:${BOOT}BIN/" I.ENV.PATH .AZ "PATH=${BOOT}SBIN/:${BOOT}BIN/"
I.ENV.LIB .AZ "LIB=${BOOT}LIB/" I.ENV.LIB .AZ "LIB=${BOOT}lib/"
I.ENV.DRV .AZ "DRV=${BOOT}DRV/" I.ENV.DRV .AZ "DRV=${BOOT}DRV/"
CTRLR.SHELL .AZ "${BOOT}BIN/SH" CTRLR.SHELL .AZ "${BOOT}BIN/SH"
ETCINIT.CMDLINE .AZ "${ROOT}ETC/INIT" ETCINIT.CMDLINE .AZ "${ROOT}ETC/INIT"