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

This commit is contained in:
Rémy GIBERT 2020-08-06 22:01:14 +02:00
parent dbea64256b
commit 446559ae88
5 changed files with 142 additions and 22 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.

BIN
.Floppies/A2OSX.TEST.po
View File

Binary file not shown.

42
BIN/ATBROWSE.S.txt
View File

@ -14,6 +14,7 @@ NEW
.DUMMY
.OR ZPBIN
ZS.START
ZPAtlkParams .BS 2
ZPPTR1 .BS 2
ZPPTR2 .BS 2
hBuf .BS 1
@ -39,6 +40,7 @@ CS.START cld
.DA CS.DOEVENT
.DA CS.QUIT
L.MSG.NOATK .DA MSG.NOATK
L.MSG.ATKERR .DA MSG.ATKERR
L.MSG.NETNODE .DA MSG.NETNODE
L.SEARCH.STRING .DA SEARCH.STRING
L.MSG.DUMP0 .DA MSG.DUMP0
@ -48,7 +50,7 @@ L.MSG.DUMP .DA MSG.DUMP
CS.INIT clc
rts
*--------------------------------------
CS.RUN lda #ATGetInfo
CS.RUN lda #AT.GetInfo
>STA.G P.GetInfo+1
>LEA.G P.GetInfo
@ -69,8 +71,7 @@ CS.RUN.ATKOK >PUSHW L.MSG.NETNODE
>PUSHBI 3
>SYSCALL PrintF
>STZ.G P.LookupName Sync
lda #ATLookupName
lda #AT.LookupName
>STA.G P.LookupName+1
>LDYA L.SEARCH.STRING
>STYA.G P.LookupName+$08 Entry Name Ptr
@ -84,15 +85,16 @@ CS.RUN.ATKOK >PUSHW L.MSG.NETNODE
>SYSCALL GetMem
bcs .99
>STYA.G P.LookupName+$12 BufPtr
>STYA ZPPTR1
stx hBuf
>STYA.G P.LookupName+$12 BufPtr
lda #16
>STA.G P.LookupName+$16 MaxMatch
>LEA.G P.LookupName
jsr A2osX.ATKCALL
jsr CS.RUN.GOATLK
.99 bcs .9
>LDA.G P.LookupName+$17
@ -139,20 +141,44 @@ CS.RUN.ATKOK >PUSHW L.MSG.NETNODE
.8 sec
.9 rts
*--------------------------------------
CS.RUN.GOATLK >STYA ZPAtlkParams
jsr A2osX.ATKCALL
bcc .9
pha
>PUSHW L.MSG.ATKERR
ldy #3
lda (ZPAtlkParams),y
>PUSHA
dey
lda (ZPAtlkParams),y
>PUSHA
>PUSHBI 2
>SYSCALL printf
pla
sec
.9 rts
*--------------------------------------
CS.DOEVENT sec
rts
*--------------------------------------
CS.QUIT lda hBuf
beq .8
>SYSCALL FreeMem
.8 clc
rts
*--------------------------------------
CS.END
MSG.NOATK .AZ "AppleTalk Not Loaded."
MSG.ATKERR .AZ "AppleTalk ERR:%H\r\n"
MSG.NETNODE .AZ "Network/Node:$%H/$%h\r\n"
SEARCH.STRING >PSTR "*:*@*"
SEARCH.STRING >PSTR "*:=@="
MSG.DUMP0 .AZ "Net Nod SkT En# Name"
MSG.DUMP .AZ "%H $%h $%h $%h %S\r\n"
*--------------------------------------

108
BIN/ATLOGON.S.txt
View File

