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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -5,11 +5,11 @@ NEW
.OR $2000 .OR $2000
.TF sbin/telnetd .TF sbin/telnetd
*-------------------------------------- *--------------------------------------
.INB INC/MACROS.I .INB inc/macros.i
.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.TELNET.I .INB inc/net.telnet.i
*-------------------------------------- *--------------------------------------
TIMEOUT.MAX .EQ 200 20 sec. TIMEOUT.MAX .EQ 200 20 sec.
*-------------------------------------- *--------------------------------------
@ -260,5 +260,5 @@ CmdBuf .BS 65
DS.END .ED DS.END .ED
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/SBIN/TELNETD.S SAVE usr/src/sbin/telnetd.s
ASM ASM

View File

@ -4,12 +4,13 @@ AUTO 4,1
.LIST OFF .LIST OFF
.OP 65C02 .OP 65C02
.OR $2000 .OR $2000
.TF sys/km/km.appletalk .TF sys/km.appletalk
*-------------------------------------- *--------------------------------------
.INB inc/macros.i .INB inc/macros.i
.INB inc/io.i .INB inc/io.i
.INB inc/monitor.i .INB inc/monitor.i
.INB inc/mli.i .INB inc/mli.i
.INB inc/appletalk.i
*-------------------------------------- *--------------------------------------
TmpPtr1 .EQ $0 TmpPtr1 .EQ $0
*-------------------------------------- *--------------------------------------
@ -110,7 +111,19 @@ AT.INIT >LDYAI MSG.INIT
.DA MLIGETPREFIX.PARAMS .DA MLIGETPREFIX.PARAMS
bcs .9 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 jsr PrintFYA
rts rts
@ -132,6 +145,7 @@ MSG.ATINIT .AZ "Calling ATInit...\n"
MSG.IRQ .AZ "Setting Up IRQ Vector...\n" MSG.IRQ .AZ "Setting Up IRQ Vector...\n"
MSG.PREFIX1 .AZ "Getting ProDOS Prefix...\n" MSG.PREFIX1 .AZ "Getting ProDOS Prefix...\n"
MSG.PREFIX2 .AZ "Setting AppleTalk 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.OK .AZ "AppleTalk Driver Successfully Installed.\n"
MSG.KO .AZ "AppleTalk Driver Install Failed : EC=%h.\n" MSG.KO .AZ "AppleTalk Driver Install Failed : EC=%h.\n"
*-------------------------------------- *--------------------------------------
@ -157,6 +171,12 @@ MLIGETPREFIX.PARAMS
.DA #1 .DA #1
.DA BUF.PREFIX .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 MAN
SAVE usr/src/sys/km.appletalk.s SAVE usr/src/sys/km.appletalk.s
ASM ASM