Google
 

Trailing-Edge - PDP-10 Archives - isi-saio_19830204 - isi-sa10/syserr.mac
There are 64 other files named syserr.mac in the archive. Click here to see a list.
;<ISI-SA10>SYSERR.MAC.13631	 4-Feb-83 12:11:53	Edit by ISI-SA10
;
;	SAIO Changes Copyright 1982, All Rights Reserved
;	University of Southern California
;
;<ISI.SUBSYS.SYSERR>SYSERR.MAC.13630	 3-Dec-82 09:19:14	Edit by SMITH
;#12 Release 5 support:  Allow ERROR.SYS to be in <SYSTEM-ERROR>
	TITLE	SYSERR -- SYSTEM ERROR FILE PROCESSOR -- MAINLINE CODE
SUBTTL	VERSION 15A(1363)	K. COYE/ RLD/ PJB/ ES/ TJW/ LWE/ SRL/ GSK





;COPYRIGHT (C) 1972,1975,1977,1978,1979,1980 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
;TRANSFERED.
;
;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	SYRUNV
	SEARCH	SYRLOW			;LOW SEG DEFINITIONS

	.REQUIRE SYRLIB


;DUMALL -- DUMMY MACRO LEVEL 3
;SUBMACRO DUMXXX
;ARGS
;NONE USED TO HOUSE LEVEL 2 SUBMACRO DUMXXX
;THOSE DEFINED HERE ARE THOSE FULLY PROCESSED BY
;THIS SEGMENT. PART OF EDIT #120.





;EXTERNALS DEFINED HERE ARE IN SYRLIB.MAC, THE LIBRARY
;OF COMMON ROUTINES FOR ALL PARTS OF THE SYSERR PACKAGE.

	EXTERNAL HEADRD,ABORT,CHRCHK,DATECK,FILERR,TOOBIG,MBCHAR
	EXTERNAL CNISUM,BADNAM,MASSVM,DEVCHK,ERRINT,SKIPIT,IDCHK
	EXTERNAL STRCHK,DETCHK,DMPENT,HDRLST,PAGXCD,DVCHAR,TMCHAR
	EXTERNAL SAYDAY,GETNBS,.OCTLE,.DECML,.ASCIE,.SIXBT,JSYSER
	EXTERNAL .HAFWD,.SPECL,.HTIME,.PPNWW,.ODECW,.UDATE,.TASCI,.PPNWT
	EXTERNAL .TDIRW,R5VSIX,MONVER,BADADD,TAB031,TYPAST,BLDPTR
	EXTERNAL ACLST,SAVE4P,RET4P,HWDUMP,TYPBCD,LSTEB,JFLOOP,CNIDCD
	EXTERNAL XORTAB,BITLST,.DVTAB,.MXBLK,.TRBLK,.SUBLK,.SECBK
	EXTERNAL WDCNT,COMPAR,SKPRTN,TYPNBS,TITLST,SKIPWD,ADVBFF
	EXTERNAL FIXBUF,STBUFF,INPWD,GOSUM,GETWD,FFPRNT,SLPRNT,CLPRNT,TAPPOS
	EXTERNAL TBPRNT,CHROUT,TTYSIX,MDECHR,FIXNAM,ONLLOG,DUMPOS,DSKPOS


;INTERNALS DEFINED HERE ARE FOR USE BY SYRLIB
	INTERNAL KONMSK,KLEDMP,MINERB,DEVDSP,MASLTH,ALLTBL
	INTERNAL NAMLTH,TYPMES,LINE,ALLLTH,NAMTBL,DUMDAY
	INTERNAL DEVTYP,ERINDX,PCSTBL,PDLPNT,BITCHK,ERRLTH
	INTERNAL MASNAM,ERRTBL,SUMUPD,MDE000
	INTERNAL FE$NAM,BLTTAB


	.JBVER==137
	LOC	.JBVER

	BYTE	(3)VWHO(9)VSYSER(6)VMINOR(18)VEDIT
	IFN	EXPPRT,<
	LALL
	>
	IFE	EXPPRT,<
	SALL
	>


	TWOSEG
LOWBEG:					;LOW SEGMENT WILL RESIDE HERE
	RELOC	400000

;SOME DUMMY VALUES ARE DEFINED HERE TO MAKE THE PACKAGE
;COMPILE CORRECTLY.  THEY SHOULD NEVER BY CALLED
;PART OF EDIT 301.
MDE000:
BLTTAB:
FE$NAM:
SUBTAB:
BITCHK:
DEVTYP:
ERINDX:
KLEDMP:
LINE:
TYPMES:	BLOCK 1				;TO GIVE A LITTLE SPACE


;START -- MAINLINE PROGRAM CODE BEGINS HERE
;SETS UP DEFAULT FILE ARGUEMENTS
;INITIALIZES PUSHDOWN LIST
;CLEARS WORKING STORAGE LOCATIONS

START:	JFCL				;EDIT 106
	RESET

	SETZ	F,			;CLEAR STATUS AC
	TLO	F,F.LSUM		;INITIALIZE TO GIVE SUMMARY BY DEFAULT
	MOVE	P,PDLPNT		;SETUP PUSHDOWN POINTER

	MOVEI	T1,TENEND
	MOVE	T2,T1			;SAVE WHAT WE ASKED FOR
	CORE	T1,200000
	 HALT				;CAN'T GET THAT MUCH??
	HRRM	T2,.JBFF##		;SETUP NEW JOB DATA AREA VALUE
;START EDIT  [1217] - DO AWAY WITH 'FULSEG'
	MOVE	T1,[XWD INPBLK,INPBLK+1] ;SETUP
	SETZM	INPBLK
	MOVE	T2,.JBREL		;CLEAR THE DYNAMIC TABLE AREA TOO  [1234]
	BLT	T1,0(T2)		;CLEAR STORAGE
	MOVE	T1,[XWD 112,11]		;SETUP
	GETTAB	T1,			;CHECK WHICH MONITOR WE ARE UNDER
	 JRST	.+3			;TOPS-10 PRE 507
	CAIN	T1,40000		;TOPS-20?
	 SETOM	TOPMON			;YES! - (-1 MEANS UNDER TOPS-20)
