perm filename CASE.GRU[S,AIL] blob sn#551850 filedate 1980-12-18 generic text, type T, neo UTF8
NAME BLOCK
00      M
	000007 000000 
PROGRAM
	LOCATION 000000 000000' 
	334000 000000 	 7 ,000,000,000,000,000	SKIPA 000000
	476000 000000 	 O , @ ,000,000,000,000	SETOM 000000
	264000 000000 	 - ,000,000,000,000,000	JSR 000000
	261740 000012 	 , , > ,000,000,005,000	PUSH 17,000012
	261740 000000 	 , , > ,000,000,000,000	PUSH 17,000000
	261740 000016 	 , , > ,000,000,007,000	PUSH 17,000016
	541517 777776 	 X , 4 ,177,177,177,000	HRRI 12,777776(17)
PROGRAM
	LOCATION 000000 000007' 
	260740 000000 	 , ,036,000,000,000,000	PUSHJ 17,000000
	201100 000105 	   , $ ,000,000, " , @ 	MOVEI 02,000105
	301100 000000 	 0 , $ ,000,000,000,000	CAIL 02,000000
	301100 000000 	 0 , $ ,000,000,000,000	CAIL 02,000000
	254000 000000 	 + ,000,000,000,000,000	JRST 000000
	254022 000000 	 + ,001,020,000,000,000	JRST @000000(02)
	201140 000006 	   , & ,000,000,003,000	MOVEI 03,000006
	202140 000000 	   , F ,000,000,000,000	MOVEM 03,000000
	254000 000000 	 + ,000,000,000,000,000	JRST 000000
	201200 000007 	   , ( ,000,000,003, @ 	MOVEI 04,000007
	202200 000016' 	   , H ,000,000,007,000	MOVEM 04,000016'
	254000 000017' 	 + ,000,000,000,007, @ 	JRST 000017'
	205240 000000 	 ! , * ,000,000,000,000	MOVSI 05,000000
	202240 000021' 	   , J ,000,000,010, @ 	MOVEM 05,000021'
	254000 000022' 	 + ,000,000,000,011,000	JRST 000022'
	000000 000015' 	000,000,000,000,006, @ 	000 000015'
	000000 000020' 	000,000,000,000,010,000	000 000020'
PROGRAM
	LOCATION 000000 000030' 
	000000 000023' 	000,000,000,000,011, @ 	000 000023'
	000000 000015' 	000,000,000,000,006, @ 	000 000015'
	201540 000000 	   , 6 ,000,000,000,000	MOVEI 13,000000
	260740 000000 	 , ,036,000,000,000,000	PUSHJ 17,000000
	200512 000000 	   ,024, P ,000,000,000	MOVE 12,000000(12)
	274740 000000 	 / ,036,000,000,000,000	SUB 17,000000
	263740 000000 	 , ,176,000,000,000,000	POPJ 17,000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
LINK BLOCK
	000000 000006 
	000000 000040' 
PROGRAM
	LOCATION 000000 000041' 
	000000 000003' 	000,000,000,000,001, @ 	000 000003'
	000000 000001 	000,000,000,000,000, @ 	000 000001
	440700 000000 	 H ,034,000,000,000,000	ANDCB 16,000000
	020040 000000 	004,002,000,000,000,000	020 01,000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000002 	000,000,000,000,001,000	000 000002
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000041' 000000 	000,002,010,000,000,000	000 01,000000(01) (R)
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	740040 000000 	 x ,002,000,000,000,000	BLKI 01,000000
	000000 000000 	000,000,000,000,000,000	000 000000
	464000 000000 	 M ,000,000,000,000,000	ORCM 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	777777 777777 	177,177,177,177,177, @ 	CONSO 17,@777777(17)
PROGRAM
	LOCATION 000000 000062' 
	000003 000003 	000,000,030,000,001, @ 	000 000003(03)
INTERNAL REQUEST
	000011' 000002 
	000012' 000006 
	000014' 000024' 
	000013' 000023' 
	000025' 000032' 
	000024' 000037' 
	000004' 000051' 
	000047' 000055' 
	000032' 000055' 
	000043' 000057' 
	000035' 000062' 
SYMBOLS
	14      M	000000 000000 
	10      I	000000 000037' 
	10      M	000000 000003' 
	60  BEXIT	000000 000033' 
	60 .UINIT	000000 000007' 
LIBRARY REQUEST
	SYS   :LIBSA8.REL
PROGRAM
	LOCATION 000000 000063' 
	000000 000000 	000,000,000,000,000,000	000 000000
	000011 000010 	000,000, H ,000,004,000	000 000010(11)
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 007777 	000,000,000,017,177, @ 	000 007777
	000000 000000' 	000,000,000,000,000,000	000 000000'
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000060' 	000,000,000,000,030,000	000 000060'
	000000 000061' 	000,000,000,000,030, @ 	000 000061'
	102200 000020 	020, H ,000,000,010,000	102 04,000020
	000000 000041' 	000,000,000,000,020, @ 	000 000041'
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
LINK BLOCK
	000000 000002 
	000000 000063' 
STARTING ADDRESS
	000000 000000' 
SYMBOLS
	60 SAILOR	000000 000002' 
	60  RPGSW	000000 000001' 
SYMBOLS
	10     S.	000000 000000' 
	10      P	000000 000017 
	10     SP	000000 000016 
	10  ARERR	007000 000000 
	10  FLOAT	002000 000000 
	10    FIX	003000 000000 
	10   SNGL	014000 000000 
END BLOCK
	000000 000104'