;--- DenYoNet TCP/IP UNAPI BIOS v0.1 ; By Konamiman, 5/2010 .label 20 ;******************* ;*** CONSTANTS *** ;******************* debug: macro @x push af,bc,de,hl,ix,iy ld a,@x ld ix,#A2 ld iy,(#FCC0) call #001C pop iy,ix,hl,de,bc,af endm ;--- System variables and routines RDSLT: equ 000Ch ;A=PEEK(HL, slot A) WRSLT: equ 0014h ;POKE(HL, slot A),E ENASLT: equ 0024h SNSMAT: equ 0141h CHPUT: equ 00A2h SECBUF: equ 0F34Dh HOKVLD: equ 0FB20h EXPTBL: equ 0FCC1h SYSTIMER: equ 0FC9Eh EXTBIO: equ 0FFCAh SLTWRK: equ 0FD09h ARG: equ 0F847h H_PHYD: equ 0FFA7H ;--- API version and implementation version API_V_P equ 1 API_V_S equ 0 ROM_V_P equ 0 ROM_V_S equ 1 ;--- Maximum number of available standard and implementation-specific function numbers ;Must be 0 to 127 MAX_FN equ 29 ;Must be either zero (if no implementation-specific functions available), or 128 to 254 MAX_IMPFN equ 0 ;--- TCP/IP UNAPI error codes ERR_OK: equ 0 ERR_NOT_IMP: equ 1 ERR_NO_NETWORK: equ 2 ERR_NO_DATA: equ 3 ERR_INV_PARAM: equ 4 ERR_QUERY_EXISTS: equ 5 ERR_INV_IP: equ 6 ERR_NO_DNS: equ 7 ERR_DNS: equ 8 ERR_NO_FREE_CONN: equ 9 ERR_CONN_EXISTS: equ 10 ERR_NO_CONN: equ 11 ERR_CONN_STATE: equ 12 ERR_BUFFER: equ 13 ERR_LARGE_DGRAM: equ 14 ERR_INV_OPER: equ 15 ;--- TCP states CLOSED: equ 0 LISTEN: equ 1 SYN.SENT: equ 2 SYN.RECEIVED: equ 3 ESTABLISHED: equ 4 FIN.WAIT.1: equ 5 FIN.WAIT.2: equ 6 CLOSE.WAIT: equ 7 CLOSING: equ 8 LAST.ACK: equ 9 TIME.WAIT: equ 10 ;Not used (CLOSED is entered directly) ;--- W5100 registers, 8000h based ;Common registers WIZ_MR equ 8000h WIZ_GAR equ 8001h WIZ_SUBR equ 8005h WIZ_SHAR equ 8009h WIZ_SIPR equ 800Fh WIZ_IMR equ 8016h WIZ_RMSR equ 801Ah WIZ_TMSR equ 801Bh ;Base address and size of socket register set WIZ_SOCKREG_BASE equ 8400h WIZ_SOCKREG_SIZE equ 100h ;Socket registers offset addresses ;To access registers for socket N, add: ;SIZ_SOCKREG_BASE + (WIZ_SOCKREG_SIZE * n) WIZ_Sn_MR equ 00h WIZ_Sn_CR equ 01h WIZ_Sn_IR equ 02h WIZ_Sn_SR equ 03h WIZ_Sn_PORT equ 04h WIZ_Sn_DHAR equ 06h WIZ_Sn_DIPR equ 0Ch WIZ_Sn_DPORT equ 10h WIZ_Sn_MSSR equ 12h WIZ_Sn_PROTO equ 14h WIZ_Sn_TOS equ 15h WIZ_Sn_TTL equ 16h WIZ_Sn_TX_FSR equ 20h WIZ_Sn_TX_RD equ 22h WIZ_Sn_TX_WR equ 24h WIZ_Sn_RX_RSR equ 26h WIZ_Sn_RX_RD equ 28h ;--- W5100 buffer relatedconstants ;Receive/transmit buffer base addresses and sizes WIZ_RX_BASE equ 0A000h WIZ_TX_BASE equ 8000h WIZ_RX_SIZE equ 800h ;2K WIZ_TX_SIZE equ 400h ;1K ;Receive/transmit buffer masks, high byte ;(low byte is always FFh) gSn_RX_MASK equ 07h gSn_TX_MASK equ 03h ;--- W5100 commands CMD_OPEN equ 01h CMD_LISTEN equ 02h CMD_CONNECT equ 04h CMD_DISCON equ 08h CMD_CLOSE equ 10h CMD_SEND equ 20h CMD_RECV equ 40h ;--- W5100 socket status register values SOCK_CLOSED equ 00h SOCK_ARP_1 equ 11h ;NOTE: Can be 11h, 21h or 31h SOCK_ARP_2 equ 21h SOCK_ARP_3 equ 31h SOCK_INIT equ 13h SOCK_LISTEN equ 14h SOCK_SYNSENT equ 15h SOCK_SYNRECV equ 16h SOCK_ESTABLISHED equ 17h SOCK_FIN_WAIT1 equ 18h SOCK_FIN_WAIT2 equ 19h SOCK_CLOSING equ 1Ah SOCK_TIME_WAIT equ 1Bh SOCK_CLOSE_WAIT equ 1Ch SOCK_LAST_ACK equ 1Dh SOCK_UDP equ 22h SOCK_IPRAW equ 32h SOCK_MACRAW equ 42h ;--- W5100 socket protocol values SOCK_PROTO_NONE equ 0 SOCK_PROTO_TCP equ 1 SOCK_PROTO_UDP equ 2 SOCK_PROTO_IPRAW equ 3 ;--- ROM and W5100 RAM mapping port ; bits 0-3 select the 32K ROM segment visible at 0000h-7FFFh ; bit 4 selects the W5100 16K segment visible at 8000h-BFFFh ; bit 5 selects the W5100 16K segment visible at C000h-FFFFh WIZ_PORT equ 28h ;--- LEDS state port ;Bit 0 = TX ;Bit 1 = RX ;Bit 2 = Collision ;Bit 3 = Full duplex ;Bit 4 = Speed, 100Mbps ;Bit 5 = Link WIZ_LEDS equ 029h ;********************************* ;*** DATA IN TRANSMIT BUFFER *** ;********************************* ;Part of the W5100 RAM is used for variables used by the implementation. ;1K is assigned for transmission for each socket, ;this gives 4K free for variables at the second half of the transmit memory. DATA_BASE: equ 9000h ;First addrss of data area DATA_LIMIT: equ 0A000h ;Last address of data area +1 ;--- Global variables USER_SLOT_P2: equ DATA_BASE ;Slot connected on page 2 when a function is invoked BUF_IPDNS1: equ USER_SLOT_P2+1 ;Primary DNS server IP address BUF_IPDNS2: equ BUF_IPDNS1+4 ;Secondary DNS server IP address CONN_FLAGS: equ BUF_IPDNS2+4 ;One byte per connection (first byte is not used): ;bit 0: Set if connection is resident ;--- Information for current connection (set by SET_CUR_CONN) CURCONN: equ CONN_FLAGS+4 ;Current connection number CURCONN_RX_BASE: equ CURCONN+1 ;Receive buffer base for current connection CURCONN_TX_BASE: equ CURCONN_RX_BASE+2 ;Transmit buffer base for current connection CURCONN_TX_LIMIT: equ CURCONN_TX_BASE+2 ;CURCONN_TX_BASE+WIZ_TX_SIZE CURCONN_RX_LIMIT: equ CURCONN_TX_LIMIT+2 ;CURCONN_RX_BASE+WIZ_RX_SIZE CURCONN_REG_BASE: equ CURCONN_RX_LIMIT+2 ;Current connection registers base ;--- Data for the resolver DNS_STAT_P: equ CURCONN_REG_BASE+2 ;Current state, primary DNS_STAT_S: equ DNS_STAT_P+1 ;Current state, secondary DNS_BUFFER: equ DNS_STAT_S+1 ;Name being resolved (up to 256 bytes) DNS_RESULT: equ DNS_BUFFER+256 ;Answer returned by server ;--- Temporary data area TEMP: equ DNS_RESULT+4 ;Generic 16 byte buffer for functions use ;******************************************** ;*** ROM HEADER AND INITIALIZATION CODE *** ;******************************************** org 04000h ;--- ROM header db "AB" dw INIT ds 12 ;--- Card MAC address ; Format: CC-CC-CC-SS-SS-NN ; CC: Common identifier for MSX network cards (#58,#53,#4D) ; SS: Series identifier (00-01 for Denyonet) ; NN: Serial number within the series CARD_MAC: db #58,#53,#4D,#00,#01,#01 INIT: ;--- Do nothing if ESC is pressed ld a,7 call SNSMAT and 4 ret z ;--- Initialize EXTBIO hook if necessary ld a,(HOKVLD) bit 0,a jr nz,OK_INIEXTB ld hl,EXTBIO ld de,EXTBIO+1 ld bc,5-1 ld (hl),0C9h ;code for RET ldir or 1 ld (HOKVLD),a OK_INIEXTB: ;--- Save previous EXTBIO hook call GETSLTP1 call GETWRK ex de,hl ld hl,EXTBIO ld bc,5 ldir ;--- Patch EXTBIO hook di ld a,0F7h ;code for "RST 030" ld (EXTBIO),a call GETSLTP1 ld (EXTBIO+1),a ld hl,DO_EXTBIO ld (EXTBIO+2),hl ei ;>>> UNAPI initialization finished, now perform ; other ROM initialization tasks. ROM_INIT: ;--- Show informative message ld hl,INITMSG PRINT_LOOP: ld a,(hl) or a jp z,INIT2 call CHPUT inc hl jr PRINT_LOOP INIT2: ;--- Setup hardware call GETSLTP1 ld h,#80 call ENASLT ;Reset hardware call DO_RESET ;Set MAC address to default value call SET_WIZ_REGS2 ld hl,(CARD_MAC) ld de,(CARD_MAC+2) ld bc,(CARD_MAC+4) call SET_MAC ;!!!!! if 0 ld b,1 ld l,192 ld h,168 ld e,0 ld d,106 call TCPIP_CONFIG_IP ld b,3 ld l,255 ld h,255 ld e,255 ld d,0 call TCPIP_CONFIG_IP ld b,4 ld l,192 ld h,168 ld e,0 ld d,101 call TCPIP_CONFIG_IP ld b,5 ld l,192 ld h,168 ld e,0 ld d,101 call TCPIP_CONFIG_IP endif ;Clear data area call SET_WIZ_BUF2 ld hl,DATA_BASE ld de,DATA_BASE+1 ld bc,DATA_LIMIT-DATA_BASE-1 ld (hl),0 ldir ;Hide W5100 registers. ;Without this, the W5100 is reset again and MAC address is lost. ;Probably the MSX startup code messes with the ;W5100 memory thinking that it is standard RAM. ;call SET_WIZ_BUF2 ret ;******************************* ;*** EXTBIO HOOK EXECUTION *** ;******************************* DO_EXTBIO: push hl push bc push af ld a,d cp 022h jr nz,JUMP_OLD cp e jr nz,JUMP_OLD ;Check API ID ld hl,UNAPI_ID ld de,ARG LOOP: ld a,(de) call TOUPPER cp (hl) jr nz,JUMP_OLD2 inc hl inc de or a jr nz,LOOP ;A=255: Jump to old hook pop af push af inc a jr z,JUMP_OLD2 ;A=0: B=B+1 and jump to old hook call GETSLTP1 call GETWRK pop af pop bc or a jr nz,DO_EXTBIO2 inc b ex (sp),hl ld de,02222h ret DO_EXTBIO2: ;A=1: Return A=Slot, B=Segment, HL=UNAPI entry address dec a jr nz,DO_EXTBIO3 pop hl call GETSLTP1 ld b,0FFh ld hl,UNAPI_ENTRY ld de,02222h ret ;A>1: A=A-1, and jump to old hook DO_EXTBIO3: ;A=A-1 already done ex (sp),hl ld de,02222h ret ;--- Jump here to execute old EXTBIO code JUMP_OLD2: ld de,02222h JUMP_OLD: ;Assumes "push hl,bc,af" done push de call GETSLTP1 call GETWRK pop de pop af pop bc ex (sp),hl ret ;************************************ ;*** FUNCTIONS ENTRY POINT CODE *** ;************************************ UNAPI_ENTRY: push hl push af ld hl,FN_TABLE bit 7,a if MAX_IMPFN >= 128 jr z,IS_STANDARD ld hl,IMPFN_TABLE and %01111111 cp MAX_IMPFN-128 jr z,OK_FNUM jr nc,UNDEFINED IS_STANDARD: else jr nz,UNDEFINED endif cp MAX_FN jr z,OK_FNUM jr nc,UNDEFINED OK_FNUM: add a,a push de ld e,a ld d,0 add hl,de pop de ld a,(hl) inc hl ld h,(hl) ld l,a pop af ex (sp),hl ret ;--- Undefined function: return with registers unmodified UNDEFINED: pop af pop hl ret ;*********************************** ;*** FUNCTIONS ADDRESSES TABLE *** ;*********************************** ;--- Standard routines addresses table FN_TABLE: FN_0: dw UNAPI_GET_INFO FN_1: dw TCPIP_GET_CAPAB FN_2: dw TCPIP_GET_IPINFO FN_3: dw TCPIP_NET_STATE FN_4: dw TCPIP_SEND_ECHO FN_5: dw TCPIP_RCV_ECHO FN_6: dw TCPIP_DNS_Q FN_7: dw TCPIP_DNS_S FN_8: dw TCPIP_UDP_OPEN FN_9: dw TCPIP_UDP_CLOSE FN_10: dw TCPIP_UDP_STATE FN_11: dw TCPIP_UDP_SEND FN_12: dw TCPIP_UDP_RCV FN_13: dw TCPIP_TCP_OPEN FN_14: dw TCPIP_TCP_CLOSE FN_15: dw TCPIP_TCP_ABORT FN_16: dw TCPIP_TCP_STATE FN_17: dw TCPIP_TCP_SEND FN_18: dw TCPIP_TCP_RCV FN_19: dw TCPIP_TCP_FLUSH FN_20: dw FN_NOT_IMP ;TCPIP_RAW_OPEN FN_21: dw FN_NOT_IMP ;TCPIP_RAW_CLOSE FN_22: dw FN_NOT_IMP ;TCPIP_RAW_STATE FN_23: dw FN_NOT_IMP ;TCPIP_RAW_SEND FN_24: dw FN_NOT_IMP ;TCPIP_RAW_RCV FN_25: dw TCPIP_CONFIG_AUTOIP FN_26: dw TCPIP_CONFIG_IP FN_27: dw TCPIP_CONFIG_TTL FN_28: dw TCPIP_CONFIG_PING FN_29: dw TCPIP_WAIT ;--- Implementation-specific routines addresses table IMPFN_TABLE: ;FN_128: dw ... ;************************ ;*** FUNCTIONS CODE *** ;************************ ;======================== ;=== UNAPI_GET_INFO === ;======================== ;Obtain the implementation name and version. ; ;Input: A = 0 ;Output: A = Error code ; HL = Address of the implementation name string ; DE = API specification version supported. D=primary, E=secondary. ; BC = API implementation version. B=primary, C=secondary. UNAPI_GET_INFO: ld bc,256*ROM_V_P+ROM_V_S ld de,256*API_V_P+API_V_S ld hl,APIINFO xor a ret ;========================= ;=== TCPIP_GET_CAPAB === ;========================= ;Get information about the TCP/IP capabilities and features. ; ;Input: A = 1 ; B = Index of information block to retrieve: ; 1: Capabilities and features flags, link level protocol ; 2: Connection pool size and status ; 3: Maximum datagram size allowed ;Output: A = Error code ; When information block 1 requested: ; HL = Capabilities flags ; DE = Features flags ; B = Link level protocol used ; When information block 2 requested: ; B = Maximum simultaneous TCP connections supported ; C = Maximum simultaneous UDP connections supported ; D = Free TCP connections currently available ; E = Free UDP connections currently available ; H = Maximum simultaneous raw IP connections supported ; L = Free raw IP connections currently available ; When information block 3 requested: ; HL = Maximum incoming datagram size supported ; DE = Maximum outgoing datagram size supported TCPIP_GET_CAPAB: ld a,b or a jp z,END_INV_PAR cp 3+1 jp nc,END_INV_PAR dec a jr z,GETCAP_1 dec a jr z,GETCAP_2 ;--- Info block 3 GETCAP_3: ld hl,576 ;Should be 1024? ld de,576 ;Should be 1024? xor a ret ;--- Info block 2 GETCAP_2: call SETSLOTP2 call SET_WIZ_REGS2 ld ix,WIZ_SOCKREG_BASE+WIZ_SOCKREG_SIZE ld de,WIZ_SOCKREG_SIZE ld h,0 ;Free connections count ld b,3 GETCAP2_LOOP: ld a,(ix+WIZ_Sn_SR) ;Is the connection in use? or a jr nz,GETCAP_2_NEXT inc h GETCAP_2_NEXT: add ix,de djnz GETCAP2_LOOP ld bc,#0303 ld d,h ld e,h ld hl,0 jp RESTSLOTP2 ;--- Info block 1 GETCAP_1: ; Capability flags ENABLED: ;- Explicitly set the TTL and TOS for outgoing datagrams ;- Open UDP connections ;- Explicitly set the automatic reply to PINGs on or off ;- Open TCP connections in active mode ;- Open TCP connections in passive mode, with unsepecified remote socket ; ; Capability flags DISABLED: ;- Send ICMP echo messages (PINGs) and retrieve the answers ;- Resolve host names by querying a local hosts file or database ;- Resolve host names by querying a DNS server ;- Open TCP connections in passive mode, with specified remote socket ;- Send and receive TCP urgent data ;- Send data to a TCP connection before the ESTABLISHED state is reached ;- Flush the output buffer of a TCP connection ;- Open raw IP connections ;- Automatically obtain the IP addresses, by using DHCP or an equivalent protocol ;- Explicitly set the PUSH bit when sending TCP data ld hl,% 0 011010000101000 ; Features flags ENABLED: ; - Connection pool is shared by TCP, UDP and raw IP ; - The TCP/IP handling code is assisted by external hardware ld de,% 0000000 000010100 ld b,3 ;Ethernet protocol xor a ret ;========================== ;=== TCPIP_GET_IPINFO === ;========================== ;Get IP address. ; ;Input: A = 2 ; B = Index of address to obtain: ; 1: Local IP address ; 2: Peer IP address ; 3: Subnet mask ; 4: Default gateway ; 5: Primary DNS server IP address ; 6: Secondary DNS server IP address ;Output: A = Error code ; L.H.E.D = Requested address TCPIP_GET_IPINFO: call SETSLOTP2 ld a,b or a jp z,END_INV_PAR_R ;--- Local IP address dec a jr nz,GETIP_NO1 call SET_WIZ_REGS2 ld hl,(WIZ_SIPR) ld de,(WIZ_SIPR+2) xor a jp RESTSLOTP2 GETIP_NO1: ;--- Peer IP address dec a jp z,END_INV_PAR_R ;--- Subnet mask dec a jr nz,GETIP_NO3 call SET_WIZ_REGS2 ld hl,(WIZ_SUBR) ld de,(WIZ_SUBR+2) xor a jp RESTSLOTP2 GETIP_NO3: ;--- Default gateway dec a jr nz,GETIP_NO4 call SET_WIZ_REGS2 ld hl,(WIZ_GAR) ld de,(WIZ_GAR+2) xor a jp RESTSLOTP2 GETIP_NO4: ;--- Primary DNS dec a jr nz,GETIP_NO5 call SET_WIZ_BUF2 ld hl,(BUF_IPDNS1) ld de,(BUF_IPDNS1+2) xor a jp RESTSLOTP2 GETIP_NO5: ;--- Secondary DNS dec a jp nz,END_INV_PAR_R call SET_WIZ_BUF2 ld hl,(BUF_IPDNS2) ld de,(BUF_IPDNS2+2) xor a jp RESTSLOTP2 ;========================= ;=== TCPIP_NET_STATE === ;========================= ;Get network state. ; ;Input: A = 3 ;Output: A = Error code ; B = Current network state: ; 0: Closed ; 1: Opening ; 2: Open ; 3: Closing ; 255: Unknown TCPIP_NET_STATE: in a,(WIZ_LEDS) rrca rrca rrca rrca or %11111101 cpl ld b,a xor a ret ;========================= ;=== TCPIP_SEND_ECHO === ;========================= ;Send ICMP echo message (PING). ; ;Input: A = 4 ; HL = Address of echo parameters block ;Output: A = Error code ; ;Parameters block: ; ;+0 (4): IP address of the destination machine ;+4 (1): TTL for the datagram ;+5 (2): ICMP identifier ;+7 (2): ICMP sequence number ;+9 (2): Data length, 0 to maximum datagram size - 28 TCPIP_SEND_ECHO: FN_NOT_IMP: ld a,ERR_NOT_IMP ret ;======================== ;=== TCPIP_RCV_ECHO === ;======================== ;Retrieve ICMP echo response message. ; ;Input: A = 5 ; HL = Address for the echo parameters block ;Output: A = Error code ; ;Echo parameters block is the same as TCPIP_SEND_ECHO. TCPIP_RCV_ECHO: ld a,ERR_NOT_IMP ret ;===================== ;=== TCPIP_DNS_Q === ;===================== ;Start a host name resolution query. ; ;Input: A = 6 ; HL = Address of the host name to be resolved, zero terminated ; B = Flags, when set to 1 they instruct the resolver to: ; bit 0: Only abort the query currently in progress, if there is any ; (other flags and registers are then ignored) ; bit 1: Assume that the passed name is an IP address, ; and return an error if this is not true ; bit 2: If there is a query in progress already, ; do NOT abort it and return an error instead ;Output: A = Error code ; B = 0 if a query to a DNS server is in progress ; 1 if the name represented an IP address ; 2 if the name could be resolved locally ; L.H.E.D = Resolved IP address ; (only if no error occurred and B=1 or 2 is returned) TCPIP_DNS_Q: ld a,b and %11111000 ld a,ERR_INV_PARAM ret nz bit 0,b ld a,0 ret nz ;Only cancel query in progress ;--- Get the host name call SETSLOTP2 call SET_WIZ_BUF2 push bc ld bc,DATA_BASE ld (CURCONN_TX_BASE),bc ld bc,DATA_LIMIT ld (CURCONN_TX_LIMIT),bc ld de,DNS_BUFFER ld bc,256 ;debug "1" call MSX_TO_WIZ ;debug "2" xor a ld (DNS_BUFFER+255),a ;--- Try to parse the host name as an IP address call PARSE_IP pop bc jr c,DNSQ_NO_IP ld a,2 ld (DNS_STAT_P),a dec a ld (DNS_STAT_S),a ld hl,(DNS_RESULT) ld de,(DNS_RESULT+2) ld b,1 xor a jp RESTSLOTP2 ;--- The host name was not an IP address DNSQ_NO_IP: bit 1,b ;Was "assume IP address" flag set? ld a,ERR_INV_IP jp nz,RESTSLOTP2 ld a,ERR_NOT_IMP jp RESTSLOTP2 ;===================== ;=== TCPIP_DNS_S === ;===================== ;Obtains the host name resolution process state and result. ; ;Input: A = 7 ; B = Flags, when set to 1 they instruct the resolver to: ; bit 0: Clear any existing result or error condition after the execution ; (except if there is a query in progress) ;Output: A = Error code ; B = DNS error code (when error is ERR_DNS) ; B = Current query status (when error is ERR_OK): ; 0: There is no query in progress, nor any result nor error code available ; 1: There is a query in progress ; 2: Query is complete ; C = Current query substatus (when error is ERR_OK and B=1): ; 0: Unknown ; 1: Querying the primary DNS server ; 2: Querying the secondary DNS server ; 3: Querying another DNS server ; C = Resolution proces type (when error is ERR_OK and B=2): ; 0: The name was obtained by querying a DNS server ; 1: The name was a direct representation of an IP address ; 2: The name was resolved locally ; L.H.E.D = Resolved IP address (when error is ERR_OK and B=2) TCPIP_DNS_S: call SETSLOTP2 call SET_WIZ_BUF2 ld c,b ld a,(DNS_STAT_S) ld b,a ld a,(DNS_STAT_P) ld hl,(DNS_RESULT) ld de,(DNS_RESULT+2) bit 0,c jr z,DNS_R_3 push af ;A=1 and no query in progress: ld a,(DNS_STAT_P) ;clear result cp 1 jr z,DNS_R_2 xor a ld (DNS_STAT_P),a ld (DNS_STAT_S),a DNS_R_2: pop af DNS_R_3: cp 3 jr z,DNS_R_ERR ld c,b ld b,a DNS_R_END: xor a jp RESTSLOTP2 DNS_R_ERR: ld a,ERR_DNS jp RESTSLOTP2 ;======================== ;=== TCPIP_UDP_OPEN === ;======================== ;Open a UDP connection. ; ;Input: A = 8 ; HL = Local port number (#FFFF=random) ; B = Intended connection lifetime: ; 0: Transient ; 1: Resident ;Output: A = Error code ; B = Connection number TCPIP_UDP_OPEN: ;--- Check por number ld a,h or l ld a,ERR_INV_PARAM ret z ld a,b and %11111110 ld a,ERR_INV_PARAM ret nz call SETSLOTP2 call SET_WIZ_REGS2 push bc ld a,h and l cp #FF call z,GET_RANDOM_PORT pop bc ld a,h inc a jr nz,OK_UDPOP_PORT ld a,l and #F0 cp #F0 ld a,ERR_INV_PARAM jp z,RESTSLOTP2 OK_UDPOP_PORT: ;--- Check if the port is in use ld a,1 CHK_UDP_EX: push af call GET_CONN_BASE ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP jr nz,CHK_UDP_EXNEXT ld d,(ix+WIZ_Sn_PORT) ld e,(ix+WIZ_Sn_PORT+1) call COMP16 jr nz,CHK_UDP_EXNEXT pop af ld a,ERR_CONN_EXISTS jp RESTSLOTP2 CHK_UDP_EXNEXT: pop af inc a cp 4 jr c,CHK_UDP_EX ;--- Get free connection and open in UDP mode push bc call GET_FREE_CONN pop bc or a ld c,a ld a,ERR_NO_FREE_CONN jp z,RESTSLOTP2 push hl call SET_WIZ_BUF2 ;Set resident or transient flag ld hl,CONN_FLAGS ld e,c ld d,0 add hl,de ld (hl),b call SET_WIZ_REGS2 pop hl ld a,c call GET_CONN_BASE UDP_OPEN_LOOP: ld (ix+WIZ_Sn_MR),SOCK_PROTO_UDP ld (ix+WIZ_Sn_PORT),h ld (ix+WIZ_Sn_PORT+1),l ld (ix+WIZ_Sn_CR),CMD_OPEN ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP jr z,UDP_OPEN_OK ld a,CMD_CLOSE ld (ix+WIZ_Sn_CR),a jr UDP_OPEN_LOOP UDP_OPEN_OK: ld a,(WIZ_SOCKREG_BASE+WIZ_Sn_TOS) ld (ix+WIZ_Sn_TOS),a ld a,(WIZ_SOCKREG_BASE+WIZ_Sn_TTL) ld (ix+WIZ_Sn_TTL),a xor a ld b,c jp RESTSLOTP2 ;========================= ;=== TCPIP_UDP_CLOSE === ;========================= ;Close a UDP connection. ; ;Input: A = 9 ; B = Connection number ; 0 to close all open transient UDP connections ;Output: A = Error code TCPIP_UDP_CLOSE: ld a,b cp 3+1 ld a,ERR_NO_CONN ret nc ld a,b or a jr z,UDP_CLOSE_ALL ;--- Close one connection call SETSLOTP2 call SET_WIZ_REGS2 ld a,b call GET_CONN_BASE ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP ;Open UDP connection? ld a,ERR_NO_CONN jp nz,RESTSLOTP2 ld a,CMD_CLOSE ld (ix+WIZ_Sn_CR),a xor a jp RESTSLOTP2 ;--- Close all transient connections UDP_CLOSE_ALL: call SETSLOTP2 call SET_WIZ_BUF2 ld hl,CONN_FLAGS+1 ld a,1 UDP_CLOSE_LOOP: ld c,a ld a,(hl) ;Transient connection? and 1 jr nz,UDP_CLOSE_NEXT2 call SET_WIZ_REGS2 ld a,c call GET_CONN_BASE ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP ;UDP open connection? jr nz,UDP_CLOSE_NEXT ld a,CMD_CLOSE ld (ix+WIZ_Sn_CR),a UDP_CLOSE_NEXT: call SET_WIZ_BUF2 UDP_CLOSE_NEXT2: inc hl ld a,c inc a cp 3+1 jr c,UDP_CLOSE_LOOP xor a jp RESTSLOTP2 ;========================= ;=== TCPIP_UDP_STATE === ;========================= ;Get the state of a UDP connection. ; ;Input: A = 10 ; B = Connection number ;Output: A = Error code ; HL = Local port number ; B = Number of pending incoming datagrams ; DE = Size of oldest pending incoming datagram (data part only) TCPIP_UDP_STATE: ld a,b or a ld a,ERR_NO_CONN ret z ld a,b cp 3+1 ld a,ERR_NO_CONN ret nc call SETSLOTP2 call SET_WIZ_BUF2 ld a,b call SET_CUR_CONN ld de,(CURCONN_RX_BASE) call SET_WIZ_REGS2 ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP ;Open UDP connection? ld a,ERR_NO_CONN jp nz,RESTSLOTP2 ;--- Check if there are pending datagrams ld b,0 ld a,(ix+WIZ_Sn_RX_RSR) ld c,(ix+WIZ_Sn_RX_RSR+1) or c jr z,UDP_STATE_NODATA ;--- Get pending datagram size ld a,(ix+WIZ_Sn_RX_RD) ld l,(ix+WIZ_Sn_RX_RD+1) and gSn_RX_MASK ld h,a ;HL = get_offset call SET_WIZ_BUF2 add hl,de ;HL = get_start_address ld bc,6 add hl,bc call ADJUST_RX_POINTER ;HL = Pointer to data size ld b,(hl) inc hl call ADJUST_RX_POINTER ld e,(hl) ld d,b ld b,1 UDP_STATE_NODATA: ld h,(ix+WIZ_Sn_PORT) ld l,(ix+WIZ_Sn_PORT+1) xor a jp RESTSLOTP2 ;--- This routine adjust a RX buffer pointer ; to take in account circular buffer. ; Input: HL = Unadjusted pointer ; D = High byte of RX base address ; Output: HL = Adjusted pointer ; Modifies: AF ADJUST_RX_POINTER: ld a,h and gSn_RX_MASK or d ld h,a ret ;--- This routine adjust a TX buffer pointer ; to take in account circular buffer. ; Input: HL = Unadjusted pointer ; D = High byte of TX base address ; Output: HL = Adjusted pointer ; Modifies: AF ADJUST_TX_POINTER: ld a,h and gSn_TX_MASK or d ld h,a ret ;======================== ;=== TCPIP_UDP_SEND === ;======================== ;Send an UDP datagram. ; ;Input: A = 11 ; B = Connection number ; HL = Address of datagram data ; DE = Address of parameters block ;Output: A = Error code ; ;Parameters block: ; ; +0 (4): Destination IP address ; +4 (2): Destination port ; +6 (2): Data length UDPSND_IP: equ TEMP UDPSND_PORT: equ TEMP+4 UDPSND_LEN: equ TEMP+6 UDPSND_DATA: equ TEMP+8 TCPIP_UDP_SEND: ld a,b or a ld a,ERR_NO_CONN ret z ld a,b cp 3+1 ld a,ERR_NO_CONN ret nc call SETSLOTP2 ld a,b push hl,de call SET_CUR_CONN call SET_WIZ_REGS2 ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP ;Open UDP connection? ld a,ERR_NO_CONN pop de,hl jp nz,RESTSLOTP2 ;--- Copy parameters block to temporary area call SET_WIZ_BUF2 ld (UDPSND_DATA),hl ld a,(CURCONN) push af ld bc,DATA_BASE ld (CURCONN_TX_BASE),bc ld bc,DATA_LIMIT ld (CURCONN_TX_LIMIT),bc ex de,hl ld de,UDPSND_IP ld bc,8 call MSX_TO_WIZ pop af call SET_CUR_CONN ;--- Check parameters ld hl,(UDPSND_LEN) ld de,548+1 call COMP16 jp nc,END_INV_PAR_R ;--- Wait for free buffer available and set W5100 registers exx ld hl,(UDPSND_PORT) ld de,(UDPSND_IP+2) ld bc,(UDPSND_IP) exx call SET_WIZ_REGS2 UDPSND_FREE: ld h,(ix+WIZ_Sn_TX_FSR) ld l,(ix+WIZ_Sn_TX_FSR+1) ld de,(UDPSND_LEN) call COMP16 jr c,UDPSND_FREE exx ;ld hl,(UDPSND_IP) ld (ix+WIZ_Sn_DIPR),c ld (ix+WIZ_Sn_DIPR+1),b ;ld hl,(UDPSND_IP+2) ld (ix+WIZ_Sn_DIPR+2),e ld (ix+WIZ_Sn_DIPR+3),d ;ld hl,(UDPSND_PORT) ld (ix+WIZ_Sn_DPORT),h ld (ix+WIZ_Sn_DPORT+1),l exx ;--- Copy the datagram data to transmit buffer ld a,(ix+WIZ_Sn_TX_WR) and gSn_TX_MASK ld l,(ix+WIZ_Sn_TX_WR+1) ld h,a ;HL = get_offset call SET_WIZ_BUF2 ld de,(CURCONN_TX_BASE) add hl,de ;HL = get_start_address ex de,hl ld hl,(UDPSND_DATA) ld bc,(UDPSND_LEN) call MSX_TO_WIZ ;--- Send the datagram ld ix,(CURCONN_REG_BASE) ld bc,(UDPSND_LEN) call SET_WIZ_REGS2 ld h,(ix+WIZ_Sn_TX_WR) ld l,(ix+WIZ_Sn_TX_WR+1) add hl,bc ld (ix+WIZ_Sn_TX_WR),h ld (ix+WIZ_Sn_TX_WR+1),l ld a,CMD_SEND ld (ix+WIZ_Sn_CR),a xor a jp RESTSLOTP2 ;======================= ;=== TCPIP_UDP_RCV === ;======================= ;Retrieve an incoming UDP datagram. ; ;Input: A = 12 ; B = Connection number ; HL = Address for datagram data ; DE = Maximum data size to retrieve ;Output: A = Error code ; L.H.E.D = Source IP address ; IX = Source port ; BC = Actual received data size UDPRCV_ADD: equ TEMP UDPRCV_MAXSIZE: equ TEMP+2 UDPRCV_IP: equ TEMP+4 UDPRCV_PORT: equ TEMP+8 UDPRCV_ACTSIZE: equ TEMP+10 TCPIP_UDP_RCV: ld a,b or a ld a,ERR_NO_CONN ret z ld a,b cp 3+1 ld a,ERR_NO_CONN ret nc call SETSLOTP2 call SET_WIZ_BUF2 ld a,b exx call SET_CUR_CONN call SET_WIZ_REGS2 ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP ;Open UDP connection? ld a,ERR_NO_CONN exx jp nz,RESTSLOTP2 ;--- Check if there are pending datagrams ld b,0 ld a,(ix+WIZ_Sn_RX_RSR) ld c,(ix+WIZ_Sn_RX_RSR+1) or c ld a,ERR_NO_DATA jp z,RESTSLOTP2 call SET_WIZ_BUF2 ld (UDPRCV_ADD),hl ld (UDPRCV_MAXSIZE),de ;--- Get IP address, port, and data size ld de,(CURCONN_RX_BASE) call SET_WIZ_REGS2 ld a,(ix+WIZ_Sn_RX_RD) ld l,(ix+WIZ_Sn_RX_RD+1) and gSn_RX_MASK ld h,a ;HL = get_offset call SET_WIZ_BUF2 add hl,de ;HL = get_start_address ld c,(hl) inc hl call ADJUST_RX_POINTER ld b,(hl) inc hl call ADJUST_RX_POINTER ld (UDPRCV_IP),bc ;IP address, first half ld c,(hl) inc hl call ADJUST_RX_POINTER ld b,(hl) inc hl call ADJUST_RX_POINTER ld (UDPRCV_IP+2),bc ;IP address, second half ld b,(hl) inc hl call ADJUST_RX_POINTER ld c,(hl) inc hl call ADJUST_RX_POINTER ld (UDPRCV_PORT),bc ;Destination port ld b,(hl) inc hl call ADJUST_RX_POINTER ld c,(hl) ;BC=Datagram size inc hl call ADJUST_RX_POINTER ;Now HL=Address of datagram data ld (UDPRCV_ACTSIZE),bc push hl ld de,(UDPRCV_MAXSIZE) ;DE=Maximum size to get ld h,b ld l,c ;HL=Actual size call COMP16 jr c,UDPRCV_OKSIZE ld b,d ld c,e UDPRCV_OKSIZE: pop hl ld a,b or c jp z,END_UDP_RCV ;No data to transfer? ld de,(UDPRCV_ADD) call WIZ_TO_MSX ;--- Data has been transferred or skipped, ; now update pointers and return data END_UDP_RCV: call SET_WIZ_BUF2 ld bc,(UDPRCV_ACTSIZE) call SET_WIZ_REGS2 ld h,(ix+WIZ_Sn_RX_RD) ld l,(ix+WIZ_Sn_RX_RD+1) add hl,bc ld bc,8 add hl,bc ld (ix+WIZ_Sn_RX_RD),h ld (ix+WIZ_Sn_RX_RD+1),l ld a,CMD_RECV ld (ix+WIZ_Sn_CR),a call SET_WIZ_BUF2 ld hl,(UDPRCV_IP) ld de,(UDPRCV_IP+2) ld ix,(UDPRCV_PORT) ld bc,(UDPRCV_ACTSIZE) xor a jp RESTSLOTP2 ;======================== ;=== TCPIP_TCP_OPEN === ;======================== ;Open a TCP connection. ; ;Input: A = 13 ; HL = Address of parameters block ;Output: A = Error code ; B = Connection number ; ;Parameters block format: ; ;+0 (4): Remote IP address (0.0.0.0 for unespecified remote socket) ;+4 (2): Remote port (ignored if unespecified remote socket) ;+6 (2): Local port, 0FFFFh for a random value ;+8 (2): Suggestion for user timeout value ;+10 (1): Flags: ; bit 0: Set for passive connection ; bit 1: Set for resident connection TCPOP_IP: equ TEMP TCPOP_RPORT: equ TEMP+4 TCPOP_LPORT: equ TEMP+6 TCPOP_TOUT: equ TEMP+8 ;Not used TCPOP_FLAGS: equ TEMP+10 TCPIP_TCP_OPEN: call SETSLOTP2 call SET_WIZ_BUF2 ;--- Copy parameters block to temporary area ld bc,DATA_BASE ld (CURCONN_TX_BASE),bc ld bc,DATA_LIMIT ld (CURCONN_TX_LIMIT),bc ld de,TCPOP_IP ld bc,11 call MSX_TO_WIZ ;--- Check flags ld a,(TCPOP_FLAGS) ld b,a and %11111100 ld a,ERR_INV_PARAM jp nz,RESTSLOTP2 ;--- Check IP address depending on open mode ld hl,(TCPOP_IP) ld de,(TCPOP_IP+2) ld a,b and 1 jr nz,CHKIP_PASSIVE CHKIP_ACTIVE: ld a,h or l or d or e ld a,ERR_INV_PARAM jp z,RESTSLOTP2 jr TCPOP_OKIP CHKIP_PASSIVE: ld a,h or l or d or e ld a,ERR_NOT_IMP jp nz,RESTSLOTP2 TCPOP_OKIP: ;--- Generate random local port if necessary ld hl,(TCPOP_LPORT) ld a,h and l cp #FF jr nz,TCPOP_NO_RANDPORT call SET_WIZ_REGS2 call GET_RANDOM_PORT call SET_WIZ_BUF2 ld (TCPOP_LPORT),hl TCPOP_NO_RANDPORT: ;--- Check if there is another connection ; with the same pair of ports ld a,b ;Check only if active connection and 1 jr nz,TCPOP_OKPORTS ld de,(TCPOP_RPORT) push de call SET_WIZ_REGS2 ld a,1 CHK_TCP_EX: ld b,a call GET_CONN_BASE ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP ;A socket no in TCP mode jr z,CHK_TCP_EXNEXT ;can be either closed or in UDP mode cp SOCK_CLOSED jr z,CHK_TCP_EXNEXT ld d,(ix+WIZ_Sn_PORT) ld e,(ix+WIZ_Sn_PORT+1) call COMP16 jr nz,CHK_TCP_EXNEXT ex (sp),hl ld d,(ix+WIZ_Sn_DPORT) ld e,(ix+WIZ_Sn_DPORT+1) call COMP16 ex (sp),hl jr nz,CHK_TCP_EXNEXT pop de ld a,ERR_CONN_EXISTS jp RESTSLOTP2 CHK_TCP_EXNEXT: ld a,b inc a cp 4 jr c,CHK_TCP_EX pop de TCPOP_OKPORTS: call SET_WIZ_REGS2 ;--- Get free connection call GET_FREE_CONN or a ld c,a ld a,ERR_NO_FREE_CONN jp z,RESTSLOTP2 ;--- Set resident or transient flag call SET_WIZ_BUF2 ld hl,CONN_FLAGS ld e,c ld d,0 add hl,de ld a,(TCPOP_FLAGS) rrca and 1 ld (hl),a ;--- Set source port and issue a INIT command ld a,c ld (CURCONN),a call GET_CONN_BASE ld bc,(TCPOP_LPORT) call SET_WIZ_REGS2 TCPOP_TRY1: ld (ix+WIZ_Sn_MR),SOCK_PROTO_TCP ld (ix+WIZ_Sn_PORT),b ld (ix+WIZ_Sn_PORT+1),c ld (ix+WIZ_Sn_CR),CMD_OPEN ld a,(ix+WIZ_Sn_SR) cp SOCK_INIT jr z,TCPOP_OK1 TCPOP_FAILED: ld a,CMD_CLOSE ld (ix+WIZ_Sn_CR),a jr TCPOP_TRY1 TCPOP_OK1: ;--- Open connection in TCP active or passive mode call SET_WIZ_BUF2 ld a,(TCPOP_FLAGS) and 1 jr nz,TCPOP_PASSIVE TCPOP_ACTIVE: ld hl,(TCPOP_IP) ld de,(TCPOP_IP+2) ld bc,(TCPOP_RPORT) call SET_WIZ_REGS2 ld (ix+WIZ_Sn_DIPR),l ld (ix+WIZ_Sn_DIPR+1),h ld (ix+WIZ_Sn_DIPR+2),e ld (ix+WIZ_Sn_DIPR+3),d ld (ix+WIZ_Sn_DPORT),b ld (ix+WIZ_Sn_DPORT+1),c ld a,CMD_CONNECT ld (ix+WIZ_Sn_CR),a jr TCPOP_END TCPOP_PASSIVE: call SET_WIZ_REGS2 ld a,CMD_LISTEN ld (ix+WIZ_Sn_CR),a ld a,(ix+WIZ_Sn_SR) cp SOCK_LISTEN jr nz,TCPOP_FAILED TCPOP_END: call SET_WIZ_BUF2 ld a,(CURCONN) ld b,a xor a jp RESTSLOTP2 ;========================= ;=== TCPIP_TCP_CLOSE === ;========================= ;Close a TCP connection. ; ;Input: A = 14 ; B = Connection number ; 0 to close all open transient TCP connections ;Output: A = Error code TCPIP_TCP_CLOSE: ld c,CMD_DISCON jr TCP_CLOSE_ABORT ;========================= ;=== TCPIP_TCP_ABORT === ;========================= ;Abort a TCP connection. ;Input: A = 15 ; B = Connection number ; 0 to abort all open transient TCP connections ;Output: A = Error code TCPIP_TCP_ABORT: ld c,CMD_CLOSE ;--- Close or abort one or all TCP connection(s) ; Input: B = Connection number ; C = Command for the CR register TCP_CLOSE_ABORT: ld a,b or a jr z,TCP_CLOSE_ALL ;--- Close one connection push bc call SETUP_TCP pop bc or a ret nz ld a,c ld (ix+WIZ_Sn_CR),a xor a jp RESTSLOTP2 ;--- Close all transient connections TCP_CLOSE_ALL: call SETSLOTP2 call SET_WIZ_BUF2 ld hl,CONN_FLAGS+1 ld a,1 TCP_CLOSE_LOOP: ld b,a ld a,(hl) ;Transient connection? and 1 jr nz,TCP_CLOSE_NEXT2 call SET_WIZ_REGS2 ld a,b call GET_CONN_BASE ld a,(ix+WIZ_Sn_SR) cp SOCK_UDP jr z,TCP_CLOSE_NEXT cp SOCK_CLOSED jr z,TCP_CLOSE_NEXT ld a,c ld (ix+WIZ_Sn_CR),a TCP_CLOSE_NEXT: call SET_WIZ_BUF2 TCP_CLOSE_NEXT2: inc hl ld a,b inc a cp 3+1 jr c,TCP_CLOSE_LOOP xor a jp RESTSLOTP2 ;========================= ;=== TCPIP_TCP_STATE === ;========================= ;Get the state of a TCP connection. ; ;Input: A = 16 ; B = Connection number ; HL = Pointer in TPA for connection information block ; (0 if not needed) ;Output: A = Error code ; B = Connection state ; C = Close reason (only if ERR_NO_CONN is returned) ; HL = Number of total available incoming bytes ; DE = Number of urgent available incoming bytes ; IX = Available free space in the output buffer ; (0FFFFh = infinite) ; ;Connection information block consists of: ; ; +0 (4): Remote IP address ; +4 (2): Remote port ; +6 (2): Local port TCPST_IP: equ TEMP TCPST_RPORT: equ TEMP+4 TCPST_LPORT: equ TEMP+6 TCPST_STATE: equ TEMP+8 TCPIP_TCP_STATE: call SETUP_TCP or a ret nz ;--- Get connection state ex de,hl ;Save connection info block address for later ld b,(ix+WIZ_Sn_SR) ld hl,TCP_STATE_TABLE TCPST_STATE_LOOP: ld a,(hl) inc hl or a jp z,TCPST_ERROR ;If an unexpected state is found, abort the connection cp b jr z,TCPST_STATE_OK inc hl jr TCPST_STATE_LOOP TCPST_STATE_OK: ld a,(hl) push af ;--- Return connection information block if necessary ld a,d or e jr z,TCPST_OK_INFOBLOCK exx ld l,(ix+WIZ_Sn_DIPR) ld h,(ix+WIZ_Sn_DIPR+1) ld e,(ix+WIZ_Sn_DIPR+2) ld d,(ix+WIZ_Sn_DIPR+3) ld b,(ix+WIZ_Sn_DPORT) ld c,(ix+WIZ_Sn_DPORT+1) exx ld b,(ix+WIZ_Sn_PORT) ld c,(ix+WIZ_Sn_PORT+1) call SET_WIZ_BUF2 ld (TCPST_LPORT),bc exx ld (TCPST_RPORT),bc ld (TCPST_IP),hl ld (TCPST_IP+2),de exx ld a,(CURCONN) push af ld bc,DATA_BASE ld (CURCONN_TX_BASE),bc ld bc,DATA_LIMIT ld (CURCONN_TX_LIMIT),bc ld hl,TCPST_IP ld bc,8 call WIZ_TO_MSX pop af call SET_CUR_CONN call SET_WIZ_REGS2 TCPST_OK_INFOBLOCK: ;--- Get buffer space information ld h,(ix+WIZ_Sn_RX_RSR) ld l,(ix+WIZ_Sn_RX_RSR+1) ld d,(ix+WIZ_Sn_TX_FSR) ld e,(ix+WIZ_Sn_TX_FSR+1) push de pop ix ld de,0 pop bc ;Connection state was PUSHed before xor a push ix call RESTSLOTP2 pop ix ret TCPST_ERROR: ld a,CMD_CLOSE ld (ix+WIZ_Sn_CR),a ld c,0 jp END_NOCONN ;This table translates the value of register SR ;to the connection state values returned by this routine TCP_STATE_TABLE: ;When an active connection is open to a host on the same subnet, ;and the Sn_SR register is immediately checked, it holds the value 1. ;This value is not documented in the W5100 datasheet. ;We treat it as being equivalent to the SYN_SENT state. db 1,2 db SOCK_INIT,2 db SOCK_ARP_1,2 db SOCK_ARP_2,2 db SOCK_ARP_3,2 db SOCK_LISTEN,1 db SOCK_SYNSENT,2 db SOCK_SYNRECV,3 db SOCK_ESTABLISHED,4 db SOCK_FIN_WAIT1,5 db SOCK_FIN_WAIT2,6 db SOCK_CLOSING,8 db SOCK_TIME_WAIT,10 db SOCK_CLOSE_WAIT,7 db SOCK_LAST_ACK,9 db 0 ;======================== ;=== TCPIP_TCP_SEND === ;======================== ;Send data to a TCP connection. ; ;Input: A = 17 ; B = Connection number ; DE = Address of the data to be sent ; HL = Length of the data to be sent ; C = Flags: ; bit 0: Send the data PUSHed ; bit 1: The data is urgent ;Output: A = Error code TCPS_ADD: equ TEMP TCPS_LEN: equ TEMP+2 TCPIP_TCP_SEND: push de call SETUP_TCP pop de or a ret nz ;--- Check if the connection is in a valid state ld a,(ix+WIZ_Sn_SR) cp SOCK_ESTABLISHED jr z,TCPSND_OK1 cp SOCK_CLOSE_WAIT ld a,ERR_CONN_STATE jp nz,RESTSLOTP2 TCPSND_OK1: ;--- Do nothing if data length is zero ld a,h or l ld a,0 jp z,RESTSLOTP2 ;--- Check if Tx buffer has enough free space push de ex de,hl ld h,(ix+WIZ_Sn_TX_FSR) ld l,(ix+WIZ_Sn_TX_FSR+1) call COMP16 ex de,hl pop de ld a,ERR_BUFFER jp c,RESTSLOTP2 ;--- Copy the data to send to the transmit buffer push hl ;Data length ld a,(ix+WIZ_Sn_TX_WR) and gSn_TX_MASK ld l,(ix+WIZ_Sn_TX_WR+1) ld h,a ;HL = get_offset call SET_WIZ_BUF2 ld bc,(CURCONN_TX_BASE) add hl,bc ;HL = get_start_address ex de,hl ;Source address to HL, dest address to DE pop bc push bc call MSX_TO_WIZ ld ix,(CURCONN_REG_BASE) pop bc ;--- Issue the SEND command call SET_WIZ_REGS2 ld h,(ix+WIZ_Sn_TX_WR) ld l,(ix+WIZ_Sn_TX_WR+1) add hl,bc ld (ix+WIZ_Sn_TX_WR),h ld (ix+WIZ_Sn_TX_WR+1),l ld a,CMD_SEND ld (ix+WIZ_Sn_CR),a xor a jp RESTSLOTP2 ;======================= ;=== TCPIP_TCP_RCV === ;======================= ;Receive data from a TCP connection. ; ;Input: A = 18 ; B = Connection number ; DE = Address for the retrieved data ; HL = Length of the data to be obtained ;Output: A = Error code ; BC = Total number of bytes that have been actually retrieved ; HL = Number of urgent data bytes that have been retrieved ; (placed at the beginning of the received data block) TCPIP_TCP_RCV: push de call SETUP_TCP pop de or a ret nz ;--- Calculates the actual amount of data to retrieve call SET_WIZ_REGS2 push de ld d,(ix+WIZ_Sn_RX_RSR) ld e,(ix+WIZ_Sn_RX_RSR+1) call COMP16 jr c,TCPR_OKSIZE ld h,d ;Change length of data to obtain ld l,e ;to length of data availalbe TCPR_OKSIZE: pop de ld a,h or l jr nz,TCPR_DATAAV ld hl,0 ld bc,0 xor a jp RESTSLOTP2 ;Do nothing if no data available TCPR_DATAAV: push hl ;--- Transfer the data to MSX memory call SET_WIZ_REGS2 ld a,(ix+WIZ_Sn_RX_RD) ld l,(ix+WIZ_Sn_RX_RD+1) and gSn_RX_MASK ld h,a ;HL = get_offset call SET_WIZ_BUF2 ld bc,(CURCONN_RX_BASE) add hl,bc ;HL = get_start_address pop bc push bc call WIZ_TO_MSX ld ix,(CURCONN_REG_BASE) pop bc ;--- Issue the RECEIVE command call SET_WIZ_REGS2 ld h,(ix+WIZ_Sn_RX_RD) ld l,(ix+WIZ_Sn_RX_RD+1) add hl,bc ld (ix+WIZ_Sn_RX_RD),h ld (ix+WIZ_Sn_RX_RD+1),l ld a,CMD_RECV ld (ix+WIZ_Sn_CR),a ld hl,0 xor a jp RESTSLOTP2 ;========================= ;=== TCPIP_TCP_FLUSH === ;========================= ;Flush the output buffer of a TCP connection. ; ;Input: A = 19 ; B = Connection number ;Output: A = Error code TCPIP_TCP_FLUSH: ld a,ERR_NOT_IMP ret ;============================= ;=== TCPIP_CONFIG_AUTOIP === ;============================= ;Enable or disable the automatic IP addresses retrieval. ; ;Input: A = 25 ; B = 0: Get current configuration ; 1: Set configuration ; C = Configuration to set (only if B=1): ; bit 0: Set to automatically retrieve ; local IP address, subnet mask and default gateway ; bit 1: Set to automatically retrieve DNS servers addresses ; bits 2-7: Unused, must be zero ;Output: A = Error code ; C = Configuration after the routine execution ; (same format as C at input) TCPIP_CONFIG_AUTOIP: ld a,b and %11111110 ld a,ERR_INV_PARAM ret nz ld a,b or a jr z,AUTOIP_NOCHECK_C ld a,c and %11111100 ld a,ERR_INV_PARAM ret nz AUTOIP_NOCHECK_C: bit 0,b ;Get configuration? ld c,0 ld a,0 ret nz ld a,c ;Set configuration to automatic? or a ld a,ERR_NOT_IMP ret nz xor a ret ;========================= ;=== TCPIP_CONFIG_IP === ;========================= ;Manually configure an IP address. ; ;Input: A = 26 ; B = Index of address to set: ; 1: Local IP address ; 2: Peer IP address ; 3: Subnet mask ; 4: Default gateway ; 5: Primary DNS server IP address ; 6: Secondary DNS server IP address ; L.H.E.D = Address value ;Output: A = Error code TCPIP_CONFIG_IP: ;debug "1" call SETSLOTP2 ;debug "2" ld a,b or a jp z,END_INV_PAR_R ;--- Local IP address dec a jr nz,CFGIP_NO1 ;debug "3" call SET_WIZ_REGS2 ;debug "4" ld (WIZ_SIPR),hl ld (WIZ_SIPR+2),de xor a ;debug "5" jp RESTSLOTP2 CFGIP_NO1: ;--- Peer IP address dec a jp z,END_INV_PAR_R ;--- Subnet mask dec a jr nz,CFGIP_NO3 call SET_WIZ_REGS2 ld (WIZ_SUBR),hl ld (WIZ_SUBR+2),de xor a jp RESTSLOTP2 CFGIP_NO3: ;--- Default gateway dec a jr nz,CFGIP_NO4 call SET_WIZ_REGS2 ld (WIZ_GAR),hl ld (WIZ_GAR+2),de xor a jp RESTSLOTP2 CFGIP_NO4: ;--- Primary DNS dec a jr nz,CFGIP_NO5 call SET_WIZ_BUF2 ld (BUF_IPDNS1),hl ld (BUF_IPDNS1+2),de xor a jp RESTSLOTP2 CFGIP_NO5: ;--- Secondary DNS dec a jp nz,END_INV_PAR_R call SET_WIZ_BUF2 ld (BUF_IPDNS2),hl ld (BUF_IPDNS2+2),de xor a jp RESTSLOTP2 ;========================== ;=== TCPIP_CONFIG_TTL === ;========================== ;Get/set the value of TTL and TOS for outgoing datagrams. ; ;Input: A = 27 ; B = 0: Get current values ; 1: Set values ; D = New value for TTL (only if B=1) ; E = New value for ToS (only if B=1) ;Output: A = Error code ; D = Value of TTL after the routine execution ; E = Value of ToS after the routine execution TCPIP_CONFIG_TTL: ld a,b and %11111110 or a ld a,ERR_INV_PARAM ret nz call SETSLOTP2 call SET_WIZ_REGS2 ld a,b or a jr z,TTLTOS_GET xor a TTLTOS_SET_L: push af,de call SET_CUR_CONN pop de ld (ix+WIZ_Sn_TOS),e ld (ix+WIZ_Sn_TTL),d pop af inc a cp 4 jr c,TTLTOS_SET_L xor a jp RESTSLOTP2 TTLTOS_GET: call GET_CONN_BASE ld e,(ix+WIZ_Sn_TOS) ld d,(ix+WIZ_Sn_TTL) xor a jp RESTSLOTP2 ;=========================== ;=== TCPIP_CONFIG_PING === ;=========================== ;Get/set the automatic PING reply flag. ; ;Input: A = 28 ; B = 0: Get current flag value ; 1: Set flag value ; C = New flag value (only if B=1): ; 0: Off ; 1: On ;Output: A = Error code ; C = Flag value after the routine execution TCPIP_CONFIG_PING: ld a,b and %11111110 or a ld a,ERR_INV_PARAM ret nz ld a,b or a jr z,CFGPING_NOC ld a,c and %11111110 ld a,ERR_INV_PARAM ret nz CFGPING_NOC: call SETSLOTP2 call SET_WIZ_REGS2 ld hl,WIZ_MR ld a,b or a jr z,CFGPING_GET CFGPING_SET: bit 0,c jr z,CFGPING_SET0 CFGPING_SET1: res 4,(hl) ;0 = Ping block disabled (ping enabled) jp RESTSLOTP2 CFGPING_SET0: set 4,(hl) ;1 = Ping block enabled (ping disabled) jp RESTSLOTP2 CFGPING_GET: ld a,(hl) and %00010000 ld a,0 ld c,0 jp nz,RESTSLOTP2 inc c jp RESTSLOTP2 ;==================== ;=== TCPIP_WAIT === ;==================== ;Wait for a processing step to run. ; ;Input: A = 29 ;Output: A = Error code TCPIP_WAIT: ei ret ;******************************** ;*** DATA TRANSFER ROUTINES *** ;******************************** ;--- WIZ_TO_MSX ; ;This routine does a data transfer of data from ;W5100 receive buffer of the current connection to MSX memory, ;taking in account that receive buffer is circular. ;Assumes that receive buffer is 2K long and ;is currenly visible at page 2. ; ;Input: HL = Source address in W5100 RAM (page 2) ; DE = Destination address in MSX RAM (page 0, 2 or 3) ; BC = Transfer length ;Output: - ;Modifies: All (main, index, and alternate) WIZ_TO_MSX: ld a,d and 11000000b cp 80h jr z,WIZ_TO_MSX_INDIR ;Direct data transfer from W5100 buffer to MSX memory, ;it is invoked by WIZ_TO_MSX when the destination ;address is in page 0 or 3. ; ;Input: HL = Source address in W5100 RAM (page 2) ; DE = Destination address in MSX RAM (page 0 or 3) ; BC = Transfer length ;Output: HL = (HL + BC) and gSn_RX_MASK or (CURCONN_RX_BASE) ; DE = DE + BC ;Modifies: AF WIZ_TO_MSX_DIR: ;If the circular buffer border is not crossed, one single transfer will do... ld a,(CURCONN_RX_LIMIT+1) push hl add hl,bc dec hl cp h pop hl jr c,W2M_2XFERS jr z,W2M_2XFERS W2M_1XFER: push bc ldir pop bc ld a,(CURCONN_RX_LIMIT+1) cp h ret nz ld hl,(CURCONN_RX_BASE) ret ;...otherwise, we'll need to transfer in two chunks. W2M_2XFERS: push bc push hl push de ex de,hl ld hl,(CURCONN_RX_LIMIT) or a sbc hl,de ld b,h ld c,l ;BC=Size of higher chunk pop de ;DE=Destination MSX address pop hl ;HL=Source W5100 address push bc ldir pop bc ;BC=Size of higher chunk pop hl ;HL=Original size push hl or a sbc hl,bc ld b,h ld c,l ;BC=Remaining size ld hl,(CURCONN_RX_BASE) ldir pop bc ret ;Indirect data transfer from W5100 buffer to MSX memory, ;it is invoked by WIZ_TO_MSX when the destination ;address is in page 2. ; ;Input: HL = Source address in W5100 RAM (page 2) ; DE = Destination address in MSX RAM (page 0 or 3) ; BC = Transfer length ;Output: - ;Modifies: All (main, index, and alternate) WIZ_TO_MSX_INDIR: ld a,(H_PHYD) cp #C9 ;mnemonic for RET jr nz,GETFRAME_BUFP3 ;>>> Get frame, using inter-slot write <<< GETFRAME_RDSLT: push de ld de,(CURCONN_RX_BASE) ;Account for circular buffer call ADJUST_RX_POINTER pop de push hl,bc,de ld e,(hl) pop hl push hl ld a,(USER_SLOT_P2) call WRSLT pop de,bc,hl inc hl inc de dec bc ld a,b or c jr nz,GETFRAME_RDSLT ei ret ;>>> Get frame, buffering in page 3 <<< GETFRAME_BUFP3: push hl,de,bc call RESTSLOTP2 call GETSLTP1 ld ixh,a ;IXh=Our slot call GETSLTP2 ld ixl,a ;IXl=MSX RAM slot pop bc,de,hl GFI_LOOP1: ld a,b or c jr z,GFI_END ld a,b cp 2 jr c,GFI_LAST push bc exx ld a,ixh ;Switch W5100 RAM... ld h,#80 call ENASLT exx ld bc,512 push de ld de,(SECBUF) ;...copy 512 bytes to page 3... call WIZ_TO_MSX_DIR exx ld a,ixl ;...switch MSX RAM... ld h,#80 call ENASLT exx push hl pop iy pop de ld hl,(SECBUF) ld bc,512 ldir ;...and copy the 512 bytes from page 3. pop hl ld bc,-512 add hl,bc ld b,h ld c,l ;BC=Remaining frame size push iy pop hl jr GFI_LOOP1 ;Jump here when less than 512 frame bytes are remaining GFI_LAST: exx ld a,ixh ;Switch W5100 RAM... ld h,#80 call ENASLT exx push bc push de ld de,(SECBUF) call WIZ_TO_MSX_DIR ;...copy the remaining bytes bytes to page 3... pop de pop bc exx ld a,ixl ld h,#80 call ENASLT ;...switch MSX RAM... exx ld hl,(SECBUF) ldir ;...and copy the remaining bytes from page 3. GFI_END: ;At this point, page 2 must have MSX RAM switched. call SETSLOTP2 ret ;--- MSX_TO_WIZ ; ;This routine does a data transfer of data from MSX memory ;to W5100 transmit buffer of the current connection, ;taking in account that transmit buffer is circular. ;Assumes that transmit buffer is 2K long and ;is currenly visible at page 2. ; ;Input: HL = Source address in MSX RAM (page 0, 2 or 3) ; DE = Destination address in W5100 RAM (page 2) ; BC = Transfer length ;Output: - ;Modifies: All (main, index, and alternate) MSX_TO_WIZ: ld a,h and 11000000b cp 80h jr z,MSX_TO_WIZ_INDIR ;Direct data transfer from MSX memory to W5100 buffer, ;it is invoked by MSX_TO_WIZ when the source ;address is in page 0 or 3. ; ;Input: HL = Source address in MSX RAM (page 0 or 3) ; DE = Destination address in W5100 RAM (page 2) ; BC = Transfer length ;Output: HL = HL + BC ; DE = (DE + BC) and gSn_TX_MASK or (CURCONN_TX_BASE) ;Modifies: AF MSX_TO_WIZ_DIR: ;If the circular buffer border is not crossed, one single transfer will do... ld a,(CURCONN_TX_LIMIT+1) ex de,hl push hl add hl,bc dec hl cp h pop hl ex de,hl jr c,M2W_2XFERS jr z,M2W_2XFERS M2W_1XFER: push bc ldir pop bc ld a,(CURCONN_TX_LIMIT+1) cp d ret nz ld de,(CURCONN_TX_BASE) ret ;...otherwise, we'll need to transfer in two chunks. M2W_2XFERS: push bc push hl push de ld hl,(CURCONN_TX_LIMIT) or a sbc hl,de ld b,h ld c,l ;BC=Size of higher chunk pop de ;DE=Destination W5100 address pop hl ;HL=Source MSX address push bc ldir pop bc ;BC=Size of higher chunk ex (sp),hl ;HL=Original size, source address to stack or a sbc hl,bc ld b,h ld c,l ;BC=Remaining size ld de,(CURCONN_TX_BASE) ex (sp),hl ldir pop bc ret ;Indirect data transfer from MSX memory to W5100 buffer, ;it is invoked by MSX_TO_WIZ when the source ;address is in page 2. ; ;Input: HL = Source address in MSX RAM (page 2) ; DE = Destination address in W5100 RAM (page 2) ; BC = Transfer length ;Output: - ;Modifies: All (main, index, and alternate) MSX_TO_WIZ_INDIR: ld a,(H_PHYD) cp #C9 ;mnemonic for RET jr nz,SETFRAME_BUFP3 ;>>> Copy frame to W5100, using inter-slot read <<< SETFRAME_RDSLT: push hl ex de,hl ld de,(CURCONN_TX_BASE) ;Account for circular buffer call ADJUST_TX_POINTER ex de,hl pop hl ld a,(USER_SLOT_P2) push bc,de ;RDSLT preserves HL call RDSLT pop de,bc ld (de),a inc hl inc de dec bc ld a,b or c jr nz,SETFRAME_RDSLT ei ret ;>>> Copy frame to W5100, buffering in page 3 <<< SETFRAME_BUFP3: push hl,de,bc call RESTSLOTP2 call GETSLTP1 ld ixh,a ;IXh=Our slot call GETSLTP2 ld ixl,a ;IXl=MSX RAM slot pop bc,de,hl SFI_LOOP1: ld a,b or c jr z,SFI_END ld a,b cp 2 jr c,SFI_LAST push bc ld bc,512 push de ld de,(SECBUF) ;Copy 512 bytes to page 3... ldir exx ld a,ixh ;...switch W5100 RAM... ld h,#80 call ENASLT exx ld a,iyh push hl pop iy ld hl,(SECBUF) pop de ld bc,512 ex af,af' call MSX_TO_WIZ_DIR ;...copy the 512 bytes from page 3... exx ld a,ixl ;...and switch MSX RAM again. ld h,#80 call ENASLT exx ex af,af' pop hl ld bc,-512 add hl,bc ld b,h ld c,l ;BC=Remaining frame size push iy pop hl ld iyh,a jr SFI_LOOP1 ;Jump here when less than 512 frame bytes are remaining SFI_LAST: push bc push de ld de,(SECBUF) ldir ;Copy the remaining bytes to page 3... pop de pop bc exx ld a,ixh ld h,#80 call ENASLT ;...switch W5100 RAM... exx ld hl,(SECBUF) call MSX_TO_WIZ_DIR ;...copy the remaining bytes from page 3... exx ld a,ixl ;...and switch MSX RAM again. ld h,#80 call ENASLT exx SFI_END: ;At this point, page 2 must have MSX RAM switched. jp SETSLOTP2 ;*********************************** ;*** W5100 MANAGEMENT ROUTINES *** ;*********************************** ;--- Initialize hardware DO_RESET: call SETSLOTP2 call SET_WIZ_REGS2 ;Save current MAC ld ix,WIZ_SHAR ld l,(ix) ld h,(ix+1) ld e,(ix+2) ld d,(ix+3) ld c,(ix+4) ld b,(ix+5) push hl,de,bc ;Set mode register to 10000000b ;(do reset, ping enabled, PPPoE disabled, ; auto-increment disabled, indirect bus I/F mode disabled) ld a,10000000b ld (WIZ_MR),a WAIT_RESET: ld a,(WIZ_MR) and 10000000b jr nz,WAIT_RESET ;Restore MAC pop bc,de,hl call SET_MAC ;Configure memory so that every socket has ;2K for receive buffer and 1K for transmit buffer ld a,%01010101 ld (WIZ_RMSR),a xor a ld (WIZ_TMSR),a ;Clear socket interrupts ld a,#FF ld (WIZ_SOCKREG_BASE + (WIZ_SOCKREG_SIZE*0) + WIZ_Sn_IR),a ld (WIZ_SOCKREG_BASE + (WIZ_SOCKREG_SIZE*1) + WIZ_Sn_IR),a ld (WIZ_SOCKREG_BASE + (WIZ_SOCKREG_SIZE*2) + WIZ_Sn_IR),a ld (WIZ_SOCKREG_BASE + (WIZ_SOCKREG_SIZE*3) + WIZ_Sn_IR),a ;Open socket 0 in MAC RAW mode, set default TTL and ToS call OPEN_S0 ld a,64 ld (WIZ_SOCKREG_BASE + WIZ_Sn_TTL),a xor a ld (WIZ_SOCKREG_BASE + WIZ_Sn_TOS),a jp RESTSLOTP2 ;--- Set the MAC address ; Assumes W5100 registers visible on page 2 ; Input: L-H-E-D-C-B = MAC address to set ; Output: - ; Modifies: IX SET_MAC: ld ix,WIZ_SHAR ld (ix),l ld (ix+1),h ld (ix+2),e ld (ix+3),d ld (ix+4),c ld (ix+5),b ret ;--- Set W5100 registers on page 2 ; (does NOT change the slot on page 2) ; Input: - ; Output: - ; Modifies: AF SET_WIZ_REGS2: in a,(WIZ_PORT) and 11101111b out (WIZ_PORT),a ret ;--- Set W5100 buffer on page 2 ; (does NOT change the slot on page 2) ; Input: - ; Output: - ; Modifies: AF SET_WIZ_BUF2: in a,(WIZ_PORT) or 00010000b out (WIZ_PORT),a ret ;--- Open socket 0 in RAW mode ; Assumes W5100 registers visible on page 2 ; Input: - ; Output: A = 1 ; Modifies: F OPEN_S0: ld a,4 ld (WIZ_SOCKREG_BASE+WIZ_Sn_MR),a ld a,CMD_OPEN ld (WIZ_SOCKREG_BASE+WIZ_Sn_CR),a ld a,(WIZ_SOCKREG_BASE+WIZ_Sn_SR) cp SOCK_MACRAW ld a,1 ret z ld a,CMD_CLOSE ld (WIZ_SOCKREG_BASE+WIZ_Sn_CR),a jr OPEN_S0 ;--- Close socket 0 ; Assumes W5100 registers visible on page 2 ; Input: - ; Output: A = 2 ; Modifies: F CLOSE_S0: ld a,CMD_CLOSE ld (WIZ_SOCKREG_BASE+WIZ_Sn_CR),a ld a,2 ret ;--- Wait until W5100 is not busy ; Assumes W5100 registers visible on page 2 ; Input: - ; Output: - ; Modifies: AF WAIT_WIZ_BUSY: ld a,(WIZ_Sn_CR) or a ret z cp CMD_SEND jr nz,WAIT_WIZ_BUSY push hl push de push bc ld b,255 WIZ_BUSY_LOOP: ld a,(WIZ_Sn_CR) or a jr z,WAIT_WIZ_END ;Due to errata on W5100 chip, ;sometimes the sending process ;does not complete on UDP and Raw modes. ;In this case, S0_TX_RD and S0_TX_WR ;will never get equal, ;and after some time a reset must be issued. ld a,(WIZ_Sn_TX_RD) ld h,a ld a,(WIZ_Sn_TX_RD+1) ld l,a ld a,(WIZ_Sn_TX_WR) ld d,a ld a,(WIZ_Sn_TX_WR+1) ld e,a call COMP16 jr nz,WIZ_BUSY_LOOP djnz WAIT_WIZ_END ld hl,(WIZ_SOCKREG_BASE+WIZ_Sn_TOS) call CLOSE_S0 call OPEN_S0 ld (WIZ_SOCKREG_BASE+WIZ_Sn_TOS),hl WAIT_WIZ_END: pop bc pop de pop hl ret ;--- Get a free connection ; Input: - ; Output: A = Free connection number (1 to 3), ; 0 if no free connections available ; Modifies: AF, BC, DE, IX GET_FREE_CONN: ld ix,WIZ_SOCKREG_BASE+WIZ_SOCKREG_SIZE ld de,WIZ_SOCKREG_SIZE ld bc,#0301 FREECONN_LOOP: ld a,(ix+WIZ_Sn_SR) or a ld a,c ret z add ix,de inc c djnz FREECONN_LOOP xor a ret ;--- Check if a TCP connection exists, and if so, ; switch W5100 registers at page 2 (via SETSLOTP2) and ; set the connection it as the current connection. ; Input: B = Connection number ; Output: A = Error code (ERR_OK or ERR_NO_CONN) ; C = 0 if A<>0 ; Modifies: F, C, DE, IY SETUP_TCP: ld a,b cp 3+1 ld a,ERR_NO_CONN ret nc ld a,b or a ld a,ERR_NO_CONN ret z call SETSLOTP2 ld a,b call SET_CUR_CONN call SET_WIZ_REGS2 ld a,(ix+WIZ_Sn_SR) ld c,0 ;Close reason is not supported currently cp SOCK_UDP jp z,END_NOCONN cp SOCK_CLOSED jp z,END_NOCONN xor a ret ;****************************************** ;*** MISCELLANEOUS AUXILIARY ROUTINES *** ;****************************************** ;--- Terminate functions with various error codes END_INV_PAR_R: call RESTSLOTP2 END_INV_PAR: ld a,ERR_INV_PARAM ret END_OK: xor a jp RESTSLOTP2 END_NOCONN: ld a,ERR_NO_CONN jp RESTSLOTP2 ;--- Set on page 2 the same slot of page 1. ; The previous slot on page 2 is saved on the variables area, ; and can be restored by calling RESTSLOTP2. ; Input: - ; Output: - (W5100 data memory is visible at page 2) ; Modifies: AF', BC', DE', HL' SETSLOTP2: ex af,af' exx call GETSLTP2 push af call GETSLTP1 ld h,80h call ENASLT call SET_WIZ_BUF2 pop af ld (USER_SLOT_P2),a exx ex af,af' ret ;--- Restore the original slot on page 2, ; assumes that SETSLOTP2 has been ; called previously. ; Input: - ; Output: - ; Modifies: AF', BC', DE', HL' RESTSLOTP2: ex af,af' exx call SET_WIZ_BUF2 ld a,(USER_SLOT_P2) ld h,80h call ENASLT exx ex af,af' ret ;--- Get slot connected on page 1 ; Input: - ; Output: A = Slot number ; Modifies: AF, HL, E, BC GETSLTP1: di in a,(0A8h) ld e,a and 00001100b sra a sra a ld c,a ;C = Slot ld b,0 ld hl,EXPTBL add hl,bc bit 7,(hl) jr z,NOEXP1 EXP1: inc hl inc hl inc hl inc hl ld a,(hl) and 00001100b or c or 080h ld c,a NOEXP1: ld a,c ei ret ;--- Get slot connected on page 2 ; Input: - ; Output: A = Slot number ; Modifies: AF, HL, E, BC GETSLTP2: di in a,(0A8h) ld e,a and 00110000b sra a sra a sra a sra a ld c,a ;C = Slot ld b,0 ld hl,EXPTBL add hl,bc bit 7,(hl) jr z,NOEXP2 EXP2: inc hl inc hl inc hl inc hl ld a,(hl) and 00110000b sra a sra a or c or 080h ld c,a NOEXP2: ld a,c ei ret ;--- Obtain slot work area (8 bytes) on SLTWRK ; Input: A = Slot number ; Output: HL = Work area address ; Modifies: AF, BC GETWRK: ld b,a rrca rrca rrca and 0c0h ld c,a ;C = Slot * 32 ld a,b rlca and 018h ;A = Subslot * 8 or c ld c,a ld b,0 ld hl,SLTWRK add hl,bc ret ;--- Convert a character to upper-case if it is a lower-case letter ; Input: A = Character ; Output: A = Converted character ; Modifies: F TOUPPER: cp "a" ret c cp "z"+1 ret nc and 0DFh ret ;--- Compare HL and DE ; Input: HL, DE = values to compare ; Output: Cy set if HL Success ; 1 => The number has more than 5 digits. ; CY-BC contains then the number built from ; the first 5 digits. ; MODIFIES: - EXTNUM: push hl,ix ld ix,ACA res 0,(ix) set 1,(ix) ld bc,0 ld de,0 BUSNUM: ld a,(hl) ;Jump to FINEXT if not a digit, or is the 6th digit ld e,a cp "0" jr c,FINEXT cp "9"+1 jr nc,FINEXT ld a,d cp 5 jr z,FINEXT call POR10 SUMA: push hl ;BC = BC + A push bc pop hl ld bc,0 ld a,e sub "0" ld c,a add hl,bc call c,BIT17 push hl pop bc pop hl inc d inc hl jr BUSNUM BIT17: set 0,(ix) ret ACA: db 0 ;b0: num>65535. b1: more than 5 digits FINEXT: ld a,e cp "0" call c,NODESB cp "9"+1 call nc,NODESB ld a,(ix) pop ix,hl srl a ret NODESB: res 1,(ix) ret POR10: push de,hl ;BC = BC * 10 push bc push bc pop hl pop de ld b,3 ROTA: sla l rl h djnz ROTA call c,BIT17 add hl,de call c,BIT17 add hl,de call c,BIT17 push hl pop bc pop hl,de ret ;************** ;*** DATA *** ;************** ;--- Specification identifier (up to 15 chars and zero terminated) UNAPI_ID: db "TCP/IP",0 ;--- Implementation identifier (up to 63 chars and zero terminated) APIINFO: db "DenYoNet",0 ;--- Other data INITMSG: db 13,10,"DenYoNet Ethernet Cartridge",13,10 db "(c) 2009 Dennis Koller & Yobi",13,10 db "Produced by Sunrise for MSX",13,10 db 13,10 db "DenYoNet TCP/IP UNAPI BIOS ",ROM_V_P+48,".",ROM_V_S+48,13,10 db "(c) 2010 Konamiman",13,10 db 13,10 db 0 ;ds 08000h-$,#FF ;Padding to make a 16K ROM end