CLEAR STORAGE 1 ,008015,022026,030037,044,049,053053N000000N00001026 1 CLEAR STORAGE 2 L068116,105106,110117B101/I9I#071029C029056B026/B001/0991,001/001117I0? 2 BOOTSTRAP ,008015,022029,036040,047054,061068,072/061039 ,0010011040 3 0 FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B 102 CTL 6611 103 * 104 * LIMITED I/O ROUTINE -- NO FORMATTING 105 * 106 X1 EQU 89 0089 107 X3 EQU 99 0099 108 * 109 * ADDRESS IN FORMAT LOADER 110 * 111 LRET EQU 1030 RETURN HERE FROM LIMITED LOAD 1030 112 * 113 ORG 1697 1697 114 1 697 SBR X1 4 1697 H 089 4 115 1 701 SW GMWM 4 1701 , !15 4 116 1 705 CW 0&X1 4 1705 ) 0'0 4 117 1 709 MCW X3,SX3 7 1709 M 099 Z92 4 118 1 716 LCA A001,X3 7 1716 L Z95 099 4 119 1 723 BWZ WRITE,0&X1,S 8 1723 V Z10 0'0 S 4 120 1 731 MCW KR,TAPE&7 READ D MODIFIER 7 1731 M Z96 Y55 5 121 1 738 SETUP MCW 6&X1,W3 7 1738 M 0'6 Z99 5 122 1 745 LOOP MCW W3,*&7 7 1745 M Z99 X58 5 123 1 752 BCE DONE,0-0,. 8 1752 B Y95 000 . 5 124 1 760 MA A006,W3 7 1760 # !02 Z99 5 125 1 767 MCW W3,*&4 7 1767 M Z99 X77 6 126 1 774 MCW 0-0,W6 7 1774 M 000 !08 6 127 1 781 SW W6-2 4 1781 , !06 6 128 1 785 MA A001,W6 7 1785 # Z95 !08 6 129 1 792 MCW W6,*&4 7 1792 M !08 Y02 6 130 1 799 MCW 0-0,W1 7 1799 M 000 !09 6 131 1 806 MCW W6,*&7 7 1806 M !08 Y19 7 132 1 813 LCA GMWM,0-0 7 1813 L !15 000 7 133 1 820 MCW W6-3,TAPE&6 I/O ADDRESS 7 1820 M !05 Y54 7 134 1 827 MN 0&X1,TAPE&3 TAPE UNIT NUMBER 7 1827 D 0'0 Y51 7 135 1 834 S ERRCT,ERRCT 7 1834 S !10 !10 7 136 1 841 MZ X3ZONE,TAPE&5 7 1841 Y !11 Y53 8 137 1 848 TAPE RTW 1,0 8 1848 L %U1 000 R 8 138 1 856 BEF ENDFIL 5 1856 B Z83 K 8 139 1 861 BER TAPERR 5 1861 B Z21 L 8 140 1 866 MCW W6,*&7 7 1866 M !08 Y79 8 141 1 873 MCW W1,0-0 7 1873 M !09 000 8 142 1 880 MA A001,W3 7 1880 # Z95 Z99 9 143 1 887 CW W6-2 4 1887 ) !06 9 144 1 891 B LOOP 4 1891 B X45 9 145 1 895 DONE MCW SX3,X3 7 1895 M Z92 099 9 146 1 902 SW 0&X1 4 1902 , 0'0 9 147 1 906 B 7&X1 4 1906 B 0'7 9 1 FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 910 WRITE MCW KW,TAPE&7 WRITE D MODIFIER 7 1910 M !12 Y55 9 149 1 917 B SETUP 4 1917 B X38 10 150 1 921 TAPERR BCE ERRHLT,ERRCT,I 8 1921 B Z76 !10 I 10 151 1 929 MN TAPE&3,*&4 7 1929 D Y51 Z39 10 152 1 936 DCW @U%UOB@ BSP 0-0 5 1940 10 153 1 941 BCE SKIP,TAPE&7,W 8 1941 B Z60 Y55 W 10 154 1 949 A K1,ERRCT 7 1949 A !13 !10 10 155 1 956 B TAPE 4 1956 B Y48 11 156 1 960 SKIP MN TAPE&3,*&4 7 1960 D Y51 Z70 11 157 1 967 DCW @U%UOE@ SKP 0-0 5 1971 11 158 1 972 B TAPE 4 1972 B Y48 11 159 1 976 ERRHLT H ERRHLT,777 7 1976 . Z76 777 11 160 1 983 ENDFIL H ENDFIL,888 7 1983 . Z83 888 11 161 1 992 SX3 DCW #3 3 1992 11 162 1 995 A001 DSA 1 3 1995 001 12 163 1 996 KR DCW @R@ 1 1996 12 164 1 999 W3 DCW #3 3 1999 12 165 2 002 A006 DSA 6 3 2002 006 12 166 2 008 W6 DCW #6 6 2008 12 167 2 009 W1 DCW #1 1 2009 12 168 2 010 ERRCT DCW #1 1 2010 12 169 2 011 X3ZONE DCW @A@ 1 2011 13 170 2 012 KW DCW @W@ 1 2012 13 171 2 013 K1 DCW 1 1 2013 13 172 2 014 DCW #1 1 2014 13 173 2 015 GMWM DCW @}@ 1 2015 GMARK 13 174 EX LRET RETURN TO FORMAT LOADER AFTER LOADING B '30 14 175 END / 000 080 1 FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B PAGE 3 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS A001 1995 A006 2002 DONE 1895 ENDFIL 1983 ERRCT 2010 ERRHLT 1976 GMWM 2015 K1 2013 KR 1996 KW 2012 LOOP 1745 LRET 1030 SETUP 1738 SKIP 1960 SX3 1992 TAPE 1848 TAPERR 1921 W1 2009 W3 1999 W6 2008 WRITE 1910 X1 89 X3 99 X3ZONE 2011