perm filename XFOO.GRU[X,AIL] blob sn#187893 filedate 1975-11-23 generic text, type T, neo UTF8
NAME BLOCK
00    FOO
	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
	201040 001750 	   , " ,000,003, t ,000	MOVEI 01,001750
	202040 000000 	   , B ,000,000,000,000	MOVEM 01,000000
	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 000020' 
PROGRAM
	LOCATION 000000 000021' 
	000000 000003' 	000,000,000,000,001, @ 	000 000003'
	000000 000003 	000,000,000,000,001, @ 	000 000003
	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
	000021' 000000 	000,001,010,000,000,000	000 @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
	432371 700000 	 F , O , O ,000,000,000	XORM 07,@700000(11)
	000000 000000 	000,000,000,000,000,000	000 000000
	777777 777777 	177,177,177,177,177, @ 	CONSO 17,@777777(17)
PROGRAM
	LOCATION 000000 000042' 
	000003 000003 	000,000,030,000,001, @ 	000 000003(03)
INTERNAL REQUEST
	000011' 000017' 
	000004' 000031' 
	000027' 000035' 
	000012' 000035' 
	000023' 000037' 
	000015' 000042' 
SYMBOLS
	14    FOO	000000 000001 
	10   FOO.	000000 000007' 
	10      I	000000 000017' 
	10    FOO	000000 000003' 
	60  BEXIT	000000 000013' 
	60 .UINIT	000000 000007' 
LIBRARY REQUEST
	SYS   :LIBSA8.REL
PROGRAM
	LOCATION 000000 000043' 
	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 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 000000 	000,000,000,000,000,000	000 000000
	000000 000040' 	000,000,000,000,020,000	000 000040'
	000000 000041' 	000,000,000,000,020, @ 	000 000041'
	102200 000017 	020, H ,000,000,007, @ 	102 04,000017
	000000 000021' 	000,000,000,000,010, @ 	000 000021'
	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 000043' 
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 
END BLOCK
	000000 000064'