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'