;END EDIT  [1217]
;removed with [1305]
;	MOVEM	11,OVRBLK	;EDIT #120-SAVE IN SIXBIT THE DEVICE
;				;WE CAME FROM FOR FUTURE GETSEGS.
;	MOVEM	7,OVRBLK+4	;[147]SAVE P,PN TOO
;	SKIPN	11		;BUT IF 0 WAS STORED FOR TOPS20
;	 PUSHJ	P,DEVFIX	;GO AND SUBSTITUTE A UNIT
;	MOVEM	7,OVRBLK+4	;[147] SAVE P,PN TOO
;END OF REMOVED CODE [1305]

	SKIPE	TOPMON			;IF TOPS-20,
	 PUSHJ	P,DEVFIX		;GO AND SUBSTITUTE A UNIT
	SKIPN	TOPMON			;IF TOPS-10
	pushj	p,iniovr		;init ovrblk
	MOVE	T1,[XWD FLGST,FLGST+1]	;SETUP TO INITIALIZE SWITCH STORAGE LOCATIONS TO -1
	SETOM	FLGST
	BLT	T1,FLGND		;ALL NOW = -1

	MOVE	T1,[XWD	INPSPC,INPBLK]	;SETUP TO XFER DEFAULT FILE ARGS
	BLT	T1,BLTEND		; DO IT!
	SKIPN	TOPMON			;TOPS-20?
	 JRST	SYSINF			;NO-DON'T CHANGE DEFAULTS
	MOVE	T1,T20DEV		;GET NEW DEFAULT
	MOVEM	T1,INPBLK+1		;AND STORE IT



;FALL INTO SYSINF ROUTINE

;SYSINF -- ROUTINE TO GET SYSTEM INFORMATION
;DATE,DAYTIME
SYSINF:	SKIPE	TOPMON			;TOPS-20?
	 JRST	T20INF			;YES
	MOVE	T1,[XWD 53,11]		;GET RTODAYS DATE
	GETTAB	T1,			;IN UNIV FORMAT
	FATAL	<CAN'T GET TODAY'S DATE??>
	HLRZ	T1,T1			;DATE PORTION INTO RH
	MOVEM	T1,.DATE		;STORE IT AWAY
	MSTIME	T1,			;GET TIME OF DAY IN MS
	DIVI	T1,^D1000		;CONVERT TO SECONDS
	MOVEM	T1,.TIME		;SAVE IT
	JRST	INICHR			;



;INICHR -- ROUTINE TO INITIALIZE THE ENTRY CHARACTERISTICS TABLE

INICHR:	MOVE	T1,[XWD ENTCHR,ENTCHR+1]
	HRLZI	T2,E.LSUM		;DEFAULT TO LIST SUMMARY ONLY
	MOVEM	T2,ENTCHR
	BLT	T1,CHREND		;E.LSUM BIT SET THROUGHOUT TABLE
	PUSHJ	P,DIALOG		;GO TALK TO USER
	PUSHJ	P,SETDAT		;GO SEE IF USER TYPED /BEFORE OR /AFTER

;FALL INTO FILACT ROUTINE
	JRST	FILACT

;HERE SUBSTITUTE A DEV NAME FOR TOPS20 TO FIND NEXT HIGH SEG

DEVFIX:	MOVE	T1,[SIXBIT/SYS/]

	MOVEM	T1,OVRBLK		;A LOCATION FOR OVERLAY SPECS.
	SETZM	OVRBLK+4		;NO SAVED P,PN
	POPJ	P,0			;GO BACK

T20INF:	GTAD				;GET TOPS20 INTERNAL DATE/TIME AT GMT
	MOVE	T2,T1
	HLRZ	T1,T1			;SAVE DATE ONLY
	MOVEM	T1,.DATE		;STORE IT
	HRRZ	T1,T2			;NOW SECONDS SINCE MIDNIGHT
	MOVEM	T1,.TIME		;SAVE IT TOO
	JRST	INICHR			;NOW CONTINUE

;subroutine to init ovrblk with dev, ppn,and any sfd's
;SYSERR was called from.
;ADDED WITH [1305]

iniovr:	MOVEM	11,OVRBLK		;SETUP DEFAULTS USING
	MOVEM	7,OVRBLK+4		;THE OLD STYLE
;NOW TRY THE NEWER METHOD, USING GETTAB'S.
;IF ANY GETTABS FAIL, THIS IS EITHER TOPS-20 OR OLDER TOPS-10.

	MOVE	T1,[-1,,.GTRDV]		;DEVICE FIRST
	GETTAB	T1,
	 POPJ	P,0
	MOVEM	T1,OVRBLK
	MOVE	T1,[-1,,.GTRDI]		;NOW PPN
	GETTAB	T1,
	 POPJ	P,0
	MOVEM	T1,OVRBLK+4		;ASSUME NO SFD'S THEREFORE NO EXTENDED BLOCK
	MOVE	T2,[-1,,.GTRS0]		;1ST SFD
	GETTAB	T2,
	 POPJ	P,0
	SKIPN	T2			;IF ZERO, NO SFD'S SO
	 POPJ	P,0			;LEAVE NOW
	MOVE	T3,[XWD 0,OVREXT]	;USE EXTENDED BLOCK
	MOVEM	T3,OVRBLK+4
	MOVEM	T1,OVREXT+2
	MOVEM	T2,OVREXT+3
	MOVE	T1,[-1,,.GTRS1]
	GETTAB	T1,
	 POPJ	P,0
	MOVEM	T1,OVREXT+4
	MOVE	T1,[-1,,.GTRS2]
	GETTAB	T1,
	 POPJ	P,0
	MOVEM	T1,OVREXT+5
	MOVE	T1,[-1,,.GTRS3]
	GETTAB	T1,
	 POPJ	P,0
	MOVEM	T1,OVREXT+6
	MOVE	T1,[-1,,.GTRS4]
	GETTAB	T1,
	 POPJ	P,0
	MOVEM	T1,OVREXT+7
	POPJ	P,0			;THAT'S ALL THAT'S POSSIBLE


;END [1305]
;FILACT -- ROUTINE TO PERFORM PRELIMINARY FILE ACTIVITY
;DOES OPEN FOR INPUT, OUTPUT DEV
;DOES LOOKUP FOR INPUT FILE
;DOES ENTER FOR OUTPUT FILE
;DEFAULTS
;DEVICE-DSK
;FILE-INPUT-ERROR.SYS
;    -OUTPUT-ERROR.LST
;PPN-USERS OWN

FILACT:	TRNE	F,F.NOW			;IF ON-LINE LOGGING GO DO SETUPS
	 JRST	ONLLOG			;[713-TJW] WAIT FOR ERRORS, NOTHING OPENED.
	OPEN	INPCHN,INPBLK		;OPEN INPUT DEV SPECIFIED IN DIALOG
	JRST	[ WARN	<CAN'T OPEN INPUT DEVICE>
	JRST	START ]

	OPEN	OUTCHN,OUTBLK		;OPEN OUTPUT DEV SPECIFIED IN DIALOG
	JRST	[ WARN	<CAN'T OPEN OUTPUT DEVICE>
	JRST	START ]


	MOVEI	T1,INPCHN		;SETUP FOR DEVCHR CALL
	DEVCHR	T1,
	TLNN	T1,DV.DSK		;IS IT A DISK
	JRST	SHRTLK			;NO DO SHORT LOOKUP
