2015-03-14 21:47:37 +00:00
|
|
|
|
PR#3
|
2015-06-03 18:30:57 +00:00
|
|
|
|
PREFIX /A2OSX.SRC
|
2015-03-14 21:47:37 +00:00
|
|
|
|
NEW
|
|
|
|
|
INC 1
|
|
|
|
|
AUTO 6
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.LIST OFF
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.OP 65C02
|
|
|
|
|
.OR $2000
|
2015-11-22 22:30:06 +00:00
|
|
|
|
.TF /A2OSX.BOOT/BIN/DNSINFO
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
.INB INC/MACROS.I
|
|
|
|
|
.INB INC/A2OSX.I
|
|
|
|
|
.INB INC/LIBTCPIP.I
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
ZPPTR1 .EQ ZPBIN
|
2015-10-19 20:35:00 +00:00
|
|
|
|
ZPPTR2 .EQ ZPBIN+2
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*--------------------------------------
|
2015-09-13 20:35:07 +00:00
|
|
|
|
* File Header (16 Bytes)
|
2015-03-14 21:47:37 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.START cld
|
|
|
|
|
jmp (.1,x)
|
2015-09-13 20:35:07 +00:00
|
|
|
|
.DA #$61 6502,Level 1 (65c02)
|
|
|
|
|
.DA #1 BIN Layout Version 1
|
|
|
|
|
.DA 0
|
|
|
|
|
.DA CS.END-CS.START Code Length To Relocate
|
|
|
|
|
.DA 0 No Data Segment to Allocate
|
|
|
|
|
.DA 0
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
* Relocation Table
|
|
|
|
|
*--------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
.1 .DA CS.INIT
|
|
|
|
|
.DA CS.RUN
|
|
|
|
|
.DA CS.EVENT
|
|
|
|
|
.DA CS.QUIT
|
|
|
|
|
L.LIBTCPIP .DA LIBTCPIP
|
|
|
|
|
L.SSCANF.IP .DA SSCANF.IP
|
|
|
|
|
L.IP .DA IP
|
|
|
|
|
L.MSG0 .DA MSG0
|
|
|
|
|
L.MSG1 .DA MSG1
|
|
|
|
|
.DA 0
|
|
|
|
|
*--------------------------------------
|
2016-10-18 06:26:24 +00:00
|
|
|
|
CS.INIT >LDYA L.LIBTCPIP
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL LoadLibYA
|
2015-03-14 21:47:37 +00:00
|
|
|
|
sta hLIBTCPIP
|
2015-09-13 20:35:07 +00:00
|
|
|
|
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL GetArgC
|
2016-10-08 20:53:45 +00:00
|
|
|
|
cmp #1
|
|
|
|
|
beq CS.INIT.DUMP
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.INIT.ADD cmp #3
|
|
|
|
|
bne .9
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
|
|
|
|
>PUSHW L.IP
|
|
|
|
|
>PUSHW L.SSCANF.IP
|
2016-10-08 20:53:45 +00:00
|
|
|
|
lda #3
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL GetArgA
|
2015-03-14 21:47:37 +00:00
|
|
|
|
>PUSHYA
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL SSCANF
|
2015-03-14 21:47:37 +00:00
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
>PUSHW L.IP
|
2016-10-08 20:53:45 +00:00
|
|
|
|
lda #2
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL GetArgA
|
2015-09-13 20:35:07 +00:00
|
|
|
|
>PUSHYA
|
2015-03-14 21:47:37 +00:00
|
|
|
|
>LIBCALL hLIBTCPIP,LIBTCPIP.DNS.ADD
|
|
|
|
|
bcs .99
|
|
|
|
|
|
|
|
|
|
lda #0 tell TSKMGR that all done ok, but
|
|
|
|
|
sec we do not want to stay in memory
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
.9 lda #SYSMGR.ERRSYN
|
|
|
|
|
sec
|
|
|
|
|
.99 rts
|
2016-10-08 20:53:45 +00:00
|
|
|
|
*--------------------------------------
|
2015-03-14 21:47:37 +00:00
|
|
|
|
CS.INIT.DUMP >LIBCALL hLIBTCPIP,LIBTCPIP.DNS.GETCACHE
|
|
|
|
|
>STYA ZPPTR1
|
2016-10-18 06:26:24 +00:00
|
|
|
|
>LDYA L.MSG0
|
2016-11-03 16:27:43 +00:00
|
|
|
|
>SYSCALL CPrintFYA
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2016-03-17 07:31:11 +00:00
|
|
|
|
lda #K.DNSCACHE.SIZE
|
|
|
|
|
sta EntryCount
|
2015-09-13 20:35:07 +00:00
|
|
|
|
|
2016-03-17 07:31:11 +00:00
|
|
|
|
.1 lda (ZPPTR1)
|
2015-03-14 21:47:37 +00:00
|
|
|
|
beq .2
|
|
|
|
|
|
2015-10-19 20:35:00 +00:00
|
|
|
|
ldy #S.DNSCACHE.TTL+4
|
|
|
|
|
.6 dey
|
2015-09-13 20:35:07 +00:00
|
|
|
|
lda (ZPPTR1),y
|
|
|
|
|
>PUSHA
|
2015-10-19 20:35:00 +00:00
|
|
|
|
cpy #S.DNSCACHE.TTL
|
|
|
|
|
bne .6
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2016-03-17 07:31:11 +00:00
|
|
|
|
ldy #S.DNSCACHE.IP+4
|
|
|
|
|
.5 dey
|
|
|
|
|
lda (ZPPTR1),y
|
|
|
|
|
>PUSHA
|
|
|
|
|
cpy #S.DNSCACHE.IP
|
|
|
|
|
bne .5
|
|
|
|
|
|
2015-03-14 21:47:37 +00:00
|
|
|
|
ldy #S.DNSCACHE.hNAME
|
|
|
|
|
lda (ZPPTR1),y
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL GetMemPtrA
|
2016-03-17 07:31:11 +00:00
|
|
|
|
>PUSHYA
|
2015-10-19 20:35:00 +00:00
|
|
|
|
|
2016-03-27 21:03:40 +00:00
|
|
|
|
ldy #S.DNSCACHE.ID
|
|
|
|
|
>PUSHB (ZPPTR1),y
|
|
|
|
|
iny
|
|
|
|
|
>PUSHB (ZPPTR1),y
|
|
|
|
|
|
2015-10-19 20:35:00 +00:00
|
|
|
|
>PUSHB (ZPPTR1) Entry Status
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2016-10-18 06:26:24 +00:00
|
|
|
|
>LDYA L.MSG1
|
2016-11-03 16:27:43 +00:00
|
|
|
|
>SYSCALL CPrintFYA
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
|
|
|
|
.2 lda ZPPTR1
|
|
|
|
|
clc
|
|
|
|
|
adc #S.DNSCACHE
|
|
|
|
|
sta ZPPTR1
|
|
|
|
|
bcc .3
|
|
|
|
|
inc ZPPTR1+1
|
2015-10-19 20:35:00 +00:00
|
|
|
|
|
2016-03-17 07:31:11 +00:00
|
|
|
|
.3 dec EntryCount
|
|
|
|
|
bne .1
|
2015-03-14 21:47:37 +00:00
|
|
|
|
|
2015-10-19 20:35:00 +00:00
|
|
|
|
.8 lda #0 tell TSKMGR that all done ok, but
|
2015-03-14 21:47:37 +00:00
|
|
|
|
sec we do not want to stay in memory
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.RUN
|
|
|
|
|
CS.EVENT clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2016-10-08 20:53:45 +00:00
|
|
|
|
CS.QUIT lda hLIBTCPIP
|
2016-10-24 15:54:43 +00:00
|
|
|
|
>SYSCALL UnloadLibA
|
2015-03-14 21:47:37 +00:00
|
|
|
|
clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
CS.END
|
2016-10-24 15:54:43 +00:00
|
|
|
|
LIBTCPIP >PSTR "libtcpip.o"
|
|
|
|
|
SSCANF.IP >PSTR "%d.%d.%d.%d"
|
|
|
|
|
MSG0 >CSTR "STS TR.ID Hostname IP Address TTL\n"
|
|
|
|
|
MSG1 >CSTR "$%h $%H %32S %03d.%03d.%03d.%03d %L\n"
|
2015-03-14 21:47:37 +00:00
|
|
|
|
hLIBTCPIP .BS 1
|
2016-10-08 20:53:45 +00:00
|
|
|
|
|
2015-03-14 21:47:37 +00:00
|
|
|
|
IP .BS 4
|
2016-03-17 07:31:11 +00:00
|
|
|
|
EntryCount .BS 1
|
2015-03-14 21:47:37 +00:00
|
|
|
|
MAN
|
2015-11-22 22:30:06 +00:00
|
|
|
|
SAVE BIN/DNSINFO.S
|
2015-03-14 21:47:37 +00:00
|
|
|
|
ASM
|