Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
019927,000002: ## Copyright: Public domain.
019928,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
019929,000004: ## Purpose: A section of Corona revision 261.
019930,000005: ## It is part of the source code for the Apollo Guidance Computer
019931,000006: ## (AGC) for AS-202. No original listings of this software are
019932,000007: ## available; instead, this file was created via disassembly of
019933,000008: ## the core rope modules actually flown on the mission.
019934,000009: ## Assembler: yaYUL
019935,000010: ## Contact: Ron Burkey <info@sandroid.org>.
019936,000011: ## Website: www.ibiblio.org/apollo/index.html
019937,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
019938,000013: ## 2023-06-17 MAS Updated for Corona.
019939,000014:
019940,000015:
019941,000016: # KEYBOARD AND DISPLAY PROGRAM
019942,000017:
019943,000018:
019944,000019:
019945,000020: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
019946,000021:
019947,000022: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
019948,000023: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
019949,000024: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
019950,000025:
019951,000026: # HENRY 6, ACT 2, SCENE 4
019952,000027:
019953,000028:
019954,000029: # SUMMARY OF ERASABLE ASSIGNMENTS FOR KEYBOARD AND DISPLAY PROGRAM
019955,000030: # WHICH ARE ALL DEFINED ELSEWHERE.
019956,000031:
019957,000032:
019958,000033:
019959,000034: # SETLOC 627
019960,000035:
019961,000036: # BUFFER STORAGE AREAS FOR ROUTINES USING DISPLAY OR LOAD ROUTINES.
019962,000037: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
019963,000038: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
019964,000039:
019965,000040: # ERASABLE ASSIGNMENTS SPECIFIC TO PINBALL
019966,000041:
019967,000042:
019968,000043:
019969,000044: # ERASABLES RESERVED FOR EXECUTIVE ACTION
019970,000045:
019971,000046: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
019972,000047: # DECBRNCH ERASE +DEC, - DEC, OCT INDICATOR
019973,000048: # VERBREG ERASE VERB CODE
019974,000049: # NOUNREG ERASE NOUN CODE
019975,000050: # XREG ERASE R1 INPUT BUFFER
019976,000051: # YREG ERASE R2 INPUT BUFFER
019977,000052: # ZREG ERASE R3 INPUT BUFFER
019978,000053: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
019979,000054: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
019980,000055: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
019981,000056: # MODREG ERASE MODE CODE
019982,000057: # DSPLOCK = STATE (BIT4) KEYBOARD/SUBROUTINE CALL INTERLOCK
019983,000058: # REQRET ERASE RETURN REGISTER FOR LOAD
019984,000059: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
019985,000060: # CLPASS ERASE PASS INDICATOR CLEAR
019986,000061: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
019987,000062: # NOUNADD ERASE MACHINE ADDRESS FOR NOUN
019988,000063: # MONSAVE ERASE N/V CODE FOR MONITOR. ALSO ACTIVITY
019989,000064: # MONSAVE1 ERASE NOUNADD STORAGE FOR MONITOR WITH MATBS
019990,000065: # DSPTAB ERASE +13D 0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
019991,000066: # CADRSTOR ERASE ENDIDLE STORAGE
019992,000067: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
019993,000068: # NVSBCADR ERASE NVSUB STORAGE FOR CALLING CADR
019994,000069: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
019995,000070: # END OF ERASABLES RESERVED FOR EXECUTIVE ACTION
019996,000071:
019997,000072: # ERASABLES RESERVED FOR INTERRUPT ACTION
019998,000073:
019999,000074: # IN0WORD ERASE INPUT CODE STORAGE (KEYRUPT OR UPRUPT)
020000,000075: # DSPCNT ERASE COUNTER FOR DSPOUT
020001,000076:
020002,000077:
020003,000078:
020004,000079: # TEMPORARY ERASABLES FOR EXECUTIVE ACTION
020005,000080:
020006,000081: # DSEXIT = COMPON RETURN FOR DSPIN
020007,000082: # EXITEM = COMPON RETURN FOR SCALE FACTOR ROUTINE SELECT
020008,000083: # BLANKRET = COMPON RETURN FOR 2BLANK
020009,000084:
020010,000085: # WRDRET = TEM9 RETURN FOR 5BLANK
020011,000086: # WDRET = TEM9 RETURN FOR DSPWD
020012,000087: # DECRET = TEM9 RETURN FOR PUTCOM(DEC LOAD)
020013,000088: # 21/22REG = TEM9 TEMP FOR CHARIN
020014,000089:
020015,000090: # UPDATRET = ORDER RETURN FOR UPDATNN, UPDATVB
020016,000091: # CHAR = ORDER TEMP FOR CHARIN
020017,000092: # ERCNT = ORDER COUNTER FOR ERROR LIGHT RESET
020018,000093: # DECOUNT = ORDER COUNTER FOR SCALING AND DISPLAY (DEC)
020019,000094:
020020,000095: # SGNON = TEM11 TEMP FOR +,- ON
020021,000096: # NOUNTEM = TEM11 COUNTER FOR MIXNOUN FETCH
020022,000097: # DISTEM = TEM11 COUNTER FOR OCTAL DISPLAY VERBS
020023,000098: # DECTEM = TEM11 COUNTER FOR FETCH (DEC DISPLAY VERBS)
020024,000099: # DECTEM1 = TEM11 TEMP FOR NUM
020025,000100:
020026,000101: # SGNOFF = DVSW TEMP FOR +,- ON
020027,000102: # NVTEMP = DVSW TEMP FOR NVSUB
020028,000103: # SFTEMP1 = DVSW STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
020029,000104: # DECTEM2 = DVSW TEMP FOR NUM
020030,000105:
020031,000106: # CODE = BRANCHQ FOR DSPIN
020032,000107: # SFTEMP2 = BRANCHQ STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
020033,000108:
020034,000109: # ENTRET = MODE EXIT FROM ENTER
020035,000110:
020036,000111: # PROGREG = VBUF +2 FOR GO EXEC PROGRAM
020037,000112: # MIXTEMP = VBUF +2 FOR MIXNOUN DATA
020038,000113: # SIGNRET = VBUF +2 RETURN FOR +,- ON
020039,000114:
020040,000115:
020041,000116: # ALSO PROGREG+1, PROGREG+2. MIXTEMP+1, MIXTEMP+2.
020042,000117:
020043,000118: # WDCNT = VBUF +5 CHAR COUNTER FOR DSPWD
020044,000119: # INREL = VBUF +5 INPUT BUFFER SELECTOR ( X,Y,Z, REG )
020045,000120:
020046,000121: # MIXBR = TEM10 INDICATOR FOR MIXED OR NORMAL NOUN
020047,000122: # DSPMMTEM = TEM10 DSPCOUNT SAVE FOR DSPMM
020048,000123:
020049,000124: # MONTEM = NEWEQIND TEMP RETURN FOR MONITOR
020050,000125: # DSREL = TEM2 REL ADDRESS FOR DSPIN (TEM2 USED BY DAD1)
020051,000126:
020052,000127: # DSMAG = TEM4 MAGNITUDE STORE FOR DSPIN
020053,000128: # IDADDTEM = TEM4 MIXNOUN INDIRECT ADDRESS STORAGE
020054,000129:
020055,000130: # COUNT = TEM5 FOR DSPIN (TEM5 IS USED BY DAD)
020056,000131: # LSTPTR = ARETURN LIST POINTER FOR GRABUSY
020057,000132: # RELRET = ARETURN RETURN FOR RELDSP
020058,000133: # FREERET = ARETURN RETURN FOR FREEDSP
020059,000134:
020060,000135: # CADRTEM = ESCAPE TEMP STORAGE FOR GRAB ROUTINES
020061,000136:
020062,000137: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
020063,000138: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
020064,000139: # IDAD1TEM ERASE TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
020065,000140: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
020066,000141: # IDAD2TEM ERASE TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
020067,000142: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
020068,000143: # IDAD3TEM ERASE TEMP FOR INDIR ADRES TABLE ENTRY(MIXNN)
020069,000144: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
020070,000145:
020071,000146:
020072,000147:
020073,000148: # TEMPORARY ERASABLES FOR INTERRUPT ACTION
020074,000149:
020075,000150: # KEYTEMP1 = WTEXIT TEMP FOR KEYRUPT, UPRUPT
020076,000151: # DSRUPTEM = WTEXIT TEMP FOR DSPOUT
020077,000152: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
020078,000153:
020079,000154:
020080,000155: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
020081,000156: # 0 10000
020082,000157: # 1 00001
020083,000158: # 9 01001
020084,000159: # VERB 10001
020085,000160: # ERROR RES 10010
020086,000161: # KEY RLSE 11001
020087,000162: # + 11010
020088,000163: # - 11011
020089,000164: # ENTER 11100
020090,000165: # CLEAR 11110
020091,000166: # NOUN 11111
020092,000167:
020093,000168:
020094,000169:
020095,000170: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
020096,000171: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
020097,000172: # ENERGIZED.
020098,000173: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
020099,000174: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
020100,000175: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
020101,000176:
020102,000177: # THE PANEL APPEARS AS FOLLOWS,
020103,000178: # MD1 MD2 (MAJOR MODE)
020104,000179: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
020105,000180: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
020106,000181: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
020107,000182: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
020108,000183:
020109,000184: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
020110,000185: # MD1 25 R2D1 11 ALL ARE OCTAL
020111,000186: # MD2 24 R2D2 10
020112,000187: # VD1 23 R2D3 7
020113,000188: # VD2 22 R2D4 6
020114,000189: # ND1 21 R2D5 5
020115,000190: # ND2 20 R3D1 4
020116,000191: # R1D1 16 R3D2 3
020117,000192: # R1D2 15 R3D3 2
020118,000193: # R1D3 14 R3D4 1
020119,000194: # R1D4 13 R3D5 0
020120,000195: # R1D5 12
020121,000196:
020122,000197:
020123,000198:
020124,000199: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
020125,000200:
020126,000201: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
020127,000202: # RELADD
020128,000203: # 10 1011 MD1 (25) MD2 (24)
020129,000204: # 9 1010 FLASH VD1 (23) VD2 (22)
020130,000205: # 8 1001 ND1 (21) ND2 (20)
020131,000206: # 7 1000 UPACT R1D1 (16)
020132,000207: # 6 0111 +R1 R1D2 (15) R1D3 (14)
020133,000208: # 5 0110 -R1 R1D4 (13) R1D5 (12)
020134,000209: # 4 0101 +R2 R2D1 (11) R2D2 (10)
020135,000210: # 3 0100 -R2 R2D3 (7) R2D4 (6)
020136,000211: # 2 0011 R2D5 (5) R3D1 (4)
020137,000212: # 1 0010 +R3 R3D2 (3) R3D3 (2)
020138,000213: # 0 0001 -R3 R3D4 (1) R3D5 (0)
020139,000214: # 0000 NO RELAYWORD
020140,000215:
020141,000216:
020142,000217:
020143,000218: # THE 5 BIT RELAY CODES ARE,
020144,000219: # BLANK 00000
020145,000220: # 0 10101
020146,000221: # 1 00011
020147,000222: # 2 11001
020148,000223: # 3 11011
020149,000224: # 4 01111
020150,000225: # 5 11110
020151,000226: # 6 11100
020152,000227: # 7 10011
020153,000228: # 8 11101
020154,000229: # 9 11111
020155,000230:
020156,000231:
020157,000232: 06,6000 SETLOC 14000
020158,000233:
020159,000234: 06,6000 30001 FLASHON XCH Q
020160,000235: 06,6001 50112 TS DSEXIT
020161,000236: 06,6002 07464 TC FLASHON1
020162,000237:
020163,000238: 06,6003 30001 FLASHOFF XCH Q
020164,000239: 06,6004 50112 TS DSEXIT
020165,000240: 06,6005 07473 TC FLASHOF1
020166,000241: # END OF STANDARD LEAD INS.
020167,000242:
020168,000243:
020169,000244:
020170,000245: 06,6006 03273 CHARIN TC DSPLOCK1 # BLOCK DISPLAY SYST BUT SAVE OLD
020171,000246: 06,6007 74513 MASK BIT4 # C(DSPLOCK) FOR ERROR LIGHT RESET.
020172,000247: 06,6010 50106 TS 21/22REG
020173,000248: 06,6011 30115 XCH MPAC
020174,000249: 06,6012 50063 TS CHAR
020175,000250: 06,6013 20000 INDEX A
020176,000251: 06,6014 06015 TC +1 # INPUT CODE FUNCTION
020177,000252: 06,6015 07451 TC CHARALRM # 0
020178,000253: 06,6016 06071 TC NUM # 1
020179,000254: 06,6017 06071 TC NUM # 2
020180,000255: 06,6020 06071 TC NUM # 3
020181,000256: 06,6021 06071 TC NUM # 4
020182,000257: 06,6022 06071 TC NUM # 5
020183,000258: 06,6023 06071 TC NUM # 6
020184,000259: 06,6024 06071 TC NUM # 7
020185,000260: 06,6025 06062 TC 89TEST # 10 8
020186,000261: 06,6026 06062 TC 89TEST # 11 9
020187,000262: 06,6027 07451 TC CHARALRM # 12
020188,000263: 06,6030 07451 TC CHARALRM # 13
020189,000264: 06,6031 07451 TC CHARALRM # 14
020190,000265: 06,6032 07451 TC CHARALRM # 15
020191,000266: 06,6033 07451 TC CHARALRM # 16
020192,000267: 06,6034 07451 TC CHARALRM # 17
020193,000268: 06,6035 06067 TC NUM -2 # 20 0
020194,000269: 06,6036 06251 TC VERB # 21 VERB
020195,000270: 06,6037 06375 TC ERROR # 22 ERROR LIGHT RESET
020196,000271: 06,6040 06057 TC ABORTCAL # 23 ABORT
020197,000272: 06,6041 07451 TC CHARALRM # 24
020198,000273: 06,6042 07451 TC CHARALRM # 25
020199,000274: 06,6043 07451 TC CHARALRM # 26
020200,000275: 06,6044 07451 TC CHARALRM # 27
020201,000276: 06,6045 07451 TC CHARALRM # 30
020202,000277: 06,6046 07506 TC VBRELDSP # 31 KEY RELEASE
020203,000278: 06,6047 06315 TC POSGN # 32 +
020204,000279: 06,6050 06301 TC NEGSGN # 33 -
020205,000280: 06,6051 06055 TC ENTERJMP # 34 ENTER
020206,000281: 06,6052 07451 TC CHARALRM # 35
020207,000282: 06,6053 06474 TC CLEAR # 36 CLEAR
020208,000283: 06,6054 06273 TC NOUN # 37 NOUN
020209,000284:
020210,000285:
020211,000286:
020212,000287: 06,6055 05720 ENTERJMP TC POSTJUMP
020213,000288: 06,6056 16007 CADR ENTER
020214,000289:
020215,000290: 06,6057 33226 ABORTCAL CAF LOW5
020216,000291: 06,6060 05720 TC POSTJUMP # FORCE DECODING OF VERB 72 AND DO RELDSP.
020217,000292: 06,6061 16136 CADR JAMEXTVB
020218,000293:
020219,000294:
020220,000295: 06,6062 34473 89TEST CAF THREE
020221,000296: 06,6063 70615 MASK DECBRNCH
020222,000297: 06,6064 10000 CCS A
020223,000298: 06,6065 06071 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
020224,000299: 06,6066 07451 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
020225,000300:
020226,000301:
020227,000302:
020228,000303: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
020229,000304: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
020230,000305: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
020231,000306: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
020232,000307: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
020233,000308: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
020234,000309:
020235,000310: 06,6067 35501 CAF ZERO
020236,000311: 06,6070 50063 TS CHAR
020237,000312: 06,6071 10614 NUM CCS DSPCOUNT
020238,000313: 06,6072 06076 TC +4 # +
020239,000314: 06,6073 06076 TC +3 # +0
020240,000315: 06,6074 06075 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
020241,000316: 06,6075 02124 TC ENDOFJOB # -0
020242,000317: 06,6076 06221 TC GETINREL
020243,000318: 06,6077 10633 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
020244,000319: 06,6100 35501 CAF ZERO
020245,000320: 06,6101 50633 TS CLPASS
020246,000321: 06,6102 06103 TC +1
020247,000322: 06,6103 20063 INDEX CHAR
020248,000323: 06,6104 32650 CAF RELTAB
020249,000324: 06,6105 73226 MASK LOW5
020250,000325: 06,6106 50111 TS CODE
020251,000326: 06,6107 30614 XCH DSPCOUNT
020252,000327: 06,6110 50104 TS COUNT
020253,000328: 06,6111 50614 TS DSPCOUNT
020254,000329: 06,6112 07352 TC DSPIN
020255,000330: 06,6113 34473 CAF THREE
020256,000331: 06,6114 70615 MASK DECBRNCH
020257,000332: 06,6115 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
020258,000333: 06,6116 06127 TC DECTOBIN # +
020259,000334: 06,6117 20076 INDEX INREL # +0 OCTAL
020260,000335: 06,6120 30602 XCH VERBREG
020261,000336: 06,6121 50022 TS CYL
020262,000337: 06,6122 40022 CS CYL
020263,000338: 06,6123 40022 CS CYL
020264,000339: 06,6124 30022 XCH CYL
020265,000340: 06,6125 60063 AD CHAR
020266,000341: 06,6126 06145 TC ENDNMTST
020267,000342: 06,6127 20076 DECTOBIN INDEX INREL
020268,000343: 06,6130 30602 XCH VERBREG
020269,000344: 06,6131 50115 TS MPAC # SUM X 2EXP-14 IN MPAC
020270,000345: 06,6132 35501 CAF ZERO
020271,000346: 06,6133 50116 TS MPAC +1
020272,000347: 06,6134 33240 CAF TEN # 10 X 2EXP-14
020273,000348: 06,6135 05416 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
020274,000349: 06,6136 30116 XCH MPAC +1
020275,000350: 06,6137 60063 AD CHAR
020276,000351: 06,6140 50116 TS MPAC +1
020277,000352: 06,6141 06145 TC ENDNMTST # NO OF
020278,000353: 06,6142 60115 AD MPAC # OF MUST BE 5TH CHAR
020279,000354: 06,6143 50115 TS MPAC
020280,000355: 06,6144 06164 TC DECEND
020281,000356: 06,6145 20076 ENDNMTST INDEX INREL
020282,000357: 06,6146 50602 TS VERBREG
020283,000358: 06,6147 40614 CS DSPCOUNT
020284,000359: 06,6150 20076 INDEX INREL
020285,000360: 06,6151 66210 AD CRITCON
020286,000361: 06,6152 10000 CCS A
020287,000362: 06,6153 07451 TC CHARALRM # + PATHOLOGICAL CASE
020288,000363: 06,6154 07451 TC CHARALRM # +0 IMPOSSIBLE
020289,000364: 06,6155 06205 TC MORNUM # -
020290,000365: 06,6156 34473 ENDNUM CAF THREE
020291,000366: 06,6157 70615 MASK DECBRNCH
020292,000367: 06,6160 10000 CCS A
020293,000368: 06,6161 06164 TC DECEND
020294,000369: 06,6162 40614 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
020295,000370: 06,6163 06206 TC MORNUM +1 # NEGATIVELY
020296,000371: 06,6164 34473 DECEND CAF THREE
020297,000372: 06,6165 70615 MASK DECBRNCH
020298,000373: 06,6166 20000 INDEX A
020299,000374: 06,6167 06167 TC +0
020300,000375: 06,6170 06174 TC +DECSGN # + DEC
020301,000376: 06,6171 05157 TC DMP # - DEC
020302,000377: 06,6172 56216 XCADR NEGDECON
020303,000378: 06,6173 06176 TC ENDECOM # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
020304,000379: 06,6174 05157 +DECSGN TC DMP # 2EXP14/10EXP5. GIVES (SUM/10EXP5)X2EXP-14
020305,000380: 06,6175 56214 XCADR DECON # IN MPAC, +1, +2.
020306,000381: 06,6176 30117 ENDECOM XCH MPAC +2
020307,000382: 06,6177 20076 INDEX INREL
020308,000383: 06,6200 50605 TS XREGLP -2
020309,000384: 06,6201 30116 XCH MPAC +1
020310,000385: 06,6202 20076 INDEX INREL
020311,000386: 06,6203 50602 TS VERBREG
020312,000387: 06,6204 06162 TC ENDALL
020313,000388: 06,6205 10614 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
020314,000389: 06,6206 50614 TS DSPCOUNT
020315,000390: 06,6207 02124 TC ENDOFJOB
020316,000391:
020317,000392: 06,6210 00022 CRITCON OCT 22 # (DEC 18)
020318,000393: 06,6211 00020 OCT 20 # (DEC 16)
020319,000394: 06,6212 00012 OCT 12 # (DEC 10)
020320,000395: 06,6213 00005 OCT 5
020321,000396: 06,6214 00000 OCT 0
020322,000397:
020323,000398: 06,6215 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
020324,000399:
020325,000400: 06,6217 72603 NEGDECON OCT 72603
020326,000401: 06,6220 64516 OCT 64516
020327,000402:
020328,000403:
020329,000404:
020330,000405: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
020331,000406: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
020332,000407:
020333,000408: 06,6221 20614 GETINREL INDEX DSPCOUNT
020334,000409: 06,6222 36225 CAF INRELTAB
020335,000410: 06,6223 50076 TS INREL # (A TEMP, REG)
020336,000411: 06,6224 00001 TC Q
020337,000412:
020338,000413: 06,6225 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
020339,000414: 06,6226 00004 OCT 4 # R3D4 =(1)
020340,000415: 06,6227 00004 OCT 4 # R3D3 =(2)
020341,000416: 06,6230 00004 OCT 4 # R3D2 =(3)
020342,000417: 06,6231 00004 OCT 4 # R3D1 =(4)
020343,000418: 06,6232 00003 OCT 3 # R2D5 =(5)
020344,000419: 06,6233 00003 OCT 3 # R2D4 =(6)
020345,000420: 06,6234 00003 OCT 3 # R2D3 =(7)
020346,000421: 06,6235 00003 OCT 3 # R2D2 =(8D)
020347,000422: 06,6236 00003 OCT 3 # R2D1 =(9D)
020348,000423: 06,6237 00002 OCT 2 # R1D5 =(10D)
020349,000424: 06,6240 00002 OCT 2 # R1D4 =(11D)
020350,000425: 06,6241 00002 OCT 2 # R1D3 =(12D)
020351,000426: 06,6242 00002 OCT 2 # R1D2 =(13D)
020352,000427: 06,6243 00002 OCT 2 # R1D1 =(14D)
020353,000428: 06,6244 03070 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
020354,000429: 06,6245 00001 OCT 1 # ND2 =(16D)
020355,000430: 06,6246 00001 OCT 1 # ND1 =(17D)
020356,000431: 06,6247 00000 OCT 0 # VD2 =(18D)
020357,000432: 06,6250 00000 OCT 0 # VD1 =(19D)
020358,000433:
020359,000434:
020360,000435:
020361,000436: 06,6251 35501 VERB CAF ZERO
020362,000437: 06,6252 50602 TS VERBREG
020363,000438: 06,6253 50111 TS CODE # VERB CANT USE 2BLANK SINCE THAT TURNS
020364,000439: 06,6254 33235 CAF VD1 # THE FLASH OFF
020365,000440: 06,6255 50614 TS DSPCOUNT
020366,000441: 06,6256 50104 TS COUNT
020367,000442: 06,6257 07352 TC DSPIN
020368,000443: 06,6260 36210 CAF VD2
020369,000444: 06,6261 50104 TS COUNT
020370,000445: 06,6262 35501 CAF ZERO
020371,000446: 06,6263 50111 TS CODE
020372,000447: 06,6264 07352 TC DSPIN
020373,000448: 06,6265 35501 N/VCOM CAF ZERO
020374,000449: 06,6266 50615 TS DECBRNCH
020375,000450: 06,6267 50613 TS REQRET # SET FOR ENTPAS0
020376,000451: 06,6270 33155 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
020377,000452: 06,6271 50065 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
020378,000453: # TO TC ENDOFJOB
020379,000454: 06,6272 02124 TC ENDOFJOB
020380,000455: 06,6273 35501 NOUN CAF ZERO
020381,000456: 06,6274 50603 TS NOUNREG
020382,000457: 06,6275 33236 CAF ND1 # ND1, OCT 21 (DEC 17)
020383,000458: 06,6276 50614 TS DSPCOUNT
020384,000459: 06,6277 06613 TC 2BLANK
020385,000460: 06,6300 06265 TC N/VCOM
020386,000461:
020387,000462:
020388,000463:
020389,000464: 06,6301 06,6210 VD2 = CRITCON # OCT 22
020390,000465:
020391,000466:
020392,000467:
020393,000468: 06,6301 06356 NEGSGN TC SIGNTEST
020394,000469: 06,6302 06342 TC -ON
020395,000470: 06,6303 35503 CAF TWO
020396,000471: 06,6304 60615 BOTHSGN AD DECBRNCH # SET DEC COMP BIT TO 1 (IN DECBRNCH)
020397,000472: 06,6305 20076 INDEX INREL # BIT 5 FOR R1
020398,000473: 06,6306 64510 AD BIT7 # BIT 4 FOR R2
020399,000474: 06,6307 50615 TS DECBRNCH # BIT 3 FOR R3
020400,000475: 06,6310 10633 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
020401,000476: 06,6311 35501 CAF ZERO
020402,000477: 06,6312 50633 TS CLPASS
020403,000478: 06,6313 06314 TC +1
020404,000479: 06,6314 02124 TC ENDOFJOB
020405,000480:
020406,000481: 06,6315 06356 POSGN TC SIGNTEST
020407,000482: 06,6316 06321 TC +ON
020408,000483: 06,6317 34516 CAF ONE
020409,000484: 06,6320 06304 TC BOTHSGN
020410,000485:
020411,000486: 06,6321 30001 +ON XCH Q
020412,000487: 06,6322 50073 TS SIGNRET
020413,000488: 06,6323 06221 TC GETINREL
020414,000489: 06,6324 20076 INDEX INREL
020415,000490: 06,6325 36351 CAF SGNTAB -2
020416,000491: 06,6326 50110 TS SGNOFF
020417,000492: 06,6327 64516 AD ONE
020418,000493: 06,6330 50064 TS SGNON
020419,000494: 06,6331 35501 SGNCOM CAF ZERO
020420,000495: 06,6332 50111 TS CODE
020421,000496: 06,6333 30110 XCH SGNOFF
020422,000497: 06,6334 07437 TC 11DSPIN
020423,000498: 06,6335 34504 CAF BIT11
020424,000499: 06,6336 50111 TS CODE
020425,000500: 06,6337 30064 XCH SGNON
020426,000501: 06,6340 07437 TC 11DSPIN
020427,000502: 06,6341 00073 TC SIGNRET
020428,000503: 06,6342 30001 -ON XCH Q
020429,000504: 06,6343 50073 TS SIGNRET
020430,000505: 06,6344 06221 TC GETINREL
020431,000506: 06,6345 20076 INDEX INREL
020432,000507: 06,6346 36351 CAF SGNTAB -2
020433,000508: 06,6347 50064 TS SGNON
020434,000509: 06,6350 64516 AD ONE
020435,000510: 06,6351 50110 TS SGNOFF
020436,000511: 06,6352 06331 TC SGNCOM
020437,000512:
020438,000513: 06,6353 00005 SGNTAB OCT 5 # -R1
020439,000514: 06,6354 00003 OCT 3 # -R2
020440,000515: 06,6355 00000 OCT 0 # -R3
020441,000516:
020442,000517:
020443,000518:
020444,000519: 06,6356 30001 SIGNTEST XCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
020445,000520: 06,6357 50073 TS SIGNRET # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
020446,000521: 06,6360 43177 CS R1D1
020447,000522: 06,6361 06367 TC SGNTST1
020448,000523: 06,6362 43200 CS R2D1
020449,000524: 06,6363 06367 TC SGNTST1
020450,000525: 06,6364 43201 CS R3D1
020451,000526: 06,6365 06367 TC SGNTST1
020452,000527: 06,6366 02124 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
020453,000528: 06,6367 60614 SGNTST1 AD DSPCOUNT
020454,000529: 06,6370 10000 CCS A
020455,000530: 06,6371 00001 TC Q
020456,000531: 06,6372 03070 TC CCSHOLE
020457,000532: 06,6373 00001 TC Q
020458,000533: 06,6374 00073 TC SIGNRET # SIGN LEGAL
020459,000534:
020460,000535:
020461,000536:
020462,000537: # ERROR LIGHT RESET RESETS TMALM, DSPALARM (CHECK FAIL), PROGALM, UNBLOCKS
020463,000538: # ENDPULSES, RESETS ERRUPT TRAP. IT ALSO FORCES BIT 12 OF ALL DSPTAB
020464,000539: # ENTRIES TO ONE. RESETS UPACT LIGHT.
020465,000540:
020466,000541: 06,6375 44513 ERROR CS BIT4 # RESTORE ORIGINAL C(DSPLOCK) BIT4 OF
020467,000542: 06,6376 20017 INHINT # STATE. THUS ERROR LIGHT RESET LEAVES
020468,000543: 06,6377 70645 MASK DSPLOCK # DSPLOCK UNCHANGED.
020469,000544: 06,6400 60106 AD 21/22REG
020470,000545: 06,6401 50645 TS DSPLOCK
020471,000546: 06,6402 44510 CS BIT7 # RESET ERRUPT TRAP
020472,000547: 06,6403 70011 MASK OUT1
020473,000548: 06,6404 64510 AD BIT7
020474,000549: 06,6405 50011 TS OUT1
020475,000550: 06,6406 46473 CS CFAILCON # RESET THE C RELAYS FOR IMU FAIL, CDUFAIL
020476,000551: 06,6407 70723 MASK DSPTAB +11D # PIPA FAIL.
020477,000552: 06,6410 64500 AD BIT15
020478,000553: 06,6411 50723 TS DSPTAB +11D
020479,000554: 06,6412 46471 CS ERCON
020480,000555: 06,6413 70011 MASK OUT1
020481,000556: 06,6414 50011 TS OUT1
020482,000557: 06,6415 33240 TSTAB CAF BINCON # (DEC 10)
020483,000558: 06,6416 50063 TS ERCNT # ERCNT = COUNT
020484,000559: 06,6417 20017 INHINT
020485,000560: 06,6420 20063 INDEX ERCNT
020486,000561: 06,6421 10710 CCS DSPTAB
020487,000562: 06,6422 64516 AD ONE
020488,000563: 06,6423 06430 TC ERPLUS
020489,000564: 06,6424 64516 AD ONE
020490,000565: 06,6425 40000 ERMINUS CS A
020491,000566: 06,6426 76472 MASK NOTBIT12
020492,000567: 06,6427 06433 TC ERCOM
020493,000568: 06,6430 40000 ERPLUS CS A
020494,000569: 06,6431 76472 MASK NOTBIT12
020495,000570: 06,6432 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
020496,000571: 06,6433 20063 ERCOM INDEX ERCNT # ETC.
020497,000572: 06,6434 50710 TS DSPTAB
020498,000573: 06,6435 20016 RELINT
020499,000574: 06,6436 10063 CCS ERCNT
020500,000575: 06,6437 06416 TC TSTAB +1
020501,000576: 06,6440 10727 CCS WASKSET
020502,000577: 06,6441 06450 TC ERROPT
020503,000578: 06,6442 06450 TC ERROPT
020504,000579: 06,6443 06450 TC ERROPT
020505,000580: 06,6444 30007 XCH IN3
020506,000581: 06,6445 30007 XCH IN3
020507,000582: 06,6446 74720 MASK LOW7
020508,000583: 06,6447 50727 TS WASKSET
020509,000584:
020510,000585: 06,6450 10730 ERROPT CCS WASOPSET
020511,000586: 06,6451 06460 TC ERROR1
020512,000587: 06,6452 06460 TC ERROR1
020513,000588: 06,6453 06460 TC ERROR1
020514,000589: 06,6454 30007 XCH IN3
020515,000590: 06,6455 30007 XCH IN3
020516,000591: 06,6456 76470 MASK OPTICSB
020517,000592: 06,6457 50730 TS WASOPSET
020518,000593:
020519,000594: 06,6460 35501 ERROR1 CAF ZERO
020520,000595: 06,6461 51763 TS FAILREG
020521,000596: 06,6462 50726 TS OLDERR
020522,000597: 06,6463 51764 TS SFAIL
020523,000598: 06,6464 50111 TS CODE
020524,000599: 06,6465 35362 CAF SEVEN
020525,000600: 06,6466 07437 TC 11DSPIN # TURN OFF UPACT LIGHT
020526,000601: 06,6467 02124 TC ENDOFJOB
020527,000602:
020528,000603: 06,6470 35000 OPTICSB OCT 35000
020529,000604: 06,6471 01131 ERCON OCT 01131 # BITS 1, 4, 5, 7, 10.
020530,000605: # PROGALM, TMFAIL, CHECK FAIL, ERRUPT TRAP
020531,000606: # END PULSES.
020532,000607:
020533,000608: 06,6472 73777 NOTBIT12 OCT 73777
020534,000609: 06,6473 40340 CFAILCON OCT 40340
020535,000610:
020536,000611:
020537,000612:
020538,000613: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
020539,000614: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
020540,000615: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
020541,000616:
020542,000617: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
020543,000618: # APPROPRIATE TO BE CLEARED.
020544,000619:
020545,000620: # CLPASS +0 PASS0, CAN BE BACKED UP
020546,000621: # +NZ HIPASS, CAN BE BACKED UP
020547,000622: # -NZ PASS0, CANNOT BE BACKED UP
020548,000623:
020549,000624: 06,6474 10614 CLEAR CCS DSPCOUNT
020550,000625: 06,6475 64516 AD ONE
020551,000626: 06,6476 06500 TC +2
020552,000627: 06,6477 64516 AD ONE
020553,000628: 06,6500 50614 TS DSPCOUNT
020554,000629: 06,6501 06221 TC GETINREL
020555,000630: 06,6502 10633 CCS CLPASS
020556,000631: 06,6503 06510 TC CLPASHI # +
020557,000632: 06,6504 06506 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
020558,000633: 06,6505 06506 TC +1 # -
020559,000634: 06,6506 06537 TC LEGALTST
020560,000635: 06,6507 06527 TC CLEAR1
020561,000636: 06,6510 10076 CLPASHI CCS INREL
020562,000637: 06,6511 50076 TS INREL
020563,000638: 06,6512 06537 TC LEGALTST
020564,000639: 06,6513 30613 XCH REQRET
020565,000640: 06,6514 66611 AD DOUBLK +2 # +3 TO - NUMBER. BACKS UP DATA REQUESTS
020566,000641: 06,6515 50613 TS REQRET
020567,000642: 06,6516 30076 XCH INREL
020568,000643: 06,6517 50073 TS MIXTEMP # TEMP STORAGE FOR INREL
020569,000644: 06,6520 30602 XCH VERBREG # DECREMENT VERB AND RE-DISPLAY
020570,000645: 06,6521 64335 AD NEG1
020571,000646: 06,6522 50602 TS VERBREG
020572,000647: 06,6523 05654 TC BANKCALL
020573,000648: 06,6524 16346 CADR UPDATVB
020574,000649: 06,6525 30073 XCH MIXTEMP
020575,000650: 06,6526 50076 TS INREL # RESTORE INREL
020576,000651: 06,6527 06534 CLEAR1 TC CLR5
020577,000652: 06,6530 34516 CAF ONE
020578,000653: 06,6531 60633 AD CLPASS # ONLY IF CLPASS IS + OR +0,
020579,000654: 06,6532 50633 TS CLPASS # SET FOR HIGHER PASS.
020580,000655: 06,6533 02124 TC ENDOFJOB
020581,000656: 06,6534 30001 CLR5 XCH Q
020582,000657: 06,6535 50106 TS WRDRET # USES 5BLANK BUT AVOIDS ITS TC GETINREL
020583,000658: 06,6536 06551 TC 5BLANK +3
020584,000659: 06,6537 45503 LEGALTST CS TWO
020585,000660: 06,6540 60076 AD INREL
020586,000661: 06,6541 10000 CCS A
020587,000662: 06,6542 00001 TC Q # LEGAL INREL G/ 2
020588,000663: 06,6543 03070 TC CCSHOLE
020589,000664: 06,6544 02124 TC ENDOFJOB # ILLEGAL INREL= 0,1
020590,000665: 06,6545 00001 TC Q # LEGAL INREL = 2
020591,000666:
020592,000667:
020593,000668:
020594,000669: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
020595,000670: # YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
020596,000671: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
020597,000672:
020598,000673: 06,6546 30001 5BLANK XCH Q
020599,000674: 06,6547 50106 TS WRDRET
020600,000675: 06,6550 06221 TC GETINREL
020601,000676: 06,6551 35501 CAF ZERO
020602,000677: 06,6552 20076 INDEX INREL
020603,000678: 06,6553 50602 TS VERBREG # ZERO X, Y, Z REG.
020604,000679: 06,6554 20076 INDEX INREL
020605,000680: 06,6555 50605 TS XREGLP -2
020606,000681: 06,6556 50111 TS CODE
020607,000682: 06,6557 20076 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
020608,000683: 06,6560 44510 CS BIT7 # PROTECT OTHERS
020609,000684: 06,6561 70615 MASK DECBRNCH
020610,000685: 06,6562 76612 MASK BRNCHCON # ZERO LOW 2 BITS.
020611,000686: 06,6563 50615 TS DECBRNCH
020612,000687: 06,6564 20076 INDEX INREL
020613,000688: 06,6565 36602 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
020614,000689: 06,6566 50104 TS COUNT
020615,000690: 06,6567 07352 TC DSPIN
020616,000691: 06,6570 20076 5BLANK1 INDEX INREL
020617,000692: 06,6571 36605 CAF DOUBLK -2
020618,000693: 06,6572 50614 TS DSPCOUNT
020619,000694: 06,6573 06613 TC 2BLANK
020620,000695: 06,6574 45503 CS TWO
020621,000696: 06,6575 60614 AD DSPCOUNT
020622,000697: 06,6576 50614 TS DSPCOUNT
020623,000698: 06,6577 06613 TC 2BLANK
020624,000699: 06,6600 20076 INDEX INREL
020625,000700: 06,6601 33175 CAF R1D1 -2
020626,000701: 06,6602 50614 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
020627,000702: 06,6603 00106 TC WRDRET # OF REG. JUST BLANKED
020628,000703:
020629,000704: 06,6604 00016 SINBLANK OCT 16 # DEC 14
020630,000705: 06,6605 00005 OCT 5
020631,000706: 06,6606 00004 OCT 4
020632,000707: 06,6607 00015 DOUBLK OCT 15 # DEC 13
020633,000708: 06,6610 00011 OCT 11 # DEC 9
020634,000709: 06,6611 00003 OCT 3
020635,000710:
020636,000711: 06,6612 77774 BRNCHCON OCT 77774
020637,000712:
020638,000713: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
020639,000714: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
020640,000715:
020641,000716: 06,6613 30001 2BLANK XCH Q
020642,000717: 06,6614 50112 TS BLANKRET
020643,000718: 06,6615 40614 CS DSPCOUNT
020644,000719: 06,6616 40000 CS A
020645,000720: 06,6617 50021 TS SR
020646,000721: 06,6620 46631 CS BLANKCON
020647,000722: 06,6621 20017 INHINT
020648,000723: 06,6622 20021 INDEX SR
020649,000724: 06,6623 30710 XCH DSPTAB
020650,000725: 06,6624 10000 CCS A
020651,000726: 06,6625 06632 TC INCNOUT # IF OLD CONTENTS +,+1 TO NOUT
020652,000727: 06,6626 03070 TC CCSHOLE
020653,000728: 06,6627 20016 RELINT # IF -,NOUT OK
020654,000729: 06,6630 00112 TC BLANKRET
020655,000730: 06,6631 04000 BLANKCON OCT 4000
020656,000731:
020657,000732: 06,6632 30707 INCNOUT XCH NOUT
020658,000733: 06,6633 64516 AD ONE
020659,000734: 06,6634 50707 TS NOUT
020660,000735: 06,6635 20001 INDEX Q
020661,000736: 06,6636 00001 TC 1 # RETURN TO 2+ L(CALLING TC)
020662,000737:
020663,000738:
020664,000739: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
020665,000740: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
020666,000741: # PASSES.
020667,000742:
020668,000743: 07,6000 SETLOC 16000
020669,000744:
020670,000745: 07,6000 07354 NVSUBB TC NVSUB1 # STANDARD LEAD INS, DONT MOVE.
020671,000746: 07,6001 07433 GRABUSYB TC GRABUSY1
020672,000747: 07,6002 07455 NVSUBSYB TC NVSUBSY1
020673,000748: 07,6003 30001 DSPMM XCH Q
020674,000749: 07,6004 50063 TS UPDATRET
020675,000750: 07,6005 07422 TC DSPMM1
020676,000751: 07,6006 06705 LOADLV1 TC LOADLV
020677,000752: # END OF STANDARD LEAD INS.
020678,000753:
020679,000754:
020680,000755:
020681,000756: 07,6007 35501 ENTER CAF ZERO
020682,000757: 07,6010 50633 TS CLPASS
020683,000758: 07,6011 33155 CAF ENDINST
020684,000759: 07,6012 50065 TS ENTRET
020685,000760: 07,6013 10613 CCS REQRET
020686,000761: 07,6014 06035 TC ENTPAS0 # IF +, PASS 0
020687,000762: 07,6015 06035 TC ENTPAS0 # IF +, PASS 0
020688,000763: 07,6016 06017 TC +1 # IF -, NOT PASS 0
020689,000764: 07,6017 34473 CAF THREE # IF DEC, ALARM IF LESS THAN 5 CHAR IN.
020690,000765: 07,6020 70615 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
020691,000766: 07,6021 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
020692,000767: 07,6022 06024 TC +2 # CHARACTERS AND CONTINUE.
020693,000768: 07,6023 06030 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
020694,000769: 07,6024 10614 CCS DSPCOUNT
020695,000770: 07,6025 06356 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
020696,000771: 07,6026 06356 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
020697,000772: 07,6027 06030 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
020698,000773: 07,6030 40613 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
020699,000774: 07,6031 50613 TS REQRET # SET REQRET +.
020700,000775: 07,6032 05654 TC BANKCALL
020701,000776: 07,6033 14003 CADR FLASHOFF
020702,000777: 07,6034 00613 TC REQRET
020703,000778:
020704,000779: 07,6035 0065 ENTEXIT = ENTRET
020705,000780:
020706,000781: 07,6035 35501 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
020707,000782: 07,6036 50615 TS DECBRNCH
020708,000783: 07,6037 40602 TESTVB CS VERBREG # IF VERB IS 32-77, SKIP NOUN TEST
020709,000784: 07,6040 66043 AD LOWVERB # 32-VB
020710,000785: 07,6041 10000 CCS A
020711,000786: 07,6042 06046 TC TESTNN # VERB L/ 32
020712,000787: 07,6043 00032 LOWVERB OCT 32 # LOWER VERB THAT AVOIDS NOUN TEST
020713,000788: 07,6044 06045 TC +1 # VERB G/ 32
020714,000789: 07,6045 06130 TC VERBFAN # VERB=32
020715,000790: 07,6046 36107 TESTNN CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
020716,000791: 07,6047 05662 TC SWCALL # ROUTINE.
020717,000792: 07,6050 20107 INDEX MIXBR
020718,000793: 07,6051 06051 TC +0
020719,000794: 07,6052 06054 TC +2 # NORMAL
020720,000795: 07,6053 06210 TC MIXNOUN # MIXED
020721,000796: 07,6054 10054 CCS NNADTEM # NORMAL
020722,000797: 07,6055 06126 TC VERBFAN -2 # NORMAL IF +
020723,000798: 07,6056 06356 TC GODSPALM # NOT IN USE IF +0
020724,000799: 07,6057 06067 TC REQADD # SPECIFY MACHINE ADDRESS IF -
020725,000800: 07,6060 33201 CAF R3D1 # AUGMENT MACHINE ADDRESS IF -0
020726,000801: 07,6061 50614 TS DSPCOUNT
020727,000802: 07,6062 30624 XCH NOUNADD
020728,000803: 07,6063 64516 AD ONE
020729,000804: 07,6064 50624 TS NOUNADD
020730,000805: 07,6065 07225 TC DSPOCTWD
020731,000806: 07,6066 06130 TC VERBFAN
020732,000807: 07,6067 34500 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
020733,000808: 07,6070 50633 TS CLPASS
020734,000809: 07,6071 43155 CS ENDINST
020735,000810: 07,6072 60065 AD ENTEXIT
020736,000811: 07,6073 10000 CCS A # TEST IF REACHED HERE FROM INTERNAL OR
020737,000812: 07,6074 06110 TC INTMATBS # FROM EXTERNAL
020738,000813: 07,6075 03070 TC CCSHOLE
020739,000814: 07,6076 06110 TC INTMATBS
020740,000815: 07,6077 06304 TC REQDATZ # EXTERNAL MACH ADDR TO BE SPECIFIED
020741,000816: 07,6100 10615 CCS DECBRNCH
020742,000817: 07,6101 06356 TC GODSPALM # ALARM IF DECIMAL USED FOR MATBS
020743,000818: 07,6102 30606 XCH ZREG # OCTAL USED OK
020744,000819: 07,6103 50624 TS NOUNADD
020745,000820: 07,6104 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
020746,000821: 07,6105 05662 TC SWCALL # ROUTINE.
020747,000822: 07,6106 06130 TC VERBFAN
020748,000823:
020749,000824: 07,6107 13266 LODNNLOC CADR LODNNTAB
020750,000825:
020751,000826: 07,6110 44513 INTMATBS CS BIT4
020752,000827: 07,6111 70602 MASK VERBREG # MAKES VB 15 LOOK LIKE VB 05.
020753,000828: 07,6112 66115 AD NEG5
020754,000829: 07,6113 10000 CCS A
020755,000830: 07,6114 06120 TC DSPADD # VB NOT = 05 OR 15, DISPLAY ADDRESS.
020756,000831: 07,6115 77772 NEG5 OCT 77772
020757,000832: 07,6116 06120 TC DSPADD # VB NOT = 05 OR 15, DISPLAY ADDRESS.
020758,000833: 07,6117 06130 TC VERBFAN # VB = 05 OR 15, DO NOT DISPLAY ADDRESS.
020759,000834: 07,6120 33201 DSPADD CAF R3D1
020760,000835: 07,6121 50614 TS DSPCOUNT
020761,000836: 07,6122 40624 CS NOUNADD
020762,000837: 07,6123 40000 CS A
020763,000838: 07,6124 07225 TC DSPOCTWD
020764,000839: 07,6125 06130 TC VERBFAN
020765,000840:
020766,000841: 07,6126 64516 AD ONE
020767,000842: 07,6127 50624 TS NOUNADD
020768,000843: 07,6130 46143 VERBFAN CS LST2CON
020769,000844: 07,6131 60602 AD VERBREG # VERB-LST2CON
020770,000845: 07,6132 10000 CCS A
020771,000846: 07,6133 64516 AD ONE # VERB G/ LST2CON
020772,000847: 07,6134 06136 TC +2
020773,000848: 07,6135 06145 TC VBFANDIR # VERB L/ LST2CON
020774,000849: 07,6136 50115 JAMEXTVB TS MPAC # SPECIAL ENTRY FOR FORCING EXTENDED VERB.
020775,000850: 07,6137 03331 TC RELDSP # RELEASE DISPLAY SYST
020776,000851: 07,6140 30115 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
020777,000852: 07,6141 66144 AD LST2CADR
020778,000853: 07,6142 05723 TC BANKJUMP
020779,000854: 07,6143 00040 LST2CON OCT 40 # FIRST LST2 VERB
020780,000855: 07,6144 12000 LST2CADR CADR LST2FAN # THE LIST2 FAN IS LOCATED IN BANK 05
020781,000856:
020782,000857: 07,6145 20602 VBFANDIR INDEX VERBREG
020783,000858: 07,6146 36150 CAF VERBTAB
020784,000859: 07,6147 05723 TC BANKJUMP
020785,000860:
020786,000861: 07,6150 16356 VERBTAB CADR GODSPALM # VB00 ILLEGAL
020787,000862: 07,6151 16372 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
020788,000863: 07,6152 16377 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
020789,000864: 07,6153 16404 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
020790,000865: 07,6154 16365 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
020791,000866: 07,6155 16360 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
020792,000867: 07,6156 16476 CADR DECDSP # VB06 DECIMAL DISPLAY
020793,000868: 07,6157 15030 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
020794,000869: 07,6160 17342 CADR VBRQWAIT # VB10 REQUEST WAITLIST
020795,000870: 07,6161 17102 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
020796,000871: 07,6162 17102 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
020797,000872: 07,6163 17102 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
020798,000873: 07,6164 17102 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
020799,000874: 07,6165 17102 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
020800,000875: 07,6166 17102 CADR MONITOR # VB16 MONITOR DECIMAL
020801,000876: 07,6167 17102 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
020802,000877: 07,6170 17321 REQEXLOC CADR VBRQEXEC # VB20 REQUEST EXECUTIVE
020803,000878: 07,6171 16645 CADR ALOAD # VB21 LOAD COMP 1 (R1)
020804,000879: 07,6172 16655 CADR BLOAD # VB22 LOAD COMP 2 (R2)
020805,000880: 07,6173 16671 CADR CLOAD # VB23 LOAD COMP 3 (R3)
020806,000881: 07,6174 16620 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
020807,000882: 07,6175 16564 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
020808,000883: 07,6176 16356 CADR GODSPALM # VB26 SPARE
020809,000884: 07,6177 16356 CADR GODSPALM # VB27 SPARE
020810,000885: 07,6200 16356 CADR GODSPALM # VB30 SPARE
020811,000886: 07,6201 17216 CADR DSPBANK # VB31 BANK DISPLAY
020812,000887: 07,6202 15514 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
020813,000888: 07,6203 15476 CADR VBPROC # VB33 PROCEED WITHOUT DATA
020814,000889: 07,6204 15503 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
020815,000890: 07,6205 15506 CADR VBRELDSP # VB35 RELEASE DISPLAY SYST
020816,000891: 07,6206 10000 CADR SLAPB # VB36 FRESH START
020817,000892: 07,6207 17273 ENDVBFAN CADR MMCHANG # VB37 CHANGE MAJOR MODE
020818,000893:
020819,000894:
020820,000895:
020821,000896: # THE LIST2 VERBFAN IS LOCATED IN BANK 05.
020822,000897:
020823,000898:
020824,000899: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
020825,000900: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
020826,000901: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
020827,000902: # MIXTEMP.
020828,000903:
020829,000904: 07,6210 10054 MIXNOUN CCS NNADTEM
020830,000905: 07,6211 06215 TC +4 # + IN USE
020831,000906: 07,6212 06356 TC GODSPALM # +0 NOT IN USE
020832,000907: 07,6213 06215 TC +2 # - IN USE
020833,000908: 07,6214 06215 TC +1 # -0 IN USE
020834,000909: 07,6215 44475 CS SIX
020835,000910: 07,6216 60602 AD VERBREG
020836,000911: 07,6217 10000 CCS A # AVOID MIXNOUN SWAP FOR OTHER THAN
020837,000912: 07,6220 06130 TC VERBFAN # DISPLAY VERBS
020838,000913: 07,6221 03070 TC CCSHOLE
020839,000914: 07,6222 06223 TC +1
020840,000915: 07,6223 35503 CAF TWO
020841,000916: 07,6224 50064 MIXNN1 TS NOUNTEM
020842,000917: 07,6225 66254 AD MIXAD
020843,000918: 07,6226 50624 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
020844,000919: 07,6227 20064 INDEX NOUNTEM
020845,000920: 07,6230 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
020846,000921: 07,6231 40000 CS A # OF NOUN.
020847,000922: 07,6232 50063 TS DECOUNT
020848,000923: # TEST FOR DP (FOR OCT DISPLAY). IF SO, GET
020849,000924: # MINOR PART ONLY.
020850,000925: 07,6233 72261 MASK HI5
020851,000926: 07,6234 03211 TC LEFT5 # SF ROUT NUMBER IN A
020852,000927: 07,6235 06255 TC DPTEST
020853,000928: 07,6236 06242 TC MIXNN2 # NO DP
020854,000929: 07,6237 34516 CAF ONE # DP GET MINOR PART
020855,000930: 07,6240 60063 AD DECOUNT
020856,000931: 07,6241 50063 TS DECOUNT
020857,000932: 07,6242 30063 MIXNN2 XCH DECOUNT
020858,000933: 07,6243 74606 MASK LOW10 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
020859,000934: 07,6244 20000 INDEX A # PICK UP C(ESUBK) NOT DP
020860,000935: 07,6245 40000 CS 0 # OR C((ESUBK)+1) FOR DP MINOR PART
020861,000936: 07,6246 40000 CS A
020862,000937: 07,6247 20624 INDEX NOUNADD
020863,000938: 07,6250 30000 XCH 0 # STORE IN MIXTEM + K
020864,000939: 07,6251 10064 CCS NOUNTEM
020865,000940: 07,6252 06224 TC MIXNN1
020866,000941: 07,6253 06130 TC VERBFAN
020867,000942:
020868,000943: 07,6254 00073 MIXAD TC MIXTEMP
020869,000944:
020870,000945:
020871,000946:
020872,000947: 07,6255 50110 DPTEST TS SFTEMP1 # ENTER WITH SF ROUT NUMBER IN A.
020873,000948: 07,6256 30001 XCH Q # RETURNS TO L+1 IF NO DP
020874,000949: 07,6257 30110 XCH SFTEMP1 # RETURNS TO L+2 IF DP
020875,000950: 07,6260 20000 INDEX A
020876,000951: 07,6261 06262 TC +1
020877,000952: 07,6262 00110 TC SFTEMP1 # OCTAL ONLY NO DP
020878,000953: 07,6263 00110 TC SFTEMP1 # FRACT NO DP
020879,000954: 07,6264 00110 TC SFTEMP1 # DEG NO DP
020880,000955: 07,6265 00110 TC SFTEMP1 # ARITH NO DP
020881,000956: 07,6266 06272 TC DPTEST1 # DP1OUT
020882,000957: 07,6267 06272 TC DPTEST1 # DP2OUT
020883,000958: 07,6270 00110 TC SFTEMP1 # OPDEG NO DP
020884,000959: 07,6271 06272 TC DPTEST1 # DP3OUT
020885,000960: 07,6272 20110 DPTEST1 INDEX SFTEMP1
020886,000961: 07,6273 00001 TC 1 # RETURN TO L+2
020887,000962:
020888,000963:
020889,000964:
020890,000965: 07,6274 40001 REQDATX CS Q
020891,000966: 07,6275 50613 TS REQRET
020892,000967: 07,6276 33177 CAF R1D1
020893,000968: 07,6277 06307 TC REQCOM
020894,000969: 07,6300 40001 REQDATY CS Q
020895,000970: 07,6301 50613 TS REQRET
020896,000971: 07,6302 33200 CAF R2D1
020897,000972: 07,6303 06307 TC REQCOM
020898,000973: 07,6304 40001 REQDATZ CS Q
020899,000974: 07,6305 50613 TS REQRET
020900,000975: 07,6306 33201 CAF R3D1
020901,000976: 07,6307 50614 REQCOM TS DSPCOUNT
020902,000977: 07,6310 05654 TC BANKCALL
020903,000978: 07,6311 14546 CADR 5BLANK
020904,000979: 07,6312 05654 TC BANKCALL
020905,000980: 07,6313 14000 CADR FLASHON
020906,000981: 07,6314 43155 CS ENDINST
020907,000982: 07,6315 60065 AD ENTEXIT
020908,000983: 07,6316 10000 CCS A
020909,000984: 07,6317 06323 TC +4 # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
020910,000985: 07,6320 03070 TC CCSHOLE
020911,000986: 07,6321 06323 TC +2 # ENTEXIT NOT ENDOFJOB. NVSUB INITIATED
020912,000987: 07,6322 00065 TC ENTEXIT # ENTEXIT = ENDOFJOB. EXTERNALLY INITIATED
020913,000988: 07,6323 45501 CS ZERO # NVSUB INITIATED LOAD. SET CADRSTOR TO -0
020914,000989: 07,6324 50627 TS CADRSTOR
020915,000990: 07,6325 00065 TC ENTEXIT
020916,000991:
020917,000992: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
020918,000993: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
020919,000994:
020920,000995:
020921,000996:
020922,000997: 07,6326 50603 TS NOUNREG
020923,000998: 07,6327 30001 UPDATNN XCH Q
020924,000999: 07,6330 50063 TS UPDATRET
020925,001000: 07,6331 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
020926,001001: 07,6332 05662 TC SWCALL # ROUTINE.
020927,001002: 07,6333 10054 CCS NNADTEM
020928,001003: 07,6334 64516 AD ONE # NORMAL
020929,001004: 07,6335 06340 TC PUTADD
020930,001005: 07,6336 06341 TC PUTADD +1 # MATBS DONT CHANGE NOUNADD
020931,001006: 07,6337 06341 TC PUTADD +1 # MATBI DONT CHANGE NOUNADD
020932,001007: 07,6340 50624 PUTADD TS NOUNADD
020933,001008: 07,6341 33236 CAF ND1
020934,001009: 07,6342 50614 TS DSPCOUNT
020935,001010: 07,6343 40603 CS NOUNREG
020936,001011: 07,6344 06353 TC UPDAT1
020937,001012:
020938,001013: 07,6345 50602 TS VERBREG
020939,001014: 07,6346 30001 UPDATVB XCH Q
020940,001015: 07,6347 50063 TS UPDATRET
020941,001016: 07,6350 33235 CAF VD1
020942,001017: 07,6351 50614 TS DSPCOUNT
020943,001018: 07,6352 40602 CS VERBREG
020944,001019: 07,6353 40000 UPDAT1 CS A
020945,001020: 07,6354 07261 TC DSP2BIT
020946,001021: 07,6355 00063 TC UPDATRET
020947,001022:
020948,001023:
020949,001024:
020950,001025: 07,6356 05720 GODSPALM TC POSTJUMP
020951,001026: 07,6357 15453 CADR DSPALARM
020952,001027:
020953,001028:
020954,001029: # NOUN TABLES
020955,001030: # NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
020956,001031: # FOR NORMAL CASE, NNADTAB CONTAINS ONE MACHINE ADDRESS FOR EACH NOUN.
020957,001032: # +0 INDICATES NOUN NOT USED. - ENTRY IDICATES MACHINE ADDRESS TO BE
020958,001033: # SPECIFIED. -0 ENTRY INDICATES AUGMENT OF LAST MACHINE ADDRESS.
020959,001034:
020960,001035: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
020961,001036: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
020962,001037:
020963,001038: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
020964,001039:
020965,001040: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
020966,001041: # N-S ARE THE SF ROUTINE CODE NUMBER.
020967,001042: # P-S ARE THE SF CONSTANT CODE NUMBER.
020968,001043:
020969,001044: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
020970,001045: # N-S ARE THE SF CONSTANT2 CODE NUMBER
020971,001046: # P-S ARE THE SF CONSTANT1 CODE NUMBER
020972,001047: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
020973,001048: # P-S ARE THE SF CONSTANT1 CODE NUMBER
020974,001049: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
020975,001050:
020976,001051: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
020977,001052: # ENTRY IS OF FORM RRRRREEEEEEEEEE. IDADDREL IS THE RELATIVE ADDRESS OF
020978,001053: # THE FIRST OF THESE ENTRIES.
020979,001054: # R-S ARE THE SF ROUTINE CODE NUMBERS FOR COMPONENT K
020980,001055: # E-S ARE THE MACHINE ADDRESS FOR COMPONENT K
020981,001056: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
020982,001057: # THEY ARE LISTED IN ORDER OF ASCENDING K.
020983,001058:
020984,001059: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
020985,001060: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
020986,001061: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
020987,001062: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
020988,001063: # AN UNCONTOLLED NUMBER OF COMPONENTS.
020989,001064:
020990,001065:
020991,001066:
020992,001067: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
020993,001068: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
020994,001069:
020995,001070: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
020996,001071: # BEFORE EACH ENTER. IF NOT, ALARM.
020997,001072:
020998,001073:
020999,001074: # DISPLAY VERBS
021000,001075: 07,6360 45503 DSPABC CS TWO
021001,001076: 07,6361 06430 TC COMPTEST
021002,001077: 07,6362 20624 INDEX NOUNADD
021003,001078: 07,6363 40002 CS 2
021004,001079: 07,6364 30101 XCH BUF +2
021005,001080: 07,6365 44516 DSPAB CS ONE
021006,001081: 07,6366 06430 TC COMPTEST
021007,001082: 07,6367 20624 INDEX NOUNADD
021008,001083: 07,6370 40001 CS 1
021009,001084: 07,6371 30100 XCH BUF +1
021010,001085: 07,6372 06457 DSPA TC TSTFORDP
021011,001086: 07,6373 20624 INDEX NOUNADD
021012,001087: 07,6374 40000 CS 0
021013,001088: 07,6375 30077 DSPCOM1 XCH BUF
021014,001089: 07,6376 06411 TC DSPCOM2
021015,001090: 07,6377 44516 DSPB CS ONE
021016,001091: 07,6400 06430 TC COMPTEST
021017,001092: 07,6401 20624 INDEX NOUNADD
021018,001093: 07,6402 40001 CS 1
021019,001094: 07,6403 06375 TC DSPCOM1
021020,001095: 07,6404 45503 DSPC CS TWO
021021,001096: 07,6405 06430 TC COMPTEST
021022,001097: 07,6406 20624 INDEX NOUNADD
021023,001098: 07,6407 40002 CS 2
021024,001099: 07,6410 06375 TC DSPCOM1
021025,001100: 07,6411 45503 DSPCOM2 CS TWO # A B C AB ABC
021026,001101: 07,6412 60602 AD VERBREG # -1 -0 +1 +2 +3 IN A
021027,001102: 07,6413 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
021028,001103: 07,6414 06417 TC DSPCOM3
021029,001104: 07,6415 00065 TC ENTEXIT
021030,001105: 07,6416 06417 TC +1
021031,001106: 07,6417 50064 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
021032,001107: 07,6420 20000 INDEX A
021033,001108: 07,6421 33177 CAF R1D1
021034,001109: 07,6422 50614 TS DSPCOUNT
021035,001110: 07,6423 20064 INDEX DISTEM
021036,001111: 07,6424 40077 CS BUF
021037,001112: 07,6425 07225 TC DSPOCTWD
021038,001113: 07,6426 30064 XCH DISTEM
021039,001114: 07,6427 06413 TC DSPCOM2 +2
021040,001115:
021041,001116: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
021042,001117: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
021043,001118: # NOUN 01 IS EXCLUDED FROM TEST.
021044,001119: 07,6430 50110 COMPTEST TS SFTEMP1 # - VERB COMP
021045,001120: 07,6431 30001 XCH Q
021046,001121: 07,6432 50111 TS SFTEMP2
021047,001122: 07,6433 44516 COMPTST1 CS ONE
021048,001123: 07,6434 60603 AD NOUNREG
021049,001124: 07,6435 10000 CCS A
021050,001125: 07,6436 06442 TC +4 # NOUN NOT = 01
021051,001126: 07,6437 03070 TC CCSHOLE
021052,001127: 07,6440 06442 TC +2 # NOUN NOT = 01
021053,001128: 07,6441 00111 TC SFTEMP2 # NOUN = 01. ANY COMP OK
021054,001129: 07,6442 20107 INDEX MIXBR
021055,001130: 07,6443 36473 CAF COMPICK -1
021056,001131: 07,6444 20000 INDEX A
021057,001132: 07,6445 40000 CS 0 # MUST NOT DESTROY NNADTEM OR NNTYPTEM
021058,001133: 07,6446 40000 CS A
021059,001134: 07,6447 72261 MASK HI5
021060,001135: 07,6450 03211 TC LEFT5 # NOUN COMP
021061,001136: 07,6451 60110 AD SFTEMP1 # NOUN COMP - VERB COMP
021062,001137: 07,6452 10000 CCS A
021063,001138: 07,6453 00111 TC SFTEMP2 # NOUN COMP G/ VERB COMP
021064,001139: 07,6454 03070 TC CCSHOLE
021065,001140: 07,6455 06356 TC GODSPALM # NOUN COMP L/ VERB COMP
021066,001141: 07,6456 00111 TC SFTEMP2 # NOUN COMP = VERB COMP
021067,001142:
021068,001143:
021069,001144:
021070,001145: 07,6457 30001 TSTFORDP XCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
021071,001146: 07,6460 50063 TS DECOUNT
021072,001147: 07,6461 20107 INDEX MIXBR
021073,001148: 07,6462 06462 TC +0
021074,001149: 07,6463 06465 TC +2 # NORMAL
021075,001150: 07,6464 00063 TC DECOUNT # MIXED CASE ALREADY HANDLED IN MIXNOUN
021076,001151: 07,6465 06740 TC SFRUTNOR
021077,001152: 07,6466 06255 TC DPTEST
021078,001153: 07,6467 00063 TC DECOUNT # NO DP
021079,001154: 07,6470 30624 XCH NOUNADD # DP
021080,001155: 07,6471 64516 AD ONE
021081,001156: 07,6472 50624 TS NOUNADD # E+1 INTO NOUNADD FOR MINOR PART.
021082,001157: 07,6473 00063 TC DECOUNT
021083,001158:
021084,001159:
021085,001160:
021086,001161: 07,6474 00055 COMPICK ADRES NNTYPTEM
021087,001162: 07,6475 00054 ADRES NNADTEM
021088,001163:
021089,001164: 07,6476 20107 DECDSP INDEX MIXBR # NORMAL MIXED
021090,001165: 07,6477 36473 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
021091,001166: 07,6500 20000 INDEX A
021092,001167: 07,6501 40000 CS 0 # MUST NOT DESTROY NNADTEM OR NNTYPTEM
021093,001168: 07,6502 40000 CS A # C(NNTYPTEM) C(NNADTEM)
021094,001169: 07,6503 72261 MASK HI5 # GET HI5 OF NNTYPTAB(NORM) OF NNADTAB(MIX)
021095,001170: 07,6504 03211 TC LEFT5
021096,001171: 07,6505 50063 TS DECOUNT # COMP NUMBER INTO DECOUNT
021097,001172: 07,6506 50064 DSPDCGET TS DECTEM # PICKS UP DATA
021098,001173: 07,6507 60624 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
021099,001174: 07,6510 20000 INDEX A
021100,001175: 07,6511 40000 CS 0
021101,001176: 07,6512 20064 INDEX DECTEM
021102,001177: 07,6513 30604 XCH XREG # CANT USE BUF SINCE DMP USES IT.
021103,001178: 07,6514 10064 CCS DECTEM
021104,001179: 07,6515 06506 TC DSPDCGET # MORE TO GET
021105,001180: 07,6516 35501 DSPDCPUT CAF ZERO # DISPLAYS DATA
021106,001181: 07,6517 50116 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
021107,001182: 07,6520 50117 TS MPAC +2
021108,001183: 07,6521 20063 INDEX DECOUNT
021109,001184: 07,6522 33177 CAF R1D1
021110,001185: 07,6523 50614 TS DSPCOUNT
021111,001186: 07,6524 20063 INDEX DECOUNT
021112,001187: 07,6525 40604 CS XREG
021113,001188: 07,6526 50115 TS MPAC
021114,001189: 07,6527 06756 TC SFCONUM # SF CON NUMB IN A
021115,001190: 07,6530 50111 TS SFTEMP2
021116,001191: 07,6531 05654 TC BANKCALL # SWITCH BANKS TO SF CONSTANT READING
021117,001192: 07,6532 13326 CADR GTSFOUT # ROUTINE. LOADS SFTEMP1, SFTEMP2.
021118,001193: 07,6533 20107 INDEX MIXBR
021119,001194: 07,6534 06534 TC +0
021120,001195: 07,6535 06540 TC DSPSFNOR
021121,001196: 07,6536 06746 TC SFRUTMIX
021122,001197: 07,6537 06551 TC DECDSP3
021123,001198:
021124,001199: 07,6540 06740 DSPSFNOR TC SFRUTNOR
021125,001200: 07,6541 06551 TC DECDSP3
021126,001201:
021127,001202: 07,6542 05654 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
021128,001203: 07,6543 15252 CADR DSPDECWD
021129,001204: 07,6544 10063 CCS DECOUNT
021130,001205: 07,6545 06547 TC +2
021131,001206: 07,6546 00065 TC ENTEXIT
021132,001207: 07,6547 50063 TS DECOUNT
021133,001208: 07,6550 06516 TC DSPDCPUT # MORE TO DISPLAY
021134,001209:
021135,001210:
021136,001211:
021137,001212: 07,6551 20000 DECDSP3 INDEX A
021138,001213: 07,6552 36554 CAF SFOUTABR
021139,001214: 07,6553 05723 TC BANKJUMP
021140,001215:
021141,001216: 07,6554 15453 SFOUTABR CADR DSPALARM # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
021142,001217: 07,6555 16542 CADR DSPDCEND
021143,001218: 07,6556 14637 CADR DEGOUTSF
021144,001219: 07,6557 14743 CADR ARTOUTSF
021145,001220:
021146,001221: 07,6560 14752 CADR DP1OUTSF
021147,001222: 07,6561 14757 CADR DP2OUTSF
021148,001223: 07,6562 14645 CADR OPDEGOUT
021149,001224: 07,6563 14761 CADR DP3OUTSF
021150,001225: 07,6564 ENDRTOUT EQUALS
021151,001226:
021152,001227:
021153,001228:
021154,001229: # THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
021155,001230: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
021156,001231:
021157,001232:
021158,001233:
021159,001234: 06,6637 SETLOC INCNOUT +5
021160,001235:
021161,001236: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
021162,001237: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
021163,001238:
021164,001239: 06,6637 35501 DEGOUTSF CAF ZERO
021165,001240: 06,6640 50117 TS MPAC +2 # SET INDEX FOR FULL SCALE
021166,001241: 06,6641 06707 TC FIXRANGE
021167,001242: 06,6642 06644 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
021168,001243: 06,6643 06700 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
021169,001244: 06,6644 06722 TC DEGCOM
021170,001245:
021171,001246: # OPDEGOUT SCALES BY .09 FOR ONE RANGE AND BY .45 FOR THE OTHER.
021172,001247: # FOR THE .45 RANGE A .2 BIAS IS ALSO ADDED.
021173,001248:
021174,001249:
021175,001250: 06,6645 34502 OPDEGOUT CAF BIT13
021176,001251: 06,6646 70730 MASK WASOPSET
021177,001252: 06,6647 10000 CCS A
021178,001253: 06,6650 06653 TC +3
021179,001254: 06,6651 34516 CAF ONE # 180 DEG RANGE
021180,001255: 06,6652 06640 TC DEGOUTSF +1
021181,001256: 06,6653 10115 CCS MPAC # 90 DEG RANGE
021182,001257: 06,6654 30115 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
021183,001258: 06,6655 06660 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
021184,001259: 06,6656 06670 TC NEGOPT # IF NEG NON ZERO
021185,001260: 06,6657 64335 AD NEG1 # IF NEG ZERO SUBTRACT 1
021186,001261: 06,6660 66742 AD 20BIAS
021187,001262: 06,6661 50115 BIASCOM TS MPAC # TEST FOR OVERFLOW
021188,001263: 06,6662 06666 TC +4 # NO OVFLOW
021189,001264: 06,6663 34500 CAF BIT15 # IF OVFLOW
021190,001265: 06,6664 60115 AD MPAC
021191,001266: 06,6665 50115 TS MPAC
021192,001267: 06,6666 35503 CAF TWO # SET MULTIPLIER TO .45
021193,001268: 06,6667 06640 TC DEGOUTSF +1
021194,001269:
021195,001270: 06,6670 30115 NEGOPT XCH MPAC # NEGATIVE CASE
021196,001271: 06,6671 66742 AD 20BIAS
021197,001272: 06,6672 10000 CCS A
021198,001273: 06,6673 06661 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
021199,001274: 06,6674 03070 TC CCSHOLE
021200,001275: 06,6675 64516 AD ONE # IF NEG RESTORE SUM
021201,001276: 06,6676 40000 COM # IF NEG 0 LEAVE NEG 0
021202,001277: 06,6677 06661 TC BIASCOM
021203,001278:
021204,001279: 06,6700 20117 SETAUG INDEX MPAC +2 # LOADS SFTEMP1 AND SFTEMP2 WITH THE
021205,001280: 06,6701 36737 CAF DEGTAB2 # DP AUGMENTER CONSTANT
021206,001281: 06,6702 50111 TS SFTEMP2
021207,001282: 06,6703 20117 INDEX MPAC +2
021208,001283: 06,6704 36734 CAF DEGTAB1
021209,001284: 06,6705 50110 TS SFTEMP1
021210,001285: 06,6706 00001 TC Q
021211,001286:
021212,001287: 06,6707 30001 FIXRANGE XCH Q # IF MPAC IS + RETURN TO L+1
021213,001288: 06,6710 50106 TS WDRET # IF MPAC IS - RETURN TO L+2 AFTER
021214,001289: 06,6711 10115 CCS MPAC # MASKING OUT THE SIGN BIT
021215,001290: 06,6712 00106 TC WDRET
021216,001291: 06,6713 00106 TC WDRET
021217,001292: 06,6714 06715 TC +1
021218,001293: 06,6715 44500 CS BIT15
021219,001294: 06,6716 70115 MASK MPAC
021220,001295: 06,6717 50115 TS MPAC
021221,001296: 06,6720 20106 INDEX WDRET
021222,001297: 06,6721 00001 TC 1
021223,001298:
021224,001299: 06,6722 20117 DEGCOM INDEX MPAC +2 # LOADS MULTIPLIER, DOES SHORTMP, AND
021225,001300: 06,6723 36737 CAF DEGTAB2 # ADDS AUGMENTER.
021226,001301: 06,6724 50116 TS MPAC +1
021227,001302: 06,6725 20117 INDEX MPAC +2
021228,001303: 06,6726 36734 CAF DEGTAB1
021229,001304: 06,6727 30115 XCH MPAC # ADJUSTED ANGLE IN A
021230,001305: 06,6730 05416 TC SHORTMP
021231,001306: 06,6731 05171 TC DAD
021232,001307: 06,6732 00110 ADRES SFTEMP1
021233,001308: 06,6733 06750 TC SCOUTEND
021234,001309:
021235,001310:
021236,001311:
021237,001312: 06,6734 05605 DEGTAB1 OCT 05605 # HIGH PART OF .18
021238,001313: 06,6735 02702 OCT 02702 # .09
021239,001314: 06,6736 16314 OCT 16314 # .45
021240,001315:
021241,001316: 06,6737 03656 DEGTAB2 OCT 03656 # LOW PART OF .18
021242,001317: 06,6740 21727 OCT 21727 # .09
021243,001318: 06,6741 31463 OCT 31463 # .45
021244,001319:
021245,001320: 06,6742 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
021246,001321:
021247,001322: 06,6743 30111 ARTOUTSF XCH SFTEMP2 # ASSUMES POINT AT LEFT OF DP SFCON.
021248,001323: 06,6744 50116 TS MPAC +1
021249,001324: 06,6745 30110 XCH SFTEMP1 # HI PART OF SFCONSTANT
021250,001325: 06,6746 30115 XCH MPAC
021251,001326: 06,6747 05416 TC SHORTMP
021252,001327: 06,6750 05720 SCOUTEND TC POSTJUMP
021253,001328: 06,6751 16542 CADR DSPDCEND
021254,001329:
021255,001330: 06,6752 06764 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
021256,001331: 06,6753 30117 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
021257,001332: 06,6754 30116 XCH MPAC +1 # BY B14.
021258,001333: 06,6755 50115 TS MPAC
021259,001334: 06,6756 06750 TC SCOUTEND
021260,001335:
021261,001336:
021262,001337:
021263,001338: 06,6757 06764 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
021264,001339: 06,6760 06750 TC SCOUTEND
021265,001340:
021266,001341:
021267,001342:
021268,001343: 06,6761 06764 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
021269,001344: 06,6762 07224 TC TPLEFT7 # PART OF SFCON. SHIFTS RESULTS LEFT 7.
021270,001345: 06,6763 06750 TC SCOUTEND
021271,001346:
021272,001347:
021273,001348:
021274,001349: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
021275,001350: # THIS IS NEEDED FOR TIME DISPLAY.
021276,001351:
021277,001352: 06,6764 30001 DPOUT XCH Q
021278,001353: 06,6765 50122 TS OVFIND
021279,001354: 06,6766 20107 INDEX MIXBR
021280,001355: 06,6767 06767 TC +0
021281,001356: 06,6770 07025 TC DPOUTNOR
021282,001357: 06,6771 20063 INDEX DECOUNT
021283,001358: 06,6772 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
021284,001359: 06,6773 40000 CS A # OF NOUN.
021285,001360: 06,6774 74606 MASK LOW10 # E SUBK
021286,001361: 06,6775 50117 DPOUTCOM TS MPAC +2
021287,001362: 06,6776 20017 INHINT
021288,001363: 06,6777 20117 INDEX MPAC +2
021289,001364: 06,7000 40000 CS 0 # MIXED NORMAL
021290,001365: 06,7001 40000 COM # C(ESUBK) C(E)
021291,001366: 06,7002 30115 XCH MPAC
021292,001367: 06,7003 20117 INDEX MPAC +2
021293,001368: 06,7004 40001 CS 1 # C((E SUBK)+1) C(E+1)
021294,001369: 06,7005 20016 RELINT
021295,001370: 06,7006 40000 COM
021296,001371: 06,7007 30116 XCH MPAC +1
021297,001372: 06,7010 10116 CCS MPAC +1 # TEST IF LOW PART +0 IN CASE PICKING UP
021298,001373: 06,7011 07014 TC +3 # TIME, IF SO COULD HAVE OVFLOD, SO GET
021299,001374: 06,7012 07021 TC +0CASE # UP TO DATE HIGH PART. IF NOT +0, NO
021300,001375: 06,7013 07014 TC +1 # PROBLEM.
021301,001376: 06,7014 05157 +0RET TC DMP
021302,001377: 06,7015 50107 XCADR SFTEMP1
021303,001378: 06,7016 05654 TC BANKCALL
021304,001379: 06,7017 07154 CADR TPAGREE
021305,001380: 06,7020 00122 TC OVFIND
021306,001381:
021307,001382: 06,7021 20117 +0CASE INDEX MPAC +2
021308,001383: 06,7022 60000 AD 0
021309,001384: 06,7023 30115 XCH MPAC
021310,001385: 06,7024 07014 TC +0RET
021311,001386:
021312,001387: 06,7025 40624 DPOUTNOR CS NOUNADD
021313,001388: 06,7026 40000 CS A # E
021314,001389: 06,7027 06775 TC DPOUTCOM
021315,001390:
021316,001391: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
021317,001392: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
021318,001393: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
021319,001394: # OF THE REGISTER NOUNADD IS POINTING TO. IF USED WITH NOUNS WHICH ARE
021320,001395: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
021321,001396: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
021322,001397:
021323,001398:
021324,001399:
021325,001400: 06,7030 20107 DSPDPDEC INDEX MIXBR
021326,001401: 06,7031 07031 TC +0
021327,001402: 06,7032 07034 TC +2 # NORMAL NOUN
021328,001403: 06,7033 07453 TC DSPALARM
021329,001404: 06,7034 20624 INDEX NOUNADD
021330,001405: 06,7035 40000 CS 0
021331,001406: 06,7036 40000 COM
021332,001407: 06,7037 30115 XCH MPAC # LOAD MPAC WITH HIGH ORDER PART
021333,001408: 06,7040 20624 INDEX NOUNADD
021334,001409: 06,7041 40001 CS 1
021335,001410: 06,7042 40000 COM
021336,001411: 06,7043 30116 XCH MPAC +1 # LOAD MPAC+1 WITH LOW ORDER PART
021337,001412: 06,7044 33177 CAF R1D1
021338,001413: 06,7045 50614 TS DSPCOUNT
021339,001414: 06,7046 35501 CAF ZERO
021340,001415: 06,7047 50117 TS MPAC +2
021341,001416: 06,7050 05654 TC BANKCALL
021342,001417: 06,7051 07154 CADR TPAGREE
021343,001418: 06,7052 07326 TC DSP2DEC
021344,001419: 06,7053 00065 ENDDPDEC TC ENTEXIT
021345,001420:
021346,001421:
021347,001422: # LOAD VERBS
021348,001423:
021349,001424:
021350,001425:
021351,001426: 07,6564 SETLOC ENDRTOUT
021352,001427:
021353,001428: 07,6564 45503 ABCLOAD CS TWO
021354,001429: 07,6565 06430 TC COMPTEST
021355,001430: 07,6566 36715 CAF VBSP1LD
021356,001431: 07,6567 06345 TC UPDATVB -1
021357,001432: 07,6570 06274 TC REQDATX
021358,001433: 07,6571 36716 CAF VBSP2LD
021359,001434: 07,6572 06345 TC UPDATVB -1
021360,001435: 07,6573 06300 TC REQDATY
021361,001436: 07,6574 36717 CAF VBSP3LD
021362,001437: 07,6575 06345 TC UPDATVB -1
021363,001438: 07,6576 06304 TC REQDATZ
021364,001439:
021365,001440:
021366,001441:
021367,001442: 07,6577 44475 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
021368,001443: 07,6600 06720 TC ALLDC/OC # ALL DEC OR ALL OCT.
021369,001444: 07,6601 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
021370,001445: 07,6602 05662 TC SWCALL # ROUTINE.
021371,001446: 07,6603 35501 CAF ZERO # X COMP
021372,001447: 07,6604 07000 TC PUTCOM
021373,001448: 07,6605 20624 INDEX NOUNADD
021374,001449: 07,6606 50000 TS 0
021375,001450: 07,6607 34516 CAF ONE # Y COMP
021376,001451: 07,6610 07000 TC PUTCOM
021377,001452: 07,6611 20624 INDEX NOUNADD
021378,001453: 07,6612 50001 TS 1
021379,001454: 07,6613 35503 CAF TWO # Z COMP
021380,001455: 07,6614 07000 TC PUTCOM
021381,001456: 07,6615 20624 INDEX NOUNADD
021382,001457: 07,6616 50002 TS 2
021383,001458: 07,6617 06705 TC LOADLV
021384,001459:
021385,001460: 07,6620 44516 ABLOAD CS ONE
021386,001461: 07,6621 06430 TC COMPTEST
021387,001462: 07,6622 36715 CAF VBSP1LD
021388,001463: 07,6623 06345 TC UPDATVB -1
021389,001464: 07,6624 06274 TC REQDATX
021390,001465: 07,6625 36716 CAF VBSP2LD
021391,001466: 07,6626 06345 TC UPDATVB -1
021392,001467: 07,6627 06300 TC REQDATY
021393,001468: 07,6630 44477 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
021394,001469: 07,6631 06720 TC ALLDC/OC # ALL DEC OR ALL OCT.
021395,001470: 07,6632 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
021396,001471: 07,6633 05662 TC SWCALL # ROUTINE.
021397,001472: 07,6634 35501 CAF ZERO # X COMP
021398,001473: 07,6635 07000 TC PUTCOM
021399,001474: 07,6636 20624 INDEX NOUNADD
021400,001475: 07,6637 50000 TS 0
021401,001476: 07,6640 34516 CAF ONE # Y COMP
021402,001477: 07,6641 07000 TC PUTCOM
021403,001478: 07,6642 20624 INDEX NOUNADD
021404,001479: 07,6643 50001 TS 1
021405,001480: 07,6644 06705 TC LOADLV
021406,001481:
021407,001482: 07,6645 06274 ALOAD TC REQDATX
021408,001483: 07,6646 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
021409,001484: 07,6647 05662 TC SWCALL # ROUTINE.
021410,001485: 07,6650 35501 CAF ZERO # X COMP
021411,001486: 07,6651 07000 TC PUTCOM
021412,001487: 07,6652 20624 INDEX NOUNADD
021413,001488: 07,6653 50000 TS 0
021414,001489: 07,6654 06705 TC LOADLV
021415,001490:
021416,001491: 07,6655 44516 BLOAD CS ONE
021417,001492: 07,6656 06430 TC COMPTEST
021418,001493: 07,6657 34500 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
021419,001494: 07,6660 50633 TS CLPASS
021420,001495: 07,6661 06300 TC REQDATY
021421,001496: 07,6662 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
021422,001497: 07,6663 05662 TC SWCALL # ROUTINE.
021423,001498: 07,6664 34516 CAF ONE
021424,001499: 07,6665 07000 TC PUTCOM
021425,001500: 07,6666 20624 INDEX NOUNADD
021426,001501: 07,6667 50001 TS 1
021427,001502: 07,6670 06705 TC LOADLV
021428,001503:
021429,001504: 07,6671 45503 CLOAD CS TWO
021430,001505: 07,6672 06430 TC COMPTEST
021431,001506: 07,6673 34500 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
021432,001507: 07,6674 50633 TS CLPASS
021433,001508: 07,6675 06304 TC REQDATZ
021434,001509: 07,6676 36107 CAF LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
021435,001510: 07,6677 05662 TC SWCALL # ROUTINE.
021436,001511: 07,6700 35503 CAF TWO
021437,001512: 07,6701 07000 TC PUTCOM
021438,001513: 07,6702 20624 INDEX NOUNADD
021439,001514: 07,6703 50002 TS 2
021440,001515: 07,6704 06705 TC LOADLV
021441,001516:
021442,001517: 07,6705 35501 LOADLV CAF ZERO
021443,001518: 07,6706 50615 TS DECBRNCH
021444,001519: 07,6707 45501 CS ZERO
021445,001520: 07,6710 50632 TS LOADSTAT
021446,001521: 07,6711 43235 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
021447,001522: 07,6712 50614 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
021448,001523: 07,6713 05720 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
021449,001524: 07,6714 15611 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
021450,001525:
021451,001526: 07,6715 00021 VBSP1LD OCT 21 # VB21 = ALOAD
021452,001527: 07,6716 00022 VBSP2LD OCT 22 # VB22 = BLOAD
021453,001528: 07,6717 00023 VBSP3LD OCT 23 # VB23 = CLOAD
021454,001529:
021455,001530:
021456,001531:
021457,001532: 07,6720 50063 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
021458,001533: 07,6721 30001 XCH Q # ALL DEC OR ALL OCT. ALARMS IF NOT.
021459,001534: 07,6722 50106 TS DECRET
021460,001535: 07,6723 40615 CS DECBRNCH
021461,001536: 07,6724 50021 TS SR
021462,001537: 07,6725 40021 CS SR
021463,001538: 07,6726 40021 CS SR # SHIFTED RIGHT 2
021464,001539: 07,6727 10000 CCS A # DEC COMP BITS IN LOW 3
021465,001540: 07,6730 06732 TC +2 # SOME ONES IN LOW 3
021466,001541: 07,6731 00106 TC DECRET # ALL ZEROS. ALL OCTAL. OK
021467,001542: 07,6732 60063 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
021468,001543: 07,6733 10000 CCS A # (BUT IT HAS BEEN DECREMENTED BY CCS)
021469,001544: 07,6734 06356 TC GODSPALM # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
021470,001545: 07,6735 03070 TC CCSHOLE
021471,001546: 07,6736 06356 TC GODSPALM
021472,001547: 07,6737 00106 TC DECRET # ALL REQUIRED ARE DEC. OK
021473,001548:
021474,001549:
021475,001550:
021476,001551: 07,6740 30001 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
021477,001552: 07,6741 50112 TS EXITEM
021478,001553: 07,6742 33227 CAF MID5
021479,001554: 07,6743 70055 MASK NNTYPTEM
021480,001555: 07,6744 03202 TC RIGHT5
021481,001556: 07,6745 00112 TC EXITEM # SF ROUTINE NUMBER IN A
021482,001557:
021483,001558: 07,6746 30001 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
021484,001559: 07,6747 50112 TS EXITEM
021485,001560: 07,6750 20063 INDEX DECOUNT
021486,001561: 07,6751 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
021487,001562: 07,6752 40000 CS A # OF NOUN.
021488,001563: 07,6753 72261 MASK HI5
021489,001564: 07,6754 03211 TC LEFT5
021490,001565: 07,6755 00112 TC EXITEM # SF ROUTINE NUMBER IN A
021491,001566:
021492,001567: 07,6756 30001 SFCONUM XCH Q # GETS SF CONSTANT NUMBER
021493,001568: 07,6757 50112 TS EXITEM
021494,001569: 07,6760 20107 INDEX MIXBR
021495,001570: 07,6761 06761 TC +0
021496,001571: 07,6762 06775 TC CONUMNOR # NORMAL NOUN
021497,001572: 07,6763 20063 INDEX DECOUNT # MIXED NOUN
021498,001573: 07,6764 33226 CAF LOW5
021499,001574: 07,6765 70055 MASK NNTYPTEM
021500,001575: 07,6766 20063 INDEX DECOUNT
021501,001576: 07,6767 26772 INDEX DISPLACE
021502,001577: 07,6770 00000 TC 0
021503,001578: # DO TC SFRET (DECOUNT=0),DO TC RIGHT5(DECOUNT=1), DO TC LEFT5 (DECOUNT=2)
021504,001579: 07,6771 00112 SFRET TC EXITEM # SF CON NUMBER IN A
021505,001580:
021506,001581: 07,6772 06771 DISPLACE TC SFRET
021507,001582: 07,6773 03202 TC RIGHT5
021508,001583: 07,6774 03211 TC LEFT5
021509,001584:
021510,001585: 07,6775 33226 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
021511,001586: 07,6776 70055 MASK NNTYPTEM
021512,001587: 07,6777 00112 TC EXITEM
021513,001588:
021514,001589:
021515,001590:
021516,001591: 07,7000 50063 PUTCOM TS DECOUNT
021517,001592: 07,7001 30001 XCH Q
021518,001593: 07,7002 50106 TS DECRET
021519,001594: 07,7003 35501 CAF ZERO
021520,001595: 07,7004 50122 TS OVFIND
021521,001596: 07,7005 20063 INDEX DECOUNT
021522,001597: 07,7006 30607 XCH XREGLP
021523,001598: 07,7007 50116 TS MPAC +1
021524,001599: 07,7010 20063 INDEX DECOUNT
021525,001600: 07,7011 30604 XCH XREG
021526,001601: 07,7012 50115 TS MPAC
021527,001602: 07,7013 20107 INDEX MIXBR
021528,001603: 07,7014 07014 TC +0
021529,001604: 07,7015 07043 TC PUTNORM # NORMAL NOUN
021530,001605: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD
021531,001606: 07,7016 20063 INDEX DECOUNT
021532,001607: 07,7017 40056 CS IDAD1TEM # GET IDADDTAB ENTRY FOR COMPONENT K
021533,001608: 07,7020 40000 CS A # OF NOUN.
021534,001609: 07,7021 74606 MASK LOW10 # EK FOR CURRENT NOUN
021535,001610: 07,7022 25777 EXTEND
021536,001611: 07,7023 60063 SU DECOUNT
021537,001612: 07,7024 50624 TS NOUNADD # PLACE (E SUB K) - K INTO NOUNADD
021538,001613: 07,7025 10615 CCS DECBRNCH
021539,001614: 07,7026 07055 TC PUTDECSF # + DEC
021540,001615: 07,7027 06746 TC SFRUTMIX # +0 OCTAL
021541,001616: 07,7030 06255 TC DPTEST
021542,001617: 07,7031 07053 TC PUTCOM2 # NO DP
021543,001618: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
021544,001619: # +0 INTO MAJOR PART. SET NOUNADD FOR
021545,001620: # LOADING OCTAL WORD INTO MINOR PART.
021546,001621: 07,7032 34516 PUTDPCOM CAF ONE # DP
021547,001622: 07,7033 60624 AD NOUNADD
021548,001623: 07,7034 50624 TS NOUNADD # (ESUBK)-K+1 OR E+1
021549,001624: 07,7035 60063 AD DECOUNT # NOUNADD NOW SET FOR MINOR PART
021550,001625: 07,7036 50063 TS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
021551,001626: 07,7037 35501 CAF ZERO # NOUNADD SET FOR MINOR PART
021552,001627: 07,7040 20063 INDEX DECOUNT
021553,001628: 07,7041 47777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
021554,001629: 07,7042 07053 TC PUTCOM2
021555,001630:
021556,001631: 07,7043 10615 PUTNORM CCS DECBRNCH
021557,001632: 07,7044 07055 TC PUTDECSF # + DEC
021558,001633: 07,7045 06740 TC SFRUTNOR # +0 OCTAL
021559,001634: 07,7046 06255 TC DPTEST
021560,001635: 07,7047 07053 TC PUTCOM2 # NO DP
021561,001636: 07,7050 35501 CAF ZERO
021562,001637: 07,7051 50063 TS DECOUNT
021563,001638: 07,7052 07032 TC PUTDPCOM
021564,001639:
021565,001640: 07,7053 30115 PUTCOM2 XCH MPAC
021566,001641: 07,7054 00106 TC DECRET
021567,001642:
021568,001643: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
021569,001644:
021570,001645: 07,7055 06756 PUTDECSF TC SFCONUM # SF CON NUMB IN A
021571,001646: 07,7056 50111 TS SFTEMP2
021572,001647: 07,7057 05654 TC BANKCALL # SWITCH BANKS TO SF CONSTANT READING
021573,001648: 07,7060 13335 CADR GTSFIN # ROUTINE. LOADS SFTEMP1, SFTEMP2.
021574,001649: 07,7061 20107 INDEX MIXBR
021575,001650: 07,7062 07062 TC +0
021576,001651: 07,7063 07066 TC PUTSFNOR
021577,001652: 07,7064 06746 TC SFRUTMIX
021578,001653: 07,7065 07067 TC PUTDCSF2
021579,001654: 07,7066 06740 PUTSFNOR TC SFRUTNOR
021580,001655:
021581,001656: 07,7067 20000 PUTDCSF2 INDEX A
021582,001657: 07,7070 37072 CAF SFINTABR
021583,001658: 07,7071 05723 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
021584,001659: 07,7072 15453 SFINTABR CADR DSPALARM # ALARM IF DEC LOAD WITH OCTAL ONLY NOUN
021585,001660: 07,7073 15140 CADR BINROUND
021586,001661: 07,7074 15054 CADR DEGINSF
021587,001662: 07,7075 15127 CADR ARTHINSF
021588,001663: 07,7076 15172 CADR DPINSF
021589,001664: 07,7077 15220 CADR DPINSF2
021590,001665: 07,7100 15143 CADR OPTDEGIN
021591,001666: 07,7101 15172 CADR DPINSF # SAME AS ARITHDP1
021592,001667: 07,7102 ENDRUTIN EQUALS
021593,001668:
021594,001669:
021595,001670:
021596,001671: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
021597,001672: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
021598,001673:
021599,001674:
021600,001675:
021601,001676: 06,7054 SETLOC ENDDPDEC +1
021602,001677:
021603,001678: # DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8)
021604,001679:
021605,001680: 06,7054 05157 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
021606,001681: 06,7055 57121 XCADR DEGCON1 # MULT BY 5.5 5(10)X2/-3
021607,001682: 06,7056 10116 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
021608,001683: 06,7057 34504 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
021609,001684: 06,7060 07062 TC +2 # WHEN SHIFTED LEFT AND ALARM.
021610,001685: 06,7061 44504 CS BIT11
021611,001686: 06,7062 60116 AD MPAC +1
021612,001687: 06,7063 07237 TC 2ROUND +2
021613,001688: 06,7064 05654 TC BANKCALL # LEFT 1
021614,001689: 06,7065 06367 CADR SL1 +3
021615,001690: 06,7066 05654 DEGINSF2 TC BANKCALL # LEFT 2
021616,001691: 06,7067 06367 CADR SL1 +3
021617,001692: 06,7070 07246 TC TESTOFUF
021618,001693: 06,7071 05654 TC BANKCALL # RETURNS IF NO OF/UF
021619,001694: 06,7072 06367 CADR SL1 +3 # LEFT 3
021620,001695: 06,7073 10115 CCS MPAC
021621,001696: 06,7074 07100 TC SIGNFIX # IF +, GO TO SIGNFIX
021622,001697: 06,7075 07100 TC SIGNFIX # IF +0, GO TO SIGNFIX
021623,001698: 06,7076 40000 COM # IF - , USE -MAGNITUDE +1
021624,001699: 06,7077 50115 TS MPAC # IF -0, USE +0
021625,001700: 06,7100 10122 SIGNFIX CCS OVFIND
021626,001701: 06,7101 07116 TC SGNTO1 # IF OVERFLOW
021627,001702: 06,7102 07112 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
021628,001703: 06,7103 10115 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
021629,001704: 06,7104 03070 TC CCSHOLE
021630,001705: 06,7105 07114 TC NEG180
021631,001706: 06,7106 07107 TC +1
021632,001707: 06,7107 30115 XCH MPAC
021633,001708: 06,7110 74476 MASK POSMAX
021634,001709: 06,7111 50115 TS MPAC
021635,001710: 06,7112 05720 ENDSCALE TC POSTJUMP
021636,001711: 06,7113 17053 CADR PUTCOM2
021637,001712:
021638,001713: 06,7114 44476 NEG180 CS POSMAX
021639,001714: 06,7115 07111 TC ENDSCALE -1
021640,001715:
021641,001716: 06,7116 40115 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
021642,001717: 06,7117 74476 MASK POSMAX
021643,001718: 06,7120 40000 CS A
021644,001719: 06,7121 07111 TC ENDSCALE -1
021645,001720:
021646,001721: 06,7122 26161 30707 DEGCON1 2DEC 5.555555555 B-3
021647,001722: 06,7124 21616 07071 DEGCON2 2DEC 2.222222222 B-2
021648,001723: 06,7126 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
021649,001724:
021650,001725: 06,7127 05157 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
021651,001726: 06,7130 50107 XCADR SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
021652,001727: 06,7131 30117 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
021653,001728: 06,7132 30116 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
021654,001729: 06,7133 30115 XCH MPAC
021655,001730: 06,7134 10000 CCS A
021656,001731: 06,7135 07453 TC DSPALARM # TOO LARGE A LOAD
021657,001732: 06,7136 07140 TC BINROUND
021658,001733: 06,7137 07453 TC DSPALARM # TOO LARGE A LOAD
021659,001734: 06,7140 07235 BINROUND TC 2ROUND
021660,001735: 06,7141 07246 TC TESTOFUF
021661,001736: 06,7142 07112 TC ENDSCALE # RETURNS IF NO OF/UF
021662,001737:
021663,001738:
021664,001739:
021665,001740: 06,7143 10115 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
021666,001741: 06,7144 07150 TC +4
021667,001742: 06,7145 07150 TC +3
021668,001743: 06,7146 07453 TC DSPALARM # REJECT - INPUT. ALARM
021669,001744: 06,7147 07453 TC DSPALARM # DITTO
021670,001745:
021671,001746: 06,7150 34502 CAF BIT13
021672,001747: 06,7151 70730 MASK WASOPSET
021673,001748: 06,7152 10000 CCS A
021674,001749: 06,7153 07161 TC OPDEGIN2
021675,001750: 06,7154 05157 TC DMP # RANGE IS 180 DEG
021676,001751: 06,7155 57121 XCADR DEGCON1
021677,001752: 06,7156 05654 TC BANKCALL
021678,001753: 06,7157 06367 CADR SL1 +3
021679,001754: 06,7160 07056 TC DEGINSF +2
021680,001755:
021681,001756:
021682,001757: 06,7161 30115 OPDEGIN2 XCH MPAC # RANGE IS 90 DEG
021683,001758: 06,7162 67126 AD NEG.2 # SUBTRACT BIAS
021684,001759: 06,7163 50115 TS MPAC
021685,001760: 06,7164 05157 TC DMP # MULT BY 100 / 45 B-2
021686,001761: 06,7165 57123 XCADR DEGCON2
021687,001762: 06,7166 34503 CAF BIT12 # ROUND AS IN DEGINSF
021688,001763: 06,7167 60116 AD MPAC +1
021689,001764: 06,7170 07237 TC 2ROUND +2
021690,001765: 06,7171 07066 TC DEGINSF2
021691,001766:
021692,001767: 06,7172 05157 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
021693,001768: 06,7173 50107 XCADR SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
021694,001769: 06,7174 30117 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
021695,001770: 06,7175 60000 DOUBLE
021696,001771: 06,7176 50117 TS MPAC +2
021697,001772: 06,7177 35501 CAF ZERO
021698,001773: 06,7200 60116 AD MPAC +1
021699,001774: 06,7201 07237 TC 2ROUND +2
021700,001775: 06,7202 07246 TC TESTOFUF
021701,001776: 06,7203 20107 INDEX MIXBR # RETURNS IF NO OF/UF
021702,001777: 06,7204 07204 TC +0
021703,001778: 06,7205 07216 TC DPINORM
021704,001779: 06,7206 30063 XCH DECOUNT # MIXEDNOUN
021705,001780: 06,7207 50063 TS DECOUNT
021706,001781: 06,7210 60624 DPINCOM AD NOUNADD # MIXED NORMAL
021707,001782: 06,7211 50001 TS Q # E SUBK E
021708,001783: 06,7212 30116 XCH MPAC +1
021709,001784: 06,7213 20001 INDEX Q
021710,001785: 06,7214 50001 TS 1 # PLACE LOW PART IN
021711,001786: 06,7215 07112 TC ENDSCALE # (E SUBK) +1 MIXED
021712,001787: 06,7216 35501 DPINORM CAF ZERO # E +1 NORMAL
021713,001788: 06,7217 07210 TC DPINCOM
021714,001789:
021715,001790:
021716,001791:
021717,001792: 06,7220 05157 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
021718,001793: 06,7221 50107 XCADR SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
021719,001794: 06,7222 07224 TC TPLEFT7 # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
021720,001795: 06,7223 07174 TC DPINSF +2
021721,001796:
021722,001797: 06,7224 30001 TPLEFT7 XCH Q # OPERATES ON MPAC, MPAC+1, MPAC+2
021723,001798: 06,7225 50111 TS SFTEMP2
021724,001799: 06,7226 34475 CAF SIX # LEFT BY 7
021725,001800: 06,7227 50110 LEFT7COM TS SFTEMP1
021726,001801: 06,7230 05654 TC BANKCALL
021727,001802: 06,7231 06364 CADR SL1
021728,001803: 06,7232 10110 CCS SFTEMP1
021729,001804: 06,7233 07227 TC LEFT7COM
021730,001805: 06,7234 00111 TC SFTEMP2
021731,001806:
021732,001807:
021733,001808:
021734,001809: 06,7235 30116 2ROUND XCH MPAC +1
021735,001810: 06,7236 60000 DOUBLE
021736,001811: 06,7237 50116 TS MPAC +1
021737,001812: 06,7240 00001 TC Q # IF MPAC+1 DOES NOT OF/UF
021738,001813: 06,7241 60115 AD MPAC
021739,001814: 06,7242 50115 TS MPAC
021740,001815: 06,7243 00001 TC Q # IF MPAC DOES NOT OF/UF
021741,001816: 06,7244 50122 TS OVFIND
021742,001817: 06,7245 00001 2RNDEND TC Q
021743,001818:
021744,001819:
021745,001820:
021746,001821: 06,7246 10122 TESTOFUF CCS OVFIND # RETURNS IF NO OF/UF
021747,001822: 06,7247 07453 TC DSPALARM # OF
021748,001823: 06,7250 00001 TC Q
021749,001824: 06,7251 07453 TC DSPALARM # UF
021750,001825:
021751,001826:
021752,001827: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
021753,001828: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
021754,001829:
021755,001830: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
021756,001831: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
021757,001832: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
021758,001833: # NOUNADD IN MONSAVE1, IF NOUN = MACHINE ADDRESS TO BE SPECIFIED. BIT 15 OF
021759,001834: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
021760,001835:
021761,001836: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
021762,001837: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
021763,001838: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
021764,001839:
021765,001840: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
021766,001841:
021767,001842: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
021768,001843: # AND MONSAVE1 (TURNING OFF KILLER BIT).
021769,001844:
021770,001845:
021771,001846:
021772,001847: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
021773,001848:
021774,001849: 07,7102 SETLOC ENDRUTIN
021775,001850:
021776,001851: 07,7102 44500 MONITOR CS BIT15
021777,001852: 07,7103 70624 MASK NOUNADD
021778,001853: 07,7104 50116 MONIT1 TS MPAC +1 # TEMP STORAGE
021779,001854: 07,7105 37420 CAF LOW6
021780,001855: 07,7106 70602 MASK VERBREG
021781,001856: 07,7107 03211 TC LEFT5
021782,001857: 07,7110 50022 TS CYL
021783,001858: 07,7111 30022 XCH CYL
021784,001859: 07,7112 60603 AD NOUNREG
021785,001860: 07,7113 50115 TS MPAC # TEMP STORAGE
021786,001861: 07,7114 40630 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
021787,001862: 07,7115 65503 AD TWO
021788,001863: 07,7116 10000 CCS A
021789,001864: 07,7117 03364 TC RELDSP1 # GRABLOCK=0,1. +0 INTO DSPLOCK AND
021790,001865: 07,7120 07123 TC +3 # TURN OFF KEY RLSE LIGHT.
021791,001866: 07,7121 03070 TC CCSHOLE
021792,001867: 07,7122 03265 TC DSPLOCK0 # GRABLOCK=2. +0 INTO DSPLOCK (BIT4 OF
021793,001868: # STATE) AND LEAVE KEY RELEASE LIGHT ALONE
021794,001869: 07,7123 20017 INHINT
021795,001870: 07,7124 10625 CCS MONSAVE
021796,001871: 07,7125 07131 TC +4 # IF MONSAVE WAS +, NO REQUEST
021797,001872: 07,7126 34516 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
021798,001873: 07,7127 02173 TC WAITLIST
021799,001874: 07,7130 17137 CADR MONREQ
021800,001875: 07,7131 30115 XCH MPAC
021801,001876: 07,7132 50625 TS MONSAVE # PLACE MONITOR VERB AND NOUN INTO MONSAVE
021802,001877: 07,7133 30116 XCH MPAC +1
021803,001878: 07,7134 50626 TS MONSAVE1 # ZERO THE KILL MONITOR BIT
021804,001879: 07,7135 20016 RELINT
021805,001880: 07,7136 00065 TC ENTRET
021806,001881:
021807,001882:
021808,001883:
021809,001884: 07,7137 02700 MONREQ TC READTIME +1 # CALLED BY WAITLIST
021810,001885: 07,7140 02737 TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65
021811,001886: 07,7141 10626 CCS MONSAVE1
021812,001887: 07,7142 07146 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
021813,001888: 07,7143 07146 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
021814,001889: 07,7144 07155 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
021815,001890: 07,7145 07155 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
021816,001891: 07,7146 37161 CAF MONDEL
021817,001892: 07,7147 02173 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
021818,001893: 07,7150 17137 CADR MONREQ
021819,001894: 07,7151 32164 CAF PRIO31
021820,001895: 07,7152 02052 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
021821,001896: 07,7153 17162 CADR MONDO
021822,001897: 07,7154 02256 TC TASKOVER
021823,001898:
021824,001899: 07,7155 35501 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
021825,001900: 07,7156 50625 TS MONSAVE
021826,001901: 07,7157 50626 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
021827,001902: 07,7160 02256 TC TASKOVER
021828,001903:
021829,001904:
021830,001905:
021831,001906: 07,7161 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
021832,001907:
021833,001908:
021834,001909:
021835,001910: 07,7162 10626 MONDO CCS MONSAVE1 # CALLED BY EXEC
021836,001911: 07,7163 07167 TC +4 # IF KILLER BIT = 0, CONTINUE
021837,001912: 07,7164 07167 TC +3 # IF KILLER BIT = 0, CONTINUE
021838,001913: 07,7165 02124 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
021839,001914: 07,7166 02124 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
021840,001915: 07,7167 03302 TC TSTDSPLK # PERFORMS CCS DSPLOCK
021841,001916: 07,7170 07214 TC MONBUSY # NVSUB IS BUSY
021842,001917: 07,7171 37420 CAF LOW6 # NVSUB IS AVAILABLE
021843,001918: 07,7172 70625 MASK MONSAVE
021844,001919: 07,7173 50110 TS NVTEMP
021845,001920: 07,7174 03127 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
021846,001921: 07,7175 02124 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
021847,001922: 07,7176 37212 CAF MONMASK
021848,001923: 07,7177 70625 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
021849,001924: 07,7200 03202 TC RIGHT5
021850,001925: 07,7201 50020 TS CYR
021851,001926: 07,7202 30020 XCH CYR
021852,001927: 07,7203 50602 TS VERBREG
021853,001928: 07,7204 37213 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
021854,001929: 07,7205 50065 TS ENTRET
021855,001930: 07,7206 44500 CS BIT15
021856,001931: 07,7207 70626 MASK MONSAVE1
021857,001932: 07,7210 50624 TS NOUNADD
021858,001933: 07,7211 06046 ENDMONDO TC TESTNN
021859,001934:
021860,001935: 3077 SETLOC ENDFAILF
021861,001936: 3077 33105 PASTEVB CAF MIDSIX
021862,001937: 3100 70625 MASK MONSAVE
021863,001938: 3101 50110 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
021864,001939: 3102 03127 TC NVSUBMON # DISPLAY IT.
021865,001940: 3103 03104 TC +1 # IN CASE OF ALARM DURING DISPLAY
021866,001941: 3104 02124 ENDPASTE TC ENDOFJOB
021867,001942:
021868,001943: 3105 07700 MIDSIX OCT 07700
021869,001944:
021870,001945: 07,7212 SETLOC ENDMONDO +1
021871,001946: 07,7212 00700 MONMASK OCT 700
021872,001947: 07,7213 03077 MONBACK ADRES PASTEVB
021873,001948:
021874,001949: 07,7214 03256 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
021875,001950: 07,7215 02124 TC ENDOFJOB
021876,001951:
021877,001952: # DSPBANK IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER IN BANK.
021878,001953: # IT IS USED WITH NOUN = MACHINE ADDRESS TO BE SPECIFIED. THE CADR OF THE
021879,001954: # DESIRED LOCATION IS THEN PUNCHED IN.
021880,001955:
021881,001956: 07,7216 33177 DSPBANK CAF R1D1
021882,001957: 07,7217 50614 TS DSPCOUNT
021883,001958: 07,7220 40624 CS NOUNADD
021884,001959: 07,7221 40000 CS A
021885,001960: 07,7222 05730 TC DATACALL
021886,001961: 07,7223 07225 TC DSPOCTWD
021887,001962: 07,7224 02124 TC ENDOFJOB
021888,001963:
021889,001964:
021890,001965:
021891,001966: 06,7252 SETLOC TESTOFUF +4
021892,001967:
021893,001968: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
021894,001969: # STARTING IN LOC SPECIFIED IN DSPCOUNT
021895,001970:
021896,001971: 06,7252 30001 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
021897,001972: 06,7253 50106 TS WDRET
021898,001973: 06,7254 10115 CCS MPAC
021899,001974: 06,7255 07264 TC +7
021900,001975: 06,7256 07264 TC +6
021901,001976: 06,7257 64516 AD ONE
021902,001977: 06,7260 50115 TS MPAC
021903,001978: 06,7261 06342 TC -ON
021904,001979: 06,7262 40116 CS MPAC +1
021905,001980: 06,7263 07266 TC +3
021906,001981: 06,7264 06321 TC +ON
021907,001982: 06,7265 30116 XCH MPAC +1
021908,001983: 06,7266 67325 AD DECROUND
021909,001984: 06,7267 50116 TS MPAC +1
021910,001985: 06,7270 35501 CAF ZERO
021911,001986: 06,7271 60115 AD MPAC
021912,001987: 06,7272 50115 TS MPAC
021913,001988: 06,7273 07277 TC +4
021914,001989: 06,7274 34476 CAF POSMAX
021915,001990: 06,7275 50115 TS MPAC
021916,001991: 06,7276 50116 TS MPAC +1
021917,001992: 06,7277 35502 CAF FOUR
021918,001993: 06,7300 50076 DSPDCWD1 TS WDCNT
021919,001994: 06,7301 33240 CAF BINCON
021920,001995: 06,7302 05416 TC SHORTMP
021921,001996: 06,7303 20115 TRACE1 INDEX MPAC
021922,001997: 06,7304 32650 CAF RELTAB
021923,001998: 06,7305 73226 MASK LOW5
021924,001999: 06,7306 50111 TS CODE
021925,002000: 06,7307 35501 CAF ZERO
021926,002001: 06,7310 30117 XCH MPAC +2
021927,002002: 06,7311 30116 XCH MPAC +1
021928,002003: 06,7312 50115 TS MPAC
021929,002004: 06,7313 30614 XCH DSPCOUNT
021930,002005: 06,7314 50104 TRACE1S TS COUNT
021931,002006: 06,7315 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
021932,002007: 06,7316 50614 TS DSPCOUNT
021933,002008: 06,7317 07352 TC DSPIN
021934,002009: 06,7320 10076 CCS WDCNT
021935,002010: 06,7321 07300 TC DSPDCWD1
021936,002011: 06,7322 43235 CS VD1
021937,002012: 06,7323 50614 TS DSPCOUNT
021938,002013: 06,7324 00106 TC WDRET
021939,002014:
021940,002015: 06,7325 02476 DECROUND OCT 02476
021941,002016:
021942,002017:
021943,002018:
021944,002019: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
021945,002020: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
021946,002021:
021947,002022: 06,7326 30001 DSP2DEC XCH Q
021948,002023: 06,7327 50106 TS WDRET
021949,002024: 06,7330 35501 CAF ZERO
021950,002025: 06,7331 50111 TS CODE
021951,002026: 06,7332 34473 CAF THREE
021952,002027: 06,7333 07437 TC 11DSPIN # -R2 OFF
021953,002028: 06,7334 35502 CAF FOUR
021954,002029: 06,7335 07437 TC 11DSPIN # +R2 OFF
021955,002030: 06,7336 10115 CCS MPAC
021956,002031: 06,7337 07347 TC +8D
021957,002032: 06,7340 07347 TC +7
021958,002033: 06,7341 64516 AD ONE
021959,002034: 06,7342 50115 TS MPAC
021960,002035: 06,7343 06342 TC -ON
021961,002036: 06,7344 40116 CS MPAC +1
021962,002037: 06,7345 50116 TS MPAC +1
021963,002038: 06,7346 07350 TC +2
021964,002039: 06,7347 06321 TC +ON
021965,002040: 06,7350 33200 CAF R2D1
021966,002041: 06,7351 07300 END2DEC TC DSPDCWD1
021967,002042:
021968,002043:
021969,002044:
021970,002045: 07,7225 SETLOC DSPBANK +7
021971,002046:
021972,002047: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
021973,002048: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
021974,002049:
021975,002050: 07,7225 50022 DSPOCTWD TS CYL
021976,002051: 07,7226 30001 XCH Q
021977,002052: 07,7227 50106 TS WDRET
021978,002053: 07,7230 30614 XCH DSPCOUNT
021979,002054: 07,7231 64501 AD BIT14 # TO BLANK SIGNS
021980,002055: 07,7232 50614 TS DSPCOUNT
021981,002056: 07,7233 35502 CAF FOUR
021982,002057: 07,7234 50076 WDAGAIN TS WDCNT
021983,002058: 07,7235 40022 CS CYL
021984,002059: 07,7236 40022 CS CYL
021985,002060: 07,7237 40022 CS CYL
021986,002061: 07,7240 40000 CS A
021987,002062: 07,7241 75362 MASK DSPMSK
021988,002063: 07,7242 20000 INDEX A
021989,002064: 07,7243 32650 CAF RELTAB
021990,002065: 07,7244 73226 MASK LOW5
021991,002066: 07,7245 50111 TS CODE
021992,002067: 07,7246 30614 XCH DSPCOUNT
021993,002068: 07,7247 50104 TS COUNT
021994,002069: 07,7250 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
021995,002070: 07,7251 50614 TS DSPCOUNT
021996,002071: 07,7252 05720 TC POSTJUMP
021997,002072: 07,7253 15445 CADR DSPOCTIN
021998,002073: 07,7254 10076 OCTBACK CCS WDCNT
021999,002074: 07,7255 07234 TC WDAGAIN # +
022000,002075: 07,7256 43235 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
022001,002076: 07,7257 50614 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
022002,002077: 07,7260 00106 TC WDRET
022003,002078:
022004,002079: 07,7261 5362 DSPMSK = SEVEN
022005,002080:
022006,002081:
022007,002082:
022008,002083: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
022009,002084: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
022010,002085: # OF THE 5 CHAR OCTAL DISPLAY
022011,002086:
022012,002087: 07,7261 50020 DSP2BIT TS CYR
022013,002088: 07,7262 30001 XCH Q
022014,002089: 07,7263 50106 TS WDRET
022015,002090: 07,7264 34516 CAF ONE
022016,002091: 07,7265 50076 TS WDCNT
022017,002092: 07,7266 40020 CS CYR
022018,002093: 07,7267 40020 CS CYR
022019,002094: 07,7270 30020 XCH CYR
022020,002095: 07,7271 50022 TS CYL
022021,002096: 07,7272 07241 TC WDAGAIN +5
022022,002097:
022023,002098:
022024,002099:
022025,002100: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
022026,002101: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
022027,002102: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
022028,002103: # DSPTAB ENTRY INTO DSREL.
022029,002104:
022030,002105: 06,7352 SETLOC END2DEC +1
022031,002106:
022032,002107: 06,7352 30001 DSPIN XCH Q
022033,002108: 06,7353 50112 TS DSEXIT
022034,002109: 06,7354 33226 CAF LOW5
022035,002110: 06,7355 70104 MASK COUNT
022036,002111: 06,7356 50021 TS SR
022037,002112: 06,7357 30021 XCH SR
022038,002113: 06,7360 50102 TS DSREL
022039,002114: 06,7361 34516 CAF BIT1
022040,002115: 06,7362 70104 MASK COUNT
022041,002116: 06,7363 10000 CCS A
022042,002117: 06,7364 07366 TC +2 # LEFT IF COUNT IS ODD
022043,002118: 06,7365 07376 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
022044,002119: 06,7366 30111 XCH CODE
022045,002120: 06,7367 03220 TC SLEFT5 # DOES NOT USE CYL
022046,002121: 06,7370 50111 TS CODE
022047,002122: 06,7371 34501 CAF BIT14
022048,002123: 06,7372 70104 MASK COUNT
022049,002124: 06,7373 10000 CCS A
022050,002125: 06,7374 35503 CAF TWO # BIT14 = 1, BLANK SIGN
022051,002126: 06,7375 64516 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
022052,002127: 06,7376 50104 TS COUNT # +0 INTO COUNT FOR RIGHT
022053,002128: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
022054,002129: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
022055,002130: 06,7377 20017 DSPIN1 INHINT
022056,002131: 06,7400 20102 INDEX DSREL
022057,002132: 06,7401 10710 CCS DSPTAB
022058,002133: 06,7402 07404 TC +2 # IF +
022059,002134: 06,7403 03070 TC CCSHOLE
022060,002135: 06,7404 64516 AD ONE # IF-
022061,002136: 06,7405 50103 TS DSMAG
022062,002137: 06,7406 20104 INDEX COUNT
022063,002138: 06,7407 77433 MASK DSMSK
022064,002139: 06,7410 25777 EXTEND
022065,002140: 06,7411 60111 SU CODE
022066,002141: 06,7412 10000 CCS A
022067,002142: 06,7413 07417 TC DFRNT # IF+
022068,002143: 06,7414 03070 TC CCSHOLE
022069,002144: 06,7415 07417 TC DFRNT # IF-
022070,002145: 06,7416 07431 TC DSLV # IF -0
022071,002146: 06,7417 20104 DFRNT INDEX COUNT
022072,002147: 06,7420 47433 CS DSMSK # MASK WITH 77740,76037, OR 75777
022073,002148: 06,7421 70103 MASK DSMAG
022074,002149: 06,7422 60111 AD CODE
022075,002150: 06,7423 40000 CS A
022076,002151: 06,7424 20102 INDEX DSREL
022077,002152: 06,7425 30710 XCH DSPTAB
022078,002153: 06,7426 10000 CCS A
022079,002154: 06,7427 06632 TC INCNOUT
022080,002155: 06,7430 03070 TC CCSHOLE
022081,002156: 06,7431 20016 DSLV RELINT
022082,002157: 06,7432 00112 TC DSEXIT
022083,002158:
022084,002159: 06,7433 00037 DSMSK OCT 37
022085,002160: 06,7434 01740 OCT 1740
022086,002161: 06,7435 02000 OCT 2000
022087,002162: 06,7436 03740 OCT 3740
022088,002163:
022089,002164:
022090,002165:
022091,002166: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
022092,002167: # BIT11 OF CODE.
022093,002168:
022094,002169: 06,7437 50102 11DSPIN TS DSREL
022095,002170: 06,7440 35503 CAF TWO
022096,002171: 06,7441 50104 TS COUNT
022097,002172: 06,7442 30001 XCH Q
022098,002173: 06,7443 50112 TS DSEXIT
022099,002174: 06,7444 07377 TC DSPIN1
022100,002175:
022101,002176: 06,7445 07352 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
022102,002177: 06,7446 37450 CAF +2
022103,002178: 06,7447 05723 TC BANKJUMP
022104,002179: 06,7450 17254 ENDSPOCT CADR OCTBACK
022105,002180:
022106,002181:
022107,002182:
022108,002183: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
022109,002184: # ABORT WITH OCT 01501.
022110,002185: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
022111,002186: # DO TC ENTRET.
022112,002187:
022113,002188: 06,7451 33155 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
022114,002189: 06,7452 50065 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
022115,002190:
022116,002191: 06,7453 03241 DSPALARM TC FALTON # TURN ON CHECK FAIL LIGHT.
022117,002192: 06,7454 47460 CS NVSBENDL
022118,002193: 06,7455 60065 AD ENTEXIT
022119,002194: 06,7456 10000 CCS A
022120,002195: 06,7457 00065 TC ENTEXIT # NOT NVSUB INITIATED.
022121,002196: 06,7460 03133 NVSBENDL TC NVSUBEND
022122,002197: 06,7461 00065 TC ENTEXIT # NOT NVSUB INITIATED.
022123,002198: 06,7462 03052 TC ABORT # NVSUB INITIATED.
022124,002199: 06,7463 01501 OCT 01501
022125,002200:
022126,002201:
022127,002202:
022128,002203: 06,7464 34504 FLASHON1 CAF BIT11 # GETS HERE THRU FLASHON(STANDARD LEAD IN)
022129,002204: 06,7465 50111 TS CODE
022130,002205: 06,7466 37475 CAF FLASHLOC
022131,002206: 06,7467 50102 TS DSREL
022132,002207: 06,7470 35503 CAF TWO
022133,002208: 06,7471 50104 TS COUNT
022134,002209: 06,7472 07377 TC DSPIN1
022135,002210: 06,7473 35501 FLASHOF1 CAF ZERO # GETS HERE THRU FLASHOFF(STANDARD LEAD IN
022136,002211: 06,7474 07465 TC FLASHON1 +1
022137,002212: 06,7475 00011 FLASHLOC OCT 11
022138,002213:
022139,002214:
022140,002215:
022141,002216: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
022142,002217: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
022143,002218: # MM LIGHTS.
022144,002219:
022145,002220: 07,7273 SETLOC DSP2BIT +10D
022146,002221:
022147,002222: 07,7273 07306 MMCHANG TC REQMM
022148,002223: 07,7274 35501 CAF ZERO
022149,002224: 07,7275 30603 XCH NOUNREG
022150,002225: 07,7276 50115 TS MPAC
022151,002226: 07,7277 33236 CAF ND1
022152,002227: 07,7300 50614 TS DSPCOUNT
022153,002228: 07,7301 05654 TC BANKCALL
022154,002229: 07,7302 14613 CADR 2BLANK
022155,002230: 07,7303 30115 XCH MPAC
022156,002231: 07,7304 05720 TC POSTJUMP
022157,002232: 07,7305 10002 CADR MODROUTB # GO THRU STANDARD LOC.
022158,002233:
022159,002234:
022160,002235:
022161,002236: 07,7306 40001 REQMM CS Q
022162,002237: 07,7307 50613 TS REQRET
022163,002238: 07,7310 33236 CAF ND1
022164,002239: 07,7311 50614 TS DSPCOUNT
022165,002240: 07,7312 35501 CAF ZERO
022166,002241: 07,7313 50603 TS NOUNREG
022167,002242: 07,7314 05654 TC BANKCALL
022168,002243: 07,7315 14613 CADR 2BLANK
022169,002244: 07,7316 05654 TC BANKCALL
022170,002245: 07,7317 14000 CADR FLASHON
022171,002246: 07,7320 00065 TC ENTEXIT
022172,002247:
022173,002248:
022174,002249:
022175,002250: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
022176,002251: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES PRIO PRELOADED INTO
022177,002252: # BITS 10-14 OF FIRST REGISTER OF TEMP AREA, WITH BIT1=0 FOR NOVAC, BIT1
022178,002253: # =1 FOR FINDVAC). THE VERB IS USED WITH NOUN=MACHINE ADDRESS TO BE
022179,002254: # SPECIFIED. CADR JOBADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
022180,002255:
022181,002256: 07,7321 33155 VBRQEXEC CAF ENDINST
022182,002257: 07,7322 50075 TS PROGREG +2
022183,002258: 07,7323 03331 TC RELDSP
022184,002259: 07,7324 34516 CAF BIT1
022185,002260: 07,7325 70616 MASK DSPTEM1 # ********
022186,002261: 07,7326 10000 CCS A
022187,002262: 07,7327 07340 TC SETVAC # IF BIT1 =1, FINDVAC
022188,002263: 07,7330 33231 CAF TCNOVAC # IF BIT1 =0, NOVAC
022189,002264: 07,7331 50073 REQEX1 TS PROGREG # TC NOVAC OR TC FINDVAC INTO PROGREG
022190,002265: 07,7332 30624 XCH NOUNADD
022191,002266: 07,7333 50074 TS PROGREG +1 # CADR JOBADDR INTO PROGREG +1
022192,002267: 07,7334 44516 CS BIT1
022193,002268: 07,7335 70616 MASK DSPTEM1 # *******
022194,002269: 07,7336 20017 INHINT
022195,002270: 07,7337 00073 TC PROGREG
022196,002271:
022197,002272: 07,7340 33234 SETVAC CAF TCFINDVC
022198,002273: 07,7341 07331 TC REQEX1
022199,002274:
022200,002275: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
022201,002276: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES DELAY PRELOADED IN FIRST
022202,002277: # REGISTER OF TEMP AREA. THE VERB IS USED WITH NOUN= MACHINE ADDRESS TO
022203,002278: # BE SPECIFIED. CADR TASKADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
022204,002279:
022205,002280: 07,7342 33155 VBRQWAIT CAF ENDINST
022206,002281: 07,7343 50075 TS PROGREG +2 # TC ENDOFJOB INTO PROGREG+2
022207,002282: 07,7344 03331 TC RELDSP
022208,002283: 07,7345 33232 CAF TCWAIT
022209,002284: 07,7346 50073 TS PROGREG # TC WAITLIST INTO PROGREG
022210,002285: 07,7347 30624 XCH NOUNADD
022211,002286: 07,7350 50074 TS PROGREG +1 # CADR TASKADDR INTO PROGREG+1
022212,002287: 07,7351 20017 INHINT
022213,002288: 07,7352 30616 XCH DSPTEM1 # DELTA T IN A
022214,002289: 07,7353 00073 ENDRQWT TC PROGREG
022215,002290:
022216,002291:
022217,002292:
022218,002293: 06,7476 SETLOC FLASHLOC +1
022219,002294: 06,7476 34516 VBPROC CAF ONE # PROCEED WITHOUT DATA
022220,002295: 06,7477 50632 TS LOADSTAT
022221,002296: 06,7500 03331 TC RELDSP
022222,002297: 06,7501 06003 TC FLASHOFF
022223,002298: 06,7502 07611 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
022224,002299:
022225,002300:
022226,002301:
022227,002302: 06,7503 03135 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
022228,002303: 06,7504 44516 CS ONE
022229,002304: 06,7505 07477 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
022230,002305:
022231,002306:
022232,002307: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
022233,002308:
022234,002309:
022235,002310: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
022236,002311: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
022237,002312:
022238,002313: 06,7506 35501 VBRELDSP CAF ZERO # RELEASE DISPLAY SYST
022239,002314: 06,7507 50111 TS CODE # TURN OFF UPACT LIGHT
022240,002315: 06,7510 35362 CAF SEVEN
022241,002316: 06,7511 07437 TC 11DSPIN
022242,002317: 06,7512 03331 TC RELDSP # SEARCHES LIST
022243,002318: 06,7513 02124 TC ENDOFJOB
022244,002319:
022245,002320:
022246,002321:
022247,002322: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
022248,002323:
022249,002324: 06,7514 34477 BUMP CAF FIVE # R2D5
022250,002325: 06,7515 50614 TS DSPCOUNT
022251,002326: 06,7516 50104 TS COUNT
022252,002327: 06,7517 34516 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
022253,002328: 06,7520 70104 MASK COUNT
022254,002329: 06,7521 30104 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
022255,002330: 06,7522 50021 TS SR # +1 INTO COUNT IF ODD (LEFT)
022256,002331: 06,7523 30021 XCH SR # DSREL IN A
022257,002332: 06,7524 20000 INDEX A
022258,002333: 06,7525 10710 CCS DSPTAB
022259,002334: 06,7526 07530 TC +2
022260,002335: 06,7527 03070 TC CCSHOLE
022261,002336: 06,7530 64516 AD ONE # DSMAG IN A
022262,002337: 06,7531 20104 INDEX COUNT
022263,002338: 06,7532 77433 MASK DSMSK
022264,002339: 06,7533 20104 INDEX COUNT
022265,002340: 06,7534 07535 TC +1
022266,002341: 06,7535 07537 TC +2 # EVEN(RIGHT) OK
022267,002342: 06,7536 03202 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
022268,002343: 06,7537 50111 TS CODE
022269,002344: 06,7540 44477 CS FIVE
022270,002345: 06,7541 60614 AD DSPCOUNT # DSPCOUNT-5
022271,002346: 06,7542 10000 CCS A # TO PREVENT -0
022272,002347: 06,7543 64516 AD ONE
022273,002348: 06,7544 07546 TC +2
022274,002349: 06,7545 03070 TC CCSHOLE
022275,002350: 06,7546 50104 TS COUNT
022276,002351: 06,7547 07352 TC DSPIN # CODE ALREADY IN CODE
022277,002352: 06,7550 40614 CS DSPCOUNT
022278,002353: 06,7551 63177 AD R1D1 # OCT 16
022279,002354: 06,7552 10000 CCS A
022280,002355: 06,7553 30614 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
022281,002356: 06,7554 64516 AD ONE # INCREMENT DSPCOUNT
022282,002357: 06,7555 07515 TC BUMP +1
022283,002358:
022284,002359: 06,7556 35501 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
022285,002360: 06,7557 50614 TS DSPCOUNT
022286,002361: 06,7560 67607 AD SWTAB +2 # OCT 3
022287,002362: 06,7561 20000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
022288,002363: 06,7562 10710 CCS DSPTAB # (-R2,+R2,-R1,+R1)
022289,002364: 06,7563 07565 TC +2
022290,002365: 06,7564 03070 TC CCSHOLE
022291,002366: 06,7565 64516 AD ONE
022292,002367: 06,7566 74504 MASK BIT11
022293,002368: 06,7567 50111 TS CODE
022294,002369: 06,7570 20614 INDEX DSPCOUNT
022295,002370: 06,7571 37605 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
022296,002371: 06,7572 07437 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
022297,002372: 06,7573 40614 CS DSPCOUNT
022298,002373: 06,7574 67607 AD SWTAB +2 # OCT 3
022299,002374: 06,7575 10000 CCS A
022300,002375: 06,7576 30614 XCH DSPCOUNT # +, DSPCOUNT L/ 3
022301,002376: 06,7577 64516 AD ONE # INCREMENT DSPCOUNT
022302,002377: 06,7600 07557 TC SWSGN +1
022303,002378: 06,7601 33177 CAF R1D1 # -0, DSPCOUNT = 3
022304,002379: 06,7602 50614 TS DSPCOUNT
022305,002380: 06,7603 06546 TC 5BLANK # BLANKS R1
022306,002381: 06,7604 00065 TC ENTEXIT
022307,002382:
022308,002383: 06,7605 00000 SWTAB OCT 0 # -R3
022309,002384: 06,7606 00001 OCT 1 # +R3
022310,002385: 06,7607 00003 OCT 3 # -R2
022311,002386: 06,7610 00004 OCT 4 # +R2
022312,002387:
022313,002388:
022314,002389:
022315,002390: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
022316,002391: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
022317,002392: # INTO A. V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
022318,002393:
022319,002394: # NVSUB CAN BE USED WITH MACH ADDR TO BE SPEC BY PLACING THE ADDRESS IN
022320,002395: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
022321,002396:
022322,002397: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
022323,002398: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
022324,002399: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
022325,002400: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
022326,002401: # FURTHER ACTION).
022327,002402:
022328,002403: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
022329,002404: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
022330,002405: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
022331,002406: # ALARM CONDITION BEFORE RETURN TO CALLER.
022332,002407:
022333,002408: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
022334,002409: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
022335,002410: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
022336,002411: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
022337,002412: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
022338,002413: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
022339,002414: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
022340,002415: # MONITOR SET UP.
022341,002416:
022342,002417: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
022343,002418:
022344,002419: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
022345,002420: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
022346,002421:
022347,002422: # NVSUB IN F/F PLACES 2 + CALLING CADR INTO NVSBCADR, TC NVSUBEND INTO
022348,002423: # ENTRET. IT WILL HANDLE A CALL FROM F/F OK, BUT WILL NOT RESTORE BANKREG
022349,002424: # TO ITS ORIGINAL CONTENTS.
022350,002425:
022351,002426: 3106 SETLOC MIDSIX +1
022352,002427: 3106 50110 NVSUB TS NVTEMP # IN FIXED FIXED
022353,002428: 3107 34513 CAF BIT4
022354,002429: 3110 70645 MASK DSPLOCK # BIT4 OF STATE
022355,002430: 3111 10000 CCS A
022356,002431: 3112 00001 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
022357,002432: 3113 30001 XCH Q # DSP SYST AVAILABLE
022358,002433: 3114 64516 AD ONE
022359,002434: 3115 50071 TS TEMQS # 2+ CALLING CADR INTO TEMQS
022360,002435: 3116 03135 TC KILMONON # TURN ON KILL MONITOR BIT
022361,002436: 3117 33126 NVSUBCOM CAF NVSUBANK
022362,002437: 3120 30015 XCH BANKREG
022363,002438: 3121 50072 TS BANKTEM
022364,002439: 3122 05706 TC MAKECADR
022365,002440: 3123 30062 XCH ADDRWD
022366,002441: 3124 50631 TS NVSBCADR
022367,002442: 3125 06000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
022368,002443: 3126 17354 NVSUBANK CADR NVSUB1 # BANK NUMB OF NVSUB1
022369,002444:
022370,002445: 3127 30001 NVSUBMON XCH Q # MONDO COMES HERE
022371,002446: 3130 64516 AD ONE
022372,002447: 3131 50071 TS TEMQS
022373,002448: 3132 03117 TC NVSUBCOM
022374,002449:
022375,002450:
022376,002451:
022377,002452: 3133 30631 NVSUBEND XCH NVSBCADR
022378,002453: 3134 05662 TC SWCALL
022379,002454:
022380,002455:
022381,002456:
022382,002457: 07,7354 SETLOC ENDRQWT +1
022383,002458: 07,7354 37373 NVSUB1 CAF ENTSET # IN BANK
022384,002459: 07,7355 50065 TS ENTRET # SET RETURN TO NVSUBEND
022385,002460: 07,7356 37420 CAF LOW6
022386,002461: 07,7357 70110 MASK NVTEMP
022387,002462: 07,7360 50115 TS MPAC # TEMP STORAGE
022388,002463: 07,7361 37421 CAF MID6
022389,002464: 07,7362 70110 MASK NVTEMP
022390,002465: 07,7363 03202 TC RIGHT5
022391,002466: 07,7364 50020 TS CYR
022392,002467: 07,7365 30020 XCH CYR
022393,002468: 07,7366 50116 TS MPAC +1 # TEMP STORAGE
022394,002469: 07,7367 10115 CCS MPAC # TEST NOUN
022395,002470: 07,7370 07374 TC +4 # IF NOUN NOT +0, GO ON
022396,002471: 07,7371 30116 XCH MPAC +1
022397,002472: 07,7372 06345 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB . THEN RETURN
022398,002473: 07,7373 03133 ENTSET TC NVSUBEND
022399,002474: 07,7374 10116 CCS MPAC +1 # TEST VERB
022400,002475: 07,7375 07401 TC +4 # IF VERB NOT +0, GO ON
022401,002476: 07,7376 30115 XCH MPAC
022402,002477: 07,7377 06326 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN . THEN RETURN
022403,002478: 07,7400 03133 TC NVSUBEND
022404,002479: 07,7401 30116 XCH MPAC +1
022405,002480: 07,7402 06345 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
022406,002481: 07,7403 30115 XCH MPAC # BOTH AND GO TO ENTPAS0
022407,002482: 07,7404 06326 TC UPDATNN -1
022408,002483: 07,7405 10054 CCS NNADTEM # NOUN TABLES WERE READ IN UPDATNN.
022409,002484: 07,7406 07411 TC +3 # NORMAL
022410,002485: 07,7407 06356 TC GODSPALM # NOUN NOT IN USE
022411,002486: 07,7410 07415 TC MATBSUB
022412,002487: 07,7411 35501 NVSUB2 CAF ZERO
022413,002488: 07,7412 50632 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
022414,002489: 07,7413 50633 TS CLPASS
022415,002490: 07,7414 06035 TC ENTPAS0
022416,002491:
022417,002492: 07,7415 30117 MATBSUB XCH MPAC +2 # NVSUB CALL LEFT ADDRES FOR MATBS IN
022418,002493: 07,7416 50624 TS NOUNADD # MPAC+2.
022419,002494: 07,7417 07411 TC NVSUB2
022420,002495:
022421,002496:
022422,002497:
022423,002498: 07,7420 00077 LOW6 OCT 77
022424,002499: 07,7421 07700 MID6 OCT 7700
022425,002500:
022426,002501: 3135 SETLOC NVSUBEND +2
022427,002502: 3135 44500 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
022428,002503: 3136 20017 INHINT # THIS IS THE KILL MONITOR BIT.
022429,002504: 3137 70626 MASK MONSAVE1
022430,002505: 3140 64500 AD BIT15
022431,002506: 3141 50626 TS MONSAVE1
022432,002507: 3142 20016 RELINT
022433,002508: 3143 00001 TC Q
022434,002509:
022435,002510:
022436,002511:
022437,002512: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
022438,002513: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
022439,002514: # -1 TERMINATE SET BY SPECIAL VERB
022440,002515: # -0 DATA IN SET BY END OF LOAD ROUTINE
022441,002516:
022442,002517: # L TC ENDIDLE (FIXED FIXED)
022443,002518: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
022444,002519: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
022445,002520: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
022446,002521: # L+1 FOR TERMINATE
022447,002522: # L+2 FOR PROCEED WITHOUT DATA
022448,002523: # L+3 FOR DATA IN
022449,002524: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
022450,002525:
022451,002526: 3144 30001 ENDIDLE XCH Q # NOVAC ROUTINES ENTER HERE
022452,002527: 3145 50071 TS TEMQS
022453,002528: 3146 30015 XCH BANKREG
022454,002529: 3147 50072 TS BANKTEM
022455,002530: 3150 05706 TC MAKECADR
022456,002531: 3151 03273 TC DSPLOCK1 # MAKE DSPLOCK BUSY (BIT 4 OF STATE)
022457,002532: 3152 30062 XCH ADDRWD
022458,002533: 3153 50627 TS CADRSTOR
022459,002534: 3154 02127 TC JOBSLEEP
022460,002535:
022461,002536:
022462,002537:
022463,002538: 3155 02124 ENDINST TC ENDOFJOB
022464,002539:
022465,002540: 3156 05777 BNKCON OCT 5777
022466,002541:
022467,002542:
022468,002543:
022469,002544: # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
022470,002545: # IT DOES ENDOFJOB.
022471,002546:
022472,002547: 3157 33540 JAMTERM CAF TWENTY8
022473,002548: 3160 50613 TS REQRET # LEAVE ENTER AT PASS 0
022474,002549: 3161 05654 TC BANKCALL
022475,002550: 3162 16345 CADR UPDATVB -1 # DISPLAY VB 34
022476,002551: 3163 05720 TC POSTJUMP
022477,002552: 3164 15503 CADR VBTERM
022478,002553:
022479,002554:
022480,002555:
022481,002556: # DATAWAIT IS AN ALTERNATIVE TO ENDIDLE. IT RETURNS IMMEDIATELY IF
022482,002557: # LOADSTAT INDICATES THAT DATA IS ALREADY IN, OR PROCEED OR TERMINATE HAS
022483,002558: # BEEN EXECUTED. RETURN FORMAT IS SAME AS FOR ENDIDLE.
022484,002559: # DATAWAIT SHOULD BE USED ONLY AFTER REQUESTING A LOAD VERB.
022485,002560:
022486,002561: 3165 30001 DATAWAIT XCH Q
022487,002562: 3166 50071 TS TEMQS
022488,002563: 3167 10632 CCS LOADSTAT
022489,002564: 3170 03175 TC DATWAIT1 # PROCEED,RETURN TO L+2.
022490,002565: 3171 03146 TC ENDIDLE +2 # STILL WAITING. GO TO SLEEP.
022491,002566: 3172 00071 TC TEMQS # TERMINATE. RETURN TO L+1.
022492,002567: 3173 20071 INDEX TEMQS # DATA IN. RETURN TO L+3.
022493,002568: 3174 00002 TC 2
022494,002569: 3175 20071 DATWAIT1 INDEX TEMQS # RETURN TO L+2
022495,002570: 3176 00001 TC 1
022496,002571:
022497,002572: # DATAWAIT DOES NOT RELEASE DISPLAY SYST. IT IS RELEASED AT END OF NVSUB
022498,002573: # INITIATED LOAD, IF ENDIDLE WAS NOT USED.
022499,002574:
022500,002575:
022501,002576:
022502,002577: 07,7422 SETLOC MID6 +1
022503,002578: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
022504,002579:
022505,002580: 07,7422 33237 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
022506,002581: 07,7423 30614 XCH DSPCOUNT # SAVE DSPCOUNT
022507,002582: 07,7424 50107 TS DSPMMTEM
022508,002583: 07,7425 40612 CS MODREG
022509,002584: 07,7426 40000 CS A
022510,002585: 07,7427 07261 TC DSP2BIT
022511,002586: 07,7430 30107 XCH DSPMMTEM # RESTORE DSPCOUNT
022512,002587: 07,7431 50614 TS DSPCOUNT
022513,002588: 07,7432 00063 ENDSPMM1 TC UPDATRET
022514,002589:
022515,002590:
022516,002591:
022517,002592: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
022518,002593: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
022519,002594: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
022520,002595:
022521,002596: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
022522,002597: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
022523,002598:
022524,002599: 06,7611 SETLOC SWTAB +4
022525,002600:
022526,002601: 06,7611 10627 RECALTST CCS CADRSTOR
022527,002602: 06,7612 07617 TC RECAL1
022528,002603: 06,7613 02124 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
022529,002604: 06,7614 07617 TC RECAL1
022530,002605: 06,7615 50627 TS CADRSTOR # -0. CONCLUSION OF NVSUB INITIATED LOAD.
022531,002606: 06,7616 07635 TC RECAL3 # +0 INTO CADRSTOR, RELEASE DISPLAY,
022532,002607: # AND ENDOFJOB. NEEDED FOR DATAWAIT.
022533,002608: 06,7617 35501 RECAL1 CAF ZERO
022534,002609: 06,7620 30627 XCH CADRSTOR
022535,002610: 06,7621 20017 INHINT
022536,002611: 06,7622 02060 TC JOBWAKE
022537,002612: 06,7623 10632 CCS LOADSTAT
022538,002613: 06,7624 07641 TC DOPROC # + PROCEED WITHOUT DATA
022539,002614: 06,7625 02124 TC ENDOFJOB # PATHALOGICAL CASE EXIT
022540,002615: 06,7626 07637 TC DOTERM # - TERMINATE
022541,002616: 06,7627 45503 CS TWO
022542,002617: 06,7630 20601 RECAL2 INDEX LOCCTR
022543,002618: 06,7631 60120 AD LOC # LOC IS - FOR BASIC JOBS
022544,002619: 06,7632 20601 INDEX LOCCTR
022545,002620: 06,7633 50120 TS LOC
022546,002621: 06,7634 20016 RELINT
022547,002622: 06,7635 03364 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
022548,002623: 06,7636 02124 TC ENDOFJOB
022549,002624:
022550,002625: 06,7637 35501 DOTERM CAF ZERO
022551,002626: 06,7640 07630 TC RECAL2
022552,002627:
022553,002628: 06,7641 44516 DOPROC CS ONE
022554,002629: 06,7642 07630 TC RECAL2
022555,002630:
022556,002631:
022557,002632: # THE FOLLOWING REFERS TO THE NOUN TABLES
022558,002633:
022559,002634:
022560,002635:
022561,002636: 07,7430 SETLOC DSPMM1 +6
022562,002637:
022563,002638: # COMPONENT CODE NUMBER INTERPRETATION
022564,002639:
022565,002640: # 00000 1 COMPONENT
022566,002641: # 00001 2 COMPONENT (EACH S P)
022567,002642: # 00010 3 COMPONENT (EACH SP)
022568,002643:
022569,002644:
022570,002645:
022571,002646: # SF ROUTINE CODE NUMBER INTERPRETATION
022572,002647:
022573,002648: # 00000 OCTAL ONLY
022574,002649: # 00001 STRAIGHT FRACTIONAL
022575,002650: # 00010 DEGREES (XXX.XX)
022576,002651: # 00011 ARITHMETIC SF
022577,002652: # 00100 ARITH DP1 OUT(MULT BY 2/14 AT END) IN(STRAIGHT)
022578,002653: # 00101 ARITH DP2 OUT(STRAIGHT) IN(SL 7 AT END)
022579,002654: # 00110 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
022580,002655: # 00111 ARITH DP3 OUT ( SL 7 AT END) IN ( STRAIGHT)
022581,002656: # END OF SF ROUTINE CODE NUMBERS
022582,002657:
022583,002658:
022584,002659:
022585,002660: # SF CONSTANT CODE NUMBER INTERPRETATION
022586,002661:
022587,002662: # 00000 WHOLE
022588,002663: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
022589,002664: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
022590,002665: # 00010 DEGREES
022591,002666: # 00010 OPTICS DEGREES
022592,002667: # 00011 GYRO DEGREES(XX.XXX) USE ARITH DP1
022593,002668: # 00100 GYRO BIAS DRIFT .BBXXXXX MILLIRAD/SEC
022594,002669: # 00101 GYRO AXIS ACCEL. DRIFT
022595,002670: # .BBXXXXX (MILLIRAD/SEC) / (CM/SEC SEC)
022596,002671: # 00110 PIPA BIAS X.XXXX CM/SEC SEC
022597,002672: # 00111 PIPA SCALE FACTOR ERROR
022598,002673: # XXXXX. PARTS/MILLION
022599,002674: # 01000 POSITION(XXXX.X KILOMETERS) USE ARITHDP3
022600,002675: # 01001 VELOCITY(XXXX.X METERS/SEC) USE ARITHDP2
022601,002676: # 01010 TIME HOURS(XXX.XX)WEEKS INSIDE(ARITHDP2)
022602,002677: # 01011 ELEVATION DEGREES(89.999MAX) USE ARITH
022603,002678: # 01100 VG FOR 202 (XXXX.X MET/SEC) USE ARITH
022604,002679: # END OF SF CONSTANT CODE NUMBERS
022605,002680:
022606,002681: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
022607,002682: # NOUN TABLES.
022608,002683: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
022609,002684: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
022610,002685: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
022611,002686:
022612,002687:
022613,002688: # THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
022614,002689: # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
022615,002690: # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY SWCALL.
022616,002691:
022617,002692:
022618,002693:
022619,002694: # LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
022620,002695: # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDAD1TEM IS LOADED WITH THE FIRST
022621,002696: # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
022622,002697: # IDADDTAB ENTRY. MIXBR IS SET FOR MIXED OR NORMAL NOUN.
022623,002698:
022624,002699: 05,7266 SETLOC ENDEXTVS
022625,002700: 05,7266 30001 LODNNTAB XCH Q
022626,002701: 05,7267 50060 TS IDAD3TEM # SAVE RETURN ADDRESS IN IDAD3TEM
022627,002702: 05,7270 20603 INDEX NOUNREG
022628,002703: 05,7271 37344 CAF NNADTAB
022629,002704: 05,7272 50054 TS NNADTEM
022630,002705: 05,7273 20603 INDEX NOUNREG
022631,002706: 05,7274 37444 CAF NNTYPTAB
022632,002707: 05,7275 50055 TS NNTYPTEM
022633,002708: 05,7276 40603 CS NOUNREG
022634,002709: 05,7277 67302 AD MIXCON
022635,002710: 05,7300 10000 CCS A
022636,002711: 05,7301 07323 TC LODNORM # NOUN L/ FIRST MIXED NOUN
022637,002712: 05,7302 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
022638,002713: 05,7303 07304 TC +1
022639,002714: 05,7304 35503 LODMIXNN CAF TWO # NOUN G/E FIRST MIXED NOUN
022640,002715: 05,7305 50107 TS MIXBR
022641,002716: 05,7306 34606 CAF LOW10
022642,002717: 05,7307 70054 MASK NNADTEM
022643,002718: 05,7310 50001 TS Q # IDADDREL INTO Q
022644,002719: 05,7311 20000 INDEX A
022645,002720: 05,7312 37630 CAF IDADDTAB
022646,002721: 05,7313 50056 TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY.
022647,002722: 05,7314 20001 INDEX Q
022648,002723: 05,7315 37631 CAF IDADDTAB +1
022649,002724: 05,7316 50057 TS IDAD2TEM # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY.
022650,002725: 05,7317 20001 INDEX Q
022651,002726: 05,7320 37632 CAF IDADDTAB +2 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
022652,002727: 05,7321 30060 LODNLV XCH IDAD3TEM # PUT RETURN ADDESS INTO A.
022653,002728: 05,7322 00000 TC A
022654,002729:
022655,002730: 05,7323 34516 LODNORM CAF ONE
022656,002731: 05,7324 50107 TS MIXBR
022657,002732: 05,7325 07321 TC LODNLV
022658,002733:
022659,002734:
022660,002735:
022661,002736: # GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
022662,002737:
022663,002738: 05,7326 20111 GTSFOUT INDEX SFTEMP2 # SF CONUM ARRIVES IN SFTEMP2.
022664,002739: 05,7327 37576 CAF SFOUTAB1
022665,002740: 05,7330 50110 TS SFTEMP1
022666,002741: 05,7331 20111 INDEX SFTEMP2
022667,002742: 05,7332 37613 CAF SFOUTAB2
022668,002743: 05,7333 50111 TS SFTEMP2
022669,002744: 05,7334 00001 TC Q
022670,002745:
022671,002746:
022672,002747:
022673,002748: # GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB ENTRIES.
022674,002749:
022675,002750: 05,7335 20111 GTSFIN INDEX SFTEMP2 # SF CONUM ARRIVES IN SFTEMP2.
022676,002751: 05,7336 37544 CAF SFINTAB1
022677,002752: 05,7337 50110 TS SFTEMP1
022678,002753: 05,7340 20111 INDEX SFTEMP2
022679,002754: 05,7341 37561 CAF SFINTAB2
022680,002755: 05,7342 50111 TS SFTEMP2
022681,002756: 05,7343 00001 TC Q
022682,002757:
022683,002758:
022684,002759:
022685,002760: # NN NORMAL NOUNS
022686,002761: 05,7344 00000 NNADTAB OCT 00000 # 00 NOT IN USE
022687,002762: 05,7345 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
022688,002763: 05,7346 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
022689,002764: 05,7347 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
022690,002765: 05,7350 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
022691,002766: 05,7351 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
022692,002767: 05,7352 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
022693,002768: 05,7353 40000 OCT 40000 # 07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
022694,002769: 05,7354 00000 OCT 00000 # 10 SPARE
022695,002770: 05,7355 00000 OCT 00000 # 11 SPARE
022696,002771: 05,7356 00000 OCT 00000 # 12 SPARE
022697,002772: 05,7357 00000 OCT 00000 # 13 SPARE
022698,002773: 05,7360 00000 OCT 00000 # 14 SPARE
022699,002774: 05,7361 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
022700,002775: 05,7362 00035 OCT 00035 # 16 TIME SECONDS
022701,002776: 05,7363 00035 OCT 00035 # 17 TIME HOURS
022702,002777: 05,7364 00047 ADRES CDUX # 20 ICDU
022703,002778: 05,7365 00044 ADRES PIPAX # 21 PIPAS
022704,002779: 05,7366 00700 ADRES THETAD # 22 NEW ANGLES I
022705,002780: 05,7367 00621 ADRES DSPTEM2 # 23 DELTA ANGLES I
022706,002781: 05,7370 00616 ADRES DSPTEM1 # 24 DELTA TIME (SEC)
022707,002782: 05,7371 00616 ADRES DSPTEM1 # 25 CHECKLIST
022708,002783: 05,7372 00616 ADRES DSPTEM1 # 26 PRIO/DELAY
022709,002784: 05,7373 01762 ADRES SMODE # 27 SELF TEST ON/OFF SWITCH
022710,002785: 05,7374 00616 ADRES DSPTEM1 # 30 STAR NUMBERS
022711,002786: 05,7375 01763 ADRES FAILREG # 31 FAILREG, SFAIL, ERCOUNT
022712,002787: 05,7376 01266 ADRES TDEC # 32 DECISION TIME (MIDCOURSE)
022713,002788: 05,7377 01146 ADRES TET # 33 EPHEMERIS TIME(MIDCOURSE)
022714,002789: 05,7400 01276 ADRES MEASQ # 34 MEASURED QUANTITY (MIDCOURSE)
022715,002790: 05,7401 01314 ADRES ROLL # 35 ROLL, PITCH, YAW
022716,002791: 05,7402 00616 ADRES LANDMARK # 36 LANDMARK DATA 1
022717,002792: 05,7403 00621 ADRES LANDMARK +3 # 37 LANDMARK DATA 2
022718,002793: 05,7404 00616 ADRES DSPTEM1 # 40 VG FOR 202
022719,002794: 05,7405 00000 OCT 00000 # 41 SPARE
022720,002795: 05,7406 00000 OCT 00000 # 42 SPARE
022721,002796: 05,7407 00000 OCT 00000 # 43 SPARE
022722,002797: 05,7410 00000 OCT 00000 # 44 SPARE
022723,002798: 05,7411 00000 OCT 00000 # 45 SPARE
022724,002799: 05,7412 00000 OCT 00000 # 46 SPARE
022725,002800: 05,7413 00000 OCT 00000 # 47 SPARE
022726,002801: 05,7414 00000 OCT 00000 # 50 SPARE
022727,002802: 05,7415 00000 OCT 00000 # 51 SPARE
022728,002803: 05,7416 00744 ADRES GBIASX # 52 GYRO BIAS DRIFT
022729,002804: 05,7417 00747 ADRES ADIAX # 53 GYRO INPUT AXIS ACCELERATION DRIFT
022730,002805: 05,7420 00752 ADRES ADSRAX # 54 GYRO SPIN AXIS ACCELERATION DRIFT
022731,002806:
022732,002807: # NN MIXED NOUNS
022733,002808: 05,7421 02000 OCT 02000 # 55 OCDU
022734,002809: 05,7422 04002 OCT 04002 # 56 UNCALLED MARK DATA (OCDU & TIME(SEC))
022735,002810: 05,7423 02005 OCT 02005 # 57 NEW ANGLES OCDU
022736,002811: 05,7424 04007 OCT 04007 # 60 IMU MODE STATUS
022737,002812: 05,7425 02012 OCT 02012 # 61 TARGET AZIMUTH AND ELEVATION
022738,002813: 05,7426 02014 OCT 02014 # 62 ICDUZ AND TIME(SEC)
022739,002814: 05,7427 02016 OCT 02016 # 63 OCDUX AND TIME(SEC)
022740,002815: 05,7430 02020 OCT 02020 # 64 OCDUY AND TIME(SEC)
022741,002816: 05,7431 02022 OCT 02022 # 65 SAMPLED TIME (HOURS AND SECONDS)
022742,002817: # (FETCHED IN INTERRUPT)
022743,002818: 05,7432 04024 OCT 04024 # 66 SYSTEM TEST RESULTS
022744,002819: 05,7433 04027 OCT 04027 # 67 DELTA GYRO ANGLES
022745,002820: 05,7434 04032 OCT 04032 # 70 PIPA BIAS
022746,002821: 05,7435 04035 OCT 04035 # 71 PIPA SCALE FACTOR ERROR
022747,002822: 05,7436 04040 OCT 04040 # 72 DELTA POSITION
022748,002823: 05,7437 04043 OCT 04043 # 73 DELTA VELOCITY
022749,002824: 05,7440 04046 OCT 04046 # 74 MEASUREMENT DATA (MIDCOURSE)
022750,002825: 05,7441 04051 OCT 04051 # 75 MEASUREMENT DEVIATIONS (MIDCOURSE)
022751,002826: 05,7442 04054 OCT 04054 # 76 POSITION VECTOR
022752,002827: 05,7443 04057 OCT 04057 # 77 VELOCITY VECTOR
022753,002828:
022754,002829:
022755,002830:
022756,002831: # NN NORMAL NOUNS
022757,002832: 05,7444 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
022758,002833: 05,7445 00040 OCT 00040 # 01 1COMP FRACTIONAL
022759,002834: 05,7446 00140 OCT 00140 # 02 1COMP WHOLE
022760,002835: 05,7447 00102 OCT 00102 # 03 1COMP DEGREES
022761,002836: 05,7450 00241 OCT 00241 # 04 1COMP HOURS
022762,002837: 05,7451 00200 OCT 00200 # 05 1COMP SECONDS
022763,002838: 05,7452 00203 OCT 00203 # 06 1COMP GYRO DEGREES
022764,002839: 05,7453 00302 OCT 00302 # 07 1COMP Y OPT DEGREES
022765,002840: 05,7454 00000 OCT 00000 # 10 SPARE
022766,002841: 05,7455 00000 OCT 00000 # 11 SPARE
022767,002842: 05,7456 00000 OCT 00000 # 12 SPARE
022768,002843: 05,7457 00000 OCT 00000 # 13 SPARE
022769,002844: 05,7460 00000 OCT 00000 # 14 SPARE
022770,002845: 05,7461 00000 OCT 00000 # 15 1COMP OCTAL ONLY
022771,002846: 05,7462 00200 OCT 00200 # 16 1COMP SECONDS
022772,002847: 05,7463 00241 OCT 00241 # 17 3COMP HOURS
022773,002848: 05,7464 04102 OCT 04102 # 20 3COMP DEGREES
022774,002849: 05,7465 04140 OCT 04140 # 21 3COMP WHOLE
022775,002850: 05,7466 04102 OCT 04102 # 22 3COMP DEGREES
022776,002851: 05,7467 04102 OCT 04102 # 23 3COMP DEGREES
022777,002852: 05,7470 00200 OCT 00200 # 24 1COMP SECONDS
022778,002853: 05,7471 00140 OCT 00140 # 25 1COMP WHOLE
022779,002854: 05,7472 00140 OCT 00140 # 26 1COMP WHOLE
022780,002855: 05,7473 00140 OCT 00140 # 27 1COMP WHOLE
022781,002856: 05,7474 04140 OCT 04140 # 30 3COMP WHOLE
022782,002857: 05,7475 04000 OCT 04000 # 31 3COMP OCTAL ONLY
022783,002858: 05,7476 00252 OCT 00252 # 32 3COMP TIME WEEKS
022784,002859: 05,7477 00252 OCT 00252 # 33 3COMP TIME WEEKS
022785,002860: 05,7500 00350 OCT 00350 # 34 3COMP POSITION
022786,002861: 05,7501 04102 OCT 04102 # 35 3COMP DEGREES
022787,002862: 05,7502 04000 OCT 04000 # 36 3COMP OCTAL ONLY
022788,002863: 05,7503 04000 OCT 04000 # 37 3COMP OCTAL ONLY
022789,002864: 05,7504 04154 OCT 04154 # 40 3COMP VG FOR 202
022790,002865: 05,7505 00000 OCT 00000 # 41 SPARE
022791,002866: 05,7506 00000 OCT 00000 # 42 SPARE
022792,002867: 05,7507 00000 OCT 00000 # 43 SPARE
022793,002868: 05,7510 00000 OCT 00000 # 44 SPARE
022794,002869: 05,7511 00000 OCT 00000 # 45 SPARE
022795,002870: 05,7512 00000 OCT 00000 # 46 SPARE
022796,002871: 05,7513 00000 OCT 00000 # 47 SPARE
022797,002872: 05,7514 00000 OCT 00000 # 50 SPARE
022798,002873: 05,7515 00000 OCT 00000 # 51 SPARE
022799,002874: 05,7516 04144 OCT 04144 # 52 3COMP GYRO BIAS DRIFT
022800,002875: 05,7517 04145 OCT 04145 # 53 3COMP GYRO AXIS ACCEL. DRIFT
022801,002876: 05,7520 04145 OCT 04145 # 54 3COMP GYRO AXIS ACCEL. DRIFT
022802,002877:
022803,002878: # NN MIXED NOUNS
022804,002879: 05,7521 00102 OCT 00102 # 55 2COMP DEGREES, Y OPT DEGREES
022805,002880: 05,7522 00102 OCT 00102 # 56 3COMP DEGREES, Y OPT DEGREES, SECS
022806,002881: 05,7523 00102 OCT 00102 # 57 2COMP DEGREES, Y OPT DEGREES
022807,002882: 05,7524 00000 OCT 00000 # 60 3COMP OCTAL ONLY
022808,002883: 05,7525 00542 OCT 00542 # 61 2COMP DEGREES, ELEVATION DEGREES
022809,002884: 05,7526 00002 OCT 00002 # 62 2COMP DEGREES, SECS
022810,002885: 05,7527 00002 OCT 00002 # 63 2COMP DEGREES, SECS
022811,002886: 05,7530 00002 OCT 00002 # 64 2COMP Y OPT DEGREES, SECS
022812,002887: 05,7531 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
022813,002888: 05,7532 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
022814,002889: 05,7533 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
022815,002890: 05,7534 14306 OCT 14306 # 70 3COMP PIPA BIAS FOR EACH
022816,002891: 05,7535 16347 OCT 16347 # 71 3COMP PIPA SCALE FACTOR ERR.FOR EACH
022817,002892: 05,7536 20410 OCT 20410 # 72 3COMP POSITION FOR EACH
022818,002893: 05,7537 22451 OCT 22451 # 73 3COMP VELOCITY FOR EACH
022819,002894: 05,7540 00412 OCT 00412 # 74 3COMP TIME WEEKS, POSITION, WHOLE
022820,002895: 05,7541 20450 OCT 20450 # 75 3COMP POSITION, VELOCITY, POSITION
022821,002896: 05,7542 20410 OCT 20410 # 76 3COMP POSITION FOR EACH
022822,002897: 05,7543 22451 OCT 22451 # 77 3COMP VELOCITY FOR EACH
022823,002898:
022824,002899:
022825,002900:
022826,002901: 05,7544 00006 SFINTAB1 OCT 00006 # WHOLE,TIME(SEC) HIGH PART
022827,002902: 05,7545 00253 OCT 00253 # TIME HOURS(=1.3-, PT. BETWEEN BITS 7-8)
022828,002903: 05,7546 00000 OCT 0 # DEGREES
022829,002904: 05,7547 00021 OCT 00021 # GYRO DEGREES
022830,002905: 05,7550 00001 OCT 00001 # GYRO BIAS DRIFT
022831,002906: 05,7551 00011 OCT 00011 # GYRO AXIS ACCEL. DRIFT
022832,002907: 05,7552 00004 OCT 00004 # PIPA BIAS
022833,002908: 05,7553 00314 OCT 00314 # PIPA SCALE ERROR
022834,002909: 05,7554 23420 OCT 23420 # POSITION
022835,002910: 05,7555 00201 OCT 00201 # VELOCITY (POINT BETWEEN BITS 7-8)
022836,002911: 05,7556 01371 OCT 01371 # TIME WEEKS (POINT BETWEEN BITS 7-8)
022837,002912: 05,7557 00001 OCT 00001 # ELEVATION DEGREES
022838,002913: 05,7560 00003 OCT 00003 # VG FOR 202
022839,002914: # END OF SFINTAB1
022840,002915:
022841,002916:
022842,002917:
022843,002918: 05,7561 03240 SFINTAB2 OCT 03240 # WHOLE, TIME(SEC) LO PART
022844,002919: 05,7562 25124 OCT 25124 # TIME HOURS
022845,002920: 05,7563 00000 OCT 0 # DEGREES ( SFCON IN DEGINSF)
022846,002921: 05,7564 30707 OCT 30707 # GYRO DEGREES
022847,002922: 05,7565 02133 OCT 02133 # GYRO BIAS DRIFT
022848,002923: 05,7566 30322 OCT 30322 # GYRO AXIS ACCEL. DRIFT
022849,002924: 05,7567 14021 OCT 14021 # PIPA BIAS
022850,002925: 05,7570 31463 OCT 31463 # PIPA SCALE ERROR
022851,002926: 05,7571 00000 OCT 00000 # POSITION
022852,002927: 05,7572 30327 OCT 30327 # VELOCITY
022853,002928: 05,7573 34750 OCT 34750 # TIME WEEKS
022854,002929: 05,7574 03434 OCT 03434 # ELEVATION DEGREES
022855,002930: 05,7575 04000 OCT 04000 # VG FOR 202
022856,002931: # END OF SFINTAB2
022857,002932:
022858,002933:
022859,002934:
022860,002935: 05,7576 05174 SFOUTAB1 OCT 05174 # WHOLE, TIME(SEC) HIGH PART
022861,002936: 05,7577 27670 OCT 27670 # TIME HOURS
022862,002937: 05,7600 00000 OCT 0 # DEGREES
022863,002938: 05,7601 01631 OCT 01631 # GYRO DEGREES
022864,002939: 05,7602 35753 OCT 35753 # GYRO BIAS DRIFT
022865,002940: 05,7603 03216 OCT 03216 # GYRO AXIS ACCEL. DRIFT
022866,002941: 05,7604 07237 OCT 07237 # PIPA BIAS
022867,002942: 05,7605 00120 OCT 00120 # PIPA SCALE ERROR
022868,002943: 05,7606 00321 OCT 00321 # POSITION (POINT BETWEEN BITS 7-8)
022869,002944: 05,7607 37441 OCT 37441 # VELOCITY
022870,002945: 05,7610 05300 OCT 05300 # TIME WEEKS
022871,002946: 05,7611 34631 OCT 34631 # ELEVATION DEGREES
022872,002947: 05,7612 12172 OCT 12172 # VG FOR 202
022873,002948: # END OF SFOUTAB1
022874,002949:
022875,002950:
022876,002951:
022877,002952: 05,7613 13261 SFOUTAB2 OCT 13261 # WHOLE, TIME(SEC) LO PART
022878,002953: 05,7614 31357 OCT 31357 # TIME HOURS
022879,002954: 05,7615 00000 OCT 0 # DEGREES
022880,002955: 05,7616 23146 OCT 23146 # GYRO DEGREES
022881,002956: 05,7617 32323 OCT 32323 # GYRO BIAS DRIFT
022882,002957: 05,7620 06400 OCT 06400 # GYRO AXIS ACCEL. DRIFT
022883,002958: 05,7621 37776 OCT 37776 # PIPA BIAS
022884,002959: 05,7622 00000 OCT 00000 # PIPA SCALE ERROR
022885,002960: 05,7623 26706 OCT 26706 # POSITION
022886,002961: 05,7624 14247 OCT 14247 # VELOCITY
022887,002962: 05,7625 20305 OCT 20305 # TIME WEEKS
022888,002963: 05,7626 23146 OCT 23146 # ELEVATION DEGREES
022889,002964: 05,7627 34121 OCT 34121 # VG FOR 202
022890,002965: # END OF SFOUTAB2
022891,002966:
022892,002967:
022893,002968:
022894,002969: # MIXNOUN SF ROUT REG
022895,002970: 05,7630 04052 IDADDTAB CADR OPTX +04000 # 01 DEGREES 52
022896,002971: 05,7631 14053 CADR OPTY +14000 # 01 Y OPT DEGREES 53
022897,002972: 05,7632 04616 CADR DSPTEM1 +04000 # 02 DEGREES 627
022898,002973: 05,7633 14617 CADR DSPTEM1 +14001 # 02 Y OPT DEGREES 630
022899,002974: 05,7634 10620 CADR DSPTEM1 +10002 # 02 SEC 631
022900,002975: 05,7635 04704 CADR DESOPTX +04000 # 03 DEGREES 724
022901,002976: 05,7636 14705 CADR DESOPTX +14001 # 03 Y OPT DEGREES 725
022902,002977: 05,7637 00007 CADR IN3 # 04 OCTAL ONLY
022903,002978: 05,7640 00727 CADR WASKSET # 04 OCTAL ONLY
022904,002979: 05,7641 00726 CADR OLDERR # 04 OCTAL ONLY
022905,002980: 05,7642 04616 CADR DSPTEM1 +04000 # 05 DEGREES
022906,002981: 05,7643 06617 CADR DSPTEM1 +06001 # 05 ELEVATION DEGREES
022907,002982: 05,7644 04051 CADR CDUZ +04000 # 06 DEGREES 51
022908,002983: 05,7645 10035 CADR TIME2 +10000 # 06 SEC 35
022909,002984: 05,7646 04052 CADR OPTX +04000 # 07 DEGREES 52
022910,002985: 05,7647 10035 CADR TIME2 +10000 # 07 SEC 35
022911,002986: 05,7650 14053 CADR OPTY +14000 # 10 Y OPT DEGREES 53
022912,002987: 05,7651 10035 CADR TIME2 +10000 # 10 SEC 35
022913,002988: 05,7652 12643 CADR SAMPTIME +12000 # 11 HOURS 655
022914,002989: 05,7653 10643 CADR SAMPTIME +10000 # 11 SECONDS 655
022915,002990: 05,7654 06621 CADR DSPTEM2 +06000 # 12 WHOLE 632
022916,002991: 05,7655 02622 CADR DSPTEM2 +02001 # 12 FRACTIONAL 633
022917,002992: 05,7656 06623 CADR DSPTEM2 +06002 # 12 WHOLE 634
022918,002993: 05,7657 11520 CADR OGC +10000 # 13 GYRO DEGREES
022919,002994: 05,7660 11522 CADR OGC +10002 # 13 GYRO DEGREES
022920,002995: 05,7661 11524 CADR OGC +10004 # 13 GYRO DEGREES
022921,002996: 05,7662 06736 CADR PBIASX +06000 # 14 PIPA BIAS
022922,002997: 05,7663 06740 CADR PBIASY +06000 # 14 PIPA BIAS
022923,002998: 05,7664 06742 CADR PBIASZ +06000 # 14 PIPA BIAS
022924,002999: 05,7665 06737 CADR PIPASCFX +06000 # 15 PIPA SCALE FACTOR ERROR
022925,003000: 05,7666 06741 CADR PIPASCFY +06000 # 15 PIPA SCALE FACTOR ERROR
022926,003001: 05,7667 06743 CADR PIPASCFZ +06000 # 15 PIPA SCALE FACTOR ERROR
022927,003002: 05,7670 17152 CADR DELR +16000 # 16 POSITION
022928,003003: 05,7671 17154 CADR DELR +16002 # 16 POSITION
022929,003004: 05,7672 17156 CADR DELR +16004 # 16 POSITION
022930,003005: 05,7673 13160 CADR DELVEL +12000 # 17 VELOCITY
022931,003006: 05,7674 13162 CADR DELVEL +12002 # 17 VELOCITY
022932,003007: 05,7675 13164 CADR DELVEL +12004 # 17 VELOCITY
022933,003008: 05,7676 13266 CADR TDEC +12000 # 20 TIME WEEKS
022934,003009: 05,7677 17276 CADR MEASQ +16000 # 20 POSITION
022935,003010: 05,7700 07300 CADR MEASMODE +06000 # 20 WHOLE
022936,003011: 05,7701 16616 CADR DSPTEM1 +16000 # 21 POSITION
022937,003012: 05,7702 12620 CADR DSPTEM1 +12002 # 21 VELOCITY
022938,003013: 05,7703 17276 CADR DELTAQ +16000 # 21 POSITION
022939,003014: 05,7704 16616 CADR DSPTEM1 +16000 # 22 POSITION
022940,003015: 05,7705 16620 CADR DSPTEM1 +16002 # 22 POSITION
022941,003016: 05,7706 16622 CADR DSPTEM1 +16004 # 22 POSITION
022942,003017: 05,7707 12616 CADR DSPTEM1 +12000 # 23 VELOCITY
022943,003018: 05,7710 12620 CADR DSPTEM1 +12002 # 23 VELOCITY
022944,003019: 05,7711 12622 CADR DSPTEM1 +12004 # 23 VELOCITY
022945,003020: 05,7712 00000 OCT 00000 # SPARE
022946,003021: 05,7713 00000 OCT 00000 # SPARE
022947,003022: 05,7714 00000 OCT 00000 # SPARE
022948,003023: 05,7715 00000 OCT 00000 # SPARE
022949,003024: 05,7716 00000 OCT 00000 # SPARE
022950,003025: 05,7717 00000 OCT 00000 # SPARE
022951,003026:
022952,003027:
022953,003028: # MISCELLANEOUS SERVICE ROUTINES
022954,003029:
022955,003030:
022956,003031:
022957,003032: 3177 SETLOC DATWAIT1 +2
022958,003033:
022959,003034: 3177 00016 R1D1 OCT 16
022960,003035: 3200 00011 R2D1 OCT 11
022961,003036: 3201 00004 R3D1 OCT 4
022962,003037:
022963,003038: 3202 50020 RIGHT5 TS CYR
022964,003039: 3203 40020 CS CYR
022965,003040: 3204 40020 CS CYR
022966,003041: 3205 40020 CS CYR
022967,003042: 3206 40020 CS CYR
022968,003043: 3207 30020 XCH CYR
022969,003044: 3210 00001 TC Q
022970,003045:
022971,003046: 3211 50022 LEFT5 TS CYL
022972,003047: 3212 40022 CS CYL
022973,003048: 3213 40022 CS CYL
022974,003049: 3214 40022 CS CYL
022975,003050: 3215 40022 CS CYL
022976,003051: 3216 30022 XCH CYL
022977,003052: 3217 00001 TC Q
022978,003053:
022979,003054: 3220 60000 SLEFT5 DOUBLE
022980,003055: 3221 60000 DOUBLE
022981,003056: 3222 60000 DOUBLE
022982,003057: 3223 60000 DOUBLE
022983,003058: 3224 60000 DOUBLE
022984,003059: 3225 00001 TC Q
022985,003060:
022986,003061:
022987,003062:
022988,003063: 3226 00037 LOW5 OCT 37
022989,003064: 3227 01740 MID5 OCT 1740
022990,003065: 3230 76000 OCT 76000 # MUST STAY HERE.
022991,003066:
022992,003067: 3231 02052 TCNOVAC TC NOVAC
022993,003068: 3232 02173 TCWAIT TC WAITLIST
022994,003069: 3233 02256 TCTSKOVR TC TASKOVER
022995,003070: 3234 02046 TCFINDVC TC FINDVAC
022996,003071:
022997,003072:
022998,003073:
022999,003074: 3235 00023 VD1 OCT 23
023000,003075: 3236 00021 ND1 OCT 21
023001,003076: 3237 00025 MD1 OCT 25
023002,003077:
023003,003078:
023004,003079: 3240 00012 BINCON DEC 10 B-14
023005,003080:
023006,003081: 3241 3240 TEN EQUALS BINCON
023007,003082:
023008,003083: 3241 20017 FALTON INHINT # TURN PROGRAM CHECK LIGHT ON
023009,003084: 3242 44512 CS BIT5 # OUT1,BIT5(ALSO KNOWN AS ILLEGAL ORDER)
023010,003085: 3243 70011 MASK OUT1
023011,003086: 3244 64512 AD BIT5
023012,003087: 3245 50011 TS OUT1
023013,003088: 3246 20016 RELINT
023014,003089: 3247 00001 TC Q
023015,003090:
023016,003091: 3250 20017 FALTOF INHINT # TURN PROGRAM CHECK LIGHT OFF
023017,003092: 3251 44512 CS BIT5
023018,003093: 3252 70011 MASK OUT1
023019,003094: 3253 50011 TS OUT1
023020,003095: 3254 20016 RELINT
023021,003096: 3255 00001 TC Q
023022,003097:
023023,003098: 3256 20017 RELDSPON INHINT # TURN ON RELEASE DISPLAY SYST LIGHT
023024,003099: 3257 44514 CS BIT3
023025,003100: 3260 70011 MASK OUT1
023026,003101: 3261 64514 AD BIT3
023027,003102: 3262 50011 TS OUT1
023028,003103: 3263 20016 RELINT
023029,003104: 3264 00001 TC Q
023030,003105:
023031,003106: 3265 44513 DSPLOCK0 CS BIT4
023032,003107: 3266 20017 INHINT # DSPLOCK = BIT4 OF STATE
023033,003108: 3267 70645 MASK DSPLOCK
023034,003109: 3270 50645 TS DSPLOCK
023035,003110: 3271 20016 RELINT
023036,003111: 3272 00001 TC Q
023037,003112:
023038,003113: 3273 44513 DSPLOCK1 CS BIT4
023039,003114: 3274 20017 INHINT # DSPLOCK = BIT4 OF STATE
023040,003115: 3275 70645 MASK DSPLOCK
023041,003116: 3276 64513 AD BIT4
023042,003117: 3277 30645 XCH DSPLOCK # LEAVES OLD C(DSPLOCK) IN A.
023043,003118: 3300 20016 RELINT
023044,003119: 3301 00001 TC Q
023045,003120:
023046,003121: 3302 34513 TSTDSPLK CAF BIT4 # SIMULATES CCS DSPLOCK
023047,003122: 3303 70645 MASK DSPLOCK
023048,003123: 3304 10000 CCS A
023049,003124: 3305 00001 TC Q # DSPLOCK = 1, RETURN TO L+1
023050,003125: 3306 20001 INDEX Q
023051,003126: 3307 00001 TC 1 # DSPLOCK = 0, RETURN TO L+1
023052,003127:
023053,003128:
023054,003129: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
023055,003130: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
023056,003131: # MAKE IT BUSY TO OTHER INTERNAL USERS.
023057,003132:
023058,003133: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
023059,003134: # SYSTEM FOR OTHER INTERNAL USERS.
023060,003135:
023061,003136: # THE CALLING SEQUENCES ARE
023062,003137: # L TC GRABDSP
023063,003138: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
023064,003139: # L+2 RETURN HERE MEANS YOU HAVE IT
023065,003140:
023066,003141: # L TC NVSUB
023067,003142: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
023068,003143: # L+2 RETURN HERE AFTER EXECUTION
023069,003144:
023070,003145:
023071,003146:
023072,003147: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
023073,003148: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
023074,003149: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
023075,003150:
023076,003151: # THE CALLING SEQUENCE IS
023077,003152: # CAF WAKECADR
023078,003153: # TC GRABUSY
023079,003154:
023080,003155: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
023081,003156: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT. YOUR CADR IS PUT
023082,003157: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
023083,003158:
023084,003159: # THE CALLING SEQUENCE IS
023085,003160: # CAF WAKECADR
023086,003161: # TC NVSUBUSY
023087,003162:
023088,003163:
023089,003164:
023090,003165: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
023091,003166: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
023092,003167: # DISPLAYS WAITING WILL BE VISIBLE.
023093,003168:
023094,003169:
023095,003170:
023096,003171: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
023097,003172: # AND DISPLAY SYSTEM.
023098,003173: # +0 FREE
023099,003174: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
023100,003175: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
023101,003176:
023102,003177:
023103,003178: 3310 10630 GRABDSP CCS GRABLOCK
023104,003179: 3311 00001 TC Q # GRABBED. RETURN TO L+1
023105,003180: 3312 34516 CAF ONE # NOT GRABBED. SET TO +1
023106,003181: 3313 50630 TS GRABLOCK # AND RETURN TO L+2
023107,003182: 3314 20001 INDEX Q
023108,003183: 3315 00001 TC 1
023109,003184:
023110,003185:
023111,003186:
023112,003187: 3316 34606 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN BANKS
023113,003188: 3317 70001 MASK Q # DESIRING THE CADR OF 1 + (LOC FROM WHICH
023114,003189: 3320 60015 AD BANKREG # TC PREGBSY WAS DONE) TO BE ENTERED.
023115,003190: 3321 05720 GRABUSY TC POSTJUMP
023116,003191: 3322 16001 CADR GRABUSYB
023117,003192: 07,7433 SETLOC ENDSPMM1 +1
023118,003193:
023119,003194: 07,7433 50114 GRABUSY1 TS CADRTEM
023120,003195: 07,7434 10630 CCS GRABLOCK
023121,003196: 07,7435 07440 TC +3 # STILL GRABBED
023122,003197: 07,7436 30114 XCH CADRTEM # NOT GRABBED SO DO DIRECT CALL
023123,003198: 07,7437 05723 TC BANKJUMP
023124,003199: 07,7440 35503 CAF TWO
023125,003200: 07,7441 50113 TS LSTPTR
023126,003201: 07,7442 20113 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
023127,003202: 07,7443 10634 CCS DSPLIST # FROM BOTTOM.
023128,003203: 07,7444 07446 TC +2
023129,003204: 07,7445 07451 TC PUTINLST # SPACE FOUND
023130,003205: 07,7446 10113 CCS LSTPTR # DECREMENT POINTER
023131,003206: 07,7447 07441 TC -6
023132,003207: 07,7450 07525 TC LSTFULL
023133,003208: 07,7451 30114 PUTINLST XCH CADRTEM
023134,003209: 07,7452 20113 INDEX LSTPTR
023135,003210: 07,7453 50634 TS DSPLIST
023136,003211: 07,7454 02127 TC JOBSLEEP
023137,003212:
023138,003213:
023139,003214:
023140,003215: 3323 SETLOC GRABUSY +2
023141,003216: 3323 43330 PRENVBSY CS 6K+3 # SPECIAL ENTRANCE FOR ROUTINES IN BANKS
023142,003217: 3324 60001 AD Q # DESIRING THE CADR OF (LOC FROM WHICH THE
023143,003218: 3325 60015 AD BANKREG # TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
023144,003219: 3326 05720 NVSUBUSY TC POSTJUMP
023145,003220: 3327 16002 CADR NVSUBSYB
023146,003221: 3330 06003 6K+3 OCT 6003 # TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
023147,003222:
023148,003223: 07,7455 SETLOC PUTINLST +4
023149,003224: 07,7455 50114 NVSUBSY1 TS CADRTEM
023150,003225: 07,7456 03302 TC TSTDSPLK # TEST IF REALLY LOCKED OUT
023151,003226: 07,7457 07462 TC +3 # STILL BUSY
023152,003227: 07,7460 30114 XCH CADRTEM # DSPLOCK = +0 SO RETURN DIRECTLY
023153,003228: 07,7461 05723 TC BANKJUMP
023154,003229: 07,7462 35503 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
023155,003230: 07,7463 50630 TS GRABLOCK
023156,003231: 07,7464 30114 XCH CADRTEM
023157,003232: 07,7465 30636 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
023158,003233: 07,7466 30635 XCH DSPLIST +1 # (BOTTOM)
023159,003234: 07,7467 30634 XCH DSPLIST
023160,003235: 07,7470 10000 CCS A
023161,003236: 07,7471 07525 TC LSTFULL
023162,003237: 07,7472 07474 TC +2
023163,003238: 07,7473 07525 TC LSTFULL
023164,003239: 07,7474 03256 TC RELDSPON
023165,003240: 07,7475 40636 CS DSPLIST +2
023166,003241: 07,7476 40000 COM
023167,003242: 07,7477 02127 ENDNVBSY TC JOBSLEEP
023168,003243:
023169,003244: 3331 SETLOC NVSUBUSY +3
023170,003245:
023171,003246: 3331 30001 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
023172,003247: 3332 50113 TS RELRET # OFF, SEARCH DSPLIST
023173,003248: 3333 34335 CAF NEG1
023174,003249: 3334 60630 AD GRABLOCK
023175,003250: 3335 10000 CCS A # SEARCH LIST ONLY IF GRABLOCK = +2
023176,003251: 3336 03342 TC +4 # (SOMEONE USED NVSUBUSY)
023177,003252: 3337 03070 TC CCSHOLE
023178,003253: 3340 03357 TC RELDSP2
023179,003254: 3341 03357 TC RELDSP2
023180,003255: 3342 35501 CAF ZERO
023181,003256: 3343 30634 XCH DSPLIST
023182,003257: 3344 30635 XCH DSPLIST +1
023183,003258: 3345 30636 XCH DSPLIST +2
023184,003259: 3346 50114 TS CADRTEM
023185,003260: 3347 10000 CCS A
023186,003261: 3350 03352 TC +2
023187,003262: 3351 03357 TC RELDSP2 # LIST EMPTY
023188,003263: 3352 30114 XCH CADRTEM
023189,003264: 3353 20017 INHINT
023190,003265: 3354 02060 TC JOBWAKE
023191,003266: 3355 34516 CAF ONE
023192,003267: 3356 50630 TS GRABLOCK
023193,003268: 3357 44514 RELDSP2 CS BIT3
023194,003269: 3360 70011 MASK OUT1
023195,003270: 3361 50011 TS OUT1
023196,003271: 3362 03265 TC DSPLOCK0 # 0 INTO DSPLOCK (BIT4 OF STATE)
023197,003272: # RELINT IS DONE IN DSPLOCK0.
023198,003273: 3363 00113 TC RELRET
023199,003274: 3364 30001 RELDSP1 XCH Q # SET DSPLOCK TO +0, RELDSP LIGHT OFF,
023200,003275: 3365 50113 TS RELRET # NO LIST SEARCH
023201,003276: 3366 20017 INHINT
023202,003277: 3367 03357 TC RELDSP2
023203,003278:
023204,003279:
023205,003280: 3370 30001 FREEDSP XCH Q
023206,003281: 3371 50113 TS FREERET
023207,003282: 3372 20017 INHINT
023208,003283: 3373 33400 CAF SHOTIME
023209,003284: 3374 02173 TC WAITLIST
023210,003285: 3375 17500 CADR FREEWAIT
023211,003286: 3376 20016 RELINT
023212,003287: 3377 00113 TC FREERET
023213,003288:
023214,003289: 3400 00257 SHOTIME DEC 175 B-14 # SET FOR 1.75 SECS FOR 202
023215,003290: 07,7500 SETLOC ENDNVBSY +1
023216,003291:
023217,003292: 07,7500 32164 FREEWAIT CAF PRIO31 # CALLED BY T3RUPT
023218,003293: 07,7501 02052 TC NOVAC
023219,003294: 07,7502 17504 CADR FREDSPDO
023220,003295: 07,7503 02256 TC TASKOVER
023221,003296:
023222,003297:
023223,003298:
023224,003299: 07,7504 35501 FREDSPDO CAF ZERO # CALLED BY EXECUTIVE
023225,003300: 07,7505 30634 XCH DSPLIST
023226,003301: 07,7506 30635 XCH DSPLIST +1
023227,003302: 07,7507 30636 XCH DSPLIST +2
023228,003303: 07,7510 50114 TS CADRTEM
023229,003304: 07,7511 10000 CCS A
023230,003305: 07,7512 07514 TC +2
023231,003306: 07,7513 07523 TC LSTEMPTY
023232,003307: 07,7514 30114 XCH CADRTEM
023233,003308: 07,7515 20017 INHINT
023234,003309: 07,7516 02060 TC JOBWAKE
023235,003310: 07,7517 20016 RELINT
023236,003311: 07,7520 34516 CAF ONE # SET FOR GRABBED CONDITION
023237,003312: 07,7521 50630 TS GRABLOCK
023238,003313: 07,7522 02124 TC ENDOFJOB
023239,003314: 07,7523 35501 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
023240,003315: 07,7524 07521 TC -3
023241,003316:
023242,003317:
023243,003318:
023244,003319: 07,7525 03052 LSTFULL TC ABORT
023245,003320: 07,7526 01206 OCT 01206 # PINBALL WAITING LINE FULL.
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc