SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2





      1						.TITLE	SLPR11

      2						.IDENT	/09/

      3

      4					;

      5					; COPYRIGHT (C) 1975,1976,1977

      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

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

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

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

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

     14					; TO AND OWNERSHIP OF THE SOFTWARE SHALL AT ALL  TIMES  REMAIN

     15					; IN DEC.

     16					;

     17					; THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT

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

     19					; EQUIPMENT CORPORATION.

     20					;

     21					; DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF

     22					; ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

     23					;

     24					; VERSION 09

     25					;

     26					; D.N. CUTLER 4-JAN-72

     27					;

     28					; MODIFICATIONS:

     29					;

     30					;	C. MONIA  11-SEP-75

     31					;

     32					;		CM001 -- ADD USER-SPECIFIED AUDIT TRAIL

     33					;

     34					;	C. MONIA  17-JAN-77

     35					;

     36					;		CM003 -- ADD /CM SWITCH. INCREASE INDIRECT FILE DEPTH.

     37					;

     38					;	E. BAATZ  10-MAR-77

     39					;

     40					;		EB029 -- MAKE GCML PASS LOWER-CASE CHARACTERS

     41					;

     42					;	E. BAATZ 28-JUN-77

     43					;

     44					;		EB061 -- A "-" AS THE LAST CHARACTER OF A LINE SHOULD NOT

     45					;			INDICATE A CONTINUATION LINE

     46					;

     47					;	JAK001	24-AUG-77	ADD EXIT WITH STATUS

     48					;

     49					; SOURCE LANGUAGE INPUT PROGRAM (SLIPR)

     50					;

     51					; MACRO LIBRARY CALLS

     52					;

     53

     54						.MCALL	GCMLD$

     55	000000					GCMLD$			;DEFINE GET COMMAND LINE CONTROL BLOCK

     56

     57					;

SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2-1





     58					; EQUATED SYMBOLS

     59					;

     60					; OPTION SWITCH WORD BIT DEFINITIONS

     61					;

     62

     63		000001 			AP$ND==000001			;APPEND ";**-NEW**" AND COMPRESS (0=YES)

     64		000002 			DB$LL==000002			;DOUBLE SPACE LINE LISTING (1=YES)

     65		000004 			DE$LF==000004			;DELETE CORECTION INPUT FILE (1=YES)

     66		000010 			ID$RT==000010			;INDIRECT FILE RECOGNIZATION (0=YES)

     67		000020 			CR$FI==000020			;CORECTION INPUT FILE SPECIFIED (1=YES)

     68		000040 			LL$ST==000040			;LINE LISTING FILE SPECIFIED (1=YES)

     69		000100 			SR$CO==000100			;SOURCE OUTPUT FILE SPECIFIED (1=YES)

     70		000200 			BL$NK==000200			;BLANK FILL TO PAD LINES (0=YES)

     71		000400 			SP$OL==000400			;SPOOL LISTING FILE (0=YES)

     72		001000 			CM$PR==001000			;COMPRESS AUDIT TRAILS (1=YES)

     73

     74					;

     75					; MACRO LIBRARY CALLS

     76					;

     77

     78						.MCALL	CLOSE$,DELET$,EXIT$S,FINIT$,PRINT$,PUT$

     79

     80					;

     81					; LOCAL DATA

     82					;

     83					; MISC VARIABLES-ADJACENCY ASSUMED

     84					;

     85

     86	000000				$AUBEG::.BLKW	1		;ADDRESS OF AUDIT TRAIL FIRST BYTE

     87	000002				$AULGH::.BLKW	1		;LENGTH OF AUDIT SEGMENT

     88	000004				$CFNMB::.BLKW	1		;CORRECTION INPUT FILE LINE NUMBER

     89	000006				$CMFLG::.BLKW	1		;COMMAND INPUT SOLICATION FLAG

     90	000010				$CMLGH::.BLKW	1		;MAX. SIZE OF COMPRESSED LINE

     91	000012				$LNDEL::.BLKW	1		;NUMBER OF LINES DELETED

     92	000014				$LNUMB::.BLKW	1		;CURRENT LINE NUMBER

     93	000016				$PDSIZ::.BLKW	1		;PAD SPECIFIED BY USER

     94	000020				$PDLGH::.BLKW	1		;LENGTH OF PAD FIELD

     95	000022				$PLNMB::.BLKW	1		;LINE IN CURRENT PAGE

     96	000024				$SWTCH::.BLKW	1		;OPTION SWITCH WORD

     97	000026				$HDSIZ::.BLKW	1		;SIZE OF HEADING IN BYTES

     98	000030	000032'				.WORD	$HEADG		;HEADER BUFFER POINTER

     99	000032				$HEADG::.BLKW	46.		;PAGE HEADING

    100	000166				$OUTBF::.BLKW	40.		;ERROR MESSAGE OUTPUT BUFFER

    101	000306	000000 			RECRS:	.WORD	0		;RECURSION FLAG

    102	000310				TEMP:	.BLKB	100		;TEMP CSI BUFFER

    103	000410				SPSAV:	.BLKW	1		;INITIAL SP VALUE

    104	000412				$EXSTS::.BLKW	1		; EXIT STATUS WORD

    105

    106					;

    107					; FORM CONTROL

    108					;

    109

    110	000414	   014 			FORM:	.BYTE	14		;FORM FEED

    111

    112					;

    113					; CONTROL BYTE STRING

    114					;

SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2-2





    115

    116	000415	   074 	   057 	   055 	CNTRL:	.BYTE	'<,'/,'-,'%,'\	;

	000420	   045 	   134

    117

    118					;

    119					; INITIAL LINE SUFFIX

    120					;

    121

    122	000422	   073 	   052 	   052 	NEW:	.ASCIZ	/;**NEW**/	;

	000425	   116 	   105 	   127

	000430	   052 	   052 	   000

    123

    124						.EVEN

    125

    126					;

    127					; USER AUDIT TRAIL

    128					;

    129	000000					.PSECT	$$AUD0,D,OVR

    130	000000				$NEW::				;

    131	000000					.BLKB	8.		;

    132	000000					.PSECT	$$AUD1,D

    133	000000	   000 			ENEW:	.BYTE	0		;

    134

    135						.EVEN

    136

    137	000434					.PSECT

    138

    139

    140					;-

    141					; **-$SLIPR-SOURCE LANGUAGE INPUT PROGRAM

    142					;-

    143

    144	000434				$SLIPR::FINIT$			;INITIALIZE FILE STORAGE REGION

    145	000440	016700 	000000G			MOV	$CMIPT,R0	;GET COMMAND INPUT RECORD BLOCK ADDRESS

    146	000444	012767 	000000G	177740 		MOV	#EX$SUC,$EXSTS		; ASSUME SUCCESS

    147	000452	142760 	000024 	000141 		BICB	#GE.CON!GE.CLO,G.MODE(R0) ;CLEAR CONTINUATION LINE

    148									; AND CLEAR CLOSE AFTER BITS

    149	000460	152760 	000010 	000141 		BISB	#GE.LC,G.MODE(R0) ;SET TO PASS LOWER-CASE THROUGH

    150	000466	010667 	177716 			MOV	SP,SPSAV	;SAVE INITIAL SP VALUE

    151	000472	012703 	000024'		SLIPR1:	MOV	#$SWTCH,R3	;GET ADDRESS OF SWITCH OPTION WORD

    152	000476	016706 	177706 			MOV	SPSAV,SP	;SET INITIAL SP VALUE

    153	000502	012700 	000004'			MOV	#$CFNMB,R0	;GET ADDRESS OF MISC DATA

    154	000506	012701 	000012 			MOV	#<$HDSIZ-$CFNMB>/2+1,R1 ; GET NUMBER TO CLEAR

    155	000512	005020 			5$:	CLR	(R0)+		; CLEAR SPECIFIED LOCATIONS

    156	000514	005301 				DEC	R1		; DECREMENT COUNT

    157	000516	001375 				BNE	5$		; IF NE GO AGAIN

    158	000520	052713 	000001 			BIS	#AP$ND,(R3)	; SURPRESS AUDIT TRAIL

    159	000524					CALL	$GTCML		;GET COMMAND INPUT LINE

    160	000530	103002 			SLIPR3:	BCC	10$		;IF CC OKAY

    161	000532	000167 	000742 			JMP	SLPXT		;EXIT

    162	000536	005767 	177544 		10$:	TST	RECRS		;COMMAND RECURSION?

    163	000542	001006 				BNE	15$		;IF NE NO

    164	000544	005267 	177536 			INC	RECRS		;SET COMMAND RECURSION FLAG

    165	000550	016700 	000000G			MOV	$CMIPT,R0	;GET ADDRESS OF COMMAND INPUT BLOCK

    166	000554					CALL	.GCML4		;RESET COMMAND BLOCK

    167	000560				15$:	CALL	$CMPRS		;COMPRESS LINE

    168	000564	005013 				CLR	(R3)		;SET INITIAL OPTION SWITCH WORD

SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2-3





    169	000566	012767 	000000C	177224 		MOV	#L$LGTH-A$UDEF+7&^C7,$PDLGH ; SET DEFAULT MARGIN

    170	000574	012767 	000000G	177200 		MOV	#A$UDEF,$AULGH	; SET DEFAULT AUDIT FIELD SIZE

    171	000602	012700 	000000G			MOV	#$LNDES,R0	;GET ADDRESS OF LINE DESCRIPTOR

    172	000606	005710 				TST	(R0)		;NULL LINE?

    173	000610	001730 				BEQ	SLIPR1		;IF EQ YES

    174	000612	122767 	000057 	000000G		CMPB	#'/,$LNBUF	;EXIT COMMAND?

    175	000620	001002 				BNE	20$		;IF NE CONTINUE

    176	000622	000167 	000652 			JMP	SLPXT		;EXIT

    177	000626	012701 	000310'		20$:	MOV	#TEMP,R1	;GET ADDRESS OF CSI BUFFER

    178	000632					CALL	$SYNTX		;ANALYZE SYNTAX OF LINE

    179	000636	103715 				BCS	SLIPR1		;IF CS SYNTAX ERROR

    180	000640	016700 	000000G			MOV	$SRCPT,R0	;GET SOURCE OUTPUT RECORD BLOCK

    181	000644	012701 	000310'			MOV	#TEMP,R1	;GET ADDRESS OF CSI BLOCK

    182	000650					CALL	$SCANO		;SCAN FOR OUTPUT FILE

    183	000654	103402 				BCS	31$		;IF CS NO OUTPUT FILE

    184	000656	052713 	000100 			BIS	#SR$CO,(R3)	;SET SOURCE OUTPUT BIT

    185	000662	016700 	000000G		31$:	MOV	$LSTPT,R0	;GET LINE LISTING RECORD BLOCK

    186	000666	012701 	000310'			MOV	#TEMP,R1	;GET ADDRESS OF CSI BLOCK

    187	000672					CALL	$SCANO		;SCAN FOR OUTPUT FILE

    188	000676	103414 				BCS	4$		;IF CS NO OUTPUT FILE

    189	000700	052713 	000040 			BIS	#LL$ST,(R3)	;SET LINE LISTING BIT

    190	000704					PUT$	$LSTPT,#FORM,#1	;OUTPUT A FORM FEED

    191	000730	016700 	000000G		4$:	MOV	$CFIPT,R0	;GET CORRECTION INPUT FILE RECORD BLOCK

    192	000734	012701 	000310'			MOV	#TEMP,R1	;GET ADDRESS OF CSI BLOCK

    193	000740					CALL	$SCANI		;SCAN FOR INPUT FILE

    194	000744	103402 				BCS	5$		;IF CS NO INPUT FILE

    195	000746	052713 	000020 			BIS	#CR$FI,(R3)	;SET CORRECTION FILE BIT

    196	000752	032713 	000160 		5$:	BIT	#CR$FI!LL$ST!SR$CO,(R3);ANY FILE SPECIFIED?

    197	000756	001645 				BEQ	SLIPR1		;IF EQ NO-IGNOR LINE

    198	000760					CALL	$OPNFL		;OPEN ALL FILES

    199	000764	103002 				BCC	51$		; IF C/C OK

    200	000766	000167 	000412 			JMP	$RSTRT		; ELSE RESTART

    201	000772	012700 	000000G		51$:	MOV	#$LNDES,R0	; GET LINE DESCRIPTOR ADDRESS

    202	000776	012067 	177024 			MOV	(R0)+,$HDSIZ	;SET SIZE OF HEADING IN BYTES

    203	001002	062767 	000010 	177016 		ADD	#10,$HDSIZ	;ALLOW FOR LINE SPACING CHARACTERS

    204	001010	011000 				MOV	(R0),R0		;GET ADDRESS OF LINE BUFFER

    205	001012	012701 	000032'			MOV	#$HEADG,R1	;GET ADDRESS OF HEADING BUFFER

    206	001016	112021 			6$:	MOVB	(R0)+,(R1)+	;MOVE LINE TO HEADING

    207	001020	001376 				BNE	6$		;

    208	001022	005301 				DEC	R1		;BACK UP R1

    209	001024	012700 				MOV	(PC)+,R0	;GET CR,LF

    210	001026	   015 	   012 			.BYTE	15,12		;

    211	001030	012702 	000010 			MOV	#10,R2		;SET REPEAT COUNT

    212	001034	110021 			61$:	MOVB	R0,(R1)+	;STORE A BYTE

    213	001036	000300 				SWAB	R0		;SWAP HALVES

    214	001040	005302 				DEC	R2		;REPEAT?

    215	001042	003374 				BGT	61$		;IF GT YES

    216	001044	005267 	176736 			INC	$CMFLG		;SET NON COMMAND INPUT

    217	001050	026727 	176726 	000000C		CMP	$AULGH,#ENEW-$NEW ; LEGAL AUDIT LENGTH?

    218	001056	101022 				BHI	90$		;IF HI NO

    219	001060	012700 	000016'		60$:	MOV	#$PDSIZ,R0	;GET LENGTH OF PAD FIELD

    220	001064	005720 				TST	(R0)+		;PAD FIELD SPECIFIED?

    221	001066	001402 				BEQ	63$		;IF EQ NO

    222	001070	016010 	177776 			MOV	-2(R0),(R0)	;SET UP MARGIN

    223	001074	062710 	000007 		63$:	ADD	#7,(R0)		;ROUND UP TO NEXT TAB LIMIT

    224	001100	103411 				BCS	90$		;IF C/S ERROR

    225	001102	042710 	000007 			BIC	#7,(R0)		;CLEAR EXCESS

SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2-4





    226	001106	016701 	176670 			MOV	$AULGH,R1	;GET AUDIT FIELD SIZE

    227	001112	061001 				ADD	(R0),R1		;ADD PAD LENGTH

    228	001114	103403 				BCS	90$		;IF C/S ERROR

    229	001116	020127 	000000G			CMP	R1,#L$LGTH	;LEGAL LENGTH

    230	001122	101402 				BLOS	95$		;IF LOS YES

    231	001124				90$:				;

    232	001124	000167 	000330 			JMP	ERXT		;ELSE ERROR

    233	001130				95$:				;

    234	001130	012700 	000422'			MOV	#NEW,R0		;GET ADDRESS OF DEFAULT AUDIT TRAIL

    235	001134	012701 	000000'			MOV	#$NEW,R1	;GET ADDRESS OF BUFFER

    236	001140	112021 			100$:	MOVB	(R0)+,(R1)+	;SETUP STRING

    237	001142	001376 				BNE	100$		; LOOP UNTIL END OF STRING

    238	001144	012700 	000010'			MOV	#$CMLGH,R0	;GET ADDRESS OF TRUNCATION LENGTH

    239	001150	005710 				TST	(R0)		;TRUNCATION LENGTH SPECIFIED?

    240	001152	001002 				BNE	97$		;IF NE YES

    241	001154	016710 	176640 			MOV	$PDLGH,(R0)	;SET DEFAULT TRUNCATION LENGTH

    242	001160				97$:				;

    243	001160	062710 	000007 			ADD	#7,(R0)		;ROUND TO TAB STOP

    244	001164	103535 				BCS	ERXT		;IF C/S ERROR

    245	001166	042710 	000007 			BIC	#7,(R0)		;

    246	001172					CALL	SLPR11		;CALL EDITOR

    247	001176	103540 				BCS	SLPXT		;IF CS EXIT

    248	001200	032767 	000400 	176616 		BIT	#SP$OL,$SWTCH	;SPOOL OUTPUT?

    249	001206	001076 				BNE	$RSTRT		;IF NE NO

    250	001210					PRINT$	$LSTPT		;PRINT LISTING FILE

    251	001404	032767 	000004 	176412 	$RSTRT::BIT	#DE$LF,$SWTCH	;DELETE CORRECTION INPUT FILE?

    252	001412	001404 				BEQ	10$		;IF EQ NO

    253	001414					DELET$	$CFIPT		;DELETE CORRECTION INPUT FILE

    254	001424				10$:	CLOSE$	$CFIPT		;CLOSE CORRECTION INPUT FILE

    255	001434					CLOSE$	$LSTPT		;CLOSE LINE LISTING FILE

    256	001444					CLOSE$	$SRCPT		;CLOSE SOURCE OUTPUT FILE

    257	001454	000167 	177012 			JMP	SLIPR1		;GO AGAIN

    258

    259					;

    260					; ERROR EXIT

    261					;

    262

    263	001460	012702 	000000G		ERXT:	MOV	#$LNDES,R2	;GET ADDRESS OF LINE DESCIPTOR

    264	001464	012701 	000000C			MOV	#S$V2*400!E$R14,R1 ;GET ERROR, SEVERITY

    265	001470					CALL	$ERMSG		; ISSUE ERROR MESSAGE

    266	001474	000167 	000054 			JMP	SLPR1		; GO AGAIN

    267

    268

    269					;

    270					;	EXIT SEQUENCE

    271					;

    272

    273	001500				SLPXT:	CLOSE$	$CFIPT		;CLOSE CORRECTION INPUT FILE

    274	001510					CLOSE$	$CMIPT		;CLOSE COMMAND INPUT FILE

    275	001520					CLOSE$	$LSTPT		;CLOSE LINE LISTING FILE

    276	001530					CLOSE$	$SRCPT		;CLOSE SOURCE OUTPUT FILE

    277	001540	016700 	176646 			MOV	$EXSTS,R0	; GET EXIT STATUS

    278	001544					CALL	$EXST		; CALL EXIT ROUTINE

    279

    280					;+

    281					; **-MAIN BODY OF ACTUAL EDITOR

    282					;

SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2-5





    283					; INPUTS:

    284					;

    285					;	R3=ADDRESS OF OPTION SWITCH WORD.

    286					;

    287					; OUTPUTS:

    288					;

    289					;	C=1 IF PREMATURE EOF OR ERROR ON COMMAND INPUT FILE.

    290					;	C=0 IF SUCESSFUL REQUEST.

    291					;-

    292

    293	001550				SLPR11:	SAVRG			;SAVE NONVOLITILE REGISTERS

    294	001554				SLPR1:	CALL	$GTCML		;GET COMMAND INPUT LINE

    295	001560	103423 				BCS	1$		;IF CS EOF OR ERROR

    296	001562	012700 	000000G			MOV	#$LNBUF,R0	;GET ADDRESS OF LINE BUFFER

    297	001566	112005 				MOVB	(R0)+,R5	;GET FIRST BYTE

    298	001570	012704 	000415'			MOV	#CNTRL,R4	;GET ADDRESS OF CONTROL BYTE STRING

    299	001574					JOL	2$		;SHIFT?

    300	001600					JOL	4$		;FILE MARK?

    301	001604	032713 	000020 			BIT	#CR$FI,(R3)	;CORRECTION INPUT FILE?

    302	001610	001422 				BEQ	3$		;IF EQ NO

    303	001612					JOL	6$		;MINUS?

    304	001616					JOL	7$		;ENABLE AUDIT TRAIL?

    305	001622					JOL	8$		;DISABLE AUDIT TRAIL?

    306	001626	000413 				BR	3$		;

    307

    308					;

    309					; EOF OR ERROR ON COMMAND INPUT FILE

    310					;

    311

    312	001630	005002 			1$:	CLR	R2		;SET DUMMY PARAMETER BLOCK ADDRESS

    313	001632	012701 				MOV	(PC)+,R1	;PREMATURE EOF OR ERROR

    314	001634	   000G	   000G			.BYTE	E$R15,S$V0	;DIAGNOSTIC

    315	001636					CALL	$ERMSG		;OUTPUT ERROR MESSAGE

    316	001642					CALL	$COPYF		;COPY REMAINDER OF CORRECTION FILE

    317	001646	000261 				SEC			;SET CARRY

    318	001650	000410 				BR	5$		;COMMON EXIT

    319

    320					;

    321					; SHIFT COMMAND (<)

    322					;

    323

    324	001652				2$:	CALL	$SHIFT		;SHIFT LINE LEFT ONE CHARACTER

    325	001656				3$:	CALL	$PUTLN		;PUT LINE IN OUTPUT FILES

    326	001662	000734 				BR	SLPR1		;GO AGAIN

    327

    328					;

    329					; FILE MARK (/)

    330					;

    331

    332	001664				4$:	CALL	$COPYF		;COPY REMAINDER OF FILE

    333	001670	000241 				CLC			;CLEAR CARRY

    334	001672				5$:	RETURN			;

    335

    336					;

    337					; POSITION/DELETION COMMAND (-N OR -N,M)

    338					;

    339

SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2-6





    340	001674				6$:	CALL	$POSIT		;POSITION FILE

    341	001700	000725 				BR	SLPR1		;CONTINUE

    342

    343					;

    344					; ENABLE AUDIT TRAIL (%)

    345					;

    346

    347	001702	032713 	000001 		7$:	BIT	#AP$ND,(R3)	;AUDIT TRAIL ENABLED?

    348	001706	001722 				BEQ	SLPR1		;IF EQ YES, CONTINUE

    349	001710	005067 	176076 			CLR	$LNDEL		;CLEAR DELETION COUNT

    350	001714	042713 	000001 			BIC	#AP$ND,(R3)	;ENABLE AUDIT TRAIL

    351	001720	000715 				BR	SLPR1		;CONTINUE

    352

    353					;

    354					; DISABLE AUDIT TRAIL (\)

    355					;

    356

    357	001722	052713 	000001 		8$:	BIS	#AP$ND,(R3)	;DISABLE AUDIT TRAIL

    358	001726	000712 				BR	SLPR1		;CONTINUE

    359

    360		000434'				.END	$SLIPR

SLPR11	MACRO M1110  22-AUG-78 01:29  PAGE 2-7

SYMBOL TABLE



AP$ND = 000001 G 	GE.CON= 000020   	N.DID = ****** GX	$AUBEG  000000RG 	$OUTBF  000166RG

