Google
 

Trailing-Edge - PDP-10 Archives - tops10_tools_bb-fp64a-sb - 10,7/rdreg/rdreg.mac
There are 5 other files named rdreg.mac in the archive. Click here to see a list.
	TITLE	RDREG -- Read and interpret Massbus registers
	SUBTTL	G.M. Uhler/GMU


;This program asks the user for an RH20 device code, an optional drive
;select unit number, and a CPU number if on a multi-CPU (TOPS-10) system and
;reads and interprets the massbus registers of the specified device.
;The program is assembled with a separate universal file, DEFS, that
;defines macros that give the massbus registers to interpret and the
;definitions of bits and fields in each register.  In this manner,
;only the UNIVERSAL file need be changed to change the type of device
;being interpreted.  The program is assembled for either TOPS-10 or TOPS-20
;by changing the definition of the parameter TOPS in the universal file
;RDRMAC.  This need be done only once when the program is moved to a new
;operating system.



;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.
	SUBTTL	Assembly directives


	SEARCH	RDRMAC		;Get the monitor specific definitions
	SEARCH	DEFS		;Get the Massbus register definitions

IF TOPS-10,<
	SEARCH	JOBDAT,MACTEN,UUOSYM
	.REQUIRE REL:SCAN
>
IF TOPS-20,<
	SEARCH	MONSYM,MACSYM
>
	.DIRECTIVE .XTABM,FLBLST
	SALL



	RDRVER==1		;Major version
	RDRMIN==0		;Minor version
	RDREDT==6		;Edit number
	RDRWHO==0		;Who edited


;Define the version number information for TOPS-10 and setup the program
;so that it's running as a sharable high segment.

IF TOPS-10,<
	LOC	.JBVER
	VRSN.	(RDR)
	RELOC
	TWOSEG
	RELOC	400000
>

;Define the entry vector for TOPS-20

IF TOPS-20,<
ENTVEC:	JRST	RDREG		;Start instruction
	JRST	RDREG		;Restart instruction
	FLD(RDRVER,VI%MAJ)!FLD(RDRMIN,VI%MIN)!FLD(RDREDT,VI%EDN)!FLD(RDRWHO,VI%WHO)
				;Version number
ENTLEN==.-ENTVEC		;Length of the entry vector
> ;End IF TOPS-20
	SUBTTL	Parameter definitions


;Miscelaneous definitions

PDLLEN==50			;Length of stack
DRAES==1B9			;Disable register access error interrupt
.DXDTR==06B5			;Drive type register
.FTBIT==1			;Field type is bit
.FTVAL==2			;Field type is value
.FTNVL==3			;Field type is value (negative number)
OPDEF XCONI[700240,,0]		;Because CONI is a macro also
	SUBTTL	Program initialization


RDREG:	JFCL			;No CCL entry
	RESET			;Clear the world
	MOVE	P,[IOWD PDLLEN,PDL] ;Setup a PDL
IF TOPS-10,<
	MOVEI	T1,0		;Force .TCHAR in SCAN to
	CALL	.TYOCH##	;  do an OUTCHR
> ;End IF TOPS-10
	CALL	ASKDVC		;Get the device code
	  JRST	BADDVC		;Bad device code
	CAIL	N,540		;Range check the
	CAILE	N,574		;  RH20 device code for legality
	CAIA			;Illegal
	TRNE	N,3		;And must be only 7 bits
	JRST	BADDVC		;Bad device code
	LSH	N,-2		;Convert to 7 bit form
	DPB	N,[POINT 7,DODATO,9] ;Store device code in DATAO
	DPB	N,[POINT 7,DODATI,9] ;Store device code in DATAI
	DPB	N,[POINT 7,DOCONI,9] ;Store device code in CONI
	MOVEI	N,0		;Assume no unit number required
IFN FTDSEL,<
	CALL	ASKUNI		;Ask for unit number
	  JRST	BADUNI		;Bad unit number
	JUMPL	N,BADUNI	;Range check the
	CAILE	N,7		;  drive select value
	JRST	BADUNI		;Go if error
> ;End IFN FTDSEL
	HRLZM	N,DRVSEL	;Save the drive select value
