Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-08 08:33:37 +00:00
Code Issues Projects Releases Wiki Activity

Kernel version 0.9 : simplified UTHERNET2 drivers.

Browse Source
This commit is contained in:
Rémy GIBERT 2017-04-29 14:34:16 +02:00
parent bff3a943b7
commit 29f7200979
7 changed files with 93 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

82
BIN/ATLOGON.S.txt
View File

@ -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

2
DRV/UTHER2.AI.DRV.S.txt
View File

@ -371,8 +371,6 @@ WRITEBLOCK.1 >AR.SELECT S0.DIPR
lda Offset+1
adc RXTX.Size+1
and /RXTX.MASK
ora /TX.BASE
sta W5100.DR,x write HI
pla
sta W5100.DR,x write LO

2
DRV/UTHERNET2.DRV.S.txt
View File

@ -333,8 +333,6 @@ WRITEBLOCK.1 ldy #S.ETH.SRCMAC+5
lda Offset+1
adc RXTX.Size+1
and /RXTX.MASK
ora /TX.BASE
sta W5100.DR,x write HI
pla
sta W5100.DR,x write LO

BIN
Floppies/A2OSX.BOOT.po
View File

Binary file not shown.

BIN
Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

BIN
Floppies/A2OSX.SRC.po
View File

Binary file not shown.

14
SYS/KM.APPLETALK.S.txt
View File

@ -87,7 +87,7 @@ AT.INIT >LDAXI MSG.INIT
.DA MLIATALK.PARAMS
bcs .9
>LDAXI MSG.PRODOS
>LDAXI MSG.IRQ
jsr PrintCStrAX
jsr MLI
@ -97,11 +97,17 @@ AT.INIT >LDAXI MSG.INIT
cli
>LDAXI MSG.PREFIX2
jsr PrintCStrAX
jsr GO.OLDMLI
.DA #MLIGETPREFIX
.DA MLIGETPREFIX.PARAMS
bcs .9
>LDAXI MSG.PREFIX2
jsr PrintCStrAX
jsr GO.WSCARD
.DA #MLISETPREFIX
.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.NOHW >CSTR "AppleTalk Workstation Card Not Found.\n"
MSG.HWOK >CSTR "AppleTalk Workstation Card Type #%d Found In Slot #%d.\n"
MSG.ATINIT >CSTR "Calling ATINIT...\n"
MSG.PRODOS >CSTR "Registering Into ProDOS...\n"
MSG.ATINIT >CSTR "Calling ATInit...\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.KO >CSTR "AppleTalk Driver Install Failed : EC=%h.\n"
*--------------------------------------