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 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 ) 26Z 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 ) !15 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 Q 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 Q 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 , !15 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 Z92 18 177 1 73 LCA @001@,X3 Q 7 1716 L Z95 099 18 178 1 74 BWZ WRTAP,0&X1,S GO TO WRITE TAPE ON ZONE. Q 8 1723 V Z10 0|0 S 18 179 1 75 MCW @R@,IO4&7 SET READ TAPE D MODIFIER Q 7 1731 M Z96 Y55 19 180 1 76 RDTAP MCW 6&X1,LOC#3 Q 7 1738 M 0|6 Z99 19 181 1 77 IO1 MCW LOC,IO12&6 Q 7 1745 M Z99 X58 19 182 1 78 IO12 BCE RET,000,. . IS END OF LIST, RETURN Q 8 1752 B Y95 000 . 19 183 1 79 MA @006@,LOC Q 7 1760 # !02 Z99 19 184 1 80 MCW LOC,IO15&3 Q 7 1767 M Z99 X77 20 185 1 81 IO15 MCW 000,ADDR#6 ADDR IS LOC OF DATA ADDR Q 7 1774 M 000 !08 20 186 1 82 SW ADDR-2 Q 4 1781 , !06 20 187 1 83 MA @001@,ADDR ADDR IS NOW LOC OF DATA ADDR &1 Q 7 1785 # Z95 !08 20 188 1 84 MCW ADDR,IO2&3 Q 7 1792 M !08 Y02 20 189 1 85 IO2 MCW 000,SAVCH#1 SAVE CHAR AFTER DATA AREA Q 7 1799 M 000 !09 20 190 1 86 MCW ADDR,IO3&6 Q 7 1806 M !08 Y19 21 191 1 87 IO3 LCA GPWDMK,000 MOVE GP MK WD MK TO DATA ADDR &1 Q 7 1813 L !15 000 21 192 1 88 MCW ADDR-3,IO4&6 MOVE FIRST CHAR ADDR OF DATA Q 7 1820 M !05 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 !10 !10 21 195 1 91 MZ @A@,IO4&5 Q 7 1841 Y !11 Y53 22 196 1 92 IO4 RTW 1,000 Q 8 1848 L %U1 000 R 22 197 1 93 BEF RWT78 Q 5 1856 B Z83 K 22 198 1 94 BER RWT31 Q 5 1861 B Z21 L 22 199 1 95 MCW ADDR,IO5&6 Q 7 1866 M !08 Y79 22 200 1 96 IO5 MCW SAVCH,000 RETURN CHAR AFTER DATA AREA Q 7 1873 M !09 000 22 201 1 97 MA @001@,LOC STEP TO NEXT VARIABLE IN LIST Q 7 1880 # Z95 Z99 23 202 1 98 CW ADDR-2 Q 4 1887 ) !06 23 203 1 99 B IO1 Q 4 1891 B X45 23 204 2 00 RET MCW SAVX3,X3 RESTORE X3 Q 7 1895 M Z92 099 23 205 2 01 SW 0&X1 Q 4 1902 , 0|0 23 206 2 02 B 7&X1 Q 4 1906 B 0|7 23 207 2 03 WRTAP MCW @W@,IO4&7 SET WRITE TAPE D MODIFIER Q 7 1910 M !12 Y55 23 208 2 04 B RDTAP Q 4 1917 B X38 24 209 2 05 RWT31 BCE RWT77,COUNT,I TEST READ-ERROR COUNTER Q 8 1921 B Z76 !10 I 24 210 2 06 MN IO4&3,*&4 Q 7 1929 D Y51 Z39 24 211 2 07 UB %U0 BACKSPACE Q 5 1936 U %U0 B 24 212 2 08 BCE RWT41,IO4&7,W Q 8 1941 B Z60 Y55 W 24 213 2 09 A @1@,COUNT INCREASE READ-ERROR COUNTER Q 7 1949 A !13 !10 24 214 2 10 B IO4 Q 4 1956 B Y48 25 215 2 11 RWT41 MN IO4&3,*&4 Q 7 1960 D Y51 Z70 25 216 2 12 UE %U0 SKIP AND ERASE Q 5 1967 U %U0 E 25 217 2 13 B IO4 Q 4 1972 B Y48 25 218 2 14 RWT77 H *-6,777 TAPE-ERROR Q 7 1976 . Z76 777 25 219 2 15 RWT78 H *-6,888 END-OF-FILE Q 7 1983 . Z83 888 25 220 2 16 LTORG * Q 1990 1 OBJECT TIME FORMAT 5054B PAGE 4 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD SAVX3Q DCW #03 Q 3 1992 AREA 25 DCW @001@ Q 3 1995 LIT 26 DCW @R@ Q 1 1996 LIT 26 LOC Q DCW #03 Q 3 1999 AREA 26 DCW @006@ Q 3 2002 LIT 26 ADDR Q DCW #06 Q 6 2008 AREA 26 SAVCHQ DCW #01 Q 1 2009 AREA 26 COUNTQ DCW #01 Q 1 2010 AREA 26 DCW @A@ Q 1 2011 LIT 27 DCW @W@ Q 1 2012 LIT 27 DCW @1@ Q 1 2013 LIT 27 221 2 17 DCW @ @ Q 1 2014 27 222 2 18 GPWDMK DCW @}@ GROUP MARK Q 1 2015 GMARK 27 223 2 19 XFR CWLIO Q B |30 28 1 OBJECT TIME FORMAT 5054C PAGE 5 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 224 2 20 JOB OBJECT TIME FORMAT Q 225 2 21 ORG 1697 Q 1697 226 2 22 FORMAT SBR X1 Q 4 1697 H 089 31 227 2 23 MLC 0&X1,FMTZON SAVE I/O CODE Q 7 1701 M 0|0 J36 31 228 2 24 MLC *-6,IO Q 7 1708 M X08 D34 31 229 2 25 SBR FMTXT&3, 7&X1 STORE EXIT FROM FORMAT ROUTN Q 7 1715 H J35 0|7 31 230 2 26 MCW 6&X1,LIST&6 Q 7 1722 M 0|6 Z68 31 231 2 27 ZA *-6,PCTR SET SCALE FACTOR TO ZERO Q 7 1729 ? X29 L27 31 232 2 28 CW INSW#1 Q 4 1736 ) 23V 32 233 2 29 SW GMK Q 4 1740 , 26Z 32 234 2 30 MCW 3&X1, XL2 MV ADDR OF SPEC TO X2 Q 7 1744 M 0|3 094 32 235 2 31 SBR X3, 200 INITILZE WKAREA CTR TO LFT Q 7 1751 H 099 200 32 236 2 32 SBR TUMUCH#3,334 Q 7 1758 H 23Y 334 32 237 2 33 BCE READC, 0&X1, & READ CARD Q 8 1765 B E56 0|0 & 32 238 2 34 BCE PUNCH, 0&X1, - PUNCH CARD Q 8 1773 B E25 0|0 - 33 239 2 35 BCE PRINT, 0&X1, * PRINT LINE Q 8 1781 B D71 0|0 * 33 240 2 36 BWZ RDITP, 0&X1, K READ INPUT TAPE Q 8 1789 V C12 0|0 K 33 241 2 37 BWZ WT2,0&X1,B WRITE OUTPUT TAPE Q 8 1797 V C75 0|0 B 33 242 2 38 SBR X2,RDRTB SET RETRN FOR READ TAPE Q 7 1805 H 094 Z16 33 243 2 39 CS 332 CLEAR WRK AREA FOR READ TAPE Q 4 1812 / 332 34 244 2 40 CS AND WRITE TAPE Q 1 1816 / 34 245 2 41 CS Q 1 1817 / 34 246 2 42 SBR X3,100 SET WKAREA TO 100 Q 7 1818 H 099 100 34 247 2 43 MLC ELL,IO Q 7 1825 M !79 D34 34 248 2 44 LOOP2 SW 0&X3 Q 4 1832 , 0?0 34 249 2 45 B GETAD Q 4 1836 B Z43 34 250 2 46 BWZ RDITP,FMTZON,2 EXIT IF READ TAPE Q 8 1840 V C12 J36 2 35 251 2 47 SBR BUCKT,100 Q 7 1848 H 24/ 100 35 252 2 48 MVAGN MLC 0&X1,0&X3 Q 7 1855 M 0|0 0?0 35 253 2 49 SAR X2 Q 4 1862 Q 094 35 254 2 50 B SBRX3 Q 4 1866 B J37 35 255 2 51 BW *&5,1&X2 Q 8 1870 V Y82 0!1 1 35 256 2 52 B MVAGN Q 4 1878 B Y55 36 257 2 53 B CKOVF GO CK IF WE ARE PAST 332 Q 4 1882 B Q08 36 258 2 54 SBR OUTPT&3,TPCMND Q 7 1886 H K22 C84 36 259 2 55 B LOOP2 GO GET NXT ADDRS OF DATA Q 4 1893 B Y32 36 260 2 56 OUT B CKOVF GO CK IF WE ARE PAST 332 Q 4 1897 B Q08 36 261 2 57 MLCWA 0&X3,0&X1 MV DATA FRM WRKAREA TO STRGE Q 7 1901 L 0?0 0|0 36 262 2 58 B GETAD GO GET NXT ADDR OF DATA Q 4 1908 B Z43 36 263 2 59 RDRTN B SBRX3 Q 4 1912 B J37 37 264 2 60 RDRTB BW OUT,1&X3 Q 8 1916 V Y97 0?1 1 37 265 2 61 B RDRTN NO BRNCH TO STEP CTR Q 4 1924 B Z12 37 266 2 62 FMAIN SBR OUTPT&3 RETRN FROMM RD,PCH,PRT,RD-WT Q 4 1928 H K22 37 267 2 63 MLC X3,BUCKT#3 Q 7 1932 M 099 24/ 37 268 2 64 B 0&X2 GO PROCESS ACCRDNG TO FORMAT Q 4 1939 B 0!0 37 269 2 65 GETAD SBR GTXT&3 Q 4 1943 H !06 37 270 2 66 MLC X2,SAVE2&6 FREE X2 FOR LIST ROUTINE Q 7 1947 M 094 !02 38 271 2 67 BW ALRDY,LKHED Q 8 1954 V !31 23U 1 38 272 2 68 LIST T OBLIST Q 4 1962 T 912 38 273 2 69 MLBOX DCW #3 Q 3 1968 38 1 OBJECT TIME FORMAT 5054C PAGE 6 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 274 2 70 SBR X2 END OF OBLST, ARRAY ADRES Q 4 1969 H 094 38 275 2 71 RMVZN MZ NOZN,X1-1 Q 7 1973 Y B62 088 38 276 2 72 BCE NTRAY,X1,. ENTIRE ARRAY FOR WRITE TAPE Q 8 1980 B !46 089 . 39 277 2 73 BCE UNDUN,X1, BLANK Q 8 1988 B !07 089 39 278 2 74 SAVE2 SBR X2, XXX RESTORE X2 Q 7 1996 H 094 000 39 279 2 75 GTXT B XXX Q 4 2003 B 000 39 280 2 76 UNDUN BW FMTXT,INSW Q 8 2007 V J32 23V 1 39 281 2 77 C BUCKT,X3 Q 7 2015 C 24/ 099 40 282 2 78 BU NDLIN Q 5 2022 B K08 / 40 283 2 79 B FMTXT Q 4 2027 B J32 40 284 2 80 ALRDY CW LKHED Q 4 2031 ) 23U 40 285 2 81 MLC SAVE1,X1 Q 7 2035 M 24Z 089 40 286 2 82 B RMVZN Q 4 2042 B Z73 40 287 2 83 NTRAY MLC 2&X2,X3 MV LFT ADDR OF ARRAY-1 TO X3 Q 7 2046 M 0!2 099 40 288 2 84 MLC 5&X2,X1 MV RIGHT ADDR OF ARRAY TO X1 Q 7 2053 M 0!5 089 41 289 2 85 MLC 1&X1,GMKHD#1 SAVE CHAR AT RIGHTHAND ADDR Q 7 2060 M 0|1 24S 41 290 2 86 BW *&5,1&X1 PLUS ONE AND REPLACE BY GMK Q 8 2067 V !79 0|1 1 41 291 2 87 CW GMKSW#1 FOR READING OR WRITING FROM Q 4 2075 ) 24T 41 292 2 88 ELL MLCWA GMK,1&X1 Q 7 2079 L 26Z 0|1 41 293 2 89 B SBRX3 Q 4 2086 B J37 41 294 2 90 SBR X2,ARRTN SET RETURN FROM I/O ROUTINE Q 7 2090 H 094 J09 42 295 2 91 BWZ RDITP,FMTZON,2 GO READ TAP E ENTIRE ARRAY Q 8 2097 V C12 J36 2 42 296 2 92 B TPCMND Q 4 2105 B C84 42 297 2 93 ARRTN MLC GMKHD,1&X1 RETURN FROM READ OR WRITE TP Q 7 2109 M 24S 0|1 42 298 2 94 BW FMTXT,GMKSW ENTIRE ARRAY- RESET CHARACTR Q 8 2116 V J32 24T 1 42 299 2 95 CW 1&X1 WHEREGMK WAS INSERTED Q 4 2124 ) 0|1 42 300 2 96 SW GMKSW Q 4 2128 , 24T 43 301 2 97 FMTXT B XXX EGRESS Q 4 2132 B 000 43 302 2 98 FMTZON DCW @ @ Q 1 2136 43 303 2 99 SBRX3 SBR SBRX3&14 Q 4 2137 H J51 43 304 3 00 SBR X3,1&X3 Q 7 2141 H 099 0?1 43 305 3 01 B 0 Q 4 2148 B 000 43 306 3 02 OPNPR SBR X2 ENTRY FOR LFT PAREN IN FRMAT Q 4 2152 H 094 43 307 3 03 MN 0&X2 Q 4 2156 D 0!0 44 308 3 04 MN Q 1 2160 D 44 309 3 05 MN Q 1 2161 D 44 310 3 06 MN Q 1 2162 D 44 311 3 07 SAR REPEAT&3 Q 4 2163 Q L09 44 312 3 08 MCW 2&X2, RTPA#3 MV NMBR OF TIMES ROUTINE IS Q 7 2167 M 0!2 24W 44 313 3 09 SBR LAST1&3,3&X2 Q 7 2174 H K07 0!3 44 314 3 10 B DECRA TO BE EXECUTED TO HLD AREA Q 4 2181 B J89 45 315 3 11 CLSPR SBR X2 ENTRY FOR RIGHT PAREN FRM Q 4 2185 H 094 45 316 3 12 DECRA S ONE,RTPA Q 7 2189 S E74 24W 45 317 3 13 BM 0&X2, RTPA HAVE FINISHED THIS SET OF Q 8 2196 V 0!0 24W K 45 318 3 14 LAST1 B XXX Q 4 2204 B 000 45 319 3 15 NDLIN SBR X2 ENTRY FOR / IN FORMAT ROUTIN Q 4 2208 H 094 45 320 3 16 MLC BUCKT,X3 Q 7 2212 M 24/ 099 45 321 3 17 OUTPT B XXX Q 4 2219 B 000 46 322 3 18 EOJ1 BW NOPSW,INSW Q 8 2223 V K43 23V 1 46 323 3 19 C BUCKT,X3 Q 7 2231 C 24/ 099 46 1 OBJECT TIME FORMAT 5054C PAGE 7 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 324 3 20 BU NDLIN Q 5 2238 B K08 / 46 325 3 21 NOPSW MLC LIST&6,*&7 Q 7 2243 M Z68 K56 46 326 3 22 BCE NOPBR,0,, Q 8 2250 B K98 000 , 46 327 3 23 MLC LIST&6,*&7 Q 7 2258 M Z68 K71 47 328 3 24 T OBLIST Q 4 2265 T 912 47 329 3 25 EJBOX DCW #3 Q 3 2271 47 330 3 26 BCE FMTXT,X1, Q 8 2272 B J32 089 47 331 3 27 MLC EJBOX,MLBOX Q 7 2280 M K71 Z68 47 332 3 28 MLC X1,SAVE1#3 Q 7 2287 M 089 24Z 47 333 3 29 SW LKHED Q 4 2294 , 23U 48 334 3 30 NOPBR BW NDLIN,INSW GO GET NEW RCD IF INPUT Q 8 2298 V K08 23V 1 48 335 3 31 REPEAT B XXX Q 4 2306 B 000 48 336 3 32 SCALE SBR X2 Q 4 2310 H 094 48 337 3 33 ZA 2&X2,PCTR SAVE SCALING FACTOR Q 7 2314 ? 0!2 L27 48 338 3 34 B 3&X2 RETURN TO FORMAT SPEC Q 4 2321 B 0!3 48 339 3 35 PCTR DCW &000 Q 3 2327 48 340 3 36 HOLLR SBR X2 Q 4 2328 H 094 49 341 3 37 TESTH BW HOLIN,INSW Q 8 2332 V L47 23V 1 49 342 3 38 HLOUT MLC 0&X2,0&X3 Q 7 2340 M 0!0 0?0 49 343 3 39 HOLIN MLC 0&X3,0&X2 Q 7 2347 M 0?0 0!0 49 344 3 40 B SBRX3 Q 4 2354 B J37 49 345 3 41 SBR X2,1&X2 Q 7 2358 H 094 0!1 49 346 3 42 BW *&5,0&X2 Q 8 2365 V L77 0!0 1 50 347 3 43 B TESTH Q 4 2373 B L32 50 348 3 44 B CKOVF Q 4 2377 B Q08 50 349 3 45 B 0&X2 Q 4 2381 B 0!0 50 350 3 46 GETW SBR X2 Q 4 2385 H 094 50 351 3 47 MCW 3&X2, RPTB#3 Q 7 2389 M 0!3 25S 50 352 3 48 DCRPB S ONE,RPTB Q 7 2396 S E74 25S 50 353 3 49 BWZ GTRTN,RPTB,B Q 8 2403 V M31 25S B 51 354 3 50 BCE 7&X2,0&X2,I Q 8 2411 B 0!7 0!0 I 51 355 3 51 BCE 7&X2,0&X2,A Q 8 2419 B 0!7 0!0 A 51 356 3 52 B 10&X2 Q 4 2427 B 0J0 51 357 3 53 GTRTN B GETAD Q 4 2431 B Z43 51 358 3 54 AFIXW S,FIXWD Q MACRO 359 S Q 1 2435 S GEN 51 360 DC @_0@ 11-7-8,0 Q 2 2437 GEN 51 361 DC 0 Q 1 2438 GEN 51 362 3 55 EFNTN AFLTW SW,FLTWD,-1 Q MACRO 363 EFNTN SW Q 1 2439 , GEN 51 364 DC @;0@ 11-6-8,0 Q 2 2441 GEN 51 365 DC -1 Q 1 2442 GEN 52 366 3 56 BW INEFI, INSW Q 8 2443 V F51 23V 1 52 367 3 57 CS 24 Q 4 2451 / 024 52 368 3 58 SW 0&X3 Q 4 2455 , 0?0 52 369 3 59 MN Q 1 2459 D 52 370 3 60 SBR X3 Q 4 2460 H 099 53 371 3 61 SBR JOE4&3,2&X3 Q 7 2464 H Q97 0?2 53 372 3 62 SBR FINS&3 Q 4 2471 H A49 53 373 3 63 SW 001 Q 4 2475 , 001 53 1 OBJECT TIME FORMAT 5054C PAGE 8 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 374 3 64 BCE INOTN, 0&X2, I Q 8 2479 B Q33 0!0 I 53 375 3 65 BCE AOUT,0&X2,A Q 8 2487 B 41Z 0!0 A 53 376 3 66 EFOUT BFLTW MLC,@0|0@,FLTWD Q MACRO 377 EFOUT MLC Q 1 2495 M GEN 53 378 DC @0|0@ Q 3 2498 GEN 53 379 DC @;0@ 11-6-8,0 Q 2 2500 GEN 54 380 DC 0 Q 1 2501 GEN 54 381 3 67 MCW Q 1 2502 M 54 382 3 68 SBR XL1 Q 4 2503 H 089 54 383 3 69 SW 0&X1 Q 4 2507 , 0|0 54 384 3 70 A WD, XL3 Q 7 2511 A 0!6 099 54 385 3 71 SBR FINS-1,2&X3 Q 7 2518 H A45 0?2 55 386 3 72 MLC @0.0@ Q 4 2525 M 25V 55 387 3 73 SW 2&X3 Q 4 2529 , 0?2 55 388 3 74 BCE EFTI,1&X1,0 Q 8 2533 B N49 0|1 0 55 389 3 75 BFLTW BWZ,FOVFL,FLTWD,-2,2 Q MACRO 390 BWZ Q 1 2541 V GEN 55 391 DC FOVFL Q 3 2544 O74 GEN 55 392 DC @;0@ 11-6-8,0 Q 2 2546 GEN 55 393 DC -2 Q 1 2547 GEN 55 394 DC 2 Q 1 2548 GEN 55 395 3 76 EFTI BCE *&12,0&X2,E Q 8 2549 B N68 0!0 E 55 396 3 77 BFLTW A,PCTR,FLTWD Q MACRO 397 A Q 1 2557 A GEN 56 398 DC PCTR Q 3 2560 L27 GEN 56 399 DC @;0@ 11-6-8,0 Q 2 2562 GEN 56 400 DC 0 Q 1 2563 GEN 56 401 3 78 B *&8 Q 4 2564 B N75 56 402 3 79 BFLTW S,PCTR,FLTWD Q MACRO 403 S Q 1 2568 S GEN 56 404 DC PCTR Q 3 2571 L27 GEN 56 405 DC @;0@ 11-6-8,0 Q 2 2573 GEN 56 406 DC 0 Q 1 2574 GEN 56 407 3 80 AFLTW MLNS,FLTWD,,ECON Q MACRO 408 MLNS Q 1 2575 D GEN 56 409 DC @;0@ 11-6-8,0 Q 2 2577 GEN 56 410 DC 0 Q 1 2578 GEN 56 411 DC ECON Q 3 2581 F50 GEN 56 412 3 81 MN Q 1 2582 D 56 413 3 82 AFLTW MLC,FLTWD Q MACRO 414 MLC Q 1 2583 M GEN 56 415 DC @;0@ 11-6-8,0 Q 2 2585 GEN 56 416 DC 0 Q 1 2586 GEN 56 417 3 83 BCE FTYP,0&X2,F Q 8 2587 B P04 0!0 F 56 418 3 84 C ECON,ZERO4-2 Q 7 2595 C F50 B64 57 419 3 85 BE *&9 Q 5 2602 B O15 S 57 420 3 86 BWZ *&8,ECON-2,K Q 8 2607 V O22 F48 K 57 421 3 87 MLZS NOZN,ECON-2 Q 7 2615 Y B62 F48 57 422 3 88 BFLTW ZA,PCTR,FLTWD Q MACRO 423 ZA Q 1 2622 ? GEN 57 1 OBJECT TIME FORMAT 5054C PAGE 9 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 424 DC PCTR Q 3 2625 L27 GEN 57 425 DC @;0@ 11-6-8,0 Q 2 2627 GEN 57 426 DC 0 Q 1 2628 GEN 57 427 3 89 UPX1 AFLTW MLNS,FLTWD,,*&8 Q MACRO 428 UPX1 MLNS Q 1 2629 D GEN 57 429 DC @;0@ 11-6-8,0 Q 2 2631 GEN 57 430 DC 0 Q 1 2632 GEN 57 431 DC *&8 Q 3 2635 O43 GEN 58 432 3 90 MN Q 1 2636 D 58 433 3 91 SBR X1, XXX&X1 Q 7 2637 H 089 0|0 58 434 3 92 ZA 837,POINT CHANGE IF ARITH REASSEMBLED Q 7 2644 ? 837 23S 58 435 3 93 S DOPRT,POINT Q 7 2651 S E05 23S 58 436 3 94 BFLTW C,POINT,FLTWD Q MACRO 437 C Q 1 2658 C GEN 59 438 DC POINT Q 3 2661 23S GEN 59 439 DC @;0@ 11-6-8,0 Q 2 2663 GEN 59 440 DC 0 Q 1 2664 GEN 59 441 3 95 BH INTEG Q 5 2665 B P28 U 59 442 3 96 B OK1 Q 4 2670 B P97 59 443 3 97 FOVFL MLC @ X @,2&X3 Q 7 2674 M 25Y 0?2 59 444 3 98 MLC Q 1 2681 M 59 445 3 99 SBR X3,2&X3 Q 7 2682 H 099 0?2 59 446 4 00 SBR FINSI-1 Q 4 2689 H A53 59 447 4 01 A D, X3 Q 7 2693 A 0!9 099 60 448 4 02 B CWMKS Q 4 2700 B A38 60 449 4 03 FTYP BM NEGX,ECON-2 Q 8 2704 V P66 F48 K 60 450 4 04 C WD, ECON Q 7 2712 C 0!6 F50 60 451 4 05 BL UPX1 Q 5 2719 B O29 T 60 452 4 06 B FOVFL Q 4 2724 B O74 60 453 4 07 INTEG S 23 Q 4 2728 S 023 60 454 4 08 AFIXW MCM,FIXWD,&1,001 Q MACRO 455 MCM Q 1 2732 P GEN 61 456 DC @_0@ 11-7-8,0 Q 2 2734 GEN 61 457 DC &1 Q 1 2735 GEN 61 458 DC 001 Q 3 2738 GEN 61 459 4 09 MLC ZERO4 Q 4 2739 M B66 61 460 4 10 MZ Q 1 2743 Y 61 461 4 11 MLC ECON,X1 Q 7 2744 M F50 089 61 462 4 12 MLC ZERO4-3 Q 4 2751 M B63 61 463 4 13 MLC GMK,3&X1 Q 7 2755 M 26Z 0|3 61 464 4 14 B OK1 Q 4 2762 B P97 61 465 4 15 NEGX MZ NOZN,0&X1 Q 7 2766 Y B62 0|0 62 466 4 16 C D,ECON Q 7 2773 C 0!9 F50 62 467 4 17 BU BRHI Q 5 2780 B P92 / 62 468 4 18 AFIXW C,FIXWD,&1,FIVE Q MACRO 469 C Q 1 2785 C GEN 62 470 DC @_0@ 11-7-8,0 Q 2 2787 GEN 62 471 DC &1 Q 1 2788 GEN 62 472 DC FIVE Q 3 2791 23T GEN 62 473 4 19 BRHI BH MVDAT Q 5 2792 B Q65 U 62 1 OBJECT TIME FORMAT 5054C PAGE 10 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 474 4 20 OK1 AFLTW MLZS,FLTWD,-2,@0|0@ Q MACRO 475 OK1 MLZS Q 1 2797 Y GEN 62 476 DC @;0@ 11-6-8,0 Q 2 2799 GEN 62 477 DC -2 Q 1 2800 GEN 62 478 DC @0|0@ Q 3 2803 GEN 62 479 4 21 B MVDAT Q 4 2804 B Q65 63 480 4 22 CKOVF SBR OVFEX&3 Q 4 2808 H Q32 63 481 4 23 C TUMUCH,X3 Q 7 2812 C 23Y 099 63 482 4 24 BL OVFEX Q 5 2819 B Q29 T 63 483 4 25 NOP 3700 Q 4 2824 N G00 63 484 4 26 H Q 1 2828 . 63 485 4 27 OVFEX B XXX Q 4 2829 B 000 63 486 4 28 INOTN BFIXW MLC,@0|0@,FIXWD Q MACRO 487 INOTN MLC Q 1 2833 M GEN 64 488 DC @0|0@ Q 3 2836 GEN 64 489 DC @_0@ 11-7-8,0 Q 2 2838 GEN 64 490 DC 0 Q 1 2839 GEN 64 491 4 29 A W, XL3 Q 7 2840 A 0!6 099 64 492 4 30 MCW W, XL1 Q 7 2847 M 0!6 089 64 493 4 31 AFIXW ZA,FIXWD,,@0|0@ Q MACRO 494 ZA Q 1 2854 ? GEN 64 495 DC @_0@ 11-7-8,0 Q 2 2856 GEN 64 496 DC 0 Q 1 2857 GEN 64 497 DC @0|0@ Q 3 2860 GEN 64 498 4 32 B SBRX3 Q 4 2861 B J37 64 499 4 33 MVDAT MCS 0&X1,0&X3 Q 7 2865 Z 0|0 0?0 64 500 4 34 SBR SAVE&6 Q 4 2872 H R58 65 501 4 35 MLNS 0&X1,0&X3 Q 7 2876 D 0|0 0?0 65 502 4 36 SBR MCS&3,0&X3 Q 7 2883 H A90 0?0 65 503 4 37 SBR FINSI-1 Q 4 2890 H A53 65 504 4 38 JOE4 SW XXX Q 4 2894 , 000 65 505 4 39 BWZ BACK,0&X1,K Q 8 2898 V R10 0|0 K 65 506 4 40 B SAVE Q 4 2906 B R52 65 507 4 41 BACK BCE EXIT,0&X3, BLANK Q 8 2910 B R34 0?0 66 508 4 42 SBR X3 Q 4 2918 H 099 66 509 4 43 BW SAVE,1&X3 NO ROOM FOR SIGN Q 8 2922 V R52 0?1 1 66 510 4 44 B BACK Q 4 2930 B R10 66 511 4 45 EXIT MLZS MINUS,0&X3 Q 7 2934 Y G46 0?0 66 512 4 46 SW 1&X3 Q 4 2941 , 0?1 66 513 4 47 SBR FINSI-1,1&X3 Q 7 2945 H A53 0?1 67 514 4 48 SAVE SBR X3,111 DUMMY ADDRESS Q 7 2952 H 099 111 67 515 4 49 BCE FINS,0&X2,I Q 8 2959 B A46 0!0 I 67 516 4 50 A D,X3 Q 7 2967 A 0!9 099 67 517 4 51 BCE JUMPF,0&X2,F Q 8 2974 B R93 0!0 F 67 518 4 52 MLNS 0&X3 Q 4 2982 D 0?0 68 519 4 53 MLNS Q 1 2986 D 68 520 4 54 MLNS Q 1 2987 D 68 521 4 55 MLNS Q 1 2988 D 68 522 4 56 SBR X3 Q 4 2989 H 099 68 523 4 57 JUMPF SBR OVR1&6,1&X3 Q 7 2993 H ?88 0?1 68 1 OBJECT TIME FORMAT 5054C PAGE 11 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 524 4 58 S 1&X3 Q 4 3000 S 0?1 68 525 4 59 MLNS Q 1 3004 D 69 526 4 60 SAR X3 Q 4 3005 Q 099 69 527 4 61 BCE MDIG,0&X2,E Q 8 3009 B ?44 0!0 E 69 528 4 62 BWZ MDIG,ECON-2,B Q 8 3017 V ?44 F48 B 69 529 4 63 C D,ECON Q 7 3025 C 0!9 F50 69 530 4 64 BH OVR1 Q 5 3032 B ?82 U 69 531 4 65 A ECON,X3 Q 7 3037 A F50 099 70 532 4 66 MDIG BCE OVR1,3&X1,} GMK Q 8 3044 B ?82 0|3 } GMARK 70 533 4 67 MLNS 1&X1,2&X3 Q 7 3052 D 0|1 0?2 70 534 4 68 SBR X1,1&X1 Q 7 3059 H 089 0|1 70 535 4 69 BWZ OVR1,2&X3,B Q 8 3066 V ?82 0?2 B 70 536 4 70 SBR X3 Q 4 3074 H 099 71 537 4 71 B MDIG Q 4 3078 B ?44 71 538 4 72 OVR1 SBR X3,XXX Q 7 3082 H 099 000 71 539 4 73 BAV *&1 Q 5 3089 B ?94 Z 71 540 4 74 A ECON-3,0&X3 Q 7 3094 A F47 0?0 71 541 4 75 MLC NOZN,0&X3 Q 7 3101 M B62 0?0 71 542 4 76 BCE CWMKS-5,0&X2,F Q 8 3108 B A33 0!0 F 72 543 4 77 SBR X3,4&X3 Q 7 3116 H 099 0?4 72 544 4 78 MLNS 0&X3 Q 4 3123 D 0?0 72 545 4 79 MCW ECON Q 4 3127 M F50 72 546 4 80 MZ Q 1 3131 Y 72 547 4 81 MCW Q 1 3132 M 72 548 4 82 BAV ARRAV Q 5 3133 B A66 Z 72 549 4 83 CWMKS AFIXW CW,FIXWD Q MACRO 550 CWMKS CW Q 1 3138 ) GEN 73 551 DC @_0@ 11-7-8,0 Q 2 3140 GEN 73 552 DC 0 Q 1 3141 GEN 73 553 4 84 CW XXX Q 4 3142 ) 000 73 554 4 85 FINS CW 000 Q 4 3146 ) 000 73 555 4 86 CW XXX Q 4 3150 ) 000 73 556 4 87 FINSI AFIXW SW,FIXWD,&1 Q MACRO 557 FINSI SW Q 1 3154 , GEN 73 558 DC @_0@ 11-7-8,0 Q 2 3156 GEN 73 559 DC &1 Q 1 3157 GEN 73 560 4 88 B CKOVF Q 4 3158 B Q08 73 561 4 89 B DCRPB Q 4 3162 B L96 73 562 4 90 ARRAV MLC FINS-1,X1 Q 7 3166 M A45 089 74 563 4 91 MLZS NOZN,0&X1 Q 7 3173 Y B62 0|0 74 564 4 92 MLC Q 1 3180 M 74 565 4 93 A Q 1 3181 A 74 566 4 94 BAV OVR9S Q 5 3182 B A95 Z 74 567 4 95 MCS MCS 0 Q 4 3187 Z 000 74 568 4 96 B CWMKS Q 4 3191 B A38 74 569 4 97 OVR9S MN 0&X1 Q 4 3195 D 0|0 75 570 4 98 C Q 1 3199 C 75 571 4 99 MN Q 1 3200 D 75 572 5 00 SBR X1 Q 4 3201 H 089 75 573 5 01 C FINS&3,X1 Q 7 3205 C A49 089 75 1 OBJECT TIME FORMAT 5054C PAGE 12 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 574 5 02 BL CLEAR Q 5 3212 B B40 T 75 575 5 03 SW 0&X1 Q 4 3217 , 0|0 75 576 5 04 MLC 1&X1,0&X1 Q 7 3221 M 0|1 0|0 76 577 5 05 CW Q 1 3228 ) 76 578 5 06 MCW ONE,1&X1 Q 7 3229 M E74 0|1 76 579 5 07 B CWMKS Q 4 3236 B A38 76 580 5 08 CLEAR MLC 1&X3,0&X3 Q 7 3240 M 0?1 0?0 76 581 5 09 MLC Q 1 3247 M 76 582 5 10 MLC Q 1 3248 M 76 583 5 11 MLC @ X @,3&X1 Q 7 3249 M 25Y 0|3 77 584 5 12 B CWMKS Q 4 3256 B A38 77 585 5 13 DCW 1 Q 1 3260 77 586 5 14 DCW @.@ Q 1 3261 77 587 5 15 NOZN DCW @ @ Q 1 3262 77 588 5 16 ZERO4 DCW 0000 Q 4 3266 77 589 5 17 INI MLC X1,X3 Q 7 3267 M 089 099 77 590 5 18 MLZS ZAFLT,*&8 Q 7 3274 Y 06S B88 78 591 5 19 BFIXW MLNS,@0?0@,FIXWD,&1 Q MACRO 592 MLNS Q 1 3281 D GEN 78 593 DC @0?0@ Q 3 3284 GEN 78 594 DC @_0@ 11-7-8,0 Q 2 3286 GEN 78 595 DC &1 Q 1 3287 GEN 78 596 5 20 ZA Q 1 3288 ? 78 597 5 21 MLC URZRO&6,X1 Q 7 3289 M 14W 089 78 598 5 22 AFIXW MLCWA,FIXWD,,@0|0@ Q MACRO 599 MLCWA Q 1 3296 L GEN 78 600 DC @_0@ 11-7-8,0 Q 2 3298 GEN 78 601 DC 0 Q 1 3299 GEN 78 602 DC @0|0@ Q 3 3302 GEN 78 603 5 23 B MRWM Q 4 3303 B 15V 78 604 5 24 HLTGO NOP 4002 Q 4 3307 N 00S 78 605 5 25 H Q 1 3311 . 79 606 5 26 RDITP SW INSW Q 4 3312 , 23V 79 607 5 27 RD2 CS 332 Q 4 3316 / 332 79 608 5 28 CS Q 1 3320 / 79 609 5 29 B TPCMND Q 4 3321 B C84 79 610 5 30 CMBCK BEF HLTGO Q 5 3325 B C07 K 79 611 5 31 BCE TPCMND,12&X3,} GM Q 8 3330 B C84 0A2 } GMARK 79 612 5 32 CHAIN 12 Q MACRO 613 BCE Q 1 3338 B GEN 80 614 BCE Q 1 3339 B GEN 80 615 BCE Q 1 3340 B GEN 80 616 BCE Q 1 3341 B GEN 80 617 BCE Q 1 3342 B GEN 80 618 BCE Q 1 3343 B GEN 80 619 BCE Q 1 3344 B GEN 80 620 BCE Q 1 3345 B GEN 81 621 BCE Q 1 3346 B GEN 81 622 BCE Q 1 3347 B GEN 81 623 BCE Q 1 3348 B GEN 81 1 OBJECT TIME FORMAT 5054C PAGE 13 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 624 BCE Q 1 3349 B GEN 81 625 5 33 B FMAIN Q 4 3350 B Z28 81 626 5 34 B RD2 Q 4 3354 B C16 81 627 5 35 WTM MLNS FMTZON,*&4 Q 7 3358 D J36 C68 82 628 5 36 WTM 0 Q 5 3365 U %U0 M 82 629 5 37 NOP 4003 Q 4 3370 N 00T 82 630 5 38 H Q 1 3374 . 82 631 5 39 WT2 CS 332 Q 4 3375 / 332 82 632 5 40 CS Q 1 3379 / 82 633 5 41 B FMAIN Q 4 3380 B Z28 82 634 5 42 TPCMND MLNS FMTZON,IO&3 Q 7 3384 D J36 D37 83 635 5 43 MLC @R@,IO&7 Q 7 3391 M 25Z D41 83 636 5 44 ZA @R@,POINT Q 7 3398 ? 25Z 23S 83 637 5 45 BW SVGMK,INSW Q 8 3405 V D27 23V 1 83 638 5 46 MLC @W@,IO&7 Q 7 3413 M 26| D41 83 639 5 47 A &41,POINT Q 7 3420 A 26S 23S 84 640 5 48 SVGMK MLCWA GMK,333 Q 7 3427 L 26Z 333 84 641 5 49 IO RT 0,0&X3 Q 8 3434 M %U0 0?0 R 84 642 5 50 MLCWA FORMAT,333 Q 7 3442 L W97 333 84 643 5 51 BER TPERR Q 5 3449 B E91 L 84 644 5 52 BCE CMBCK,IO&7,R Q 8 3454 B C25 D41 R 85 645 5 53 BEF WTM Q 5 3462 B C58 K 85 646 5 54 B WT2 Q 4 3467 B C75 85 647 5 55 PRINT CS 333 Q 4 3471 / 333 85 648 5 56 CS Q 1 3475 / 85 649 5 57 B FMAIN Q 4 3476 B Z28 85 650 5 58 PRZRO BCE DOPRT,200, BLANK Q 8 3480 B E05 200 85 651 5 59 BCE SPACE, 200, 0 Q 8 3488 B E20 200 0 86 652 5 60 MN 200, *&2 Q 7 3496 D 200 E04 86 653 5 61 CC 0 Q 2 3503 F 0 86 654 5 62 DOPRT W Q 1 3505 2 86 655 5 63 BCV *&5 Q 5 3506 B E15 @ 86 656 5 64 B PRINT Q 4 3511 B D71 86 657 5 65 CCB PRINT,1 Q 5 3515 F D71 1 86 658 5 66 SPACE CCB DOPRT,J Q 5 3520 F E05 J 87 659 5 67 PUNCH MLC @281@,TUMUCH Q 7 3525 M 26V 23Y 87 660 5 68 CS FMAIN,285 Q 7 3532 / Z28 285 87 661 5 69 SW 200 Q 4 3539 , 200 87 662 5 70 LCA 279,180 Q 7 3543 L 279 180 87 663 5 71 P Q 1 3550 4 87 664 5 72 SSB PUNCH,4 Q 5 3551 K E25 4 87 665 5 73 READC CS 80 Q 4 3556 / 080 88 666 5 74 MLC @281@,TUMUCH Q 7 3560 M 26V 23Y 88 667 5 75 SW 1, INSW Q 7 3567 , 001 23V 88 668 5 76 ONE R Q 1 3574 1 88 669 5 77 LCA 80,279 Q 7 3575 L 080 279 88 670 5 78 SSB FMAIN,1 Q 5 3582 K Z28 1 88 671 5 79 B READC Q 4 3587 B E56 88 672 5 80 TPERR MLNS FMTZON,BSPTP&3 Q 7 3591 D J36 F08 89 673 5 81 MLNS FMTZON,SKP&3 Q 7 3598 D J36 F21 89 1 OBJECT TIME FORMAT 5054C PAGE 14 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 674 5 82 BSPTP BSP 0 Q 5 3605 U %U0 B 89 675 5 83 BCE *&6,IO&7,R Q 8 3610 B F23 D41 R 89 676 5 84 SKP SKP 0 Q 5 3618 U %U0 E 89 677 5 85 S ONE,POINT Q 7 3623 S E74 23S 89 678 5 86 BWZ SVGMK,POINT,B Q 8 3630 V D27 23S B 90 679 5 87 NOP 1111 Q 4 3638 N /11 90 680 5 88 H Q 1 3642 . 90 681 5 89 B TPCMND Q 4 3643 B C84 90 682 5 90 DCW @E@ Q 1 3647 90 683 5 91 DCW @ @ Q 1 3648 90 684 5 92 ECON DCW 00 Q 2 3650 90 685 5 93 INEFI SW 0&X3 Q 4 3651 , 0?0 91 686 5 94 MLC X1,URZRO&6 Q 7 3655 M 089 14W 91 687 5 95 MLC X3,X1 Q 7 3662 M 099 089 91 688 5 96 A WD,X1 Q 7 3669 A 0!6 089 91 689 5 97 BCE OUTQ,0&X2,I Q 8 3676 B F99 0!0 I 91 690 5 98 BCE OUTQA,0&X2,A Q 8 3684 B 39| 0!0 A 92 691 5 99 A D,X1 Q 7 3692 A 0!9 089 92 692 6 00 OUTQ SW 0&X1 Q 4 3699 , 0|0 92 693 6 01 SBR MRWM&3,0&X1 Q 7 3703 H 15Y 0|0 92 694 6 02 AFLTW S,FLTWD Q MACRO 695 S Q 1 3710 S GEN 92 696 DC @;0@ 11-6-8,0 Q 2 3712 GEN 92 697 DC 0 Q 1 3713 GEN 92 698 6 03 S Q 1 3714 S 92 699 6 04 SCNBL BCE BLANK, 0&X3, BLANK Q 8 3715 B G62 0?0 92 700 6 05 MLZS MINUS,ZAFLT Q 7 3723 Y G46 06S 93 701 6 06 BCE KILL,0&X3,- Q 8 3730 B G78 0?0 - 93 702 6 07 BCE KILL,0&X3,@ Q 8 3738 B G78 0?0 @ 93 703 6 08 MINUS ZS ZAFLT Q 4 3746 ! 06S 93 704 6 09 BCE KILL,0&X3,& Q 8 3750 B G78 0?0 & 93 705 6 10 B MV2WK Q 4 3758 B G86 93 706 6 11 BLANK BW URZRO-8,1&X3 Q 8 3762 V 13S 0?1 1 94 707 6 12 B SBRX3 Q 4 3770 B J37 94 708 6 13 B SCNBL Q 4 3774 B G15 94 709 6 14 KILL SW 1&X3 Q 4 3778 , 0?1 94 710 6 15 B SBRX3 Q 4 3782 B J37 94 711 6 16 MV2WK BCE INI, 0&X2, I Q 8 3786 B B67 0!0 I 94 712 6 17 BFIXW SBR,089,FIXWD,-1 Q MACRO 713 SBR Q 1 3794 H GEN 94 714 DC 089 Q 3 3797 GEN 94 715 DC @_0@ 11-7-8,0 Q 2 3799 GEN 94 716 DC -1 Q 1 3800 GEN 94 717 6 18 BFLTW MLZS,NOZN,FLTWD,-2 Q MACRO 718 MLZS Q 1 3801 Y GEN 95 719 DC NOZN Q 3 3804 B62 GEN 95 720 DC @;0@ 11-6-8,0 Q 2 3806 GEN 95 721 DC -2 Q 1 3807 GEN 95 722 6 19 CW SIGSW#1,SWB#1 Q 7 3808 ) 26W 26X 95 723 6 20 CW SWA#1 Q 4 3815 ) 26Y 95 1 OBJECT TIME FORMAT 5054C PAGE 15 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 724 6 21 S XPN Q 4 3819 S 22T 95 725 6 22 BCE ABEGN,0&X2,A Q 8 3823 B 28| 0!0 A 95 726 6 23 B LEWP2 Q 4 3831 B H81 95 727 6 24 PYNT1 SBR POINT,0&X3 Q 7 3835 H 23S 0?0 96 728 6 25 SW SWA Q 4 3842 , 26Y 96 729 6 26 BW LEWP, SIGSW Q. DATA NOT FRACTIONAL Q 8 3846 V H61 26W 1 96 730 6 27 SBR POINT, 1&X3 Q 7 3854 H 23S 0?1 96 731 6 28 LEWP BW OVR,1&X3 Q 8 3861 V 04X 0?1 1 96 732 6 29 BCE OVR,1&X3, BLANK Q 8 3869 B 04X 0?1 97 733 6 30 B SBRX3 Q 4 3877 B J37 97 734 6 31 LEWP2 BCE PYNT1,0&X3,. Q 8 3881 B H35 0?0 . 97 735 6 32 C 0&X3,ZERO4-3 Q 7 3889 C 0?0 B63 97 736 6 33 BL MVDIG Q 5 3896 B 16T T 97 737 6 34 BH QFTYP Q 5 3901 B I18 U 97 738 6 35 BW MVDIG, SIGSW Q. SIGNIFICANT ZERO Q 8 3906 V 16T 26W 1 98 739 6 36 B LEWP Q 4 3914 B H61 98 740 6 37 QFTYP BCE FHLT,0&X2,F Q 8 3918 B I71 0!0 F 98 741 6 38 SBR END,4&X3 Q 7 3926 H 22W 0?4 98 742 6 39 MLZS PLUS,ZAEXP Q 7 3933 Y I76 03W 98 743 6 40 BCE PROCE, 0&X3, E Q 8 3940 B I80 0?0 E 99 744 6 41 ZOND MZ 0&X3, ZAEXP Q 7 3948 Y 0?0 03W 99 745 6 42 FBCEQ GRAB, 0&X3, &,- Q MACRO 746 BCE GRAB, 0&X3, & Q 8 3955 B 01S 0?0 & GEN 99 747 BCE GRAB, 0&X3, - Q 8 3963 B 01S 0?0 - GEN 99 748 6 43 FHLT NOP 1121 ERROR HALT DATA IS WRONG Q 4 3971 N /21 99 749 6 44 H MODE Q 1 3975 . 99 750 6 45 PLUS B FHLT Q 4 3976 B I71 100 751 6 46 PROCE BWZ HERE,1&X3,2 Q 8 3980 V I96 0?1 2 100 752 6 47 B SBRX3 Q 4 3988 B J37 100 753 6 48 B ZOND Q 4 3992 B I48 100 754 6 49 HERE BCE *&5,1&X3, BLANK Q 8 3996 B 00Y 0?1 100 755 6 50 B *&5 Q 4 4004 B 01S 100 756 6 51 B SBRX3 Q 4 4008 B J37 100 757 6 52 GRAB SW 1&X3 Q 4 4012 , 0?1 101 758 6 53 MV2WM BW ZAEXP, 2&X3 Q 8 4016 V 03W 0?2 1 101 759 6 54 BCE ZAEXP,2&X3, BLANK Q 8 4024 B 03W 0?2 101 760 6 55 SBR X3 Q 4 4032 H 099 101 761 6 56 ZAEXP ZA 1&X3, XPN Q 7 4036 ? 0?1 22T 101 762 6 57 B ZAFLT Q 4 4043 B 06S 101 763 6 58 OVR BCE FHLT, 0&X2, E Q 8 4047 B I71 0!0 E 102 764 6 59 SBR END, 1&X3 Q 7 4055 H 22W 0?1 102 765 6 60 ZAFLT AFLTW ZA,FLTWD,-2 Q MACRO 766 ZAFLT ZA Q 1 4062 ? GEN 102 767 DC @;0@ 11-6-8,0 Q 2 4064 GEN 102 768 DC -2 Q 1 4065 GEN 102 769 6 61 BW *&5, SIGSW Q 8 4066 V 07Y 26W 1 102 770 6 62 B URZRO Q 4 4074 B 14| 102 771 6 63 BW NOSWT, SWA A. ACTUAL DECIMAL PT. IN DATA Q 8 4078 V 10| 26Y 1 102 772 6 64 S D, END Q 7 4086 S 0!9 22W 103 773 6 65 ZA END, POINT Q 7 4093 ? 22W 23S 103 1 OBJECT TIME FORMAT 5054C PAGE 16 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 774 6 66 NOSWT S POINT, MSD Q 7 4100 S 23S 22Z 103 775 6 67 A PCTR,XPN Q 7 4107 A L27 22T 103 776 6 68 ZS MSD Q 4 4114 ! 22Z 103 777 6 69 A MSD,XPN Q 7 4118 A 22Z 22T 103 778 6 70 BFLTW ZA,XPN,FLTWD Q MACRO 779 ZA Q 1 4125 ? GEN 104 780 DC XPN Q 3 4128 22T GEN 104 781 DC @;0@ 11-6-8,0 Q 2 4130 GEN 104 782 DC 0 Q 1 4131 GEN 104 783 6 71 BCE INI,0&X2,I Q 8 4132 B B67 0!0 I 104 784 6 72 URZRO AFLTW MLC,FLTWD,,XXX Q MACRO 785 URZRO MLC Q 1 4140 M GEN 104 786 DC @;0@ 11-6-8,0 Q 2 4142 GEN 104 787 DC 0 Q 1 4143 GEN 104 788 DC XXX Q 3 4146 000 GEN 104 789 6 73 LCA Q 1 4147 L 104 790 6 74 MLC MRWM&3,X3 Q 7 4148 M 15Y 099 104 791 6 75 MRWM CW XXX Q 4 4155 ) 000 104 792 6 76 B FINSI Q 4 4159 B A54 104 793 6 77 MVDIG BW *&12, SIGSW Q 8 4163 V 18S 26W 1 105 794 6 78 SBR MSD, 0&X3 Q 7 4171 H 22Z 0?0 105 795 6 79 SW SIGSW Q 4 4178 , 26W 105 796 6 80 BW LEWP, SWB Q 8 4182 V H61 26X 1 105 797 6 81 MN 0&X3, 2&X1 Q 7 4190 D 0?0 0|2 105 798 6 82 SBR X1 Q 4 4197 H 089 105 799 6 83 SW SWB Q 4 4201 , 26X 106 800 6 84 BCE LEWP,4&X1,} GMK Q 8 4205 B H61 0|4 } GMARK 106 801 6 85 CW SWB Q 4 4213 ) 26X 106 802 6 86 B LEWP Q 4 4217 B H61 106 803 6 87 XPN DCW #3 Q 3 4223 106 804 6 88 END DCW #3 Q 3 4226 106 805 6 89 MSD DCW #3 Q 3 4229 106 806 6 90 POINT DCW #3 Q 3 4232 107 807 6 91 FIVE DCW @5@ Q 1 4233 107 808 6 92 LKHED DC #1 Q 1 4234 107 809 6 93 LTORG * Q 4235 INSW Q DCW #01 Q 1 4235 AREA 107 TUMUCH DCW #03 Q 3 4238 AREA 107 BUCKTQ DCW #03 Q 3 4241 AREA 107 GMKHDQ DCW #01 Q 1 4242 AREA 107 GMKSWQ DCW #01 Q 1 4243 AREA 107 RTPA Q DCW #03 Q 3 4246 AREA 108 SAVE1Q DCW #03 Q 3 4249 AREA 108 RPTB Q DCW #03 Q 3 4252 AREA 108 DCW @0.0@ Q 3 4255 LIT 108 DCW @ X @ Q 3 4258 LIT 108 DCW @R@ Q 1 4259 LIT 108 DCW @W@ Q 1 4260 LIT 108 DCW &41 Q 2 4262 LIT 109 DCW @281@ Q 3 4265 LIT 109 1 OBJECT TIME FORMAT 5054C PAGE 17 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD SIGSWQ DCW #01 Q 1 4266 AREA 109 SWB Q DCW #01 Q 1 4267 AREA 109 SWA Q DCW #01 Q 1 4268 AREA 109 810 5 94 GMK DCW @}@ GROUP MARK Q 1 4269 GMARK 109 811 6 95 W EQU 6&X2 Q 0006 X 812 6 96 WD EQU 6&X2 Q 0006 X 813 6 97 D EQU 9&X2 Q 0009 X 814 6 98 XXX EQU 0 Q 0000 815 6 99 XL1 EQU 089 Q 0089 816 7 00 XL2 EQU 094 Q 0094 817 7 01 XL3 EQU 099 Q 0099 818 7 02 OBLIST EQU 912 Q 0912 819 7 03 CEXIT EQU 988 Q 0988 820 7 04 XFR CWFIO Q B 982 110 1 A FORMAT 5054D PAGE 18 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 821 7 05 JOB A FORMAT Q 822 7 06 ORG 4280 Q 4280 823 7 07 ABEGN BW *&12,SIGSW Q 8 4280 V 29Z 26W 1 113 824 7 08 SBR MSD,0&X3 Q 7 4288 H 22Z 0?0 113 825 7 09 SW SIGSW Q 4 4295 , 26W 113 826 7 10 BW LEWPA,SWB Q 8 4299 V 34/ 26X 1 113 827 7 11 MN 0&X3,2&X1 Q 7 4307 D 0?0 0|2 113 828 7 12 MZ 0&X3,2&X1 Q 7 4314 Y 0?0 0|2 114 829 7 13 SBR X1 Q 4 4321 H 089 114 830 7 14 SW SWB Q 4 4325 , 26X 114 831 7 15 BCE LEWPA,4&X1,} GROUP MARK Q 8 4329 B 34/ 0|4 } GMARK 114 832 7 16 CW SWB Q 4 4337 ) 26X 114 833 7 17 LEWPA BW OVRA,1&X3 Q 8 4341 V 35X 0?1 1 114 834 7 18 B SBRX3 Q 4 4349 B J37 114 835 7 19 B ABEGN Q 4 4353 B 28| 115 836 7 20 OVRA SBR END,1&X3 Q 7 4357 H 22W 0?1 115 837 7 21 MCW URZRO&6,NEXTA&6 Q 7 4364 M 14W 37X 115 838 7 22 NEXTA MCW 0,0 Q 7 4371 M 000 000 115 839 7 23 LCA Q 1 4378 L 115 840 7 24 MLC MRWM&3,X3 Q 7 4379 M 15Y 099 115 841 7 25 B FINSI Q 4 4386 B A54 115 842 7 26 OUTQA BFLTW MCW,BLK3,FLTWD Q MACRO 843 OUTQA MCW Q 1 4390 M GEN 116 844 DC BLK3 Q 3 4393 57X GEN 116 845 DC @;0@ 11-6-8,0 Q 2 4395 GEN 116 846 DC 0 Q 1 4396 GEN 116 847 7 27 BFLTW MCW,BLK20,FLTWD,-2 Q MACRO 848 MCW Q 1 4397 M GEN 116 849 DC BLK20 Q 3 4400 59X GEN 116 850 DC @;0@ 11-6-8,0 Q 2 4402 GEN 116 851 DC -2 Q 1 4403 GEN 116 852 7 28 SW 0&X1 Q 4 4404 , 0|0 116 853 7 29 SBR MRWM&3,0&X1 Q 7 4408 H 15Y 0|0 116 854 7 30 B MV2WK Q 4 4415 B G86 116 855 7 31 AOUT MCW EFOUT&6,NEXA&6 Q 7 4419 M N01 43S 116 856 7 32 NEXA MCW 0,0 Q 7 4426 M 000 000 117 857 7 33 MCW Q 1 4433 M 117 858 7 34 SBR X1 Q 4 4434 H 089 117 859 7 35 SBR TEMPX1#3,1&X1 Q 7 4438 H 60T 0|1 117 860 7 36 SBR TEMPX3#3,0&X3 Q 7 4445 H 60W 0?0 117 861 7 37 MA 6&X2,TEMPX3 Q 7 4452 # 0!6 60W 117 862 7 38 SBR TEMP32,1&X3 Q 7 4459 H 60| 0?1 118 863 7 39 MCW NEXA&6,TFLTWD#3 Q 7 4466 M 43S 60Z 118 864 7 40 MA @I9H@,TFLTWD Q 7 4473 # 61S 60Z 118 865 7 41 MOVNUM MN 1&X1,2&X3 Q 7 4480 D 0|1 0?2 118 866 7 42 MZ 1&X1,2&X3 Q 7 4487 Y 0|1 0?2 118 867 7 43 C TEMP32,TEMPX3 Q 7 4494 C 60| 60W 119 868 7 44 BE FINI1 Q 5 4501 B 55| S 119 869 7 45 C TEMPX1,TFLTWD Q 7 4506 C 60T 60Z 119 870 7 46 BE FINI1 Q 5 4513 B 55| S 119 1 A FORMAT 5054D PAGE 19 0 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 871 7 47 MA @001@,TEMPX1 Q 7 4518 # 61V 60T 119 872 7 48 MA @001@,TEMP32 Q 7 4525 # 61V 60| 119 873 7 49 SBR X1,1&X1 Q 7 4532 H 089 0|1 120 874 7 50 SBR X3,1&X3 Q 7 4539 H 099 0?1 120 875 7 51 B MOVNUM Q 4 4546 B 48| 120 876 7 52 FINI1 SBR FINS&7,0&X3 Q 7 4550 H A53 0?0 120 877 7 53 MCW TEMPX3,X3 Q 7 4557 M 60W 099 120 878 7 54 SBR X3,2&X3 Q 7 4564 H 099 0?2 120 879 7 55 B FINS Q 4 4571 B A46 121 880 7 56 BLK3 DCW #3 Q 3 4577 121 881 7 57 BLK20 DCW #20 Q 20 4597 121 882 7 58 TEMP32 DCW @ @ Q 3 4600 121 883 7 59 LTORG * Q 4601 TEMPX1 DCW #03 Q 3 4603 AREA 121 TEMPX3 DCW #03 Q 3 4606 AREA 121 TFLTWD DCW #03 Q 3 4609 AREA 121 DCW @I9H@ Q 3 4612 LIT 122 DCW @001@ Q 3 4615 LIT 122 884 7 60 GM54D DCW @}@ GROUP MARK Q 1 4616 GMARK 122 885 7 61 XFR CWAF Q B |51 123 886 7 62 * 887 7 63 ** PLACE PRECEDING CARDS BETWEEN PHASES 53 AND 55 888 7 64 * 889 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 2008 ALRDYQ 2031 AOUT Q 4419 ARRAVQ 3166 ARRTNQ 2109 ATESTQ 1005 BACK Q 2910 BBACKQ 1234 BLANKQ 3762 BLK20Q 4597 BLK3 Q 4577 BRHI Q 2792 BSPTPQ 3605 BUCKTQ 4241 CDAF Q 1047 CDLIOQ 1026 CDSYSQ 949 CEXITQ 988 CKOVFQ 2808 CLEARQ 3240 CLSPRQ 2185 CMBCKQ 3325 COUNTQ 2010 CWAF Q 1051 CWFIOQ 982 CWLIOQ 1030 CWMKSQ 3138 D Q 9+X2 DCRPBQ 2396 DECRAQ 2189 DOPRTQ 3505 ECON Q 3650 EFNTNQ 2439 EFOUTQ 2495 EFTI Q 2549 EJBOXQ 2271 ELL Q 2079 END Q 4226 EOJ1 Q 2223 EXIT Q 2934 EXITAQ 1141 FHLT Q 3971 FINI1Q 4550 FINS Q 3146 FINSIQ 3154 FIVE Q 4233 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 4269 GMKHDQ 4242 GMKSWQ 4243 GMWM Q 1253 GPWDMK 2015 GRAB Q 4012 GTRTNQ 2431 GTXT Q 2003 HERE Q 3996 HLOUTQ 2340 HLTGOQ 3307 HOLINQ 2347 HOLLRQ 2328 INEFIQ 3651 INI Q 3267 INOTNQ 2833 INSW Q 4235 INTEGQ 2728 IO Q 3434 IO1 Q 1745 IO12 Q 1752 IO15 Q 1774 IO2 Q 1799 IO3 Q 1813 IO4 Q 1848 IO5 Q 1873 JOE4 Q 2894 JUMPFQ 2993 KILL Q 3778 LAST1Q 2204 LEWP Q 3861 LEWP2Q 3881 LEWPAQ 4341 LIST Q 1962 LKHEDQ 4234 LOC Q 1999 LOOP2Q 1832 MCS Q 3187 MDIG Q 3044 MINUSQ 3746 MLBOXQ 1968 MONTER 700 MONTOR 769 MOVNUM 4480 MRWM Q 4155 MSD Q 4229 MV2WKQ 3786 MV2WMQ 4016 MVAGNQ 1855 MVDATQ 2865 MVDIGQ 4163 NDLINQ 2208 NEGX Q 2766 NEXA Q 4426 NEXTAQ 4371 NOPBRQ 2298 NOPSWQ 2243 NOSWTQ 4100 NOZN Q 3262 NTESTQ 970 NTRAYQ 2046 OBLIST 912 OK1 Q 2797 ONE Q 3574 OPNPRQ 2152 OUT Q 1897 OUTPTQ 2219 OUTQ Q 3699 OUTQAQ 4390 OVFEXQ 2829 OVR Q 4047 OVR1 Q 3082 OVR9SQ 3195 OVRA Q 4357 PARAMA 686 PCTR Q 2327 PLUS Q 3976 POINTQ 4232 PRINTQ 3471 PROCEQ 3980 PRZROQ 3480 PUNCHQ 3525 PYNT1Q 3835 QFTYPQ 3918 RD2 Q 3316 RDITPQ 3312 RDRTBQ 1916 RDRTNQ 1912 RDTAPQ 1738 READCQ 3556 REPEAT 2306 RET Q 1895 RMVZNQ 1973 RPTB Q 4252 RTPA Q 4246 RWT31Q 1921 RWT41Q 1960 RWT77Q 1976 RWT78Q 1983 SAVCHQ 2009 SAVE Q 2952 SAVE1Q 4249 SAVE2Q 1996 SAVX3Q 1992 SBRX3Q 2137 SCALEQ 2310 SCNBLQ 3715 SIGSWQ 4266 SKAIOQ 1013 SKFIOQ 1034 SKLIOQ 957 SKP Q 3618 SKPAFQ 1128 SKPF Q 1177 SKPL Q 1067 SPACEQ 3520 STARTQ 1697 STARTR 934 SVGMKQ 3427 SWA Q 4268 SWB Q 4267 TCLEAR 710 TEMP32 4600 TEMPX1 4603 TEMPX3 4606 TESTHQ 2332 TFLTWD 4609 TPAF Q 1194 TPCMND 3384 TPER Q 1211 TPERRQ 3591 TPLIOQ 1164 TPSYSQ 1059 TSTAFQ 1120 TUMUCH 4238 UNDUNQ 2007 UPX1 Q 2629 URZROQ 4140 W Q 6+X2 WD Q 6+X2 WRTAPQ 1910 WT2 Q 3375 WTM Q 3358 X1 Q 89 X2 Q 94 X3 Q 99 XL1 Q 89 XL2 Q 94 XL3 Q 99 XPN Q 4223 XXX Q 0 ZAEXPQ 4036 ZAFLTQ 4062 ZERO4Q 3266 ZOND Q 3948