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
*--------------------------------------
CS.END
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
SSCANF.IP .AZ "%d.%d.%d.%d"

2
BIN/HTTPGET.S.txt
View File

@ -477,7 +477,7 @@ Wait.TimeOut sec
.9 rts
*--------------------------------------
CS.END
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
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
*--------------------------------------
CS.END
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1
*--------------------------------------
OptionList >PSTR "DEde"

2
BIN/NETSTAT.S.txt
View File

@ -159,7 +159,7 @@ CS.QUIT lda hLIBTCPIP
rts
*--------------------------------------
CS.END
LIBTCPIP .AZ "LIBTCPIP"
libtcpip .az "libtcpip"
hLIBTCPIP .BS 1
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"

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"
TAG .AZ "PAKME"
*--------------------------------------
LIBPAK .AZ "LIBPAK"
LIBPAK .AZ "libpak"
hLIB .BS 1
*--------------------------------------
.DUMMY

2
BIN/PING.S.txt
View File

@ -354,7 +354,7 @@ CS.QUIT lda hFrame
rts
*--------------------------------------
CS.END
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
MSG.USAGE .AS "Usage : PING <ip|host>\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
*--------------------------------------
CS.END
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1
MSG.USAGE .AZ "Usage : RPCDUMP <ip|host>"
MSG.UNKNOWN .AZ "%s: Unknown host\r\n"

2
BIN/TELNET.S.txt
View File

@ -287,7 +287,7 @@ CS.QUIT lda hSocket
rts
*--------------------------------------
CS.END
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
hLIBTCPIP .BS 1
MSG.IPKO .AZ "TCP/IP Not Loaded/Configured."
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
.DA 0 DCBPTR
.DA 0 BUFPTR
FD.DEV.NAME .AZ "ETH7"
FD.DEV.NAME .AZ "eth7"
*--------------------------------------
* Driver Code
*--------------------------------------

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

@ -156,7 +156,7 @@ FD.DEV .DA #S.FD.T.CDEV
.BS 2 DRVPTR
.DA 0 DCBPTR
.DA 0 BUFPTR
FD.DEV.NAME .AZ "ETH7"
FD.DEV.NAME .AZ "eth7"
*--------------------------------------
* 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
.DA 0 DCBPTR
.DA 0 BUFPTR
FD.DEV.NAME .AZ "COM1"
FD.DEV.NAME .AZ "com1"
*--------------------------------------
* 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
.DA 0 DCBPTR
.DA 0 BUFPTR
FD.DEV.NAME .AZ "ETH7"
FD.DEV.NAME .AZ "eth7"
*--------------------------------------
* Driver Code
*--------------------------------------

2
LIB/LIBBLKDEV.S.txt
View File

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

2
LIB/LIBCRYPT.S.txt
View File

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

2
LIB/LIBETALK.S.txt
View File

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

2
LIB/LIBGUI.S.txt
View File

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

2
LIB/LIBPAK.S.txt
View File

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

2
LIB/LIBTCPIP.S.txt
View File

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

2
SBIN/HTTPD.S.txt
View File

@ -342,7 +342,7 @@ CS.QUIT lda hSrvSocket
CS.END
*--------------------------------------
hLIBTCPIP .BS 1
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
MSG.TCPWAIT .AZ "HTTPD:Waiting for TCP/IP initializing..."
MSG.TCPIPERR .AZ "HTTPD:TCP/IP Not initialized properly."
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
*--------------------------------------
LIBCRYPT .AZ "LIBCRYPT"
LIBCRYPT .AZ "libcrypt"
hLIBCRYPT .BS 1
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"

2
SBIN/NETWORKD.S.txt
View File

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

2
SBIN/TELNETD.S.txt
View File

@ -234,7 +234,7 @@ CS.QUIT lda hSrvSocket
CS.END
*--------------------------------------
hLIBTCPIP .BS 1
LIBTCPIP .AZ "LIBTCPIP"
LIBTCPIP .AZ "libtcpip"
MSG.TCPWAIT .AZ "TELNETD:Waiting for TCP/IP initializing..."
MSG.INITOK .AZ "TELNETD:Init Ok, Listening."
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
* 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
beq BIN.Load.1
@ -116,19 +135,24 @@ BIN.Load ldx #0
jsr MEM.GetMemByID
lda (ZPMemMgrSPtr)
bpl .1 In Use?
ldy #S.MEM.BIN any BIN PATH in this slot?
lda (ZPMemMgrSPtr),y
beq .1
jsr K.GetMemPtr X unmodified, get pathname
>STYA .3+1
ldy #0
.2 lda K.Buf256,y
.3 cmp $ffff,y SELF MODIFIED
bne .1
iny
ora #0
bne .2
stx BIN.hMem save hMem
txa
jsr MEM.GetMemByID
@ -173,10 +197,11 @@ BIN.Load.1 >LDYA K.S.STAT+S.STAT.P.AUXTYPE
ply
jsr BIN.ComputeCSEndYA
jsr BIN.RelExe
>LDYAI K.Buf256 get back bin path
ldx #SYS.strdup make a copy of this string
jsr K.SYSCALL2
>SYSCALL2 strdup make a copy of this string
bcs .98
lda BIN.hMem Keep X=new string hMem
jsr MEM.GetMemByID X unmodified
lda (ZPMemMgrSPtr)

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

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