# Copyright: Public domain. # Filename: YUL_SYSTEM_MANUFACTURING_-_BLK2.mitigus # Purpose: Part of the source code for YUL (revision 9). # Assembler: TBD # Contact: Jim Lawton # Website: https://www.ibiblio.org/apollo/index.html # Page scans: https://archive.org/details/yulsystemsourcec00hugh # Pages: 631-671 # Mod history: 2016-10-06 JL Created. # 2017-02-01 JL Transcribed pages 631-644. # 2017-02-03 JL Transcribed pages 645-662. # 2017-02-04 JL Transcribed pages 663-667. # 2017-02-04 JL Transcribed pages 668-671. # Annotations: # # B L A I R - S M I T H # Y U L S Y S T E M # # Listings in # MITIGUS Format # # Note: Page numbers are scan page numbers rather than listing. L @YUL SYSTEM MANUFACTURING - BLK2 # Page 631 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 1 PAGE 56 R0001 WE ARE DEEPLY INDEBTED TO THE ONE, THE ONLY, THE GREAT JOHN SHAW FOR THE FOLLOWING STRONG MAGIC.... R0003 JSOCTL 0004 SETLOC,1 0 B2 0005 MASKGRP,1 S,1 F,1 R0006 THIS BLK2 MANUFACTURING PROGRAM IS LOADED IN RESPONSE TO A WELL-FORMED YUL DIRECTOR CARD SPECIFYING R0008 MANUFACTURING FOR A CORRECTLY ASSEMBLED BLK2 PROGRAM. IT COMMUNICATES WITH SUBROUTINES IN PASS 0 AS WITH A R0010 MONITOR. IT EXAMINES ONE OR MORE SUBDIRECTOR CARDS ("S" IN COLUMN 1) TO DETERMINE THE TASK REQUIRED. SUBDIREC- R0012 TOR CARDS OBEY THE SAME SYNTACTICAL RULES AS DIRECTOR CARDS. EXAMPLES OF ALL CURRENTLY AVAILABLE TYPES FOLLOW: R0014 S PUNCH 36K CORE ROPE SIMULATOR TAPE R0015 S PUNCH RAYTHEON WIRING TAPE R0016 S PUNCH RAYTHEON TESTER TAPE R0017 S PUNCH MASTER DECK R0018 S PUNCH SYMBOL TABLE R0029 *S PUNCH SYMBOL TABLE AND MASTER DECK R001901*S PUNCH SIMULATION DECK R00191 S COPY ONTO WORKER (USED WITH COMPARE, BELOW). R00192 S COMPARE PROGRAM PROGNAME FROM WORKER (PROGNAME IS NAME OF COPIED PROGRAM). R0020 FOR ALL TAPE PUNCHING A *USE* SUBDIRECTOR IS AVAILABLE. SEE PAGE 23. R0021 FOR WIRING AND TESTER TAPE RUNS A *MODULE DECK NUMBERS* SUBDIRECTOR IS REQUIRED. SEE PAGE 24. R0023 AN OPTIONAL FEATURE EXISTS FOR PRINTING OUT THE RESULTS OF A TAPE/CARD PUNCHING RUN AND/OR SUPPRESSING PUNCHING. R0025 SEE PAGE 30. R0026 FOR ALL TAPE PUNCHING A *PARAGRAPH* SUBDIRECTOR IS REQUIRED. SEE P 21. 0027 BLK2 MANU TS BANK 1 Z,X0 WHAT SUBD THIS ORDER IS AT BASE ADDR. OF PROGRAM. R0029 MAIN PART OF PROGRAM FOLLOWS CONSTANTS, ETC. # Page 632 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 2 PAGE 57 P0030 FIELD AND SHIFT MASKS FOR BLK2 MANUFACTURING. 0031 B,D3D4 DEC 00GG 0032 B,CHAR6 OCT -77 0000 0033 B,CHAR8 OCT -77 0034 B,C4T7 OCT -7777777700 0035 B,CHAR5 OCT -77000000 0036 B,LOADG OCT -101 0037 B,B42 OCT -100 0038 B,B21T24 OCT 00000017 0039 B,B14T24 OCT 00003777 0040 B,C1T3 OCT 777777 0041 B,C5T8 OCT -77777777 0042 B,C1T6 OCT 7777 7777 7777 0043 B,CAC3 DEC -GGGG 0044 B,BIT MASK OCT 0 0045 B,ONES DEC GGGG GGGG GGGG 0046 B,ONE DEC -1 0047 B,TWO OCT -2 0048 B,THREE DEC -3 0049 B,FOUR DEC -4 0050 B,SEVEN DEC -7 0051 B,EIGHT DEC -8 0052 B,B44T48 OCT -37 0053 B,C1T4 OCT 77777777 00532 B,C7T8 OCT -7777 00533 B,BANBITS OCT -760 0000 00534 *B,B1T 7 OCT 004 # Page 633 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 3 PAGE 58 P0054 FURTHER SHIFT MASKS 0057 S,C2T3 OCT 007777 0058 S,C4578 OCT -7777007777 0060 S,D12 DEC -G 0061 S,CHAR1 OCT 77 0063 S,D4T7 DEC 000GGGG 0065 S,ACD2 OCT 0017 0071 S,1 C5 OCT -0100 0000 0072 S,1 C6 OCT -01 0000 0074 S,ACO1 OCT 07 0075 S,ACO2 OCT 0007 0076 S,ACO3 OCT 000007 0077 S,ACO4 OCT 00000007 0078 S,ACO5 OCT -700 0000 0079 S,ACO6 OCT -7 0000 0080 S,ACO7 OCT -700 0081 S,C1T2 OCT 7777 0082 S,CHAR3 OCT 000077 0085 S,B45T47 OCT -16 0087 S,B43T47 OCT -76 0088 S,B41 OCT -200 0089 S,B12 OCT 0001 # Page 634 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 4 PAGE 59 P0091 ALPHABETIC CONSTANTS. 009199*W BAD WORD ALF BADWORD 0092 BLANKS ALF 0093 W NASA ALF NASA 0094 W CORE ALF CORE 0095 W ROPE ALF ROPE 0096 W SMULATO ALF,2 SIMULATOR 0098 W TAPE ALF TAPE 0099 W RATHEON ALF RAYTHEON 0100 W WIRING ALF WIRING 0101 W TESTER ALF TESTER 0102 W ACM ALF ACM 0107 W CARD OUT ALF,2 CARD OUTPUT SENT 0108 *WSIMLATN ALF,2 SIMULATION 0111 W PAPER TA ALF,3 PAPER TAPE OUTPUT SENT # Page 635 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 5 PAGE 60 P0112 ALPHABETIC CONSTANTS CONTINUED. 0113 OCT 0 0114 CARDS ALF,5 0115 ALF,5 0116 OCT 0 0117 CARD ALF,5 L0000004BLK2 MASTER DECK 0118 ALF,5 1ST PARAGRAPH 01185 *SIM CARD ALF,3 L 4AGC SIM DECK OF 0119 ALF 370 ALF 370 0120 W PARAGRA ALF,2 PARAGRAPH 0121 RC1&2C8 ALF R 2 0122 RC1&8C8 ALF R 8 01221 *E COMMA XX ALF E0,0000 01222 *4 ZEROS ALF 0000 01223 *OCT FORM ALF 77777 01224 *W OCT ALF OCT 01225 *FBANK 00 ALF 00, 0123 W SYMBOL ALF SYMBOL 0124 W TABLE ALF TABLE 0125 W AND ALF AND 0126 W MASTER ALF MASTER 0127 W DECK ALF DECK 0128 W END DECK ALF,3 END OF BLK2 MASTER DECK 0129 W END SYMT ALF,3 END OF SYMBOL TABLE 0131 W PARAGRF ALF,2 PARAGRAPH 0132 W CRW ALF C R W 0133 W CRT ALF C R T 0134 W USE ALF USE 0135 W PINK ALF PINK 0136 W OILED ALF OILED 0137 W PAPER ALF PAPER 0138 W BLACK ALF BLACK 0139 W BLUE ALF BLUE 0140 W MYLAR ALF MYLAR 0141 W GRAY ALF GRAY 0142 W GREY ALF GREY 0143 W FIBER ALF FIBER 0144 W ALUMINM ALF ALUMINUM 014401 W DIGSTOR ALF,2 DIGISTORE 01441 W ONTO ALF ONTO 01442 W FROM ALF FROM 01443 W WORKER ALF WORKER 01444 W PROGRAM ALF PROGRAM 0145 W MODULE ALF MODULE 0146 W NUMBERS ALF NUMBERS 0147 W ALL ALF ALL 0148 W THRU ALF THRU 0149 W THROUGH ALF THROUGH 0150 W TESTING ALF TESTING 0151 W NOPUNCH ALF NOPUNCH 0152 W LIST ALF LIST 0155 W36K ALF 36K 0156 WB3 36K ALF 36K # Page 636 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 6 PAGE 61 0157 W HEAD ALF HEAD 0158 W TAIL ALF TAIL 0159 W PUNCHED ALF PUNCHED 0160 EBK ALF E-BANK 0 0161 EBNK ALF EBK0 0162 NO MDN MSG ALF,5 MODULE DECK NUMBERS SUBDIRECTOR MISSING. 0163 ALF ABORT 01631 CMPAR MSG ALF,3 COMPARE FROM WORKER 016312 CMPR LINE ALF,3 COMPARING FOR BLK2: 01632 COPY MSG ALF,2 COPY ONTO WORKER 016322 COPY LINE ALF,3 COPYING FOR BLK2: 01633 E COPY MSG ALF,5 COPYING DONE. NEXT TASK COMPARES A PROGR 01634 ALF,2 AM WITH THIS ONE 01635 E CMPR MSG ALF,2 COMPARING DONE. 0164 CHK M MSG ALF,5 MODULE DECK NUMBER NEEDED FOR MODULE 0165 X MDN MSG ALF,5 NOT TO BE WIRED MODULE ASSIGNED DEC 01651 ALF K NUMBER # I wonder if the ½ in the line below was really meant to be a question mark? 01659 NO WT2 MSG ALF,5 YULWRK2 MISSING. WASN'T COPY TASK DONE½ 01661 CMPFL MSG ALF,5 PARAGRAPH 000 FAILED COMPARISON FOR T 01662 ALF,5 HESE PARAGRAPH RELATIVE LOCATIONS 0167 PRTTP MSG ALF,4 PUNCH RAYTHEON TESTER TAPE 01673 C FIRST RC ALF,5 PROGRAM 000 BLK2 COPY COMPARE WORKE 01674 ALF,4 R 0168 EXCES MSG ALF,4 EXCESS SUBDIRECTOR ENCOUNTERED 0169 P36KT MSG ALF,5 PUNCH 36K CORE ROPE SIMULATOR TAPE 0170 CRWT MSG ALF,5 COMPUTER BLK2 MODULE DECK NUMBER NNNN 0171 ALF,5 MODULE 0A STRAND 00 WIRES YYYYYYYY 0172 36KSM MSG ALF,5 COMPUTER BLK2 MODULE 0A BANK 00 0173 ALF FEB 0 0174 PRWTP MSG ALF,4 PUNCH RAYTHEON WIRING TAPE 0175 2 LONP MSG ALF,3 PARAGRAPH NO. TOO LONG 0176 UNOPN MSG ALF,3 PARAGRAPH NO. NOT OCTAL 0177 ILLPN MSG ALF,3 ILLEGAL PARAGRAPH NO. 0178 DUPPN MSG ALF,3 DUPLICATE PARAGRAPH NO. 0179 PNHER MSG ALF,3 PARAGRAPH 000 NOT HERE 0180 NO GUD MSG ALF,2 NO GOOD REQUESTS 01801 *SMDSO MSG ALF,5 SIMULATION DECK IS FOR SEGMENTS ONLY 0181 E MEM ALF,2 E - MEMORY 0182 SYMBL MSG ALF,3 PUNCH SYMBOL TABLE 0183 SYMAS MSG ALF,5 PUNCH SYMBOL TABLE AND MASTER DECK 01831 *SIMDK MSG ALF,3 PUNCH SIMULATION DECK 0184 NO SYM MSG ALF,3 PROGRAM HAS NO SYMBOLS 0185 PALL MSG ALF,5 *PARAGRAPH ALL* CARD INVALIDATED BY PREV 0186 ALF,2 IOUS CARD 0187 NASA MSG ALF,5 RAYTHEON TAPE PUNCHING REQUIRES NASA DWG 0188 ALF NUMBER # Page 637 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 7 PAGE 62 P0189 ALPHABETIC CONSTANTS CONTINUED. 0190 END PARAG ALF,5 END OF PARAGRAPH NEXT PA 0191 ALF RAGRAPH 0192 BLK2 NAME ALF BLK2 0193 BLKC1C8 ALF 000000 0194 EMPTY WD ALF 777771 0195 PMSTR MSG ALF,3 PUNCH MASTER DECK 0196 PH NUMBER ALF 777=2B00 0197 WIRE NOS ALF,4 1-16 17-32 33-48 49-64 0198 ALF,4 65-80 81-96 97-112 113-128 0199 ALF,4 129-144 145-160 161-176 177-192 0200 *W EDRUPT ALF EDRUPT 02001 *W EXTEND ALF EXTEND 02002 *W INHINT ALF INHINT 02003 *W RELINT ALF RELINT 02004 *W RESUME ALF RESUME 02005 *W EXERASE ALF EXERASE 0201 *OP CODES ALF TC 02011 * SPEC CCS TCF - 02012 * SPEC DAS ETC 02013 * ALF,2 CA CS 02014 * SPEC INDEX ETC 02015 * ALF,2 AD MASK 02016 * SPEC DV BZF - 02017 * SPEC MSU ETC 02018 * ALF,3 DCA DCS INDEX 02019 * SPEC SU BZMF - 0202 * ALF MP 0203 *CHAN OPS ALF,4 READ WRITE RAND WAND 02031 * ALF,3 ROR WOR RXOR 0204 *CCS TCF ALF,2 CCS TCF 0205 *DAS ETC ALF,4 DAS LXCH INCR ADS 0206 *INDEX ETC ALF,4 INDEX DXCH TS XCH 0207 *DV BZF ALF,2 DV BZF 0208 *MSU ETC ALF,4 MSU QXCH AUG DIM 0209 *SU BZMF ALF,2 SU BZMF # Page 638 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 8 PAGE 63 P0213 NUMERIC CONSTANTS FOR BLK2 MANUFACTURING. 0214 *TCF 7777 OCT -37776 0215 C1C8 OCT 7700 0000 0000 0077 0216 C2T7 OCT 0077 7777 7777 77 0217 BANEOFRI OCT -420 0000 0219 THREAD 11 OCT -3777 0220 D2 DEC 0G 0221 1 D2 DEC 01 0222 1 D4 DEC 0001 0223 7 D2 DEC 07 0224 4 C6 OCT -4 0000 0225 ZERO OCT 0 0227 SIX OCT -6 0228 FIVE OCT -5 0229 NINE DEC -9 0231 ELEVEN FXBIN -11 0233 THIRTY FXBIN -30 0234 C32 FXBIN -32 0235 DEC 0033 DEC 0033 0237 C255 FXBIN -255 0238 C256 FXBIN -256 0239 OCT 00047 OCT 00047 0240 DEC M 16 DEC -16 02402 OCT INC OCT 000071 0245 WIR TENS DEC -10 0246 X UNITS DEC -20 0247 WIR HUNDS DEC -30 0248 X TENS DEC -40 0249 WIR UNITS DEC -50 0250 SPEC FRAM DEC -60 0251 FEED 1T7 DEC -7G 02511 B1 OCT 4 0252 2 C5 OCT -0200 0000 02522 OCT 17 OCT -17 02524 *OCT 117 OCT -117 02526 *OCT 3776 OCT -3776 02527 *OCT 10000 OCT -10000 02528 *OCT 2776 OCT -2776 02529 *OCT 17777 OCT -17777 0253 OCT 157 OCT -157 0254 OCT 60 OCT -60 0255 OCT 240 OCT -240 0256 OCT 37 OCT -37 0257 OCT 27 OCT -27 0266 B24K OCT 00000001 0267 B 34 OCT -40000 0268 B23K OCT 00000002 0261 B30 OCT -1000000 0269 B23T24K OCT 00000003 0264 OCT 66 OCT -66 0265 OCT 217 OCT -217 0270 B22K OCT 00000004 # Page 639 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 9 PAGE 64 02661 B22B24K OCT 0000 0005 02662 *RESUME WD OCT -50017 0271 K6M OCT -6 0272 CORE 000 OCT -1 00000 0273 CORE 400 OCT -1 00400 0276 STOP OCT -200 0277 RESET OCT -140 0278 SENSE A OCT -300 0279 SENSE B OCT -240 0280 CORE NO A OCT -040 0281 CORE NO B OCT -100 0282 87 PUNCH OCT -300 0283 STOP36K OCT -301 0285 FS OCT -361 0287 DATA OCT -340 0288 Z UNITS DEC -80 # Page 640 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 10 PAGE 65 P0289 ADDRESS CONSTANTS. 0290 L RSPEX P8 SPEC R SPECS +8 0291 R SPECS SPEC, B3 262 - 0292 SPEC, B3 DAMN ZERO 0293 SPEC, B3 198 0294 SPEC, B3 64 - 0295 SPEC, B3 132 0296 SPEC, B3 130 - 0297 SPEC, B3 196 - 0298 SPEC, B3 66 0299 L END RASS SPEC, B3 263 0300 R SPECSP SPEC,B3 262 0301 BANK 1 SPEC,B1 DAMN ZERO 0302 BLK2 MSKS MASKBASE S,1 F,1 0303 L B2 SUBDS SPEC B2 SUBDRS 0304 L NEX PARH SPEC NEXT PARH 0305 L CARDS SPEC CARDS 0306 CARDS P10 SPEC CARDS +10 0307 CARD WD2 SPEC CARD +1 0308 CARD WD10 SPEC CARD +9 0309 *L OP CODES SPEC OP CODES 03091 *L CHAN OPS SPEC CHAN OPS 0310 ST WIR CAC CAC WIRENOS -1 0311 L REQ LIST SPEC REQ LIST 0312 L CPY AREA SPEC COPY AREA 0313 L ARTSDK N CAC W CRT ARTS DK NO 0314 END SUBDS SPEC LAST SDRC # Page 641 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 11 PAGE 66 P0315 RESERVATIONS. 0316 WIRE NO RESERVE 1 0317 REQ LIST RESERVE 240 0318 OCT 0 0320 BEGIN ADR RESERVE 1 0321 SS FWA RESERVE 1 0322 LAST FWA RESERVE 1 0323 MDN MARK RESERVE 1 0324 KCOMMON RESERVE 10 0325 FIRST WD RESERVE 1 0326 E 256 LOC RESERVE 1 0327 HOLD LOC RESERVE 1 0328 IN OR OUT RESERVE 1 0329 BANK NUM RESERVE 1 0330 LAST BANK RESERVE 1 0331 ALLOW E RESERVE 1 0332 STOP BANK RESERVE 1 0333 MASTR TOO RESERVE 1 0334 PARA DEEP RESERVE 1 0335 TEST INST RESERVE 1 0336 SENSE RESERVE 1 0337 DELTA FWA RESERVE 1 # Page 642 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 12 PAGE 67 P03438 EQUIVALENCES 0339 DAMN ZERO EQUALS 0 0342 SPRA EQUALS 128 0343 SPRAMR EQUALS 384 0344 SPRAM EQUALS 896 0345 ALPHA EQUALS 0 0346 BINARY EQUALS 16 0348 PARAG NO EQUALS BEGIN ADR 0349 REQ PLACE EQUALS SS FWA 0351 STIK WIRE EQUALS LAST FWA # Page 643 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 13 PAGE 68 P0353 ASSIGNMENTS FOR BLK2 MANUFACTURING. 0354 SWITCH ASSIGN 0,2 0355 L AUTH NAM ASSIGN 0,51 0357 YUL TYPER ASSIGN 0,63 0358 RD SBDIRC ASSIGN 0,65 0359 HOWZAT ASSIGN 0,66 0360 PCH LEDER ASSIGN 0,67 0361 IGN SUBDR ASSIGN 0,68 0362 UNRC SBDR ASSIGN 0.69 0363 E SYLT OK ASSIGN 0,70 0364 FETCH SS ASSIGN 0,71 0366 PCH TITLE ASSIGN 0,73 0367 MANUF RTN ASSIGN 0,76 0368 YUL MASKS ASSIGN 0,77 0369 OCTAL 20 ASSIGN 0,78 0370 WHODUNIT ASSIGN 0,80 0371 6 COMMA 19 ASSIGN 0,81 0372 L DIRECTY ASSIGN 0,83 0374 FRAME ASSIGN 0,85 0375 TYP ABORT ASSIGN 0,89 0376 L OBJC MSG ASSIGN 0,90 0377 REJEC DIR ASSIGN 0,91 0378 YUL D2A ZS ASSIGN 0,119 0379 SYMS OR NO ASSIGN 0,124 03791 DISASTER ASSIGN 0,126 0380 MON TAPE ASSIGN 7,1 0381 MON PEEK ASSIGN 7,3 03812 PHI SNACH ASSIGN 7,2 0382 EOR ASSIGN 7,4 0383 MON READ ASSIGN 7,15 0384 PHI PRINT ASSIGN 7,23 03842 MON EOFRI ASSIGN 7,31 0385 MON TADDR ASSIGN 7,223 0386 MON TYPER ASSIGN 7,215 # Page 644 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 14 PAGE 69 P0387 PROCEDURE TO DETERMINE WHICH SUBDIRECTOR WAS SUBMITTED. 0388 WHAT SUBD SETLOC 0390 BLK2 MSKR TX BLK2 MSKS - Z,MXR 0291 TX L B2SUBDS - Z,X4 BASE OF BLK2 MANUFACTURING SUBDIRECTORS. 0393 COMP SDRC NA N,X4,1 6,16 TRY SDREC COMPARE FIRST WORD ON SUBDIRECTOR CD. 0395 NA, C1T6 4,0 6,17 TRY SDREC DEMAND 14-CHARACTER MATCH. 0397 SS N,X4 THREAD 11 C,+1 0398 TS 6 COMMA 19 Z,X5 SET TO LOOK AT 2ND WORD, GO TO TASK. 0400 TRY SDREC NA Z,X4,1 END SUBDS COMP SDRC BRANCH IF THERE ARE MORE TO LOOK AT. 0402 TS 6 COMMA 19 Z,X5 BAD SD SET UP TO CUSS 1ST WD, ABORT TASK. R0404 TABLE OF 14-CHARACTER SUBDIRECTOR FIRST WORDS FOR BLK2. 0405 B2 SUBDRS ALF PUNCH PUNCH CARDS OR PAPER TAPE. 0407 M,A, A, A, BLK2 PNCH 04071 ALF COPY COPYING JOBS 04072 M,A, A, A, BLK2 COPY 04073 ALF COMPARE COMPARING JOB 04074 LASTSDRC M,A, A, A, BLK2 CMPR R0408 FATAL EXIT ROUTINE FOR BAD SUBDIRECTORS 0409 BAD SD WD Z,X5 THREE WHO DUN IT STEP X5 DOWN ONE WORD. 0411 HOW ZIS TS YUL MASKS Z,MXR HOW ZAT EXIT FOR FATAL CUSS OF SUBDIRECTOR WORD. 0413 BAD SD2 TS Z,X5,2 - BAD SD 0414 BAD SDN TS Z,X5 WHO DUN IT HOW ZIS 0415 BAD SD6 TS Z,X5,6 - BAD SD # Page 645 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 15 PAGE 70 P0416 *PUNCH 36K CORE ROPE SIMULATOR TAPE* SUBDIRECTOR ROUTINE HERE. R0417 EACH BANK IS COMPLETE ON ONE PIECE OF PAPER. R0418 ATLEAST ONE OF THE SUBDIRECTORS *PARAGRAPH* IS REQUIRED. SEE PAGE 21. R0419 SUBDIRECTOR *USE* IS OPTIONAL. SEE PAGE 23. R0420 SUBDIRECTOR *TESTING* IS OPTIONAL. SEE PAGE 30. 0421 BLK2 PNCH TN N,X5,3 2 KCOMMON 0422 NA KCOMMON W 36 K RAYTH PQ 0423 TS Z,SC HOLD LOC P24T36K GO CHECK REST OF SUBDIRECTOR 0425 S,MON TYPER P36KT MSG SPRA +40 C,+1 0426 TS Z,SC HOLD LOC READ A REQ GO READ TASK SUBDIRECTORS 0428 NEXT PARH TS Z,SC Z,X5 GET REQ PN GO LOCATE PARA IN BINARY RECORDS 0430 TS - - DNE BANKS RETURN HERE WHEN ALL PARAS DONE 04312 LA OCT 240 PARAG NO DNE BANKS STOP AFTER LAST BANK IN ROPE MEMORY. 0432 SWE,CAC3 PARAG NO 2 BANK NUM SET 1/4(PARAG NUM) INTO BANKNUM. 0434 LA PARAG NO SEVEN ERAS BANK JUMP IF ERASABLE PARAGRAPH 0436 TX BANK NUM - KCOMMON +4 0437 LA PARAG NO D12 C,+2 JUMP IF FIXED FIXED PARAGRAPH 0439 WD KCOMMON +4 FOUR KCOMMON +4 OBTAIN FIXED BANK BANK NUMBER 0445 LA STOP BANK ZERO NO FINIS JUMP IF FIRST TIME HERE 0447 LA BANK NUM LAST BANK SME BANK JUMP IF BANK HAS NOT CHANGED 0449 WA LAST BANK ONE LAST BANK 0450 SWE,CAC3 LAST BANK 10,L KCOMMON +1 0451 TS C,+1 CHKS ZERO CHKS ZERO 0452 LA KCOMMON +1 KCOMMON C,+1 0453 TX N,SC,1 - CHKS ZERO 0454 LA KCOMMON +1 KCOMMON SEND PARK GO FILL IN PARAG END WITH ZEROES 0456 TS Z,SC,1 - DONE BANK GO SEND TAIL MESSAGE 0458 NO FINIS TX ONE - STOP BANK 0459 TN 36KSMMSG 6 TITLE MSG +4 INSERT TITLE MESSAGE 0461 SWS,CHAR3 STIK WIRE A,2,L TITLE MSG +7 0462 NA,ONE PARAG NO ONE C,+2 0463 SWS,ACO4 TITLE MSG +7 1,L TITLE MSG +7 INSERT MODULE NUMBER IN TITLE MESSAGE 0465 SWS,ACO7 KCOMMON +4 3,L TITLE MSG +8 INSERT BANK NUMBER IN TITLE MESSAGE 0467 TX,SEVEN KCOMMON +4 - TITLE MSG +8 0468 SWS, ACO7 THREE A,1,L TITLE MSG +9 0469 LA PARAG NO OCT 217 C,+2 0470 SWS, ACO7 FOUR A,1,L TITLE MSG +9 0471 TS WB3 36K FRAME GO TITLE H GO SEND TAPE PARAGRAPH LEADING MESSAGE 0473 TX FS - FRAME SEND 361 FOR REGULAR BANKS 0475 LA PARAG NO OCT 217 C,+3 04752 WD K COMMON +4 EIGHT K COMMON +4 0476 SM FRAME EIGHT FRAME SEND 371 FOR SUPER BANK 4 RANGE 0478 TS - - CHK PARIT C 0479 TX LOAD G - FRAME 0480 SWS,B43T47 KCOMMON +4 1,L FRAME SET BANK BITS IN CODE 0482 NON BANK TS - - CHK PARIT C SEND ONE FRAME 0484 SWE,CAC3 BANK NUM 10,L K COMMON BASE ADDR OF CURRENT BANK 0486 TX BANK NUM - LAST BANK 0487 SME BANK SWE,CAC3 PARAG NO 8,L KCOMMON +1 BASE ADDR OF CURRENT PARAGRAPH 0489 CHKS ZERO LA KCOMMON +1 KCOMMON SEND PARK JUMP IF SIMULATOR ADDR IN PARAGRAPH 0491 * TS FEED 1T7 FRAME CHK PARIT C OTHERWISE SEND OUT A TCF 7777 WITH 0493 * TS FEED 1T7 FRAME CHK PARIT C ODD PARITY 0495 * TS OCT 117 FRAME CHK PARIT C 0496 WA KCOMMON ONE KCOMMON # Page 646 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 16 PAGE 71 0497 TS - - CHKS ZERO 0498 SEND PARK WA KCOMMON +1 C 256 KCOMMON +1 BASE ADDR OF NEXT PARAGRAPH 0500 WA Z,X1 THREE Z,R1 R1 SET TO PARAGRAPH FIRST WORD 0502 SND WORD LA KCOMMON +1 KCOMMON NEXT PARH JUMP IF SIMULATOR ADDR OUT OF PARAGRAPH 05032 * EX N,R1 CAC3 KCOMMON +2 05034 * NA KCOMMON +2 ZERO C,+2 05036 * SS TCF 7777 CAC3 N,R1 INSERT TCF 7777 FOR UNUSED WORDS. 0504 EX N,R1 B43T47 FRAME OTHERWISE SEND AGC WORD TO SIMULATOR 0506 TS,LOADG LOADG FRAME CHK PARIT C IN 3 FRAMES 0508 SWE,B43T47 N,R1 5 FRAME 0509 TS,LOADG LOADG FRAME CHK PARIT C 0510 * DELETE THRU 513 0514 SWE,B41 N,R1 7,L FRAME 0515 SWS,B43T47 N,R1,1 10 FRAME 0516 TS,LOADG LOADG FRAME CHK PARIT C 0517 WA KCOMMON ONE KCOMMON 0518 TS - - SND WORD 0519 ERAS BANK NA STOP BANK ZERO DONE BANK JUMP TO CLOSE OUT PREV E-PARAGRAPH 0521 TX ONE - STOP BANK 0522 TN 36KSM MSG 2 TITLE MSG +7 FIRST TWO WORDS OF MESSAGE 0524 TX EBK - TITLE MSG +9 0525 TX,CHAR8 PARAG NO - TITLE MSG +9 E-BANK NUMBER 0527 TS WB3 36K FRAME GO TITLE H GO PUNCH TITLE 0529 TS 87PUNCH FRAME SME BANK C 0530 SWS,B45T47 PARAG NO 1,L FRAME 0531 TS - - CHK PARIT C SEND 1100XXX0 CODE 0533 TS KCOMMON +1 KCOMMON SEND PARK 0534 DNE BANKS TS - - DONE BANK 0535 END PTAPE TS - - MON TAPE 0536 RW,1 - - - REWIND YULPROGS. 0538 S,MON TYPER WPAPER TA SPRAMR +24 MANUF RTN ANNOUNCE READY TAPE, EXIT. 0540 DONE BANK TX Z,SH - HOLD LOC 0541 TS STOP 36K FRAME CHK PARIT C SEND STOP CODE 0543 TS WB3 36K FRAME GO TITLE T SEND TAPE PARAGRAPH TAILING MESSAGE 0545 TS Z,SC Z,R3 SPACE TAP SPACE TAPE 30 BLANKS 0547 TX HOLD LOC - Z,SC 0548 CHK PARIT SWS,ONES FRAME 4,L KCOMMON +2 C FOR RIGHT EIGHT BITS IN FRAME, COMPUTE 0550 HA FRAME KCOMMON +2 KCOMMON +2 C ODD PARITY (BIT 42 IS ALWAYS INITIALLY 0552 SWS,ONES KCOMMON +2 2,L KCOMMON +3 C = 1) AND PLACE IN BIT 42 0554 HA KCOMMON +2 KCOMMON +3 KCOMMON +2 C 0555 SWS,ONES KCOMMON +2 1 KCOMMON +3 C 0556 HA,B42 KCOMMON +3 KCOMMON +2 FRAME C 0557 TS - - PCH FRAME C NOW GO PUNCH THIS FRAME 0559 P24T36K NA N,X5,3 W CORE BAD SD WORD CORE IS REQUIRED 0561 NA N,X5,3 W ROPE BAD SD WORD ROPE IS REQUIRED 0563 NA N,X5,1 W SMULATO BAD SD2 WORD SIMULATOR IS REQUIRED 0565 NA N,X5,2 W SMULATO +1 BAD SD 0566 TX N,SC,1 - ANY MDN *MODULE DECK NUMBERS* SD NOT ALLOWED 0568 BY PAS MDN TS - - READY NOW 0569 TX ONE - ALLOW E WORDS FROM ERASABLE ARE ALLOWED 0571 TS ONE ONLY TRY MODUL RY COMMON *MODULE DECK NUMBERS* SD NOT EXPECTED # Page 647 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 17 PAGE 72 P0573 PROCEDURE TO PUNCH A BLK2 MASTER DECK R0574 SUBDIRECTOR *TESTING* IS OPTIONAL. SEE PAGE 30. 0575 TRY MASTR NA KCOMMON W MASTER TRY SYMBL "MASTER" IS REQUIRED. 0577 NA N,X5,3 W DECK BAD SD "DECK" IS REQUIRED. 0579 NA N,X5,3 ONES BAD SD SUPERFLUOUS WORDS ARE FORBIDDEN. 0581 TS - - CHK TEST 0582 TS L DIRECTY Z,X5 E SYLT OK 0583 S,MON TYPER PMSTR MSG SPRA +24 C,+1 TYPE "PUNCH MASTER DECK". 0585 DO MASTER NA,CHAR8 5,0 ZERO C,+2 BRANCH IF SOME BACKUP ALREADY WANTED. 0587 SS TWO CHAR8 N,X5 CALL FOR BACKUP TAPE LABEL AMENDMENT. 0589 SWE, D4T7 5,5 D,5,L MON DAW FETCH CURRENT MASTER DECK SERIAL NUMBER. 0591 DA, CAC3 5,5 ONE 5,5 INCREMENT PERMANENTLY STORED SERIAL. 0593 TS Z,SC Z,AU1 YUL D2A ZS 0594 MON DAW RESERVE 1 0595 SS N,SH C2T7 CARD PLACE ALPHA SERIAL AS CARD NUMBER. 0597 SWS, C4578 5,4 A,3 CARD +8 0598 SWS, C2T3 5,4 A,3 CARD +9 PLACE ALPHA DATE IN LOG CARD. R0600 LOOP FOR EACH PARAGRAPH (FORMERLY SUBSTRAND) READ FROM YULPROGS. 0601 MASDEK PH TS L OBJC MSG Z,R1 FETCH SS FETCH A PARAGRAPH IF ANY ARE LEFT. 0603 TS - - END MASTR CUT OUT HERE IF NO MORE. 0605 SWS, ACO1 1,2 36,L PH NUMBER 0606 SWS, ACO2 1,2 33,L PH NUMBER 0607 SWS, ACO3 1,2 30,L PH NUMBER FORM ALPHA PARAGRAPH NUMBER. 0609 SS PH NUMBER C1T3 CARD +7 PUT IT IN LOG OR PRECEDING TRAILER. 0611 S, PUNCH CD CARD -1 ALPHA C,+1 PUNCH LOG CARD ON PRECEDING TRAILER. 0613 SS RC1&2C8 C1C8 CARD SET COLUMNS 1 AND 8 FOR HEADER CARD. 0615 TX PH NUMBER - CARD +9 PARAGRAPH NUMBER FOR HEADER CARD. 0617 LA EIGHT 1,2 FIX MEM BRANCH UNLESS SPEC/CENT OR ERASABLE. 0619 WA,C5T8 EBNK 1,2 CARD +9 PUT E BANK NUMBER IN LAST FOUR COLUMNS 0621 TS - - PL OBJ MSG 06212 MASTR ACM TS, C5T8 W ACM CARD +9 PL OBJ MSG 0622 FIX MEM WA 1,2 EIGHT PARAG NO FOR FIXED-FIXED,USE PARAG NUM + 10 OCTAL 0624 LA 1,2 OCT 17 WHICH MOD JUMP IF IN FIXED FIXED 0626 WD PARAG NO OCTAL 20 PARAG NO FOR FIXEC BANK, USE PARAG NUM - 10 OCTAL 0628 LA OCT 240 1,2 MASTR ACM PARAG NUM OVER 237 IS IN ACM. 0630 LA 1,2 OCT 157 C,+3 JUMP IF NOT IN MODULES FIVE OR SIX 0632 WD PARAG NO OCT 60 PARAG NO USE PH NUM - 150 OCTAL 0634 WA CARD +9 2 C5 CARD +9 RAISE MODULE NUMBER ON CARD 0636 LA 1,2 CHAR8 C,+3 JUMP IF IN MODULES ONE OR TWO 0638 WD PARAG NO OCT 60 PARAG NO USE PH NUM - 70 OCTAL 0640 WA CARD +9 2 C5 CARD +9 RAISE MODULE NUMBER ON CARD 0642 WHICH MOD SSL, TWO PARAG NO 4 C,+1 PICK ODD OR EVEN MEMBER OF MODULE PAIR. 0644 WD CARD +9 1 C5 CARD +9 REDUCE MODULE NUMBER FROM EVEN TO ODD. 0646 WD PARAG NO EIGHT PARAG NO (FOR SENSE LINE SET NUMBER). 0648 SSL, ONE PARAG NO 0 C,+1 PICK A OR B SIDE OF MODULE. 0650 WD CARD +9 1 C6 CARD +9 CHANGE B TO A. 0652 SWE, D12 PARAG NO 1 PARAG NO FORM BINARY SENSE LINE SET NUMBER. 0654 WA,CHAR8 PARAG NO ONE CARD +9 0655 LA,CHAR8 CARD +9 NINE C,+2 BRANCH IF SENSE LINE SETS 0 - 9. 0657 WA CARD +9 OCT 66 CARD +9 SET DECIMAL SENSE LINE SET NO. IN PRINT. 0659 PL OBJ MSG TN N,R1 7 CARD +1 PLACE OBJECT MESSAGE IN HEADER CARD. # Page 648 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 18 PAGE 73 0661 SS W PARAGRA C5T8 CARD +7 0662 TX W PARAGRA +1 - CARD +8 PUT "PARAGRAPH" IN HEADER. 0664 S, PUNCH CD CARD -1 ALPHA C,+1 PUNCH PARAGRAPH HEADER CARD. 0666 WA Z,X1 THREE Z,X5 1800 ADDRESS OF FIRST WORD IN PARAGRAPH. 0668 SS ALF 370 C1T4 CARD +9 INITIALIZE SUBADDRESS IN DETAIL CARD. R0670 LOOP FOR EACH FOUR CARDS (32 WORDS) 0671 4 CARDS SS BLANKS C1C8 CARD SET COLUMNS 1 AND 8 FOR DETAIL CARD. 0673 TS FOUR Z,R7 EACH CARD +1 SET UP TO COUNT 4 CARDS. P0675 LOOP FOR EACH CARD. 0676 EACH CARD S, PUNCH CD CARD -1 ALPHA C,+1 PUNCH A DETAIL CARD WITH 8 WORDS. 0678 TX CARD WD2 - Z,X4 R0679 LOOP FOR EACH WORD. 0680 WD IN CARD TX EMPTY WD - N,X4 0681 SSL,THREE N,X5 27 C,+1 SET UP LEAD CHAR CODE FOR THIS AGC WORD 0683 TS ZERO KCOMMON C,+4 BASIC INSTRUCTION 0685 TS NINE KCOMMON C,+8 INTERPRETIVE INSTRUCTION WORD 0687 TS EIGHT KCOMMON C,+7 CONSTANT WORD 0689 TX FOUR - KCOMMON AGC WORD ADDRESSES UNUSED FIXED MEMORY 0691 SWE,ONE 5,0 20 KCOMMON +1 0692 NA,ONE KCOMMON +1 ONE C,+2 0693 SS ONES TWO KCOMMON OPERAND LOCATED IN A FIXED BANK. 0694 NA,EIGHT KCOMMON ZERO C,+2 0695 SWS,ONE 5,0 22 KCOMMON EXTRACODE INSTRUCTION. 0697 SWS,ACD2 KCOMMON 12 N,X4 STORE LEAD CHAR IN CHAR POSIT 2 0699 SWS, ACO3 N,X5 17,L N,X4 0700 SWS, ACO4 N,X5 14,L N,X4 0701 SWS, ACO5 N,X5 11,L N,X4 0702 SWS, ACO6 N,X5 8,L N,X4 0703 SWS, ACO7 N,X5 5,L N,X4 0704 SS N,X5,1 ONE N,X4,1 SPREAD BLK2 WORD OUT TO 1800 ALPHA WORD. 0706 NA Z,X4 CARD WD10 WD IN CARD BRANCH IF MORE WORDS FOR THIS CARD. 0708 WA CARD +9 OCT INC CARD +9 0709 SS ZERO OCT 00047 CARD +9 INCREMENT ALFOCTAL SUBADDRESS BY 8. 0711 NA Z,R7,1 ONE EACH CARD BRANCH IF NOT END OF 4-CARD GROUP. 0713 SS RC1&2C8 CHAR 8 CARD DOUBLE-SPACE AFTER EACH 4 CARDS. 0715 S, PUNCH CD CARD -1 ALPHA C,+1 PUNCH EVERY FOURTH DETAIL CARD. 0717 NA 5,2 EOR 4 CARDS BRANCH IF NOT LAST GROUP IN PARAGRAPH. 0719 SS RC1&8C8 C1C8 CARD SET COLUMNS 1 AND 8 FOR TRAILER CARD. 0721 TN END PARAG 6 CARD +1 SET UP ALPHA TEXT OF TRAILER CARD. 0723 MT BLANKS 3 N,AU2,1 0724 TS, C1T3 PH NUMBER CARD +4 MASDEK PH GIVE UNFINISHED TRAILER TO NEXT PARAGR. R0726 FINAL ACTIONS FOR BLK2 MASTER DECK. 0727 END MASTR TN W END DECK 3 CARD +5 0728 S, PUNCH CD CARD -1 ALPHA CLOSE PCH PUNCH FINAL TRAILER CARD. # Page 649 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 19 PAGE 74 0730 CLOSE PCH S, PUNCH CD EOR BINARY C,+1 CLOSE OUT PUNCHING. 0732 TS - - MON TAPE 0733 RW,1 - - - REWIND YULPROGS. 0735 S, MON TYPER W CARD OUT SPRAMR +16 MANUF RTN # Page 650 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 20 PAGE 75 P0736 * PUNCH SYMBOL TABLE * AND * PUNCH SYMBOL TABLE AND MASTER DECK * SUBDIRECTOR ROUTINES HERE. R0738 SUBDIRECTOR *TESTING* IS OPTIONAL. SEE PAGE 30. 0739 *TRY SYMBL NA KCOMMON W SYMBOL TRY SMLTN WORD SYMBOL IS REQUIRED 0741 NA N,X5,3 W TABLE BAD SD WORD TABLE IS REQUIRED 0743 NA ONES N,X5 TRY AND NO MORE WORDS ALLOWED 0745 S,MON TYPER SYMBL MSG SPRA +24 C,+1 0746 GO SYMBOL TS - - CHK TEST LOOK FOR * TESTING * SUBDIRECTOR 0748 TS ONES SYMS OR NO E SYLT OK START SEARCH FOR FIRST BINARY RECORD 0750 TS L OBJC MSG Z,R1 FETCH SS GET FIRST BINARY RECORD 0752 TS 1,71 Z,R2 C,+2 72ND LOC HOLDS 2(NUMBER OF SYMBOLS) 0754 TS - - DISASTER SHOULD NEVER COME HERE 0756 SS ZERO CORE OOO Z,R2 ASSURE NEGATIVE SIGN 0758 TN W END SYMT +1 2 CARDS SET UP SYMBOL TABLE OPENING CARD 0760 TN N,R1 7 CARDS +2 0761 TX Z,R2 - Z,R1 0762 TX ZERO - KCOMMON 0763 NA Z,R1 ZERO C,+2 JUMP IF SYMBOLS EXIST IN SYMBOL TABLE 0765 S,MON TYPER NO SYM MSG SPRAMR +24 TYP ABORT 0766 DS KCOMMON ONE KCOMMON COMPUTE NUMBER OF CARDS NEEDED 0768 LA ELEVEN Z,R1,10 C,-1 0769 TX BLK2NAME - CARDS +9 0770 SWE,ONES KCOMMON 16,L C,+2 0771 TS Z,SC Z,AU1 YUL D2A ZS CONVERT NUMBER TO HOLLERITH CODE 0773 RESERVE 1 0775 SWS,C7T8 N,SH 12 CARDS +8 INSERT IN OPENING CARD 0776 SWS,C1T2 N,SH 12 CARDS +9 0777 S,PUNCH CD CARDS -1 ALPHA C,+1 PUNCH OPENING CARD 0779 TX L CARDS - Z,R4 R4 SET TO CARD PUNCH BUFFER 0781 GO ROUND TS C256 Z,R1 FETCH SS GO GET NEXT BLOCK OF 128 SYMBOLS 0783 TS Z,X1 Z,X5 C,+2 0784 TS - - DISASTER SHOULD NEVER GET HERE 0786 TX Z,X5,3 - - X5 SET TO FIRST SYMBOL WORD PAIR 0788 NEXT SYMB TX BLKC1C8 - N,R4 07882 SWS, B12 5,1 5,L N,R4 0789 SWS,ACO3 5,1 2,L N,R4 PLACE 6 DIGIT DEF INTO FIRST WORD OF PR. 0791 SWS,ACO4 5,1 1 N,R4 0792 SWS,ACO5 5,1 4 N,R4 0793 SWS,ACO6 5,1 7 N,R4 0794 SWS,ACO7 5,1 10 N,R4,1 0795 TX N,X5,2 - N,R4.1 8 CHAR ALPHA SYMBOL INTO 2ND WORD OF PR. 0797 NA Z,R4 CARDS P10 C,+3 JUMP IF CARD NOT FULL 0799 S,PUNCH CD CARDS -1 ALPHA C,+1 PUNCH CURRENT CARD 0801 TX LCARDS - Z,R4 0802 LA Z,R2,2 TWO SYM DONE JUMP IF ALL SYMBOLS PROCESSED 0804 NA Z,R1,2 TWO NEXT SYMB JUMP IF MORE SYMBOLS IN CURRENT BLOCK 0806 TS - - GO ROUND 0807 MT BLANKS 2 N,R4,1 FILL IN REMINDER OF CARD WITH BLANKS 0809 NA Z,R4 CARDS P10 C,-1 0810 S,PUNCH CD CARDS -1 ALPHA C,+2 PUNCH LAST CARD CONTAINING SYMBOLS 0812 SYM DONE NA Z,R4 L CARDS C,-3 JUMP IF CARD PARTIALLY LOADED 0814 TN W END SYMT 3 CARDS COMPOSE CLOSING SYMBOL TABLE CARD 0816 TX L OBJC MSG - Z,R1 0817 TN N,R1 7 CARDS +3 0818 S,PUNCH CD CARDS -1 ALPHA C,+1 PUNCH IT # Page 651 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 21 PAGE 76 0820 LA MASTR TOO ZERO CLOSE PCH JUMP IF ONLY SYMBOL TABLE TO BE PUNCHED 0822 TS L DIRECTY Z,X5 DO MASTER GO PUNCH MASTER DECK NOW 0824 TRY AND NA N,X5,3 W AND BAD SD WORDS * AND MASTER DECK* REQUIRED 0826 NA N,X5,3 W MASTER BAD SD 0827 NA N,X5,3 W DECK BAD SD 0828 NA N,X5,3 ONES BAD SD NO MORE WORDS ALLOWED 0830 S,MON TYPER SYMAS MSG SPRA +40 C,+1 0831 TS ONE MASTR TOO GO SYMBOL SET MASTER DECK ALSO FLAG # Page 652 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 22 PAGE 77 P0833 SUBROUTINES COMMON TO PUNCHING RAYTHEOM WIRING TAPE AND RAYTHEOM CORE ROPE TESTER TAPE 0835 RY COMMON NA N,X5,3 W TAPE BAD SD "TAPE" IS REQUIRED. 0837 RYCOMMOP NA N,X5,3 ONES BAD SD SUPERFLUOUS WORDS ARE FORBIDDEN. 0839 TS L REQ LIST Z,AU1 C,+1 C 0840 MT ZERO 63 N,AU1,1 0841 MT ZERO 52 N,AU1,1 ZERO REQ LIST OF 240 WDS + SENTINEL. 0843 TS HOLD LOC Z,SC C,-2 C GO TO READ & ABSORB PARAGRAPH REQUESTS. 0845 GET RWT SS TN CRWT MSG 10 TITLE MSG 0846 TX L AUTH NAM - Z,X5 0847 NA,C1T4 5,0 W NASA NO NASA 0848 NEX RWT SS TS Z,SC Z,X5 GET REQ PN GO TO FETCH NEXT REQUESTED PARAGRAPH. 0850 TS - - END PTAPE NORMAL END-OF-TASK PROCEDURE. 0852 SET WORD TX W CRW - FRAME 0853 TX CRWTMSG +6 - TITLEMSG +6 0854 SWS,CHAR3 STIK WIRE A,2,L TITLE MSG +6 INSTALL NAME OF QUARTER-ROPE. 0856 NA,ONE PARAG NO ONE C,+2 0857 SWS,ACO4 TITLE MSG +6 1,L TITE MSG +6 0858 TX Z,SC,6 - Z,X5 0859 ARTS DK NO RESERVE 6 0860 NA,CHAR5 5,0 STIK WIRE C,+2 MATCH MODULE NUMBER 0862 TS,C7T8 STIK WIRE TITLE MSG +7 C,+2 0863 NA N,X5,1 C,-3 C,-2 0864 SWS,C4T7 5,0 A,3 TITLE MSG +4 0865 WA STIK WIRE ST WIR CAC Z,AU1 GET STRAND NUMBER 0868 LA,C7T8 TITLE MSG +7 NINE C,+2 0869 WA TITLE MSG +7 OCT 66 TITLE MSG +7 0871 TS N,AU1 TITLE MSG +9 GO TITLE H INSTALL WIRE NUMBER RANGE. 0873 TX HOLD LOC - Z,SC 0874 NO NASA S,MON TYPER NASA MSG SPRAMR +48 TYP ABORT R0875 SUBROUTINE TO SEND OUT LEADING AND TAILING MESSAGES FOR EACH PAPER TAPE PARAGRAPH 0877 GO TITLE H TX W HEAD - GO LAST END THIS MESSAGE WITH * HEAD* 0879 TX Z,SC,1 - - 0880 GO TITLE T TX W TAIL - GO LAST END THIS MESSAGE WITH *TAIL* 0882 TX Z,SH - Z,R3 0883 NA,TWO TEST INST TWO C,+2 JUMP IF LISTING NOT REQUESTED 0885 TS Z,SC KCOMMON +5 PRINT DAT IF SO, PRINT LEADER AND TITLE MESSAGE 0887 NA,ONE TEST INST ZERO GO SET CSC JUMP IF TAPE PUNCHING INHIBITED 0889 TS - - PCH LEDER GO PUNCH LEADER VIA YULPASS0 0891 WA Z,SC THREE Z,S1 0892 NA N,S1 BLANKS C,+2 CAUSE SKIP OF TITLE MSG LEADING BLANKS. 0894 TS Z,S1,1 - C,-1 0895 TS Z,SC,10 - PCH TITLE GO PUNCH TITLE MESSAGE 0897 TITLE MSG ALF,5 0898 ALF,5 0899 GO LAST ALF 0900 GO SET CSC TS Z,R3 KCOMMON +5 RET GO GO SET CO-SEQUENCE COUNTER CORRECTLY R0902 SUBROUTINE TO SEND 30 BLANKS AFTER PAPER TAPE PARAGRAPH END AND THEN SIGNAL PARAGRAPH END TO YULPASS0 0904 SPACE TAP TX THIRTY - Z,R2 0905 TX ZERO - FRAME C 0906 NA Z,R2,1 ONE C,-1 0907 SS ONES B34 SWITCH 0908 TS - - N,R3 # Page 653 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 23 PAGE 78 P0909 SUBROUTINE TO READ AND ABSORB SUBDIRECTORS R0910 S PARAGRAPH ALL R0911 S PARAGRAPH NNN R0912 S PARAGRAPH NNN THRU (THROUGH) NNN R0913 THE APPEARANCE OF *PARAGRAPH ALL* FORBIDS ANY SUBSEQUENT PARAGRAPH SUBDIRECTORS. R0915 THE APPEARANCE OF ANY PARAGRAPH SUBDIRECTOR FORBIDS ANY SUBSEQUENT *PARAGRAPH ALL* SUBDIRECTOR. R0917 NNN IS FROM 1 TO 3 OCTAL DIGITS R0918 AND IS THE NAME OF A BLK2 PARAGRAPH. A CARD SPECIFYING PARAGRAPH N WILL LEAVE IN REQ LIST +N A CAC WHOSE CAC2 R0920 POINTS TO ALF " RHS" (ROPE, HALF, SIDE = QUARTER-ROPE NAME), AND WHOSE CAC3 POINTS TO ALF "WWW-WWW", THE R0922 RANGE OF WIRE NUMBERS THAT SPECIFY THE SENSE-WINDING SET. ENTER AT READ A REQ WITH RETURN IN HOLD LOC. R0924 ASSORTED COMPLAINTS ABOUT ILL-FORMED PARAGRAPH REQUEST CARDS. 0925 2 LONG PHN S,MON TYPER 2 LONP MSG SPRAMR +24 C,+4 PARAGRAPH NUMBER TOO LONG. 0927 UNOCT PHN S,MON TYPER UNOPN MSG SPRAMR +24 C,+3 PARAGRAPH NUMBER BLANK OR NON-OCTAL. 0929 ILLEG PHN S,MON TYPER ILLPN MSG SPRAMR +24 C,+2 PARAGRAPH NUMBER HAS ILLEGAL VALUE. 0931 DUPLI PHN S,MON TYPER DUPPN MSG SPRAMR +24 C,+1 PARAGRAPH NUMBER DUPLICATED. 0933 TS - - IGN SUBDR ALWAYS IGNORE ILL-FORMED REQUEST. 0935 READ A REQ TS - - RD SBDIRC FETCH SS REQUEST IF ANY SUCH ARE LEFT. 0937 TS - - ANY GOODS COME HERE WHEN SUBDIRECTORS RUN OUT. 0939 WA Z,X6 OCTAL 20 Z,X5 0940 TN N,X5,3 2 K COMMON 0941 NA KCOMMON W PARAGRF TRY TEST 0942 NA KCOMMON +1 W PARAGRF +1 BAD SD "PARAGRAPH" IS REQUIRED. 0944 NA 5,0 W ALL LIST PARA JUMP IF NOT *ALL* 0946 NA 5,3 ONES BAD SD6 NO MORE WORDS ALLOWED 0948 TX ONE ONLY - C,-2 NO FIRTHER *PARAGRAPH* SD ALLOWED 0950 TS C,+1 READ A REQ +1 READ A REQ 0951 TS - - ALL PARAS 0952 ALL PARAS NA REQ LIST +240 ONES C,+2 *PARAGRAPH ALL* SD MUST BE ONLY 0954 S,MON TYPER PALL MSG SPRAMR +56 TYP ABORT *PARAGRAPH* SD FOR THIS TASK 0956 TS ONES SYMS OR NO E SYLT OK START SEARCH FOR PROGRAM FIRST BIN RCDS. 0958 TS ONE PARA DEEP FETCH SS GO GET THE AUTHMEMO RECORD. 0960 TS EIGHT Z,R3 C,+2 WORDS 6 -13 HOLD PARAGRAPH USE MARKERS 0962 TS - - DISASTER SHOULD NEVER COME HERE 0964 WA Z,X1 FIVE Z,R4 0965 TX C 32 - KCOMMON +1 32 PARAGRAPH MARKERS PER WORD 0967 NA ALLOWE ZERO ALL RAT JUMP IF ERASABLE PARAGRAPHS ALLOWED 0969 TX C 32 - Z,R0 0970 SWE,ONES N,R4,1 5,L KCOMMON BRING FORTH BIT FOR FIRST FIXED PARA 0972 TS Z,R0,4 - ALL DOG 0973 ALL RAT TX C 32 - Z,R0 0974 TX N,R4,1 - KCOMMON 0975 ALL CAT SWE,ONES KCOMMON 1,L KCOMMON PUT PARAGRAPH USE BIT INTO BIT 48 0977 ALL DOG NA,ONE KCOMMON ONE ALL MICE JUMP IF PARAGRAPH NOT USED BY THIS PROG 0979 WD KCOMMON +1 Z,R0 PARAG NO DETERMINE PARAGRAPH NUMBER 0981 TS Z,SC Z,R1 ST PARA DT GO SET UP ITS DATA 0983 ALL MICE NA Z,R0,1 ONE ALL CAT JUMP IF WORD OF 32 MARKERS NOT FINISHED 0985 WA C 32 KCOMMON +1 KCOMMON +1 0986 NA Z,R3,1 ONE ALL RAT JUMP IF MORE PARA MARKER WORDS YET 0988 TS C,+1 READY NOW ANY MDN 0989 TX L REQ LIST - REQ PLACE 0990 LIST PARA TS Z,SC Z,R1 CHK PARA N CHECK ALPHA VALIDITY OF PARA NUMBER 0992 TX N,X5,3 - KCOMMON 0993 NA KCOMMON W THRU C,+2 # Page 654 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 24 PAGE 79 0994 TS - - C,+2 0995 NA KCOMMON W THROUGH CHK REG PA 0996 TX PARAG NO - KCOMMON +3 SAVE LOW PARAGRAPH NUMBER 0998 TS Z,SC Z,R1 CHK PARA N CHECK ALPHA VALIDITY OF PARA NUMBER 1000 NA ONES N,X5 BAD SDN NO MORE WORDS ALLOWED IN SD 1002 LA PARAG NO KCOMMON +3 BAD SD JUMP IF 1ST PARA NOT LOWER THAN 2ND 1004 TS Z,SC Z,R1 ST PARA DT SET UP PARAGRAPH DATA 1006 LA PARAG NO KCOMMON +3 READ A REQ JUMP IF ALL INCLUSIVE PARAS SET UP 1008 WD PARAG NO ONE PARAG NO 1009 TS - - C,-3 1010 CHK REG PA NA ONES KCOMMON BAD SD NO MORE WORDS ALLOWED 1012 TS Z,SC Z,R1 ST PARA DT SET UP PARAGRAPH DATA 1014 TS - - READ A REQ 1015 CHK PARA N LA,CHAR6 5,2 ZERO UNOCT PHN BLANK PARAGRAPH NUMBER. 1017 LA, CHAR6 4 C6 5,2 2LONG PHN PARAGRAPH NUMBER OVER THREE DIGITS. 1019 LA,CHAR8 EIGHT 5,2 UNOCT PHN PARAGRAPH NUMBER NOT OCTAL. 1021 TS ZERO PARAG NO C,+2 1022 SWS, ONES PARAG NO 3,L PARAG NO 1023 SWS, SEVEN N,X5 A,7 PARAG NO CONVERT ALPHA-OCTAL TO BINARY. 1025 SWS, C1T3 N,X5 A,1,L N,X5 1026 NA N,X5 BLANKS C,-3 1027 TS Z,X5,3 - N,R1 1028 ST PARA DT NA ALLOW E ZERO C,+2 1029 LA PARAG NO SEVEN ILLEG PHN PARA NUMBERS 000 - 007 ARE ILLEGAL 1031 WA PARAG NO EIGHT Z,X5 1032 LA OCTAL 20 PARAG NO C,+2 JUMP IF NOT FIXED-FIXED PARAGRAPH 1034 WA Z,X5 OCTAL 20 Z,X5 SET TO BANKS TWO AND THREE 1036 LA PARAG NO OCT 27 C,+3 1037 LA PARAG NO OCT 37 ILLEG PHN PARAS NUMBERS 030 - 037 ARE ILLEGAL 1039 LA OCT 240 PARAG NO ILLEG PHN NUMBERS 240 THRU 777 ARE ILLEGAL 1041 WA PARAG NO L REQ LIST Z,R2 1042 NA N,R2 ZERO DUPLI PHN REQUESTED PARAGRAPH NUMBER IS DUPLICATE. 1044 WA N,R2 B 30 N,R2 INCREMEMENT MODULE NUMBER BY ONE 1046 LA OCT 60 Z,X5,24 C,-1 JUMP IF NOT IN CORRECT MODULE RANGE 1048 SWS,CAC3 Z,X5 1 N,R2 PUT IN WIRE NUMBER 0 - 11 1050 WA N,R2 ONE N,R2 ADD BASE ADDRESS OF WIRES 1052 TS ONES REQ LIST +240 N,R1 SHOW THAT AT LEAST ONE REQUEST GOT IN. 1054 ANY GOODS NA REQ LIST +240 ZERO C,+2 RETURN IF ANY REQUESTS WERE ABSORBED. 1056 S,MON TYPER NO GUD MSG SPRAMR +16 TYP ABORT TYPE "NO GOOD REQUESTS", ABORT. 1058 ANY MDN NA MDN MARK ZERO CHECK MDN JUMP TO CHECK MODULE DECK NUMBERS 1060 S,MON TYPER NO MDN MSG SPRAMR +48 TYP ABORT 1061 READY NOW TS L REQ LIST REQ PLACE E SYLT OK MAKE GROUP B LOOK FOR DESIRED PROGRAM. 1063 TX HOLD LOC - Z,SC # Page 655 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 25 PAGE 80 P1064 ALONG WITH THE PARAGRAPH SUBDIRECTOR CARDS, THE JOB MAY OPTIONALLY HAVE A "USE" SUBDIRECTOR TO SPECIFY A TYPE OF R1066 OUTPUT TAPE. THE FIVE OPTIONS ARE: R1067 0 PINK OILED PAPER TAPE ( PROGRAM USES THIS IF NO TAPE SPECIFIED). R1069 1 BLACK OILED PAPER TAPE R1070 2 BLUE MYLAR TAPE R1071 3 GRAY FIBER TAPE R1072 4 ALUMINUM TAPE R10721 5 DIGISTORE TAPE (ALSO SPELLED DIGISTOR) (36K ONLY) 1078 TRY USE NA KCOMMON W USE TRY MODUL 1079 TS ONE ONLY C,+0 BLK2PNCH C ONLY ONE SUCH SUBDIRECTOR ALLOWED 1071 NA KCOMMON W PINK TRY BLACK 1072 TRY OILED NA N,X5,3 W OILED BAD SD 1073 NA N,X5,3 W PAPER BAD SD 1074 TRY TAPE NA N,X5,3 W TAPE BAD SD 1080 NA ONES N,X5,3 BAD SD 10802 S, YUL TYPER 6,2 SPRA +9 READ A REQ 1081 GO BAD SD TS - - BAD SD 1082 TRY BLACK NA KCOMMON W BLACK TRY BLUE 1083 TS,B21T24 B24K SWITCH TRY OILED 1084 TRY BLUE NA KCOMMON W BLUE TRY GRAY 1085 NA N,X5,3 W MYLAR BAD SD 1086 TS,B21T24 B23K SWITCH TRY TAPE 1087 TRY GRAY NA KCOMMON W GRAY C,+2 1088 TS - - C,+2 1089 NA KCOMMON W GREY TRY ALUMN 1090 NA N,X5,3 W FIBER BAD SD 1091 TS,B21T24 B23T24K SWITCH TRY TAPE 1092 TRY ALUMN NA KCOMMON W ALUMINM TRY DIGIS 1093 NA KCOMMON +1 BLANKS BAD SD 1094 TS,B21T24 B22K SWITCH TRY TAPE 109405 TRY DIGIS NA K COMMON W DIGSTOR BAD SD 109407 NA K COMMON +1 W DIGSTOR +1 C,+2 109408 TX Z,SC,1 - - ALLOW TWO SPELLINGS OF "DIGISTOR(E)". 10941 NA K COMMON +1 BLANKS BAD SD DIGISTORE TAPE IS INCREMENTAL MAGNETIC 109415 NA HOLD LOC L NEX PARH BAD SD TAPE MADE BY TRAK, USABLE WITH 36K CRS. 10942 TX N,SC,1 - NO FINIS REPLACE LEADER MSG BY ABOUT 5 BLANK IN. 109425 TS Z,SC Z,R3 DIGIS LDR 10943 TX C,-1 - ERAS BANK +1 DO THE SAME FOR ERASABLE MEMORY LEADER. 109435 TX N,SC,1 - GO TITLE H 10944 TX Z,SH - Z,SC 109445 TX C,-1 - GO TITLE T WIPE OUT BLOCK LETTERING GENERATORS. 10945 TX DIGIS LDR +1 - DONE BANK +3 PROVIDE ONE BLANK BETWEEN BANKS. 109455 TS, B21T24 B22B24K SWITCH TRY TAPE DIGISTORE TAPE IS TYPE 5. 10946 DIGIS LDR TX ACO 7 - Z,R2 109465 TS ZERO FRAME PCH FRAME C SEND 448 BLANKS = 5.6 INCHES. 10947 NA Z,R2,1 ONE C,-1 109475 TS ONE STOP BANK N,R3 # Page 656 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 26 PAGE 81 P1095 ALONG WITH THE PARAGRAPH SUBDIRECTOR CARDS, THE JOB WILL MANDATORILY HAVE A "MODULE DECK NUMBERS" SUBDIRECTOR. R1097 THE THREE INTRODUCTORY WORDS ARE FOLLOWED BY SIX "WORDS" EACH CONSISTING OF FIVE CHARACTERS (FOUR FOR THE MODULE R1099 DECK NUMBER AND ONE FOR MODULE NUMBER IN THAT ORDER). ALL FIVE CHARACTERS MUST APPEAR IN EACH WORD. ROUTINES R1101 BELOW READ THIS SUBDIRECTOR AND LATER CHECK THAT A MODULE DECK NUMBER EXISTS FOR EACH MODULE SPECIFIED (IMPLI- R1103 CITLY) BY THE PARAGRAPH CARDS. IF THIS CARD IS MISSING OR A MODULE DOES NOT HAVE AN ASSIGNED MODULE DECK NUMBER, R1105 ABORT 1106 TRY MODUL NA KCOMMON W MODULE BAD SD WORDS *MODULE DECK NUMBERS* REQUIRED 1108 NA N,X5,3 W DECK BAD SD 1109 NA N,X5,3 W NUMBERS BAD SD 1110 TS ONE ONLY C,+0 LOAD ART C ONLY ONE SUCH SUBDIRECTOR ALLOWED 1112 MT N,X5,3 6 N,X3,1 SAVE 6 WORDS OF 5 CHARS EACH 1114 TS ONE MDN MARK READ A REQ SET MODULE DECK NUMBERS MARKERS 1116 CHECK MDN TX L REQ LIST - Z,X5 1117 NEXT MDN LA N,X5,1 ZERO C,+0 FIND ACTIVE PARAGRAPH 1119 WD Z,X5 ONE Z,X5 1120 LA ONES N,X5 MDN NUM JUMP IF NO MORE 1122 LOAD ART TX L ARTSDK N - Z,X3 1123 NA,CHAR5 3,0 5,0 C,+3 COMPARE PARA MODULE NUMBER WITH MODULE 1125 TX,CHAR8 ONES - 3,0 NUMBERS FROM *MODULE DECK NUMBERS* SD 1127 TS Z,X5,1 - NEXT MDN WHEN MATCHED, SHOW MODULE CALLED BY TASK 1129 NA N,X3,1 ARTS DK NO +5 C,-3 1130 SWS,CHAR8 5,0 A,3 CHK M MSG +4 ERROR IF TASK CALLS A PARA WITHIN A 1132 S,MON TYPER CHK M MSG SPRAMR +40 TYP ABORT MODULE WITHOUT AN ASSIGNED DECK NUMBER 1134 ONE ONLY S,MON TYPER EXCES MSG SPRAMR +32 REJEC DIR 1135 MDN NUM TS K6M Z,X5 LOAD ART C 1136 NXT MDN CK LA ONES N,X3 READY NOW JUMP IF ALL MODULES FROM *MODULE DECK 1138 LA,CHAR8 ONES 3,0 MDN OK NUMBERS* CALLED BY TASK 1140 SWS,CHAR1 3,0 A,4,L X MDN MSG +3 1141 S,MON TYPER X MDN MSG SPRAMR +48 TYP ABORT ERROR IF ONE NOT SO 1143 MDN OK LA Z,X5,1 ONE READY NOW 1144 TS Z,X3,1 - NXT MDN OK # Page 657 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 27 PAGE 82 P1145 SUBROUTINE TO DELIVER THE NEXT REQUESTED PARAGRAPH (AS DETERMINED BY READ A REQ). FOR EACH REQUESTED BUT ABSENT R1147 PARAGRAPH, A COMPLAINT IS TYPED. IF ALL REQUESTED PARAGRAPHS ARE ABSENT, "NO GOOD REQUESTS" IS TYPED AND THE R1149 TASK ABORTS. NORMAL RETURN IS TO L+2 WITH PARAGRAPH AVAILABLE AT X1, AND IN STIK WIRE THE CAC SET UP BY READ A R1151 REQ. END-OF-FILE RETURN IS TO L+1. ENTER WITH RETURN (L+1) IN X5. 1152 GET PAR CM LA N,AU1,1 ZERO C,+0 C FIND NEXT ACTIVE PARAGRAPH 1154 TX Z,AU1 - REQ PLACE C 1155 WD Z,AU1 ONE Z,AU1 C 1156 LA ONES N,AU1 C,+3 C 1157 WD Z,AU1 L REQ LIST PARAG NO C DETERMINE ITS PARAGRAPH NUMBER 1159 TX N,AU1 - STIK WIRE 1160 LAS PN DUN TS - - ANY GOODS +1 EXIT IF NONE 1162 GET REQ PN TS REQ PLACE Z,AU1 GET PAR CM C 1163 FETCH REQ TS - - FETCH SS GET PARAGRAPH IF IT EXISTS. 1165 TS - - FETCH PAR STOP TRYING IF PARAGRAPHS RUN OUT. 1167 TX ZERO - PARA DEEP 1168 NOW CHECK LA 1,2 PARAG NO PHN MATCH BRANCH IF COULD BE DESIRED PH. 1170 PH NOT HER SWS,ACO3 PARAG NO 24,L PNHER MSG +1 1171 SWS, ACO4 PARAG NO 21,L PNHER MSG +1 1172 SWS, ACO5 PARAG NO 18,L PNHER MSG +1 1173 S,MON TYPER PNHER MSG SPRA +24 C,+1 TYPE "PARAGRAPH NNN NOT HERE", TRY NEXT. 1175 TS REQ PLACE Z,AU1 GET PAR CM C 1176 NOTHERS TS - - NOW CHECK 1177 PHN MATCH NA 1,2 PARAG NO FETCH REQ BRANCH TO BYPASS UNWANTED PARAGRAPH. 1179 TS C,+1 LAS PN DUN 5,1 SET UP END-OF-FILE EXIT, DO NORMAL EXIT. 1181 TS - - N,X5 1182 FETCH PAR NA PARA DEEP ZERO FETCH REQ JUMP IF 1ST BINARY RECORD NOT YET FOUND 1184 TS C,+0 NOTHERS PHNOTHER # Page 658 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 28 PAGE 83 P1185 *PUNCH RAYTHEON WIRING TAPE* SUBDIRECTOR SUBROUTINE HERE. R1186 EACH SUBSTRAND IS A SEPARATE PIECE OF PAPER R1187 ATLEAST ONE OF THE SUBDIRECTORS *PARAGRAPH* IS REQUIRED. SEE PAGE 21. R1188 SUBDIRECTOR *MODULE DECK NUMBERS* IS REQUIRED. SEE PAGE 24. R1189 SUBDIRECTOR *USE* IS OPTIONAL. SEE PAGE 23. R1190 SUBDIRECTOR *TESTING* IS OPTIONAL. SEE PAGE 30. 1191 RAYTH PQ NA KCOMMON W RATHEON TRY MASTR BR IF WD 2 NOT "CORE" OR "RAYTHEON". 1193 NA KCOMMON +1 BLANKS BAD SD "RAYTHEON" IS REQUIRED HERE. 1195 NA N,X5 W WIRING RAYTH TT "WIRING" IS REQUIRED. 1197 TX Z,X5,3 - - 1198 TS Z,SC HOLD LOC RY COMMON GO QUIZ REST OF SUBDIRECTOR 1200 S,MON TYPER PRWTP MSG SPRA +32 C,+1 1201 TS Z,SC HOLD LOC READ A REQ READ OTHER TASK SUBDIRECTORS 1203 TS Z,SC HOLD LOC GET RWT SS 1204 TX THIRTY - Z,R3 1205 TX FEED 1T7 - FRAME C 1206 NA Z,R3,1 ONE C,-1 1207 WA Z,X1 THREE Z,R2 INITIAL ADDRESS OF PARAGRAPH. 1209 WD L RSPEX P8 EIGHT Z,R3 INIT. ADDR. FOR LIST OF SUBSTRAND SPECS. 1211 REARANGE TS Z,R2,1 Z,AU1 C,+1 C THE BISEQUENCE BIT DOES SOME SWINGING 1213 TS N,R3,1 Z,AU2 PARA TO SS C THINGS IN HERE. HINT: WHAT GETS DONE 1215 NA Z,R3 L RSPEX P8 C,-2 TWICE IN AN OBSCURE WAY.... 1217 TS R SPECS +1 Z,X4 C,+2 INITIAL ADDRESS OF SUBSTRAND. 1219 PARA TO SS MT N,AU1,4 32 N,AU2,1 CONVERT PARAGRAPH TO SUBSTRAND. R1221 PROCEDURE TO ESTABLISH X AND Z COORDINATES OF EACH CORE. 1222 TS 7 D2 FRAME C,+2 1223 Z COORD WD FRAME 1 D2 FRAME MOVE UP ONE ROW. 1225 TX C32 - Z,R3 1226 SS FRAME D2 N,X4,1 LABEL CORES WITH Z-COORDINATES. 1228 NA Z,R3,1 ONE C,-1 1229 SM FRAME CAC3 N,X4,1 SHOW BYPASS HOLE AND DO SAME FOR IT. 1231 NA FRAME ZERO Z COORD 1232 DS DEC 0033 1 D4 FRAME 1233 TS R SPECS +1 Z,X4 C,+2 1234 X COORD DS FRAME 1 D4 FRAME MOVE RIGHT 1 COLUMN. 1236 DS, D3D4 DEC 0033 FRAME 4,231 1237 SS FRAME D3D4 4,198 1238 SS 4,231 D3D4 4,165 1239 SS FRAME D3D4 4,132 1240 SS 4,165 D3D4 4,99 1241 SS FRAME D3D4 4,66 1242 SS 4,99 D3D4 4,33 1243 SS FRAME D3D4 N,X4,1 LABEL CORES & BYPASSES W/ X-COORDINATES. 1245 NN FRAME ZERO X COORD # Page 659 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 29 PAGE 84 R1246 INITIALIZE CODED PUNCHING FOR SUBSTRAND. 1247 SS ZERO SIX SPEC FRAM FIRST GUESS SIDE A, TAKE UP LEFT WIRE 1249 NA,ONE PARAG NO ONE C,+2 JUMP IF IT IS INDEED SIDE A 1251 SM SPEC FRAM SIX SPEC FRAM SET SIDE B, TAKE UP RIGHT WIRE 1253 SM SPEC FRAM NINE SPEC FRAM SET BEGIN SS AND BEGIN WIRE BITS. 1254 TX ZERO - WIRE NO 1255 TS STIK WIRE Z,X5 C,+2 12552 DA WIRE NO DEC M 16 WIRE NO 1256 NA Z,X5,1 ONE C,-1 CONVERT FIRST WIRE NUMBER TO DECIMAL. 1258 DA WIRE NO ONE WIRE NO 1260 TX ONE - BIT MASK WORK FROM PARITY BIT TOWARD SIGN BIT. P1262 INITIALIZATION FOR EACH WIRE. 1263 RAYT WIRE TS SPEC FRAM FRAME PCH FRAME C SPECIAL CHARACTER FOR BEGIN-WIRE BLOCK. 1265 SS ZERO NINE SPEC FRAM RESET BEGIN-SS AND BEGIN-WIRE BITS. 1267 HA SPEC FRAM FOUR SPEC FRAM PHONY NEEDLE-HOLDER COMPLEMENT. 1269 SWE, D12 WIRE NO D,2 FRAME 1270 SM FRAME WIR HUNDS FRAME C HUNDREDS DIGIT OF WIRE NUMBER. 1272 SWE, D12 WIRE NO D,1 FRAME 1273 SM FRAME WIR TENS FRAME C TENS DIGIT OF WIRE NUMBER. 1275 EX WIRE NO D12 FRAME 1276 SM FRAME WIR UNITS FRAME C UNITS DIGIT OF WIRE NUMBER. 1278 TX X TENS - FRAME C 1279 TX X UNITS - FRAME C 1280 TX Z UNITS - FRAME C DUMMY POSITION TO 00,0. 1282 TX R SPECS +1 - Z,X5 R1283 PROCEDURE FOR EACH CORE. 1284 TEST BIT NA, BIT MASK 5,0 ONES END WIR CH JUMP IF CORE NOT PASSED THROUGH 1286 HA SPEC FRAM FOUR SPEC FRAM COMPLEMENT NEEDLE-HOLDER BIT. 1288 TX SPEC FRAM - FRAME C SPECIAL CHARACTER FOR CORE THREADING. 1290 SWE, D12 N,X5 D,9 FRAME 1291 SM FRAME X TENS FRAME C TENS DIGIT OF X COORDINATE. 1293 SWE, D12 N,X5 D,8 FRAME 1294 SM FRAME X UNITS FRAME C UNITS DIGIT OF X COORDINATE. 1296 SWE, D12 N,X5 D,10 FRAME 1297 SM FRAME Z UNITS FRAME C Z COORDINATE. 1299 END WIR CH NA Z,X5,1 R SPECSP TEST BIT BRANCH IF MORE CORES ALONG WIRE. # Page 660 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 30 PAGE 85 P1301 PROCEDURE TO FINISH OFF A WIRE. 1302 SSL,THREE SPEC FRAM 1 C,+1 SHALL WE THREAD LAST BYPASS HOLE 1304 TX Z,SC,2 - - YES. TAKE UP RIGHT TO FINISH SIDE A 1306 TX Z,SC,6 - - NO. TOOK UP LEFT THREAD FOR SIDE B LAST 1308 TX Z,SC,5 NO. TOOK UP RIGHT THREAD FOR SIDE A LAST 1310 HA SPEC FRAM FOUR SPEC FRAM YES. TAKE UP LEFT TO FINISH SIDE B 1312 TX SPEC FRAM - FRAME C 1313 SM X TENS THREE FRAME C POSITION X = 33, Z = 0 1315 SM X UNITS THREE FRAME C 1316 TX Z UNITS - FRAME C 1317 WA BIT MASK BIT MASK BIT MASK MOVE TO NEXT WIRE. 1319 SWS, ONE BIT MASK 16 SPEC FRAM SET OR RESET END-OF-SUBSTRAND BIT. 1321 SM SPEC FRAM EIGHT SPEC FRAM SET END-WIRE BIT. 1323 TX SPEC FRAM - FRAME C SPECIAL CHARACTER FOR END-WIRE BLOCK. 1325 SWE, D12 WIRE NO D,2 FRAME 1326 SM FRAME WIR HUNDS FRAME C 1327 SWE, D12 WIRE NO D,1 FRAME 1328 SM FRAME WIR TENS FRAME C 1329 EX WIRE NO D12 FRAME 1330 SM FRAME WIR UNITS FRAME C REPEAT WIRE NUMBER. 1332 DA WIRE NO ONE WIRE NO ...THEN INCREMENT SAME. 1334 TX X TENS - FRAME C 1335 TX X UNITS - FRAME C 1336 TX Z UNITS - FRAME C DUMMY POSITION TO 00,0. 1338 HA SPEC FRAM FOUR SPEC FRAM 1339 LA BIT MASK CAC 3 RAYT WIRE BRANCH IF MORE WIRES IN SUBSTRAND. R1341 PROCEDURE TO FINISH OFF A SUBSTRAND. 1342 TX THIRTY - Z,R3 1343 TX FEED 1T7 - FRAME C 1344 NA Z,R3,1 ONE C,-1 1345 FINISH U TS W CRW FRAME GO TITLE T PUNCH PROGRAM I.D. AGAIN. 1347 TS ONES B34 SPACE TAP 1348 TS - - NEX RWT SS GO SEE IF ANOTHER SUBSTRAND IS WANTED. # Page 661 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 31 PAGE 86 P1350 *PUNCH RAYTHEON TESTER TAPE* SUBDIRECTOR ROUTINE HERE. R1351 EACH SUBSTRAND IS A SEPARATE PIECE OF PAPER. R1352 ATLEAST ONE OF THE SUBDIRECTORS *PARAGRAPH* IS REQUIRED. SEE PAGE 21. R1353 SUBDIRECTOR *MODULE DECK NUMBERS* IS REQUIRED. SEE PAGE 24. R1354 SUBDIRECTOR *USE* IS OPTIONAL. SEE PAGE 23. R1355 SUBDIRECTOR *TESTING* IS OPTIONAL. SEE PAGE 30. 1356 RAYTH TT NA N,X5,3 W TESTER BAD SD 1457 SWS,B14T24 L ARTSDK N 8,L SET WORD 1358 TS Z,SC HOLD LOC RY COMMON GO CHECK REMAINDER OF SUBDIRECTOR 1360 S,MON TYPER PRTTP MSG SPRA +32 C,+1 1361 TS Z,SC HOLD LOC READ A REQ READ TASK SUBSEQUENT SUBDIRECTORS 1363 TS Z,SC HOLD LOC GET RWT SS 1367 NA,ONE PARAG NO ZERO C,+2 1368 TS CORE 000 Z,R2 C,+2 1369 TS CORE400 - Z,R2 1370 TX ONE - BIT MASK 1371 WA Z,X1 THREE FIRST WD 1372 WA FIRST WD C 255 E 256 LOC 1373 TX ZERO - SENSE 1374 NEW WIRE TX FIRST WD - Z,R1 1375 TS STOP FRAME PCH FRAME C SEND STOP CODE 1377 TX RESET - FRAME C 1378 SM SENSE SENSE A FRAME C SEND WIRE NUMBER 1380 WA SENSE ONE SENSE 1381 SM,C7T8 STIK WIRE SENSE B FRAME C SEND STRAND NUMBER 1383 NEW CORE EX Z,R2 B44T48 FRAME SEND CORE NUMBER WITHIN BANK IN 2 FRAMES 1385 SM FRAME CORE NO A FRAME C 1386 SWE,B44T48 Z,R2,1 5 FRAME 1387 SM FRAME CORE NO B FRAME C 1388 TX N,R1,1 - IN OR NOT 1389 NA,BITMASK IN OR NOT ZERO THRU JUMP IF WIRE SHOULD THREAD CORE 1391 TX DATA - FRAME C SEND ZERO FRAME IF NOT 1393 MORE LA Z,R1 E 256 LOC NEW CORE JUMP IF PARA NOT DONE WITH THIS WIRE 1395 WA BIT MASK BIT MASK BIT MASK 1396 WD Z,R2 C 256 Z,R2 1397 LA BIT MASK CAC 3 NEW WIRE JUMP IF 16 WIRES NOT DONE 1399 TX STOP - FRAME C SEND STOP CODE 1401 TS,B14T24 SET WORD FINISH U FINISH U 1402 THRU SM ONE DATA FRAME C SEND FRAME = 1 IF CORE THREADED 1404 TS - - MORE # Page 662 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 32 PAGE 87 P1405 PROCEDURE TO PUNCH CARDS/TAPE IN CORRELATION WITH *TESTING* SUBDIRECTOR, IF ANY 1407 PRINT DAT S,PHI PRINT PRINT BUF PRINT PREVIOUS LINE, IF ANY 1409 TS HOT DOG Z,R6 BLANK OUT C BLANK OUT PRINT BUFFER 1411 TX FRAME - PRINT BUF +1 TASK CODE WORD ONTO LINE 1413 TN TITLE MSG 11 PRINT BUF +4 SAME FOR TITLE MESSAGE 1415 TS - - GO BOY 1416 JUST PUNC NA, ONE TEST INST ZERO RET GO JUMP IF PUNCHING INHIBITED 1418 FRAME PUN TS - - 0,75 C GO PUNCH ONE FRAME 1420 TX KCOMMON +5 - Z,SC CO-SEQUENCE LEFT SET TO 0,75 1422 RET GO TX Z,SC - Z,CSC C 1423 TX KCOMMON +5 - Z,SC CO-SEQUENCE LEFT SET TO PCH FRAME 1425 PCH FRAME TS Z,SC KCOMMON +5 C,+1 1426 NA,TWO TEST INST TWO JUST PUNC JUMP IF LISTING NOT REQUESTED 1428 TX KCOMMON +9 - Z,R6 1429 TX N,SC,1 - N,R6 1430 OCT 1515151515000000 1431 SWS,ACO6 FRAME 6,L N,R6 PUT CURRENT FRAME INTO PRINT LINE 1433 SWS,ACO7 FRAME 3,L N,R6 1434 SS FRAME SEVEN N,R6,1 1435 NA,ONE TEST INST ZERO C,+2 JUMP IF PUNCHING INHIBITED 1437 TS - - FRAME PUN C 1438 LA Z,R6 N,SC,1 WOW WEE JUMP IF PRINT LINE NOT FULL 1440 SPEC PRINT BUF +14 1441 GO BOY NA,ONE TEST INST ZERO C,+2 1442 TX W PUNCHED - PRINT BUF +15 1443 S,PHI PRINT PRINT BUF 1444 TX N,SC,1 - Z,R6 1445 HOT DOG SPEC PRINT BUF +1 1446 BLANK OUT MT BLANKS 15 N,R6,1 1447 TS C,-2 KCOMMON +9 RET GO SAVE LINE POINTER 1449 WOW WEE TS Z,R6 KCOMMON +9 RET GO 1450 PRINT BUF OCT 0102 1451 ALF,5 1452 ALF,5 1453 ALF,5 1455 PUNCH CD SIMULATE 1456 TS - - C,+1 14562 EBA Z,AU1 ZERO KCOMMON +8 1457 NA,TWO TEST INST TWO NO CD LIST JUMP IF LISTING NOT REQUESTED 1459 EBA KCOMMON +8 ZERO Z,X4 1460 TX Z,AU2 - KCOMMON +9 1461 TN 4,1 10 PRINT BUF +1 1462 TX BLANKS - PRINT BUF +15 1463 NA,ONE TEST INST ZERO C,+2 1464 TX W PUNCHED - PRINT BUF +15 1465 S,PHI PRINT PRINT BUF PRINT LINE = ONE CARD 1467 TX KCOMMON +9 - Z,AU2 1468 NO CD LIST TX PUNCH CD - 0,87 14682 EBA KCOMMON +8 ZERO Z,AU1 1469 NA,ONE TEST INST ZERO C,+2 JUMP IF PUNCHING INHIBITED 1471 TS - - 0,88 C GO PUNCH CARD VIA YULPASS0 1473 TS - - N,AU2 # Page 663 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 33 PAGE 88 P1474 PROCEDURE TO SET UP REQUEST FOR EITHER NO PUNCHING AND/OR LISTING OF CURRENT TASK VIA *TESTING* SUBDIRECTOR 1476 TRY TEST NA KCOMMON W TESTING TRY USE 1477 TS Z,SC Z,R1 UP WORD 1478 TS - - READ A REQ 1479 CHK TEST TS Z,SH Z,R1 RD SBDIRC IS NEXT CARD A SUBDIRECTOR 1481 TS - - N,R1 NO 1483 WA Z,X6 OCTAL 20 Z,X5 YES 1485 NA N,X5,3 W TESTING BAD SD WORD TESTING IS REQUIRED 1487 UP WORD TX N,X5,3 - KCOMMON 1488 NA KCOMMON W NOPUNCH C,+2 1489 TS,ONE ONE TEST INST UP WORD C SET INHIBIT PUNCH SWITCH 14902 NA KCOMMON W LIST C,+2 1491 TS,TWO TWO TEST INST UP WORD C SET LISTING REQUESTED SWITCH 1493 NA ONES KCOMMON BAD SD 1495 TS - - N,R1 # Page 664 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 34 PAGE 89 P1500 PROCEDURE TO COPY THE BINARY RECORD OF A PRORGRAM ONTO WORK TAPE 2 FOR COMPARISON WITH ANOTHER BY THE R1502 FOLLOWING TASK. SUBDIRECTOR IS: R1503 S COPY ONTO WORKER 1504 BLK2 COPY NA N,X5,3 W ONTO BAD SD WORD ONTO IS REQUIRED 1506 NA N,X5,3 W WORKER BAD SD WORD WORKER IS REQUIRED 1508 TX BY PAS MDN - ANY MDN * MODULE DECK NUMBERS* SD NOT ALLOWED 1510 TS Z,SC HOLD LOC RY COMMOP ZERO PARAGRAPH REEQUESTS 1512 S,MON TYPER COPY MSG SPRA+16 C,+1 PRINT OUT COPY MESSAGE 1514 TS Z,SC HOLD LOC READ A REQ GO READ TASK SUBDIRECTORS 1516 TS Z,SC HOLD LOC GET WORKR GO RESERVE YUL WORKER 2 1518 COPY XA TS Z,SC Z,X5 GET REQ PN GO GET NEXT PARAGRAPH 1520 TS - - COPY XB NO MORE PARAGRAPHS 1522 COPY XD TX 1,1 - C FIRST RC +1 PROGRAM NAME INTO STATEMENT WHICH 1524 CC C FIRST RC - C FIRST RC +6 IDENTIFIES THIS PARTICULAR COPY JOB TO 1526 TS - - MON TAPE IT'S PARTICULAR COMPARE JOB. NOW WRITE 1528 WF,2 C FIRST RC - - IT ONTO THE WORKER 1530 TN COPY LINE 3 PRINT BUF +1 1531 TX L OBJC MSG - Z,AU1 1532 OBJ MANUF MT N,AU1,1 7 N,AU2,1 1533 TS Z,SC K COMMON +5 GO BOY PREPARE AND PRINT PAGE HEAD FOR COPY. 1535 TS - - MON TAPE 1536 WF,2 - - - 1537 TX N,SC,1 - COPY XD 1538 TS - - C,+1 1539 TS - - MON TAPE 1541 WF,2 1,0 - - 1542 TS - - MON TAPE WAIT UNTIL WRITE DONE 1544 WF,2 - - - 1545 TS - - COPY XA 1546 COPY XB S,MON EOFRI TAPE ORDR - ZERO WRITE END OF FILE RECORDS 1548 S,MON TYPER E COPY MSG SPRAMR +56 C,+1 TYPE OUT COPYING DONE MESSAGE. 1550 TX ZERO - LAS MF LIN 1551 TX BLK2 CMPR -1 - BLK2 CMPR -4 PREVENT FINAL PRINTING IF COPYING. 1553 COPY XC TS B1 PRINT BUF MON TAPE REWIND WORKER 1555 RW,2 - - - 1556 TN E CMPR MSG 2 PRINT BUF +1 1557 LAS MF LIN TS Z,SC K COMMON +5 GO BOY 1558 TS OCT 00047 PRINT BUF MON TAPE REWIND YULPROGS 1560 RW,1 - - - 1561 S, PHI PRINT PRINT BUF 1562 S, PHI PRINT PRINT BUF 1563 S, PHI PRINT PRINT BUF 1564 TS - - MANUF RTN # Page 665 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 35 PAGE 90 P1565 PROCEDURE TO COMPARE THE BINARY RECORD OF A PROGRAM WITH ANOTHER STORED ON WORK TAPE 2 BY THE PRECED- R1567 ING TASK. SUBDIRECTOR IS: R1568 S COMPARE PROGRAM PROGNAME FROM WORKER 1569 BLK2 CMPR NA N,X5,3 W PROGNAM BAD SD WORD PROGRAM IS REQUIRED 1571 TX N,X5,3 - C FIRST RC +1 EXTRACT COPY PROGRAM NAME 1573 NA N,X5,3 W FROM BAD SD WORD FROM IS REQUIRED 1575 NA N,X5,3 W WORKER BAD SD WORD WORKER IS REQUIRED 1577 TX BY PAS MDN - ANY MDN * MODULE DECK NUMBER* SD NOT ALLOWED. 1579 TS Z,SC HOLD LOC RY COMMOP ZERO PARAGRAPH REQUESTS 1581 S,MON TYPER CMPAR MSG SPRA+24 C,+1 PRINT OUT COMPARE MESSAGE 1583 TS Z,SC HOLD LOC READ A REQ GO READ TASK SUBDIRECTORS 1585 S,MONTADDR TAPE ORDR MUST OWN WORKER 2 CUZ MUST FOLLOW COPY 1587 TS C,+2 HOLD LOC TAPE ORDE 1588 S, MON TYPER NO WT2 MSG SPRAMR +40 TYP ABORT 1589 SPEC C,+1 1590 TX THREE - TEST INST ENABLE PRINTING/NO PUNCH OF PCH FRAME 1592 CMPR XA TS Z,SC Z,X5 GET REQ PN GET NEXT PARAGRAPH. 1594 TS - - CMPR XB NO MORE PARAGRAPHS 1596 TX ZERO - KCOMMON +7 SHOW ZERO ERRORS SO FAR IN NEW PARA 1598 CMPR XR TX L CPY AREA - Z,X4 COPY AREA BASE ADDRESS 1600 TS - - MON TAPE READ A RECORD FROM THE WORKER 1602 RF,2 4,0 - - 1603 TS - - MON TAPE WAIT UNTIL READ IN 1605 RF,2 - - - 1606 CMPR XU NA,BANBITS 4,0 BAN EOFRI CMPR XH 1607 TS - - CMPR XS 1608 CMPR XH NA C FIRST RC 4,0 CMPR XK DEMAND MATCH OF FIRST SIX WORDS OF 1610 NA C FIRST RC +1 4,1 CMPR XK FIRST WORKER RECORD 1612 NA C FIRST RC +2 4,2 CMPR XK 1613 NA C FIRST RC +3 4,3 CMPR XK 1614 NA C FIRST RC +4 4,4 CMPR XK 1615 NA C FIRST RC +5 4,5 CMPR XK 1616 TN CMPR LINE 3 PRINT BUF +1 1617 TS L OBJC MSG Z,AU1 OBJ MANUF C 1618 TS Z,SC K COMMON +5 GO BOY PREPARE AND PRINT PAGE HEAD FOR COMPARE. 1620 TS N,SC CMPR XH CMPR XR 1621 TS - - C,+1 1622 CMPR XN NA 4,2 1,2 CMPR XC 1623 WA Z,X1 THREE Z,X5 1624 TX Z,X4,3 - - POINT TO FIRST AGC WORDS IN EACH PARA 1626 TX Z,X5 - KCOMMON + 3 1627 CMPR XG NA,CAC3 4,0 5,0 CMPR XD JUMP IF AGC WORDS DISAGREE FOR THIS LOC 1629 CMPR XQ WA Z,X4,1 Z,X5,1 - 1630 TS - - CMPR XG 1631 CMPR XD WD Z,X5 C255 Z,R1 LOOK TO SEE IF PARA BOUNDARAY EXCEEDED 1633 LA Z,R1 KCOMMON +3 CMPR XE JUMP IF PARAGRAPH NOT DONE 1635 LA KCOMMON + 9 HOT DOG CMPR XA JUMP IF NO PARTIAL LINE WAITING 1637 TS Z,SC KCOMMON +5 GO BOY PRINT REMAINING PARTIAL LINE 1639 TS - - CMPR XA 1640 CMPR XE WA KCOMMON + 7 ONE KCOMMON +7 NUMBER OF LOCS WITH DIFFERENT VALUES 1642 LA TWO KCOMMON +7 CMPR XF JUMP IF ONE ALREADY FOUND FOR THIS PARA 1644 TN CMPFL MSG 10 PRINT BUF +1 1645 SWS,ACO6 1,2 6,L PRINT BUF +2 SET PARAGRAPH NUMBER INTO COMPARE FAIL 1647 SWS,ACO7 1,2 3,L PRINT BUF +3 MESSAGE # Page 666 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 36 PAGE 91 1649 SS 1,2 SEVEN PRINT BUF + 2 1650 TS Z,SC KCOMMON +5 GO BOY PRINT COMPARE FAIL MESSAGE 1652 CMPR XF WD Z,X5 KCOMMON+3 FRAME DETERMINE WORD'S RELATIVE PARAGRAPH LOC 1654 TS - - PCH FRAE C SET WORD RELATIVE LOC ONTO PRINT LINE 1656 TS - - CMPR XQ 1657 CMPR XC LA 4,2 1,2 CMPR XL JUMP IF PARAGRAPH NOT ON YULPROGS 1659 SWS,ACO6 1,2 6,L CMPR XM +1 COMPLAIN ABOUT PARAGRAPH BEING MISSING 1661 SWS,ACO7 1,2 3,L CMPR XM +1 IN THE COPY PROGRAM 1663 SS 1,2 SEVEN CMPR XM +1 1664 TN CMPR XM 5 PRINT BUF +1 1665 TS Z,SC KCOMMON +5 GO BOY 1666 S,MON TYPER CMPR XM SPRA+40 C,+1 1667 TX Z,X4 - KCOMMON+8 1668 TS Z,SC Z,X5 GET REQ PN GET NEXT PARAGRAPH 1670 TS KCOMMON +8 Z,X4 CMPRXB 1671 TS KCOMMON +8 Z,X4 CMPR XN 1672 CMPR XM ALF,5 PARAGRAPH 000 MISSING IN COPY PROGRAM 1673 CMPR XL SWS,ACO6 4,2 6,L CMPR XP +1 COMPLAIN ABOUT PARAGRAPH BEING MISSING 1675 SWS,ACO7 4,2 3,L CMPR XP +1 IN COMPARE PROGRAM 1677 SS 4,2 SEVEN CMPR XP +1 1678 TN CMPR XP 6 PRINT BUF + 1 1679 TS Z,SC KCOMMON +5 GO BOY 1680 S,MON TYPER CMPR XP SPRA +48 CMPR XR 1681 CMPR XP ALF,5 PARAGRAPH 000 MISSING IN COMPARE PROG 1682 ALF,1 RAM 1683 CMPR XB TS N,SC CMPR XU CMPR XR READ WORKER RECORD 1685 TS - - C,+1 1686 NA,BANBITS 4,0 BANEOFRI CMPR XW JUMP IF NOT END OF WORKER 1688 S,MON TYPER E CMPR MSG SPRAMR+16 COPY XC PRINT COMPARE DONE MESSAGE 1690 CMPR XW SWS,ACO6 4,2 6,L CMPR XX +1 COMPLAIN ABOUT POSSIBLE MISSING 1692 SWS,ACO7 4,2 3,L CMPR XX +1 PARAGRAPHS IN THE COMPARE PROGRAM 1694 SS 4,2 SEVEN CMPR XX +1 1695 TN CMPR XX 7 PRINT BUF +1 1696 TS Z,SC KCOMMON +5 GO BOY 1697 S,MON TYPER CMPR XX SPRAMR+56 COPY XC 1698 CMPR XX ALF,5 PARAGRAPHS 000 AND ABOVE MISSING FROM 1699 ALF,2 COMPARE PROGRAM 1700 CMPR XS SWS,ACO6 1,2 6,L CMPR XT +1 COMPLAIN ABOUT MISSIGN PARAGRAPHS IN 1702 SWS,ACO7 1,2 3,L CMPR XT +1 THE COPY PROGRAM 1704 SS 1,2 SEVEN CMPR XT +1 1705 TN CMPR XT 7 PRINT BUF +1 1706 TS Z,SC KCOMMON +5 GO BOY 1707 S,MON TYPER CMPR XT SPRAMR+56 COPY XC 1708 CMPR XT ALF,5 PARAGRAPHS 000 AND ABOVE MISSING FROM 1709 ALF,2 COPY PROGRAM 1710 CMPR XK S,MONTYPER C,+1 SPRAMR +56 CMPR XJ 1711 ALF,5 COPY JOB EITHER MISSING, UNSUCCESSFUL, 1712 ALF,2 NOT MATCHING OR 1713 CMPR XJ S,MONTYPER C,+1 SPRAMR +56 COPY XC 1714 ALF,5 WAS NOT IMMEDIATELY FOLLOWED BY THIS COM 1715 ALF,2 PARE JOB 1716 GET WORKER S,MON TADDR TAPE ORDR ASK IF YUL SYSTEM HAS RESERVED A WORKER 1718 TS - - TAPE ORDE IT CALLS 2. YES IT HAS. 1720 TS ONES C,+3 PHI SNACH NO IT HAS NOT, GO GET IT. 1722 ALF,3 W00Y0102YULWRK2 # Page 667 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 37 PAGE 92 1723 TAPE ORDE TS - - MON TAPE REWIND WORKER 1725 TAPE ORDR RW,2 - - - 1726 TS CAC3 Z,X4 MON TAPE SKIP OVER LABEL RECORD 1728 RF,2 4,0 - - 1729 TS - - MON TAPE WAIT UNTIL SKIP DONE 1731 RF,2 - - - 1732 TX HOLD LOC - Z,SC RETURN TO CALLER 1734 COPY AREA RESERVE 262 WORK AREA FOR COPY AND COMPARE ROUTINES # Page 668 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 38 PAGE 93 P1736 * "PUNCH SIMULATION DECK" SUBDIRECTOR ROUTINE, FOR USE WITH SEGMENTS ONLY. SUBDIRECTOR "TESTING" IS R1738 *OPTIONAL. SEE PAGE 30. THIS ROUTINE PUNCHES SPECIAL REQUESTS CARDS FOR THE SIMULATOR, TO ALLOW TESTING OF SEG- R1740 *MENTS IN CONJUNCTION WITH A PROGRAM. 1741 *TRY SMLTN NA K COMMON W SIMLATN BAD SD 1742 * NA K COMMON +1 W SIMLATN +1 BAD SD "SIMULATION" IS REQUIRED. 1744 * NA N,X5,3 W DECK BAD SD "DECK" IS REQUIRED. 1746 * NA N,X5 ONES BAD SD FURTHER WORDS ARE FORBIDDEN. 1748 * TS - - CHK TEST SEE IF "TESTING" SUBDIRECTOR IS THERE. 1750 * S, MON TYPER SIMDK MSG SPRA +24 - "PUNCH SIMULATION DECK". 1752 * NA, BIT7 SWITCH ZERO C,+2 BRANCH IF MANUFACTURING A SEGMENT. 1754 * S, MON TYPER SMDSO MSG SPRAMR +40 TYP ABORT "SIMULATION DECK IS FOR SEGMENTS ONLY". 1756 * TS L OBJC MSG Z,R1 E SYLT OK 1757 * TN SIM CARD 3 CARDS 1758 * MT N,R1,1 7 N,AU2,1 1759 * S, PUNCH CD CARDS -1 ALPHA C,+1 SET UP AND PUNCH IDENTIFYING CARD. 1761 * TX BLANKS - CARDS 1762 * TN CARDS 9 CARDS +1 1763 * TX W EXERASE - CARDS +3 1764 * S, PUNCH CD CARDS -1 ALPHA C,+1 POLICE UP AND GIVE HIM A FREE EXERASE. R1766 *LOOP FOR EACH PARAGRAPH (EQUALS ONE EBANK). 1767 *SIMDEK PH TS E COMMA XX CARDS +1 FETCH SS INITIALIZE LOC FIELD AND GET A PARAG. 1769 * S, PUNCH CD EOR BINARY CLOSE PCH +1 EXIT IF NO MORE PARAGRAPHS. 1771 * LA EIGHT 1,2 C,-1 EXIT IF WANDERED INTO FIXED MEMORY. 1773 * LA THREE 1,2 SIM EBANK BRANCH IF PART OF SWITCHED ERASBLE. 1775 * SWE, ONES 1,2 8,L BEGIN ADR FORM LOCATION VALUE IN UNSWITCHED E. 1777 * TS 4 ZEROS CARDS +1 C,+3 NO EBANK NOTATION IN LOC FIELD HERE. 1779 *SIM EBANK SWE, ONES RESET 3,L BEGIN ADR LOC VALUE INIT = 1400 FOR ALL EBANKS. 1781 * SWS, ACO2 1,2 A,2 CARDS +1 SUPPLY EBANK NUMBER TO LOC FIELD. 1783 * WA Z,X1 THREE Z,X5 POINT TO FIRST AGC WORD IN PARAGRAPH. R1785 *LOOP FOR EACH WORD IN AN OCCUPIED PARAGRAPH. 1786 *SIM DEK WD NA N,X5 ZERO C,+2 BRANCH IF LOCATION IS OCCUPIED. 1788 * TS Z,X5,1 CARDS +3 ADV SMLOC CLOBBER OP FIELD AND GO ON TO NEXT WORD. 1790 * SSL, SEVEN N,X5 27 C,+1 SELECT ON TYPE FLAG. 1792 * NA, ONE SWITCH ONES C,+3 IF INDEXED INSTRUCTION, PUNCH AS OCT. 1794 * TS OCT FORM CARDS +4 SIM OCTWD INTERPRETIVE OPERATOR WORDS. 1796 * TS OCT FORM CARDS +4 SIM OCTWD CONSTANTS OF ALL SORTS. 1798 * TS 4 ZEROS CARDS +4 SIM INSTR BASIC INSTRUCTIONS WITH REF CUSSES. 1800 * TN W BAD WORD 2 CARDS +3 BAD OR CONFLICT: OP = "BADWORD", NO ADR. 1802 * TS Z,X5,1 - SIM LOCFD 1803 *SIM OCTWD SWS, ACO1 N,X5 29,L CARDS +4 1804 * SWS, ACO2 N,X5 26,L CARDS +4 1805 * SWS, ACO3 N,X5 23,L CARDS +4 1806 * SWS, ACO4 N,X5 20,L CARDS +4 1807 * SWS, ACO5 N,X5 17,L CARDS +4 1808 * TS W OCT CARDS +3 SIM LOCFD FORM ADDRESS AND OP FIELDS OF OCT CARD. # Page 669 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 39 PAGE 94 P18095 *PROCEDURE TO RECONSTITUTE THE MENMONIC OP CODE OF INSTRUCTIONS. 1810 *SIM INSTR SWE, SEVEN N,X5 13 K COMMON ISOLATE 3-BIT FULL OP CODE. 1812 * SSL, ONE N,X5 21 C,+1 "BRANCH" IF IT'S AN EXTRACODE INSTR. 1814 * TS L OP CODES Z,R1 SIM BCODS POINT TO ARRAY OF NON-EXTRACODE OPS. 1816 *SIM XCODS WA L OP CODES SEVEN Z,R1 POINT TO ARRAY OF EXTRACODE OPS. 1818 * LA FIVE K COMMON IMPLAD OP +1 BRANCH IF INDEX, SU, BZMF, OR MP. 1820 * LA K COMMON TWO C,+2 BRANCH IF NOT DCA OR DCS. 1822 * WD N,X5 TWO N,X5 (BECAUSE SIMULATOR WILL INCREMENT DP'S). 1825 * NA K COMMON ZERO IMPLAD OP +1 BRANCH IF NOT ONE OF THE CHANNEL OPS. 1827 * SWE, SEVEN N,X5 10 K COMMON ISOLATE THE 3-BIT EXTENSION OF OP. 1829 * NA K COMMON SEVEN C,+2 BRANCH IF NOT AN EDRUPT. 1831 * TS W EDRUPT CARDS +3 12 BIT ADR TREAT EDRUPT LIKE A FULL CODE. 1833 * WA L CHAN OPS K COMMON Z,R1 1834 * TS N,R1 CARDS +3 9 BIT ADR SET UP CHANNEL OP FIELD, GO FOR ADDRESS. 1836 *SIM BCODS SWE, CAC3 N,X5 1 K COMMON +1 MOVE WORD FOR SPECIAL-CASE CHECK. 1838 * NA K COMMON +1 THREE C,+2 1839 * TS W RELINT CARDS +3 IMPLAD OP 1840 * NA K COMMON +1 FOUR C,+2 1841 * TS W INHINT CARDS +3 IMPLAD OP 1842 * NA K COMMON +1 SIX C,+2 1843 * TS W EXTEND CARDS +3 IMPLAD OP 1844 * NA K COMMON +1 RESUME WD C,+3 1845 * TX W RESUME - CARDS +3 # (jl) Annotation: the following line has "SIM LOCFD" crossed out and replaced with "SIM OCTWD -1". 1846 *IMPLAD OP TS BLANKS CARDS +4 SIM LOCFD CLEAR ADDRESS FIELD FOR IMPLIED-ADDRESS. 1848 * WA Z,R1 K COMMON Z,R1 POINT TO FULL CODE OR POINTER TO 1ST QC. 1850 * TX N,R1 - CARDS +3 INITIALLY ASSUME FULL CODE. 1852 * LA CAC3 CARDS +3 12 BIT ADR BRANCH IF INDEED A FULL CODE. 1854 * SWE, THREE N,X5 11 K COMMON ISOLATE QUARTER-CODE BITS. 1856 * WA CARDS +3 K COMMON Z,R1 POINT TO QUARTER CODE. 1858 * LA CORE 000 CARDS +3 SIM QCODS BRANCH IF TRULY FOUR QUARTER CODES. 1860 * LA K COMMON ZERO C,+2 BRANCH IF ONE-QUARTER, NOT 3-QUARTER. 1862 * WA CARDS +3 ONE Z,R1 POINT TO THREE-QUARTER CODE. 1864 * TS N,R1 CARDS +3 12 BIT ADR SET UP ONE- OR THREE-QUARTER-CODE OP. 1866 *SIM QCODS NA N,R1 DAS ETC C,+2 1867 * TX Z,SC,1 - - DECREMENT ADDRESS OF DAS. 1869 * NA N,R1 INDEX ETC +1 C,+2 1870 * WD N,X5 TWO N,X5 DECREMENT ADDRESS OF DXCH. 1872 * EX N,X5 OCT 3776 N,X5 ISOLATE ADDRESS VALUE OF QC INSTRUCTION. 1874 * TS N,R1 CARDS +3 ADR IN E ...AND SET UP ITS OP CODE FIELD. # Page 670 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 40 PAGE 95 P18755 *PROCEDURE TO SET UP ADDRESS FIELD OF INSTRUCTIONS, USING BANK NOTATION WHERE APPROPRIATE. 1876 *12 BIT ADR EX N,X5 OCT 17777 N,X5 # (jl) Annotation: the following line has "OCT 3776" replaced with "OCT 3777". 1877 * LA N,X5 OCT 3776 C,+3 BRANCH IF ADDRESS IS IN ERASABLE. 1879 * LA OCT 10000 N,X5 C,+4 BRANCH IF ADDRESS IS IN FIXED-FIXED. 1881 * TS, C1T3 FBANK 00 CARDS +4 C,+3 ADDRESS IS IN A FIXED BANK. ASSUME 00. # (jl) Annotation: the following line has "OCT 2776" replaced with "OCT 2777". 1883 *ADR IN E LA N,X5 OCT 2776 C,+2 BRANCH IF ADDRESS IS IN UNSWITCHED E. 1885 * SS CARDS +1 C1T3 CARDS +4 ADDRESS IN EBANK. ASSUME SAME AS LOC. 1887 * SWS, ACO4 N,X5 14,L CARDS +4 1888 *9 BIT ADR SWS, ACO5 N,X5 11,L CARDS +4 1889 * SWS, ACO6 N,X5 8,L CARDS +4 1890 * SWS, ACO7 N,X5,1 5,L CARDS +4 SET UP ADDRESS FIELD OF ANY INSTRUCTION. 1892 *SIM LOCFD SWS, ACO4 BEGIN ADR 15,L CARDS +1 1893 * SWS, ACO5 BEGIN ADR 12,L CARDS +1 1894 * SWS, ACO6 BEGIN ADR 9,L CARDS +1 1895 * SWS, ACO7 BEGIN ADR 6,L CARDS +1 1896 * S, PUNCH CD CARDS -1 ALPHA C,+1 SET UP LOCATION FIELD AND PUNCH CARD. 1898 *ADV SMLOC WA BEGIN ADR ONE BEGIN ADR STEP LOCATION VALUE. 1900 * NA CARDS +3 INDEX ETC C,+2 BRANCH IF NOT AN INDEX INSTRUCTION. 1902 * TS, ONE ONES SWITCH C,+2 FLAG TO MAKE NEXT INSTR PUNCH AS OCT. 1904 * SS ZERO ONE SWITCH 1905 * NA 5,2 EOR SIM DEK WD CONTINUE IF NOT END OF PARAGRAPH. 1907 * TS ZERO CARDS +3 SIM DEK PH CLOBBER OP FIELD AND GET NEXT PARAGRAPH. # END OF REVISION 9 OF PROGRAM YULMANUF BY HB-S # Page 671 # @YUL SYSTEM MANUFACTURING - BLK2 USER'S OWN PAGE NO. 41 PAGE 96 # No source code on this page.