mirror of
https://github.com/A2osX/A2osX.git
synced 2024-10-01 22:57:43 +00:00
Kernel 0.94
This commit is contained in:
parent
643d2b816c
commit
875009f09b
Binary file not shown.
Binary file not shown.
@ -51,12 +51,67 @@ L.MSG.DUMP .DA MSG.DUMP
|
|||||||
CS.INIT clc
|
CS.INIT clc
|
||||||
CS.INIT.RTS rts
|
CS.INIT.RTS rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN jsr CS.RUN.ATCHECK
|
CS.RUN jsr CS.RUN.GetInfo
|
||||||
bcs CS.INIT.RTS
|
bcs .9
|
||||||
|
|
||||||
jsr CS.RUN.MyZone
|
jsr CS.RUN.GetMyZone
|
||||||
bcs CS.INIT.RTS
|
|
||||||
|
|
||||||
|
jsr CS.RUN.LookupName
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
|
||||||
|
sec
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.GetInfo lda #AT.GetInfo
|
||||||
|
>STA.G P.GetInfo+1
|
||||||
|
|
||||||
|
>LEA.G P.GetInfo
|
||||||
|
|
||||||
|
jsr A2osX.ATKCALL
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>PUSHW L.MSG.GETINFO
|
||||||
|
>PUSHB.G P.GetInfo+$09 THIS-NET
|
||||||
|
>PUSHB.G P.GetInfo+$08 THIS-NET
|
||||||
|
>PUSHB.G P.GetInfo+$0E NODE
|
||||||
|
|
||||||
|
>PUSHB.G P.GetInfo+$0A BRIDGE
|
||||||
|
|
||||||
|
>PUSHB.G P.GetInfo+$0D HARDWARE ID
|
||||||
|
>PUSHB.G P.GetInfo+$0C HARDWARE ID
|
||||||
|
>PUSHB.G P.GetInfo+$0B ROM VERSION
|
||||||
|
|
||||||
|
>PUSHBI 7
|
||||||
|
>SYSCALL PrintF
|
||||||
|
rts
|
||||||
|
|
||||||
|
.9 pha
|
||||||
|
>LDYA L.MSG.NOATK
|
||||||
|
>SYSCALL PutS
|
||||||
|
pla
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.GetMyZone
|
||||||
|
>LEA.G ZoneBuf
|
||||||
|
>STYA.G P.GetMyZone+$08
|
||||||
|
lda #4
|
||||||
|
>STA.G P.GetMyZone+$0C RetInt
|
||||||
|
>STA.G P.GetMyZone+$0D RetCnt
|
||||||
|
|
||||||
|
>LEA.G P.GetMyZone
|
||||||
|
ldx #AT.GetMyZone
|
||||||
|
jsr CS.RUN.GOATLK
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>PUSHW L.MSG.MYZONE
|
||||||
|
>PUSHEA.G ZoneBuf
|
||||||
|
>PUSHBI 2
|
||||||
|
>SYSCALL PrintF
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.LookupName
|
||||||
>LDYA L.SEARCH.STRING
|
>LDYA L.SEARCH.STRING
|
||||||
>STYA.G P.LookupName+$08 Entry Name Ptr
|
>STYA.G P.LookupName+$08 Entry Name Ptr
|
||||||
|
|
||||||
@ -121,52 +176,7 @@ CS.RUN jsr CS.RUN.ATCHECK
|
|||||||
>DEC.G P.LookupName+$17
|
>DEC.G P.LookupName+$17
|
||||||
bne .1
|
bne .1
|
||||||
|
|
||||||
lda #0
|
.8 clc
|
||||||
|
|
||||||
.8 sec
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
|
||||||
CS.RUN.ATCHECK lda #AT.GetInfo
|
|
||||||
>STA.G P.GetInfo+1
|
|
||||||
|
|
||||||
>LEA.G P.GetInfo
|
|
||||||
|
|
||||||
jsr A2osX.ATKCALL
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
>PUSHW L.MSG.GETINFO
|
|
||||||
>PUSHW.G P.GetInfo+$08 THIS-NET
|
|
||||||
>PUSHB.G P.GetInfo+$0E NODE
|
|
||||||
>PUSHB.G P.GetInfo+$0A BRIDGE
|
|
||||||
|
|
||||||
>PUSHW.G P.GetInfo+$0A HARDWARE ID
|
|
||||||
>PUSHB.G P.GetInfo+$0A ROM VERSION
|
|
||||||
>PUSHBI 7
|
|
||||||
>SYSCALL PrintF
|
|
||||||
rts
|
|
||||||
|
|
||||||
.9 pha
|
|
||||||
>LDYA L.MSG.NOATK
|
|
||||||
>SYSCALL PutS
|
|
||||||
pla
|
|
||||||
sec
|
|
||||||
rts
|
|
||||||
*--------------------------------------
|
|
||||||
CS.RUN.MyZone >LEA.G ZoneBuf
|
|
||||||
>STYA.G P.GetMyZone+$08
|
|
||||||
lda #4
|
|
||||||
>STA.G P.GetMyZone+$0C RetInt
|
|
||||||
>STA.G P.GetMyZone+$0D RetCnt
|
|
||||||
|
|
||||||
>LEA.G P.GetMyZone
|
|
||||||
ldx #AT.GetMyZone
|
|
||||||
jsr CS.RUN.GOATLK
|
|
||||||
bcs .9
|
|
||||||
|
|
||||||
>PUSHW L.MSG.MYZONE
|
|
||||||
>PUSHEA.G ZoneBuf
|
|
||||||
>PUSHBI 2
|
|
||||||
>SYSCALL PrintF
|
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.GOATLK >STYA ZPAtlkParams
|
CS.RUN.GOATLK >STYA ZPAtlkParams
|
||||||
@ -183,6 +193,10 @@ CS.RUN.GOATLK >STYA ZPAtlkParams
|
|||||||
|
|
||||||
>PUSHW L.MSG.ATKERR
|
>PUSHW L.MSG.ATKERR
|
||||||
|
|
||||||
|
ldy #1
|
||||||
|
lda (ZPAtlkParams),y
|
||||||
|
>PUSHA
|
||||||
|
|
||||||
ldy #3
|
ldy #3
|
||||||
lda (ZPAtlkParams),y
|
lda (ZPAtlkParams),y
|
||||||
>PUSHA
|
>PUSHA
|
||||||
@ -190,7 +204,7 @@ CS.RUN.GOATLK >STYA ZPAtlkParams
|
|||||||
lda (ZPAtlkParams),y
|
lda (ZPAtlkParams),y
|
||||||
>PUSHA
|
>PUSHA
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 3
|
||||||
>SYSCALL PrintF
|
>SYSCALL PrintF
|
||||||
|
|
||||||
pla
|
pla
|
||||||
@ -209,10 +223,10 @@ CS.QUIT lda hBuf
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
MSG.NOATK .AZ "AppleTalk Not Loaded."
|
MSG.NOATK .AZ "AppleTalk Not Loaded."
|
||||||
MSG.ATKERR .AZ "AppleTalk ERR:%H\r\n"
|
MSG.ATKERR .AZ "AppleTalk Call %h, ERR:%H\r\n"
|
||||||
MSG.GETINFO .AS "Network/Node:$%H/$%h\r\n"
|
MSG.GETINFO .AS "Network/Node:$%h%h/$%h\r\n"
|
||||||
.AS "Bridge : $%h\r\n"
|
.AS "Bridge : $%h\r\n"
|
||||||
.AZ "HWID/ROMVER :$%H/$%h\r\n"
|
.AZ "HWID/ROMVER :$%h%h/$%h\r\n"
|
||||||
MSG.MYZONE .AZ "Zone Name :%S\r\n"
|
MSG.MYZONE .AZ "Zone Name :%S\r\n"
|
||||||
SEARCH.STRING >PSTR "=:=@*"
|
SEARCH.STRING >PSTR "=:=@*"
|
||||||
MSG.DUMP0 .AZ "Net Nod SkT En# Name"
|
MSG.DUMP0 .AZ "Net Nod SkT En# Name"
|
||||||
|
@ -40,29 +40,70 @@ CS.START cld
|
|||||||
L.MSG.NOATK .DA MSG.NOATK
|
L.MSG.NOATK .DA MSG.NOATK
|
||||||
L.MSG.ATKERR .DA MSG.ATKERR
|
L.MSG.ATKERR .DA MSG.ATKERR
|
||||||
L.MSG.USAGE .DA MSG.USAGE
|
L.MSG.USAGE .DA MSG.USAGE
|
||||||
|
L.MSG.GETINFO .DA MSG.GETINFO
|
||||||
.DA 0
|
.DA 0
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.INIT clc
|
CS.INIT clc
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
CS.RUN ldy #S.PS.ARGC
|
||||||
|
lda (pPs),y
|
||||||
|
beq CS.RUN.USAGE
|
||||||
|
|
||||||
|
jsr CS.RUN.GetInfo
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
jsr CS.RUN.LookupName
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
jsr CS.RUN.FILogin
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
sec
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
CS.RUN.USAGE >PUSHW L.MSG.USAGE
|
CS.RUN.USAGE >PUSHW L.MSG.USAGE
|
||||||
>PUSHBI 0
|
>PUSHBI 0
|
||||||
>SYSCALL PrintF
|
>SYSCALL PrintF
|
||||||
|
|
||||||
lda #E.SYN
|
lda #E.SYN
|
||||||
sec
|
sec
|
||||||
CS.RUN.USAGE.RTS
|
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN jsr CS.RUN.ATCHECK
|
CS.RUN.GetInfo lda #AT.GetInfo
|
||||||
bcs CS.RUN.USAGE.RTS
|
>STA.G P.GetInfo+1
|
||||||
|
|
||||||
lda #AT.LookupName
|
>LEA.G P.GetInfo
|
||||||
>STA.G P.LookupName+1
|
|
||||||
|
|
||||||
|
jsr A2osX.ATKCALL
|
||||||
|
bcs .9
|
||||||
|
|
||||||
|
>PUSHW L.MSG.GETINFO
|
||||||
|
>PUSHB.G P.GetInfo+$09 THIS-NET
|
||||||
|
>PUSHB.G P.GetInfo+$08 THIS-NET
|
||||||
|
>PUSHB.G P.GetInfo+$0E NODE
|
||||||
|
|
||||||
|
>PUSHB.G P.GetInfo+$0A BRIDGE
|
||||||
|
|
||||||
|
>PUSHB.G P.GetInfo+$0D HARDWARE ID
|
||||||
|
>PUSHB.G P.GetInfo+$0C HARDWARE ID
|
||||||
|
>PUSHB.G P.GetInfo+$0B ROM VERSION
|
||||||
|
|
||||||
|
>PUSHBI 7
|
||||||
|
>SYSCALL PrintF
|
||||||
|
rts
|
||||||
|
|
||||||
|
.9 pha
|
||||||
|
>LDYA L.MSG.NOATK
|
||||||
|
>SYSCALL PutS
|
||||||
|
pla
|
||||||
|
sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN.LookupName
|
||||||
lda #1
|
lda #1
|
||||||
>SYSCALL ArgV
|
>SYSCALL ArgV
|
||||||
bcs CS.RUN.USAGE
|
|
||||||
|
|
||||||
>STYA.G P.LookupName+$08
|
>STYA.G P.LookupName+$08
|
||||||
|
|
||||||
lda #4
|
lda #4
|
||||||
@ -78,13 +119,10 @@ CS.RUN jsr CS.RUN.ATCHECK
|
|||||||
>STA.G P.LookupName+$16 MaxMatch
|
>STA.G P.LookupName+$16 MaxMatch
|
||||||
|
|
||||||
>LEA.G P.LookupName
|
>LEA.G P.LookupName
|
||||||
jsr CS.RUN.GOATLK
|
ldx #AT.LookupName
|
||||||
bcs .9
|
jmp CS.RUN.GOATLK
|
||||||
|
*--------------------------------------
|
||||||
lda #AT.FILogin
|
CS.RUN.FILogin >LEA.G P.FILogin+$4
|
||||||
>STA.G P.FILogin+1
|
|
||||||
|
|
||||||
>LEA.G P.FILogin+$4
|
|
||||||
>STYA ZPPTR2
|
>STYA ZPPTR2
|
||||||
|
|
||||||
ldy #3
|
ldy #3
|
||||||
@ -101,29 +139,16 @@ CS.RUN jsr CS.RUN.ATCHECK
|
|||||||
>STYA.G P.FILogin+$10
|
>STYA.G P.FILogin+$10
|
||||||
|
|
||||||
>LEA.G P.FILogin
|
>LEA.G P.FILogin
|
||||||
jsr CS.RUN.GOATLK
|
ldx #AT.FILogin
|
||||||
bcs .9
|
jmp CS.RUN.GOATLK
|
||||||
|
|
||||||
|
|
||||||
.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 .9
|
|
||||||
|
|
||||||
pha
|
|
||||||
>LDYA L.MSG.NOATK
|
|
||||||
>SYSCALL PutS
|
|
||||||
pla
|
|
||||||
sec
|
|
||||||
.9 rts
|
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.RUN.GOATLK >STYA ZPAtlkParams
|
CS.RUN.GOATLK >STYA ZPAtlkParams
|
||||||
|
|
||||||
|
ldy #1
|
||||||
|
txa
|
||||||
|
sta (ZPAtlkParams),y
|
||||||
|
|
||||||
|
>LDYA ZPAtlkParams
|
||||||
jsr A2osX.ATKCALL
|
jsr A2osX.ATKCALL
|
||||||
bcc .9
|
bcc .9
|
||||||
|
|
||||||
@ -131,6 +156,10 @@ CS.RUN.GOATLK >STYA ZPAtlkParams
|
|||||||
|
|
||||||
>PUSHW L.MSG.ATKERR
|
>PUSHW L.MSG.ATKERR
|
||||||
|
|
||||||
|
ldy #1
|
||||||
|
lda (ZPAtlkParams),y
|
||||||
|
>PUSHA
|
||||||
|
|
||||||
ldy #3
|
ldy #3
|
||||||
lda (ZPAtlkParams),y
|
lda (ZPAtlkParams),y
|
||||||
>PUSHA
|
>PUSHA
|
||||||
@ -138,12 +167,11 @@ CS.RUN.GOATLK >STYA ZPAtlkParams
|
|||||||
lda (ZPAtlkParams),y
|
lda (ZPAtlkParams),y
|
||||||
>PUSHA
|
>PUSHA
|
||||||
|
|
||||||
>PUSHBI 2
|
>PUSHBI 3
|
||||||
>SYSCALL PrintF
|
>SYSCALL PrintF
|
||||||
|
|
||||||
pla
|
pla
|
||||||
sec
|
sec
|
||||||
|
|
||||||
.9 rts
|
.9 rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.DOEVENT sec
|
CS.DOEVENT sec
|
||||||
@ -154,7 +182,10 @@ CS.QUIT clc
|
|||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
CS.END
|
CS.END
|
||||||
MSG.NOATK .AZ "AppleTalk Not Loaded."
|
MSG.NOATK .AZ "AppleTalk Not Loaded."
|
||||||
MSG.ATKERR .AZ "AppleTalk ERR:%H\r\n"
|
MSG.ATKERR .AZ "AppleTalk Call %h, ERR:%H\r\n"
|
||||||
|
MSG.GETINFO .AS "Network/Node:$%h%h/$%h\r\n"
|
||||||
|
.AS "Bridge : $%h\r\n"
|
||||||
|
.AZ "HWID/ROMVER :$%h%h/$%h\r\n"
|
||||||
MSG.USAGE .AZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]"
|
MSG.USAGE .AZ "Usage : ATLOGON <SERVER> [USER] [PASSWORD]"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
.DUMMY
|
.DUMMY
|
||||||
|
@ -188,6 +188,9 @@ BIN.Load.1 >PUSHWI K.Buf256
|
|||||||
>STYA ZPPtr1 set ZPPtr1 -> New Code start
|
>STYA ZPPtr1 set ZPPtr1 -> New Code start
|
||||||
|
|
||||||
jsr BIN.ComputeOffsetYA YA = actual load address
|
jsr BIN.ComputeOffsetYA YA = actual load address
|
||||||
|
|
||||||
|
jsr Mem.SetOwnerPS0 this CS is owned by PS 0
|
||||||
|
|
||||||
ldy #H.BIN.CS.SIZE get Code Len
|
ldy #H.BIN.CS.SIZE get Code Len
|
||||||
lda (ZPPtr1),y
|
lda (ZPPtr1),y
|
||||||
pha
|
pha
|
||||||
@ -201,6 +204,8 @@ BIN.Load.1 >PUSHWI K.Buf256
|
|||||||
jsr K.strdup make a copy of this string
|
jsr K.strdup make a copy of this string
|
||||||
bcs .98
|
bcs .98
|
||||||
|
|
||||||
|
jsr Mem.SetOwnerPS0 Make BINPATH owned by PS0
|
||||||
|
|
||||||
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)
|
||||||
|
@ -445,8 +445,10 @@ MEM.GetMemByID sta ZPMemMgrSPtr
|
|||||||
sta ZPMemMgrSPtr+1
|
sta ZPMemMgrSPtr+1
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
Mem.SetOwner ldy #S.MEM.OWNERPID
|
Mem.SetOwnerPS0 lda #0
|
||||||
lda CORE.LastPSID
|
.HS 2C BIT ABS
|
||||||
|
Mem.SetOwner lda CORE.LastPSID
|
||||||
|
ldy #S.MEM.OWNERPID
|
||||||
sta (ZPMemMgrSPtr),y
|
sta (ZPMemMgrSPtr),y
|
||||||
rts
|
rts
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
Loading…
Reference in New Issue
Block a user