Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

	TITLE	DSKDMP--DUMP THE DISK DATA BASE FROM A CRASH FILE
	SUBTTL	DEFINITIONS

	SEARCH	Q,MACTEN,UUOSYM
	SALL

;ACCUMULATORS
	F=0			;FLAGS
	T1=1			;TEMPORARIES
	T2=2
	T3=3
	T4=4
	T5=5
	T6=6
	J=T6
	P1=10			;PRESERVED
	P2=11
	P3=12
	P4=13
	P5=14
	CNT=15			;COUNTER (TEMPORARY AC)
	LVL=16			;SFD LEVEL
	P=17			;STACK POINTER

;I/O CHANNELS
	DSK==1			;FOR READING EXE FILE
	LPT==2			;FOR DUMPING DATA BASE

;FLAGS IN THE LEFT HALF OF AC F
	L.BHED==1B0		;SET IF HEADER TYPED FOR BIT TABLE CHECK
	L.MLST==1B3		;SET IF USER WANTS TO SPY ON MONITOR
	L.ACHK==1B4		;SET IF ONLY WANT TO ADDRESS CHECK
	L.NAME==1B7		;HAVE NAME
	L.PROJ==1B8		;HAVE PROJECT NUMBER
	L.ANY==1B9		;SAW ANYTHING
	L.NOPP==1B10		;DON'T TYPE DATA FOR THIS PPN
	L.NONM==1B11		;DON'T TYPE THIS NMB/AT
	L.OTTY==1B12		;OUTPUT TO TTY
	L.RDSK==1B13		;READING A CRASH FROM DISK

;MACROS

	DEFINE	MONWRD(INST)<
	JRST	[PUSHJ P,DOINST
		JRST .+1
		JRST .+2
		INST]
>
	DEFINE ERROR(TEXT)
<	JRST [	OUTSTR	[ASCIZ	/?TEXT
/]
		JRST	BEGIN]>

;CONDITIONAL ASSEMBLY:
	ND	CSL,0		;NON-0 FOR CSL FEATURES

	SUBTTL	MONITOR-DEPENDENT DEFINITIONS
UNINAM=0			;DEVICE NAME
UNILOG=1			;PACK NAME
UNISYS=3			;PNTR TO NEXT UNIT
UNIHCT=10			;HARD ERR COUNT
UNISCT=11			;SORT ERR COUNT
UNIECT=34			;ERROR-RETRY COUNT
UNIHNG=35			;HUNG COUNT
UNISTS=36			;STATUS
UNIBPU=43			;BLOCKS PER UNIT (NON-0 IF UNIT EXISTS)
UNIRCV=63			;RETRIES ON HUNG DEV
UNI2ND=72			;POINTER TO 2ND PORT
UNITIM==73			;TIMER

IFNDEF LN.BUF,<LN.BUF==200>	;LENGTH OF DISK BUFFER
IFNDEF NBCSHE,<NBCSHE==^D25>	;NUMBER OF PAGES TO KEEP IN CORE

	SUBTTL	VARIABLES

	BEGLOW==.