LONGLK:	LOOKUP	INPCHN,INPFIL		;LOOK FOR ERROR FILE (DEFAULT IS ERROR.SYS)
	JRST	[ WARN	<LOOKUP ERROR ON INPUT FILE>
	JRST	START ]
	TLO	F,F.DISK		;REMEMBER IT WAS A DISK
	MOVE	T1,I.EXT		;(107) GET CURRENT EXT.
	MOVEM	T1,CUREXT		;AND SAVE IT
	MOVE	T1,INPFIL+.RBTIM	;GET CREATION TIME/DATE
	MOVEM	T1,FILDAT		;SAVE IT
	JRST	DOENTR			;NOW GO DO ENTER

SHRTLK:	LOOKUP	INPCHN,INPFIL+2		;FUDGE SHORT LOOKUP
					;NOTE THAT PPN WAS PUT IN .RBSIZ
					;TO ALLOW THIS
	JRST	[ WARN	<LOOKUP ERROR ON INPUT FILE>
	JRST	START ]
	SETZ	T1,
	LDB	T1,[POINT 12,INPFIL+4,35]	;GET LOW DATE
	LDB	T2,[POINT 3,INPFIL+3,20]	;GET HIGH DATE.
	DPB	T2,[POINT 3,T1,23]	;MERGE AND THEN
	HRLZ	T1,T1			;MOVE IT TO LH OF T1.
	LDB	T2,[ POINT 11,INPFIL+4,23]	; GET TIME IN MIN.
	MUL	T2,[^D60*^D1000]	;CONVERT TO MSEC.
	HRR	T1,T2			;PUT IT IN RH OF T1.
	MOVEM 	T1,FILDAT		;PUT IT AWAY SO AS TO SATISFY
					;DOENTR: !!

DOENTR:	ENTER	OUTCHN,OUTFIL		;GET READY FOR OUTPUT LISTING
	JRST	[ WARN	<ENTER ERROR ON OUTPUT FILE>
	JRST	START ]
;NOW CLEAR THE LOGICAL NAME DEFINITION FOR TOPS20
	TRNE	F,F.REM			;/REMOTE?[417]
	 PUSHJ	P,REMENT		;INIT FIRST BLOCK
	SKIPN	TOPMON			;IF NOT TOPS20 RUNNING
	 JRST 	HEADRD			;LEAVE NOW
	MOVEI	T2,[ASCIZ/QAP/]		;PNTR TO NAME
	HRLI	T2,-1
	SETZB	T1,T3			;CODE TO REMOVE ONE LOG. NAME FROM JOB
					;WITH NO NEW DEFINITION
	CRLNM				;REMOVE THE NAME
	 WARN	<CANNOT CLEAR LOGICAL NAME FOR 'SYSTEM'??>
	JRST	HEADRD			;NOW DO SOME PROCESSING


;ADDED WITH [417] TO WRITE FIRST WORD
REMENT:	OUT	OUTCHN,			;DUMMY TO SET BUFFERS
	HRLZI	T1,<ER.OFF>B26		;OFFSET CODE TO LEFT HALF
	HRRI	T1,1			;START AT NEXT WORD
	IDPB	T1,OBUFF+1		;PUT FIRST WORD INTO BUFFER
	POPJ	P,0			;RETURN
;DIALOG	-- SUBROUTINE TO PROVIDE FOR DIALOG WITH USER
;TO OBTAIN THE FOLLOWING INFO:
;INPUT DEV,FILENAME,EXT,PPN
;OUTPUT DEV,FILENAME,EXT,PPN
;SELECTIVE LISTING CONTROL SWITCHES
;THE SCAN.MAC ROUTINES ARE USED TO DO THE ACTUAL STRING
;SCANNING AND WILL LEAVE INFO IN THE INPUT SPECIFICATIONS
;AND OUTPUT SPECIFICATIONS BLOCK OF THIS PROGRAM
;CHANGED WITH EDIT 225

DIALOG:	TLO	F,F.TTYO		;SAY ALL OUTPUT TO TTY TILL FURTHER NOTICE
	MOVEI	T1,CHROUT		;INIT TYPEOUT ROUTINE
	PUSHJ	P,.TYOCH##
	SKIPE	ONEPAS			;[225]BEEN HERE ONCE?
	 JRST	STATBK			;[225]YUP  [730]
	SETOM	ONEPAS			;DONT COME BACK
	TYPEIT	<
FOR HELP, TYPE "/HELP">
	MOVE	T1,[XWD IARGLN,IARGST]	;SETUP POINTER OF LENGTH,,ADDRESS
					;POINTING TO ARG BLOCK FOR .ISCAN
	PUSHJ	P,.ISCAN		;INITIALIZE SCAN FOR INFO PICKUP

;START EDIT [730]
;SCAN COMMAND STRING & CHECK FOR /KLSTAT SWITCH

STATBK:	PUSHJ	P,.TCRLF		;CR
	MOVE	T1,[XWD TARGLN,TARGST]	;SETUP POINTER SAME AS ABOVE FOR .TSCAN
	PUSHJ	P,.TSCAN		;GO DO THE ACTUAL STRING SCAN
					; FOR CUSP TYPE COMMAND STRING
	SKIPE	TOPMON			;TOPS-20 RUNNING?
	 JRST	STATBL			;YES! - SKIP TOPS-10 TEST
	SETO	T1,
	CAMN	T1,KLSTAT		;TYPED /KLSTAT ?
	 JRST	SETINB			;NO! - OK
	WARN	<CAN NOT USE  KLSTAT  UNDER TOPS-10>
	JRST	START			;START OVER

STATBL:	MOVE	T1,KLSTAT		;GET SWITCH VALUE
	CAMN	T1,[-1]			;TYPED /KLSTAT ?
	 JRST	SETINP			;NO! - EXECUTE COMMAND
	CAME	T1,[SIXBIT /ON/] ;TURN IT ON ?
	 JRST	STATOF			;NO! - TEST FOR OFF
	MOVEI	T1,.SFSTS		;SET SMON FUNCTION
	SETO	T2,			;ENABLE!
	SMON				;DO IT
	ERCAL	JSYSER			;ERROR ?    [737]
	JRST	START			;GET ANOTHER COMMAND LINE

STATOF:	CAME	T1,[SIXBIT /OFF/] ;TURN IT OFF ?
	 JRST	STATBD			;NO! - BAD ARGUMENT
	MOVEI	T1,.SFSTS		;SET SMON FUNCTION
	SETZ	T2,			;DISABLE!
	SMON				;DO IT
	ERCAL	JSYSER			;ERROR ?    [737]
	JRST	START			;GET ANOTHER COMMAND LINE

