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 -- GOTO PHASE -- PHASE 41 PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 JOB FORTRAN COMPILER -- GOTO PHASE -- PHASE 41 102 CTL 6611 103 * 104 * AN UNCONDITIONAL BRANCH INSTRUCTION IS GENERATED IN-LINE 105 * IN PLACE OF THE ORIGINAL STATEMENT 106 * 107 X1 EQU 89 0089 108 X3 EQU 99 0099 109 * 110 * STUFF IN THE RESIDENT AREA 111 * 112 PHASID EQU 110 PHASE ID, FOR SNAPSHOT DUMPS 0110 113 SNAPSH EQU 333 CORE DUMP SNAPSHOT 0333 114 LOADNX EQU 700 LOAD NEXT OVERLAY 0700 115 CLEARL EQU 707 CS AT START OF OVERLAY LOADER 0707 116 * 117 ORG 838 0838 118 LOADDD EQU *&1 LOAD ADDRESS 0838 119 838 LOOP BCE DONE,0&X1, 8 0838 B 861 0|0 4 120 846 MCW 0&X1,CODSEQ 7 0846 M 0|0 962 4 121 853 BCE GOTO,CODSEQ-3,G GOTO STATEMENT? 8 0853 B 884 959 G 4 122 861 DONE BSS SNAPSH,C 5 0861 B 333 C 4 123 866 SBR CLEARL&3,GMWM 7 0866 H 710 975 4 124 873 LCA STOPPZ,PHASID 7 0873 L 972 110 5 125 880 B LOADNX 4 0880 B 700 5 126 * 127 884 GOTO LCA 0&X1,0&X3 SEQNO, CODE, GMWM 7 0884 L 0|0 0?0 5 128 891 SAR X1 4 0891 Q 089 5 129 895 C 0&X3 4 0895 C 0?0 5 130 899 SAR X3 4 0899 Q 099 5 131 903 LCA 1&X3,2&X3 MOVE GMWM UP 7 0903 L 0?1 0?2 5 132 910 SBR X3 4 0910 H 099 6 133 914 LCA 0&X1,0&X3 MOVE LABEL UP 7 0914 L 0|0 0?0 6 134 921 SAR X1 4 0921 Q 089 6 135 925 C 0&X3 4 0925 C 0?0 6 136 929 SAR X3 4 0929 Q 099 6 137 933 MCW BRANCH,1&X3 REPLACE GMWM BY BRANCH 7 0933 M 973 0?1 6 138 940 LCA 1&X1 WITH THE GMWM BELOW IT 4 0940 L 0|1 6 139 944 SBR X3 4 0944 H 099 7 140 948 MZ X2ZONE,4&X3 7 0948 Y 974 0?4 7 141 955 B LOOP 4 0955 B 838 7 142 * 143 * DATA 144 * 145 962 CODSEQ DCW #4 STATEMENT CODE AND SEQUENCE NUMBER 4 0962 7 146 972 STOPPZ DCW @STOP/PAUSE@ 10 0972 7 147 973 BRANCH B 1 0973 B 7 FORTRAN COMPILER -- GOTO PHASE -- PHASE 41 PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 974 X2ZONE DCW @K@ 1 0974 7 149 975 GMWM DCW @}@ 1 0975 GMARK 8 150 ORG 201 0201 151 203 DSA LOADDD LOAD ADDRESS FOR CARD-TO-TAPE PROGRAM 3 0203 838 9 152 EX LOOP B 838 10 153 END / 000 080 FORTRAN COMPILER -- GOTO PHASE -- PHASE 41 PAGE 3 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS BRANCH 973 CLEARL 707 CODSEQ 962 DONE 861 GMWM 975 GOTO 884 LOADDD 838 LOADNX 700 LOOP 838 PHASID 110 SNAPSH 333 STOPPZ 972 X1 89 X2ZONE 974 X3 99