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