perm filename R1.GRU[S,AIL] blob
sn#097041 filedate 1974-04-12 generic text, type T, neo UTF8
NAME BLOCK
00 R1
PROGRAM
LOCATION 000000 000000'
334000 000000 067,000,000,000,000,000 SKIPA 000000
476000 000000 117,100,000,000,000,000 SETOM 000000
264000 000000 055,000,000,000,000,000 JSR 000000
261740 000012 054,076,000,000,005,000 PUSH 17,000012
261740 000000 054,076,000,000,000,000 PUSH 17,000000
261740 000016 054,076,000,000,007,000 PUSH 17,000016
541517 777776 130,064,177,177,177,000 HRRI 12,777776(17)
PROGRAM
LOCATION 000000 000007'
254000 000000 053,000,000,000,000,000 JRST 000000
000200 000000 000,010,000,000,000,000 000 04,000000
000240 000000 000,012,000,000,000,000 000 05,000000
000240 000000 000,012,000,000,000,000 000 05,000000
000240 000000 000,012,000,000,000,000 000 05,000000
000200 000000 000,010,000,000,000,000 000 04,000000
000000 000000 000,000,000,000,000,000 000 000000
260740 000000 054,036,000,000,000,000 PUSHJ 17,000000
010040 000000 002,002,000,000,000,000 010 01,000000
010000 000000 002,000,000,000,000,000 010 000000
202040 000020' 040,102,000,000,010,000 MOVEM 01,000020'
010000 000000 002,000,000,000,000,000 010 000000
202040 000022' 040,102,000,000,011,000 MOVEM 01,000022'
336100 000021' 067,104,000,000,010,100 SKIPN 02,000021'
260740 000000 054,036,000,000,000,000 PUSHJ 17,000000
201140 000001 040,046,000,000,000,100 MOVEI 03,000001
202142 000001 040,106,020,000,000,100 MOVEM 03,000001(02)
PROGRAM
LOCATION 000000 000030'
336200 000024' 067,110,000,000,012,000 SKIPN 04,000024'
260740 000025' 054,036,000,000,012,100 PUSHJ 17,000025'
336240 000030' 067,112,000,000,014,000 SKIPN 05,000030'
260740 000031' 054,036,000,000,014,100 PUSHJ 17,000031'
200245 000001 040,012,050,000,000,100 MOVE 05,000001(05)
271240 000001 056,052,000,000,000,100 ADDI 05,000001
202244 000002 040,112,040,000,001,000 MOVEM 05,000002(04)
201540 000000 040,066,000,000,000,000 MOVEI 13,000000
260740 000000 054,036,000,000,000,000 PUSHJ 17,000000
200512 000000 040,024,120,000,000,000 MOVE 12,000000(12)
274740 000000 057,036,000,000,000,000 SUB 17,000000
263740 000000 054,176,000,000,000,000 POPJ 17,000000
000000 000010' 000,000,000,000,004,000 000 000010'
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
LINK BLOCK
000000 000006
000000 000047'
PROGRAM
LOCATION 000000 000050'
000000 000000 000,000,000,000,000,000 000 000000
000000 000002 000,000,000,000,001,000 000 000002
440700 000000 110,034,000,000,000,000 ANDCB 16,000000
020000 000000 004,000,000,000,000,000 020 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
000050' 000000 000,002,100,000,000,000 000 01,000000(10) (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
440040 000045' 110,002,000,000,022,100 ANDCB 01,000045'
440040 000046' 110,002,000,000,023,000 ANDCB 01,000046'
740040 000000 170,002,000,000,000,000 BLKI 01,000000
000000 000000 000,000,000,000,000,000 000 000000
511420 000000 122,061,000,000,000,000 HLLZI 10,@000000
PROGRAM
LOCATION 000000 000071'
000000 000000 000,000,000,000,000,000 000 000000
777777 777777 177,177,177,177,177,100 CONSO 17,@777777(17)
000003 000003 000,000,030,000,001,100 000 000003(03)
SYMBOLS
14 R1 000000 000001
10 R1. 000000 000016'
10 FOO 000000 000010'
10 F1 000000 000045'
10 F2 000000 000046'
60 BEXIT 000000 000040'
60 .UINIT 000000 000016'
60 $RERR 000000 000033'
60 $REC$ 000000 000010'
INTERNAL REQUEST
000010' 000010'
000007' 000016'
000017' 000044'
000032' 000045'
000023' 000046'
000004' 000060'
000056' 000064'
000037' 000064'
000052' 000070'
000042' 000073'
LIBRARY REQUEST
SYS :LIBSA7.REL
PROGRAM
LOCATION 000000 000074'
000000 000000 000,000,000,000,000,000 000 000000
000011 000010 000,000,110,000,004,000 000 000010(11)
000000 000000 000,000,000,000,000,000 000 000000
000000 007777 000,000,000,017,177,100 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 000071' 000,000,000,000,034,100 000 000071'
000000 000072' 000,000,000,000,035,000 000 000072'
000000 000000 000,000,000,000,000,000 000 000000
LINK BLOCK
000000 000002
000000 000074'
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 000112'