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 1401 FORTRAN FORMAT PACKAGE 5054A PAGE 1 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 1 01 JOB 1401 FORTRAN FORMAT PACKAGE 102 1 02 CTL 645 11 103 1 03 SFX Q 104 1 04 110 DCW @FORMATPAK@ Q 9 0110 4 105 1 05 X1 EQU 089 Q 0089 106 1 06 X2 EQU 094 Q 0094 107 1 07 X3 EQU 099 Q 0099 108 1 08 PARAMA EQU 686 Q 0686 109 1 09 MONTER EQU 700 Q 0700 110 1 10 TCLEAR EQU 710 Q 0710 111 1 11 MONTOR EQU 769 Q 0769 112 1 12 STARTR EQU 934 Q 0934 113 1 13 ORG STARTR Q 0934 114 1 14 FOMAT SW GMWM,FORMAT Q 7 0934 , S53 W97 5 115 1 15 BCE TPSYS,MONTOR,N TAPE OR CARD SYSTEM Q 8 0941 B |59 769 N 5 116 1 16 CDSYS BCE CDLIO,PARAMA&10,L L#LIMITED I/O Q 8 0949 B |26 696 L 5 117 1 17 SKLIO R Q 1 0957 1 5 118 1 18 BCE NTEST,68,B Q 8 0958 B 970 068 B 5 119 1 19 B SKLIO Q 4 0966 B 957 5 120 1 20 NTEST BCE SKFIO,PARAMA&10,X X#NO I/O Q 8 0970 B |34 696 X 6 121 1 21 R 040 Q 4 0978 1 040 6 122 1 22 CWFIO CW GMK Q 4 0982 ) 28W 6 123 1 23 C PARAMA&4,@01@ Q 7 0986 C 690 S39 6 124 1 24 BU ATEST Q 5 0993 B |05 / 6 125 1 25 LCA @N@,CWMKS Q 7 0998 L S40 A38 6 126 1 26 ATEST BCE CDAF,PARAMA&10,A A#A FORMAT Q 8 1005 B |47 696 A 7 127 1 27 SKAIO R Q 1 1013 1 7 128 1 28 BCE EXITA,68,B Q 8 1014 B /41 068 B 7 129 1 29 B SKAIO Q 4 1022 B |13 7 130 1 30 CDLIO R 040 Q 4 1026 1 040 7 131 1 31 CWLIO CW GPWDMK Q 4 1030 ) !22 7 132 1 32 SKFIO R Q 1 1034 1 7 133 1 33 BCE ATEST,68,B Q 8 1035 B |05 068 B 8 134 1 34 B SKFIO Q 4 1043 B |34 8 135 1 35 CDAF R 040 Q 4 1047 1 040 8 136 1 36 CWAF CW GM54D Q 4 1051 ) 61W 8 137 1 37 B EXITA Q 4 1055 B /41 8 138 1 38 TPSYS BCE TPLIO,PARAMA&10,L Q 8 1059 B /64 696 L 8 139 1 39 SKPL RTW 1,GMWM Q 8 1067 L %U1 S53 R 9 140 1 40 BER TPER Q 5 1075 B S11 L 9 141 1 41 BCE SKPF,PARAMA&10,X Q 8 1080 B /77 696 X 9 142 1 42 FULIO RTW 1,FORMAT Q 8 1088 L %U1 W97 R 9 143 1 43 BER TPER Q 5 1096 B S11 L 9 144 1 44 C PARAMA&4,@01@ Q 7 1101 C 690 S39 10 145 1 45 BU TSTAF Q 5 1108 B /20 / 10 146 1 46 LCA @N@,CWMKS Q 7 1113 L S40 A38 10 147 1 47 TSTAF BCE TPAF,PARAMA&10,A Q 8 1120 B /94 696 A 10 1 1401 FORTRAN FORMAT PACKAGE 5054A PAGE 2 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 148 1 48 SKPAF RTW 1,GMWM Q 8 1128 L %U1 S53 R 10 149 1 49 BER TPER Q 5 1136 B S11 L 11 150 1 50 EXITA FENDX C,,,,,,GMWM,REPLACE 2 MACRO 151 EXITA BSS 333,C Q 5 1141 B 333 C GEN 11 152 SBR TCLEAR,GMWM Q 7 1146 H 710 S53 GEN 11 153 LCA @REPLACE 2@,110 Q 7 1153 L S49 110 GEN 11 154 B MONTER Q 4 1160 B 700 GEN 11 155 1 51 TPLIO RTW 1,FORMAT Q 8 1164 L %U1 W97 R 11 156 1 52 BER TPER Q 5 1172 B S11 L 12 157 1 53 SKPF RTW 1,GMWM Q 8 1177 L %U1 S53 R 12 158 1 54 BER TPER Q 5 1185 B S11 L 12 159 1 55 B SKPAF Q 4 1190 B /28 12 160 1 56 TPAF RTW 1,ABEGN Q 8 1194 L %U1 28| R 12 161 1 57 BER TPER Q 5 1202 B S11 L 12 162 1 58 B EXITA Q 4 1207 B /41 12 163 1 59 TPER SBR BBACK&3 Q 4 1211 H S37 13 164 1 60 MA @I8G@,BBACK&3 Q 7 1215 # S52 S37 13 165 1 61 BSP 1 Q 5 1222 U %U1 B 13 166 1 62 H 3333,3333 Q 7 1227 . C33 C33 13 167 1 63 BBACK B 0 Q 4 1234 B 000 13 168 1 64 LTORG * Q 1238 DCW @01@ Q 2 1239 LIT 13 DCW @N@ Q 1 1240 LIT 13 DCW @REPLACE 2@ Q 9 1249 LIT 14 DCW @I8G@ Q 3 1252 LIT 14 169 1 65 GMWM DCW @}@ GROUP MARK Q 1 1253 GMARK 14 170 1 66 XFR FOMAT NEXT COMES LIO, THEN FULL I/O Q B 934 15 1 OBJECT TIME FORMAT 5054B PAGE 3 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 171 1 67 JOB OBJECT TIME FORMAT 172 1 68 ORG 1697 Q 1697 173 1 69 START SBR X1 Q 4 1697 H 089 18 174 1 70 SW GPWDMK Q 4 1701 , !22 18 175 1 71 CW 0&X1 Q 4 1705 ) 0|0 18 176 1 72 MCW X3,SAVX3#3 SAVE X3 Q 7 1709 M 099 Z99 18 177 1 73 LCA @001@,X3 Q 7 1716 L !02 099 18 178 1 74 BWZ WRTAP,0&X1,S GO TO WRITE TAPE ON ZONE. Q 8 1723 V Z17 0|0 S 18 179 1 75 MCW @R@,IO4&7 SET READ TAPE D MODIFIER Q 7 1731 M !03 Y55 19 180 1 76 RDTAP MCW 6&X1,LOC#3 Q 7 1738 M 0|6 !06 19 181 1 77 IO1 MCW LOC,IO12&6 Q 7 1745 M !06 X58 19 182 1 78 IO12 BCE RET,000,. . IS END OF LIST, RETURN Q 8 1752 B Z02 000 . 19 183 1 79 MA @006@,LOC Q 7 1760 # !09 !06 19 184 1 80 MCW LOC,IO15&3 Q 7 1767 M !06 X77 20 185 1 81 IO15 MCW 000,ADDR#6 ADDR IS LOC OF DATA ADDR Q 7 1774 M 000 !15 20 186 1 82 SW ADDR-2 Q 4 1781 , !13 20 187 1 83 MA @001@,ADDR ADDR IS NOW LOC OF DATA ADDR &1 Q 7 1785 # !02 !15 20 188 1 84 MCW ADDR,IO2&3 Q 7 1792 M !15 Y02 20 189 1 85 IO2 MCW 000,SAVCH#1 SAVE CHAR AFTER DATA AREA Q 7 1799 M 000 !16 20 190 1 86 MCW ADDR,IO3&6 Q 7 1806 M !15 Y19 21 191 1 87 IO3 LCA GPWDMK,000 MOVE GP MK WD MK TO DATA ADDR &1 Q 7 1813 L !22 000 21 192 1 88 MCW ADDR-3,IO4&6 MOVE FIRST CHAR ADDR OF DATA Q 7 1820 M !12 Y54 21 193 1 89 MN 0&X1,IO4&3 MOVE TAPE NO. Q 7 1827 D 0|0 Y51 21 194 1 90 S COUNT#1,COUNT CLEAR READ-ERROR COUNTER Q 7 1834 S !17 !17 21 195 1 91 MZ @A@,IO4&5 Q 7 1841 Y !18 Y53 22 196 1 92 IO4 RTW 1,000 Q 8 1848 L %U1 000 R 22 197 1 94 BER RWT31 Q 5 1856 B Z28 L 22 198 1 95 MCW ADDR,IO5&6 Q 7 1861 M !15 Y74 22 199 1 96 IO5 MCW SAVCH,000 RETURN CHAR AFTER DATA AREA Q 7 1868 M !16 000 22 200 1 97 MA @001@,LOC STEP TO NEXT VARIABLE IN LIST Q 7 1875 # !02 !06 23 201 1 98 CW ADDR-2 Q 4 1882 ) !13 23 202 1 981 BEF RWT78 V3M4 Q 5 1886 B Z90 K 23 203 1 982 MA @001@,LOC V3M4 Q 7 1891 # !02 !06 23 204 1 99 B IO1 Q 4 1898 B X45 23 205 2 00 RET MCW SAVX3,X3 RESTORE X3 Q 7 1902 M Z99 099 23 206 2 01 SW 0&X1 Q 4 1909 , 0|0 23 207 2 02 B 7&X1 Q 4 1913 B 0|7 24 208 2 03 WRTAP MCW @W@,IO4&7 SET WRITE TAPE D MODIFIER Q 7 1917 M !19 Y55 24 209 2 04 B RDTAP Q 4 1924 B X38 24 210 2 05 RWT31 BCE RWT77,COUNT,I TEST READ-ERROR COUNTER Q 8 1928 B Z83 !17 I 24 211 2 06 MN IO4&3,*&4 Q 7 1936 D Y51 Z46 24 212 2 07 UB %U0 BACKSPACE -- TYPO "%UO" IN ORIG Q 5 1943 U %U0 B 24 213 2 08 BCE RWT41,IO4&7,W Q 8 1948 B Z67 Y55 W 25 214 2 09 A @1@,COUNT INCREASE READ-ERROR COUNTER Q 7 1956 A !20 !17 25 215 2 10 B IO4 Q 4 1963 B Y48 25 216 2 11 RWT41 MN IO4&3,*&4 Q 7 1967 D Y51 Z77 25 217 2 12 UE %U0 SKIP AND ERASE -- TYPO %UO AGAIN Q 5 1974 U %U0 E 25 218 2 13 B IO4 Q 4 1979 B Y48 25 219 2 14 RWT77 H *-6,777 TAPE-ERROR Q 7 1983 . Z83 777 26 220 2 15 RWT78 H *-6,888 END-OF-FILE Q 7 1990 . Z90 888 26 1 OBJECT TIME FORMAT 5054B PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 221 2 16 LTORG * Q 1997 SAVX3Q DCW #03 Q 3 1999 AREA 26 DCW @001@ Q 3 2002 LIT 26 DCW @R@ Q 1 2003 LIT 26 LOC Q DCW #03 Q 3 2006 AREA 26 DCW @006@ Q 3 2009 LIT 26 ADDR Q DCW #06 Q 6 2015 AREA 27 SAVCHQ DCW #01 Q 1 2016 AREA 27 COUNTQ DCW #01 Q 1 2017 AREA 27 DCW @A@ Q 1 2018 LIT 27 DCW @W@ Q 1 2019 LIT 27 DCW @1@ Q 1 2020 LIT 27 222 2 17 DCW @ @ Q 1 2021 27 223 2 18 GPWDMK DCW @}@ GROUP MARK Q 1 2022 GMARK 28 224 2 19 XFR CWLIO Q B |30 29 1 OBJECT TIME FORMAT 5054C PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 225 2 20 JOB OBJECT TIME FORMAT 226 2 21 ORG 1697 Q 1697 227 2 22 FORMAT SBR X1 Q 4 1697 H 089 32 228 2 23 MLC 0&X1,FMTZON SAVE I/O CODE Q 7 1701 M 0|0 J36 32 229 2 24 MLC *-6,IO Q 7 1708 M X08 D38 32 230 2 25 SBR FMTXT&3, 7&X1 STORE EXIT FROM FORMAT ROUTN Q 7 1715 H J35 0|7 32 231 2 26 MCW 6&X1,LIST&6 Q 7 1722 M 0|6 Z68 32 232 2 27 ZA *-6,PCTR SET SCALE FACTOR TO ZERO Q 7 1729 ? X29 L27 32 233 2 28 CW INSW#1 Q 4 1736 ) 25| 33 234 2 29 SW GMK Q 4 1740 , 28W 33 235 2 30 MCW 3&X1, XL2 MV ADDR OF SPEC TO X2 Q 7 1744 M 0|3 094 33 236 2 31 SBR X3, 200 INITILZE WKAREA CTR TO LFT Q 7 1751 H 099 200 33 237 2 32 SBR TUMUCH#3,334 Q 7 1758 H 25T 334 33 238 2 33 BCE READC, 0&X1, & READ CARD Q 8 1765 B E60 0|0 & 33 239 2 34 BCE PUNCH, 0&X1, - PUNCH CARD Q 8 1773 B E29 0|0 - 34 240 2 35 BCE PRINT, 0&X1, * PRINT LINE Q 8 1781 B D75 0|0 * 34 241 2 36 BWZ RDITP, 0&X1, K READ INPUT TAPE Q 8 1789 V C16 0|0 K 34 242 2 37 BWZ WT2,0&X1,B WRITE OUTPUT TAPE Q 8 1797 V C79 0|0 B 34 243 2 38 SBR X2,RDRTB SET RETRN FOR READ TAPE Q 7 1805 H 094 Z16 34 244 2 39 CS 332 CLEAR WRK AREA FOR READ TAPE Q 4 1812 / 332 35 245 2 40 CS AND WRITE TAPE Q 1 1816 / 35 246 2 41 CS Q 1 1817 / 35 247 2 42 SBR X3,100 SET WKAREA TO 100 Q 7 1818 H 099 100 35 248 2 43 MLC ELL,IO Q 7 1825 M !79 D38 35 249 2 44 LOOP2 SW 0&X3 Q 4 1832 , 0?0 35 250 2 45 B GETAD Q 4 1836 B Z43 35 251 2 46 BWZ RDITP,FMTZON,2 EXIT IF READ TAPE Q 8 1840 V C16 J36 2 36 252 2 47 SBR BUCKT,100 Q 7 1848 H 25W 100 36 253 2 48 MVAGN MLC 0&X1,0&X3 Q 7 1855 M 0|0 0?0 36 254 2 49 SAR X2 Q 4 1862 Q 094 36 255 2 50 B SBRX3 Q 4 1866 B J37 36 256 2 51 BW *&5,1&X2 Q 8 1870 V Y82 0!1 1 36 257 2 52 B MVAGN Q 4 1878 B Y55 37 258 2 53 B CKOVF GO CK IF WE ARE PAST 332 Q 4 1882 B Q08 37 259 2 54 SBR OUTPT&3,TPCMND Q 7 1886 H K22 C88 37 260 2 55 B LOOP2 GO GET NXT ADDRS OF DATA Q 4 1893 B Y32 37 261 2 56 OUT B CKOVF GO CK IF WE ARE PAST 332 Q 4 1897 B Q08 37 262 2 57 MLCWA 0&X3,0&X1 MV DATA FRM WRKAREA TO STRGE Q 7 1901 L 0?0 0|0 37 263 2 58 B GETAD GO GET NXT ADDR OF DATA Q 4 1908 B Z43 37 264 2 59 RDRTN B SBRX3 Q 4 1912 B J37 38 265 2 60 RDRTB BW OUT,1&X3 Q 8 1916 V Y97 0?1 1 38 266 2 61 B RDRTN NO BRNCH TO STEP CTR Q 4 1924 B Z12 38 267 2 62 FMAIN SBR OUTPT&3 RETRN FRM RD,PCH,PRT,RD-WTP Q 4 1928 H K22 38 268 2 63 MLC X3,BUCKT#3 Q 7 1932 M 099 25W 38 269 2 64 B 0&X2 GO PROCESS ACCRDNG TO FORMAT Q 4 1939 B 0!0 38 270 2 65 GETAD SBR GTXT&3 Q 4 1943 H !06 38 271 2 66 MLC X2,SAVE2&6 FREE X2 FOR LIST ROUTINE Q 7 1947 M 094 !02 39 272 2 67 BW ALRDY,LKHED Q 8 1954 V !31 24Z 1 39 273 2 68 LIST T OBLIST Q 4 1962 T 912 39 274 2 69 MLBOX DCW #3 Q 3 1968 39 1 OBJECT TIME FORMAT 5054C PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 275 2 70 SBR X2 END OF OBLST, ARRAY ADRES Q 4 1969 H 094 39 276 2 71 RMVZN MZ NOZN,X1-1 Q 7 1973 Y B66 088 39 277 2 72 BCE NTRAY,X1,. ENTIRE ARRAY FOR WRITE TAPE Q 8 1980 B !46 089 . 40 278 2 73 BCE UNDUN,X1, BLANK Q 8 1988 B !07 089 40 279 2 74 SAVE2 SBR X2, XXX RESTORE X2 Q 7 1996 H 094 000 40 280 2 75 GTXT B XXX Q 4 2003 B 000 40 281 2 76 UNDUN BW FMTXT,INSW Q 8 2007 V J32 25| 1 40 282 2 77 C BUCKT,X3 Q 7 2015 C 25W 099 41 283 2 78 BU NDLIN Q 5 2022 B K08 / 41 284 2 79 B FMTXT Q 4 2027 B J32 41 285 2 80 ALRDY CW LKHED Q 4 2031 ) 24Z 41 286 2 81 MLC SAVE1,X1 Q 7 2035 M 26U 089 41 287 2 82 B RMVZN Q 4 2042 B Z73 41 288 2 83 NTRAY MLC 2&X2,X3 MV LFT ADDR OF ARRAY-1 TO X3 Q 7 2046 M 0!2 099 41 289 2 84 MLC 5&X2,X1 MV RIGHT ADDR OF ARRAY TO X1 Q 7 2053 M 0!5 089 42 290 2 85 MLC 1&X1,GMKHD#1 SAVE CHAR AT RIGHTHAND ADDR Q 7 2060 M 0|1 25X 42 291 2 86 BW *&5,1&X1 PLUS ONE AND REPLACE BY GMK Q 8 2067 V !79 0|1 1 42 292 2 87 CW GMKSW#1 FOR READING OR WRITING FROM Q 4 2075 ) 25Y 42 293 2 88 ELL MLCWA GMK,1&X1 Q 7 2079 L 28W 0|1 42 294 2 89 B SBRX3 Q 4 2086 B J37 42 295 2 90 SBR X2,ARRTN SET RETURN FROM I/O ROUTINE Q 7 2090 H 094 J09 43 296 2 91 BWZ RDITP,FMTZON,2 GO READ TAP E ENTIRE ARRAY Q 8 2097 V C16 J36 2 43 297 2 92 B TPCMND Q 4 2105 B C88 43 298 2 93 ARRTN MLC GMKHD,1&X1 RETURN FROM READ OR WRITE TP Q 7 2109 M 25X 0|1 43 299 2 94 BW FMTXT,GMKSW ENTIRE ARRAY- RESET CHARACTR Q 8 2116 V J32 25Y 1 43 300 2 95 CW 1&X1 WHEREGMK WAS INSERTED Q 4 2124 ) 0|1 43 301 2 96 SW GMKSW Q 4 2128 , 25Y 44 302 2 97 FMTXT B XXX EGRESS Q 4 2132 B 000 44 303 2 98 FMTZON DCW @ @ Q 1 2136 44 304 2 99 SBRX3 SBR SBRX3&14 Q 4 2137 H J51 44 305 3 00 SBR X3,1&X3 Q 7 2141 H 099 0?1 44 306 3 01 B 0 Q 4 2148 B 000 44 307 3 02 OPNPR SBR X2 ENTRY FOR LFT PAREN IN FRMAT Q 4 2152 H 094 44 308 3 03 MN 0&X2 Q 4 2156 D 0!0 45 309 3 04 MN Q 1 2160 D 45 310 3 05 MN Q 1 2161 D 45 311 3 06 MN Q 1 2162 D 45 312 3 07 SAR REPEAT&3 Q 4 2163 Q L09 45 313 3 08 MCW 2&X2, RTPA#3 MV NMBR OF TIMES ROUTINE IS Q 7 2167 M 0!2 26/ 45 314 3 09 SBR LAST1&3,3&X2 Q 7 2174 H K07 0!3 45 315 3 10 B DECRA TO BE EXECUTED TO HLD AREA Q 4 2181 B J89 46 316 3 11 CLSPR SBR X2 ENTRY FOR RIGHT PAREN FRM Q 4 2185 H 094 46 317 3 12 DECRA S ONE,RTPA Q 7 2189 S E78 26/ 46 318 3 13 BM 0&X2, RTPA HAVE FINISHED THIS SET OF Q 8 2196 V 0!0 26/ K 46 319 3 14 LAST1 B XXX Q 4 2204 B 000 46 320 3 15 NDLIN SBR X2 ENTRY FOR / IN FORMAT ROUTIN Q 4 2208 H 094 46 321 3 16 MLC BUCKT,X3 Q 7 2212 M 25W 099 46 322 3 17 OUTPT B XXX Q 4 2219 B 000 47 323 3 18 EOJ1 BW NOPSW,INSW Q 8 2223 V K43 25| 1 47 324 3 19 C BUCKT,X3 Q 7 2231 C 25W 099 47 1 OBJECT TIME FORMAT 5054C PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 325 3 20 BU NDLIN Q 5 2238 B K08 / 47 326 3 21 NOPSW MLC LIST&6,*&7 Q 7 2243 M Z68 K56 47 327 3 22 BCE NOPBR,0,, Q 8 2250 B K98 000 , 47 328 3 23 MLC LIST&6,*&7 Q 7 2258 M Z68 K71 48 329 3 24 T OBLIST Q 4 2265 T 912 48 330 3 25 EJBOX DCW #3 Q 3 2271 48 331 3 26 BCE FMTXT,X1, Q 8 2272 B J32 089 48 332 3 27 MLC EJBOX,MLBOX Q 7 2280 M K71 Z68 48 333 3 28 MLC X1,SAVE1#3 Q 7 2287 M 089 26U 48 334 3 29 SW LKHED Q 4 2294 , 24Z 49 335 3 30 NOPBR BW NDLIN,INSW GO GET NEW RCD IF INPUT Q 8 2298 V K08 25| 1 49 336 3 31 REPEAT B XXX Q 4 2306 B 000 49 337 3 32 SCALE SBR X2 Q 4 2310 H 094 49 338 3 33 ZA 2&X2,PCTR SAVE SCALING FACTOR Q 7 2314 ? 0!2 L27 49 339 3 34 B 3&X2 RETURN TO FORMAT SPEC Q 4 2321 B 0!3 49 340 3 35 PCTR DCW &000 Q 3 2327 49 341 3 36 HOLLR SBR X2 Q 4 2328 H 094 50 342 3 37 TESTH BW HOLIN,INSW Q 8 2332 V L47 25| 1 50 343 3 38 HLOUT MLC 0&X2,0&X3 Q 7 2340 M 0!0 0?0 50 344 3 39 HOLIN MLC 0&X3,0&X2 Q 7 2347 M 0?0 0!0 50 345 3 40 B SBRX3 Q 4 2354 B J37 50 346 3 41 SBR X2,1&X2 Q 7 2358 H 094 0!1 50 347 3 42 BW *&5,0&X2 Q 8 2365 V L77 0!0 1 51 348 3 43 B TESTH Q 4 2373 B L32 51 349 3 44 B CKOVF Q 4 2377 B Q08 51 350 3 45 B 0&X2 Q 4 2381 B 0!0 51 351 3 46 GETW SBR X2 Q 4 2385 H 094 51 352 3 47 MCW 3&X2, RPTB#3 Q 7 2389 M 0!3 26X 51 353 3 48 DCRPB S ONE,RPTB Q 7 2396 S E78 26X 51 354 3 49 BWZ GTRTN,RPTB,B Q 8 2403 V M31 26X B 52 355 3 50 BCE 7&X2,0&X2,I Q 8 2411 B 0!7 0!0 I 52 356 3 51 BCE 7&X2,0&X2,A Q 8 2419 B 0!7 0!0 A 52 357 3 52 B 10&X2 Q 4 2427 B 0J0 52 358 3 53 GTRTN B GETAD Q 4 2431 B Z43 52 359 3 54 AFIXW S,FIXWD MACRO 360 S Q 1 2435 S GEN 52 361 DC @_0@ 11-7-8,0 Q 2 2437 GEN 52 362 DC 0 Q 1 2438 GEN 52 363 3 55 EFNTN AFLTW SW,FLTWD,-1 MACRO 364 EFNTN SW Q 1 2439 , GEN 52 365 DC @;0@ 11-6-8,0 Q 2 2441 GEN 52 366 DC -1 Q 1 2442 GEN 53 367 3 56 BW INEFI, INSW Q 8 2443 V F55 25| 1 53 368 3 57 CS 24 Q 4 2451 / 024 53 369 3 58 SW 0&X3 Q 4 2455 , 0?0 53 370 3 59 MN Q 1 2459 D 53 371 3 60 SBR X3 Q 4 2460 H 099 54 372 3 61 SBR JOE4&3,2&X3 Q 7 2464 H Q97 0?2 54 373 3 62 SBR FINS&3 Q 4 2471 H A49 54 374 3 63 SW 001 Q 4 2475 , 001 54 1 OBJECT TIME FORMAT 5054C PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 375 3 64 BCE INOTN, 0&X2, I Q 8 2479 B Q33 0!0 I 54 376 3 65 BCE AOUT,0&X2,A Q 8 2487 B 41Z 0!0 A 54 377 3 66 EFOUT BFLTW MLC,@0|0@,FLTWD MACRO 378 EFOUT MLC Q 1 2495 M GEN 54 379 DC @0|0@ Q 3 2498 GEN 54 380 DC @;0@ 11-6-8,0 Q 2 2500 GEN 55 381 DC 0 Q 1 2501 GEN 55 382 3 67 MCW Q 1 2502 M 55 383 3 68 SBR XL1 Q 4 2503 H 089 55 384 3 69 SW 0&X1 Q 4 2507 , 0|0 55 385 3 70 A WD, XL3 Q 7 2511 A 0!6 099 55 386 3 71 SBR FINS-1,2&X3 Q 7 2518 H A45 0?2 56 387 3 72 MLC @0.0@ Q 4 2525 M 27| 56 388 3 73 SW 2&X3 Q 4 2529 , 0?2 56 389 3 74 BCE EFTI,1&X1,0 Q 8 2533 B N49 0|1 0 56 390 3 75 BFLTW BWZ,FOVFL,FLTWD,-2,2 MACRO 391 BWZ Q 1 2541 V GEN 56 392 DC FOVFL Q 3 2544 O74 GEN 56 393 DC @;0@ 11-6-8,0 Q 2 2546 GEN 56 394 DC -2 Q 1 2547 GEN 56 395 DC 2 Q 1 2548 GEN 56 396 3 76 EFTI BCE *&12,0&X2,E Q 8 2549 B N68 0!0 E 56 397 3 77 BFLTW A,PCTR,FLTWD MACRO 398 A Q 1 2557 A GEN 57 399 DC PCTR Q 3 2560 L27 GEN 57 400 DC @;0@ 11-6-8,0 Q 2 2562 GEN 57 401 DC 0 Q 1 2563 GEN 57 402 3 78 B *&8 Q 4 2564 B N75 57 403 3 79 BFLTW S,PCTR,FLTWD MACRO 404 S Q 1 2568 S GEN 57 405 DC PCTR Q 3 2571 L27 GEN 57 406 DC @;0@ 11-6-8,0 Q 2 2573 GEN 57 407 DC 0 Q 1 2574 GEN 57 408 3 80 AFLTW MLNS,FLTWD,,ECON MACRO 409 MLNS Q 1 2575 D GEN 57 410 DC @;0@ 11-6-8,0 Q 2 2577 GEN 57 411 DC 0 Q 1 2578 GEN 57 412 DC ECON Q 3 2581 F54 GEN 57 413 3 81 MN Q 1 2582 D 57 414 3 82 AFLTW MLC,FLTWD MACRO 415 MLC Q 1 2583 M GEN 57 416 DC @;0@ 11-6-8,0 Q 2 2585 GEN 57 417 DC 0 Q 1 2586 GEN 57 418 3 83 BCE FTYP,0&X2,F Q 8 2587 B P04 0!0 F 57 419 3 84 C ECON,ZERO4-2 Q 7 2595 C F54 B68 58 420 3 85 BE *&9 Q 5 2602 B O15 S 58 421 3 86 BWZ *&8,ECON-2,K Q 8 2607 V O22 F52 K 58 422 3 87 MLZS NOZN,ECON-2 Q 7 2615 Y B66 F52 58 423 3 88 BFLTW ZA,PCTR,FLTWD MACRO 424 ZA Q 1 2622 ? GEN 58 1 OBJECT TIME FORMAT 5054C PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 425 DC PCTR Q 3 2625 L27 GEN 58 426 DC @;0@ 11-6-8,0 Q 2 2627 GEN 58 427 DC 0 Q 1 2628 GEN 58 428 3 89 UPX1 AFLTW MLNS,FLTWD,,*&8 MACRO 429 UPX1 MLNS Q 1 2629 D GEN 58 430 DC @;0@ 11-6-8,0 Q 2 2631 GEN 58 431 DC 0 Q 1 2632 GEN 58 432 DC *&8 Q 3 2635 O43 GEN 59 433 3 90 MN Q 1 2636 D 59 434 3 91 SBR X1, XXX&X1 Q 7 2637 H 089 0|0 59 435 3 92 ZA 837,POINT CHANGE IF ARITH REASSEMBLED Q 7 2644 ? 837 24X 59 436 3 93 S DOPRT,POINT Q 7 2651 S E09 24X 59 437 3 94 BFLTW C,POINT,FLTWD MACRO 438 C Q 1 2658 C GEN 60 439 DC POINT Q 3 2661 24X GEN 60 440 DC @;0@ 11-6-8,0 Q 2 2663 GEN 60 441 DC 0 Q 1 2664 GEN 60 442 3 95 BH INTEG Q 5 2665 B P28 U 60 443 3 96 B OK1 Q 4 2670 B P97 60 444 3 97 FOVFL MLC @ X @,2&X3 Q 7 2674 M 27T 0?2 60 445 3 98 MLC Q 1 2681 M 60 446 3 99 SBR X3,2&X3 Q 7 2682 H 099 0?2 60 447 4 00 SBR FINSI-1 Q 4 2689 H A53 60 448 4 01 A D, X3 Q 7 2693 A 0!9 099 61 449 4 02 B CWMKS Q 4 2700 B A38 61 450 4 03 FTYP BM NEGX,ECON-2 Q 8 2704 V P66 F52 K 61 451 4 04 C WD, ECON Q 7 2712 C 0!6 F54 61 452 4 05 BL UPX1 Q 5 2719 B O29 T 61 453 4 06 B FOVFL Q 4 2724 B O74 61 454 4 07 INTEG S 23 Q 4 2728 S 023 61 455 4 08 AFIXW MCM,FIXWD,&1,001 MACRO 456 MCM Q 1 2732 P GEN 62 457 DC @_0@ 11-7-8,0 Q 2 2734 GEN 62 458 DC &1 Q 1 2735 GEN 62 459 DC 001 Q 3 2738 GEN 62 460 4 09 MLC ZERO4 Q 4 2739 M B70 62 461 4 10 MZ Q 1 2743 Y 62 462 4 11 MLC ECON,X1 Q 7 2744 M F54 089 62 463 4 12 MLC ZERO4-3 Q 4 2751 M B67 62 464 4 13 MLC GMK,3&X1 Q 7 2755 M 28W 0|3 62 465 4 14 B OK1 Q 4 2762 B P97 62 466 4 15 NEGX MZ NOZN,0&X1 Q 7 2766 Y B66 0|0 63 467 4 16 C D,ECON Q 7 2773 C 0!9 F54 63 468 4 17 BU BRHI Q 5 2780 B P92 / 63 469 4 18 AFIXW C,FIXWD,&1,FIVE MACRO 470 C Q 1 2785 C GEN 63 471 DC @_0@ 11-7-8,0 Q 2 2787 GEN 63 472 DC &1 Q 1 2788 GEN 63 473 DC FIVE Q 3 2791 24Y GEN 63 474 4 19 BRHI BH MVDAT Q 5 2792 B Q65 U 63 1 OBJECT TIME FORMAT 5054C PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 475 4 20 OK1 AFLTW MLZS,FLTWD,-2,@0|0@ MACRO 476 OK1 MLZS Q 1 2797 Y GEN 63 477 DC @;0@ 11-6-8,0 Q 2 2799 GEN 63 478 DC -2 Q 1 2800 GEN 63 479 DC @0|0@ Q 3 2803 GEN 63 480 4 21 B MVDAT Q 4 2804 B Q65 64 481 4 22 CKOVF SBR OVFEX&3 Q 4 2808 H Q32 64 482 4 23 C TUMUCH,X3 Q 7 2812 C 25T 099 64 483 4 24 BL OVFEX Q 5 2819 B Q29 T 64 484 4 25 NOP 3700 Q 4 2824 N G00 64 485 4 26 H Q 1 2828 . 64 486 4 27 OVFEX B XXX Q 4 2829 B 000 64 487 4 28 INOTN BFIXW MLC,@0|0@,FIXWD MACRO 488 INOTN MLC Q 1 2833 M GEN 65 489 DC @0|0@ Q 3 2836 GEN 65 490 DC @_0@ 11-7-8,0 Q 2 2838 GEN 65 491 DC 0 Q 1 2839 GEN 65 492 4 29 A W, XL3 Q 7 2840 A 0!6 099 65 493 4 30 MCW W, XL1 Q 7 2847 M 0!6 089 65 494 4 31 AFIXW ZA,FIXWD,,@0|0@ MACRO 495 ZA Q 1 2854 ? GEN 65 496 DC @_0@ 11-7-8,0 Q 2 2856 GEN 65 497 DC 0 Q 1 2857 GEN 65 498 DC @0|0@ Q 3 2860 GEN 65 499 4 32 B SBRX3 Q 4 2861 B J37 65 500 4 33 MVDAT MCS 0&X1,0&X3 Q 7 2865 Z 0|0 0?0 65 501 4 34 SBR SAVE&6 Q 4 2872 H R58 66 502 4 35 MLNS 0&X1,0&X3 Q 7 2876 D 0|0 0?0 66 503 4 36 SBR MCS&3,0&X3 Q 7 2883 H A90 0?0 66 504 4 37 SBR FINSI-1 Q 4 2890 H A53 66 505 4 38 JOE4 SW XXX Q 4 2894 , 000 66 506 4 39 BWZ BACK,0&X1,K Q 8 2898 V R10 0|0 K 66 507 4 40 B SAVE Q 4 2906 B R52 66 508 4 41 BACK BCE EXIT,0&X3, BLANK Q 8 2910 B R34 0?0 67 509 4 42 SBR X3 Q 4 2918 H 099 67 510 4 43 BW SAVE,1&X3 NO ROOM FOR SIGN Q 8 2922 V R52 0?1 1 67 511 4 44 B BACK Q 4 2930 B R10 67 512 4 45 EXIT MLZS MINUS,0&X3 Q 7 2934 Y G89 0?0 67 513 4 46 SW 1&X3 Q 4 2941 , 0?1 67 514 4 47 SBR FINSI-1,1&X3 Q 7 2945 H A53 0?1 68 515 4 48 SAVE SBR X3,111 DUMMY ADDRESS Q 7 2952 H 099 111 68 516 4 49 BCE FINS,0&X2,I Q 8 2959 B A46 0!0 I 68 517 4 50 A D,X3 Q 7 2967 A 0!9 099 68 518 4 51 BCE JUMPF,0&X2,F Q 8 2974 B R93 0!0 F 68 519 4 52 MLNS 0&X3 Q 4 2982 D 0?0 69 520 4 53 MLNS Q 1 2986 D 69 521 4 54 MLNS Q 1 2987 D 69 522 4 55 MLNS Q 1 2988 D 69 523 4 56 SBR X3 Q 4 2989 H 099 69 524 4 57 JUMPF SBR OVR1&6,1&X3 Q 7 2993 H ?88 0?1 69 1 OBJECT TIME FORMAT 5054C PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 525 4 58 S 1&X3 Q 4 3000 S 0?1 69 526 4 59 MLNS Q 1 3004 D 70 527 4 60 SAR X3 Q 4 3005 Q 099 70 528 4 61 BCE MDIG,0&X2,E Q 8 3009 B ?44 0!0 E 70 529 4 62 BWZ MDIG,ECON-2,B Q 8 3017 V ?44 F52 B 70 530 4 63 C D,ECON Q 7 3025 C 0!9 F54 70 531 4 64 BH OVR1 Q 5 3032 B ?82 U 70 532 4 65 A ECON,X3 Q 7 3037 A F54 099 71 533 4 66 MDIG BCE OVR1,3&X1,} GMK Q 8 3044 B ?82 0|3 } GMARK 71 534 4 67 MLNS 1&X1,2&X3 Q 7 3052 D 0|1 0?2 71 535 4 68 SBR X1,1&X1 Q 7 3059 H 089 0|1 71 536 4 69 BWZ OVR1,2&X3,B Q 8 3066 V ?82 0?2 B 71 537 4 70 SBR X3 Q 4 3074 H 099 72 538 4 71 B MDIG Q 4 3078 B ?44 72 539 4 72 OVR1 SBR X3,XXX Q 7 3082 H 099 000 72 540 4 73 BAV *&1 Q 5 3089 B ?94 Z 72 541 4 74 A ECON-3,0&X3 Q 7 3094 A F51 0?0 72 542 4 75 MLC NOZN,0&X3 Q 7 3101 M B66 0?0 72 543 4 76 BCE CWMKS-5,0&X2,F Q 8 3108 B A33 0!0 F 73 544 4 77 SBR X3,4&X3 Q 7 3116 H 099 0?4 73 545 4 78 MLNS 0&X3 Q 4 3123 D 0?0 73 546 4 79 MCW ECON Q 4 3127 M F54 73 547 4 80 MZ Q 1 3131 Y 73 548 4 81 MCW Q 1 3132 M 73 549 4 82 BAV ARRAV Q 5 3133 B A66 Z 73 550 4 83 CWMKS AFIXW CW,FIXWD MACRO 551 CWMKS CW Q 1 3138 ) GEN 74 552 DC @_0@ 11-7-8,0 Q 2 3140 GEN 74 553 DC 0 Q 1 3141 GEN 74 554 4 84 CW XXX Q 4 3142 ) 000 74 555 4 85 FINS CW 000 Q 4 3146 ) 000 74 556 4 86 CW XXX Q 4 3150 ) 000 74 557 4 87 FINSI AFIXW SW,FIXWD,&1 MACRO 558 FINSI SW Q 1 3154 , GEN 74 559 DC @_0@ 11-7-8,0 Q 2 3156 GEN 74 560 DC &1 Q 1 3157 GEN 74 561 4 88 B CKOVF Q 4 3158 B Q08 74 562 4 89 B DCRPB Q 4 3162 B L96 74 563 4 90 ARRAV MLC FINS-1,X1 Q 7 3166 M A45 089 75 564 4 91 MLZS NOZN,0&X1 Q 7 3173 Y B66 0|0 75 565 4 92 MLC Q 1 3180 M 75 566 4 93 A Q 1 3181 A 75 567 4 94 BAV OVR9S Q 5 3182 B A95 Z 75 568 4 95 MCS MCS 0 Q 4 3187 Z 000 75 569 4 96 B CWMKS Q 4 3191 B A38 75 570 4 97 OVR9S MN 0&X1 Q 4 3195 D 0|0 76 571 4 98 C Q 1 3199 C 76 572 4 99 MN Q 1 3200 D 76 573 5 00 SBR X1 Q 4 3201 H 089 76 574 5 01 C FINS&3,X1 Q 7 3205 C A49 089 76 1 OBJECT TIME FORMAT 5054C PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 575 5 02 BL CLEAR Q 5 3212 B B44 T 76 576 5 03 SW 0&X1 Q 4 3217 , 0|0 76 577 5 04 MLC 1&X1,0&X1 Q 7 3221 M 0|1 0|0 77 578 5 05 CW Q 1 3228 ) 77 579 5 061 LCA @10@,2&X1 V3M4 Q 7 3229 L 27V 0|2 77 580 5 062 CW 1&X1 V3M4 Q 4 3236 ) 0|1 77 581 5 07 B CWMKS Q 4 3240 B A38 77 582 5 08 CLEAR MLC 1&X3,0&X3 Q 7 3244 M 0?1 0?0 77 583 5 09 MLC Q 1 3251 M 77 584 5 10 MLC Q 1 3252 M 78 585 5 11 MLC @ X @,3&X1 Q 7 3253 M 27T 0|3 78 586 5 12 B CWMKS Q 4 3260 B A38 78 587 5 13 DCW 1 Q 1 3264 78 588 5 14 DCW @.@ Q 1 3265 78 589 5 15 NOZN DCW @ @ Q 1 3266 78 590 5 16 ZERO4 DCW 0000 Q 4 3270 78 591 5 17 INI MLC X1,X3 Q 7 3271 M 089 099 79 592 5 18 MLZS ZAFLT,*&8 Q 7 3278 Y 07X B92 79 593 5 19 BFIXW MLNS,@0?0@,FIXWD,&1 MACRO 594 MLNS Q 1 3285 D GEN 79 595 DC @0?0@ Q 3 3288 GEN 79 596 DC @_0@ 11-7-8,0 Q 2 3290 GEN 79 597 DC &1 Q 1 3291 GEN 79 598 5 20 ZA Q 1 3292 ? 79 599 5 21 MLC URZRO&6,X1 Q 7 3293 M 16/ 089 79 600 5 22 AFIXW MLCWA,FIXWD,,@0|0@ MACRO 601 MLCWA Q 1 3300 L GEN 79 602 DC @_0@ 11-7-8,0 Q 2 3302 GEN 79 603 DC 0 Q 1 3303 GEN 79 604 DC @0|0@ Q 3 3306 GEN 79 605 5 23 B MRWM Q 4 3307 B 17| 80 606 5 24 HLTGO NOP 4002 Q 4 3311 N 00S 80 607 5 25 H Q 1 3315 . 80 608 5 26 RDITP SW INSW Q 4 3316 , 25| 80 609 5 27 RD2 CS 332 Q 4 3320 / 332 80 610 5 28 CS Q 1 3324 / 80 611 5 29 B TPCMND Q 4 3325 B C88 80 612 5 30 CMBCK BEF HLTGO Q 5 3329 B C11 K 81 613 5 31 BCE TPCMND,12&X3,} GM Q 8 3334 B C88 0A2 } GMARK 81 614 5 32 CHAIN 12 MACRO 615 BCE Q 1 3342 B GEN 81 616 BCE Q 1 3343 B GEN 81 617 BCE Q 1 3344 B GEN 81 618 BCE Q 1 3345 B GEN 81 619 BCE Q 1 3346 B GEN 81 620 BCE Q 1 3347 B GEN 82 621 BCE Q 1 3348 B GEN 82 622 BCE Q 1 3349 B GEN 82 623 BCE Q 1 3350 B GEN 82 624 BCE Q 1 3351 B GEN 82 1 OBJECT TIME FORMAT 5054C PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 625 BCE Q 1 3352 B GEN 82 626 BCE Q 1 3353 B GEN 82 627 5 33 B FMAIN Q 4 3354 B Z28 83 628 5 34 B RD2 Q 4 3358 B C20 83 629 5 35 WTM MLNS FMTZON,*&4 Q 7 3362 D J36 C72 83 630 5 36 WTM 0 Q 5 3369 U %U0 M 83 631 5 37 NOP 4003 Q 4 3374 N 00T 83 632 5 38 H Q 1 3378 . 83 633 5 39 WT2 CS 332 Q 4 3379 / 332 83 634 5 40 CS Q 1 3383 / 84 635 5 41 B FMAIN Q 4 3384 B Z28 84 636 5 42 TPCMND MLNS FMTZON,IO&3 Q 7 3388 D J36 D41 84 637 5 43 MLC @R@,IO&7 Q 7 3395 M 27W D45 84 638 5 44 ZA @R@,POINT Q 7 3402 ? 27W 24X 84 639 5 45 BW SVGMK,INSW Q 8 3409 V D31 25| 1 84 640 5 46 MLC @W@,IO&7 Q 7 3417 M 27X D45 85 641 5 47 A &41,POINT Q 7 3424 A 27Z 24X 85 642 5 48 SVGMK MLCWA GMK,333 Q 7 3431 L 28W 333 85 643 5 49 IO RT 0,0&X3 Q 8 3438 M %U0 0?0 R 85 644 5 50 MLCWA FORMAT,333 Q 7 3446 L W97 333 85 645 5 51 BER TPERR Q 5 3453 B E95 L 86 646 5 52 BCE CMBCK,IO&7,R Q 8 3458 B C29 D45 R 86 647 5 53 BEF WTM Q 5 3466 B C62 K 86 648 5 54 B WT2 Q 4 3471 B C79 86 649 5 55 PRINT CS 333 Q 4 3475 / 333 86 650 5 56 CS Q 1 3479 / 86 651 5 57 B FMAIN Q 4 3480 B Z28 86 652 5 58 PRZRO BCE DOPRT,200, BLANK Q 8 3484 B E09 200 87 653 5 59 BCE SPACE, 200, 0 Q 8 3492 B E24 200 0 87 654 5 60 MN 200, *&2 Q 7 3500 D 200 E08 87 655 5 61 CC 0 Q 2 3507 F 0 87 656 5 62 DOPRT W Q 1 3509 2 87 657 5 63 BCV *&5 Q 5 3510 B E19 @ 87 658 5 64 B PRINT Q 4 3515 B D75 87 659 5 65 CCB PRINT,1 Q 5 3519 F D75 1 88 660 5 66 SPACE CCB DOPRT,J Q 5 3524 F E09 J 88 661 5 67 PUNCH MLC @281@,TUMUCH Q 7 3529 M 28S 25T 88 662 5 68 CS FMAIN,285 Q 7 3536 / Z28 285 88 663 5 69 SW 200 Q 4 3543 , 200 88 664 5 70 LCA 279,180 Q 7 3547 L 279 180 88 665 5 71 P Q 1 3554 4 88 666 5 72 SSB PUNCH,4 Q 5 3555 K E29 4 89 667 5 73 READC CS 80 Q 4 3560 / 080 89 668 5 74 MLC @281@,TUMUCH Q 7 3564 M 28S 25T 89 669 5 75 SW 1, INSW Q 7 3571 , 001 25| 89 670 5 76 ONE R Q 1 3578 1 89 671 5 77 LCA 80,279 Q 7 3579 L 080 279 89 672 5 78 SSB FMAIN,1 Q 5 3586 K Z28 1 89 673 5 79 B READC Q 4 3591 B E60 90 674 5 80 TPERR MLNS FMTZON,BSPTP&3 Q 7 3595 D J36 F12 90 1 OBJECT TIME FORMAT 5054C PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 675 5 81 MLNS FMTZON,SKP&3 Q 7 3602 D J36 F25 90 676 5 82 BSPTP BSP 0 Q 5 3609 U %U0 B 90 677 5 83 BCE *&6,IO&7,R Q 8 3614 B F27 D45 R 90 678 5 84 SKP SKP 0 Q 5 3622 U %U0 E 90 679 5 85 S ONE,POINT Q 7 3627 S E78 24X 91 680 5 86 BWZ SVGMK,POINT,B Q 8 3634 V D31 24X B 91 681 5 87 NOP 1111 Q 4 3642 N /11 91 682 5 88 H Q 1 3646 . 91 683 5 89 B TPCMND Q 4 3647 B C88 91 684 5 90 DCW @E@ Q 1 3651 91 685 5 91 DCW @ @ Q 1 3652 91 686 5 92 ECON DCW 00 Q 2 3654 92 687 5 93 INEFI SW 0&X3 Q 4 3655 , 0?0 92 688 5 94 MLC X1,URZRO&6 Q 7 3659 M 089 16/ 92 689 5 95 MLC X3,X1 Q 7 3666 M 099 089 92 690 5 96 A WD,X1 Q 7 3673 A 0!6 089 92 691 5 97 BCE OUTQ,0&X2,I Q 8 3680 B G03 0!0 I 92 692 5 98 BCE OUTQA,0&X2,A Q 8 3688 B 39| 0!0 A 93 693 5 99 A D,X1 Q 7 3696 A 0!9 089 93 694 6 00 OUTQ SW 0&X1 Q 4 3703 , 0|0 93 695 6 01 SBR MRWM&3,0&X1 Q 7 3707 H 17T 0|0 93 696 6 02 AFLTW S,FLTWD MACRO 697 S Q 1 3714 S GEN 93 698 DC @;0@ 11-6-8,0 Q 2 3716 GEN 93 699 DC 0 Q 1 3717 GEN 93 700 6 03 S Q 1 3718 S 93 701 6 031 BFLTW MLZS,NOZN,FLTWD,-2 V3M4 MACRO 702 MLZS Q 1 3719 Y GEN 93 703 DC NOZN Q 3 3722 B66 GEN 93 704 DC @;0@ 11-6-8,0 Q 2 3724 GEN 93 705 DC -2 Q 1 3725 GEN 93 706 6 032 SCNBL MLZS PLUS4,ZAFLT V3M4 Q 7 3726 Y G97 07X 94 707 6 044 BCE BLANK, 0&X3, BLANK V3M4 Q 8 3733 B G73 0?0 94 708 6 054 BCE MINUS,0&X3,- V3M4 Q 8 3741 B G89 0?0 - 94 709 6 064 BCE MINUS,0&X3,@ 4-8 V3M4 Q 8 3749 B G89 0?0 @ 94 710 6 08 ZS ZAFLT V3M4 Q 4 3757 ! 07X 94 711 6 09 BCE KILL,0&X3,& Q 8 3761 B G93 0?0 & 95 712 6 10 B MV2WK Q 4 3769 B H01 95 713 6 11 BLANK BW URZRO-8,1&X3 Q 8 3773 V 14X 0?1 1 95 714 6 12 B SBRX3 Q 4 3781 B J37 95 715 6 13 B SCNBL Q 4 3785 B G26 95 716 6 131 MINUS ZS ZAFLT V3M4 Q 4 3789 ! 07X 95 717 6 14 KILL SW 1&X3 Q 4 3793 , 0?1 95 718 6 154 PLUS4 B SBRX3 V3M4 Q 4 3797 B J37 96 719 6 16 MV2WK BCE INI, 0&X2, I Q 8 3801 B B71 0!0 I 96 720 6 17 BFIXW SBR,089,FIXWD,-1 MACRO 721 SBR Q 1 3809 H GEN 96 722 DC 089 Q 3 3812 GEN 96 723 DC @_0@ 11-7-8,0 Q 2 3814 GEN 96 724 DC -1 Q 1 3815 GEN 96 1 OBJECT TIME FORMAT 5054C PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 725 6 18 BFLTW MLZS,NOZN,FLTWD,-2 MACRO 726 MLZS Q 1 3816 Y GEN 96 727 DC NOZN Q 3 3819 B66 GEN 96 728 DC @;0@ 11-6-8,0 Q 2 3821 GEN 96 729 DC -2 Q 1 3822 GEN 96 730 6 19 CW SIGSW#1,SWB#1 Q 7 3823 ) 28T 28U 96 731 6 20 CW SWA#1 Q 4 3830 ) 28V 96 732 6 21 S XPN Q 4 3834 S 23Y 97 733 6 22 BCE ABEGN,0&X2,A Q 8 3838 B 28| 0!0 A 97 734 6 23 B LEWP2 Q 4 3846 B H96 97 735 6 24 PYNT1 SBR POINT,0&X3 Q 7 3850 H 24X 0?0 97 736 6 25 SW SWA Q 4 3857 , 28V 97 737 6 26 BW LEWP, SIGSW Q. DATA NOT FRACTIONAL Q 8 3861 V H76 28T 1 97 738 6 27 SBR POINT, 1&X3 Q 7 3869 H 24X 0?1 98 739 6 28 LEWP BW OVR,1&X3 Q 8 3876 V 06S 0?1 1 98 740 6 29 BCE OVR,1&X3, BLANK Q 8 3884 B 06S 0?1 98 741 6 30 B SBRX3 Q 4 3892 B J37 98 742 6 31 LEWP2 BCE PYNT1,0&X3,. Q 8 3896 B H50 0?0 . 98 743 6 32 C 0&X3,ZERO4-3 Q 7 3904 C 0?0 B67 99 744 6 33 BL MVDIG Q 5 3911 B 17Y T 99 745 6 34 BH QFTYP Q 5 3916 B I33 U 99 746 6 35 BW MVDIG, SIGSW Q. SIGNIFICANT ZERO Q 8 3921 V 17Y 28T 1 99 747 6 36 B LEWP Q 4 3929 B H76 99 748 6 37 QFTYP BCE FHLT,0&X2,F Q 8 3933 B I86 0!0 F 99 749 6 38 SBR END,4&X3 Q 7 3941 H 24/ 0?4 100 750 6 39 MLZS PLUS,ZAEXP Q 7 3948 Y I91 05/ 100 751 6 40 BCE PROCE, 0&X3, E Q 8 3955 B I95 0?0 E 100 752 6 41 ZOND MZ 0&X3, ZAEXP Q 7 3963 Y 0?0 05/ 100 753 6 42 FBCEQ GRAB, 0&X3, &,- MACRO 754 BCE GRAB, 0&X3, & Q 8 3970 B 02X 0?0 & GEN 100 755 BCE GRAB, 0&X3, - Q 8 3978 B 02X 0?0 - GEN 101 756 6 43 FHLT NOP 1121 ERROR HALT DATA IS WRONG Q 4 3986 N /21 101 757 6 44 H MODE Q 1 3990 . 101 758 6 45 PLUS B FHLT Q 4 3991 B I86 101 759 6 46 PROCE BWZ HERE,1&X3,2 Q 8 3995 V 01/ 0?1 2 101 760 6 47 B SBRX3 Q 4 4003 B J37 101 761 6 48 B ZOND Q 4 4007 B I63 101 762 6 49 HERE BCE *&5,1&X3, BLANK Q 8 4011 B 02T 0?1 102 763 6 50 B *&5 Q 4 4019 B 02X 102 764 6 51 B SBRX3 Q 4 4023 B J37 102 765 6 52 GRAB SW 1&X3 Q 4 4027 , 0?1 102 766 6 53 MV2WM BW ZAEXP, 2&X3 Q 8 4031 V 05/ 0?2 1 102 767 6 54 BCE ZAEXP,2&X3, BLANK Q 8 4039 B 05/ 0?2 102 768 6 55 SBR X3 Q 4 4047 H 099 103 769 6 56 ZAEXP ZA 1&X3, XPN Q 7 4051 ? 0?1 23Y 103 770 6 57 B ZAFLT Q 4 4058 B 07X 103 771 6 58 OVR BCE FHLT, 0&X2, E Q 8 4062 B I86 0!0 E 103 772 6 59 SBR END, 1&X3 Q 7 4070 H 24/ 0?1 103 773 6 60 ZAFLT AFLTW ZA,FLTWD,-2 MACRO 774 ZAFLT ZA Q 1 4077 ? GEN 103 1 OBJECT TIME FORMAT 5054C PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 775 DC @;0@ 11-6-8,0 Q 2 4079 GEN 103 776 DC -2 Q 1 4080 GEN 103 777 6 61 BW *&5, SIGSW Q 8 4081 V 09T 28T 1 104 778 6 62 B URZRO Q 4 4089 B 15V 104 779 6 63 BW NOSWT, SWA A. ACTUAL DECIMAL PT. IN DATA Q 8 4093 V 11V 28V 1 104 780 6 64 S D, END Q 7 4101 S 0!9 24/ 104 781 6 65 ZA END, POINT Q 7 4108 ? 24/ 24X 104 782 6 66 NOSWT S POINT, MSD Q 7 4115 S 24X 24U 105 783 6 67 A PCTR,XPN Q 7 4122 A L27 23Y 105 784 6 68 ZS MSD Q 4 4129 ! 24U 105 785 6 69 A MSD,XPN Q 7 4133 A 24U 23Y 105 786 6 70 BFLTW ZA,XPN,FLTWD MACRO 787 ZA Q 1 4140 ? GEN 105 788 DC XPN Q 3 4143 23Y GEN 105 789 DC @;0@ 11-6-8,0 Q 2 4145 GEN 105 790 DC 0 Q 1 4146 GEN 105 791 6 71 BCE INI,0&X2,I Q 8 4147 B B71 0!0 I 106 792 6 72 URZRO AFLTW MLC,FLTWD,,XXX MACRO 793 URZRO MLC Q 1 4155 M GEN 106 794 DC @;0@ 11-6-8,0 Q 2 4157 GEN 106 795 DC 0 Q 1 4158 GEN 106 796 DC XXX Q 3 4161 000 GEN 106 797 6 73 LCA Q 1 4162 L 106 798 6 74 MLC MRWM&3,X3 Q 7 4163 M 17T 099 106 799 6 75 MRWM CW XXX Q 4 4170 ) 000 106 800 6 76 B FINSI Q 4 4174 B A54 106 801 6 77 MVDIG BW *&12, SIGSW Q 8 4178 V 19X 28T 1 106 802 6 78 SBR MSD, 0&X3 Q 7 4186 H 24U 0?0 107 803 6 79 SW SIGSW Q 4 4193 , 28T 107 804 6 80 BW LEWP, SWB Q 8 4197 V H76 28U 1 107 805 6 81 MN 0&X3, 2&X1 Q 7 4205 D 0?0 0|2 107 806 6 82 SBR X1 Q 4 4212 H 089 107 807 6 83 SW SWB Q 4 4216 , 28U 107 808 6 84 BCE LEWP,4&X1,} GMK Q 8 4220 B H76 0|4 } GMARK 108 809 6 85 CW SWB Q 4 4228 ) 28U 108 810 6 86 B LEWP Q 4 4232 B H76 108 811 6 87 XPN DCW #3 Q 3 4238 108 812 6 88 END DCW #3 Q 3 4241 108 813 6 89 MSD DCW #3 Q 3 4244 108 814 6 90 POINT DCW #3 Q 3 4247 108 815 6 91 FIVE DCW @5@ Q 1 4248 109 816 6 92 LKHED DC #1 Q 1 4249 109 817 6 93 LTORG * Q 4250 INSW Q DCW #01 Q 1 4250 AREA 109 TUMUCH DCW #03 Q 3 4253 AREA 109 BUCKTQ DCW #03 Q 3 4256 AREA 109 GMKHDQ DCW #01 Q 1 4257 AREA 109 GMKSWQ DCW #01 Q 1 4258 AREA 109 RTPA Q DCW #03 Q 3 4261 AREA 109 SAVE1Q DCW #03 Q 3 4264 AREA 110 1 OBJECT TIME FORMAT 5054C PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD RPTB Q DCW #03 Q 3 4267 AREA 110 DCW @0.0@ Q 3 4270 LIT 110 DCW @ X @ Q 3 4273 LIT 110 DCW @10@ Q 2 4275 LIT 110 DCW @R@ Q 1 4276 LIT 110 DCW @W@ Q 1 4277 LIT 110 DCW &41 Q 2 4279 LIT 111 DCW @281@ Q 3 4282 LIT 111 SIGSWQ DCW #01 Q 1 4283 AREA 111 SWB Q DCW #01 Q 1 4284 AREA 111 SWA Q DCW #01 Q 1 4285 AREA 111 818 5 94 GMK DCW @}@ GROUP MARK Q 1 4286 GMARK 111 819 6 95 W EQU 6&X2 Q 0006 X 820 6 96 WD EQU 6&X2 Q 0006 X 821 6 97 D EQU 9&X2 Q 0009 X 822 6 98 XXX EQU 0 Q 0000 823 6 99 XL1 EQU 089 Q 0089 824 7 00 XL2 EQU 094 Q 0094 825 7 01 XL3 EQU 099 Q 0099 826 7 02 OBLIST EQU 912 Q 0912 827 7 03 CEXIT EQU 988 Q 0988 828 7 04 XFR CWFIO Q B 982 112 1 A FORMAT 5054D PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 829 7 05 JOB A FORMAT 830 7 06 ORG 4280 Q 4280 831 7 07 ABEGN BW *&12,SIGSW Q 8 4280 V 29Z 28T 1 115 832 7 08 SBR MSD,0&X3 Q 7 4288 H 24U 0?0 115 833 7 09 SW SIGSW Q 4 4295 , 28T 115 834 7 10 BW LEWPA,SWB Q 8 4299 V 34/ 28U 1 115 835 7 11 MN 0&X3,2&X1 Q 7 4307 D 0?0 0|2 115 836 7 12 MZ 0&X3,2&X1 Q 7 4314 Y 0?0 0|2 116 837 7 13 SBR X1 Q 4 4321 H 089 116 838 7 14 SW SWB Q 4 4325 , 28U 116 839 7 15 BCE LEWPA,4&X1,} GROUP MARK Q 8 4329 B 34/ 0|4 } GMARK 116 840 7 16 CW SWB Q 4 4337 ) 28U 116 841 7 17 LEWPA BW OVRA,1&X3 Q 8 4341 V 35X 0?1 1 116 842 7 18 B SBRX3 Q 4 4349 B J37 116 843 7 19 B ABEGN Q 4 4353 B 28| 117 844 7 20 OVRA SBR END,1&X3 Q 7 4357 H 24/ 0?1 117 845 7 21 MCW URZRO&6,NEXTA&6 Q 7 4364 M 16/ 37X 117 846 7 22 NEXTA MCW 0,0 Q 7 4371 M 000 000 117 847 7 23 LCA Q 1 4378 L 117 848 7 24 MLC MRWM&3,X3 Q 7 4379 M 17T 099 117 849 7 25 B FINSI Q 4 4386 B A54 117 850 7 26 OUTQA BFLTW MCW,BLK3,FLTWD MACRO 851 OUTQA MCW Q 1 4390 M GEN 118 852 DC BLK3 Q 3 4393 57X GEN 118 853 DC @;0@ 11-6-8,0 Q 2 4395 GEN 118 854 DC 0 Q 1 4396 GEN 118 855 7 27 BFLTW MCW,BLK20,FLTWD,-2 MACRO 856 MCW Q 1 4397 M GEN 118 857 DC BLK20 Q 3 4400 59X GEN 118 858 DC @;0@ 11-6-8,0 Q 2 4402 GEN 118 859 DC -2 Q 1 4403 GEN 118 860 7 28 SW 0&X1 Q 4 4404 , 0|0 118 861 7 29 SBR MRWM&3,0&X1 Q 7 4408 H 17T 0|0 118 862 7 30 B MV2WK Q 4 4415 B H01 118 863 7 31 AOUT MCW EFOUT&6,NEXA&6 Q 7 4419 M N01 43S 118 864 7 32 NEXA MCW 0,0 Q 7 4426 M 000 000 119 865 7 33 MCW Q 1 4433 M 119 866 7 34 SBR X1 Q 4 4434 H 089 119 867 7 35 SBR TEMPX1#3,1&X1 Q 7 4438 H 60T 0|1 119 868 7 36 SBR TEMPX3#3,0&X3 Q 7 4445 H 60W 0?0 119 869 7 37 MA 6&X2,TEMPX3 Q 7 4452 # 0!6 60W 119 870 7 38 SBR TEMP32,1&X3 Q 7 4459 H 60| 0?1 120 871 7 39 MCW NEXA&6,TFLTWD#3 Q 7 4466 M 43S 60Z 120 872 7 40 MA @I9H@,TFLTWD Q 7 4473 # 61S 60Z 120 873 7 41 MOVNUM MN 1&X1,2&X3 Q 7 4480 D 0|1 0?2 120 874 7 42 MZ 1&X1,2&X3 Q 7 4487 Y 0|1 0?2 120 875 7 43 C TEMP32,TEMPX3 Q 7 4494 C 60| 60W 121 876 7 44 BE FINI1 Q 5 4501 B 55| S 121 877 7 45 C TEMPX1,TFLTWD Q 7 4506 C 60T 60Z 121 878 7 46 BE FINI1 Q 5 4513 B 55| S 121 1 A FORMAT 5054D PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 879 7 47 MA @001@,TEMPX1 Q 7 4518 # 61V 60T 121 880 7 48 MA @001@,TEMP32 Q 7 4525 # 61V 60| 121 881 7 49 SBR X1,1&X1 Q 7 4532 H 089 0|1 122 882 7 50 SBR X3,1&X3 Q 7 4539 H 099 0?1 122 883 7 51 B MOVNUM Q 4 4546 B 48| 122 884 7 52 FINI1 SBR FINS&7,0&X3 Q 7 4550 H A53 0?0 122 885 7 53 MCW TEMPX3,X3 Q 7 4557 M 60W 099 122 886 7 54 SBR X3,2&X3 Q 7 4564 H 099 0?2 122 887 7 55 B FINS Q 4 4571 B A46 123 888 7 56 BLK3 DCW #3 Q 3 4577 123 889 7 57 BLK20 DCW #20 Q 20 4597 123 890 7 58 TEMP32 DCW @ @ Q 3 4600 123 891 7 59 LTORG * Q 4601 TEMPX1 DCW #03 Q 3 4603 AREA 123 TEMPX3 DCW #03 Q 3 4606 AREA 123 TFLTWD DCW #03 Q 3 4609 AREA 123 DCW @I9H@ Q 3 4612 LIT 124 DCW @001@ Q 3 4615 LIT 124 892 7 60 GM54D DCW @}@ GROUP MARK Q 1 4616 GMARK 124 893 7 61 XFR CWAF Q B |51 125 894 7 62 * 895 7 63 ** PLACE PRECEDING CARDS BETWEEN PHASES 53 AND 55 896 7 64 * 897 7 65 END Q / 000 080 1 PAGE 20 0SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS ABEGNQ 4280 ADDR Q 2015 ALRDYQ 2031 AOUT Q 4419 ARRAVQ 3166 ARRTNQ 2109 ATESTQ 1005 BACK Q 2910 BBACKQ 1234 BLANKQ 3773 BLK20Q 4597 BLK3 Q 4577 BRHI Q 2792 BSPTPQ 3609 BUCKTQ 4256 CDAF Q 1047 CDLIOQ 1026 CDSYSQ 949 CEXITQ 988 CKOVFQ 2808 CLEARQ 3244 CLSPRQ 2185 CMBCKQ 3329 COUNTQ 2017 CWAF Q 1051 CWFIOQ 982 CWLIOQ 1030 CWMKSQ 3138 D Q 9+X2 DCRPBQ 2396 DECRAQ 2189 DOPRTQ 3509 ECON Q 3654 EFNTNQ 2439 EFOUTQ 2495 EFTI Q 2549 EJBOXQ 2271 ELL Q 2079 END Q 4241 EOJ1 Q 2223 EXIT Q 2934 EXITAQ 1141 FHLT Q 3986 FINI1Q 4550 FINS Q 3146 FINSIQ 3154 FIVE Q 4248 FMAINQ 1928 FMTXTQ 2132 FMTZON 2136 FOMATQ 934 FORMAT 1697 FOVFLQ 2674 FTYP Q 2704 FULIOQ 1088 GETADQ 1943 GETW Q 2385 GM54DQ 4616 GMK Q 4286 GMKHDQ 4257 GMKSWQ 4258 GMWM Q 1253 GPWDMK 2022 GRAB Q 4027 GTRTNQ 2431 GTXT Q 2003 HERE Q 4011 HLOUTQ 2340 HLTGOQ 3311 HOLINQ 2347 HOLLRQ 2328 INEFIQ 3655 INI Q 3271 INOTNQ 2833 INSW Q 4250 INTEGQ 2728 IO Q 3438 IO1 Q 1745 IO12 Q 1752 IO15 Q 1774 IO2 Q 1799 IO3 Q 1813 IO4 Q 1848 IO5 Q 1868 JOE4 Q 2894 JUMPFQ 2993 KILL Q 3793 LAST1Q 2204 LEWP Q 3876 LEWP2Q 3896 LEWPAQ 4341 LIST Q 1962 LKHEDQ 4249 LOC Q 2006 LOOP2Q 1832 MCS Q 3187 MDIG Q 3044 MINUSQ 3789 MLBOXQ 1968 MONTER 700 MONTOR 769 MOVNUM 4480 MRWM Q 4170 MSD Q 4244 MV2WKQ 3801 MV2WMQ 4031 MVAGNQ 1855 MVDATQ 2865 MVDIGQ 4178 NDLINQ 2208 NEGX Q 2766 NEXA Q 4426 NEXTAQ 4371 NOPBRQ 2298 NOPSWQ 2243 NOSWTQ 4115 NOZN Q 3266 NTESTQ 970 NTRAYQ 2046 OBLIST 912 OK1 Q 2797 ONE Q 3578 OPNPRQ 2152 OUT Q 1897 OUTPTQ 2219 OUTQ Q 3703 OUTQAQ 4390 OVFEXQ 2829 OVR Q 4062 OVR1 Q 3082 OVR9SQ 3195 OVRA Q 4357 PARAMA 686 PCTR Q 2327 PLUS Q 3991 PLUS4Q 3797 POINTQ 4247 PRINTQ 3475 PROCEQ 3995 PRZROQ 3484 PUNCHQ 3529 PYNT1Q 3850 QFTYPQ 3933 RD2 Q 3320 RDITPQ 3316 RDRTBQ 1916 RDRTNQ 1912 RDTAPQ 1738 READCQ 3560 REPEAT 2306 RET Q 1902 RMVZNQ 1973 RPTB Q 4267 RTPA Q 4261 RWT31Q 1928 RWT41Q 1967 RWT77Q 1983 RWT78Q 1990 SAVCHQ 2016 SAVE Q 2952 SAVE1Q 4264 SAVE2Q 1996 SAVX3Q 1999 SBRX3Q 2137 SCALEQ 2310 SCNBLQ 3726 SIGSWQ 4283 SKAIOQ 1013 SKFIOQ 1034 SKLIOQ 957 SKP Q 3622 SKPAFQ 1128 SKPF Q 1177 SKPL Q 1067 SPACEQ 3524 STARTQ 1697 STARTR 934 SVGMKQ 3431 SWA Q 4285 SWB Q 4284 TCLEAR 710 TEMP32 4600 TEMPX1 4603 TEMPX3 4606 TESTHQ 2332 TFLTWD 4609 TPAF Q 1194 TPCMND 3388 TPER Q 1211 TPERRQ 3595 TPLIOQ 1164 TPSYSQ 1059 TSTAFQ 1120 TUMUCH 4253 UNDUNQ 2007 UPX1 Q 2629 URZROQ 4155 W Q 6+X2 WD Q 6+X2 WRTAPQ 1917 WT2 Q 3379 WTM Q 3362 X1 Q 89 X2 Q 94 X3 Q 99 XL1 Q 89 XL2 Q 94 XL3 Q 99 XPN Q 4238 XXX Q 0 ZAEXPQ 4051 ZAFLTQ 4077 ZERO4Q 3270 ZOND Q 3963