TTCLST:	BLOCK	1		;# CHUNKS,,POINTER TO 1ST CHUNK
TTFREE:	BLOCK	1		;POINTER TO FREE CHUNKS
TTFREN:	BLOCK	1		;NUMBER OF FREE CHUNKS
LINPTR:	BLOCK	1		;-#LINES,,ADR OF LINTAB
CKADR:	BLOCK	1		;.TTCLST<0,18>
LWRDCN:	BLOCK	1		;.TTCLST<18,18>*4
LTBSIZ:	BLOCK	1		;SIZE OF BIT TABLE IN WORDS
CORNUM:	BLOCK	1		;NUMBER OF BLOCKS
SYSPPB:	BLOCK	1		;START OF CORE
SPPB:	BLOCK	1		;HAS LH(SYSPPB) IN ITS RH
SYSCOR:	BLOCK	1		;START OF FREE LIST
SYSDOR:	BLOCK	1		;DORMANT ACCESS TABLES
WRDCNT:	BLOCK	1		;.CORNUM*8
TABSIZ:	BLOCK	1		;SIZE OF BIT TABLE IN WORDS
CORPNT:	BLOCK	1		;POINTER TO AREA IN CORE WHERE INFO IS
BITTAB:	BLOCK	1		;POINTER TO BIT TABLE OF 8 WORD BLOCKS
DIRPNT:	BLOCK	1		;POINTER TO IN-CORE COPY OF FILE DIRECTORY
COROFF:	BLOCK	1		;OFFSET BETWEEN FILE ADDRESSES AND CORE ADDRESSES
LCRPNT:	BLOCK	1		;POINTER TO LINE DATA
LINTAB:	BLOCK	1		;POINTER TO TABLE OF LINE ADDRESSES
LBITTB:	BLOCK	1		;POINTER TO BIT TABLE FOR CHUNKS
LCOROF:	BLOCK	1		;TTY OFFSET BETWEEN FILE AND CORE
;WORK AREA
DBLOCK:	BLOCK	200		;WHERE DISK BLOCKS ARE READ INTO
TEMP:	BLOCK	1		;TEMPORARY VARIABLE
LPTOUT:	BLOCK	3		;LPT OUTPUT BUFFER HEADER
FRECNT:	BLOCK	1		;COUNT OF FREE BLOCKS
DORCNT:	BLOCK	1		;COUNT OF DORMANT ACCESS TABLES
TEMP1:	BLOCK	1		;ANOTHER TEMPORARY
LSTBLK:	BLOCK	1		;DISK BLOCK CURRENTLY IN DBLOCK
ONELIN:	BLOCK	1		;SINGLE LINE TO REPORT ON
NAME:	BLOCK	1		;PARTICULAR NAME (DSK DATA)
EXT:	BLOCK	1		;EXT WE'RE LOOKING FOR
PROJ:	BLOCK	1		;THE PROJECT NUMBER
PROG:	BLOCK	1		;PROGRAMMER NUMBER
;***DO NOT SEPERATE THE FOLLOWING LABELS!
IDEV:	BLOCK	3		;INPUT DEVICE OPEN BLOCK
IFILE:	BLOCK	4		;INPUT LOOKUP BLOCK
ODEV:	BLOCK	3		;OUTPUT DEVICE OPEN BLOCK
OFILE:	BLOCK	4		;OUTPUT DEVICE ENTER BLOCK
;***END OF DO NOT SEPARATE
PLIST:	BLOCK	60		;STACK
SAVET1:	BLOCK	2
SAVET3:	BLOCK	2
INST:	0
DATA:	0
.CPTOS:	BLOCK	1
.CPMAP:	BLOCK	1
EXEDIR:	BLOCK	LN.BUF		;SPACE FOR EXE DIRECTORY
DCACHE:	BLOCK	NBCSHE		;INCORE CACHE FOR CRASH FILE
DSKFLG:	BLOCK	1		;FLAG (AND MAX SIZE) OF DISK INPUT FILE
	ENDLOW==.-1		;END OF NORMAL VARIABLES
PNTR:	0,,DATA
DSKIOW:	IOWD	LN.BUF,0	;IOWD FOR READING CRASH FILE, ADDR FILLED IN
	0			;END OF LIST

	SUBTTL	INITIALIZATION

BEGIN:	JFCL			;NO CCL
	START	60,PLIST	;SET UP STACK
	SETZB	F,BEGLOW	;CLEAR FLAGS AND START OF CORE AREA
	MOVE	T1,[BEGLOW,,BEGLOW+1]	;BLT POINTER
	BLT	T1,ENDLOW	;TO END OF LOW SEG
	MOVX	T1,%CNSIZ	;SIZE OF THE MONITOR
	GETTAB	T1,		;GET IT
	  MOVEI	T1,-1		;MAKE SURE SPY FAILS
	SPY	T1,		;MAP MONITOR
	  ERROR	<Spy failed>	;IF DON'T HAVE SPY PRIV'S, CANT PEEK EITHER
	HLRZ	T1,.JBSA##	;GET INITIAL .JBFF
	MOVEM	T1,.JBFF##	;AND RESET IT
	SETZM	IFILE		;SET UP DEFAULTS
	MOVSI	T1,'EXE'
	MOVEM	T1,IFILE+1
	SETZM	IFILE+2
	MOVE	T1,[10,,1]
	MOVEM	T1,IFILE+3
	MOVEI	T1,17
	MOVEM	T1,IDEV
	MOVSI	T1,'ALL'
	MOVEM	T1,IDEV+1
	SETZM	ODEV
	MOVSI	T1,'TTY'
	MOVEM	T1,ODEV+1
	MOVSI	T1,LPTOUT
	MOVEM	T1,ODEV+2
	PUSHJ	P,SCAN		;GET COMMAND LINE
	OPEN	LPT,ODEV	;GET THE OUTPUT DEVICE
	  ERROR	<Cannot OPEN output device>
	MOVS	T1,ODEV+1
	CAIN	T1,'TTY'	;IF OUTPUT IS TO TTY
	TXOA	F,L.OTTY	; LIGHT A BIT IN F
	TXZ	F,L.OTTY
	SKIPN	IFILE		;NAME TYPED?
	TXOA	F,L.MLST	;NO, PEEK AT RUNNING MONITOR
	TXOA	F,L.RDSK	;READ FROM DISK
	TXZ	F,L.RDSK
	TXNE	F,L.MLST	;DID HE SAY /M?
	JRST	DODUMP		;YES--DON'T OPEN INPUT DEVICE.
	OPEN	DSK,IDEV	;OPEN THE INPUT DEVICE!
	  ERROR	<Can't open input device>
	LOOKUP	DSK,IFILE	;FIND THE FILE!
	  ERROR	<Can't lookup input file>
	PUSHJ	P,CPYEXE	;READ DIRECTORY