STATBD:	WARN	<ILLEGAL ARGUMENT TO KLSTAT SWITCH>
	JRST	START			;START OVER

;END EDIT [730]

;LETS UPDATE THE DEFAULT INFO PLACED IN LOOKUP
;AND INIT BLOCKS EARLIER WITH THE BLT

SETINP:	MOVEI	T2,[ASCIZ/QAP/]		;PNTR TO NAME
	MOVEI	T3,[ASCIZ/PS:<SYSTEM>,PS:<SYSTEM-ERROR>/] ;#12 PNTR TO DEFINITION
	MOVEI	T1,4			;CODE TO CREATE A LOGICAL NAME FOR JOB
	HRLI	T2,-1
	HRLI	T3,-1
	CRLNM				;MAKE ASSIGNMENT
	FATAL	<CANNOT CREATE TOPS-20 LOGICAL NAME FOR 'SYSTEM'??>
SETINB:	SKIPE	T1,I.EXT+2		;NONZERO=GO CHECK FOR DEVICE
	 PUSHJ	P,SETFIX		;GO DIDDLE
	SKIPE	T1,I.DEV		;PICKUP INPUT DEVICE, SKIP IF ZERO
	MOVEM	T1,INPBLK+1
	JUMPN	T1,SETIN1
	MOVE	T1,IDVFLT
	SKIPE	TOPMON			;TOPS20 RUNNING?
	 MOVE	T1,[SIXBIT/QAP/]	;CHANGE THE DEFAULT INPUT DEVICE
	MOVEM	T1,I.DEV
SETIN1:	SKIPE	T1,I.NAM		;FILENAME LIKEWISE
	MOVEM	T1,INPFIL+.RBNAM
	JUMPN	T1,SETIN2
	MOVE	T1,IFLFLT
	MOVEM	T1,I.NAM
SETIN2:	SKIPN	T1,I.EXT		;EXTENSION
	JRST	SETIN3			;NO EXTENSION WAS TYPED
	HLLZM	T1,INPFIL+.RBEXT	;STORE EXTENSION
	JRST	GETIPP
SETIN3:	MOVE	T1,IEXFLT
	MOVEM	T1,I.EXT
GETIPP:	SKIPE	T1,I.DIR		;PPN FOR INPUT
	MOVEM	T1,INPFIL+.RBPPN
	MOVEM	T1,INPFIL+.RBSIZ	;DUMMY TO ALLOW SHORT LOOKUP
					;AT INPFIL+2


;NOW DO SAME FOR OUTPUT SPECIFICATIONS

SETOUT:	SKIPE	T1,O.DEV		;PICKUP OUTPUT DEVICE, SKIP IF ZERO
	MOVEM	T1,OUTBLK+1
	CAMN	T1,[SIXBIT/TTY/]	;[1221]OUTPUT TO TTY?
	TRO	F,F.TTY			;[1221]YES. REMEMBER THAT.
	JUMPN	T1,SETOU1
	MOVE	T1,ODVFLT
	MOVEM	T1,O.DEV
SETOU1:	SKIPE	T1,O.NAM		;FILENAME LIKEWISE
	MOVEM	T1,OUTFIL
	JUMPN	T1,SETOU2
	MOVE	T1,OFLFLT
	MOVEM	T1,O.NAM
SETOU2:	SKIPN	T1,O.EXT		;EXTENSION
	JRST	SETOU3			;NO EXTENSION WAS TYPED
	HLLZM	T1,OUTFIL+1		;STORE EXTENSION
	JRST	GETOPP
SETOU3:	MOVE	T1,OEXFLT
	MOVEM	T1,O.EXT
GETOPP:	SKIPE	T1,O.DIR		;PPN FOR OUTPUT
	MOVEM	T1,OUTFIL+3
	MOVE	T1,[-1]			;INITIAL VALUE OF DEV
	CAME	T1,DEV			;DD USER SPECIFY /DEV
	TLO	F,F.DEV			;YES LITE THE BIT
	CAME	T1,NDEV			;[325] "/NDEV:"?
	TRO	F,F.NDEV		;YUP
	CAME	T1,ENTRY		;[731]/ENTRY?
	 TRO	F,F.ENT			;YES
	CAME	T1,OCTAL		;[1146]/OCTAL
	 TRO	F,F.OCT			;[1146]YUP
	CAME	T1,REMOTE		;[417]/REMOTE?
	 PUSHJ	P,REMFIX		;YUP
	CAME	T1,ID			;DID USER SAY /ID:?
	TLO	F,F.ID			;YUP.
	CAME	T1,STR			;/STR?
	 TLO	F,F.STR
	CAME	T1,DETAIL
	 TLO	F,F.DET
	CAMN	T1,BRIEF		;/BRIEF ?   [724]
	 JRST	SWNOW			;NO! - SKIP SET-UP
	TRO	F,F.BRF
	MOVEI	T2,OUTSIZ		;SETUP BUFFER SIZE
	MOVEM	T2,OUTCNT
	MOVE	T2,[POINT 7,OUTBUF] ;SETUP BUFFER POINTER
	MOVEM	T2,OUTBYT
	MOVEI	T2,BRIEF		;SETUP PAGE WIDTH
	MOVEM	T2,CHRCNT
SWNOW:	CAME	T1,NOW
	 TRO	F,F.NOW
	CAME	T1,RETRY		;EDIT 126
	 TLO	F,F.TRY			;USER SAID /RETRY:
	CAME	T1,SEQ			;/SEQ:?
	 TRO	F,F.SEQ			;YES
	SETZM	SEQIND			;SWITCHES HAVE BEEN STORED, CURRENT OFFSET IS
					;IS SET TO ZERO NOW
	skipl	all			;[1264] /all ?
	pjrst	setswr			;[1264] yes, zero swe,sre
	MOVEI	T1,SREDEF		;GET DEFAULT VALUE OF SRE
	MOVEI	T2,SWEDEF		;AND SWE IN CASE USER DIDNT SPECIFY.
	SKIPGE	SRE			;ALREADY SETUP?
	MOVEM	T1,SRE			;NO USE DEFAULT
	SKIPGE	SWE			;WHAT ABOUT SWE?
	MOVEM	T2,SWE			;NO GET DEFAULT.
	POPJ	P,			;RETURN

setswr:	setzm	sre			;[1264] make sre 0 for /all
	setzm	swe			;[1264] make swe 0 for /all
	popj	p,			;[1264] return


;[417]
REMFIX:	PUSH	P,T1			;SAVE T1
	TRO	F,F.REM			;SET THE FLAG IN F
	MOVE	T1,[SIXBIT/DAT/]	;NEW FILE XT
	MOVEM	T1,OUTFIL+1
	MOVEI	T1,13			;MODE 13-IMAGE BINARY
	MOVEM	T1,OUTBLK		;CHANGE FOR OPEN UUO
	POP	P,T1			;RESTORE T1
	POPJ	P,0			;AND RETURN