@ -14,6 +14,7 @@ NEW
.DUMMY
.OR ZPBIN
ZS.START
ZPAtlkParams .BS 2
ZPPTR1 .BS 2
ZPPTR2 .BS 2
ZS.END .ED
@ -37,32 +38,112 @@ CS.START cld
.DA CS.DOEVENT
.DA CS.QUIT
L.MSG.NOATK .DA MSG.NOATK
L.MSG.ATKERR .DA MSG.ATKERR
L.MSG.USAGE .DA MSG.USAGE
.DA 0
*--------------------------------------
CS.INIT clc
rts
*--------------------------------------
CS.RUN lda #ATGetInfo
CS.RUN.USAGE >PUSHW L.MSG.USAGE
>PUSHBI 0
>SYSCALL PrintF
lda #E.SYN
sec
CS.RUN.USAGE.RTS
rts
*--------------------------------------
CS.RUN jsr CS.RUN.ATCHECK
bcs CS.RUN.USAGE.RTS
lda #AT.LookupName
>STA.G P.LookupName+1
lda #1
>SYSCALL ArgV
bcs CS.RUN.USAGE
>STYA.G P.LookupName+$08
lda #4
>STA.G P.LookupName+$C RetInt
>STA.G P.LookupName+$D RetCnt
>LDYAI 64
>STYA.G P.LookupName+$10 BufLen
>LDYA.G NameBuf
>STYA ZPPTR1
>STYA.G P.LookupName+$12 BufPtr
lda #1
>STA.G P.LookupName+$16 MaxMatch
>LEA.G P.LookupName
jsr CS.RUN.GOATLK
bcs .9
lda #AT.FILogin
>STA.G P.FILogin+1
>LEA.G P.FILogin+$4
>STYA ZPPTR2
ldy #3
.1 lda (ZPPTR1),y
sta (ZPPTR2),y
dey
bpl .1
>LDYAI 64
>STYA.G P.FILogin+$E
>LEA.G ReplyBuf
>STYA.G P.FILogin+$10
>LEA.G P.FILogin
jsr CS.RUN.GOATLK
bcs .9
.8 lda #0
sec
.9 rts
*--------------------------------------
CS.RUN.ATCHECK lda #AT.GetInfo
>STA.G P.GetInfo+1
>LEA.G P.GetInfo
jsr A2osX.ATKCALL
bcc .10
bcc .9
pha
>LDYA L.MSG.NOATK
>SYSCALL puts
pla
.9 sec
*--------------------------------------
CS.RUN.GOATLK >STYA ZPAtlkParams
jsr A2osX.ATKCALL
bcc .9
pha
>PUSHW L.MSG.ATKERR
ldy #3
lda (ZPAtlkParams),y
>PUSHA
dey
lda (ZPAtlkParams),y
>PUSHA
>PUSHBI 2
>SYSCALL printf
pla
sec
.99 rts
.10
lda #0
.8 sec
.9 rts
.9 rts
*--------------------------------------
CS.DOEVENT sec
rts
@ -71,13 +152,18 @@ CS.QUIT clc
rts
*--------------------------------------
CS.END
MSG.USAGE .AZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]"
MSG.NOATK .AZ "AppleTalk Not Loaded."
MSG.ATKERR .AZ "AppleTalk ERR:%H\r\n"
MSG.USAGE .AZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]"
*--------------------------------------
.DUMMY
.OR 0
DS.START
P.GetInfo .BS $0F
P.LookupName .BS $17
P.FILogin .BS $19
NameBuf .BS 64
ReplyBuf .BS 64
DS.END
.ED
*--------------------------------------

14
INC/APPLETALK.I.txt
View File

@ -3,8 +3,16 @@ PREFIX
AUTO 4,1
.LIST OFF
*--------------------------------------
ATGetInfo .EQ $02
ATLookupName .EQ $10
AT.GetInfo .EQ $02
AT.LookupName .EQ $10
AT.FILogin .EQ $2B
AT.FILoginCont .EQ $2C
AT.FILogout .EQ $2D
AT.FIMountVol .EQ $2E
AT.FIListSessions .EQ $3F
AT.FINaming .EQ $33
AT.FIGetSVersion .EQ $3A
*--------------------------------------
MAN
SAVE INC/APPLETALK.I
SAVE inc/appletalk.i