DODUMP:	PUSHJ	P,DUMP		;DUMP DATA BASE
	JRST	BEGIN		;NO

DOINST:	DMOVEM	T1,SAVET1
	DMOVEM	T3,SAVET3
	MOVE	T2,(P)
	MOVE	T2,2(T2)
	MOVEM	T2,INST
	SETZ	T3,
	LDB	T1,[POINT 9,T2,8]	;OP CODE
	CAIE	T1,(LDB_-11)
	CAIN	T1,(ILDB_-11)
	SKIPA	T2,(T2)
	JRST	NOTBYT
	CAIN	T1,(ILDB_-11)
	IBP	T2
	TLZ	T2,77
	HLLM	T2,PNTR
	MOVSI	T1,000740
	AND	T1,INST
	IOR	T1,[LDB PNTR]
	EXCH	T1,INST
	SETO	T3,
	LDB	T1,[POINT 4,(T1),17]
	CAIA

NOTBYT:	LDB	T1,[POINT 4,INST,17]	;INDEX
	CAIL	T1,T1
	CAILE	T1,T4
	CAIA
	ADDI	T1,SAVET1-T1
	MOVE	T1,(T1)
	ADDI	T1,(T2)
	PUSHJ	P,PEEKA		;T1=LOC TO READ, ANSWER IN T1
	MOVE	T2,INST
	TLNE	T2,20
	PUSHJ	P,PEEKA		;INDIRECT, ONE MORE TIME (BUT NO RECURSION)
	MOVEM	T1,DATA
	JUMPL	T3,DOIT
	MOVEI	T1,DATA
	DPB	T1,[POINT 23,INST,35]
DOIT:	DMOVE	T1,SAVET1
	DMOVE	T3,SAVET3
	XCT	INST
	POPJ	P,
	AOS	(P)
	POPJ	P,

PEEKA:	TXNE	F,L.RDSK	;SEE IF DISK MODE
	PJRST	DSKA		;YES--PEEK AT THE DISK
	TLZ	T1,-1		;CLEAR JUNK
	CAIGE	T1,400000	;MONITOR HIGH SEG ADDRESS?
	SKIPA	T1,400000(T1)	;YES--GET FROM CORE
PEEKA1:	PEEK	T1,		;NO--GET FROM MONITOR
	POPJ	P,

DSKA:	TLZ	T1,-1		;CLEAR JUNK
	CAIGE	T1,340000	;ADDRESS IN MONITOR LOW SEG
	JRST	DSKA8		;YES, JUST GET MONITOR LOW SEG VALUE
	PUSH	P,T4		;GET A WORKING AC
	MOVE	T4,T1		;SAVE ADDRESS IN T4
	ANDI	T1,777		;ISOLATE OFFSET IN PAGE
	PUSH	P,T1		;SAVE THIS
	LSH	T4,-^D9		;CONVERT TO PAGE NUMBER
	MOVE	T1,.CPTOS	;THIS IS KIND OF A KLUDGE BUT THERE ARE NO
	CAME	T1,.CPMAP	; CONVIENENT BITS TO REMEMBER TYPE OF PAGING
	TLO	T4,600000	;KL PAGING
	TRNN	T4,400000_-^D9	;ADDRESS IN MONITOR HIGH SEG?
	JRST	DSKA2		;NO, PER-PROCESS MAPPING
	TLNN	T4,200000	;KL PAGING?
	ROT	T4,-1		;NO, KI PAGING - MAP SLOTS ARE HALF WORDS
	HRRZ	T1,T4		;WORD WITHIN THE MAP
	ADD	T1,.CPMAP	;ADDRESS OF MAP SLOT ENTRY
	JRST	DSKA7		;GO GET MAP SLOT ENTRY
DSKA2:	MOVSI	T1,(J)		;JOB NUMBER TO LH
	HRRI	T1,.GTUPM	;NEED JBTUPM FOR THIS JOB
	GETTAB	T1,		;GET VALUE
	  JRST	DSKA3		;FAILED, RETURN ZERO
	HRRZS	T1		;KEEP JUST PAGE NUMBER
	JUMPN	T1,DSKA5	;IF THERE, CONTINUE
DSKA3:	POP	P,(P)		;FLUSH JUNK
	POP	P,T4		;RESTORE T4
DSKA4:	MOVEI	T1,0		;RETURN ZERO TO CALLER
	POPJ	P,		;  AND RETURN
DSKA5:	LSH	T1,^D9		;MAKE PAGE NUMBER AN ADDRESS
	TLNE	T4,200000	;KL PAGING?
	JRST	DSKA6		;YES, PAGE NUMBER IS OFFSET INTO THE MAP
	ROT	T4,-1		;DIVIDE BY 2 PUTTING REMAINDER IN THE SIGN BIT
	ADDI	T4,220		;PP STUFF STARTS AT 400 IN THE MAP
