Revision 62edbcc8c6021789df156749d71229308ba4313a authored by Ronald Burkey on 08 August 2021, 00:25:00 UTC, committed by GitHub on 08 August 2021, 00:25:00 UTC
yaAGCb1: Fixed a few errors identified by SELF-CHECK
YUL_SYSTEM_MANUFACTURING_-_BLK2.argus
# Copyright: Public domain.
# Filename: YUL_SYSTEM_MANUFACTURING_-_BLK2.mitigus
# Purpose: Part of the source code for YUL (revision 9).
# Assembler: TBD
# Contact: Jim Lawton <jim.lawton@gmail.com>
# 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 RAYTHEON WIRING TAPE AND RAYTHEON 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.
Computing file changes ...
