NEW
  AUTO 3,1
				.LIST OFF	
*--------------------------------------
FRM.GetTargetSKT.TCPUDP
				ldy #S.TCPUDP.SRCPORT
				lda (ZPFrameInPtr),y
				sta SKT.REM.ADDR+S.SOCKADDR.PORT+1
				iny
				lda (ZPFrameInPtr),y
				sta SKT.REM.ADDR+S.SOCKADDR.PORT
				iny						#S.TCPUDP.DSTPORT
				lda (ZPFrameInPtr),y
				sta SKT.LOC.ADDR+S.SOCKADDR.PORT+1
				iny
				lda (ZPFrameInPtr),y
				sta SKT.LOC.ADDR+S.SOCKADDR.PORT

FRM.GetTargetSKT.RAW
				ldy #S.IP.SRC+3
				ldx #3

.1				lda (ZPFrameInPtr),y
				sta SKT.REM.ADDR+S.SOCKADDR.ADDR,x
				dey
				dex
				bpl .1

				ldy #S.IP.DST+3
				ldx #3

.2				lda (ZPFrameInPtr),y
				sta SKT.LOC.ADDR+S.SOCKADDR.ADDR,x
				dey
				dex
				bpl .2

				rts
*--------------------------------------
* FRM.NewIP
*  In:
*  Y,A = DataLen
*  X = S.IP.PROTOCOL.xxx
* Out:
*  Y,A = Frame PTR
*  X = hMem
*--------------------------------------
FRM.NewIP		stx	.8+1
				>STYA ZPDataOutLen
				cpx #S.IP.PROTOCOL.TCP
				bne .1

				lda #S.TCP
				bra .4

.1				cpx #S.IP.PROTOCOL.UDP
				bne .2

				lda #S.UDP
				bra .4

.2				lda #S.IP

.4				sta	.5+1 				save Header len for reset later
				clc
				adc ZPDataOutLen
				sta ZPFrameOutLen
				tay
				lda #0
				adc ZPDataOutLen+1
				sta ZPFrameOutLen+1
				>SYSCALL2 getmem
				bcs .9

				stx hFrameOut
				>STYA ZPFrameOutPtr

				ldy #0
.5				ldx #$ff				Self Modified, header length
				lda #0

.6				sta (ZPFrameOutPtr),y
				iny
				dex
				bne .6

				tya
*				clc
				adc ZPFrameOutPtr
				sta ZPDataOutPtr
				lda #0
				adc ZPFrameOutPtr+1
				sta ZPDataOutPtr+1
				lda IPCFG+S.NETCFG.DevFlags
				and #S.DCB.NIC.FLAGS.IPOFFLOAD
				bne .7

				ldy #S.ETH.EII.TYPE
				lda /S.ETH.EII.TYPE.IP
				sta (ZPFrameOutPtr),y		
				iny
				lda #S.ETH.EII.TYPE.IP
				sta (ZPFrameOutPtr),y

				ldy #S.IP.V.IHL.DSCP.ECN
				lda #$45
				sta (ZPFrameOutPtr),y
*				iny
*				lda #$0
*				sta (ZPFrameOutPtr),y

*				ldy #S.IP.FRAGMENT.FLAGS 
*				sta (ZPFrameOutPtr),y
*				iny
*				sta (ZPFrameOutPtr),y
				ldy #S.IP.IDENTIFICATION+1
				lda IP.ID
				ldx IP.ID+1
				inc
				bne .61

				inx

				stx IP.ID+1

.61				sta IP.ID
				sta (ZPFrameOutPtr),y
				dey
				txa
				sta (ZPFrameOutPtr),y

				ldy #S.IP.TTL
				lda #K.IP.TTL
				sta (ZPFrameOutPtr),y
		
.7				ldy #S.IP.PROTOCOL

.8				lda #$ff
				sta (ZPFrameOutPtr),y
.9				rts
*--------------------------------------
*				clc						Queue if fail
*				sec						DONT Queue if fail
*--------------------------------------
FRM.SendIP		php
				ldx #3					Copy SRC.IP even if IP offload
				ldy #S.IP.SRC+3			for proper UDP/TCP CRC calculation

.1				lda IPCFG+S.IPCFG.IP,x
				sta (ZPFrameOutPtr),y	
				dey
				dex
				bpl .1

				lda IPCFG+S.NETCFG.DevFlags
				and #S.DCB.NIC.FLAGS.IPOFFLOAD
				bne .21

				ldy #S.IP.TOTAL.LENGTH+1
				lda ZPFrameOutLen
				sec
				sbc #S.ETH.EII
				sta (ZPFrameOutPtr),y
				dey
				lda ZPFrameOutLen+1
				sbc /S.ETH.EII
				sta (ZPFrameOutPtr),y
				lda #0
				ldy #S.IP.HDR.CHECKSUM
				sta (ZPFrameOutPtr),y
				iny
				sta (ZPFrameOutPtr),y
				stz IP.CHECKSUM			RESET IP CHECKSUM
				stz IP.CHECKSUM+1

				clc

				ldy #S.IP.V.IHL.DSCP.ECN

				ldx #10					10 words for IP Header

