X-Git-Url: http://git.sky-visions.com/cgi-bin/gitweb.cgi/retro-software/dec/tops10/v4.5.git/blobdiff_plain/bb920f47d2b4fd2ac0c46c72df890dfe6931e943..0000ed8f3efcdbf411f6c91517909089e5d7ef5d:/src/errcon.mac

diff --git a/src/errcon.mac b/src/errcon.mac
index b0343e8..fbcb102 100644
--- a/src/errcon.mac
+++ b/src/errcon.mac
@@ -11,7 +11,6 @@ ERRCON:
 ;THEN THE JOB IS STOPPED AND CONSOLE IS RETURNED TO
 ;MONITOR COMMAND MODE
 
-
 ;APR DETECTED ERRORS
 ;PUSHDOWN OVERFLOW,ILLEGAL MEMORY, NONEXISTENT MEMORY
 ;FOR WHICH THE USER IS NOT ENABLED.
@@ -45,8 +44,8 @@ IFN FT2REL,<
 APRILR:	JSP TAC,ERRPTU
 	ASCIZ /ILL MEM REF/
 	JRST APRSCD		;PRINT LOC, THEN STOP JOB
-
-APRNXM:	TRNN TAC,NXM		;NON-EX MEM?
+
+APRNXM:	TRNN TAC,NXM		;NON-EX MEM?
 	JRST APRPDL		;NO
 	JSP TAC,ERRPTU		;YES
 	ASCIZ /NON EX MEM/
@@ -61,7 +60,8 @@ APRSCD:	MOVE TAC1,APRPC		;PRINT APR PC
 				; 1)"AT USER LOC XXX" OR
 				; 2)"AT EXEC LOC XXX; EXEC CALLED FROM 
 				; EXEC/USER LOC YYY
-;ADDRESS CHECK ERROR AT ANY LEVEL
+
+;ADDRESS CHECK ERROR AT ANY LEVEL
 ;DEVDAT MUST BE SET UP TO POINT TO OFFENDING DEVICE
 
 INTERNAL ADRERR
@@ -111,7 +111,8 @@ ILLINP:	JSP TAC,ERRPTU
 	PUSHJ PDP,ERNAM		;PRINT "DEVICE XXX"
 	JSP TAC,UUOMES		;PRINT MESSAGE,UUOPC,STOP JOB
 	ASCIZ / CANNOT DO INPUT/
-;OUTPUT UUO FOR INPUT DEVICE
+
+;OUTPUT UUO FOR INPUT DEVICE
 ;CALLED AT UUO LEVEL ONLY
 
 INTERNAL ILLOUT
@@ -214,7 +215,9 @@ INTERNAL DEVEXC
 
 DEVEXC:	PUSHJ PDP,ERNAM		;PRINT "DEVICE XXX"
 	JRST EXCALP		;PRINT "EXEC CALLED FROM EXEC/USER LOC YYY"
-;ROUTINE TO HALT A JOB WHEN A DEVICE IS NOT READY FOR I/O
+
+
+;ROUTINE TO HALT A JOB WHEN A DEVICE IS NOT READY FOR I/O
 ;CALLED FROM XXSER AT UUO LEVEL
 ;CALL	MOVE DEVDAT,ADDR. OF DEV. DDB
 ;	PUSHJ PDP,HNGSTP
@@ -228,8 +231,9 @@ HNGSTP:	PUSH PDP,ITEM
 	PUSHJ	PDP,PRQM	;PRINT QUESTION MARK FOR BATCH
 	PUSHJ PDP,ERNAM		;PRINT "DEVICE XXX"
 	PUSHJ PDP,INLMES	;AND MSG.
-ASCIZ	/OK?
+ASCIZ	/ OK?
 ^C
+
 ./
 	PUSHJ PDP,TTYSTC	;START UP TTY IN COMMAND MODE
 	POP PDP,DEVDAT		;BRING BACK DEV DDB & IOS WORD
@@ -237,7 +241,8 @@ ASCIZ	/OK?
 	PUSHJ PDP,STOP1		;STOP JOB &
 	POP PDP,ITEM
 	JRST WSCHED		;RESCHEDULE
-;COMMON ERROR MESSAGE SETUP ROUTINES
+
+;COMMON ERROR MESSAGE SETUP ROUTINES
 ;CALL:	JSP TAC,ERRPTU, ERRDEV, OR ERRPNT
 ;	ASCIZ /MESSAGE/
 ;	RETURNS HERE WITH DEVDAT SAVED 0(PDP)
@@ -329,7 +334,8 @@ EXCALP:	PUSHJ PDP,INLMES
 PCSTOP:	PUSHJ PDP,HOLD		;STOP JOB, START TTY AND SET JOB ERROR BIT
 	POP PDP,DEVDAT		;RETURN ONLY IF AT INTERRUPT LEVEL
 	JRST TPOPJ		;REMOVE ERROR CALL AND RETURN
-;ROUTINE TO PRINT PC AS:
+
+;ROUTINE TO PRINT PC AS:
 ;1) "EXEC LOC XXX" OR "USER LOC XXX"
 ;CALL:	MOVE TAC1,PC TO PRINT(LH=PC FLAGS)
 ;	PUSHJ PDP,PCP
@@ -345,6 +351,7 @@ PCP:	MOVEI TAC,XMODE		;ASSUME PC IN EXEC MODE
 	HRRZ TAC,TAC1		;PRINT RIGHT HALF IN OCTAL
 				; FALL INTO OCTPNT
 
+
 INTERN OCTPNT
 
 ;ROUTINE TO PRINT 6 DIGIT OCTAL NUMBER
@@ -400,7 +407,8 @@ IFE FTTTYSER,<
 	IDPB	TAC,DAT		;ADD CHAR TO HALGF DUPLEX OUTPUT STREAM
 	POPJ PDP,
 >
-;ROUTINE TO PRINT "DEVICE XXX"
+
+;ROUTINE TO PRINT "DEVICE XXX"
 ;CALL	MOVE DAT,ASCII OUTPUT BYTE POINTER
 ;	PUSH PDP,DEVDAT
 ;	PUSHJ PDP,ERNAM
@@ -412,6 +420,7 @@ ERNAM:	PUSHJ PDP,INLMES
 	SKIPE TAC1,-1(PDP)	;IS DEVDAT = 0?
 	MOVE TAC1,DEVNAM(TAC1)	;NO, GET DEVICE NAME
 
+
 ;ROUTINE TO PRINT SIXBIT NAME
 ;CALL	MOVE DAT,ASCII OUTPUT BYTE POINTER
 ;	MOVE TAC1,NAME