IF TOPS-10,<
	MOVX	T1,%CNST2	;GETTAB arg to get CNFST2
	GETTAB	T1,		;Get it
	  HALT	.		;Can't happen
	TXNE	T1,ST%LSC	;Low seg cached (i.e. only 1 CPU)?
	JRST	RDREG0		;Yes, don't ask about CPU number
	MOVEI	T1,0		;No arg for .QSCAN
	CALL	.QSCAN##	;Initialize input line
	HRROI	T1,[ASCIZ/CPU number: /]
	CALL	TSTRG		;Prompt the user
	CALL	OCTNW		;Get the number
	CAIL	N,0		;Range check the CPU number
	CAILE	N,5		;...
	JRST	BADCPU		;If illegal
	MOVX	T1,SP.CR0	;Get bit for CPU0
	LSH	T1,(N)		;Shift by value of CPU
	HRLI	T1,.STCPU	;Function for SET CPU ONLY CPUn
	SETUUO	T1,		;Restrict execution to that CPU
	  JRST	NOSCPU		;Failed
RDREG0:
> ;End IF TOPS-10
	USRIOT			;Get USRIOT privs from monitor
	  JRST	NOTRPS		;Request failed
	CALL	CHKDTR		;See if drive type is one we know about
	  JRST	BADDTR		;No, tell him
	HRROI	T1,[ASCIZ/

Rg Name      Contents        Text
-- ----   -------------- ----------------------------------------
/]
	CALL	TSTRG		;Type the header
	SUBTTL	Register read and print logic


	MOVSI	P1,-REGTBL	;Get AOBJN pointer to register table
	XCT	DOCONI		;Get the CONI
	JRST	RDREG2		;Skip the rest for the CONI
RDREG1:	MOVE	T1,DRVSEL	;Get drive select
	TXO	T1,DRAES	;Set DRAES
	HLRZ	T2,REGTAB(P1)	;Get register to read from table
	DPB	T2,[POINT 6,T1,5] ;Store in DATAO word
	XCT	DODATO		;Setup the preparation register
	IMULI	T1,1		;Stall
	IMULI	T1,1		;...
	XCT	DODATI		;Read the value
	LDB	T3,[POINT 6,T1,5] ;Get register select back
	CAIE	T3,(T2)		;Same as what we asked for?
	JRST	RDREG1		;No, took an interrupt at the wrong time
RDREG2:	MOVEM	T1,MBRTAB(P1)	;Store in the table
	AOBJN	P1,RDREG1	;Loop for all elements in the table
	MOVSI	P1,-REGTBL	;Build the AOBJN pointer again
	HRROI	T1,[ASCIZ/  /]	;No register number to print for CONI
	CALL	TSTRG		;  so don't try
	JRST	RDREG4		;Join common processing
RDREG3:	HLRZ	T1,REGTAB(P1)	;Get register back
	CALL	.TOCT2		;Type as 2 digit octal number
RDREG4:	CALL	TSPAC		;Add a space separator
	HRRZ	P3,REGTAB(P1)	;Get address of block for this register
	MOVE	T2,0(P3)	;Get SIXBIT name of register
	CALL	.T6ALL		;Type as full SIXBIT name
	CALL	TSPAC		;Add a space separator
	MOVE	T2,MBRTAB(P1)	;Get the octal value
	CALL	.T12DG		;Type as 12 octal digits
	MOVEI	C," "		;Make the separator a space
RDREG5:	SKIPN	T1,1(P3)	;Any more fields left to do?
	JRST	RDREG9		;No
	SKIPL	2(P3)		;This field valid for all types?
	CAMN	DTR,2(P3)	;No, is it legal for this one?
	CAIA			;Yes, continue
	JRST	RDREG8		;No, skip it
	LDB	T1,T1		;Get the field from P2
	HLRZ	T2,3(P3)	;Get the type of field
	CAIN	T2,.FTBIT	;Is it a bit?
	JUMPE	T1,RDREG8	;Yes, don't print if it's off
	PUSH	P,T1		;Save the value
	MOVE	T1,C		;Move the separator to T1
	CALL	TCHAR		;Type the separator
	HRRO	T1,3(P3)	;Get the string for this field
	CALL	TSTRG		;Type it
	CAIE	T2,.FTVAL	;This a value field?
	CAIN	T2,.FTNVL	;  or a negative value field?
	SKIPA	T1,["="]	;Yes, get the separator
	JRST	RDREG7		;No, continue
	CALL	TCHAR		;Print it
	SKIPE	T1,0(P)		;Get the value back but don't negate if 0
	CAIE	T2,.FTNVL	;Is it a negative value field?
	JRST	RDREG6		;No, just print as-is
	SETOM	T2		;Get a full mask of ones
	LDB	T3,[POINT 6,1(P3),11] ;Get the size of the field
	LSH	T2,(T3)		;Shift the ones mask that much
	IOR	T1,T2		;Make it a full 36 bit negative number
	MOVNS	T1		;Negate it
