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 1401 FORMAT RETRIEVAL PAGE 1 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 101 101 001 JOB 1401 FORMAT RETRIEVAL 102 102 CTL 6611 103 103 SIZE EQU 15999 USED TO ORG PROG IN UPPER CORE 15999 104 104 ORG 1 DEFINE FIELDS IN I/O 0001 105 105 AHERE DS 3 CONTROL BLOCKS RELATIVE 0003 106 106 ALOW DS 4 TO ONE 0007 107 107 AHIGH DS 4 0011 108 108 AB DS 1 0012 109 109 BHERE DS 3 0015 110 110 BLOW DS 4 0019 111 111 BHIGH DS 4 0023 112 112 BC DS 1 B AND/OR C, A IS AND, O IS OR *SAME FOR A,B 0024 113 113 CHERE DS 3 UNITS POS OF C FIELD * FIELDS 0027 114 114 CLOW DS 4 LOWEST C TO BE USED * 0031 115 115 CHIGH DS 4 HIGHEST C TO BE USED * 0035 116 116 STATUS DS 1 NO WM IF LAST,ZONE IF RD CDS FOR A LOW/HIGH 0036 117 117 COUNT DS 6 COUNT OUTPUT RECORDS 0042 118 118 NXTABC DS 3 START OF NEXT I/O CONTROL BLOCK, AHERE-3 0045 119 119 IO DS 1 START OF OUTPUT ROUTINE 0046 120 120 * 121 121 ORG 81 0081 122 122 CGM DCW @}@ 1 0081 GMARK 123 123 DS 5 0086 124 124 *THROUGHOUT GENERATION, X3 IS LAST LOC ASSIGNED, CALLED ORIGIN 125 125 *FOR PROCESSING ROUTINES 126 126 * X1 IS START OF CURRENT OUTPUT BLOCK - 1 127 127 * X2 IS START OF CURRENT AHERE - 1 128 128 * X3 IS START OF TAPE INPUT RECORD - 1, ZERO IF CARD INPUT 129 129 X1 DCW #3 3 0089 130 130 DS 1 0090 131 131 SWW DC #1 WM IF PRINT GEN 1 0091 132 132 X2 DCW #3 3 0094 133 133 DS 1 0095 134 134 SWP DC #1 WM IF PUNCH GEN 1 0096 135 135 X3 DCW 335 ITITIAL ORIGIN 3 0099 136 136 DS 1 0100 137 137 ORG 181 0181 138 138 DCW @}@ 1 0181 GMARK 139 139 RECNT DCW -000000 6 0187 140 140 NOISEC DCW #6 6 0193 GENERATE PRINT AND PUNCH FILE CONTROLS PAGE 2 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 141 141 JOB GENERATE PRINT AND PUNCH FILE CONTROLS 142 142 ORG 336 0336 143 143 HEADPG SBR HDX+3 EJECT 4 0336 H 386 144 144 CC 1 2 0340 F 1 145 145 MRCM HL1-131,201 7 0342 P 257 201 146 146 A *-6,PAGECT PAGE COUNT 7 0349 A 349 789 147 147 PPAGE NOP PAGECT,* 7 0356 N 789 362 148 148 HSP1 CC / 2 0363 F / 149 149 W PRINT HEADING 1 0365 2 150 150 MRCM HL2-131,201 7 0366 P 389 201 151 151 HSP2 CC S 2 0373 F S 152 152 W 1 0375 2 153 153 MRCM HC-131,201 CLEAR PRINT 7 0376 P 522 201 154 154 HDX B AFTIL 4 0383 B R8G 155 155 DCW #1 1 0387 156 156 HL1 DS 131 0518 157 157 DCW @'@ 1 0519 158 158 HL2 DS 132 0651 159 159 DCW @'@ 1 0652 160 160 HC DS 132 0784 161 161 DCW @'@ 1 0785 162 162 PAGECT DCW #4 4 0789 163 163 * 164 164 FINCNT DCW #6 6 0795 165 165 SEQCHK DCW #9 9 0804 166 166 DS 45 SAVE FOR ABC 0849 167 167 COUTT EQU *-3 0846 168 168 WI0 C SEQCHK-8,SEQCHK-8 7 0850 C 796 796 169 169 BE PRINT 5 0857 B 915 S 170 170 BWZ PRINT,RECNT,K Q. FIRST RECORD 8 0862 V 915 187 K 171 171 WI1 MCW *,* RESET SEQUENCE 7 0870 M 876 876 172 172 WI2 NOP COUTT,* MOVE COUNT TO PRINT AREA 7 0877 N 846 883 173 173 A COUTT,FINCNT 7 0884 A 846 795 174 174 S COUTT 4 0891 S 846 175 175 WI3 NOP PAGECT RESET PAGE COUNT 4 0895 N 789 176 176 NOP PRINT TOTAL LINE 1 0899 N 177 177 WI4 NOP COUTT,* CLEAR PRINT AREA 7 0900 N 846 906 178 178 WI5 NOP HEADPG 4 0907 N 336 179 179 SWTOT B PRINT+5 4 0911 B 920 180 180 PRINT BCV HEADPG 5 0915 B 336 @ 181 181 * 182 182 ORGSZE EQU SIZE-999 15000 183 183 ORGSZ2 EQU ORGSZE-999 14001 184 184 ORG ORGSZ2-189 13812 185 185 SETWM B * END SW STRING 4 13812 B Y1E 186 186 DOSET SBR SETWM+3 4 13816 H Y1E 187 187 B 1+X2 4 13820 B 0!1 188 188 STARTI CC 1 2 13824 F 1 189 189 MRCM 76,276 IDENTIFY PROGRAM AND VERSION 7 13826 P 076 276 190 190 MLC CPROG,274 7 13833 M M6E 274 GENERATE PRINT AND PUNCH FILE CONTROLS PAGE 3 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 191 191 CC 1 2 13840 F 1 192 192 W READ 4 13842 2 G7? 193 193 C 6,CHEAD1 Q. HEAD 7 13846 C 006 M3A 194 194 BE GENH 5 13853 B Y7B S 195 195 CS PRINT+4 4 13858 / 919 196 196 CS 1 13862 / 197 197 CS 1 13863 / 198 198 CS 1 13864 / 199 199 CS 1 13865 / 200 200 CS 1 13866 / 201 201 CS 1 13867 / 202 202 B QPUNCH 4 13868 B L2B 203 203 GENH SW 7 4 13872 , 007 204 204 MCW 76,HL1-82 STORE 1-70 7 13876 M 076 306 205 205 B READ 4 13883 B G7? 206 206 C 6,CHEAD2 7 13887 C 006 M3G 207 207 BE *+6 5 13894 B Z0D S 208 208 NOP 1111 HEAD 2 MISSING 4 13899 N /11 209 209 H 1 13903 . 210 210 SW 7,72 7 13904 , 007 072 211 211 MCW 68,HL1 STORE 71-132 7 13911 M 068 388 212 212 BCE *+19,71, Q. PAGE CT 8 13918 B Z4D 071 213 213 SW 69 4 13926 , 069 214 214 MCW 71,PPAGE+6 7 13930 M 071 362 215 215 MCW CMCS,PPAGE 7 13937 M M5? 356 216 216 BCE *+8,72, 8 13944 B Z5I 072 217 217 MCW 72,HSP1+1 7 13952 M 072 364 218 218 B READ 4 13959 B G7? 219 219 C 6,CHEAD3 7 13963 C 006 M4C 220 220 BU NOHL3 5 13970 B !4I / 221 221 SW 7 4 13975 , 007 222 222 MLC 76,HL2-62 7 13979 M 076 458 223 223 B READ 4 13986 B G7? 224 224 C 6,CHEAD4 7 13990 C 006 M4I 225 225 BE *+6 5 13997 B !0G S 226 226 NOP 1112 HEAD 4 MISSING 4 14002 N /12 227 227 H 1 14006 . 228 228 SW 7,72 7 14007 , 007 072 229 229 MLC 68,HL2 7 14014 M 068 520 230 230 BCE *+8,72, 8 14021 B !3F 072 231 231 MLC 72,HSP2+1 7 14029 M 072 374 232 232 B READ 4 14036 B G7? 233 233 B QPRINT 4 14040 B !6C 234 234 BIN HDX, 5 14044 B 383 235 235 NOHL3 SBR HSP2-4,HC-131 7 14049 H 369 522 236 236 LCA NOHL3-1,HSP2+4 7 14056 L !4H 377 237 237 QPRINT C 5,CPRINT 7 14063 C 005 M5H 238 238 BE *+6 5 14070 B !8? S 239 239 NOP 1114 NO PRINT AFTER HEAD 4 14075 N /14 240 240 H 1 14079 . GENERATE PRINT AND PUNCH FILE CONTROLS PAGE 4 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 241 241 SBR X3,SEQCHK UP ORIGIN 7 14080 H 099 804 242 242 B LDABC 4 14087 B ?2C 243 243 BCE NOTOT,F3, Q. TOTALS 8 14091 B J3A N5F 244 244 MCW F3,WI2+6 7 14099 M N5F 883 245 245 MCW F3,WI4+6 7 14106 M N5F 906 246 246 MCW CMCS,WI2 7 14113 M M5? 877 247 247 MCW CMCS,WI4 7 14120 M M5? 900 248 248 MCW CW 4 14127 M M7C 249 249 NOTOT BCE NOSEQ,F1, Q. SEQUENCE CHECK 8 14131 B K4B N5? 250 250 MZ CB,F1-1 7 14139 Y H6H N4I 251 251 MCW F1,WI0+3 7 14146 M N5? 853 252 252 SBR X1,SEQCHK-9 7 14153 H 089 795 253 253 MN F2-2,*+7 7 14160 D N5A J7C 254 254 SBR WI0+6,0+X1 7 14167 H 856 0'0 255 255 SBR WI1+6 4 14174 H 876 256 256 MCW F1,WI1+3 7 14178 M N5? 873 257 257 BCE NOSEQ,F4-2, Q. SPACE AFTER BREAK 8 14185 B K4B N5G 258 258 BCE EJ,F4-2,1 8 14193 B K2? N5G 1 259 259 LCA CNN,WI5+3 SET CC X, NOP X 7 14201 L M5B 910 260 260 MCW F4-2 4 14208 M N5G 261 261 LCA CCC 4 14212 L M2E 262 262 B NOSEQ 4 14216 B K4B 263 263 EJ MCW CB,WI5 7 14220 M H6H 907 264 264 BCE *+8,F4-1, Q. RESET PAGE COUNT 8 14227 B K4B N5H 265 265 MCW CS,WI3 7 14235 M H7? 895 266 266 NOSEQ SBR X3,PRINT+4 UP ORIGIN 7 14242 H 099 919 267 267 B GETDV 4 14249 B A5I 268 268 B DOSET 4 14253 B Y1F 269 269 BCE *+22,F2-1, Q. SPACE AFTER PRINT 8 14257 B K8F N5B 270 270 MCW F2-1,2+X3 7 14265 M N5B 0?2 271 271 MLCWA CCC,1+X3 7 14272 L M2E 0?1 272 272 SBR X3,2+X3 7 14279 H 099 0?2 273 273 SBR 12+X3,PASS 7 14286 H 0A2 C2I 274 274 LCA CB,9+X3 7 14293 L H6H 0?9 275 275 LCA CLRP+6 4 14300 L M2D 276 276 MLCWA CW 4 14304 L M7C 277 277 SBR X3,12+X3 7 14308 H 099 0A2 278 278 SW 1+X3,SWW PRINT SW ON 7 14315 , 0?1 091 279 279 * 280 280 QPUNCH C 5,CPUNCH 7 14322 C 005 M7? 281 281 BU CLRJNK Q. PUNCH 5 14329 B M7D / 282 282 B LDABC 4 14334 B ?2C 283 283 B GETDV 4 14338 B A5I 284 284 B DOSET 4 14342 B Y1F 285 285 LCA CP,1+X3 7 14346 L M5C 0?1 286 286 BCE NSTACK,F1-2, Q. STACKER SELECTION 8 14353 B L9C N4H 287 287 MCW F1-2,6+X3 7 14361 M N4H 0?6 288 288 SBR 5+X3,PASS 7 14368 H 0?5 C2I 289 289 LCA CSS,2+X3 7 14375 L M7A 0?2 290 290 SBR X3,6+X3 7 14382 H 099 0?6 GENERATE PRINT AND PUNCH FILE CONTROLS PAGE 5 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 291 291 B *+15 4 14389 B M0G 292 292 NSTACK SBR 4+X3,PASS 7 14393 H 0?4 C2I 293 293 SBR X3,4+X3 7 14400 H 099 0?4 294 294 SW SWP,1+X3 PUNCH SW ON 7 14407 , 096 0?1 295 295 B QPUNCH 4 14414 B L2B 296 296 CLRP MRCM HC-131,201 7 14418 P 522 201 297 297 CCC DCW @F@ 1 14425 298 298 CHEAD1 DCW @HEAD 1@ 6 14431 299 299 CHEAD2 DCW @HEAD 2@ 6 14437 300 300 CHEAD3 DCW @HEAD 3@ 6 14443 301 301 CHEAD4 DCW @HEAD 4@ 6 14449 302 302 CMCS MCS 1 14450 Z 303 303 CNN DCW @NN@ 2 14452 304 304 CP P 1 14453 4 305 305 CPRINT DCW @PRINT@ 5 14458 306 306 CPROG DCW @PROGRAM@ 7 14465 307 307 CPUNCH DCW @PUNCH@ 5 14470 308 308 CSS SS 2 14471 K 309 309 CW W 1 14473 2 310 310 CLRJNK CS * DONE WITH PRINT/PUNCH 4 14474 / M7G 311 311 CS CLEAR ROUTINES 1 14478 / 312 312 CS 1 14479 / 313 313 CS 1 14480 / 314 314 CS 1 14481 / 315 315 CS 1 14482 / 316 316 CS 1 14483 / 317 317 CS 1 14484 / 318 318 CW P PRINT OR PUNCH SWITCH OFF 4 14485 ) H2H 319 319 SBR GETDV+10,*+4 NEW START FOR SW IN MCW 7 14489 H A6I M9I 320 320 CLRJK3 B CLRJK2 4 14496 B N8E GENERATE TAPE OUTPUT FILE CONTROLS PAGE 6 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 321 321 JOB GENERATE TAPE OUTPUT FILE CONTROLS 322 322 * THIS IS UPPER LIMIT OF USER GENERATED OUTPUT ROUTINES 323 323 B TUP 4 14500 B P7A 324 324 * HOLD MUST BE IN CORE FOR GENERATION AND INITP 325 325 HOLD DCW #1 *HOLD FILE DEFINITION 1 14504 326 326 DC #43 * 43 14547 327 327 F1 DCW #3 * 3 14550 328 328 F2 DCW #3 * 3 14553 329 329 F3 DCW #3 * 3 14556 330 330 F4 DCW #3 * 3 14559 331 331 DC #25 * 25 14584 332 332 CLRJK2 CS CLRJK2+3 4 14585 / N8H 333 333 CS 1 14589 / 334 334 * 335 335 QTYPEF BCE READN,1,R READ 8 14590 B Q0A 001 R 336 336 BCE END,1,E END 8 14598 B ?0? 001 E 337 337 BCE TITLE,2,I TITLE 8 14606 B R2G 002 I 338 338 BCE TAPEN,1,T TAPEN 8 14614 B O5C 001 T 339 339 NOP 2111 CARD TYPE ERROR 4 14622 N J11 340 340 H 1 14626 . 341 341 * 342 342 *GENERATED TAPE OUTPUT ROUTINES, SAMPLE 343 343 * DS 45 A,B,C CONTROL 344 344 WTAPE2 SBR X1 ,* * IS RECORD TO FILL - 1 4 14627 H 089 345 345 * *,* 346 346 * *,* GENERATED MOVE COMMANDS 347 347 * *,* 348 348 BCE WTAPE,0+1+X1,} Q. END BLOCK, 0 IS REC LNG 8 14631 B F8D 0'1 } GMARK 349 349 SBR WTAPE2+6 SET TO NEXT BLOCK 4 14639 H O3C 350 350 B PASS 4 14643 B C2I 351 351 DCW 2 1 14647 352 352 STD DCW #5 BLOCKCOUNT 5 14652 353 353 *WRITE AREA FOLLOWS WITH 'S, GM, AND WMS 354 354 * 355 355 * 356 356 TAPEN B LDABC LOAD ABC FOR TAPE FILE 4 14653 B ?2C 357 3562 MN HOLD+4,*+4 7 14657 D N0H O6G 358 3564 RWD 2 5 14664 U %U2 R 359 357 LCA WTAPE2+3,4+X3 7 14669 L O3? 0?4 360 358 SBR WHRWT2+3,7+X3 SBR X1,* 7 14676 H O9D 0?7 361 359 SBR X3 4 14683 H 099 362 360 B GETDV 4 14687 B A5I 363 361 WHRWT2 SBR *,22+X3 7 14691 H O9G 0B2 364 362 MLCWA STD 4 14698 L O5B 365 363 MLCWA 1 14702 L 366 364 LCA 1 14703 L 367 365 LCA 1 14704 L 368 366 LCA 1 14705 L 369 367 MN HOLD+4,17+X3 7 14706 D N0H 0A7 370 370 MCW WHRWT2+3,12+X3 MOVE SBR WTAPE2+6 7 14713 M O9D 0A2 GENERATE TAPE OUTPUT FILE CONTROLS PAGE 7 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 371 371 MN F1,TUP+6 7 14720 D N5? P7G 372 372 MN 1 14727 D 373 373 MLC 1 14728 M 374 374 A *-6,F1 7 14729 A P2I N5? 375 375 MN F1,7+X3 7 14736 D N5? 0?7 376 376 MN 1 14743 D 377 377 MLC 1 14744 M 378 378 SBR X3,22+X3 7 14745 H 099 0B2 379 379 QBLOCK S C1,F2 7 14752 S H3E N5C 380 380 BWZ ORC,F2,K 8 14759 V P8F N5C K 381 381 B 1+X2 4 14767 B 0!1 382 382 TUP SBR X3,0+X3 7 14771 H 099 0?0 383 383 MLC CRM 4 14778 M H2G 384 384 B QBLOCK 4 14782 B P5B 385 385 ORC SBR X3,1+X3 7 14786 H 099 0?1 386 386 LCA CGM END OF TAPE OUTPUT FILE GEN 4 14793 L 081 387 387 B QTYPEF 4 14797 B N9? DATA MOVE GENERATION AND MISC CONTROL CARDS PAGE 8 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 388 388 JOB DATA MOVE GENERATION AND MISC CONTROL CARDS 389 389 READN MRCM 1,HOLD 7 14801 P 001 N0D 390 390 BWZ *+5,5,2 Q. TAPE INPUT 8 14808 V Q2? 005 2 391 391 B NOLAB 4 14816 B Q6H 392 392 MN 5,*+4 7 14820 D 005 Q3? 393 393 RWD 1 REWIND INPUT TAPE 5 14827 U %U1 R 394 394 BCE NOLAB,51, Q. TAPE LABEL 8 14832 B Q6H 051 395 395 MN 5,*+4 7 14840 D 005 Q5? 396 396 RT 1,201 READ TAPE LABEL 8 14847 M %U1 201 R 397 397 BER TAPERR 5 14855 B I0A L 398 398 W 1 14860 2 399 399 MRCM 101,201 7 14861 P 101 201 400 400 NOLAB MRCM HIGHM-28,260 7 14868 P H3G 260 401 401 SBR X3,1+X3 7 14875 H 099 0?1 402 402 SBR 293,0+X3 7 14882 H 293 0?0 403 403 W 1 14889 2 404 404 MRCM 130,260 7 14890 P 130 260 405 405 ASTATU SBR X1,* NO WM IN LAST STATUS 7 14897 H 089 R0C 406 406 CW 0+X1 4 14904 ) 0'0 407 407 FABC SBR 0+X1,* FIRST ABC 7 14908 H 0'0 R1D 408 408 SBR X2 INITIALIZE FOR PROCESSING 4 14915 H 094 409 409 B READ 4 14919 B G7? 410 410 B QTYPEF 4 14923 B N9? 411 411 * 412 412 TITLE BCE *+6,6,1 8 14927 B R4? 006 1 413 413 NOP 2121 FIRST TITLE NOT 1 4 14935 N J21 414 414 H 1 14939 . 415 415 MRCM 7,201 7 14940 P 007 201 416 416 R 1 14947 1 417 417 C 6,CTIT 7 14948 C 006 H3D 418 418 BE *+6 5 14955 B R6E S 419 419 NOP 2122 TITLE 2 MISSING 4 14960 N J22 420 420 H 1 14964 . 421 421 LCA CGM,69 7 14965 L 081 069 422 422 MRCM 7,271 7 14972 P 007 271 423 423 CC 1 2 14979 F 1 424 424 WR 1 14981 3 425 425 CCB HEADPG+6,L 5 14982 F 342 L 426 426 AFTIL BCE END2,1,E 8 14987 B ?0H 001 E 427 427 NOP 2124 NO END AFTER TITLE 4 14995 N J24 428 428 H 1 14999 . 429 429 * 430 430 END BWZ HEADPG,SWW,1 8 15000 V 336 091 1 431 431 END2 CS 80 4 15008 / 080 432 432 SW 56,63 7 15012 , 056 063 433 433 R 56 4 15019 1 056 434 434 * 435 435 LDABC SBR LDABCX+3 4 15023 H A5H 436 436 SW 6 4 15027 , 006 437 437 LCA BLK3,45+X3 7 15031 L H2C 0D5 DATA MOVE GENERATION AND MISC CONTROL CARDS PAGE 9 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 438 438 LCA BLK6 LOAD ABC CONTROLS 4 15038 L H2F 439 439 LCA 41 4 15042 L 041 440 440 MRCM 1,HOLD HOLD FILE CARD 7 15046 P 001 N0D 441 441 ANXTAB SBR FABC+6,0+X3 CHAIN NXTABC 7 15053 H R1D 0?0 442 442 S X1+1 4 15060 S 090 443 443 SWABC SW 42+X1 4 15064 , 0U2 444 444 S C4,42+X1 7 15068 S H3F 0U2 445 445 MN 42+X1,*+7 7 15075 D 0U2 ?8H 446 446 SBR X2,0+X3 7 15082 H 094 0?0 447 447 SW 4+X2,8+X2 SET WM FOR LENGTH ABC 7 15089 , 0!4 0!8 448 448 SW 1+X3 SET WM FOR LOCATION 4 15096 , 0?1 449 449 MZ CB,2+X3 INDEX FOR LOCATION 7 15100 Y H6H 0?2 450 450 BCE *+19,X1,2 8 15107 B A3C 089 2 451 451 SBR X1,1+X1 7 15115 H 089 0'1 452 452 SBR X3,12+X3 7 15122 H 099 0A2 453 453 B SWABC 4 15129 B ?6D 454 454 SW 12+X3 SET WM IN STATUS 4 15133 , 0A2 455 455 SBR ASTATU+6,12+X3 LOCATION OF STATUS 7 15137 H R0C 0A2 456 456 SBR ANXTAB+3,21+X3 CHAIN NXT ABC 7 15144 H ?5F 0B1 457 457 SBR X3 4 15151 H 099 458 458 LDABCX B * 4 15155 B A5H 459 459 * 460 460 GETDV SBR GETDVX+3 READ AND ASSEMBLE MOVES 4 15159 H B0H 461 461 SBR X2,SETWM-1 INIT SW STRING, SEE MCW 7 15163 H 094 Y1A 462 462 RCTL B READ 4 15170 B G7? 463 463 S X1+1 SEARCH TABLE OF MOVES FOR TYPE 4 15174 S 090 464 464 QTYPEM C 4,DATAMV+X1 7 15178 C 004 BSG 465 465 BU *+16 5 15185 B B0E / 466 466 MCW DATAMV+3+X1,*+8 7 15190 M BT? B0D 467 467 S X1+1 4 15197 S 090 468 468 B * EXIT TO PROCESS TYPE 4 15201 B B0D 469 469 GETDVX BCE *,DATAMV+4+X1,* EXIT TO FILE ASSEMBLY 8 15205 B B1B BTA * 470 470 SBR X1,7+X1 7 15213 H 089 0'7 471 471 B QTYPEM 4 15220 B A7H 472 472 DATAMV DCW @MLC @ 4 15227 473 473 DCW MCW 3 15230 D6G 474 474 DCW @MLZS@ 4 15234 475 475 DCW MZ 3 15237 E7A 476 476 DCW @MLNS@ 4 15241 477 477 DCW MN 3 15244 E8B 478 478 DCW @BWZ @ 4 15248 479 479 DCW BWZ 3 15251 B8A 480 480 DCW @BCE @ 4 15255 481 481 DCW BCE 3 15258 B9B 482 4812 DCW @CONS@ 4 15262 483 4814 DCW CONST 3 15265 F5B 484 482 DCW @CORE@ 4 15269 485 483 DCW CORE 3 15272 D1E 486 484 DCW @1HDR@ 4 15276 487 485 DCW HDR 3 15279 G4F DATA MOVE GENERATION AND MISC CONTROL CARDS PAGE 10 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 488 486 DCW @*@ 1 15280 489 487 * 490 488 BWZ MCW CBWZ,OP ASSEMBLES 7 15281 M C6G H6G 491 489 B *+8 4 15288 B B9I 492 490 BCE MCW CB,OP 7 15292 M H6H H6G 493 491 SW 6+X1,9+X1 BWZ/BCE *+6,CCC+X3,D 7 15299 , 0'6 0'9 494 492 SW 10+X1 B *+9 4 15306 , 0/0 495 493 MCW 8+X1,20+X3 DCW @B@ 7 15310 M 0'8 0B0 496 494 SBR 17+X3,13+X3 MCW *-1,AAA+X1 7 15317 H 0A7 0A3 497 495 LCA CMCW,14+X3 7 15324 L D7H 0A4 498 496 LCA 9+X1 4 15331 L 0'9 499 497 SBR 12+X3,21+X3 7 15335 H 0A2 0B1 500 498 LCA CB,9+X3 7 15342 L H6H 0?9 501 499 MCW 13+X3 4 15349 M 0A3 502 500 SBR 4+X3,14+X3 7 15353 H 0?4 0A4 503 501 LCA OP,1+X3 7 15360 L H6G 0?1 504 502 CBWZ BWZ *+8,P,1 8 15367 V C8B H2H 1 505 503 MZ CS,19+X3 7 15375 Y H7? 0A9 506 504 MZ CB,6+X3 7 15382 Y H6H 0?6 507 505 SBR X3,20+X3 7 15389 H 099 0B0 508 506 BCE RCTL,14+X1, 8 15396 B A7? 0/4 509 507 SBR X1,8+X1 7 15404 H 089 0'8 510 508 B BCE+7 4 15411 B B9I 511 509 * 512 510 CORE MRCM ORGIS,230 7 15415 P D5G 230 513 511 SBR 242,1+X3 PRINT ORIGIN FOR PATCH 7 15422 H 242 0?1 514 512 MN 8,*+9 7 15429 D 008 D4D 515 513 MN 1 15436 D 516 514 MN 1 15437 D 517 515 SBR X3,0+X3 7 15438 H 099 0?0 518 516 W 1 15445 2 519 517 MRCM 130,230 7 15446 P 130 230 520 518 B RCTL 4 15453 B A7? 521 519 ORGIS DCW @O@ 1 15457 522 520 DC @RIGIN IS@ 8 15465 523 521 DCW @}@ 1 15466 GMARK 524 522 * 525 523 MCW SW 6+X1,9+X1 ASSEMBLES 7 15467 , 0'6 0'9 526 524 SW 12+X1 MCW AAA+X3,CCC+X1 4 15474 , 0/2 527 525 CMCW MCW 14+X1,7+X3 7 15478 M 0/4 0?7 528 526 MCW 8+X1 4 15485 M 0'8 529 527 LCA CMCW 4 15489 L D7H 530 528 MCW 11+X1,0+X2 GENERATE SW STRING TO SW IN 7 15493 M 0/1 0!0 531 529 LCA CSW EACH OUTPUT RECORD OF BLOCK 4 15500 L H7A 532 530 SBR X2 4 15504 H 094 533 531 BWZ *+8,P,1 8 15508 V E2C H2H 1 534 532 MZ CB,3+X2 7 15516 Y H6H 0!3 535 533 BWZ *+8,P,1 8 15523 V E3H H2H 1 536 534 MZ CS,6+X3 7 15531 Y H7? 0?6 537 535 MZ CB,3+X3 7 15538 Y H6H 0?3 DATA MOVE GENERATION AND MISC CONTROL CARDS PAGE 11 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 538 536 SBR X3,7+X3 7 15545 H 099 0?7 539 537 BCE RCTL,15+X1, 8 15552 B A7? 0/5 540 538 SBR X1,9+X1 7 15560 H 089 0'9 541 539 B MCW 4 15567 B D6G 542 540 * 543 541 MZ MCW CMZ,OP 7 15571 M F1B H6G 544 542 B *+8 4 15578 B E8I 545 543 MN MCW CMN,OP ASSEMBLES 7 15582 M H6I H6G 546 544 SW 6+X1 MZ/MN AAA+X3,BBB+X1 4 15589 , 0'6 547 545 MCW 11+X1,7+X3 7 15593 M 0/1 0?7 548 546 LCA OP 4 15600 L H6G 549 547 BWZ *+8,P,1 8 15604 V F1I H2H 1 550 548 CMZ MZ CS,6+X3 7 15612 Y H7? 0?6 551 549 MZ CB,3+X3 7 15619 Y H6H 0?3 552 550 SBR X3,7+X3 7 15626 H 099 0?7 553 551 BCE RCTL,12+X1, 8 15633 B A7? 0/2 554 552 SBR X1,6+X1 7 15641 H 089 0'6 555 5525 B MN+7 4 15648 B E8I 556 553 * 557 553A CONST SW 8,11 7 15652 , 008 011 558 553C MLC 7,X1 7 15659 M 007 089 559 553E MLC BLK3,X1-2 7 15666 M H2C 087 560 553G MLCWA CB,1+X3 7 15673 L H6H 0?1 561 553I MA X1,X3 7 15680 # 089 099 562 553K MLC 10,11+X3 7 15687 M 010 0A1 563 553M BWZ *+8,P,1 8 15694 V G0I H2H 1 564 553O MLZS CS,10+X3 7 15702 Y H7? 0A0 565 553Q MLCWA CMCW,5+X3 7 15709 L D7H 0?5 566 553S SBR 8+X3 4 15716 H 0?8 567 553T MLCWA 10+X1 4 15720 L 0/0 568 553U SBR *+4 4 15724 H G3A 569 553W SBR *,5+X3 7 15728 H G3D 0?5 570 553Y SBR X3,11+X3 7 15735 H 099 0A1 571 5530 B RCTL 4 15742 B A7? 572 554 * 573 555 HDR MN HOLD+4,*+4 7 15746 D N0H G5F 574 556 WT 2,1 8 15753 M %U2 001 W 575 557 BER TAPERR 5 15761 B I0A L 576 558 B RCTL 4 15766 B A7? 577 559 * 578 560 READ SBR READX+3 READ AND LIST CARD 4 15770 H H2? 579 561 CS 80 4 15774 / 080 580 562 R 1 15778 1 581 563 SBR X1,1 7 15779 H 089 001 582 564 READM MRCM 0+X1,200+X1 7 15786 P 0'0 2'0 583 565 SAR X1 4 15793 Q 089 584 566 BCE *+5,X1-1,8 LOOP IF RM IN CARD STOPPED MOVE 8 15797 B H0I 088 8 585 567 B READM 4 15805 B G8F 586 568 W 1 15809 2 587 569 MRCM 101,201 7 15810 P 101 201 DATA MOVE GENERATION AND MISC CONTROL CARDS PAGE 12 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 588 570 READX B * 4 15817 B H2? 589 571 * 590 572 BLK3 DCW #3 3 15823 591 573 BLK6 DC #3 3 15826 592 574 CRM DCW @'@ 1 15827 593 575 P DCW #1 WM WHILE GEN PRINT/PUNCH 1 15828 594 576 CTIT DCW @TITLE2@ 6 15834 595 577 C1 DCW 1 1 15835 596 578 C4 DCW 4 1 15836 597 579 HIGHM DCW @ HIGH LOCATION FOR OUTPUT IS@ 29 15865 598 580 DCW @}@ 1 15866 GMARK 599 581 OP DCW #1 BWZ/BCE, MN/MZ FOR GENERATION 1 15867 600 582 CB B 1 15868 B 601 583 CMN MN 1 15869 D 602 584 CS S 1 15870 S 603 585 CSW SW 1 15871 , 604 586 * 605 587 ORG SIZE-98 15901 606 588 TAPERR SBR COMAND+16 REPEAT 8 CHARACTER TAPE 4 15901 H I9F 607 589 SBR *+4 R/W COMMANDS AFTER ERROR 4 15905 H I1B 608 590 C *,COMAND+13 7 15909 C I1E I9C 609 591 C 1 15916 C 610 592 MCW 1 15917 M 611 593 MN COMAND+17,COMAND+18 7 15918 D I9G I9H 612 594 MN COMAND+3,BACKSP+3 7 15925 D I8C I6? 613 595 REPEAT A *-6,COMAND+18 7 15932 A I3B I9H 614 596 C COMAND+18,COMAND+17 7 15939 C I9H I9G 615 597 BU *+7 5 15946 B I5G / 616 598 H 1 15951 . 617 599 BSS COMAND+13,G 5 15952 B I9C G 618 600 BACKSP CU %U1,B 5 15957 U %U1 B 619 601 BCE COMAND,COMAND+7,R 8 15962 B I8? I8G R 620 602 BL COMAND 5 15970 B I8? T 621 603 CU %U1,E 5 15975 U %U1 E 622 604 COMAND NOP *,*,* 8 15980 N I8G I8G * 623 605 BER REPEAT 5 15988 B I3B L 624 606 B *-3 4 15993 B I9C 625 607 DCW 7 1 15997 626 608 DCW @ @ 1 15998 627 609 EX STARTI B Y2D 628 610 ********************************************************************* 629 611 * CONTROL CARDS HERE IN CONDENSED DECK 630 612 ********************************************************************* INITIALIZE PROCESSING PAGE 13 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 631 613 JOB INITIALIZE PROCESSING 632 614 ORG SIZE-999 15000 633 615 R GETREC+11 CONSTANTS FOR CONVERSION 4 15000 1 C5E 634 616 BCE LOADTR,1,, OF GET TAPE TO READ CARD 8 15004 B B8D 001 , 635 6165 NOP 1 15012 N 636 617 CARD MLCWA *-7,QPAD9 7 15013 L ?1B C6C 637 618 CHAIN 2 MACRO 638 MLCWA 1 15020 L GEN 639 MLCWA 1 15021 L GEN 640 619 S X3+1 4 15022 S 100 641 621 B GETREC+7 4 15026 B C5A 642 622 * 643 623 INITP CS 80 4 15030 / 080 644 624 BCE CARD,HOLD+4,C 8 15034 B ?1C N0H C 645 6245 MZ *-6,ABIT MAKE A-BIT CONSTANT 7 15042 Y ?4B H8H 646 625 MN HOLD+4,RTAPE+3 7 15049 D N0H B1H 647 626 MN HOLD+4,EOT1+3 7 15056 D N0H B6G 648 627 SBR INTBLK+6,0+X3 7 15063 H B5I 0?0 649 628 SBR RTAPE+6,1+X3 SET START OF TAPE INPUT BLOCK 7 15070 H B2A 0?1 650 629 SBR GETBL3+6,13+X3 INIT NOISE TEST 7 15077 H B3D 0A3 651 6295 SBR GETBLK+6 4 15084 H B1D 652 6297 MLC ABIT,GETBL3+7 7 15088 M H8H B3E 653 630 A *-6,F1 7 15095 A ?9E N5? 654 631 MN F1,GETREC+13 7 15102 D N5? C5G 655 632 MN 1 15109 D 656 633 MLC 1 15110 M 657 634 MCW RTAPE+7,GETBL2+7 7 15111 M B2B B4G 658 635 MLC F3,REELS SAVE INPUT REEL COUNT 7 15118 M N5F H9A 659 637 S IPC1,REELS 7 15125 S A5D H9A 660 638 R 1 15132 1 661 639 CS *-4 4 15133 / A3B 662 640 SBR *-4 4 15137 H A3F 663 641 BWZ *-15,HOLD,1 8 15141 V A3C N0D 1 664 642 BIN GETBLK, 5 15149 B B0H 665 643 IPC1 DCW 1 1 15154 PROCESSING ROUTINES, INPUT/OUTPUT, PASS/FAIL PAGE 14 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 666 644 JOB PROCESSING ROUTINES, INPUT/OUTPUT, PASS/FAIL 667 645 ORG *+X00 15200 668 6455 ORGPRO EQU * 15199 669 646 DCW @}@ CORE PROTECTION 1 15200 GMARK 670 647 * THIS IS UPPER LIMIT OF USER TAPE INPUT BLOCK 671 648 *GET NEXT RECORD FROM BLOCKED INPUT TAPE 672 649 NOISE A *-6,NOISEC 7 15201 A B0A 193 673 650 GETBLK MLC ABIT,0+12 INIT ABIT FOR NOISE REC TEST 7 15208 M H8H 012 674 6505 RTAPE RT 1,* * IS READ AREA 8 15215 M %U1 B2B R 675 651 BEF EOT1 5 15223 B B6D K 676 652 GETBL3 BCE NOISE,0+12,^ ABIT Q. NOISE RECORD 8 15228 B B0A 012 ^ 677 654 B *+9 4 15236 B B4H 678 655 GETBL2 RT 1,* CALLING SEQUENCE FOR TAPERR 8 15240 M %U1 B4G R 679 656 BER TAPERR 5 15248 B I0A L 680 657 INTBLK SBR X3,* * IS READ AREA - 1 7 15253 H 099 B5I 681 658 B QPAD9 4 15260 B C6C 682 659 EOT1 RWU 1 INPUT REEL COMPLETED 5 15264 U %U1 U 683 660 S PRC1,REELS Q. ALL REELS 7 15269 S H8I H9A 684 661 BWZ GETBLK,REELS,B 8 15276 V B0H H9A B 685 662 LOADTR SW 56,63 7 15284 , 056 063 686 663 B 56 4 15291 B 056 687 664 SCAN9 MCW X3,X1 FIRST CHAR OF RECORD WAS 9 7 15295 M 099 089 688 665 SBR X1,1+X1 SCAN FOR ALL 9S 7 15302 H 089 0'1 689 666 BCE *-14,1+X1,9 8 15309 B C0B 0'1 9 690 667 BCE GETREC+7,1+X1,' YES, WAS PADDING 8 15317 B C5A 0'1 ' 691 668 B QPAD9+8 NO, PROCESS 4 15325 B C7A 692 669 PASS A *-6,COUNT+X2 7 15329 A C2I 0L7 693 670 SELX BW OUTSEL,STATUS+X2 Q. LAST FILE DEF TESTED 8 15336 V C7A 0L6 1 694 671 GETREC A *-6,RECNT COUNT LAST INPUT RECORD 7 15344 A C4D 187 695 672 BCE GETBLK,0+1+X3,} Q. END OF BLK, 0 IS RECORD LNG 8 15351 B B0H 0?1 } GMARK 696 673 SBR X3 SET TO NEXT RECORD 4 15359 H 099 697 674 QPAD9 BCE SCAN9,1+X3,9 Q. PADDING 8 15363 B B9E 0?1 9 698 675 * 699 676 OUTSEL MCW NXTABC+X2,X2 TEST FOR TRUTH OF A,B,C 7 15371 M 0M3 094 700 6765 BCE IO+X2,AHERE+X2, WHEN AHERE BLK, ACCEPT ALL REC 8 15378 B 0M6 0!1 701 677 MCW AHERE+X2,*+4 7 15386 M 0!1 C9F 702 678 C *,ALOW+X2 7 15393 C C9I 0!4 703 679 BH TSTAF 5 15400 B E5B U 704 680 MCW AHERE+X2,*+4 7 15405 M 0!1 D1E 705 681 C *,AHIGH+X2 7 15412 C D1H 0!8 706 682 BL TSTAF 5 15419 B E5B T 707 683 BCE IO+X2,AB+X2, 8 15424 B 0M6 0J2 708 684 BCE TSTBP,AB+X2,O 8 15432 B D8F 0J2 O 709 685 TSTBL MCW BHERE+X2,*+4 7 15440 M 0J3 D5? 710 686 C *,BLOW+X2 7 15447 C D5C 0J6 711 687 BCE TSTBN,AB+X2,N 8 15454 B E7B 0J2 N 712 688 BH TSTBF 5 15462 B E9F U 713 689 MCW BHERE+X2,*+4 7 15467 M 0J3 D7G 714 690 C *,BHIGH+X2 7 15474 C D8? 0K0 715 691 BL TSTBF 5 15481 B E9F T PROCESSING ROUTINES, INPUT/OUTPUT, PASS/FAIL PAGE 15 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 716 692 TSTBP BCE IO+X2,BC+X2, 8 15486 B 0M6 0K4 717 693 BCE IO+X2,BC+X2,O 8 15494 B 0M6 0K4 O 718 694 TSTCL MCW CHERE+X2,*+4 7 15502 M 0K5 E1B 719 695 C *,CLOW+X2 7 15509 C E1E 0K8 720 696 BCE TSTCN,BC+X2,N 8 15516 B F5F 0K4 N 721 697 BH FAIL 5 15524 B F0D U 722 698 MCW CHERE+X2,*+4 7 15529 M 0K5 E3I 723 699 C *,CHIGH+X2 7 15536 C E4B 0L2 724 700 BL FAIL 5 15543 B F0D T 725 701 B IO+X2 4 15548 B 0M6 726 702 TSTAF BCE TSTBL,AB+X2,O 8 15552 B D4? 0J2 O 727 703 BCE FAIL,AB+X2, 8 15560 B F0D 0J2 728 704 B TSTBF 4 15568 B E9F 729 705 TSTBN BH TSTBP 5 15572 B D8F U 730 706 MLC BHERE+X2,*+4 7 15577 M 0J3 E8G 731 707 C *,BHIGH+X2 7 15584 C E9? 0K0 732 708 BL TSTBP 5 15591 B D8F T 733 709 TSTBF B TSTCL,BC+X2,O 8 15596 B E0B 0K4 O 734 710 FAIL BWZ SELX,STATUS+X2,2 8 15604 V C3F 0L6 2 735 711 BCE SELX,1,, Q. END OF CARDS 8 15612 B C3F 001 , 736 712 MCW AHERE+X2,*+4 7 15620 M 0!1 F3? 737 713 C *,AHIGH+X2 7 15627 C F3C 0!8 738 714 BL *+5 5 15634 B F4C T 739 715 B SELX 4 15639 B C3F 740 716 R 1 15643 1 741 717 MCW 16,AHIGH+X2 7 15644 M 016 0!8 742 718 MCW 1 15651 M 743 719 B OUTSEL+7 4 15652 B C7H 744 720 TSTCN BH IO+X2 5 15656 B 0M6 U 745 721 MLC CHERE+X2,*+4 7 15661 M 0K5 F7A 746 722 C *,CHIGH+X2 7 15668 C F7D 0L2 747 723 BL IO+X2 5 15675 B 0M6 T 748 724 B FAIL 4 15680 B F0D 749 725 * 750 726 *GENERATED WRITE AND TAPERR MUST BE IN CORE FOR PROCESSING 751 727 * AND FOR CLOSE 752 728 *GENERALIZED WRITE OUTPUT BLOCK 753 729 WTAPE SBR X1 4 15684 H 089 754 730 WTAPEL MCW 3+X1,*+4 RESET ROUTINE TO FILL 7 15688 M 0'3 F9H 755 731 SBR *,13+X1 FIRST RECORD OF NEXT BLOCK 7 15695 H G0A 0/3 756 732 MCW 8+X1,*+4 DRIVE 7 15702 M 0'8 G1B 757 733 WT 2,14+X1 8 15709 M %U2 0/4 W 758 734 BER TAPERR 5 15717 B I0A L 759 735 A *-6,13+X1 COUNT TAPE BLOCK 7 15722 A G2B 0/3 760 736 QEOT BEF *+5 Q. EOT 5 15729 B G3H K 761 737 B PASS 4 15734 B C2I 762 738 MN 8+X1,*+4 7 15738 D 0'8 G4H 763 739 WTM 2 TM 5 15745 U %U2 M 764 740 MLC 13+X1,WTCNT 7 15750 M 0/3 H1F 765 741 MLC WTTRL+25,13+X1 7 15757 M H3F 0/3 PROCESSING ROUTINES, INPUT/OUTPUT, PASS/FAIL PAGE 16 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 766 742 MN 8+X1,*+4 7 15764 D 0'8 G7D 767 743 WT 2,WTTRL-4 WRITE TRAILER LABEL 8 15771 M %U2 H0G W 768 744 MN 8+X1,*+4 7 15779 D 0'8 G8I 769 745 WTM 2 TM AFTER TRAILER 5 15786 U %U2 M 770 746 MN 8+X1,*+4 7 15791 D 0'8 H0A 771 747 RWU 2 5 15798 U %U2 U 772 748 WTEX B PASS 4 15803 B C2I 773 749 WTTRL DCW @1EOR @ 80 CHAR TRAILER LABEL 5 15811 774 750 WTCNT DCW #5 5 15816 775 751 DA 1X70,G,C 15817 15886 775 DCW @"@ 1 15888 GMARK 776 752 ABIT DCW #1 1 15888 777 7522 PRC1 DCW 1 1 15889 778 7524 REELS DCW 00 2 15891 779 753 EX INITP B ?3? 780 754 ********************************************************************* 781 755 * CARD INPUT, WHEN USED, HERE 782 756 ********************************************************************* CLOSE FILES, PRINT I/O COUNTS PAGE 17 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 783 757 JOB CLOSE FILES, PRINT I/O COUNTS 784 758 ORG ORGPRO 15199 785 759 ENDPRG SW QEOT+4 MODIFY WT TO CLOSE FILE 4 15199 , G3C 786 760 MLC @F@,WTTRL-1 CHANGE EOR TO EOF 7 15203 M E2C H1? 787 761 BSS *+8,F 5 15210 B B2B F 788 762 MCW CR,WTEX-1 7 15215 M E1F H0B 789 763 SBR WTEX+3,QLAST 7 15222 H H0F C5F 790 764 BWZ PFT,SWW,1 Q. PRINTED OUTPUT 8 15229 V B4A 091 1 791 765 B FINDON+2 4 15237 B B7F 792 766 PFT SBR SWTOT+3,*+5 SWITCH TO FINAL TOTAL 7 15241 H 914 B5B 793 767 B WI1 4 15248 B 870 794 768 MLC FINCNT,COUTT 7 15252 M 795 846 795 769 MCW WI2+6,*+7 7 15259 M 883 B7B 796 770 NOP *,* 7 15266 N B7B B7B 797 771 W 1 15273 2 798 772 FINDON CC 1 2 15274 F 1 799 773 CS 332 4 15276 / 332 800 774 CS 1 15280 / 801 775 MCW CINPUT,250 INPUT COUNT 7 15281 M D9D 250 802 776 MCW RECNT,258 7 15288 M 187 258 803 777 BCE *+15,NOISEC, 8 15295 B C1G 193 804 778 MLC CNOISE,275 7 15303 M E0C 275 805 779 MCS NOISEC,282 7 15310 Z 193 282 806 780 CC T 2 15317 F T 807 781 W 1 15319 2 808 782 CS 1 15320 / 809 783 CS 1 15321 / 810 784 MCW COUT,255 7 15322 M E1E 255 811 785 CC S 2 15329 F S 812 786 W 1 15331 2 813 787 CS 1 15332 / 814 788 CS 1 15333 / 815 789 PCNT MCW NXTABC+X2,X2 7 15334 M 0M3 094 816 790 MCS COUNT+X2,258 7 15341 Z 0L7 258 817 791 BCE BT,IO+X2,H Q. TAPE FILE 8 15348 B C8I 0M6 H 818 792 QLAST W 1 15356 2 819 793 BWZ PCNT,STATUS+X2,1 Q. LAST FILE 8 15357 V C3D 0L6 1 820 794 CC 1 2 15365 F 1 821 795 BWZ *+5,SWP,1 8 15367 V C7I 096 1 822 796 B *+7 4 15375 B C8E 823 797 CS 180 4 15379 / 180 824 798 P 1 15383 4 825 799 P 1 15384 4 826 800 R 40 4 15385 1 040 827 806 BT MCW IO+6+X2,X3 7 15389 M 0N2 099 828 807 MCW X3,X1 7 15396 M 099 089 829 808 BCE *+9,0+X1,} SCAN BACKWARD FOR GM 8 15403 B D1I 0'0 } GMARK 830 809 SBR X1 ON BCE WTAPE,0+1+X1,GM 4 15411 H 089 831 810 B *-15 4 15415 B D0C 832 811 SBR X1,1+X1 SET X1 TO POINT TO CALLING SEQ 7 15419 H 089 0'1 CLOSE FILES, PRINT I/O COUNTS PAGE 18 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 833 812 MN 8+X1,250 7 15426 D 0'8 250 834 813 MCW CTAPE,248 7 15433 M E2? 248 835 814 BWZ QEOT,0+X3,2 Q. NO RECORDS IN THIS BLOCK 8 15440 V G2I 0?0 2 836 815 FILL9 MCW C9,1+X3 SCAN FORWARD TO GM, 7 15448 M E2A 0?1 837 816 BCE *+9,2+X3,' FILL 9 PADDING 8 15455 B D7A 0?2 ' 838 817 SBR X3 4 15463 H 099 839 818 B FILL9 4 15467 B D4H 840 819 BCE WTAPEL,3+X3,} Q. PADDING COMPLETE 8 15471 B F8H 0?3 } GMARK 841 820 SBR X3,2+X3 7 15479 H 099 0?2 842 821 B FILL9 4 15486 B D4H 843 824 CINPUT DCW @INPUT@ 5 15494 844 825 CNOISE DCW @NOISE REC@ 9 15503 845 826 COUT DCW @OUTPUT COUNT@ 12 15515 846 827 CR DCW @R@ 1 15516 847 828 CTAPE DCW @TAPE@ 4 15520 848 829 C9 DCW @9@ 1 15521 849 DCW @F@ 1 15522 DCW @F@ 1 15523 LIT 850 830 EX ENDPRG B A9I LOAD NEXT PROGRAM OR HALT PAGE 19 SEQ PG LIN LABEL OP OPERANDS SFX CT LOCN INSTRUCTION TYPE CARD 851 831 JOB LOAD NEXT PROGRAM OR HALT 852 8315 ORG ORGPRO 15199 853 832 QEOJL BSS EOJ,A 5 15199 B B3? A 854 833 CS 80 4 15204 / 080 855 834 SW 1 4 15208 , 001 856 835 R 1 15212 1 857 836 BCE SORT7,2, 8 15213 B B2E 002 858 837 B 1 4 15221 B 001 859 838 *SORT7 SORT7 860 SORT7 B X0K001 4 15225 B I5A 861 H 1 15229 . 862 X0J001 ORG 15951 15951 863 X0K001 SW 1 4 15951 , 001 864 CS *-4 4 15955 / I5D 865 SBR *-4 4 15959 H I5H 866 BWZ X0K001+4,1,1 8 15963 V I5E 001 1 867 B *+2 4 15971 B I7F 868 DCW @ @ 1 15975 869 X0L001 RWD 1 5 15976 U %U1 R 870 RTW 1,1 8 15981 L %U1 001 R 871 BER X0L001 5 15989 B I7F L 872 B 2701 4 15994 B P01 873 ORG X0J001 15230 874 839 EOJ NOP 2888 EOJ HALT 4 15230 N Q88 875 840 H 1 15234 . 876 841 B EOJ 4 15235 B B3? 877 842 H 1 15239 . 878 843 END QEOJL / A9I 080 LOAD NEXT PROGRAM OR HALT PAGE 20 SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS SYMBOL ADDRESS AB 12 ABIT 15888 AFTIL 14987 AHERE 1 AHIGH 8 ALOW 4 ANXTAB 15053 ASTATU 14897 BACKSP 15957 BC 24 BCE 15292 BHERE 13 BHIGH 20 BLK3 15823 BLK6 15826 BLOW 16 BT 15389 BWZ 15281 C1 15835 C4 15836 C9 15521 CARD 15013 CB 15868 CBWZ 15367 CCC 14425 CGM 81 CHEAD1 14431 CHEAD2 14437 CHEAD3 14443 CHEAD4 14449 CHERE 25 CHIGH 32 CINPUT 15494 CLOW 28 CLRJK2 14585 CLRJK3 14496 CLRJNK 14474 CLRP 14418 CMCS 14450 CMCW 15478 CMN 15869 CMZ 15612 CNN 14452 CNOISE 15503 COMAND 15980 CONST 15652 CORE 15415 COUNT 37 COUT 15515 COUTT 846 CP 14453 CPRINT 14458 CPROG 14465 CPUNCH 14470 CR 15516 CRM 15827 CS 15870 CSS 14471 CSW 15871 CTAPE 15520 CTIT 15834 CW 14473 DATAMV 15227 DOSET 13816 EJ 14220 END 15000 END2 15008 ENDPRG 15199 EOJ 15230 EOT1 15264 F1 14550 F2 14553 F3 14556 F4 14559 FABC 14908 FAIL 15604 FILL9 15448 FINCNT 795 FINDON 15274 GENH 13872 GETBL2 15240 GETBL3 15228 GETBLK 15208 GETDV 15159 GETDVX 15205 GETREC 15344 HC 653 HDR 15746 HDX 383 HEADPG 336 HIGHM 15865 HL1 388 HL2 520 HOLD 14504 HSP1 363 HSP2 373 INITP 15030 INTBLK 15253 IO 46 IPC1 15154 LDABC 15023 LDABCX 15155 LOADTR 15284 MCW 15467 MN 15582 MZ 15571 NOHL3 14049 NOISE 15201 NOISEC 193 NOLAB 14868 NOSEQ 14242 NOTOT 14131 NSTACK 14393 NXTABC 43 OP 15867 ORC 14786 ORGIS 15457 ORGPRO 15199 ORGSZ2 14001 ORGSZE 15000 OUTSEL 15371 P 15828 PAGECT 789 PASS 15329 PCNT 15334 PFT 15241 PPAGE 356 PRC1 15889 PRINT 915 QBLOCK 14752 QEOJL 15199 QEOT 15729 QLAST 15356 QPAD9 15363 QPRINT 14063 QPUNCH 14322 QTYPEF 14590 QTYPEM 15178 RCTL 15170 READ 15770 READM 15786 READN 14801 READX 15817 RECNT 187 REELS 15891 REPEAT 15932 RTAPE 15215 SCAN9 15295 SELX 15336 SEQCHK 804 SETWM 13812 SIZE 15999 SORT7 15225 STARTI 13824 STATUS 36 STD 14652 SWABC 15064 SWP 96 SWTOT 911 SWW 91 TAPEN 14653 TAPERR 15901 TITLE 14927 TSTAF 15552 TSTBF 15596 TSTBL 15440 TSTBN 15572 TSTBP 15486 TSTCL 15502 TSTCN 15656 TUP 14771 WHRWT2 14691 WI0 850 WI1 870 WI2 877 WI3 895 WI4 900 WI5 907 WTAPE 15684 WTAPE2 14627 WTAPEL 15688 WTCNT 15816 WTEX 15803 WTTRL 15811 X0J001 15230 X0K001 15951 X0L001 15976 X1 89 X2 94 X3 99