.TITLE RSTDTRC - DUMMY TRACE ROUTINE FOR RST TASK .IDENT /X01.00/ ;* ;* LAST EDIT: WOLERY 3 MAR 80 ;+ ; COPYRIGHT (C) 1979, 1980 BY ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. ; ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A ; SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ; ANY OTHER COPIES THEREOF, MAY NOT BE PROVIDED OR OTHERWISE ; MADE AVAILABLE TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH ; SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE TERMS. TITLE ; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN ; IN DEC. ; ; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT ; NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL ; EQUIPMENT CORPORATION. ; ; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. ; ; ; MODULE DESCRIPTION - ; ; RST TRACE ROUTINES ; ; THESE ROUTINES WRITE INTO A FILE MESSAGES TRANSMITTED ; AND RECEIVED BY THE RST TASK. TO ENABLE TRACING, ; THE TRACE LUN MUST BE ASSIGNED TO A DEVICE IN THE ; TASKBUILD FILE; IF ASSIGNED TO A TERMINAL, MESSAGE ; LINES WILL BE WRITTEN TO THE TERMINAL. ; ; THE TRANSMITTED CONFIGURATION MESSAGE IS CANNED, AND ; SO IS NOT RECORDED, BUT ALL MESSAGES AFTER THAT ARE. ; A NEW VERSION LEVEL OF THE TRACE FILE WILL BE CREATED ; EACH TIME THE PROGRAM IS RUN. ; ;- .PAGE .SBTTL MACRO CALLS AND LOCAL DATA .MCALL FDBDF$,FDAT$A,FDRC$A,FDBK$A,FDOP$A,FDBF$A .MCALL NMBLK$,FSRSZ$ .MCALL OFNB$,CLOSE$,PUT$ .MCALL FDOF$L,NBOF$L FDOF$L ;DEFINE FDB OFFSETS NBOF$L ;DEFINE NAMEBLOCK OFFSETS .PSECT $$TRC ; ; $TRLUN MUST BE GLOBALLY DEFINED IN TASKBUILD FILE ; AND MAY BE ASSIGNED TO A DEVICE ; ; "GBLDEF=$TRLUN:6" ; "ASG=TI:6" OR "ASG=DB0:6" ; ; ALSO, THE LOGICAL DEVICE "TR" MUST BE ASSIGNED TO SOME DEVICE VIA MCR. ; ; .SBTTL TRCINI - OPEN TRACE OUTPUT .SBTTL TRCCLS - CLOSE TRACE OUTPUT .SBTTL TRCRCV - TRACE RECEIVED MESSAGE .SBTTL TRCXMT - TRACE TRANSMITTED MESSAGE ;+ ; ; ; IF THE TRACE OUTPUT IS NOT ALREADY OPEN, OPEN THE TRACE OUTPUT ; AND IGNORE ANY OPEN ERRORS. ;- TRCINI:: RETURN ;+ ; ; ; CLOSE THE TRACE OUTPUT. ;- ; TRCCLS:: RETURN ;+ ; ; ; IF THE TRACE OUTPUT IS OPEN, TRACE THE DAP MESSAGE JUST RECEIVED. ;- TRCRCV:: RETURN ;+ ; ; ; IF THE TRACE OUTPUT IS OPEN, TRACE THE MESSAGE WE ARE JUST ; ABOUT TO TRANSMIT. ;- TRCXMT:: RETURN .END