SETFIX:	MOVE	T1,I.EXT+1		;GET WHAT SCAN DID
	TLNN	T1,400000		;ON=NO DEV SPEC'D
	 POPJ	P,0			;SOMETHING THERE ALREADY
	SKIPE	I.DIR			;[316]P,PN CALLED OUT?
	 MOVSI	T1,'DSK'		;YES,CHANGE DEF. DEVICE
	SKIPN	I.DIR			;END [316]
	MOVE	T1,[SIXBIT/SYS/]
	SKIPE	TOPMON			;TOPS20 RUNNING?
	 MOVE	T1,T20DEV		;YES,CHANGE DEFAULT INPUT DEVICE
	MOVEM	T1,I.DEV		;FIX IT
	POPJ	P,0
;HERE IS THE DUMMY PROCSB FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERB.HGH

PROCSB:	MOVE	T1,[SIXBIT/SYSERB/]
	MOVEM	T1,OVRBLK+1		;INTO THE SPEC AREA
	SETZ	15,
	MOVEM	17,SAVEAC+17
	MOVEI	17,SAVEAC
	BLT	17,SAVEAC+16		;TUCK AWAY OUR AC'S
	JRST	OVRLAY			;NOW PLEASE OVERLAY US WITH PROCSB


;HERE IS THE DUMMY PROCSC FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERC.HGH

PROCSC:	MOVE	T1,[SIXBIT/SYSERC/]
	MOVEM	T1,OVRBLK+1		;INTO THE SPEC AREA
	SETZ	15,
	MOVEM	17,SAVEAC+17
	MOVEI	17,SAVEAC
	BLT	17,SAVEAC+16		;TUCK AWAY OUR AC'S
	JRST	OVRLAY			;NOW PLEASE OVERLAY US WITH PROCSC
;HERE IS THE DUMMY PROCSD FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERD.HGH

PROCSD:	MOVE	T1,[SIXBIT/SYSERD/]
	MOVEM	T1,OVRBLK+1		;INTO THE SPEC AREA
	SETZ	15,
	MOVEM	17,SAVEAC+17
	MOVEI	17,SAVEAC
	BLT	17,SAVEAC+16		;TUCK AWAY OUR AC'S
	JRST	OVRLAY			;NOW PLEASE OVERLAY US WITH PROCSC

;HERE IS THE DUMMY PROCSA FOR THIS HIGH SEG
;IT SAVES THE AC'S AND THEN CALLS OVRLAY FOR REPLACEMENT
;WITH SYSERA.HGH

PROCSA:	MOVE	T1,[SIXBIT/SYSERA/]
	MOVEM	T1,OVRBLK+1		;INTO THE SPEC AREA
	SETZ	15,
	MOVEM	17,SAVEAC+17
	MOVEI	17,SAVEAC
	BLT	17,SAVEAC+16		;TUCK AWAY OUR AC'S
	JRST	OVRLAY			;NOW PLEASE OVERLAY US WITH PROCSA

PROCSN:	MOVE	T1,[SIXBIT/SYSERN/]
	MOVEM	T1,OVRBLK+1		;INTO THE SPEC AREA
	SETZ	15,
	MOVEM	17,SAVEAC+17
	MOVEI	17,SAVEAC
	BLT	17,SAVEAC+16		;TUCK AWAY OUR AC'S
	JRST	OVRLAY			;NOW PLEASE OVERLAY US WITH PROCSA


;;;;REMOVED BY EDIT 713-TJW
;;;;HOW /NOW WOULD BE DONE WAS RETHOUGHT
;;;;PROCSI:	MOVE	T1,[SIXBIT/SYSERI/]
;;;;	MOVEM	T1,OVRBLK+1	;INTO THE SPEC AREA
;;;;	SETZ	15,
;;;;	MOVEM	17,SAVEAC+17
;;;;	MOVEI	17,SAVEAC
;;;;	BLT	17,SAVEAC+16	;TUCK AWAY OUR AC'S
;;;;	JRST	OVRLAY		;NOW PLEASE OVERLAY US WITH PROCSA
;SETDAT	-- SUBROUTINE TO LOOK AT /END AND /BEGIN
;SWITCHES AND CONVERT THEM TO START AND END DATE
;CALL	PUSHJ	P,SETDAT
;
;RETURN	CALL+1
;BOTH BEGIN AND END ARE INITIALIZED TO -1 FOR SCAN USE
;STDATE=0 OR VALUE OF /BEGIN SWITCH IF TYPED
;ENDATE=377777,,-1 OR VALUE OF /END IF TYPED
;IF USER DOES NOT SPECIFY TIME CUTOFF ASSUME 00:00 HRS.
;USES T1-T4
;[EDIT 214] CHANGES LOCAL TIME TO GMT TIME IF UNDER TOPS20.

SETDAT:	TLZ	F,F.DATE		;ASSUME NO DATE CONSTRAINTS DEFAULT
	SETZM	STDATE			;ZAP
	SKIPGE	T1,END			;CHECK FOR /END SWITCH
	MOVE	T1,[377777777777]	;NONE TYPED-SAY ETERNITY IS CUTOFF

;THESE TWO LINES REMOVED WITH EDIT [741] - SPR #20-11775
;	TRNN	T1,-1		;DID USER SPECIFY TIME CUTOFF AS WELL
;	HRRI	T1,-1		;NO-SAY 2400 FOR HIM  TO ALLOW ALL DAY AS GOOD

	MOVEM	T1,ENDATE		;STORE AS CUTOFF DATE
	SKIPL	T2,BEGIN		;/SINCE SPECIFIED
					;-1 SAYS NO SWITCH WAS STORED
	MOVEM	T2,STDATE		;STORE AS STARTING DATE
	CAMN	T1,[377777777777]	;DID USER TYPE /END?
	SKIPL	BEGIN			;SKIP IF NO /BEGIN SPECIFIED
	TLO	F,F.DATE		;SAY WE SAW A TIME SWITCH

	SKIPN	TOPMON			;TOPS20 RUNNING?
	 POPJ	P,0			;NO,LEAVE NOW

	SKIPGE	END			;/END SPECIFIED?
	 JRST	SETDA1			;NO
	SETOM	T2
	SETZB	T3,T4
	ODCNV				;GET CURRENT TIME
	MOVE	T2,ENDATE
	TLNE	T4,1B19			;[306]DAYLIGHT SAVINGS?
	 SUBI	T2,25252		;YES SUB 1 HOUR
	LSH	T4,14
	ASH	T4,-36
	IMULI	T4,25252		;ONE HOURS WORTH
	ADD	T2,T4
	MOVEM	T2,ENDATE
