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