Kernel 0.94

This commit is contained in:
Rémy GIBERT 2020-08-17 22:47:31 +02:00
parent 209c62c8c0
commit 9e695567b2
21 changed files with 142 additions and 134 deletions

Binary file not shown.

Binary file not shown.

View File

@ -3,12 +3,12 @@ NEW
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/AARP
.TF bin/aarp
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/ETH.I
.INB INC/LIBETALK.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/eth.i
.INB inc/libetalk.i
*--------------------------------------
TIMEOUT.MAX .EQ 40 40*100ms = 4 sec.
*--------------------------------------
@ -68,7 +68,7 @@ CS.RUN >LIBCALL hLIBETALK,LIBETALK.GETCFG
>PUSHW L.SSCANF.ADDR
lda #1
>SYSCALL ArgV
>SYSCALL sscanf
>SYSCALL SScanF
bcs CS.RUN.ERR
ldy #S.PS.ARGC
lda (pPS),y
@ -89,7 +89,7 @@ CS.RUN.QUERY jsr Init.Timeout
.1 >PUSHEA.G DST.MAC
>PUSHEA.G DST.ADDR
>LIBCALL hLIBETALK,LIBETALK.AARP.QUERY
>LIBCALL hLIBETALK,LIBETALK.AARP.Query
bcc .2 success, print & exit
jsr Wait.TimeOut
bcs .8
@ -128,17 +128,17 @@ CS.RUN.ADD >PUSHEA.G DST.MAC+5
>PUSHW L.SSCANF.MAC
lda #2
>SYSCALL ArgV
>SYSCALL sscanf
>SYSCALL SScanF
bcs .9
>PUSHEA.G DST.MAC
>PUSHEA.G DST.ADDR
>LIBCALL hLIBETALK,LIBETALK.AARP.ADD
>LIBCALL hLIBETALK,LIBETALK.AARP.Add
clc
.8 rts
.9 jmp CS.RUN.ERR
*--------------------------------------
CS.RUN.DUMP >LIBCALL hLIBETALK,LIBETALK.AARP.GETCACHE
CS.RUN.DUMP >LIBCALL hLIBETALK,LIBETALK.AARP.GetCache
>STYA ZPPTR1
>LDYA L.MSG0
>SYSCALL PutS
@ -221,12 +221,14 @@ MSG1 .AZ "$%h %5D %h:%h:%h:%h:%h:%h %D.%d\r\n"
MSG2 .AZ "%D%d is at %h:%h:%h:%h:%h:%h\r\n"
hLIBETALK .BS 1
*--------------------------------------
.DUMMY
.OR 0
DS.START
DST.ADDR .BS 4
DST.MAC .BS 6
TimeOut .BS 1
DS.END
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/AARP.S
SAVE usr/src/bin/aarp.s
ASM

View File

@ -60,7 +60,7 @@ CS.RUN lda #AT.GetInfo
pha
>LDYA L.MSG.NOATK
>SYSCALL puts
>SYSCALL PutS
pla
sec
rts
@ -101,7 +101,7 @@ CS.RUN.ATKOK >PUSHW L.MSG.NETNODE
beq .8
>LDYA L.MSG.DUMP0
>SYSCALL puts
>SYSCALL PutS
bcs .9
.1 >PUSHW L.MSG.DUMP
@ -157,7 +157,7 @@ CS.RUN.GOATLK >STYA ZPAtlkParams
>PUSHA
>PUSHBI 2
>SYSCALL printf
>SYSCALL PrintF
pla
sec
@ -187,8 +187,7 @@ MSG.DUMP .AZ "%H $%h $%h $%h %S\r\n"
DS.START
P.GetInfo .BS $0F
P.LookupName .BS $17
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE usr/src/bin/atbrowse.s

View File

@ -3,17 +3,17 @@ NEW
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/CAT
.TF bin/cat
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/MLI.I
.INB INC/MLI.E.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.i
.INB inc/mli.e.i
*--------------------------------------
.DUMMY
.OR ZPBIN
ZS.START
ZPPTR1 .BS 2
ZPPtr1 .BS 2
ZPBufPtr .BS 2
ByteIndex .BS 1
ArgCount .BS 1
@ -103,7 +103,7 @@ CS.RUN
*--------------------------------------
CS.RUN.LOOP ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL feof
>SYSCALL FEOF
bcs .90 IO error
tay
bne .10 no char
@ -122,7 +122,7 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
.10 lda bPause
bne CS.RUN.LOOP Pause...
.11 lda hFILE
.11 lda hFile
bne .2
.1 inc ArgIndex
lda ArgIndex
@ -135,13 +135,13 @@ CS.RUN.LOOP ldy #S.PS.hStdIn
>LDYA ZPPtr1
jsr CS.RUN.OPEN
.90 bcs .9
sta hFILE
sta hFile
.2 >PUSHWI 254 Leave room for CRLF
>PUSHW ZPBufPtr
lda hFILE
lda hFile
>SYSCALL fgets
>SYSCALL FGetS
bcs .7
jsr CS.RUN.PRINT
@ -203,7 +203,7 @@ CS.RUN.PRINT inc LineNum
beq .7
cmp #C.SPACE
bcc .5
>SYSCALL putchar
>SYSCALL PutChar
.99 bcs .9
bra .62
@ -251,9 +251,9 @@ CS.QUIT lda hBuf
beq CS.RUN.CLOSE
>SYSCALL FreeMem
CS.RUN.CLOSE lda hFILE
CS.RUN.CLOSE lda hFile
beq .8
stz hFILE
stz hFile
>SYSCALL FClose
.8 clc
rts
@ -311,9 +311,8 @@ ASCII >PSTR "NUL"
.DUMMY
.OR 0
DS.START
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/CAT.S
SAVE usr/src/bin/cat.s
ASM

View File

@ -108,7 +108,7 @@ CS.RUN >INC.G ArgCount
*--------------------------------------
CS.RUN.LOOP ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL feof
>SYSCALL FEOF
bcs .99
tay
@ -383,8 +383,7 @@ HexFileType .BS 1
.INB usr/src/bin/x.fileenum.g
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE usr/src/bin/chtyp.s

View File

@ -14,7 +14,7 @@ NEW
.DUMMY
.OR ZPBIN
ZS.START
ZPPTR1 .BS 2
ZPPtr1 .BS 2
ZPBufPtr .BS 2
ArgCount .BS 1
ArgIndex .BS 1
@ -97,7 +97,7 @@ CS.RUN lda #C.SPACE
jsr CS.RUN.NextArg
bcs .97
>SYSCALL atoi
>SYSCALL AToI
bcs .97
tax
@ -129,7 +129,7 @@ CS.RUN lda #C.SPACE
>SYSCALL ArgV
>PUSHYA
>LDYA ZPBufPtr
>SYSCALL strcpy
>SYSCALL StrCpy
jsr CS.RUN.OUT
bcs .9
@ -158,7 +158,7 @@ CS.RUN.LOOP >SLEEP
ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL fgets
>SYSCALL FGetS
bcs .8
lda (ZPBufPtr)

View File

@ -5,10 +5,10 @@ NEW
.OR $2000
.TF bin/dnsinfo
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/ETH.I
.INB INC/LIBTCPIP.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/eth.i
.INB inc/libtcpip.i
*--------------------------------------
.DUMMY
.OR ZPBIN
@ -94,14 +94,14 @@ CS.RUN.ADD lda #2
>PUSHEA.G DST.IP+3
>PUSHBI 8 4 PTRs
>SYSCALL sscanf
>SYSCALL SScanF
bcs .9
>PUSHEA.G DST.IP
lda #1
>SYSCALL ArgV
>PUSHYA
>LIBCALL hLIBTCPIP,LIBTCPIP.DNS.ADD
>LIBCALL hLIBTCPIP,LIBTCPIP.DNS.Add
bcs .99
lda #0 tell TSKMGR that all done ok, but
@ -172,7 +172,7 @@ CS.RUN.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GetCache
.7 dec EntryCount
bne .1
lda #0
lda #0
sec
rts
*--------------------------------------
@ -203,5 +203,5 @@ DST.IP .BS 4
DS.END
*--------------------------------------
MAN
SAVE USR/SRC/BIN/DNSINFO.S
SAVE usr/src/bin/dnsinfo.s
ASM

View File

@ -126,7 +126,7 @@ CS.RUN ldy #S.PS.ARGC
>SYSCALL ArgV
bcs .99
>SYSCALL atoi
>SYSCALL AToI
>STYA BlkCnt
bra .1
@ -551,7 +551,7 @@ CS.RUN.InitCat lda CatSize
>PUSHW A2osX.TIMER16
>PUSHW A2osX.RANDOM16
>PUSHBI 4
>SYSCALL sprintf
>SYSCALL SPrintF
rts
.8 clc

View File

@ -16,7 +16,7 @@ NEW
ZS.START
ArgIndex .BS 1
ArgPattern .BS 1
ZPPTR1 .BS 2
ZPPtr1 .BS 2
ZPPatternPtr .BS 2
ZPBufPtr .BS 2
hFile .BS 1
@ -25,8 +25,7 @@ LineNum .BS 2
char .BS 1
bIgnoreCase .BS 1
bLineNum .BS 1
ZS.END
.ED
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -134,7 +133,7 @@ CS.RUN.LOOP >SLEEP
>PUSHW ZPBufPtr
lda hFile
>SYSCALL fgets
>SYSCALL FGetS
bcs .9
inc LineNum
bne .2
@ -217,7 +216,7 @@ CS.RUN.toUpper bit bIgnoreCase
.9 rts
*--------------------------------------
CS.QUIT lda hFILE
CS.QUIT lda hFile
beq .1
>SYSCALL FClose

View File

@ -1,15 +1,14 @@
NEW
PREFIX
AUTO 4,1
AUTO 3,1
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/LSOF
.TF bin/lsof
*--------------------------------------
.INB INC/MACROS.I
.INB INC/MLI.I
.INB INC/A2OSX.I
.INB INC/KERNEL.I
.INB inc/macros.i
.INB inc/mli.i
.INB inc/a2osx.i
.INB inc/kernel.i
*--------------------------------------
ZPFDPtr .EQ ZPBIN
FILE.ID .EQ ZPBIN+2
@ -130,9 +129,8 @@ FD.T.PIPE .AZ "PIPE"
.DUMMY
.OR 0
DS.START
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/LSOF.S
SAVE usr/src/bin/lsof.s
ASM

View File

@ -5,9 +5,9 @@ NEW
.OR $2000
.TF bin/md5
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/MLI.E.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.e.i
*--------------------------------------
FILEBUF.SIZE .EQ 4096
*--------------------------------------
@ -189,5 +189,5 @@ MD5Buf .BS 33
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/MD5.S
SAVE usr/src/bin/md5.s
ASM

View File

@ -5,10 +5,10 @@ NEW
.OR $2000
.TF bin/memdump
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/KERNEL.I
.INB INC/IO.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/kernel.i
.INB inc/io.i
*--------------------------------------
.DUMMY
.OR ZPBIN
@ -23,8 +23,7 @@ ZPReadAux sta SETREADAUX
lda (ZPPTR1),y
sta CLRREADAUX
rts
ZS.END
.ED
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -437,9 +436,8 @@ MSG.FLAGSX .AS "UZXAidep"
DS.START
MemStat .BS S.MSTAT
MEM.FLAGS .BS 9
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/MEMDUMP.S
SAVE usr/src/bin/memdump.s
ASM

View File

@ -5,8 +5,8 @@ NEW
.OR $2000
.TF bin/mkdir
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB inc/macros.i
.INB inc/a2osx.i
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -60,9 +60,8 @@ CS.END
.DUMMY
.OR 0
DS.START
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/MKDIR.S
SAVE usr/src/bin/mkdir.s
ASM

View File

@ -16,7 +16,7 @@ PG.SIZE .EQ 23
.DUMMY
.OR ZPBIN
ZS.START
ZPPTR1 .BS 2
ZPPtr1 .BS 2
ZPBufPtr .BS 2
ArgCount .BS 1
hFile .BS 1
@ -28,8 +28,7 @@ bPage .BS 1
bEscCodes .BS 1
ArgIndex .BS 1
hBuf .BS 1
ZS.END
.ED
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -136,7 +135,7 @@ CS.RUN.LOOP jsr CS.RUN.GETLINE
lda bPage
beq .2
lda #C.FF
>SYSCALL putchar
>SYSCALL PutChar
.2 jsr CS.RUN.PRINT
inc LineCount
@ -211,7 +210,7 @@ CS.RUN.ERASE ldy #S.PS.hStdErr
>SYSCALL FPrintF
rts
*--------------------------------------
CS.RUN.GETC lda hFILE
CS.RUN.GETC lda hFile
bne .1
ldy #S.PS.hStdErr
@ -229,7 +228,7 @@ CS.RUN.GETLINE >PUSHWI 256
ldy #S.PS.hStdIn
lda (pPS),y
.1 >SYSCALL fgets
.1 >SYSCALL FGetS
rts
*--------------------------------------
CS.RUN.PRINT lda bLineNum
@ -262,7 +261,7 @@ CS.QUIT lda hBuf
>SYSCALL FreeMem
.1 lda hFILE
.1 lda hFile
beq .2
>SYSCALL FClose
@ -292,8 +291,7 @@ MSG.PauseErase .AZ "\r\e[2K"
.DUMMY
.OR 0
DS.START
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE usr/src/bin/more.s

View File

@ -5,10 +5,10 @@ NEW
.OR $2000
.TF bin/netstat
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/ETH.I
.INB INC/LIBTCPIP.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/eth.i
.INB inc/libtcpip.i
*--------------------------------------
.DUMMY
.OR ZPBIN
@ -183,7 +183,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 %3d.%3d.%3d.%3d:%5D %3d.%3d.%3d.%3d:%5D %b %s\r\n"
@ -215,9 +215,8 @@ MSG1.S.INV .AZ "???"
.DUMMY
.OR 0
DS.START
DS.END
.ED
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/NETSTAT.S
SAVE usr/src/bin/netstat.s
ASM

View File

@ -1,14 +1,13 @@
NEW
PREFIX
AUTO 4,1
AUTO 3,1
.LIST OFF
.OP 65C02
.OR $2000
.TF BIN/NSCUTIL
.TF bin/nscutil
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/MLI.E.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/mli.e.i
*--------------------------------------
ZPPtr1 .EQ ZPBIN
*--------------------------------------
@ -78,7 +77,7 @@ CS.RUN.READ jsr NSC.Init
CS.RUN.SET lda #1
>SYSCALL ArgV
>STYA ZPPtr1
>SYSCALL strlen
>SYSCALL StrLen
cpy #17
bne .9
ldy #0
@ -371,5 +370,5 @@ DS.START
DS.END
*--------------------------------------
MAN
SAVE USR/SRC/BIN/NSCUTIL.S
SAVE usr/src/bin/nscutil.s
ASM

View File

@ -218,7 +218,7 @@ CS.RUN.SEND.ECHO
>SLEEP
lda Identifier
>STA.G Request-S.IP+S.ICMP.IDENTIFIER+1
>STA.G Request+S.ICMP.IDENTIFIER-S.IP+1
lda Identifier+1
dey
@ -230,7 +230,7 @@ CS.RUN.SEND.ECHO
inc Sequence+1
.1 lda Sequence
>STA.G Request-S.IP+S.ICMP.SEQUENCE+1
>STA.G Request+S.ICMP.SEQUENCE-S.IP+1
lda Sequence+1
dey
@ -249,7 +249,7 @@ CS.RUN.WAIT.REPLY
>SLEEP
ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL feof
>SYSCALL FEOF
bcs CS.RUN.ERR
tay
bne .1

View File

