.TITLE QTPER - PRINT ERROR MESSAGE ; ; .QTPER - PRINT ERROR MESSAGE FROM EDF ; ;INPUTS: ; R2 ERROR BUFFER ADDRESS ; ;OUTPUTS: ; R2 PRESERVED ; ; ; .MCALL ENTER,LEAVE,PRAD5S,PSTR,TTYOUT ; ; .QTPER::ENTER R2 PRAD5S R2,#2 ;PRINT ERROR ID PSTR ^*/ - /* ;PUNCTUATION ADD #4,R2 ;POINT AT ERROR MESSAGE TTYOUT R2,#74 ;AND PRINT IT LEAVE RETURN ; ; .END