Trailing-Edge
-
PDP-10 Archives
-
bb-m780a-sm
-
monitor-sources/imppar.mac
There are 4 other files named imppar.mac in the archive. Click here to see a list.
; UPD ID= 510, SNARK:<5.MONITOR>IMPPAR.MAC.3, 6-Mar-82 21:12:32 by PAETZOLD
;TCO 5.1750 - Add NCPON and NCPOFF
; UPD ID= 1990, SNARK:<5.MONITOR>IMPPAR.MAC.2, 14-May-81 11:22:31 by PAETZOLD
;TCO 5,1321 CHANGE FLINK TO FNLINK TO AVOID CONFUSION WITH ICCS
;<4.MONITOR>IMPPAR.MAC.17, 3-Jan-79 13:01:10, Edit by LCAMPBELL
; Move definition of STY%NP to device-dependent modules
;<3A-JBORCHEK>IMPPAR.MAC.3, 24-Aug-78 19:54:37, EDIT BY JBORCHEK
;<3-CLEMENTS>IMPPAR.MAC.5, 11-Aug-78 23:40:16, EDIT BY CLEMENTS
;<3-CLEMENTS>IMPPAR.MAC.4, 11-Aug-78 22:57:31, EDIT BY CLEMENTS
;<3-CLEMENTS>IMPPAR.MAC.3, 11-Aug-78 17:45:01, EDIT BY CLEMENTS
;<3-CLEMENTS>IMPPAR.MAC.2, 11-Aug-78 16:21:53, EDIT BY CLEMENTS
;<3-CLEMENTS>IMPPAR.MAC.1, 11-Aug-78 16:14:30, EDIT BY CLEMENTS
;<BBN-3-MONITOR>IMPPAR.MAC.1, 4-Aug-78 14:56:49, EDIT BY CLEMENTS
;<3-CLEMENTS>IMPPAR.MAC.3, 30-Jul-78 23:28:43, EDIT BY CLEMENTS
; Only keep PROLOG stuff not local to IMPDV
;[BBN-TENEXD]<3-FRENCH>IMPPAR.MAC.1, 18-Jul-78 12:59:10, Ed: FRENCH
;ADDED STUFF TAKEN FROM BOB'S IMPDV WHICH HE GOT FROM DEC PROLOG?
;<3-CLEMENTS>IMPPAR.MAC.1, 15-Jun-78 14:24:07, EDIT BY CLEMENTS
;<BBN-1B-MONITOR>IMPPAR.MAC.8, 10-Mar-78 00:34:58, EDIT BY CLEMENTS
; Repair def of Inetf
;<BBN-1B-MONITOR>IMPPAR.MAC.7 24-Feb-78 12:27:04 EDIT BY PLUMMER
;<BBN-1B-MONITOR>IMPPAR.MAC.6 24-Feb-78 12:02:54 EDIT BY PLUMMER
; Add definitions needed for IMPPHY to find Internet format and version
;<BBN-1B-MONITOR>IMPPAR.MAC.5 23-Feb-78 17:19:05 EDIT BY PLUMMER
; Define STY%FC and STY%UC
;<ITP>IMPPAR.MAC.1 22-Feb-78 14:17:56 EDIT BY PLUMMER
; Define IHADR
; Define INTLNK
;<BBN-1B-MONITOR>IMPPAR.MAC.3, 26-Jan-78 15:58:49, EDIT BY CLEMENTS
;Add CLINK, FLINK, TNTLNK
;<BBN-1B-MONITOR>IMPPAR.MAC.2, 26-Jan-78 14:31:10, EDIT BY CLEMENTS
; Define LLINK as last link, not last plus 1, to make easier to understand
;<BBN-1B-MONITOR>IMPPAR.MAC.1, 25-Jan-78 16:19:15, EDIT BY CLEMENTS
; Into main line sources for reference by all.
;<1B-CLEMENTS>IMPPAR.MAC.11, 29-Nov-77 16:13:31, EDIT BY CLEMENTS
;<1B-CLEMENTS>IMPPAR.MAC.10, 11-Nov-77 17:38:15, EDIT BY CLEMENTS
;COPYRIGHT (C) 1977,1978,1979,1980,1981,1982 Digital Equipment Corp., Maynard, Mass.
UNIVERSAL IMPPAR - UNIVERSAL FOR IMPDV AND ASSOCIATED MODULES
SALL
SEARCH MONSYM,MACSYM
;DEFINE THE WORDS IN A NET BUFFER
.NBHDR==0 ;WORD 0 IS THE BUFFER HEADER (QUEUE POINTER AND SIZE)
.NBLD0==1 ;IMP-TO-HOST LEADER, WORD 0
.NBLD1==2 ;I-H LEADER, WORD 1
.NBLD2==3 ;I-H LEADER, WORD 2
.NBPTR==3 ;While a file buffer, pointer to next byte goes here.
.NBHHL==4 ;HOST-TO-HOST LEADER
.NBCNT==4 ;While a file buffer, count of bytes goes here.
.NBDW0==5 ;DATA WORD ZERO
;DEFINE THE FIELDS IN THE BUFFER HEADER
DEFSTR NBQUE,.NBHDR,17,18 ;LINK FOR QUEUE OF BUFFERS
DEFSTR NBBSZ,.NBHDR,35,18 ;SIZE OF THE BUFFER
;FIELDS IN IMP-TO-HOST LEADER
DEFSTR IHFTY,.NBLD0,7,4 ;FORMAT TYPE FIELD. MUST BE 17 FOR LONG LDRS
ITY%LL==17 ;Type 17 for long leaders from IMP
DEFSTR IHNET,.NBLD0,15,8 ;NETWORK NUMBER MSG GOES TO/FROM
DEFSTR IHLDF,.NBLD0,23,4 ;LEADER FLAGS
DEFSTR IHMTY,.NBLD0,31,8 ;MESSAGE TYPE
DEFSTR IHHT2,.NBLD0,35,4 ;High 4 bits of handling type
DEFSTR IHHTY,.NBLD1,3,4 ;Handling type, low 4 bits
HTY%NP==7 ;Number of packets
HTY%HP==200 ;High priority bit
DEFSTR IHADR,.NBLD1,27,24 ; Address (Host and IMP)
; Substructures for above
DEFSTR IHHST,.NBLD1,11,8 ;HOST (ON IMP)
DEFSTR IHIMP,.NBLD1,27,16 ;IMP NUMBER
DEFSTR IHLNK,.NBLD1,35,8 ;LINK (TOP 8 OF MESSAGE ID)
DEFSTR IHMI2,.NBLD2,3,4 ;REST OF MESSAGE ID
DEFSTR IHSTY,.NBLD2,7,4 ;SUBTYPE
STY%FC==0 ; Normal flow-controlled
STY%UC==3 ; Uncontrolled flow
DEFSTR IHLEN,.NBLD2,23,16 ;LENGTH OF MESSAGE
DEFSTR IHPD1,.NBLD2,35,12 ;Low 12 bits must be moved to flush padding
;NETWRK and IMPDV treat a host address as one 32-bit quantity
HSTMSK==037777777777 ; Net b4-b11, Host b12-b19, Imp b20-b35
; For user interface only, old-style Imp message leader bits
IMPHIP==1B0 ; Hi priority imp msg leader bit
FRMIMP==1B1 ; From imp
;FIELDS IN HOST-TO-HOST LEADER
DEFSTR HHSIZ,.NBHHL,11,8 ;CONNECTION BYTE SIZE
DEFSTR HHCNT,.NBHHL,27,16 ;NUMBER OF BYTES IN THIS MESSAGE
;Imp-to-Host parameters
FKHOST==^D252 ;Fake hosts are 252. thru 255. on each Imp.
;Host-to-Host parameters, NCP defined
CLINK==0 ;Control link
FNLINK==2 ;First connection link, NCP
LLINK==^D71 ;Last link usable by NCP.
;Special link numbers required for dispatching
TNTLNK==^D165 ;Telenet traffic
INTLNK==^D155 ; Internet traffic
;Message types in IHMTY (I2H = Imp to Host, & v.v.)
.IHREG==0 ;Regular messages (Host-to-host)
.IHEWO==1 ;Error, WithOut message ID (H2I)
.IHEIL==1 ;Err in leader (I2H)
.IHHGD==2 ;Host Going Down (H2I)
.IHIGD==2 ;Imp Going Down (I2H)
.IHNOP==4 ;No-op, takes padding request, tells my address.
.IHRFN==5 ;Ready For Next message (I2H)
.IHDHS==6 ;Dead Host Status (I2H)
.IHDDD==7 ;Destination DeaD (I2H)
.IHERW==^D8 ;Error, With message ID (H2I)
.IHERD==^D8 ;Error in Data (I2H)
.IHINC==^D9 ;Incomplete transmission (I2H)
.IHRES==^D10 ;Interface reset (I2H)
; Special Internet parameters -- must agree with TCPDEF.MAC
.INFMT==.NBHHL+2 ; Word in H-H leader containing Internet format
DEFSTR INETF,.INFMT,31,8 ; Internet format and version field
.TCPFM==1 ; Inertrnet format for TCP messges
.TCPVR==2 ; TCP Protocol version number
.SCRFM==2 ; Secure TCP format number
; Following belongs in NETWRK only, but IMPDV still uses it
DEFSTR LTIDX,NETAWD,35,9 ;LINK TABLE INDEX
; Macros to turn imp on and off
DEFINE NCPON<CALL ULKNCP>
DEFINE NCPOFF<CALL LCKNCP>
END ; OF IMPPAR.MAC