Google
 

Trailing-Edge - PDP-10 Archives - bb-x141b-bb - zap.lst
There are 2 other files named zap.lst in the archive. Click here to see a list.
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 2


      2					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.15	ZAP.B11	PAGE 1
      3
      4					;     	0001	MODULE ZAP(MAIN,IDENT="X04.03")=
      5					;     	0002	BEGIN
      6					;     	0003
      7					;     	0004	!
      8					;     	0005	!
      9					;     	0006	! COPYRIGHT 1975,
     10					;     	0007	! DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
     11					;     	0008	!
     12					;     	0009	! THIS SOFTWARE IS FURNISHED TO PURCHASER UNDER A LICENSE FOR USE
     13					;     	0010	! ON A SINGLE COMPUTER SYSTEM  AND  CAN BE COPIED (WITH INCLUSION
     14					;     	0011	! OF DEC'S COPYRIGHT NOTICE)  ONLY FOR USE IN SUCH SYSTEM, EXCEPT
     15					;     	0012	! AS MAY OTHERWISE BE PROVIDED IN WRITING BY DEC.
     16					;     	0013	!
     17					;     	0014	! THE INFORMATION IN  THIS DOCUMENT IS  SUBJECT TO CHANGE WITHOUT
     18					;     	0015	! NOTICE AND SHOULD NOT  BE CONSTRUED AS  A COMMITMENT BY DIGITAL
     19					;     	0016	! EQUIPMENT CORPORATION.
     20					;     	0017	!
     21					;     	0018	! DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE  USE  OR  RELIABILITY
     22					;     	0019	! OF ITS  SOFTWARE  ON  EQUIPMENT  WHICH IS NOT  SUPPLIED BY DEC.
     23					;     	0020	!
     24					;     	0021	! WRITTEN BY
     25					;     	0022	!	M. JACK
     26					;     	0023	!
     27					;     	0024	! MODULE FUNCTION
     28					;     	0025	!	TASK-IMAGE PATCHING UTILITY FOR USE WITH RSX-11D AND RSX-11M
     29					;     	0026	!
     30					;     	0027	!
     31					;     	0028
     32					;     	0029	LINKAGE
     33					;     	0030		REG0 = BLISS(REGISTER=0);
     34					;     	0031
     35					;     	0032	FORWARD
     36					;     	0033		OPENLOC,
     37					;     	0034		REG0 ERRPRT;
     38					;     	0035
     39					;     	0036
     40					;     	0037	REQUIRE STDMAC.BEG;
     41					;     	0038	!	STDMAC.BEG - WIDELY USED STANDARD MACROS
     42					;     	0039	!
     43					;     	0057	SWITCHES LIST; SWITCHES LIST;
     44					;     	0058	!	VERSION 000005
     45					;     	0059	!	LAST MODIFIED 05/13/74 RBG
     46					;     	0098	SWITCHES LIST; SWITCHES LIST;
     47					;     	0099	!	STDMAC.BEG LAST LINE
     48					;     	0100
     49					;     	0101	REQUIRE STDSTR.BEG;
     50					;     	0102	!	STDSTR.BEG - WIDELY USED STANDARD STRUCTURES
     51					;     	0103	!
     52					;     	0121	SWITCHES LIST; SWITCHES LIST;
     53					;     	0122	!	VERSION 000003
     54					;     	0123	!	LAST MODIFIED 02/28/74 RBG
     55					;     	0137	SWITCHES LIST; SWITCHES LIST;
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 3


     57					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.16	STDSTR.BEG	PAGE 1-1
     58
     59					;     	0138	!	STDSTR.BEG LAST LINE
     60					;     	0139
     61					;     	0140	REQUIRE ZAP.BEG;
     62					;     	0141	!	ZAP.BEG - BEGIN FILE FOR ZAP
     63					;     	0142	!
     64					;     	0152	SWITCHES LIST; SWITCHES LIST;
     65					;     	0153	!
     66					;     	0154	!	VERSION 000002
     67					;     	0155	!	LAST MODIFIED 09/01/74
     68					;     	0156	!
     69					;     	0157
     70					;     	0158	STRUCTURE
     71					;     	0159		BUFFER[I] = (.BUFFER + .I)<0,16>;
     72					;     	0160
     73					;     	0161	BIND
     74					;     	0162		SEGSIZ=	5,		! LENGTH OF SEGMENT TABLE ENTRY
     75					;     	0163		SEGENT=	64;		! NUMBER OF SEGMENT TABLE ENTRIES
     76					;     	0164
     77					;     	0165	MACRO
     78					;     	0166		SEGBLK=	0,0,16$,	! STARTING DISK BLOCK (SEGMENT "NAME")
     79					;     	0167		SEGLOW=	1,0,16$,	! LOW ADDRESS
     80					;     	0168		SEGHIGH=2,0,16$,	! HIGH ADDRESS PLUS ONE
     81					;     	0169		SEGVIRT=3,0,16$,	! VIRTUAL ORIGIN DATA
     82					;     	0170		SEGVIR1=3,0,16$,	! HIGH ORDER WORD OF SEGVIRT
     83					;     	0171		SEGVIR0=4,0,16$,	! LOW ORDER WORD OF SEGVIRT
     84					;     	0172		SEGVIRW=4,0,9$,		! WORD OFFSET PART OF SEGVIRT
     85					;     	0173		SEGNEXT=5,0,16$;	! OFFSET TO NEXT ENTRY
     86					;     	0174
     87					;     	0175	MACRO
     88					;     	0176		ABSOLUTE=0,0,1$,	! /AB SWITCH BIT
     89					;     	0177		READONLY=0,1,1$,	! /RO SWITCH BIT
     90					;     	0178		LISTING=0,2,1$;		! /LI SWITCH BIT
     91					;     	0179
     92					;     	0180	BIND
     93					;     	0181		NORELO=	0,		! NO SUCH RELOCATION REGISTER
     94					;     	0182		ADROOB=	1,		! ADDRESS NOT WITHIN SEGMENT
     95					;     	0183		NOSEGM=	2,		! NO SUCH SEGMENT
     96					;     	0184		BADARG=	3,		! BAD ARGUMENT COUNT
     97					;     	0185		NOSPEC=	4,		! NO SUCH SPECIAL REGISTER
     98					;     	0186		BADCMD=	5,		! UNRECOGNIZABLE COMMAND
     99					;     	0187		NOOPEN=	6,		! NO OPEN LOCATION
    100					;     	0188		NOBYTE=	7,		! CANNOT USE IN BYTE MODE
    101					;     	0189		BADTSK=	12,		! BAD TASK IMAGE
    102					;     	0190		VFYREJ=	13,		! VERIFY REJECT
    103					;     	0191		NOTYET=	14;		! NOT YET IMPLEMENTED
    104					;     	0192
    105					;     	0193	BIND
    106					;     	0194		SIGXIT=	-1,		! SIGNAL VALUE FOR EXIT
    107					;     	0195		SIGADR=	-2;		! SIGNAL VALUE FOR ADDRESS ERROR
    108					;     	0196
    109					;     	0197	!
    110					;     	0198	!	ZAP.BEG LAST LINE
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 4


    112					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.17	ZAP.BEG	PAGE 1-2
    113
    114					;     	0199
    115					;     	0200
    116					;     	0201	PSECT
    117					;     	0202		CODE=" ", OWN=" ", GLOBAL=" ";
    118					;     	0203
    119					;     	0204	EXTERNAL
    120					;     	0205		ABORT,			! EXIT IMMEDIATELY
    121					;     	0206		FCSCLOSE,		! CLOSE FILES AND EXIT
    122					;     	0207		REG0 FCSREAD,		! READ TASK IMAGE BLOCK
    123					;     	0208		TRANSLATE,		! TRANSLATE SEGMENT-OFFSET TO BLOCK-WORD
    124					;     	0209		REG0 OUTSA,		! OUTPUT ASCIZ STRING
    125					;     	0210		EOL,			! OUTPUT RECORD
    126					;     	0211		ZAPINIT,		! INITIALIZATION CODE
    127					;     	0212		ZAPPROC;		! PROCESSING CODE
    128					;     	0213
    129					;     	0214	EXTERNAL
    130					;     	0215		BLOCK SWITCH;		! COMMAND SWITCHES
    131					;     	0216
    132					;     	0217	GLOBAL
    133					;     	0218		STKLIM = (64),		! SP STACK LIMIT
    134					;     	0219		VECBLOCK SEGTAB[SEGENT,SEGSIZ],	! SEGMENT TABLE
    135					;     	0220		PBLOCK SEGMAX,		! POINT TO FIRST FREE LOC IN SEGTAB
    136					;     	0221		REALDOT;		! POINT TO "DOT" IN BUFFER
    137					;     	0222
    138					;     	0223
    139					;     	0224
    140					;     	0225
    141					;     	0226	COMMENT ! OPENLOC(SEG,ADDR)
    142					;     	0227	!
    143					;     	0228	! FUNCTION
    144					;     	0229	!	OPEN A LOCATION IN TASK ADDRESS SPACE
    145					;     	0230	!
    146					;     	0231	! INPUTS
    147					;     	0232	!	SEG	- THE SEGMENT-ID FOR THE SEGMENT
    148					;     	0233	!	ADDR	- THE ADDRESS IN TASK ADDRESS SPACE
    149					;     	0234	!
    150					;     	0235	! OUTPUTS
    151					;     	0236	!	REALDOT	- THE ADDRESS IN BLOCK BUFFER OF THE WORD OPENED
    152					;     	0237	!	VALUE	- THE CONTENTS OF THE WORD OPENED
    153					;     	0238	!
    154					;     	0239
    155					;     	0240	GLOBAL ROUTINE OPENLOC(SEG,ADDR)=
    156					;     	0241	    BEGIN
    157					;     	0242
    158					;     	0243	    LOCAL
    159					;     	0244		SEGHIT,			! FOUND A SEGMENT-NUMBER MATCH
    160					;     	0245		PBLOCK SEGPTR;
    161					;     	0246
    162					;     	0247	    OWN
    163					;     	0248		TEMP[2];		! TEMPORARY VECTOR
    164					;     	0249
    165					;     	0250	    IF .SWITCH[ABSOLUTE]
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 5


    167					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.17	ZAP.B11	PAGE 1-3
    168
    169					;     	0251	    THEN
    170					;     	0252		BEGIN
    171					;     	0253		IF .SEG EQL 0 THEN SEG = 1;
    172					;     	0254		TEMP[0] = .SEG<7,9>;
    173					;     	0255		TEMP[1] = .SEG * 512;
    174					;     	0256		TRANSLATE(TEMP,.ADDR,TEMP,REALDOT);
    175					;     	0257		FCSREAD(TEMP);
    176					;     	0258		RETURN ..REALDOT;
    177					;     	0259		END
    178					;     	0260	    ELSE
    179					;     	0261		BEGIN
    180					;     	0262		SEGHIT = 0;
    181					;     	0263		SEGPTR = SEGTAB;
    182					;     	0264		DO
    183					;     	0265		    BEGIN
    184					;     	0266		    IF .SEG EQL .SEGPTR[SEGBLK]
    185					;     	0267		    THEN
    186					;     	0268			BEGIN
    187					;     	0269			SEGHIT = .SEGHIT + 1;
    188					;     	0270			IF
    189					;     	0271			    .ADDR GEQU .SEGPTR[SEGLOW] AND
    190					;     	0272			    .ADDR LSSU .SEGPTR[SEGHIGH]
    191					;     	0273			THEN
    192					;     	0274			    BEGIN
    193					;     	0275			    TRANSLATE(SEGPTR[SEGVIRT],.ADDR,TEMP,REALDOT);
    194					;     	0276			    FCSREAD(TEMP);
    195					;     	0277			    RETURN ..REALDOT;
    196					;     	0278			    END
    197					;     	0279			END;
    198					;     	0280		    SEGPTR = SEGPTR[SEGNEXT];
    199					;     	0281		    END
    200					;     	0282		UNTIL
    201					;     	0283		    .SEGPTR GEQU .SEGMAX;
    202					;     	0284		ERRPRT(IF .SEGHIT NEQ 0 THEN ADROOB ELSE NOSEGM);
    203					;     	0285		SIGNAL SIGADR
    204					;     	0286		END;
    205					;     	0287
    206					;     	0288	    END;
    207					;     	0289
    208					.TITLE ZAP
    209					.IDENT /X04.03/
    210	000000				.PSECT
    211
    212
    213		000000 			R$0=%0
    214		000001 			R$1=%1
    215		000002 			R$2=%2
    216		000003 			R$3=%3
    217		000004 			R$4=%4
    218		000005 			R$5=%5
    219		000006 			SP=%6
    220		000007 			PC=%7
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 6


    222					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.21	ZAP.B11	PAGE 1-4
    223
    224
    225
    226	000000				OPENLOC:
    227	000000	004167 	000000G			JSR	R$1,$SAV3
    228	000004	016603 	000014 			MOV	14(SP),R$3
    229	000010	132737 	000001 	000000G		BITB	#1,@#SWITCH
    230	000016	001432 				BEQ	L$3
    231	000020	005703 				TST	R$3
    232	000022	001003 				BNE	L$6
    233	000024	012766 	000001 	000014 		MOV	#1,14(SP)
    234	000032	016602 	000014 		L$6:	MOV	14(SP),R$2
    235	000036	006102 				ROL	R$2
    236	000040	106102 				ROLB	R$2
    237	000042	000302 				SWAB	R$2
    238	000044	042702 	177000 			BIC	#177000,R$2
    239	000050	010267 	000200 			MOV	R$2,TEMP
    240	000054	016602 	000014 			MOV	14(SP),R$2
    241	000060	000302 				SWAB	R$2
    242	000062	105002 				CLRB	R$2
    243	000064	006302 				ASL	R$2
    244	000066	010267 	000164 			MOV	R$2,TEMP+2
    245	000072	012746 	000254'			MOV	#TEMP,-(SP)
    246	000076	016646 	000014 			MOV	14(SP),-(SP)
    247	000102	000422 				BR	L$28
    248	000104	005002 			L$3:	CLR	R$2
    249	000106	012701 	001172'			MOV	#SEGTAB,R$1
    250	000112	020311 			L$9:	CMP	R$3,@R$1
    251	000114	001034 				BNE	L$11
    252	000116	005202 				INC	R$2
    253	000120	016600 	000012 			MOV	12(SP),R$0
    254	000124	020061 	000002 			CMP	R$0,2(R$1)
    255	000130	103426 				BLO	L$11
    256	000132	020061 	000004 			CMP	R$0,4(R$1)
    257	000136	103023 				BHIS	L$11
    258	000140	010146 				MOV	R$1,-(SP)
    259	000142	062716 	000006 			ADD	#6,@SP
    260	000146	010046 				MOV	R$0,-(SP)
    261	000150	012746 	000254'		L$28:	MOV	#TEMP,-(SP)
    262	000154	012746 	001164'			MOV	#REALDOT,-(SP)
    263	000160	004767 	000000G			JSR	PC,TRANSLATE
    264	000164	012700 	000254'			MOV	#TEMP,R$0
    265	000170	004767 	000000G			JSR	PC,FCSREAD
    266	000174	017700 	000764 			MOV	@REALDOT,R$0
    267	000200	062706 	000010 			ADD	#10,SP
    268	000204	000207 				RTS	PC
    269	000206	062701 	000012 		L$11:	ADD	#12,R$1
    270	000212	020137 	001166'			CMP	R$1,@#SEGMAX
    271	000216	103735 				BLO	L$9
    272	000220	005702 				TST	R$2
    273	000222	001403 				BEQ	L$19
    274	000224	012700 	000001 			MOV	#1,R$0
    275	000230	000402 				BR	L$20
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 7


    277					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.21	ZAP.B11	PAGE 1-5
    278
    279	000232	012700 	000002 		L$19:	MOV	#2,R$0
    280	000236	004767 	000016 		L$20:	JSR	PC,ERRPRT
    281	000242	012700 	177776 			MOV	#177776,R$0
    282	000246	000167 	000000G			JMP	$SIGNL
    283	000252	000207 			L$2:	RTS	PC
    284
    285					; ROUTINE SIZE:  86
    286
    287
    288	000254				.PSECT
    289
    290	000254	000260'			TEMP: .=.+4
    291
    292
    293
    294					;     	0290	COMMENT ! ERRPRT(P)
    295					;     	0291	!
    296					;     	0292	! FUNCTION
    297					;     	0293	!	OUTPUT A MESSAGE
    298					;     	0294	!
    299					;     	0295	! INPUTS
    300					;     	0296	!	P	- MESSAGE INDEX
    301					;     	0297	!
    302					;     	0298	! OUTPUTS
    303					;     	0299	!	MESSAGE TYPED ON CONSOLE
    304					;     	0300	!	VALUE	- NONE
    305					;     	0301	!
    306					;     	0302
    307					;     	0303	GLOBAL ROUTINE REG0 ERRPRT(P)=
    308					;     	0304	    BEGIN
    309					;     	0305
    310					;     	0306	    BIND
    311					;     	0307		MESSAGES = UPLIT(
    312					;     	0308		    UPLIT ASCIZ "NO SUCH RELOCATION REGISTER",
    313					;     	0309		    UPLIT ASCIZ "ADDRESS NOT WITHIN SEGMENT",
    314					;     	0310		    UPLIT ASCIZ "NO SUCH SEGMENT",
    315					;     	0311		    UPLIT ASCIZ "TOO MANY ARGUMENTS",
    316					;     	0312		    UPLIT ASCIZ "NO SUCH INTERNAL REGISTER",
    317					;     	0313		    UPLIT ASCIZ "UNRECOGNIZED COMMAND",
    318					;     	0314		    UPLIT ASCIZ "NO OPEN LOCATION",
    319					;     	0315		    UPLIT ASCIZ "CANNOT BE USED IN BYTE MODE",
    320					;     	0316		    UPLIT ASCIZ "ERROR IN FILE SPECIFICATION",
    321					;     	0317		    UPLIT ASCIZ "OPEN FAILURE FOR TASK IMAGE FILE",
    322					;     	0318		    UPLIT ASCIZ "ERROR ON COMMAND INPUT",
    323					;     	0319		    UPLIT ASCIZ "I/O ERROR ON TASK IMAGE FILE",
    324					;     	0320		    UPLIT ASCIZ "NOT A TASK IMAGE FILE",
    325					;     	0321		    UPLIT ASCIZ "VERIFY FAILURE",
    326					;     	0322		    UPLIT ASCIZ "NOT IMPLEMENTED");
    327					;     	0323
    328					;     	0324	    OUTSA(.MESSAGES[.P]);
    329					;     	0325	    EOL();
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 8


    331					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.22	ZAP.B11	PAGE 1-6
    332
    333					;     	0326	    NOVALUE
    334					;     	0327	    END;
    335					;     	0328
    336
    337	000260				.PSECT
    338
    339
    340	000260				ERRPRT:
    341	000260	006300 				ASL	R$0
    342	000262	016000 	000604'			MOV	P$AAB(R$0),R$0
    343	000266	004767 	000000G			JSR	PC,OUTSA
    344	000272	000167 	000000G			JMP	EOL
    345
    346					; ROUTINE SIZE:  7
    347
    348
    349	000276				.PSECT
    350
    351	000276	040503 	047116 	052117 	P$AAJ:	.WORD  40503,47116,52117
    352	000304	041040 	020105 	051525 		.WORD  41040,20105,51525
    353	000312	042105 	044440 	020116 		.WORD  42105,44440,20116
    354	000320	054502 	042524 	046440 		.WORD  54502,42524,46440
    355	000326	042117 	000105 			.WORD  42117,105
    356	000332	051105 	047522 	020122 	P$AAK:	.WORD  51105,47522,20122
    357	000340	047111 	043040 	046111 		.WORD  47111,43040,46111
    358	000346	020105 	050123 	041505 		.WORD  20105,50123,41505
    359	000354	043111 	041511 	052101 		.WORD  43111,41511,52101
    360	000362	047511 	000116 			.WORD  47511,116
    361	000366	050117 	047105 	043040 	P$AAL:	.WORD  50117,47105,43040
    362	000374	044501 	052514 	042522 		.WORD  44501,52514,42522
    363	000402	043040 	051117 	052040 		.WORD  43040,51117,52040
    364	000410	051501 	020113 	046511 		.WORD  51501,20113,46511
    365	000416	043501 	020105 	044506 		.WORD  43501,20105,44506
    366	000424	042514 	000000 			.WORD  42514,0
    367	000430	051105 	047522 	020122 	P$AAM:	.WORD  51105,47522,20122
    368	000436	047117 	041440 	046517 		.WORD  47117,41440,46517
    369	000444	040515 	042116 	044440 		.WORD  40515,42116,44440
    370	000452	050116 	052125 	000000 		.WORD  50116,52125,0
    371	000460	027511 	020117 	051105 	P$AAN:	.WORD  27511,20117,51105
    372	000466	047522 	020122 	047117 		.WORD  47522,20122,47117
    373	000474	052040 	051501 	020113 		.WORD  52040,51501,20113
    374	000502	046511 	043501 	020105 		.WORD  46511,43501,20105
    375	000510	044506 	042514 	000000 		.WORD  44506,42514,0
    376	000516	047516 	020124 	020101 	P$AAO:	.WORD  47516,20124,20101
    377	000524	040524 	045523 	044440 		.WORD  40524,45523,44440
    378	000532	040515 	042507 	043040 		.WORD  40515,42507,43040
    379	000540	046111 	000105 			.WORD  46111,105
    380	000544	042526 	044522 	054506 	P$AAP:	.WORD  42526,44522,54506
    381	000552	043040 	044501 	052514 		.WORD  43040,44501,52514
    382	000560	042522 	000000 			.WORD  42522,0
    383	000564	047516 	020124 	046511 	P$AAQ:	.WORD  47516,20124,46511
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 9


    385					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.24	ZAP.B11	PAGE 1-7
    386
    387	000572	046120 	046505 	047105 		.WORD  46120,46505,47105
    388	000600	042524 	000104 			.WORD  42524,104
    389	000604	000642'	000676'	000732'	P$AAB:	.WORD  P$AAC,P$AAD,P$AAE
    390	000612	000752'	000776'	001030'		.WORD  P$AAF,P$AAG,P$AAH
    391	000620	001056'	000276'	000332'		.WORD  P$AAI,P$AAJ,P$AAK
    392	000626	000366'	000430'	000460'		.WORD  P$AAL,P$AAM,P$AAN
    393	000634	000516'	000544'	000564'		.WORD  P$AAO,P$AAP,P$AAQ
    394	000642	047516 	051440 	041525 	P$AAC:	.WORD  47516,51440,41525
    395	000650	020110 	042522 	047514 		.WORD  20110,42522,47514
    396	000656	040503 	044524 	047117 		.WORD  40503,44524,47117
    397	000664	051040 	043505 	051511 		.WORD  51040,43505,51511
    398	000672	042524 	000122 			.WORD  42524,122
    399	000676	042101 	051104 	051505 	P$AAD:	.WORD  42101,51104,51505
    400	000704	020123 	047516 	020124 		.WORD  20123,47516,20124
    401	000712	044527 	044124 	047111 		.WORD  44527,44124,47111
    402	000720	051440 	043505 	042515 		.WORD  51440,43505,42515
    403	000726	052116 	000000 			.WORD  52116,0
    404	000732	047516 	051440 	041525 	P$AAE:	.WORD  47516,51440,41525
    405	000740	020110 	042523 	046507 		.WORD  20110,42523,46507
    406	000746	047105 	000124 			.WORD  47105,124
    407	000752	047524 	020117 	040515 	P$AAF:	.WORD  47524,20117,40515
    408	000760	054516 	040440 	043522 		.WORD  54516,40440,43522
    409	000766	046525 	047105 	051524 		.WORD  46525,47105,51524
    410	000774	000000 				.WORD  0
    411	000776	047516 	051440 	041525 	P$AAG:	.WORD  47516,51440,41525
    412	001004	020110 	047111 	042524 		.WORD  20110,47111,42524
    413	001012	047122 	046101 	051040 		.WORD  47122,46101,51040
    414	001020	043505 	051511 	042524 		.WORD  43505,51511,42524
    415	001026	000122 				.WORD  122
    416	001030	047125 	042522 	047503 	P$AAH:	.WORD  47125,42522,47503
    417	001036	047107 	055111 	042105 		.WORD  47107,55111,42105
    418	001044	041440 	046517 	040515 		.WORD  41440,46517,40515
    419	001052	042116 	000000 			.WORD  42116,0
    420	001056	047516 	047440 	042520 	P$AAI:	.WORD  47516,47440,42520
    421	001064	020116 	047514 	040503 		.WORD  20116,47514,40503
    422	001072	044524 	047117 	000000 		.WORD  44524,47117,0
    423
    424
    425
    426					;     	0329	COMMENT ! MAIN PROGRAM
    427					;     	0330	!
    428					;     	0331	! FUNCTION
    429					;     	0332	!	ACTS AS THE DRIVER PROGRAM
    430					;     	0333	!
    431					;     	0334
    432					;     	0335	    ENABLE
    433					;     	0336		ALWAYS:
    434					;     	0337		    BEGIN
    435					;     	0338		    ENABLE
    436					;     	0339			ALWAYS:  ABORT()
    437					;     	0340		    ELBANE;
    438					;     	0341		    FCSCLOSE()
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 10


    440					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.26	ZAP.B11	PAGE 1-8
    441
    442					;     	0342		    END
    443					;     	0343	    ELBANE;
    444					;     	0344
    445					;     	0345	    ZAPINIT();
    446					;     	0346	    ZAPPROC()
    447					;     	0347
    448					;     	0348	END
    449					;     	0349	ELUDOM
    450
    451	001100				.PSECT
    452
    453
    454	001100				ZAP:
    455	001100	162706 	000014 			SUB	#14,SP
    456	001104	012700 	000014 			MOV	#14,R$0
    457	001110	004767 	000000G			JSR	PC,$ENABL
    458	001114	000026 				.WORD	L$33-L$32
    459	001116	012700 	000006 		L$32:	MOV	#6,R$0
    460	001122	004767 	000000G			JSR	PC,$ENABL
    461	001126	000006 				.WORD	L$35-L$34
    462	001130	004767 	000000G		L$34:	JSR	PC,ABORT
    463	001134	000000 				HALT
    464	001136	004767 	000000G		L$35:	JSR	PC,FCSCLOSE
    465	001142	000404 				BR	L$36
    466	001144	004767 	000000G		L$33:	JSR	PC,ZAPINIT
    467	001150	004767 	000000G			JSR	PC,ZAPPROC
    468	001154	017767 	000000G	000000G	L$36:	MOV	@SIGREG,SIGREG
    469	001162	000000 			U$36:	HALT
    470
    471					; ROUTINE SIZE:  26
    472
    473
    474	001164				.PSECT
    475
    476	001164	001166'			REALDOT: .=.+2
    477	001166	001170'			SEGMAX: .=.+2
    478	001170	000100 			STKLIM:	.WORD  100
    479	001172	002372'			SEGTAB: .=.+1200
    480					.GLOBL ZAPINIT
    481					.GLOBL FCSCLOSE
    482					.GLOBL REALDOT
    483					.GLOBL OUTSA
    484					.GLOBL SEGMAX
    485					.GLOBL ZAPPROC
    486					.GLOBL ABORT
    487					.GLOBL STKLIM
    488					.GLOBL EOL
    489					.GLOBL FCSREAD
    490					.GLOBL SEGTAB
    491					.GLOBL TRANSLATE
    492					.GLOBL SWITCH
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 11


    494					; BLIS11 V.74206	SUNDAY 13-APR-75 1:41.28	ZAP.B11	PAGE 1-9
    495
    496					.GLOBL ERRPRT
    497					.GLOBL OPENLOC
    498
    499					.GLOBL $ENABL
    500					.GLOBL $SIGN1
    501					.GLOBL $SIGNL
    502					.GLOBL $SAV3
    503					.GLOBL SIGREG
    504					.GLOBL SIGVAL
    505
    506
    507
    508
    509
    510
    511
    512
    513
    514					; SIZE:  119+518
    515					; RUN TIME:  6 SECONDS
    516					; CORE USED:  16K
    517					; COMPILATION COMPLETE
    518
    519		001100'			.END ZAP
ZAP	MACRO M1113  14-APR-81 11:46  PAGE 11-1
SYMBOL TABLE

ABORT = ****** G 	L$33    001144R  	P$AAF   000752R  	REALDO  001164RG 	SWITCH= ****** G
EOL   = ****** G 	L$34    001130R  	P$AAG   000776R  	R$0   =%000000   	TEMP    000254R
ERRPRT  000260RG 	L$35    001136R  	P$AAH   001030R  	R$1   =%000001   	TRANSL= ****** G
FCSCLO= ****** G 	L$36    001154R  	P$AAI   001056R  	R$2   =%000002   	U$36    001162R
FCSREA= ****** G 	L$6     000032R  	P$AAJ   000276R  	R$3   =%000003   	ZAP     001100R
L$11    000206R  	L$9     000112R  	P$AAK   000332R  	R$4   =%000004   	ZAPINI= ****** G
L$19    000232R  	OPENLO  000000RG 	P$AAL   000366R  	R$5   =%000005   	ZAPPRO= ****** G
L$2     000252R  	OUTSA = ****** G 	P$AAM   000430R  	SEGMAX  001166RG 	$ENABL= ****** G
L$20    000236R  	P$AAB   000604R  	P$AAN   000460R  	SEGTAB  001172RG 	$SAV3 = ****** G
L$28    000150R  	P$AAC   000642R  	P$AAO   000516R  	SIGREG= ****** G 	$SIGNL= ****** G
L$3     000104R  	P$AAD   000676R  	P$AAP   000544R  	SIGVAL= ****** G 	$SIGN1= ****** G
L$32    001116R  	P$AAE   000732R  	P$AAQ   000564R  	STKLIM  001170RG

. ABS.	000000	   000
      	002372	   001
ERRORS DETECTED:  0

VIRTUAL MEMORY USED:  341 WORDS  ( 2 PAGES)
DYNAMIC MEMORY:  2518 WORDS  ( 9 PAGES)
ELAPSED TIME:  00:00:06
[62,10]ZAP,[62,20]ZAP/-SP/CR=[62,30]ZAP.P11
ZAP        CREATED BY  MACRO  ON 14-APR-81 AT 11:46	PAGE 1

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

ABORT 	= ******  G	 10-462     10-486    
EOL   	= ******  G	 8-344      10-488    
ERRPRT	  000260 RG	 7-280     #8-340      11-496    
FCSCLO	= ******  G	 10-464     10-481    
FCSREA	= ******  G	 6-265      10-489    
L$11  	  000206 R	 6-251      6-255      6-257     #6-269     
L$19  	  000232 R	 6-273     #7-279     
L$2   	  000252 R	#7-283     
L$20  	  000236 R	 6-275     #7-280     
L$28  	  000150 R	 6-247     #6-261     
L$3   	  000104 R	 6-230     #6-248     
L$32  	  001116 R	 10-458    #10-459    
L$33  	  001144 R	 10-458    #10-466    
L$34  	  001130 R	 10-461    #10-462    
L$35  	  001136 R	 10-461    #10-464    
L$36  	  001154 R	 10-465    #10-468    
L$6   	  000032 R	 6-232     #6-234     
L$9   	  000112 R	#6-250      6-271     
OPENLO	  000000 RG	#6-226      11-497    
OUTSA 	= ******  G	 8-343      10-483    
P$AAB 	  000604 R	 8-342     #9-389     
P$AAC 	  000642 R	 9-389     #9-394     
P$AAD 	  000676 R	 9-389     #9-399     
P$AAE 	  000732 R	 9-389     #9-404     
P$AAF 	  000752 R	 9-390     #9-407     
P$AAG 	  000776 R	 9-390     #9-411     
P$AAH 	  001030 R	 9-390     #9-416     
P$AAI 	  001056 R	 9-391     #9-420     
P$AAJ 	  000276 R	#8-351      9-391     
P$AAK 	  000332 R	#8-356      9-391     
P$AAL 	  000366 R	#8-361      9-392     
P$AAM 	  000430 R	#8-367      9-392     
P$AAN 	  000460 R	#8-371      9-392     
P$AAO 	  000516 R	#8-376      9-393     
P$AAP 	  000544 R	#8-380      9-393     
P$AAQ 	  000564 R	#8-383      9-393     
REALDO	  001164 RG	 6-262      6-266     #10-476     10-482    
R$0   	=%000000	#5-213     *6-253      6-254      6-256      6-260     *6-264     *6-266     *6-274     *7-279     
                        *7-281     *8-341      8-342     *8-342     *10-456    *10-459    
R$1   	=%000001	#5-214     *6-227     *6-249      6-250      6-254      6-256      6-258     *6-269      6-270     
R$2   	=%000002	#5-215     *6-234     *6-235     *6-236     *6-237     *6-238      6-239     *6-240     *6-241     
                        *6-242     *6-243      6-244     *6-248     *6-252      6-272     
R$3   	=%000003	#5-216     *6-228      6-231      6-250     
R$4   	=%000004	#5-217     
R$5   	=%000005	#5-218     
SEGMAX	  001166 RG	 6-270     #10-477     10-484    
SEGTAB	  001172 RG	 6-249     #10-479     10-490    
SIGREG	= ******  G	 10-468    *10-468     11-503    
SIGVAL	= ******  G	 11-504    
STKLIM	  001170 RG	#10-478     10-487    
SWITCH	= ******  G	 6-229      10-492    
TEMP  	  000254 R	*6-239     *6-244      6-245      6-261      6-264     #7-290     
ZAP        CREATED BY  MACRO  ON 14-APR-81 AT 11:46	PAGE 2

SYMBOL CROSS REFERENCE                                  CREF         

SYMBOL	VALUE		REFERENCES

TRANSL	= ******  G	 6-263      10-491    
U$36  	  001162 R	#10-469    
ZAP   	  001100 R	#10-454     11-519    
ZAPINI	= ******  G	 10-466     10-480    
ZAPPRO	= ******  G	 10-467     10-485    
$ENABL	= ******  G	 10-457     10-460     11-499    
$SAV3 	= ******  G	 6-227      11-502    
$SIGNL	= ******  G	 7-282      11-501    
$SIGN1	= ******  G	 11-500