mirror of
https://github.com/A2osX/A2osX.git
synced 2024-08-29 20:29:34 +00:00
Kernel version 0.9 : simplified UTHERNET2 drivers.
This commit is contained in:
parent
bff3a943b7
commit
29f7200979
@ -0,0 +1,82 @@
|
|||||||
|
PR#3
|
||||||
|
PREFIX /A2OSX.BUILD
|
||||||
|
NEW
|
||||||
|
INC 1
|
||||||
|
AUTO 6
|
||||||
|
.LIST OFF
|
||||||
|
.OP 65C02
|
||||||
|
.OR $2000
|
||||||
|
.TF /A2OSX.BUILD/BIN/ATLOGON
|
||||||
|
*--------------------------------------
|
||||||
|
.INB /A2OSX.BUILD/INC/MACROS.I
|
||||||
|
.INB /A2OSX.BUILD/INC/A2OSX.I
|
||||||
|
.INB /A2OSX.BUILD/INC/PRODOS.I
|
||||||
|
.INB /A2OSX.BUILD/INC/MLI.ERR.I
|
||||||
|
.INB /A2OSX.BUILD/INC/APPLETALK.I
|
||||||
|
*--------------------------------------
|
||||||
|
ZPPTR1 .EQ ZPBIN
|
||||||
|
ZPPTR2 .EQ ZPBIN+2
|
||||||
|
*--------------------------------------
|
||||||
|
* File Header (16 Bytes)
|
||||||
|
*--------------------------------------
|
||||||
|
CS.START cld
|
||||||
|
jmp (.1,x)
|
||||||
|
.DA #$61 6502,Level 1 (65c02)
|
||||||
|
.DA #1 BIN Layout Version 1
|
||||||
|
.DA 0
|
||||||
|
.DA CS.END-CS.START Code Length To Relocate
|
||||||
|
.DA 0 Data Segment to Allocate
|
||||||
|
.DA 0
|
||||||
|
.DA 0
|
||||||
|
*--------------------------------------
|
||||||
|
* Relocation Table
|
||||||
|
*--------------------------------------
|
||||||
|
.1 .DA CS.INIT
|
||||||
|
.DA CS.RUN
|
||||||
|
.DA CS.DOEVENT
|
||||||
|
.DA CS.QUIT
|
||||||
|
L.MSG.NOATK .DA MSG.NOATK
|
||||||
|
.DA 0
|
||||||
|
*--------------------------------------
|
||||||
|
CS.INIT clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.RUN stz K.MLI.PARAMS Sync
|
||||||
|
lda #ATGetInfo
|
||||||
|
sta K.MLI.PARAMS+1
|
||||||
|
>MLICALL MLIATALK
|
||||||
|
bcc .10
|
||||||
|
|
||||||
|
pha
|
||||||
|
>LDYA L.MSG.NOATK
|
||||||
|
>SYSCALL CPrintFYA
|
||||||
|
pla
|
||||||
|
sec
|
||||||
|
.99 rts
|
||||||
|
|
||||||
|
.10
|
||||||
|
|
||||||
|
lda #0
|
||||||
|
.8 sec
|
||||||
|
.9 rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.DOEVENT sec
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.QUIT clc
|
||||||
|
rts
|
||||||
|
*--------------------------------------
|
||||||
|
CS.END
|
||||||
|
MSG.USAGE >CSTR "Usage : ATLOGON <SERVER> [USER] [PASSWORD]\r\n"
|
||||||
|
MSG.NOATK >CSTR "AppleTalk Not Loaded.\r\n"
|
||||||
|
*--------------------------------------
|
||||||
|
.DUMMY
|
||||||
|
.OR 0
|
||||||
|
DS.START
|
||||||
|
hBuf .BS 1
|
||||||
|
DS.END
|
||||||
|
.ED
|
||||||
|
*--------------------------------------
|
||||||
|
MAN
|
||||||
|
SAVE /A2OSX.SRC/BIN/ATLOGON.S
|
||||||
|
ASM
|
@ -371,8 +371,6 @@ WRITEBLOCK.1 >AR.SELECT S0.DIPR
|
|||||||
|
|
||||||
lda Offset+1
|
lda Offset+1
|
||||||
adc RXTX.Size+1
|
adc RXTX.Size+1
|
||||||
and /RXTX.MASK
|
|
||||||
ora /TX.BASE
|
|
||||||
sta W5100.DR,x write HI
|
sta W5100.DR,x write HI
|
||||||
pla
|
pla
|
||||||
sta W5100.DR,x write LO
|
sta W5100.DR,x write LO
|
||||||
|
@ -333,8 +333,6 @@ WRITEBLOCK.1 ldy #S.ETH.SRCMAC+5
|
|||||||
|
|
||||||
lda Offset+1
|
lda Offset+1
|
||||||
adc RXTX.Size+1
|
adc RXTX.Size+1
|
||||||
and /RXTX.MASK
|
|
||||||
ora /TX.BASE
|
|
||||||
sta W5100.DR,x write HI
|
sta W5100.DR,x write HI
|
||||||
pla
|
pla
|
||||||
sta W5100.DR,x write LO
|
sta W5100.DR,x write LO
|
||||||
|
Binary file not shown.
Binary file not shown.
Binary file not shown.
@ -87,7 +87,7 @@ AT.INIT >LDAXI MSG.INIT
|
|||||||
.DA MLIATALK.PARAMS
|
.DA MLIATALK.PARAMS
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
>LDAXI MSG.PRODOS
|
>LDAXI MSG.IRQ
|
||||||
jsr PrintCStrAX
|
jsr PrintCStrAX
|
||||||
|
|
||||||
jsr MLI
|
jsr MLI
|
||||||
@ -97,11 +97,17 @@ AT.INIT >LDAXI MSG.INIT
|
|||||||
|
|
||||||
cli
|
cli
|
||||||
|
|
||||||
|
>LDAXI MSG.PREFIX2
|
||||||
|
jsr PrintCStrAX
|
||||||
|
|
||||||
jsr GO.OLDMLI
|
jsr GO.OLDMLI
|
||||||
.DA #MLIGETPREFIX
|
.DA #MLIGETPREFIX
|
||||||
.DA MLIGETPREFIX.PARAMS
|
.DA MLIGETPREFIX.PARAMS
|
||||||
bcs .9
|
bcs .9
|
||||||
|
|
||||||
|
>LDAXI MSG.PREFIX2
|
||||||
|
jsr PrintCStrAX
|
||||||
|
|
||||||
jsr GO.WSCARD
|
jsr GO.WSCARD
|
||||||
.DA #MLISETPREFIX
|
.DA #MLISETPREFIX
|
||||||
.DA MLIGETPREFIX.PARAMS
|
.DA MLIGETPREFIX.PARAMS
|
||||||
@ -125,8 +131,10 @@ MSG.INIT >CSTR "AppleTalk Driver For A2osX\n"
|
|||||||
MSG.FAILED >CSTR "AppleTalk Workstation Card Failed Power Up Diagnostics : EC=%h.\n"
|
MSG.FAILED >CSTR "AppleTalk Workstation Card Failed Power Up Diagnostics : EC=%h.\n"
|
||||||
MSG.NOHW >CSTR "AppleTalk Workstation Card Not Found.\n"
|
MSG.NOHW >CSTR "AppleTalk Workstation Card Not Found.\n"
|
||||||
MSG.HWOK >CSTR "AppleTalk Workstation Card Type #%d Found In Slot #%d.\n"
|
MSG.HWOK >CSTR "AppleTalk Workstation Card Type #%d Found In Slot #%d.\n"
|
||||||
MSG.ATINIT >CSTR "Calling ATINIT...\n"
|
MSG.ATINIT >CSTR "Calling ATInit...\n"
|
||||||
MSG.PRODOS >CSTR "Registering Into ProDOS...\n"
|
MSG.IRQ >CSTR "Setting Up IRQ Vector...\n"
|
||||||
|
MSG.PREFIX1 >CSTR "Getting ProDOS Prefix...\n"
|
||||||
|
MSG.PREFIX2 >CSTR "Setting AppleTalk Prefix...\n"
|
||||||
MSG.OK >CSTR "AppleTalk Driver Successfully Installed.\n"
|
MSG.OK >CSTR "AppleTalk Driver Successfully Installed.\n"
|
||||||
MSG.KO >CSTR "AppleTalk Driver Install Failed : EC=%h.\n"
|
MSG.KO >CSTR "AppleTalk Driver Install Failed : EC=%h.\n"
|
||||||
*--------------------------------------
|
*--------------------------------------
|
||||||
|
Loading…
Reference in New Issue
Block a user