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/MACROS.I
.INB INC/A2OSX.I .INB INC/A2OSX.I
.INB INC/A2OSX.API.I
.INB INC/KERNEL.I
*-------------------------------------- *--------------------------------------
ZPTmpPTR .EQ ZPDRV ZPTmpPTR .EQ ZPDRV
*-------------------------------------- *--------------------------------------
@ -78,11 +76,14 @@ CS.START cld
* Relocation Table * Relocation Table
*-------------------------------------- *--------------------------------------
L.MSG.DETECT .DA MSG.DETECT 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 .DA 0 End Of Reloc Table
*-------------------------------------- *--------------------------------------
Dev.Detect sta hArgs Dev.Detect sta hArgs
>LDYA L.MSG.DETECT >LDYA L.MSG.DETECT
>SYSCALL SYS.SysScrPPSTRYA >SYSCALL SYS.PSTROutYA
ldx #$10 ldx #$10
.1 stx DEVSLOTx0 .1 stx DEVSLOTx0
@ -113,7 +114,7 @@ Dev.Detect sta hArgs
>STYA ZPTmpPTR >STYA ZPTmpPTR
jsr DecodeMac jsr DecodeMac
bcc .4 bcc .4
lda #DEVMGR.ERRNICL lda #DEVMGR.ERRICL
sec sec
rts rts
@ -173,7 +174,9 @@ Asc2NibbleA cmp #$30
rts rts
*-------------------------------------- *--------------------------------------
CS.END 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 hArgs .BS 1
*-------------------------------------- *--------------------------------------
* Device Header (16 Bytes) * Device Header (16 Bytes)