Trailing-Edge
-
PDP-10 Archives
-
CFS_TSU04_19910205_1of1
-
update/t20src/anadpy.mac
There are 14 other files named anadpy.mac in the archive. Click here to see a list.
; UPD ID= 18, RIP:<7.TOOLS-TAPE>ANADPY.MAC.3, 26-Feb-88 13:40:04 by GSCOTT
;TCO 7.1236 - Update copyright notice.
; UPD ID= 16, RIP:<7.TOOLS-TAPE>ANADPY.MAC.2, 26-Feb-88 10:31:36 by GSCOTT
;TCO 7.1217 - Add .DIRECTIVE .NOBIN
;Create from ANAUNV
; COPYRIGHT (c) DIGITAL EQUIPMENT CORPORATION 1988.
; ALL RIGHTS RESERVED.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
; ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
; COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
; OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
; TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
; AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
; CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
; SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL.
UNIVERSAL ANADPY - Universal for SYSDPY TCP/IP and ARP Displays
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
;OR COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1984.
;ALL RIGHTS RESERVED.
SALL
PASS2
SEARCH MACSYM
.DIRECTIVE .NOBIN ;[7.1217]
;Structure of a Gateway block
DEFSTR(GWUP,0,0,1) ;Gateway should be useable
DEFSTR(GWPIP,0,1,1) ;Ping in progress
DEFSTR(GWTYP,0,5,4) ;Gateway type
GW%PRM==1 ;Prime: Speaks ICMP
GW%DUM==2 ;Dumb: Fwd's pkts, but that's all
GW%HST==3 ;Host: Avoid except in emergency
GW%AUP==4 ;Always-up: Fwds but doesn't reflect
DEFSTR(GWHIS,0,14,7) ;Ping history bits
DEFSTR(GWSPC,0,17,3) ;Successful ping count
.THRUP==<6*WID(GWHIS)>/8 ;Threshold to say it is up
.THRDN==<3*WID(GWHIS)>/8 ;Threshold to say it is down
IFL <<1_WID(GWSPC)>-1>-WID(GWHIS), PRINTX ?GWSPC too small
DEFSTR(GWICT,0,35,18) ;Interface count
.GWILS==1 ;Where in block to find the list
MXGWIC==6 ;Maximum number of interfaces
GWBKSZ==.GWILS+MXGWIC ;Size of a gateway block
;Definitions of network formats
;These extract a network number from right justified host number.
DEFSTR NETCLS,0,6,3 ; Bits identifying network class
DEFSTR NETCA,0,11,8 ; Class A network. High 8 bits
.NETCA==1B4 ; Bit is off for a class A network
DEFSTR NETCB,0,19,16 ; Class B network. High 16 bits
.NETCB==1B5 ; Bit is on for a class B network
DEFSTR NETCC,0,27,24 ; Class C network. High 24 bits.
; Macro for extracting the network number from a host address,
; both SRC and DST must be AC's (obviously).
DEFINE NETNUM(DST,SRC,%HERE)<
TXNN SRC,.NETCA ; Class A network?
JRST [LOAD DST,NETCA,+SRC ; Get number
JRST %HERE]
TXNN SRC,.NETCB ; Class B?
JRST [LOAD DST,NETCB,+SRC
JRST %HERE]
LOAD DST,NETCC,+SRC ; Must be class C
%HERE:!>
QSZ==1 ;Number of words in a QUEUE structure
LOCKSZ==5 ;Number of words in a LOCK structure
.IPKVR==0 ;Word with version, type of service, etc
.IPKDH==4 ;Word with destination host
MINIHS==<.IPKDH+1>*4 ;Minimum Internet Header size (bytes)
DEFSTR(PIDO,PKTELI+.IPKVR,7,4) ;PACKET.IP.DATA-OFFSET
MAXIOS==<.RTJST(-1,PIDO)*4-MINIHS> ; Maximum # Option bytes possible
.P==0
.P==.P+3
DEFSTR(PTDO,\<.P>,3,4) ;PACKET.TCP.DATAOFFSET ( 32-BIT UNITS)
.P==.P+2
MINTHS==4*.P ;Minimum TCP header size (bytes)
MAXTOS==<.RTJST(-1,PTDO)*4-MINTHS> ;Maximum # Option bytes possible
MAXSEQ==1_^D32 ;32 bit sequence numbers
SEQMSK==MAXSEQ-1 ;Mask for doing mod MAXSEQ by AND op.
DEFINE MODSEQ(A)<TLZ A,(-MAXSEQ)>
SUBTTL TCB structure
TCBQ==<.T==0> ;TCB.Queue (TCBH, DeadQ, etc)
TCBLCK==<.T==.T+QSZ> ;TCB.LOCK
.T==.T+LOCKSZ
DEFSTR(TOWNR,\<.T>,17,18) ;TCB.OWNER (job #)
DEFSTR(TJCN,\<.T>,35,18) ;TCB.JCN (n of JCNTCB+n)
.T=.T+1
DEFSTR(TFH,\<.T>,35,36) ;TCB.FH
DEFSTR(TFHC,\<.T>,6,3) ;TCB.FH.NET-CLASS
;TCB.FH.NET (0 => TWLDN=1)
.T=.T+1 ;TCB.FH.TCP (0 => TWLDT=1)
DEFSTR(TLH,\<.T>,35,36) ;TCB.LH
.T=.T+1
DEFSTR(TFP,\<.T>,35,36) ;TCB.FP (0 => TWLDP=1)
.T=.T+1
DEFSTR(TLP,\<.T>,35,36) ;TCB.LP only 16 bits
.T=.T+1 ;TCB Flags
DEFSTR(TERR,\<.T>,7,8) ;TCB.ERROR
DEFSTR(TWLDN,\<.T>,8,1) ;OPEN with Net wild
DEFSTR(TWLDT,\<.T>,9,1) ;OPEN with TCP wild
DEFSTR(TWLDP,\<.T>,10,1) ;OPEN with Port wild
DEFSTR(TSFP,\<.T>,11,1) ;TCB.SEND.FORCE-PACKET
DEFSTR(TSEP,\<.T>,12,1) ;TCB.SEND.ENCOURAGE-PACKET
DEFSTR(TRPP,\<.T>,14,1) ;TCB.RECV.PARITAL-PACKET
DEFSTR(TSCR,\<.T>,15,1) ;TCB.SECURE-CONNECTION
DEFSTR(TTVT,\<.T>,16,1) ;TCB.TCP-Virtual-terminal
DEFSTR(TSAP,\<.T>,17,1)
DEFSTR(TERRT,\<.T>,18,1) ;TCB.ERROR.TRACE
DEFSTR(TDEC,\<.T>,19,1) ;DEC JSYS TCB
DEFSTR(TSTAT,\<.T>,35,14) ;TCB.STATE
DEFSTR(TRSYN,\<.T>,24,3) ;TCB.STATE.RECV-SYNC
DEFSTR(TSSYN,\<.T>,27,3) ;TCB.STATE.SEND-SYNC
;State codes for connections
SYNABL==4 ;SYNCHABLE: Activated by user call
SYNSNT==<SYNRCV==5> ;SYN sent or received
SYNCED==7 ;SYN acked
FINSNT==<FINRCV==2> ;FIN sent or received but not ACKd
NOTSYN==0 ;Connection fully closed or not open
;1 Unused bit
DEFSTR(TSUOP,\<.T>,29,1) ;TCB.STATE.USER-OPEN
DEFSTR(TSOPN,\<.T>,30,1) ;TCB.STATE.SAID-OPEN
DEFSTR(TSPRS,\<.T>,31,1) ;TCB.STATE.PERSISTENT
DEFSTR(TSABT,\<.T>,32,1) ;TCB.STATE.ABORT
DEFSTR(TSSV,\<.T>,33,1) ;TCB.STATE.SEQUENCE-VALID
DEFSTR(TSURG,\<.T>,34,1) ;TCB.SEND.URGENT-MODE
DEFSTR(TRURG,\<.T>,35,1) ;TCB.RECV.URGENT-MODE
;Send variables
.T=.T+1
DEFSTR(TSLFT,\<.T>,35,36) ;TCB.SEND.LEFT
.T=.T+1
DEFSTR(TSSEQ,\<.T>,35,36) ;TCB.SEND.SEQUENCE
.T=.T+1
DEFSTR(TSURP,\<.T>,35,36) ;TCB.SEND.URGENT-POINTER
.T=.T+1
DEFSTR(TSWND,\<.T>,17,18) ;TCB.SEND.WINDOW
DEFSTR(TSCB,\<.T>,35,18) ;TCB.SEND.CURRENT-BUFFER
.T=.T+1
DEFSTR(TSTO,\<.T>,35,36) ;TCB.SEND.TIME-OUT
TCBSBQ==<.T=.T+1> ;TCB.SEND.BUFFER-QUEUE
TCBRXQ==<.T=.T+QSZ> ;TCB.SEND.REXMIT-QUEUE
;Recv variables
.T==.T+QSZ
DEFSTR(TRIS,\<.T>,35,36) ;TCB.RECV.INITIAL-SEQUENCE
.T=.T+1
DEFSTR(TRLFT,\<.T>,35,36) ;TCB.RECV.LEFT
.T=.T+1
DEFSTR(TRURP,\<.T>,35,36) ;TCB.RECV.URGENT-POINTER
.T=.T+1
DEFSTR(TRWND,\<.T>,17,18) ;TCB.RECV.WINDOW
DEFSTR(TRCB,\<.T>,35,18) ;TCB.RECV.CURRENT-BUFFER
.T=.T+1
DEFSTR(TRCBY,\<.T>,35,36) ;TCB.RECV.CURRENT-BYTE
.T=.T+1
DEFSTR(TRBS,\<.T>,35,36) ;TCB.RECV.BUFFER-SPACE
TCBRBQ==<.T=.T+1> ;TCB.RECV.BUFFER-QUEUE
TCBRPQ==<.T=.T+QSZ> ;TCB.RECV.PACKET-QUEUE
;PSI variables
TCBPIC==<.T=.T+QSZ> ;TCB.PSI-CHANNELS
DEFSTR(TPSIC,TCBPIC,35,36) ;All PSI channels
;Overlays for above
DEFSTR(TPICU,TCBPIC,5,6) ;URGENT DATA ARRIVED
DEFSTR(TPICR,TCBPIC,11,6) ;RECV DONE
DEFSTR(TPICS,TCBPIC,17,6) ;SEND DONE
DEFSTR(TPICE,TCBPIC,23,6) ;ERROR
DEFSTR(TPICX,TCBPIC,29,6) ;STATE CHANGE
DEFSTR(TPICA,TCBPIC,35,6) ;EOL ACK
;Following must have same order as above
TCBPIF==.T+1 ;TCB.PSI-FORKS
DEFSTR(TPIFU,TCBPIF+0,17,18) ;URGENT DATA ARRIVED
DEFSTR(TPIFR,TCBPIF+0,35,18) ;RECV DONE
DEFSTR(TPIFS,TCBPIF+1,17,18) ;SEND DONE
DEFSTR(TPIFE,TCBPIF+1,35,18) ;ERROR
DEFSTR(TPIFX,TCBPIF+2,17,18) ;STATE CHANGE
DEFSTR(TPIFA,TCBPIF+2,35,18) ;EOL ACK
.T==TCBPIF+3
DEFSTR(TOPNF,\<.T>,8,9) ;TCB.OPEN.WAIT FLAG INDEX
DEFSTR(TERRF,\<.T>,17,9) ;TCB.ERROR.FLAG index
DEFSTR(TOFRK,\<.T>,35,18) ;TCB.OWNING-FORK
;Retransmission variables
.T=.T+1
DEFSTR(TSMRT,\<.T>,35,36) ;TCB.SMOOTHED-ROUND-TRIP (or)
DEFSTR(TMNRT,\<.T>,35,36) ;TCB.MIN-ROUND-TRIP
.T=.T+1
DEFSTR(TMXRT,\<.T>,35,36) ;TCB.MAX-ROUND-TRIP
.T=.T+1
DEFSTR(TRXI,\<.T>,35,36) ;TCB.RETRANSMIT-INTERVAL
.T=.T+1
DEFSTR(TRXP,\<.T>,35,36) ;TCB.Retransmission.Parameters
;Substructures of the above:
DEFSTR(TRXPN,\<.T>,8,9) ;Numberator of backoff fraction
DEFSTR(TRXPD,\<.T>,17,9) ;Denominator thereof
DEFSTR(TRXPI,\<.T>,35,18) ;Initial interval
; Queues and wakeup times for various processes:
TCBQRA==<.T=.T+1> ;Reassembler queue
TCBTRA==<.T=.T+QSZ> ;When RA needed
TCBQPZ==<.T=.T+1> ;Packetizer
TCBTPZ==<.T=.T+QSZ>
TCBQRX==<.T=.T+1> ;Retransmitter
TCBTRX==<.T=.T+QSZ>
TCBQDG==<.T=.T+1> ;Delay Actions
TCBTDG==<.T=.T+QSZ>
.T==.T+1
DEFSTR(TIFDF,\<.T>,0,1) ;IP Don't-Fragment flag
DEFSTR(TTTL,\<.T>,8,8) ;IP Time-to-live
;1 Unused bit
DEFSTR(TTOS,\<.T>,17,8) ;IP Type-of-service
DEFSTR(TABTFX,\<.T>,35,18) ;Forkx of ABORTER
.T=.T+1
DEFSTR(TSLVN,\<.T>,17,18) ;Next Security level
DEFSTR(TSLVC,\<.T>,35,18) ;Current Security Level
.T=.T+1
;2 bits really unused
DEFSTR(TOPFP,\<.T>,17,18) ;Foreign port at open
DEFSTR(TNUFM,\<.T>,18,1) ;OPENed with new formats
;8 unused bits
DEFSTR(TVTL,\<.T>,35,9) ;Virtual terminal line number
.T=.T+1
DEFSTR(TOPFH,\<.T>,35,36) ;TCB.OPEN-FH
.T=.T+1
DEFSTR(TOPLH,\<.T>,35,36) ;TCB.OPEN-LH
.T=.T+1
DEFSTR(TSBYT,\<.T>,35,36) ;Bytes left to send
.T=.T+1
DEFSTR(TRLAK,\<.T>,35,36) ;Seq # of last PACKS sent
.T=.T+1
DEFSTR(TRLWN,\<.T>,35,36) ;Seq # of last PWNDO sent or -1
.T=.T+1
DEFSTR(TSMXB,\<.T>,35,36) ;Max send rate
.T=.T+1
DEFSTR(TSMXP,\<.T>,35,36) ;Max send packet length (inc header)
;Option Variables
.T=.T+1
DEFSTR(TIPDO,\<.T>,5,4) ;IP Data offset, words
DEFSTR(TIPOR,\<.T>,11,6) ;IP Received options, bytes
DEFSTR(TIPOU,\<.T>,17,6) ;IP User options, bytes
DEFSTR(TIOPF,\<.T>,35,18) ;IP User option flags
.T=.T+1
DEFSTR(TTPDO,\<.T>,5,4) ;TCP Data offset, words
DEFSTR(TTPOR,\<.T>,11,6) ;TCP Received options, bytes
DEFSTR(TTPOU,\<.T>,17,6) ;TCP User options, bytes
DEFSTR(TTOPF,\<.T>,35,18) ;TCP User option flags
TCBIO==<.T=.T+1> ;IP Option list (send)
TCBIR==<.T=.T+<MAXIOS+3>/4> ;Last IP Options received
TCBIU==<.T=.T+<MAXIOS+3>/4> ;IP Options from User
TCBTO==<.T=.T+<MAXIOS+3>/4> ;TCP Option list (send)
TCBTR==<.T=.T+<MAXTOS+3>/4> ;Last TCP Options received
TCBTU==<.T=.T+<MAXTOS+3>/4> ;TCP Options from User
.T=.T+<MAXTOS+3>/4
DEFSTR(TERBF,\<.T>,17,18) ;Error/Trace (user) buffer adr
DEFSTR(TERJN,\<.T>,35,18) ;Error/trace (user) JFN
.T=.T+1
DEFSTR(TCTBS,\<.T>,17,18) ;Count of no-buffer errors
DEFSTR(TCTSQ,\<.T>,35,18) ;Count of sequence # pauses
.T=.T+1
DEFSTR(TSCPK,\<.T>,35,36) ;Send current packet
.T=.T+1
DEFSTR(TPRS1,\<.T>,17,18) ;Persistance parameter one
DEFSTR(TPRS2,\<.T>,35,18) ;Persistance parameter two
.T=.T+1 ;DEC JFN Interface Flags
DEFSTR(TCDWT,\<.T>,0,1) ;DEC Wait mode flag
DEFSTR(TCDHT,\<.T>,1,1) ;DEC High Throughput Mode flag
DEFSTR(TCDFS,\<.T>,2,1) ;DEC Active Flag
DEFSTR(TCDOW,\<.T>,3,1) ;DEC OPENF block flag
DEFSTR(TCDGN,\<.T>,4,1) ;DEC GTJFN Name done once flag
DEFSTR(TCDGE,\<.T>,5,1) ;DEC GTJFN Extension done once flag
DEFSTR(TCDPS,\<.T>,6,1) ;DEC Persist flag
DEFSTR(TCDOB,\<.T>,7,1) ;DEC Output buffer setup
DEFSTR(TCDIB,\<.T>,8,1) ;DEC Input buffer setup
DEFSTR(TCDCW,\<.T>,9,1) ;DEC CLOSF Block flag
DEFSTR(TCDB8,\<.T>,10,1) ;DEC OPENF 8 bit byte mode
DEFSTR(TCDOQ,\<.T>,11,1) ;DEC Output buffer Queued
DEFSTR(TCDPU,\<.T>,12,1) ;DEC Do a PUSH flag
DEFSTR(TCDUR,\<.T>,13,1) ;DEC Do an URGENT flag
DEFSTR(TJFN,\<.T>,35,18) ;DEC TCB.JFN (JFN*MLJFN)
.T=.T+1
TJOBF=.T ;DEC TCB output buffer for filling
.T=.T+1
TJOBA=.T ;DEC TCB output buffer active
.T=.T+1
TJIBE=.T ;DEC TCB output buffer for emptying
.T=.T+1
TJIBA=.T ;DEC TCB output buffer active
.T=.T+1
TCPBCO=.T ;DEC TCB real FILBCO
.T=.T+1
TCPBCI=.T ;DEC TCB real FILBCI
.T=.T+1 ;Spare
TCBSIZ==.T+1 ;Size of a TCB
PURGE .T
;Flag bit definitions:
TCP%ER==1B0 ;ERROR
TCP%LE==1B1 ;Local error flag (0 is remote)
TCP%PE==1B2 ;Permanent error (0 is temporary)
TCP%EC==37B7 ;Error code w/o flags
TCP%DN==1B12 ;DONE
TCP%UR==1B15 ;URGENT DATA
TCP%EL==1B16 ;obsolete ;PUSH
TCP%PU==1B16 ;PUSH
TCP%WM==1B17 ;WORD MODE
.TCPBF==0 ;Buffer Flags
.TCPBA==1 ;Buffer data address
.TCPBC==2 ;Buffer data count
.TCPBO==3 ;Buffer option addresses
.TCPOW==^D10 ;Buffer option address word count
.TCPBI==4 ;Buffer IP info
.TCPBS==5 ;Buffer header size
SUBTTL Internet-Ethernet Interface Definitions
.NICHK==:0 ;Computed checksum of file
.NIGTD==:1 ;GTAD format for date/time of when the file was created
.NIMIR==:2 ;IPHOST version # when created
.NILEN==:3 ;Number of words which follow
NIHMHL==:4 ;max length of header
.NIINT==:0 ;the internet host number ** MUST BE OFFSET ZERO **
.NIEN1==:1 ;ethernet addr word 1
.NIEN2==:2 ;ethernet addr word 2
.NIGCF==:3 ;gateway control flags
GH%ARP==1B0 ;this ght entry has been updated by arp, adr is valid
GH%DMB==1B1 ;host does not have arp, use this address
NIHMDL==:4 ;max length of per host data
GH.EN1==.NIEN1-1 ;GHTAR2 ETHERNET ADR HIGH ORDER BYTES
GH.EN2==.NIEN2-1 ;GHTAR2 ETHERNET ADR LOW ORDER BYTES
GH.GCF==.NIGCF-1 ;GHTAR2 GATEWAY CONTROL FLAGS
GH2MDL==NIHMDL-1 ;LENGTH OF AN AREA 2 ENTRY
END