DSKA6:	ADDI	T1,(T4)		;POINT TO PER-PROCESS STUFF IN THE UPMP
DSKA7:	PUSHJ	P,DSKA8		;GET THE MAP SLOT FOR THIS ADDRESS
	SKIPL	T4		;SKIP IF MAPPING THROUGH RH
	MOVSS	T1		;MAPPING THROUGH LH, REVERSE
	TLNE	T4,200000	;KL PAGING?
	TLNN	T1,700000	;YES, ACCESS ALLOWED?
	CAIA			;KI PAGING OR ACCESS NOT ALLOWED
	TRO	T1,400000	;INDICATE ACCESS ALLOWED
	TRNN	T1,400000	;PAGE HAVE ACCESS ALLOWED ON?
	JRST	DSKA3		;NO, RETURN ZERO
	ANDI	T1,17777	;KEEP JUST 13 BIT PAGE NUMBER
	LSH	T1,^D9		;MAKE IT AN ADDRESS
	ADD	T1,0(P)		;ADD IN OFFSET IN PAGE
	POP	P,(P)		;FLUSH JUNK
	POP	P,T4		;RESTORE T4
DSKA8:	PUSH	P,T2		;SAVE T2
	CAML	T1,DSKFLG	;COMPARE TO AMOUNT IN FILE
	JRST	[POP	P,T2	;RESTORE T2
		 JRST	DSKA4]	;RETURN ZERO
	PUSH	P,T3		;SAVE T1 WORK REGISTER
	JUMPE	T1,DSKA9	;DON'T RELOCATE 0 (NEED TO READ EXE DIRECTORY)
	PUSHJ	P,RELEXE	;RELOCATE ADDRESS TO DISK PAGE ADDRESS
	  JRST	[POP P,T3	;ADDRESS NOT IN FILE, RESTORE ACS
		POP P,T2
		JRST DSKA4]	;AND RETURN 0
DSKA9:	IDIVI	T1,LN.BUF	;SPLIT INTO BLOCK AND WORD
	PUSH	P,T2		;OFFSET FOR WORD IN BUFFER
	MOVSI	T2,-NBCSHE	;SEARCH THE CACHE FOR THIS DISK BLOCK
	HLRZ	T3,DCACHE(T2)	;FETCH BLOCK DESCRIBED
	CAIE	T3,(T1)		;IS THIS IT
	AOBJN	T2,.-2		;NO, KEEP LOOKING
	JUMPL	T2,DSKARD	;FOUND ONE, UPDATE LEAST RECENTLY USED
	HRLM	T1,DCACHE+NBCSHE-1 ;STORE BLOCK NUMBER IN LAST (OLDEST)
	HRRZ	T2,DCACHE+NBCSHE-1 ;WHERE DATA IS TO BE READ
	SOS	T2		;-1 FOR THE IOWD
	HRRM	T2,DSKIOW	;STORE ADDR
	MOVEI	T2,NBCSHE-1	;INDEX WHERE READ (FOUND)
IFN LN.BUF-200,<IMULI T1,LN.BUF/200>
IFN LN.BUF-<LN.BUF/200>*200,<PRINTX LN.BUF MUST BE MULT OF 200>
	USETI	DSK,1(T1)	;NO--POSITION FILE
	IN	DSK,DSKIOW
	JRST	DSKARD		;READ OK
	PUTSTR	LPT,<
% Disk read error >
	GETSTS	DSK,T1
	PUTOCT	LPT,T1
DSKARD:	HRRZS	T2		;ISOLATE POSITION IN TABLE
	CAIG	T2,NBCSHE/3	;DON'T RIPPLE TABLE IF CLOSE TO FRONT ALREADY
	JRST	DSKAR1		;THIS MIGHT NOT BE TOO GOOD WITH SMALL "NBCSHE"
	PUSH	P,DCACHE(T2)	;SAVE DESIRED ENTRY
	MOVE	T3,DCACHE-1(T2)	;COMPRESS TABLE SO LEAST USED IS LAST
	MOVEM	T3,DCACHE(T2)	;MOVE UP ENTRIES BELOW ONE FOUND
	SOJG	T2,.-2		;SO NEW ONE CAN BE FOUND QUICKLY LATER
	POP	P,DCACHE(T2)	;PUT SAVED ENTRY AT THE FRONT
DSKAR1:	POP	P,T3		;GET WORD OFFSET FOR DATA ITEM
	ADD	T3,DCACHE(T2)	;FIND WORD IN BUFFER
	MOVE	T1,(T3)		;FETCH IT
	POP	P,T3		;RESTORE WORK AC
	POP	P,T2		;RESTORE CALLERS AC
	POPJ	P,		;RETURN WITH DATA ITEM IN T1

;SUBROUTINES TO INITIALIZE AND DEAL WITH EXE DIRECTORY