SETDA1:	SKIPGE	BEGIN			;/BEGIN SPECIFIED?
	 POPJ	P,0			;NO-LEAVE NOW
	SETOM	T2
	SETZB	T3,T4
	ODCNV				;GET CURRENT TIME
	MOVE	T2,STDATE		;[306]
	TLNE	T4,1B19			;DAYLIGHT SAVINGS?
	 SUBI	T2,25252		;YES,SUB 1 HOUR
	LSH	T4,14
	ASH	T4,-36
	IMULI	T4,25252		;ONE HOURS WORTH
	ADD	T2,T4
	MOVEM	T2,STDATE
	POPJ	P,			;RETURN
	SUBTTL	SCAN RELATED SUBROUTINES
;DEFINP,DEFOUT -- SUBROUTINES TO SETUP PARAMETERS FOR INPUT AND OUTPUT
;CALL	PUSHJ	P,DEFXXX FROM SCAN CODE
;
;RETURN	CALL +1
;RETURNS TO SCAN WITH T1=START OF AREA	T2=LENGTH OF AREA
;USES T1,T2

DEFINP:	MOVEI	T1,I.ST			;PICKUP ADDRESS OF START OF INPUT AREA
	MOVEI	T2,I.LNGH		;PICKUP LENGTH OF INPUT AREA
	POPJ	P,

DEFOUT:	MOVEI	T1,O.ST			;SAME AS ABOVE FOR OUTPUT AREA
	MOVEI	T2,O.LNGH
	POPJ	P,
;CLRFLG -- SUBROUTINE TO CLEAR SWITCH FLAG STORAGE LOCATIONS
;CALL	PUSHJ	P,CLRFLG	FROM SCAN

CLRALL:	MOVE	T1,[XWD FLGST,FLGST+1]
	SETOM	FLGST			;SCAN LIKES -1 TO INITIALIZE
	BLT	T1,FLGND

	MOVE	T1,[XWD I.ST,I.ST+1]	;SETUP TO CLEAR INPUT FILE SPEC BLOCK
	SETZM	I.ST
	BLT	T1,I.END

	MOVE	T1,[XWD O.ST,O.ST+1]	;SAME FOR OUTPUT
	SETZM	O.ST
	BLT	T1,O.END		;ZAP OUTPUT FILE SPEC AREA
	POPJ	P,			;RETURN TO SCAN CODE
;SETSWT -- SUBROUTINE CALLED BY SCAN TO HANDLE BIT SETTING
;IN ENTCHR TABLE AS A RESULT OF USER SWITCHES
;CALL	PUSHJ	P,SETSWT FROM SCAN CODE
;
;RETURN CALL+1
;SETS BITS IN ENTCHR TABLE AS SPECIFIED BY BYTES FOUND
;AT @BYTDSP(ERROR CODE)
;BYTES ARE GROUPED INTO LIST ALL,NXM CAUSED,PAR CAUSED,PER CAUSED
;PERFORMANCE CAUSED,SUMMATION
;BYTE FIELDS ARE DELIMITED WITH 77

SETSWT:	TLO	F,F.OSUM		;EDIT 211-WE GOT HERE ONLY IF USER
					;SAID /MASALL, ETC AND DID NOT USE
					;DEFAULT OF /ALLSUM. SEE REVISION
					;HISTORY AND SYSERR DOCUMENTATION.
	PUSH	P,T1			;SAVE T1
	PUSH	P,T2			;LIKEWISE
	HRRZ	T1,T2			;PICKUP FLAG ADDRESS
	SUBI	T1,FLGST		;SUBTRACT STARTING ADDRESS OF FLAGS
					;RESULT IS OFFSET OF SWITCH IN TABLE
	CAILE	T1,FLGSTP		;DO WE WISH TO SET BITS IN ENTCHR FOR THIS SWITCH ?
	JRST	DONE			;NO - JUST LET SCAN STORE IT
	HRRM	T2,SWITCH		;[321]SAVE ADDRESS IN LOW SEG OF THIS SW 
					;VALUE FOR BIT CHECKING ROUTINES


;WHILE WE'RE HERE LET'S SETUP THE DEFAULT OUTPUT
;FILE NAME TO THAT /CPUALL OR /DSKPAR ETC THE USER
;JUST TYPED INSTEAD OF ERROR.LST

	MOVE	T3,SWTABN(T1)		;THAT'S A NAME TABLE IN SIXBIT
	MOVEM	T3,OUTFIL		;THAT'S THE FILE NAME IN SIXBIT


	MOVSI	T2,441100		;SETUP FOR 11 BITS
	HRR	T2,BYTDSP(T1)		;SETUP TO LOOK AT BYTX WHERE X IS INDEX INTO SWITCH TABLE
	HRLZI	T4,E.LALL		;SET E.LALL BIT IN MASK
ALLCHK:	ILDB	T3,T2			;PICKUP BYTE FROM BYTXXX
	JUMPE	T3,ALLCHK		;IGNORE IT
	CAIN	T3,777			;READY TO GO TO E.LNXM CHECK
	JRST	NXMCHK			;YES DISPATCH
	IORM	T4,ENTCHR(T3)		;LIGHT THE BIT
	JRST	ALLCHK			;BACK FOR MORE

NXMCHK:	HRLZI	T4,E.LNXM		;SET THE E.LNXM BIT IN MASK
NXMCON:	ILDB	T3,T2
	JUMPE	T3,NXMCON
	CAIN	T3,777			;READY TO GO TO PARCHK
	JRST	PARCHK
	IORM	T4,ENTCHR(T3)		;LIGHT THE E.LNXM BIT IN ENTRY CHAR WORD
	JRST	NXMCON			;MORE

;FALL INTO PARCHK ROUTINE
PARCHK:	HRLZI	T4,E.LPAR		;SET THE E.LPAR BIT IN MASK
PARCON:	ILDB	T3,T2
	JUMPE	T3,PARCON
	CAIN	T3,777			;READY TO DO PERCHK?
	JRST	PERCHK			;YES
	IORM	T4,ENTCHR(T3)		;LIGHT THE LITE
	JRST	PARCON			;LOOP

PERCHK:	HRLZI	T4,E.LPER		;LIGHT THE E.LPER BIT IN MASK
PERCON:	ILDB	T3,T2
	JUMPE	T3,PERCON
	CAIN	T3,777			;READY FOR SUMCHK
	JRST	SUMCHK			;YES
	IORM	T4,ENTCHR(T3)		;LITE THE BIT IN ENTCHR TABLE
	JRST	PERCON			;LOOP

