XLFNSLK ;ISF/RWF,ISD/HGW - Calling a DNS server for name lookup ;07/11/14 11:18
Source file <XLFNSLK.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
H2(Z2) | ;Convert 2 byte string to HEX
|
|
WBN(Z1) | ;Convert two byte string to a ASCII number
|
|
NS(XL,NAME,QTYPE,XLFLOG) | ;NAME LOOKUP
|
|
BIN16(S) | ;Convert two byte string to 16 bit binary
|
|
QD(NSP) | ;Decode the Question section
|
|
GETDNS(I) | ;Get the address of our DNS
|
|
SAVEDEV | ;Save calling device
|
|
POST | ;Stuff a DNS address during install POST init.
|
|
RR(NSP) | ;
|
|
H1(Z1) | ;Convert decimal number <= 256 to two digit HEX number
|
|
BN(Z1,Z2) | ;Convert two binary char 16 bit number into ASCII number
|
|
DECODE | ;
|
|
READ | ;
|
|
BUILD(Y,T) | ;BUILD A QUERY
; ID,PARAM,#of?, #ofA, #of Auth, #of add, |
|
MAIL(RET,N) | ;Get the MX address for a domain
|
|
MX(IX) | ;Hide IX changes
|
|
SW(T,H,V) | ;
|
|
LOG(M) | ;Log Debug messages
|
|
SHOW | ;LIST RI AND XL
|
|
ADDRESS(N,T) | ;Get a IP address from a name
|
|
PART(S,L) | ;
|
|
RDERR | ;End of read
|
|
NS2 | ||
CLASS(T) | ;
|
|
H(Z1) | ||
RESDEV | ;Restore calling device
|
|
TYPECODE(T) | ;
|
|
EXIT | ||
NAME(I,NM,F) | ;Decode a NAME section
|
|
TEST | ;Test entry
|
Name | Field # of Occurrence |
---|---|
HOME^%ZIS | SAVEDEV+1 |
CALL^%ZISTCP | NS2+2 |
CLOSE^%ZISTCP | RDERR+1 |
RMDEV^%ZISUTL | RESDEV+1 |
SAVDEV^%ZISUTL | SAVEDEV+1 |
USE^%ZISUTL | RESDEV+1 |
^DIE | POST+5 |
EN^DIQ1 | POST+4 |
$$PARAM^HLCS2 | POST+2 |
$$VERSION^XLFIPV | ADDRESS+2 |
$$RJ^XLFSTR | H1+2 |
$$BASE^XLFUTL | H |
$$CNV^XLFUTL | H1+1 |
BMES^XPDUTL | POST+3, POST+6 |
Name | Line Occurrences |
---|---|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("OS" | ADDRESS+3 |
^XTV(8989.3 - [#8989.3] | GETDNS+1 |
Name | Line Occurrences |
---|---|
$$BIN16 | READ+4 |
$$BN | QD+3, QD+4, RR+3, RR+4, RR+7, MX+1 |
$$GETDNS | NS2 |
$$H | H2+2 |
$$H1 | RR+11, RR+12, RR+13, RR+14 |
$$NAME | QD+2, RR+2, NAME+3, MX+4 |
$$PART | NAME+4 |
$$TYPECODE | BUILD+8 |
$$WBN | READ+4 |
BUILD | NS2+4 |
DECODE | NS2+6 |
EXIT | NS2 |
LOG | NS2+1, NS2+3, NS2+4, NS2+7, BUILD+9, READ+2, READ+5, READ+6, DECODE+2 |
MX | RR+16 |
NS | TEST+4, TEST+8, ADDRESS+5, MAIL+3 |
NS2 | NS2+2 |
QD | DECODE+7 |
RDERR | READ+2, READ+5 |
READ | NS2+6 |
RESDEV | NS2+7, EXIT |
RR | DECODE+8 |
SAVEDEV | NS+4 |
SW | SHOW+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | BUILD+2~, BUILD+5*, BUILD+10* |
A | PART+1~* |
B | H2+1~*, H2+2 |
CNT | NS+3~*, NS2, NS2+2* |
>> DA | POST+4*, POST+5* |
DIC | POST+1~, POST+4* |
DIE | POST+1~, POST+5* |
DIQ | POST+1~, POST+4* |
DNS | NS+3~, NS2*, NS2+1, NS2+2 |
DR | POST+1~, POST+4*, POST+5* |
DTIME | TEST+2 |
F | NAME~, NAME+1, NAME+2, NAME+3, NAME+4 |
H | SW~, SW+1 |
I | TEST+1~, ADDRESS+1~, ADDRESS+6*, MAIL+2~, MAIL+4*, MAIL+5, BUILD+2~, BUILD+5*, READ+4*, READ+7* , DECODE+1~, NAME~, NAME+2, NAME+3, NAME+4*, GETDNS~, GETDNS+2, SHOW+2* |
IO | BUILD+10, READ+2, READ+7 |
IO("CLOSE" | RESDEV+2! |
IO(0 | SAVEDEV+1 |
IX | DECODE+1~, DECODE+6*, QD+2*, QD+3*, QD+4*, RR+2*, RR+3*, RR+4*, RR+5, RR+6* , RR+7*, RR+9, RR+11, RR+12, RR+13, RR+14, RR+16, RR+17*, MX~, MX+1 , MX+3*, MX+4* |
K | BIN16+1~, BIN16+2* |
L | PART~, PART+1, GETDNS+1~*, GETDNS+2 |
L1 | READ+1~, READ+2*, READ+3 |
L2 | READ+1~, READ+4* |
M | LOG~, LOG+1 |
MSG | BUILD+2~, BUILD+8*, BUILD+9, BUILD+10 |
N | ADDRESS~, ADDRESS+5, MAIL~, MAIL+3, MAIL+5* |
NA | RR+1~, RR+2*, RR+9, RR+15 |
NAME | NS~, NS2+4 |
NM | NAME~, NAME+1*, NAME+3, NAME+4* |
NN | DECODE+1~, DECODE+8* |
NN2 | DECODE+1~, DECODE+7*, DECODE+8* |
NSP | QD~, QD+2, QD+3, QD+4, RR~, RR+2, RR+3, RR+4, RR+6, RR+7 , RR+8, RR+9, RR+10, RR+11, RR+12, RR+13, RR+14, RR+15, RR+16, RR+17 , MX+3, MX+4 |
>> O1 | SHOW+1*, SHOW+2 |
>> O2 | SHOW+1*, SHOW+2 |
P | NAME+1~ |
POP | NS+3~, NS2+2 |
QTYPE | NS~, NS2+4 |
R | PART+1~*, PART+2 |
RET | MAIL~, MAIL+4*, MAIL+5* |
RET( | MAIL+5* |
RI | NS+3~, READ+1!*, READ+3*, READ+6, READ+7, DECODE+1, SHOW+1 |
RI( | READ+7*, QD+3, QD+4, RR+3, RR+4, RR+5, RR+7, RR+9, RR+11, RR+12 , RR+13, RR+14, NAME+2, NAME+3, MX+1, PART+1, SHOW+2 |
S | BIN16~, BIN16+1*, BIN16+2, PART~, PART+1 |
T | ADDRESS~, ADDRESS+1*, ADDRESS+2*, ADDRESS+3, ADDRESS+5, MAIL+2~*, MAIL+3, BUILD~, BUILD+8, NAME+1~* , NAME+2*, NAME+3*, NAME+4*, NAME+5, TYPECODE~, TYPECODE+2, TYPECODE+3, CLASS~, CLASS+1, SW~ , SW+1 |
U | POST+2 |
V | SW~, SW+1 |
X | BUILD+2~, BUILD+3*, BUILD+5*, BUILD+6*, BUILD+8, READ+1~, READ+7*, DECODE+1~, RR+7*, NAME+1~ , NAME+2*, NAME+3*, NAME+4 |
XL | NS~ |
XL( | READ+4*, DECODE+8, QD+2*, QD+3*, QD+4*, RR+2*, RR+3*, RR+4*, RR+6*, RR+7* , RR+8, RR+9*, RR+10, RR+11*, RR+12*, RR+13*, RR+14*, RR+15, RR+16, RR+17 , MX+3*, MX+4* |
XL("AA" | DECODE+4* |
XL("ANCOUNT" | NS+3* |
XL("B" | RR+9*, RR+15* |
XL("CODE" | DECODE+4 |
XL("ERR" | DECODE+2* |
XL("ID" | DECODE+2 |
XL("Opcode" | DECODE+4* |
XL("P" | MX+2, MX+4* |
XL("QD1NAME" | NS2+7 |
XL("QDCOUNT" | DECODE+7 |
XL("QR" | DECODE+4* |
XL("RA" | DECODE+4* |
XL("RCODE" | DECODE+4* |
XL("RD" | DECODE+4* |
XL("TC" | DECODE+4* |
XL1 | TEST+1~, TEST+3*, TEST+4, TEST+5*, TEST+7*, TEST+8, TEST+9* |
XL4 | TEST+1~*, TEST+4 |
XL6 | TEST+1~*, TEST+8 |
XLF | TEST+1~*, TEST+4, TEST+8, ADDRESS+1~*, ADDRESS+5, MAIL+2~*, MAIL+3, POST+1~, POST+2*, POST+3 |
XLF( | POST+4 |
XLF("AN" | ADDRESS+6 |
XLF("ANCOUNT" | ADDRESS+6 |
XLF("B" | TEST+6, TEST+10, MAIL+5 |
XLF("P" | MAIL+4, MAIL+5 |
XLFLOG | NS~, NS+3~, LOG+1* |
XLFLOG( | LOG+1* |
XNAME | TEST+1~, TEST+2*, TEST+3, TEST+7 |
Y | TEST+1~, TEST+6*, TEST+10*, ADDRESS+1~, ADDRESS+3, ADDRESS+6*, ADDRESS+7, MAIL+2~, BUILD~, BUILD+4* , BUILD+5, DECODE+1~, QD+1~, QD+2*, RR+1~, RR+2*, RR+5*, RR+6, NAME+1~, MX+1~* , MX+2*, MX+3, MX+4*, H1+1~*, H1+2, BIN16+1~*, BIN16+2*, BIN16+3 |
Z | DECODE+1~, DECODE+4* |
Z1 | BN~, BN+1, WBN~, WBN+1, H1~, H1+1, H~ |
Z2 | BN~, BN+1, H2~, H2+1 |