Trailing-Edge
-
PDP-10 Archives
-
tops10_tools_bb-fp64a-sb
-
10,7/decnet/dntatl/dntatl.mac
There are 9 other files named dntatl.mac in the archive. Click here to see a list.
;DSKB:DNTATL.MAC[10,44,S] Edit by -TL- [10,44] on 15-May-85 at 14:54:45
;Support the ethernet
;DSKB:DNTATL.MAC[10,44,S] Edit by -TL- [10,44] on 09-May-85 at 13:59:16
;Format ROUTER control messages,add /OCTAL/AREA
;DSKB:DNTATL.MAC[10,44,S] Edit by -TL- [10,44] on 07-May-85 at 11:07:19
;Fix SWIL conditionals. Make local messages use the right Byte Pointer.
; UPD ID= 13, SNARK:<6.1.UTILITIES>DNTATL.MAC.28, 22-Jun-84 13:58:25 by GROSSMAN
;Increase DECnet buffer size to prevent program from blowing up on Ethernet
; packets.
;SNARK:<6.1.UTILITIES>DNTATL.MAC.14 2-Apr-84 17:37:04, Edit by NICHOLS
;Add input and output circuit typeout
;WORK:<NICHOLS>DNTATL.MAC.56 1-Feb-84 21:16:06, Edit by NICHOLS
;Fix date/time typout
;WORK:<NICHOLS>DNTATL.MAC.23 24-Jan-84 15:59:49, Edit by NICHOLS
;Add code to handle Phase IV router header and its pad byte
;SNARK:<6.1.UTILITIES>DNTATL.MAC.4 20-Jan-84 11:36:24, Edit by NICHOLS
;Add Phase IV NI routing for ROUTER data messages.
TITLE DNTATL - Format a DECnet-20 Trace
SUBTTL W. G. Nichols
SALL
.DIRECTIVE FLBLST
OPDEF OPEN [050000,,0] ;GET AROUND KEVIN'S BAD MACSYM
OPDEF CLOSE [070000,,0] ;DITTO
DEFINE XP(SYM,VAL),<SYM==:VAL>
XP FTLIST,0 ;NON-0 TO DISABLE XLISTS
XP FTSWIL,1 ;NON-0 FOR TOPS-10 SWIL
XP FTOPS10,1 ;NON-0 FOR TOPS-10 VERSION
XP FTOPS20,0 ;NON-0 FOR TOPS-20 VERSION
XP NDSPL,^D9 ;NODES PER OUTPUT LINE OF ROUTING MSG
IFN FTOPS10,<
SEARCH D36PAR,MACTEN,UUOSYM,MACSYM
IFN FTSWIL,<
SEARCH SWIL
.REQUEST REL:SWIL
>; END IFN FTSWIL
IFE FTSWIL,<
SEARCH SCNMAC
.REQUEST REL:SCAN
>; END IFE FTSWIL
>; END IFN FTOPS10
IFN FTOPS20,<
SEARCH D36PAR,MONSYM,MACSYM,SCNMAC
.REQUEST REL:SCAN
>; END IFN FTOPS20
PRGID='DNTATL' ;NAME OF THIS PROGRAM
PRGABR='DNT' ;3 CHR ABBREVIATION USED FOR PROG.
DNTWHO==0
DNTVER==1 ;MAJOR VERSION
DNTMIN==0 ;MINOR VERSION
DNTEDT==5 ;EDIT NUMBER
HSGAD==600000 ;STARTING ADDR OF HISEG
TWOSEG HSGAD ;WE'LL HAVE A SHARABLE HI-SEG
;Note that these BEGSTRs are copied in MSGTRC, the program which
;makes the trace file.
FTSHOW==0
BEGSTR FH ;File Header
WORD LNG ;Length of this header
FIELD FLG,9 ;Flags to indicate what kind of entry
FIELD TYP,9 ;Entry Type
XP TYP.FH,1 ; Entry type of header record
HWORD MGL ;Length of a message block
WORD UPT ;UPTIME corresponding to UDT below
WORD UDT ;Universal Date/Time corresp to UPTIME
WORD PVR ;Trace program version number (loc 137)
WORD MVR ;Monitor Version (location 137)
WORD CFG,5 ;CONFIG string from this monitor
ENDSTR
BEGSTR MH ;Message Header
WORD LNG ;Length of the entire entry
FIELD FLG,6 ;Flags to indicate what kind of entry
FIELD IOL,3 ;Input, output or local
XP IOL.IN,1 ;Input (avoid zero for error detection)
XP IOL.OT,2 ;Output message
XP IOL.LO,3 ;Local message
FIELD TYP,9 ;Entry Type
XP TYP.MH,2 ; Entry type of message record
HWORD LST ;Cumulative number of messages lost
WORD UPT ;UPTIME as of entry (reliable time stamp)
WORD UDT ;Universal date/time (readable time stamp)
WORD OMB ;Original MB pointer
WORD ILN ;Input line ID (or zero if none)
WORD OLN ;Output line ID (or zero if none)
ENDSTR
;The format of an ACKNUM field
;This structure is expected to be used to pull apart a value held
;in a register.
BEGSTR AK
FILLER 20 ;ONLY THE RIGHTMOST 16 BITS COUNT
FIELD PNT, 1 ;FLAG SET IF FIELD IS PRESENT
FIELD QAL, 3 ;QUALIFIER:
AK$QAK==0 ; 0 IS ACK
AK$QNK==1 ; 1 IS NAK, 2 & 3 ARE RESERVED
AK$CAK==2 ; 2 IS CROSS-SUB CHANNEL ACK
AK$CNK==3 ; 3 IS CROSS-SUB CHANNEL NAK
FIELD NUM, 12 ;THE ACK NUMBER, WE KNOW THIS IS RT-JUSTIFIED
ENDSTR ; NEGATIVE IF HIGH BIT OF BYTE IS SET
; SEE LOADE MACRO (E IS AS IN HRRE)
;This structure is expected to be used to pull apart a value held
;in a register.
BEGSTR LS ;THE LSFLAGS FIELD OF A LINK SERVICE MESSAGE
FILLER 28 ;ONLY THE RIGHTMOST 8 BITS COUNT
FIELD ZRO,4 ;MUST BE ZERO
FIELD INT,2 ;INTERPRETATION
LS.INR==0 ;NORMAL DATA REQUEST
LS.IOT==1 ;OTHER DATA REQUEST (2 & 3 RESERVED)
FIELD MOD,2 ;THE ON/OFF INDICATOR
LS.MNC==0 ;NO CHANGE, CODE USES JUMPE
LS.MOF==1 ;TURN SUBLINK OFF (IGNORED ON "OTHER")
LS.MON==2 ;TURN SUBLINK ON (IGNORED ON "OTHER")
LS.MRS==3 ;RESERVED
ENDSTR
;This structure is expected to be used to pull apart a value held
;in a register.
BEGSTR SV ;THE SERVICES FIELD OF A CI OR CC MSG
FIELD FL1,32 ;FILLER 1, CHECK FOR ALL ZEROES
FIELD OPT,2 ;THE FLOW CONTROL OPTION, SEE FCM.xx
FIELD FL2,2 ;FILLER 2, CHECK FOR BEING "01"
SV$FL2==1 ;MAGIC NUMBER THAT SVFL2 MUST BE
ENDSTR
SUBTTL Macros
DEFINE SMEAR(ac,start,end,value),<
MOVX ac,value
MOVEM ac,start
MOVE ac,[XWD start,start+1]
BLT ac,end
>
DEFINE $LIST,< LIST
>
DEFINE $XLIST,<IFE FTLIST,<XLIST
>>
$LIST
DEFINE VRSN. (PROG),<
BYTE (3) PROG'WHO (9) PROG'VER (6) PROG'MIN (18) PROG'EDT
>
.JBVER=137 ;JOBDAT LOC FOR VERSION NUMBER
LOC .JBVER
VRSN. DNT
RELOC
SUBTTL Accumulator Definitions
FLAG=0 ;FLAGS, CONTINUOUS THROUGH ALL CALLS
;ZEROED BEFORE EACH CALL TO .TSCAN
;SEE BIT DEFINITIONS BELOW
T1=1 ;WORK... T1 AND T2 MUST BE 1 & 2
T2=2
T3=3 ;AND T3 AND T4 MUST BE 3 & 4
T4=4 ;FOR COMPATIBILITY WITH SCAN & WILD
T5=5
T6=6 ;T6 IS USED AS INDEX FOR MSD BYTE PTRS
N=7 ;SAME AS IN SCAN
C=10 ;SAME AS IN SCAN
MBO=11 ;OFFSET TO SUBTRACT FROM PTRS INTO MSG BLK
MS=12 ;POINTER TO CURRENT MSD IN MSG BLK
P1=13 ;PRESERVED ACs
P2=14
; ??=15
CX=16 ;SUPER-TEMP FOR MACROS
.SAC==CX ; ALTERNATE NAME FOR CX FOR SOME MACROS
P=17 ;STACK POINTER
SUBTTL Compile-Time Variables
OPDEF CALL [PUSHJ P,]
OPDEF RET [POPJ P,]
OPDEF RETSKP [JRST RSKP]
OPDEF CALLRET [JRST]
;CHANNEL ASSIGNMENTS
XP F.FIN,1 ;CHANNEL FOR INPUT FILE.
XP F.FOUT,2 ;CHANNEL FOR OUTPUT FILE.
;DEFAULT DEVICE NAMES
XP INDFT,'DSK ' ;DEFAULT INPUT DEVICE
XP OUTDFT,'DSK ' ;DEFAULT OUTPUT DEVICE.
;Block lengths
XP %XPBSZ,^D2000 ;MAX BUFFER SIZE DECnet USES
XP LN$PDL,^D100 ;LENGTH OF PUSH DOWN LIST
XP FOPLEN,^D7 ;LENGTH OF NON-PRIV FILOP. BLOCK
XP PTHLNG,^D9 ;LENGTH OF A PATH BLOCK
XP LN$ENT,^D9 ;LENGTH OF EXTENDED ENTER BLOCK
XP LN$LKP,^D9 ;LENGTH OF EXTENDED LOOKUP BLOCK
; MSG$ is followed by the three letter error code, one of the
; indicators ERR, WRN, or INF for which class of message, an
; optional S to save all accumulators, and the message text.
; it will force out any TTY buffers, issue the file name if
; not yet done, then issue the message correctly prefixed.
DEFINE MSG$(code$,level$,savef$,text$),<
$XLIST
E..'code$:!
IFIDN <savef$><S>,< PUSH P,T1
PUSH P,T2
PUSH P,T3
PUSH P,T4>
LEVL$$=="%"
IFIDN <level$><ERR>,<LEVL$$=="?">
MOVE T1,[XWD PRGABR,''code$'']
MOVE T2, [XWD LEVL$$,[ASCIZ "text$"] ]
$LIST
CALL .ERMSG## ;;TYPE THE ERROR MESSAGE.
$XLIST
IFIDN <savef$><S>,< POP P,T4
POP P,T3
POP P,T2
POP P,T1>
$LIST
>
DEFINE ERROR(code,text,label),<
IFNB <label>,<JRST [>
IFB <label>,<CALL [>
SKIPE TYPFIL ;;SKIP IF NO OUTPUT FILE BEING USED
OUT F.FOUT, ;;SYNCH ERROR MSG IF OUT DEV IS TTY
PUSH P,TYPFIL
SETZM TYPFIL ;;DIRECT .TCHAR OUTPUT TO TTY NOW
MSG$(code,ERR,S,<text>)
CALL .TCRLF##
POP P,TYPFIL
IFNB <label>,<JRST label>
IFB <label>,<RET>
]
>
DEFINE FMTERR(text,label),<
IFNB <label>,<JRST [>
IFB <label>,<CALL [>
CALL .TCRLF##
WRTSTR <?Format error: text>
IFNB <label>,<JRST label>
IFB <label>,<RET>
]
>
;Macros for writing to the output file
DEFINE WRTSTR(string),<
CALL [ JSP T1,.TSTRG##
ASCIZ `string`]
>
SUBTTL General Impure Storage
;Locations which are set at start-up time and never cleared.
RELOC ;INTO THE LOWSEG
;The stack:
PLIST: BLOCK LN$PDL+1
CCLF1: BLOCK 1 ;1 IF CCL ENTRY, 0 IF NORMAL
INICOR: BLOCK 1 ;SIZE OF CORE BEFORE ANY EXPANSION
INIFF: BLOCK 1 ;INITIAL SETTING OF .JBFF
TYPFIL: BLOCK 1 ;NON-ZERO IF TYPOUT IS TO TYPE TO FILE
SUBTTL Not-File-Specific Switch Definitions
SCMFWA:! ;START OF FS.NFS SWITCHES CLEARED TO -1
SCNLLA: BLOCK 1 ;PUT CHOSEN LOCAL LINK ADDRESS HERE
SCNRLA: BLOCK 1 ;PUT CHOSEN REMOTE LINK ADDRESS HERE
SCNNOD: BLOCK 1 ;PUT CHOSEN NODE ADDRESS HERE
SCNARE: BLOCK 1 ;PUT CHOSEN AREA NUMBER HERE
SCNOCT: BLOCK 1 ;=1 IF /OCTAL
SCNRTR: BLOCK 1 ;NON-ZERO TO INCLUDE ROUTER CONTROL MSGS
SCNDAT: BLOCK 1 ;NON-ZERO TO INCLUDE DATA PORTION OF MSGS
SCMLWA==.-1
SCNLEN==.FXLEN ;LENGTH OF A SCAN SPEC INCLUDING LOCAL LOAD
SCNFWA:! ;START OF SCAN AREA CLEARED TO 0
SCNIN: BLOCK SCNLEN ;PLACE TO PUT INPUT SPEC
SCNOUT: BLOCK SCNLEN ;PLACE TO PUT OUTPUT SPEC
;Trace Record Collection Areas
RHDRLN: BLOCK 1 ;LENGTH OF ROUTER HDR ON THIS MSG
; -1 IF MSG IS ROUTER CONTROL
LSTCNT: BLOCK 1 ;LAST LOST COUNT WE SAW (MHLST FIELD)
SKPCNT: BLOCK 1 ;NUMBER OF RECORDS SKIPPED BY CHKMSG
FILHDR: BLOCK FH.LEN ;BLOCK TO HOLD FILE HEADER RECORD
MSGHDR: BLOCK MH.LEN ;BLOCK TO HOLD MESSAGE HEADER RECORD
MSGBLK: BLOCK MB.LEN ;BLOCK TO HOLD MESSAGE BLOCK
USERDA: BLOCK <%XPBSZ+3>/4 ;USER DATA GOES HERE
SEQBFR: BLOCK <%XPBSZ+3>/4 ;BUILD A SEQUENTIAL MSG HERE
SEQPTR: BLOCK 1 ;BYTE PTR INTO SEQBFR
SEQCNT: BLOCK 1 ;LENGTH OF REST OF SEQUENTIAL MESSAGE
SEQLEN: BLOCK 1 ;INITIAL LENGTH OF SEQUENTIAL MESSAGE
CHKOFF: BLOCK 1 ;CHKMSG'S OFFSET TO START OF RTR HDR
;Input I/O areas
FOPLKP: BLOCK FOPLEN ;ARG BLK FOR FILOP. LOOKUP
OPNIN=FOPLKP+.FOIOS ;ALLOW OLD NAMES
LKPBLK: BLOCK LN$LKP+1 ;LOOKUP BLK FOR INPUT FILE.
LKPBLE=.-1
LKPPTH: BLOCK PTHLNG ;PATH BLK FOR LKPBLK
LKPPTE=.-1 ;LIMIT OF BLT SMEARING
;INPUT BUFF RING HDR IS IN .WILD
FOPFIL: BLOCK 2
FOPFLN==.-FOPFIL
SPCFIL: BLOCK .FOFMX+1
SPCLEN==.-SPCFIL
;Output I/O areas
IFN FTOPS20,<
.FOIOS==1 ;OUTPUT BLOCK IN FILOP BLOCK
.FOBRH==3 ;BUFFER RING HEADERS IN FILOP BLOCK
.BFPTR==1 ;BUFFER RING HEADER POINTER WORD
.BFCTR==2 ;BUFFER RING HEADER COUNTER WORD
IO.ERR==740000 ;IO ERRORS MASK
IO.EOF==20000 ;END OF FILE ERROR FLAG
.IOASC==0 ;ASCIZ MODE I/O
.IOBIN==14 ;BINARY MODE I/O
>;END IFN FTOPS20
FOPENT: BLOCK FOPLEN ;ARG BLK FOR FILOP. ENTER
OPNOUT=FOPENT+.FOIOS ;ALLOW USE OF OLD NAMES
ENTBLK: BLOCK LN$ENT+1 ;ENTER BLOCK FOR OUTPUT FILE.
ENTBLE=.-1
ENTPTH: BLOCK PTHLNG ;PATH BLOCK FOR .STOPB AND ENTBLK
ENTPTE=.-1 ;LIMIT OF BLT SMEARING
H.FIN: BLOCK 3 ;BUFFER HEADER FOR INPUT.
H.FOUT: BLOCK 3 ;BUFFER HEADER FOR OUTPUT.
SCNLWA==.-1 ;LAST OF WORK AREA CLEARED TO 0
;Now put the rest in the High Segment
RELOC
SUBTTL SCAN Switch Tables.
DEFINE ND(name,value),<IFNDEF name,name=:value> ;DM NEEDS THIS
;Define the defaults for switches:
; First arg is 3-chr abbrieviation used for this switch.
; Second arg is maximum allowed value.
; Third arg is absent default (AD.xxx)
; (not used by SCAN, for application use only).
; Fourth arg is present default (PD.xxx)
; (used by SCAN unless FS.VRQ specified)
; Name Max Absent Present
; xxx MX.xxx AD.xxx PD.xxx
; ---- ------ ------ -------
DM LLA, 177777, 0, 0 ;/LLA (LOCAL LINK ADDRESS)
DM RLA, 177777, 0, 0 ;/RLA (REMOTE LINK ADDRESS)
DM NOD, 377, 0, 0 ;/NODE
DM ARE, 77, 0, 0 ;/AREA (Area number for /NODE)
; See SCNMAC.MAC for definition of macros used here.
;
; An asterisk before a switch name in this table means that
; this switch has abbreviation priority over any other
; switches in the list.
;
;REMEMBER to update HLPSTR when updating the switches
DEFINE SWTCHS,<
$XLIST
SP LLA,SCNLLA,.SWOCT##,LLA,FS.NFS!FS.VRQ
SP RLA,SCNRLA,.SWOCT##,RLA,FS.NFS!FS.VRQ
SP NODE,SCNNOD,.SWDEC##,NOD,FS.NFS!FS.VRQ
SP AREA,SCNARE,.SWDEC##,ARE,FS.NFS!FS.VRQ
SN OCTAL,SCNOCT,FS.NFS
SN RTRCTL,SCNRTR,FS.NFS
SN DATA,SCNDAT,FS.NFS
$LIST
>;END OF SWTCHS
;Now build the tables.
DOSCAN (SWT)
SUBTTL HLPSTR - The HELP string
HLPSTR: ASCIZ \
The commands are in the traditional SCAN format:
output-file-spec = input-file-spec /switches
The input to DNTATL is the file output by DNSNUP which contains DECnet
messages in internal format. The output from DNTATL is a text file
representing those messages and their DECnet headers. The user data
portion of the messages are put out first in octal bytes, then in ASCII.
Default input extension is .MSG
Default output extension is .TXT
The default for all switches is to output everything.
The switches are:
[NO]DATA [Don't] show data part of messages.
[NO]OCTAL [Don't] show interpreted pats of message in octal too
[NO]RTRCTL [Don't] show Router Control messages.
NODE:n Show only those messages to or from Node n.
If /NODE is specified, /NORTRCTL becomes the default.
AREA:n /NODE value is in area n
LLA:n Show only those messages whose Local Link Address is n.
RLA:n Show only those messages whose Remote Link Address is n.
To find the Link Address of a logical link, first run DNTATL (perhaps
with /NORTRCTL/NODE:n) to find the interesting series of messages.
Note the DLA (Destination Link Address) of an input message or the SLA
(Source Link Address) of an output message. This is the Local Link
Address to be used with the /LLA:n switch. The Remote Link Address is
the same with source and destination reversed.
\
SUBTTL Startup
DNTATL:
IFN FTOPS10,<
TDZA T1,T1 ;NON-CCL ENTRY
MOVEI T1,1 ;CCL ENTRY
MOVEM T1,CCLF1 ;STORE FOR LATER
>;END IFN FTOPS10
RESET ;CLEAR ALL I/O
SETZM TYPFIL ;DIRECT .TCHAR OUTPUT TO TTY NOW
IFN FTOPS10,<
HRRZ T1,.JBREL ;GET FIRST-TIME CORE SIZE
MOVEM T1,INICOR
HRRZ T1,.JBFF ;GET INITIAL .JBFF
MOVEM T1,INIFF ;SAVE FOR LATER
>;END IFN FTOPS10
MOVE P,[IOWD LN$PDL,PLIST] ;STACK
;Fall through to next page
SUBTTL Call .ISCAN
;From previous page
;.ISCAN--SUBROUTINE TO INITIALIZE COMMAND SCANNER
;CALL AC1=XWD LENGTH,BLOCK
;
; BLOCK+0=PROTOCOL VERSION WORD: <MAJOR>,,<MINOR>
; BLOCK+1=0 OR IOWD PTR TO A LIST OF LEGAL MONITOR COMMANDS
; IF 0, NO RESCAN IS DONE
; BLOCK+2=RH 0 OR SIXBIT CCL NAME
; IF 0, NO CCL MODE
; LH 0 OR ADDRESS OF STARTING OFFSET
; BLOCK+3=RH 0 OR ADDRESS OF CHARACTER TYPEOUT ROUTINE
; IF 0, OUTCHR WILL BE DONE FROM T1
; LH 0 OR ADDRESS OF CHARACTER INPUT ROUTINE
; MUST SAVE ALL ACS, CHAR IN P4
; BLOCK+4=0 OR POINTER (XWD LEN,BLOCK) TO INDIRECT FILE BLOCK
; .FXDEV NE 0 TO USE BLOCK
; BLOCK+5=RH 0 OR ADDRESS OF MONRET ROUTINE
; LH 0 OR ADDRESS OF PROMPT ROUTINE
; CALLED WITH CHAR IN RH(T1), LH(T1) HAS
; 0 FOR FIRST LINE, -1 FOR CONTINUATION LINES
; BLOCK+6=LH FLAGS
; RH (FUTURE)
;VALUE AC1=INDEX IN TABLE OF COMMANDS IF FOUND(0,1,...), ELSE -1
IFN FTSWIL,<MOVE T1,[4,,[12,,%%FXVE> ;MAJOR,,MINOR SCAN VERSION
IFE FTSWIL,<MOVE T1,[3,,[>
IOWD 1,[PRGABR]
CCLF1,,PRGABR
0,,TYPOUT]]
CALL .ISCAN##
;Fall through to next page
SUBTTL Driving Loop
DNTLOP: RELEASE F.FIN, ;RELEASE INPUT CHANNEL
RELEASE F.FOUT, ;RELEASE OUTPUT CHANNEL
SETZM TYPFIL ;DIRECT .TCHAR OUTPUT TO TTY NOW
CALL $SCAN ;GET FILE SPECS FROM .TSCAN
JRST DNTLOP ;ERROR, TRY AGAIN
CALL $DFALT ;DEFAULT THE NAMES & EXTENSIONS
CALL $OPEN ;OPEN INPUT & OUTPUT FILES
JRST DNTLOP ;ERROR, TRY AGAIN
SETOM TYPFIL ;DIRECT .TCHAR OUTPUT TO FILE NOW
CALL REDHDR ;READ TRACE FILE'S HEADER
JRST DNTCLS ;END OF FILE OR ERROR
DNTFMT: CALL REDMSG ;READ NEXT RECORD INTO MSG BLK
JRST DNTCLS ;END OF FILE OR ERROR
CALL FMTMSG ;FORMAT & OUTPUT THIS RECORD
JRST DNTCLS ;ERROR WRITING OUTPUT FILE
JRST DNTFMT ;GO GET NEXT RECORD
DNTCLS: CALL $CLOSE ;CLOSE INPUT & OUTPUT FILES
JRST DNTLOP ;SEE IF USER WANTS MORE
SUBTTL Routines for SCAN's input from TTY
;.TSCAN--SUBROUTINE FOR TRADITIONAL COMMAND SCANNER
;ARGS AC1=XWD LENGTH,BLOCK
; BLOCK+0=0 OR IOWD POINTER TO LIST OF SWITCH NAMES
; (IOWD XXXXXL,XXXXXN)
; BLOCK+1=LH ADDRESS OF DEFAULT SWITCH TABLE (XXXXXD)
; RH ADDRESS OF PROCESSOR SWITCH TABLE (XXXXXM)
; BLOCK+2=LH ADDRESS OF (FUTURE)
; RH ADDRESS OF SWITCH POINTERS FOR STORING (XXXXXP)
; BLOCK+3=LH TYPE OF HELP (0=NONE, 1=STRING, 2=SUBROUTINE)
; IF GT 77, NAME OF PROGRAM IN WHOLE WORD
; IF -1 IN WORD, USE JOB TABLE
; RH LOCATION OF HELP
; BLOCK+4=LH 0 OR SUBROUTINE TO CLEAR ALL ANSWERS
; RH 0 OR SUBROUTINE TO CLEAR FILE ANSWERS
; BLOCK+5=LH SUBROUTINE TO ALLOCATE INPUT FILE AREA
; RH SUBROUTINE TO ALLOCATE OUTPUT FILE AREA
; BOTH RETURN T1=START OF AREA, T2=LENGTH
; BLOCK+6=LH 0 OR SUBROUTINE TO MEMORIZE STICKY DEFAULTS
; RH 0 OR SUBROUTINE TO APPLY STICKY DEFAULTS
; BLOCK+7=LH 0 OR SUBROUTINE TO CLEAR STICKY DEFAULTS
; RH FLAGS TO CONTROL SCAN:
; 1B18=MORE THAN ONE OUTPUT SPEC POSSIBLE
; 1B19=ALLOW INPUT SWITCHES ON OUTPUT AND VV
; BLOCK+10=LH (FUTURE)
; RH 0 OR ROUTINE TO STORE SWITCH VALUES
; ;ENTERRED WITH T1=VALUE, T2=POINTER
; ;NON-SKIPS IF SCAN SHOULD NOT STORE
; ;SKIPS IF SCAN SHOULD STORE (T1-2 OK)
;Back here after each command is complete
$SCAN:
IFN FTSWIL,<MOVE T1,[12,,[12,,%%FXVE> ;MAJOR,,MINOR SCAN VERSION
IFE FTSWIL,<MOVE T1,[11,,[>
IOWD SWTL, SWTN
SWTD,,SWTM
0,,SWTP
1,,HLPSTR ;HELP IS STRING,,ADDR OF STRING
SCNCLA,,SCNCLF
SCNAIN,,SCNAOT
FILSTK,,APLSTK
CLRSTK,,0
0,,0 ] ]
CALL .TSCAN## ;SCAN THE LINE
; Check SWITCH.INI
IFN FTSWIL,<MOVE T1,[5,,[12,,%%FXVE> ;MAJOR,,MINOR SCAN VERSION
IFE FTSWIL,<MOVE T1,[4,,[>
IOWD SWTL,SWTN
SWTD,,SWTM
0,,SWTP
PRGID]] ;get help from HLP:PRGID
CALL .OSCAN## ;GET OPTIONS IF ANY
RETSKP ;SUCCESS RETURN.
;Routine to allocate output spec area
SCNAOT: SMEAR T1,SCNOUT,SCNOUT+SCNLEN-1,0
MOVEI T1,SCNOUT ;POINT TO AREA
MOVEI T2,SCNLEN ; AND LENGTH
RET ;RETURN
;Routine to allocate input spec area
SCNAIN: SMEAR T1,SCNIN,SCNIN+SCNLEN-1,0
MOVEI T1,SCNIN ;POINT TO AREA
MOVEI T2,SCNLEN ; AND LENGTH
RET ;RETURN
;Routine to clear SCAN results
SCNCLA: SMEAR T1,SCNFWA,SCNLWA,0 ;CLEAR AREA
SMEAR T1,SCMFWA,SCMLWA,-1 ; AND SWITCHES
RET
SCNCLF:
CLRSTK:
APLSTK:
FILSTK: RET
SUBTTL $DFALT -- Default the SCAN Blocks
$DFALT:
;Default the input file spec
IFN FTSWIL,<
MOVE T4,.FXFLD+SCNIN ;GET THE 'FIELDS-SPECIFIED' WORD
HRLOI T1,'MSG' ;DEFAULT EXTENSION IS .MSG
TXNN T4,FX.UEX ;USER SPECIFY AN EXTENSION?
MOVEM T1,.FXEXT+SCNIN ;NO, SPECIFY .MSG
;Default the output file spec
MOVE T4,.FXFLD+SCNOUT ;GET THE 'FIELDS-SPECIFIED' WORD
HRLOI T1,'TXT' ;DEFAULT EXTENSION IS .TXT
TXNN T4,FX.UEX ;USER SPECIFY AN EXTENSION?
MOVEM T1,.FXEXT+SCNOUT ;NO, SPECIFY .TXT
MOVE T1,.FXNAM+SCNIN ;GET INPUT FILE NAME
TXNN T4,FX.UNM ;IF USER DIDN'T SPECIFY
MOVEM T1,.FXNAM+SCNOUT ;USE FOR OUTPUT
>;END IFN FTSWIL
;Default the /RTRCTL switch from the other switches
SKIPL SCNRTR ;HAS USER SPECIFIED /RTRCTL OR /NORTRCTL?
JRST DFALT1 ;YES, DON'T OVERRIDE USER
MOVE T1,SCNLLA ;NO, ARE OTHER RESTRICTION
AND T1,SCNRLA ; SWITCHES
AND T1,SCNNOD ; USED?
AOJE T1,DFALT1 ;JUMP IF ALL WERE -1 (DEFAULT)
SETZM SCNRTR ;AT LEAST ONE RESTRICTION, SAY /NORTRCTL
DFALT1: RET
SUBTTL $OPEN -- Open Input & Output Devices
;.STOPB -- ROUTINE TO TURN SCAN BLOCK INTO OPEN/LOOKUP BLOCKS
; WILD-CARDS ARE ILLEGAL
;CALL: MOVEI T1,SCAN BLOCK
; LH(T1)=LENGTH IF .GT. 24
; MOVEI T2,OPEN BLOCK (3 WORDS)
; MOVEI T3,LOOKUP BLOCK (6 WORDS OR MORE)
; LH(T3)=LENGTH IF .GT. 6
; MOVEI T4,PATH BLOCK (9 WORDS)
; PUSHJ P,.STOPB
; ERROR RETURN IF WILD-CARDS
; SKIP RETURN IF SETUP OK
;USES T1-4
$OPEN: MOVEI T1,LN$LKP ;GET LENGTH OF A LOOKUP BLOCK
MOVEM T1,LKPBLK+0 ;STORE IN LENGTH WORD
MOVEI T1,SCNIN ;PTR TO SCAN BLK
MOVEI T2,OPNIN ;PTR TO OPEN BLK
MOVX T3,<LN$LKP,,LKPBLK> ;LENGTH,,PTR TO LOOKUP BLOCK
MOVEI T4,LKPPTH ;PTR TO LOOKUP'S PATH BLK
CALL .STOPB##
ERROR WNI,<Wildcards not supported>,RTN
MOVEI T1,LN$ENT ;GET LENGTH OF AN ENTER BLOCK
MOVEM T1,ENTBLK+0 ;STORE IN LENGTH WORD
MOVEI T1,SCNOUT ;PTR TO SCAN BLK
MOVEI T2,OPNOUT ;PTR TO OPEN BLK
MOVX T3,<LN$ENT,,ENTBLK> ;LENGTH,,PTR TO ENTER BLOCK
MOVEI T4,ENTPTH ;PTR TO ENTER'S PATH BLK
CALL .STOPB##
ERROR WNO,<Wildcards not supported>,RTN
MOVX T1,.IOBIN ;INPUT FILE IN BINARY MODE
MOVEM T1,OPNIN
MOVEI T1,H.FIN ;GET IBUF ADDR FROM SCAN
MOVEM T1,FOPLKP+.FOBRH
OPEN F.FIN,OPNIN ;OPEN INPUT FILE
ERROR COI,<Cannot Open Input Device>,RTN
LOOKUP F.FIN,LKPBLK
ERROR CFI,<Cannot Find Input File>,RTN
MOVX T1,.IOASC ;OUTPUT FILE IN ASCII MODE
MOVEM T1,OPNOUT
MOVSI T1,H.FOUT ;GET OBUF ADDR
MOVEM T1,FOPENT+.FOBRH
OPEN F.FOUT,OPNOUT ;OPEN OUTPUT FILE
ERROR COO,<Cannot Open Output Device>,RTN
ENTER F.FOUT,ENTBLK
ERROR CFO,<Cannot Find Output File>,RTN
RETSKP
$CLOSE: CLOSE F.FIN, ;CLOSE INPUT FILE
CLOSE F.FOUT, ;CLOSE OUTPUT FILE
RET ;NOTHING MORE FOR NOW
SUBTTL REDHDR -- Read Header from Input File
REDHDR: CALL INBYT ;GET LENGTH OF HEADER RECORD
RET ;PROPOGATE ERROR RETURN
CAIE T1,FH.LEN ;IS IT THE LENGTH WE'RE EXPECTING?
ERROR BLN,<Header in trace file is of unexpected length>,RTN
STOR T1,FHLNG,+FILHDR ;'TIS RIGHT LENGTH, STORE IT
MOVE T1,[XWD -<FH.LEN-1>,FILHDR+1] ;PTR TO HEADER RECORD STORAGE
; (MINUS LENGTH FIELD ALREADY STORED)
CALL REDBLK ;READ A BLOCK FROM INPUT FILE
RET ;PROPOGATE ERROR RETURN
LOAD T1,FHTYP,+FILHDR ;GET TYPE OF THIS RECORD
CAIE T1,TYP.FH ;IS THIS A HEADER RECORD?
ERROR BHT,<First record in file not a header record>,RTN
LOAD T1,FHMGL,+FILHDR ;GET LENGTH OF A MSG BLK FROM HEADER
CAIE T1,MB.LEN ;IS IT WHAT WE THINK IT SHOULD BE?
ERROR MLW,<Message Block Length is wrong in Header Record>,RTN
WRTSTR <Trace from monitor >
MOVEI T1,FILHDR+FH.CFG ;PTR TO CONFIG STRING FROM HEADER
CALL .TSTRG## ;WRITE ASCIZ STRING TO OUTPUT FILE
CALL .TCRLF##
DMOVE T1,[XWD F.FIN,.FOFIL
XWD SPCLEN,SPCFIL]
DMOVEM T1,FOPFIL
MOVE T1,[XWD FOPFLN,FOPFIL]
FILOP. T1, ;Get real file spec
IFSKP.
WRTSTR <Trace file: >
MOVE T1,SPCFIL+.FOFDV ;Device
CALL .TSIXN##
MOVEI T1,":"
CALL .TCHAR##
MOVE T1,SPCFIL+.FOFFN
CALL .TSIXN##
MOVEI T1,"."
CALL .TCHAR##
HLLZ T1,SPCFIL+.FOFEX
CALL .TSIXN##
MOVEI T1,"["
CALL .TCHAR##
MOVE T1,SPCFIL+.FOFPP
CALL .TXWDW##
MOVEI T4,SPCFIL
DO.
SKIPN .FOFSF(T4)
JRST ENDLP.
MOVEI T1,","
CALL .TCHAR##
MOVE T1,.FOFSF(T4)
CALL .TSIXN##
AOJA T4,TOP.
ENDDO.
MOVEI T1,"]"
CALL .TCHAR##
CALL .TCRLF##
ENDIF.
WRTSTR <Monitor version >
LOAD T1,FHMVR,+FILHDR ;GET MONITOR VERSION FROM FILE HEADER
CALL .TVERW## ;TYPE OUT A VERSION WORD
WRTSTR <, DNSNUP version >
LOAD T1,FHPVR,+FILHDR ;GET PROGRAM VERSION FROM FILE HEADER
CALL .TVERW## ;TYPE OUT A VERSION WORD
WRTSTR <, DNTATL version >
MOVE T1,.JBVER ;GET MY VERSION FROM JOBDAT
CALL .TVERW## ;TYPE OUT A VERSION WORD
CALL .TCRLF## ;WRITE A CRLF
WRTSTR <DNTATL switches: >
MOVEI T1,[ASCIZ "/RTRCTL"]
SKIPN SCNRTR ;TEST THE /RTRCTL VALUE
MOVEI T1,[ASCIZ "/NORTRCTL"]
CALL .TSTRG##
MOVEI T1,[ASCIZ " /DATA"]
SKIPN SCNDAT ;TEST THE /DATA VALUE
MOVEI T1,[ASCIZ " /NODATA"]
CALL .TSTRG##
MOVEI T1,[ASCIZ " /OCTAL"]
SKIPG SCNOCT ;TEST /OCTAL
MOVEI T1,[ASCIZ " /NOOCTAL"] ;NOT SPECIFIED OR /NOOCT
CALL .TSTRG##
WRTSTR < /NODE:>
MOVE T1,SCNNOD ;PICK UP THE /NODE VALUE
CALL .TDECW## ; WHICH IS IN DECIMAL
WRTSTR < /AREA:>
MOVE T1,SCNARE ;PICK UP THE /AREA VALUE
CALL .TDECW## ; WHICH IS IN DECIMAL
WRTSTR < /LLA:>
MOVE T1,SCNLLA ;PICK UP THE LOCAL LINK ADDRESS
CALL .TOCTW## ; WHICH IS IN OCTAL
WRTSTR < /RLA:>
MOVE T1,SCNRLA ;PICK UP THE REMOTE LINK ADDRESS
CALL .TOCTW## ; WHICH IS IN OCTAL
CALL .TCRLF##
WRTSTR <Trace started >
LOAD T1,FHUDT,+FILHDR ;GET INTERNAL DATE & TIME FROM FILE HDR
CALL .TTADL ;TYPE IT OUT, LONG FORM
WRTSTR <, UPTIME >
LOAD T1,FHUPT,+FILHDR ;GET UPTIME FROM FILE HDR
CALL .TJIFY ;TYPE IT OUT TOO
CALL .TCRLF## ;WRITE A CRLF
RETSKP ;SUCCESS RETURN
SUBTTL REDMSG -- Read Message from Input File
;Returns:
; MBO/ Offset to be subtracted from ptrs into message block
; to point into MSGBLK
; MS/ Pointer to current MSD in MSGBLK
REDMSG: SAVEAC P1
;Read in the record header
MOVE T1,[XWD -<MH.LEN>,MSGHDR] ;AOBJN PTR TO MSG RECORD HEADER
CALL REDBLK ;READ A BLOCK FROM INPUT FILE
RET ;PROPOGATE ERROR RETURN
LOAD T1,MHTYP,+MSGHDR ;GET TYPE OF THIS RECORD
CAIE T1,TYP.MH ;IS IT A MESSAGE?
ERROR BMT,<Expected a message record, didn't get one>,RTN
;Read in the message block
MOVE T1,[XWD -<MB.LEN>,MSGBLK] ;AOBJN PTR TO MESSAGE BLOCK
CALL REDBLK ;READ A BLOCK FROM INPUT FILE
RET ;PROPOGATE ERROR RETURN
;Read in the user data block (if there is one)
LOAD T1,MHLNG,+MSGHDR ;GET LENGTH OF THIS WHOLE RECORD
SUBI T1,<MH.LEN+MB.LEN> ;SUBTRACT LENGTHS OF RECORD HDR & MSG BLK
JUMPLE T1,REDMG1 ;JUMP IF NO USER DATA TO READ
MOVNS T1 ;MAKE NEGATIVE FOR AOBJN PTR
HRLZ T1,T1 ;PUT IN LH FOR AOBJN PTR
HRRI T1,USERDA ;POINT TO USER DATA RECORD
CALL REDBLK ;READ USER DATA INTO USER DATA RECORD
RET ;PROPOGATE ERROR RETURN
REDMG1:
;Set up MBO & MS to point to original msg blk and first MSD therein
LOAD MBO,MHOMB,+MSGHDR ;PICK UP ORIGINAL ADDRESS OF MSG BLK
SUBI MBO,MSGBLK ;OFFSET FROM MHMBO ADDR TO MSGBLK
LOAD MS,MBFMS,+MSGBLK ;PICK UP PTR TO FIRST MSD
JUMPE MS,REDNMG ;RETURN NO MESSAGE IF NO MSDs
SUB MS,MBO ;MUST BE FULL-WORD SUBTRACT FOR EXT ADDR
CALL MSGLEN ;GET LENGTH OF THIS MESSAGE
JRST REDNMG ;RETURN NO MESSAGE
MOVEM T1,SEQLEN ;STORE LENGTH OF WHOLE MESSAGE
MOVEM T1,SEQCNT ;INITIALIZE 'REST OF MSG' COUNTER
MOVE P1,[POINT 8,SEQBFR] ;POINT TO PLACE WHERE WE'LL REBUILD MSG
MOVEM P1,SEQPTR ;INITIALIZE BYTE PTR TO SEQUENTIAL MSG
REDMG2: CALL RED1BY ;GET A BYTE OF MSG FROM MSG BLK
RETSKP ;ALL DONE WHEN NO MORE
IDPB T1,P1 ;STORE IN SEQUENTIAL MSG
JRST REDMG2 ;GET NEXT BYTE
REDNMG: SETZM SEQLEN ;NO MSG, ZERO THE LENGTH
SETZM SEQCNT ; AND THE GETnBY LENGTH
RETSKP ;SUCCESS RETURN (NOT A FILE ERROR)
SUBTTL FMTMSG - Format a DECnet Message
;The message will have been read into MSGHDR and MSGBLK by REDMSG
;before this routine is called.
FMTMSG:
;First, check for lost messages
LOAD T1,MHLST,+MSGHDR ;GET NEW CUMULATIVE LOST COUNT
CAMG T1,LSTCNT ;SAME AS WE HAD BEFORE?
JRST FMTMS1 ;YES, NO PROBLEM
CALL .TCRLF##
WRTSTR <**********************************************************>
CALL .TCRLF##
WRTSTR <******** >
LOAD T1,MHLST,+MSGHDR ;GET CUMULATIVE TOTAL AGAIN
SUB T1,LSTCNT ;GET NUMBER WE JUST LOST
ADDM T1,LSTCNT ;STORE NEW CUMULATIVE LOST COUNT
PUSH P,T1 ;SAVE LOST COUNT
CALL .TDECD ;OUTPUT IN DECIMAL
WRTSTR < message>
POP P,T2 ;RESTORE LOST COUNT
MOVEI T1,"S"+40 ;LOWER CASE
CAIE T2,1 ;PRETTY-PRINT
CALL .TCHAR## ; THE PLURALS
WRTSTR < lost due to congestion in DNSNUP>
CALL .TCRLF##
WRTSTR <**********************************************************>
CALL .TCRLF##
FMTMS1: CALL CHKMSG ;SEE IF WE WANT THIS MESSAGE
RETSKP ;NO, ITS BEEN COUNTED AS SKIPPED
CALL .TCRLF##
CALL .TCRLF##
LOAD T1,MHUDT,+MSGHDR ;GET INTERNAL DATE & TIME
CALL .TTADS ;TYPE IT OUT, SHORT FORM
WRTSTR <, Uptime: >
LOAD T1,MHUPT,+MSGHDR ;GET UPTIME STAMP FROM MSG HEADER
CALL .TJIFY ;TYPE OUT TIME FROM JIFFIES
CALL .TTABC## ;A TAB
LOAD T1,MHIOL,+MSGHDR ;GET INPUT,OUTPUT,LOCAL CODE
CAXE T1,IOL.IN ;IS THIS AN INPUT MESSAGE?
JRST FMTMS2 ;NO, MUST BE OUTPUT OR LOCAL
WRTSTR <Input >
CALL FMTCNT ;TYPE OUT MSG'S BYTE COUNT
RET ;PROPOGATE ERROR
JRST FMTMS5 ;END OF INPUT CODE
FMTMS2: CAXN T1,IOL.OT ;IS THIS AN OUTPUT MESSAGE?
JRST FMTMS3 ;YES
WRTSTR <Local > ;NO, MUST BE LOCAL
JRST FMTMS4 ;CONTINUE
FMTMS3: WRTSTR <Output >
FMTMS4: CALL FMTCNT ;TYPE OUT MSG'S BYTE COUNT
RET ;PROPOGATE ERROR
LOAD T1,NMCNT,+MSGBLK ;GET # OF TIMES MSG WAS SENT
CAIG T1,1 ;IF FIRST TRANSMISSION OR
JRST FMTMS5 ; WE DON'T KNOW, DON'T SAY ANYTHING
WRTSTR <, Transmission #>
LOAD T1,NMCNT,+MSGBLK ;GET # OF TIMES MSG WAS SENT AGAIN
CALL .TDECD ;TYPE SEND COUNT IN DECIMAL
FMTMS5: CALL .TCRLF##
;Fall through to next page
;Handle the Router header (from previous page)
LOAD T1,MHIOL,+MSGHDR ;GET INPUT,OUTPUT,LOCAL CODE
CAXN T1,IOL.LO ;IS THIS A LOCAL MESSAGE?
IFSKP. ;IF NOT, TYPE OUT CIRCUIT ID
WRTSTR < Circuit: >
LOAD T1,MHILN,+MSGHDR ;GET LINE ID (DNSNUP SETS UP ILN = OLN)
CALL .TCKT
CALL .TCRLF##
ENDIF.
SKIPG SCNOCT ;/OCTAL?
JRST FMTMS6 ;NO
CALL FMTOCT ;YES, DUMP IT ALL AS OCTAL
JFCL
CALL .TCRLF## ;SOME WHITESPACE
CALL .TCRLF##
FMTMS6:
;Fall through to next page
;Handle the Router header (from previous page)
MOVEI T1,1 ;PEEK AT FIRST BYTE OF MSG
CALL GTO1BY ;PEEK AT FIRST BYTE OF THE ROUTER HDR
FMTERR No router header,RSKP
TRZN T1,200 ;IS THIS A PAD BYTE?
IFSKP.
MOVE P1,T1 ;SAVE PAD COUNT
DO.
CALL GET1BY ;EAT A PAD BYTE
FMTERR No router header,RSKP
SOJG P1,TOP. ;LOOP OVER ALL PAD BYTES
ENDDO.
MOVEI T1,1 ;PEEK AT FIRST BYTE OF MSG
ADD T1,CHKOFF ;ADD IN OFFSET TO START OF RTR HDR
CALL GTO1BY ;PEEK AT FIRST BYTE OF THE ROUTER HDR
FMTERR No router header,RSKP
ENDIF.
;See if this is a local message w/o a ROUTER header
TXNE T1,RM%EVL ;IF EVOLUTION BIT IS ON
JRST PH2TST ; WE KNOW ITS A PHASE II MSG
MOVEI T2,3 ;MAKE LOW-2-BIT MASK
AND T2,T1 ;ISOLATE LOW 2 BITS
JRST @[ z NORHDR ;PHASE II OR LOCAL W/O RTR HDR
z PH3CTL ;PHASE III CONTROL HDR
z PH3DAT ;PHASE III DATA MESSAGE
z PH3CTL](T2) ;PHASE III CONTROL HDR
PH2TST: TXNE T1,RM%MB1 ;EVOLUTION WAS ON, HOW ABOUT MB1?
JRST PH2RTR ;OFF, THERE IS NO ROUTING HDR
NORHDR: LOAD T1,MHIOL,+MSGHDR ;GET INPUT,OUTPUT,LOCAL CODE
CAXN T1,IOL.LO ;IS THIS AN INPUT MESSAGE?
JRST NSPHDR ;YES, SKIP ROUTER HEADER PRONOUNCEMENT
WRTSTR < Phase II message without routing header>
CALL .TCRLF##
JRST NSPHDR ;TYPE OUT NSP AND BEYOND
PH2RTR: WRTSTR < Phase II routing not supported>
CALL .TCRLF##
CALLRET FMTOCT ;OUTPUT PHASE II AS STRING
PH3CTL: WRTSTR < Phase III/IV routing control message>
CALL .TCRLF##
CALL GET1BY ;GET THE FLAGS BYTE
FMTERR No control flags,RSKP
TXNE T1,360 ;ANY RESERVED BITS ON?
FMTERR Reserved bits set,FMTOCT
LDB T1,[POINT 3,T1,34] ;GET MESSAGE TYPE
JRST @[ RTRINI ;(0) DISPATCH
RTRVER ;(1)
RTRHEL ;(2)
RTRL1R ;(3)
RTRL2R ;(4)
RTRERH ;(5)
RTREEH ;(6)
RTRRMT](T1) ;(7) AS REQUIRED
;Router initialization
RTRINI: SAVEAC P1
WRTSTR < ROUTER initialization from node >
CALL GET2BY
FMTERR No source node,FMTOCT
CALL .TNODE
CALL .TCRLF##
CALL GET1BY ;TTINFO
FMTERR No TTINFO,FMTOCT
MOVE P1,T1
WRTSTR < Type: >
MOVEI T1,2+1
AND T1,P1
MOVE T1,[[ASCIZ /Resvd/]
[ASCIZ /Level II router/]
[ASCIZ /Level I router/]
[ASCIZ /Endnode/]](T1)
CALL .TSTRG##
TXNN P1,14
JRST RTRIN1
WRTSTR <, >
TXNE P1,4
WRTSTR <verification>
MOVEI T1,"&"
TXC P1,14
TXCN P1,14
PUSHJ P,.TCHAR##
TXNE P1,10
WRTSTR <blocking>
WRTSTR < requested>
RTRIN1: CALL .TCRLF##
CALL .TBLKS ;DO BLOCKSIZE
CALL .TTIVR
SOS SEQCNT ;ALLOW FOR "RESERVED IMAGE FIELD"
CALL GET2BY
PJRST RTRIN2 ;Not present in phase III
PUSH P,T1
WRTSTR <, Hello timer: >
POP P,T1
CALL .TDECD
RTRIN2: CALL .TCRLF##
AOS SEQCNT ;IN CASE WE WANT TO PRINT IT
CALL GET1BY ;GET THE IMAGE COUNT
FMTERR Missing reserved image field count,FMTOCT
SKIPE T1 ;SEE IF WHAT WE EXPECT
FMTERR Non-null reserved image field,FMTOCT
RETSKP
;Router verification
RTRVER: SAVEAC P1
WRTSTR < ROUTER verification from node >
CALL GET2BY
FMTERR No source node,FMTOCT
CALL .TNODE
CALL .TCRLF##
WRTSTR < Length: >
CALL GET1BY ;GET BYTE COUNT
FMTERR No verification count,FMTOCT
CALL .TDECD
WRTSTR <, Data: >
CALLRET FMTSTR ;DATA
;Router hello and test
RTRHEL: SAVEAC P1
WRTSTR < ROUTER hello and test from node >
CALL GET2BY
FMTERR No source node, FMTOCT
CALL .TNODE
CALL .TCRLF##
WRTSTR < Length: >
FMTTST: CALL GET1BY ;BYTE COUNT
FMTERR No hello count,FMTOCT
MOVE P1,T1
CALL .TDECD
DO.
SOJL P1,ENDLP. ;EXIT WHEN DONE
CALL GET1BY ;GET A BYTE
FMTERR Length wrong in image field,FMTOCT
CAIN T1,252 ;Correct data?
IFSKP.
PUSH P,T1
FMTERR Test data wrong -- first bad byte =
POP P,T1
PUSHJ P,.TOCTW##
RETSKP
ENDIF.
JRST TOP.
ENDDO.
CALL .TCRLF##
RETSKP
;Router level 1 routing
RTRL1R: SAVEAC <P1,P2>
CALL .TTABC##
MOVEI T1,^D4 ;FIRST NODE'S DATA IF PHASE III
ADD T1,CHKOFF ;OFFSET TO START OF HDR
CALL GTO1BY ;GET THAT BYTE
FMTERR No data in routing message, FMTOCT
MOVE P2,T1
SKIPE P2 ;IF ZERO, ASSUME PHASE IV
WRTSTR <Phase III routing message from node >
SKIPN P2 ;IF NOT, PHASE III
WRTSTR <Phase IV Level I routing message from node >
CALL GET2BY
FMTERR No source node, FMTOCT
CALL .TNODE
CALL .TCRLF##
SETZ P1, ;CHECKSUM
SKIPN P2 ;PHASE III?
AOJ P1, ;NO, DIFFERENT CHECKSUM
MOVE P2,SEQCNT ;BYTES LEFT
SUBI P2,2 ;SAVE 2 FOR CHECKSUM
PUSH P,SEQPTR ;WE'LL NEED ANOTHER PASS
PUSH P,SEQCNT
SKIPE P1 ;PHASE IV?
CALL GET1BY ;YES, SKIP RESERVED BYTE
JFCL
LSH P2,-1 ;CONVERT TO NODES
DO.
CALL GET2BY ;GET FROM MESSAGE
FMTERR Routing count wrong,[POP P,SEQCNT
POP P,SEQPTR
JRST FMTOCT]
ADD P1,T1 ;SUM THE CHECKSUM
SOJG P2,TOP. ;LOOP FOR ALL
ENDDO.
CALL GET2BY ;GET FROM MESSAGE
FMTERR No checksum in rtg message,[POP P,SEQCNT
POP P,SEQPTR
JRST FMTOCT]
POP P,SEQCNT
POP P,SEQPTR
EXCH T1,P1
CALL CKSNRM
CAMN T1,P1 ;IS OURS = HIS?
IFSKP.
FMTERR Routing checksum wrong computed =
PUSH P,T1
CALL .TOCTW##
POP P,T1
WRTSTR <, message = >
MOVE T1,P1
CALL .TOCTW##
ENDIF.
CALL GET1BY ;GET A BYTE
FMTERR No routing data,FMTOCT
JUMPE T1,RTRL14 ;JUMP IF PHASE IV
;APPARENTLY, THIS IS PHASE III
AOS SEQCNT ;BACK UP ONE BYTE
MOVNI T1,1 ;AND THE POINTER
ADJBP T1,SEQPTR
MOVEM T1,SEQPTR ;...
MOVE P1,SEQCNT ;BYTES LEFT
SUBI P1,2 ;LESS CHECKSUM
TRNE P1,1 ;BETTER BE EVEN
FMTERR Odd length routing message,FMTOCT
LSH P1,-1 ;MAKE NUMBER OF NODES
MOVEI P2,1 ;FIRST NODE NUMBER
MOVEI T1,[ASCIZ /Node/] ;TYPE OF SEGMENT
CALL FMTRTS ;FORMAT A ROUTING SEGMENT
RETSKP ;THAT SEEMS LIKE ALL
;THIS APPEARS TO BE A PHASE IV MESSAGE.
RTRL14: MOVNI T1,2 ;CHECKSUM SIZE
ADDM T1,SEQCNT ;PRETEND MESSAGE IS SMALLER
;LOOP OVER EACH SEGMENT
RTR4SG: CALL GET2BY ;READ COUNT OF NODES IN SEGMENT
RETSKP ;NO MORE, DONE
MOVE P1,T1 ;SAVE NUMBER OF NODES
CALL GET2BY ;GET FIRST NODE IN MESSAGE
FMTERR Invalid routing segment header,FMTOCT
MOVE P2,T1 ;SAVE THAT
MOVEI T1,[ASCIZ /Node/] ;TYPE OF SEGMENT
CALL FMTRTS ;FORMAT THIS SEGMENT
JRST RTR4SG ;LOOP TO END
;HERE TO FORMAT A ROUTING SEGMENT
;T1/ [ASCIZ/ NODE/ or /AREA/]
;P1/ NUMBER OF NODES IN SEGMENT
;P2/ NODE NUMBER OF FIRST NODE
FMTRTS: PUSH P,T1
CALL .TCRLF##
POP P,T1
PUSHJ P,.TSTRG##
PUSH P,P1
MOVEI P1,NDSPL ;NODES PER LINE
DO.
WRTSTR < Cost hp>
SOJG P1,TOP.
ENDDO.
CALL .TCRLF##
POP P,P1
DO.
MOVE T1,P2 ;FIRST NODE ON LINE
CALL .TDECW## ;PRINT IT
MOVEI T4,NDSPL ;NODES PER LINE
DO.
CALL .TTABC## ;TAB
CALL GET2BY ;READ ROUTING DATA
FMTERR Routing segment count wrong,[RET]
CAIE T1,77777 ;UNREACHABLE?
IFSKP.
WRTSTR <---- -->
ELSE.
PUSH P,T1 ;SAVE DATA
ANDI T1,1777 ;COST FIELD
CALL .TDEC4 ;OUTPUT IT
CALL .TSPAC## ;SPACE
POP P,T1 ;DATA
LSH T1,-^D10 ;TOSS THAT
MOVEI T2," " ;FILL
CALL .TDEC2## ;HOPS
ENDIF.
SOJLE P1,FMTRSE ;IF NO MORE NODES, END SEGMENT
SOJG T4,TOP.
ENDDO.
ADDI P2,NDSPL ;NEXT NODE NUMBER
CALL .TCRLF##
JRST TOP. ;CONTINUE ON NEXT LINE
ENDDO.
FMTRSE: CALL .TCRLF## ;CRLF
CALL .TCRLF##
WRTSTR < -------->
CALLRE .TCRLF##
;Router level 2 routing
RTRL2R: SAVEAC <P1,P2>
WRTSTR < Phase IV Level II routing message from node >
CALL GET2BY
FMTERR No source node, FMTOCT
CALL .TNODE
CALL .TCRLF##
MOVEI P1,1 ;PHASE IV CHECKSUM
MOVE P2,SEQCNT ;BYTES LEFT
SUBI P2,2 ;SAVE 2 FOR CHECKSUM
PUSH P,SEQPTR ;WE'LL NEED ANOTHER PASS
PUSH P,SEQCNT
CALL GET1BY ;YES, SKIP RESERVED BYTE
JFCL
LSH P2,-1 ;CONVERT TO NODES
DO.
CALL GET2BY ;GET FROM MESSAGE
FMTERR Routing count wrong,[POP P,SEQCNT
POP P,SEQPTR
JRST FMTOCT]
ADD P1,T1 ;SUM THE CHECKSUM
SOJG P2,TOP. ;LOOP FOR ALL
ENDDO.
CALL GET2BY ;GET FROM MESSAGE
FMTERR No checksum in rtg message,[POP P,SEQCNT
POP P,SEQPTR
JRST FMTOCT]
POP P,SEQCNT
POP P,SEQPTR
EXCH T1,P1
CALL CKSNRM
CAMN T1,P1 ;IS OURS = HIS?
IFSKP.
FMTERR Routing checksum wrong computed =
PUSH P,T1
CALL .TOCTW##
POP P,T1
WRTSTR <, message = >
MOVE T1,P1
CALL .TOCTW##
ENDIF.
CALL GET1BY ;GET A BYTE
FMTERR No routing data,FMTOCT
MOVNI T1,2 ;CHECKSUM SIZE
ADDM T1,SEQCNT ;PRETEND MESSAGE IS SMALLER
;LOOP OVER EACH SEGMENT
RT24SG: CALL GET2BY ;READ COUNT OF NODES IN SEGMENT
RETSKP ;NO MORE, DONE
MOVE P1,T1 ;SAVE NUMBER OF NODES
CALL GET2BY ;GET FIRST NODE IN MESSAGE
FMTERR Invalid routing segment header,FMTOCT
MOVE P2,T1 ;SAVE THAT
MOVEI T1,[ASCIZ /Area/] ;TYPE OF SEGMENT
CALL FMTRTS ;FORMAT THIS SEGMENT
JRST RT24SG ;LOOP TO END
;Router Ethernet router hello
RTRERH: SAVEAC P1
WRTSTR < Ethernet ROUTER hello>
CALL .TTIVR ;PRINT TIVER
WRTSTR < from node >
CALL .TENOD
CALL .TCRLF## ;AND CRLF
CALL .TINFO ;PRINT IINFO, CRLF
CALL .TBLKS ;PRINT BLOCKSIZE
WRTSTR <, Desig RTR pri: >
CALL GET1BY ;GET PRIORITY
FMTERR Missing priority,RSKP
CALL .TDECD
; WRTSTR <, Area: >
CALL GET1BY
FMTERR Missing area,RSKP
SKIPE T1 ;CURRENTLY RESERVED
FMTERR Non-zero area byte,RSKP
; CALL .TDECD
WRTSTR <, Hello timer: >
CALL GET2BY ;HELLO TIME
FMTERR Missing Hello Timer,RSKP
CALL .TDECD
WRTSTR <, MPD: >
CALL GET1BY
FMTERR Missing MPD,RSKP
; SKIPE T1 ;Hmmm, this shouldn't be, but is
; FMTERR Non-zero MPD byte,RSKP ;Currently reserved
CALL .TDECD
CALL .TCRLF##
SAVEAC <P1,P2>
CALL GET1BY ;GET BYTE COUNT OF E-LIST
FMTERR Missing E-list,RSKP
MOVE P2,T1 ;BYTES IN E-LIST
DO.
CALL .TCRLF## ;SPACE BEFORE HEADER
REPEAT 7,<
SOJL P2,ENDLP. ;UNTIL NO MORE BYTES
CALL GET1BY ;GET NEXT BYTE OF NAME
FMTERR Missing E-list byte,RSKP
SKIPE T1 ;OK?
FMTERR Nonzero logical ethernet name,RSKP
>
SOJL P2,.+2 ;ERROR IF NONE
CALL GET1BY ;GET COUNT FOR THIS R/S LIST
FMTERR Missing R/S list count,RSKP
MOVE P1,T1 ;SAVE
MOVEI T4,NDSPL/2 ;NODES PER LINE
DO.
WRTSTR < Node T Pri>
SOJG T4,TOP.
ENDDO.
CALL .TCRLF##
DO.
MOVEI T4,NDSPL/2 ;NODES PER LINE
DO.
CALL .TTABC##
SUBI P1,5 ;ETHERNET ADDRESS
SOJL P1,ENDLP. ;EXIT IF DONE
SUBI P2,5 ;AGAIN FOR ENTIRE LIST
SOJL P2,[FMTERR E-list exhausted before R/S list,RSKP]
CALL .TENDF ;ETHERNET ADDRESS
CALL .TSPAC##
SOJL P1,.+3 ;ERROR IF OUT OF BYTES
SOJL P2,.+2 ;...
CALL GET1BY ;GET PRISTATE BYTE
FMTERR PRISTATE byte missing,RSKP
PUSH P,T1 ;SAVE
TRNN T1,200 ;CHECK STATE
IFSKP.
MOVEI T1,"T" ;TWO-WAY
ELSE.
MOVEI T1," "
ENDIF.
CALL .TCHAR## ;TYPE CHAR
POP P,T1 ;PRIORITY
ANDI T1,177 ;ONLY 7 BITS
CALL .TDEC4 ;SPACE + 3 DIGITS
SOJG T4,TOP. ;DO R/S PAIRS TILL EOL
ENDDO.
CALL .TCRLF## ;PRINT CRLF
JUMPG P1,TOP. ;CONTINUE IF MORE BYTES IN THIS R/S LIST
ENDDO.
CALL .TCRLF## ;CRLF
WRTSTR < -------->
CALL .TCRLF##
JRST TOP. ;DO FOR ALL E-LIST ENTRIES
ENDDO.
RETSKP
;Router Ethernet endnode hello
RTREEH: SAVEAC P1
WRTSTR < Ethernet endnode hello>
CALL .TTIVR ;PRINT TI VERSION
WRTSTR < from node >
CALL .TENOD
CALL .TCRLF## ;AND CRLF
CALL .TINFO ;PRINT IINFO, CRLF
CALL .TBLKS ;PRINT BLOCKSIZE
; WRTSTR <, Area: >
CALL GET1BY
FMTERR Missing area,RSKP
SKIPE T1
FMTERR Non-zero AREA byte,RSKP ;Currently reserved
; CALL .TDECD
WRTSTR <, Verif seed: >
REPEAT 7,<
CALL GET1BY
FMTERR Missing SEED,RSKP
CALL .TDECW##
CALL .TCOMA##
>
CALL GET1BY
FMTERR Missing SEED,RSKP
CALL .TDECW##
CALL .TCRLF##
WRTSTR < Neighbor node: >
CALL .TENOD
WRTSTR <, Hello timer: >
CALL GET2BY ;HELLO TIME
FMTERR Missing Hello Timer,RSKP
CALL .TDECD
WRTSTR <, MPD: >
CALL GET1BY
FMTERR Missing MPD,RSKP
; SKIPE T1 ;Hmmm, this shouldn't be, but is
; FMTERR Non-zero MPD byte,RSKP ;Currently reserved
CALL .TDECD
WRTSTR <, Test data length: >
CALLRET FMTTST ;FORMAT AND RETURN
;Ethernet message formatting subroutines
DEFINE HEX(NUM),<.ZZW==<.ZZC==0>
IRPC NUM,<.ZZCH=="NUM"-"0"
IFG .ZZCH-^D9,<.ZZCH==.ZZCH-<<"A"-"0">-^D10>>
.ZZW==.ZZW+<.ZZCH>B<3+<.ZZC*4>>
IFE .ZZC-^D7,<EXP .ZZW;; 32BITS/WD
.ZZW==0
.ZZC==-1>
.ZZC==.ZZC+1>
IFN .ZZC,<EXP .ZZW>
PURGE .ZZW,.ZZC,.ZZCH>
RTRHIO: HEX(AA0004000000) ;HIGH ORDER ROUTER ADDRESS
;Output an ethernet node address
.TENDF: SAVEAC <P1> ;SAVE A FLAG
SETO P1, ;FIXED FORMAT
JRST TENODE
.TENOD: SAVEAC <P1>
SETZ P1, ;VBL FMT
TENODE: PUSH P,[0]
REPEAT 4,<
CALL GET1BY ;GET A BYTE
FMTERR No destination node address,TPOPJ
EXCH T1,(P) ;SAVE NEW,GET OLD
LSH T1,^D8 ;MOVE LOW BYTE TO LEFT
IORM T1,(P) ;SAVE RESULT
>
POP P,T1 ;GET LOW ORDER ETHERNET ADDRESS
LSH T1,4 ;NOW IT'S BEEN IDPB'D, LOW-HIGH, IN HEX
CAME T1,RTRHIO ;CORRECT?
SKIPN T1 ;Zero means "none"
CAIA
NDNERR: FMTERR Ethernet message with non-DECnet address,RTN
PUSH P,T1 ;SAVE RESULT
CALL GET2BY ;DEST ADDR IS 2 BYTES
FMTERR No destination node address,TPOPJ
POP P,T2 ;GET BYTES SO FAR
JUMPE T2,[JUMPN T1,NDNERR ;IF ZERO HIORD BUT NZ NODE, ERROR
WRTSTR <<none>>
RET]
SKIPL P1 ;CHECK DESIRED FORMAT
IFSKP. ;IF FIXED
PUSH P,T1 ;SAVE NODE NUMBER
LSH T1,-^D10 ;GET AREA
MOVEI T2," " ;SPACE FILL
CALL .TDEC2## ;PRINT AREA
CALL .TDOT ;"."
POP P,T1 ;NODE
ANDI T1,1777 ;AND ONLY NODE
PUSHJ P,.TDEC4 ;4 DIGITS
ELSE.
CALL .TNODE ;TYPE NODE ADDRESS IN DECIMAL
ENDIF.
RET
;OUTPUT IINFO BYTE
.TINFO: SAVEAC <P1>
CALL GET1BY ;IINFO
FMTERR No IINFO,FMTOCT
MOVE P1,T1
WRTSTR < Type: >
MOVEI T1,2+1
AND T1,P1
MOVE T1,[[ASCIZ /Resvd/]
[ASCIZ /Level II router/]
[ASCIZ /Level I router/]
[ASCIZ /Endnode/]](T1)
CALL .TSTRG##
TXNN P1,104
JRST TINFO1
WRTSTR <, >
TXNE P1,4
WRTSTR <verification>
MOVEI T1,"&"
TXC P1,104
TXCN P1,104
PUSHJ P,.TCHAR##
TXNE P1,100
WRTSTR <blocking>
WRTSTR < requested>
TINFO1: CALL .TCRLF##
TXNN P1,270 ;ANY MORE BITS?
RET ;NO
WRTSTR < >
TXZE P1,10 ;REJECT
WRTSTR <Reject flag>
TXNE P1,270 ;MORE?
CALL .TCOMA## ;YES
TXZE P1,20 ;VERIF FAIL
WRTSTR <Verification failed>
TXNE P1,270 ;MORE
CALL .TCOMA##
TXZE P1,40 ;NO MULTICAST
WRTSTR <No multicast traffic>
TXNE P1,270 ;MORE
CALL .TCOMA##
TXZE P1,200
WRTSTR <IINFO bit 7>
CALLRET .TCRLF##
;Router Reserved message type
RTRRMT: FMTERR Reserved router message type,FMTOCT
;Here if we have a Phase III/IV data message
PH3DAT: WRTSTR < Phase III/IV data message, control byte: >
CALL GET1BY ;EAT BYTE WE'VE BEEN PEEKING AT
FMTERR No router header,RSKP
CALL .TOCTW
CALL .TCRLF##
TXNE T1,4 ;IS THIS PHASE IV FROM ETHERNET?
JRST PH4DAT ;YES
WRTSTR < Dest node: >
CALL GET2BY ;DEST ADDR IS 2 BYTES
FMTERR No destination node address,RSKP
CALL .TNODE ;TYPE NODE ADDRESS IN DECIMAL
WRTSTR <, Source node: >
CALL GET2BY ;SOURCE ADDR IS 2 BYTES
FMTERR No destination node address,RSKP
CALL .TNODE ;TYPE NODE ADDRESS IN DECIMAL
WRTSTR <, Visits: >
CALL GET1BY ;VISIT COUNT IS 1 BYTE
FMTERR No visit count,RSKP
CALL .TDECD ;TYPE VISIT COUNT IN DECIMAL
CALL .TCRLF##
JRST NSPHDR ;GO OUTPUT NSP HEADER
PH4DAT: WRTSTR < Dest area: > ;LINE UP DEST WITH SOURCE FIELDS
CALL GET1BY
FMTERR No destination area,RSKP
CALL .TDECD
WRTSTR <, Dest subarea: > ;LINE UP DEST WITH SOURCE FIELDS
CALL GET1BY
FMTERR No destination subarea,RSKP
CALL .TDECD
WRTSTR <, Dest node: > ;LINE UP DEST WITH SOURCE FIELDS
CALL .TENOD ;TYPE ETHERNET NODE
CALL .TCRLF##
WRTSTR < Source area: >
CALL GET1BY
FMTERR No source area,RSKP
CALL .TDECD
WRTSTR <, Source subarea: >
CALL GET1BY
FMTERR No source subarea,RSKP
CALL .TDECD
WRTSTR <, Source node: >
CALL .TENOD ;TYPE ETHERNET NODE
CALL .TCRLF##
WRTSTR < Next Level Two: >
CALL GET1BY ;NL2 IS 1 BYTE
FMTERR No NL2 field,RSKP
CALL .TDECD
WRTSTR <, Visits: >
CALL GET1BY ;VISIT COUNT IS 1 BYTE
FMTERR No visit count field,RSKP
CALL .TDECD ;TYPE VISIT COUNT IN DECIMAL
WRTSTR <, Service Class: >
CALL GET1BY ;SERVICE CLASS
FMTERR No service class field,RSKP
CALL .TDECD
WRTSTR <, Protocol type: >
CALL GET1BY ;PROTOCOL TYPE
FMTERR No protocol type field,RSKP
CALL .TDECD
CALL .TCRLF##
JRST NSPHDR ;GO OUTPUT NSP HEADER
;Output length of message
FMTCNT: MOVE T1,SEQLEN ;GET LENGTH OF MESSAGE
CALL .TDECD ;DECIMAL
WRTSTR < bytes>
RETSKP
;Output the rest of the message as a user data field (image with count)
FMTUDA: CALL .TCRLF##
WRTSTR < User Data Length: >
CALL GET1BY ;GET LENGTH (FIRST BYTE)
SETZ T1, ;NO MORE DATA, TELL USER WE HAVE ZERO
PUSH P,T1 ;SAVE VALUE WE'RE TYPING
CALL .TDECD ;THERE IS A LENGTH, TYPE IN DECIMAL
POP P,T1 ;RECOVER VALUE WE TYPED
SKIPN SCNDAT ;USER SAY /NODATA?
RETSKP ;YES, LEAVE NOW
JUMPE T1,RSKP ;NO, LEAVE NOW IF LENGTH WAS ZERO
WRTSTR <, Data: > ;WE HAVE DATA, ANNONCE THE FACT
CALLRET FMTSTR ;TYPE REST AS AS A STRING
;FMTCDA is same as FMTUDA, except length is rest of message instead of
;contents of first byte
FMTCDA: WRTSTR <, Connect Data Length: >
MOVE T1,SEQCNT ;GET REMAINING LENGTH OF MESSAGE
CALL .TDECD ;THERE IS A LENGTH, TYPE IN DECIMAL
SKIPG SEQCNT ;ANY USER DATA TO TYPE?
RETSKP ;NO, LEAVE NOW
WRTSTR <, Data: > ;WE HAVE DATA, ANNONCE THE FACT
CALLRET FMTSTR ;TYPE REST AS AS A STRING
;Output the rest of the message as octal bytes and as ASCII
FMTSTR: CALL FMTOCT ;FIRST OUTPUT IN OCTAL
RET
CALL .TCRLF## ;MAKE SOME ROOM BETWEEN OCTAL & ASCII
CALL FMTASC ;THEN IN ASCII
RET
RETSKP
;Here to put out the string in octal bytes
FMTOCT: SAVEAC P1
SKIPG SEQCNT ;ANYTHING THERE?
RETSKP ;NO, SUCCESS NOW
PUSH P,SEQCNT ;SAVE REMAINING LENGTH OF MSG
PUSH P,SEQPTR ; AND BYTE PTR TO IT
FMTST1: MOVEI P1,^D20 ;WE'LL PUT (P1) BYTES ON A LINE
CALL .TCRLF## ;START WITH A FRESH LINE FOR P1'S COUNT
FMTST2: CALL GET1BY ;GET A BYTE FROM CURRENT MSG
JRST FMTST5 ;DONE WHEN NO MORE BYTES TO READ
PUSH P,T1 ;SAVE OUR BYTE
TRNE T1,700 ;NEED ANY FILLER?
JRST FMTST4 ;NO, BIG NUMBER
TRNE T1,70 ;YES, NEED 2 FILLERS?
JRST FMTST3 ;NO, MEDIUM NUMBER
CALL .TSPAC## ;YES, LITTLE NUMBER
FMTST3: CALL .TSPAC## ;FILL FOR MEDIUM NUMBER
FMTST4: POP P,T1 ;RESTORE OUR BYTE
CALL .TOCTW## ;TYPE OUT BYTE IN OCTAL
SOJLE P1,FMTST1 ;NEXT LINE IF THIS LINE FILLED
CALL .TSPAC## ;NO, THEN TYPE A SPACE
JRST FMTST2 ;LOOP UNTIL DONE
FMTST5: POP P,SEQPTR ;RESTORE BYTE PTR TO MSG
POP P,SEQCNT ; AND ITS LENGTH
RETSKP
;Here to put out the string in ASCII
FMTASC: SAVEAC P1
SKIPG SEQCNT ;ANYTHING THERE?
RETSKP ;NO, SUCCESS NOW
FMTST6: CALL GET1BY ;GET A BYTE FROM CURRENT MSG
JRST FMTST8 ;ONE MORE CRLF, THEN SUCCESS
ANDI T1,177 ;TURN OFF THE PARITY BIT FOR COMPARES
CAIL T1,40 ;PRINTING CHAR?
JRST FMTST7 ;YES
CAIE T1,15 ;MAYBE NOT, IS IT A CR
CAIN T1,12 ; OR LF
JRST FMTST7 ;YES
CAIN T1,11 ;OR TAB
JRST FMTST7 ;YES
PUSH P,T1 ;NO, SAVE CHAR
MOVEI T1,"^" ;PRINT A 'CONTROL' SIGNAL
CALL .TCHAR##
POP P,T1 ;RESTORE OUR CHAR
ADDI T1,100 ;DECONTROL IT
FMTST7: CALL .TCHAR## ;TYPE OUT BYTE IN ASCII
JRST FMTST6 ;LOOP UNTIL DONE
FMTST8: CALL .TCRLF## ;BACK TO LEFT MARGIN
RETSKP ;SUCCESS
;Check to see if we want to talk about this message
;
;Call: SEQBFR set up by REDMSG for GETnBY
; CALL CHKMSG
; "Don't do it" return
; "Do it" return
CHKMSG: SAVEAC <P1,P2>
MOVEI T1,1 ;PEEK AT FIRST BYTE OF MSG
CALL GTO1BY ;PEEK AT FIRST BYTE OF THE ROUTER HDR
FMTERR No router header,RSKP
SETZM CHKOFF ;ASSUME NO PAD BYTE
TRZN T1,200 ;IS THIS A PAD BYTE?
IFSKP.
MOVEM T1,CHKOFF ;YES, STORE OFFSET TO START OF RTR HDR
ADDI T1,1 ;PEEK AT NEW FIRST
CALL GTO1BY ; BYTE OF THE ROUTER HDR
FMTERR No router header,RSKP
ENDIF.
;See if this is a local message w/o a ROUTER header
TXNE T1,RM%EVL ;IF EVOLUTION BIT IS ON
JRST CHKMG0 ; WE KNOW ITS A PHASE II MSG
ANDI T1,7 ;ISOLATE LOW 3 BITS
MOVE T1,[DEC 0 ;(0)PHASE II OR LOCAL W/O RTR HDR
DEC -1 ;(1)PHASE III/IV CONTROL HDR
DEC 6 ;(2)PHASE III/IV SHORT FORM DATA HDR
DEC -1 ;(3)PHASE III/IV CONTROL HDR
DEC 0 ;(4)PHASE II OR LOCAL W/O RTR HDR
DEC -1 ;(5)PHASE III/IV CONTROL HDR
DEC 21 ;(6)PHASE IV LONG FORM DATA HDR
DEC -1](T1) ;(7)PHASE III/IV CONTROL HDR
JRST CHKMG1 ;WE HAVE THE ROUTER HEADER LENGTH NOW
CHKMG0: TXNN T1,RM%MB1 ;EVOLUTION WAS ON, HOW ABOUT MB1?
TDZA T1,T1 ;NO, LOCAL OR PH2 WITH ZERO LENGTH RTR HDR
MOVX T1,-1 ;YES, PH2 RTR HDR, -1 SAYS ROUTER CONTROL
CHKMG1: MOVEM T1,RHDRLN ;STORE ROUTER HDR LENGTH
JUMPL T1,[SKIPN SCNRTR ;IF THIS IS ROUTING MSG, DO WE WANT THEM?
JRST CHKMGF ;NO
JRST CHKMGS] ;YES
;T1 STILL HAS RHDRLN IN IT
SKIPG SCNNOD ;USER HAVE A NODE IN MIND?
JRST CHKMG8 ;NO
JUMPE T1,CHKMG8 ;YES, IGNORE IF NO ROUTER HDR ON THIS MSG
;T1 STILL HOLDS LENGTH OF ROUTER HDR
MOVEI P1,2 ;ASSUME SHORT FORM ROUTER HDR, AND
MOVEI P2,4 ; SET UP P1,P2 AS POSITION OF DEST,SRC ADDRS
CAIE T1,^D21 ;IS IT LONG FORM?
IFSKP. ;YES...
MOVEI P1,^D8 ;LONG FORM DEST ADDR POSITION
MOVEI P2,^D16 ; AND SOURCE ADDR POSITION
ENDIF.
LOAD T1,MHIOL,+MSGHDR ;GET INPUT,OUTPUT,LOCAL CODE
CAXE T1,IOL.OT ;IS THIS AN OUTPUT MESSAGE?
SKIPA T1,P2 ;NO, POINT TO SOURCE NODE ADDR
MOVE T1,P1 ;YES, POINT TO DEST NODE ADDR
ADD T1,CHKOFF ;ADD IN OFFSET TO START OF RTR HDR
CALL GTO2BY ;PEEK AT 2 BYTE FIELD
JRST CHKMGF ;NO NODE ADDR, MUST NOT BE INTERESTING
LDB T2,[POINT 6,T1,35-10];GET AREA
ANDI T1,1777 ;PARE DOWN TO INTRA-AREA NODE NUMBER
CAME T1,SCNNOD ;IS THIS THE INDICATED NODE ADDRESS?
JRST CHKMGF ;NO, IGNORE IT
SKIPG SCNARE ;/AREA SPECIFIED?
JRST CHKMG8 ;NO, DON'T COMPARE
CAME T2,SCNARE ;YES, DOES IT MATCH THIS MESSAGE?
JRST CHKMGF ;NO, IGNORE IT
CHKMG8: SKIPG SCNLLA ;USER HAVE A LOCAL LINK ADDRESS IN MIND?
JRST CHKMG2 ;NO
;YES
LOAD T1,MHIOL,+MSGHDR ;GET INPUT,OUTPUT,LOCAL CODE
CAXE T1,IOL.OT ;IS THIS AN OUTPUT MESSAGE?
CAXN T1,IOL.LO ; OR A LOCAL MESSAGE?
SKIPA T1,[DEC 4] ;YES, POINT TO SOURCE LINK ADDR
MOVEI T1,2 ;NO, POINT TO DEST LINK ADDR
ADD T1,RHDRLN ;ADD IN LENGTH OF THIS MSG'S RTR HDR
ADD T1,CHKOFF ;ADD IN OFFSET TO START OF RTR HDR
CALL GTO2BY ;PEEK AT 2 BYTE FIELD
JRST CHKMGF ;NO LINK ADDR, MUST NOT BE INTERESTING
CAMN T1,SCNLLA ;IS THIS THE INDICATED LINK ADDRESS?
JRST CHKMG3 ;YES, ACCEPT THIS MESSAGE
LOAD T1,MHIOL,+MSGHDR ;NO, GET INPUT,OUTPUT,LOCAL CODE
CAXE T1,IOL.LO ;IS THIS A LOCAL MESSAGE?
JRST CHKMGF ;NO, FAIL
MOVEI T1,2 ;YES, POINT TO DEST LINK ADDR TOO
ADD T1,RHDRLN ;ADD IN LENGTH OF THIS MSG'S RTR HDR
ADD T1,CHKOFF ;ADD IN OFFSET TO START OF RTR HDR
CALL GTO2BY ;PEEK AT 2 BYTE FIELD
JRST CHKMGF ;NO LINK ADDR, MUST NOT BE INTERESTING
CAME T1,SCNLLA ;IS THIS THE INDICATED LINK ADDRESS?
JRST CHKMGF ;NO, FAIL
CHKMG2: SKIPG SCNRLA ;USER HAVE A REMOTE LINK ADDRESS IN MIND?
JRST CHKMG3 ;NO
;YES
LOAD T1,MHIOL,+MSGHDR ;GET INPUT,OUTPUT,LOCAL CODE
CAXE T1,IOL.IN ;IS THIS AN INPUT MESSAGE?
SKIPA T1,[DEC 2] ;NO, POINT TO DEST LINK ADDR
MOVEI T1,4 ;YES, POINT TO SOURCE LINK ADDR
ADD T1,RHDRLN ;ADD IN LENGTH OF THIS MSG'S RTR HDR
ADD T1,CHKOFF ;ADD IN OFFSET TO START OF RTR HDR
CALL GTO2BY ;PEEK AT 2 BYTE FIELD
JRST CHKMGF ;NO LINK ADDR, MUST NOT BE INTERESTING
CAMN T1,SCNRLA ;IS THIS THE INDICATED LINK ADDRESS?
JRST CHKMG3 ;YES, LETS LOOK AT IT
LOAD T1,MHIOL,+MSGHDR ;NO, GET INPUT,OUTPUT,LOCAL CODE
CAXE T1,IOL.OT ;IS THIS A LOCAL MESSAGE?
JRST CHKMGF ;NO, FAIL
MOVEI T1,4 ;YES, POINT TO SOURCE LINK ADDR
ADD T1,RHDRLN ;ADD IN LENGTH OF THIS MSG'S RTR HDR
ADD T1,CHKOFF ;ADD IN OFFSET TO START OF RTR HDR
CALL GTO2BY ;PEEK AT 2 BYTE FIELD
JRST CHKMGF ;NO LINK ADDR, MUST NOT BE INTERESTING
CAME T1,SCNRLA ;IS THIS THE INDICATED LINK ADDRESS?
JRST CHKMGF ;NO, IGNORE IT
CHKMG3: ;Put more tests here
;If we get here, we'll look at the msg
CHKMGS: SKIPG SKPCNT ;HAVE WE SKIPPED ANY RECORDS?
RETSKP ;NO, SUCCESS RETURN NOW
CALL .TCRLF## ;MAKE A LITTLE
CALL .TCRLF## ; ROOM FOR THE SKIP MESSAGE
WRTSTR <*** Skipped > ;YES, TELL USER ABOUT IT
MOVE T1,SKPCNT ;GET NUMBER WE SKIPPED
CALL .TDECD ;DECIMAL
WRTSTR < message>
MOVE T2,SKPCNT ;GET NUMBER WE SKIPPED AGIAN
MOVEI T1,"S"+40 ;LOWER CASE
CAIE T2,1 ;PRETTY-PRINT
CALL .TCHAR## ; THE PLURALS
WRTSTR < due to selection switches ***>
CALL .TCRLF##
SETZM SKPCNT ;START SKIP COUNT ANEW NOW
RETSKP ;SUCCESS RETURN
;Here to ignore the message
CHKMGF: AOS SKPCNT ;WE'RE SKIPPING A RECORD
RET ;"NO GO" RETURN
;Handle the NSP header
;
;Call: SEQBFR set up by REDMSG for GETnBY
; CALL NSPHDR
; Error Return
; Normal Return
NSPHDR: SAVEAC P1
CALL GET1BY ;GET NSP MESSAGE TYPE FIELD
FMTERR No NSP message type byte,RSKP
LSH T1,-2 ;LOW-ORDER 2 BITS ALWAYS ZERO
MOVE P1,T1 ;SAVE MESSAGE TYPE
CAILE P1,NSPTLN ;LEGAL MSG TYPE?
JRST [ CALL .TOCTW## ;NO, OUTPUT MESSAGE TYPE
CALL .TSPAC## ;WRITE A SPACE
CALLRET FMTSTR] ;OUTPUT REST OF MSG AS A STRING
CALL .TTABC## ;YES, OUTPUT REST OF MSG ACCORDING TO TYPE
HLRZ T1,NSPTBL(P1) ;GET NAME OF MESSAGE TYPE
CALL .TSTRG## ;WRITE NAME STRING
WRTSTR <, > ;SET UP FOR TYPE-SPECIFIC ROUTINE'S OUTPUT
HRRZ T1,NSPTBL(P1) ;GET ROUTINE ADDR FROM RH OF TABLE ENTRY
CALL (T1) ;OUTPUT MESSAGE ACCORDING TO MSG TYPE
RET ;ERROR OF SOME SORT
RETSKP ;SUCCESS
;Table of Message Type names and Routine addresses
DEFINE MGTYPS,< ;{subtype,type}
MSGTYP (NoBEom,RCVMDS) ; 0: {0,0}
$XLIST
MSGTYP (DATACK,RCVACK) ; 1: {0,1}
MSGTYP (NOP, RCVNOP) ; 2: {0,2}
MSGTYP (<0,3>, FMTSTR) ; 3: {0,3}
MSGTYP (LNKSRV,RCVLKS) ; 4: {1,0}
MSGTYP (OTHACK,RCVACK) ; 5: {1,1}
MSGTYP (CI, RCVCI) ; 6: {1,2}
MSGTYP (<1,3>, FMTSTR) ; 7: {1,3}
MSGTYP (Bom, RCVBGS) ;10: {2,0}
MSGTYP (CA, RCVCA) ;11: {2,1}
MSGTYP (CC, RCVCC) ;12: {2,2}
MSGTYP (<2,3>, FMTSTR) ;13: {2,3}
MSGTYP (INTRPT,RCVONS) ;14: {3,0}
MSGTYP (<3,1>, FMTSTR) ;15: {3,1}
MSGTYP (DI, RCVDI) ;16: {3,2}
MSGTYP (<3,3>, FMTSTR) ;17: {3,3}
MSGTYP (Eom, RCVENS) ;20: {4,0}
MSGTYP (<4,1>, FMTSTR) ;21: {4,1}
MSGTYP (DC, RCVDC) ;22: {4,2}
MSGTYP (<4,3>, FMTSTR) ;23: {4,3}
MSGTYP (<5,0>, FMTSTR) ;24: {5,0}
MSGTYP (<5,1>, FMTSTR) ;25: {5,1}
MSGTYP (<5,2>, FMTSTR) ;26: {5,2}
MSGTYP (<5,3>, FMTSTR) ;27: {5,3}
MSGTYP (BomEom,RCVONS) ;30: {6,0}
MSGTYP (<6,1>, FMTSTR) ;31: {6,1}
MSGTYP (ReCI, RCVCI) ;32: {6,2}
$LIST
>;END OF MGTYPS MACRO
DEFINE MSGTYP(type,routine,upto,sublink,ack,respond,flow),<
XWD [ASCIZ /type/],routine
>
NSPTBL: MGTYPS
NSPTLN==.-NSPTBL-1
SUBTTL NSP Message Type Routines -- Data message
RCVBGS: ;BEGSEG message
RCVMDS: ;MIDSEG message
RCVENS: ;ENDSEG message
RCVONS: ;ONYSEG or INTRPT message
CALL DLASLA ;PUT OUT DLA AND SLA
RET ;PROPOGATE ERROR
CALL ACKSEG ;PUT OUT ACK AND/OR SEGNUM
RET ;PROPOGATE ERROR
CALL .TCRLF##
WRTSTR < User Data Length: >
MOVE T1,SEQCNT ;GET REMAINING MSG LENGTH
CALL .TDECD ;TYPE OUT LENGTH
SKIPE SCNDAT ;USER SAY /NODATA?
SKIPG T1,SEQCNT ;YES, GET REMAINING MSG LENGTH AGAIN
RETSKP ;LEAVE NOW IF NO DATA TO TYPE
WRTSTR <, User Data: >
CALLRET FMTSTR ;PUT OUT REST OF MSG AS A STRING
SUBTTL NSP Message Type Routines -- ACK message
RCVACK: ;ACK message (Data or Other)
CALL DLASLA ;PUT OUT DLA AND SLA
RET ;PROPOGATE ERROR
CALL ACKFLD ;PUT OUT ACK FIELD ONLY
RET ;PROPOGATE ERROR
CALL .TCRLF##
RETSKP
SUBTTL NSP Message Type Routines -- LNKSRV message
RCVLKS: SAVEAC P1 ;LNKSRV message
CALL DLASLA ;PUT OUT DLA AND SLA
RET ;PROPOGATE ERROR
CALL ACKSEG ;PUT OUT ACK AND/OR SEGNUM
RET ;PROPOGATE ERROR
CALL .TCRLF##
CALL .TTABC## ;NEW LINE STARTS WITH A TAB
CALL GET1BY ;GET LSFLAGS FIELD
FMTERR No link service flags byte,RSKP
MOVE P1,T1 ;SAVE FLAGS BYTE IN P1
CALL GET1BY ;GET FCVAL FIELD
FMTERR No link service value byte,RSKP
TRNE T1,200 ;TEST THE SIGN BIT OF THE BYTE
ORCMI T1,377 ;ITS NEGATIVE, EXTEND THE SIGN
CALL .TDECD ;OUTPUT # OF DRQs (DECIMAL)
WRTSTR < credits on >
LOAD T2,LSINT,+P1 ;GET INTERPRETATION FIELD
MOVEI T1,[ASCIZ /Data/]
CAIE T2,LS.INR ;IS IT 'DATA' SUBLINK?
MOVEI T1,[ASCIZ /Other/]
CALL .TSTRG##
WRTSTR < sublink, >
LOAD T1,LSMOD,+P1 ;GET MODIFIER FIELD
MOVE T1,[[ASCIZ /no change to off flag/]
[ASCIZ /turn sublink OFF/]
[ASCIZ /turn sublink ON/]
[ASCIZ /?reserved modifier value?/]](T1)
CALL .TSTRG## ;YES, TYPE IT
CALL .TCRLF##
RETSKP
SUBTTL NSP Message Type Routines -- CI message
RCVCC: ;CC message
CALL RCVCIC ;COMMON CI/CC CODE
RET ;PROPOGATE ERROR
CALLRET FMTUDA ;FINISH OFF WITH USER DATA
RCVCI: ;CI message
CALL RCVCIC ;COMMON CI/CC CODE
RET ;PROPOGATE ERROR
CALLRET FMTCDA ;FINISH OFF WITH CONNECT DATA
RCVCIC: CALL DLASLA ;PUT OUT DLA AND SLA
RET ;PROPOGATE ERROR
WRTSTR <, Flow Control: >
CALL GET1BY ;GET SERVICES BYTE (EXTENSIBLE!)
FMTERR No services byte,RSKP
LOAD T1,SVOPT,+T1 ;GET FLOW CONTROL OPTION
MOVE T1,[[ASCIZ /None/]
[ASCIZ /Segment/]
[ASCIZ /Message/]
[ASCIZ /Illegal/]](T1)
CALL .TSTRG##
WRTSTR <, NSP Version: >
CALL GET1BY ;VERSION FIELD (EXTENSIBLE!)
FMTERR No INFO field,RSKP
CALL .TOCTW##
CALL .TCRLF##
WRTSTR < Segsize: >
CALL GET2BY ;GET SEGMENT SIZE BYTES
FMTERR No segsize field,RSKP
CALL .TDECD
RETSKP ;SUCCESS RETURN
SUBTTL NSP Message Type Routines -- CA message
RCVCA: ;CA message
WRTSTR <DLA: > ;CONNECT ACK ONLY HAS A DLA FIELD
CALL GET2BY ; WHICH IS 2 BYTES
FMTERR No dest link address bytes,RSKP
CALL .TOCTW## ;LINK ADDRESSES IN OCTAL
CALL .TCRLF##
RETSKP
SUBTTL NSP Message Type Routines -- DI message
RCVDI: ;DI message
CALL DLASLA ;PUT OUT DLA AND SLA
RET ;PROPOGATE ERROR
WRTSTR <, Reason: >
CALL GET2BY ;GET REASON CODE
FMTERR No reason code,RSKP
CALL RSNTXT ;GET PTR TO REASON TEXT IN T1
CALLRET FMTUDA ;FORMAT THE USER DATA
SUBTTL RSNTXT - Type Out Text for DECnet Reject Reason
;RSNTXT - Type Out Text for DECnet Reject Reason
;
;Call: T1/ The Reason Code
; CALL RSNTXT
; Normal Return
DEFINE RSNMAC(code,text),<
CAIN T1,code
MOVEI T2,[ASCIZ |code: text|]
>
RSNTXT::MOVEI T2,0 ;SO WE KNOW IF NO REASON HAS MATCHED
RSNMAC RSNDBO,Disconnected/Rejected by Object
RSNMAC RSNRES,No Resources
RSNMAC RSNUNN,Unrecognized Node Name
RSNMAC RSNRNS,Remote Node Shut Down
RSNMAC RSNURO,Unrecognized Object
RSNMAC RSNIOF,Invalid Object Name Format
RSNMAC RSNOTB,Object Too Busy
RSNMAC RSNABM,Abort by Management
RSNMAC RSNABO,Abort by Object
RSNMAC RSNINF,Invalid Node Name Format
RSNMAC RSNLNS,Local Node Shut Down
RSNMAC RSNACR,Access Control Rejection
RSNMAC RSNNRO,No Response from Object
RSNMAC RSNNUR,Node Unreachable
RSNMAC RSNNLK,No Link
RSNMAC RSNDSC,Disconnect Complete
RSNMAC RSNIMG,Image Field Too Long
JUMPE T2,RSNT.1 ;JUMP IF NO MATCH FOUND
MOVE T1,T2 ;MOVE TO T1 FOR .TSTRG
CALL .TSTRG## ;GOT A MATCH, TYPE OUT TEXT
RET
RSNT.1: PUSH P,T1 ;NO MATCH, TYPE OUT CODE IN DECIMAL
MOVEI T1,[ASCIZ /Unknown reason code: /]
CALL .TSTRG##
POP P,T1
CALL .TDECD
RET
SUBTTL NSP Message Type Routines -- DC message
RCVDC: ;DC message
CALL DLASLA ;PUT OUT DLA AND SLA
RET ;PROPOGATE ERROR
WRTSTR <, Reason: >
CALL GET2BY ;GET REASON CODE
FMTERR No reason code,RSKP
CALL RSNTXT ;TYPE OUT REASON TEXT
CALL .TCRLF##
RETSKP
SUBTTL NSP Message Type Routines -- NOP message
RCVNOP: ;NOP message
CALL DLASLA ;PUT OUT DLA AND SLA
RET ;PROPOGATE ERROR
CALL ACKSEG ;PUT OUT ACK AND/OR SEGNUM
RET ;PROPOGATE ERROR
CALL .TCRLF##
WRTSTR < Test Data: >
CALLRET FMTSTR ;PUT OUT REST OF MSG AS A STRING
SUBTTL DLASLA - Output DLA and SLA for a Message
DLASLA: WRTSTR <DLA: >
CALL GET2BY ;DLA IS 2 BYTES LONG
FMTERR No dest link address bytes,RSKP
CALL .TOCTW## ;LINK ADDRESSES ARE OCTAL
WRTSTR <, SLA: >
CALL GET2BY ;SLA IS 2 BYTES LONG
FMTERR No source link address bytes,RSKP
CALL .TOCTW## ;LINK ADDRESSES ARE OCTAL
RETSKP ;SUCCESS RETURN
ACKFLD: SAVEAC P1
CALL GET2BY ;ACK & SEG BOTH 2 BYTES LONG
FMTERR No ACK field in ACK message,RSKP
MOVE P1,T1 ;SAVE ACK OR SEGNUM FIELD
CALL ACKPRT ;(P1)PRINT ACK FIELD
;SEE IF THERE IS A PHASE 4 CROSS-CHNL ACK
CALL GET2BY ;ACK & SEG BOTH 2 BYTES LONG
RETSKP ;ACK MESSAGE HAS NO FIELDS AFTER 'ACK'
MOVE P1,T1 ;SAVE ACK OR SEGNUM FIELD
CALL ACKPRT ;(P1)PRINT ACK FIELD
RETSKP ;SUCCESS RETURN
ACKSEG: SAVEAC P1
ACKSG1: CALL GET2BY ;ACK & SEG BOTH 2 BYTES LONG
FMTERR No segment number,RSKP
MOVE P1,T1 ;SAVE ACK OR SEGNUM FIELD
TXNN P1,AKPNT ;IS ACK PRESENT?
JRST ACKSG2 ;NO, THIS IS A SEG NUMBER
CALL ACKPRT ;(P1)PRINT ACK FIELD
JRST ACKSG1 ;TRY NEXT, MIGHT BE PHASE 4 CROSS-CHNL ACK
ACKSG2: TXNN P1,40000 ;ACK DELAY set?
JRST ACKSG3 ; -no
WRTSTR <, ACKDLY: ON >
ACKSG3: WRTSTR <, SEGNUM: >
MOVE T1,P1 ;RECOVER SEGMENT NUMBER
ANDI T1,7777 ;ONLY 12 BITS COUNT, IGNORE QUAL FIELD
CALL .TDECD ;(T1)WRITE SEGMENT NUMBER IN DECIMAL
RETSKP ;SUCCESS RETURN
ACKPRT: LOAD T2,AKQAL,+P1 ;GET QUALIFIER (ACK OR NAK)
MOVEI T1,[ASCIZ /, ACK: /] ;ASSUME ITS AN ACK
CAIN T2,AK$QNK ;IS IT A NAK?
MOVEI T1,[ASCIZ /, NAK: /] ;YES
CAIN T2,AK$CAK ;IS IT A CROSS-SUBCHNL ACK?
MOVEI T1,[ASCIZ /, CCACK: /] ;YES
CAIN T2,AK$CNK ;IS IT A CROSS-SUBCHNL NAK?
MOVEI T1,[ASCIZ /, CCNAK: /] ;YES
CALL .TSTRG##
LOAD T1,AKNUM,+P1 ;GET THE ACKNUM VALUE
CALLRET .TDECD ;TYPE IT OUT IN DECIMAL
SUBTTL Byte Manipulation Routines
;GETnBY - Get next n bytes from the current message block
;
;Set up by REDMSG
;
;Call: SEQPTR/ Byte pointer into SEQBFR
; SEQBFR/ The message all in one sequential lot
; SEQCNT/ Remaining length of message in SEQBFR
; CALL GETnBY
; 'No more' return
; Normal return with value in T1
GET1BY: SOSGE SEQCNT ;ANY MORE TO EAT?
RET ;NO, 'NO MORE' RETURN
ILDB T1,SEQPTR ;LOAD UP THE BYTE
RETSKP ;SUCCESS RETURN
GET2BY: MOVNI T1,2 ;WE'LL NEED TWO BYTES
ADDB T1,SEQCNT ;SUBTRACT 2 FROM COUNT
JUMPL T1,RTN ;'NO MORE' RETURN
ILDB T1,SEQPTR ;GET LOW-ORDER BYTE
ILDB T2,SEQPTR ; THEN HIGH-ORDER BYTE
LSH T2,10 ;SHIFT HIGH-ORDER LEFT 8 BITS
IOR T1,T2 ;MAKE UP 16-BIT VALUE
RETSKP ;SUCCESS RETURN
;GTOnBY - Get indicated n bytes from the current message block
;
;Set up by REDMSG
;
;Call: T1/ Offset to beginning of byte (first byte is offset ONE)
; SEQPTR/ Byte pointer into SEQBFR
; SEQBFR/ The message all in one sequential lot
; SEQCNT/ Remaining length of message in SEQBFR
; CALL GETnBY
; 'Out-of-range' return
; Normal return with value in T1
GTO1BY: CAMLE T1,SEQLEN ;.LEQ. LENGTH OF MESSAGE?
RET ;NO, 'OUT-OF-RANGE' RETURN
ADJBP T1,[POINT 8,SEQBFR] ;YES, MAKE A BYTE PTR TO INDICATED BYTE
LDB T1,T1 ;LOAD UP THE BYTE
RETSKP ;SUCCESS RETURN
GTO2BY: CAML T1,SEQLEN ;.LEQ. LENGTH-1 OF MESSAGE?
RET ;NO, 'OUT-OF-RANGE' RETURN
ADJBP T1,[POINT 8,SEQBFR] ;YES, MAKE A BYTE PTR TO FIRST BYTE
LDB T2,T1 ;LOAD UP LOW-ORDER BYTE
ILDB T1,T1 ;LOAD UP HIGH-ORDER BYTE
LSH T1,10 ;SHIFT LEFT 8 BITS TO MAKE IT HIGH-ORDER
IOR T1,T2 ;MAKE UP 16-BIT VALUE
RETSKP
;RED1BY - Get next byte from the current message block
;
;Called only by REDMSG
;
;Call: MS/ Ptr to current MSD
; MBO/ Offset from monitor address to MSGBLK
; CALL GETnBY
; 'No more' return
; Normal return with value in T1
RED1BY: DO.
LOAD T1,MDBYT,(MS) ;NUMBER OF BYTES LEFT IN THIS MSD
JUMPG T1,ENDLP. ;JUMP IF STILL SOME LEFT
LOAD MS,MDNXT,(MS) ;POINT TO NEXT MSD
JUMPE MS,RTN ;NON-SKIP RET IF EMPTY
SUB MS,MBO ;ADJUST MSD ADDRESS WITH OFFSET
JRST TOP. ;CHECK OUT THIS MSD NOW
ENDDO.
LOAD T2,MHIOL,+MSGHDR ;GET INPUT/OUTPUT/LOCAL INDICATOR
MOVEI T1,MD.PTR(MS) ;ASSUME INPUT
CAIE T2,IOL.IN ;BUT IF OUTPUT OR LOCAL
MOVEI T1,MD.AUX(MS) ; ... USE OUTPUT'S BYTE PTR
MOVE T2,(T1) ;GET BYTE POINTER CALLER WILL USE
TLZN T2,17 ;ERASE MONITOR'S INDEX
IFSKP. ;IF THERE WAS ONE...
LOAD T3,MDALA,(MS) ;GET ALLOCATED ADDRESS OF DATA
SUB T3,MBO ;ADJUST TO MSGBLK
CAIGE T3,MSGBLK+MB.LEN ;IS THE RESULT
CAIG T3,MSGBLK ; INSIDE THE MSG BLK?
MOVEI T3,USERDA ;NO, MUST BE IN USER DATA BLK
ADD T2,T3 ;ADD INDEX INTO Y FIELD OF BYTE PTR
MOVEM T2,(T1) ;RESTORE UPDATED BYTE PTR
ENDIF.
DECR MDBYT,(MS) ;ACCOUNT FOR BYTE WE READ
ILDB T1,(T1) ;GET NEXT BYTE TO RETURN IN T1
RETSKP ;SUCCESS RETURN
SUBTTL MSGLEN - Returns remaining message length
;MSGLEN - Returns remaining message length
;
;Call: MS & MBO set up by REDMSG
; CALL MSGLEN
; Error return
; Normal return with length in T1
MSGLEN: SETZ T1, ;COLLECT TOTAL COUNT HERE
SKIPN T4,MS ;DON'T DISTURB CALLER'S MS
RETSKP ;IF NO MSD, LENGTH IS ZERO
MSGLN1: OPSTR <ADD T1,>,MDBYT,(T4) ;NUMBER OF BYTES LEFT IN THIS MSD
LOAD T4,MDNXT,(T4) ;POINT TO NEXT MSD
JUMPE T4,RSKP ;SUCCESS RETURN WHEN WE GET TO END
SUB T4,MBO ;ADJUST NEW MSD ADDRESS WITH OFFSET
JRST MSGLN1 ;ADD IN THE NEXT MSD
SUBTTL Input/Output Routines
;REDBLK - Read the next data block from trace file into memory
;
;Call: T1/ AOBJN Pointer to block to fill
; CALL REDBLK
; Error Return (eg, EOF)
; Normal Return
REDBLK: SAVEAC P1
MOVE P1,T1 ;SAVE AOBJN PTR IN P1
REDBL1: CALL INBYT ;GET NEXT WORD FROM INPUT FILE
RET ;PROPOGATE ERROR RETURN
MOVEM T1,(P1) ;STORE WORD IN TARGET BLOCK
AOBJN P1,REDBL1 ;LOOP OVER WHOLE BLOCK
RETSKP ;SUCCESS RETURN
;TYPOUT - Called from SCAN
TYPOUT: SKIPE TYPFIL ;IF FLAG SET, WRITE OUTPUT TO FILE
JRST .OTBYT ;YES
OUTCHR T1 ;NO, OUTPUT DIRECTLY TO TTY
RET ;ALWAYS TAKE NON-SKIP RET
;Call with byte to be output in T1
.OTBYT::
.OTBY1:!SOSGE H.FOUT+.BFCTR ;H.FOUT = HEADER FOR FILE OUTPUT
JRST OUTBYN ;NO ROOM, GET A NEW BUFFER
IDPB T1,H.FOUT+.BFPTR ;THE NORMAL OUTPUT DEPOSIT BYTE.
RET ;SUCCESS RETURN
OUTBYN: CALL .OTBUF ;OUTPUT THE BUFFER
RET ;"DON'T CONTINUE" RETURN
JRST .OTBY1 ;GOT A BUFFER, GO COUNT IT DOWN
;CALL CALL .OTBUF
; "DON'T CONTINUE" RETURN
; "OK" RETURN
.OTBUF: OUT F.FOUT,
RETSKP ;OK RETURN: SUCCESS
ERROR OUT,<Error from OUT UUO>
EXIT
;INBYT -- GET NEXT BYTE FROM DATA FILE
;CALL: CALL INBYT
; ERROR RETURN IF END-OF-FILE
; NORMAL RETURN WITH BYTE IN T1
INBYT: SOSGE H.FIN+.BFCTR ;SEE IF BYTE IN BUFFER
JRST INBYT1 ;NO--READ SOME MORE OF FILE
ILDB T1,H.FIN+.BFPTR ;FETCH BYTE
RETSKP ;SUCCESS RETURN
INBYT1: CALL INBUF ;INPUT A BUFFER
RET ;"DON'T CONTINUE" RETURN
JRST INBYT ;"OK" RETURN
;CALL CALL INBUF
; "DON'T CONTINUE" RETURN
; "OK" RETURN
INBUF: IN F.FIN, ;READ A BUFFER
RETSKP ;OK TO PROCEED: SUCCESS
;ERROR, CHECK IT OUT
GETSTS F.FIN, T1
TXNN T1, IO.ERR ;ANY ERRORS?
JRST INBUF1 ;NO, TEST FOR EOF
ERROR INP,<Error in file input>
EXIT
INBUF1: TXNN T1, IO.EOF ;HAVE WE SEEN EOF?
RSKP: AOS (P) ;NO--GET MORE DATA
RTN: RET ;YES--"DON'T CONTINUE" RETURN
TPOPJ1: AOS -1(P)
TPOPJ: POP P,T1
RET
SUBTTL Miscellaneous Routines
;Call: T1/ Circuit ID
; CALL .TCKT
; Normal Return
.TCKT: SAVEAC <P1>
MOVE P1,T1 ;PRESERVE CIRCUIT-ID
LOAD T1,LIDEV,+P1 ;GET THE DEVICE TYPE RIGHT JUSTIFIED
CAILE T1,0 ;IS THE DEVICE TYPE WITHIN RANGE?
CAILE T1,DEVTLN
JRST [MOVE T1,P1 ;NO - JUST OUTPUT IT IN OCTAL
JRST .TOCTW]
MOVE T1,DEVTAB(T1) ;GET THE NAME OF THE DEVICE
CALL .TSIXN## ;TYPE IT OUT
MOVEI T1,"-" ;TYPE THE "-"
CALL .TCHAR
LOAD T1,LIKON,+P1 ;NOW GET THE CONTROLLER (CPU) NUMBER
CALL .TOCTW ;TYPE IT OUT
LOAD T1,LIDEV,+P1 ;GET DEVICE TYPE
CAXN T1,LD.DMR ;A DMR?
RET ;YES, CIRCUIT NAME IS DMR-N ONLY
MOVEI T1,"-" ;TYPE THE "-"
CALL .TCHAR
LOAD T1,LIUNI,+P1 ;AND LAST DO THE UNIT NUMBER
CALL .TOCTW ;TYPE IT AND RETURN
LOAD T1,LIDEV,+P1 ;GET DEVICE TYPE
CAXE T1,LD.CIP ;IS THIS A CI DEVICE?
RET ;NO
MOVEI T1,"." ;YES, TYPE
CALL .TCHAR ; A DOT
LOAD T1,LIDRP,+P1 ;LOAD THE DROP NUMBER (PORT ON THE CI)
CALLRET .TDECW## ;TYPE IT IN DECIMAL AND RETURN TO CALLER
DEVTAB: SIXBIT /TST/ ;TEST BED DRIVER
SIXBIT /DTE/ ;DTE
SIXBIT /KDP/ ;KDP
SIXBIT /DDP/ ;DDP
SIXBIT /CI/ ;CI
IFN FTOPS20,<
SIXBIT /NI/ ;NI
>
IFN FTOPS10,<
SIXBIT /ETH/ ;ETH
>
SIXBIT /DMR/ ;DMR
DEVTLN==.-DEVTAB
SUBTTL Miscellaneous Routines
;CKSNRM - Make full word checksum into 16 bit checksum
;
; Call:
; T1/ Full word checksum
;
; Return:
; RET ;WITH T1 CONTAINING THE 16 BIT CHECKSUM
;
; Uses: T1-T2
CKSNRM: MOVE T2,T1 ;GET A COPY OF THE CHECKSUM
TDZE T2,[EXP ^-177777] ;IF ANY OVERFLOW, CLEAR IT
JRST [LSH T1,-^D16 ;ADD OVERFLOW BACK INTO
ADDB T2,T1 ; THE LOW ORDER BYTES
JRST .-1] ;LOOP UNTIL DONE
RET ;RETURN
.TTIVR: WRTSTR <, Version >
CALL GET1BY
FMTERR No TIVER,RTN
CALL .TDECD
CALL GET1BY
FMTERR No TIVER,RTN
CALL .TDECD
CALL GET1BY
FMTERR No TIVER,RTN
CALLRET .TDECW##
.TBLKS: WRTSTR < Block size: >
CALL GET2BY
FMTERR No BLKSIZE,RTN
CALLRET .TDECD
;Call: T1/ value (node number)
; CALL .TNODE
; Normal Return
.TNODE: PUSH P,T1 ;SAVE WHOLE NODE NUMBER
ASH T1,-12 ;GET AREA NUMBER ONLY
CALL .TDECD ;PRINT IT WITH A DOT FOLLOWING
POP P,T1 ;RECOVER WHOLE NODE NUMBER
ANDI T1,1777 ;GET NODE-WITHIN-AREA NUMBER
CALLRET .TDECW## ;PRINT WITHOUT DOT FOLLOWING
;Call: T1/ value
; CALL .TDECD
; Normal Return
.TDECD: CALL .TDECW## ;TYPE T1 IN DECIMAL
.TDOT: MOVEI T1,"." ;LOAD UP A DECIMAL POINT
CALLRET .TCHAR ;FOLLOWED BY A DECIMAL POINT
IFN FTOPS10,<
.TTADS: ;TYPE OUT DATE/TIME, SHORT FORM
.TTADL: ;TYPE OUT DATE/TIME, LONG FORM
CALLRET .TDTTM## ;CALL SCAN'S TYPOUT ROUTINE
>;END IFN FTOPS10
IFN FTOPS20,< ;ALREADY MSECS ON TOPS20
.TTADL: SKIPA T3,[ -1 ] ;TYPE OUT DATE/TIME, LONG FORM
.TTADS: MOVSI T3,200001 ;TYPE OUT DATE/TIME, SHORT FORM
MOVE T2,T1 ;DATE/TIME IN AC 2
MOVEI T1,1(P) ;POINTER TO STRING SPACE
HRLI T1,440700 ;MAKE IT A 7-BIT POINTER FOR .TSTRG, BELOW
ADJSP P,20 ;MAKE SOME STRING SPACE
PUSH P,T1 ;SAVE PTR TO STRING SPACE
ODTIM ;OUTPUT DATE/TIME JSYS
ERJMP .+1 ;IGNORE ERRORS FOR NOW
SETZ T2, ;MAKE A NULL
IDPB T2,T1 ;STORE AT END OF DATE/TIME STRING FOR ASCIZ
POP P,T1 ;PTR TO START OF STRING SPACE AGAIN
CALL .TSTRG## ;OUTPUT ASCIZ STRING
ADJSP P,-20 ;CLEAR STACK
RET ;ONLY RETURN
>;END IFN FTOPS20
.TJIFY:
IFN FTOPS10,< ;ALREADY MSECS ON TOPS20
IMULI T1,^D1000 ;JIFFIES TO MSECS
IDIVI T1,^D60 ; WITHOUT LOSING PRECISION
>;END IFN FTOPS10
IDIV T1,[^D3600000] ;GET HOURS, WITH MINUTES IN REMAINDER
PUSH P,T2 ;SAVE REST
MOVEI T2," " ;FILL WITH SPACE
CALL .TDEC2## ;TYPE TWO DIGITS
CALL .TCOLN## ;TYPE COLON
POP P,T1 ;RESTORE REST
IDIVI T1,^D60000 ;GET MINS
PUSH P,T2 ;SAVE REST
CALL TDEC2Z ;TYPE TWO DIGITS WITH 0 FILLER
CALL .TCOLN## ;TYPE COLON
POP P,T1 ;RESTORE THE REST
IDIVI T1,^D1000 ;GET SECONDS
PUSH P,T2 ;SAVE REMAINDER
CALL TDEC2Z ;TYPE SECONDS
MOVEI T1,"." ;GET A DOT
CALL .TCHAR## ;TYPE IT
POP P,T1 ;RESTORE MILLISECOND REMAINDER
CAILE T1,^D99 ;SEE IF THREE DIGITS
CALLRET .TDECW## ;YES, JUST TYPE IT AND LEAVE NOW
PUSH P,T1 ;NO, PUT MSECS BACK ON THE STACK
MOVEI T1,"0" ;FILL WITH A ZERO
CALL .TCHAR## ;TYPE
POP P,T1 ;FINISH OFF WITH 2 MORE DIGITS
TDEC2Z: MOVEI T2,"0" ;FILL WITH 0
CALLRET .TDEC2## ;FINISH OFF WITH 2 DECIMAL DIGITS
.TDEC4: PUSH P,T1 ;SAVE NUMBER
CAIG T1,^D999
PUSHJ P,.TSPAC##
MOVE T1,(P)
CAIG T1,^D99
PUSHJ P,.TSPAC##
MOVE T1,(P)
CAIG T1,^D9
PUSHJ P,.TSPAC##
POP P,T1
CALLRE .TDECW##
SUBTTL Extra Routines
IFN FTOPS20,<
.HELPR::RET ;TOPS20 HAS NO HELPER
>;END IFN FTOPS20
IFN FTOPS10,<
G:: PUSH P,.JBOPC ;PICK UP OLD PC (FOR DDT RETURN)
POPJ P, ;RETURN, IGNORING LH, SAVING ALL ACS
>;END IFN FTOPS10
;This should be last
LITRAL::$XLIST ;LIT
LIT
$LIST
SUBTTL End of Program
END DNTATL