SUMCHK:	HRLZI	T4,E.LSUM
SUMCON:	ILDB	T3,T2
	JUMPE	T3,SUMCON		;IGNORE
	CAIN	T3,777			;FINI??
	JRST 	DONE			;YES EXIT
	IORM	T4,ENTCHR(T3)		;SET THE BIT
	TLO	F,F.LSUM		;SAY SOME SUMMARY WAS REQUESTED
	JRST	SUMCON

DONE:	POP	P,T2			;RESTORE T2
	HRRZ	T3,T2
	CAIN	T3,SEQ			;[532]=/SEQ?
	 JRST SEQBLD			;YES ,STORE ARGUEMENT
	POP	P,T1			;SAME
	AOS	(P)			;SKIP RETURN TO MAKE SCAN STORE FLAG
	POPJ	P,			;BACK TO SCAN

;P3 HOLDS ARGUEMENT FROM SCAN
SEQBLD:	SKIPG	P3			;NEGATIVE?
	 JRST	SEQBD1			;YUP!
	MOVE	T1,SEQIND		;GET NEXT INDEX TO SEQTAB
	MOVEM 	P3,SEQTAB(T1)		;STORE ARGUEMENT
	AOS	T1
	MOVEM	T1,SEQIND
	CAIL	T1,SEQMAX		;EXCEEDED MAX WE SUPPORT?
	 JRST	SEQWRN
	SETZM	SEQ			;WE SAW ONE
	POP	P,T1			;RESTORE T1 TO BE SAFE
	POPJ	P,0			;NON-SKIP TO SCAN SAYS DONT STORE
SEQWRN:	 WARN% <MORE THAN >
	MOVEI	T1,SEQMAX		;GET MAX
	TLO	F,F.TTYO		;SAY OUTPUT TO TTY
	PUSHJ	P,.TDECW
	TRNN	F,F.TTY			;[1221]DON'T CLEAR IF OUT DEV IS TTY
	TLZ	F,F.TTYO		;BACK TO OUTPUT FILE
	WARN.CR	< SEQUENCE NUMBERS GIVEN FOR ARGUEMENT>
		JRST	START

;HERE TO HANDLE NEGATIVE NUMBERS
;INDICATES RANGE OF NEXT 'N' NUMBERS
SEQBD1:	MOVE	T1,SEQIND		;NEXT INDEX
	MOVE	T3,SEQTAB-1(T1)		;GET PREVIOUS VALUE
SEQBD2:	AOS	T3
	MOVEM	T3,SEQTAB(T1)
	AOS	T1
	CAIL	T1,SEQMAX		;EXCEEDED MAX?
	 JRST	SEQWRN			;YUP!
	AOJL	P3,SEQBD2		;DO MORE?
	MOVEM	T1,SEQIND		;STORE NEXT INDEX VALUE
	POP	P,T1			;RESTORE
	POPJ	P,0			;RETURN TO SCAN
;SUMUPD -- SUBROUTINE TO AUTOMATICALLY UPDATE ALL PERMANENT
;SUMMARY COUNTERS PRIOR TO SUMMARY LISTING
;A DUMMY MACRO DUMFLG IS USED TO GENERATE
;THE NECESSARY CODE AS FOLLOWS
;SKIPE	T1,XXXTMP	;PICKUP TEMP COUNTER
;ADDM	T1,XXXPER	;INCREMENT PERM COUNTER
;DO NEXT COUNTER SAME.......
;modified by edit #110
	DEFINE	TBLFLG(A)<
	setz	t1,
	exch	t1,a'TMP
	ADDM	T1,A'PER
>

;NOW THE ACTUAL CODE GENERATION

;	XLIST
SUMUPD:	DUMFLG
	LIST


;NOW GENERATE THE SOFTWARE SUMMARY COUNTERS UPDATE
;also modified by edit #110
	DEFINE	DUMDV(A)<
	ZZ==0
REPEAT NUMSFB,<
	setz	t1,
	exch	t1,a'ST+zz
	ADDM	T1,A'SP+ZZ
	ZZ==ZZ+1
>>
;	XLIST
;	DUMDP
;	DUMFH
;	DUMRP
	LIST
	XLIST
	DUMDP
	DUMFH
	DUMRP
	LIST

	POPJ	P,			;RETURN



	SUBTTL	STORAGE LOCATIONS
T20DEV:	SIXBIT/QAP/			;DEFAULT FOR TOPS20 INPUT DEVICE
INPSPC:	EXP	13
	SIXBIT/SYS/
	XWD	0,IBUFF
OUTSPC:	EXP	0
	SIXBIT/DSK/
	XWD	OBUFF,0
ERRFIL:	XWD	0,35
	Z
	SIXBIT/ERROR/
	SIXBIT/SYS/
	BLOCK	32
LSTFIL:	SIXBIT/ERROR/
	SIXBIT/LST/
	Z
	Z
;HERE IS THE CODE WHICH WILL BE BUT INTO THE LOW SEG
;AND WILL BE CALLED TO OVERLAY HIGH SEGMENTS.
;EDIT #120


	HRLZI	T1,1			;GET RID OF
	CORE	T1,			;CURRENT HIGH SEG
	HALT				;CAN'T DECREASE CORE!!!???
	SETZM	.JBSYM			;TO ALLOW DDT TO WORK
	SETZM	.JBUSY			;WHILE DEBUGGING VARIOUS HIGH
					;SEGMENTS. PUT A BREAKPOINT
					;AT ROUTINES WHICH CALL OVRLAY
					;THEN SET BREAKPOINT AT THE
					;RETURN FROM THE GETSEG AND OPEN
					;THE NEW SYMBOL TABLE
					;AND CONTINUE DEBUGGING.
	MOVEI	T1,OVRBLK		;SPEC BLOCK SETUP BY OUR CALLER
	GETSEG	T1,
	 HALT				;STD ERROR MESSAGES ARE OK
	MOVE	17,400006		;GET NEW SYMBOL TABLE ADDR
	MOVEM	17,116			;AND STORE IT FOR DDT SINCE DDT
					;CAN'T SEEM TO GET IT RIGHT!!
	HRLZI	17,SAVEAC		;COPY BACK
	BLT	17,17			;THE AC'S
	SKIPN	15			;[314]MAY ALREADY HOLD RETURN ADDRESS
	HRRZ	15,400000		;THAT'S THE START OF THE NEW SEG
	JRST	@15			;NOW GO THERE


;HERE LIES THE ^C TRAP INTERCEPT CODE TO BE MOVED INTO THE LOWSEG.
CCCBLK:	XWD 4,CCTRAP
	XWD 0,ER.ICC
	Z
	Z
TRPCOD:	HLRZ	T3,INTBLK+.ERCCL
	CAIE	T3,ER.ICC
	HALT	.
	EXIT	0