CPYEXE:	HLRE	T1,IFILE+3	;LENGTH OF THE FILE
	SKIPL	T1		;IF POSTIVE, MEANS NUMBER OF BLOCKS
	LSH	T1,7		;CONVERT TO WORDS
	MOVMS	T1		;LENGTH OF THE FILE IN WORDS
	MOVEM	T1,DSKFLG	;SAVE FOR SANITY CHECKING
	MOVSI	T1,-NBCSHE	;PRIME THE INCORE CACHE POINTERS
	MOVE	T2,.JBREL	;FIRST AVAILABLE LOC
	HRROM	T2,DCACHE(T1)	;STORE -1,,BUFFER ADDRESS
	ADDI	T2,LN.BUF	;STEP TO NEXT DISK BUFFER
	AOBJN	T1,.-2		;STORE ALL ENTRIES
	CAMG	T2,.JBREL	;NEED TO EXPAND
	JRST	.+3		;NO
	CORE	T2,		;GET THE EXTRA CORE
	  ERROR	<Not enough CORE>
	MOVEI	T1,0		;CAUSE THE EXE DIRECTORY TO BE READ
	PUSHJ	P,DSKA		;GET FIRST WORD OF DIRECTORY
	HLRZS	T1
	CAIE	T1,1776		;AN EXE FILE?
	ERROR	<Not an EXE file>
	HRLZ	T1,DCACHE	;*** "KNOW" WHERE DSKA READ IT
	HRRI	T1,EXEDIR	;PLACE TO SAVE IT
	BLT	T1,EXEDIR+LN.BUF-1 ;MOVE AS MUCH AS WAS READ
	HRRZ	T1,EXEDIR	;FETCH DIRECTORY SIZE
	CAIL	T1,LN.BUF	;DID WE GET ALL OF IT
	ERROR	(EXE Directory too complex, try making LN.BUF larger)
	MOVE	T1,EXEDIR-1(T1)	;FETCH LAST DESCRIPTOR WORD
	LDB	T2,[POINT 9,T1,8] ;GET REPEATER COUNT
	ADDI	T2,1(T1)	;FIRST PAGE NOT IN FILE
	LSH	T2,^D9		;FIRST ADDRESS NOT IN FILE
	MOVEM	T2,DSKFLG	;RESET MAXIMUM ADDRESS
	MONWRD	<MOVE T2,410>
	MONWRD	<MOVE T1,<777777>&<%CNBCP>(T2)>
	MONWRD	<MOVE T1,<(<-1,,0>&<%CNBCP>)>(T1)>
	LSH	T1,1		;*2 FOR GETTAB
	MONWRD	<MOVE T1,<777777>&<%CCTOS>(T2)>
	MONWRD	<MOVE T1,<(<-1,,0>&<%CCTOS>)>(T1)> ;GET ADDRESS OF EPT FOR BOOT CPU
	MOVEM	T1,.CPTOS	;SAVE FOR LATER
	MONWRD	<MOVE T1,<%FTERR>&<777777>(T2)>
	MONWRD	<MOVE T1,<(<-1,,0>&<%FTERR>)>(T1)>
	TRNN	T1,<F%KLP&777777> ;KI OR KL PAGING?
	TDZA	T1,T1		;KI PAGING, EPT AND MAP ARE THE SAME PAGE
	MOVEI	T1,1000		;KL PAGING, MAP IS THE NEXT PAGE AFTER THE EPT
	ADD	T1,.CPTOS	;ADDRESS OF THE MAP
	MOVEM	T1,.CPMAP	;SAVE THAT FOR DSKA
	POPJ	P,		;AND RETURN

RELEXE:	PUSH	P,T4		;SAVE A WORKING AC
	IDIVI	T1,1000		;SPLIT INTO PAGE AND OFFSET
	PUSH	P,T2		;SAVE OFFSET
	HRRZ	T2,EXEDIR	;FETCH NUMBER OF WORDS IN DIRECTORY
	MOVNI	T2,-1(T2)	;DON'T COUNT HEADER WORD
	HRLZS	T2		; = AOBJN
RELEX1:	HRRZ	T3,EXEDIR+2(T2)	;GET CORE ADDRESS FROM DESCRIPTOR
	CAILE	T3,(T1)		;PASS THE ONE WE WANT
	JRST	RELEX3		;YES, WORD NOT IN FILE
	LDB	T4,[POINT 9,EXEDIR+2(T2),8] ;GET REPEATER
	ADDI	T4,1(T3)	;FIRST PAGE NOT IN POINTER
	CAIL	T1,(T4)		;PAGE IN THIS POINTER AT ALL
	JRST	RELEX2		;NO, GET ANOTHER POINTER
	SUBI	T1,(T3)		;HOW FAR INTO THE POINTER
	ADD	T1,EXEDIR+1(T2)	;HOW FAR INTO THE FILE PROPER
	TLZ	T1,-1		;KEEP IT REASONABLE ( FLAGS BITS )
	LSH	T1,^D9		;TO A PAGE ADDRESS IN THE FILE
	ADDM	T1,(P)		;INCLUDE THE OFFSET WANTED
	AOS	-2(P)		;GIVE GOOD RETURN
	JRST	RELEX3		;AND RETURN
