.MACRO TSTERR MSG,?OK,?ERRMES,?ERRCOD ; ; ERROR-TESTING MACRO TO BE USED AFTER PROGRAMMED ; REQUEST. TEST C-BIT. IF SET, PRINTS MSG ; AND THE CONTENTS OF BYTE 52. THEN EXITS ; ; The following programs are used in the RT-11 User and RT-11 ; Programmer self paced instruction courses for RT-11 V4.They are also ; similar to programs used in the Programming with RT-11 series for ; RT-11 V5.0 or later. The name of the files are as specified in the ; self paced course. ; ; The code is supplied as a service as Digital does not supply these ; on diskette. ; Any copyright is the property of Digital Equipment Corporartion ; ; .MCALL .PRINT,.EXIT ; BCC OK MOVB @#52,ERRCOD ;R1=EMT ERROR CODE BISB #60,ERRCOD ;CONVERT TO ASCII .PRINT #ERRMES ;PRINT ERROR MESSAGE CLR R0 ;DO ABORTIVE EXIT .EXIT ERRMES: .ASCII /MSG/<15><12> ;USER'S MESSAGE .ASCII /ERROR CODE: / ERRCOD: .BLKB 1 ;STORAGE FOR ERROR CODE .BYTE 0 ;NULL TO END PRINT .EVEN OK: ;ERROR-FREE EXIT TO PROGRAM .ENDM TSTERR .END