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