RELEX2:	AOBJN	T2,.+1		;ADJUST FOR DOUBLE WORD ENTRIES
	AOBJN	T2,RELEX1	;LOOK AT NEXT POINTER
RELEX3:	POP	P,T1		;RETURN VALUE
	POP	P,T4		;RESTORE WORKING AC
	POPJ	P,		;RETURN

	SUBTTL	SCAN SUBROUTINES

SCAN:	OUTCHR	["*"]		;PROMPT
	MOVEI	P1,IDEV		;POINT TO INPUT DEVICE
	CALL	ASKFIL		;GET SPEC FROM USER
	TXO	F,L.ANY		;CANT USE SHORT FORM
	CLEAR			;CLEAR TO EOL
	POPJ	P,		;RETURN

ASKFIL:	ASKSXB			;GET A SIXBIT WORD
	CAIN	T2,32
	EXIT			;EXIT IF ^Z TYPED
	JUMPE	T3,NOTEXT	;IF NO CHARS READ, NOT A FILE NAME
	CAIE	T2,":"		;DELIMITER A COLON?
	JRST	NOTDEV		;NO--NOT A DEVICE
	MOVEM	T1,1(P1)	;YES--STORE DEVICE
	JRST	ASKFIL		;LOOP BACK
NOTDEV:	MOVEM	T1,3(P1)	;MUST BE A FILE NAME
	CAIE	T2,"."		;DELIMITER A .?
	JRST	NOTEXT		;NO
	ASKSXB			;YES--GET IT
	HLLZM	T1,4(P1)	;AND STORE IT
NOTEXT:	CAIE	T2,"["		;PPN FOLLOW?
	POPJ	P,		;NO
	ASKOCT			;YES--GET PROJECT
	HRLZ	P2,T1		;STORE PROJECT
	CAIE	T2,","		;DELIMITER A COMMA?
	POPJ	P,		;NO
	ASKOCT			;YES--GET PROGRAMMER
	HRR	P2,T1		;AND STORE IT
	CAIE	T2,"]"		;DELIMITER A ]?
	POPJ	P,		;NO
	MOVEM	P2,6(P1)	;STORE PPN
	POPJ	P,		;AND RETURN

	SUBTTL	ROUTINE TO DUMP DATA BASE FROM CORE

DUMP:	PUSH	P,.JBFF##	;SAVE .JBFF SO CAN RECLAIM BUFFERS
	SETOVR	(\LPT,LPTOUT)	;TELL MACROS WHERE BUFFER HEADER IS
	PUSHJ	P,PUTHDR	;PUT FILE HEADER
	PUSHJ	P,PUTDSK	;PUT DISK STUFF
	CLOSE	LPT,		;CLOSE THE FILE
	POP	P,.JBFF##	;RESET FIRST FREE
	POPJ	P,		;AND RETURN

	SUBTTL	FILE HEADER

PUTHDR:	PUTSTR	LPT,<input file=>
	TXNE	F,L.MLST	;WANT TO SPY?
	PUTSTR	LPT,<running monitor>
	TXNE	F,L.MLST	;SAME QUESTION
	JRST	TYPPHD		;YES
	PUTSXB	LPT,IFILE
	PUTCHR	LPT,["."]
	HLLZ	T1,IFILE+1	;GET EXTENSION
	PUTSXB	LPT,T1
TYPPHD:	PUTSTR	LPT,< on >
	DATE	T1,		;GET TODAY'S DATE
	CALL	PUTDAT		;STICK IT IN OUTPUT BUFFER
	PUTSTR	LPT,< at >
	MSTIME	T1,		;GET TIME IN MILLISECONDS
	IDIVI	T1,^D60000	;CONVERT TO MINUTES
	CALL	PUTTIM		;STICK THAT IN BUFFER TOO
	PUTLF	LPT,
	POPJ	P,		;RETURN

	SUBTTL	DISK REPORTING

PUTDSK:	PUTSTR	LPT,<
UNIT	PACK	UNISTS	HNG/TIM/RCV	UNISCT	UNIHCT	UNIECT	ADDRESS
>
	MONWRD	<MOVE P4,410>	;ADDRESS OF NUMTAB
	MONWRD	<MOVE P4,16(P4)> ;ADDRESS OF LEVELD TAB
	MONWRD	<HLRZ P4,7(P4)>	;SYSUNI
UNILOP:	PUSHJ	P,PUTUNI	;TELL ALL ABOUT THIS UNIT
	MONWRD	<SKIPN UNI2ND(P4)>
	JRST	UNILP1		;NOT DUAL-PORTED
	PUSH	P,P4		;DUAL-PORTED - PRINT 2ND PATH
	MONWRD	<SKIPE UNILOG(P4)>
	TLO	P4,-1		;PRINT NAME OF 2ND PORT AS "......"
	MONWRD	<HRR P4,UNI2ND(P4)>
	PUSHJ	P,PUTUNI
	POP	P,P4
