Cleaned up more typos and fixed paging issues.

[retro-software/dec/tops10/v4.5.git] / src / errcon.mac

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