OFF_TP - Cancel TIME_PROMPT timer 24-JUL-1991 18:49:01 VAX MACRO T5.2V-4 Page 1 X01-00 24-JUL-1991 18:29:23 [000000.UT.TP]OFF_TP.MAR;1 (1) 0000 1 .TITLE OFF_TP - Cancel TIME_PROMPT timer 0000 2 .IDENT /X01-00/ 0000 3 0000 4 ;++ 0000 5 ; Copyright (C) 1990 James F. Duff 0000 6 ; 0000 7 ; This program is free software; you can redistribute it and/or modify 0000 8 ; it under the terms of the GNU General Public License as published by 0000 9 ; the Free Software Foundation; either version 1, or (at your option) 0000 10 ; any later version. 0000 11 ; 0000 12 ; This program is distributed in the hope that it will be useful, 0000 13 ; but WITHOUT ANY WARRANTY; without even the implied warranty of 0000 14 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 0000 15 ; GNU General Public License for more details. 0000 16 ; 0000 17 ; You should have received a copy of the GNU General Public License 0000 18 ; along with this program; if not, write to the Free Software 0000 19 ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. 0000 20 ; 0000 21 ; The author can be contacted on the Internet at DUFF@DECUS.COM.AU. 0000 22 ;-- 0000 23 0000 24 ;++ 0000 25 ; 0000 26 ; FACILITY: 0000 27 ; 0000 28 ; Silly buggers 0000 29 ; 0000 30 ; ABSTRACT: 0000 31 ; 0000 32 ; This program cancels the timer that executes code to set the 0000 33 ; DCL prompt to the current time. 0000 34 ; 0000 35 ; 0000 36 ; ENVIRONMENT: 0000 37 ; 0000 38 ; User and kernal modes 0000 39 ; 0000 40 ; AUTHOR: 0000 41 ; 0000 42 ; James F. Duff, 31-Oct-1990 0000 43 ; 0000 44 ; MODIFIED BY: 0000 45 ; 0000 46 ; X01-00 Jim Duff 31-Oct-1990 0000 47 ; Original version of module 0000 48 ; 0000 49 ;-- 0000 50 0000 51 .LINK "SYS$SYSTEM:SYS.STB"/SELECTIVE_SEARCH 0000 52 00000000 53 .PSECT CODE NOWRT,EXE,SHR 0000 54 0000 0000 55 .ENTRY OFF_TP,^M<> 0002 56 $CMKRNL_S - ; Get to kernal 0002 57 ROUTIN=OFF OFF_TP - Cancel TIME_PROMPT timer 24-JUL-1991 18:49:01 VAX MACRO T5.2V-4 Page 2 X01-00 24-JUL-1991 18:29:23 [000000.UT.TP]OFF_TP.MAR;1 (1) 05 50 E9 0011 58 BLBC R0,10$ ; Error ? 50 0000'8F 3C 0014 59 MOVZWL #SS$_NORMAL,R0 ; Indicate normal completion 04 0019 60 10$: RET ; Return to caller 001A 61 0000 001A 62 .ENTRY OFF,^M<> 001C 63 $CANTIM_S - ; Cancel outstanding timer 001C 64 REQIDT=#1777 ; using this timer id 50 0000'8F 3C 002B 65 MOVZWL #SS$_NORMAL,R0 ; Indicate normal completion 04 0030 66 RET ; Return to user mode 0031 67 0031 68 .END OFF_TP OFF_TP - Cancel TIME_PROMPT timer 24-JUL-1991 18:49:01 VAX MACRO T5.2V-4 Page 3 Symbol table 24-JUL-1991 18:29:23 [000000.UT.TP]OFF_TP.MAR;1 (1) $$$ADR = 000000E0 $$T1 = 00000000 OFF 0000001A RG 01 OFF_TP 00000000 RG 01 SS$_NORMAL ******** X 01 SYS$CANTIM ******** GX 01 SYS$CMKRNL ******** GX 01 +----------------+ ! Psect synopsis ! +----------------+ PSECT name Allocation PSECT No. Attributes ---------- ---------- --------- ---------- . ABS . 00000000 ( 0.) 00 ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE CODE 00000031 ( 49.) 01 ( 1.) NOPIC USR CON REL LCL SHR EXE RD NOWRT NOVEC BYTE +------------------------+ ! Performance indicators ! +------------------------+ Phase Page faults CPU Time Elapsed Time ----- ----------- -------- ------------ Initialization 178 00:00:00.31 00:00:01.06 Command processing 831 00:00:00.81 00:00:01.08 Pass 1 108 00:00:00.77 00:00:02.05 Symbol table sort 0 00:00:00.00 00:00:00.00 Pass 2 1 00:00:00.24 00:00:00.38 Symbol table output 0 00:00:00.01 00:00:00.01 Psect synopsis output 0 00:00:00.02 00:00:00.03 Cross-reference output 0 00:00:00.00 00:00:00.00 Assembler run totals 1121 00:00:02.18 00:00:04.72 The working set limit was 2356 pages. 1459 bytes (3 pages) of virtual memory were used to buffer the intermediate code. There were 10 pages of symbol table space allocated to hold 7 non-local and 1 local symbols. 68 source lines were read in Pass 1, producing 19 object records in Pass 2. 4 pages of virtual memory were used to define 4 macros. +--------------------------+ ! Macro library statistics ! +--------------------------+ Macro library name Macros defined ------------------ -------------- SYS$COMMON:[SYSLIB]STARLET.MLB;1 4 57 GETS were required to define 4 macros. There were no errors, warnings or information messages. MACRO/LIST OFF_TP.MAR