UNILP1:	MONWRD	<HLRZ P4,UNISYS(P4)>	;NEXT UNIT
	JUMPN	P4,UNILOP	;DO IT
	PUTLF	LPT,
	POPJ	P,

PUTUNI:	MONWRD	<SKIPN UNIBPU(P4)>	;DOES UNIT EXIST?
	POPJ	P,		;NO, DONT TYPE IT
	MONWRD	<MOVE T1,UNISTS(P4)>
	CAIN	T1,13		;IF THE UDB IS UNINTERESTING
	MONWRD	<SKIPE UNILOG(P4)>	; DONT TYPE IT
	JRST	PUTUNX
	MONWRD	<SKIPN UNIHCT(P4)>
	MONWRD	<SKIPE UNISCT(P4)>
	JRST	PUTUNX
	POPJ	P,
PUTUNX:	MONWRD	<MOVE T1,UNINAM(P4)>
	PUTSXB	LPT,T1
	PUTSTR	LPT,<	>
	JUMPL	P4,[MOVE T1,[SIXBIT /....../]
		    JRST .+2]
	MONWRD	<MOVE T1,UNILOG(P4)>
	PUTSXB	LPT,T1
	PUTSTR	LPT,<	>
	MONWRD	<MOVE T1,UNISTS(P4)>
	PUTOCT	LPT,T1
	PUTSTR	LPT,<	>
	MONWRD	<MOVE T1,UNIHNG(P4)>
	PUSHJ	P,PUTHWD
	PUTSTR	LPT,</>
	MONWRD	<MOVE T1,UNITIM(P4)>
	SKIPGE	T1
	MOVNI	T1,1
	PUTDEC	LPT,T1
	PUTSTR	LPT,</>
	MONWRD	<MOVE T1,UNIRCV(P4)>
	PUTDEC	LPT,T1
	PUTSTR	LPT,<	>
	MONWRD	<MOVE T1,UNISCT(P4)>
	PUSHJ	P,PUTHWD
	PUTSTR	LPT,<	>
	MONWRD	<MOVE T1,UNIHCT(P4)>
	PUSHJ	P,PUTHWD
	PUTSTR	LPT,<	>
	MONWRD	<SKIPLE UNIECT(P4)>
	PUTSTR	LPT,<P>
	MONWRD	<MOVE T1,UNIECT(P4)>
	TLZ	T1,400000
	PUTOCT	LPT,T1
	PUTSTR	LPT,<	>
	MOVE	T1,P4
	SUB	T1,COROFF
	HRRZS	T1
	PUTOCT	LPT,T1
	PUTSTR	LPT,<
>
	POPJ	P,

	SUBTTL	DUMP SUBROUTINES

PUTKYS:	PUTSTR	LPT,< KNO=>
	PUSHJ	P,REPKNO	;REPORT THE KNO WORD
	PUTSTR	LPT,< YES=>
	MOVE	T4,0(T1)	;GET KNO WORD
	MOVE	T2,1(T1)	;GET YES WORD
	MOVEI	CNT,^D36	;HOW MANY BITS
KYSLOP:	SETZB	T1,T3		;CLEAR SOME WORDS
	LSHC	T1,1		;MOVE A BIT OF YES WORD INTO T1
	LSHC	T3,1		;AND THE CORRESPONDING BIT OF KNOW WORD INTO T3
	JUMPE	T3,DNTKNO	;IF KNO BIT IS 0, DON'T KNOW
	MOVEI	T5,"N"		;ASSUME NO.
	JUMPE	T1,DPCHAR	;IF YES BIT IS 0, GOOD
	MOVEI	T5,"Y"		;WRONG. USE A Y
	JRST	DPCHAR		;PUT IT IN THE BUFFER
DNTKNO:	MOVEI	T5,"0"		;ASSUME IS 0
	JUMPE	T1,DPCHAR	;GOOD GUESS?
	MOVEI	T5,"1"		;NO.
DPCHAR:	PUTCHR	LPT,T5
	CALL	PTSPC		;TYPE A SPACE AFTER EACH NINE
	SOJG	CNT,KYSLOP	;REPEAT FOR 36 BITS
	POPJ	P,		;RETURN NOW

REPADR:	SUB	T1,COROFF
	PUTSTR	LPT,< ADDRESS=>
	PUTOCT	LPT,T1
	POPJ	P,

REPKNO:	MOVE	T3,0(T1)	;GET KNO BITS IN T3
	MOVEI	CNT,^D36	;36 BITS
KNOLOP:	LSHC	T2,1		;GET A BIT IN T2
	MOVEI	T4,"N"		;ASSUME NO
	TRNE	T2,1		;RIGHT?
	MOVEI	T4,"Y"		;WRONG
	PUTCHR	LPT,T4
	CALL	PTSPC		;TYPE A SPACE AFTER EACH NINE
	SOJG	CNT,KNOLOP	;REPEAT
	POPJ	P,		;RETURN

PUTPRV:	LSHC	T1,-^D9		;LEFT JUSTIFY IN T2
	MOVEI	CNT,3		;3 DIGITS