RDREG6:	CALL	TOCTW		;Type in octal
RDREG7:	POP	P,(P)		;Flush the stack
	MOVEI	C,","		;Change the separator
RDREG8:	ADDI	P3,3		;Step block pointer by length of field
	JRST	RDREG5		;  and loop for next field
RDREG9:	HRROI	T1,[ASCIZ/
/]				;Get a CRLF
	CALL	TSTRG		;End the line
	AOBJN	P1,RDREG3	;Loop for all registers
	RESET			;Clear the world
	MONRT.			;Exit quietly
	JRST	RDREG		;Resart if CONTINUE
	SUBTTL	Error processing



BADDVC:	SKIPA	T1,[-1,,[ASCIZ/
?Illegal RH20 device code
/]]
NOTRPS:	HRROI	T1,[ASCIZ/
?Failed to get USRIOT privilegs
/]
	CALL	TSTRG
	EXIT

IF TOPS-10,<
BADCPU:	SKIPA	T1,[-1,,[ASCIZ/
?Illegal CPU number
/]]
NOSCPU:	HRROI	T1,[ASCIZ/
?Unable to restrict execution to specified CPU
/]
	CALL	TSTRG
	EXIT
> ;End IF TOPS-10

IFN FTDSEL,<
BADUNI:	SKIPA	T1,[-1,,[ASCIZ/
?Illegal unit number
/]]
> ;End IFN FTDSEL

BADDTR:	HRROI	T1,[ASCIZ/
?Drive type register does not match known values
/]
	CALL	TSTRG
	EXIT
	SUBTTL	Subroutines


;Routine to print a number left-padded to a least size two with spaces.
;Call:
;	T1/Number
;	CALL	.TOCT2
;Return CPOPJ always

.TOCT2:	CAILE	T1,7		;One digit?
	PJRST	TOCTW		;No, print as-is
	PUSH	P,T1		;Save the number
	CALL	TSPAC		;Type a space
	POP	P,T1		;Restore the number
	PJRST	TOCTW		;Type it


;Routine to print all 6 characters of a SIXBIT name.
;Call:
;	T2/SIXBIT word
;	CALL	.T6ALL
;Return CPOPJ always

.T6ALL:	MOVEI	T3,6		;Setup loop count
.T6AL1:	LSHC	T1,^D36		;Move to T1, clear T2
	LSHC	T1,-^D30	;Keep just one character in T1
	ADDI	T1,"A"-'A'	;Convert to ASCII
	CALL	TCHAR		;Type it
	SOJG	T3,.T6AL1	;Loop for all six
.HELPR::RET			;Return


;Routine to print a number as six octal digits separated by commas.
;Call:
;	T2/Number
;	CALL	.T12DG
;Return CPOPJ always

.T12DG:	PUSH	P,T2		;Save the number
	CALL	.T12D1		;Type the left half
	HRROI	T1,[ASCIZ/,,/]	;Separate the two halves
	CALL	TSTRG		;  by commas
	POP	P,T2		;Restore the number
	HRLZS	T2		;Keep only right half
.T12D1:	MOVEI	T3,6		;Get a loop count
.T12D2:	LSHC	T1,^D36		;Move number to T1, clear T2
	LSHC	T1,-^D33	;Keep only 3 bits
	ADDI	T1,"0"		;Convert to ASCII
	CALL	TCHAR		;Type it
	SOJG	T3,.T12D2	;Loop for all
	RET			;Return
;Routine to read the drive type register from the specified drive
;and check it against the table of the ones we know about.
;Call:
;	CALL	CHKDTR
;Return CPOPJ if no match
;	CPOPJ1 if match with DTR set to the index