IARGST:	Z
	Z
	CHROUT				;LOCATION OF TYPEOUT ROUTINE IN SYSERR
	Z
	Z
IAREND==.-1
IARGLN==<IAREND-IARGST>+1		;LENGTH OF ARG BLOCK FOR .ISCAN

TARGST:	IOWD	SWTABL,SWTABN		;DUMMY NAMES FOR USE BY SCAN
	XWD	SWTABD,SWTABM
	SWTABP
	SIXBIT/SYSERR/			;LET HELPER TYPE SYS:SYSERR.HLP FOR USER HELP
	XWD	CLRALL,0
	XWD	DEFINP,DEFOUT		;POINTER TO SUBROUTINES TO SETUP
					;INPUT AND OUTPUT FILE SPEC AREAS
	Z
	Z
	SETSWT
TAREND==.-1
TARGLN==<TAREND-TARGST>Z+1		;LENGTH OF T ARG BLOCK

DUMDAY:	121165				;DUMMY NBS DAY FOR USE BY SCAN
KONMSK:	RCMASK				;MASK FOR ERROR BITS IN RC10 TYPE DEVICE
	RPMASK				;MASK FOR ERROR BIT IN A RP10 TYPE DEVICE
	SFMASK				;SOFTWARE DETECTED ERROR MASK
	TMMASK
	RHMASK


MINERB:	MINRCB
	MINRPB
	MINSFB
	MINTMB
	MINRHB

IDVFLT:	SIXBIT/SYS/			;DEFAULT FILE SPECIFICATIONS
IFLFLT:	SIXBIT/ERROR/
IEXFLT:	SIXBIT/SYS/
ODVFLT:	SIXBIT/DSK/
OFLFLT:	SIXBIT/ERROR/
OEXFLT:	SIXBIT/LST/

PDLPNT:	IOWD	LPDL,PDLST
	SUBTTL	DUMMY MACRO EXPANSION AREA


;THE FOLLOWING MACRO CODE UTILIZES THE PRINCIPLE OF THE DUMMY
;MACRO USED EARLIER AND REDEFINES TBLENT TO GENERATE VAIOUS
;NECESSARY DISPATCH TABLES

;MACRO TO CREATE A TABLE CONTAINING OFFSET INTO OTHER TABLES
;WHICH WERE PREVIOUSLY INDEXED BY ERROR TYPE(VER 3 & EARLIER). ALLOWS
;HOLES TO BE IN SEQUENCE OF ERROR TYPES WHICH ARE USED.

;THIS FIRST TABLE CONTAINS ALL THE ERROR  TYPES
;KNOWN TO ALL SYSERR PARTS. THE SECOND IS THE TABLE
;OF TYPES PROCESSED BY THE SEGMENT.
;EDIT #120.
	IFN	EXPPRT,<
	LALL
	>
	IFE	EXPPRT,<
	SALL
	>

	DEFINE	TBLENT(A,B,C,D,E)<
	XWD  0,A
	>

ALLTBL:	DUMENT

	ALLLTH=<.-1>-ALLTBL+1		;LENGTH OF ERROR INDEX TABLE

ERRTBL:	0				;FIRST FOUND MUST NOT BE 0

	ERRLTH=<.-1>-ERRTBL+1		;LENGTH OF ERROR INDEX TABLE


;THE ENTRY PROCESSING TABLE
;THIS TABLE MUST BE INDEXED BY THE CONTENTS OF ALLIND

	DEFINE	TBLENT(A,B,C,D,E)<
	IFIDN<D><PROCSA><
	XWD	0,D
	TYPMAX==A>
	IFDIF<D><PROCSA><
	XWD	0,D
	TYPMAX==A>
	>
PCSTBL:	DUMENT


;SWITCH TABLES
;THE FOLLOWING TABLES WILL BE GENERATED VIA THE DUMMY MACRO
;DUMCH1
;THE FIRST IS A DISPATCH TABLE TO BYTES REPRESENTING BITS TO SET
;IN THE ENTCHR TABLE
;NEXT IS THE ACTUAL BYTES THEMSELVES

;TABLE FOR DISPATCH TO THE BYTE OPERANDS

	DEFINE	TBLCH1(A,B,C,D,E,F,G)<
	XWD	0,BYT'G
>

;MAKE DISPATCH TABLE

BYTDSP:	DUMCH1
;NOW THE BYTES THEMSELVES


	DEFINE	TBLCH1(A,B,C,D,E,F,G)<
BYT'G:	BYTE (9) B,777,C,777,D,777,E,777,F,777
>


	DUMCH1



;SWITCH MACRO EXPANSION NEXT


;DEFINE THE SWITCHES WE RECOGNIZE

	DEFINE	TBLCH1(A,B,C,D,E,F,G)<
	SS	(A,A',0)
>
	DEFINE	TBLCH2(A,B,C)<
	SP	(A,A',B,C)
>

;CALL MACRO TO SET DEFAULTS
	DEFVAL

;NOW MAKE SWTCHS MACRO FOR USE WITH DOSCAN LATER

	DEFINE	SWTCHS<
	DUMCH1
	DUMCH2
>

	DOSCAN(SWTAB)


	RADIX	8			;******DONE WITH RADIX 10******
;GENERATE SIXBIT TABLE OF DEVICE NAMES

	DEFINE	DUMDV(A)<
	SIXBIT/A/
>
NAMTBL:	DUMDVA
NAMLTH=<.-1>-NAMTBL+1			;LENGTH OF TABLE OF SIXBIT NAMES
	
;USING SAME DEFINITION OF MACRO NOW GENERATE
;LIST OF ONLY MASSBUS DEVICE NAMES

MASNAM:		DUMFS
	DUMRP
	MASLTH=<.-1>-MASNAM+1		;LENGTH OF THIS TABLE

;MASNA2: AND SCRATCH BLOCK TABLES REMOVED WITH EDIT  [1217]

DEFINE	DUMDV(A)<
	XWD	0,A'BK
	>
BKLOC:	DUMDVA

;GENERATE CONI BIT ERROR DISPATCHER
;RH = SOFT ERROR POINTER
;LH = HARD ERROR POINTER

	DEFINE	DUMDV(A)<
	XWD	A'HD,A'SF
>

DEVDSP:	DUMDVA

;DEVDS2 TABLE REMOVED WITH EDIT  [1217]


	DEFINE	DUMDV(A)<
	XWD	A'ST,A'SP
>
;ST=STORAGE TEMP,SP=PERM.
SOFDSP:	DUMDVA

;SOFDS2 TABLE REMOVED WITH EDIT  [1217]


;HERE LIES THE START OF THE LOW SEGMENT STORAGE
;AND VOLATILE MACRO TABLES

	LIT

	END	START