.2				lda (ZPFrameOutPtr),y
				adc IP.CHECKSUM
				sta IP.CHECKSUM

				iny
				lda (ZPFrameOutPtr),y
				adc IP.CHECKSUM+1
				sta IP.CHECKSUM+1
				iny
				dex
				bne .2

				ldy #S.IP.HDR.CHECKSUM
				lda IP.CHECKSUM
				adc #0
				eor #$FF
				sta (ZPFrameOutPtr),y
				iny
				lda IP.CHECKSUM+1
				adc #0
				eor #$FF
				sta (ZPFrameOutPtr),y

.21				ldy #S.IP.PROTOCOL
				lda (ZPFrameOutPtr),y
				cmp #S.IP.PROTOCOL.TCP
				bne .3

				jsr IP.ComputeTCPChecksum
				bra .5

.3				cmp #S.IP.PROTOCOL.UDP
				bne .4

				lda ZPFrameOutLen
				sec
				sbc #S.IP
				ldy #S.UDP.LENGTH+1
				sta (ZPFrameOutPtr),y
				lda ZPFrameOutLen+1
				sbc /S.IP
				dey
				sta (ZPFrameOutPtr),y
				jsr IP.ComputeUDPChecksum
				bra .5

.4				cmp #S.IP.PROTOCOL.ICMP
				bne .5

				jsr IP.ComputeICMPChecksum

.5				lda IPCFG+S.NETCFG.DevFlags
				and #S.DCB.NIC.FLAGS.ARPOFFLOAD
				bne .6

				jsr IP.SetDestMAC
				bcs FRM.Queue
				
.6				jsr FRM.Send
				bcs FRM.Queue

				jsr	FRM.Discard

				plp
				clc
				rts
*--------------------------------------
FRM.Queue		plp
				bcs FRM.Discard			DONT queue

				ldy hFrameOut			no hFrame, cannot queue for retry
				beq FRM.Discard.9

				ldx FRM.QUEUE.Head
				inx
				cpx #K.FRMQUEUE.SIZE
				bne .1
				
				ldx #0

.1				cpx FRM.QUEUE.Tail
				beq FRM.Discard			CS
				ldy FRM.QUEUE.Head
				stx FRM.QUEUE.Head

				sta	FRM.QUEUE.State,y
				lda #K.FRMSEND.RETRY
				sta FRM.QUEUE.Retry,y
				lda hFrameOut
				sta FRM.QUEUE.hMem,y
				lda ZPFrameOutLen
				sta FRM.QUEUE.LenL,y
				lda ZPFrameOutLen+1
				sta FRM.QUEUE.LenH,y
				clc
.9				rts
*--------------------------------------
FRM.Discard		lda hFrameOut
				beq FRM.Discard.9

				stz hFrameOut
				>SYSCALL2 FreeMem

FRM.Discard.9	sec
				rts
*--------------------------------------
FRM.Retry		ldx FRM.QUEUE.Tail

.1				cpx FRM.QUEUE.Head
				beq .8					Queue is empty, exit...
				lda FRM.QUEUE.LenL,x
				sta ZPFrameOutLen
				lda FRM.QUEUE.LenH,x
				sta ZPFrameOutLen+1

				lda FRM.QUEUE.hMem,x
				>SYSCALL2 GetMemPtr
				>STYA ZPFrameOutPtr
				ldx FRM.QUEUE.Tail
				lda FRM.QUEUE.State,x
				cmp #ERR.ARP.PENDING
				bne .2

				jsr IP.SetDestMAC		Err is ARP or higher, retry getting MAC
				bcs .3					still error getting dest MAC
.2				jsr FRM.Send			try sending again to DRV
				bcc .4

.3				ldx FRM.QUEUE.Tail
				sta FRM.QUEUE.State,x	save error...
				dec FRM.QUEUE.Retry,x	
				bne .8					exit....until next run!
	
.4				ldx FRM.QUEUE.Tail
				lda FRM.QUEUE.hMem,x	Success,or max retry, discard entry
				inx
				cpx #K.FRMQUEUE.SIZE
				bne .5

				ldx #0
.5				stx FRM.QUEUE.Tail
				>SYSCALL2 FreeMem
				bra FRM.Retry

.8				rts
*--------------------------------------
FRM.Send		ldx #3

.1				lda ZPFrameOutPtr,x		Get Frame Ptr & Len
				sta IOCTL+S.IOCTL.BUFPTR,x
				dex
				bpl .1
				
FRM.Send.IOCTL	>PUSHW L.IOCTL
				>PUSHBI IOCTL.WRITE
				lda IPCFG+S.NETCFG.DevID
				>SYSCALL2 IOCTL
				rts
*--------------------------------------
FRM.DiscardIn	lda hFrameIn
				beq .8
				stz hFrameIn

				>SYSCALL2 FreeMem
.8				clc
				rts
*--------------------------------------
MAN
SAVE USR/SRC/LIB/LIBTCPIP.S.FRM
LOAD USR/SRC/LIB/LIBTCPIP.S
ASM