CHKDTR:	MOVX	T1,.DXDTR!DRAES ;Get drive type register
	IOR	T1,DRVSEL	;Include drive select field
	XCT	DODATO		;Setup the preparation register
	IMULI	T1,1		;Stall
	IMULI	T1,1		;...
	XCT	DODATI		;Read the value
	LDB	DTR,[POINT 6,T1,5] ;Get the register select field
	CAIE	DTR,<.DXDTR_-^D30> ;Was it the register we wanted?
	JRST	CHKDTR		;No, try again
	ANDI	T1,77		;Isolate just the drive type
	MOVSI	DTR,-DTRTBL	;Build AOBJN pointer to table
CHKDT1:	CAME	T1,DTRTAB(DTR)	;Find a match?
	AOBJN	DTR,CHKDT1	;No, loop for all
	JUMPGE	DTR,.POPJ	;Return error if no match
	TLZ	DTR,-1		;Clear the LH
.POPJ1:	AOS	0(P)		;Give skip return
.POPJ:	RET			;Return

;Define the table of drive types that we know about.

DEFINE DTRTYP(A,B),<
	EXP	A
.DT'B==.-DTRTAB-1
>

DTRTAB:	DRVTYP
DTRTBL==.-DTRTAB
	SUBTTL	TOPS-10 specific support routines


;The following equivalences define the local routines in terms of routines
;in SCAN for TOPS-10.

IF TOPS-10,<
TCHAR==.TCHAR##			;Type a character
TSTRG==.TSTRG##			;Type a string
OCTNW==.OCTNW##			;Input an octal number
TSPAC==.TSPAC##			;Type a space
TOCTW==.TOCTW##			;Type an octal number


;Routine to ask the user for the RH20 device code.
;Call:
;	CALL	ASKDVC
;Return CPOPJ if error
;	CPOPJ1 with number in N

ASKDVC:	MOVEI	T1,0		;No arg for .QSCAN
	CALL	.QSCAN##	;Initialize input line
	HRROI	T1,[ASCIZ/
RH20 device code: /]
	CALL	TSTRG		;Prompt the user
	CALL	OCTNW		;Get the number
	RETSKP			;Give skip return


IFN FTDSEL,<
;Routine to ask the user for the massbus unit number.
;Call:
;	CALL	ASKUNI
;Return CPOPJ if error
	CPOPJ1 with number in N

ASKUNI:	MOVEI	T1,0		;No arg for .QSCAN
	CALL	.QSCAN##	;Initialize input line
	HRROI	T1,[ASCIZ/Unit number (drive select): /]
	CALL	TSTRG		;Prompt the user
	CALL	OCTNW		;Get the number
	RETSKP			;Give skip return
> ;End IFN FTDSEL
> ;End IF TOPS-10
	SUBTTL	TOPS-20 specific support routines


IF TOPS-20,<
;Routine to print a space character.
;Call:
;	CALL	TSPAC
;Return CPOPJ always

TSPAC:	HRROI	T1,[ASCIZ/ /]	;Get the space
;;	PJRST	TSTRG		;Fall into TSTRG


;Routine to print a string.
;Call:
;	T1/Byte pointer to string
;	CALL	TSTRG
;Return CPOPJ always

TSTRG:	PSOUT			;Output the string
	RET			;Return


;Routine to print a character.
;Call:
;	T1/Character to print
;	CALL	TCHAR
;Return CPOPJ always
;Preserves all but T1

TCHAR:	PUSH	P,T2		;Save T2
	LSHC	T1,-^D36	;Move character to T2, clear rest of word
	LSHC	T1,^D36-^D7	;Left justify character in T2
	HRROI	T1,T2		;Get a byte pointer to the character
	PSOUT			;Output it
	POP	P,T2		;Restore T2
	RET			;Return


;Routine to print an octal number.
;Call:
;	T1/number to print
;	CALL	TOCTW
;Return CPOPJ always
;Destroys T1, T2, T3

TOCTW:	MOVE	T2,T1		;Copy number to T2
	MOVX	T1,.PRIOU	;Destination is primary output device
	MOVX	T3,FLD(^D8,NO%RDX) ;Radix is octal
	NOUT			;Output the number
	  HALT	.		;Shouldn't happen
	RET			;Return
