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 -- SENSE LIGHT PHASE -- PHASE 43 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43 102 CTL 6611 103 * 104 * IN-LINE INSTRUCTIONS ARE GENERATED. 105 * 106 X1 EQU 89 0089 107 X2 EQU 94 0094 108 X3 EQU 99 0099 109 * 110 * STUFF IN THE RESIDENT AREA 111 * 112 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 113 GLOBER EQU 184 GLOBAL ERROR FLAG -- WM MEANS ERROR 0184 114 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 115 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 116 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 117 CDOVLY EQU 769 1 IF RUNNING FROM CARDS, N IF FROM TAPE 0769 118 * 119 ORG 838 0838 120 LOADDD EQU *&1 LOAD ADDRESS 0838 121 838 BEGINN BCE DONE,0&X1, 8 0838 B 861 0|0 4 122 846 MCW 0&X1,SEQCOD 7 0846 M 0|0 /88 4 123 853 BCE SLITE,SEQCOD-3,J 8 0853 B 884 /85 J 4 124 861 DONE BSS SNAPSH,C 5 0861 B 333 C 4 125 866 SBR CLEARL&3,GMWM 7 0866 H 710 S92 4 126 873 LCA IFCOND,PHASID 7 0873 L /94 110 5 127 880 B LOADNX 4 0880 B 700 5 128 884 SLITE LCA 0&X1,0&X3 7 0884 L 0|0 0?0 5 129 891 SAR X1 4 0891 Q 089 5 130 895 C 0&X3 4 0895 C 0?0 5 131 899 SAR X3 4 0899 Q 099 5 132 903 SBR TSTBRK&6,1&X1 7 0903 H /26 0|1 5 133 910 MCW RBRACK,1&X1 7 0910 M /95 0|1 6 134 917 LCA 1&X3,2&X3 7 0917 L 0?1 0?2 6 135 924 SBR X3 4 0924 H 099 6 136 928 MCW SEQCOD,W3 7 0928 M /88 /98 6 137 935 BWZ *&5,W3,2 8 0935 V 947 /98 2 6 138 943 B *&9 4 0943 B 955 6 139 947 BWZ *&15,W3-2,2 8 0947 V 969 /96 2 7 140 955 MCW W3,X2 7 0955 M /98 094 7 141 962 MCW 0&X2,W3 7 0962 M 0!0 /98 7 142 969 BCE SYNTAX,0&X1,} 8 0969 B |15 0|0 } GMARK 7 143 977 MCW 0&X1,W2 7 0977 M 0|0 S00 7 144 984 BCE TSTCOD,W2-1,} SENSE LIGHT NUMBER IS ONE DIGIT? 8 0984 B 996 /99 } GMARK 8 145 992 B SYNTAX 4 0992 B |15 8 146 996 TSTCOD MN 0&X1,*&8 7 0996 D 0|0 |10 8 147 1 003 BCE SENSOK,K01234,0 VALID SENSE LIGHT NUMBER? 8 1003 B |68 S05 0 8 FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 011 CHAIN 4 MACRO 149 BCE 1 1011 B GEN 8 150 BCE 1 1012 B GEN 8 151 BCE 1 1013 B GEN 8 152 BCE 1 1014 B GEN 9 153 1 015 SYNTAX CS 332 4 1015 / 332 9 154 1 019 CS 1 1019 / 9 155 1 020 SW GLOBER 4 1020 , 184 9 156 1 024 MN W3,245 7 1024 D /98 245 9 157 1 031 MN 1 1031 D 9 158 1 032 MN 1 1032 D 9 159 1 033 MCW ERR36 4 1033 M S47 10 160 1 037 W 1 1037 2 10 161 1 038 BCV *&5 5 1038 B |47 @ 10 162 1 043 B *&3 4 1043 B |49 10 163 1 047 CC 1 2 1047 F 1 10 164 1 049 SBR X3,4&X3 7 1049 H 099 0?4 10 165 1 056 C 0&X1 4 1056 C 0|0 10 166 1 060 SAR X1 4 1060 Q 089 11 167 1 064 B BEGINN 4 1064 B 838 11 168 1 068 SENSOK MZ *-4,0&X1 7 1068 Y |70 0|0 11 169 1 075 BCE SENSE0,0&X1,0 8 1075 B /62 0|0 0 11 170 1 083 MN 0&X1,CW&3 7 1083 D 0|0 /84 11 171 1 090 LCA CW&3,0&X3 LOAD CW INSTRUCTION 7 1090 L /84 0?0 11 172 1 097 SBR X3 4 1097 H 099 12 173 1 101 ENDSTM C 0&X1 4 1101 C 0|0 12 174 1 105 SAR X1 4 1105 Q 089 12 175 1 109 LCA 1&X1,0&X3 GMWM 7 1109 L 0|1 0?0 12 176 1 116 SBR X3 4 1116 H 099 12 177 1 120 TSTBRK BCE BEGINN,0,] NOT TOO BIG IF BRACKET NOT CLOBBERED 8 1120 B 838 000 ] 12 178 1 128 CS 332 4 1128 / 332 12 179 1 132 CS 1 1132 / 13 180 1 133 CC 1 2 1133 F 1 13 181 1 135 MCW ERROR2,270 7 1135 M S83 270 13 182 1 142 W 1 1142 2 13 183 1 143 CC 1 2 1143 F 1 13 184 1 145 BCE HALT,CDOVLY,1 8 1145 B /58 769 1 13 185 1 153 RWD 1 5 1153 U %U1 R 13 186 1 158 HALT H HALT 4 1158 . /58 14 187 1 162 SENSE0 LCA SW,0&X3 CHAINED SW 7 1162 L S84 0?0 14 188 1 169 LCA SW2&6 SW 82,84 4 1169 L S91 14 189 1 173 SBR X3 4 1173 H 099 14 190 1 177 B ENDSTM 4 1177 B /01 14 191 1 181 CW CW 80 4 1181 ) 080 14 192 1 188 SEQCOD DCW #4 4 1188 14 193 1 194 IFCOND DCW @IFCOND@ 6 1194 15 194 1 195 RBRACK DCW @]@ 1 1195 15 195 1 198 W3 DCW #3 3 1198 15 196 1 200 W2 DCW #2 2 1200 15 197 1 205 K01234 DCW @01234@ 5 1205 15 FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43 PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 198 1 247 ERR36 DCW @ERROR 36 - ILLEGAL SENSE LIGHT, STATEMENT @ 42 1247 17 199 1 283 ERROR2 DCW @MESSAGE 2 - OBJECT PROGRAM TOO LARGE@ 36 1283 17 200 1 284 SW SW 1 1284 , 18 201 1 285 SW2 SW 82,84 7 1285 , 082 084 18 202 1 292 GMWM DCW @}@ 1 1292 GMARK 18 203 ORG 201 0201 204 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 19 205 EX BEGINN B 838 20 206 END / 000 080 FORTRAN COMPILER -- SENSE LIGHT PHASE -- PHASE 43 PAGE 4 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BEGINN 838 CDOVLY 769 CLEARL 707 CW 1181 DONE 861 ENDSTM 1101 ERR36 1247 ERROR2 1283 GLOBER 184 GMWM 1292 HALT 1158 IFCOND 1194 K01234 1205 LOADDD 838 LOADNX 700 PHASID 110 RBRACK 1195 SENSE0 1162 SENSOK 1068 SEQCOD 1188 SLITE 884 SNAPSH 333 SW 1284 SW2 1285 SYNTAX 1015 TSTBRK 1120 TSTCOD 996 W2 1200 W3 1198 X1 89 X2 94 X3 99