.TITLE DIRERR - DIR ERROR MESSAGE PRINTER ; ; DIRERR - PRINTS ERROR MESSAGE FROM DIRECTIVES ; ;CALL: ; DIR$ DIRECTIVE,DIRERR (OR SIMILAR) ; ; .MCALL PSTR,PDECB,PCRLF,QT$ERR ; ; DIRERR::JSR R0,QUTERD ;SAVE REGISTERS AND DSW MOV QUTDSW,R1 ;GET BACK $DSW BMI 1$ ;DSW INDICATED ERROR, PRINT IT JMP UNKERR ;NO, PRINT MESSAGE SAYING SO 1$: PSTR ^*/DIRECTIVE ERROR /* PDECB R1,SIGN ;PRINT ERROR NUMBER CALL QUTPC QT$ERR DIRERR BCS 2$ PCRLF 2$: JMP DIE ; ; .END