Added GetDevInfoA API Call

This commit is contained in:
Rémy GIBERT 2016-02-24 21:02:16 +01:00
parent 0c12a64225
commit 201cbb117b

View File

@ -129,16 +129,6 @@ K.ENV.SIZE .EQ $100
K.DEV.MAX .EQ 32
K.PS.MAX .EQ 64
*--------------------------------------
K.ARPCACHE.SIZE .EQ 10
K.DNSCACHE.SIZE .EQ 10
K.SKTTABLE.SIZE .EQ 64
K.ETH.FRAME.LEN .EQ 1514
K.IP.TTL .EQ 64
K.DNS.MAXLEN .EQ 64
K.DYNPORT.START .EQ 49152
K.DYNPORT.END .EQ 65535
K.TCP.WINDOW .EQ 4096
*--------------------------------------
H.BIN.HEADER .EQ 0
H.BIN.HEADER.DRV65 .EQ $4C8D 6502:cld,jmp abs
H.BIN.HEADER.LIB65 .EQ $7C8D 6502:cld,jmp (abs,x)
@ -231,6 +221,7 @@ SYS.MLIWriteBlock .EQ $7E
SYS.GetDevByIDA .EQ $80
SYS.GetDevByNameA .EQ $82
SYS.GetDevByNameYA .EQ $84
SYS.GetDevInfoA .EQ $86
SYS.GetKeyboardEvent .EQ $88
*--------------------------------------
@ -364,8 +355,14 @@ S.DEVINFO.TYPE.XY .EQ %00000010
S.DEVINFO.TYPE.NET .EQ %00000011
S.DEVINFO.TYPE.GFX .EQ %00000100
S.DEVINFO.FLAGS .EQ 1
S.DEVINFO.FLAGS.ARPOFFLOAD .EQ 1
S.DEVINFO.NET.FLAGS.ARPOFFLOAD .EQ 1
S.DEVINFO.NET.MAC .EQ 2
S.DEVINFO.NET.STATUS .EQ 8
S.DEVINFO.NET.STATUS.OK .EQ $80
S.DEVINFO.NET.STATUS.FD .EQ $40
S.DEVINFO.NET.STATUS.10 .EQ $01
S.DEVINFO.NET.STATUS.100 .EQ $02
S.DEVINFO.NET.STATUS.1000 .EQ $03
*--------------------------------------
* Generic Driver Functions
*--------------------------------------