.title tracer .ident /840105/ ; ;Logs and tracks execution of the program ; .mcall .ttyout .globl pt.rap,output .globl $$$031 .psect ; $$$999:: line: mov (r0)+,r1 ;get line number mov r0,-(sp) mov #output,-(sp) ;prepare to print on console mov r1,-(sp) clr -(sp) .ttyout #'- jsr pc,$$$031 ;print line number .ttyout #'- mov (sp)+,r0 rts pc ; .psect $trap,gbl,ovr .blkw 1 ;heap utilisation .blkw 1 ;profiler initialisation .blkw 1 ;profiler termination .blkw 1 ;procedure entry .blkw 1 ;procedure exit .blkw 1 ;profiler procedure entry .blkw 1 ;profiler procedure exit .word line ;line trace ; .end