$LIST $DATE 070913 $JOB PRIME NUMBERS IV $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. $IBJOB GO,LOGIC,MAP,FIOCS $IBFTC PRIME FULIST,REF,NODECK,M90 07/09/13 PAGE 1 PRIME - EFN SOURCE STATEMENT - IFN%S) - C C PRIME NUMBER GENERATOR USING THE SIEVE OF ERATOSTHENES C INTEGER I,NUM,MULT,PRIME,SIZE DIMENSION IFLAGS%1000) C *** SET ENDING NUMBER TO BE TESTED %MUST MATCH ARRAY DIMENSION) SIZE#1000 C *** MARK ALL NUMBERS IN THE SIEVE AS PRIME INITIALLY, EXCEPT 2 DO 10 I#1,SIZE 10 IFLAGS%I)#1 IFLAGS%1)#0 C C *** WORK THROUGH THE LIST, FINDING THE NEXT MARKED NUMBER C DO 40 NUM#1,SIZE IF %IFLAGS%NUM).EQ.0) GOTO 40 C *** MARKED NUMBER IS THE CURRENT PRIME, FORM ITS FIRST MULTIPLE PRIME#NUM MULT#PRIME&PRIME C *** UNMARK ALL MULTIPLES OF THE CURRENT PRIME 20 IF %MULT.GT.SIZE) GOTO 40 DO 30 I#MULT,SIZE,PRIME 30 IFLAGS%I)#0 C *** GO FIND NEXT UNMARKED NUMBER 40 CONTINUE C C *** PRINT RESULTS - ALL NUMBERS THAT ARE STILL MARKED C WRITE%6,900) 28 DO 50 NUM#1,SIZE IF %IFLAGS%NUM).EQ.0) GOTO 50 WRITE%6,901) NUM 35 50 CONTINUE STOP C 900 FORMAT%22H1LIST OF PRIME NUMBERS) 901 FORMAT%1X,I5) END 07/09/13 PAGE 2 PRIME STORAGE MAP MAIN PROGRAM DIMENSIONED PROGRAM VARIABLES SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE IFLAGS 00001 I UNDIMENSIONED PROGRAM VARIABLES SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE NUM 01751 I MULT 01752 I PRIME 01753 I SIZE 01754 I ENTRY POINTS ...... SECTION 2 SUBROUTINES CALLED .FWRD. SECTION 3 .EXIT. SECTION 4 .UN06. SECTION 5 .FFIL. SECTION 6 .FCNV. SECTION 7 SYSLOC SECTION 8 EFN IFN CORRESPONDENCE EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION 10 6A 02002 40 26A 02046 20 18A 02033 30 23A 02043 900 FORMAT 01765 50 36A 02102 901 FORMAT 01772 07/09/13 PAGE 3 PRIME ASSEMBLY LISTING $IBLDR PRIME 07/09/13 PRIM0000 $TEXT PRIME 07/09/13 PRIM0001 00000 002000002000 10011 TRA ...... 01755 100000001755 00001 ORG 1005 01755 000000000001 10000 C.0 OCT 000000000001 01756 000000000000 10000 C.1 OCT 000000000000 01757 000000000000 10000 C.2 OCT 000000000000 01760 000000000001 10000 C.3 OCT 000000000001 01761 000000001750 10000 C.4 OCT 000000001750 01762 000000000000 10000 C.5 OCT 000000000000 01763 000000000000 10000 RD. OCT 000000000000 01764 000000000000 10000 OCT 000000000000 01765 740202300143 10000 900. BCI 1,%22H1L 01766 316263604626 10000 BCI 1,IST OF 01767 604751314425 10000 BCI 1, PRIME 01770 604564442225 10000 BCI 1, NUMBE 01771 516234606060 10000 BCI 1,RS) 01772 740167733105 10000 901. BCI 1,%1X,I5 01773 346060606060 10000 BCI 1,) 01774 050000001761 10001 1A CLA C.4 01775 060100001754 10001 STO SIZE 01776 2A NULL 01776 3A NULL 01776 053500401754 10001 4A LAC SIZE,4 01777 177777402000 10001 TXI *&1,4,-1 02000 463400402005 10001 SXD 8A&1,4 02001 477400100001 10000 5A AXC 1,1 02002 050000001760 10001 6A CLA C.3 02003 060100100000 10011 7A STO IFLAGS-1,1 100001700001 10001 02004 177777102005 10001 8A TXI *&1,1,-1 02005 300000102002 10001 TXH 5A&1,1,** 02006 060000000001 10001 9A STZ IFLAGS 02007 10A NULL 02007 053500401754 10001 11A LAC SIZE,4 02010 177777402011 10001 TXI *&1,4,-1 02011 463400402047 10001 SXD 27A&1,4 02012 053500401754 10001 LAC SIZE,4 02013 177777402014 10001 TXI *&1,4,-1 02014 463400402045 10001 SXD 25A&1,4 02015 477400100001 10000 12A AXC 1,1 02016 060000001751 10001 STZ NUM 02017 063400102020 10001 SXA *&1,1 02020 477400400000 10000 AXC **,4 02021 063400401751 10001 SXA NUM,4 02022 050000100000 10011 13A CLA IFLAGS-1,1 100001700001 10001 02023 040200001762 10001 SUB C.5 02024 410000002026 10001 TNZ 16A 02025 14A NULL 02025 002000002046 10001 15A TRA 26A 02026 050000001751 10001 16A CLA NUM 02027 060100001753 10001 STO PRIME 07/09/13 PAGE 4 PRIME ASSEMBLY LISTING 02030 050000001753 10001 17A CLA PRIME 02031 040000001753 10001 ADD PRIME 02032 060100001752 10001 STO MULT 02033 050000001752 10001 18A CLA MULT 02034 040200001754 10001 SUB SIZE 02035 010000002040 10001 TZE 20A 02036 412000002040 10001 TMI 20A 02037 002000002046 10001 19A TRA 26A 02040 20A NULL 02040 053500401753 10001 21A LAC PRIME,4 02041 463400402044 10001 SXD 25A,4 02042 053500201752 10001 22A LAC MULT,2 02043 23A NULL 02043 060000200000 10011 24A STZ IFLAGS-1,2 100001700001 10001 02044 100000202045 10001 25A TXI *&1,2,** 02045 300000202043 10001 TXH 22A&1,2,** 02046 26A NULL 02046 177777102047 10001 27A TXI *&1,1,-1 02047 300000102017 10001 TXH 12A&2,1,** 02050 007400403000 10011 28A TSX .FWRD.,4 02051 100002002055 10001 TXI *&4,,2 02052 002110000034 10100 PZE 28,,LK.DR 02053 000000005000 10011 PZE .UN06. 02054 000000001765 10001 PZE 900. 02055 007400406000 10011 TSX .FFIL.,4 02056 29A NULL 02056 053500401754 10001 30A LAC SIZE,4 02057 177777402060 10001 TXI *&1,4,-1 02060 463400402103 10001 SXD 37A&1,4 02061 477400100001 10000 31A AXC 1,1 02062 060000001751 10001 STZ NUM 02063 063400102064 10001 SXA *&1,1 02064 477400400000 10000 AXC **,4 02065 063400401751 10001 SXA NUM,4 02066 050000100000 10011 32A CLA IFLAGS-1,1 100001700001 10001 02067 040200001762 10001 SUB C.5 02070 410000002072 10001 TNZ 35A 02071 33A NULL 02071 002000002102 10001 34A TRA 36A 02072 007400403000 10011 35A TSX .FWRD.,4 02073 100002002077 10001 TXI *&4,,2 02074 002110000043 10100 PZE 35,,LK.DR 02075 000000005000 10011 PZE .UN06. 02076 000000001772 10001 PZE 901. 02077 050000001751 10001 CLA NUM 02100 007400407000 10011 TSX .FCNV.,4 02101 007400406000 10011 TSX .FFIL.,4 02102 36A NULL 02102 177777102103 10001 37A TXI *&1,1,-1 02103 300000102063 10001 TXH 31A&2,1,** 02104 050000001756 10001 38A CLA C.1 02105 007400404000 10011 TSX .EXIT.,4 02106 100000002110 10001 TXI *&2,,0 02107 002110000046 10100 PZE 38,,LK.DR 07/09/13 PAGE 5 PRIME ASSEMBLY LISTING 02110 000000000000 10000 LK.DR PZE ** 02111 475131442560 10000 BCI 1,PRIME 02112 100000002121 10001 ...... TXI *&7,,** 02113 077400200000 10000 AXT **,2 02114 077400100000 10000 AXT **,1 02115 077400400000 10000 AXT **,4 02116 044100002120 10001 LDI *&2 02117 002000400001 10000 TRA 1,4 02120 000000000000 10000 PZE ** 02121 060400002120 10001 STI *-1 02122 063400410000 10011 SXA SYSLOC,4 02123 063400402110 10001 SXA LK.DR,4 02124 063400402115 10001 SXA *-7,4 02125 063400102114 10001 SXA *-9,1 02126 063400202113 10001 SXA *-11,2 02127 002000001774 10001 TRA 1A 07/09/13 PAGE 6 PRIME ASSEMBLY LISTING $CDICT PRIME 07/09/13 PRIM0009 002130002112 PREFACE START#1098,LENGTH#1112,TYPE#7090,CMPLX#5 000000000005 475131442560 PRIME DECK LOC#0,LENGTH#1112 002130000000 333333333333 ...... REAL LOC#1098,LENGTH#0 000000002112 332666512433 .FWRD. VIRTUAL SECT. 3,CALL 200000100000 332567316333 .EXIT. VIRTUAL SECT. 4,CALL 200000100000 336445000633 .UN06. VIRTUAL SECT. 5 200000000000 332626314333 .FFIL. VIRTUAL SECT. 6 200000000000 332623456533 .FCNV. VIRTUAL SECT. 7 200000000000 627062434623 SYSLOC VIRTUAL SECT. 8 200000000000 $DKEND PRIME 07/09/13 PRIM0011 THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 02130. IBLDR 07/09/13 PAGE 7 * CROSS REFERENCE LOGIC * DECK PRIME 02760 SIZE # 02130 REAL ...... 05072 VIRT .FWRD. REFERS TO FRDD AT 11374 VIRT .EXIT. REFERS TO XIT AT 10674 VIRT .UN06. REFERS TO UN06 AT 16365 VIRT .FFIL. REFERS TO FIOH AT 13041 VIRT .FCNV. REFERS TO FIOH AT 12744 VIRT SYSLOC REFERS TO .JBCON AT 02652 SUBR .IBSYS 00000 SIZE # 00134 REAL SYSLB1 00000 REAL SYSLB2 00001 REAL SYSLB3 00002 REAL SYSLB4 00003 REF@D BY - FIOS REAL SYSCRD 00004 REAL SYSPRT 00005 REAL SYSPCH 00006 REAL SYSOU1 00007 REF@D BY - FIOS , FXEM , .FPTRP, .LXSL , .LXCON REAL SYSOU2 00010 REAL SYSIN1 00011 REF@D BY - FIOS REAL SYSIN2 00012 REAL SYSPP1 00013 REAL SYSPP2 00014 REAL SYSCK1 00015 REAL SYSCK2 00016 REAL SYSUT1 00017 REAL SYSUT2 00020 REAL SYSUT3 00021 REAL SYSUT4 00022 REAL SYSUT5 00023 REAL SYSUT6 00024 REAL SYSUT7 00025 REAL SYSUT8 00026 REAL SYSUT9 00027 REAL SYSTRA 00100 REAL SYSDAT 00101 REAL SYSCUR 00102 REAL SYSRET 00103 REF@D BY - .LXCON REAL SYSKEY 00104 REAL SYSSWS 00105 REAL SYSPOS 00106 REAL SYSUNI 00107 REF@D BY - FIOS , .LXSL , .LXCON REAL SYSUBC 00110 REAL SYSUAV 00111 REF@D BY - .LXCON REAL SYSUCW 00112 REAL SYSRPT 00113 REAL SYSCEM 00114 REAL SYSDMP 00115 REF@D BY - .LXCON REAL SYSIOX 00116 REAL SYSIDR 00117 REF@D BY - .LXCON REAL SYSCOR 00120 REAL SYSLDR 00121 REAL SYSACC 00122 REAL SYSPID 00123 IBLDR 07/09/13 PAGE 8 * CROSS REFERENCE LOGIC * REAL SYSCYD 00124 REAL SYSSLD 00126 REAL SYSTCH 00127 REAL SYSTWT 00131 REF@D BY - .LXSL , .IOCSF REAL SYSGET 00132 REAL SYSJOB 00133 REF@D BY - .LXSL , .IOCSF, .LXCON SUBR .IOEX 00702 SIZE # 00047 REAL .ACTV 00702 REF@D BY - .LXSL , .IOCSF, .IODEF REAL .NDSEL 00704 REAL .MWR 00706 REF@D BY - .LXSL , .LXCON REAL .PUNCH 00707 REAL .ENBSW 00710 REAL .PAWS 00711 REAL .PAUSE 00712 REAL .STOP 00713 REAL .SYMUN 00714 REAL .DECVD 00715 REF@D BY - .LXSL REAL .DECVA 00716 REF@D BY - FIOT REAL .CKWAT 00717 REAL .BCD5R 00720 REF@D BY - FXEM , .LXCON REAL .BCD5X 00721 REF@D BY - FIOH REAL .CVPRT 00722 REAL .STOPD 00723 REF@D BY - .LXCON REAL .CHXAC 00724 REAL .URRX 00725 REF@D BY - .LXSL REAL .RCTX 00726 REAL .RCHX 00727 REF@D BY - .LXSL REAL .TCOX 00730 REAL .TRCX 00731 REAL .ETTX 00732 REAL .TEFX 00733 REAL .TRAPX 00734 REAL .TRAPS 00735 REAL .COMM 00736 REAL .LTPOS 00737 REAL .IOXSI 00740 REAL .CHPSW 00741 REAL .TRPSW 00742 REAL .FDAMT 00743 REF@D BY - .LXSL REAL .SDCXI 00744 REAL .STCXI 00745 REAL .COMMD 00746 REAL .IBCDZ 00747 REAL .CHXSP 00750 SUBR .JBCON 02652 SIZE # 00046 REAL SYSLOC 02652 REF@D BY - PRIME , FCNV , FIOH , FRDD , FXEM , .LXSL REAL SYSFAZ 02653 REAL .JCOR 02654 REAL .JDATE 02655 REAL .JLDAT 02656 REAL .JTYPE 02660 REF@D BY - .LXCON REAL .JLIN 02661 REF@D BY - FIOS , .LXCON REAL .JVER 02662 REAL SYSDSB 02663 IBLDR 07/09/13 PAGE 9 * CROSS REFERENCE LOGIC * REAL .IOEXD 02664 REAL .FDPOS 02715 REAL .JDTRK 02716 REAL SYSZRO 02717 SUBR .LXCON 05110 SIZE # 00454 REAL .LXSTR 05110 REAL .LXSTP 05113 REF@D BY - .LXSL REAL .LXOUT 05161 REAL .LXERR 05170 REF@D BY - FIOS , FXEM REAL .LXCAL 05173 REAL .LXRTN 05173 REF@D BY - FIOS , XIT REAL IBEXIT 05173 REAL .DBCLS 05355 REAL .LXARG 05524 REAL .L0 05547 REAL .CLSE 05555 REF@D BY - .IODEF REAL .LFBL 05556 REAL .LUNB 05557 REF@D BY - .IODEF REAL .DFOUT 05560 REF@D BY - .LXSL VIRT .LXSEL REFERS TO .LXSL AT 10313 VIRT .LXSL1 REFERS TO .LXSL AT 10314 VIRT .BCD5R REFERS TO .IOEX AT 00720 VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .JTYPE REFERS TO .JBCON AT 02660 VIRT SYSJOB REFERS TO .IBSYS AT 00133 VIRT SYSUNI REFERS TO .IBSYS AT 00107 VIRT SYSUAV REFERS TO .IBSYS AT 00111 VIRT SYSIDR REFERS TO .IBSYS AT 00117 VIRT .JLIN REFERS TO .JBCON AT 02661 VIRT SYSRET REFERS TO .IBSYS AT 00103 VIRT SYSDMP REFERS TO .IBSYS AT 00115 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .LTCH REFERS TO .LXSL AT 10455 VIRT .STOPD REFERS TO .IOEX AT 00723 SUBR .IODEF 05564 SIZE # 00224 REAL .DEFIN 05564 REF@D BY - .IOCSF REAL .ATTAC 05570 REAL .CLOSE 05572 REF@D BY - FIOS REAL .OPEN 05574 REF@D BY - FIOS REAL .READ 05576 REF@D BY - FIOS REAL .WRITE 05600 REF@D BY - FIOS REAL .BSR 05610 REAL .READR 05620 REAL .RELES 05622 REAL .LAREA 05633 REAL .LFBLK 05651 REF@D BY - .IOCSF REAL .LTSX 05654 REAL .RLHLD 05664 REAL .AREA1 05667 REF@D BY - .IOCSF REAL .LUNBL 05675 REAL .ENTRY 05701 REF@D BY - .IOCSF REAL .GOA 05736 REF@D BY - .IOCSF REAL .GO 05742 REF@D BY - .IOCSF REAL .DERR 05756 REF@D BY - .IOCSF IBLDR 07/09/13 PAGE 10 * CROSS REFERENCE LOGIC * REAL .NOPXI 05757 REF@D BY - .IOCSF REAL .COMXI 05761 REF@D BY - .IOCSF REAL .EX34 06003 REF@D BY - .IOCSF VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .CLSE REFERS TO .LXCON AT 05555 VIRT .LUNB REFERS TO .LXCON AT 05557 SUBR .IOCSF 06010 SIZE # 02302 VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .NOPXI REFERS TO .IODEF AT 05757 VIRT .COMXI REFERS TO .IODEF AT 05761 VIRT .LFBLK REFERS TO .IODEF AT 05651 VIRT .AREA1 REFERS TO .IODEF AT 05667 VIRT .EX34 REFERS TO .IODEF AT 06003 VIRT .DEFIN REFERS TO .IODEF AT 05564 VIRT .ENTRY REFERS TO .IODEF AT 05701 VIRT .GOA REFERS TO .IODEF AT 05736 VIRT .GO REFERS TO .IODEF AT 05742 VIRT .DERR REFERS TO .IODEF AT 05756 VIRT SYSTWT REFERS TO .IBSYS AT 00131 VIRT SYSJOB REFERS TO .IBSYS AT 00133 SUBR .LXSL 10312 SIZE # 00152 REAL .LXSLB 10312 REAL .LXSEL 10313 REF@D BY - .LXCON, FXEM REAL .LXSL1 10314 REF@D BY - .LXCON, .FPTRP REAL .LXTST 10317 REAL .LXOVL 10362 REAL .LXMOD 10424 REAL .LXIND 10450 REAL .LXDIS 10453 REAL .LXFLG 10454 REAL .LTCH 10455 REF@D BY - .LXCON, FXEM , .FPTRP VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .DFOUT REFERS TO .LXCON AT 05560 VIRT SYSUNI REFERS TO .IBSYS AT 00107 VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .RCHX REFERS TO .IOEX AT 00727 VIRT SYSJOB REFERS TO .IBSYS AT 00133 VIRT .URRX REFERS TO .IOEX AT 00725 VIRT .DECVD REFERS TO .IOEX AT 00715 VIRT .FDAMT REFERS TO .IOEX AT 00743 VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .LXSTP REFERS TO .LXCON AT 05113 VIRT SYSTWT REFERS TO .IBSYS AT 00131 SUBR .FPTRP 10464 SIZE # 00210 REAL .FFPT. 10464 REAL .FPOUT 10613 REAL .FPARG 10621 REAL .COUNT 10623 REAL OVFLOW 10667 VIRT .LXSL1 REFERS TO .LXSL AT 10314 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .LTCH REFERS TO .LXSL AT 10455 IBLDR 07/09/13 PAGE 11 * CROSS REFERENCE LOGIC * SUBR XIT 10674 REAL EXIT 10674 REAL .EXIT. 10674 REF@D BY - PRIME VIRT .LXRTN REFERS TO .LXCON AT 05173 SUBR FXEM 10675 SIZE # 00357 REAL .FXEM. 10675 REF@D BY - FIOT , FCNV , FIOH , FIOS REAL TRACE 10703 REAL .OPTW. 11240 SIZE # 00003 VIRT .LXSEL REFERS TO .LXSL AT 10313 VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT .BCD5R REFERS TO .IOEX AT 00720 VIRT .LXERR REFERS TO .LXCON AT 05170 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .LTCH REFERS TO .LXSL AT 10455 SUBR FCOM 11254 SIZE # 00115 REAL .FCOM. 11254 REF@D BY - FIOT , FCNV , FIOH , FIOS , FRDD REAL FORCOM 11357 SIZE # 00012 SUBR FRDD 11371 SIZE # 00115 REAL .FRDD. 11371 REAL .FWRD. 11374 REF@D BY - PRIME VIRT .FIOH. REFERS TO FIOH AT 12165 VIRT .FCOM. REFERS TO FCOM AT 11254 VIRT .FIOS. REFERS TO FIOS AT 11506 VIRT .FCON. REFERS TO FCNV AT 13160 VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT .FSEL. REFERS TO FIOS AT 11675 VIRT .FRTB. REFERS TO FIOS AT 11712 VIRT .FRTD. REFERS TO FIOS AT 11727 SUBR FIOS 11506 SIZE # 00457 REAL .FIOS. 11506 REF@D BY - FRDD REAL .FSEL. 11675 REF@D BY - FRDD REAL .FRTB. 11712 REF@D BY - FRDD REAL .FRTD. 11727 REF@D BY - FRDD REAL .FBF1. 12161 VIRT .FIOT. REFERS TO FIOT AT 16246 VIRT .FXEM. REFERS TO FXEM AT 10675 VIRT .FCOM. REFERS TO FCOM AT 11254 VIRT SYSUNI REFERS TO .IBSYS AT 00107 VIRT SYSIN1 REFERS TO .IBSYS AT 00011 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT SYSLB4 REFERS TO .IBSYS AT 00003 VIRT .FIOE. REFERS TO FIOT AT 16337 VIRT .CLOSE REFERS TO .IODEF AT 05572 VIRT .OPEN REFERS TO .IODEF AT 05574 VIRT .READ REFERS TO .IODEF AT 05576 VIRT .WRITE REFERS TO .IODEF AT 05600 VIRT .JLIN REFERS TO .JBCON AT 02661 VIRT .LXERR REFERS TO .LXCON AT 05170 VIRT .LXRTN REFERS TO .LXCON AT 05173 SUBR FIOH 12165 SIZE # 00773 REAL .FIOH. 12165 REF@D BY - FRDD IBLDR 07/09/13 PAGE 12 * CROSS REFERENCE LOGIC * REAL .FCNV. 12744 REF@D BY - PRIME REAL .FFIL. 13041 REF@D BY - PRIME REAL .FRTN. 13041 VIRT .FCON. REFERS TO FCNV AT 13160 VIRT .FXEM. REFERS TO FXEM AT 10675 VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT .FCOM. REFERS TO FCOM AT 11254 VIRT .BCD5X REFERS TO .IOEX AT 00721 SUBR FCNV 13160 SIZE # 03066 REAL .FCON. 13160 REF@D BY - FIOH , FRDD VIRT .FXEM. REFERS TO FXEM AT 10675 VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT .FCOM. REFERS TO FCOM AT 11254 SUBR FIOT 16246 SIZE # 00117 REAL .FIOT. 16246 REF@D BY - FIOS , UN06 REAL .FIOE. 16337 REF@D BY - FIOS VIRT .FXEM. REFERS TO FXEM AT 10675 VIRT .FCOM. REFERS TO FCOM AT 11254 VIRT .DECVA REFERS TO .IOEX AT 00716 SUBR UN06 16365 REAL .UN06. 16365 REF@D BY - PRIME REAL ..UN06 16365 VIRT .FIOT. REFERS TO FIOT AT 16246 IBLDR 07/09/13 PAGE 13 * IOCS CONTROLS * FILE LIST LOC 02734 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT # 00001 02735 UNIT06 BUFFER POOL LOC 16366 BUFFER COUNT # 01014 , BUFFER SIZE # 00023 FILE COUNT# 00001 , FILE LIST LOC # 02734 IBLDR 07/09/13 PAGE 14 * MEMORY MAP * SYSTEM 00000 THRU 02717 FILE BLOCK ORIGIN 02720 FILES 1. UNIT06 FILE LIST ORIGIN 02734 PRE-EXECUTION INITIALIZATION 02736 CALL ON OBJECT PROGRAM 02753 OBJECT PROGRAM 02760 THRU 16365 DECK ORIGIN CONTROL SECTIONS %/NAME/#NON 0 LENGTH, %LOC)#DELETED, @LOC@#MOVED, *#NOT REFERENCED) 1. PRIME 02760 ...... 05072 * 2. .LXCON 05110 .LXSTR 05110 * .LXSTP 05113 .LXOUT 05161 * .LXERR 05170 .LXCAL 05173 * .LXRTN 05173 IBEXIT 05173 * .DBCLS 05355 * .LXARG 05524 * .L0 05547 * .CLSE 05555 .LFBL 05556 * .LUNB 05557 .DFOUT 05560 3. .IODEF 05564 .DEFIN 05564 .ATTAC 05570 * .CLOSE 05572 .OPEN 05574 .READ 05576 .WRITE 05600 .BSR 05610 * .READR 05620 * .RELES 05622 * .LAREA 05633 * .LFBLK 05651 .LTSX 05654 * .RLHLD 05664 * .AREA1 05667 .LUNBL 05675 * .ENTRY 05701 .GOA 05736 .GO 05742 .DERR 05756 .NOPXI 05757 .COMXI 05761 .EX34 06003 4. .IOCSF 06010 5. .LXSL 10312 .LXSLB 10312 * .LXSEL 10313 .LXSL1 10314 .LXTST 10317 * .LXOVL 10362 * .LXMOD 10424 * .LXIND 10450 * .LXDIS 10453 * .LXFLG 10454 * .LTCH 10455 6. .FPTRP 10464 .FFPT. 10464 * .FPOUT 10613 * .FPARG 10621 * /.COUNT/ 10623 * OVFLOW 10667 * 7. XIT 10674 EXIT 10674 * .EXIT. 10674 8. FXEM 10675 .FXEM. 10675 TRACE 10703 * /.OPTW./ 11240 * 9. FCOM 11254 .FCOM. 11254 /FORCOM/ 11357 * 10. FRDD 11371 .FRDD. 11371 * .FWRD. 11374 11. FIOS 11506 .FIOS. 11506 .FSEL. 11675 .FRTB. 11712 .FRTD. 11727 /.FBF1./ 12161 * 12. FIOH 12165 .FIOH. 12165 .FCNV. 12744 .FFIL. 13041 .FRTN. 13041 * 13. FCNV 13160 .FCON. 13160 14. FIOT 16246 .FIOT. 16246 .FIOE. 16337 15. UN06 16365 .UN06. 16365 ..UN06 16365 * I/O BUFFERS 16366 THRU 77775 UNUSED CORE 77776 THRU 77777 LIST OF PRIME NUMBERS 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997 736 LINES OUTPUT. $JOB PRIME NUMBERS II $EXECUTE FORTRAN $ID PRIME * XEQ * LIST8 PRIMES 7/09/13 PAGE 1 C PRIME NUMBER GENERATOR USING THE SIEVE OF ERATOSTHENES C CONVERTED TO FORTRAN II C DIMENSION IFLAGS%1000) C *** SET ENDING NUMBER TO BE TESTED %MUST MATCH ARRAY DIMENSION) ISIZE#1000 C *** MARK ALL NUMBERS IN THE SIEVE AS PRIME INITIALLY, EXCEPT 2 DO 10 I#1,ISIZE 10 IFLAGS%I)#1 IFLAGS%1)#0 C C *** WORK THROUGH THE LIST, FINDING THE NEXT MARKED NUMBER C DO 40 NUM#1,ISIZE IF %IFLAGS%NUM)) 15,40,15 C *** MARKED NUMBER IS THE CURRENT PRIME, FORM ITS FIRST MULTIPLE 15 IPRIME#NUM MULT#IPRIME&IPRIME C *** UNMARK ALL MULTIPLES OF THE CURRENT PRIME 20 IF %MULT-ISIZE) 25,25,40 25 DO 30 I#MULT,ISIZE,IPRIME 30 IFLAGS%I)#0 C *** GO FIND NEXT UNMARKED NUMBER 40 CONTINUE C C *** PRINT RESULTS - ALL NUMBERS THAT ARE STILL MARKED C WRITE OUTPUT TAPE 6,900 DO 50 NUM#1,ISIZE IF %IFLAGS%NUM)) 45,50,45 45 WRITE OUTPUT TAPE 6,901,NUM 50 CONTINUE CALL EXIT C 900 FORMAT%1H1,22H LIST OF PRIME NUMBERS) 901 FORMAT%1X,I5) END%1,1,0,0,0,0,1,1,0,1,0,0,0,0,0) PRIMES 7/09/13 PAGE 2 STORAGE NOT USED BY PROGRAM DEC OCT DEC OCT 1100 02114 32561 77461 STORAGE LOCATIONS FOR VARIABLES APPEARING IN DIMENSION AND EQUIVALENCE STATEMENTS DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT IFLAGS 1099 02113 STORAGE LOCATIONS FOR VARIABLES NOT APPEARING IN COMMON, DIMENSION, OR EQUIVALENCE STATEMENT DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT IPRIME 99 00143 ISIZE 98 00142 MULT 97 00141 NUM 96 00140 SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT STATEMENTS EFN LOC EFN LOC EFN LOC EFN LOC EFN LOC 8)S4 900 00137 8)S5 901 00131 LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE PROGRAM DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT 2) 78 00116 4) 32767 77777 6) 82 00122 LOCATIONS OF NAMES IN TRANSFER VECTOR DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT EXIT 3 00003 %FIL) 2 00002 %FPT) 0 00000 %STH) 1 00001 ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY EXIT %FIL) %FPT) %STH) EXTERNAL FORMULA NUMBERS WITH CORRESPONDING INTERNAL FORMULA NUMBERS AND OCTAL LOCATIONS EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC EFN IFN LOC 10 7 00016 15 11 00033 20 13 00040 25 14 00044 30 15 00051 40 16 00055 45 20 00073 50 22 00101 PRIMES 7/09/13 PAGE 3 00000 -342647633460 00 %FPT) BCD 1%FPT) 00067 -075400100000 00 PXD 0,1 00001 -346263303460 00 %STH) BCD 1%STH) 00070 &060100000140 010 STO NUM 00002 -342631433460 00 %FIL) BCD 1%FIL) 00071 &050000102114 011 19A CLA IFLAGS&1,1 00003 &256731636060 00 EXIT BCD 1EXIT 00072 &010000000101 010 19A1 TZE 22A 00004 &050000000002 00 $$ CLA 2 00073 -050000000121 010 20A CAL 2)&3 00005 &060100000127 010 STO 6)&5 00074 &007400400001 010 TSX %STH),4 00006 &050000000000 010 CLA %FPT) 00075 &000000000131 010 PZE 8)S5 00007 &060100000010 00 STO 8 00076 &056000000140 010 21A LDQ NUM 00010 &060000077462 010 STZ 4)-205 00077 -100000000000 00 STR 00011 &050000000116 010 5A CLA 2) 00100 &007400400002 010 TSX %FIL),4 00012 &060100000142 010 STO ISIZE 22A BSS 00013 -053400100117 010 6A LXD 2)&1,1 00101 &100001100102 010 22A1 TXI *&1,1,1 00014 &050000000142 010 CLA ISIZE 00102 -063400100140 010 SXD NUM,1 00015 &062200000021 010 STD 7A2 00103 -300000100071 010 22A2 TXL 19A,1 00016 &050000000117 010 7A CLA 2)&1 23A BSS 00017 &060100102114 011 STO IFLAGS&1,1 00104 &007400400003 010 TSX EXIT,4 00020 &100001100021 010 7A1 TXI *&1,1,1 00105 &076200001321 00 RCD 00021 -300000100016 010 7A2 TXL 7A,1 00106 &054000000112 010 RLA *&4 00022 &050000000120 010 8A CLA 2)&2 00107 &054400000000 00 LCA 00023 &060100002113 010 STO IFLAGS 00110 &003000000113 010 TAF *&3 00024 -053400100117 010 9A LXD 2)&1,1 00111 &002000000001 00 TRA 1 00025 &050000000142 010 CLA ISIZE 00112 -100003000000 00 MON 0,0,3 00026 &062200000057 010 STD 16A2 00113 &076000000005 00 IOT 00027 -075400100000 00 PXD 0,1 00114 &042000700001 00 2047D1 HPR 1,7 00030 &060100000140 010 STO NUM 00115 &002000000114 010 TRA 2047D1 00031 &050000102114 011 10A CLA IFLAGS&1,1 00116 &001750000000 00 2) OCT &001750000000 00032 &010000000055 010 10A1 TZE 16A 00117 &000001000000 00 OCT &000001000000 00033 &050000000140 010 11A CLA NUM 00120 &000000000000 00 OCT &000000000000 00034 &060100000143 010 STO IPRIME 00121 &000006000000 00 OCT &000006000000 00035 &050000000143 010 12A CLA IPRIME 00122 &233000000000 00 6) OCT &233000000000 00036 &040000000143 010 ADD IPRIME 00123 &000000377777 00 OCT &000000377777 00037 &060100000141 010 STO MULT 00124 &000000000000 00 OCT &000000000000 00040 &050000000141 010 13A CLA MULT 00125 &000001000000 00 OCT &000001000000 00041 &040200000142 010 SUB ISIZE 00126 &000000000000 00 OCT &000000000000 00042 &010000000044 010 13A1 TZE 14A 00127 &000000000000 00 OCT &000000000000 00043 &012000000055 010 TPL 16A 00130 &346060606060 00 BCD 1) 00044 -053400200141 010 14A LXD MULT,2 00131 -340167733105 00 8)S5 BCD 1%1X,I5 00045 &050000000142 010 CLA ISIZE 00132 &346060606060 00 BCD 1) 00046 &062200000054 010 STD 15A2 00133 -244422255162 00 BCD 1UMBERS 00047 &050000000143 010 CLA IPRIME 00134 -113144256045 00 BCD 1RIME N 00050 &062200000053 010 STD 15A1 00135 -236046266047 00 BCD 1T OF P 00051 &050000000120 010 15A CLA 2)&2 00136 &023060433162 00 BCD 12H LIS 00052 &060100202114 011 STO IFLAGS&1,2 00137 -340130017302 00 8)S4 BCD 1%1H1,2 00053 &100000200054 010 15A1 TXI *&1,2 00054 -300000200051 010 15A2 TXL 15A,2 16A BSS 00055 &100001100056 010 16A1 TXI *&1,1,1 00056 -063400100140 010 SXD NUM,1 00057 -300000100031 010 16A2 TXL 10A,1 00060 -050000000121 010 17A CAL 2)&3 00061 &007400400001 010 TSX %STH),4 00062 &000000000137 010 PZE 8)S4 00063 &007400400002 010 TSX %FIL),4 00064 -053400100117 010 18A LXD 2)&1,1 00065 &050000000142 010 CLA ISIZE 00066 &062200000103 010 STD 22A2 LIBRARY ENTRY POINTS, %FPT) %STHM) %FIL) EXIT LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 1 A1 0 31 0 0 0 0 0 2 A6 72 74 0 0 0 0 0 3 A9 14 16 0 0 0 0 0 4 A5 36 35 0 0 0 0 0 5 A3 0 44 0 0 0 0 0 6 A4 72 1 0 0 0 0 0 7 A8 11 7 0 0 0 0 0 EXECUTION LIST OF PRIME NUMBERS 2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97 101 103 107 109 113 127 131 137 139 149 151 157 163 167 173 179 181 191 193 197 199 211 223 227 229 233 239 241 251 257 263 269 271 277 281 283 293 307 311 313 317 331 337 347 349 353 359 367 373 379 383 389 397 401 409 419 421 431 433 439 443 449 457 461 463 467 479 487 491 499 503 509 521 523 541 547 557 563 569 571 577 587 593 599 601 607 613 617 619 631 641 643 647 653 659 661 673 677 683 691 701 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821 823 827 829 839 853 857 859 863 877 881 883 887 907 911 919 929 937 941 947 953 967 971 977 983 991 997 308 LINES OUTPUT THIS JOB. $ID HELLO * XEQ * LIST HELLO 7/09/13 PAGE 1 WRITE OUTPUT TAPE 6,900 CALL EXIT C 900 FORMAT%1H1,12H HELLO WORLD) END%1,1,0,0,0,0,1,0,0,1,0,0,0,0,0) HELLO 7/09/13 PAGE 2 STORAGE NOT USED BY PROGRAM DEC OCT DEC OCT 34 00042 32561 77461 SYMBOLS AND LOCATIONS FOR SOURCE PROGRAM FORMAT STATEMENTS EFN LOC EFN LOC EFN LOC EFN LOC EFN LOC 8)S4 900 00041 LOCATIONS FOR OTHER SYMBOLS NOT APPEARING IN SOURCE PROGRAM DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT 2) 23 00027 4) 32767 77777 6) 24 00030 LOCATIONS OF NAMES IN TRANSFER VECTOR DEC OCT DEC OCT DEC OCT DEC OCT DEC OCT EXIT 3 00003 %FIL) 2 00002 %FPT) 0 00000 %STH) 1 00001 ENTRY POINTS TO SUBROUTINES NOT OUTPUT FROM LIBRARY EXIT %FIL) %FPT) %STH) HELLO 7/09/13 PAGE 3 00000 %FPT) BCD 1%FPT) 00001 %STH) BCD 1%STH) 00002 %FIL) BCD 1%FIL) 00003 EXIT BCD 1EXIT 00004 $$ CLA 2 00005 STO 6)&5 00006 CLA %FPT) 00007 STO 8 00010 STZ 4)-205 00011 3A CAL 2) 00012 TSX %STH),4 00013 PZE 8)S4 00014 TSX %FIL),4 4A BSS 00015 TSX EXIT,4 00016 RCD 00017 RLA *&4 00020 LCA 00021 TAF *&3 00022 TRA 1 00023 MON 0,0,3 00024 IOT 00025 2047D1 HPR 1,7 00026 TRA 2047D1 00027 2) OCT &000006000000 00030 6) OCT &233000000000 00031 OCT &000000377777 00032 OCT &000000000000 00033 OCT &000001000000 00034 OCT &000000000000 00035 OCT &000000000000 00036 BCD 1LD) 00037 BCD 1LO WOR 00040 BCD 12H HEL 00041 8)S4 BCD 1%1H1,1 LIBRARY ENTRY POINTS, %FPT) %STHM) %FIL) EXIT LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 1 A1 0 31 0 0 0 0 0 2 A6 38 33 0 0 0 0 0 3 A9 10 6 0 0 0 0 0 4 A5 17 14 0 0 0 0 0 5 A3 0 13 0 0 0 0 0 6 A4 36 1 0 0 0 0 0 7 A8 7 4 0 0 0 0 0 EXECUTION HELLO WORLD 78 LINES OUTPUT THIS JOB. FORTRAN MONITOR RETURNING TO IBSYS $JOB COBOL HELLO WORLD $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. $IBJOB GO,LOGIC,MAP,FIOCS $IBCBC HELLO FULIST,REF,NODECK,M94,XR7 HELLO 07/09/13 PAGE 1 REPLICA OF THE SOURCE PROGRAM AUGMENTED BY THE EQUIVALENT NAMES AND CARD NUMBERS ASSIGNED BY THE COMPILER. 0000 $IBCBC HELLO FULIST,REF,NODECK,M94,XR7 0001 000100 IDENTIFICATION DIVISION. 0002 000200 PROGRAM-ID. COB0. 0003 000300 AUTHOR. B W SPOOR. 0004 000400 INSTALLATION. FRIDAY COMPUTER SERVICES. 0005 000500 DATE-WRITTEN. SEPTEMBER 2004. 0006 000600 DATE-COMPILED. SEPTEMBER 2004. 0007 000700* 0008 000800* 0009 000900* OUTPUT @HELLO WORLD@ 0010 001000* 0011 001100* 0012 001200 ENVIRONMENT DIVISION. 0013 001300 CONFIGURATION SECTION. 0014 001400 SOURCE-COMPUTER. IBM-7094. 0015 001501 OBJECT-COMPUTER. IBM-7094. 0016 001600 INPUT-OUTPUT SECTION. 0017 001700 FILE-CONTROL. 0018 001800 0019 001900 DATA DIVISION. 0020 002000 WORKING-STORAGE SECTION. EN0231 0021 002100 01 FILLER PICTURE X. 0022 002200 0023 002300 PROCEDURE DIVISION. 0024 002301 0025 002400 CONT-SECT. EN0234%0025) 0026 002500 CONT-0000. EN0235%0026) 0027 002600 DISPLAY @HELLO WORLD@. 0028 002700 CONT-9999. EN0236%0028) 0029 002800 STOP RUN. 0030 $CBEND HELLO 07/09/13 PAGE 2 COBOL CROSS REFERENCE DICTIONARY. THE NUMBERS WHICH FOLLOW EACH EXTERNAL NAME ARE THOSE ASSIGNED BY THE COBOL COMPILER. IF A NAME IS FOLLOWED BY MORE THAN ONE NUMBER, THEY ARE ALL EN NUMBERS, ALTHOUGH ONLY THE FIRST ONE IS EXPLICITLY GIVEN AS @ENXXXX@. A @GENERATED NAME NUMBER@ %GNXXXX) IS GIVEN TO AN UNDEFINED PROCEDURE NAME. A @TEMPORARY STORAGE NUMBER@ %TSXXXX) IS GIVEN TO AN UNDEFINED DATA NAME CONT-SECT EN0234 CONT-0000 EN0235 CONT-9999 EN0236 HELLO 07/09/13 PAGE 3 NO ERRORS WERE DETECTED BY THE COMPILER. HELLO 07/09/13 PAGE 4 7094 RELMOD ASSEMBLY. COMPILER GENERATED INPUT. $IBLDR HELLO 07/09/13 HELL0000 HELLO 07/09/13 PAGE 5 ASSEMBLED TEXT. $TEXT HELLO HELL0001 BINARY CARD %NOT PUNCHED) 00000 100000000000 00001 USE 0 00000 HELLO NULL 00000 1 00000 0 00013 10001 GN0000 SAVEN 3,5,6,7,1,2,4,I 00001 0774 00 7 00000 10000 00002 0774 00 6 00000 10000 00003 0774 00 5 00000 10000 00004 0774 00 3 00000 10000 00005 0774 00 2 00000 10000 00006 0774 00 1 00000 10000 00007 0774 00 4 00000 10000 00010 0441 00 0 00012 10001 00011 0020 00 4 00001 10000 00012 0 00000 0 00000 10000 00013 0604 00 0 00012 10001 00014 0634 00 4 01400 10011 00015 0634 00 4 00007 10001 00016 0634 00 1 00006 10001 00017 0634 00 2 00005 10001 00020 0634 00 3 00004 10001 00021 0634 00 5 00003 10001 BINARY CARD %NOT PUNCHED) 00022 0634 00 6 00002 10001 00023 0634 00 7 00001 10001 00024 4774 00 4 00031 10001 AXC GN0002&2,4 00025 0020 00 0 00401 10011 GN0001 TRA *&1 00026 0634 00 4 00027 10001 SXA GN0002,4 00110 100000000110 00001 USE 1 00110 200000000001 00001 WS BSS 1 00027 100000000027 00001 USE 0 00027 0774 00 4 00000 10000 GN0002 AXT **,4 00030 4625 00 0 00025 10001 STL GN0001 00031 0020 00 4 00001 10000 TRA 1,4 00032 EN0234 NULL 00032 EN0235 NULL 15, GN0003 CALL .CDISP ETC %CP&2 00032 000000000000 00010 ETC )@0000@ 00032 0074 00 4 01000 10011 00033 1 00001 0 00403 10011 00034 0 00106 0 00000 10100 00035 0 00000 0 00102 10001 00036 0020 00 0 00402 10011 TRA *&2 00037 0 00000 0 00013 10000 PZE 11,,0 00040 EN0236 NULL 21, GN0004 CALL .CDISP ETC %CP&4 ETC ,CP&5 00040 000000000000 00010 ETC )@0000@ BINARY CARD %NOT PUNCHED) 00040 0074 00 4 01000 10011 HELLO 07/09/13 PAGE 6 ASSEMBLED TEXT. 00041 1 00002 0 00404 10011 00042 0 00106 0 00000 10100 00043 0 00000 0 00104 10001 00044 0 00000 0 00105 10001 00045 0020 00 0 00403 10011 TRA *&3 00046 0 00000 0 00005 10000 PZE 5,,0 00047 0 00000 0 00003 10000 PZE 3,,0 00050 RETURN GN0000 00051 EN0237 RETURN GN0000 00052 BL NULL 00052 PI NULL 00052 0 00000 0 00000 10000 RS PZE 0 00053 0 00000 0 00000 10000 PZE 0 00054 0 00000 0 00000 10000 TS PZE 0 00055 0 00000 0 00000 10000 PZE 0 00056 0 00000 0 00000 10000 PZE 0 00057 0 00000 0 00000 10000 PZE 0 00060 0 00000 0 00000 10000 PZE 0 00061 0 00000 0 00000 10000 PZE 0 00062 0 00000 0 00000 10000 PZE 0 BINARY CARD %NOT PUNCHED) 00063 0 00000 0 00000 10000 PZE 0 00064 0 00000 0 00000 10000 PZE 0 00065 0 00000 0 00000 10000 PZE 0 00066 0 00000 0 00000 10000 PZE 0 00067 0 00000 0 00000 10000 PZE 0 00070 0 00000 0 00000 10000 PZE 0 00071 0 00000 0 00000 10000 PZE 0 00072 0 00000 0 00000 10000 PZE 0 00073 0 00000 0 00000 10000 PZE 0 00074 0 00000 0 00000 10000 PZE 0 00075 0 00000 0 00000 10000 PZE 0 00076 0 00000 0 00000 10000 PZE 0 00077 0 00000 0 00000 10000 PZE 0 00100 000000000000 10000 CP OCT 000000000000 00101 000000000001 10000 OCT 000000000001 00102 302543434660 10000 OCT 302543434660 00103 664651432460 10000 OCT 664651432460 00104 626346476060 10000 OCT 626346476060 00105 516445606060 10000 OCT 516445606060 BINARY CARD %NOT PUNCHED) 00106 200000000000 00001 SP BSS 0 00106 000000000000 10000 *LDIR 00107 302543434660 10000 00000 01111 END GN0000 HELLO 07/09/13 PAGE 7 CONTROL DICTIONARY $CDICT HELLO HELL0002 BINARY CARD %NOT PUNCHED) 000111000000 PREFACE START#0,LENGTH#73,TYPE#7094,CMPLX#6 000004000006 302543434660 HELLO DECK 000111000000 332324316247 .CDISP VIRTUAL SECT. 2,CALL 200000100000 627062434623 SYSLOC VIRTUAL SECT. 3 200000000000 $DKEND HELLO HELL0003 NO MESSAGES FOR THIS ASSEMBLY HELLO 07/09/13 PAGE 8 SYMBOL REFERENCE DATA REFERENCES TO DEFINED SYMBOLS. CLASS SYMBOL VALUE REFERENCES LCTR 0 LCTR 1 BL 00052 CP 00100 35,43,44 EN0234 00032 EN0235 00032 EN0236 00040 EN0237 00051 GN0000 00000 50,51,110 GN0001 00025 30 GN0002 00027 24,26 GN0003 00032 GN0004 00040 HELLO 00000 ..0001 00007 15,16,17,20,21,22,23 ..0002 00011 10,13 ..0003 00013 0 PI 00052 RS 00052 LCTR BLCTR QUAL UNQS LCTR // SP 00106 TS 00054 WS 00110 REFERENCES TO VIRTUAL SYMBOLS. .CDISP 2 32,40 SYSLOC 3 14 IBLDR 07/09/13 PAGE 9 * CROSS REFERENCE LOGIC * DECK HELLO 03004 SIZE # 00111 VIRT .CDISP REFERS TO CDISP AT 12146 VIRT SYSLOC REFERS TO .JBCON AT 02652 SUBR .IBSYS 00000 SIZE # 00134 REAL SYSLB1 00000 REAL SYSLB2 00001 REAL SYSLB3 00002 REAL SYSLB4 00003 REAL SYSCRD 00004 REAL SYSPRT 00005 REAL SYSPCH 00006 REAL SYSOU1 00007 REF@D BY - .FPTRP, .LXSL , .LXCON REAL SYSOU2 00010 REAL SYSIN1 00011 REAL SYSIN2 00012 REAL SYSPP1 00013 REAL SYSPP2 00014 REAL SYSCK1 00015 REAL SYSCK2 00016 REAL SYSUT1 00017 REAL SYSUT2 00020 REAL SYSUT3 00021 REAL SYSUT4 00022 REAL SYSUT5 00023 REAL SYSUT6 00024 REAL SYSUT7 00025 REAL SYSUT8 00026 REAL SYSUT9 00027 REAL SYSTRA 00100 REAL SYSDAT 00101 REAL SYSCUR 00102 REAL SYSRET 00103 REF@D BY - .LXCON REAL SYSKEY 00104 REAL SYSSWS 00105 REAL SYSPOS 00106 REAL SYSUNI 00107 REF@D BY - .LXSL , .LXCON REAL SYSUBC 00110 REAL SYSUAV 00111 REF@D BY - .LXCON REAL SYSUCW 00112 REAL SYSRPT 00113 REAL SYSCEM 00114 REAL SYSDMP 00115 REF@D BY - .LXCON REAL SYSIOX 00116 REAL SYSIDR 00117 REF@D BY - .LXCON REAL SYSCOR 00120 REAL SYSLDR 00121 REAL SYSACC 00122 REAL SYSPID 00123 REAL SYSCYD 00124 REAL SYSSLD 00126 REAL SYSTCH 00127 REAL SYSTWT 00131 REF@D BY - .LXSL , .IOCSF REAL SYSGET 00132 IBLDR 07/09/13 PAGE 10 * CROSS REFERENCE LOGIC * REAL SYSJOB 00133 REF@D BY - .LXSL , .IOCSF, .LXCON SUBR .IOEX 00702 SIZE # 00047 REAL .ACTV 00702 REF@D BY - .LXSL , .IOCSF, .IODEF REAL .NDSEL 00704 REAL .MWR 00706 REF@D BY - CDISP , CDPLY , COPEN , .LXSL , .LXCON REAL .PUNCH 00707 REAL .ENBSW 00710 REAL .PAWS 00711 REAL .PAUSE 00712 REAL .STOP 00713 REAL .SYMUN 00714 REAL .DECVD 00715 REF@D BY - CEOBP , COPEN , .LXSL REAL .DECVA 00716 REAL .CKWAT 00717 REAL .BCD5R 00720 REF@D BY - .LXCON REAL .BCD5X 00721 REAL .CVPRT 00722 REAL .STOPD 00723 REF@D BY - .LXCON REAL .CHXAC 00724 REAL .URRX 00725 REF@D BY - .LXSL REAL .RCTX 00726 REAL .RCHX 00727 REF@D BY - .LXSL REAL .TCOX 00730 REAL .TRCX 00731 REAL .ETTX 00732 REAL .TEFX 00733 REAL .TRAPX 00734 REAL .TRAPS 00735 REAL .COMM 00736 REAL .LTPOS 00737 REAL .IOXSI 00740 REAL .CHPSW 00741 REAL .TRPSW 00742 REAL .FDAMT 00743 REF@D BY - .LXSL REAL .SDCXI 00744 REAL .STCXI 00745 REAL .COMMD 00746 REAL .IBCDZ 00747 REAL .CHXSP 00750 SUBR .JBCON 02652 SIZE # 00046 REAL SYSLOC 02652 REF@D BY - HELLO , .LXSL REAL SYSFAZ 02653 REAL .JCOR 02654 REAL .JDATE 02655 REAL .JLDAT 02656 REAL .JTYPE 02660 REF@D BY - .LXCON REAL .JLIN 02661 REF@D BY - .LXCON REAL .JVER 02662 REAL SYSDSB 02663 REAL .IOEXD 02664 REAL .FDPOS 02715 REAL .JDTRK 02716 REAL SYSZRO 02717 IBLDR 07/09/13 PAGE 11 * CROSS REFERENCE LOGIC * SUBR .LXCON 03115 SIZE # 00454 REAL .LXSTR 03115 REAL .LXSTP 03120 REF@D BY - .LXSL REAL .LXOUT 03166 REAL .LXERR 03175 REF@D BY - CEOBP REAL .LXCAL 03200 REAL .LXRTN 03200 REAL IBEXIT 03200 REAL .DBCLS 03362 REAL .LXARG 03531 REAL .L0 03554 REAL .CLSE 03562 REF@D BY - .IODEF REAL .LFBL 03563 REAL .LUNB 03564 REF@D BY - .IODEF REAL .DFOUT 03565 REF@D BY - .LXSL VIRT .LXSEL REFERS TO .LXSL AT 06320 VIRT .LXSL1 REFERS TO .LXSL AT 06321 VIRT .BCD5R REFERS TO .IOEX AT 00720 VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .JTYPE REFERS TO .JBCON AT 02660 VIRT SYSJOB REFERS TO .IBSYS AT 00133 VIRT SYSUNI REFERS TO .IBSYS AT 00107 VIRT SYSUAV REFERS TO .IBSYS AT 00111 VIRT SYSIDR REFERS TO .IBSYS AT 00117 VIRT .JLIN REFERS TO .JBCON AT 02661 VIRT SYSRET REFERS TO .IBSYS AT 00103 VIRT SYSDMP REFERS TO .IBSYS AT 00115 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .LTCH REFERS TO .LXSL AT 06462 VIRT .STOPD REFERS TO .IOEX AT 00723 SUBR .IODEF 03571 SIZE # 00224 REAL .DEFIN 03571 REF@D BY - .IOCSF REAL .ATTAC 03575 REAL .CLOSE 03577 REF@D BY - COPEN REAL .OPEN 03601 REF@D BY - CDISP , CDPLY , COPEN REAL .READ 03603 REAL .WRITE 03605 REF@D BY - CDISP , CDPLY , CEOBP , COPEN REAL .BSR 03615 REAL .READR 03625 REAL .RELES 03627 REAL .LAREA 03640 REAL .LFBLK 03656 REF@D BY - .IOCSF REAL .LTSX 03661 REAL .RLHLD 03671 REF@D BY - CEOBP REAL .AREA1 03674 REF@D BY - .IOCSF REAL .LUNBL 03702 REAL .ENTRY 03706 REF@D BY - .IOCSF REAL .GOA 03743 REF@D BY - .IOCSF REAL .GO 03747 REF@D BY - .IOCSF REAL .DERR 03763 REF@D BY - .IOCSF REAL .NOPXI 03764 REF@D BY - .IOCSF REAL .COMXI 03766 REF@D BY - .IOCSF REAL .EX34 04010 REF@D BY - .IOCSF VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .CLSE REFERS TO .LXCON AT 03562 IBLDR 07/09/13 PAGE 12 * CROSS REFERENCE LOGIC * VIRT .LUNB REFERS TO .LXCON AT 03564 SUBR .IOCSF 04015 SIZE # 02302 VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .NOPXI REFERS TO .IODEF AT 03764 VIRT .COMXI REFERS TO .IODEF AT 03766 VIRT .LFBLK REFERS TO .IODEF AT 03656 VIRT .AREA1 REFERS TO .IODEF AT 03674 VIRT .EX34 REFERS TO .IODEF AT 04010 VIRT .DEFIN REFERS TO .IODEF AT 03571 VIRT .ENTRY REFERS TO .IODEF AT 03706 VIRT .GOA REFERS TO .IODEF AT 03743 VIRT .GO REFERS TO .IODEF AT 03747 VIRT .DERR REFERS TO .IODEF AT 03763 VIRT SYSTWT REFERS TO .IBSYS AT 00131 VIRT SYSJOB REFERS TO .IBSYS AT 00133 SUBR .LXSL 06317 SIZE # 00152 REAL .LXSLB 06317 REAL .LXSEL 06320 REF@D BY - .LXCON REAL .LXSL1 06321 REF@D BY - .LXCON, .FPTRP REAL .LXTST 06324 REAL .LXOVL 06367 REAL .LXMOD 06431 REAL .LXIND 06455 REAL .LXDIS 06460 REAL .LXFLG 06461 REAL .LTCH 06462 REF@D BY - .LXCON, .FPTRP VIRT SYSLOC REFERS TO .JBCON AT 02652 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .DFOUT REFERS TO .LXCON AT 03565 VIRT SYSUNI REFERS TO .IBSYS AT 00107 VIRT .ACTV REFERS TO .IOEX AT 00702 VIRT .RCHX REFERS TO .IOEX AT 00727 VIRT SYSJOB REFERS TO .IBSYS AT 00133 VIRT .URRX REFERS TO .IOEX AT 00725 VIRT .DECVD REFERS TO .IOEX AT 00715 VIRT .FDAMT REFERS TO .IOEX AT 00743 VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .LXSTP REFERS TO .LXCON AT 03120 VIRT SYSTWT REFERS TO .IBSYS AT 00131 SUBR .FPTRP 06471 SIZE # 00210 REAL .FFPT. 06471 REAL .FPOUT 06620 REAL .FPARG 06626 REAL .COUNT 06630 REAL OVFLOW 06674 VIRT .LXSL1 REFERS TO .LXSL AT 06321 VIRT SYSOU1 REFERS TO .IBSYS AT 00007 VIRT .LTCH REFERS TO .LXSL AT 06462 SUBR CMPAK 06701 SIZE # 02506 REAL .CMPAK 06701 REAL .CMPK1 06730 REAL .CMPK2 06736 IBLDR 07/09/13 PAGE 13 * CROSS REFERENCE LOGIC * REAL .CMPK3 06743 REF@D BY - CDISP REAL .CX4 06766 REAL .CXIT 06773 REAL .CAREF 06777 REF@D BY - CDISP REAL .CBREF 07000 REF@D BY - CDISP REAL .COFLO 07001 REAL .CUFLO 07002 REAL .CIDX1 07246 REAL .CIDX4 07251 REF@D BY - CDISP REAL .CIDX2 07253 REAL .CXDID 07441 REAL .CXDXD 07655 REAL .CXMVS 07670 REAL .CXMOV 07671 REAL .CXBYS 07707 REAL .CXBYP 07710 REAL .CXNZS 07722 REAL .CXNZT 07723 REAL .CXINZ 07765 REAL .CXRND 07772 REAL .CXDXQ 10103 REAL .CANA1 10126 REF@D BY - CDISP REAL .CANA2 10311 REAL .CANA3 10316 REAL .CANA4 10335 REAL .CSPAN 10407 REF@D BY - CDISP REAL .CZEAN 10470 REAL .CCHOP 10541 REAL .CCHAN 10542 REAL .CRFLS 10660 REAL .CXDRP 10707 REAL .CIDRP 10717 REAL .CXDRQ 10742 REAL .CRQIT 10753 REAL .CRSIN 10762 REAL .CRSIG 10774 REAL .CR999 11016 REAL .CR000 11032 REAL .CRBBB 11034 REAL .CRZZZ 11044 REAL .CRAAA 11046 REAL .CRFFQ 11067 REAL .CRFFC 11071 REAL .CRFFF 11135 REAL .CINID 11176 REF@D BY - CDISP REAL .CIDIN 11204 VIRT .CBLER REFERS TO CBLER AT 11407 SUBR CBLER 11407 SIZE # 00017 REAL .CBLER 11407 REF@D BY - CMPAK VIRT .CDPLY REFERS TO CDPLY AT 12072 SUBR COPEN 11426 SIZE # 00142 REAL .CIOHS 11426 REF@D BY - CEOBP REAL .COPEN 11427 REAL .CCLOS 11476 IBLDR 07/09/13 PAGE 14 * CROSS REFERENCE LOGIC * VIRT .DECVD REFERS TO .IOEX AT 00715 VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .OPEN REFERS TO .IODEF AT 03601 VIRT .CLOSE REFERS TO .IODEF AT 03577 VIRT .WRITE REFERS TO .IODEF AT 03605 SUBR CEOBP 11570 SIZE # 00302 REAL .CEOBP 11772 REF@D BY - CDISP , CDPLY REAL .CERRP 12025 VIRT .WRITE REFERS TO .IODEF AT 03605 VIRT .CIOHS REFERS TO COPEN AT 11426 VIRT .DECVD REFERS TO .IOEX AT 00715 VIRT .RLHLD REFERS TO .IODEF AT 03671 VIRT .CDPLY REFERS TO CDPLY AT 12072 VIRT .LXERR REFERS TO .LXCON AT 03175 SUBR CDPLY 12072 SIZE # 00042 REAL .CDPLY 12072 REF@D BY - CEOBP , CBLER VIRT .MWR REFERS TO .IOEX AT 00706 VIRT .CCDTY REFERS TO CCDTY AT 12134 VIRT .OPEN REFERS TO .IODEF AT 03601 VIRT .WRITE REFERS TO .IODEF AT 03605 VIRT .CEOBP REFERS TO CEOBP AT 11772 SUBR CCDTY 12134 SIZE # 00012 REAL .CCDTY 12134 REF@D BY - CDPLY , CDISP SUBR CDISP 12146 SIZE # 00322 REAL .CDISP 12146 REF@D BY - HELLO REAL .CDIS2 12357 REAL .CDIS1 12363 VIRT .CCDTY REFERS TO CCDTY AT 12134 VIRT .OPEN REFERS TO .IODEF AT 03601 VIRT .CBREF REFERS TO CMPAK AT 07000 VIRT .CAREF REFERS TO CMPAK AT 06777 VIRT .CMPK3 REFERS TO CMPAK AT 06743 VIRT .CANA1 REFERS TO CMPAK AT 10126 VIRT .CSPAN REFERS TO CMPAK AT 10407 VIRT .CINID REFERS TO CMPAK AT 11176 VIRT .CIDX4 REFERS TO CMPAK AT 07251 VIRT .WRITE REFERS TO .IODEF AT 03605 VIRT .CEOBP REFERS TO CEOBP AT 11772 VIRT .MWR REFERS TO .IOEX AT 00706 IBLDR 07/09/13 PAGE 15 * IOCS CONTROLS * FILE LIST LOC 02750 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT # 00001 02751 DSPOU 02752 GROUP RESERVED 00001 BUFFERS, MAXIMUM FILE OPEN COUNT # 00001 02753 DSPFIL BUFFER POOL LOC 12470 BUFFER COUNT # 00854 , BUFFER SIZE # 00013 FILE COUNT# 00001 , FILE LIST LOC # 02750 43504 BUFFER COUNT # 00631 , BUFFER SIZE # 00021 FILE COUNT# 00001 , FILE LIST LOC # 02752 IBLDR 07/09/13 PAGE 16 * MEMORY MAP * SYSTEM 00000 THRU 02717 FILE BLOCK ORIGIN 02720 FILES 1. DSPOU 2. DSPFIL FILE LIST ORIGIN 02750 PRE-EXECUTION INITIALIZATION 02754 CALL ON OBJECT PROGRAM 02777 OBJECT PROGRAM 03004 THRU 12467 DECK ORIGIN CONTROL SECTIONS %/NAME/#NON 0 LENGTH, %LOC)#DELETED, @LOC@#MOVED, *#NOT REFERENCED) 1. HELLO 03004 2. .LXCON 03115 .LXSTR 03115 * .LXSTP 03120 .LXOUT 03166 * .LXERR 03175 .LXCAL 03200 * .LXRTN 03200 * IBEXIT 03200 * .DBCLS 03362 * .LXARG 03531 * .L0 03554 * .CLSE 03562 .LFBL 03563 * .LUNB 03564 .DFOUT 03565 3. .IODEF 03571 .DEFIN 03571 .ATTAC 03575 * .CLOSE 03577 .OPEN 03601 .READ 03603 * .WRITE 03605 .BSR 03615 * .READR 03625 * .RELES 03627 * .LAREA 03640 * .LFBLK 03656 .LTSX 03661 * .RLHLD 03671 .AREA1 03674 .LUNBL 03702 * .ENTRY 03706 .GOA 03743 .GO 03747 .DERR 03763 .NOPXI 03764 .COMXI 03766 .EX34 04010 4. .IOCSF 04015 5. .LXSL 06317 .LXSLB 06317 * .LXSEL 06320 .LXSL1 06321 .LXTST 06324 * .LXOVL 06367 * .LXMOD 06431 * .LXIND 06455 * .LXDIS 06460 * .LXFLG 06461 * .LTCH 06462 6. .FPTRP 06471 .FFPT. 06471 * .FPOUT 06620 * .FPARG 06626 * /.COUNT/ 06630 * OVFLOW 06674 * 7. CMPAK 06701 .CMPAK 06701 * .CMPK1 06730 * .CMPK2 06736 * .CMPK3 06743 .CX4 06766 * .CXIT 06773 * .CAREF 06777 .CBREF 07000 .COFLO 07001 * .CUFLO 07002 * .CIDX1 07246 * .CIDX4 07251 .CIDX2 07253 * .CXDID 07441 * .CXDXD 07655 * .CXMVS 07670 * .CXMOV 07671 * .CXBYS 07707 * .CXBYP 07710 * .CXNZS 07722 * .CXNZT 07723 * .CXINZ 07765 * .CXRND 07772 * .CXDXQ 10103 * .CANA1 10126 .CANA2 10311 * .CANA3 10316 * .CANA4 10335 * .CSPAN 10407 .CZEAN 10470 * .CCHOP 10541 * .CCHAN 10542 * .CRFLS 10660 * .CXDRP 10707 * .CIDRP 10717 * .CXDRQ 10742 * .CRQIT 10753 * .CRSIN 10762 * .CRSIG 10774 * .CR999 11016 * .CR000 11032 * .CRBBB 11034 * .CRZZZ 11044 * .CRAAA 11046 * .CRFFQ 11067 * .CRFFC 11071 * .CRFFF 11135 * .CINID 11176 .CIDIN 11204 * 8. CBLER 11407 .CBLER 11407 9. COPEN 11426 .CIOHS 11426 .COPEN 11427 * .CCLOS 11476 * 10. CEOBP 11570 .CEOBP 11772 .CERRP 12025 * 11. CDPLY 12072 .CDPLY 12072 12. CCDTY 12134 .CCDTY 12134 13. CDISP 12146 .CDISP 12146 .CDIS2 12357 * .CDIS1 12363 * I/O BUFFERS 12470 THRU 77766 UNUSED CORE 77767 THRU 77777 590 LINES OUTPUT. $JOB LAPLACE TRANSFORM $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. $IBJOB GO,FIOCS $IBFTC LAPLACE NODECK,M94,XR7 07/09/13 PAGE 1 LAPLAC - EFN SOURCE STATEMENT - IFN%S) - C SOLUTION OF LAPLACE@S EQUATION TO FIND THE TEMPERATURE IN A PIPE C WITH A HOLE AND A FIN. REAL U%101,201), ARRAY%2,200), SYMBOL%20) REAL LINE%101), H%3) INTEGER LEFT%76), RIGHT%76) DATA SYMBOL /1HA, 1H , 1HB, 1H , 1HC, 1H , 1HD, 1H , 1HE, 1H , 1 1HF, 1H , 1HG, 1H , 1HH, 1H , 1HI, 1H , 1HJ, 1H / DATA H%1), H%2), H%3)/0.0, 0.666666667, 0.333333333/ C NAMELIST/INPUT/TIN, TOUT, LENGTH, MAXIT, EPS, OMEGA C3 READ %5, INPUT) TIN#400.0 TOUT#0.0 MAXIT # 100 EPS#50.0 OMEGA#1.84 LENGTH#151 C CLEAR ARRAY TO OUTSIDE TEMPERATURE DO 1 I # 1, 101 DO 1 J # 1, 201 1 U%I, J) # TOUT C SET AN INSIDE SQUARE TO TEMPERATURE OF FLUID, THIS WILL INCLUDE C SOME OFF-BOUNDRARY POINTS, BUT IT WILL NOT MATTER. DO 2 I # 15, 85 DO 2 J # 15, 85 2 U%I, J) # TIN C LOCATE BOUNDRY OF CIRCLE. THE SUBSCRIPTS STORED IDENTIFY @INTERIOR@ C POINTS, NOT @BOUNDARY@ POINTS. DO 4 I # 26, 76 RIGHT%I) # 52.0 & SQRT %625.1 - FLOAT%I-51)**2) 27 4 LEFT%I) # 102 - RIGHT%I) C SET ITERATION COUNT TO 1 ITN # 1 C START AN ITERATION BY SETTING SUM OF RESIDUES TO ZERO 9 SUM # 0.0 C TOP SLAB DO 10 I # 77, 100 DO 10 J # 2, 100 DIFF # OMEGA*%%U%I-1,J)&U%I&1,J)&U%I,J-1)&U%I,J&1))/4.0 - U%I,J)) U%I,J) # U%I,J) & DIFF I1 # 102 - I U%I1,J) # U%I,J) 10 SUM # SUM & ABS%DIFF) C LEFT SECTION DO 11 I # 26, 76 L # LEFT%I) DO 11 J # 2, L DIFF # OMEGA*%%U%I-1,J)&U%I&1,J)&U%I,J-1)&U%I,J&1))/4.0 - U%I,J)) U%I,J) # U%I,J) & DIFF I1 # 102 - I U%I1,J) # U%I,J) 11 SUM # SUM & ABS%DIFF) C RIGHT SECTION DO 12 I # 26, 76 L # RIGHT%I) DO 12 J # L, 100 07/09/13 PAGE 2 LAPLAC - EFN SOURCE STATEMENT - IFN%S) - DIFF # OMEGA*%%U%I-1,J)&U%I&1,J)&U%I,J-1)&U%I,J&1))/4.0 - U%I,J)) U%I,J) # U%I,J) & DIFF I1 # 102 - I U%I1,J) # U%I,J) 12 SUM # SUM & ABS%DIFF) C FIN DO 13 I # 22, 80 L # LENGTH -1 DO 13 J # 101, L DIFF # OMEGA*%%U%I-1,J)&U%I&1,J)&U%I,J-1)&U%I,J&1))/4.0 - U%I,J)) U%I,J) # U%I,J) & DIFF I1 # 102 - I U%I1,J) # U%I,J) 13 SUM # SUM & ABS%DIFF) C BOTTOM SLAB DO 14 I # 2, 25 DO 14 J # 2, 100 DIFF # OMEGA*%%U%I-1,J)&U%I&1,J)&U%I,J-1)&U%I,J&1))/4.0 - U%I,J)) U%I,J) # U%I,J) & DIFF I1 # 102 - I U%I1,J) # U%I,J) 14 SUM # SUM & ABS%DIFF) C STORE ONE TEMPERATURE ARRAY%1, ITN) # U%70, 110) C STORE SUM OF RESIDUES ARRAY%2, ITN) # SUM ITN # ITN & 1 C CHECK FOR FAILURE TO CONVERGE IN MAXIMUM ALLOWABLE ITERATIONS IF %ITN .GT. MAXIT) GO TO 20 C CHECK FOR CONVERGENCE IF %SUM .LE. EPS) GO TO 20 C NOT CONVERGED--GO BACK FOR ANOTHER ITERATION GO TO 9 C EITHER PROCESS HAS CONVERGED OR MAXIT HAS BEEN EXCEEDED. WISH TO C PLOT RESULTS EITHER WAY. IF THERE IS ANY DOUBT ABOUT WHICH IS C WHICH, A COUNT OF THE NUMBER OF SUCCESSIVE RESIDUES WILL GIVE C THE ANSWER C WRITE TEMPERATURES IN FIN 20 WRITE %6, 30) %ARRAY%1, I), I # 1, ITN) 145 30 FORMAT %1H1/%1H , 1P10E12.4)) C WRITE ARRAY OF SUCCESSIVE RESIDUALS WRITE %6, 30) %ARRAY%2, I), I # 1, ITN) 152 WRITE %6, 91) TIN, TOUT, MAXIT, EPS, OMEGA 159 91 FORMAT %1H1, 2F10.1, I5, 2F10.2///) C CONVERT TEMPERATURES TO SYMBOLS L # 0.6 * FLOAT%LENGTH) DO 9011 K # 1, L J1 # 1 & %5 * %K-1)) / 3 J2 # J1 & 1 M # 1 & MOD%K-1, 3) DO 9012 I # 1, 101 LINE%I) # U%I,J1) & H%M)*%U%I,J2) - U%I,J1)) 9012 IF %%I .GT. 26 .AND. I .LT. 76 .AND. J1 .GT. LEFT%I)&1 .AND. 1 J2 .LT. RIGHT%I)-1) .OR. %J2 .GT. 101 .AND. %I .LE. 20 .OR. 2 I .GE. 82))) LINE%I) # 401.0 DO 9013 I # 1, 101 07/09/13 PAGE 3 LAPLAC - EFN SOURCE STATEMENT - IFN%S) - N # LINE%I) / 26.667 & 1.0 9013 LINE%I) # SYMBOL%N) 9011 WRITE %6, 9014) LINE 189 9014 FORMAT %1H , 101A1) C GO TO 3 9999 STOP END 07/09/13 PAGE 4 LAPLAC STORAGE MAP MAIN PROGRAM DIMENSIONED PROGRAM VARIABLES SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE U 00001 R ARRAY 47516 R SYMBOL 50336 R LINE 50362 R H 50527 R LEFT 50532 I RIGHT 50646 I UNDIMENSIONED PROGRAM VARIABLES SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE SYMBOL LOCATION TYPE TIN 50762 R TOUT 50763 R MAXIT 50764 I EPS 50765 R OMEGA 50766 R LENGTH 50767 I I 50770 I ITN 50771 I SUM 50772 R DIFF 50773 R I1 50774 I L 50775 I K 50776 I J1 50777 I J2 51000 I M 51001 I N 51002 I ENTRY POINTS ...... SECTION 3 SUBROUTINES CALLED SQRT SECTION 4 .FWRD. SECTION 5 .FSLO. SECTION 6 .EXIT. SECTION 7 .UN06. SECTION 8 .FFIL. SECTION 9 .FCNV. SECTION 10 E.1 SECTION 11 E.2 SECTION 12 E.3 SECTION 13 E.4 SECTION 14 CC.1 SECTION 15 CC.2 SECTION 16 CC.3 SECTION 17 CC.4 SECTION 18 SYSLOC SECTION 19 EFN IFN CORRESPONDENCE EFN IFN LOCATION EFN IFN LOCATION EFN IFN LOCATION 1 9A 51101 2 19A 51120 4 29A 51163 9 34A 51172 10 50A 51243 11 71A 51331 12 92A 51416 13 112A 51505 14 131A 51566 20 145A 51624 30 FORMAT 51043 91 FORMAT 51047 9011 189A 52065 9012 174A 52003 9013 185A 52056 9014 FORMAT 51054 9999 193A 52102 THE FIRST LOCATION NOT USED BY THIS PROGRAM IS 52131. IBLDR 07/09/13 PAGE 5 * MEMORY MAP * SYSTEM 00000 THRU 02717 FILE BLOCK ORIGIN 02720 FILES 1. UNIT06 FILE LIST ORIGIN 02734 PRE-EXECUTION INITIALIZATION 02736 CALL ON OBJECT PROGRAM 02753 OBJECT PROGRAM 02760 THRU 66546 DECK ORIGIN CONTROL SECTIONS %/NAME/#NON 0 LENGTH, %LOC)#DELETED, @LOC@#MOVED, *#NOT REFERENCED) 1. LAPLAC 02760 EVEN 02761 ...... 55071 * 2. .LXCON 55112 .LXSTR 55112 * .LXSTP 55115 .LXOUT 55163 * .LXERR 55172 .LXCAL 55175 * .LXRTN 55175 IBEXIT 55175 * .DBCLS 55357 * .LXARG 55526 * .L0 55551 * .CLSE 55557 .LFBL 55560 * .LUNB 55561 .DFOUT 55562 3. .IODEF 55566 .DEFIN 55566 .ATTAC 55572 * .CLOSE 55574 .OPEN 55576 .READ 55600 .WRITE 55602 .BSR 55612 * .READR 55622 * .RELES 55624 * .LAREA 55635 * .LFBLK 55653 .LTSX 55656 * .RLHLD 55666 * .AREA1 55671 .LUNBL 55677 * .ENTRY 55703 .GOA 55740 .GO 55744 .DERR 55760 .NOPXI 55761 .COMXI 55763 .EX34 56005 4. .IOCSF 56012 5. .LXSL 60314 .LXSLB 60314 * .LXSEL 60315 .LXSL1 60316 .LXTST 60321 * .LXOVL 60364 * .LXMOD 60426 * .LXIND 60452 * .LXDIS 60455 * .LXFLG 60456 * .LTCH 60457 6. .FPTRP 60466 .FFPT. 60466 * .FPOUT 60615 * .FPARG 60623 * /.COUNT/ 60625 * OVFLOW 60671 * 7. .ERAS. 60676 E.1 60676 E.2 60677 E.3 60700 E.4 60701 8. .XCC. 60702 CC.1 60702 CC.2 60703 CC.3 60704 CC.4 60705 9. XIT 60706 EXIT 60706 * .EXIT. 60706 10. FXEM 60707 .FXEM. 60707 TRACE 60715 * /.OPTW./ 61252 * 11. FCOM 61266 .FCOM. 61266 /FORCOM/ 61371 * 12. FRDD 61403 .FRDD. 61403 * .FWRD. 61406 13. FIOS 61520 .FIOS. 61520 .FSEL. 61707 .FRTB. 61724 .FRTD. 61741 /.FBF1./ 62173 * 14. FIOH 62177 .FIOH. 62177 .FCNV. 62756 .FFIL. 63053 .FRTN. 63053 * 15. FCNV 63172 .FCON. 63172 16. FIOT 66260 .FIOT. 66260 .FIOE. 66351 17. UN06 66377 .UN06. 66377 ..UN06 66377 * 18. FSQR 66400 SQRT 66400 19. FSLDO 66453 .FSLO. 66471 .FSDO. 66477 * 20. FSLO 66510 .SLO. 66510 .SLO2. 66516 .SDO. 66523 .SDO2. 66535 I/O BUFFERS 66547 THRU 77766 UNUSED CORE 77767 THRU 77777 6.5665E-01 1.4504E 00 2.6926E 00 4.1259E 00 5.5294E 00 6.9696E 00 8.5192E 00 1.0170E 01 1.1860E 01 1.3584E 01 1.5357E 01 1.7143E 01 1.8871E 01 2.0523E 01 2.2088E 01 2.3584E 01 2.5026E 01 2.6408E 01 2.7723E 01 2.8973E 01 3.0162E 01 3.1294E 01 3.2370E 01 3.3392E 01 3.4361E 01 3.5279E 01 3.6148E 01 3.6973E 01 3.7753E 01 3.8492E 01 3.9191E 01 3.9852E 01 4.0478E 01 4.1070E 01 4.1630E 01 4.2159E 01 4.2660E 01 4.3134E 01 4.3582E 01 4.4006E 01 4.4406E 01 4.4785E 01 4.5144E 01 4.5483E 01 4.5803E 01 4.6107E 01 4.6394E 01 4.6665E 01 4.6922E 01 4.7165E 01 4.7395E 01 4.7613E 01 4.7819E 01 4.8014E 01 4.8199E 01 4.8374E 01 4.8539E 01 4.8696E 01 4.8844E 01 4.8985E 01 4.9118E 01 4.9244E 01 4.9363E 01 4.9476E 01 4.9583E 01 4.9685E 01 4.9781E 01 4.9872E 01 4.9958E 01 5.0040E 01 5.0118E 01 5.0191E 01 5.0261E 01 5.0327E 01 5.0389E 01 5.0448E 01 5.0504E 01 5.0558E 01 5.0608E 01 5.0656E 01 5.0701E 01 5.0744E 01 5.0785E 01 5.0823E 01 5.0860E 01 5.0894E 01 5.0927E 01 5.0958E 01 5.0988E 01 5.1016E 01 5.1042E 01 5.1067E 01 5.1091E 01 5.1114E 01 5.1135E 01 5.1155E 01 5.1174E 01 5.1193E 01 5.1210E 01 5.1226E 01 -0.0000E-20 1.6976E 05 1.3250E 05 9.9675E 04 7.5830E 04 5.8927E 04 4.7621E 04 4.0571E 04 3.0481E 04 2.3972E 04 1.9792E 04 1.6402E 04 1.4425E 04 1.2222E 04 1.0972E 04 9.5759E 03 8.3523E 03 7.5607E 03 7.2135E 03 6.3946E 03 5.8887E 03 5.3591E 03 4.9822E 03 4.6795E 03 4.3950E 03 4.1483E 03 3.9320E 03 3.7376E 03 3.5571E 03 3.3860E 03 3.2242E 03 3.0715E 03 2.9260E 03 2.7863E 03 2.6554E 03 2.5280E 03 2.4079E 03 2.2927E 03 2.1830E 03 2.0785E 03 1.9788E 03 1.8836E 03 1.7931E 03 1.7067E 03 1.6244E 03 1.5459E 03 1.4711E 03 1.3999E 03 1.3321E 03 1.2676E 03 1.2062E 03 1.1477E 03 1.0921E 03 1.0392E 03 9.8880E 02 9.4090E 02 8.9533E 02 8.5198E 02 8.1075E 02 7.7154E 02 7.3423E 02 6.9875E 02 6.6500E 02 6.3290E 02 6.0238E 02 5.7334E 02 5.4572E 02 5.1945E 02 4.9446E 02 4.7069E 02 4.4808E 02 4.2657E 02 4.0611E 02 3.8664E 02 3.6811E 02 3.5049E 02 3.3372E 02 3.1776E 02 3.0258E 02 2.8813E 02 2.7438E 02 2.6129E 02 2.4883E 02 2.3698E 02 2.2570E 02 2.1495E 02 2.0473E 02 1.9499E 02 1.8573E 02 1.7691E 02 1.6851E 02 1.6052E 02 1.5291E 02 1.4566E 02 1.3876E 02 1.3219E 02 1.2593E 02 1.1998E 02 1.1430E 02 1.0890E 02 1.0376E 02 -0.0000E-20 400.0 0. 100 50.00 1.84 AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAA BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB AAAAAAAAAAAAAAAA AAAAAAAAAAAA BBBBBBBBBBBBBB BBBBBBBBBBBBBB AAAAAAAAAAAA AAAAAAAAAA BBBBBBBBB CCCCCCCCCCCCCCCCCCC BBBBBBBBB AAAAAAAAAA AAAAAAAA BBBBBBB CCCCCCCCCCCC CCCCCCCCCCCC BBBBBBB AAAAAAAA AAAAAAA BBBBBBB CCCCCCC DDDDDDD CCCCCCC BBBBBBB AAAAAAA AAAAAA BBBBB CCCCCC DDDDDDDDDDDDDDDDDDDDDDDDDDDDD CCCCCC BBBBB AAAAAA AAAAAA BBBB CCCCCC DDDDDDD DDDDDDD CCCCCC BBBB AAAAAA AAAAA BBBB CCCCC DDDDD EEEEEEEEEEEEEEEEEEEEEEE DDDDD CCCCC BBBB AAAAA AAAAA BBBB CCCC DDDD EEEEE EEEEE DDDD CCCC BBBB AAAAA AAAA BBBB CCCC DDDD EEEEE FFFFFFFFF FFFFFFFFF EEEEE DDDD CCCC BBBB AAAA AAAA BBB CCCC DDD EEE FFFFF GGGGGGG FFFFF EEE DDD CCCC BBB AAAA AAAA BBB CCCC DDD EEE FFFF GGGGG GGGGG FFFF EEE DDD CCCC BBB AAAA AAAA BBB CCC DDD EEE FFF GGG HHHHHHHHHHHHHHH GGG FFF EEE DDD CCC BBB AAAA AAA BBB CCC DDD EE FF GGG HHHHHHHHHHH HHHHHHHHHHH GGG FF EE DDD CCC BBB AAA AAA BBB CCC DD EEE FFF GG HHHHH HHHHH GG FFF EEE DD CCC BBB AAA AAA BB CC DD EEE FF GG HHH HHH GG FF EEE DD CC BB AAA AAA BBB CCC DD EE FF GG HHH HHH GG FF EE DD CCC BBB AAA AAA BBB CC DDD EE FF GG HHH HHH GG FF EE DDD CC BBB AAA AAA BB CC DD EE FF G HH HH G FF EE DD CC BB AAA AAA BB CC DD E FF GG HH HH GG FF E DD CC BB AAA AAA BB CC DD EE F GG HH HH GG F EE DD CC BB AAA AAA BB CC DD E FF GG H H GG FF E DD CC BB AAA AAA BB CC D EE F G HH HH G F EE D CC BB AAA AAA BB CC DD EE FF G HH HH G FF EE DD CC BB AAA AAA BB CC DD EE FF GG H H GG FF EE DD CC BB AAA AA BB CC DD E FF GG H H GG FF E DD CC BB AA AA BB CC DD E F G H H G F E DD CC BB AA AA BB CC DD E F G H H G F E DD CC BB AA AA BB CC DD E F G H H G F E DD CC BB AA AA BB CC DD E FF GG H H GG FF E DD CC BB AA AAA B CC DD E FF GG H H GG FF E DD CC B AAA AAA BB C DD EE FF G HH HH G FF EE DD C BB AAA AAA BB CC D EE F G HH HH G F EE D CC BB AAA AAA BB CC DD E FF GG HH HH GG FF E DD CC BB AAA AAA BB CC DD EE F GG HH HH GG F EE DD CC BB AAA AAA BB CC DD EE FF G HH HH G FF EE DD CC BB AAA AAA BB CCC DD EE FF G HHH HHH G FF EE DD CCC BB AAA AAA BB CC DD EEE FF GG HHH HHH GG FF EEE DD CC BB AAA AAA BBB CC DD EE FFF GG HHH HHH GG FFF EE DD CC BBB AAA AAA BB CCC DDD EE FFF GG HHHHHH HHHHHH GG FFF EE DDD CCC BB AAA AAA BB CC DD EE FF GGG HHHHH HHHHH GGG FF EE DD CC BB AAA AAA BBB CCC DD EE FF GGG HHHHHHHHHHH HHHHHHHHHHH GGG FF EE DD CCC BBB AAA AAA BBB CCC DD EEE FFF GGGG HHHHHHHHHHHHHHHHH GGGG FFF EEE DD CCC BBB AAA AAAA BBB CCC DDD EEE FFF GGGGG GGGGG FFF EEE DDD CCC BBB AAAA AAAA BBB CCC DDD EEE FFFF GGGGGGGGGGGGGGGGGGG FFFF EEE DDD CCC BBB AAAA AAAA BBBB CCCC DDD EEEE FFFFF GGG FFFFF EEEE DDD CCCC BBBB AAAA AAAA BBBB CCCC DDDD EEEE FFFFFFF FFFFFFF EEEE DDDD CCCC BBBB AAAA AAAAA BBBB CCCC DDDD EEEE FFFFFFFFFFFFFFFFF EEEE DDDD CCCC BBBB AAAAA AAAAA BBBBB CCCC DDDD EEEEEE EEEEEE DDDD CCCC BBBBB AAAAA AAAAA BBBBB CCCC DDDD EEEEEEEEE EEEEEEEEE DDDD CCCC BBBBB AAAAA AAAAAA BBBBB CCCC DDDDD EEEEEEEEEEEEEEEEE DDDDD CCCC BBBBB AAAAAA AAAAAAA BBBBB CCCC DDDDDD DDDDDD CCCC BBBBB AAAAAAA AAAAAAAA BBBBB CCCC DDDDDDDD DDDDDDDD CCCC BBBBB AAAAAAAA AAAAAAAAAA BBBBB CCCCC DDDDDDDDDDDDDDDDDDDDDDDDD CCCCC BBBBB AAAAAAAAAA AAAAAAAAAAAA BBBB CCCCC DDDDDDDDDDDDDDD CCCCC BBBB AAAAAAAAAAAA AAAAAAAAAAAAAAAA BBBB CCCCCC CCCCCC BBBB AAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAA BBBB CCCCCCCC CCCCCCCC BBBB AAAAAAAAAAAAAAAAAAAAA AA BBBBB CCCCCCCCCCCCCC CCCCCCCCCCCCCC BBBBB AA AAA BBBB CCCCCCCCCCCCCCCCCCCCCCC BBBB AAA AAAA BBBBB CCCCCCCCCCCCCCC BBBBB AAAA AAAA BBBBBB BBBBBB AAAA AAAAA BBBBBBBB BBBBBBBB AAAAA AAAAA BBBBBBBBBB BBBBBBBBBB AAAAA AAAAAA BBBBBBBBBBBBBB BBBBBBBBBBBBBB AAAAAA AAAAAAA BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB AAAAAAA AAAAAAAA BBBBBBBBBBBBBBBBBBBBBBBBBBB AAAAAAAA AAAAAAAA BBBBBBBBBBBBBBBBBBBBBBB AAAAAAAA AAAAAAAAA BBBBBBBBBBBBBBB AAAAAAAAA AAAAAAAAAA AAAAAAAAAA AAAAAAAAAAAA AAAAAAAAAAAA AAAAAAAAAAAAA AAAAAAAAAAAAA AAAAAAAAAAAAAAA AAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 321 LINES OUTPUT. $JOB RUN ASSEMBLER $EXECUTE IBJOB IBJOB VERSION 5 HAS CONTROL. $IBJOB NOGO $TITLE TESTRUN - TEST OPERATION $IBMAP TESTR RELMOD,M90 TESTRUN - TEST OPERATION 07/09/13 PAGE 1 7090 RELMOD ASSEMBLY. $IBLDR TESTR 07/09/13 TESTR000 TESTRUN - TEST OPERATION 07/09/13 PAGE 2 ASSEMBLED TEXT. $TEXT TESTR TESTR001 * PCC ON PMC ON DETAIL LBL TESTR,BEGIN * EXTERN PRINT 00000 START EQU * BINARY CARD ID. TESTR002 00000 0000 00 0 01001 10011 HTR *&1 * 00001 0774 00 1 00047 10000 AXT 39,1 00002 DLD ONE 00002 %DL CLA,LDQ,,ONE, 00002 %IFFF ,ONE IFF /ONE/#/**/,AND IFF //#/*/ 00002 %DLST CLA,LDQ,ONE, 00002 0500 00 0 00134 10001 CLA ONE, 00003 0560 00 0 00135 10001 LDQ ONE&1, 00004 %IFTT ,ONE, IFT //#//,OR IFT //#/0/,AND IFT /ONE/#/**/,AND IFF //#/*/ %XLST CLA,LDQ 00004 %IFTF ,ONE, IFF //#//,AND IFF //#/0/,AND IFT /ONE/#/**/,AND IFF //#/*/ %YLST CLA,LDQ, IFT //#/*/ %ZLST CLA,LDQ,ONE,, 00004 LOOP EQU * 00004 DFMP TEN 00004 %IFFF ,TEN IFF /TEN/#/**/,AND IFF //#/*/ 00004 %DFMP TEN, 00004 0601 00 0 02000 10011 STO E.1 00005 0260 00 0 00136 10001 FMP TEN, 00006 0601 00 0 03000 10011 STO E.2 00007 0560 00 0 00136 10001 LDQ TEN, 00010 0260 00 0 02000 10011 FMP E.1 00011 4600 00 0 04000 10011 STQ E.3 00012 0601 00 0 05000 10011 STO E.4 00013 0560 00 0 00137 10001 LDQ TEN&1, 00014 0260 00 0 02000 10011 FMP E.1 00015 0300 00 0 03000 10011 FAD E.2 00016 0300 00 0 04000 10011 FAD E.3 00017 0300 00 0 05000 10011 FAD E.4 00020 %IFTF ,TEN, IFF //#//,AND TESTRUN - TEST OPERATION 07/09/13 PAGE 3 ASSEMBLED TEXT. IFF //#/0/,AND IFT /TEN/#/**/,AND IFF //#/*/ %XFMP 00020 %IFTT ,TEN, IFT //#//,OR IFT //#/0/,AND IFT /TEN/#/**/,AND IFF //#/*/ %YFMP IFT //#/*/ %ZFMP TEN,, 00020 0000 00 0 01001 10011 HTR *&1 00021 2 00001 1 00004 10001 TIX LOOP,1,1 * 00022 0774 00 1 00047 10000 AXT 39,1 00023 LOOP2 EQU * 00023 DFDP TEN 00023 %DD P,,TEN, 00023 %IFFF ,TEN IFF /TEN/#/**/,AND IFF //#/*/ 00023 %DFDX P,TEN, BINARY CARD ID. TESTR003 00023 4600 00 0 02000 10011 STQ E.1 00024 0241 00 0 00136 10001 FDP TEN, 00025 0601 00 0 03000 10011 STO E.2 00026 4600 00 0 04000 10011 STQ E.3 00027 0260 00 0 00137 10001 FMP TEN&1, 00030 0760 00 0 00002 10000 CHS 00031 0300 00 0 03000 10011 FAD E.2 00032 0300 00 0 02000 10011 FAD E.1 00033 0241 00 0 00136 10001 FDP TEN, 00034 0131 00 0 00000 10000 XCA 00035 0300 00 0 04000 10011 FAD E.3 00036 %IFTF ,TEN, IFF //#//,AND IFF //#/0/,AND IFT /TEN/#/**/,AND IFF //#/*/ %XFDX ,P 00036 %IFTT ,TEN, IFT //#//,OR IFT //#/0/,AND IFT /TEN/#/**/,AND IFF //#/*/ %YFDX P IFT //#/*/ %ZFDX P,TEN,, 00036 0000 00 0 01001 10011 HTR *&1 00037 2 00001 1 00023 10001 TIX LOOP2,1,1 00040 0000 00 0 01001 10011 HTR *&1 00041 0560 00 0 00145 10001 LDQ #O151515151515 00042 0000 00 0 01001 10011 HTR *&1 00043 0774 00 1 00002 10000 AXT 2,1 TESTRUN - TEST OPERATION 07/09/13 PAGE 4 ASSEMBLED TEXT. 00044 4754 00 1 00000 10000 PXD ,1 00045 0560 00 0 00136 10001 LDQ TEN BINARY CARD ID. TESTR004 00046 0260 00 0 00142 10001 FMP FOUR 00047 0300 00 0 00142 10001 FAD FOUR 00050 0560 00 0 00146 10001 LDQ #O515151515151 00051 0000 00 0 01001 10011 HTR *&1 00052 0074 04 4 06000 10011 TSX PRINT,4,4 00053 0 00002 0 00016 10000 PZE 14,,2 00054 633025602251 10000 BCI 7,THE BROWN FOX JUMPED OVER THE DOGS BACK 00055 466645602646 10000 00056 676041644447 10000 00057 252460466525 10000 00060 516063302560 10000 00061 244627626022 10000 00062 212342606060 10000 00063 606060606060 10000 BCI 7, 00064 606060606060 10000 00065 606060606060 10000 00066 606060606060 10000 00067 606060606060 10000 00070 606060606060 10000 BINARY CARD ID. TESTR005 00071 606060606060 10000 00072 0074 04 4 06000 10011 TSX PRINT,4,4 00073 0 00002 0 00016 10000 PZE 14,,2 00074 302543434660 10000 BCI 7,HELLO WORLD 00075 664651432460 10000 00076 606060606060 10000 00077 606060606060 10000 00100 606060606060 10000 00101 606060606060 10000 00102 606060606060 10000 00103 606060606060 10000 BCI 7, 00104 606060606060 10000 00105 606060606060 10000 00106 606060606060 10000 00107 606060606060 10000 00110 606060606060 10000 00111 606060606060 10000 00112 0074 04 4 06000 10011 TSX PRINT,4,4 00113 0 00002 0 00016 10000 PZE 14,,2 BINARY CARD ID. TESTR006 00114 000102030405 10000 BCI 2,0123456789 00115 060710116060 10000 00116 212223242526 10000 BCI 5,ABCDEFGHIJKLMNOPQRSTUVWXYZ 00117 273031414243 10000 00120 444546475051 10000 00121 626364656667 10000 00122 707160606060 10000 00123 531474345420 10000 BCI 2,$@%)*&,-./# 00124 734033611360 10000 00125 606060606060 10000 BCI 5, TESTRUN - TEST OPERATION 07/09/13 PAGE 5 ASSEMBLED TEXT. 00126 606060606060 10000 00127 606060606060 10000 00130 606060606060 10000 00131 606060606060 10000 00132 0000 00 0 01000 10011 HTR * 00147 200000000040 00001 CMN COMMON 32 * LORG 00133 177617270244 10000 P39 DEC .39 &171400000000 BINARY CARD ID. TESTR007 00134 201400000000 10000 ONE DEC 1.0 00135 000000000000 10000 OCT 0 00136 204500000000 10000 TEN DEC 10.0 &204500000000 00137 000000000000 10000 OCT 0 00140 206540000000 10000 FORFOR DEC 44.0 &206540000000 00141 202600000000 10000 THREE DEC 3.0 &202600000000 00142 203400000000 10000 FOUR DEC 4.0 &203400000000 00143 210720000000 10000 TOTHTO DEC 232.0 &210720000000 00144 000000000000 10000 CTL OCT 0 00207 200000000100 00001 CMN2 COMMON 64 00145 151515151515 10000 *LORG 00146 515151515151 10000 00000 01111 END START TESTRUN - TEST OPERATION 07/09/13 PAGE 6 CONTROL DICTIONARY $CDICT TESTR TESTR008 BINARY CARD ID. TESTR009 000307000000 PREFACE START#0,LENGTH#199,TYPE#7090,CMPLX#5 000000000005 632562635160 TESTR DECK 000307000000 253301606060 E.1 VIRTUAL SECT. 2 200000000000 253302606060 E.2 VIRTUAL SECT. 3 200000000000 253303606060 E.3 VIRTUAL SECT. 4 200000000000 253304606060 E.4 VIRTUAL SECT. 5 200000000000 475131456360 PRINT VIRTUAL SECT. 6 200000000000 $DKEND TESTR TESTR010 NO MESSAGES FOR THIS ASSEMBLY TESTRUN - TEST OPERATION 07/09/13 PAGE 7 SYMBOL REFERENCE DATA REFERENCES TO DEFINED SYMBOLS. CLASS SYMBOL VALUE REFERENCES CMN2 00207 CMN 00147 CTL 00144 FORFOR 00140 FOUR 00142 46,47 LOOP2 00023 37 LOOP 00004 21 ONE 00134 2,3 P39 00133 LCTR BLCTR QUAL UNQS LCTR // START 00000 147 TEN 00136 5,7,13,24,27,33,45 THREE 00141 TOTHTO 00143 REFERENCES TO VIRTUAL SYMBOLS. E.1 2 4,10,14,23,32 E.2 3 6,15,25,31 E.3 4 11,16,26,35 E.4 5 12,17 PRINT 6 52,72,112 07/09/13 PAGE 8 253 LINES OUTPUT. 07/09/13 PAGE 1 $JOB RUN ASSEMBLER $EXECUTE IBSFAP RETURNING TO IBSYS. $EXECUTE IBSFAP $ID TESTR * FAP TESTRUN - TEST OPERATION 7/09/13 PAGE 1 SST FORTRAN TESTRUN - TEST OPERATION 7/09/13 PAGE 2 TESTRUN - TEST OPERATION EXTERN PRINT BINARY CARD NO. TESTR000 PROGRAM CARD TRANSFER VECTOR BINARY CARD NO. TESTR001 00000 475131456360 PRINT 00001 START EQU * 00001 0000 00 0 00002 HTR *&1 * 00002 0774 00 1 00047 AXT 39,1 00003 0443 00 0 00107 DLD ONE 00004 LOOP EQU * 00004 0261 00 0 00111 DFMP TEN 00005 0000 00 0 00006 HTR *&1 00006 2 00001 1 00004 TIX LOOP,1,1 * 00007 0774 00 1 00047 AXT 39,1 00010 LOOP2 EQU * 00010 -0241 00 0 00111 DFDP TEN 00011 0000 00 0 00012 HTR *&1 00012 2 00001 1 00010 TIX LOOP2,1,1 00013 0000 00 0 00014 HTR *&1 00014 0560 00 0 00120 LDQ #O151515151515 00015 0000 00 0 00016 HTR *&1 00016 0774 00 1 00002 AXT 2,1 00017 -0754 00 1 00000 PXD ,1 00020 0560 00 0 00111 LDQ TEN 00021 0260 00 0 00115 FMP FOUR 00022 0300 00 0 00115 FAD FOUR 00023 0560 00 0 00121 LDQ #O515151515151 BINARY CARD NO. TESTR002 00024 0000 00 0 00025 HTR *&1 D 00025 0074 04 4 00000 TSX PRINT,4,4 00026 0 00002 0 00016 PZE 14,,2 00027 633025602251 BCI 7,THE BROWN FOX JUMPED OVER THE DOGS BACK 00030 466645602646 00031 676041644447 00032 252460466525 00033 516063302560 00034 244627626022 00035 212342606060 00036 606060606060 BCI 7, 00037 606060606060 00040 606060606060 00041 606060606060 00042 606060606060 00043 606060606060 00044 606060606060 D 00045 0074 04 4 00000 TSX PRINT,4,4 00046 0 00002 0 00016 PZE 14,,2 TESTRUN - TEST OPERATION 7/09/13 PAGE 3 TESTRUN - TEST OPERATION 00047 302543434660 BCI 7,HELLO WORLD BINARY CARD NO. TESTR003 00050 664651432460 00051 606060606060 00052 606060606060 00053 606060606060 00054 606060606060 00055 606060606060 00056 606060606060 BCI 7, 00057 606060606060 00060 606060606060 00061 606060606060 00062 606060606060 00063 606060606060 00064 606060606060 D 00065 0074 04 4 00000 TSX PRINT,4,4 00066 0 00002 0 00016 PZE 14,,2 00067 000102030405 BCI 2,0123456789 00070 060710116060 00071 212223242526 BCI 5,ABCDEFGHIJKLMNOPQRSTUVWXYZ 00072 273031414243 00073 444546475051 BINARY CARD NO. TESTR004 00074 626364656667 00075 707160606060 00076 531474345420 BCI 2,$@%)*&,-./# 00077 734033611360 00100 606060606060 BCI 5, 00101 606060606060 00102 606060606060 00103 606060606060 00104 606060606060 00105 0000 00 0 00105 HTR * 00106 &177617270243 P39 DEC .39 &171400000000 00107 &201400000000 ONE DEC 1.0 00110 &000000000000 OCT 0 00111 &204500000000 TEN DEC 10.0 &204500000000 00112 &000000000000 OCT 0 00113 &206540000000 FORFOR DEC 44.0 &206540000000 00114 &202600000000 THREE DEC 3.0 &202600000000 00115 &203400000000 FOUR DEC 4.0 &203400000000 00116 &210720000000 TOTHTO DEC 232.0 &210720000000 00117 &000000000000 CTL OCT 0 F END START LITERALS BINARY CARD NO. TESTR005 00120 151515151515 00121 515151515151 TESTRUN - TEST OPERATION 7/09/13 PAGE 1 POST PROCESSOR ASSEMBLY DATA 122 IS THE FIRST LOCATION NOT USED BY THIS PROGRAM REFERENCES TO DEFINED SYMBOLS 117 CTL 107 ONE 3 106 P39 111 TEN 4, 10, 20 115 FOUR 21, 22 4 LOOP 4, 6 10 LOOP2 10, 12 0 PRINT 25, 45, 65 1 START 1 114 THREE 73600 BOTIOP 3734 BOTTOM 3732 DATEBX 2 FINTAP 3730 FLAGBX 113 FORFOR 134 .CHEXI 135 .MODSW 1 LIBTAP 3731 LINECT 7 MBNTAP 10 MCHTAP 5 MINTAP 6 MLSTAP 3 SINTAP 11 SNPTAP 122 SYSACC 114 SYSCEM 155 SYSCK1 156 SYSCK2 120 SYSCOR 144 SYSCRD 102 SYSCUR 124 SYSCYD 101 SYSDAT 115 SYSDMP 77777 SYSEND 132 SYSGET 117 SYSIDR 151 SYSIN1 152 SYSIN2 116 SYSIOX 133 SYSJOB 104 SYSKEY 140 SYSLB1 141 SYSLB2 142 SYSLB3 143 SYSLB4 121 SYSLDR 3720 SYSORG 147 SYSOU1 TESTRUN - TEST OPERATION 7/09/13 PAGE 2 POST PROCESSOR ASSEMBLY DATA 150 SYSOU2 146 SYSPCH 123 SYSPID 106 SYSPOS 153 SYSPP1 154 SYSPP2 145 SYSPRT 103 SYSRET 113 SYSRPT 126 SYSSLD 105 SYSSWS 1 SYSTAP 127 SYSTCH 100 SYSTRA 131 SYSTWT 111 SYSUAV 110 SYSUBC 112 SYSUCW 107 SYSUNI 157 SYSUT1 160 SYSUT2 161 SYSUT3 162 SYSUT4 4 TINTAP 77677 TOPMEM 116 TOTHTO 702 %ACTIV 703 %ACTVX 720 %BCD5R 721 %BCD5X 10000 %CHKU) 741 %CHPSW 724 %CHXAC 750 %CHXSP 717 %CKWAT 746 %COMMD 736 %COMMM 722 %CVPRT 73662 %DATE) 716 %DECVA 715 %DECVD 73645 %DGLD) 73603 %DIAG) 710 %ENBSW 73665 %ENDS) 732 %ETTXI 743 %FDAMT 73660 %FGBX) 747 %IBCDZ 740 %IOXSI 73667 %LBLD) 73652 %LIBT) 73661 %LNCT) 73600 %LOAD) 73666 %LODR) TESTRUN - TEST OPERATION 7/09/13 PAGE 3 POST PROCESSOR ASSEMBLY DATA 737 %LTPOS 73644 %MECL) 73664 %MSLN) 704 %NDATA 705 %NDSLX 712 %PAUSE 711 %PAWSX 3733 %PCBK) 73651 %PGCT) 73614 %PNCH) 73611 %PRNT) 706 %PROUT 707 %PUNCH 40014 %RBEC) 40004 %RBEP) 40010 %RBNC) 40000 %RBNP) 727 %RCHXI 726 %RCTXI 40016 %RDEC) 40006 %RDEP) 40012 %RDNC) 40002 %RDNP) 73622 %REST) 73672 %SCHU) 744 %SDCXI 73643 %SECL) 20010 %SKBC) 20000 %SKBP) 20012 %SKDC) 20002 %SKDP) 1000 %SNAP) 73663 %SNCT) 73617 %STAT) 745 %STCXI 73626 %STDN) 723 %STOPD 713 %STOPX 10003 %SUAV) 10002 %SUNV) 714 %SYMUN 73606 %TAPE) 730 %TCOXI 733 %TEFXI 4000 %TPER) 735 %TRAPS 734 %TRAPX 731 %TRCXI 742 %TRPSW 725 %URRXI 40011 %WBNC) 40001 %WBNP) 40013 %WDNC) 40003 %WDNP) 40015 %WEFC) TESTRUN - TEST OPERATION 7/09/13 PAGE 4 POST PROCESSOR ASSEMBLY DATA 40005 %WEFP) 40031 %WROW) NO ERROR IN ABOVE ASSEMBLY. LOGICAL MACHINE TOTAL TOTAL NOISE RECORDS TOTAL REDUNDANCIES POSITIONING TAPE TAPE WRITES READS WRITING READING WRITING READING ERRORS 2 A 6 4 4 0 0 0 0 0 3 A 9 2 2 0 0 0 0 0 5 A 3 0 65 0 0 0 0 0 6 A 4 72 0 0 0 0 0 0 7 A 8 6 0 0 0 0 0 0 306 LINES OUTPUT THIS JOB. FORTRAN MONITOR RETURNING TO IBSYS $STOP PERIPHERAL UNIT POSITIONS AT END OF JOBS SYSPP1 IS A8 REC. 00020, FILE 00005 SYSOU1 IS A4 REC. 02295, FILE 00000 SYSIN1 IS A3 REC. 32767, FILE 00007 END OF JOBS