PRVLOP:	SETZ	T1,		;CLEAR DIGIT
	LSHC	T1,3		;PICK UP AN OCTAL DIGIT
	ADDI	T1,"0"		;CONVERT TO ASCII
	PUTCHR	LPT,T1		;PRINT IT
	SOJG	CNT,PRVLOP	;REPEAT TWICE MORE
	POPJ	P,		;RETURN

PTSPC:	CAIE	CNT,^D10	;TYPED 9?
	CAIN	CNT,^D19	;OR 18?
	JRST	PSPC		;YES
	CAIE	CNT,^D28	;OR 27?
	POPJ	P,		;NO
PSPC:	PUTCHR	LPT,[" "]
	POPJ	P,

PUTPTR:
PUTHWD:	HLRZ	T2,T1		;GET LH(T1)
	PUTOCT	LPT,T2
	PUTSTR	LPT,<,,>
	HRRZ	T2,T1		;AND RH(T1)
	PUTOCT	LPT,T2
	POPJ	P,

PUTTSP:	JUMPE	LVL,PUTTL1	;NOTHING EXTRA AT LEVEL 0
	MOVE	T4,[ASCII /    /]
	MOVE	T1,LVL
PUTTLP:	PUTSTR	LPT,,T4
	SOJGE	T1,PUTTLP	;REPEAT FOR EACH LEVEL
PUTTL1:	POPJ	P,		;RETURN


PUTTIM:	IDIVI	T1,^D60		;GET HOURS AND MINUTES
	PUTDEC	LPT,T1		;HOURS FIRST
	PUTCHR	LPT,[":"]
	IDIVI	T2,^D10		;SPLIT MINUTES INTO 2 DIGITS
	PUTDEC	LPT,T2
	PUTDEC	LPT,T3
	POPJ	P,		;RETURN

	DEFINE	LISTL(ARG),<
	IRP	ARG,<ASCII	/ARG/>>

MONTAB:	LISTL	<Jan,Feb,Mar,Apr,May,Jun,Jul,Aug,Sep,Oct,Nov,Dec>

PUTDAT:	IDIVI	T1,^D31		;GET DAY NUMBER-1
	AOS	T2		;GET DAY NUMBER
	PUTDEC	LPT,T2		;TYPE IT
	PUTCHR	LPT,["-"]
	IDIVI	T1,^D12
	PUTSTR	LPT,,MONTAB(T2)
	PUTCHR	LPT,["-"]
	ADDI	T1,^D1964
	PUTDEC	LPT,T1
	POPJ	P,

SPYDSK:	MOVE	P4,400410	;GET ADDRESS OF .GTSLF
	MOVE	P3,400000+.GTLVD(P4)	;GET ADDRESS OF LEVEL-D TABLE
	MOVE	T1,400000+11(P3)	;GET NUMBER OF BLOCKS
	MOVEM	T1,CORNUM	;STORE FOR LATER
	LSH	T1,3		;CONVERT TO WORDS
	MOVEM	T1,WRDCNT	;STORE FOR LATER
	MOVE	T2,.JBFF##	;GET CURRENT FIRST FREE
	MOVEM	T2,CORPNT	;STORE.
	ADDB	T1,.JBFF##	;UPDATE FIRST FREE
	SOS	T1		;POINT TO LAST WORD
	CAMG	T1,.JBREL##	;HAVE THE CORE?
	JRST	HCORE7		;YES
	CORE	T1,		;NO--GET IT
	  ERROR	<No core to copy monitor's data base>
HCORE7:	HLRZ	T1,400000+7(P3)	;GET START OF DATA BASE
HCORE8:	HLRZ	T2,400000+3(T1)	;POINT TO NEXT UDB
	CAIG	T1,(T2)		;IF NEXT IS A LOWER ADDRESS,
	JRST	HCORE9		; THE 1ST UDB WAS CREATED AFTER SYSTEM STARTED
	MOVE	T1,T2		;SO START AT LOWER UDB
	JRST	HCORE8
HCORE9:	MOVEM	T1,SPPB		;STORE FOR LATER
	HRLI	T1,400000(T1)	;PUT IN LH(T1)
	HRR	T1,CORPNT	;MAKE INTO A BLT POINTER
	HRRZ	T2,CORPNT	;GET THAT START ADR AGAIN
	ADD	T2,WRDCNT	;POINT 1 PAST END OF DATA
	BLT	T1,-1(T2)	;AND COPY THE DATA BASE!
	MOVE	T1,400000+5(P3)	;GET SYSPPB AGAIN
	MOVEM	T1,SYSPPB	;AND STORE IT
	MOVE	T1,400000+76(P3);GET SYSCOR
	MOVEM	T1,SYSCOR	;STORE
	MOVE	T1,400000+75(P3);GET SYSDOR
	MOVEM	T1,SYSDOR	;AND STORE FOR LATER
	POPJ	P,



	UTIL
	END	BEGIN