Fixed typos.

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

diff --git a/src/errcon.mac b/src/errcon.mac
index 057ec28..84abe72 100644 (file)
--- a/src/errcon.mac
+++ b/src/errcon.mac
@@ -21,7 +21,8 @@ ERRCON:
 ;      RETURN TO RESCHEDULE NEW USER\r
 \r
 INTERNAL APRILM\r
-EXTERNAL USRREL,CONMES,HOLD,INLMES,JOBN,PJOBN,PRQM\r
+EXTERNAL USRREL,APRPC\r
+EXTERNAL APRERR,CONMES,HOLD,INLMES,JOBN,PJOB,PRQM\r
 EXTERNAL STOP1,TTYFUW,USRXIT,UUO0,WSCHED\r
 \r
 APRILM:        SETZM APRERR            ;CLEAR FLAG IMMEDIATELY,IN CASE OTHER ERRORS OCCUR\r
@@ -55,7 +56,7 @@ APRPDL:       TRNN TAC,POV            ;PUSHDOWN OVERFLOW?
        JSP DAT,UERROR          ;NO, MUST BE HARDWARE PROBLEM\r
        JSP TAC,ERRPTU          ;YES\r
        ASCIZ /PDL OV/\r
-ASPSC: MOVE TAC1,APRPO         ;PRINT APR PC\r
+APRSCD:        MOVE TAC1,APRPC         ;PRINT APR PC\r
        JRST PCPNT              ;AS:\r
                                ; 1)"AT USER LOC XXX" OR\r
                                ; 2)"AT EXEC LOC XXX; EXEC CALLED FROM \r
@@ -151,7 +152,7 @@ IFN FTHALT,<
        HALT    .+1                     ;YES, HALT SO DUMP CAN BE TAKEN\r
                                        ; CONTINUE WILL PRINT MESSAGE\r
 >\r
-       SOSJ TAC1,PCPNT         ;AND PRINT, PRINT USER UUO PC IF DIFF.\r
+       SOJA TAC1,PCPNT         ;AND PRINT, PRINT USER UUO PC IF DIFF.\r
 \r
 ;ILLEGAL INSTRUCTION\r
 \r
@@ -223,14 +224,14 @@ INTERNAL HNGSTP
 HNGSTP:        PUSH PDP,ITEM\r
        PUSH PDP,IOS\r
        PUSH PDP,DEVDAT         ;SAVE DEV'S IOS WORD & DDB\r
-       PUSHJ PDP,TTYFUN        ;FIND JOB'S TTY & WAIT UNTIL I/O IS FINISHED\r
+       PUSHJ PDP,TTYFUW        ;FIND JOB'S TTY & WAIT UNTIL I/O IS FINISHED\r
        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
 ^C\r
-\r
-./     PUSHJ PDP,TTYSTC        ;START UP TTY IN COMMAND MODE\r
+./\r
+       PUSHJ PDP,TTYSTC        ;START UP TTY IN COMMAND MODE\r
        POP PDP,DEVDAT          ;BRING BACK DEV DDB & IOS WORD\r
        POP PDP,IOS\r
        PUSHJ PDP,STOP1         ;STOP JOB &\r
@@ -256,7 +257,7 @@ IFN FTTTYSER,<EXTERNAL TTYERP>
 \r
 ERRPTU:        SKIPA ITEM,JOB          ;BLAME CURRENT JOB IS NOT 0.\r
 ERRDEV:        LDB ITEM,PJOBN          ;JOB NO, FROM DEVICE DATA BLOCK\r
-ERRPNT: SKIPM ITEM             ;ERROR IN NULL JOB?\r
+ERRPNT: SKIPN ITEM             ;ERROR IN NULL JOB?\r
        SETOM NULERR            ;YES, SET FLAG FOR ERROR IN NULL JOB\r
                                ; SO STATE OF NULL JOB WILL BE REESTABLISHED\r
                                ; WHEN IS IT RUN AGAIN(SEE CLOCK1)\r
@@ -436,3 +437,4 @@ IFE FTTTYSER,<
 \r
 ERREND:        END\r
 \f\r
+\0
\ No newline at end of file