RTBTB	MACRO M1110  21-AUG-78 23:25  PAGE 2





      1						.TITLE	RTBTB

      2						.IDENT	/00/

      3

      4					;

      5					; COPYRIGHT (C) 1978

      6					; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

      7					;

      8					; THIS SOFTWARE IS FURNISHED UNDER  A LICENSE FOR USE ONLY  ON  A

      9					; SINGLE COMPUTER SYSTEM AND MAY BE  COPIED ONLY WITH  THE INCLU-

     10					; SION OF  THE  ABOVE  COPYRIGHT NOTICE.  THIS SOFTWARE,  OR  ANY

     11					; OTHER COPIES THEREOF, MAY NOT BE  PROVIDED  OR  OTHERWISE  MADE

     12					; AVAILABLE TO ANY OTHER PERSON EXCEPT  FOR  USE  ON  SUCH SYSTEM

     13					; AND TO  ONE WHO AGREES  TO  THESE LICENSE  TERMS.  TITLE TO AND

     14					; OWNERSHIP OF THE SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

     15					;

     16					; THE INFORMATION IN THIS SOFTWARE  IS  SUBJECT TO CHANGE WITHOUT

     17					; NOTICE AND SHOULD NOT BE CONSTRUED  AS  A COMMITMENT BY DIGITAL

     18					; EQUIPMENT CORPORATION.

     19					;

     20					; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS

     21					; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

     22					;

     23					;

     24					; VERSION 00

     25					;

     26					; C. MONIA 24-MAR-1978

     27					;

     28					; RTB DATA BASE

     29					;

     30					; EQUATED SYMBOLS

     31					;

     32

     33		100000 			OU$FL==100000			; OUTPUT FILE SPECIFIED (1=YES)

     34

     35					;

     36					; SST DISPATCH VECTOR FOR ERROR MESSGAGE TRAPS

     37					;

     38

     39	000000	000000 			$ERVCT::.WORD	0		;

     40	000002	000000 				.WORD	0		;

     41	000004	000000 				.WORD	0		;

     42	000006	000000G				.WORD	$ERTRP		; IOT TRAP TO ERROR MESSAGE ROUTINE

     43

     44					;

     45					; START OF REGION TO BE CLEARED

     46					;

     47

     48	000010				$CLRBG::.BLKW	0		;

     49

     50					;

     51					; FILE SWITCH WORD

     52					;

     53

     54	000010				$SWTCH::.BLKW	1		;

     55

     56					;

     57					; SIZE OF REGION TO BE CLEARED (IN BYTES)

RTBTB	MACRO M1110  21-AUG-78 23:25  PAGE 2-1





     58					;

     59

     60		000002 			C$LRSZ==.-$CLRBG		;

     61

     62					;

     63					; REGION NOT CLEARED TO ZERO

     64					;

     65					; INITIAL SWITCH STATE

     66					;

     67

     68	000012	000000 			$INISW::.WORD	0		;

     69

     70		000001 				.END

RTBTB	MACRO M1110  21-AUG-78 23:25  PAGE 2-2

SYMBOL TABLE



CR    = 000015   	HT    = 000011   	R$$11M= 000000   	$CLRBG  000010RG 	$INISW  000012RG

C$LRSZ= 000002 G 	LF    = 000012   	SPA   = 000040   	$ERTRP= ****** GX	$SWTCH  000010RG

FF    = 000014   	OU$FL = 100000 G 	VT    = 000013   	$ERVCT  000000RG



. ABS.	000000	   000

      	000014	   001

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  593 WORDS  ( 3 PAGES)

DYNAMIC MEMORY:  2772 WORDS  ( 10 PAGES)

ELAPSED TIME:  00:00:05

OBJ$:RTBTB,LIS$:RTBTB/-SP=SRC$:MACFLM,RTBTB