@ -5,11 +5,11 @@ NEW
.OR $2000
.TF bin/telnet
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/ETH.I
.INB INC/LIBTCPIP.I
.INB INC/NET.TELNET.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/eth.i
.INB inc/libtcpip.i
.INB inc/net.telnet.i
*--------------------------------------
TIMEOUT.MAX .EQ 200 20 sec.
BUFSIZE .EQ 256
@ -23,8 +23,7 @@ ZPBufLen .BS 2
hBuf .BS 1
hSocket .BS 1
TimeOut .BS 1
ZS.END
.ED
ZS.END .ED
*--------------------------------------
* File Header (16 Bytes)
*--------------------------------------
@ -98,9 +97,9 @@ CS.RUN.IPOK ldy #S.PS.ARGC
lda #1
>SYSCALL ArgV
>PUSHYA
>LIBCALL hLIBTCPIP,LIBTCPIP.HST.GETBYNAME
>LIBCALL hLIBTCPIP,LIBTCPIP.HST.GetByName
bcc CS.RUN.HOSTOK
lda TimeOut
lda TimeOut
bne .2
>PUSHW L.MSG.UNKNOWN
@ -121,7 +120,7 @@ CS.RUN.IPOK ldy #S.PS.ARGC
CS.RUN.HOSTOK lda #2
>SYSCALL ArgV
bcs CS.RUN.PORTOK
>SYSCALL atoi
>SYSCALL AToI
>STYA SA.REMOTE+S.SOCKADDR.PORT
CS.RUN.PORTOK >PUSHW L.MSG.HOSTOK
@ -208,13 +207,13 @@ CS.RUN.LOOP >SLEEP
>PUSHW ZPBufPtr
ldy #S.PS.hStdOut
lda (pPS),y
>SYSCALL fwrite
>SYSCALL FWrite
bcs .11
.2 ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL feof
>SYSCALL FEOF
bcs .11 CS.RUN.IOERR
tay
bne CS.RUN.LOOP EOF = true, no char from STDIN
@ -223,7 +222,7 @@ CS.RUN.LOOP >SLEEP
>PUSHW ZPBufPtr
ldy #S.PS.hStdIn
lda (pPS),y
>SYSCALL fread
>SYSCALL FRead
.11 bcs CS.RUN.IOERR
.3 >STYA ZPBufLen
@ -323,5 +322,5 @@ DS.END
.ED
*--------------------------------------
MAN
SAVE USR/SRC/BIN/TELNET.S
SAVE usr/src/bin/telnet.s
ASM

View File

@ -5,11 +5,11 @@ NEW
.OR $2000
.TF sbin/telnetd
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/ETH.I
.INB INC/LIBTCPIP.I
.INB INC/NET.TELNET.I
.INB inc/macros.i
.INB inc/a2osx.i
.INB inc/eth.i
.INB inc/libtcpip.i
.INB inc/net.telnet.i
*--------------------------------------
TIMEOUT.MAX .EQ 200 20 sec.
*--------------------------------------
@ -260,5 +260,5 @@ CmdBuf .BS 65
DS.END .ED
*--------------------------------------
MAN
SAVE USR/SRC/SBIN/TELNETD.S
SAVE usr/src/sbin/telnetd.s
ASM

View File

@ -4,12 +4,13 @@ AUTO 4,1
.LIST OFF
.OP 65C02
.OR $2000
.TF sys/km/km.appletalk
.TF sys/km.appletalk
*--------------------------------------
.INB inc/macros.i
.INB inc/io.i
.INB inc/monitor.i
.INB inc/mli.i
.INB inc/appletalk.i
*--------------------------------------
TmpPtr1 .EQ $0
*--------------------------------------
@ -110,7 +111,19 @@ AT.INIT >LDYAI MSG.INIT
.DA MLIGETPREFIX.PARAMS
bcs .9
>LDYAI MSG.OK
jsr MLI
.DA #MLIATALK
.DA MLI.AT.FINaming
bcc .8
lda MLI.AT.FINaming+2
pha
lda MLI.AT.FINaming+3
pha
>LDYAI MSG.AFPKO
jsr PrintFYA
.8 >LDYAI MSG.OK
jsr PrintFYA
rts
@ -132,6 +145,7 @@ MSG.ATINIT .AZ "Calling ATInit...\n"
MSG.IRQ .AZ "Setting Up IRQ Vector...\n"
MSG.PREFIX1 .AZ "Getting ProDOS Prefix...\n"
MSG.PREFIX2 .AZ "Setting AppleTalk Prefix...\n"
MSG.AFPKO .AZ "WARNING : Enabling AFP failed : EC=%h%h.\n"
MSG.OK .AZ "AppleTalk Driver Successfully Installed.\n"
MSG.KO .AZ "AppleTalk Driver Install Failed : EC=%h.\n"
*--------------------------------------
@ -157,6 +171,12 @@ MLIGETPREFIX.PARAMS
.DA #1
.DA BUF.PREFIX
*--------------------------------------
MLI.AT.FINaming .DA #0 Synchonous
.DA #AT.FINaming
.BS 2 Result Code
.DA #%11000000 set Bit 7 & 6
.DA #%10000000 b7=1:Use AFP long Name, b6=0:Update ProDOS dev table
*--------------------------------------
MAN
SAVE usr/src/sys/km.appletalk.s
ASM