.TITLE ERROR SUBROUTINE .SBTTL DOCUMENTATION ; ; AUTHOR T G KELLY ; DEPARTMENT OF PATHOLOGY ; UNIVERSITY OF SOUTH ALABAMA ; ; DATE 31-JAN-78 ; ; THIS ROUTINE HANDLES ERROR MESSAGE PRINTOUT ; FOR EXFILE.MAC. ; AFTER THE JSR R5,ERR1,R5 IS POINTING TO THE ; CATEGORY OF ERROR (I.E. ERREAD,ERWRIT,ECT.). ; REGISTER R0 CONTAINS THE ERROR FOUND IN LOCATION ; 52 AFTER AN ERROR DURING A PROGRAMMED REQUEST. ; THIS NUMBER IS DOUBLED AND ADDED TO R5 TO GIVE ; THE ADDRESS OF THE ERROR MESSAGE TO BE PRINTED ; R5 MUST BE INCREMENTED BEFORE THE RTS R5 TO ; POINT TO THE NEXT INSTRUCTION. ; ; SEE VECTOR.MAC FOR FURTHER DOCUMENTATION ; .SBTTL MACRO CALLS ; .MCALL ..V2..,.REGDEF ..V2.. ;VERSION 2 MACROS .REGDEF ;REGISTER DEFINITIONS .MCALL .PRINT ; .GLOBL ERR1,ERR2 ; .SBTTL MAIN ; ERR1: DEC R0 ;REMOVE OFFSET ADDED AT SATELITE ERR2: BIC #177770,R0 ;MASK ANY GARBAGE ASL R0 ;MULTIPLY R0 BY 2 ADD (R5),R0 ;FOR WORD ADDRESS MOV (R0),R0 ;ADDRESS OF MESSAGE IS IN R0 .PRINT R0 ;PRINT ERROR MESSAGE INC R5 ;POINT TO NEXT INSTRUCTION INC R5 RTS R5 .END