;Routine to ask the user for the RH20 device code.
;Call:
;	CALL	ASKDVC
;Return CPOPJ if error
;	CPOPJ1 with number in N

ASKDVC:	HRROI	T1,[ASCIZ/
RH20 device code: /]
	PJRST	ASKNUM


IFN FTDSEL,<
;Routine to ask the user for the massbus unit number.
;Call:
;	CALL	ASKUNI
;Return CPOPJ if error
	CPOPJ1 with number in N

ASKUNI:	HRROI	T1,[ASCIZ/Unit number (drive select): /]
	PJRST	ASKNUM
> ;End IFN FTDSEL


;Routine to ask the user for an octal number.
;Call:
;	T1/Byte pointer to prompt string
;	CALL	ASKNUM
;Return CPOPJ if error
;	CPOPJ1 with number in N

ASKNUM:	MOVE	T3,T1		;Copy byte pointer to T3 for RDTTY
	PSOUT			;Prompt the user
	SETZM	NUMBUF		;Clear first word of NUMBUF
	MOVE	T1,[NUMBUF,,NUMBUF+1] ;Setup to clear it all
	BLT	T1,NUMBUF+NUMBLN-1 ;Clear it all
	HRROI	T1,NUMBUF	;Get byte pointer to NUMBUF
	MOVEI	T2,NUMBLN*5	;Get length of buffer in bytes
	RDTTY			;Read the string from the user
	  RET			;Failed
	HRROI	T1,NUMBUF	;Get byte pointer to NUMBUF again
	MOVEI	T3,^D8		;Radix is octal
	NIN			;Read the number
	  RET			;Failed
	MOVE	N,T2		;Return the number in N
	ILDB	T2,T1		;Get next byte
	JUMPE	T2,.POPJ1	;Give skip return if end of line
	RET			;Else error
> ;End IF TOPS-20
	SUBTTL	Generate the tables from the macros


;Define a macro to generate byte pointers from the mask in the
;FIELDS macro definition.  Stupid MACRO chokes on the one in MACTEN
;unless the argument to the POS macro is symbolic.

DEFINE	POINTR(LOC,MASK),<
	POSN==POS(<MASK>)
	SIZ==WID(<MASK>)
	POINT	SIZ,LOC,POSN
>


;Define the first-level table that gives the registers that we want to
;read and the address of the block describing the fields in that register.

DEFINE XX(A,B),<
	XWD	A,.'B
>

REGTAB:	REGS
REGTBL==.-REGTAB


;Now, for each register defined in the REGTAB table, define another
;table giving its SIXBIT mnemonic and the fields that we want to
;interpret in the register.

DEFINE XX(A,B),<
.'B:	SIXBIT/B/
	B
	EXP	0
>

DEFINE FIELDS(A,B,C,D),<
IFIDN <C>,<BIT>,<..XX==.FTBIT>
IFIDN <C>,<VAL>,<..XX==.FTVAL>
IFIDN <C>,<NVAL>,<..XX==.FTNVL>
IFIDN <D>,<ALL>,<..YY==-1>
IFDIF <D>,<ALL>,<..YY==.DT'D>
	POINTR	MBRTAB(P1),A
	EXP	..YY
	XWD	..XX,[ASCIZ\B\]
>
	REGS
	SUBTTL	Low segment data locations


	XLIST			;Literals under XLIST
	LIT
	LIST

IF TOPS-10,<
	RELOC
>


DODATO:	DATAO	0,T1		;Device code patched in
DODATI:	DATAI	0,T1		;Ditto
DOCONI:	XCONI	0,T1		;Ditto
DRVSEL:	BLOCK	1		;Drive select value in bits 15-17
MBRTAB:	BLOCK	REGTBL		;Registers stored here
PDL:	BLOCK	PDLLEN		;Push down list
IF TOPS-20,<
NUMBUF:	BLOCK	2		;Storage for numbers read in
NUMBLN==.-NUMBUF		;Length of buffer
> ;End IF TOPS-20


IF TOPS-10,<
	END	RDREG
> ;End IF TOPS-10

IF TOPS-20,<
	END	<ENTLEN,,ENTVEC>
> ;End IF TOPS-20