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 FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B PAGE 1 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 * COMPLETELY REVISED IN V3M4 106 * 107 X1 EQU 89 0089 108 X2 EQU 94 0094 109 X3 EQU 99 0099 110 * 111 * ADDRESS IN FORMAT LOADER 112 * 113 LRET EQU 1030 RETURN HERE FROM LIMITED LOAD 1030 114 * 115 ORG 1697 1697 116 1 697 SBR X1 4 1697 H 089 4 117 1 701 SW GMWM 4 1701 , !11 4 118 1 705 LCA X3,39 7 1705 L 099 039 4 119 1 712 LCA 1 1712 L 4 120 1 713 MN 0&X1,WT&3 7 1713 D 0|0 Y10 4 121 1 720 BWZ *&8,0&X1,S 8 1720 V X35 0|0 S 4 122 1 728 MCW KR,WT&7 7 1728 M !06 Y14 4 123 1 735 SBR EXIT&3,7&X1 7 1735 H !05 0|7 5 124 1 742 MCW 6&X1,X1 7 1742 M 0|6 089 5 125 1 749 LOOP BCE DONE,0&X1,. 8 1749 B Z87 0|0 . 5 126 1 757 MCW 3&X1,X2 7 1757 M 0|3 094 5 127 1 764 MCW 6&X1,X3 7 1764 M 0|6 099 5 128 1 771 SBR X1,7&X1 7 1771 H 089 0|7 6 129 1 778 MCW 1&X3,W1 7 1778 M 0?1 !07 6 130 1 785 LCA GMWM,1&X3 7 1785 L !11 0?1 6 131 1 792 SBR WT&6,1&X2 7 1792 H Y13 0!1 6 132 1 799 RETRY S ERRCNT 4 1799 S !08 6 133 1 803 RETRYW S ERWCNT 4 1803 S !09 6 134 1 807 WT WTW 1,0-0 8 1807 L %U1 000 W 7 135 1 815 BCE ERWTST,WT&7,W GO TEST FOR WRITE ERROR 8 1815 B Z24 Y14 W 7 136 1 823 BEF EOFR END FILE ON READ? 5 1823 B Y57 K 7 137 1 828 BCE WT,14&X2,} NOISE (SHORT) RECORD? 8 1828 B Y07 0J4 } GMARK 7 138 1 836 CHAIN 12 MACRO 139 BCE 1 1836 B GEN 7 140 BCE 1 1837 B GEN 7 141 BCE 1 1838 B GEN 7 142 BCE 1 1839 B GEN 8 143 BCE 1 1840 B GEN 8 144 BCE 1 1841 B GEN 8 145 BCE 1 1842 B GEN 8 146 BCE 1 1843 B GEN 8 147 BCE 1 1844 B GEN 8 FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 BCE 1 1845 B GEN 8 149 BCE 1 1846 B GEN 9 150 BCE 1 1847 B GEN 9 151 1 848 BER TAPERR ERROR ON READ? 5 1848 B Y73 L 9 152 1 853 B CONT 4 1853 B Y62 9 153 * 154 * EOF WHILE READING 155 * 156 1 857 EOFR NOP 888 4 1857 N 888 9 157 1 861 H 1 1861 . 9 158 * 159 1 862 CONT MCW W1,1&X3 7 1862 M !07 0?1 9 160 1 869 B LOOP 4 1869 B X49 10 161 * 162 * ERROR WHILE READING, OR AFTER THREE RETRIES ON WRITING 163 * 164 1 873 TAPERR MN WT&3,*&4 7 1873 D Y10 Y83 10 165 1 880 BSP 0 5 1880 U %U0 B 10 166 1 885 BCE ERRHLT,ERRCNT,I 8 1885 B Z78 !08 I 10 167 1 893 A *-6,ERRCNT 7 1893 A Y93 !08 10 168 1 900 BCE WT,WT&7,R 8 1900 B Y07 Y14 R 10 169 1 908 MN WT&3,*&4 7 1908 D Y10 Z18 11 170 1 915 SKP 0-0 5 1915 U %U0 E 11 171 1 920 B RETRYW 4 1920 B Y03 11 172 * 173 * TEST FOR ERROR OR EOF ON WRITE 174 * 175 1 924 ERWTST BER TAPERW ERROR ON WRITE? 5 1924 B Z38 L 11 176 1 929 BEF EOFW EOF ON WRITE? 5 1929 B Z69 K 11 177 1 934 B CONT 4 1934 B Y62 11 178 * 179 * ERROR WHILE WRITING 180 * 181 1 938 TAPERW BCE TAPERR,ERWCNT,C 8 1938 B Y73 !09 C 11 182 1 946 MN WT&3,*&4 7 1946 D Y10 Z56 12 183 1 953 BSP 0-0 5 1953 U %U0 B 12 184 1 958 A *-6,ERWCNT 7 1958 A Z58 !09 12 185 1 965 B WT 4 1965 B Y07 12 186 * 187 * EOF WHILE WRITING 188 1 969 EOFW NOP 666 4 1969 N 666 12 189 1 973 H 1 1973 . 12 190 1 974 B CONT 4 1974 B Y62 12 191 * 192 * TAPE ERROR 193 * 194 1 978 ERRHLT NOP 777 4 1978 N 777 13 195 1 982 H 1 1982 . 13 196 1 983 B RETRY 4 1983 B X99 13 197 * FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 987 DONE MCW 39,X3 7 1987 M 039 099 13 199 1 994 MCW 1 1994 M 13 200 1 995 MCW KW,WT&7 7 1995 M !10 Y14 13 201 2 002 EXIT B 0 4 2002 B 000 13 202 * 203 * DATA 204 * 205 2 006 KR DCW @R@ 1 2006 14 206 2 007 W1 DCW #1 1 2007 14 207 2 008 ERRCNT DCW #1 1 2008 14 208 2 009 ERWCNT DCW #1 1 2009 14 209 2 010 KW DCW @W@ 1 2010 14 210 2 011 GMWM DCW @}@ 1 2011 GMARK 14 211 EX LRET RETURN TO FORMAT LOADER AFTER LOADING B |30 15 212 END / 000 080 FORTRAN COMPILER -- LIMITED I/O -- PHASE 54B PAGE 4 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS CONT 1862 DONE 1987 EOFR 1857 EOFW 1969 ERRCNT 2008 ERRHLT 1978 ERWCNT 2009 ERWTST 1924 EXIT 2002 GMWM 2011 KR 2006 KW 2010 LOOP 1749 LRET 1030 RETRY 1799 RETRYW 1803 TAPERR 1873 TAPERW 1938 W1 2007 WT 1807 X1 89 X2 94 X3 99