A$UDEF= ****** GX	GE.EOF= 177766   	N.FID = ****** GX	$AULGH  000002RG 	$PDLGH  000020RG

BL$NK = 000200 G 	GE.IND= 000002   	N.FVER= ****** GX	$CFIPT= ****** GX	$PDSIZ  000016RG

CM$PR = 001000 G 	GE.IOR= 177777   	PAR$$$= 000067   	$CFNMB  000004RG 	$PLNMB  000022RG

CNTRL   000415R  	GE.LC = 000010   	RECRS   000306R  	$CMFLG  000006RG 	$POSIT= ****** GX

CR$FI = 000020 G 	GE.MDE= 177774   	SLIPR1  000472R  	$CMIPT= ****** GX	$PUTLN= ****** GX

DB$LL = 000002 G 	GE.OPR= 177776   	SLIPR3  000530R  	$CMLGH  000010RG 	$RSTRT  001404RG

DE$LF = 000004 G 	GE.RBG= 177730   	SLPR1   001554R  	$CMPRS= ****** GX	$SAVRG= ****** GX

ENEW    000000R     003	GE.SIZ= 000040   	SLPR11  001550R  	$COPYF= ****** GX	$SCANI= ****** GX

ERXT    001460R  	G.CMLD= 000146   	SLPXT   001500R  	$DSPAT= ****** GX	$SCANO= ****** GX

EX$SUC= ****** GX	G.DPRM= 000160   	SPSAV   000410R  	$ERMSG= ****** GX	$SHIFT= ****** GX

E$R14 = ****** GX	G.ERR = 000140   	SP$OL = 000400 G 	$EXST = ****** GX	$SLIPR  000434RG

E$R15 = ****** GX	G.ISIZ= 000020   	SR$CO = 000100 G 	$EXSTS  000412RG 	$SRCPT= ****** GX

FD.OSP= ****** GX	G.LUCW= 000004   	S$V0  = ****** GX	$GTCML= ****** GX	$SWTCH  000024RG

FD.REC= ****** GX	G.LUFB= 000003   	S$V2  = ****** GX	$HDSIZ  000026RG 	$SYNTX= ****** GX

FORM    000414R  	G.LUNA= 000000   	S.FDB = 000140   	$HEADG  000032RG 	$$    = 000001

F.BDB = ****** GX	G.LUNU= 000002   	S.FNAM= 000006   	$LNBUF= ****** GX	$$$OST= 000014

F.ERR = ****** GX	G.MODE= 000141   	S.FNB = 000036   	$LNDEL  000012RG 	.CLOSE= ****** G

F.FNB = ****** GX	G.PSDS= 000142   	S.FNBW= 000017   	$LNDES= ****** GX	.DELET= ****** G

F.LUN = ****** GX	G.SIZE= 000224   	S.FNTY= 000004   	$LNUMB  000014RG 	.FINIT= ****** G

F.NRBD= ****** GX	ID$RT = 000010 G 	S.FTYP= 000002   	$LSTPT= ****** GX	.GCML4= ****** GX

GE.BIF= 177775   	LL$ST = 000040 G 	S.NFEN= 000020   	$NEW    000000RG    002	.PUT  = ****** G

GE.CLO= 000004   	L$LGTH= ****** GX	TEMP    000310R  	$OPNFL= ****** GX	...TPC= 000140

GE.COM= 000001   	NEW     000422R



. ABS.	000000	   000

      	001730	   001

$$AUD0	000010	   002

$$AUD1	000002	   003

ERRORS DETECTED:  0



VIRTUAL MEMORY USED:  3875 WORDS  ( 16 PAGES)

DYNAMIC MEMORY:  4884 WORDS  ( 18 PAGES)

ELAPSED TIME:  00:00:26

OBJ$:SLPR11,LIS$:SLPR11/-SP=SRC$:MACFL,SLPR11

