.TITLE TRACE SUBROUTINE TRACE ( PROGNM , ISTMNT ) .IDENT /V01.00/ ;*********************************************************************** ; ; Description : Copies the program names and line numbers from the OTS ; TRACEBACK list into given arguments. ; ; Arguments : PROGNM : BYTE array receiving all 6-chars programnames ; concatenated ; ISTMNT : INTEGER array receiving all line numbers ; ; Author : T.Pijl ; AKZO PHARMA, Oss Holland ; dep. SDA ; ; Version : V1.0 Date : 13-dec-82 ; ; Module name : TRACE.MAC ; ; Package : RSX-LIBRARY ; ; Compilation/ ; taskbuilding : MAC TRACE ; ; Updates : name version ; ; description : ; ;************************************************************************ .GLOBL $NAMC,$SEQC TRACE:: MOV $NAMC,R3 ;Start address of TRACEBACK list MOV 4(R5),R4 MOV $SEQC,(R4)+ ;line number of faulty routine MOV 2(R5),R0 1$: ;run down TRACEBACK list MOV 2(R3),(R4)+ ;line number of calling routine MOV 4(R3),R1 ;routine name that is calling CALL $C5TA ; (in RADIX50) MOV 6(R3),R1 CALL $C5TA MOV (R3),R3 ;next block BNE 1$ ;if any CLRB (R0) ;NULL-byte to close string RTS PC .END