.TITLE GCERR - GCML ERROR MESSAGE PRINTER ; ; GCERR - PRINTS ERROR FROM GCML ; ; .MCALL PSTR,PDEC .MCALL PERRM,DEFERR,ENDERR .MCALL GCMLD$ ; GCMLD$ ; ; GCERR:: JSR R0,QUTERD ;SAVE REGS AND DSW MOVB G.ERR(R0),R1 ;GET ERROR CODE BMI 1$ ;OK JMP UNKERR ;SOMETHING STRANGE 1$: PSTR ^*/GCML ERROR /* PDEC R1,SIGN ;PRINT ERROR CODE CALL QUTPC ;AND PC AT CALL PERRM R1,#GERRTB ;PRINT ERROR MESSAGE CMP R1,#GE.IOR ;I/O ERROR? BNE 2$ ;NO JMP IOERR0 ;YES, TRY TO PRINT IT 2$: JMP DIE ;FINISHED ; ; DEFERR GE.IOR,-GE.IOR, DEFERR GE.OPR,-GE.OPR, DEFERR GE.BIF,-GE.BIF, DEFERR GE.MDE,-GE.MDE,<@ NESTING TOO GREAT> DEFERR GE.EOF,-GE.EOF ENDERR GERRTB ; ; .END