STRING                                                           22-AUG-1978 02:54:12   VAX-11 MACRO X0.3-11               Page   1

                                                                                                                                 (1)



                                     0000     1 	.TITLE STRING

                                     0000     2 	.LIST MEB

                                 00000000     3 	.PSECT STRING

                               003C' 0000     4 	.ENTRY CSTRING ^M<R2,R3,R4,R5>

         04 BC            08     C7  0002     5 	DIVL3	#8,@4(AP),R0		;FIND THE MESSAGE CODE

                          50         0006       

            51   00000000'EF     9E  0007     6 	MOVAB	BUG$T_MESSAGES,R1	;USE IT TO INDEX INTO MESS TABLE

            52            81     9A  000E     7 122$:	MOVZBL	(R1)+,R2		;STEP THROUGH TABLE

            51            52     C0  0011     8 	ADDL	R2,R1			;

            F7            50     F5  0014     9 	SOBGTR	R0,122$			;

         0C BC            81     9A  0017    10 	MOVZBL	(R1)+,@12(AP)		;MOVE THE LENGTH INTO ARG PTR.

   0000002D'EF            51     D0  001B    11 	MOVL	R1,	STRING		;PLACE ADDR OF STRING IN STRING

   0000002D'FF         0C BC     28  0022    12 	MOVC3	@12(AP),@STRING,@8(AP)	;COPY MESSAGE

                       08 BC         002A       

                                 04  002C    13 	RET

                           00000000  002D    14 STRING:	.LONG 0

                                     0031    15 	.END 

STRING                                                           22-AUG-1978 02:54:12   VAX-11 MACRO X0.3-11               Page   2

SYMBOL TABLE                                                                                                                     (1)



BUG$T_MESSAGES   ********   X   02   

CSTRING          00000000 RG    02   

STRING           0000002D R     02   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

STRING           00000031      02     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

28534. BYTES LEFT IN FREE MEMORY POOL.

OBJ$:CSTRING,LIS$:CSTRING/-SP=SRC$:CSTRING

0 MLB DIR RDS - 0 GETS TO DEFINE 0 MACROS. 1 INTER. FILE WRITES. 

