Google
 

Trailing-Edge - PDP-10 Archives - BB-F493Z-DD_1986 - 10,7/dmpavl.mac
There are 4 other files named dmpavl.mac in the archive. Click here to see a list.
	TITLE	DMPAVL - Read AVAIL.SYS and dump entries
	SUBTTL	G.M. Uhler/GMU   22-Dec-82



;Copyright (C) 1980, 1981, 1982, 1983 by
;Digital Equipment Corporation, Maynard, Mass.
;
;
;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 which is not supplied by Digital.


	SEARCH	JOBDAT,MACTEN,SCNMAC,UUOSYM
	.REQUEST	REL:SCAN,REL:HELPER
	.DIRECTIVE .XTABM,FLBLST
	SALL


	DAVVER==1
	DAVMIN==0
	DAVEDT==1
	DAVWHO==0

	TWOSEG
	RELOC	400000
	LOC	.JBVER
	VRSN.	(DAV)
	RELOC



;Assembly and loading instructions
;
;	.R MACRO
;	*DMPAVL=DMPAVL
;	*^C
;	.R LINK
;	*DMPAVL,REL:SCAN,REL:HELPER/G
;AC definitions

	F==0			;Flags
	T1==1			;First of four temporaries
	T2==2
	T3==3
	T4==4
	P1==5			;First of four preserved registers
	P2==6
	P3==7
	P4==10
	N==P3			;SCAN convention
	C==P4			;SCAN convention
	P==17			;PDL pointer


;Parameter definitions

	.PDLEN==50		;Size of PDL
	BLKSIZ==200		;Size of a disk block
	DSK==1			;Input channel
	OUT==2			;Output channel
	WRKLEN==1200		;Number of words in working entry 


;Offsets in the header for ERROR.SYS

	.EHTYP==0		;Type, versions, lengths
	  EH.TYP==777B8		;Mask for type field
	  EH.CRS==1B16		;Entry extracted from CRASH.EXE
	  EH.FFM==7B20		;Mask for format version field
	    EL.FVR==0		;Format version of ERROR.SYS
	  EH.HFM==7B23		;Mask for header version field
	    EL.HVR==2		;Header version of ERROR.SYS
	  EH.HLN==7B26		;Mask for header length field
	    EL.HED==5		;Length of standard header
	  EH.BLN==777B35	;Mask for body length
	.EHDTM==1		;Universal date/time of entry
	.EHUPT==2		;Uptime of system when entry created
	.EHASN==3		;CPU serial number of cpu on which error was detected
	.EHSEQ==4		;Sequence number of entry
;Flag definitions

	FL.WTF==1B35		;Write this character to output file
	FL.HDR==1B34		;Header needed on next entry
	FL.ISC==1B33		;Input scan block allocated
	FL.OSC==1B32		;Output scan block allocated
	FL.SEP==1B31		;Separator needed between entries

;Macro definitions

	DEFINE	ERROR	(FIRST,LABEL),<
	  PUSHJ	P,ERRMSG
	  XLIST
	  IFNB <LABEL>, <CAIA [ASCIZ\?'FIRST'\]
			 JRST LABEL
			>
	  IFB  <LABEL>, <CAI  [ASCIZ\?'FIRST'\]>
	  LIST
	>


;Define the codes that we can process.  This should be all of the ones
; that appear in AVAIL.SYS.  If the output tells you about unknown header
; codes, somebody changed DAEMON without changing this table.
;
;The invocation of the PROCESS macro is as follows:
;
;	PROCESS header-code,processing routine,<descriptive-string>

DEFINE	PROCESS (CODE,RTN,NAME),<
	XWD	CODE,RTN
	XLIST
	[ASCIZ\NAME\]
	LIST
>

CODTAB:	PROCESS	.ESMRV,MRV,<Monitor run values: >
	PROCESS	.ESFER,FER,<Front-end reload: >
	PROCESS	.ESCSC,CSC,<Configuration status change: >
	PROCESS	.ESMSE,STC,<Continuable STOPCD: >
	PROCESS	.ESNDL,DLL,<Down-line load: >
	PROCESS	.ESNUD,DLL,<Up-line dump: >
	PROCESS	.ESBAV,BAV,<Beginning of file: >
	PROCESS	.ESEAV,BAV,<End of file: >
CODTBL==.-CODTAB
CODUHC==.-CODTAB
	PROCESS	0,UNK,<Unknown header code: > ;Unknown value
CODUHF==.-CODTAB
	PROCESS 0,UNKHF,<Unknown header format: >
DMPAVL:	JFCL			;No CCL entry
	RESET			;Clear the world
	MOVE	P,[IOWD .PDLEN,PDL] ;Setup push down list
	MOVEI	T1,DMPAVL	;Setup restart
	MOVEM	T1,.JBREN	; address
	MOVE	T1,.JBFF	;Get initial value of .JBFF
	MOVEM	T1,MINCOR	;Save for core downs
	MOVE	T1,[.ISCBL,,.ISCBK] ;Point to .ISCAN block
	PUSHJ	P,.ISCAN##	;Initialize SCAN
