Work In Progress

This commit is contained in:
Rémy GIBERT 2016-01-04 08:29:32 +01:00
parent 6eb1218e61
commit 1553f67209

View File

@ -10,8 +10,6 @@ AUTO 6
*--------------------------------------
.INB INC/MACROS.I
.INB INC/A2OSX.I
.INB INC/A2OSX.API.I
.INB INC/KERNEL.I
*--------------------------------------
ZPTmpPTR .EQ ZPDRV
*--------------------------------------
@ -78,11 +76,14 @@ CS.START cld
* Relocation Table
*--------------------------------------
L.MSG.DETECT .DA MSG.DETECT
L.MSG.DETECT.OK .DA MSG.DETECT.OK
L.MSG.DETECT.KO .DA MSG.DETECT.KO
L.DEV.HEADER.NAME .DA DEV.HEADER.NAME
.DA 0 End Of Reloc Table
*--------------------------------------
Dev.Detect sta hArgs
>LDYA L.MSG.DETECT
>SYSCALL SYS.SysScrPPSTRYA
>SYSCALL SYS.PSTROutYA
ldx #$10
.1 stx DEVSLOTx0
@ -113,7 +114,7 @@ Dev.Detect sta hArgs
>STYA ZPTmpPTR
jsr DecodeMac
bcc .4
lda #DEVMGR.ERRNICL
lda #DEVMGR.ERRICL
sec
rts
@ -173,7 +174,9 @@ Asc2NibbleA cmp #$30
rts
*--------------------------------------
CS.END
MSG.DETECT >PSTRING "\nUtherNet II/W5100 Driver."
MSG.DETECT >PSTRING "UtherNetII/W5100 Driver.\n"
MSG.DETECT.OK >PSTRING "UtherNetII/W5100 Installed As Device : "
MSG.DETECT.KO >PSTRING "Hardware Not Found.\n"
hArgs .BS 1
*--------------------------------------
* Device Header (16 Bytes)