Source Code
![]() |
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55 BY NASA 1021108-021 DEC. 4, 1966Note that the date is the date of the printout, not the date of the program revision. Due to statements by Jay Sampson, the original contractor from AC Electronics who created Solarium 54 (Apollo 4) from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and Solarium 55 (Apollo 6) are actually identical programs. The change in numbering, from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed that the source-code represented here is equally appropriate for both Apollo 4 and Apollo 6 missions. |
018051,000002: ## Copyright: Public domain.
018052,000003: ## Filename: PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
018053,000004: ## Purpose: Part of the source code for Solarium build 55. This
018054,000005: ## is for the Command Module's (CM) Apollo Guidance
018055,000006: ## Computer (AGC), for Apollo 6.
018056,000007: ## Assembler: yaYUL --block1
018057,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
018058,000009: ## Website: www.ibiblio.org/apollo/index.html
018059,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
018060,000011: ## Mod history: 2009-09-23 JL Created.
018061,000012: ## 2016-08-19 RSB Typos.
018062,000013: ## 2016-08-20 RSB More typos.
018063,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
018064,000015: ## and fixed errors found.
018065,000016: ## 2017-01-28 RSB WTIH -> WITH.
018066,000017: ## 2017-02-08 RSB Comment-text fixes noted while proofing Artemis 72.
018067,000018: ## 2017-03-08 RSB Comment-text fixes noted in proofing Luminary 116.
018068,000019:
![]() |
Page 481 |
018070,000021:
018071,000022: # KEYBOARD AND DISPLAY PROGRAM
018072,000023:
018073,000024:
018074,000025:
018075,000026: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
018076,000027:
018077,000028: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
018078,000029: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
018079,000030: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
018080,000031:
018081,000032: # HENRY 6, ACT 2, SCENE 4
018082,000033:
018083,000034:
018084,000035: # SUMMARY OF ERASABLE ASSIGNMENTS FOR KEYBOARD AND DISPLAY PROGRAM
018085,000036: # WHICH ARE ALL DEFINED ELSEWHERE.
018086,000037:
018087,000038:
018088,000039:
018089,000040: # SETLOC 627
018090,000041:
018091,000042: # BUFFER STORAGE AREAS FOR ROUTINES USING DISPLAY OR LOAD ROUTINES.
018092,000043: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
018093,000044: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
018094,000045:
018095,000046: # ERASABLE ASSIGNMENTS SPECIFIC TO PINBALL
018096,000047:
018097,000048:
018098,000049:
018099,000050: # ERASABLES RESERVED FOR EXECUTIVE ACTION
018100,000051:
018101,000052: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
018102,000053: # DECBRNCH ERASE +DEC, - DEC, OCT INDICATOR
018103,000054: # VERBREG ERASE VERB CODE
018104,000055: # NOUNREG ERASE NOUN CODE
018105,000056: # XREG ERASE R1 INPUT BUFFER
018106,000057: # YREG ERASE R2 INPUT BUFFER
018107,000058: # ZREG ERASE R3 INPUT BUFFER
018108,000059: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
018109,000060: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
018110,000061: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
018111,000062: # MODREG ERASE MODE CODE
018112,000063: # DSPLOCK = STATE (BIT4) KEYBOARD/SUBROUTINE CALL INTERLOCK
018113,000064: # REQRET ERASE RETURN REGISTER FOR LOAD
018114,000065: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
018115,000066: # CLPASS ERASE PASS INDICATOR CLEAR
018116,000067: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
018117,000068: # NOUNADD ERASE MACHINE ADDRESS FOR NOUN
018118,000069: # MONSAVE ERASE N/V CODE FOR MONITOR. ALSO ACTIVITY
018119,000070: # MONSAVE1 ERASE NOUNADD STORAGE FOR MONITOR WITH MATBS
018120,000071: # DSPTAB ERASE +13D 0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
![]() |
Page 482 |
018122,000073: # CADRSTOR ERASE ENDIDLE STORAGE
018123,000074: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
018124,000075: # NVSBCADR ERASE NVSUB STORAGE FOR CALLING CADR
018125,000076: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
018126,000077: # END OF ERASABLES RESERVED FOR EXECUTIVE ACTION
018127,000078:
018128,000079: # ERASABLES RESERVED FOR INTERRUPT ACTION
018129,000080:
018130,000081: # IN0WORD ERASE INPUT CODE STORAGE (KEYRUPT OR UPRUPT)
018131,000082: # DSPCNT ERASE COUNTER FOR DSPOUT
018132,000083:
018133,000084:
018134,000085:
018135,000086: # TEMPORARY ERASABLES FOR EXECUTIVE ACTION
018136,000087:
018137,000088: # DSEXIT = COMPON RETURN FOR DSPIN
018138,000089: # EXITEM = COMPON RETURN FOR SCALE FACTOR ROUTINE SELECT
018139,000090: # BLANKRET = COMPON RETURN FOR 2BLANK
018140,000091:
018141,000092: # WRDRET = TEM9 RETURN FOR 5BLANK
018142,000093: # WDRET = TEM9 RETURN FOR DSPWD
018143,000094: # DECRET = TEM9 RETURN FOR PUTCOM(DEC LOAD)
018144,000095: # 21/22REG = TEM9 TEMP FOR CHARIN
018145,000096:
018146,000097: # UPDATRET = ORDER RETURN FOR UPDATNN, UPDATVB
018147,000098: # CHAR = ORDER TEMP FOR CHARIN
018148,000099: # ERCNT = ORDER COUNTER FOR ERROR LIGHT RESET
018149,000100: # DECOUNT = ORDER COUNTER FOR SCALING AND DISPLAY (DEC)
018150,000101:
018151,000102: # SGNON = TEM11 TEMP FOR +,- ON
018152,000103: # NOUNTEM = TEM11 COUNTER FOR MIXNOUN FETCH
018153,000104: # DISTEM = TEM11 COUNTER FOR OCTAL DISPLAY VERBS
018154,000105: # DECTEM = TEM11 COUNTER FOR FETCH (DEC DISPLAY VERBS)
018155,000106: # DECTEM1 = TEM11 TEMP FOR NUM
018156,000107:
018157,000108: # SGNOFF = DVSW TEMP FOR +,- ON
018158,000109: # NVTEMP = DVSW TEMP FOR NVSUB
018159,000110: # SFTEMP1 = DVSW STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
018160,000111: # DECTEM2 = DVSW TEMP FOR NUM
018161,000112:
018162,000113: # CODE = BRANCHQ FOR DSPIN
018163,000114: # SFTEMP2 = BRANCHQ STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
018164,000115:
018165,000116: # ENTRET = MODE EXIT FROM ENTER
018166,000117:
018167,000118: # PROGREG = VBUF +2 FOR GO EXEC PROGRAM
018168,000119: # MIXTEMP = VBUF +2 FOR MIXNOUN DATA
018169,000120: # SIGNRET = VBUF +2 RETURN FOR +,- ON
018170,000121:
![]() |
Page 483 |
018172,000123:
018173,000124: # ALSO PROGREG+1, PROGREG+2. MIXTEMP+1, MIXTEMP+2.
018174,000125:
018175,000126: # WDCNT = VBUF +5 CHAR COUNTER FOR DSPWD
018176,000127: # INREL = VBUF +5 INPUT BUFFER SELECTOR ( X,Y,Z, REG )
018177,000128:
018178,000129: # MIXBR = TEM10 INDICATOR FOR MIXED OR NORMAL NOUN
018179,000130: # DSPMMTEM = TEM10 DSPCOUNT SAVE FOR DSPMM
018180,000131:
018181,000132: # MONTEM = NEWEQIND TEMP RETURN FOR MONITOR
018182,000133: # DSREL = TEM2 REL ADDRESS FOR DSPIN (TEM2 USED BY DAD1)
018183,000134:
018184,000135: # DSMAG = TEM4 MAGNITUDE STORE FOR DSPIN
018185,000136: # IDADDTEM = TEM4 MIXNOUN INDIRECT ADDRESS STORAGE
018186,000137:
018187,000138: # COUNT = TEM5 FOR DSPIN (TEM5 IS USED BY DAD)
018188,000139: # LSTPTR = ARETURN LIST POINTER FOR GRABUSY
018189,000140: # RELRET = ARETURN RETURN FOR RELDSP
018190,000141: # FREERET = ARETURN RETURN FOR FREEDSP
018191,000142:
018192,000143: # CADRTEM = ESCAPE TEMP STORAGE FOR GRAB ROUTINES
018193,000144:
018194,000145: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
018195,000146: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
018196,000147: # IDAD1TEM ERASE TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
018197,000148: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
018198,000149: # IDAD2TEM ERASE TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
018199,000150: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
018200,000151: # IDAD3TEM ERASE TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
018201,000152: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
018202,000153:
018203,000154:
018204,000155:
018205,000156: # TEMPORARY ERASABLES FOR INTERRUPT ACTION
018206,000157:
018207,000158: # KEYTEMP1 = WTEXIT TEMP FOR KEYRUPT, UPRUPT
018208,000159: # DSRUPTEM = WTEXIT TEMP FOR DSPOUT
018209,000160: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
018210,000161:
![]() |
Page 484 |
018212,000163:
018213,000164: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
018214,000165: # 0 10000
018215,000166: # 1 00001
018216,000167: # 9 01001
018217,000168: # VERB 10001
018218,000169: # ERROR RES 10010
018219,000170: # KEY RLSE 11001
018220,000171: # + 11010
018221,000172: # - 11011
018222,000173: # ENTER 11100
018223,000174: # CLEAR 11110
018224,000175: # NOUN 11111
018225,000176:
018226,000177:
018227,000178:
018228,000179: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
018229,000180: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
018230,000181: # ENERGIZED.
018231,000182: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
018232,000183: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
018233,000184: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
018234,000185:
018235,000186: # THE PANEL APPEARS AS FOLLOWS,
018236,000187: # MD1 MD2 (MAJOR MODE)
018237,000188: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
018238,000189: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
018239,000190: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
018240,000191: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
018241,000192:
018242,000193: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
018243,000194: # MD1 25 R2D1 11 ALL ARE OCTAL
018244,000195: # MD2 24 R2D2 10
018245,000196: # VD1 23 R2D3 7
018246,000197: # VD2 22 R2D4 6
018247,000198: # ND1 21 R2D5 5
018248,000199: # ND2 20 R3D1 4
018249,000200: # R1D1 16 R3D2 3
018250,000201: # R1D2 15 R3D3 2
018251,000202: # R1D3 14 R3D4 1
018252,000203: # R1D4 13 R3D5 0
018253,000204: # R1D5 12
018254,000205:
018255,000206:
018256,000207:
018257,000208: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
018258,000209:
018259,000210: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
018260,000211: # RELADD
018261,000212: # 10 1011 MD1 (25) MD2 (24)
018262,000213: # 9 1010 FLASH VD1 (23) VD2 (22)
![]() |
Page 485 |
018264,000215: # 8 1001 ND1 (21) ND2 (20)
018265,000216: # 7 1000 UPACT R1D1 (16)
018266,000217: # 6 0111 +R1 R1D2 (15) R1D3 (14)
018267,000218: # 5 0110 -R1 R1D4 (13) R1D5 (12)
018268,000219: # 4 0101 +R2 R2D1 (11) R2D2 (10)
018269,000220: # 3 0100 -R2 R2D3 (7) R2D4 (6)
018270,000221: # 2 0011 R2D5 (5) R3D1 (4)
018271,000222: # 1 0010 +R3 R3D2 (3) R3D3 (2)
018272,000223: # 0 0001 -R3 R3D4 (1) R3D5 (0)
018273,000224: # 0000 NO RELAYWORD
018274,000225:
018275,000226:
018276,000227:
018277,000228: # THE 5 BIT RELAY CODES ARE,
018278,000229: # BLANK 00000
018279,000230: # 0 10101
018280,000231: # 1 00011
018281,000232: # 2 11001
018282,000233: # 3 11011
018283,000234: # 4 01111
018284,000235: # 5 11110
018285,000236: # 6 11100
018286,000237: # 7 10011
018287,000238: # 8 11101
018288,000239: # 9 11111
018289,000240:
![]() |
Page 486 |
018291,000242:
018292,000243: 06,6000 SETLOC 14000
018293,000244:
018294,000245: 06,6000 30001 FLASHON XCH Q
018295,000246: 06,6001 50112 TS DSEXIT
018296,000247: 06,6002 07453 TC FLASHON1
018297,000248:
018298,000249: 06,6003 30001 FLASHOFF XCH Q
018299,000250: 06,6004 50112 TS DSEXIT
018300,000251: 06,6005 07462 TC FLASHOF1
018301,000252: # END OF STANDARD LEAD INS.
018302,000253:
018303,000254:
018304,000255:
018305,000256: 06,6006 03265 CHARIN TC DSPLOCK1 # BLOCK DISPLAY SYST BUT SAVE OLD
018306,000257: 06,6007 74513 MASK BIT4 # C(DSPLOCK) FOR ERROR LIGHT RESET.
018307,000258: 06,6010 50106 TS 21/22REG
018308,000259: 06,6011 30115 XCH MPAC
018309,000260: 06,6012 50063 TS CHAR
018310,000261: 06,6013 20000 INDEX A
018311,000262: 06,6014 06015 TC +1 # INPUT CODE FUNCTION
018312,000263: 06,6015 07440 TC CHARALRM # 0
018313,000264: 06,6016 06072 TC NUM # 1
018314,000265: 06,6017 06072 TC NUM # 2
018315,000266: 06,6020 06072 TC NUM # 3
018316,000267: 06,6021 06072 TC NUM # 4
018317,000268: 06,6022 06072 TC NUM # 5
018318,000269: 06,6023 06072 TC NUM # 6
018319,000270: 06,6024 06072 TC NUM # 7
018320,000271: 06,6025 06063 TC 89TEST # 10 8
018321,000272: 06,6026 06063 TC 89TEST # 11 9
018322,000273: 06,6027 07440 TC CHARALRM # 12
018323,000274: 06,6030 07440 TC CHARALRM # 13
018324,000275: 06,6031 07440 TC CHARALRM # 14
018325,000276: 06,6032 07440 TC CHARALRM # 15
018326,000277: 06,6033 07440 TC CHARALRM # 16
018327,000278: 06,6034 07440 TC CHARALRM # 17
018328,000279: 06,6035 06070 TC NUM -2 # 20 0
018329,000280: 06,6036 06252 TC VERB # 21 VERB
018330,000281: 06,6037 06402 TC ERROR # 22 ERROR LIGHT RESET
018331,000282: 06,6040 06057 TC ABORTCAL # 23 ABORT
018332,000283: 06,6041 07440 TC CHARALRM # 24
018333,000284: 06,6042 07440 TC CHARALRM # 25
018334,000285: 06,6043 07440 TC CHARALRM # 26
018335,000286: 06,6044 07440 TC CHARALRM # 27
018336,000287: 06,6045 07440 TC CHARALRM # 30
018337,000288: 06,6046 07475 TC VBRELDSP # 31 KEY RELEASE
018338,000289: 06,6047 06316 TC POSGN # 32 +
018339,000290: 06,6050 06302 TC NEGSGN # 33 -
018340,000291: 06,6051 06055 TC ENTERJMP # 34 ENTER
018341,000292: 06,6052 07440 TC CHARALRM # 35
![]() |
Page 487 |
018343,000294: 06,6053 06501 TC CLEAR # 36 CLEAR
018344,000295: 06,6054 06274 TC NOUN # 37 NOUN
018345,000296:
018346,000297:
018347,000298:
018348,000299: 06,6055 05720 ENTERJMP TC POSTJUMP
018349,000300: 06,6056 16007 CADR ENTER
018350,000301:
018351,000302: 06,6057 36062 ABORTCAL CAF OCT32
018352,000303: 06,6060 05720 TC POSTJUMP # FORCE DECODING OF VERB 72 AND DO RELDSP.
018353,000304: 06,6061 16136 CADR JAMEXTVB
018354,000305:
018355,000306: 06,6062 00032 OCT32 OCT 32
018356,000307:
018357,000308:
018358,000309:
018359,000310: 06,6063 34473 89TEST CAF THREE
018360,000311: 06,6064 70615 MASK DECBRNCH
018361,000312: 06,6065 10000 CCS A
018362,000313: 06,6066 06072 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
018363,000314: 06,6067 07440 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
018364,000315:
018365,000316:
018366,000317:
018367,000318: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
018368,000319: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
018369,000320: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
018370,000321: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
018371,000322: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
018372,000323: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
018373,000324:
018374,000325: 06,6070 35501 CAF ZERO
018375,000326: 06,6071 50063 TS CHAR
018376,000327: 06,6072 10614 NUM CCS DSPCOUNT
018377,000328: 06,6073 06077 TC +4 # +
018378,000329: 06,6074 06077 TC +3 # +0
018379,000330: 06,6075 06076 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
018380,000331: 06,6076 02124 TC ENDOFJOB # -0
018381,000332: 06,6077 06222 TC GETINREL
018382,000333: 06,6100 10633 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
018383,000334: 06,6101 35501 CAF ZERO
018384,000335: 06,6102 50633 TS CLPASS
018385,000336: 06,6103 06104 TC +1
018386,000337: 06,6104 20063 INDEX CHAR
018387,000338: 06,6105 32652 CAF RELTAB
018388,000339: 06,6106 73220 MASK LOW5
018389,000340: 06,6107 50111 TS CODE
018390,000341: 06,6110 30614 XCH DSPCOUNT
018391,000342: 06,6111 50104 TS COUNT
018392,000343: 06,6112 50614 TS DSPCOUNT
![]() |
Page 488 |
018394,000345: 06,6113 07341 TC DSPIN
018395,000346: 06,6114 34473 CAF THREE
018396,000347: 06,6115 70615 MASK DECBRNCH
018397,000348: 06,6116 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
018398,000349: 06,6117 06130 TC DECTOBIN # +
018399,000350: 06,6120 20076 INDEX INREL # +0 OCTAL
018400,000351: 06,6121 30602 XCH VERBREG
018401,000352: 06,6122 50022 TS CYL
018402,000353: 06,6123 40022 CS CYL
018403,000354: 06,6124 40022 CS CYL
018404,000355: 06,6125 30022 XCH CYL
018405,000356: 06,6126 60063 AD CHAR
018406,000357: 06,6127 06146 TC ENDNMTST
018407,000358: 06,6130 20076 DECTOBIN INDEX INREL
018408,000359: 06,6131 30602 XCH VERBREG
018409,000360: 06,6132 50115 TS MPAC # SUM X 2EXP-14 IN MPAC
018410,000361: 06,6133 35501 CAF ZERO
018411,000362: 06,6134 50116 TS MPAC +1
018412,000363: 06,6135 33232 CAF TEN # 10 X 2EXP-14
018413,000364: 06,6136 05416 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
018414,000365: 06,6137 30116 XCH MPAC +1
018415,000366: 06,6140 60063 AD CHAR
018416,000367: 06,6141 50116 TS MPAC +1
018417,000368: 06,6142 06146 TC ENDNMTST # NO OF
018418,000369: 06,6143 60115 AD MPAC # OF MUST BE 5TH CHAR
018419,000370: 06,6144 50115 TS MPAC
018420,000371: 06,6145 06165 TC DECEND
018421,000372: 06,6146 20076 ENDNMTST INDEX INREL
018422,000373: 06,6147 50602 TS VERBREG
018423,000374: 06,6150 40614 CS DSPCOUNT
018424,000375: 06,6151 20076 INDEX INREL
018425,000376: 06,6152 66211 AD CRITCON
018426,000377: 06,6153 10000 CCS A
018427,000378: 06,6154 07440 TC CHARALRM # + PATHOLOGICAL CASE
018428,000379: 06,6155 07440 TC CHARALRM # +0 IMPOSSIBLE
018429,000380: 06,6156 06206 TC MORNUM # -
018430,000381: 06,6157 34473 ENDNUM CAF THREE
018431,000382: 06,6160 70615 MASK DECBRNCH
018432,000383: 06,6161 10000 CCS A
018433,000384: 06,6162 06165 TC DECEND
018434,000385: 06,6163 40614 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
018435,000386: 06,6164 06207 TC MORNUM +1 # NEGATIVELY
018436,000387: 06,6165 34473 DECEND CAF THREE
018437,000388: 06,6166 70615 MASK DECBRNCH
018438,000389: 06,6167 20000 INDEX A
018439,000390: 06,6170 06170 TC +0
018440,000391: 06,6171 06175 TC +DECSGN # + DEC
018441,000392: 06,6172 05157 TC DMP # - DEC
018442,000393: 06,6173 56217 XCADR NEGDECON
018443,000394: 06,6174 06177 TC ENDECOM # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
![]() |
Page 489 |
018445,000396: 06,6175 05157 +DECSGN TC DMP # 2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
018446,000397: 06,6176 56215 XCADR DECON # IN MPAC, +1, +2.
018447,000398: 06,6177 30117 ENDECOM XCH MPAC +2
018448,000399: 06,6200 20076 INDEX INREL
018449,000400: 06,6201 50605 TS XREGLP -2
018450,000401: 06,6202 30116 XCH MPAC +1
018451,000402: 06,6203 20076 INDEX INREL
018452,000403: 06,6204 50602 TS VERBREG
018453,000404: 06,6205 06163 TC ENDALL
018454,000405: 06,6206 10614 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
018455,000406: 06,6207 50614 TS DSPCOUNT
018456,000407: 06,6210 02124 TC ENDOFJOB
018457,000408:
018458,000409: 06,6211 00022 CRITCON OCT 22 # (DEC 18)
018459,000410: 06,6212 00020 OCT 20 # (DEC 16)
018460,000411: 06,6213 00012 OCT 12 # (DEC 10)
018461,000412: 06,6214 00005 OCT 5
018462,000413: 06,6215 00000 OCT 0
018463,000414:
018464,000415: 06,6216 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
018465,000416:
018466,000417: 06,6220 72603 NEGDECON OCT 72603
018467,000418: 06,6221 64516 OCT 64516
018468,000419:
018469,000420:
018470,000421:
018471,000422: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
018472,000423: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
018473,000424:
018474,000425: 06,6222 20614 GETINREL INDEX DSPCOUNT
018475,000426: 06,6223 36226 CAF INRELTAB
018476,000427: 06,6224 50076 TS INREL # (A TEMP, REG)
018477,000428: 06,6225 00001 TC Q
018478,000429:
018479,000430: 06,6226 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
018480,000431: 06,6227 00004 OCT 4 # R3D4 =(1)
018481,000432: 06,6230 00004 OCT 4 # R3D3 =(2)
018482,000433: 06,6231 00004 OCT 4 # R3D2 =(3)
018483,000434: 06,6232 00004 OCT 4 # R3D1 =(4)
018484,000435: 06,6233 00003 OCT 3 # R2D5 =(5)
018485,000436: 06,6234 00003 OCT 3 # R2D4 =(6)
018486,000437: 06,6235 00003 OCT 3 # R2D3 =(7)
018487,000438: 06,6236 00003 OCT 3 # R2D2 =(8D)
018488,000439: 06,6237 00003 OCT 3 # R2D1 =(9D)
018489,000440: 06,6240 00002 OCT 2 # R1D5 =(10D)
018490,000441: 06,6241 00002 OCT 2 # R1D4 =(11D)
018491,000442: 06,6242 00002 OCT 2 # R1D3 =(12D)
018492,000443: 06,6243 00002 OCT 2 # R1D2 =(13D)
018493,000444: 06,6244 00002 OCT 2 # R1D1 =(14D)
018494,000445: 06,6245 03062 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
![]() |
Page 490 |
018496,000447: 06,6246 00001 OCT 1 # ND2 =(16D)
018497,000448: 06,6247 00001 OCT 1 # ND1 =(17D)
018498,000449: 06,6250 00000 OCT 0 # VD2 =(18D)
018499,000450: 06,6251 00000 OCT 0 # VD1 =(19D)
018500,000451:
018501,000452:
018502,000453:
018503,000454: 06,6252 35501 VERB CAF ZERO
018504,000455: 06,6253 50602 TS VERBREG
018505,000456: 06,6254 50111 TS CODE # VERB CANT USE 2BLANK SINCE THAT TURNS
018506,000457: 06,6255 33227 CAF VD1 # THE FLASH OFF
018507,000458: 06,6256 50614 TS DSPCOUNT
018508,000459: 06,6257 50104 TS COUNT
018509,000460: 06,6260 07341 TC DSPIN
018510,000461: 06,6261 36211 CAF VD2
018511,000462: 06,6262 50104 TS COUNT
018512,000463: 06,6263 35501 CAF ZERO
018513,000464: 06,6264 50111 TS CODE
018514,000465: 06,6265 07341 TC DSPIN
018515,000466: 06,6266 35501 N/VCOM CAF ZERO
018516,000467: 06,6267 50615 TS DECBRNCH
018517,000468: 06,6270 50613 TS REQRET # SET FOR ENTPAS0
018518,000469: 06,6271 33147 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
018519,000470: 06,6272 50065 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
018520,000471: # TO TC ENDOFJOB
018521,000472: 06,6273 02124 TC ENDOFJOB
018522,000473: 06,6274 35501 NOUN CAF ZERO
018523,000474: 06,6275 50603 TS NOUNREG
018524,000475: 06,6276 33230 CAF ND1 # ND1, OCT 21 (DEC 17)
018525,000476: 06,6277 50614 TS DSPCOUNT
018526,000477: 06,6300 06621 TC 2BLANK
018527,000478: 06,6301 06266 TC N/VCOM
018528,000479:
018529,000480:
018530,000481:
018531,000482: 06,6302 06,6211 VD2 = CRITCON # OCT 22
018532,000483:
018533,000484:
018534,000485:
018535,000486: 06,6302 06357 NEGSGN TC SIGNTEST
018536,000487: 06,6303 06343 TC -ON
018537,000488: 06,6304 35503 CAF TWO
018538,000489: 06,6305 60615 BOTHSGN AD DECBRNCH # SET DEC COMP BIT TO 1 (IN DECBRNCH)
018539,000490: 06,6306 20076 INDEX INREL # BIT 5 FOR R1
018540,000491: 06,6307 64510 AD BIT7 # BIT 4 FOR R2
018541,000492: 06,6310 50615 TS DECBRNCH # BIT 3 FOR R3
018542,000493: 06,6311 10633 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
018543,000494: 06,6312 35501 CAF ZERO
018544,000495: 06,6313 50633 TS CLPASS
018545,000496: 06,6314 06315 TC +1
![]() |
Page 491 |
018547,000498: 06,6315 02124 TC ENDOFJOB
018548,000499:
018549,000500: 06,6316 06357 POSGN TC SIGNTEST
018550,000501: 06,6317 06322 TC +ON
018551,000502: 06,6320 34516 CAF ONE
018552,000503: 06,6321 06305 TC BOTHSGN
018553,000504:
018554,000505: 06,6322 30001 +ON XCH Q
018555,000506: 06,6323 50073 TS SIGNRET
018556,000507: 06,6324 06222 TC GETINREL
018557,000508: 06,6325 20076 INDEX INREL
018558,000509: 06,6326 36352 CAF SGNTAB -2
018559,000510: 06,6327 50110 TS SGNOFF
018560,000511: 06,6330 64516 AD ONE
018561,000512: 06,6331 50064 TS SGNON
018562,000513: 06,6332 35501 SGNCOM CAF ZERO
018563,000514: 06,6333 50111 TS CODE
018564,000515: 06,6334 30110 XCH SGNOFF
018565,000516: 06,6335 07426 TC 11DSPIN
018566,000517: 06,6336 34504 CAF BIT11
018567,000518: 06,6337 50111 TS CODE
018568,000519: 06,6340 30064 XCH SGNON
018569,000520: 06,6341 07426 TC 11DSPIN
018570,000521: 06,6342 00073 TC SIGNRET
018571,000522: 06,6343 30001 -ON XCH Q
018572,000523: 06,6344 50073 TS SIGNRET
018573,000524: 06,6345 06222 TC GETINREL
018574,000525: 06,6346 20076 INDEX INREL
018575,000526: 06,6347 36352 CAF SGNTAB -2
018576,000527: 06,6350 50064 TS SGNON
018577,000528: 06,6351 64516 AD ONE
018578,000529: 06,6352 50110 TS SGNOFF
018579,000530: 06,6353 06332 TC SGNCOM
018580,000531:
018581,000532: 06,6354 00005 SGNTAB OCT 5 # -R1
018582,000533: 06,6355 00003 OCT 3 # -R2
018583,000534: 06,6356 00000 OCT 0 # -R3
018584,000535:
018585,000536:
018586,000537:
018587,000538: 06,6357 30001 SIGNTEST XCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
018588,000539: 06,6360 50073 TS SIGNRET # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
018589,000540: 06,6361 34473 CAF THREE # CONSECUTIVE +/- CHARACTERS
018590,000541: 06,6362 70615 MASK DECBRNCH
018591,000542: 06,6363 10000 CCS A # IF LOW2 BITS OF DECBRNCH NOT = 0, SIGN
018592,000543: 06,6364 02124 TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
018593,000544: 06,6365 43171 CS R1D1
018594,000545: 06,6366 06374 TC SGNTST1
018595,000546: 06,6367 43172 CS R2D1
018596,000547: 06,6370 06374 TC SGNTST1
![]() |
Page 492 |
018598,000549: 06,6371 43173 CS R3D1
018599,000550: 06,6372 06374 TC SGNTST1
018600,000551: 06,6373 02124 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
018601,000552: 06,6374 60614 SGNTST1 AD DSPCOUNT
018602,000553: 06,6375 10000 CCS A
018603,000554: 06,6376 00001 TC Q
018604,000555: 06,6377 03062 TC CCSHOLE
018605,000556: 06,6400 00001 TC Q
018606,000557: 06,6401 00073 TC SIGNRET # SIGN LEGAL
018607,000558:
018608,000559:
018609,000560:
018610,000561: # ERROR LIGHT RESET RESETS TMALM, DSPALARM (CHECK FAIL), PROGALM, UNBLOCKS
018611,000562: # ENDPULSES, RESETS ERRUPT TRAP. IT ALSO FORCES BIT 12 OF ALL DSPTAB
018612,000563: # ENTRIES TO ONE. RESETS UPACT LIGHT.
018613,000564:
018614,000565: 06,6402 44513 ERROR CS BIT4 # RESTORE ORIGINAL C(DSPLOCK) BIT4 OF
018615,000566: 06,6403 20017 INHINT # STATE. THUS ERROR LIGHT RESET LEAVES
018616,000567: 06,6404 70645 MASK DSPLOCK # DSPLOCK UNCHANGED.
018617,000568: 06,6405 60106 AD 21/22REG
018618,000569: 06,6406 50645 TS DSPLOCK
018619,000570: 06,6407 44510 CS BIT7 # RESET ERRUPT TRAP
018620,000571: 06,6410 70011 MASK OUT1
018621,000572: 06,6411 64510 AD BIT7
018622,000573: 06,6412 50011 TS OUT1
018623,000574: 06,6413 46500 CS CFAILCON # RESET THE C RELAYS FOR IMU FAIL, CDUFAIL
018624,000575: 06,6414 70723 MASK DSPTAB +11D # PIPA FAIL.
018625,000576: 06,6415 64500 AD BIT15
018626,000577: 06,6416 50723 TS DSPTAB +11D
018627,000578: 06,6417 46476 CS ERCON
018628,000579: 06,6420 70011 MASK OUT1
018629,000580: 06,6421 50011 TS OUT1
018630,000581: 06,6422 33232 TSTAB CAF BINCON # (DEC 10)
018631,000582: 06,6423 50063 TS ERCNT # ERCNT = COUNT
018632,000583: 06,6424 20017 INHINT
018633,000584: 06,6425 20063 INDEX ERCNT
018634,000585: 06,6426 10710 CCS DSPTAB
018635,000586: 06,6427 64516 AD ONE
018636,000587: 06,6430 06435 TC ERPLUS
018637,000588: 06,6431 64516 AD ONE
018638,000589: 06,6432 40000 ERMINUS CS A
018639,000590: 06,6433 76477 MASK NOTBIT12
018640,000591: 06,6434 06440 TC ERCOM
018641,000592: 06,6435 40000 ERPLUS CS A
018642,000593: 06,6436 76477 MASK NOTBIT12
018643,000594: 06,6437 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
018644,000595: 06,6440 20063 ERCOM INDEX ERCNT # ETC.
018645,000596: 06,6441 50710 TS DSPTAB
018646,000597: 06,6442 20016 RELINT
018647,000598: 06,6443 10063 CCS ERCNT
![]() |
Page 493 |
018649,000600: 06,6444 06423 TC TSTAB +1
018650,000601: 06,6445 10727 CCS WASKSET
018651,000602: 06,6446 06455 TC ERROPT
018652,000603: 06,6447 06455 TC ERROPT
018653,000604: 06,6450 06455 TC ERROPT
018654,000605: 06,6451 30007 XCH IN3
018655,000606: 06,6452 30007 XCH IN3
018656,000607: 06,6453 74720 MASK LOW7
018657,000608: 06,6454 50727 TS WASKSET
018658,000609:
018659,000610: 06,6455 10730 ERROPT CCS WASOPSET
018660,000611: 06,6456 06465 TC ERROR1
018661,000612: 06,6457 06465 TC ERROR1
018662,000613: 06,6460 06465 TC ERROR1
018663,000614: 06,6461 30007 XCH IN3
018664,000615: 06,6462 30007 XCH IN3
018665,000616: 06,6463 76475 MASK OPTICSB
018666,000617: 06,6464 50730 TS WASOPSET
018667,000618:
018668,000619: 06,6465 35501 ERROR1 CAF ZERO
018669,000620: 06,6466 51763 TS FAILREG
018670,000621: 06,6467 50726 TS OLDERR
018671,000622: 06,6470 51764 TS SFAIL
018672,000623: 06,6471 50111 TS CODE
018673,000624: 06,6472 35362 CAF SEVEN
018674,000625: 06,6473 07426 TC 11DSPIN # TURN OFF UPACT LIGHT
018675,000626: 06,6474 02124 TC ENDOFJOB
018676,000627:
018677,000628: 06,6475 35000 OPTICSB OCT 35000
018678,000629: 06,6476 01131 ERCON OCT 01131 # BITS 1, 4, 5, 7, 10.
018679,000630: # PROGALM, TMFAIL, CHECK FAIL, ERRUPT TRAP
018680,000631: # END PULSES.
018681,000632:
018682,000633: 06,6477 73777 NOTBIT12 OCT 73777
018683,000634: 06,6500 40340 CFAILCON OCT 40340
018684,000635:
018685,000636:
018686,000637:
018687,000638: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
018688,000639: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
018689,000640: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
018690,000641:
018691,000642: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
018692,000643: # APPROPRIATE TO BE CLEARED.
018693,000644:
018694,000645: # CLPASS +0 PASS0, CAN BE BACKED UP
018695,000646: # +NZ HIPASS, CAN BE BACKED UP
018696,000647: # -NZ PASS0, CANNOT BE BACKED UP
018697,000648:
018698,000649: 06,6501 10614 CLEAR CCS DSPCOUNT
![]() |
Page 494 |
018700,000651: 06,6502 64516 AD ONE
018701,000652: 06,6503 06505 TC +2
018702,000653: 06,6504 64516 AD ONE
018703,000654: 06,6505 20000 INDEX A # DO NOT CHANGE DSPCOUNT BECAUSE MAY
018704,000655: 06,6506 36226 CAF INRELTAB # FAIL LEGALTST.
018705,000656: 06,6507 50076 TS INREL # MUST SET INREL, EVEN FOR HIPASS.
018706,000657: 06,6510 10633 CCS CLPASS
018707,000658: 06,6511 06516 TC CLPASHI # +
018708,000659: 06,6512 06514 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
018709,000660: 06,6513 06514 TC +1 # -
018710,000661: 06,6514 06545 TC LEGALTST
018711,000662: 06,6515 06535 TC CLEAR1
018712,000663: 06,6516 10076 CLPASHI CCS INREL
018713,000664: 06,6517 50076 TS INREL
018714,000665: 06,6520 06545 TC LEGALTST
018715,000666: 06,6521 30613 XCH REQRET
018716,000667: 06,6522 66617 AD DOUBLK +2 # +3 TO - NUMBER. BACKS UP DATA REQUESTS
018717,000668: 06,6523 50613 TS REQRET
018718,000669: 06,6524 30076 XCH INREL
018719,000670: 06,6525 50073 TS MIXTEMP # TEMP STORAGE FOR INREL
018720,000671: 06,6526 30602 XCH VERBREG # DECREMENT VERB AND RE-DISPLAY
018721,000672: 06,6527 64335 AD NEG1
018722,000673: 06,6530 50602 TS VERBREG
018723,000674: 06,6531 05654 TC BANKCALL
018724,000675: 06,6532 16346 CADR UPDATVB
018725,000676: 06,6533 30073 XCH MIXTEMP
018726,000677: 06,6534 50076 TS INREL # RESTORE INREL
018727,000678: 06,6535 06542 CLEAR1 TC CLR5
018728,000679: 06,6536 34516 CAF ONE
018729,000680: 06,6537 60633 AD CLPASS # ONLY IF CLPASS IS + OR +0,
018730,000681: 06,6540 50633 TS CLPASS # SET FOR HIGHER PASS.
018731,000682: 06,6541 02124 TC ENDOFJOB
018732,000683: 06,6542 30001 CLR5 XCH Q
018733,000684: 06,6543 50106 TS WRDRET # USES 5BLANK BUT AVOIDS ITS TC GETINREL
018734,000685: 06,6544 06557 TC 5BLANK +3
018735,000686: 06,6545 45503 LEGALTST CS TWO
018736,000687: 06,6546 60076 AD INREL
018737,000688: 06,6547 10000 CCS A
018738,000689: 06,6550 00001 TC Q # LEGAL INREL G/ 2
018739,000690: 06,6551 03062 TC CCSHOLE
018740,000691: 06,6552 02124 TC ENDOFJOB # ILLEGAL INREL= 0,1
018741,000692: 06,6553 00001 TC Q # LEGAL INREL = 2
018742,000693:
018743,000694:
018744,000695:
018745,000696: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
018746,000697: # YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
018747,000698: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
018748,000699:
018749,000700: 06,6554 30001 5BLANK XCH Q
![]() |
Page 495 |
018751,000702: 06,6555 50106 TS WRDRET
018752,000703: 06,6556 06222 TC GETINREL
018753,000704: 06,6557 35501 CAF ZERO
018754,000705: 06,6560 20076 INDEX INREL
018755,000706: 06,6561 50602 TS VERBREG # ZERO X, Y, Z REG.
018756,000707: 06,6562 20076 INDEX INREL
018757,000708: 06,6563 50605 TS XREGLP -2
018758,000709: 06,6564 50111 TS CODE
018759,000710: 06,6565 20076 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
018760,000711: 06,6566 44510 CS BIT7 # PROTECT OTHERS
018761,000712: 06,6567 70615 MASK DECBRNCH
018762,000713: 06,6570 76620 MASK BRNCHCON # ZERO LOW 2 BITS.
018763,000714: 06,6571 50615 TS DECBRNCH
018764,000715: 06,6572 20076 INDEX INREL
018765,000716: 06,6573 36610 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
018766,000717: 06,6574 50104 TS COUNT
018767,000718: 06,6575 07341 TC DSPIN
018768,000719: 06,6576 20076 5BLANK1 INDEX INREL
018769,000720: 06,6577 36613 CAF DOUBLK -2
018770,000721: 06,6600 50614 TS DSPCOUNT
018771,000722: 06,6601 06621 TC 2BLANK
018772,000723: 06,6602 45503 CS TWO
018773,000724: 06,6603 60614 AD DSPCOUNT
018774,000725: 06,6604 50614 TS DSPCOUNT
018775,000726: 06,6605 06621 TC 2BLANK
018776,000727: 06,6606 20076 INDEX INREL
018777,000728: 06,6607 33167 CAF R1D1 -2
018778,000729: 06,6610 50614 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
018779,000730: 06,6611 00106 TC WRDRET # OF REG. JUST BLANKED
018780,000731:
018781,000732: 06,6612 00016 SINBLANK OCT 16 # DEC 14
018782,000733: 06,6613 00005 OCT 5
018783,000734: 06,6614 00004 OCT 4
018784,000735: 06,6615 00015 DOUBLK OCT 15 # DEC 13
018785,000736: 06,6616 00011 OCT 11 # DEC 9
018786,000737: 06,6617 00003 OCT 3
018787,000738:
018788,000739: 06,6620 77774 BRNCHCON OCT 77774
018789,000740:
018790,000741: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
018791,000742: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
018792,000743:
018793,000744: 06,6621 30001 2BLANK XCH Q
018794,000745: 06,6622 50112 TS BLANKRET
018795,000746: 06,6623 40614 CS DSPCOUNT
018796,000747: 06,6624 40000 CS A
018797,000748: 06,6625 50021 TS SR
018798,000749: 06,6626 46637 CS BLANKCON
018799,000750: 06,6627 20017 INHINT
018800,000751: 06,6630 20021 INDEX SR
![]() |
Page 496 |
018802,000753: 06,6631 30710 XCH DSPTAB
018803,000754: 06,6632 10000 CCS A
018804,000755: 06,6633 06640 TC INCNOUT # IF OLD CONTENTS +,+1 TO NOUT
018805,000756: 06,6634 03062 TC CCSHOLE
018806,000757: 06,6635 20016 RELINT # IF -,NOUT OK
018807,000758: 06,6636 00112 TC BLANKRET
018808,000759: 06,6637 04000 BLANKCON OCT 4000
018809,000760:
018810,000761: 06,6640 30707 INCNOUT XCH NOUT
018811,000762: 06,6641 64516 AD ONE
018812,000763: 06,6642 50707 TS NOUT
018813,000764: 06,6643 20001 INDEX Q
018814,000765: 06,6644 00001 TC 1 # RETURN TO 2+ L(CALLING TC)
018815,000766:
![]() |
Page 497 |
018817,000768:
018818,000769: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
018819,000770: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
018820,000771: # PASSES.
018821,000772:
018822,000773: 07,6000 SETLOC 16000
018823,000774:
018824,000775: 07,6000 07354 NVSUBB TC NVSUB1 # STANDARD LEAD INS, DONT MOVE.
018825,000776: 07,6001 07434 GRABUSYB TC GRABUSY1
018826,000777: 07,6002 07456 NVSUBSYB TC NVSUBSY1
018827,000778: 07,6003 30001 DSPMM XCH Q
018828,000779: 07,6004 50063 TS UPDATRET
018829,000780: 07,6005 07423 TC DSPMM1
018830,000781: 07,6006 06705 LOADLV1 TC LOADLV
018831,000782: # END OF STANDARD LEAD INS.
018832,000783:
018833,000784:
018834,000785:
018835,000786: 07,6007 35501 ENTER CAF ZERO
018836,000787: 07,6010 50633 TS CLPASS
018837,000788: 07,6011 33147 CAF ENDINST
018838,000789: 07,6012 50065 TS ENTRET
018839,000790: 07,6013 10613 CCS REQRET
018840,000791: 07,6014 06035 TC ENTPAS0 # IF +, PASS 0
018841,000792: 07,6015 06035 TC ENTPAS0 # IF +, PASS 0
018842,000793: 07,6016 06017 TC +1 # IF -, NOT PASS 0
018843,000794: 07,6017 34473 CAF THREE # IF DEC, ALARM IF LESS THAN 5 CHAR IN.
018844,000795: 07,6020 70615 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
018845,000796: 07,6021 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
018846,000797: 07,6022 06024 TC +2 # CHARACTERS AND CONTINUE.
018847,000798: 07,6023 06030 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
018848,000799: 07,6024 10614 CCS DSPCOUNT
018849,000800: 07,6025 06356 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018850,000801: 07,6026 06356 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
018851,000802: 07,6027 06030 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
018852,000803: 07,6030 40613 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
018853,000804: 07,6031 50613 TS REQRET # SET REQRET +.
018854,000805: 07,6032 05654 TC BANKCALL
018855,000806: 07,6033 14003 CADR FLASHOFF
018856,000807: 07,6034 00613 TC REQRET
018857,000808:
018858,000809: 07,6035 0065 ENTEXIT = ENTRET
018859,000810:
018860,000811: 07,6035 35501 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
018861,000812: 07,6036 50615 TS DECBRNCH
018862,000813: 07,6037 40602 TESTVB CS VERBREG # IF VERB IS 32-77, SKIP NOUN TEST
018863,000814: 07,6040 66043 AD LOWVERB # 32-VB
018864,000815: 07,6041 10000 CCS A
018865,000816: 07,6042 06046 TC TESTNN # VERB L/ 32
018866,000817: 07,6043 00032 LOWVERB OCT 32 # LOWER VERB THAT AVOIDS NOUN TEST
018867,000818: 07,6044 06045 TC +1 # VERB G/ 32
![]() |
Page 498 |
018869,000820: 07,6045 06130 TC VERBFAN # VERB=32
018870,000821: 07,6046 36107 TESTNN CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
018871,000822: 07,6047 05662 TC SWCALL # ROUTINE.
018872,000823: 07,6050 20107 INDEX MIXBR
018873,000824: 07,6051 06051 TC +0
018874,000825: 07,6052 06054 TC +2 # NORMAL
018875,000826: 07,6053 06210 TC MIXNOUN # MIXED
018876,000827: 07,6054 10054 CCS NNADTEM # NORMAL
018877,000828: 07,6055 06126 TC VERBFAN -2 # NORMAL IF +
018878,000829: 07,6056 06356 TC GODSPALM # NOT IN USE IF +0
018879,000830: 07,6057 06067 TC REQADD # SPECIFY MACHINE ADDRESS IF -
018880,000831: 07,6060 33173 CAF R3D1 # AUGMENT MACHINE ADDRESS IF -0
018881,000832: 07,6061 50614 TS DSPCOUNT
018882,000833: 07,6062 30624 XCH NOUNADD
018883,000834: 07,6063 64516 AD ONE
018884,000835: 07,6064 50624 TS NOUNADD
018885,000836: 07,6065 07225 TC DSPOCTWD
018886,000837: 07,6066 06130 TC VERBFAN
018887,000838: 07,6067 34500 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
018888,000839: 07,6070 50633 TS CLPASS
018889,000840: 07,6071 43147 CS ENDINST
018890,000841: 07,6072 60065 AD ENTEXIT
018891,000842: 07,6073 10000 CCS A # TEST IF REACHED HERE FROM INTERNAL OR
018892,000843: 07,6074 06110 TC INTMATBS # FROM EXTERNAL
018893,000844: 07,6075 03062 TC CCSHOLE
018894,000845: 07,6076 06110 TC INTMATBS
018895,000846: 07,6077 06304 TC REQDATZ # EXTERNAL MACH ADDR TO BE SPECIFIED
018896,000847: 07,6100 10615 CCS DECBRNCH
018897,000848: 07,6101 06356 TC GODSPALM # ALARM IF DECIMAL USED FOR MATBS
018898,000849: 07,6102 30606 XCH ZREG # OCTAL USED OK
018899,000850: 07,6103 50624 TS NOUNADD
018900,000851: 07,6104 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
018901,000852: 07,6105 05662 TC SWCALL # ROUTINE.
018902,000853: 07,6106 06130 TC VERBFAN
018903,000854:
018904,000855: 07,6107 13153 LODNNLOC CADR LODNNTAB
018905,000856:
018906,000857: 07,6110 44513 INTMATBS CS BIT4
018907,000858: 07,6111 70602 MASK VERBREG # MAKES VB 15 LOOK LIKE VB 05.
018908,000859: 07,6112 66115 AD NEG5
018909,000860: 07,6113 10000 CCS A
018910,000861: 07,6114 06120 TC DSPADD # VB NOT = 05 OR 15, DISPLAY ADDRESS.
018911,000862: 07,6115 77772 NEG5 OCT 77772
018912,000863: 07,6116 06120 TC DSPADD # VB NOT = 05 OR 15, DISPLAY ADDRESS.
018913,000864: 07,6117 06130 TC VERBFAN # VB = 05 OR 15, DO NOT DISPLAY ADDRESS.
018914,000865: 07,6120 33173 DSPADD CAF R3D1
018915,000866: 07,6121 50614 TS DSPCOUNT
018916,000867: 07,6122 40624 CS NOUNADD
018917,000868: 07,6123 40000 CS A
018918,000869: 07,6124 07225 TC DSPOCTWD
![]() |
Page 499 |
018920,000871: 07,6125 06130 TC VERBFAN
018921,000872:
018922,000873: 07,6126 64516 AD ONE
018923,000874: 07,6127 50624 TS NOUNADD
018924,000875: 07,6130 46143 VERBFAN CS LST2CON
018925,000876: 07,6131 60602 AD VERBREG # VERB-LST2CON
018926,000877: 07,6132 10000 CCS A
018927,000878: 07,6133 64516 AD ONE # VERB G/ LST2CON
018928,000879: 07,6134 06136 TC +2
018929,000880: 07,6135 06145 TC VBFANDIR # VERB L/ LST2CON
018930,000881: 07,6136 50115 JAMEXTVB TS MPAC # SPECIAL ENTRY FOR FORCING EXTENDED VERB.
018931,000882: 07,6137 03323 TC RELDSP # RELEASE DISPLAY SYST
018932,000883: 07,6140 30115 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
018933,000884: 07,6141 66144 AD LST2CADR
018934,000885: 07,6142 05723 TC BANKJUMP
018935,000886: 07,6143 00040 LST2CON OCT 40 # FIRST LST2 VERB
018936,000887: 07,6144 12000 LST2CADR CADR LST2FAN # THE LIST2 FAN IS LOCATED IN BANK 05
018937,000888:
018938,000889: 07,6145 20602 VBFANDIR INDEX VERBREG
018939,000890: 07,6146 36150 CAF VERBTAB
018940,000891: 07,6147 05723 TC BANKJUMP
018941,000892:
018942,000893: 07,6150 16356 VERBTAB CADR GODSPALM # VB00 ILLEGAL
018943,000894: 07,6151 16372 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
018944,000895: 07,6152 16377 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
018945,000896: 07,6153 16404 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
018946,000897: 07,6154 16365 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
018947,000898: 07,6155 16360 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
018948,000899: 07,6156 16476 CADR DECDSP # VB06 DECIMAL DISPLAY
018949,000900: 07,6157 15030 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
018950,000901: 07,6160 17342 CADR VBRQWAIT # VB10 REQUEST WAITLIST
018951,000902: 07,6161 17102 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
018952,000903: 07,6162 17102 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
018953,000904: 07,6163 17102 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
018954,000905: 07,6164 17102 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
018955,000906: 07,6165 17102 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
018956,000907: 07,6166 17102 CADR MONITOR # VB16 MONITOR DECIMAL
018957,000908: 07,6167 17102 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
018958,000909: 07,6170 17321 REQEXLOC CADR VBRQEXEC # VB20 REQUEST EXECUTIVE
018959,000910: 07,6171 16645 CADR ALOAD # VB21 LOAD COMP 1 (R1)
018960,000911: 07,6172 16655 CADR BLOAD # VB22 LOAD COMP 2 (R2)
018961,000912: 07,6173 16671 CADR CLOAD # VB23 LOAD COMP 3 (R3)
018962,000913: 07,6174 16620 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
018963,000914: 07,6175 16564 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
018964,000915: 07,6176 16356 CADR GODSPALM # VB26 SPARE
018965,000916: 07,6177 16356 CADR GODSPALM # VB27 SPARE
018966,000917: 07,6200 16356 CADR GODSPALM # VB30 SPARE
018967,000918: 07,6201 17216 CADR DSPBANK # VB31 BANK DISPLAY
018968,000919: 07,6202 15503 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
018969,000920: 07,6203 15465 CADR VBPROC # VB33 PROCEED WITHOUT DATA
![]() |
Page 500 |
018971,000922: 07,6204 15472 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
018972,000923: 07,6205 15475 CADR VBRELDSP # VB35 RELEASE DISPLAY SYST
018973,000924: 07,6206 10000 CADR SLAPB # VB36 FRESH START
018974,000925: 07,6207 17273 CADR MMCHANG # VB37 CHANGE MAJOR MODE
018975,000926:
018976,000927:
018977,000928:
018978,000929: # THE LIST2 VERBFAN IS LOCATED IN BANK 05.
018979,000930:
![]() |
Page 501 |
018981,000932:
018982,000933: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
018983,000934: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
018984,000935: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
018985,000936: # MIXTEMP.
018986,000937:
018987,000938: 07,6210 10054 MIXNOUN CCS NNADTEM
018988,000939: 07,6211 06215 TC +4 # + IN USE
018989,000940: 07,6212 06356 TC GODSPALM # +0 NOT IN USE
018990,000941: 07,6213 06215 TC +2 # - IN USE
018991,000942: 07,6214 06215 TC +1 # -0 IN USE
018992,000943: 07,6215 44475 CS SIX
018993,000944: 07,6216 60602 AD VERBREG
018994,000945: 07,6217 10000 CCS A # AVOID MIXNOUN SWAP FOR OTHER THAN
018995,000946: 07,6220 06130 TC VERBFAN # DISPLAY VERBS
018996,000947: 07,6221 03062 TC CCSHOLE
018997,000948: 07,6222 06223 TC +1
018998,000949: 07,6223 35503 CAF TWO
018999,000950: 07,6224 50064 MIXNN1 TS NOUNTEM
019000,000951: 07,6225 66254 AD MIXAD
019001,000952: 07,6226 50624 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
019002,000953: 07,6227 20064 INDEX NOUNTEM
019003,000954: 07,6230 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
019004,000955: 07,6231 40000 CS A # OF NOUN.
019005,000956: 07,6232 50063 TS DECOUNT
019006,000957: # TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
019007,000958: # MINOR PART ONLY.
019008,000959: 07,6233 72261 MASK HI5
019009,000960: 07,6234 03203 TC LEFT5 # SF ROUT NUMBER IN A
019010,000961: 07,6235 06255 TC DPTEST
019011,000962: 07,6236 06242 TC MIXNN2 # NO DP
019012,000963: 07,6237 34516 CAF ONE # DP GET MINOR PART
019013,000964: 07,6240 60063 AD DECOUNT
019014,000965: 07,6241 50063 TS DECOUNT
019015,000966: 07,6242 30063 MIXNN2 XCH DECOUNT
019016,000967: 07,6243 74606 MASK LOW10 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
019017,000968: 07,6244 20000 INDEX A # PICK UP C(ESUBK) NOT DP
019018,000969: 07,6245 40000 CS 0 # OR C((ESUBK)+1) FOR DP MINOR PART
019019,000970: 07,6246 40000 CS A
019020,000971: 07,6247 20624 INDEX NOUNADD
019021,000972: 07,6250 30000 XCH 0 # STORE IN MIXTEM + K
019022,000973: 07,6251 10064 CCS NOUNTEM
019023,000974: 07,6252 06224 TC MIXNN1
019024,000975: 07,6253 06130 TC VERBFAN
019025,000976:
019026,000977: 07,6254 00073 MIXAD TC MIXTEMP
019027,000978:
019028,000979:
019029,000980:
019030,000981: 07,6255 50110 DPTEST TS SFTEMP1 # ENTER WITH SF ROUT NUMBER IN A.
019031,000982: 07,6256 30001 XCH Q # RETURNS TO L+1 IF NO DP
![]() |
Page 502 |
019033,000984: 07,6257 30110 XCH SFTEMP1 # RETURNS TO L+2 IF DP
019034,000985: 07,6260 20000 INDEX A
019035,000986: 07,6261 06262 TC +1
019036,000987: 07,6262 00110 TC SFTEMP1 # OCTAL ONLY NO DP
019037,000988: 07,6263 00110 TC SFTEMP1 # FRACT NO DP
019038,000989: 07,6264 00110 TC SFTEMP1 # DEG NO DP
019039,000990: 07,6265 00110 TC SFTEMP1 # ARITH NO DP
019040,000991: 07,6266 06272 TC DPTEST1 # DP1OUT
019041,000992: 07,6267 06272 TC DPTEST1 # DP2OUT
019042,000993: 07,6270 00110 TC SFTEMP1 # OPDEG NO DP
019043,000994: 07,6271 06272 TC DPTEST1 # DP3OUT
019044,000995: 07,6272 20110 DPTEST1 INDEX SFTEMP1
019045,000996: 07,6273 00001 TC 1 # RETURN TO L+2
019046,000997:
019047,000998:
019048,000999:
019049,001000: 07,6274 40001 REQDATX CS Q
019050,001001: 07,6275 50613 TS REQRET
019051,001002: 07,6276 33171 CAF R1D1
019052,001003: 07,6277 06307 TC REQCOM
019053,001004: 07,6300 40001 REQDATY CS Q
019054,001005: 07,6301 50613 TS REQRET
019055,001006: 07,6302 33172 CAF R2D1
019056,001007: 07,6303 06307 TC REQCOM
019057,001008: 07,6304 40001 REQDATZ CS Q
019058,001009: 07,6305 50613 TS REQRET
019059,001010: 07,6306 33173 CAF R3D1
019060,001011: 07,6307 50614 REQCOM TS DSPCOUNT
019061,001012: 07,6310 05654 TC BANKCALL
019062,001013: 07,6311 14554 CADR 5BLANK
019063,001014: 07,6312 05654 TC BANKCALL
019064,001015: 07,6313 14000 CADR FLASHON
019065,001016: 07,6314 43147 CS ENDINST
019066,001017: 07,6315 60065 AD ENTEXIT
019067,001018: 07,6316 10000 CCS A
019068,001019: 07,6317 06323 TC +4 # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
019069,001020: 07,6320 03062 TC CCSHOLE
019070,001021: 07,6321 06323 TC +2 # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
019071,001022: 07,6322 00065 TC ENTEXIT # ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
019072,001023: 07,6323 45501 CS ZERO # NVSUB INITIATED LOAD. SET CADRSTOR TO -0
019073,001024: 07,6324 50627 TS CADRSTOR
019074,001025: 07,6325 00065 TC ENTEXIT
019075,001026:
019076,001027: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
019077,001028: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
019078,001029:
019079,001030:
019080,001031:
019081,001032: 07,6326 50603 TS NOUNREG
019082,001033: 07,6327 30001 UPDATNN XCH Q
![]() |
Page 503 |
019084,001035: 07,6330 50063 TS UPDATRET
019085,001036: 07,6331 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019086,001037: 07,6332 05662 TC SWCALL # ROUTINE.
019087,001038: 07,6333 10054 CCS NNADTEM
019088,001039: 07,6334 64516 AD ONE # NORMAL
019089,001040: 07,6335 06340 TC PUTADD
019090,001041: 07,6336 06341 TC PUTADD +1 # MATBS DONT CHANGE NOUNADD
019091,001042: 07,6337 06341 TC PUTADD +1 # MATBI DONT CHANGE NOUNADD
019092,001043: 07,6340 50624 PUTADD TS NOUNADD
019093,001044: 07,6341 33230 CAF ND1
019094,001045: 07,6342 50614 TS DSPCOUNT
019095,001046: 07,6343 40603 CS NOUNREG
019096,001047: 07,6344 06353 TC UPDAT1
019097,001048:
019098,001049: 07,6345 50602 TS VERBREG
019099,001050: 07,6346 30001 UPDATVB XCH Q
019100,001051: 07,6347 50063 TS UPDATRET
019101,001052: 07,6350 33227 CAF VD1
019102,001053: 07,6351 50614 TS DSPCOUNT
019103,001054: 07,6352 40602 CS VERBREG
019104,001055: 07,6353 40000 UPDAT1 CS A
019105,001056: 07,6354 07261 TC DSP2BIT
019106,001057: 07,6355 00063 TC UPDATRET
019107,001058:
019108,001059:
019109,001060:
019110,001061: 07,6356 05720 GODSPALM TC POSTJUMP
019111,001062: 07,6357 15442 CADR DSPALARM
019112,001063:
![]() |
Page 504 |
019114,001065:
019115,001066: # NOUN TABLES
019116,001067: # NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
019117,001068: # FOR NORMAL CASE, NNADTAB CONTAINS ONE MACHINE ADDRESS FOR EACH NOUN.
019118,001069: # +0 INDICATES NOUN NOT USED. - ENTRY IDICATES MACHINE ADDRESS TO BE
019119,001070: # SPECIFIED. -0 ENTRY INDICATES AUGMENT OF LAST MACHINE ADDRESS.
019120,001071:
019121,001072: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
019122,001073: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
019123,001074:
019124,001075: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
019125,001076:
019126,001077: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
019127,001078: # N-S ARE THE SF ROUTINE CODE NUMBER.
019128,001079: # P-S ARE THE SF CONSTANT CODE NUMBER.
019129,001080:
019130,001081: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
019131,001082: # N-S ARE THE SF CONSTANT2 CODE NUMBER
019132,001083: # P-S ARE THE SF CONSTANT1 CODE NUMBER
019133,001084: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
019134,001085: # P-S ARE THE SF CONSTANT1 CODE NUMBER
019135,001086: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
019136,001087:
019137,001088: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
019138,001089: # ENTRY IS OF FORM RRRRREEEEEEEEEE. IDADDREL IS THE RELATIVE ADDRESS OF
019139,001090: # THE FIRST OF THESE ENTRIES.
019140,001091: # R-S ARE THE SF ROUTINE CODE NUMBERS FOR COMPONENT K
019141,001092: # E-S ARE THE MACHINE ADDRESS FOR COMPONENT K
019142,001093: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
019143,001094: # THEY ARE LISTED IN ORDER OF ASCENDING K.
019144,001095:
019145,001096: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
019146,001097: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
019147,001098: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
019148,001099: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
019149,001100: # AN UNCONTOLLED NUMBER OF COMPONENTS.
019150,001101:
019151,001102:
019152,001103:
019153,001104: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
019154,001105: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
019155,001106:
019156,001107: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
019157,001108: # BEFORE EACH ENTER. IF NOT, ALARM.
019158,001109:
![]() |
Page 505 |
019160,001111:
019161,001112: # DISPLAY VERBS
019162,001113: 07,6360 45503 DSPABC CS TWO
019163,001114: 07,6361 06430 TC COMPTEST
019164,001115: 07,6362 20624 INDEX NOUNADD
019165,001116: 07,6363 40002 CS 2
019166,001117: 07,6364 30101 XCH BUF +2
019167,001118: 07,6365 44516 DSPAB CS ONE
019168,001119: 07,6366 06430 TC COMPTEST
019169,001120: 07,6367 20624 INDEX NOUNADD
019170,001121: 07,6370 40001 CS 1
019171,001122: 07,6371 30100 XCH BUF +1
019172,001123: 07,6372 06457 DSPA TC TSTFORDP
019173,001124: 07,6373 20624 INDEX NOUNADD
019174,001125: 07,6374 40000 CS 0
019175,001126: 07,6375 30077 DSPCOM1 XCH BUF
019176,001127: 07,6376 06411 TC DSPCOM2
019177,001128: 07,6377 44516 DSPB CS ONE
019178,001129: 07,6400 06430 TC COMPTEST
019179,001130: 07,6401 20624 INDEX NOUNADD
019180,001131: 07,6402 40001 CS 1
019181,001132: 07,6403 06375 TC DSPCOM1
019182,001133: 07,6404 45503 DSPC CS TWO
019183,001134: 07,6405 06430 TC COMPTEST
019184,001135: 07,6406 20624 INDEX NOUNADD
019185,001136: 07,6407 40002 CS 2
019186,001137: 07,6410 06375 TC DSPCOM1
019187,001138: 07,6411 45503 DSPCOM2 CS TWO # A B C AB ABC
019188,001139: 07,6412 60602 AD VERBREG # -1 -0 +1 +2 +3 IN A
019189,001140: 07,6413 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
019190,001141: 07,6414 06417 TC DSPCOM3
019191,001142: 07,6415 00065 TC ENTEXIT
019192,001143: 07,6416 06417 TC +1
019193,001144: 07,6417 50064 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
019194,001145: 07,6420 20000 INDEX A
019195,001146: 07,6421 33171 CAF R1D1
019196,001147: 07,6422 50614 TS DSPCOUNT
019197,001148: 07,6423 20064 INDEX DISTEM
019198,001149: 07,6424 40077 CS BUF
019199,001150: 07,6425 07225 TC DSPOCTWD
019200,001151: 07,6426 30064 XCH DISTEM
019201,001152: 07,6427 06413 TC DSPCOM2 +2
019202,001153:
019203,001154: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
019204,001155: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
019205,001156: # NOUN 01 IS EXCLUDED FROM TEST.
019206,001157: 07,6430 50110 COMPTEST TS SFTEMP1 # - VERB COMP
019207,001158: 07,6431 30001 XCH Q
019208,001159: 07,6432 50111 TS SFTEMP2
019209,001160: 07,6433 44516 COMPTST1 CS ONE
019210,001161: 07,6434 60603 AD NOUNREG
![]() |
Page 506 |
019212,001163: 07,6435 10000 CCS A
019213,001164: 07,6436 06442 TC +4 # NOUN NOT = 01
019214,001165: 07,6437 03062 TC CCSHOLE
019215,001166: 07,6440 06442 TC +2 # NOUN NOT = 01
019216,001167: 07,6441 00111 TC SFTEMP2 # NOUN = 01. ANY COMP OK
019217,001168: 07,6442 20107 INDEX MIXBR
019218,001169: 07,6443 36473 CAF COMPICK -1
019219,001170: 07,6444 20000 INDEX A
019220,001171: 07,6445 40000 CS 0 # MUST NOT DESTROY NNADTEM OR NNTYPTEM
019221,001172: 07,6446 40000 CS A
019222,001173: 07,6447 72261 MASK HI5
019223,001174: 07,6450 03203 TC LEFT5 # NOUN COMP
019224,001175: 07,6451 60110 AD SFTEMP1 # NOUN COMP - VERB COMP
019225,001176: 07,6452 10000 CCS A
019226,001177: 07,6453 00111 TC SFTEMP2 # NOUN COMP G/ VERB COMP
019227,001178: 07,6454 03062 TC CCSHOLE
019228,001179: 07,6455 06356 TC GODSPALM # NOUN COMP L/ VERB COMP
019229,001180: 07,6456 00111 TC SFTEMP2 # NOUN COMP = VERB COMP
019230,001181:
019231,001182:
019232,001183:
019233,001184: 07,6457 30001 TSTFORDP XCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
019234,001185: 07,6460 50063 TS DECOUNT
019235,001186: 07,6461 20107 INDEX MIXBR
019236,001187: 07,6462 06462 TC +0
019237,001188: 07,6463 06465 TC +2 # NORMAL
019238,001189: 07,6464 00063 TC DECOUNT # MIXED CASE ALREADY HANDLED IN MIXNOUN
019239,001190: 07,6465 06740 TC SFRUTNOR
019240,001191: 07,6466 06255 TC DPTEST
019241,001192: 07,6467 00063 TC DECOUNT # NO DP
019242,001193: 07,6470 30624 XCH NOUNADD # DP
019243,001194: 07,6471 64516 AD ONE
019244,001195: 07,6472 50624 TS NOUNADD # E+1 INTO NOUNADD FOR MINOR PART.
019245,001196: 07,6473 00063 TC DECOUNT
019246,001197:
019247,001198:
019248,001199:
019249,001200: 07,6474 00055 COMPICK ADRES NNTYPTEM
019250,001201: 07,6475 00054 ADRES NNADTEM
019251,001202:
019252,001203: 07,6476 20107 DECDSP INDEX MIXBR # NORMAL MIXED
019253,001204: 07,6477 36473 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
019254,001205: 07,6500 20000 INDEX A
019255,001206: 07,6501 40000 CS 0 # MUST NOT DESTROY NNADTEM OR NNTYPTEM
019256,001207: 07,6502 40000 CS A # C(NNTYPTEM) C(NNADTEM)
019257,001208: 07,6503 72261 MASK HI5 # GET HI5 OF NNTYPTAB(NORM) OF NNADTAB(MIX)
019258,001209: 07,6504 03203 TC LEFT5
019259,001210: 07,6505 50063 TS DECOUNT # COMP NUMBER INTO DECOUNT
019260,001211: 07,6506 50064 DSPDCGET TS DECTEM # PICKS UP DATA
019261,001212: 07,6507 60624 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
![]() |
Page 507 |
019263,001214: 07,6510 20000 INDEX A
019264,001215: 07,6511 40000 CS 0
019265,001216: 07,6512 20064 INDEX DECTEM
019266,001217: 07,6513 30604 XCH XREG # CANT USE BUF SINCE DMP USES IT.
019267,001218: 07,6514 10064 CCS DECTEM
019268,001219: 07,6515 06506 TC DSPDCGET # MORE TO GET
019269,001220: 07,6516 35501 DSPDCPUT CAF ZERO # DISPLAYS DATA
019270,001221: 07,6517 50116 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
019271,001222: 07,6520 50117 TS MPAC +2
019272,001223: 07,6521 20063 INDEX DECOUNT
019273,001224: 07,6522 33171 CAF R1D1
019274,001225: 07,6523 50614 TS DSPCOUNT
019275,001226: 07,6524 20063 INDEX DECOUNT
019276,001227: 07,6525 40604 CS XREG
019277,001228: 07,6526 50115 TS MPAC
019278,001229: 07,6527 06756 TC SFCONUM # SF CON NUMB IN A
019279,001230: 07,6530 50111 TS SFTEMP2
019280,001231: 07,6531 05654 TC BANKCALL # SWITCH BANKS TO SF CONSTANT READING
019281,001232: 07,6532 13213 CADR GTSFOUT # ROUTINE. LOADS SFTEMP1, SFTEMP2.
019282,001233: 07,6533 20107 INDEX MIXBR
019283,001234: 07,6534 06534 TC +0
019284,001235: 07,6535 06540 TC DSPSFNOR
019285,001236: 07,6536 06746 TC SFRUTMIX
019286,001237: 07,6537 06551 TC DECDSP3
019287,001238:
019288,001239: 07,6540 06740 DSPSFNOR TC SFRUTNOR
019289,001240: 07,6541 06551 TC DECDSP3
019290,001241:
019291,001242: 07,6542 05654 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
019292,001243: 07,6543 15241 CADR DSPDECWD
019293,001244: 07,6544 10063 CCS DECOUNT
019294,001245: 07,6545 06547 TC +2
019295,001246: 07,6546 00065 TC ENTEXIT
019296,001247: 07,6547 50063 TS DECOUNT
019297,001248: 07,6550 06516 TC DSPDCPUT # MORE TO DISPLAY
019298,001249:
019299,001250:
019300,001251:
019301,001252: 07,6551 20000 DECDSP3 INDEX A
019302,001253: 07,6552 36554 CAF SFOUTABR
019303,001254: 07,6553 05723 TC BANKJUMP
019304,001255:
019305,001256: 07,6554 15442 SFOUTABR CADR DSPALARM # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
019306,001257: 07,6555 16542 CADR DSPDCEND
019307,001258: 07,6556 14645 CADR DEGOUTSF
019308,001259: 07,6557 14743 CADR ARTOUTSF
019309,001260:
019310,001261: 07,6560 14752 CADR DP1OUTSF
019311,001262: 07,6561 14757 CADR DP2OUTSF
019312,001263: 07,6562 14653 CADR OPDEGOUT
![]() |
Page 508 |
019314,001265: 07,6563 14761 CADR DP3OUTSF
019315,001266: 07,6564 ENDRTOUT EQUALS
019316,001267:
019317,001268:
019318,001269:
019319,001270: # THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
019320,001271: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
019321,001272:
019322,001273:
019323,001274:
019324,001275: 06,6645 SETLOC INCNOUT +5
019325,001276:
019326,001277: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
019327,001278: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
019328,001279:
019329,001280: 06,6645 35501 DEGOUTSF CAF ZERO
019330,001281: 06,6646 50117 TS MPAC +2 # SET INDEX FOR FULL SCALE
019331,001282: 06,6647 06707 TC FIXRANGE
019332,001283: 06,6650 06652 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
019333,001284: 06,6651 06700 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
019334,001285: 06,6652 06722 TC DEGCOM
019335,001286:
019336,001287: # OPDEGOUT SCALES BY .09 FOR ONE RANGE AND BY .45 FOR THE OTHER.
019337,001288: # FOR THE .45 RANGE A .2 BIAS IS ALSO ADDED.
019338,001289:
019339,001290:
019340,001291:
019341,001292: # OPDEGOUT USED TO TEST BIT 13 OF WASOPSET (1 = 90 DEG RANGE, 0 = 180).
019342,001293: # SINCE THAT BIT IS ALWAYS 1 IN BLOCK 50 - 100, DON;T TEST IT NOW
019343,001294: 06,6653 10115 OPDEGOUT CCS MPAC # 90 DEG RANGE ALWAYS
019344,001295: 06,6654 30115 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
019345,001296: 06,6655 06660 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
019346,001297: 06,6656 06670 TC NEGOPT # IF NEG NON ZERO
019347,001298: 06,6657 64335 AD NEG1 # IF NEG ZERO SUBTRACT 1
019348,001299: 06,6660 66742 AD 20BIAS
019349,001300: 06,6661 50115 BIASCOM TS MPAC # TEST FOR OVERFLOW
019350,001301: 06,6662 06666 TC +4 # NO OVFLOW
019351,001302: 06,6663 34500 CAF BIT15 # IF OVFLOW
019352,001303: 06,6664 60115 AD MPAC
019353,001304: 06,6665 50115 TS MPAC
019354,001305: 06,6666 35503 CAF TWO # SET MULTIPLIER TO .45
019355,001306: 06,6667 06646 TC DEGOUTSF +1
019356,001307:
019357,001308: 06,6670 30115 NEGOPT XCH MPAC # NEGATIVE CASE
019358,001309: 06,6671 66742 AD 20BIAS
019359,001310: 06,6672 10000 CCS A
019360,001311: 06,6673 06661 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
019361,001312: 06,6674 03062 TC CCSHOLE
019362,001313: 06,6675 64516 AD ONE # IF NEG RESTORE SUM
019363,001314: 06,6676 40000 COM # IF NEG 0 LEAVE NEG 0
![]() |
Page 509 |
019365,001316: 06,6677 06661 TC BIASCOM
019366,001317:
019367,001318: 06,6700 20117 SETAUG INDEX MPAC +2 # LOADS SFTEMP1 AND SFTEMP2 WITH THE
019368,001319: 06,6701 36737 CAF DEGTAB2 # DP AUGMENTER CONSTANT
019369,001320: 06,6702 50111 TS SFTEMP2
019370,001321: 06,6703 20117 INDEX MPAC +2
019371,001322: 06,6704 36734 CAF DEGTAB1
019372,001323: 06,6705 50110 TS SFTEMP1
019373,001324: 06,6706 00001 TC Q
019374,001325:
019375,001326: 06,6707 30001 FIXRANGE XCH Q # IF MPAC IS + RETURN TO L+1
019376,001327: 06,6710 50106 TS WDRET # IF MPAC IS - RETURN TO L+2 AFTER
019377,001328: 06,6711 10115 CCS MPAC # MASKING OUT THE SIGN BIT
019378,001329: 06,6712 00106 TC WDRET
019379,001330: 06,6713 00106 TC WDRET
019380,001331: 06,6714 06715 TC +1
019381,001332: 06,6715 44500 CS BIT15
019382,001333: 06,6716 70115 MASK MPAC
019383,001334: 06,6717 50115 TS MPAC
019384,001335: 06,6720 20106 INDEX WDRET
019385,001336: 06,6721 00001 TC 1
019386,001337:
019387,001338: 06,6722 20117 DEGCOM INDEX MPAC +2 # LOADS MULTIPLIER, DOES SHORTMP, AND
019388,001339: 06,6723 36737 CAF DEGTAB2 # ADDS AUGMENTER.
019389,001340: 06,6724 50116 TS MPAC +1
019390,001341: 06,6725 20117 INDEX MPAC +2
019391,001342: 06,6726 36734 CAF DEGTAB1
019392,001343: 06,6727 30115 XCH MPAC # ADJUSTED ANGLE IN A
019393,001344: 06,6730 05416 TC SHORTMP
019394,001345: 06,6731 05171 TC DAD
019395,001346: 06,6732 00110 ADRES SFTEMP1
019396,001347: 06,6733 06750 TC SCOUTEND
019397,001348:
019398,001349:
019399,001350:
019400,001351: 06,6734 05605 DEGTAB1 OCT 05605 # HIGH PART OF .18
019401,001352: 06,6735 02702 OCT 02702 # .09
019402,001353: 06,6736 16314 OCT 16314 # .45
019403,001354:
019404,001355: 06,6737 03656 DEGTAB2 OCT 03656 # LOW PART OF .18
019405,001356: 06,6740 21727 OCT 21727 # .09
019406,001357: 06,6741 31463 OCT 31463 # .45
019407,001358:
019408,001359: 06,6742 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
019409,001360:
019410,001361: 06,6743 30111 ARTOUTSF XCH SFTEMP2 # ASSUMES POINT AT LEFT OF DP SFCON.
019411,001362: 06,6744 50116 TS MPAC +1
019412,001363: 06,6745 30110 XCH SFTEMP1 # HI PART OF SFCONSTANT
019413,001364: 06,6746 30115 XCH MPAC
019414,001365: 06,6747 05416 TC SHORTMP
![]() |
Page 510 |
019416,001367: 06,6750 05720 SCOUTEND TC POSTJUMP
019417,001368: 06,6751 16542 CADR DSPDCEND
019418,001369:
019419,001370: 06,6752 06764 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019420,001371: 06,6753 30117 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
019421,001372: 06,6754 30116 XCH MPAC +1 # BY B14.
019422,001373: 06,6755 50115 TS MPAC
019423,001374: 06,6756 06750 TC SCOUTEND
019424,001375:
019425,001376:
019426,001377:
019427,001378: 06,6757 06764 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
019428,001379: 06,6760 06750 TC SCOUTEND
019429,001380:
019430,001381:
019431,001382:
019432,001383: 06,6761 06764 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019433,001384: 06,6762 07213 TC TPLEFT7 # PART OF SFCON. SHIFTS RESULTS LEFT 7.
019434,001385: 06,6763 06750 TC SCOUTEND
019435,001386:
019436,001387:
019437,001388:
019438,001389: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
019439,001390: # THIS IS NEEDED FOR TIME DISPLAY.
019440,001391:
019441,001392: 06,6764 30001 DPOUT XCH Q
019442,001393: 06,6765 50122 TS OVFIND
019443,001394: 06,6766 20107 INDEX MIXBR
019444,001395: 06,6767 06767 TC +0
019445,001396: 06,6770 07025 TC DPOUTNOR
019446,001397: 06,6771 20063 INDEX DECOUNT
019447,001398: 06,6772 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
019448,001399: 06,6773 40000 CS A # OF NOUN.
019449,001400: 06,6774 74606 MASK LOW10 # E SUBK
019450,001401: 06,6775 50117 DPOUTCOM TS MPAC +2
019451,001402: 06,6776 20017 INHINT
019452,001403: 06,6777 20117 INDEX MPAC +2
019453,001404: 06,7000 40000 CS 0 # MIXED NORMAL
019454,001405: 06,7001 40000 COM # C(ESUBK) C(E)
019455,001406: 06,7002 30115 XCH MPAC
019456,001407: 06,7003 20117 INDEX MPAC +2
019457,001408: 06,7004 40001 CS 1 # C((E SUBK)+1) C(E+1)
019458,001409: 06,7005 20016 RELINT
019459,001410: 06,7006 40000 COM
019460,001411: 06,7007 30116 XCH MPAC +1
019461,001412: 06,7010 10116 CCS MPAC +1 # TEST IF LOW PART +0 IN CASE PICKING UP
019462,001413: 06,7011 07014 TC +3 # TIME, IF SO COULD HAVE OVFLOD, SO GET
019463,001414: 06,7012 07021 TC +0CASE # UP TO DATE HIGH PART. IF NOT +0, NO
019464,001415: 06,7013 07014 TC +1 # PROBLEM.
019465,001416: 06,7014 05157 +0RET TC DMP
![]() |
Page 511 |
019467,001418: 06,7015 50107 XCADR SFTEMP1
019468,001419: 06,7016 05654 TC BANKCALL
019469,001420: 06,7017 07154 CADR TPAGREE
019470,001421: 06,7020 00122 TC OVFIND
019471,001422:
019472,001423: 06,7021 20117 +0CASE INDEX MPAC +2
019473,001424: 06,7022 60000 AD 0
019474,001425: 06,7023 30115 XCH MPAC
019475,001426: 06,7024 07014 TC +0RET
019476,001427:
019477,001428: 06,7025 40624 DPOUTNOR CS NOUNADD
019478,001429: 06,7026 40000 CS A # E
019479,001430: 06,7027 06775 TC DPOUTCOM
019480,001431:
019481,001432: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
019482,001433: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
019483,001434: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
019484,001435: # OF THE REGISTER NOUNADD IS POINTING TO. IF USED WITH NOUNS WHICH ARE
019485,001436: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
019486,001437: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
019487,001438:
019488,001439:
019489,001440:
019490,001441: 06,7030 20107 DSPDPDEC INDEX MIXBR
019491,001442: 06,7031 07031 TC +0
019492,001443: 06,7032 07034 TC +2 # NORMAL NOUN
019493,001444: 06,7033 07442 TC DSPALARM
019494,001445: 06,7034 20624 INDEX NOUNADD
019495,001446: 06,7035 40000 CS 0
019496,001447: 06,7036 40000 COM
019497,001448: 06,7037 30115 XCH MPAC # LOAD MPAC WITH HIGH ORDER PART
019498,001449: 06,7040 20624 INDEX NOUNADD
019499,001450: 06,7041 40001 CS 1
019500,001451: 06,7042 40000 COM
019501,001452: 06,7043 30116 XCH MPAC +1 # LOAD MPAC+1 WITH LOW ORDER PART
019502,001453: 06,7044 33171 CAF R1D1
019503,001454: 06,7045 50614 TS DSPCOUNT
019504,001455: 06,7046 35501 CAF ZERO
019505,001456: 06,7047 50117 TS MPAC +2
019506,001457: 06,7050 05654 TC BANKCALL
019507,001458: 06,7051 07154 CADR TPAGREE
019508,001459: 06,7052 07315 TC DSP2DEC
019509,001460: 06,7053 00065 ENDDPDEC TC ENTEXIT
019510,001461:
![]() |
Page 512 |
019512,001463:
019513,001464: # LOAD VERBS
019514,001465:
019515,001466:
019516,001467:
019517,001468: 07,6564 SETLOC ENDRTOUT
019518,001469:
019519,001470: 07,6564 45503 ABCLOAD CS TWO
019520,001471: 07,6565 06430 TC COMPTEST
019521,001472: 07,6566 36715 CAF VBSP1LD
019522,001473: 07,6567 06345 TC UPDATVB -1
019523,001474: 07,6570 06274 TC REQDATX
019524,001475: 07,6571 36716 CAF VBSP2LD
019525,001476: 07,6572 06345 TC UPDATVB -1
019526,001477: 07,6573 06300 TC REQDATY
019527,001478: 07,6574 36717 CAF VBSP3LD
019528,001479: 07,6575 06345 TC UPDATVB -1
019529,001480: 07,6576 06304 TC REQDATZ
019530,001481:
019531,001482:
019532,001483:
019533,001484: 07,6577 44475 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
019534,001485: 07,6600 06720 TC ALLDC/OC # ALL DEC OR ALL OCT.
019535,001486: 07,6601 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019536,001487: 07,6602 05662 TC SWCALL # ROUTINE.
019537,001488: 07,6603 35501 CAF ZERO # X COMP
019538,001489: 07,6604 07000 TC PUTCOM
019539,001490: 07,6605 20624 INDEX NOUNADD
019540,001491: 07,6606 50000 TS 0
019541,001492: 07,6607 34516 CAF ONE # Y COMP
019542,001493: 07,6610 07000 TC PUTCOM
019543,001494: 07,6611 20624 INDEX NOUNADD
019544,001495: 07,6612 50001 TS 1
019545,001496: 07,6613 35503 CAF TWO # Z COMP
019546,001497: 07,6614 07000 TC PUTCOM
019547,001498: 07,6615 20624 INDEX NOUNADD
019548,001499: 07,6616 50002 TS 2
019549,001500: 07,6617 06705 TC LOADLV
019550,001501:
019551,001502: 07,6620 44516 ABLOAD CS ONE
019552,001503: 07,6621 06430 TC COMPTEST
019553,001504: 07,6622 36715 CAF VBSP1LD
019554,001505: 07,6623 06345 TC UPDATVB -1
019555,001506: 07,6624 06274 TC REQDATX
019556,001507: 07,6625 36716 CAF VBSP2LD
019557,001508: 07,6626 06345 TC UPDATVB -1
019558,001509: 07,6627 06300 TC REQDATY
019559,001510: 07,6630 44477 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
019560,001511: 07,6631 06720 TC ALLDC/OC # ALL DEC OR ALL OCT.
019561,001512: 07,6632 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019562,001513: 07,6633 05662 TC SWCALL # ROUTINE.
![]() |
Page 513 |
019564,001515: 07,6634 35501 CAF ZERO # X COMP
019565,001516: 07,6635 07000 TC PUTCOM
019566,001517: 07,6636 20624 INDEX NOUNADD
019567,001518: 07,6637 50000 TS 0
019568,001519: 07,6640 34516 CAF ONE # Y COMP
019569,001520: 07,6641 07000 TC PUTCOM
019570,001521: 07,6642 20624 INDEX NOUNADD
019571,001522: 07,6643 50001 TS 1
019572,001523: 07,6644 06705 TC LOADLV
019573,001524:
019574,001525: 07,6645 06274 ALOAD TC REQDATX
019575,001526: 07,6646 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019576,001527: 07,6647 05662 TC SWCALL # ROUTINE.
019577,001528: 07,6650 35501 CAF ZERO # X COMP
019578,001529: 07,6651 07000 TC PUTCOM
019579,001530: 07,6652 20624 INDEX NOUNADD
019580,001531: 07,6653 50000 TS 0
019581,001532: 07,6654 06705 TC LOADLV
019582,001533:
019583,001534: 07,6655 44516 BLOAD CS ONE
019584,001535: 07,6656 06430 TC COMPTEST
019585,001536: 07,6657 34500 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
019586,001537: 07,6660 50633 TS CLPASS
019587,001538: 07,6661 06300 TC REQDATY
019588,001539: 07,6662 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019589,001540: 07,6663 05662 TC SWCALL # ROUTINE.
019590,001541: 07,6664 34516 CAF ONE
019591,001542: 07,6665 07000 TC PUTCOM
019592,001543: 07,6666 20624 INDEX NOUNADD
019593,001544: 07,6667 50001 TS 1
019594,001545: 07,6670 06705 TC LOADLV
019595,001546:
019596,001547: 07,6671 45503 CLOAD CS TWO
019597,001548: 07,6672 06430 TC COMPTEST
019598,001549: 07,6673 34500 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
019599,001550: 07,6674 50633 TS CLPASS
019600,001551: 07,6675 06304 TC REQDATZ
019601,001552: 07,6676 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
019602,001553: 07,6677 05662 TC SWCALL # ROUTINE.
019603,001554: 07,6700 35503 CAF TWO
019604,001555: 07,6701 07000 TC PUTCOM
019605,001556: 07,6702 20624 INDEX NOUNADD
019606,001557: 07,6703 50002 TS 2
019607,001558: 07,6704 06705 TC LOADLV
019608,001559:
019609,001560: 07,6705 35501 LOADLV CAF ZERO
019610,001561: 07,6706 50615 TS DECBRNCH
019611,001562: 07,6707 45501 CS ZERO
019612,001563: 07,6710 50632 TS LOADSTAT
019613,001564: 07,6711 43227 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
![]() |
Page 514 |
019615,001566: 07,6712 50614 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
019616,001567: 07,6713 05720 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
019617,001568: 07,6714 15600 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
019618,001569:
019619,001570: 07,6715 00021 VBSP1LD OCT 21 # VB21 = ALOAD
019620,001571: 07,6716 00022 VBSP2LD OCT 22 # VB22 = BLOAD
019621,001572: 07,6717 00023 VBSP3LD OCT 23 # VB23 = CLOAD
019622,001573:
019623,001574:
019624,001575:
019625,001576: 07,6720 50063 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
019626,001577: 07,6721 30001 XCH Q # ALL DEC OR ALL OCT. ALARMS IF NOT.
019627,001578: 07,6722 50106 TS DECRET
019628,001579: 07,6723 40615 CS DECBRNCH
019629,001580: 07,6724 50021 TS SR
019630,001581: 07,6725 40021 CS SR
019631,001582: 07,6726 40021 CS SR # SHIFTED RIGHT 2
019632,001583: 07,6727 10000 CCS A # DEC COMP BITS IN LOW 3
019633,001584: 07,6730 06732 TC +2 # SOME ONES IN LOW 3
019634,001585: 07,6731 00106 TC DECRET # ALL ZEROS. ALL OCTAL. OK
019635,001586: 07,6732 60063 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
019636,001587: 07,6733 10000 CCS A # (BUT IT HAS BEEN DECREMENTED BY CCS)
019637,001588: 07,6734 06356 TC GODSPALM # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
019638,001589: 07,6735 03062 TC CCSHOLE
019639,001590: 07,6736 06356 TC GODSPALM
019640,001591: 07,6737 00106 TC DECRET # ALL REQUIRED ARE DEC. OK
019641,001592:
019642,001593:
019643,001594:
019644,001595: 07,6740 30001 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
019645,001596: 07,6741 50112 TS EXITEM
019646,001597: 07,6742 33221 CAF MID5
019647,001598: 07,6743 70055 MASK NNTYPTEM
019648,001599: 07,6744 03174 TC RIGHT5
019649,001600: 07,6745 00112 TC EXITEM # SF ROUTINE NUMBER IN A
019650,001601:
019651,001602: 07,6746 30001 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
019652,001603: 07,6747 50112 TS EXITEM
019653,001604: 07,6750 20063 INDEX DECOUNT
019654,001605: 07,6751 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
019655,001606: 07,6752 40000 CS A # OF NOUN.
019656,001607: 07,6753 72261 MASK HI5
019657,001608: 07,6754 03203 TC LEFT5
019658,001609: 07,6755 00112 TC EXITEM # SF ROUTINE NUMBER IN A
019659,001610:
019660,001611: 07,6756 30001 SFCONUM XCH Q # GETS SF CONSTANT NUMBER
019661,001612: 07,6757 50112 TS EXITEM
019662,001613: 07,6760 20107 INDEX MIXBR
019663,001614: 07,6761 06761 TC +0
019664,001615: 07,6762 06775 TC CONUMNOR # NORMAL NOUN
![]() |
Page 515 |
019666,001617: 07,6763 20063 INDEX DECOUNT # MIXED NOUN
019667,001618: 07,6764 33220 CAF LOW5
019668,001619: 07,6765 70055 MASK NNTYPTEM
019669,001620: 07,6766 20063 INDEX DECOUNT
019670,001621: 07,6767 26772 INDEX DISPLACE
019671,001622: 07,6770 00000 TC 0
019672,001623: # DO TC SFRET (DECOUNT=0),DO TC RIGHT5(DECOUNT=1), DO TC LEFT5 (DECOUNT=2)
019673,001624: 07,6771 00112 SFRET TC EXITEM # SF CON NUMBER IN A
019674,001625:
019675,001626: 07,6772 06771 DISPLACE TC SFRET
019676,001627: 07,6773 03174 TC RIGHT5
019677,001628: 07,6774 03203 TC LEFT5
019678,001629:
019679,001630: 07,6775 33220 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
019680,001631: 07,6776 70055 MASK NNTYPTEM
019681,001632: 07,6777 00112 TC EXITEM
019682,001633:
019683,001634:
019684,001635:
019685,001636: 07,7000 50063 PUTCOM TS DECOUNT
019686,001637: 07,7001 30001 XCH Q
019687,001638: 07,7002 50106 TS DECRET
019688,001639: 07,7003 35501 CAF ZERO
019689,001640: 07,7004 50122 TS OVFIND
019690,001641: 07,7005 20063 INDEX DECOUNT
019691,001642: 07,7006 30607 XCH XREGLP
019692,001643: 07,7007 50116 TS MPAC +1
019693,001644: 07,7010 20063 INDEX DECOUNT
019694,001645: 07,7011 30604 XCH XREG
019695,001646: 07,7012 50115 TS MPAC
019696,001647: 07,7013 20107 INDEX MIXBR
019697,001648: 07,7014 07014 TC +0
019698,001649: 07,7015 07043 TC PUTNORM # NORMAL NOUN
019699,001650: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD
019700,001651: 07,7016 20063 INDEX DECOUNT
019701,001652: 07,7017 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
019702,001653: 07,7020 40000 CS A # OF NOUN.
019703,001654: 07,7021 74606 MASK LOW10 # EK FOR CURRENT NOUN
019704,001655: 07,7022 25777 EXTEND
019705,001656: 07,7023 60063 SU DECOUNT
019706,001657: 07,7024 50624 TS NOUNADD # PLACE (E SUB K) - K INTO NOUNADD
019707,001658: 07,7025 10615 CCS DECBRNCH
019708,001659: 07,7026 07055 TC PUTDECSF # + DEC
019709,001660: 07,7027 06746 TC SFRUTMIX # +0 OCTAL
019710,001661: 07,7030 06255 TC DPTEST
019711,001662: 07,7031 07053 TC PUTCOM2 # NO DP
019712,001663: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
019713,001664: # +0 INTO MAJOR PART. SET NOUNADD FOR
019714,001665: # LOADING OCTAL WORD INTO MINOR PART.
019715,001666: 07,7032 34516 PUTDPCOM CAF ONE # DP
![]() |
Page 516 |
019717,001668: 07,7033 60624 AD NOUNADD
019718,001669: 07,7034 50624 TS NOUNADD # (ESUBK)-K+1 OR E+1
019719,001670: 07,7035 60063 AD DECOUNT # NOUNADD NOW SET FOR MINOR PART
019720,001671: 07,7036 50063 TS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
019721,001672: 07,7037 35501 CAF ZERO # NOUNADD SET FOR MINOR PART
019722,001673: 07,7040 20063 INDEX DECOUNT
019723,001674: 07,7041 47777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
019724,001675: 07,7042 07053 TC PUTCOM2
019725,001676:
019726,001677: 07,7043 10615 PUTNORM CCS DECBRNCH
019727,001678: 07,7044 07055 TC PUTDECSF # + DEC
019728,001679: 07,7045 06740 TC SFRUTNOR # +0 OCTAL
019729,001680: 07,7046 06255 TC DPTEST
019730,001681: 07,7047 07053 TC PUTCOM2 # NO DP
019731,001682: 07,7050 35501 CAF ZERO
019732,001683: 07,7051 50063 TS DECOUNT
019733,001684: 07,7052 07032 TC PUTDPCOM
019734,001685:
019735,001686: 07,7053 30115 PUTCOM2 XCH MPAC
019736,001687: 07,7054 00106 TC DECRET
019737,001688:
019738,001689: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
019739,001690:
019740,001691: 07,7055 06756 PUTDECSF TC SFCONUM # SF CON NUMB IN A
019741,001692: 07,7056 50111 TS SFTEMP2
019742,001693: 07,7057 05654 TC BANKCALL # SWITCH BANKS TO SF CONSTANT READING
019743,001694: 07,7060 13222 CADR GTSFIN # ROUTINE. LOADS SFTEMP1, SFTEMP2.
019744,001695: 07,7061 20107 INDEX MIXBR
019745,001696: 07,7062 07062 TC +0
019746,001697: 07,7063 07066 TC PUTSFNOR
019747,001698: 07,7064 06746 TC SFRUTMIX
019748,001699: 07,7065 07067 TC PUTDCSF2
019749,001700: 07,7066 06740 PUTSFNOR TC SFRUTNOR
019750,001701:
019751,001702: 07,7067 20000 PUTDCSF2 INDEX A
019752,001703: 07,7070 37072 CAF SFINTABR
019753,001704: 07,7071 05723 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
019754,001705: 07,7072 15442 SFINTABR CADR DSPALARM # ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
019755,001706: 07,7073 15140 CADR BINROUND
019756,001707: 07,7074 15054 CADR DEGINSF
019757,001708: 07,7075 15127 CADR ARTHINSF
019758,001709: 07,7076 15161 CADR DPINSF
019759,001710: 07,7077 15207 CADR DPINSF2
019760,001711: 07,7100 15143 CADR OPTDEGIN
019761,001712: 07,7101 15161 CADR DPINSF # SAME AS ARITHDP1
019762,001713: 07,7102 ENDRUTIN EQUALS
019763,001714:
019764,001715:
019765,001716:
019766,001717: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
![]() |
Page 517 |
019768,001719: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
019769,001720:
019770,001721:
019771,001722:
019772,001723: 06,7054 SETLOC ENDDPDEC +1
019773,001724:
019774,001725: # DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8)
019775,001726:
019776,001727: 06,7054 05157 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
019777,001728: 06,7055 57121 XCADR DEGCON1 # MULT BY 5.5 5(10)X2/-3
019778,001729: 06,7056 10116 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
019779,001730: 06,7057 34504 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
019780,001731: 06,7060 07062 TC +2 # WHEN SHIFTED LEFT AND ALARM.
019781,001732: 06,7061 44504 CS BIT11
019782,001733: 06,7062 60116 AD MPAC +1
019783,001734: 06,7063 07226 TC 2ROUND +2
019784,001735: 06,7064 05654 TC BANKCALL # LEFT 1
019785,001736: 06,7065 06367 CADR SL1 +3
019786,001737: 06,7066 05654 DEGINSF2 TC BANKCALL # LEFT 2
019787,001738: 06,7067 06367 CADR SL1 +3
019788,001739: 06,7070 07235 TC TESTOFUF
019789,001740: 06,7071 05654 TC BANKCALL # RETURNS IF NO OF/UF
019790,001741: 06,7072 06367 CADR SL1 +3 # LEFT 3
019791,001742: 06,7073 10115 CCS MPAC
019792,001743: 06,7074 07100 TC SIGNFIX # IF +, GO TO SIGNFIX
019793,001744: 06,7075 07100 TC SIGNFIX # IF +0, GO TO SIGNFIX
019794,001745: 06,7076 40000 COM # IF - , USE -MAGNITUDE +1
019795,001746: 06,7077 50115 TS MPAC # IF -0, USE +0
019796,001747: 06,7100 10122 SIGNFIX CCS OVFIND
019797,001748: 06,7101 07116 TC SGNTO1 # IF OVERFLOW
019798,001749: 06,7102 07112 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
019799,001750: 06,7103 10115 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
019800,001751: 06,7104 03062 TC CCSHOLE
019801,001752: 06,7105 07114 TC NEG180
019802,001753: 06,7106 07107 TC +1
019803,001754: 06,7107 30115 XCH MPAC
019804,001755: 06,7110 74476 MASK POSMAX
019805,001756: 06,7111 50115 TS MPAC
019806,001757: 06,7112 05720 ENDSCALE TC POSTJUMP
019807,001758: 06,7113 17053 CADR PUTCOM2
019808,001759:
019809,001760: 06,7114 44476 NEG180 CS POSMAX
019810,001761: 06,7115 07111 TC ENDSCALE -1
019811,001762:
019812,001763: 06,7116 40115 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
019813,001764: 06,7117 74476 MASK POSMAX
019814,001765: 06,7120 40000 CS A
019815,001766: 06,7121 07111 TC ENDSCALE -1
019816,001767:
019817,001768: 06,7122 26161 30707 DEGCON1 2DEC 5.555555555 B-3
![]() |
Page 518 |
019819,001770: 06,7124 21616 07071 DEGCON2 2DEC 2.222222222 B-2
019820,001771: 06,7126 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
019821,001772:
019822,001773: 06,7127 05157 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
019823,001774: 06,7130 50107 XCADR SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
019824,001775: 06,7131 30117 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
019825,001776: 06,7132 30116 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
019826,001777: 06,7133 30115 XCH MPAC
019827,001778: 06,7134 10000 CCS A
019828,001779: 06,7135 07442 TC DSPALARM # TOO LARGE A LOAD
019829,001780: 06,7136 07140 TC BINROUND
019830,001781: 06,7137 07442 TC DSPALARM # TOO LARGE A LOAD
019831,001782: 06,7140 07224 BINROUND TC 2ROUND
019832,001783: 06,7141 07235 TC TESTOFUF
019833,001784: 06,7142 07112 TC ENDSCALE # RETURNS IF NO OF/UF
019834,001785:
019835,001786:
019836,001787:
019837,001788: 06,7143 10115 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
019838,001789: 06,7144 07150 TC OPDEGIN2 # LOW RANGE 0 TO 90 DEG ALWAYS
019839,001790: 06,7145 07150 TC OPDEGIN2
019840,001791: 06,7146 07442 TC DSPALARM # REJECT - INPUT. ALARM
019841,001792: 06,7147 07442 TC DSPALARM # DITTO
019842,001793:
019843,001794:
019844,001795:
019845,001796: # NO LONGER DO WE TEST BIT 13 OF WASOPSET TO DETERMINE RANGE. RANGE NOW
019846,001797: # IS ALWAYS 90 DEG (BLOCK 50 - 100)
019847,001798:
019848,001799:
019849,001800:
019850,001801: 06,7150 30115 OPDEGIN2 XCH MPAC # RANGE IS 90 DEG
019851,001802: 06,7151 67126 AD NEG.2 # SUBTRACT BIAS
019852,001803: 06,7152 50115 TS MPAC
019853,001804: 06,7153 05157 TC DMP # MULT BY 100 / 45 B-2
019854,001805: 06,7154 57123 XCADR DEGCON2
019855,001806: 06,7155 34503 CAF BIT12 # ROUND AS IN DEGINSF
019856,001807: 06,7156 60116 AD MPAC +1
019857,001808: 06,7157 07226 TC 2ROUND +2
019858,001809: 06,7160 07066 TC DEGINSF2
019859,001810:
019860,001811: 06,7161 05157 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
019861,001812: 06,7162 50107 XCADR SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
019862,001813: 06,7163 30117 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
019863,001814: 06,7164 60000 DOUBLE
019864,001815: 06,7165 50117 TS MPAC +2
019865,001816: 06,7166 35501 CAF ZERO
019866,001817: 06,7167 60116 AD MPAC +1
019867,001818: 06,7170 07226 TC 2ROUND +2
![]() |
Page 519 |
019869,001820: 06,7171 07235 TC TESTOFUF
019870,001821: 06,7172 20107 INDEX MIXBR # RETURNS IF NO OF/UF
019871,001822: 06,7173 07173 TC +0
019872,001823: 06,7174 07205 TC DPINORM
019873,001824: 06,7175 30063 XCH DECOUNT # MIXEDNOUN
019874,001825: 06,7176 50063 TS DECOUNT
019875,001826: 06,7177 60624 DPINCOM AD NOUNADD # MIXED NORMAL
019876,001827: 06,7200 50001 TS Q # E SUBK E
019877,001828: 06,7201 30116 XCH MPAC +1
019878,001829: 06,7202 20001 INDEX Q
019879,001830: 06,7203 50001 TS 1 # PLACE LOW PART IN
019880,001831: 06,7204 07112 TC ENDSCALE # (E SUBK) +1 MIXED
019881,001832: 06,7205 35501 DPINORM CAF ZERO # E +1 NORMAL
019882,001833: 06,7206 07177 TC DPINCOM
019883,001834:
019884,001835:
019885,001836:
019886,001837: 06,7207 05157 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
019887,001838: 06,7210 50107 XCADR SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
019888,001839: 06,7211 07213 TC TPLEFT7 # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
019889,001840: 06,7212 07163 TC DPINSF +2
019890,001841:
019891,001842: 06,7213 30001 TPLEFT7 XCH Q # OPERATES ON MPAC, MPAC+1, MPAC+2
019892,001843: 06,7214 50111 TS SFTEMP2
019893,001844: 06,7215 34475 CAF SIX # LEFT BY 7
019894,001845: 06,7216 50110 LEFT7COM TS SFTEMP1
019895,001846: 06,7217 05654 TC BANKCALL
019896,001847: 06,7220 06364 CADR SL1
019897,001848: 06,7221 10110 CCS SFTEMP1
019898,001849: 06,7222 07216 TC LEFT7COM
019899,001850: 06,7223 00111 TC SFTEMP2
019900,001851:
019901,001852:
019902,001853:
019903,001854: 06,7224 30116 2ROUND XCH MPAC +1
019904,001855: 06,7225 60000 DOUBLE
019905,001856: 06,7226 50116 TS MPAC +1
019906,001857: 06,7227 00001 TC Q # IF MPAC+1 DOES NOT OF/UF
019907,001858: 06,7230 60115 AD MPAC
019908,001859: 06,7231 50115 TS MPAC
019909,001860: 06,7232 00001 TC Q # IF MPAC DOES NOT OF/UF
019910,001861: 06,7233 50122 TS OVFIND
019911,001862: 06,7234 00001 2RNDEND TC Q
019912,001863:
019913,001864:
019914,001865:
019915,001866: 06,7235 10122 TESTOFUF CCS OVFIND # RETURNS IF NO OF/UF
019916,001867: 06,7236 07442 TC DSPALARM # OF
![]() |
Page 520 |
019918,001869: 06,7237 00001 TC Q
019919,001870: 06,7240 07442 TC DSPALARM # UF
019920,001871:
![]() |
Page 521 |
019922,001873:
019923,001874: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
019924,001875: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
019925,001876:
019926,001877: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
019927,001878: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
019928,001879: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
019929,001880: # NOUNADD IN MONSAVE1, IF NOUN = MACHINE ADDRESS TO BE SPECIFIED. BIT 15 OF
019930,001881: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
019931,001882:
019932,001883: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
019933,001884: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
019934,001885: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
019935,001886:
019936,001887: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
019937,001888:
019938,001889: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
019939,001890: # AND MONSAVE1 (TURNING OFF KILLER BIT).
019940,001891:
019941,001892:
019942,001893:
019943,001894: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
019944,001895:
019945,001896: 07,7102 SETLOC ENDRUTIN
019946,001897:
019947,001898: 07,7102 44500 MONITOR CS BIT15
019948,001899: 07,7103 70624 MASK NOUNADD
019949,001900: 07,7104 50116 MONIT1 TS MPAC +1 # TEMP STORAGE
019950,001901: 07,7105 37421 CAF LOW6
019951,001902: 07,7106 70602 MASK VERBREG
019952,001903: 07,7107 03203 TC LEFT5
019953,001904: 07,7110 50022 TS CYL
019954,001905: 07,7111 30022 XCH CYL
019955,001906: 07,7112 60603 AD NOUNREG
019956,001907: 07,7113 50115 TS MPAC # TEMP STORAGE
019957,001908: 07,7114 40630 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
019958,001909: 07,7115 65503 AD TWO
019959,001910: 07,7116 10000 CCS A
019960,001911: 07,7117 03356 TC RELDSP1 # GRABLOCK=0,1. +0 INTO DSPLOCK AND
019961,001912: 07,7120 07123 TC +3 # TURN OFF KEY RLSE LIGHT.
019962,001913: 07,7121 03062 TC CCSHOLE
019963,001914: 07,7122 03257 TC DSPLOCK0 # GRABLOCK=2. +0 INTO DSPLOCK (BIT4 OF
019964,001915: # STATE) AND LEAVE KEY RELEASE LIGHT ALONE
019965,001916: 07,7123 20017 INHINT
019966,001917: 07,7124 10625 CCS MONSAVE
019967,001918: 07,7125 07131 TC +4 # IF MONSAVE WAS +, NO REQUEST
019968,001919: 07,7126 34516 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
019969,001920: 07,7127 02173 TC WAITLIST
019970,001921: 07,7130 17137 CADR MONREQ
019971,001922: 07,7131 30115 XCH MPAC
019972,001923: 07,7132 50625 TS MONSAVE # PLACE MONITOR VERB AND NOUN INTO MONSAVE
019973,001924: 07,7133 30116 XCH MPAC +1
![]() |
Page 522 |
019975,001926: 07,7134 50626 TS MONSAVE1 # ZERO THE KILL MONITOR BIT
019976,001927: 07,7135 20016 RELINT
019977,001928: 07,7136 00065 TC ENTRET
019978,001929:
019979,001930:
019980,001931:
019981,001932: 07,7137 02677 MONREQ TC READTIME +1 # CALLED BY WAITLIST
019982,001933: 07,7140 02736 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65
019983,001934: 07,7141 10626 CCS MONSAVE1
019984,001935: 07,7142 07146 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
019985,001936: 07,7143 07146 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
019986,001937: 07,7144 07155 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
019987,001938: 07,7145 07155 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
019988,001939: 07,7146 37161 CAF MONDEL
019989,001940: 07,7147 02173 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
019990,001941: 07,7150 17137 CADR MONREQ
019991,001942: 07,7151 32164 CAF PRIO31
019992,001943: 07,7152 02052 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
019993,001944: 07,7153 17162 CADR MONDO
019994,001945: 07,7154 02256 TC TASKOVER
019995,001946:
019996,001947: 07,7155 35501 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
019997,001948: 07,7156 50625 TS MONSAVE
019998,001949: 07,7157 50626 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
019999,001950: 07,7160 02256 TC TASKOVER
020000,001951:
020001,001952:
020002,001953:
020003,001954: 07,7161 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
020004,001955:
020005,001956:
020006,001957:
020007,001958: 07,7162 10626 MONDO CCS MONSAVE1 # CALLED BY EXEC
020008,001959: 07,7163 07167 TC +4 # IF KILLER BIT = 0, CONTINUE
020009,001960: 07,7164 07167 TC +3 # IF KILLER BIT = 0, CONTINUE
020010,001961: 07,7165 02124 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
020011,001962: 07,7166 02124 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
020012,001963: 07,7167 03274 TC TSTDSPLK # PERFORMS CCS DSPLOCK
020013,001964: 07,7170 07214 TC MONBUSY # NVSUB IS BUSY
020014,001965: 07,7171 37421 CAF LOW6 # NVSUB IS AVAILABLE
020015,001966: 07,7172 70625 MASK MONSAVE
020016,001967: 07,7173 50110 TS NVTEMP
020017,001968: 07,7174 03121 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
020018,001969: 07,7175 02124 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
020019,001970: 07,7176 37212 CAF MONMASK
020020,001971: 07,7177 70625 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
020021,001972: 07,7200 03174 TC RIGHT5
020022,001973: 07,7201 50020 TS CYR
020023,001974: 07,7202 30020 XCH CYR
020024,001975: 07,7203 50602 TS VERBREG
![]() |
Page 523 |
020026,001977: 07,7204 37213 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
020027,001978: 07,7205 50065 TS ENTRET
020028,001979: 07,7206 44500 CS BIT15
020029,001980: 07,7207 70626 MASK MONSAVE1
020030,001981: 07,7210 50624 TS NOUNADD
020031,001982: 07,7211 06046 ENDMONDO TC TESTNN
020032,001983:
020033,001984: 3071 SETLOC ENDFAILF
020034,001985: 3071 33077 PASTEVB CAF MIDSIX
020035,001986: 3072 70625 MASK MONSAVE
020036,001987: 3073 50110 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
020037,001988: 3074 03121 TC NVSUBMON # DISPLAY IT.
020038,001989: 3075 03076 TC +1 # IN CASE OF ALARM DURING DISPLAY
020039,001990: 3076 02124 ENDPASTE TC ENDOFJOB
020040,001991:
020041,001992: 3077 07700 MIDSIX OCT 07700
020042,001993:
020043,001994: 07,7212 SETLOC ENDMONDO +1
020044,001995: 07,7212 00700 MONMASK OCT 700
020045,001996: 07,7213 03071 MONBACK ADRES PASTEVB
020046,001997:
020047,001998: 07,7214 03250 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
020048,001999: 07,7215 02124 TC ENDOFJOB
020049,002000:
020050,002001: # DSPBANK IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER IN BANK.
020051,002002: # IT IS USED WITH NOUN = MACHINE ADDRESS TO BE SPECIFIED. THE CADR OF THE
020052,002003: # DESIRED LOCATION IS THEN PUNCHED IN.
020053,002004:
020054,002005: 07,7216 33171 DSPBANK CAF R1D1
020055,002006: 07,7217 50614 TS DSPCOUNT
020056,002007: 07,7220 40624 CS NOUNADD
020057,002008: 07,7221 40000 CS A
020058,002009: 07,7222 05730 TC DATACALL
020059,002010: 07,7223 07225 TC DSPOCTWD
020060,002011: 07,7224 02124 TC ENDOFJOB
020061,002012:
020062,002013:
020063,002014:
020064,002015: 06,7241 SETLOC TESTOFUF +4
020065,002016:
020066,002017: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
020067,002018: # STARTING IN LOC SPECIFIED IN DSPCOUNT
020068,002019:
020069,002020: 06,7241 30001 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
020070,002021: 06,7242 50106 TS WDRET
020071,002022: 06,7243 10115 CCS MPAC
![]() |
Page 524 |
020073,002024: 06,7244 07253 TC +7
020074,002025: 06,7245 07253 TC +6
020075,002026: 06,7246 64516 AD ONE
020076,002027: 06,7247 50115 TS MPAC
020077,002028: 06,7250 06343 TC -ON
020078,002029: 06,7251 40116 CS MPAC +1
020079,002030: 06,7252 07255 TC +3
020080,002031: 06,7253 06322 TC +ON
020081,002032: 06,7254 30116 XCH MPAC +1
020082,002033: 06,7255 67314 AD DECROUND
020083,002034: 06,7256 50116 TS MPAC +1
020084,002035: 06,7257 35501 CAF ZERO
020085,002036: 06,7260 60115 AD MPAC
020086,002037: 06,7261 50115 TS MPAC
020087,002038: 06,7262 07266 TC +4
020088,002039: 06,7263 34476 CAF POSMAX
020089,002040: 06,7264 50115 TS MPAC
020090,002041: 06,7265 50116 TS MPAC +1
020091,002042: 06,7266 35502 CAF FOUR
020092,002043: 06,7267 50076 DSPDCWD1 TS WDCNT
020093,002044: 06,7270 33232 CAF BINCON
020094,002045: 06,7271 05416 TC SHORTMP
020095,002046: 06,7272 20115 TRACE1 INDEX MPAC
020096,002047: 06,7273 32652 CAF RELTAB
020097,002048: 06,7274 73220 MASK LOW5
020098,002049: 06,7275 50111 TS CODE
020099,002050: 06,7276 35501 CAF ZERO
020100,002051: 06,7277 30117 XCH MPAC +2
020101,002052: 06,7300 30116 XCH MPAC +1
020102,002053: 06,7301 50115 TS MPAC
020103,002054: 06,7302 30614 XCH DSPCOUNT
020104,002055: 06,7303 50104 TRACE1S TS COUNT
020105,002056: 06,7304 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
020106,002057: 06,7305 50614 TS DSPCOUNT
020107,002058: 06,7306 07341 TC DSPIN
020108,002059: 06,7307 10076 CCS WDCNT
020109,002060: 06,7310 07267 TC DSPDCWD1
020110,002061: 06,7311 43227 CS VD1
020111,002062: 06,7312 50614 TS DSPCOUNT
020112,002063: 06,7313 00106 TC WDRET
020113,002064:
020114,002065: 06,7314 02476 DECROUND OCT 02476
020115,002066:
020116,002067:
020117,002068:
020118,002069: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
020119,002070: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
020120,002071:
020121,002072: 06,7315 30001 DSP2DEC XCH Q
020122,002073: 06,7316 50106 TS WDRET
![]() |
Page 525 |
020124,002075: 06,7317 35501 CAF ZERO
020125,002076: 06,7320 50111 TS CODE
020126,002077: 06,7321 34473 CAF THREE
020127,002078: 06,7322 07426 TC 11DSPIN # -R2 OFF
020128,002079: 06,7323 35502 CAF FOUR
020129,002080: 06,7324 07426 TC 11DSPIN # +R2 OFF
020130,002081: 06,7325 10115 CCS MPAC
020131,002082: 06,7326 07336 TC +8D
020132,002083: 06,7327 07336 TC +7
020133,002084: 06,7330 64516 AD ONE
020134,002085: 06,7331 50115 TS MPAC
020135,002086: 06,7332 06343 TC -ON
020136,002087: 06,7333 40116 CS MPAC +1
020137,002088: 06,7334 50116 TS MPAC +1
020138,002089: 06,7335 07337 TC +2
020139,002090: 06,7336 06322 TC +ON
020140,002091: 06,7337 33172 CAF R2D1
020141,002092: 06,7340 07267 END2DEC TC DSPDCWD1
020142,002093:
020143,002094:
020144,002095:
020145,002096: 07,7225 SETLOC DSPBANK +7
020146,002097:
020147,002098: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
020148,002099: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
020149,002100:
020150,002101: 07,7225 50022 DSPOCTWD TS CYL
020151,002102: 07,7226 30001 XCH Q
020152,002103: 07,7227 50106 TS WDRET
020153,002104: 07,7230 30614 XCH DSPCOUNT
020154,002105: 07,7231 64501 AD BIT14 # TO BLANK SIGNS
020155,002106: 07,7232 50614 TS DSPCOUNT
020156,002107: 07,7233 35502 CAF FOUR
020157,002108: 07,7234 50076 WDAGAIN TS WDCNT
020158,002109: 07,7235 40022 CS CYL
020159,002110: 07,7236 40022 CS CYL
020160,002111: 07,7237 40022 CS CYL
020161,002112: 07,7240 40000 CS A
020162,002113: 07,7241 75362 MASK DSPMSK
020163,002114: 07,7242 20000 INDEX A
020164,002115: 07,7243 32652 CAF RELTAB
020165,002116: 07,7244 73220 MASK LOW5
020166,002117: 07,7245 50111 TS CODE
020167,002118: 07,7246 30614 XCH DSPCOUNT
020168,002119: 07,7247 50104 TS COUNT
020169,002120: 07,7250 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
020170,002121: 07,7251 50614 TS DSPCOUNT
020171,002122: 07,7252 05720 TC POSTJUMP
020172,002123: 07,7253 15434 CADR DSPOCTIN
020173,002124: 07,7254 10076 OCTBACK CCS WDCNT
020174,002125: 07,7255 07234 TC WDAGAIN # +
![]() |
Page 526 |
020176,002127: 07,7256 43227 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
020177,002128: 07,7257 50614 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
020178,002129: 07,7260 00106 TC WDRET
020179,002130:
020180,002131: 07,7261 5362 DSPMSK = SEVEN
020181,002132:
020182,002133:
020183,002134:
020184,002135: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
020185,002136: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
020186,002137: # OF THE 5 CHAR OCTAL DISPLAY
020187,002138:
020188,002139: 07,7261 50020 DSP2BIT TS CYR
020189,002140: 07,7262 30001 XCH Q
020190,002141: 07,7263 50106 TS WDRET
020191,002142: 07,7264 34516 CAF ONE
020192,002143: 07,7265 50076 TS WDCNT
020193,002144: 07,7266 40020 CS CYR
020194,002145: 07,7267 40020 CS CYR
020195,002146: 07,7270 30020 XCH CYR
020196,002147: 07,7271 50022 TS CYL
020197,002148: 07,7272 07241 TC WDAGAIN +5
020198,002149:
020199,002150:
020200,002151:
020201,002152: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
020202,002153: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
020203,002154: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
020204,002155: # DSPTAB ENTRY INTO DSREL.
020205,002156:
020206,002157: 06,7341 SETLOC END2DEC +1
020207,002158:
020208,002159: 06,7341 30001 DSPIN XCH Q
020209,002160: 06,7342 50112 TS DSEXIT
020210,002161: 06,7343 33220 CAF LOW5
020211,002162: 06,7344 70104 MASK COUNT
020212,002163: 06,7345 50021 TS SR
020213,002164: 06,7346 30021 XCH SR
020214,002165: 06,7347 50102 TS DSREL
020215,002166: 06,7350 34516 CAF BIT1
020216,002167: 06,7351 70104 MASK COUNT
020217,002168: 06,7352 10000 CCS A
020218,002169: 06,7353 07355 TC +2 # LEFT IF COUNT IS ODD
020219,002170: 06,7354 07365 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
020220,002171: 06,7355 30111 XCH CODE
020221,002172: 06,7356 03212 TC SLEFT5 # DOES NOT USE CYL
020222,002173: 06,7357 50111 TS CODE
020223,002174: 06,7360 34501 CAF BIT14
020224,002175: 06,7361 70104 MASK COUNT
020225,002176: 06,7362 10000 CCS A
![]() |
Page 527 |
020227,002178: 06,7363 35503 CAF TWO # BIT14 = 1, BLANK SIGN
020228,002179: 06,7364 64516 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
020229,002180: 06,7365 50104 TS COUNT # +0 INTO COUNT FOR RIGHT
020230,002181: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
020231,002182: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
020232,002183: 06,7366 20017 DSPIN1 INHINT
020233,002184: 06,7367 20102 INDEX DSREL
020234,002185: 06,7370 10710 CCS DSPTAB
020235,002186: 06,7371 07373 TC +2 # IF +
020236,002187: 06,7372 03062 TC CCSHOLE
020237,002188: 06,7373 64516 AD ONE # IF-
020238,002189: 06,7374 50103 TS DSMAG
020239,002190: 06,7375 20104 INDEX COUNT
020240,002191: 06,7376 77422 MASK DSMSK
020241,002192: 06,7377 25777 EXTEND
020242,002193: 06,7400 60111 SU CODE
020243,002194: 06,7401 10000 CCS A
020244,002195: 06,7402 07406 TC DFRNT # IF+
020245,002196: 06,7403 03062 TC CCSHOLE
020246,002197: 06,7404 07406 TC DFRNT # IF-
020247,002198: 06,7405 07420 TC DSLV # IF -0
020248,002199: 06,7406 20104 DFRNT INDEX COUNT
020249,002200: 06,7407 47422 CS DSMSK # MASK WITH 77740,76037, OR 75777
020250,002201: 06,7410 70103 MASK DSMAG
020251,002202: 06,7411 60111 AD CODE
020252,002203: 06,7412 40000 CS A
020253,002204: 06,7413 20102 INDEX DSREL
020254,002205: 06,7414 30710 XCH DSPTAB
020255,002206: 06,7415 10000 CCS A
020256,002207: 06,7416 06640 TC INCNOUT
020257,002208: 06,7417 03062 TC CCSHOLE
020258,002209: 06,7420 20016 DSLV RELINT
020259,002210: 06,7421 00112 TC DSEXIT
020260,002211:
020261,002212: 06,7422 00037 DSMSK OCT 37
020262,002213: 06,7423 01740 OCT 1740
020263,002214: 06,7424 02000 OCT 2000
020264,002215: 06,7425 03740 OCT 3740
020265,002216:
020266,002217:
020267,002218:
020268,002219: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
020269,002220: # BIT11 OF CODE.
020270,002221:
020271,002222: 06,7426 50102 11DSPIN TS DSREL
020272,002223: 06,7427 35503 CAF TWO
020273,002224: 06,7430 50104 TS COUNT
020274,002225: 06,7431 30001 XCH Q
020275,002226: 06,7432 50112 TS DSEXIT
020276,002227: 06,7433 07366 TC DSPIN1
![]() |
Page 528 |
020278,002229:
020279,002230: 06,7434 07341 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
020280,002231: 06,7435 37437 CAF +2
020281,002232: 06,7436 05723 TC BANKJUMP
020282,002233: 06,7437 17254 ENDSPOCT CADR OCTBACK
020283,002234:
020284,002235:
020285,002236:
020286,002237: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
020287,002238: # ABORT WITH OCT 01501.
020288,002239: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
020289,002240: # DO TC ENTRET.
020290,002241:
020291,002242: 06,7440 33147 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
020292,002243: 06,7441 50065 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
020293,002244:
020294,002245: 06,7442 03233 DSPALARM TC FALTON # TURN ON CHECK FAIL LIGHT.
020295,002246: 06,7443 47447 CS NVSBENDL
020296,002247: 06,7444 60065 AD ENTEXIT
020297,002248: 06,7445 10000 CCS A
020298,002249: 06,7446 00065 TC ENTEXIT # NOT NVSUB INITIATED.
020299,002250: 06,7447 03125 NVSBENDL TC NVSUBEND
020300,002251: 06,7450 00065 TC ENTEXIT # NOT NVSUB INITIATED.
020301,002252: 06,7451 03044 TC ABORT # NVSUB INITIATED.
020302,002253: 06,7452 01501 OCT 01501
020303,002254:
020304,002255:
020305,002256:
020306,002257: 06,7453 34504 FLASHON1 CAF BIT11 # GETS HERE THRU FLASHON(STANDARD LEAD IN)
020307,002258: 06,7454 50111 TS CODE
020308,002259: 06,7455 37464 CAF FLASHLOC
020309,002260: 06,7456 50102 TS DSREL
020310,002261: 06,7457 35503 CAF TWO
020311,002262: 06,7460 50104 TS COUNT
020312,002263: 06,7461 07366 TC DSPIN1
020313,002264: 06,7462 35501 FLASHOF1 CAF ZERO # GETS HERE THRU FLASHOFF(STANDARD LEAD IN
020314,002265: 06,7463 07454 TC FLASHON1 +1
020315,002266: 06,7464 00011 FLASHLOC OCT 11
020316,002267:
020317,002268:
020318,002269:
020319,002270: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
020320,002271: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
020321,002272: # MM LIGHTS.
020322,002273:
020323,002274: 07,7273 SETLOC DSP2BIT +10D
020324,002275:
020325,002276: 07,7273 07306 MMCHANG TC REQMM
020326,002277: 07,7274 35501 CAF ZERO
020327,002278: 07,7275 30603 XCH NOUNREG
020328,002279: 07,7276 50115 TS MPAC
![]() |
Page 529 |
020330,002281: 07,7277 33230 CAF ND1
020331,002282: 07,7300 50614 TS DSPCOUNT
020332,002283: 07,7301 05654 TC BANKCALL
020333,002284: 07,7302 14621 CADR 2BLANK
020334,002285: 07,7303 30115 XCH MPAC
020335,002286: 07,7304 05720 TC POSTJUMP
020336,002287: 07,7305 10002 CADR MODROUTB # GO THRU STANDARD LOC.
020337,002288:
020338,002289:
020339,002290:
020340,002291: 07,7306 40001 REQMM CS Q
020341,002292: 07,7307 50613 TS REQRET
020342,002293: 07,7310 33230 CAF ND1
020343,002294: 07,7311 50614 TS DSPCOUNT
020344,002295: 07,7312 35501 CAF ZERO
020345,002296: 07,7313 50603 TS NOUNREG
020346,002297: 07,7314 05654 TC BANKCALL
020347,002298: 07,7315 14621 CADR 2BLANK
020348,002299: 07,7316 05654 TC BANKCALL
020349,002300: 07,7317 14000 CADR FLASHON
020350,002301: 07,7320 00065 TC ENTEXIT
020351,002302:
020352,002303:
020353,002304:
020354,002305: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
020355,002306: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES PRIO PRELOADED INTO
020356,002307: # BITS 10-14 OF FIRST REGISTER OF TEMP AREA, WITH BIT1=0 FOR NOVAC, BIT1
020357,002308: # =1 FOR FINDVAC). THE VERB IS USED WITH NOUN=MACHINE ADDRESS TO BE
020358,002309: # SPECIFIED. CADR JOBADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
020359,002310:
020360,002311: 07,7321 33147 VBRQEXEC CAF ENDINST
020361,002312: 07,7322 50075 TS PROGREG +2
020362,002313: 07,7323 03323 TC RELDSP
020363,002314: 07,7324 34516 CAF BIT1
020364,002315: 07,7325 70616 MASK DSPTEM1 # ********
020365,002316: 07,7326 10000 CCS A
020366,002317: 07,7327 07340 TC SETVAC # IF BIT1 =1, FINDVAC
020367,002318: 07,7330 33223 CAF TCNOVAC # IF BIT1 =0, NOVAC
020368,002319: 07,7331 50073 REQEX1 TS PROGREG # TC NOVAC OR TC FINDVAC INTO PROGREG
020369,002320: 07,7332 30624 XCH NOUNADD
020370,002321: 07,7333 50074 TS PROGREG +1 # CADR JOBADDR INTO PROGREG +1
020371,002322: 07,7334 44516 CS BIT1
020372,002323: 07,7335 70616 MASK DSPTEM1 # *******
020373,002324: 07,7336 20017 INHINT
020374,002325: 07,7337 00073 TC PROGREG
020375,002326:
020376,002327: 07,7340 33226 SETVAC CAF TCFINDVC
020377,002328: 07,7341 07331 TC REQEX1
020378,002329:
020379,002330: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
![]() |
Page 530 |
020381,002332: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES DELAY PRELOADED IN FIRST
020382,002333: # REGISTER OF TEMP AREA. THE VERB IS USED WITH NOUN= MACHINE ADDRESS TO
020383,002334: # BE SPECIFIED. CADR TASKADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
020384,002335:
020385,002336: 07,7342 33147 VBRQWAIT CAF ENDINST
020386,002337: 07,7343 50075 TS PROGREG +2 # TC ENDOFJOB INTO PROGREG+2
020387,002338: 07,7344 03323 TC RELDSP
020388,002339: 07,7345 33224 CAF TCWAIT
020389,002340: 07,7346 50073 TS PROGREG # TC WAITLIST INTO PROGREG
020390,002341: 07,7347 30624 XCH NOUNADD
020391,002342: 07,7350 50074 TS PROGREG +1 # CADR TASKADDR INTO PROGREG+1
020392,002343: 07,7351 20017 INHINT
020393,002344: 07,7352 30616 XCH DSPTEM1 # DELTA T IN A
020394,002345: 07,7353 00073 ENDRQWT TC PROGREG
020395,002346:
020396,002347:
020397,002348:
020398,002349: 06,7465 SETLOC FLASHLOC +1
020399,002350: 06,7465 34516 VBPROC CAF ONE # PROCEED WITHOUT DATA
020400,002351: 06,7466 50632 TS LOADSTAT
020401,002352: 06,7467 03323 TC RELDSP
020402,002353: 06,7470 06003 TC FLASHOFF
020403,002354: 06,7471 07600 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
020404,002355:
020405,002356:
020406,002357:
020407,002358: 06,7472 03127 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
020408,002359: 06,7473 44516 CS ONE
020409,002360: 06,7474 07466 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
020410,002361:
020411,002362:
020412,002363: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
020413,002364:
020414,002365:
020415,002366: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
020416,002367: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
020417,002368:
020418,002369: 06,7475 35501 VBRELDSP CAF ZERO # RELEASE DISPLAY SYST
020419,002370: 06,7476 50111 TS CODE # TURN OFF UPACT LIGHT
020420,002371: 06,7477 35362 CAF SEVEN
020421,002372: 06,7500 07426 TC 11DSPIN
020422,002373: 06,7501 03323 TC RELDSP # SEARCHES LIST
020423,002374: 06,7502 02124 TC ENDOFJOB
020424,002375:
020425,002376:
020426,002377:
020427,002378: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
![]() |
Page 531 |
020429,002380:
020430,002381: 06,7503 34477 BUMP CAF FIVE # R2D5
020431,002382: 06,7504 50614 TS DSPCOUNT
020432,002383: 06,7505 50104 TS COUNT
020433,002384: 06,7506 34516 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
020434,002385: 06,7507 70104 MASK COUNT
020435,002386: 06,7510 30104 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
020436,002387: 06,7511 50021 TS SR # +1 INTO COUNT IF ODD (LEFT)
020437,002388: 06,7512 30021 XCH SR # DSREL IN A
020438,002389: 06,7513 20000 INDEX A
020439,002390: 06,7514 10710 CCS DSPTAB
020440,002391: 06,7515 07517 TC +2
020441,002392: 06,7516 03062 TC CCSHOLE
020442,002393: 06,7517 64516 AD ONE # DSMAG IN A
020443,002394: 06,7520 20104 INDEX COUNT
020444,002395: 06,7521 77422 MASK DSMSK
020445,002396: 06,7522 20104 INDEX COUNT
020446,002397: 06,7523 07524 TC +1
020447,002398: 06,7524 07526 TC +2 # EVEN(RIGHT) OK
020448,002399: 06,7525 03174 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
020449,002400: 06,7526 50111 TS CODE
020450,002401: 06,7527 44477 CS FIVE
020451,002402: 06,7530 60614 AD DSPCOUNT # DSPCOUNT-5
020452,002403: 06,7531 10000 CCS A # TO PREVENT -0
020453,002404: 06,7532 64516 AD ONE
020454,002405: 06,7533 07535 TC +2
020455,002406: 06,7534 03062 TC CCSHOLE
020456,002407: 06,7535 50104 TS COUNT
020457,002408: 06,7536 07341 TC DSPIN # CODE ALREADY IN CODE
020458,002409: 06,7537 40614 CS DSPCOUNT
020459,002410: 06,7540 63171 AD R1D1 # OCT 16
020460,002411: 06,7541 10000 CCS A
020461,002412: 06,7542 30614 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
020462,002413: 06,7543 64516 AD ONE # INCREMENT DSPCOUNT
020463,002414: 06,7544 07504 TC BUMP +1
020464,002415:
020465,002416: 06,7545 35501 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
020466,002417: 06,7546 50614 TS DSPCOUNT
020467,002418: 06,7547 67576 AD SWTAB +2 # OCT 3
020468,002419: 06,7550 20000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
020469,002420: 06,7551 10710 CCS DSPTAB # (-R2,+R2,-R1,+R1)
020470,002421: 06,7552 07554 TC +2
020471,002422: 06,7553 03062 TC CCSHOLE
020472,002423: 06,7554 64516 AD ONE
020473,002424: 06,7555 74504 MASK BIT11
020474,002425: 06,7556 50111 TS CODE
020475,002426: 06,7557 20614 INDEX DSPCOUNT
020476,002427: 06,7560 37574 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
020477,002428: 06,7561 07426 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
020478,002429: 06,7562 40614 CS DSPCOUNT
020479,002430: 06,7563 67576 AD SWTAB +2 # OCT 3
![]() |
Page 532 |
020481,002432: 06,7564 10000 CCS A
020482,002433: 06,7565 30614 XCH DSPCOUNT # +, DSPCOUNT L/ 3
020483,002434: 06,7566 64516 AD ONE # INCREMENT DSPCOUNT
020484,002435: 06,7567 07546 TC SWSGN +1
020485,002436: 06,7570 33171 CAF R1D1 # -0, DSPCOUNT = 3
020486,002437: 06,7571 50614 TS DSPCOUNT
020487,002438: 06,7572 06554 TC 5BLANK # BLANKS R1
020488,002439: 06,7573 00065 TC ENTEXIT
020489,002440:
020490,002441: 06,7574 00000 SWTAB OCT 0 # -R3
020491,002442: 06,7575 00001 OCT 1 # +R3
020492,002443: 06,7576 00003 OCT 3 # -R2
020493,002444: 06,7577 00004 OCT 4 # +R2
020494,002445:
020495,002446:
020496,002447:
020497,002448: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
020498,002449: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
020499,002450: # INTO A. V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
020500,002451:
020501,002452: # NVSUB CAN BE USED WITH MACH ADDR TO BE SPEC BY PLACING THE ADDRESS IN
020502,002453: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
020503,002454:
020504,002455: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
020505,002456: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
020506,002457: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
020507,002458: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
020508,002459: # FURTHER ACTION).
020509,002460:
020510,002461: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
020511,002462: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
020512,002463: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
020513,002464: # ALARM CONDITION BEFORE RETURN TO CALLER.
020514,002465:
020515,002466: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
020516,002467: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
020517,002468: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
020518,002469: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
020519,002470: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
020520,002471: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
020521,002472: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
020522,002473: # MONITOR SET UP.
020523,002474:
020524,002475: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
020525,002476:
020526,002477: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
020527,002478: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
020528,002479:
020529,002480: # NVSUB IN F/F PLACES 2 + CALLING CADR INTO NVSBCADR, TC NVSUBEND INTO
020530,002481: # ENTRET. IT WILL HANDLE A CALL FROM F/F OK, BUT WILL NOT RESTORE BANKREG
![]() |
Page 533 |
020532,002483: # TO ITS ORIGINAL CONTENTS.
020533,002484:
020534,002485: 3100 SETLOC MIDSIX +1
020535,002486: 3100 50110 NVSUB TS NVTEMP # IN FIXED FIXED
020536,002487: 3101 34513 CAF BIT4
020537,002488: 3102 70645 MASK DSPLOCK # BIT4 OF STATE
020538,002489: 3103 10000 CCS A
020539,002490: 3104 00001 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
020540,002491: 3105 30001 XCH Q # DSP SYST AVAILABLE
020541,002492: 3106 64516 AD ONE
020542,002493: 3107 50071 TS TEMQS # 2+ CALLING CADR INTO TEMQS
020543,002494: 3110 03127 TC KILMONON # TURN ON KILL MONITOR BIT
020544,002495: 3111 33120 NVSUBCOM CAF NVSUBANK
020545,002496: 3112 30015 XCH BANKREG
020546,002497: 3113 50072 TS BANKTEM
020547,002498: 3114 05706 TC MAKECADR
020548,002499: 3115 30062 XCH ADDRWD
020549,002500: 3116 50631 TS NVSBCADR
020550,002501: 3117 06000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
020551,002502: 3120 17354 NVSUBANK CADR NVSUB1 # BANK NUMB OF NVSUB1
020552,002503:
020553,002504: 3121 30001 NVSUBMON XCH Q # MONDO COMES HERE
020554,002505: 3122 64516 AD ONE
020555,002506: 3123 50071 TS TEMQS
020556,002507: 3124 03111 TC NVSUBCOM
020557,002508:
020558,002509:
020559,002510:
020560,002511: 3125 30631 NVSUBEND XCH NVSBCADR
020561,002512: 3126 05662 TC SWCALL
020562,002513:
020563,002514:
020564,002515:
020565,002516: 07,7354 SETLOC ENDRQWT +1
020566,002517: 07,7354 37373 NVSUB1 CAF ENTSET # IN BANK
020567,002518: 07,7355 50065 TS ENTRET # SET RETURN TO NVSUBEND
020568,002519: 07,7356 37421 CAF LOW6
020569,002520: 07,7357 70110 MASK NVTEMP
020570,002521: 07,7360 50115 TS MPAC # TEMP STORAGE
020571,002522: 07,7361 37422 CAF MID6
020572,002523: 07,7362 70110 MASK NVTEMP
020573,002524: 07,7363 03174 TC RIGHT5
020574,002525: 07,7364 50020 TS CYR
020575,002526: 07,7365 30020 XCH CYR
020576,002527: 07,7366 50116 TS MPAC +1 # TEMP STORAGE
020577,002528: 07,7367 10115 CCS MPAC # TEST NOUN
020578,002529: 07,7370 07374 TC +4 # IF NOUN NOT +0, GO ON
020579,002530: 07,7371 30116 XCH MPAC +1
020580,002531: 07,7372 06345 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB . THEN RETURN
![]() |
Page 534 |
020582,002533: 07,7373 03125 ENTSET TC NVSUBEND
020583,002534: 07,7374 10116 CCS MPAC +1 # TEST VERB
020584,002535: 07,7375 07401 TC +4 # IF VERB NOT +0, GO ON
020585,002536: 07,7376 30115 XCH MPAC
020586,002537: 07,7377 06326 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN . THEN RETURN
020587,002538: 07,7400 03125 TC NVSUBEND
020588,002539: 07,7401 30116 XCH MPAC +1
020589,002540: 07,7402 06345 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
020590,002541: 07,7403 30115 XCH MPAC # BOTH AND GO TO ENTPAS0
020591,002542: 07,7404 06326 TC UPDATNN -1
020592,002543: 07,7405 10054 CCS NNADTEM # NOUN TABLES WERE READ IN UPDATNN.
020593,002544: 07,7406 07411 TC +3 # NORMAL
020594,002545: 07,7407 06356 TC GODSPALM # NOUN NOT IN USE
020595,002546: 07,7410 07416 TC MATBSUB
020596,002547: 07,7411 35501 NVSUB2 CAF ZERO
020597,002548: 07,7412 50632 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
020598,002549: 07,7413 50633 TS CLPASS
020599,002550: 07,7414 50613 TS REQRET # SET REQRET FOR PASS 0.
020600,002551: 07,7415 06035 TC ENTPAS0
020601,002552:
020602,002553: 07,7416 30117 MATBSUB XCH MPAC +2 # NVSUB CALL LEFT ADDRES FOR MATBS IN
020603,002554: 07,7417 50624 TS NOUNADD # MPAC+2.
020604,002555: 07,7420 07411 TC NVSUB2
020605,002556:
020606,002557:
020607,002558:
020608,002559: 07,7421 00077 LOW6 OCT 77
020609,002560: 07,7422 07700 MID6 OCT 7700
020610,002561:
020611,002562: 3127 SETLOC NVSUBEND +2
020612,002563: 3127 44500 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
020613,002564: 3130 20017 INHINT # THIS IS THE KILL MONITOR BIT.
020614,002565: 3131 70626 MASK MONSAVE1
020615,002566: 3132 64500 AD BIT15
020616,002567: 3133 50626 TS MONSAVE1
020617,002568: 3134 20016 RELINT
020618,002569: 3135 00001 TC Q
020619,002570:
020620,002571:
020621,002572:
020622,002573: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
020623,002574: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
020624,002575: # -1 TERMINATE SET BY SPECIAL VERB
020625,002576: # -0 DATA IN SET BY END OF LOAD ROUTINE
020626,002577:
020627,002578: # L TC ENDIDLE (FIXED FIXED)
020628,002579: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
020629,002580: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
![]() |
Page 535 |
020631,002582: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
020632,002583: # L+1 FOR TERMINATE
020633,002584: # L+2 FOR PROCEED WITHOUT DATA
020634,002585: # L+3 FOR DATA IN
020635,002586: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
020636,002587:
020637,002588: 3136 30001 ENDIDLE XCH Q # NOVAC ROUTINES ENTER HERE
020638,002589: 3137 50071 TS TEMQS
020639,002590: 3140 30015 XCH BANKREG
020640,002591: 3141 50072 TS BANKTEM
020641,002592: 3142 05706 TC MAKECADR
020642,002593: 3143 03265 TC DSPLOCK1 # MAKE DSPLOCK BUSY (BIT 4 OF STATE)
020643,002594: 3144 30062 XCH ADDRWD
020644,002595: 3145 50627 TS CADRSTOR
020645,002596: 3146 02127 TC JOBSLEEP
020646,002597:
020647,002598:
020648,002599:
020649,002600: 3147 02124 ENDINST TC ENDOFJOB
020650,002601:
020651,002602: 3150 05777 BNKCON OCT 5777
020652,002603:
020653,002604:
020654,002605:
020655,002606: # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
020656,002607: # IT DOES ENDOFJOB.
020657,002608:
020658,002609: 3151 33554 JAMTERM CAF TWENTY8
020659,002610: 3152 50613 TS REQRET # LEAVE ENTER AT PASS 0
020660,002611: 3153 05654 TC BANKCALL
020661,002612: 3154 16345 CADR UPDATVB -1 # DISPLAY VB 34
020662,002613: 3155 05720 TC POSTJUMP
020663,002614: 3156 15472 CADR VBTERM
020664,002615:
020665,002616:
020666,002617:
020667,002618: # DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
020668,002619: # LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
020669,002620: # BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
020670,002621: # DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
020671,002622:
020672,002623: 3157 30001 DATAWAIT XCH Q
020673,002624: 3160 50071 TS TEMQS
020674,002625: 3161 10632 CCS LOADSTAT
020675,002626: 3162 03167 TC DATWAIT1 # PROCEED,RETURN TO L+2.
020676,002627: 3163 03140 TC ENDIDLE +2 # STILL WAITING. GO TO SLEEP.
020677,002628: 3164 00071 TC TEMQS # TERMINATE. RETURN TO L+1.
020678,002629: 3165 20071 INDEX TEMQS # DATA IN. RETURN TO L+3.
020679,002630: 3166 00002 TC 2
020680,002631: 3167 20071 DATWAIT1 INDEX TEMQS # RETURN TO L+2
![]() |
Page 536 |
020682,002633: 3170 00001 TC 1
020683,002634:
020684,002635: # DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
020685,002636: # INITIATED LOAD, IF ENDIDLE WAS NOT USED.
020686,002637:
020687,002638:
020688,002639:
020689,002640: 07,7423 SETLOC MID6 +1
020690,002641: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
020691,002642:
020692,002643: 07,7423 33231 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
020693,002644: 07,7424 30614 XCH DSPCOUNT # SAVE DSPCOUNT
020694,002645: 07,7425 50107 TS DSPMMTEM
020695,002646: 07,7426 40612 CS MODREG
020696,002647: 07,7427 40000 CS A
020697,002648: 07,7430 07261 TC DSP2BIT
020698,002649: 07,7431 30107 XCH DSPMMTEM # RESTORE DSPCOUNT
020699,002650: 07,7432 50614 TS DSPCOUNT
020700,002651: 07,7433 00063 ENDSPMM1 TC UPDATRET
020701,002652:
020702,002653:
020703,002654:
020704,002655: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
020705,002656: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
020706,002657: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
020707,002658:
020708,002659: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
020709,002660: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
020710,002661:
020711,002662: 06,7600 SETLOC SWTAB +4
020712,002663:
020713,002664: 06,7600 10627 RECALTST CCS CADRSTOR
020714,002665: 06,7601 07606 TC RECAL1
020715,002666: 06,7602 02124 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
020716,002667: 06,7603 07606 TC RECAL1
020717,002668: 06,7604 50627 TS CADRSTOR # -0. CONCLUSION OF NVSUB INITIATED LOAD.
020718,002669: 06,7605 07624 TC RECAL3 # +0 INTO CADRSTOR, RELEASE DISPLAY,
020719,002670: # AND ENDOFJOB. NEEDED FOR DATAWAIT.
020720,002671: 06,7606 35501 RECAL1 CAF ZERO
020721,002672: 06,7607 30627 XCH CADRSTOR
020722,002673: 06,7610 20017 INHINT
020723,002674: 06,7611 02060 TC JOBWAKE
020724,002675: 06,7612 10632 CCS LOADSTAT
020725,002676: 06,7613 07630 TC DOPROC # + PROCEED WITHOUT DATA
020726,002677: 06,7614 02124 TC ENDOFJOB # PATHALOGICAL CASE EXIT
020727,002678: 06,7615 07626 TC DOTERM # - TERMINATE
020728,002679: 06,7616 45503 CS TWO
020729,002680: 06,7617 20601 RECAL2 INDEX LOCCTR
020730,002681: 06,7620 60120 AD LOC # LOC IS - FOR BASIC JOBS
020731,002682: 06,7621 20601 INDEX LOCCTR
![]() |
Page 537 |
020733,002684: 06,7622 50120 TS LOC
020734,002685: 06,7623 20016 RELINT
020735,002686: 06,7624 03356 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
020736,002687: 06,7625 02124 TC ENDOFJOB
020737,002688:
020738,002689: 06,7626 35501 DOTERM CAF ZERO
020739,002690: 06,7627 07617 TC RECAL2
020740,002691:
020741,002692: 06,7630 44516 DOPROC CS ONE
020742,002693: 06,7631 07617 TC RECAL2
020743,002694:
![]() |
Page 538 |
020745,002696:
020746,002697: # THE FOLLOWING REFERS TO THE NOUN TABLES
020747,002698:
020748,002699:
020749,002700:
020750,002701: 07,7431 SETLOC DSPMM1 +6
020751,002702:
020752,002703: # COMPONENT CODE NUMBER INTERPRETATION
020753,002704:
020754,002705: # 00000 1 COMPONENT
020755,002706: # 00001 2 COMPONENT (EACH S P)
020756,002707: # 00010 3 COMPONENT (EACH SP)
020757,002708:
020758,002709:
020759,002710:
020760,002711: # SF ROUTINE CODE NUMBER INTERPRETATION
020761,002712:
020762,002713: # 00000 OCTAL ONLY
020763,002714: # 00001 STRAIGHT FRACTIONAL
020764,002715: # 00010 DEGREES (XXX.XX)
020765,002716: # 00011 ARITHMETIC SF
020766,002717: # 00100 ARITH DP1 OUT(MULT BY 2/14 AT END) IN(STRAIGHT)
020767,002718: # 00101 ARITH DP2 OUT(STRAIGHT) IN(SL 7 AT END)
020768,002719: # 00110 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
020769,002720: # 00111 ARITH DP3 OUT ( SL 7 AT END) IN ( STRAIGHT)
020770,002721: # END OF SF ROUTINE CODE NUMBERS
020771,002722:
020772,002723:
020773,002724:
020774,002725: # SF CONSTANT CODE NUMBER INTERPRETATION
020775,002726:
020776,002727: # 00000 WHOLE
020777,002728: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
020778,002729: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
020779,002730: # 00010 DEGREES
020780,002731: # 00010 OPTICS DEGREES
020781,002732: # 00011 GYRO DEGREES(XX.XXX) USE ARITH DP1
020782,002733: # 00100 GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
020783,002734: # 00101 GYRO AXIS ACCEL. DRIFT
020784,002735: # .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
020785,002736: # 00110 PIPA BIAS X.XXXX CM/SEC SEC
020786,002737: # 00111 PIPA SCALE FACTOR ERROR
020787,002738: # XXXXX. PARTS/MILLION
020788,002739: # 01000 POSITION(XXXX.X KILOMETERS) USE ARITHDP3
020789,002740: # 01001 VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
020790,002741: # 01010 TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
020791,002742: # 01011 ELEVATION DEGREES(89.999MAX) USE ARITH
020792,002743: # 01100 VG FOR 501 (XXXX.X MET/SEC) USE ARITH
020793,002744: # END OF SF CONSTANT CODE NUMBERS
020794,002745:
![]() |
Page 539 |
020796,002747: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
020797,002748: # NOUN TABLES.
020798,002749: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
020799,002750: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
020800,002751: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
020801,002752:
![]() |
Page 540 |
020803,002754:
020804,002755: # THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
020805,002756: # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
020806,002757: # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY SWCALL.
020807,002758:
020808,002759:
020809,002760:
020810,002761: # LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
020811,002762: # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
020812,002763: # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
020813,002764: # IDADDTAB ENTRY. MIXBR IS SET FOR MIXED OR NORMAL NOUN.
020814,002765:
020815,002766: 05,7153 SETLOC ENDEXTVS
020816,002767: 05,7153 30001 LODNNTAB XCH Q
020817,002768: 05,7154 50060 TS IDAD3TEM # SAVE RETURN ADDRESS IN IDAD3TEM
020818,002769: 05,7155 20603 INDEX NOUNREG
020819,002770: 05,7156 37231 CAF NNADTAB
020820,002771: 05,7157 50054 TS NNADTEM
020821,002772: 05,7160 20603 INDEX NOUNREG
020822,002773: 05,7161 37331 CAF NNTYPTAB
020823,002774: 05,7162 50055 TS NNTYPTEM
020824,002775: 05,7163 40603 CS NOUNREG
020825,002776: 05,7164 67167 AD MIXCON
020826,002777: 05,7165 10000 CCS A
020827,002778: 05,7166 07210 TC LODNORM # NOUN L/ FIRST MIXED NOUN
020828,002779: 05,7167 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
020829,002780: 05,7170 07171 TC +1
020830,002781: 05,7171 35503 LODMIXNN CAF TWO # NOUN G/E FIRST MIXED NOUN
020831,002782: 05,7172 50107 TS MIXBR
020832,002783: 05,7173 34606 CAF LOW10
020833,002784: 05,7174 70054 MASK NNADTEM
020834,002785: 05,7175 50001 TS Q # IDADDREL INTO Q
020835,002786: 05,7176 20000 INDEX A
020836,002787: 05,7177 37515 CAF IDADDTAB
020837,002788: 05,7200 50056 TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY.
020838,002789: 05,7201 20001 INDEX Q
020839,002790: 05,7202 37516 CAF IDADDTAB +1
020840,002791: 05,7203 50057 TS IDAD2TEM # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY.
020841,002792: 05,7204 20001 INDEX Q
020842,002793: 05,7205 37517 CAF IDADDTAB +2 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
020843,002794: 05,7206 30060 LODNLV XCH IDAD3TEM # PUT RETURN ADDESS INTO A.
020844,002795: 05,7207 00000 TC A
020845,002796:
020846,002797: 05,7210 34516 LODNORM CAF ONE
020847,002798: 05,7211 50107 TS MIXBR
020848,002799: 05,7212 07206 TC LODNLV
020849,002800:
020850,002801:
020851,002802:
020852,002803: # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
![]() |
Page 541 |
020854,002805:
020855,002806: 05,7213 20111 GTSFOUT INDEX SFTEMP2 # SF CONUM ARRIVES IN SFTEMP2.
020856,002807: 05,7214 37463 CAF SFOUTAB1
020857,002808: 05,7215 50110 TS SFTEMP1
020858,002809: 05,7216 20111 INDEX SFTEMP2
020859,002810: 05,7217 37500 CAF SFOUTAB2
020860,002811: 05,7220 50111 TS SFTEMP2
020861,002812: 05,7221 00001 TC Q
020862,002813:
020863,002814:
020864,002815:
020865,002816: # GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
020866,002817:
020867,002818: 05,7222 20111 GTSFIN INDEX SFTEMP2 # SF CONUM ARRIVES IN SFTEMP2.
020868,002819: 05,7223 37431 CAF SFINTAB1
020869,002820: 05,7224 50110 TS SFTEMP1
020870,002821: 05,7225 20111 INDEX SFTEMP2
020871,002822: 05,7226 37446 CAF SFINTAB2
020872,002823: 05,7227 50111 TS SFTEMP2
020873,002824: 05,7230 00001 TC Q
020874,002825:
020875,002826:
020876,002827:
020877,002828: # NN NORMAL NOUNS
020878,002829: 05,7231 00000 NNADTAB OCT 00000 # 00 NOT IN USE
020879,002830: 05,7232 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
020880,002831: 05,7233 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
020881,002832: 05,7234 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
020882,002833: 05,7235 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
020883,002834: 05,7236 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
020884,002835: 05,7237 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
020885,002836: 05,7240 40000 OCT 40000 # 07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
020886,002837: 05,7241 00000 OCT 00000 # 10 SPARE
020887,002838: 05,7242 00000 OCT 00000 # 11 SPARE
020888,002839: 05,7243 00000 OCT 00000 # 12 SPARE
020889,002840: 05,7244 00000 OCT 00000 # 13 SPARE
020890,002841: 05,7245 00000 OCT 00000 # 14 SPARE
020891,002842: 05,7246 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
020892,002843: 05,7247 00035 OCT 00035 # 16 TIME SECONDS
020893,002844: 05,7250 00035 OCT 00035 # 17 TIME HOURS
020894,002845: 05,7251 00047 ADRES CDUX # 20 ICDU
020895,002846: 05,7252 00044 ADRES PIPAX # 21 PIPAS
020896,002847: 05,7253 00700 ADRES THETAD # 22 NEW ANGLES I
020897,002848: 05,7254 00621 ADRES DSPTEM2 # 23 DELTA ANGLES I
020898,002849: 05,7255 00616 ADRES DSPTEM1 # 24 DELTA TIME (SEC)
020899,002850: 05,7256 00616 ADRES DSPTEM1 # 25 CHECKLIST
020900,002851: 05,7257 00616 ADRES DSPTEM1 # 26 PRIO/DELAY
020901,002852: 05,7260 01762 ADRES SMODE # 27 SELF TEST ON/OFF SWITCH
020902,002853: 05,7261 00616 ADRES DSPTEM1 # 30 STAR NUMBERS
020903,002854: 05,7262 01763 ADRES FAILREG # 31 FAILREG, SFAIL, ERCOUNT
020904,002855: 05,7263 01266 ADRES TDEC # 32 DECISION TIME (MIDCOURSE)
![]() |
Page 542 |
020906,002857: 05,7264 01146 ADRES TET # 33 EPHEMERIS TIME(MIDCOURSE)
020907,002858: 05,7265 01276 ADRES MEASQ # 34 MEASURED QUANTITY (MIDCOURSE)
020908,002859: 05,7266 01314 ADRES ROLL # 35 ROLL, PITCH, YAW
020909,002860: 05,7267 00616 ADRES LANDMARK # 36 LANDMARK DATA 1
020910,002861: 05,7270 00621 ADRES LANDMARK +3 # 37 LANDMARK DATA 2
020911,002862: 05,7271 00616 ADRES DSPTEM1 # 40 VG FOR 501
020912,002863: 05,7272 00000 OCT 00000 # 41 SPARE
020913,002864: 05,7273 00000 OCT 00000 # 42 SPARE
020914,002865: 05,7274 00000 OCT 00000 # 43 SPARE
020915,002866: 05,7275 00000 OCT 00000 # 44 SPARE
020916,002867: 05,7276 00000 OCT 00000 # 45 SPARE
020917,002868: 05,7277 00000 OCT 00000 # 46 SPARE
020918,002869: 05,7300 00000 OCT 00000 # 47 SPARE
020919,002870: 05,7301 00000 OCT 00000 # 50 SPARE
020920,002871: 05,7302 00000 OCT 00000 # 51 SPARE
020921,002872: 05,7303 00744 ADRES GBIASX # 52 GYRO BIAS DRIFT
020922,002873: 05,7304 00747 ADRES ADIAX # 53 GYRO INPUT AXIS ACCELERATION DRIFT
020923,002874: 05,7305 00752 ADRES ADSRAX # 54 GYRO SPIN AXIS ACCELERATION DRIFT
020924,002875:
020925,002876: # NN MIXED NOUNS
020926,002877: 05,7306 02000 OCT 02000 # 55 OCDU
020927,002878: 05,7307 04002 OCT 04002 # 56 UNCALLED MARK DATA (OCDU & TIME(SEC))
020928,002879: 05,7310 02005 OCT 02005 # 57 NEW ANGLES OCDU
020929,002880: 05,7311 04007 OCT 04007 # 60 IMU MODE STATUS
020930,002881: 05,7312 02012 OCT 02012 # 61 TARGET AZIMUTH AND ELEVATION
020931,002882: 05,7313 04062 OCT 04062 # 62 RE-ENTRY VARIABLES
020932,002883: 05,7314 02016 OCT 02016 # 63 OCDUX AND TIME(SEC)
020933,002884: 05,7315 02020 OCT 02020 # 64 OCDUY AND TIME(SEC)
020934,002885: 05,7316 02022 OCT 02022 # 65 SAMPLED TIME (HOURS AND SECONDS)
020935,002886: # (FETCHED IN INTERRUPT)
020936,002887: 05,7317 04024 OCT 04024 # 66 SYSTEM TEST RESULTS
020937,002888: 05,7320 04027 OCT 04027 # 67 DELTA GYRO ANGLES
020938,002889: 05,7321 04032 OCT 04032 # 70 PIPA BIAS
020939,002890: 05,7322 04035 OCT 04035 # 71 PIPA SCALE FACTOR ERROR
020940,002891: 05,7323 04040 OCT 04040 # 72 DELTA POSITION
020941,002892: 05,7324 04043 OCT 04043 # 73 DELTA VELOCITY
020942,002893: 05,7325 04046 OCT 04046 # 74 MEASUREMENT DATA (MIDCOURSE)
020943,002894: 05,7326 04051 OCT 04051 # 75 MEASUREMENT DEVIATIONS (MIDCOURSE)
020944,002895: 05,7327 04054 OCT 04054 # 76 POSITION VECTOR
020945,002896: 05,7330 04057 OCT 04057 # 77 VELOCITY VECTOR
020946,002897:
020947,002898:
020948,002899:
020949,002900: # NN NORMAL NOUNS
020950,002901: 05,7331 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
020951,002902: 05,7332 00040 OCT 00040 # 01 1COMP FRACTIONAL
020952,002903: 05,7333 00140 OCT 00140 # 02 1COMP WHOLE
020953,002904: 05,7334 00102 OCT 00102 # 03 1COMP DEGREES
020954,002905: 05,7335 00241 OCT 00241 # 04 1COMP HOURS
020955,002906: 05,7336 00200 OCT 00200 # 05 1COMP SECONDS
![]() |
Page 543 |
020957,002908: 05,7337 00203 OCT 00203 # 06 1COMP GYRO DEGREES
020958,002909: 05,7340 00302 OCT 00302 # 07 1COMP Y OPT DEGREES
020959,002910: 05,7341 00000 OCT 00000 # 10 SPARE
020960,002911: 05,7342 00000 OCT 00000 # 11 SPARE
020961,002912: 05,7343 00000 OCT 00000 # 12 SPARE
020962,002913: 05,7344 00000 OCT 00000 # 13 SPARE
020963,002914: 05,7345 00000 OCT 00000 # 14 SPARE
020964,002915: 05,7346 00000 OCT 00000 # 15 1COMP OCTAL ONLY
020965,002916: 05,7347 00200 OCT 00200 # 16 1COMP SECONDS
020966,002917: 05,7350 00241 OCT 00241 # 17 3COMP HOURS
020967,002918: 05,7351 04102 OCT 04102 # 20 3COMP DEGREES
020968,002919: 05,7352 04140 OCT 04140 # 21 3COMP WHOLE
020969,002920: 05,7353 04102 OCT 04102 # 22 3COMP DEGREES
020970,002921: 05,7354 04102 OCT 04102 # 23 3COMP DEGREES
020971,002922: 05,7355 00200 OCT 00200 # 24 1COMP SECONDS
020972,002923: 05,7356 00140 OCT 00140 # 25 1COMP WHOLE
020973,002924: 05,7357 00140 OCT 00140 # 26 1COMP WHOLE
020974,002925: 05,7360 00140 OCT 00140 # 27 1COMP WHOLE
020975,002926: 05,7361 04140 OCT 04140 # 30 3COMP WHOLE
020976,002927: 05,7362 04000 OCT 04000 # 31 3COMP OCTAL ONLY
020977,002928: 05,7363 00252 OCT 00252 # 32 3COMP TIME WEEKS
020978,002929: 05,7364 00252 OCT 00252 # 33 3COMP TIME WEEKS
020979,002930: 05,7365 00350 OCT 00350 # 34 3COMP POSITION
020980,002931: 05,7366 04102 OCT 04102 # 35 3COMP DEGREES
020981,002932: 05,7367 04000 OCT 04000 # 36 3COMP OCTAL ONLY
020982,002933: 05,7370 04000 OCT 04000 # 37 3COMP OCTAL ONLY
020983,002934: 05,7371 04154 OCT 04154 # 40 3COMP VG FOR 501
020984,002935: 05,7372 00000 OCT 00000 # 41 SPARE
020985,002936: 05,7373 00000 OCT 00000 # 42 SPARE
020986,002937: 05,7374 00000 OCT 00000 # 43 SPARE
020987,002938: 05,7375 00000 OCT 00000 # 44 SPARE
020988,002939: 05,7376 00000 OCT 00000 # 45 SPARE
020989,002940: 05,7377 00000 OCT 00000 # 46 SPARE
020990,002941: 05,7400 00000 OCT 00000 # 47 SPARE
020991,002942: 05,7401 00000 OCT 00000 # 50 SPARE
020992,002943: 05,7402 00000 OCT 00000 # 51 SPARE
020993,002944: 05,7403 04144 OCT 04144 # 52 3COMP GYRO BIAS DRIFT
020994,002945: 05,7404 04145 OCT 04145 # 53 3COMP GYRO AXIS ACCEL. DRIFT
020995,002946: 05,7405 04145 OCT 04145 # 54 3COMP GYRO AXIS ACCEL. DRIFT
020996,002947:
020997,002948: # NN MIXED NOUNS
020998,002949: 05,7406 00102 OCT 00102 # 55 2COMP DEGREES, Y OPT DEGREES
020999,002950: 05,7407 00102 OCT 00102 # 56 3COMP DEGREES, Y OPT DEGREES, SECS
021000,002951: 05,7410 00102 OCT 00102 # 57 2COMP DEGREES, Y OPT DEGREES
021001,002952: 05,7411 00000 OCT 00000 # 60 3COMP OCTAL ONLY
021002,002953: 05,7412 00542 OCT 00542 # 61 2COMP DEGREES, ELEVATION DEGREES
021003,002954: 05,7413 00000 OCT 00000 # 62 3COMP SECS, WHOLE, WHOLE
021004,002955: 05,7414 00002 OCT 00002 # 63 2COMP DEGREES, SECS
021005,002956: 05,7415 00002 OCT 00002 # 64 2COMP Y OPT DEGREES, SECS
021006,002957: 05,7416 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
![]() |
Page 544 |
021008,002959: 05,7417 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
021009,002960: 05,7420 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
021010,002961: 05,7421 14306 OCT 14306 # 70 3COMP PIPA BIAS FOR EACH
021011,002962: 05,7422 16347 OCT 16347 # 71 3COMP PIPA SCALE FACTOR ERR.FOR EACH
021012,002963: 05,7423 20410 OCT 20410 # 72 3COMP POSITION FOR EACH
021013,002964: 05,7424 22451 OCT 22451 # 73 3COMP VELOCITY FOR EACH
021014,002965: 05,7425 00412 OCT 00412 # 74 3COMP TIME WEEKS, POSITION, WHOLE
021015,002966: 05,7426 20450 OCT 20450 # 75 3COMP POSITION, VELOCITY, POSITION
021016,002967: 05,7427 20410 OCT 20410 # 76 3COMP POSITION FOR EACH
021017,002968: 05,7430 22451 OCT 22451 # 77 3COMP VELOCITY FOR EACH
021018,002969:
021019,002970:
021020,002971:
021021,002972: 05,7431 00006 SFINTAB1 OCT 00006 # WHOLE,TIME(SEC) HIGH PART
021022,002973: 05,7432 00253 OCT 00253 # TIME HOURS(=1.3-, PT. BETWEEN BITS 7-8)
021023,002974: 05,7433 00000 OCT 0 # DEGREES
021024,002975: 05,7434 00021 OCT 00021 # GYRO DEGREES
021025,002976: 05,7435 00001 OCT 00001 # GYRO BIAS DRIFT
021026,002977: 05,7436 00011 OCT 00011 # GYRO AXIS ACCEL. DRIFT
021027,002978: 05,7437 00004 OCT 00004 # PIPA BIAS
021028,002979: 05,7440 00314 OCT 00314 # PIPA SCALE ERROR
021029,002980: 05,7441 23420 OCT 23420 # POSITION
021030,002981: 05,7442 00201 OCT 00201 # VELOCITY (POINT BETWEEN BITS 7-8)
021031,002982: 05,7443 01371 OCT 01371 # TIME WEEKS (POINT BETWEEN BITS 7-8)
021032,002983: 05,7444 00001 OCT 00001 # ELEVATION DEGREES
021033,002984: 05,7445 00003 OCT 00003 # VG FOR 501
021034,002985: # END OF SFINTAB1
021035,002986:
021036,002987:
021037,002988:
021038,002989: 05,7446 03240 SFINTAB2 OCT 03240 # WHOLE, TIME(SEC) LO PART
021039,002990: 05,7447 25124 OCT 25124 # TIME HOURS
021040,002991: 05,7450 00000 OCT 0 # DEGREES ( SFCON IN DEGINSF)
021041,002992: 05,7451 30707 OCT 30707 # GYRO DEGREES
021042,002993: 05,7452 02133 OCT 02133 # GYRO BIAS DRIFT
021043,002994: 05,7453 30322 OCT 30322 # GYRO AXIS ACCEL. DRIFT
021044,002995: 05,7454 14021 OCT 14021 # PIPA BIAS
021045,002996: 05,7455 31463 OCT 31463 # PIPA SCALE ERROR
021046,002997: 05,7456 00000 OCT 00000 # POSITION
021047,002998: 05,7457 30327 OCT 30327 # VELOCITY
021048,002999: 05,7460 34750 OCT 34750 # TIME WEEKS
021049,003000: 05,7461 03434 OCT 03434 # ELEVATION DEGREES
021050,003001: 05,7462 04000 OCT 04000 # VG FOR 501
021051,003002: # END OF SFINTAB2
021052,003003:
021053,003004:
021054,003005:
021055,003006: 05,7463 05174 SFOUTAB1 OCT 05174 # WHOLE, TIME(SEC) HIGH PART
021056,003007: 05,7464 27670 OCT 27670 # TIME HOURS
021057,003008: 05,7465 00000 OCT 0 # DEGREES
![]() |
Page 545 |
021059,003010: 05,7466 01631 OCT 01631 # GYRO DEGREES
021060,003011: 05,7467 35753 OCT 35753 # GYRO BIAS DRIFT
021061,003012: 05,7470 03216 OCT 03216 # GYRO AXIS ACCEL. DRIFT
021062,003013: 05,7471 07237 OCT 07237 # PIPA BIAS
021063,003014: 05,7472 00120 OCT 00120 # PIPA SCALE ERROR
021064,003015: 05,7473 00321 OCT 00321 # POSITION (POINT BETWEEN BITS 7-8)
021065,003016: 05,7474 37441 OCT 37441 # VELOCITY
021066,003017: 05,7475 05300 OCT 05300 # TIME WEEKS
021067,003018: 05,7476 34631 OCT 34631 # ELEVATION DEGREES
021068,003019: 05,7477 12172 OCT 12172 # VG FOR 501
021069,003020: # END OF SFOUTAB1
021070,003021:
021071,003022:
021072,003023:
021073,003024: 05,7500 13261 SFOUTAB2 OCT 13261 # WHOLE, TIME(SEC) LO PART
021074,003025: 05,7501 31357 OCT 31357 # TIME HOURS
021075,003026: 05,7502 00000 OCT 0 # DEGREES
021076,003027: 05,7503 23146 OCT 23146 # GYRO DEGREES
021077,003028: 05,7504 32323 OCT 32323 # GYRO BIAS DRIFT
021078,003029: 05,7505 06400 OCT 06400 # GYRO AXIS ACCEL. DRIFT
021079,003030: 05,7506 37776 OCT 37776 # PIPA BIAS
021080,003031: 05,7507 00000 OCT 00000 # PIPA SCALE ERROR
021081,003032: 05,7510 26706 OCT 26706 # POSITION
021082,003033: 05,7511 14247 OCT 14247 # VELOCITY
021083,003034: 05,7512 20305 OCT 20305 # TIME WEEKS
021084,003035: 05,7513 23146 OCT 23146 # ELEVATION DEGREES
021085,003036: 05,7514 34121 OCT 34121 # VG FOR 501
021086,003037: # END OF SFOUTAB2
021087,003038:
021088,003039:
021089,003040:
021090,003041: # MIXNOUN SF ROUT REG
021091,003042: 05,7515 04052 IDADDTAB CADR OPTX +04000 # 01 DEGREES 52
021092,003043: 05,7516 14053 CADR OPTY +14000 # 01 Y OPT DEGREES 53
021093,003044: 05,7517 04616 CADR DSPTEM1 +04000 # 02 DEGREES 627
021094,003045: 05,7520 14617 CADR DSPTEM1 +14001 # 02 Y OPT DEGREES 630
021095,003046: 05,7521 10620 CADR DSPTEM1 +10002 # 02 SEC 631
021096,003047: 05,7522 04704 CADR DESOPTX +04000 # 03 DEGREES 724
021097,003048: 05,7523 14705 CADR DESOPTX +14001 # 03 Y OPT DEGREES 725
021098,003049: 05,7524 00007 CADR IN3 # 04 OCTAL ONLY
021099,003050: 05,7525 00727 CADR WASKSET # 04 OCTAL ONLY
021100,003051: 05,7526 00726 CADR OLDERR # 04 OCTAL ONLY
021101,003052: 05,7527 04616 CADR DSPTEM1 +04000 # 05 DEGREES
021102,003053: 05,7530 06617 CADR DSPTEM1 +06001 # 05 ELEVATION DEGREES
021103,003054: 05,7531 00000 OCT 00000 # N 62 WAS 2COMP. CHANGED TO 3COMP. MOVED
021104,003055: 05,7532 00000 OCT 00000 # TO END OF IDADDTAB TO PRESERVE TABLE.
021105,003056: 05,7533 04052 CADR OPTX +04000 # 07 DEGREES 52
021106,003057: 05,7534 10035 CADR TIME2 +10000 # 07 SEC 35
021107,003058: 05,7535 14053 CADR OPTY +14000 # 10 Y OPT DEGREES 53
021108,003059: 05,7536 10035 CADR TIME2 +10000 # 10 SEC 35
![]() |
Page 546 |
021110,003061: 05,7537 12643 CADR SAMPTIME +12000 # 11 HOURS 655
021111,003062: 05,7540 10643 CADR SAMPTIME +10000 # 11 SECONDS 655
021112,003063: 05,7541 06621 CADR DSPTEM2 +06000 # 12 WHOLE 632
021113,003064: 05,7542 02622 CADR DSPTEM2 +02001 # 12 FRACTIONAL 633
021114,003065: 05,7543 06623 CADR DSPTEM2 +06002 # 12 WHOLE 634
021115,003066: 05,7544 11520 CADR OGC +10000 # 13 GYRO DEGREES
021116,003067: 05,7545 11522 CADR OGC +10002 # 13 GYRO DEGREES
021117,003068: 05,7546 11524 CADR OGC +10004 # 13 GYRO DEGREES
021118,003069: 05,7547 06736 CADR PBIASX +06000 # 14 PIPA BIAS
021119,003070: 05,7550 06740 CADR PBIASY +06000 # 14 PIPA BIAS
021120,003071: 05,7551 06742 CADR PBIASZ +06000 # 14 PIPA BIAS
021121,003072: 05,7552 06737 CADR PIPASCFX +06000 # 15 PIPA SCALE FACTOR ERROR
021122,003073: 05,7553 06741 CADR PIPASCFY +06000 # 15 PIPA SCALE FACTOR ERROR
021123,003074: 05,7554 06743 CADR PIPASCFZ +06000 # 15 PIPA SCALE FACTOR ERROR
021124,003075: 05,7555 17152 CADR DELR +16000 # 16 POSITION
021125,003076: 05,7556 17154 CADR DELR +16002 # 16 POSITION
021126,003077: 05,7557 17156 CADR DELR +16004 # 16 POSITION
021127,003078: 05,7560 13160 CADR DELVEL +12000 # 17 VELOCITY
021128,003079: 05,7561 13162 CADR DELVEL +12002 # 17 VELOCITY
021129,003080: 05,7562 13164 CADR DELVEL +12004 # 17 VELOCITY
021130,003081: 05,7563 13266 CADR TDEC +12000 # 20 TIME WEEKS
021131,003082: 05,7564 17276 CADR MEASQ +16000 # 20 POSITION
021132,003083: 05,7565 07300 CADR MEASMODE +06000 # 20 WHOLE
021133,003084: 05,7566 16616 CADR DSPTEM1 +16000 # 21 POSITION
021134,003085: 05,7567 12620 CADR DSPTEM1 +12002 # 21 VELOCITY
021135,003086: 05,7570 17276 CADR DELTAQ +16000 # 21 POSITION
021136,003087: 05,7571 16616 CADR DSPTEM1 +16000 # 22 POSITION
021137,003088: 05,7572 16620 CADR DSPTEM1 +16002 # 22 POSITION
021138,003089: 05,7573 16622 CADR DSPTEM1 +16004 # 22 POSITION
021139,003090: 05,7574 12616 CADR DSPTEM1 +12000 # 23 VELOCITY
021140,003091: 05,7575 12620 CADR DSPTEM1 +12002 # 23 VELOCITY
021141,003092: 05,7576 12622 CADR DSPTEM1 +12004 # 23 VELOCITY
021142,003093: 05,7577 10035 CADR TIME2 +10000 # 06 SEC
021143,003094: 05,7600 07617 CADR V +06000 # 06 WHOLE
021144,003095: 05,7601 07110 CADR THETAH +06000 # 06 WHOLE
021145,003096: 05,7602 00000 OCT 00000 # SPARE
021146,003097: 05,7603 00000 OCT 00000 # SPARE
021147,003098: 05,7604 00000 OCT 00000 # SPARE
021148,003099:
![]() |
Page 547 |
021150,003101:
021151,003102: # MISCELLANEOUS SERVICE ROUTINES
021152,003103:
021153,003104:
021154,003105:
021155,003106: 3171 SETLOC DATWAIT1 +2
021156,003107:
021157,003108: 3171 00016 R1D1 OCT 16
021158,003109: 3172 00011 R2D1 OCT 11
021159,003110: 3173 00004 R3D1 OCT 4
021160,003111:
021161,003112: 3174 50020 RIGHT5 TS CYR
021162,003113: 3175 40020 CS CYR
021163,003114: 3176 40020 CS CYR
021164,003115: 3177 40020 CS CYR
021165,003116: 3200 40020 CS CYR
021166,003117: 3201 30020 XCH CYR
021167,003118: 3202 00001 TC Q
021168,003119:
021169,003120: 3203 50022 LEFT5 TS CYL
021170,003121: 3204 40022 CS CYL
021171,003122: 3205 40022 CS CYL
021172,003123: 3206 40022 CS CYL
021173,003124: 3207 40022 CS CYL
021174,003125: 3210 30022 XCH CYL
021175,003126: 3211 00001 TC Q
021176,003127:
021177,003128: 3212 60000 SLEFT5 DOUBLE
021178,003129: 3213 60000 DOUBLE
021179,003130: 3214 60000 DOUBLE
021180,003131: 3215 60000 DOUBLE
021181,003132: 3216 60000 DOUBLE
021182,003133: 3217 00001 TC Q
021183,003134:
021184,003135:
021185,003136:
021186,003137: 3220 00037 LOW5 OCT 37
021187,003138: 3221 01740 MID5 OCT 1740
021188,003139: 3222 76000 OCT 76000 # MUST STAY HERE.
021189,003140:
021190,003141: 3223 02052 TCNOVAC TC NOVAC
021191,003142: 3224 02173 TCWAIT TC WAITLIST
021192,003143: 3225 02256 TCTSKOVR TC TASKOVER
021193,003144: 3226 02046 TCFINDVC TC FINDVAC
021194,003145:
021195,003146:
021196,003147:
021197,003148: 3227 00023 VD1 OCT 23
021198,003149: 3230 00021 ND1 OCT 21
021199,003150: 3231 00025 MD1 OCT 25
021200,003151:
![]() |
Page 548 |
021202,003153:
021203,003154: 3232 00012 BINCON DEC 10 B-14
021204,003155:
021205,003156: 3233 3232 TEN EQUALS BINCON
021206,003157:
021207,003158: 3233 20017 FALTON INHINT # TURN PROGRAM CHECK LIGHT ON
021208,003159: 3234 44512 CS BIT5 # OUT1,BIT5(ALSO KNOWN AS ILLEGAL ORDER)
021209,003160: 3235 70011 MASK OUT1
021210,003161: 3236 64512 AD BIT5
021211,003162: 3237 50011 TS OUT1
021212,003163: 3240 20016 RELINT
021213,003164: 3241 00001 TC Q
021214,003165:
021215,003166: 3242 20017 FALTOF INHINT # TURN PROGRAM CHECK LIGHT OFF
021216,003167: 3243 44512 CS BIT5
021217,003168: 3244 70011 MASK OUT1
021218,003169: 3245 50011 TS OUT1
021219,003170: 3246 20016 RELINT
021220,003171: 3247 00001 TC Q
021221,003172:
021222,003173: 3250 20017 RELDSPON INHINT # TURN ON RELEASE DISPLAY SYST LIGHT
021223,003174: 3251 44514 CS BIT3
021224,003175: 3252 70011 MASK OUT1
021225,003176: 3253 64514 AD BIT3
021226,003177: 3254 50011 TS OUT1
021227,003178: 3255 20016 RELINT
021228,003179: 3256 00001 TC Q
021229,003180:
021230,003181: 3257 44513 DSPLOCK0 CS BIT4
021231,003182: 3260 20017 INHINT # DSPLOCK = BIT4 OF STATE
021232,003183: 3261 70645 MASK DSPLOCK
021233,003184: 3262 50645 TS DSPLOCK
021234,003185: 3263 20016 RELINT
021235,003186: 3264 00001 TC Q
021236,003187:
021237,003188: 3265 44513 DSPLOCK1 CS BIT4
021238,003189: 3266 20017 INHINT # DSPLOCK = BIT4 OF STATE
021239,003190: 3267 70645 MASK DSPLOCK
021240,003191: 3270 64513 AD BIT4
021241,003192: 3271 30645 XCH DSPLOCK # LEAVES OLD C(DSPLOCK) IN A.
021242,003193: 3272 20016 RELINT
021243,003194: 3273 00001 TC Q
021244,003195:
021245,003196: 3274 34513 TSTDSPLK CAF BIT4 # SIMULATES CCS DSPLOCK
021246,003197: 3275 70645 MASK DSPLOCK
021247,003198: 3276 10000 CCS A
021248,003199: 3277 00001 TC Q # DSPLOCK = 1, RETURN TO L+1
021249,003200: 3300 20001 INDEX Q
021250,003201: 3301 00001 TC 1 # DSPLOCK = 0, RETURN TO L+1
021251,003202:
![]() |
Page 549 |
021253,003204:
021254,003205: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
021255,003206: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
021256,003207: # MAKE IT BUSY TO OTHER INTERNAL USERS.
021257,003208:
021258,003209: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
021259,003210: # SYSTEM FOR OTHER INTERNAL USERS.
021260,003211:
021261,003212: # THE CALLING SEQUENCES ARE
021262,003213: # L TC GRABDSP
021263,003214: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
021264,003215: # L+2 RETURN HERE MEANS YOU HAVE IT
021265,003216:
021266,003217: # L TC NVSUB
021267,003218: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
021268,003219: # L+2 RETURN HERE AFTER EXECUTION
021269,003220:
021270,003221:
021271,003222:
021272,003223: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
021273,003224: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
021274,003225: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
021275,003226:
021276,003227: # THE CALLING SEQUENCE IS
021277,003228: # CAF WAKECADR
021278,003229: # TC GRABUSY
021279,003230:
021280,003231: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
021281,003232: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT. YOUR CADR IS PUT
021282,003233: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
021283,003234:
021284,003235: # THE CALLING SEQUENCE IS
021285,003236: # CAF WAKECADR
021286,003237: # TC NVSUBUSY
021287,003238:
021288,003239:
021289,003240:
021290,003241: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
021291,003242: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
021292,003243: # DISPLAYS WAITING WILL BE VISIBLE.
021293,003244:
021294,003245:
021295,003246:
021296,003247: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
021297,003248: # AND DISPLAY SYSTEM.
021298,003249: # +0 FREE
021299,003250: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
021300,003251: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
021301,003252:
![]() |
Page 550 |
021303,003254:
021304,003255: 3302 10630 GRABDSP CCS GRABLOCK
021305,003256: 3303 00001 TC Q # GRABBED. RETURN TO L+1
021306,003257: 3304 34516 CAF ONE # NOT GRABBED. SET TO +1
021307,003258: 3305 50630 TS GRABLOCK # AND RETURN TO L+2
021308,003259: 3306 20001 INDEX Q
021309,003260: 3307 00001 TC 1
021310,003261:
021311,003262:
021312,003263:
021313,003264: 3310 34606 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN BANKS
021314,003265: 3311 70001 MASK Q # DESIRING THE CADR OF 1 + (LOC FROM WHICH
021315,003266: 3312 60015 AD BANKREG # TC PREGBSY WAS DONE) TO BE ENTERED.
021316,003267: 3313 05720 GRABUSY TC POSTJUMP
021317,003268: 3314 16001 CADR GRABUSYB
021318,003269: 07,7434 SETLOC ENDSPMM1 +1
021319,003270:
021320,003271: 07,7434 50114 GRABUSY1 TS CADRTEM
021321,003272: 07,7435 10630 CCS GRABLOCK
021322,003273: 07,7436 07441 TC +3 # STILL GRABBED
021323,003274: 07,7437 30114 XCH CADRTEM # NOT GRABBED SO DO DIRECT CALL
021324,003275: 07,7440 05723 TC BANKJUMP
021325,003276: 07,7441 35503 CAF TWO
021326,003277: 07,7442 50113 TS LSTPTR
021327,003278: 07,7443 20113 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
021328,003279: 07,7444 10634 CCS DSPLIST # FROM BOTTOM.
021329,003280: 07,7445 07447 TC +2
021330,003281: 07,7446 07452 TC PUTINLST # SPACE FOUND
021331,003282: 07,7447 10113 CCS LSTPTR # DECREMENT POINTER
021332,003283: 07,7450 07442 TC -6
021333,003284: 07,7451 07526 TC LSTFULL
021334,003285: 07,7452 30114 PUTINLST XCH CADRTEM
021335,003286: 07,7453 20113 INDEX LSTPTR
021336,003287: 07,7454 50634 TS DSPLIST
021337,003288: 07,7455 02127 TC JOBSLEEP
021338,003289:
021339,003290:
021340,003291:
021341,003292: 3315 SETLOC GRABUSY +2
021342,003293: 3315 43322 PRENVBSY CS 6K+3 # SPECIAL ENTRANCE FOR ROUTINES IN BANKS
021343,003294: 3316 60001 AD Q # DESIRING THE CADR OF (LOC FROM WHICH THE
021344,003295: 3317 60015 AD BANKREG # TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
021345,003296: 3320 05720 NVSUBUSY TC POSTJUMP
021346,003297: 3321 16002 CADR NVSUBSYB
021347,003298: 3322 06003 6K+3 OCT 6003 # TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
021348,003299:
021349,003300: 07,7456 SETLOC PUTINLST +4
021350,003301: 07,7456 50114 NVSUBSY1 TS CADRTEM
021351,003302: 07,7457 03274 TC TSTDSPLK # TEST IF REALLY LOCKED OUT
021352,003303: 07,7460 07463 TC +3 # STILL BUSY
021353,003304: 07,7461 30114 XCH CADRTEM # DSPLOCK = +0 SO RETURN DIRECTLY
![]() |
Page 551 |
021355,003306: 07,7462 05723 TC BANKJUMP
021356,003307: 07,7463 35503 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
021357,003308: 07,7464 50630 TS GRABLOCK
021358,003309: 07,7465 30114 XCH CADRTEM
021359,003310: 07,7466 30636 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
021360,003311: 07,7467 30635 XCH DSPLIST +1 # (BOTTOM)
021361,003312: 07,7470 30634 XCH DSPLIST
021362,003313: 07,7471 10000 CCS A
021363,003314: 07,7472 07526 TC LSTFULL
021364,003315: 07,7473 07475 TC +2
021365,003316: 07,7474 07526 TC LSTFULL
021366,003317: 07,7475 03250 TC RELDSPON
021367,003318: 07,7476 40636 CS DSPLIST +2
021368,003319: 07,7477 40000 COM
021369,003320: 07,7500 02127 ENDNVBSY TC JOBSLEEP
021370,003321:
021371,003322: 3323 SETLOC NVSUBUSY +3
021372,003323:
021373,003324: 3323 30001 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
021374,003325: 3324 50113 TS RELRET # OFF, SEARCH DSPLIST
021375,003326: 3325 34335 CAF NEG1
021376,003327: 3326 60630 AD GRABLOCK
021377,003328: 3327 10000 CCS A # SEARCH LIST ONLY IF GRABLOCK = +2
021378,003329: 3330 03334 TC +4 # (SOMEONE USED NVSUBUSY)
021379,003330: 3331 03062 TC CCSHOLE
021380,003331: 3332 03351 TC RELDSP2
021381,003332: 3333 03351 TC RELDSP2
021382,003333: 3334 35501 CAF ZERO
021383,003334: 3335 30634 XCH DSPLIST
021384,003335: 3336 30635 XCH DSPLIST +1
021385,003336: 3337 30636 XCH DSPLIST +2
021386,003337: 3340 50114 TS CADRTEM
021387,003338: 3341 10000 CCS A
021388,003339: 3342 03344 TC +2
021389,003340: 3343 03351 TC RELDSP2 # LIST EMPTY
021390,003341: 3344 30114 XCH CADRTEM
021391,003342: 3345 20017 INHINT
021392,003343: 3346 02060 TC JOBWAKE
021393,003344: 3347 34516 CAF ONE
021394,003345: 3350 50630 TS GRABLOCK
021395,003346: 3351 44514 RELDSP2 CS BIT3
021396,003347: 3352 70011 MASK OUT1
021397,003348: 3353 50011 TS OUT1
021398,003349: 3354 03257 TC DSPLOCK0 # 0 INTO DSPLOCK (BIT4 OF STATE)
021399,003350: # RELINT IS DONE IN DSPLOCK0.
021400,003351: 3355 00113 TC RELRET
021401,003352: 3356 30001 RELDSP1 XCH Q # SET DSPLOCK TO +0, RELDSP LIGHT OFF,
021402,003353: 3357 50113 TS RELRET # NO LIST SEARCH
021403,003354: 3360 20017 INHINT
021404,003355: 3361 03351 TC RELDSP2
021405,003356:
![]() |
Page 552 |
021407,003358:
021408,003359: 3362 30001 FREEDSP XCH Q
021409,003360: 3363 50113 TS FREERET
021410,003361: 3364 20017 INHINT
021411,003362: 3365 33372 CAF SHOTIME
021412,003363: 3366 02173 TC WAITLIST
021413,003364: 3367 17501 CADR FREEWAIT
021414,003365: 3370 20016 RELINT
021415,003366: 3371 00113 TC FREERET
021416,003367:
021417,003368: 3372 00257 SHOTIME DEC 175 B-14 # SET FOR 1.75 SECS FOR 501
021418,003369: 07,7501 SETLOC ENDNVBSY +1
021419,003370:
021420,003371: 07,7501 32164 FREEWAIT CAF PRIO31 # CALLED BY T3RUPT
021421,003372: 07,7502 02052 TC NOVAC
021422,003373: 07,7503 17505 CADR FREDSPDO
021423,003374: 07,7504 02256 TC TASKOVER
021424,003375:
021425,003376:
021426,003377:
021427,003378: 07,7505 35501 FREDSPDO CAF ZERO # CALLED BY EXECUTIVE
021428,003379: 07,7506 30634 XCH DSPLIST
021429,003380: 07,7507 30635 XCH DSPLIST +1
021430,003381: 07,7510 30636 XCH DSPLIST +2
021431,003382: 07,7511 50114 TS CADRTEM
021432,003383: 07,7512 10000 CCS A
021433,003384: 07,7513 07515 TC +2
021434,003385: 07,7514 07524 TC LSTEMPTY
021435,003386: 07,7515 30114 XCH CADRTEM
021436,003387: 07,7516 20017 INHINT
021437,003388: 07,7517 02060 TC JOBWAKE
021438,003389: 07,7520 20016 RELINT
021439,003390: 07,7521 34516 CAF ONE # SET FOR GRABBED CONDITION
021440,003391: 07,7522 50630 TS GRABLOCK
021441,003392: 07,7523 02124 TC ENDOFJOB
021442,003393: 07,7524 35501 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
021443,003394: 07,7525 07522 TC -3
021444,003395:
021445,003396:
021446,003397:
021447,003398: 07,7526 03044 LSTFULL TC ABORT
021448,003399: 07,7527 01206 OCT 01206 # PINBALL WAITING LINE FULL.
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc