.TITLE TBUILT .IDENT /01.00/ ;+ ; ; Operating System: RSX-11/M-PLUS V 3.0 D ; Environment: General subroutine ; Env. Vsn: 01.00 ; ; Module Description: ; ; TBUILT gets the task's build date and time, converts them ; to ASCII, and returns them in a passed buffer. As it is ; written, it should be called with a buffer of at least 16 ; bytes. If called as a function, string length is also ; returned. ; ; Call Format: LEN = TBUILT ( TIMBUF ) -or- ; CALL TBUILT ( TIMBUF ) ; ; Argument List: ; Parameter_Name Type I/O Purpose ; -------------- ---- --- ----------------------------------- ; TIMBUF I2 O Accept time/date of TKB. ; ; Side effects: R0, R1, and R2 are destroyed. ; Implicit inputs: $DBTS - TKB-supplied date and time buffer. ; 2(R5) - Address of output buffer. ; Implicit outputs: @2(R5) - ASCIZ date and time string. ; R0 - Length of ASCII portion of output string. ; Registers changed: R0, R1, and R2 ; ; ;------------------------------------------------------------------------- ; Environmental Requirements ; ; Re-compile Procedure: NONE ; Compile Command: MAC TBUILT=TBUILT ; Library: NONE ; Modules called: $CAT, $TIM ; ; Test Procedures: ; Test Data Files: [tbs] ; Test Scripts: [tbs] ; Documents: [tbs] ; ; Module Documentation: ; Help File: [tbs] ; Document File: [tbs] ; ; ; Written By: Barton F. Bruce ; Cambridge Computer Associates ; 222 Alewife Brook Pkwy ; Cambridge, MA 02138 ; ; Ident: BFB001 ; Date: December 9, 1986 ; ; ; Change Log: ; Date Initials Ident Description ; [dd-mmm-yy] [tbs] [tbs] [tbs......] ;---------------------------------------------------------------------------- ;- TBUILT::MOV 2(R5),R0 ; Load return buffer address into R0. MOV #$DBTS,R1 ; Point at task's time/date field. CALL $DAT ; Convert date to ASCII. MOVB #40,(R0)+ ; Separate date/time with a blank. MOV #2,R2 ; Convert to format HH:MM. CALL $TIM ; Convert time to ASCII. CLRB (R0) ; Append null for .ASCIZ format. SUB 2(R5),R0 ; Compute length ( excluding null ). RETURN ; And return to caller. ; ; TKB extends PSECT $$DBTS, filling with date/time of build. ; .PSECT $$DBTS,D,RW,LCL $DBTS:: ; Storage area for TKB time/date. .END