2019-01-05 20:33:08 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
PREFIX
|
|
|
|
|
|
AUTO 4,1
|
|
|
|
|
|
.LIST OFF
|
|
|
|
|
|
.OP 65C02
|
|
|
|
|
|
.OR $2000
|
|
|
|
|
|
.TF LIB/LIBETALK
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
|
.INB INC/A2OSX.I
|
|
|
|
|
|
.INB INC/NIC.I
|
|
|
|
|
|
.INB INC/ETH.I
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.INB INC/LIBETALK.I
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
ZPFrameInPtr .EQ ZPLIB
|
|
|
|
|
|
ZPFrameInLen .EQ ZPLIB+2
|
|
|
|
|
|
|
|
|
|
|
|
ZPDataInPtr .EQ ZPLIB+4
|
|
|
|
|
|
ZPDataInLen .EQ ZPLIB+6
|
|
|
|
|
|
|
|
|
|
|
|
ZPFrameOutPtr .EQ ZPLIB+8
|
|
|
|
|
|
ZPFrameOutLen .EQ ZPLIB+10
|
|
|
|
|
|
|
|
|
|
|
|
ZPDataOutPtr .EQ ZPLIB+12
|
|
|
|
|
|
ZPDataOutLen .EQ ZPLIB+14
|
|
|
|
|
|
|
|
|
|
|
|
ZPIOCTL .EQ ZPLIB+16
|
2019-01-14 16:37:56 +00:00
|
|
|
|
ZPTmpPtr1 .EQ ZPLIB+18
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* File Header (16 Bytes)
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
CS.START cld
|
|
|
|
|
|
jmp (.1,x)
|
|
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
|
|
|
|
|
.DA 0
|
|
|
|
|
|
.DA CS.END-CS.START
|
|
|
|
|
|
.DA 0
|
|
|
|
|
|
.DA 0
|
|
|
|
|
|
.DA 0
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* Relocation Table
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
.1 .DA LIB.LOAD
|
|
|
|
|
|
.DA LIB.UNLOAD
|
|
|
|
|
|
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.DA CFG.SET
|
|
|
|
|
|
.DA CFG.GET
|
2019-01-05 20:33:08 +00:00
|
|
|
|
|
|
|
|
|
|
.DA INCOMING
|
|
|
|
|
|
.DA PULSE
|
|
|
|
|
|
*--------------------------------------
|
2019-01-14 16:37:56 +00:00
|
|
|
|
L.ETKCFG .DA ETKCFG
|
2019-01-05 20:33:08 +00:00
|
|
|
|
.DA 0
|
|
|
|
|
|
*--------------------------------------
|
2019-01-14 07:11:50 +00:00
|
|
|
|
LIB.LOAD
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
2019-01-14 07:11:50 +00:00
|
|
|
|
LIB.UNLOAD
|
2019-01-14 16:37:56 +00:00
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
2019-01-14 16:37:56 +00:00
|
|
|
|
CFG.SET >PULLW ZPTmpPtr1 IPCFG
|
|
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda (ZPTmpPtr1),y
|
|
|
|
|
|
sta ETKCFG,y
|
|
|
|
|
|
iny
|
|
|
|
|
|
cpy #S.ETKCFG
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
2019-01-14 16:37:56 +00:00
|
|
|
|
CFG.GET >LDYA L.ETKCFG
|
2019-01-14 07:11:50 +00:00
|
|
|
|
clc
|
|
|
|
|
|
rts
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
INCOMING sta hFrameIn
|
|
|
|
|
|
>PULLW ZPIOCTL
|
|
|
|
|
|
|
|
|
|
|
|
ldy #S.IOCTL.BUFPTR+3
|
|
|
|
|
|
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.1 lda (ZPIOCTL),y Get Frame Ptr & Len
|
|
|
|
|
|
sta ZPFrameInPtr-S.IOCTL.BUFPTR,y
|
2019-01-05 20:33:08 +00:00
|
|
|
|
dey
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2019-01-14 16:37:56 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* A = S.EVT.F
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
PULSE and #S.EVT.F.T1SEC
|
2019-01-14 16:37:56 +00:00
|
|
|
|
beq .9
|
2019-01-05 20:33:08 +00:00
|
|
|
|
|
2019-01-14 16:37:56 +00:00
|
|
|
|
.9 rts
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
CS.END
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
hFrameIn .BS 1
|
2019-01-14 16:37:56 +00:00
|
|
|
|
ETKCFG .BS S.ETKCFG
|
2019-01-05 20:33:08 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
|
|
|
|
|
SAVE USR/SRC/LIB/LIBETALK.S
|
|
|
|
|
|
ASM
|