DAVSCN:	SETZM	Z.BGN		;First word to zero
	MOVE	T1,[Z.BGN,,Z.BGN+1] ;Setup BLT pointer
	BLT	T1,Z.END	;Clear it all
	SETOM	P.BGN		;Initialize /BEGIN,
	SETOM	P.END		; /END,
	SETOM	P.ENTRY		; and /ENTRY switch values
	SETZM	F		;No flags
	MOVE	T1,MINCOR	;Get min core needed
	MOVEM	T1,.JBFF	;Start of buffers
	CORE	T1,		;Reduce core to a minimum
	  JFCL			;Don't care
	MOVE	T1,[.TSCBL,,.TSCBK] ;Point to .TSCAN block
	PUSHJ	P,.TSCAN##	;Crack the command line
	PUSHJ	P,APLDFL	;Apply defaults
	  JRST	DAVSCN		;Error in command
	PUSHJ	P,OPNFIL	;Open input and output files
	  JRST	DAVSCN		;Failed
	SETCM	T1,P.BGN	;Get value of /BEGIN
	SKIPN	T1		;Value specified?
	SETOM	T1		;No, SETCAM will make this zero
	SETCAM	T1,P.BGN	;Save for checks
	SETCM	T1,P.END	;Get value of /END
	SKIPN	T1		;Value specified?
	MOVX	T1,1B0		;No, SETCAM will make this -1_-1
	SETCAM	T1,P.END	;Save for checks
	MOVE	T1,ILKBLK+.RBSIZ ;Get size of input file
	SUBI	T1,WRKLEN	;Minus size of working entry
	SKIPG	P1,T1		;If only working entry in file,
	JRST	DAVSCN		; quit now
	PUSH	P,.JBFF		;Save pointer to table
	ADDB	T1,.JBFF	;Add size of stuff we want to read
	CORE	T1,		;Get the core
	  ERROR	<Can't get core for AVAIL data>
	MOVE	P2,0(P)		;Pointer to first word of table
	USETI	DSK,<WRKLEN/BLKSIZ>+1 ;Set to read 1st block past working entry
RDLOOP:	INPUT	DSK,IOW		;Read next block
	STATZ	DSK,IO.ERR!IO.EOF ;Errors?
	ERROR	<IOERR or unexpected EOF on input file>
	MOVSI	T1,BUF+1	;Skip resync word in block
	HRRI	T1,(P2)		; and move to next slot in buffer
	BLT	T1,BLKSIZ-2(P2)	;Move it
	ADDI	P2,BLKSIZ-1	;Bump buffer pointer by len of entry
	SUBI	P1,BLKSIZ	;Done another 200 wds
	JUMPG	P1,RDLOOP	;Loop if more
	POP	P,P1		;P1=1st word of AVAIL data
	TXO	F,FL.WTF	;Write data to file now
PRLOOP:	MOVSI	T2,-CODTBL	;Get an AOBJN pointer to the code table
	LDB	T1,[POINTR .EHTYP(P1),EH.TYP] ;Get entry code
	CAIN	T1,.ESEOF	;EOF entry?
	  JRST	ENDIT		;Yes, go proces it
	LDB	T3,[POINTR .EHTYP(P1),EH.HFM] ;Get header format type
	CAILE	T3,EL.HVR	;Is it greater than what we know about?
	  JRST	[MOVEI	T2,CODUHF ;Get offset of unknown header format
		 HRRZ	T4,CODTAB(T2) ; and dispatch address
		 JRST	PRLOO2]	;Go process it
PRLOO1:	HLRZ	T3,CODTAB(T2)	;Get the next entry from the table
	HRRZ	T4,CODTAB(T2)	; and the dispatch address
	CAIN	T3,(T1)		;Is it a match?
	  JRST	PRLOO2		;Yes, go process it
	AOBJN	T2,.+1		;Step again
	AOBJN	T2,PRLOO1	;Loop for more
	MOVEI	T2,CODUHC	;Get offset for unknown code
	HRRZ	T4,CODTAB(T2)	;Get dispatch address for unknown code
PRLOO2:	PUSH	P,T4		;Save dispatch address
	JUMPGE	T2,PRLOO3	;If unknown code or format, always print it
	MOVE	T3,.EHDTM(P1)	;Get date/time of entry
	CAML	T3,P.BGN	;In range?
	 CAMLE	T3,P.END	; ...
	  JRST	[POP	P,(P)	;No, bring stack into phase
		 JRST	PRLOO4]	;  and go try next
	SKIPG	T3,P.ENTRY	;Was /ENTRY specified?
	  JRST	PRLOO3		;No, continue
	CAIE	T3,(T1)		;Match with this entry?
	  JRST	[POP	P,(P)	;No, bring stack into phase
		 JRST	PRLOO4]	;  and go try next
PRLOO3:	PUSHJ	P,PRHDR		;Print the common header code
	LDB	P2,[POINTR .EHTYP(P1),EH.HLN] ;Get length of header
	ADDI	P2,(P1)		;Compute address of start of body
	POP	P,T1		;Get back the dispatch address
	PUSHJ	P,(T1)		;Jump to it
PRLOO4:	LDB	T1,[POINTR .EHTYP(P1),EH.BLN] ;Get body length
	LDB	T2,[POINTR .EHTYP(P1),EH.HLN] ;  and header length
	ADDI	T1,(T2)		;Add together
	ADDI	P1,(T1)		; and step to next entry
	JRST	PRLOOP		;Go do another one
	SUBTTL	Beginning/end of AVAIL file (codes 46 and 47)


; Here to process the beginning and end of the AVAIL file entries.  Such
; entries contain only one word in the body.  This word contains the
; version number of DAEMON that made the entry.

	BAVVER==0		;Word containing the DAEMON version number

;Call with:
;	P1/Address of header
;	P2/Address of body
;Return CPOPJ always

BAV:	MOVEI	T1,[ASCIZ/Logged by DAEMON version /]
	PUSHJ	P,.TSTRG##	;Type string
	MOVE	T1,BAVVER(P2)	;Get daemon version number
	PUSHJ	P,.TVERW##	;Type it
	PJRST	.TCRLF##	;End the line and return
	SUBTTL	Configuration status change (code 15)


;Here to process a configuration status change entry.  All such entries
; contain a function code in the third word of thee body and function
; specific information in the first two words as follows:

	CSCWD0==0		;First function dependent word
	CSCWD1==1		;Second function depended word
	CSCFCN==2		;Function code
	  CS.FCN==77B17		;Mask for function code

;The following table defines the function codes that we know about.  The
; invocation of the PROCESS macro is as follows:
;
;	PROCESS function-code,processing-routine,<function-description>

CSCTAB:	PROCESS	.CSCAT,CSCATT,<Attach, Device: >
	PROCESS	.CSCDT,CSCATT,<Detatch, Device: >
	PROCESS	.CSCXC,CSCXCH,<Exchange, Device 1: >
	PROCESS	.CSCTC,CSCDTC,<Date/time change,
Current date/time: >
	PROCESS	.CSCNF,CSCNOL,<Node off-line, Node: >
	PROCESS	.CSCNO,CSCNOL,<Node on-line, Node: >
	PROCESS	.CSCMO,.TCRLF##,<Memory on-line>
	PROCESS	.CSCMF,.TCRLF##,<Memory off-line>
CSCTBL==.-CSCTAB
	PROCESS	0,CSCUNK,<Unknown function code: >
;Call with:
;	P1/Address of header
;	P2/Address of body
;Return CPOPJ always

CSC:	MOVSI	T2,-CSCTBL	;Get AOBJN pointer to table
CSCLP:	LDB	T1,[POINTR CSCFCN(P2),CS.FCN] ;Get function code
CSCLP1:	HLRZ	T3,CSCTAB(T2)	;Get the next entry from the table
	HRRZ	T4,CSCTAB(T2)	; and the dispatch address
	CAIN	T3,(T1)		;Is it a match?
	  JRST	CSCLP2		;Yes, go process it
	AOBJN	T2,.+1		;Step once
	AOBJN	T2,CSCLP1	;Loop for more
	HRRZ	T4,CSCTAB(T2)	;Get dispatch address for unknown code
CSCLP2:	PUSH	P,T4		;Save dispatch address
	MOVE	T1,CSCTAB+1(T2)	;Get address of descriptor 
	PUSHJ	P,.TSTRG##	;Type descriptor string
	POPJ	P,		;Dispatch to processing routine

;Here to process ATTACH and DETACH functions. CSCWD0 contains the SIXBIT
; unit name.

CSCATT:	MOVE	T1,CSCWD0(P2)	;Get SIXBIT name
	PUSHJ	P,.TSIXN##	;Type it
	PJRST	.TCRLF##	;End the line and return

;Here to process the XCHNGE function.  CSCWD0 and CSCWD1 contain the
; two SIXBIT unit names

CSCXCH:	MOVE	T1,CSCWD0(P2)	;Get first unit name
	PUSHJ	P,.TSIXN##	;Type it
	MOVEI	T1,[ASCIZ/, Device 2: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,CSCWD1(P2)	;Get second unit name
	PUSHJ	P,.TSIXN##	;Type it
	PJRST	.TCRLF##	;End the line and return

;Here to process the date/time change function.  CSCWD0  contains the
; incremental change.  CSCWD1 contains the current date/time.

CSCDTC:	MOVE	T1,CSCWD1(P2)	;Get current date/time
	PUSHJ	P,.TDTTM##	;Type it
	MOVEI	T1,[ASCIZ/, incremental change: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,CSCWD0(P2)	;Get increment
	PUSHJ	P,.TXWDW##	;Type it
	PJRST	.TCRLF##	;End the line and return
;Here to process the node on-line and off-line functions.  CSCWD0 contains
; the node number.

CSCNOL:	MOVE	T1,CSCWD0(P2)	;Get the node number
	PUSHJ	P,.TOCTW##	;Type it
	PJRST	.TCRLF##	;End the line and return

; Here to process an unknown function code.

CSCUNK:	LDB	T1,[POINTR CSCFCN(P2),CS.FCN] ;Get function code back
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/
Body word 0: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,CSCWD0(P2)	;Get first word
	PUSHJ	P,.TXWDW##	;Type it
	MOVEI	T1,[ASCIZ/, Body word 1: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,CSCWD1(P2)	;Get second word
	PUSHJ	P,.TXWDW##	;Type it
	MOVEI	T1,[ASCIZ/, Body word 2: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,CSCFCN(P2)	;Get third word
	PUSHJ	P,.TXWDW##	;Type it
	PJRST	.TCRLF##	;End the line and return
	SUBTTL	Down-line load and up-line dump (codes 202 and 203)


;Here to process the down-line load and up-line dump entries.  Both entries
; have the same format, as follows:

	DLLTND==0		;Pointer to target node
	DLLSND==1		;Pointer to server node
	DLLSLN==2		;Server line number
	DLLFIL==3		;Pointer to filespec
	DLLRTN==4		;Return code
	DLLPRG==5		;Pointer to program filespec

;Call with:
;	P1/Address of header
;	P2/Address of body
;Return CPOPJ always

DLL:	HRRZ	T1,DLLSLN(P2)	;Get pointer to server line number string
	ADDI	T1,(P2)		;Relocate it
	PUSHJ	P,.TSTRG##	;Type it
	MOVEI	T1,[ASCIZ/
File: /]
	PUSHJ	P,.TSTRG##	;Type separator
	HRRZ	T1,DLLFIL(P2)	;Get pointer to filespec
	ADDI	T1,(P2)		;Relocate it
	PUSHJ	P,.TSTRG##	;Type it
	MOVEI	T1,[ASCIZ/
Program: /]
	PUSHJ	P,.TSTRG##	;Type separator
	HRRZ	T1,DLLPRG(P2)	;Get pointer to program name
	ADDI	T1,(P2)		;Relocate it
	PUSHJ	P,.TSTRG##	;Type it
	MOVEI	T1,[ASCIZ/
Server node: /]
	PUSHJ	P,.TSTRG##	;Type separator
	HRRZ	T1,DLLSND(P2)	;Get pointer to server node
	ADDI	T1,(P2)		;Relocate it
	PUSHJ	P,.TSTRG##	;Type it
	MOVEI	T1,[ASCIZ/,  Return code: /]
	PUSHJ	P,.TSTRG##	;Type separator
	HRRZ	T1,DLLRTN(P2)	;Get return code
	PUSHJ	P,.TXWDW##	;Type it
	PJRST	.TCRLF##	;End the line and return
	SUBTTL	Front-end reload (code 31)


;Here to process the front-end reload entry.  The entry has the following
; format:
;
	FERCDN==0		;CPU, DTE number
	  FE.MAS==1B0		;Master DTE
	  FE.CPU==377777B17	;CPU number
	  FE.DTE==777777	;DTE number
	FERRLD==1		;Reload status
	FERFIL==2		;Filespec pointer
	FERSIZ==3		;Size of filespec string in bytes

;Call with:
;	P1/Address of header
;	P2/Address of body
;Return CPOPJ always

FER:	MOVEI	T1,[ASCIZ/CPU: /]
	PUSHJ	P,.TSTRG##	;Type string
	LDB	T1,[POINTR FERCDN(P2),FE.CPU] ;Get CPU number
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/, DTE: /]
	PUSHJ	P,.TSTRG##	;Type separator
	LDB	T1,[POINTR FERCDN(P2),FE.DTE] ;Get DTE number
	PUSHJ	P,.TOCTW##	;Type it
	MOVE	T2,FERCDN(P2)	;Get word containing master DTE bit
	MOVEI	T1,[ASCIZ/ (master)/] ;and the string
	TXNE	T2,FE.MAS	;Is it the master DTE?
	  PUSHJ	P,.TSTRG##	;Yes
	MOVEI	T1,[ASCIZ/, Reload status: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,FERRLD(P2)	;Get reload status
	PUSHJ	P,.TXWDW##	;Type it
	SKIPN	FERSIZ(P2)	;Some bytes in the filespec string?
	  PJRST	.TCRLF##	;No, end the line and return now
	MOVEI	T1,[ASCIZ/
File: /]
	PUSHJ	P,.TSTRG##	;Type separator
	PUSHJ	P,.SAVE2##	;Save P1 and P2
	HRRZ	P1,FERFIL(P2)	;Get pointer to filespec
	ADDI	P1,(P2)		;Relocate it
	HRLI	P1,(POINT 7,0)	;Make it a byte pointer
	MOVE	P2,FERSIZ(P2)	;Get number of bytes in the string
FER1:	ILDB	T1,P1		;Get the next byte
	PUSHJ	P,.TCHAR##	;Type it
	SOJG	P2,FER1		;Loop for more
	PUSHJ	P,.TSTRG##	;Type it
	PJRST	.TCRLF##	;End line and return
	SUBTTL	Monitor run values (code 44)


;Here to process the monitor run values entry.  Such entries have the
; following format:

	MRVPSN==0		;-Len,,Offset from MRVPSN to ASCIZ system name
	MRVVER==1		;Monitor version number
	MRVUPT==2		;Uptime in universal date/time format
	MRVCTM==3		;Monitor crash time (+/- 6 min) in universal date/time fmt
	MRVRTM==4		;Monitor reload time in universal date/time format
	MRVWHY==5		;Why reload code in SIXBIT
	MRVIDT==6		;Sum of all incremental date/time changes since reload
	MRVSNM==7		;First of 5 words of ASCIZ system name

;Call with:
;	P1/Address of header
;	P2/Address of body
;Return CPOPJ always

MRV:	HRRZ	T1,MRVPSN(P2)	;Get pointer to system name
	ADDI	T1,(P2)		;Relocate it
	PUSHJ	P,.TSTRG##	;Type it
	MOVEI	T1,[ASCIZ/,  Monitor version: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,MRVVER(P2)	;Get version number
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/
Crash at: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,MRVCTM(P2)	;Get crash time
	PUSHJ	P,.TDTTM##	;Type it
	MOVEI	T1,[ASCIZ/,  Reload at: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,MRVRTM(P2)	;Get reload date/time
	PUSHJ	P,.TDTTM##	;Type it
	MOVEI	T1,[ASCIZ/,  Reason: /]
	PUSHJ	P,.TSTRG##	;Type separator
	HLRZ	T1,MRVWHY(P2)	;Get left half of reason
	CAIE	T1,'S..'	;Stopcd?
	 SKIPA	T1,MRVWHY(P2)	;No, get the entire thing
	  HRLZ	T1,MRVWHY(P2)	;Yes, keep just stopcd name
	PUSHJ	P,.TSIXN##	;Type it
	PJRST	.TCRLF##	;End the line and return
	SUBTTL	Continuable stopcd (code 2)


;Here to process the Continuable stopcd entry.  Such entries have the
; following format:

	STCFGO==0		;System name in ASCIZ (5 words)
	STCDT0==5		;System build date in ASCIZ (2 words)
	STCSER==7		;CPU serial number
	STCVER==10		;Monitor version
	STCSPC==11		;STOPCD name in SIXBIT (S..xxx)
	STCSJN==12		;Job number at last STOPCD
	STCSTN==13		;TTY number for job
	STCSPN==14		;Program name of job
	STCNAM==15		;Users PPN for job
	STCNJS==16		;Total number of job stopcds
	STCNDS==17		;Total number of debug stopcds

;Call with:
;	P1/Address of header
;	P2/Address of body
;Return CPOPJ always

STC:	MOVEI	T1,STCFGO(P2)	;Get pointer to system name
	PUSHJ	P,.TSTRG##	;Type it
	MOVEI	T1,[ASCIZ/,  Monitor version: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,STCVER(P2)	;Get version number
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/
Reason: /]
	PUSHJ	P,.TSTRG##	;Type separator
	HLLZ	T1,STCSPC(P2)	;Get reason
	PUSHJ	P,.TSIXN##	;Type it
	MOVEI	T1,[ASCIZ/, CPU: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,STCSER(P2)	;Get CPU number
	PUSHJ	P,.TDECW##	;Type it
	MOVEI	T1,[ASCIZ/, Job: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,STCSJN(P2)	;Get job number
	PUSHJ	P,.TDECW##	;Type it
	MOVEI	T1,[ASCIZ/, /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,STCSTN(P2)	;Get TTY number
	PUSHJ	P,.TSIXN##	;Type it
	MOVEI	T1,[ASCIZ/, User: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,STCNAM(P2)	;Get PPN
	PUSHJ	P,.TPPNW##	;Type it
	MOVEI	T1,[ASCIZ/, Program: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,STCSPN(P2)	;Get program name
	PUSHJ	P,.TSIXN##	;Type it
	PJRST	.TCRLF##	;End the line and return
	SUBTTL	Unknown header codes and formats


; Here to process unknown header codes.  Dump them in octal.
;
; Call with:
;	P1/Address of header

UNK:	LDB	T1,[POINTR .EHTYP(P1),EH.TYP] ;Get header code
UNK1:	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/
Header in octal:
/]
	PUSHJ	P,.TSTRG##	;Type separator
	PUSHJ	P,.SAVE2##	;Save P1 and P2
	LDB	P2,[POINTR .EHTYP(P1),EH.HLN] ;Get length of header
	MOVNS	P2		;Make it negative
	HRLZS	P2		;Make it an AOBJN pointer
UNK2:	MOVEI	T1,[ASCIZ/
Wd /]
	PUSHJ	P,.TSTRG##	;Type separator
	HRRZ	T1,P2		;Get word number
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/:	/]
	PUSHJ	P,.TSTRG##
	MOVEI	T1,(P2)		;Get offset into header
	ADDI	T1,(P1)		;Compute address
	MOVE	T1,(T1)		;Get next word of header
	PUSHJ	P,.TXWDW##	;Type it
	AOBJN	P2,UNK2		;Loop for all
	PJRST	.TCRLF##	;End the line and return
; Here to process unknown header formats.  Dump them in octal.
;
; Call with:
;	P1/Address of header

UNKHF:	LDB	T1,[POINTR .EHTYP(P1),EH.HFM] ;Get header format
	PJRST	UNK1		;Join common code above
	SUBTTL	Subroutines


;Routine to print the interesting stuff in the header for this entry.
;Call with:
;	T2/Address of table entry for this code
;	P1/Address of header
;Return CPOPJ always

PRHDR:	PUSH	P,T2		;Save address of table containing string
	MOVEI	T1,[ASCIZ/-----/]
	TXOE	F,FL.SEP	;Need separator between entries?
	PUSHJ	P,.TSTRG##	;Type separator
	MOVEI	T1,[ASCIZ/
[Code: /]
	PUSHJ	P,.TSTRG##	;Type start of message
	LDB	T1,[POINTR .EHTYP(P1),EH.TYP] ;Get code
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/, Hdr ver: /]
	PUSHJ	P,.TSTRG##	;Type separator
	LDB	T1,[POINTR .EHTYP(P1),EH.HFM] ;Get header version number
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/, Hdr len: /]
	PUSHJ	P,.TSTRG##	;Type separator
	LDB	T1,[POINTR .EHTYP(P1),EH.HLN] ;Get header length
	PUSHJ	P,.TDECW##	;Type it
	MOVEI	T1,[ASCIZ/., Body len: /]
	PUSHJ	P,.TSTRG##	;Type separator
	LDB	T1,[POINTR .EHTYP(P1),EH.BLN] ;Get body length
	PUSHJ	P,.TDECW##	;Type it
	MOVEI	T1,[ASCIZ/., Addr: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,P1		;Get address of header
	PUSHJ	P,.TOCTW##	;Type it
	MOVEI	T1,[ASCIZ/]
[Logged at: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,.EHDTM(P1)	;Get date/time of entry
	PUSHJ	P,.TDTTM##	;Type it
	MOVEI	T1,[ASCIZ/, by CPU: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,.EHASN(P1)	;Get CPU serial number
	PUSHJ	P,.TDECW##	;Type it
	LDB	T1,[POINTR .EHTYP(P1),EH.HFM] ;Get header format back
	LDB	T2,[POINTR .EHTYP(P1),EH.HLN] ;  and header length
	CAIL	T1,2		;If version less than 2
	CAIGE	T2,5		;  or length less than 5
	JRST	PRHDR1		;then there is no sequence number
	MOVEI	T1,[ASCIZ/, Hdr seq num: /]
	PUSHJ	P,.TSTRG##	;Type separator
	MOVE	T1,.EHSEQ(P1)	;Get sequence number
	PUSHJ	P,.TDECW##	;Type it
	MOVEI	T1,"."		;Get a dot
	PUSHJ	P,.TCHAR##	;Type it
PRHDR1:	MOVEI	T1,[ASCIZ/]

/]
	PUSHJ	P,.TSTRG##	;Type separator
	POP	P,T1		;Get address of table back
	MOVE	T1,CODTAB+1(T1)	;Get address of descriptor string
	PJRST	.TSTRG##	;Type it and return




ENDIT:	PUSHJ	P,.TCRLF##	;End the line
	RELEASE	OUT,		;Close output
	RELEASE	DSK,		;Close input
	JRST	DAVSCN		;and try next command
;Subroutine to convert the SCAN blocks to OPEN, LOOKUP and
;ENTER blocks and then open the appropriate files.
;Call:
;	PUSHJ	P,OPNFIL
;	  Return here if something failed
;	Return here if all ok

OPNFIL:	MOVEI	T1,ISCBLK	;Point to input scan block
	MOVEI	T2,IOPBLK	;Point to OPEN block
	MOVEI	T3,ILKBLK	;Point to LOOKUP block
	PUSHJ	P,.STOPN##	;Convert SCAN block
	  ERROR	<Input SCAN block conversion failed>,.POPJ##
	MOVX	T1,.IODMP	;Dump mode for input file
	DPB	T1,[POINTR IOPBLK,IO.MOD] ;Store it
	MOVX	T1,.RBSIZ	;Get size of lookup block
	MOVEM	T1,ILKBLK+.RBCNT ;Store it
	OPEN	DSK,IOPBLK	;Open the channel
	  ERROR	<Input device OPEN failed>,.POPJ##
	LOOKUP	DSK,ILKBLK	;Lookup the file
	  ERROR	<Input file LOOKUP failed>,.POPJ##
	MOVEI	T1,OSCBLK	;Point to output scan block
	MOVEI	T2,OOPBLK	;Point to output OPEN block
	MOVEI	T3,OENBLK	;Point to output ENTER block
	PUSHJ	P,.STOPN##	;Convert SCAN block
	  ERROR	<Output SCAN block conversion failed>,.POPJ##
	MOVX	T1,.IOASC	;Use ASCII mode for output file
	DPB	T1,[POINTR OOPBLK,IO.MOD] ;Store it
	MOVSI	T1,OBUF		;Output buffer header
	MOVEM	T1,OOPBLK+.OPBUF ;Store it
	MOVX	T1,.RBSIZ	;Get size of ENTER block
	MOVEM	T1,OENBLK+.RBCNT ;Store it
	OPEN	OUT,OOPBLK	;Open channel
	  ERROR	<Output device OPEN failed>,.POPJ##
	ENTER	OUT,OENBLK	;Enter file
	  ERROR	<Output file ENTER failed>,.POPJ##
	JRST	.POPJ1##	;Give skip return


;Subroutine to print an error message.
;Call:
;	PUSHJ	P,ERRMSG
;	CAI	[ASCIZ\msg to print\]
;	 Return here always

ERRMSG:	HRRZ	T1,@0(P)	;Get message address
	PUSHJ	P,.TSTRG##	;Type it
	PUSHJ	P,.TCRLF##	;Add a CRLF
	JRST	.POPJ1##	;Give skip return
;Subroutine to write one character to the output file or TTY.
;Call with character in T1 and with FL.WTF set to write to the
;output file
;Call:
;	PUSHJ	P,TYPCHR
;	Return here always

TYPCHR:	TXNN	F,FL.WTF	;Write to file?
	JRST	TYPCH1		;No, TTY
	SOSG	OBUF+.BFCTR	;Room for more?
	OUTPUT	OUT,		;No, flush
	IDPB	T1,OBUF+.BFPTR	;Store in buffer
	POPJ	P,		;Return
TYPCH1:	OUTCHR	T1		;Write it to TTY
	POPJ	P,		;Return


;Subroutine to return the address of the input scan block
;Call:
;	PUSHJ	P,ALCINP
;	 Return here always with:
;		T1=Address of scan block
;		T2=Length of scan block

ALCINP:	TXOE	F,FL.ISC	;Already been here once?
	  ERROR	<Multiple input specs illegal>,DAVSCN
	MOVEI	T1,ISCBLK	;Point at scan block
	MOVX	T2,.FXLEN	; and length
	POPJ	P,


;Subroutine to return the address of the output scan block
;Call:
;	PUSHJ	P,ALCOUT
;	 Return here always with:
;		T1=Address of scan block
;		T2=Length of scan block

ALCOUT:	TXOE	F,FL.OSC	;Already been here once?
	  ERROR	<Multiple output specs illegal>,DAVSCN
	MOVEI	T1,OSCBLK	;Point at scan block
	MOVX	T2,.FXLEN	; and length
	POPJ	P,
;Subroutine to check input and output scan blocks and apply any
;defaults that the user did not type.
;Call:
;	PUSHJ	P,APLDFL
;	  Return here if error
;	Return here if ok

APLDFL:	MOVX	T1,FX.NDV	;Get null device bit
	TDNN	T1,OSCBLK+.FXMOD ;User type a device?
	SKIPN	OSCBLK+.FXDEV	;  or nothing at all?
	SKIPA	T2,[SIXBIT/TTY/] ;Default output device is TTY
	JRST	APLDF1		;Use his device
	MOVEM	T2,OSCBLK+.FXDEV ;Store default device in block
	ANDCAM	T1,OSCBLK+.FXMOD ;Clear bit
	ANDCAM	T1,OSCBLK+.FXMOM ;  and mask
APLDF1:	SETCM	T1,OSCBLK+.FXNMM ;Get mask for filename
	JUMPE	T1,APLDF2	;Go if no wildcards
	AOSN	T1		;Error if wildcards
	SKIPE	OSCBLK+.FXNAM	;...
	JRST	APLOER
	MOVE	T1,[SIXBIT/DMPAVL/] ;Default filename is DMPAVL
	MOVEM	T1,OSCBLK+.FXNAM ;Store it
	SETOM	OSCBLK+.FXNMM	;Set full mask
APLDF2:	HRRZ	T1,OSCBLK+.FXEXT ;Get mask for extension
	CAIN	T1,777777	;Full mask?
	JRST	APLDF3		;Yes, use his extension
	SKIPE	OSCBLK+.FXEXT	;Error if wildcards
	JRST	APLOER		;...
	HRLOI	T1,'LST'	;Default extension is LST
	MOVEM	T1,OSCBLK+.FXEXT ;Store it
APLDF3:	MOVEI	T1,OSCBLK	;Point to output scan block
	PUSHJ	P,CHKDIR	;Check for wildcards in directory
APLOER:	  ERROR	<Wildcards illegal in output spec>,.POPJ##
	MOVX	T1,FX.NDV	;Get null device bit
	TDNN	T1,ISCBLK+.FXMOD ;User type a device?
	SKIPN	ISCBLK+.FXDEV	;Or nothing at all?
	SKIPA	T2,[SIXBIT/SYS/] ;Default input device is SYS
	JRST	APLDF4		;Use his
	MOVEM	T2,ISCBLK+.FXDEV ;Store device
	ANDCAM	T1,ISCBLK+.FXMOD ;Clear bit
	ANDCAM	T1,ISCBLK+.FXMOM ;  and mask
APLDF4:	SETCM	T1,ISCBLK+.FXNMM ;Get mask for filename
	JUMPE	T1,APLDF5	;Go if fully specified
	AOSN	T1		;Error if wildcards
	SKIPE	ISCBLK+.FXNAM	;...
	JRST	APLIER		;...
	MOVE	T1,[SIXBIT/AVAIL/] ;Default filename is AVAIL
	MOVEM	T1,ISCBLK+.FXNAM ;Store it
	SETOM	ISCBLK+.FXNMM	;Set full mask
APLDF5:	HRRZ	T1,ISCBLK+.FXEXT ;Get mask for extension
	CAIN	T1,777777	;Full mask?
	JRST	APLDF6		;Yes, use his extension
	SKIPE	ISCBLK+.FXEXT	;Error if wildcards
	JRST	APLIER		;...
	HRLOI	T1,'SYS'	;Default extension is SYS
	MOVEM	T1,ISCBLK+.FXEXT ;Store it
APLDF6:	MOVEI	T1,ISCBLK	;Point to input scan block
	PUSHJ	P,CHKDIR	;Check for wildcards in directory
APLIER:   ERROR	<Wildcards illegal in input spec>,.POPJ##
	JRST	.POPJ1##	;Give skip return
;Subroutine to check the directory specified in a scan block for
;wildcards.
;Call:
;	MOVEI	T1,address of scan block
;	PUSHJ	P,CHKDIR
;	 Return here is wildcard found
;	Return here if no wildcards

CHKDIR:	MOVX	T2,FX.DIR	;Get directory specified bit
	TDNN	T2,.FXMOD(T1)	;[-]??
	JRST	.POPJ1##	;Yes
	SETCM	T2,.FXDIM(T1)	;Get mask for PPN
	JUMPN	T2,.POPJ##	;Error if wildcards
	MOVEI	T1,.FXDIR+2(T1)	;Point to first SFD
	HRLI	T1,-<.FXLND-1>	;Make it an AOBJN pointer
CHKDI1:	SKIPN	(T1)		;End of list?
	JRST	.POPJ1##	;Yes, give skip return
	SETCM	T2,1(T1)	;Get mask for next word of directory
	JUMPN	T2,.POPJ##	;Error if wildcards
	ADDI	T1,1		;Step to next word
	AOBJN	T1,CHKDI1	;Loop for all
	JRST	.POPJ1##	;Give good return
;High segment data areas

	DEFINE	SWTCHS,<
	  XLIST
	  SP	BEGIN,P.BGN,.SWDTP##,,FS.VRQ
	  SP	END,P.END,.SWDTP##,,FS.VRQ
	  SP	ENTRY,P.ENTRY,.SWOCT##,,FS.VRQ
	  LIST
	>

	DOSCAN	(DAVSW)		;Generate scan tables


.ISCBK:	IOWD	1,[SIXBIT/DMPAVL/] ;Name is DMPAVL
	EXP	0
	EXP	TYPCHR		;Character typer address
.ISCBL==.-.ISCBK

.TSCBK:	IOWD	DAVSWL,DAVSWN
	XWD	DAVSWD,DAVSWM
	XWD	0,DAVSWP
	EXP	-1
	EXP	0
	XWD	ALCINP,ALCOUT
.TSCBL==.-.TSCBK


;Low segment data areas

	RELOC

MINCOR:	BLOCK	1		;Initial size of program
PDL:	BLOCK	.PDLEN		;Push down list
IOW:	IOWD	BLKSIZ,BUF	;IOWD for buffer
	EXP	0		;Terminator

Z.BGN==.			;Start of block to zero on startup
ISCBLK:	BLOCK	.FXLEN		;Input SCAN block
OSCBLK:	BLOCK	.FXLEN		;Output SCAN block
IOPBLK:	BLOCK	.OPBUF+1	;Input OPEN block
OOPBLK:	BLOCK	.OPBUF+1	;Output OPEN block
ILKBLK:	BLOCK	.RBSIZ+1	;Input LOOKUP block
OENBLK:	BLOCK	.RBSIZ+1	;Output ENTER block
P.BGN:	BLOCK	1		;Value of /BEGIN switch
P.END:	BLOCK	1		;Value of /END switch
P.ENTRY:BLOCK	1		;Value of /ENTRY switch
TOTAL:	BLOCK	1		;Total number of reloads
PRIME:	BLOCK	1		;Total number during prime-time
OBUF:	BLOCK	.BFCTR+1	;Output buffer header
BUF:	BLOCK	BLKSIZ		;Buffer for input file
Z.END==.-1			;End of area to zero


	END	DMPAVL