.TITLE QUTPC - OUTPUT PC MESSAGE ; ; QUTPC - OUTPUTS ' AT ', THE CALLED PC, AND A CR/LF ; ;CALL: ; CALL ERROR-ROUTINE ; (PC WHICH WILL BE PRINTED) ; ... ; ERROR ROUTINE: ; ENTER R0,R1,R2,R3,R4,R5 ; ... ; CALL QUTPC ; ; .MCALL POCT,PSTR,PCRLF .MCALL ENTER,LEAVE ; ; QUTPC:: ENTER R0 PSTR ^*/ AT /* MOV 20(SP),R0 ;R0+PC+(R0,R1,R2,R3,R4,R5)+PC POCT R0 ;RETURN PC FOR ERROR ROUTINE PCRLF ;AND OUTPUT CARRIAGE RETURN LEAVE RETURN ; ; .END