Source Code
|
These source-code files are part of a reconstructed copy of Sunrise 69, the
final release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) system test software.
They have been created via disassembly of binary dumps of original core rope
memory modules, part numbers 1003133-18, 1003133-19, 1003133-20, and 1003733-071.
Corresponding portions of code have been copied from Solarium 55 where applicable.
Extensive use was also made of the AGC Information Series documents, which were specifically
written about the Sunrise software.
Since only binary dumps (rather than listings) of Sunrise are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
010923,000002: ## Copyright: Public domain.
010924,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
010925,000004: ## Purpose: A section of Sunrise 69.
010926,000005: ## It is part of the reconstructed source code for the final
010927,000006: ## release of the Block I Command Module system test software. No
010928,000007: ## original listings of this program are available; instead, this
010929,000008: ## file was created via disassembly of dumps of Sunrise core rope
010930,000009: ## memory modules and comparison with the later Block I program
010931,000010: ## Solarium 55.
010932,000011: ## Assembler: yaYUL --block1
010933,000012: ## Contact: Ron Burkey <info@sandroid.org>.
010934,000013: ## Website: www.ibiblio.org/apollo/index.html
010935,000014: ## Mod history: 2023-06-19 MAS Created from Sunrise 45.
010936,000015:
010937,000016:
010938,000017: # KEYBOARD AND DISPLAY PROGRAM
010939,000018:
010940,000019:
010941,000020:
010942,000021: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COUTESY OF THE AUTHORS.
010943,000022:
010944,000023: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
010945,000024: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
010946,000025: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
010947,000026:
010948,000027: # HENRY 6, ACT 2, SCENE 4
010949,000028:
010950,000029:
010951,000030: # SUMMARY OF ERASABLE ASSIGNMENTS FOR KEYBOARD AND DISPLAY PROGRAM
010952,000031: # WHICH ARE ALL DEFINED ELSEWHERE.
010953,000032:
010954,000033:
010955,000034:
010956,000035: # SETLOC 627
010957,000036:
010958,000037: # BUFFER STORAGE AREAS FOR ROUTINES USING DISPLAY OR LOAD ROUTINES.
010959,000038: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
010960,000039: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
010961,000040:
010962,000041: # ERASABLE ASSIGNMENTS SPECIFIC TO PINBALL
010963,000042:
010964,000043:
010965,000044:
010966,000045: # ERASABLES RESERVED FOR EXECUTIVE ACTION
010967,000046:
010968,000047: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
010969,000048: # DECBRNCH ERASE +DEC, - DEC, OCT INDICATOR
010970,000049: # VERBREG ERASE VERB CODE
010971,000050: # NOUNREG ERASE NOUN CODE
010972,000051: # XREG ERASE R1 INPUT BUFFER
010973,000052: # YREG ERASE R2 INPUT BUFFER
010974,000053: # ZREG ERASE R3 INPUT BUFFER
010975,000054: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
010976,000055: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
010977,000056: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
010978,000057: # MODREG ERASE MODE CODE
010979,000058: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
010980,000059: # REQRET ERASE RETURN REGISTER FOR LOAD
010981,000060: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
010982,000061: # CLPASS ERASE PASS INDICATOR CLEAR
010983,000062: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
010984,000063: # NOUNADD ERASE MACHINE ADDRESS FOR NOUN
010985,000064: # MONSAVE ERASE N/V CODE FOR MONITOR. ALSO ACTIVITY
010986,000065: # MONSAVE1 ERASE NOUNADD STORAGE FOR MONITOR WITH MATBS
010987,000066: # DSPTAB ERASE +13D 0-10, DISPLAY PANEL BUFFER. 11-13, C RELAYS
010988,000067: # CADRSTOR ERASE ENDIDLE STORAGE
010989,000068: # GRABLOCK ERASE INTERNAL INTERLOCK FOR DISPLAY SYSTEM
010990,000069: # NVQTEM ERASE NVSUB STORAGE FOR CALLING Q
010991,000070: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
010992,000071: # DSPLIST ERASE +2 WAITING LIST FOR DSP SYST INTERNAL USE
010993,000072: # END OF ERASABLES RESERVED FOR EXECUTIVE ACTION
010994,000073:
010995,000074: # ERASABLES RESERVED FOR INTERRUPT ACTION
010996,000075:
010997,000076: # IN0WORD ERASE INPUT CODE STORAGE (KEYRUPT OR UPRUPT)
010998,000077: # DSPCNT ERASE COUNTER FOR DSPOUT
010999,000078:
011000,000079:
011001,000080:
011002,000081: # TEMPORARY ERASABLES FOR EXECUTIVE ACTION
011003,000082:
011004,000083: # DSEXIT = COMPON RETURN FOR DSPIN
011005,000084: # EXITEM = COMPON RETURN FOR SCALE FACTOR ROUTINE SELECT
011006,000085: # BLANKRET = COMPON RETURN FOR 2BLANK
011007,000086:
011008,000087: # WRDRET = TEM9 RETURN FOR 5BLANK
011009,000088: # WDRET = TEM9 RETURN FOR DSPWD
011010,000089: # DECRET = TEM9 RETURN FOR PUTCOM(DEC LOAD)
011011,000090: # 21/22REG = TEM9 TEMP FOR CHARIN
011012,000091:
011013,000092: # UPDATRET = ORDER RETURN FOR UPDATNN, UPDATVB
011014,000093: # CHAR = ORDER TEMP FOR CHARIN
011015,000094: # ERCNT = ORDER COUNTER FOR ERROR LIGHT RESET
011016,000095: # DECOUNT = ORDER COUNTER FOR SCALING AND DISPLAY (DEC)
011017,000096:
011018,000097: # SGNON = TEM11 TEMP FOR +,- ON
011019,000098: # NOUNTEM = TEM11 COUNTER FOR MIXNOUN FETCH
011020,000099: # DISTEM = TEM11 COUNTER FOR OCTAL DISPLAY VERBS
011021,000100: # DECTEM = TEM11 COUNTER FOR FETCH (DEC DISPLAY VERBS)
011022,000101: # DECTEM1 = TEM11 TEMP FOR NUM
011023,000102:
011024,000103: # SGNOFF = DVSW TEMP FOR +,- ON
011025,000104: # NVTEMP = DVSW TEMP FOR NVSUB
011026,000105: # SFTEMP1 = DVSW STORAGE FOR SF CONST HI PART (=SFTEMP2-1)
011027,000106: # DECTEM2 = DVSW TEMP FOR NUM
011028,000107:
011029,000108: # CODE = BRANCHQ FOR DSPIN
011030,000109: # SFTEMP2 = BRANCHQ STORAGE FOR SF CONST LO PART (=SFTEMP1+1)
011031,000110:
011032,000111: # ENTRET = MODE EXIT FROM ENTER
011033,000112:
011034,000113: # PROGREG = VBUF +2 FOR GO EXEC PROGRAM
011035,000114: # MIXTEMP = VBUF +2 FOR MIXNOUN DATA
011036,000115: # SIGNRET = VBUF +2 RETURN FOR +,- ON
011037,000116:
011038,000117:
011039,000118: # ALSO PROGREG+1, PROGREG+2. MIXTEMP+1, MIXTEMP+2.
011040,000119:
011041,000120: # WDCNT = VBUF +5 CHAR COUNTER FOR DSPWD
011042,000121: # INREL = VBUF +5 INPUT BUFFER SELECTOR ( X,Y,Z, REG )
011043,000122:
011044,000123: # MIXBR = TEM10 INDICATOR FOR MIXED OR NORMAL NOUN
011045,000124: # DSPMMTEM = TEM10 DSPCOUNT SAVE FOR DSPMM
011046,000125:
011047,000126: # MONTEM = NEWEQIND TEMP RETURN FOR MONITOR
011048,000127: # DSREL = TEM2 REL ADDRESS FOR DSPIN (TEM2 USED BY DAD1)
011049,000128:
011050,000129: # DSMAG = TEM4 MAGNITUDE STORE FOR DSPIN
011051,000130: # IDADDTEM = TEM4 MIXNOUN INDIRECT ADDRESS STORAGE
011052,000131:
011053,000132: # COUNT = TEM5 FOR DSPIN (TEM5 IS USED BY DAD)
011054,000133: # LSTPTR = ARETURN LIST POINTER FOR GRABUSY
011055,000134: # RELRET = ARETURN RETURN FOR RELDSP
011056,000135: # FREERET = ARETURN RETURN FOR FREEDSP
011057,000136:
011058,000137: # CADRTEM = ESCAPE TEMP STORAGE FOR GRAB ROUTINES
011059,000138:
011060,000139:
011061,000140:
011062,000141: # TEMPORARY ERASABLES FOR INTERRUPT ACTION
011063,000142:
011064,000143: # KEYTEMP1 = WTEXIT TEMP FOR KEYRUPT, UPRUPT
011065,000144: # DSRUPTEM = WTEXIT TEMP FOR DSPOUT
011066,000145: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
011067,000146:
011068,000147:
011069,000148: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
011070,000149: # 0 10000
011071,000150: # 1 00001
011072,000151: # 9 01001
011073,000152: # VERB 10001
011074,000153: # ERROR RES 10010
011075,000154: # KEY RLSE 11001
011076,000155: # + 11010
011077,000156: # - 11011
011078,000157: # ENTER 11100
011079,000158: # CLEAR 11110
011080,000159: # NOUN 11111
011081,000160:
011082,000161:
011083,000162:
011084,000163: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
011085,000164: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
011086,000165: # ENERGIZED.
011087,000166: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
011088,000167: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
011089,000168: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
011090,000169:
011091,000170: # THE PANEL APPEARS AS FOLLOWS,
011092,000171: # MD1 MD2 (MAJOR MODE)
011093,000172: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
011094,000173: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
011095,000174: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
011096,000175: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
011097,000176:
011098,000177: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
011099,000178: # MD1 25 R2D1 11 ALL ARE OCTAL
011100,000179: # MD2 24 R2D2 10
011101,000180: # VD1 23 R2D3 7
011102,000181: # VD2 22 R2D4 6
011103,000182: # ND1 21 R2D5 5
011104,000183: # ND2 20 R3D1 4
011105,000184: # R1D1 16 R3D2 3
011106,000185: # R1D2 15 R3D3 2
011107,000186: # R1D3 14 R3D4 1
011108,000187: # R1D4 13 R3D5 0
011109,000188: # R1D5 12
011110,000189:
011111,000190:
011112,000191:
011113,000192: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
011114,000193:
011115,000194: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
011116,000195: # RELADD
011117,000196: # 10 1011 MD1 (25) MD2 (24)
011118,000197: # 9 1010 FLASH VD1 (23) VD2 (22)
011119,000198: # 8 1001 ND1 (21) ND2 (20)
011120,000199: # 7 1000 UPACT R1D1 (16)
011121,000200: # 6 0111 +R1 R1D2 (15) R1D3 (14)
011122,000201: # 5 0110 -R1 R1D4 (13) R1D5 (12)
011123,000202: # 4 0101 +R2 R2D1 (11) R2D2 (10)
011124,000203: # 3 0100 -R2 R2D3 (7) R2D4 (6)
011125,000204: # 2 0011 R2D5 (5) R3D1 (4)
011126,000205: # 1 0010 +R3 R3D2 (3) R3D3 (2)
011127,000206: # 0 0001 -R3 R3D4 (1) R3D5 (0)
011128,000207: # 0000 NO RELAYWORD
011129,000208:
011130,000209:
011131,000210:
011132,000211: # THE 5 BIT RELAY CODES ARE,
011133,000212: # BLANK 00000
011134,000213: # 0 10101
011135,000214: # 1 00011
011136,000215: # 2 11001
011137,000216: # 3 11011
011138,000217: # 4 01111
011139,000218: # 5 11110
011140,000219: # 6 11100
011141,000220: # 7 10011
011142,000221: # 8 11101
011143,000222: # 9 11111
011144,000223:
011145,000224:
011146,000225: 24,6000 SETLOC 50000
011147,000226:
011148,000227: 24,6000 07535 GRABUSYB TC GRABUSY1
011149,000228: 24,6001 07557 NVSUBSYB TC NVSUBSY1
011150,000229:
011151,000230: 24,6002 30001 FLASHON XCH Q
011152,000231: 24,6003 50111 TS DSEXIT
011153,000232: 24,6004 07326 TC FLASHON1
011154,000233:
011155,000234: 24,6005 30001 FLASHOFF XCH Q
011156,000235: 24,6006 50111 TS DSEXIT
011157,000236: 24,6007 07335 TC FLASHOF1
011158,000237: # END OF STANDARD LEAD INS.
011159,000238:
011160,000239: 24,6010 34516 CHARIN CAF ONE # BLOCK DISPLAY SYST BUT SAVE OLD
011161,000240: 24,6011 30623 XCH DSPLOCK # C(DSPLOCK) FOR ERROR LIGHT RESET.
011162,000241: 24,6012 50105 TS 21/22REG
011163,000242: 24,6013 30114 XCH MPAC
011164,000243: 24,6014 50062 TS CHAR
011165,000244: 24,6015 20000 INDEX A
011166,000245: 24,6016 06017 TC +1 # INPUT CODE FUNCTION
011167,000246: 24,6017 07317 TC CHARALRM # 0
011168,000247: 24,6020 06067 TC NUM # 1
011169,000248: 24,6021 06067 TC NUM # 2
011170,000249: 24,6022 06067 TC NUM # 3
011171,000250: 24,6023 06067 TC NUM # 4
011172,000251: 24,6024 06067 TC NUM # 5
011173,000252: 24,6025 06067 TC NUM # 6
011174,000253: 24,6026 06067 TC NUM # 7
011175,000254: 24,6027 06062 TC 89TEST # 10 8
011176,000255: 24,6030 06062 TC 89TEST # 11 9
011177,000256: 24,6031 07317 TC CHARALRM # 12
011178,000257: 24,6032 07317 TC CHARALRM # 13
011179,000258: 24,6033 07317 TC CHARALRM # 14
011180,000259: 24,6034 07317 TC CHARALRM # 15
011181,000260: 24,6035 07317 TC CHARALRM # 16
011182,000261: 24,6036 07317 TC CHARALRM # 17
011183,000262: 24,6037 06065 TC NUM -2 # 20 0
011184,000263: 24,6040 06267 TC VERB # 21 VERB
011185,000264: 24,6041 06411 TC ERROR # 22 ERROR LIGHT RESET
011186,000265: 24,6042 07317 TC CHARALRM # 23
011187,000266: 24,6043 07317 TC CHARALRM # 24
011188,000267: 24,6044 07317 TC CHARALRM # 25
011189,000268: 24,6045 07317 TC CHARALRM # 26
011190,000269: 24,6046 07317 TC CHARALRM # 27
011191,000270: 24,6047 07317 TC CHARALRM # 30
011192,000271: 24,6050 07403 TC VBRELDSP # 31 KEY RELEASE
011193,000272: 24,6051 06330 TC POSGN # 32 +
011194,000273: 24,6052 06317 TC NEGSGN # 33 -
011195,000274: 24,6053 06057 TC ENTERJMP # 34 ENTER
011196,000275: 24,6054 07317 TC CHARALRM # 35
011197,000276: 24,6055 06463 TC CLEAR # 36 CLEAR
011198,000277: 24,6056 06311 TC NOUN # 37 NOUN
011199,000278:
011200,000279:
011201,000280: 24,6057 36061 ENTERJMP CAF LENTER
011202,000281: 24,6060 02566 TC BANKJUMP
011203,000282: 24,6061 42004 LENTER CADR ENTER
011204,000283:
011205,000284:
011206,000285: 24,6062 10626 89TEST CCS DECBRNCH
011207,000286: 24,6063 06067 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
011208,000287: 24,6064 07317 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
011209,000288:
011210,000289:
011211,000290: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
011212,000291: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
011213,000292: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
011214,000293: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
011215,000294: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
011216,000295: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
011217,000296:
011218,000297: 24,6065 35500 CAF ZERO
011219,000298: 24,6066 50062 TS CHAR
011220,000299: 24,6067 10625 NUM CCS DSPCOUNT
011221,000300: 24,6070 06074 TC +4 # +
011222,000301: 24,6071 06074 TC +3 # +0
011223,000302: 24,6072 06073 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
011224,000303: 24,6073 02115 TC ENDOFJOB # -0
011225,000304: 24,6074 06237 TC GETINREL
011226,000305: 24,6075 10646 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
011227,000306: 24,6076 35500 CAF ZERO
011228,000307: 24,6077 50646 TS CLPASS
011229,000308: 24,6100 06101 TC +1
011230,000309: 24,6101 20062 INDEX CHAR
011231,000310: 24,6102 32451 CAF RELTAB
011232,000311: 24,6103 72765 MASK LOW5
011233,000312: 24,6104 50110 TS CODE
011234,000313: 24,6105 30625 XCH DSPCOUNT
011235,000314: 24,6106 50103 TS COUNT
011236,000315: 24,6107 50625 TS DSPCOUNT
011237,000316: 24,6110 07220 TC DSPIN
011238,000317: 24,6111 10626 CCS DECBRNCH # +0, OCTAL. +1, + DEC. +2, - DEC.
011239,000318: 24,6112 06123 TC DECTOBIN # +
011240,000319: 24,6113 20075 INDEX INREL # +0 OCTAL
011241,000320: 24,6114 30612 XCH VERBREG
011242,000321: 24,6115 50022 TS CYL
011243,000322: 24,6116 40022 CS CYL
011244,000323: 24,6117 40022 CS CYL
011245,000324: 24,6120 30022 XCH CYL
011246,000325: 24,6121 60062 AD CHAR
011247,000326: 24,6122 06136 TC ENDNMTST
011248,000327: 24,6123 20075 DECTOBIN INDEX INREL
011249,000328: 24,6124 30612 XCH VERBREG
011250,000329: 24,6125 50114 TS MPAC # SUM X 2EXP-14 IN MPAC
011251,000330: 24,6126 06205 TC DECDOUBL
011252,000331: 24,6127 50107 TS DECTEM2
011253,000332: 24,6130 06205 TC DECDOUBL
011254,000333: 24,6131 06205 TC DECDOUBL
011255,000334: 24,6132 60107 AD DECTEM2 # 10SUM IN MPAC
011256,000335: 24,6133 06206 TC DECDOUBL +1
011257,000336: 24,6134 60062 AD CHAR
011258,000337: 24,6135 06206 TC DECDOUBL +1
011259,000338: 24,6136 20075 ENDNMTST INDEX INREL
011260,000339: 24,6137 50612 TS VERBREG
011261,000340: 24,6140 50114 TS MPAC
011262,000341: 24,6141 40625 CS DSPCOUNT
011263,000342: 24,6142 20075 INDEX INREL
011264,000343: 24,6143 66200 AD CRITCON
011265,000344: 24,6144 10000 CCS A
011266,000345: 24,6145 07317 TC CHARALRM # + PATHOLOGICAL CASE
011267,000346: 24,6146 07317 TC CHARALRM # +0 IMPOSSIBLE
011268,000347: 24,6147 06175 TC MORNUM # -
011269,000348: 24,6150 10626 ENDNUM CCS DECBRNCH
011270,000349: 24,6151 06154 TC DECEND
011271,000350: 24,6152 40625 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
011272,000351: 24,6153 06176 TC MORNUM +1 # NEGATIVELY
011273,000352: 24,6154 36234 DECEND CAF DECON +1
011274,000353: 24,6155 50115 TS MPAC +1
011275,000354: 24,6156 36233 CAF DECON
011276,000355: 24,6157 30114 XCH MPAC
011277,000356: 24,6160 05415 TC SHORTMP
011278,000357: 24,6161 20626 DECSIGN INDEX DECBRNCH
011279,000358: 24,6162 06162 TC +0
011280,000359: 24,6163 06167 TC ENDECOM
011281,000360: 24,6164 40115 CS MPAC +1
011282,000361: 24,6165 50115 TS MPAC +1
011283,000362: 24,6166 40114 CS MPAC
011284,000363: 24,6167 20075 ENDECOM INDEX INREL
011285,000364: 24,6170 50612 TS VERBREG
011286,000365: 24,6171 30115 XCH MPAC +1
011287,000366: 24,6172 20075 INDEX INREL
011288,000367: 24,6173 50615 TS XREGLP -2
011289,000368: 24,6174 06152 TC ENDALL
011290,000369: 24,6175 10625 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
011291,000370: 24,6176 50625 TS DSPCOUNT
011292,000371: 24,6177 02115 TC ENDOFJOB
011293,000372:
011294,000373: 24,6200 00022 CRITCON OCT 22 # (DEC 18)
011295,000374: 24,6201 00020 OCT 20 # (DEC 16)
011296,000375: 24,6202 00012 OCT 12 # (DEC 10)
011297,000376: 24,6203 00005 OCT 5
011298,000377: 24,6204 00000 OCT 0
011299,000378:
011300,000379: 24,6205 60000 DECDOUBL DOUBLE
011301,000380: 24,6206 50000 OVSK
011302,000381: 24,6207 00001 TC Q
011303,000382:
011304,000383: 24,6210 36236 CAF DECON2 +1
011305,000384: 24,6211 50115 TS MPAC +1
011306,000385: 24,6212 36235 CAF DECON2
011307,000386: 24,6213 30114 XCH MPAC
011308,000387: 24,6214 50107 TS DECTEM2
011309,000388: 24,6215 05415 TC SHORTMP
011310,000389: 24,6216 60107 AD DECTEM2
011311,000390: 24,6217 50114 TS MPAC
011312,000391:
011313,000392: 24,6220 36233 CAF DECON
011314,000393: 24,6221 25777 EXTEND
011315,000394: 24,6222 40062 MP CHAR
011316,000395: 24,6223 50034 TS OVCTR
011317,000396:
011318,000397: 24,6224 30115 XCH MPAC +1
011319,000398: 24,6225 60003 AD LP
011320,000399: 24,6226 30115 XCH MPAC +1
011321,000400: 24,6227 30034 XCH OVCTR
011322,000401: 24,6230 60114 AD MPAC
011323,000402: 24,6231 50114 TS MPAC
011324,000403:
011325,000404: 24,6232 06161 TC DECSIGN
011326,000405:
011327,000406: 24,6233 05174 13261 DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
011328,000407: 24,6235 24333 21353 DECON2 2DEC 0.6384
011329,000408:
011330,000409: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
011331,000410: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
011332,000411:
011333,000412: 24,6237 20625 GETINREL INDEX DSPCOUNT
011334,000413: 24,6240 36243 CAF INRELTAB
011335,000414: 24,6241 50075 TS INREL # (A TEMP, REG)
011336,000415: 24,6242 00001 TC Q
011337,000416:
011338,000417: 24,6243 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
011339,000418: 24,6244 00004 OCT 4 # R3D4 =(1)
011340,000419: 24,6245 00004 OCT 4 # R3D3 =(2)
011341,000420: 24,6246 00004 OCT 4 # R3D2 =(3)
011342,000421: 24,6247 00004 OCT 4 # R3D1 =(4)
011343,000422: 24,6250 00003 OCT 3 # R2D5 =(5)
011344,000423: 24,6251 00003 OCT 3 # R2D4 =(6)
011345,000424: 24,6252 00003 OCT 3 # R2D3 =(7)
011346,000425: 24,6253 00003 OCT 3 # R2D2 =(8D)
011347,000426: 24,6254 00003 OCT 3 # R2D1 =(9D)
011348,000427: 24,6255 00002 OCT 2 # R1D5 =(10D)
011349,000428: 24,6256 00002 OCT 2 # R1D4 =(11D)
011350,000429: 24,6257 00002 OCT 2 # R1D3 =(12D)
011351,000430: 24,6260 00002 OCT 2 # R1D2 =(13D)
011352,000431: 24,6261 00002 OCT 2 # R1D1 =(14D)
011353,000432: 24,6263 LOC +1 # NO DSPCOUNT NUMBER = 15D
011354,000433: 24,6263 00001 OCT 1 # ND2 =(16D)
011355,000434: 24,6264 00001 OCT 1 # ND1 =(17D)
011356,000435: 24,6265 00000 OCT 0 # VD2 =(18D)
011357,000436: 24,6266 00000 OCT 0 # VD1 =(19D)
011358,000437:
011359,000438:
011360,000439:
011361,000440: 24,6267 35500 VERB CAF ZERO
011362,000441: 24,6270 50612 TS VERBREG
011363,000442: 24,6271 50110 TS CODE # VERB CANT USE 2BLANK SINCE THAT TURNS
011364,000443: 24,6272 32775 CAF VD1 # THE FLASH OFF
011365,000444: 24,6273 50625 TS DSPCOUNT
011366,000445: 24,6274 50103 TS COUNT
011367,000446: 24,6275 07220 TC DSPIN
011368,000447: 24,6276 36200 CAF VD2
011369,000448: 24,6277 50103 TS COUNT
011370,000449: 24,6300 35500 CAF ZERO
011371,000450: 24,6301 50110 TS CODE
011372,000451: 24,6302 07220 TC DSPIN
011373,000452: 24,6303 35500 N/VCOM CAF ZERO
011374,000453: 24,6304 50626 TS DECBRNCH
011375,000454: 24,6305 50624 TS REQRET # SET FOR ENTPAS0
011376,000455: 24,6306 32734 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
011377,000456: 24,6307 50064 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
011378,000457: # TO TC ENDOFJOB
011379,000458: 24,6310 02115 TC ENDOFJOB
011380,000459: 24,6311 35500 NOUN CAF ZERO
011381,000460: 24,6312 50613 TS NOUNREG
011382,000461: 24,6313 32776 CAF ND1 # ND1, OCT 21 (DEC 17)
011383,000462: 24,6314 50625 TS DSPCOUNT
011384,000463: 24,6315 06575 TC 2BLANK
011385,000464: 24,6316 06303 TC N/VCOM
011386,000465:
011387,000466:
011388,000467:
011389,000468: 24,6317 24,6200 VD2 = CRITCON # OCT 22
011390,000469:
011391,000470:
011392,000471:
011393,000472: 24,6317 06372 NEGSGN TC SIGNTEST
011394,000473: 24,6320 35502 CAF TWO
011395,000474: 24,6321 50626 TS DECBRNCH # SET DEC COMP BIT TO 1 (IN DECBRNCH)
011396,000475: 24,6322 06356 TC -ON
011397,000476: 24,6323 10646 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
011398,000477: 24,6324 35500 CAF ZERO
011399,000478: 24,6325 50646 TS CLPASS
011400,000479: 24,6326 06327 TC +1
011401,000480: 24,6327 02115 TC ENDOFJOB
011402,000481:
011403,000482: 24,6330 06372 POSGN TC SIGNTEST
011404,000483: 24,6331 34516 CAF ONE
011405,000484: 24,6332 50626 TS DECBRNCH
011406,000485: 24,6333 06335 TC +ON
011407,000486: 24,6334 06323 TC FIXCLPAS
011408,000487:
011409,000488: 24,6335 30001 +ON XCH Q
011410,000489: 24,6336 50072 TS SIGNRET
011411,000490: 24,6337 06237 TC GETINREL
011412,000491: 24,6340 20075 INDEX INREL
011413,000492: 24,6341 36365 CAF SGNTAB -2
011414,000493: 24,6342 50107 TS SGNOFF
011415,000494: 24,6343 64516 AD ONE
011416,000495: 24,6344 50063 TS SGNON
011417,000496: 24,6345 35500 SGNCOM CAF ZERO
011418,000497: 24,6346 50110 TS CODE
011419,000498: 24,6347 30107 XCH SGNOFF
011420,000499: 24,6350 07305 TC 11DSPIN
011421,000500: 24,6351 34504 CAF BIT11
011422,000501: 24,6352 50110 TS CODE
011423,000502: 24,6353 30063 XCH SGNON
011424,000503: 24,6354 07305 TC 11DSPIN
011425,000504: 24,6355 00072 TC SIGNRET
011426,000505: 24,6356 30001 -ON XCH Q
011427,000506: 24,6357 50072 TS SIGNRET
011428,000507: 24,6360 06237 TC GETINREL
011429,000508: 24,6361 20075 INDEX INREL
011430,000509: 24,6362 36365 CAF SGNTAB -2
011431,000510: 24,6363 50063 TS SGNON
011432,000511: 24,6364 64516 AD ONE
011433,000512: 24,6365 50107 TS SGNOFF
011434,000513: 24,6366 06345 TC SGNCOM
011435,000514:
011436,000515: 24,6367 00005 SGNTAB OCT 5 # -R1
011437,000516: 24,6370 00003 OCT 3 # -R2
011438,000517: 24,6371 00000 OCT 0 # -R3
011439,000518:
011440,000519:
011441,000520:
011442,000521: 24,6372 30001 SIGNTEST XCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
011443,000522: 24,6373 50072 TS SIGNRET # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
011444,000523: 24,6374 42736 CS R1D1
011445,000524: 24,6375 06403 TC SGNTST1
011446,000525: 24,6376 42737 CS R2D1
011447,000526: 24,6377 06403 TC SGNTST1
011448,000527: 24,6400 42740 CS R3D1
011449,000528: 24,6401 06403 TC SGNTST1
011450,000529: 24,6402 02115 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
011451,000530: 24,6403 60625 SGNTST1 AD DSPCOUNT
011452,000531: 24,6404 10000 CCS A
011453,000532: 24,6405 00001 TC Q
011454,000533: 24,6407 LOC +1
011455,000534: 24,6407 00001 TC Q
011456,000535: 24,6410 00072 TC SIGNRET # SIGN LEGAL
011457,000536:
011458,000537:
011459,000538:
011460,000539: # ERROR LIGHT RESET RESETS TMALM, DSPALARM (CHECK FAIL), PROGALM, UNBLOCKS
011461,000540: # ENDPULSES, RESETS ERRUPT TRAP. IT ALSO FORCES BIT 12 OF ALL DSPTAB
011462,000541: # ENTRIES TO ONE. RESETS UPACT LIGHT.
011463,000542:
011464,000543: 24,6411 30105 ERROR XCH 21/22REG
011465,000544: 24,6412 50623 TS DSPLOCK
011466,000545: 24,6413 20017 INHINT
011467,000546: 24,6414 44510 CS BIT7 # RESET ERRUPT TRAP
011468,000547: 24,6415 70011 MASK OUT1
011469,000548: 24,6416 64510 AD BIT7
011470,000549: 24,6417 50011 TS OUT1
011471,000550: 24,6420 46462 CS CFAILCON # RESET THE C RELAYS FOR IMU FAIL, CDUFAIL
011472,000551: 24,6421 70743 MASK DSPTAB +11D # PIPA FAIL.
011473,000552: 24,6422 64500 AD BIT15
011474,000553: 24,6423 50743 TS DSPTAB +11D
011475,000554: 24,6424 46460 CS ERCON
011476,000555: 24,6425 70011 MASK OUT1
011477,000556: 24,6426 50011 TS OUT1
011478,000557: 24,6427 33000 TSTAB CAF BINCON # (DEC 10)
011479,000558: 24,6430 50062 TS ERCNT # ERCNT = COUNT
011480,000559: 24,6431 20017 INHINT
011481,000560: 24,6432 20062 INDEX ERCNT
011482,000561: 24,6433 10730 CCS DSPTAB
011483,000562: 24,6434 64516 AD ONE
011484,000563: 24,6435 06442 TC ERPLUS
011485,000564: 24,6436 64516 AD ONE
011486,000565: 24,6437 40000 ERMINUS CS A
011487,000566: 24,6440 76461 MASK NOTBIT12
011488,000567: 24,6441 06445 TC ERCOM
011489,000568: 24,6442 40000 ERPLUS CS A
011490,000569: 24,6443 76461 MASK NOTBIT12
011491,000570: 24,6444 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
011492,000571: 24,6445 20062 ERCOM INDEX ERCNT # ETC.
011493,000572: 24,6446 50730 TS DSPTAB
011494,000573: 24,6447 20016 RELINT
011495,000574: 24,6450 10062 CCS ERCNT
011496,000575: 24,6451 06430 TC TSTAB +1
011497,000576: 24,6452 35500 CAF ZERO
011498,000577: 24,6453 50756 TS FAILREG
011499,000578: 24,6454 50110 TS CODE
011500,000579: 24,6455 35361 CAF SEVEN
011501,000580: 24,6456 07305 TC 11DSPIN # TURN OFF UPACT LIGHT
011502,000581: 24,6457 02115 TC ENDOFJOB
011503,000582:
011504,000583: 24,6460 01131 ERCON OCT 01131 # BITS 1, 4, 5, 7, 10.
011505,000584: # PROGALM, TMFAIL, CHECK FAIL, ERRUPT TRAP
011506,000585: # END PULSES.
011507,000586:
011508,000587: 24,6461 73777 NOTBIT12 OCT 73777
011509,000588: 24,6462 40340 CFAILCON OCT 40340
011510,000589:
011511,000590:
011512,000591:
011513,000592: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINE
011514,000593: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
011515,000594: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
011516,000595:
011517,000596: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
011518,000597: # APPROPRIATE TO BE CLEARED.
011519,000598:
011520,000599: # CLPASS +0 PASS0, CAN BE BACKED UP
011521,000600: # +NZ HIPASS, CAN BE BACKED UP
011522,000601: # -NZ PASS0, CANNOT BE BACKED UP
011523,000602:
011524,000603: 24,6463 10646 CLEAR CCS CLPASS
011525,000604: 24,6464 06477 TC CLPASHI # +
011526,000605: 24,6465 06467 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
011527,000606: 24,6466 06467 TC +1 # -
011528,000607: 24,6467 10625 CCS DSPCOUNT
011529,000608: 24,6470 64516 AD ONE
011530,000609: 24,6471 06473 TC +2
011531,000610: 24,6472 64516 AD ONE
011532,000611: 24,6473 50625 TS DSPCOUNT
011533,000612: 24,6474 06237 TC GETINREL
011534,000613: 24,6475 06526 TC LEGALTST
011535,000614: 24,6476 06516 TC CLEAR1
011536,000615: 24,6477 10075 CLPASHI CCS INREL
011537,000616: 24,6500 50075 TS INREL
011538,000617: 24,6501 06526 TC LEGALTST
011539,000618: 24,6502 30624 XCH REQRET
011540,000619: 24,6503 66574 AD DOUBLK +2 # +3 TO - NUMBER. BACKS UP DATA REQUESTS
011541,000620: 24,6504 50624 TS REQRET
011542,000621: 24,6505 30075 XCH INREL
011543,000622: 24,6506 50072 TS MIXTEMP # TEMP STORAGE FOR INREL
011544,000623: 24,6507 30612 XCH VERBREG # DECREMENT VERB AND RE-DISPLAY
011545,000624: 24,6510 64335 AD NEG1
011546,000625: 24,6511 50612 TS VERBREG
011547,000626: 24,6512 36534 CAF LUPDATVB
011548,000627: 24,6513 02524 TC SWCALL
011549,000628: 24,6514 30072 XCH MIXTEMP
011550,000629: 24,6515 50075 TS INREL # RESTORE INREL
011551,000630: 24,6516 06523 CLEAR1 TC CLR5
011552,000631: 24,6517 34516 CAF ONE
011553,000632: 24,6520 60646 AD CLPASS # ONLY IF CLPASS IS + OR +0,
011554,000633: 24,6521 50646 TS CLPASS # SET FOR HIGHER PASS.
011555,000634: 24,6522 02115 TC ENDOFJOB
011556,000635: 24,6523 30001 CLR5 XCH Q
011557,000636: 24,6524 50105 TS WRDRET # USES 5BLANK BUT AVOIDS ITS TC GETINREL
011558,000637: 24,6525 06540 TC 5BLANK +3
011559,000638: 24,6526 64340 LEGALTST AD MINUS2
011560,000639: 24,6527 10000 CCS A
011561,000640: 24,6530 00001 TC Q # LEGAL INREL G/ 2
011562,000641: 24,6532 LOC +1
011563,000642: 24,6532 02115 TC ENDOFJOB # ILLEGAL INREL= 0,1
011564,000643: 24,6533 00001 TC Q # LEGAL INREL = 2
011565,000644:
011566,000645: 24,6534 42277 LUPDATVB CADR UPDATVB
011567,000646:
011568,000647:
011569,000648: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
011570,000649: # YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
011571,000650: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
011572,000651:
011573,000652: 24,6535 30001 5BLANK XCH Q
011574,000653: 24,6536 50105 TS WRDRET
011575,000654: 24,6537 06237 TC GETINREL
011576,000655: 24,6540 35500 CAF ZERO
011577,000656: 24,6541 50626 TS DECBRNCH
011578,000657: 24,6542 20075 INDEX INREL
011579,000658: 24,6543 50612 TS VERBREG # ZERO X, Y, Z REG.
011580,000659: 24,6544 20075 INDEX INREL
011581,000660: 24,6545 50615 TS XREGLP -2
011582,000661: 24,6546 50110 TS CODE
011583,000662: 24,6547 20075 INDEX INREL
011584,000663: 24,6550 36565 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
011585,000664: 24,6551 50103 TS COUNT
011586,000665: 24,6552 07220 TC DSPIN
011587,000666: 24,6553 20075 5BLANK1 INDEX INREL
011588,000667: 24,6554 36570 CAF DOUBLK -2
011589,000668: 24,6555 50625 TS DSPCOUNT
011590,000669: 24,6556 06575 TC 2BLANK
011591,000670: 24,6557 45502 CS TWO
011592,000671: 24,6560 60625 AD DSPCOUNT
011593,000672: 24,6561 50625 TS DSPCOUNT
011594,000673: 24,6562 06575 TC 2BLANK
011595,000674: 24,6563 20075 INDEX INREL
011596,000675: 24,6564 32734 CAF R1D1 -2
011597,000676: 24,6565 50625 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
011598,000677: 24,6566 00105 TC WRDRET # OF REG. JUST BLANKED
011599,000678:
011600,000679: 24,6567 00016 SINBLANK OCT 16 # DEC 14
011601,000680: 24,6570 00005 OCT 5
011602,000681: 24,6571 00004 OCT 4
011603,000682: 24,6572 00015 DOUBLK OCT 15 # DEC 13
011604,000683: 24,6573 00011 OCT 11 # DEC 9
011605,000684: 24,6574 00003 OCT 3
011606,000685:
011607,000686: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
011608,000687: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
011609,000688:
011610,000689: 24,6575 30001 2BLANK XCH Q
011611,000690: 24,6576 50111 TS BLANKRET
011612,000691: 24,6577 40625 CS DSPCOUNT
011613,000692: 24,6600 40000 CS A
011614,000693: 24,6601 50021 TS SR
011615,000694: 24,6602 46613 CS BLANKCON
011616,000695: 24,6603 20017 INHINT
011617,000696: 24,6604 20021 INDEX SR
011618,000697: 24,6605 30730 XCH DSPTAB
011619,000698: 24,6606 10000 CCS A
011620,000699: 24,6607 06614 TC INCNOUT # IF OLD CONTENTS +,+1 TO NOUT
011621,000700: 24,6611 LOC +1
011622,000701: 24,6611 20016 RELINT # IF -,NOUT OK
011623,000702: 24,6612 00111 TC BLANKRET
011624,000703: 24,6613 04000 BLANKCON OCT 4000
011625,000704:
011626,000705: 24,6614 30727 INCNOUT XCH NOUT
011627,000706: 24,6615 64516 AD ONE
011628,000707: 24,6616 50727 TS NOUT
011629,000708: 24,6617 20001 INDEX Q
011630,000709: 24,6620 00001 TC 1 # RETURN TO 2+ L(CALLING TC)
011631,000710:
011632,000711:
011633,000712: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
011634,000713: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
011635,000714: # PASSES.
011636,000715:
011637,000716: 21,6000 SETLOC 42000
011638,000717:
011639,000718: 21,6000 07235 NVSUBB TC NVSUB1 # STANDARD LEAD INS, DONT MOVE.
011640,000719: 21,6001 30001 DSPMM XCH Q
011641,000720: 21,6002 50062 TS UPDATRET
011642,000721: 21,6003 07305 TC DSPMM1
011643,000722: # END OF STANDARD LEAD INS.
011644,000723:
011645,000724:
011646,000725: 21,6004 35500 ENTER CAF ZERO
011647,000726: 21,6005 50646 TS CLPASS
011648,000727: 21,6006 32734 CAF ENDINST
011649,000728: 21,6007 50064 TS ENTRET
011650,000729: 21,6010 10624 CCS REQRET
011651,000730: 21,6011 06012 TC +1 # IF +, PASS 0
011652,000731: 21,6012 06020 TC ENTPAS0 # IF +, PASS 0
011653,000732: 21,6013 64516 AD ONE # IF -, NOT PASS 0E
011654,000733: 21,6014 50624 TS REQRET # SET REQRET +.
011655,000734: 21,6015 36256 CAF LFLASHOF
011656,000735: 21,6016 02524 TC SWCALL
011657,000736: 21,6017 00624 TC REQRET
011658,000737:
011659,000738: 21,6020 0064 ENTEXIT = ENTRET
011660,000739:
011661,000740: 21,6020 35500 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
011662,000741: 21,6021 50626 TS DECBRNCH
011663,000742: 21,6022 40612 TESTVB CS VERBREG # IF VERB IS 32-77, SKIP NOUN TEST
011664,000743: 21,6023 66026 AD LOWVERB # 32-VB
011665,000744: 21,6024 10000 CCS A
011666,000745: 21,6025 06031 TC TESTNN # VERB L/ 32
011667,000746: 21,6026 00032 LOWVERB OCT 32 # LOWER VERB THAT AVOIDS NOUN TEST
011668,000747: 21,6027 06030 TC +1 # VERB G/ 32
011669,000748: 21,6030 06105 TC VERBFAN # VERB=32
011670,000749: 21,6031 40613 TESTNN CS NOUNREG
011671,000750: 21,6032 66035 AD MIXCON
011672,000751: 21,6033 10000 CCS A
011673,000752: 21,6034 06040 TC LODNORM # NOUN L/ FIRST MIXED NOUN
011674,000753: 21,6035 00055 MIXCON OCT 55 # FIRST MIXED NOUN = 55.
011675,000754: 21,6036 06037 TC +1
011676,000755: 21,6037 06165 TC MIXNOUN
011677,000756: 21,6040 34516 LODNORM CAF ONE
011678,000757: 21,6041 50106 TS MIXBR
011679,000758: 21,6042 20613 INDEX NOUNREG
011680,000759: 21,6043 37313 CAF NNADTAB
011681,000760: 21,6044 10000 CCS A
011682,000761: 21,6045 06103 TC VERBFAN -2
011683,000762: 21,6046 06307 TC GODSPALM
011684,000763: 21,6047 06057 TC REQADD
011685,000764: 21,6050 32740 DSPADD CAF R3D1
011686,000765: 21,6051 50625 TS DSPCOUNT
011687,000766: 21,6052 30635 XCH NOUNADD
011688,000767: 21,6053 64516 AD ONE
011689,000768: 21,6054 50635 TS NOUNADD
011690,000769: 21,6055 07137 TC DSPOCTWD
011691,000770: 21,6056 06105 TC VERBFAN
011692,000771: 21,6057 34500 REQADD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
011693,000772: 21,6060 50646 TS CLPASS
011694,000773: 21,6061 42734 CS ENDINST
011695,000774: 21,6062 60064 AD ENTEXIT
011696,000775: 21,6063 10000 CCS A # TEST IF REACHED HERE FROM INTERNAL OR
011697,000776: 21,6064 06075 TC INTMATBS # FROM EXTERNAL
011698,000777: 21,6066 LOC +1
011699,000778: 21,6066 06075 TC INTMATBS
011700,000779: 21,6067 06243 TC REQDATZ # EXTERNAL MACH ADDR TO BE SPECIFIED
011701,000780: 21,6070 30616 XCH ZREG
011702,000781: 21,6071 50635 TS NOUNADD
011703,000782: 21,6072 34516 CAF ONE
011704,000783: 21,6073 50106 TS MIXBR
011705,000784: 21,6074 06105 TC VERBFAN
011706,000785:
011707,000786: 21,6075 32740 INTMATBS CAF R3D1
011708,000787: 21,6076 50625 TS DSPCOUNT
011709,000788: 21,6077 40635 CS NOUNADD
011710,000789: 21,6100 40000 CS A
011711,000790: 21,6101 07137 TC DSPOCTWD
011712,000791: 21,6102 06105 TC VERBFAN
011713,000792:
011714,000793: 21,6103 64516 AD ONE
011715,000794: 21,6104 50635 TS NOUNADD
011716,000795: 21,6105 46120 VERBFAN CS LST2CON
011717,000796: 21,6106 60612 AD VERBREG # VERB-LST2CON
011718,000797: 21,6107 10000 CCS A
011719,000798: 21,6110 64516 AD ONE # VERB G/ LST2CON
011720,000799: 21,6111 06113 TC +2
011721,000800: 21,6112 06122 TC VBFANDIR # VERB L/ LST2CON
011722,000801: 21,6113 50114 JAMEXTVB TS MPAC # SPECIAL ENTRY FOR FORCING EXTENDED VERB.
011723,000802: 21,6114 03046 TC RELDSP # RELEASE DISPLAY SYST
011724,000803: 21,6115 30114 XCH MPAC # ALSO TURN OFF RELEASE DISPLAY SYST LIGHT
011725,000804: 21,6116 66121 AD LST2CADR
011726,000805: 21,6117 02566 TC BANKJUMP
011727,000806: 21,6120 00040 LST2CON OCT 40 # FIRST LST2 VERB
011728,000807: 21,6121 13740 LST2CADR CADR LST2FAN # THE LIST2 FAN IS LOCATED IN BANK 05
011729,000808:
011730,000809: 21,6122 20612 VBFANDIR INDEX VERBREG
011731,000810: 21,6123 36125 CAF VERBTAB
011732,000811: 21,6124 02566 TC BANKJUMP
011733,000812:
011734,000813: 21,6125 51321 VERBTAB CADR DSPALARM # VB00 ILLEGAL
011735,000814: 21,6126 42317 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
011736,000815: 21,6127 42323 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
011737,000816: 21,6130 42326 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
011738,000817: 21,6131 42314 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
011739,000818: 21,6132 42311 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
011740,000819: 21,6133 42352 CADR DECDSP # VB06 DECIMAL DISPLAY
011741,000820: 21,6134 42515 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
011742,000821: 21,6135 51361 CADR VBRQWAIT # VB10 REQUEST WAITLIST
011743,000822: 21,6136 43007 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
011744,000823: 21,6137 43007 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
011745,000824: 21,6140 43007 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
011746,000825: 21,6141 43007 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
011747,000826: 21,6142 43007 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
011748,000827: 21,6143 43007 CADR MONITOR # VB16 MONITOR DECIMAL
011749,000828: 21,6144 43007 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
011750,000829: 21,6145 51340 REQEXLOC CADR VBRQEXEC # VB20 REQUEST EXECUTIVE
011751,000830: 21,6146 42611 CADR ALOAD # VB21 LOAD COMP 1 (R1)
011752,000831: 21,6147 42617 CADR BLOAD # VB22 LOAD COMP 2 (R2)
011753,000832: 21,6150 42627 CADR CLOAD # VB23 LOAD COMP 3 (R3)
011754,000833: 21,6151 42572 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
011755,000834: 21,6152 42544 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
011756,000835: 21,6153 51321 CADR DSPALARM # VB26 SPARE
011757,000836: 21,6154 51321 CADR DSPALARM # VB27 SPARE
011758,000837: 21,6155 51321 CADR DSPALARM # VB30 SPARE
011759,000838: 21,6156 43130 CADR DSPBANK # VB31 BANK DISPLAY
011760,000839: 21,6157 51411 CADR BUMP # VB32 C(R2) INTO R3, C(R1) INTO R2
011761,000840: 21,6160 51373 CADR VBPROC # VB33 PROCEED WITHOUT DATA
011762,000841: 21,6161 51400 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
011763,000842: 21,6162 51403 CADR VBRELDSP # VB35 RELEASE DISPLAY SYST
011764,000843: 21,6163 10000 CADR SLAPB # VB36 FRESH START
011765,000844: 21,6164 43206 ENDVBFAN CADR MMCHANG # VB37 CHANGE MAJOR MODE
011766,000845:
011767,000846:
011768,000847:
011769,000848: # THE LIST2 VERBFAN IS LOCATED IN BANK 05.
011770,000849:
011771,000850:
011772,000851: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
011773,000852: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
011774,000853: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
011775,000854: # MIXTEMP.
011776,000855:
011777,000856: 21,6165 20613 MIXNOUN INDEX NOUNREG
011778,000857: 21,6166 37313 CAF NNADTAB
011779,000858: 21,6167 10000 CCS A
011780,000859: 21,6170 06174 TC +4 # + IN USE
011781,000860: 21,6171 06307 TC GODSPALM # +0 NOT IN USE
011782,000861: 21,6172 06174 TC +2 # - IN USE
011783,000862: 21,6173 06174 TC +1 # -0 IN USE
011784,000863: 21,6174 35502 CAF TWO
011785,000864: 21,6175 50106 TS MIXBR
011786,000865: 21,6176 44475 CS SIX
011787,000866: 21,6177 60612 AD VERBREG
011788,000867: 21,6200 10000 CCS A # AVOID MIXNOUN SWAP FOR OTHER THAN
011789,000868: 21,6201 06105 TC VERBFAN # DISPLAY VERBS
011790,000869: 21,6203 LOC +1
011791,000870: 21,6203 06204 TC +1
011792,000871: 21,6204 35502 CAF TWO
011793,000872: 21,6205 50063 MIXNN1 TS NOUNTEM
011794,000873: 21,6206 66225 AD MIXAD
011795,000874: 21,6207 50635 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
011796,000875: 21,6210 06226 TC SETIDADD
011797,000876: 21,6211 60063 AD NOUNTEM
011798,000877: 21,6212 20000 INDEX A
011799,000878: 21,6213 37533 CAF IDADDTAB
011800,000879: 21,6214 74605 MASK LOW10 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
011801,000880: 21,6215 20000 INDEX A # PICK UP C(ESUBK) NOT DP
011802,000881: 21,6216 40000 CS 0 # OR C((ESUBK)+1) FOR DP MINOR PART
011803,000882: 21,6217 40000 CS A
011804,000883: 21,6220 20635 INDEX NOUNADD
011805,000884: 21,6221 50000 TS 0 # STORE IN MIXTEM + K
011806,000885: 21,6222 10063 CCS NOUNTEM
011807,000886: 21,6223 06205 TC MIXNN1
011808,000887: 21,6224 06105 TC VERBFAN
011809,000888:
011810,000889: 21,6225 00072 MIXAD TC MIXTEMP
011811,000890:
011812,000891: 21,6226 34605 SETIDADD CAF LOW10
011813,000892: 21,6227 20613 INDEX NOUNREG
011814,000893: 21,6230 77313 MASK NNADTAB
011815,000894: 21,6231 50102 TS IDADDTEM
011816,000895: 21,6232 00001 TC Q
011817,000896:
011818,000897: 21,6233 40001 REQDATX CS Q
011819,000898: 21,6234 50624 TS REQRET
011820,000899: 21,6235 32736 CAF R1D1
011821,000900: 21,6236 06246 TC REQCOM
011822,000901: 21,6237 40001 REQDATY CS Q
011823,000902: 21,6240 50624 TS REQRET
011824,000903: 21,6241 32737 CAF R2D1
011825,000904: 21,6242 06246 TC REQCOM
011826,000905: 21,6243 40001 REQDATZ CS Q
011827,000906: 21,6244 50624 TS REQRET
011828,000907: 21,6245 32740 CAF R3D1
011829,000908: 21,6246 50625 REQCOM TS DSPCOUNT
011830,000909: 21,6247 36254 CAF L5BLANK
011831,000910: 21,6250 02524 TC SWCALL
011832,000911: 21,6251 36255 CAF FLONAD
011833,000912: 21,6252 02524 TC SWCALL
011834,000913: 21,6253 00064 TC ENTEXIT
011835,000914:
011836,000915: 21,6254 50535 L5BLANK CADR 5BLANK
011837,000916: 21,6255 50002 FLONAD CADR FLASHON
011838,000917: 21,6256 50005 LFLASHOF CADR FLASHOFF
011839,000918:
011840,000919: # IF NVSUB INITIATED LOAD, SET CADRSTOR TO -0 TO TELL RECALTST TO RELEASE
011841,000920: # DISPLAY IF ENDIDLE WAS NOT USED. (NECESSARY FOR DATAWAIT)
011842,000921:
011843,000922:
011844,000923:
011845,000924: 21,6257 50613 TS NOUNREG
011846,000925: 21,6260 30001 UPDATNN XCH Q
011847,000926: 21,6261 50062 TS UPDATRET
011848,000927: 21,6262 20613 INDEX NOUNREG
011849,000928: 21,6263 37313 CAF NNADTAB
011850,000929: 21,6264 10000 CCS A
011851,000930: 21,6265 64516 AD ONE # NORMAL
011852,000931: 21,6266 06271 TC PUTADD
011853,000932: 21,6267 06272 TC PUTADD +1 # MATBS DONT CHANGE NOUNADD
011854,000933: 21,6270 06272 TC PUTADD +1 # MATBI DONT CHANGE NOUNADD
011855,000934: 21,6271 50635 PUTADD TS NOUNADD
011856,000935: 21,6272 32776 CAF ND1
011857,000936: 21,6273 50625 TS DSPCOUNT
011858,000937: 21,6274 40613 CS NOUNREG
011859,000938: 21,6275 06304 TC UPDAT1
011860,000939:
011861,000940: 21,6276 50612 TS VERBREG
011862,000941: 21,6277 30001 UPDATVB XCH Q
011863,000942: 21,6300 50062 TS UPDATRET
011864,000943: 21,6301 32775 CAF VD1
011865,000944: 21,6302 50625 TS DSPCOUNT
011866,000945: 21,6303 40612 CS VERBREG
011867,000946: 21,6304 40000 UPDAT1 CS A
011868,000947: 21,6305 07174 TC DSP2BIT
011869,000948: 21,6306 00062 TC UPDATRET
011870,000949:
011871,000950:
011872,000951:
011873,000952: 21,6307 36125 GODSPALM CAF VERBTAB
011874,000953: 21,6310 02566 TC BANKJUMP
011875,000954:
011876,000955:
011877,000956: # NOUN TABLES
011878,000957: # NOUN CODE L/55, NORMAL CASE. NOUN CODE G/E 55, MIXED NOUN CASE.
011879,000958: # FOR NORMAL CASE, NNADTAB CONTAINS ONE MACHINE ADDRESS FOR EACH NOUN.
011880,000959: # +0 INDICATES NOUN NOT USED. - ENTRY IDICATES MACHINE ADDRESS TO BE
011881,000960: # SPECIFIED. -0 ENTRY INDICATES AUGMENT OF LAST MACHINE ADDRESS.
011882,000961:
011883,000962: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
011884,000963: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
011885,000964:
011886,000965: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
011887,000966:
011888,000967: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
011889,000968: # N-S ARE THE SF ROUTINE CODE NUMBER.
011890,000969: # P-S ARE THE SF CONSTANT CODE NUMBER.
011891,000970:
011892,000971: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
011893,000972: # N-S ARE THE SF CONSTANT2 CODE NUMBER
011894,000973: # P-S ARE THE SF CONSTANT1 CODE NUMBER
011895,000974: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
011896,000975: # P-S ARE THE SF CONSTANT1 CODE NUMBER
011897,000976: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
011898,000977:
011899,000978: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
011900,000979: # ENTRY IS OF FORM RRRRREEEEEEEEEE. IDADDREL IS THE RELATIVE ADDRESS OF
011901,000980: # THE FIRST OF THESE ENTRIES.
011902,000981: # R-S ARE THE SF ROUTINE CODE NUMBERS FOR COMPONENT K
011903,000982: # E-S ARE THE MACHINE ADDRESS FOR COMPONENT K
011904,000983: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
011905,000984: # THEY ARE LISTED IN ORDER OF ASCENDING K.
011906,000985:
011907,000986: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
011908,000987: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
011909,000988: # ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 1 COMPONENT.
011910,000989: # ONLY EXCEPTION IS NOUN 01 TO ALLOW OCTAL DISPLAYS AND LOADS OF
011911,000990: # AN UNCONTOLLED NUMBER OF COMPONENTS.
011912,000991:
011913,000992:
011914,000993:
011915,000994: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
011916,000995: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
011917,000996:
011918,000997: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
011919,000998: # BEFORE EACH ENTER. IF NOT, ALARM.
011920,000999:
011921,001000:
011922,001001: # DISPLAY VERBS
011923,001002: 21,6311 20635 DSPABC INDEX NOUNADD
011924,001003: 21,6312 40002 CS 2
011925,001004: 21,6313 50100 TS BUF +2
011926,001005: 21,6314 20635 DSPAB INDEX NOUNADD
011927,001006: 21,6315 40001 CS 1
011928,001007: 21,6316 50077 TS BUF +1
011929,001008: 21,6317 20635 DSPA INDEX NOUNADD
011930,001009: 21,6320 40000 CS 0
011931,001010: 21,6321 50076 DSPCOM1 TS BUF
011932,001011: 21,6322 06331 TC DSPCOM2
011933,001012: 21,6323 20635 DSPB INDEX NOUNADD
011934,001013: 21,6324 40001 CS 1
011935,001014: 21,6325 06321 TC DSPCOM1
011936,001015: 21,6326 20635 DSPC INDEX NOUNADD
011937,001016: 21,6327 40002 CS 2
011938,001017: 21,6330 06321 TC DSPCOM1
011939,001018: 21,6331 45502 DSPCOM2 CS TWO # A B C AB ABC
011940,001019: 21,6332 60612 AD VERBREG # -1 -0 +1 +2 +3 IN A
011941,001020: 21,6333 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
011942,001021: 21,6334 06337 TC DSPCOM3
011943,001022: 21,6335 00064 TC ENTEXIT
011944,001023: 21,6336 06337 TC +1
011945,001024: 21,6337 50063 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
011946,001025: 21,6340 20000 INDEX A
011947,001026: 21,6341 32736 CAF R1D1
011948,001027: 21,6342 50625 TS DSPCOUNT
011949,001028: 21,6343 20063 INDEX DISTEM
011950,001029: 21,6344 40076 CS BUF
011951,001030: 21,6345 07137 TC DSPOCTWD
011952,001031: 21,6346 30063 XCH DISTEM
011953,001032: 21,6347 06333 TC DSPCOM2 +2
011954,001033:
011955,001034: 21,6350 07413 COMPICK ADRES NNTYPTAB
011956,001035: 21,6351 07313 ADRES NNADTAB
011957,001036:
011958,001037: 21,6352 20106 DECDSP INDEX MIXBR # NORMAL MIXED
011959,001038: 21,6353 36347 CAF COMPICK -1 # ADRES NNTYPTAB ADRES NNADTAB
011960,001039: 21,6354 60613 AD NOUNREG
011961,001040: 21,6355 20000 INDEX A
011962,001041: 21,6356 30000 XCH 0
011963,001042: 21,6357 72206 MASK HI5 # GET HI5 OF NNTYPTAB(NORM) OF NNADTAB(MIX)
011964,001043: 21,6360 02750 TC LEFT5
011965,001044: 21,6361 50062 TS DECOUNT # COMP NUMBER INTO DECOUNT
011966,001045: 21,6362 50063 DSPDCGET TS DECTEM # PICKS UP DATA
011967,001046: 21,6363 60635 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
011968,001047: 21,6364 20000 INDEX A
011969,001048: 21,6365 40000 CS 0
011970,001049: 21,6366 20063 INDEX DECTEM
011971,001050: 21,6367 50614 TS XREG # CANT USE BUF SINCE DMP USES IT.
011972,001051: 21,6370 10063 CCS DECTEM
011973,001052: 21,6371 06362 TC DSPDCGET # MORE TO GET
011974,001053: 21,6372 35500 DSPDCPUT CAF ZERO # DISPLAYS DATA
011975,001054: 21,6373 50115 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
011976,001055: 21,6374 50116 TS MPAC +2
011977,001056: 21,6375 20062 INDEX DECOUNT
011978,001057: 21,6376 32736 CAF R1D1
011979,001058: 21,6377 50625 TS DSPCOUNT
011980,001059: 21,6400 20062 INDEX DECOUNT
011981,001060: 21,6401 40614 CS XREG
011982,001061: 21,6402 50114 TS MPAC
011983,001062: 21,6403 06673 TC SFCONUM # SF CON NUMB IN A
011984,001063: 21,6404 50110 TS SFTEMP2
011985,001064: 21,6405 20000 INDEX A
011986,001065: 21,6406 37523 CAF SFOUTAB1
011987,001066: 21,6407 50107 TS SFTEMP1
011988,001067: 21,6410 20110 INDEX SFTEMP2
011989,001068: 21,6411 37527 CAF SFOUTAB2
011990,001069: 21,6412 50110 TS SFTEMP2
011991,001070: 21,6413 20106 INDEX MIXBR
011992,001071: 21,6414 06414 TC +0
011993,001072: 21,6415 06420 TC DSPSFNOR
011994,001073: 21,6416 06662 TC SFRUTMIX
011995,001074: 21,6417 06432 TC DECDSP3
011996,001075:
011997,001076: 21,6420 06653 DSPSFNOR TC SFRUTNOR
011998,001077: 21,6421 06432 TC DECDSP3
011999,001078:
012000,001079: 21,6422 36431 DSPDCEND CAF DECCADR # ALL SFOUT ROUTINES END HERE
012001,001080: 21,6423 02524 TC SWCALL
012002,001081: 21,6424 10062 CCS DECOUNT
012003,001082: 21,6425 06427 TC +2
012004,001083: 21,6426 00064 TC ENTEXIT
012005,001084: 21,6427 50062 TS DECOUNT
012006,001085: 21,6430 06372 TC DSPDCPUT # MORE TO DISPLAY
012007,001086:
012008,001087: 21,6431 51120 DECCADR CADR DSPDECWD
012009,001088:
012010,001089:
012011,001090:
012012,001091: 21,6432 20000 DECDSP3 INDEX A
012013,001092: 21,6433 36435 CAF SFOUTABR
012014,001093: 21,6434 02566 TC BANKJUMP
012015,001094:
012016,001095: 21,6435 42422 SFOUTABR CADR DSPDCEND
012017,001096: 21,6436 50621 CADR DEGOUTSF
012018,001097: 21,6437 50725 CADR ARTOUTSF
012019,001098: 21,6440 42443 CADR DP1OUTSF
012020,001099: 21,6441 42450 CADR DP2OUTSF
012021,001100: 21,6442 50627 CADR OPDEGOUT
012022,001101: 21,6443 ENDRTOUT EQUALS
012023,001102:
012024,001103:
012025,001104:
012026,001105: # THE FOLLOWING IS A TYPICAL SF ROUTINE. IT USES MPAC. LEAVES RESU
012027,001106: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
012028,001107:
012029,001108:
012030,001109:
012031,001110: 24,6621 SETLOC INCNOUT +5
012032,001111:
012033,001112: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
012034,001113: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
012035,001114:
012036,001115: 24,6621 35500 DEGOUTSF CAF ZERO
012037,001116: 24,6622 50116 TS MPAC +2 # SET INDEX FOR FULL SCALE
012038,001117: 24,6623 06671 TC FIXRANGE
012039,001118: 24,6624 06626 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
012040,001119: 24,6625 06662 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
012041,001120: 24,6626 06704 TC DEGCOM
012042,001121:
012043,001122: # OPDEGOUT SCALES BY .09 FOR ONE RANGE AND BY .45 FOR THE OTHER.
012044,001123: # FOR THE .45 RANGE A .2 BIAS IS ALSO ADDED.
012045,001124:
012046,001125:
012047,001126: 24,6627 34502 OPDEGOUT CAF BIT13
012048,001127: 24,6630 70750 MASK WASOPSET
012049,001128: 24,6631 10000 CCS A
012050,001129: 24,6632 06635 TC +3
012051,001130: 24,6633 34516 CAF ONE # 180 DEG RANGE
012052,001131: 24,6634 06622 TC DEGOUTSF +1
012053,001132: 24,6635 10114 CCS MPAC # 90 DEG RANGE
012054,001133: 24,6636 30114 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
012055,001134: 24,6637 06642 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
012056,001135: 24,6640 06652 TC NEGOPT # IF NEG NON ZERO
012057,001136: 24,6641 64335 AD NEG1 # IF NEG ZERO SUBTRACT 1
012058,001137: 24,6642 66724 AD 20BIAS
012059,001138: 24,6643 50114 BIASCOM TS MPAC # TEST FOR OVERFLOW
012060,001139: 24,6644 06650 TC +4 # NO OVFLOW
012061,001140: 24,6645 34500 CAF BIT15 # IF OVFLOW
012062,001141: 24,6646 60114 AD MPAC
012063,001142: 24,6647 50114 TS MPAC
012064,001143: 24,6650 35502 CAF TWO # SET MULTIPLIER TO .45
012065,001144: 24,6651 06622 TC DEGOUTSF +1
012066,001145:
012067,001146: 24,6652 30114 NEGOPT XCH MPAC # NEGATIVE CASE
012068,001147: 24,6653 66724 AD 20BIAS
012069,001148: 24,6654 10000 CCS A
012070,001149: 24,6655 06643 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
012071,001150: 24,6657 LOC +1
012072,001151: 24,6657 64516 AD ONE # IF NEG RESTORE SUM
012073,001152: 24,6660 40000 COM # IF NEG 0 LEAVE NEG 0
012074,001153: 24,6661 06643 TC BIASCOM
012075,001154:
012076,001155: 24,6662 20116 SETAUG INDEX MPAC +2 # LOADS SFTEMP1 AND SFTEMP2 WITH THE
012077,001156: 24,6663 36721 CAF DEGTAB2 # DP AUGMENTER CONSTANT
012078,001157: 24,6664 50110 TS SFTEMP2
012079,001158: 24,6665 20116 INDEX MPAC +2
012080,001159: 24,6666 36716 CAF DEGTAB1
012081,001160: 24,6667 50107 TS SFTEMP1
012082,001161: 24,6670 00001 TC Q
012083,001162:
012084,001163: 24,6671 30001 FIXRANGE XCH Q # IF MPAC IS + RETURN TO L+1
012085,001164: 24,6672 50105 TS WDRET # IF MPAC IS - RETURN TO L+2 AFTER
012086,001165: 24,6673 10114 CCS MPAC # MASKING OUT THE SIGN BIT
012087,001166: 24,6674 00105 TC WDRET
012088,001167: 24,6675 00105 TC WDRET
012089,001168: 24,6676 06677 TC +1
012090,001169: 24,6677 44500 CS BIT15
012091,001170: 24,6700 70114 MASK MPAC
012092,001171: 24,6701 50114 TS MPAC
012093,001172: 24,6702 20105 INDEX WDRET
012094,001173: 24,6703 00001 TC 1
012095,001174:
012096,001175: 24,6704 20116 DEGCOM INDEX MPAC +2 # LOADS MULTIPLIER, DOES SHORTMP, AND
012097,001176: 24,6705 36721 CAF DEGTAB2 # ADDS AUGMENTER.
012098,001177: 24,6706 50115 TS MPAC +1
012099,001178: 24,6707 20116 INDEX MPAC +2
012100,001179: 24,6710 36716 CAF DEGTAB1
012101,001180: 24,6711 30114 XCH MPAC # ADJUSTED ANGLE IN A
012102,001181: 24,6712 05415 TC SHORTMP
012103,001182: 24,6713 05170 TC DAD
012104,001183: 24,6714 00107 ADRES SFTEMP1
012105,001184: 24,6715 06732 TC SCOUTEND
012106,001185:
012107,001186:
012108,001187:
012109,001188: 24,6716 05605 DEGTAB1 OCT 05605 # HIGH PART OF .18
012110,001189: 24,6717 02702 OCT 02702 # .09
012111,001190: 24,6720 16314 OCT 16314 # .45
012112,001191:
012113,001192: 24,6721 03656 DEGTAB2 OCT 03656 # LOW PART OF .18
012114,001193: 24,6722 21727 OCT 21727 # .09
012115,001194: 24,6723 31463 OCT 31463 # .45
012116,001195:
012117,001196: 24,6724 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
012118,001197:
012119,001198: 24,6725 30110 ARTOUTSF XCH SFTEMP2 # ASSUMES POINT AT LEFT OF DP SFCON.
012120,001199: 24,6726 50115 TS MPAC +1
012121,001200: 24,6727 30107 XCH SFTEMP1 # HI PART OF SFCONSTANT
012122,001201: 24,6730 30114 XCH MPAC
012123,001202: 24,6731 05415 TC SHORTMP
012124,001203: 24,6732 36734 SCOUTEND CAF DSPDCLOC
012125,001204: 24,6733 02566 TC BANKJUMP
012126,001205: 24,6734 42422 DSPDCLOC CADR DSPDCEND
012127,001206:
012128,001207:
012129,001208: 21,6443 SETLOC ENDRTOUT
012130,001209:
012131,001210: 21,6443 06452 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
012132,001211: 21,6444 30116 XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
012133,001212: 21,6445 30115 XCH MPAC +1 # BY B14.
012134,001213: 21,6446 50114 TS MPAC
012135,001214: 21,6447 06422 TC DSPDCEND
012136,001215:
012137,001216:
012138,001217:
012139,001218: 21,6450 06452 DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
012140,001219: 21,6451 06422 TC DSPDCEND
012141,001220:
012142,001221:
012143,001222:
012144,001223: # DPOUT PICKS UP FRESH DATA FOR BOTH HI AND LO COMPONENTS.
012145,001224: # THIS IS NEEDED FOR TIME DISPLAY.
012146,001225:
012147,001226: 21,6452 30001 DPOUT XCH Q
012148,001227: 21,6453 50121 TS OVFIND
012149,001228: 21,6454 20106 INDEX MIXBR
012150,001229: 21,6455 06455 TC +0
012151,001230: 21,6456 06512 TC DPOUTNOR
012152,001231: 21,6457 06226 TC SETIDADD
012153,001232: 21,6460 60062 AD DECOUNT
012154,001233: 21,6461 20000 INDEX A # GET IDADDTAB ENTRY FOR COMPONENT K
012155,001234: 21,6462 37533 CAF IDADDTAB # OF NOUN.
012156,001235: 21,6463 74605 MASK LOW10 # E SUBK
012157,001236: 21,6464 50116 DPOUTCOM TS MPAC +2
012158,001237: 21,6465 20116 INDEX MPAC +2
012159,001238: 21,6466 40000 CS 0 # MIXED NORMAL
012160,001239: 21,6467 40000 COM # C(ESUBK) C(E)
012161,001240: 21,6470 50114 TS MPAC
012162,001241: 21,6471 20116 INDEX MPAC +2
012163,001242: 21,6472 40001 CS 1 # C((E SUBK)+1) C(E+1)
012164,001243: 21,6473 40000 COM
012165,001244: 21,6474 50115 TS MPAC +1
012166,001245: 21,6475 10000 CCS A # TEST IF LOW PART +0 IN CASE PICKING UP
012167,001246: 21,6476 06501 TC +3 # TIME, IF SO COULD HAVE OVFLOD, SO GET
012168,001247: 21,6477 06506 TC +0CASE # UP TO DATE HIGH PART. IF NOT +0, NO
012169,001248: 21,6500 06501 TC +1 # PROBLEM.
012170,001249: 21,6501 05156 +0RET TC DMP
012171,001250: 21,6502 50106 XCADR SFTEMP1
012172,001251: 21,6503 36542 CAF TPCADR
012173,001252: 21,6504 02524 TC SWCALL
012174,001253: 21,6505 00121 TC OVFIND
012175,001254:
012176,001255: 21,6506 20116 +0CASE INDEX MPAC +2
012177,001256: 21,6507 60000 AD 0
012178,001257: 21,6510 50114 TS MPAC
012179,001258: 21,6511 06501 TC +0RET
012180,001259:
012181,001260: 21,6512 40635 DPOUTNOR CS NOUNADD
012182,001261: 21,6513 40000 CS A # E
012183,001262: 21,6514 06464 TC DPOUTCOM
012184,001263:
012185,001264: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
012186,001265: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
012187,001266: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
012188,001267: # OF THE REGISTER NOUNADD IS POINTING TO. IF USED WITH NOUNS WHICH ARE
012189,001268: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
012190,001269: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
012191,001270:
012192,001271:
012193,001272:
012194,001273: 21,6515 20106 DSPDPDEC INDEX MIXBR
012195,001274: 21,6516 06516 TC +0
012196,001275: 21,6517 06521 TC +2 # NORMAL NOUN
012197,001276: 21,6520 06307 TC GODSPALM
012198,001277: 21,6521 20635 INDEX NOUNADD
012199,001278: 21,6522 40000 CS 0
012200,001279: 21,6523 40000 COM
012201,001280: 21,6524 50114 TS MPAC # LOAD MPAC WITH HIGH ORDER PART
012202,001281: 21,6525 20635 INDEX NOUNADD
012203,001282: 21,6526 40001 CS 1
012204,001283: 21,6527 40000 COM
012205,001284: 21,6530 50115 TS MPAC +1 # LOAD MPAC+1 WITH LOW ORDER PART
012206,001285: 21,6531 32736 CAF R1D1
012207,001286: 21,6532 50625 TS DSPCOUNT
012208,001287: 21,6533 35500 CAF ZERO
012209,001288: 21,6534 50116 TS MPAC +2
012210,001289: 21,6535 36542 CAF TPCADR
012211,001290: 21,6536 02524 TC SWCALL
012212,001291: 21,6537 36543 CAF 2DECCADR
012213,001292: 21,6540 02524 TC SWCALL
012214,001293: 21,6541 00064 ENDDPDEC TC ENTEXIT
012215,001294:
012216,001295: 21,6542 07132 TPCADR CADR TPAGREE
012217,001296: 21,6543 51174 2DECCADR CADR DSP2DEC
012218,001297:
012219,001298:
012220,001299: # LOAD VERBS
012221,001300:
012222,001301:
012223,001302: 21,6544 36650 ABCLOAD CAF VBSP1LD
012224,001303: 21,6545 06276 TC UPDATVB -1
012225,001304: 21,6546 06233 TC REQDATX
012226,001305: 21,6547 36651 CAF VBSP2LD
012227,001306: 21,6550 06276 TC UPDATVB -1
012228,001307: 21,6551 06237 TC REQDATY
012229,001308: 21,6552 36652 CAF VBSP3LD
012230,001309: 21,6553 06276 TC UPDATVB -1
012231,001310: 21,6554 06243 TC REQDATZ
012232,001311:
012233,001312:
012234,001313:
012235,001314: 21,6555 35500 PUTXYZ CAF ZERO # X COMP
012236,001315: 21,6556 06717 TC PUTCOM
012237,001316: 21,6557 20635 INDEX NOUNADD
012238,001317: 21,6560 50000 TS 0
012239,001318: 21,6561 34516 CAF ONE # Y COMP
012240,001319: 21,6562 06717 TC PUTCOM
012241,001320: 21,6563 20635 INDEX NOUNADD
012242,001321: 21,6564 50001 TS 1
012243,001322: 21,6565 35502 CAF TWO # Z COMP
012244,001323: 21,6566 06717 TC PUTCOM
012245,001324: 21,6567 20635 INDEX NOUNADD
012246,001325: 21,6570 50002 TS 2
012247,001326: 21,6571 06637 TC LOADLV
012248,001327:
012249,001328: 21,6572 36650 ABLOAD CAF VBSP1LD
012250,001329: 21,6573 06276 TC UPDATVB -1
012251,001330: 21,6574 06233 TC REQDATX
012252,001331: 21,6575 36651 CAF VBSP2LD
012253,001332: 21,6576 06276 TC UPDATVB -1
012254,001333: 21,6577 06237 TC REQDATY
012255,001334: 21,6600 35500 PUTXY CAF ZERO # X COMP
012256,001335: 21,6601 06717 TC PUTCOM
012257,001336: 21,6602 20635 INDEX NOUNADD
012258,001337: 21,6603 50000 TS 0
012259,001338: 21,6604 34516 CAF ONE # Y COMP
012260,001339: 21,6605 06717 TC PUTCOM
012261,001340: 21,6606 20635 INDEX NOUNADD
012262,001341: 21,6607 50001 TS 1
012263,001342: 21,6610 06637 TC LOADLV
012264,001343:
012265,001344: 21,6611 06233 ALOAD TC REQDATX
012266,001345: 21,6612 35500 CAF ZERO # X COMP
012267,001346: 21,6613 06717 TC PUTCOM
012268,001347: 21,6614 20635 INDEX NOUNADD
012269,001348: 21,6615 50000 TS 0
012270,001349: 21,6616 06637 TC LOADLV
012271,001350:
012272,001351: 21,6617 34500 BLOAD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
012273,001352: 21,6620 50646 TS CLPASS
012274,001353: 21,6621 06237 TC REQDATY
012275,001354: 21,6622 34516 CAF ONE
012276,001355: 21,6623 06717 TC PUTCOM
012277,001356: 21,6624 20635 INDEX NOUNADD
012278,001357: 21,6625 50001 TS 1
012279,001358: 21,6626 06637 TC LOADLV
012280,001359:
012281,001360: 21,6627 34500 CLOAD CAF BIT15 # SET CLPASS FOR PASS0 ONLY
012282,001361: 21,6630 50646 TS CLPASS
012283,001362: 21,6631 06243 TC REQDATZ
012284,001363: 21,6632 35502 CAF TWO
012285,001364: 21,6633 06717 TC PUTCOM
012286,001365: 21,6634 20635 INDEX NOUNADD
012287,001366: 21,6635 50002 TS 2
012288,001367: 21,6636 06637 TC LOADLV
012289,001368:
012290,001369: 21,6637 35500 LOADLV CAF ZERO
012291,001370: 21,6640 50626 TS DECBRNCH
012292,001371: 21,6641 45500 CS ZERO
012293,001372: 21,6642 50645 TS LOADSTAT
012294,001373: 21,6643 42775 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
012295,001374: 21,6644 50625 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
012296,001375: 21,6645 36647 CAF RECALOC # AFTER COMPLETED LOAD, GO TO RECALTST
012297,001376: 21,6646 02566 TC BANKJUMP # TO SEE IF THERE IS RECALL FROM ENDIDLE.
012298,001377:
012299,001378: 21,6647 51506 RECALOC CADR RECALTST
012300,001379:
012301,001380: 21,6650 00021 VBSP1LD OCT 21 # VB21 = ALOAD
012302,001381: 21,6651 00022 VBSP2LD OCT 22 # VB22 = BLOAD
012303,001382: 21,6652 00023 VBSP3LD OCT 23 # VB23 = CLOAD
012304,001383:
012305,001384:
012306,001385: 21,6653 30001 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
012307,001386: 21,6654 50111 TS EXITEM
012308,001387: 21,6655 32766 CAF MID5
012309,001388: 21,6656 20613 INDEX NOUNREG
012310,001389: 21,6657 77413 MASK NNTYPTAB
012311,001390: 21,6660 02741 TC RIGHT5
012312,001391: 21,6661 00111 TC EXITEM # SF ROUTINE NUMBER IN A
012313,001392:
012314,001393: 21,6662 30001 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
012315,001394: 21,6663 50111 TS EXITEM
012316,001395: 21,6664 06226 TC SETIDADD
012317,001396: 21,6665 60062 AD DECOUNT
012318,001397: 21,6666 20000 INDEX A # GET IDADDTAB ENTRY FOR COMPONENT K
012319,001398: 21,6667 37533 CAF IDADDTAB # OF NOUN.
012320,001399: 21,6670 72206 MASK HI5
012321,001400: 21,6671 02750 TC LEFT5
012322,001401: 21,6672 00111 TC EXITEM # SF ROUTINE NUMBER IN A
012323,001402:
012324,001403: 21,6673 30001 SFCONUM XCH Q # GETS SF CONSTANT NUMBER
012325,001404: 21,6674 50111 TS EXITEM
012326,001405: 21,6675 20106 INDEX MIXBR
012327,001406: 21,6676 06676 TC +0
012328,001407: 21,6677 06713 TC CONUMNOR # NORMAL NOUN
012329,001408: 21,6700 20062 INDEX DECOUNT # MIXED NOUN
012330,001409: 21,6701 32765 CAF LOW5
012331,001410: 21,6702 20613 INDEX NOUNREG
012332,001411: 21,6703 77413 MASK NNTYPTAB
012333,001412: 21,6704 20062 INDEX DECOUNT
012334,001413: 21,6705 26710 INDEX DISPLACE
012335,001414: 21,6706 00000 TC 0
012336,001415: # DO TC SFRET (DECOUNT=0),DO TC RIGHT5(DECOUNT=1), DO TC LEFT5 (DECOUNT=2)
012337,001416: 21,6707 00111 SFRET TC EXITEM # SF CON NUMBER IN A
012338,001417:
012339,001418: 21,6710 06707 DISPLACE TC SFRET
012340,001419: 21,6711 02741 TC RIGHT5
012341,001420: 21,6712 02750 TC LEFT5
012342,001421:
012343,001422: 21,6713 32765 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
012344,001423: 21,6714 20613 INDEX NOUNREG
012345,001424: 21,6715 77413 MASK NNTYPTAB
012346,001425: 21,6716 00111 TC EXITEM
012347,001426:
012348,001427:
012349,001428:
012350,001429: 21,6717 50062 PUTCOM TS DECOUNT
012351,001430: 21,6720 30001 XCH Q
012352,001431: 21,6721 50105 TS DECRET
012353,001432: 21,6722 40613 CS NOUNREG
012354,001433: 21,6723 66035 AD MIXCON
012355,001434: 21,6724 10000 CCS A
012356,001435: 21,6725 34516 CAF ONE
012357,001436: 21,6726 06743 TC PUTCOM1 -1 # NORMAL NOUN
012358,001437: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD
012359,001438: 21,6727 06730 TC +1
012360,001439: 21,6730 35502 CAF TWO
012361,001440: 21,6731 50106 TS MIXBR
012362,001441: 21,6732 06226 TC SETIDADD
012363,001442: 21,6733 60062 AD DECOUNT
012364,001443: 21,6734 20000 INDEX A # GET IDADDTAB ENTRY FOR COMPONENT K
012365,001444: 21,6735 37533 CAF IDADDTAB # OF NOUN.
012366,001445: 21,6736 74605 MASK LOW10 # EK FOR CURRENT NOUN
012367,001446: 21,6737 25777 EXTEND
012368,001447: 21,6740 60062 SU DECOUNT
012369,001448: 21,6741 50635 TS NOUNADD # PLACE (E SUB K) - K INTO NOUNADD
012370,001449: 21,6742 06744 TC PUTCOM1
012371,001450: 21,6743 50106 TS MIXBR
012372,001451: 21,6744 35500 PUTCOM1 CAF ZERO
012373,001452: 21,6745 50121 TS OVFIND
012374,001453: 21,6746 20062 INDEX DECOUNT
012375,001454: 21,6747 30617 XCH XREGLP
012376,001455: 21,6750 50115 TS MPAC +1
012377,001456: 21,6751 20062 INDEX DECOUNT
012378,001457: 21,6752 30614 XCH XREG
012379,001458: 21,6753 50114 TS MPAC
012380,001459: 21,6754 10626 CCS DECBRNCH
012381,001460: 21,6755 06760 TC PUTDECSF # + DEC
012382,001461:
012383,001462: 21,6756 30114 PUTCOM2 XCH MPAC
012384,001463: 21,6757 00105 TC DECRET
012385,001464:
012386,001465: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
012387,001466:
012388,001467: 21,6760 06673 PUTDECSF TC SFCONUM # SF CON NUMB IN A
012389,001468: 21,6761 50110 TS SFTEMP2
012390,001469: 21,6762 20000 INDEX A
012391,001470: 21,6763 37513 GTSFIN CAF SFINTAB1
012392,001471: 21,6764 50107 TS SFTEMP1
012393,001472: 21,6765 20110 INDEX SFTEMP2
012394,001473: 21,6766 37517 CAF SFINTAB2
012395,001474: 21,6767 50110 TS SFTEMP2
012396,001475: 21,6770 20106 INDEX MIXBR
012397,001476: 21,6771 06771 TC +0
012398,001477: 21,6772 06775 TC PUTSFNOR
012399,001478: 21,6773 06662 TC SFRUTMIX
012400,001479: 21,6774 06776 TC PUTDCSF2
012401,001480: 21,6775 06653 PUTSFNOR TC SFRUTNOR
012402,001481:
012403,001482: 21,6776 20000 PUTDCSF2 INDEX A
012404,001483: 21,6777 37001 CAF SFINTABR
012405,001484: 21,7000 02566 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
012406,001485: 21,7001 51026 SFINTABR CADR BINROUND
012407,001486: 21,7002 50735 CADR DEGINSF
012408,001487: 21,7003 51015 CADR ARTHINSF
012409,001488: 21,7004 51062 CADR DPINSF
012410,001489: 21,7005 51321 CADR DSPALARM
012411,001490: 21,7006 51033 CADR OPTDEGIN
012412,001491: 21,7007 ENDRUTIN EQUALS
012413,001492:
012414,001493:
012415,001494:
012416,001495: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
012417,001496: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
012418,001497:
012419,001498:
012420,001499:
012421,001500: 24,6735 SETLOC SCOUTEND +3
012422,001501:
012423,001502: # DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8)
012424,001503:
012425,001504: 24,6735 05156 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
012426,001505: 24,6736 57006 XCADR DEGCON1 # MULT BY 5.5 5(10)X2/-3
012427,001506: 24,6737 10115 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
012428,001507: 24,6740 34504 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
012429,001508: 24,6741 06743 TC +2 # WHEN SHIFTED LEFT AND ALARM.
012430,001509: 24,6742 44504 CS BIT11
012431,001510: 24,6743 60115 AD MPAC +1
012432,001511: 24,6744 07111 TC 2ROUND +2
012433,001512: 24,6745 37006 CAF SLCALL # LEFT 1
012434,001513: 24,6746 02524 TC SWCALL
012435,001514: 24,6747 37006 DEGINSF2 CAF SLCALL # LEFT 2
012436,001515: 24,6750 02524 TC SWCALL
012437,001516: 24,6751 10121 CCS OVFIND
012438,001517: 24,6752 07321 TC DSPALARM
012439,001518: 24,6753 06755 TC +2
012440,001519: 24,6754 07321 TC DSPALARM
012441,001520: 24,6755 37006 CAF SLCALL # LEFT 3
012442,001521: 24,6756 02524 TC SWCALL
012443,001522: 24,6757 10114 CCS MPAC
012444,001523: 24,6760 06764 TC SIGNFIX # IF +, GO TO SIGNFIX
012445,001524: 24,6761 06764 TC SIGNFIX # IF +0, GO TO SIGNFIX
012446,001525: 24,6762 40000 COM # IF - , USE -MAGNITUDE +1
012447,001526: 24,6763 50114 TS MPAC # IF -0, USE +0
012448,001527: 24,6764 10121 SIGNFIX CCS OVFIND
012449,001528: 24,6765 07002 TC SGNTO1 # IF OVERFLOW
012450,001529: 24,6766 06776 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
012451,001530: 24,6767 10114 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
012452,001531: 24,6771 LOC +1
012453,001532: 24,6771 07000 TC NEG180
012454,001533: 24,6772 06773 TC +1
012455,001534: 24,6773 30114 XCH MPAC
012456,001535: 24,6774 74476 MASK POSMAX
012457,001536: 24,6775 50114 TS MPAC
012458,001537: 24,6776 37014 ENDSCALE CAF DECRELOC
012459,001538: 24,6777 02566 TC BANKJUMP
012460,001539:
012461,001540: 24,7000 44476 NEG180 CS POSMAX
012462,001541: 24,7001 06775 TC ENDSCALE -1
012463,001542:
012464,001543: 24,7002 40114 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
012465,001544: 24,7003 74476 MASK POSMAX
012466,001545: 24,7004 40000 CS A
012467,001546: 24,7005 06775 TC ENDSCALE -1
012468,001547:
012469,001548: 24,7006 06367 SLCALL CADR SL1 +3
012470,001549: 24,7007 26161 30707 DEGCON1 2DEC 5.555555555 B-3
012471,001550: 24,7011 21616 07071 DEGCON2 2DEC 2.222222222 B-2
012472,001551: 24,7013 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
012473,001552: 24,7014 42756 DECRELOC CADR PUTCOM2
012474,001553:
012475,001554: 24,7015 05156 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
012476,001555: 24,7016 50106 XCADR SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
012477,001556: 24,7017 30116 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
012478,001557: 24,7020 30115 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
012479,001558: 24,7021 30114 XCH MPAC
012480,001559: 24,7022 10000 CCS A
012481,001560: 24,7023 07321 TC DSPALARM # TOO LARGE A LOAD
012482,001561: 24,7024 07026 TC BINROUND
012483,001562: 24,7025 07321 TC DSPALARM # TOO LARGE A LOAD
012484,001563: 24,7026 07107 BINROUND TC 2ROUND
012485,001564: 24,7027 10121 CCS OVFIND
012486,001565: 24,7030 07321 TC DSPALARM
012487,001566: 24,7031 06776 TC ENDSCALE
012488,001567: 24,7032 07321 TC DSPALARM
012489,001568:
012490,001569:
012491,001570:
012492,001571: 24,7033 10114 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
012493,001572: 24,7034 07040 TC +4 # LOW RANGE 0 TO 90 DEG ALWAYS
012494,001573: 24,7035 07040 TC +3
012495,001574: 24,7036 07321 TC DSPALARM # REJECT - INPUT. ALARM
012496,001575: 24,7037 07321 TC DSPALARM # DITTO
012497,001576:
012498,001577: 24,7040 34502 CAF BIT13
012499,001578: 24,7041 70750 MASK WASOPSET
012500,001579: 24,7042 10000 CCS A
012501,001580: 24,7043 07051 TC OPDEGIN2
012502,001581: 24,7044 05156 TC DMP # RANGE IS 180 DEG
012503,001582: 24,7045 57006 XCADR DEGCON1
012504,001583: 24,7046 37006 CAF SLCALL
012505,001584: 24,7047 02524 TC SWCALL
012506,001585: 24,7050 06737 TC DEGINSF +2
012507,001586:
012508,001587: 24,7051 30114 OPDEGIN2 XCH MPAC # RANGE IS 90 DEG
012509,001588: 24,7052 67013 AD NEG.2 # SUBTRACT BIAS
012510,001589: 24,7053 50114 TS MPAC
012511,001590: 24,7054 05156 TC DMP # MULT BY 100 / 45 B-2
012512,001591: 24,7055 57010 XCADR DEGCON2
012513,001592: 24,7056 34503 CAF BIT12 # ROUND AS IN DEGINSF
012514,001593: 24,7057 60115 AD MPAC +1
012515,001594: 24,7060 07111 TC 2ROUND +2
012516,001595: 24,7061 06747 TC DEGINSF2
012517,001596:
012518,001597: 24,7062 05156 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
012519,001598: 24,7063 50106 XCADR SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
012520,001599: 24,7064 30116 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
012521,001600: 24,7065 60000 DOUBLE
012522,001601: 24,7066 50116 TS MPAC +2
012523,001602: 24,7067 35500 CAF ZERO
012524,001603: 24,7070 60115 AD MPAC +1
012525,001604: 24,7071 07111 TC 2ROUND +2
012526,001605: 24,7072 20106 INDEX MIXBR # RETURNS IF NO OF/UF
012527,001606: 24,7073 07073 TC +0
012528,001607: 24,7074 07105 TC DPINORM
012529,001608: 24,7075 30062 XCH DECOUNT # MIXEDNOUN
012530,001609: 24,7076 50062 TS DECOUNT
012531,001610: 24,7077 60635 DPINCOM AD NOUNADD # MIXED NORMAL
012532,001611: 24,7100 50001 TS Q # E SUBK E
012533,001612: 24,7101 30115 XCH MPAC +1
012534,001613: 24,7102 20001 INDEX Q
012535,001614: 24,7103 50001 TS 1 # PLACE LOW PART IN
012536,001615: 24,7104 06776 TC ENDSCALE # (E SUBK) +1 MIXED
012537,001616: 24,7105 35500 DPINORM CAF ZERO # E +1 NORMAL
012538,001617: 24,7106 07077 TC DPINCOM
012539,001618:
012540,001619:
012541,001620: 24,7107 30115 2ROUND XCH MPAC +1
012542,001621: 24,7110 60000 DOUBLE
012543,001622: 24,7111 50115 TS MPAC +1
012544,001623: 24,7112 00001 TC Q # IF MPAC+1 DOES NOT OF/UF
012545,001624: 24,7113 60114 AD MPAC
012546,001625: 24,7114 50114 TS MPAC
012547,001626: 24,7115 00001 TC Q # IF MPAC DOES NOT OF/UF
012548,001627: 24,7116 50121 TS OVFIND
012549,001628: 24,7117 00001 2RNDEND TC Q
012550,001629:
012551,001630:
012552,001631: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
012553,001632: # ANY NVSUB CALL THAT PASSES THE DSPLOCK, OR ANOTHER MONITOR.
012554,001633:
012555,001634: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
012556,001635: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
012557,001636: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
012558,001637: # NOUNADD IN MONSAVE1, IF NOUN = MACHINE ADDRESS TO BE SPECIFIED. BIT 15 OF
012559,001638: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT).
012560,001639:
012561,001640: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
012562,001641: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
012563,001642: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
012564,001643:
012565,001644: # NVSUB AND VB=TERMINATE TURN KILL MONITOR BIT ON.
012566,001645:
012567,001646: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
012568,001647: # AND MONSAVE1 (TURNING OFF KILLER BIT).
012569,001648:
012570,001649:
012571,001650:
012572,001651: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
012573,001652:
012574,001653: 21,7007 SETLOC ENDRUTIN
012575,001654:
012576,001655: 21,7007 44500 MONITOR CS BIT15
012577,001656: 21,7010 70635 MASK NOUNADD
012578,001657: 21,7011 50115 MONIT2 TS MPAC +1 # TEMP STORAGE
012579,001658: 21,7012 37303 CAF LOW6
012580,001659: 21,7013 70612 MASK VERBREG
012581,001660: 21,7014 02750 TC LEFT5
012582,001661: 21,7015 50022 TS CYL
012583,001662: 21,7016 30022 XCH CYL
012584,001663: 21,7017 60613 AD NOUNREG
012585,001664: 21,7020 50114 TS MPAC # TEMP STORAGE
012586,001665: 21,7021 40641 CS GRABLOCK # NEITHER CASE SEARCHES LIST.
012587,001666: 21,7022 65502 AD TWO
012588,001667: 21,7023 10000 CCS A
012589,001668: 21,7024 03103 TC RELDSP1 # GRABLOCK=0,1. +0 INTO DSPLOCK AND
012590,001669: 21,7025 07031 TC +4 # TURN OFF KEY RLSE LIGHT.
012591,001670: 21,7027 LOC +1
012592,001671: 21,7027 35500 CAF ZERO # GRABLOCK=2. +0 INTO DSPLOCK
012593,001672: 21,7030 50623 TS DSPLOCK # AND LEAVE KEY RELEASE LIGHT ALONE
012594,001673: 21,7031 20017 INHINT
012595,001674: 21,7032 10636 CCS MONSAVE
012596,001675: 21,7033 07037 TC +4 # IF MONSAVE WAS +, NO REQUEST
012597,001676: 21,7034 34516 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
012598,001677: 21,7035 02124 TC WAITLIST
012599,001678: 21,7036 43045 CADR MONREQ
012600,001679: 21,7037 30114 XCH MPAC
012601,001680: 21,7040 50636 TS MONSAVE # PLACE MONITOR VERB AND NOUN INTO MONSAVE
012602,001681: 21,7041 30115 XCH MPAC +1
012603,001682: 21,7042 50637 TS MONSAVE1 # ZERO THE KILL MONITOR BIT
012604,001683: 21,7043 20016 RELINT
012605,001684: 21,7044 00064 TC ENTRET
012606,001685:
012607,001686:
012608,001687:
012609,001688: 21,7045 10637 MONREQ CCS MONSAVE1
012610,001689: 21,7046 07052 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
012611,001690: 21,7047 07052 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
012612,001691: 21,7050 07061 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
012613,001692: 21,7051 07061 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
012614,001693: 21,7052 37065 CAF MONDEL
012615,001694: 21,7053 02124 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
012616,001695: 21,7054 43045 CADR MONREQ
012617,001696: 21,7055 32774 CAF PRIO30
012618,001697: 21,7056 02043 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
012619,001698: 21,7057 43066 CADR MONDO
012620,001699: 21,7060 02203 TC TASKOVER
012621,001700:
012622,001701: 21,7061 35500 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
012623,001702: 21,7062 50636 TS MONSAVE
012624,001703: 21,7063 50637 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
012625,001704: 21,7064 02203 TC TASKOVER
012626,001705:
012627,001706:
012628,001707:
012629,001708: 21,7065 00062 MONDEL OCT 62 # FOR 0.5 SEC MONITOR INTERVALS
012630,001709:
012631,001710:
012632,001711:
012633,001712: 21,7066 10637 MONDO CCS MONSAVE1 # CALLED BY EXEC
012634,001713: 21,7067 07073 TC +4 # IF KILLER BIT = 0, CONTINUE
012635,001714: 21,7070 07073 TC +3 # IF KILLER BIT = 0, CONTINUE
012636,001715: 21,7071 02115 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
012637,001716: 21,7072 02115 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
012638,001717: 21,7073 10623 CCS DSPLOCK
012639,001718: 21,7074 07126 TC MONBUSY # NVSUB IS BUSY
012640,001719: 21,7075 37303 CAF LOW6 # NVSUB IS AVAILABLE
012641,001720: 21,7076 70636 MASK MONSAVE
012642,001721: 21,7077 50107 TS NVTEMP
012643,001722: 21,7100 02704 TC NVSUBMON # PLACE NOUN INTO NOUNREG AND DISPLAY IT
012644,001723: 21,7101 02115 TC ENDOFJOB # IN CASE OF ALARM DURING DISPLAY
012645,001724: 21,7102 37124 CAF MONMASK
012646,001725: 21,7103 70636 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
012647,001726: 21,7104 02741 TC RIGHT5
012648,001727: 21,7105 50020 TS CYR
012649,001728: 21,7106 30020 XCH CYR
012650,001729: 21,7107 50612 TS VERBREG
012651,001730: 21,7110 37125 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
012652,001731: 21,7111 50064 TS ENTRET
012653,001732: 21,7112 44500 CS BIT15
012654,001733: 21,7113 70637 MASK MONSAVE1
012655,001734: 21,7114 50635 TS NOUNADD
012656,001735: 21,7115 06031 TC TESTNN
012657,001736:
012658,001737: 21,7116 37304 PASTEVB CAF MID6
012659,001738: 21,7117 70636 MASK MONSAVE
012660,001739: 21,7120 50107 TS NVTEMP # PLACE MONITOR VERB INTO VERBREG AND
012661,001740: 21,7121 02704 TC NVSUBMON # DISPLAY IT.
012662,001741: 21,7122 07123 TC +1 # IN CASE OF ALARM DURING DISPLAY
012663,001742: 21,7123 02115 ENDPASTE TC ENDOFJOB
012664,001743:
012665,001744: 21,7124 00700 MONMASK OCT 700
012666,001745: 21,7125 07116 MONBACK ADRES PASTEVB
012667,001746:
012668,001747: 21,7126 03016 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
012669,001748: 21,7127 02115 TC ENDOFJOB
012670,001749:
012671,001750: # DSPBANK IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER IN BANK.
012672,001751: # IT IS USED WITH NOUN = MACHINE ADDRESS TO BE SPECIFIED. THE CADR OF THE
012673,001752: # DESIRED LOCATION IS THEN PUNCHED IN.
012674,001753:
012675,001754: 21,7130 32736 DSPBANK CAF R1D1
012676,001755: 21,7131 50625 TS DSPCOUNT
012677,001756: 21,7132 40635 CS NOUNADD
012678,001757: 21,7133 40000 CS A
012679,001758: 21,7134 02573 TC DATACALL
012680,001759: 21,7135 07137 TC DSPOCTWD
012681,001760: 21,7136 02115 TC ENDOFJOB
012682,001761:
012683,001762:
012684,001763:
012685,001764: 24,7120 SETLOC 2RNDEND +1
012686,001765:
012687,001766: # DSPDECWD CONVERTS C(MPAC) AND C(MPAC +1)TO A SIGN AND 5 CHAR DECIMAL
012688,001767: # STARTING IN LOC SPECIFIED IN DSPCOUNT
012689,001768:
012690,001769: 24,7120 30001 DSPDECWD XCH Q # USES SHORTMP THROUGHOUT
012691,001770: 24,7121 50105 TS WDRET
012692,001771: 24,7122 10114 CCS MPAC
012693,001772: 24,7123 07132 TC +7
012694,001773: 24,7124 07132 TC +6
012695,001774: 24,7125 64516 AD ONE
012696,001775: 24,7126 50114 TS MPAC
012697,001776: 24,7127 06356 TC -ON
012698,001777: 24,7130 40115 CS MPAC +1
012699,001778: 24,7131 07134 TC +3
012700,001779: 24,7132 06335 TC +ON
012701,001780: 24,7133 30115 XCH MPAC +1
012702,001781: 24,7134 67173 AD DECROUND
012703,001782: 24,7135 50115 TS MPAC +1
012704,001783: 24,7136 35500 CAF ZERO
012705,001784: 24,7137 60114 AD MPAC
012706,001785: 24,7140 50114 TS MPAC
012707,001786: 24,7141 07145 TC +4
012708,001787: 24,7142 34476 CAF POSMAX
012709,001788: 24,7143 50114 TS MPAC
012710,001789: 24,7144 50115 TS MPAC +1
012711,001790: 24,7145 35501 CAF FOUR
012712,001791: 24,7146 50075 DSPDCWD1 TS WDCNT
012713,001792: 24,7147 33000 CAF BINCON
012714,001793: 24,7150 05415 TC SHORTMP
012715,001794: 24,7151 20114 TRACE1 INDEX MPAC
012716,001795: 24,7152 32451 CAF RELTAB
012717,001796: 24,7153 72765 MASK LOW5
012718,001797: 24,7154 50110 TS CODE
012719,001798: 24,7155 35500 CAF ZERO
012720,001799: 24,7156 30116 XCH MPAC +2
012721,001800: 24,7157 30115 XCH MPAC +1
012722,001801: 24,7160 50114 TS MPAC
012723,001802: 24,7161 30625 XCH DSPCOUNT
012724,001803: 24,7162 50103 TRACE1S TS COUNT
012725,001804: 24,7163 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
012726,001805: 24,7164 50625 TS DSPCOUNT
012727,001806: 24,7165 07220 TC DSPIN
012728,001807: 24,7166 10075 CCS WDCNT
012729,001808: 24,7167 07146 TC DSPDCWD1
012730,001809: 24,7170 42775 CS VD1
012731,001810: 24,7171 50625 TS DSPCOUNT
012732,001811: 24,7172 00105 TC WDRET
012733,001812:
012734,001813: 24,7173 02476 DECROUND OCT 02476
012735,001814:
012736,001815:
012737,001816:
012738,001817: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
012739,001818: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
012740,001819:
012741,001820: 24,7174 30001 DSP2DEC XCH Q
012742,001821: 24,7175 50105 TS WDRET
012743,001822: 24,7176 35500 CAF ZERO
012744,001823: 24,7177 50110 TS CODE
012745,001824: 24,7200 34473 CAF THREE
012746,001825: 24,7201 07305 TC 11DSPIN # -R2 OFF
012747,001826: 24,7202 35501 CAF FOUR
012748,001827: 24,7203 07305 TC 11DSPIN # +R2 OFF
012749,001828: 24,7204 10114 CCS MPAC
012750,001829: 24,7205 07215 TC +8D
012751,001830: 24,7206 07215 TC +7
012752,001831: 24,7207 64516 AD ONE
012753,001832: 24,7210 50114 TS MPAC
012754,001833: 24,7211 06356 TC -ON
012755,001834: 24,7212 40115 CS MPAC +1
012756,001835: 24,7213 50115 TS MPAC +1
012757,001836: 24,7214 07216 TC +2
012758,001837: 24,7215 06335 TC +ON
012759,001838: 24,7216 32737 CAF R2D1
012760,001839: 24,7217 07146 END2DEC TC DSPDCWD1
012761,001840:
012762,001841:
012763,001842:
012764,001843: 21,7137 SETLOC DSPBANK +7
012765,001844:
012766,001845: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
012767,001846: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
012768,001847:
012769,001848: 21,7137 50022 DSPOCTWD TS CYL
012770,001849: 21,7140 30001 XCH Q
012771,001850: 21,7141 50105 TS WDRET
012772,001851: 21,7142 30625 XCH DSPCOUNT
012773,001852: 21,7143 64501 AD BIT14 # TO BLANK SIGNS
012774,001853: 21,7144 50625 TS DSPCOUNT
012775,001854: 21,7145 35501 CAF FOUR
012776,001855: 21,7146 50075 WDAGAIN TS WDCNT
012777,001856: 21,7147 40022 CS CYL
012778,001857: 21,7150 40022 CS CYL
012779,001858: 21,7151 40022 CS CYL
012780,001859: 21,7152 40000 CS A
012781,001860: 21,7153 75361 MASK DSPMSK
012782,001861: 21,7154 20000 INDEX A
012783,001862: 21,7155 32451 CAF RELTAB
012784,001863: 21,7156 72765 MASK LOW5
012785,001864: 21,7157 50110 TS CODE
012786,001865: 21,7160 30625 XCH DSPCOUNT
012787,001866: 21,7161 50103 TS COUNT
012788,001867: 21,7162 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
012789,001868: 21,7163 50625 TS DSPCOUNT
012790,001869: 21,7164 37173 CAF OCTINLOC
012791,001870: 21,7165 02566 TC BANKJUMP
012792,001871: 21,7166 10075 OCTBACK CCS WDCNT
012793,001872: 21,7167 07146 TC WDAGAIN # +
012794,001873: 21,7170 42775 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
012795,001874: 21,7171 50625 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
012796,001875: 21,7172 00105 TC WDRET
012797,001876:
012798,001877: 21,7173 51313 OCTINLOC CADR DSPOCTIN
012799,001878: 21,7174 5361 DSPMSK = SEVEN
012800,001879:
012801,001880:
012802,001881:
012803,001882: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
012804,001883: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
012805,001884: # OF THE 5 CHAR OCTAL DISPLAY
012806,001885:
012807,001886: 21,7174 50020 DSP2BIT TS CYR
012808,001887: 21,7175 30001 XCH Q
012809,001888: 21,7176 50105 TS WDRET
012810,001889: 21,7177 34516 CAF ONE
012811,001890: 21,7200 50075 TS WDCNT
012812,001891: 21,7201 40020 CS CYR
012813,001892: 21,7202 40020 CS CYR
012814,001893: 21,7203 30020 XCH CYR
012815,001894: 21,7204 50022 TS CYL
012816,001895: 21,7205 07153 TC WDAGAIN +5
012817,001896:
012818,001897:
012819,001898:
012820,001899: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
012821,001900: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
012822,001901: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
012823,001902: # DSPTAB ENTRY INTO DSREL.
012824,001903:
012825,001904: 24,7220 SETLOC END2DEC +1
012826,001905:
012827,001906: 24,7220 30001 DSPIN XCH Q
012828,001907: 24,7221 50111 TS DSEXIT
012829,001908: 24,7222 32765 CAF LOW5
012830,001909: 24,7223 70103 MASK COUNT
012831,001910: 24,7224 50021 TS SR
012832,001911: 24,7225 30021 XCH SR
012833,001912: 24,7226 50101 TS DSREL
012834,001913: 24,7227 34516 CAF BIT1
012835,001914: 24,7230 70103 MASK COUNT
012836,001915: 24,7231 10000 CCS A
012837,001916: 24,7232 07234 TC +2 # LEFT IF COUNT IS ODD
012838,001917: 24,7233 07244 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
012839,001918: 24,7234 30110 XCH CODE
012840,001919: 24,7235 02757 TC SLEFT5 # DOES NOT USE CYL
012841,001920: 24,7236 50110 TS CODE
012842,001921: 24,7237 34501 CAF BIT14
012843,001922: 24,7240 70103 MASK COUNT
012844,001923: 24,7241 10000 CCS A
012845,001924: 24,7242 35502 CAF TWO # BIT14 = 1, BLANK SIGN
012846,001925: 24,7243 64516 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
012847,001926: 24,7244 50103 TS COUNT # +0 INTO COUNT FOR RIGHT
012848,001927: # +1 INTO COUNT FOR LEFT (SIGN LEFT ALONE)
012849,001928: # +3 INTO COUNT FOR LEFT (TO BLANK SIGN)
012850,001929: 24,7245 20017 DSPIN1 INHINT
012851,001930: 24,7246 20101 INDEX DSREL
012852,001931: 24,7247 10730 CCS DSPTAB
012853,001932: 24,7250 07252 TC +2 # IF +
012854,001933: 24,7252 LOC +1
012855,001934: 24,7252 64516 AD ONE # IF-
012856,001935: 24,7253 50102 TS DSMAG
012857,001936: 24,7254 20103 INDEX COUNT
012858,001937: 24,7255 77301 MASK DSMSK
012859,001938: 24,7256 25777 EXTEND
012860,001939: 24,7257 60110 SU CODE
012861,001940: 24,7260 10000 CCS A
012862,001941: 24,7261 07265 TC DFRNT # IF+
012863,001942: 24,7263 LOC +1
012864,001943: 24,7263 07265 TC DFRNT # IF-
012865,001944: 24,7264 07277 TC DSLV # IF -0
012866,001945: 24,7265 20103 DFRNT INDEX COUNT
012867,001946: 24,7266 47301 CS DSMSK # MASK WITH 77740,76037, OR 75777
012868,001947: 24,7267 70102 MASK DSMAG
012869,001948: 24,7270 60110 AD CODE
012870,001949: 24,7271 40000 CS A
012871,001950: 24,7272 20101 INDEX DSREL
012872,001951: 24,7273 30730 XCH DSPTAB
012873,001952: 24,7274 10000 CCS A
012874,001953: 24,7275 06614 TC INCNOUT
012875,001954: 24,7277 LOC +1
012876,001955: 24,7277 20016 DSLV RELINT
012877,001956: 24,7300 00111 TC DSEXIT
012878,001957:
012879,001958: 24,7301 00037 DSMSK OCT 37
012880,001959: 24,7302 01740 OCT 1740
012881,001960: 24,7303 02000 OCT 2000
012882,001961: 24,7304 03740 OCT 3740
012883,001962:
012884,001963:
012885,001964:
012886,001965: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
012887,001966: # BIT11 OF CODE.
012888,001967:
012889,001968: 24,7305 50101 11DSPIN TS DSREL
012890,001969: 24,7306 35502 CAF TWO
012891,001970: 24,7307 50103 TS COUNT
012892,001971: 24,7310 30001 XCH Q
012893,001972: 24,7311 50111 TS DSEXIT
012894,001973: 24,7312 07245 TC DSPIN1
012895,001974:
012896,001975: 24,7313 07220 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
012897,001976: 24,7314 37316 CAF +2
012898,001977: 24,7315 02566 TC BANKJUMP
012899,001978: 24,7316 43166 ENDSPOCT CADR OCTBACK
012900,001979:
012901,001980:
012902,001981:
012903,001982: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
012904,001983: # ABORT WITH OCT 01501.
012905,001984: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
012906,001985: # DO TC ENTRET.
012907,001986:
012908,001987: 24,7317 32734 CHARALRM CAF ENDINST # ALARMS WHICH MUST DO ENDOFJOBS COME
012909,001988: 24,7320 50064 TS ENTRET # HERE. ALLOWS ENTRET TO BE TEMP ERASABLE
012910,001989:
012911,001990: 24,7321 03001 DSPALARM TC FALTON # TURN ON CHECK FAIL LIGHT.
012912,001991: 24,7322 44516 CS ONE
012913,001992: 24,7323 60644 AD NVQTEM
012914,001993: 24,7324 50644 TS NVQTEM
012915,001994: 24,7325 00064 TC ENTEXIT # NOT NVSUB INITIATED.
012916,001995:
012917,001996:
012918,001997: 24,7326 34504 FLASHON1 CAF BIT11 # GETS HERE THRU FLASHON(STANDARD LEAD IN)
012919,001998: 24,7327 50110 TS CODE
012920,001999: 24,7330 37337 CAF FLASHLOC
012921,002000: 24,7331 50101 TS DSREL
012922,002001: 24,7332 35502 CAF TWO
012923,002002: 24,7333 50103 TS COUNT
012924,002003: 24,7334 07245 TC DSPIN1
012925,002004: 24,7335 35500 FLASHOF1 CAF ZERO # GETS HERE THRU FLASHOFF(STANDARD LEAD IN
012926,002005: 24,7336 07327 TC FLASHON1 +1
012927,002006: 24,7337 00011 FLASHLOC OCT 11
012928,002007:
012929,002008:
012930,002009:
012931,002010: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
012932,002011: # IT GOES TO MODROUT WITH THE NEW M M CODE IN A, BUT NOT DISPLAYED IN
012933,002012: # MM LIGHTS.
012934,002013:
012935,002014: 21,7206 SETLOC DSP2BIT +10D
012936,002015:
012937,002016: 21,7206 07221 MMCHANG TC REQMM
012938,002017: 21,7207 35500 CAF ZERO
012939,002018: 21,7210 30613 XCH NOUNREG
012940,002019: 21,7211 50114 TS MPAC
012941,002020: 21,7212 32776 CAF ND1
012942,002021: 21,7213 50625 TS DSPCOUNT
012943,002022: 21,7214 37234 CAF 2BLNKLOC
012944,002023: 21,7215 02524 TC SWCALL
012945,002024: 21,7216 30114 XCH MPAC
012946,002025: 21,7217 02563 TC POSTJUMP
012947,002026: 21,7220 10002 CADR MODROUTB # GO THRU STANDARD LOC.
012948,002027:
012949,002028:
012950,002029:
012951,002030: 21,7221 40001 REQMM CS Q
012952,002031: 21,7222 50624 TS REQRET
012953,002032: 21,7223 32776 CAF ND1
012954,002033: 21,7224 50625 TS DSPCOUNT
012955,002034: 21,7225 35500 CAF ZERO
012956,002035: 21,7226 50613 TS NOUNREG
012957,002036: 21,7227 37234 CAF 2BLNKLOC
012958,002037: 21,7230 02524 TC SWCALL
012959,002038: 21,7231 36255 CAF FLONAD
012960,002039: 21,7232 02524 TC SWCALL
012961,002040: 21,7233 00064 TC ENTEXIT
012962,002041: 21,7234 50575 2BLNKLOC CADR 2BLANK
012963,002042: 21,7235 ENDREQMM EQUALS
012964,002043:
012965,002044:
012966,002045:
012967,002046: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
012968,002047: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES PRIO PRELOADED INTO
012969,002048: # BITS 10-14 OF FIRST REGISTER OF TEMP AREA, WITH BIT1=0 FOR NOVAC, BIT1
012970,002049: # =1 FOR FINDVAC). THE VERB IS USED WITH NOUN=MACHINE ADDRESS TO BE
012971,002050: # SPECIFIED. CADR JOBADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
012972,002051:
012973,002052: 24,7340 SETLOC FLASHLOC +1
012974,002053:
012975,002054: 24,7340 32734 VBRQEXEC CAF ENDINST
012976,002055: 24,7341 50074 TS PROGREG +2
012977,002056: 24,7342 03046 TC RELDSP
012978,002057: 24,7343 34516 CAF BIT1
012979,002058: 24,7344 70627 MASK DSPTEM1 # ********
012980,002059: 24,7345 10000 CCS A
012981,002060: 24,7346 07357 TC SETVAC # IF BIT1 =1, FINDVAC
012982,002061: 24,7347 32770 CAF TCNOVAC # IF BIT1 =0, NOVAC
012983,002062: 24,7350 50072 REQEX1 TS PROGREG # TC NOVAC OR TC FINDVAC INTO PROGREG
012984,002063: 24,7351 30635 XCH NOUNADD
012985,002064: 24,7352 50073 TS PROGREG +1 # CADR JOBADDR INTO PROGREG +1
012986,002065: 24,7353 44516 CS BIT1
012987,002066: 24,7354 70627 MASK DSPTEM1 # *******
012988,002067: 24,7355 20017 INHINT
012989,002068: 24,7356 00072 TC PROGREG
012990,002069:
012991,002070: 24,7357 32773 SETVAC CAF TCFINDVC
012992,002071: 24,7360 07350 TC REQEX1
012993,002072:
012994,002073: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
012995,002074: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.ASSUMES DELAY PRELOADED IN FIRST
012996,002075: # REGISTER OF TEMP AREA. THE VERB IS USED WITH NOUN= MACHINE ADDRESS TO
012997,002076: # BE SPECIFIED. CADR TASKADDR IS PUNCHED IN. DISPLAY SYST IS RELEASED.
012998,002077:
012999,002078: 24,7361 32734 VBRQWAIT CAF ENDINST
013000,002079: 24,7362 50074 TS PROGREG +2 # TC ENDOFJOB INTO PROGREG+2
013001,002080: 24,7363 03046 TC RELDSP
013002,002081: 24,7364 32771 CAF TCWAIT
013003,002082: 24,7365 50072 TS PROGREG # TC WAITLIST INTO PROGREG
013004,002083: 24,7366 30635 XCH NOUNADD
013005,002084: 24,7367 50073 TS PROGREG +1 # CADR TASKADDR INTO PROGREG+1
013006,002085: 24,7370 20017 INHINT
013007,002086: 24,7371 30627 XCH DSPTEM1 # DELTA T IN A
013008,002087: 24,7372 00072 ENDRQWT TC PROGREG
013009,002088:
013010,002089:
013011,002090:
013012,002091: 24,7373 34516 VBPROC CAF ONE # PROCEED WITHOUT DATA
013013,002092: 24,7374 50645 TS LOADSTAT
013014,002093: 24,7375 03046 TC RELDSP
013015,002094: 24,7376 06005 TC FLASHOFF
013016,002095: 24,7377 07506 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
013017,002096:
013018,002097:
013019,002098:
013020,002099: 24,7400 02713 VBTERM TC KILMONON # TURN ON KILL MONITOR BIT
013021,002100: 24,7401 44516 CS ONE
013022,002101: 24,7402 07374 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
013023,002102:
013024,002103:
013025,002104: # FLASH IS TURNED OFF ONLY BY PROCEED WITHOUT DATA, TERMINATE, END OF LOAD
013026,002105:
013027,002106:
013028,002107: # VBRELDSP TURNS OFF RELEASE DISPLAY SYSTEM LIGHT(AND SEARCHES LIST ONLY
013029,002108: # IF THIS LIGHT WAS TURNED ON BY NVSUBUSY), AND TURNS OFF UPACT LIGHT.
013030,002109:
013031,002110: 24,7403 35500 VBRELDSP CAF ZERO # RELEASE DISPLAY SYST
013032,002111: 24,7404 50110 TS CODE # TURN OFF UPACT LIGHT
013033,002112: 24,7405 35361 CAF SEVEN
013034,002113: 24,7406 07305 TC 11DSPIN
013035,002114: 24,7407 03046 TC RELDSP # SEARCHES LIST
013036,002115: 24,7410 02115 TC ENDOFJOB
013037,002116:
013038,002117:
013039,002118:
013040,002119: # BUMP SHIFTS WORD DISPLAYED IN R2 TO R3, R1 TO R2. IT BLANKS R1.
013041,002120:
013042,002121: 24,7411 34477 BUMP CAF FIVE # R2D5
013043,002122: 24,7412 50625 TS DSPCOUNT
013044,002123: 24,7413 50103 TS COUNT
013045,002124: 24,7414 34516 CAF ONE # SHIFT DATA OF R2 TO R3, R1 TO R2
013046,002125: 24,7415 70103 MASK COUNT
013047,002126: 24,7416 30103 XCH COUNT # +0 INTO COUNT IF EVEN (RIGHT)
013048,002127: 24,7417 50021 TS SR # +1 INTO COUNT IF ODD (LEFT)
013049,002128: 24,7420 30021 XCH SR # DSREL IN A
013050,002129: 24,7421 20000 INDEX A
013051,002130: 24,7422 10730 CCS DSPTAB
013052,002131: 24,7423 07425 TC +2
013053,002132: 24,7425 LOC +1
013054,002133: 24,7425 64516 AD ONE # DSMAG IN A
013055,002134: 24,7426 20103 INDEX COUNT
013056,002135: 24,7427 77301 MASK DSMSK
013057,002136: 24,7430 20103 INDEX COUNT
013058,002137: 24,7431 07432 TC +1
013059,002138: 24,7432 07434 TC +2 # EVEN(RIGHT) OK
013060,002139: 24,7433 02741 TC RIGHT5 # ODD(LEFT) SHIFT RIGHT
013061,002140: 24,7434 50110 TS CODE
013062,002141: 24,7435 44477 CS FIVE
013063,002142: 24,7436 60625 AD DSPCOUNT # DSPCOUNT-5
013064,002143: 24,7437 10000 CCS A # TO PREVENT -0
013065,002144: 24,7440 64516 AD ONE
013066,002145: 24,7441 07443 TC +2
013067,002146: 24,7443 LOC +1
013068,002147: 24,7443 50103 TS COUNT
013069,002148: 24,7444 07220 TC DSPIN # CODE ALREADY IN CODE
013070,002149: 24,7445 40625 CS DSPCOUNT
013071,002150: 24,7446 62736 AD R1D1 # OCT 16
013072,002151: 24,7447 10000 CCS A
013073,002152: 24,7450 30625 XCH DSPCOUNT # +, DSPCOUNT L/ OCT 16
013074,002153: 24,7451 64516 AD ONE # INCREMENT DSPCOUNT
013075,002154: 24,7452 07412 TC BUMP +1
013076,002155:
013077,002156: 24,7453 35500 SWSGN CAF ZERO # -0, DSPCOUNT= OCT 16. DO SIGN SHIFT
013078,002157: 24,7454 50625 TS DSPCOUNT
013079,002158: 24,7455 67504 AD SWTAB +2 # OCT 3
013080,002159: 24,7456 20000 INDEX A # PICKUP ORDER , DSREL=3,4,5,6.
013081,002160: 24,7457 10730 CCS DSPTAB # (-R2,+R2,-R1,+R1)
013082,002161: 24,7460 07462 TC +2
013083,002162: 24,7462 LOC +1
013084,002163: 24,7462 64516 AD ONE
013085,002164: 24,7463 74504 MASK BIT11
013086,002165: 24,7464 50110 TS CODE
013087,002166: 24,7465 20625 INDEX DSPCOUNT
013088,002167: 24,7466 37502 CAF SWTAB # PUT AWAY ORDER, DSREL= 0,1,3,4.
013089,002168: 24,7467 07305 TC 11DSPIN # (-R3,+R3,-R2,+R2.)
013090,002169: 24,7470 40625 CS DSPCOUNT
013091,002170: 24,7471 67504 AD SWTAB +2 # OCT 3
013092,002171: 24,7472 10000 CCS A
013093,002172: 24,7473 30625 XCH DSPCOUNT # +, DSPCOUNT L/ 3
013094,002173: 24,7474 64516 AD ONE # INCREMENT DSPCOUNT
013095,002174: 24,7475 07454 TC SWSGN +1
013096,002175: 24,7476 32736 CAF R1D1 # -0, DSPCOUNT = 3
013097,002176: 24,7477 50625 TS DSPCOUNT
013098,002177: 24,7500 06535 TC 5BLANK # BLANKS R1
013099,002178: 24,7501 00064 TC ENTEXIT
013100,002179:
013101,002180: 24,7502 00000 SWTAB OCT 0 # -R3
013102,002181: 24,7503 00001 OCT 1 # +R3
013103,002182: 24,7504 00003 OCT 3 # -R2
013104,002183: 24,7505 00004 OCT 4 # +R2
013105,002184:
013106,002185:
013107,002186:
013108,002187: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
013109,002188: # USED TO DO ANY THING THE KEYBOARD CAN CALL. PLACE ...VVVVVVNNNNNN
013110,002189: # INTO A. V-S ARE 6 BIT VERB CODE. N-S , 6 BIT NOUN CODE.
013111,002190:
013112,002191: # NVSUB CAN BE USED WITH MACH ADDR TO BE SPEC BY PLACING THE ADDRESS IN
013113,002192: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
013114,002193:
013115,002194: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
013116,002195: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
013117,002196: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
013118,002197: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
013119,002198: # FURTHER ACTION).
013120,002199:
013121,002200: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
013122,002201: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
013123,002202: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
013124,002203: # ALARM CONDITION BEFORE RETURN TO CALLER.
013125,002204:
013126,002205: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
013127,002206: # KEY, EXCEPT ERROR LIGHT RESET. ALSO BY ENDIDLE.
013128,002207: # IT IS RELEASED BY SPECIAL VERB = RELEASE DISPLAY, ALL GO TO VERBS,
013129,002208: # PROCEED WITHOUT DATA, TERMINATE, INITIALIZE EXECUTIVE,
013130,002209: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
013131,002210: # IN RECALTST IF NVSUB INITIATED LOAD AND ENDIDLE WAS NOT USED,
013132,002211: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
013133,002212: # MONITOR SET UP.
013134,002213:
013135,002214: # A NVSUB CALL THAT PASSES DSPLOCK ENDS OLD MONITOR.
013136,002215:
013137,002216: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
013138,002217: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
013139,002218:
013140,002219: # NVSUB IN F/F PLACES 2 + CALLING CADR INTO NVSBCADR, TC NVSUBEND INTO
013141,002220: # ENTRET. IT WILL HANDLE A CALL FROM F/F OK, BUT WILL NOT RESTORE BANKREG
013142,002221: # TO ITS ORIGINAL CONTENTS.
013143,002222:
013144,002223: 2670 SETLOC ENDFAILF
013145,002224: 2670 50107 NVSUB TS NVTEMP # IN FIXED FIXED
013146,002225: 2671 10623 CCS DSPLOCK
013147,002226: 2672 00001 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
013148,002227: 2673 30001 XCH Q # DSP SYST AVAILABLE
013149,002228: 2674 64516 AD ONE
013150,002229: 2675 50644 TS NVQTEM
013151,002230: 2676 02713 TC KILMONON # TURN ON KILL MONITOR BIT
013152,002231: 2677 32703 NVSUBCOM CAF NVSUBANK
013153,002232: 2700 30015 XCH BANKREG
013154,002233: 2701 50642 TS NVBNKTEM
013155,002234: 2702 06000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
013156,002235: 2703 43235 NVSUBANK CADR NVSUB1 # BANK NUMB OF NVSUB1
013157,002236:
013158,002237: 2704 30001 NVSUBMON XCH Q # MONDO COMES HERE
013159,002238: 2705 64516 AD ONE
013160,002239: 2706 50644 TS NVQTEM
013161,002240: 2707 02677 TC NVSUBCOM
013162,002241:
013163,002242: 2710 30642 NVSUBEND XCH NVBNKTEM
013164,002243: 2711 50015 TS BANKREG
013165,002244: 2712 00644 TC NVQTEM
013166,002245:
013167,002246: 21,7235 SETLOC ENDREQMM
013168,002247: 21,7235 37254 NVSUB1 CAF ENTSET # IN BANK
013169,002248: 21,7236 50064 TS ENTRET # SET RETURN TO NVSUBEND
013170,002249: 21,7237 37303 CAF LOW6
013171,002250: 21,7240 70107 MASK NVTEMP
013172,002251: 21,7241 50114 TS MPAC # TEMP STORAGE
013173,002252: 21,7242 37304 CAF MID6
013174,002253: 21,7243 70107 MASK NVTEMP
013175,002254: 21,7244 02741 TC RIGHT5
013176,002255: 21,7245 50020 TS CYR
013177,002256: 21,7246 30020 XCH CYR
013178,002257: 21,7247 50115 TS MPAC +1 # TEMP STORAGE
013179,002258: 21,7250 10114 CCS MPAC # TEST NOUN
013180,002259: 21,7251 07255 TC +4 # IF NOUN NOT +0, GO ON
013181,002260: 21,7252 30115 XCH MPAC +1
013182,002261: 21,7253 06276 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB . THEN RETURN
013183,002262: 21,7254 02710 ENTSET TC NVSUBEND
013184,002263: 21,7255 10115 CCS MPAC +1 # TEST VERB
013185,002264: 21,7256 07262 TC +4 # IF VERB NOT +0, GO ON
013186,002265: 21,7257 30114 XCH MPAC
013187,002266: 21,7260 06257 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN . THEN RETURN
013188,002267: 21,7261 02710 TC NVSUBEND
013189,002268: 21,7262 30115 XCH MPAC +1
013190,002269: 21,7263 06276 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
013191,002270: 21,7264 30114 XCH MPAC # BOTH AND GO TO ENTPAS0
013192,002271: 21,7265 06257 TC UPDATNN -1
013193,002272: 21,7266 20613 INDEX NOUNREG
013194,002273: 21,7267 37313 CAF NNADTAB
013195,002274: 21,7270 10000 CCS A
013196,002275: 21,7271 07274 TC +3 # NORMAL
013197,002276: 21,7272 06307 TC GODSPALM # NOUN NOT IN USE
013198,002277: 21,7273 07300 TC MATBSUB
013199,002278: 21,7274 35500 NVSUB2 CAF ZERO
013200,002279: 21,7275 50645 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
013201,002280: 21,7276 50646 TS CLPASS
013202,002281: 21,7277 06020 TC ENTPAS0
013203,002282:
013204,002283: 21,7300 30116 MATBSUB XCH MPAC +2 # NVSUB CALL LEFT ADDRES FOR MATBS IN
013205,002284: 21,7301 50635 TS NOUNADD # MPAC+2.
013206,002285: 21,7302 07274 TC NVSUB2
013207,002286:
013208,002287:
013209,002288:
013210,002289: 21,7303 00077 LOW6 OCT 77
013211,002290: 21,7304 07700 MID6 OCT 7700
013212,002291:
013213,002292: 2713 SETLOC NVSUBEND +3
013214,002293: 2713 44500 KILMONON CS BIT15 # FORCE BIT 15 OF MONSAVE1 TO 1.
013215,002294: 2714 20017 INHINT # THIS IS THE KILL MONITOR BIT.
013216,002295: 2715 70637 MASK MONSAVE1
013217,002296: 2716 64500 AD BIT15
013218,002297: 2717 50637 TS MONSAVE1
013219,002298: 2720 20016 RELINT
013220,002299: 2721 00001 TC Q
013221,002300:
013222,002301:
013223,002302:
013224,002303: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
013225,002304: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
013226,002305: # -1 TERMINATE SET BY SPECIAL VERB
013227,002306: # -0 DATA IN SET BY END OF LOAD ROUTINE
013228,002307:
013229,002308: # L TC ENDIDLE (FIXED FIXED)
013230,002309: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
013231,002310: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
013232,002311: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
013233,002312: # L+1 FOR TERMINATE
013234,002313: # L+2 FOR PROCEED WITHOUT DATA
013235,002314: # L+3 FOR DATA IN
013236,002315: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
013237,002316:
013238,002317: 2722 30001 ENDIDLE XCH Q # NOVAC ROUTINES ENTER HERE
013239,002318: 2723 50070 TS TEMQS
013240,002319: 2724 30015 XCH BANKREG
013241,002320: 2725 50071 TS BANKTEM
013242,002321: 2726 02550 TC MAKECADR
013243,002322: 2727 34516 CAF ONE
013244,002323: 2730 50623 TS DSPLOCK
013245,002324: 2731 30061 XCH ADDRWD
013246,002325: 2732 50640 TS CADRSTOR
013247,002326: 2733 02120 TC JOBSLEEP
013248,002327:
013249,002328: 2734 02115 ENDINST TC ENDOFJOB
013250,002329:
013251,002330: 2735 05777 BNKCON OCT 5777
013252,002331:
013253,002332:
013254,002333: 21,7305 SETLOC MID6 +1
013255,002334: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
013256,002335:
013257,002336: 21,7305 32777 DSPMM1 CAF MD1 # GETS HERE THRU DSPMM (STANDARD LEAD IN)
013258,002337: 21,7306 50625 TS DSPCOUNT
013259,002338: 21,7307 40622 CS MODREG
013260,002339: 21,7310 40000 CS A
013261,002340: 21,7311 07174 TC DSP2BIT
013262,002341: 21,7312 00062 ENDSPMM1 TC UPDATRET
013263,002342:
013264,002343:
013265,002344:
013266,002345: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS
013267,002346: # LOADED, TERMINATE VERB IS EXECUTED, OR THE PROCEED WITHOUT DATA VERB IS
013268,002347: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
013269,002348:
013270,002349: # IF NVSUB INITIATED LOAD, AND ENDIDLE WAS NOT USED, THEN IT RELEASES
013271,002350: # DISPLAY SYST. (NEEDED FOR DATAWAIT)
013272,002351:
013273,002352: 24,7506 SETLOC SWTAB +4
013274,002353:
013275,002354: 24,7506 10640 RECALTST CCS CADRSTOR
013276,002355: 24,7507 07511 TC +2
013277,002356: 24,7510 02115 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
013278,002357: 24,7511 35500 CAF ZERO
013279,002358: 24,7512 30640 XCH CADRSTOR
013280,002359: 24,7513 20017 INHINT
013281,002360: 24,7514 02051 TC JOBWAKE
013282,002361: 24,7515 10645 CCS LOADSTAT
013283,002362: 24,7516 07533 TC DOPROC # + PROCEED WITHOUT DATA
013284,002363: 24,7517 02115 TC ENDOFJOB # PATHALOGICAL CASE EXIT
013285,002364: 24,7520 07531 TC DOTERM # - TERMINATE
013286,002365: 24,7521 45502 CS TWO
013287,002366: 24,7522 20574 RECAL2 INDEX LOCCTR
013288,002367: 24,7523 60117 AD LOC # LOC IS - FOR BASIC JOBS
013289,002368: 24,7524 20574 INDEX LOCCTR
013290,002369: 24,7525 50117 TS LOC
013291,002370: 24,7526 20016 RELINT
013292,002371: 24,7527 03103 RECAL3 TC RELDSP1 # DOES NOT SEARCH LIST
013293,002372: 24,7530 02115 TC ENDOFJOB
013294,002373:
013295,002374: 24,7531 35500 DOTERM CAF ZERO
013296,002375: 24,7532 07522 TC RECAL2
013297,002376:
013298,002377: 24,7533 44516 DOPROC CS ONE
013299,002378: 24,7534 07522 TC RECAL2
013300,002379:
013301,002380:
013302,002381: # THE FOLLOWING REFERS TO THE NOUN TABLES
013303,002382:
013304,002383:
013305,002384:
013306,002385: 21,7313 SETLOC DSPMM1 +6
013307,002386:
013308,002387: # COMPONENT CODE NUMBER INTERPRETATION
013309,002388:
013310,002389: # 00000 1 COMPONENT
013311,002390: # 00001 2 COMPONENT (EACH S P)
013312,002391: # 00010 3 COMPONENT (EACH SP)
013313,002392:
013314,002393:
013315,002394:
013316,002395: # SF ROUTINE CODE NUMBER INTERPRETATION
013317,002396:
013318,002397: # 00000 STRAIGHT FRACTIONAL
013319,002398: # 00001 DEGREES (XXX.XX)
013320,002399: # 00010 ARITHMETIC SF
013321,002400: # 00011 ARITH DP1 OUT(MULT BY 2/14 AT END) IN(STRAIGHT)
013322,002401: # 00100 ARITH DP2 OUT(STRAIGHT) IN(SL 7 AT END)
013323,002402: # 00101 OPTICS DEGREES(XX.XXX MAX 89.999) OR (XXX.XX MAX 179.99)
013324,002403: # END OF SF ROUTINE CODE NUMBERS
013325,002404:
013326,002405:
013327,002406:
013328,002407: # SF CONSTANT CODE NUMBER INTERPRETATION
013329,002408:
013330,002409: # 00000 WHOLE
013331,002410: # 00000 TIME SEC(XXX.XX)SAME AS WHOLE (ARITH DP1)
013332,002411: # 00001 TIME HOURS(XXX.XX) USE ARITH DP2
013333,002412: # 00010 DEGREES
013334,002413: # 00010 OPTICS DEGREES
013335,002414: # 00011 GYRO DEGREES(XX.XXX) USE ARITH DP1
013336,002415: # END OF SF CONSTANT CODE NUMBERS
013337,002416:
013338,002417: # FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
013339,002418: # NOUN TABLES.
013340,002419: # OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
013341,002420: # OCTAL DISPLAYS SHOW MINOR PART ONLY.
013342,002421: # TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
013343,002422:
013344,002423:
013345,002424: # NN NORMAL NOUNS
013346,002425: 21,7313 00000 NNADTAB OCT 00000 # 00 NOT IN USE
013347,002426: 21,7314 40000 OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
013348,002427: 21,7315 40000 OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
013349,002428: 21,7316 40000 OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
013350,002429: 21,7317 40000 OCT 40000 # 04 SPECIFY MACHINE ADDRESS (HOURS)
013351,002430: 21,7320 40000 OCT 40000 # 05 SPECIFY MACHINE ADDRESS (SECONDS)
013352,002431: 21,7321 40000 OCT 40000 # 06 SPECIFY MACHINE ADDRESS (GYRO DEG)
013353,002432: 21,7322 40000 OCT 40000 # 07 SPECIFY MACHINE ADDRESS (Y OPT DEG.)
013354,002433: 21,7323 00000 OCT 00000 # 10 SPARE
013355,002434: 21,7324 00000 OCT 00000 # 11 SPARE
013356,002435: 21,7325 00000 OCT 00000 # 12 SPARE
013357,002436: 21,7326 00000 OCT 00000 # 13 SPARE
013358,002437: 21,7327 00000 OCT 00000 # 14 SPARE
013359,002438: 21,7330 77777 OCT 77777 # 15 INCREMENT MACHINE ADDRESS
013360,002439: 21,7331 00035 OCT 00035 # 16 TIME SECONDS
013361,002440: 21,7332 00035 OCT 00035 # 17 TIME HOURS
013362,002441: 21,7333 00047 ADRES CDUX # 20 ICDU
013363,002442: 21,7334 00044 ADRES PIPAX # 21 PIPAS
013364,002443: 21,7335 00705 ADRES THETAD # 22 NEW ANGLES I
013365,002444: 21,7336 00632 ADRES DSPTEM2 # 23 DELTA ANGLES I
013366,002445: 21,7337 00627 ADRES DSPTEM1 # 24 DELTA TIME (SEC)
013367,002446: 21,7340 00627 ADRES DSPTEM1 # 25 CHECKLIST
013368,002447: 21,7341 00627 ADRES DSPTEM1 # 26 PRIO/DELAY
013369,002448: 21,7342 01567 ADRES SMODE # 27 SELF TEST ON/OFF SWITCH
013370,002449: 21,7343 00627 ADRES DSPTEM1 # 30 STAR NUMBERS
013371,002450: 21,7344 00756 ADRES FAILREG # 31 FAILREG
013372,002451: 21,7345 00000 OCT 00000 # 32 SPARE
013373,002452: 21,7346 00000 OCT 00000 # 33 SPARE
013374,002453: 21,7347 00000 OCT 00000 # 34 SPARE
013375,002454: 21,7350 00000 OCT 00000 # 35 SPARE
013376,002455: 21,7351 00000 OCT 00000 # 36 SPARE
013377,002456: 21,7352 00000 OCT 00000 # 37 SPARE
013378,002457: 21,7353 00000 OCT 00000 # 40 SPARE
013379,002458: 21,7354 00000 OCT 00000 # 41 SPARE
013380,002459: 21,7355 00000 OCT 00000 # 42 SPARE
013381,002460: 21,7356 00000 OCT 00000 # 43 SPARE
013382,002461: 21,7357 00000 OCT 00000 # 44 SPARE
013383,002462: 21,7360 00000 OCT 00000 # 45 SPARE
013384,002463: 21,7361 00000 OCT 00000 # 46 SPARE
013385,002464: 21,7362 00000 OCT 00000 # 47 SPARE
013386,002465: 21,7363 00000 OCT 00000 # 50 SPARE
013387,002466: 21,7364 00000 OCT 00000 # 51 SPARE
013388,002467: 21,7365 00000 OCT 00000 # 52 SPARE
013389,002468: 21,7366 00000 OCT 00000 # 53 SPARE
013390,002469: 21,7367 00000 OCT 00000 # 54 SPARE
013391,002470:
013392,002471: # NN MIXED NOUNS
013393,002472: 21,7370 02000 OCT 02000 # 55 OCDU
013394,002473: 21,7371 04002 OCT 04002 # 56 UNCALLED MARK DATA (OCDU & TIME(SEC))
013395,002474: 21,7372 02005 OCT 02005 # 57 NEW ANGLES OCDU
013396,002475: 21,7373 02007 OCT 02007 # 60 ICDUX AND TIME(SEC)
013397,002476: 21,7374 02011 OCT 02011 # 61 ICDUY AND TIME(SEC)
013398,002477: 21,7375 02013 OCT 02013 # 62 ICDUZ AND TIME(SEC)
013399,002478: 21,7376 02015 OCT 02015 # 63 OCDUX AND TIME(SEC)
013400,002479: 21,7377 02017 OCT 02017 # 64 OCDUY AND TIME(SEC)
013401,002480: 21,7400 02021 OCT 02021 # 65 SAMPLED TIME (HOURS AND SECONDS)
013402,002481: # (FETCHED IN INTERRUPT)
013403,002482: 21,7401 04023 OCT 04023 # 66 SYSTEM TEST RESULTS
013404,002483: 21,7402 04026 OCT 04026 # 67 DELTA GYRO ANGLES
013405,002484: 21,7403 00000 OCT 00000 # 70 SPARE
013406,002485: 21,7404 00000 OCT 00000 # 71 SPARE
013407,002486: 21,7405 00000 OCT 00000 # 72 SPARE
013408,002487: 21,7406 00000 OCT 00000 # 73 SPARE
013409,002488: 21,7407 00000 OCT 00000 # 74 SPARE
013410,002489: 21,7410 00000 OCT 00000 # 75 SPARE
013411,002490: 21,7411 00000 OCT 00000 # 76 SPARE
013412,002491: 21,7412 00000 OCT 00000 # 77 SPARE
013413,002492:
013414,002493:
013415,002494:
013416,002495: # NN NORMAL NOUNS
013417,002496: 21,7413 00000 NNTYPTAB OCT 00000 # 00 NOT IN USE
013418,002497: 21,7414 00000 OCT 00000 # 01 1COMP FRACTIONAL
013419,002498: 21,7415 00100 OCT 00100 # 02 1COMP WHOLE
013420,002499: 21,7416 00042 OCT 00042 # 03 1COMP DEGREES
013421,002500: 21,7417 00201 OCT 00201 # 04 1COMP HOURS
013422,002501: 21,7420 00140 OCT 00140 # 05 1COMP SECONDS
013423,002502: 21,7421 00143 OCT 00143 # 06 1COMP GYRO DEGREES
013424,002503: 21,7422 00242 OCT 00242 # 07 1COMP Y OPT DEGREES
013425,002504: 21,7423 00000 OCT 00000 # 10 SPARE
013426,002505: 21,7424 00000 OCT 00000 # 11 SPARE
013427,002506: 21,7425 00000 OCT 00000 # 12 SPARE
013428,002507: 21,7426 00000 OCT 00000 # 13 SPARE
013429,002508: 21,7427 00000 OCT 00000 # 14 SPARE
013430,002509: 21,7430 00000 OCT 00000 # 15 1COMP OCTAL ONLY
013431,002510: 21,7431 00140 OCT 00140 # 16 1COMP SECONDS
013432,002511: 21,7432 00201 OCT 00201 # 17 3COMP HOURS
013433,002512: 21,7433 04042 OCT 04042 # 20 3COMP DEGREES
013434,002513: 21,7434 04100 OCT 04100 # 21 3COMP WHOLE
013435,002514: 21,7435 04042 OCT 04042 # 22 3COMP DEGREES
013436,002515: 21,7436 04042 OCT 04042 # 23 3COMP DEGREES
013437,002516: 21,7437 00140 OCT 00140 # 24 1COMP SECONDS
013438,002517: 21,7440 00100 OCT 00100 # 25 1COMP WHOLE
013439,002518: 21,7441 00100 OCT 00100 # 26 1COMP WHOLE
013440,002519: 21,7442 00100 OCT 00100 # 27 1COMP WHOLE
013441,002520: 21,7443 04100 OCT 04100 # 30 3COMP WHOLE
013442,002521: 21,7444 00000 OCT 00000 # 31 1COMP OCTAL ONLY
013443,002522: 21,7445 00000 OCT 00000 # 32 SPARE
013444,002523: 21,7446 00000 OCT 00000 # 33 SPARE
013445,002524: 21,7447 00000 OCT 00000 # 34 SPARE
013446,002525: 21,7450 00000 OCT 00000 # 35 SPARE
013447,002526: 21,7451 00000 OCT 00000 # 36 SPARE
013448,002527: 21,7452 00000 OCT 00000 # 37 SPARE
013449,002528: 21,7453 00000 OCT 00000 # 40 SPARE
013450,002529: 21,7454 00000 OCT 00000 # 41 SPARE
013451,002530: 21,7455 00000 OCT 00000 # 42 SPARE
013452,002531: 21,7456 00000 OCT 00000 # 43 SPARE
013453,002532: 21,7457 00000 OCT 00000 # 44 SPARE
013454,002533: 21,7460 00000 OCT 00000 # 45 SPARE
013455,002534: 21,7461 00000 OCT 00000 # 46 SPARE
013456,002535: 21,7462 00000 OCT 00000 # 47 SPARE
013457,002536: 21,7463 00000 OCT 00000 # 50 SPARE
013458,002537: 21,7464 00000 OCT 00000 # 51 SPARE
013459,002538: 21,7465 00000 OCT 00000 # 52 SPARE
013460,002539: 21,7466 00000 OCT 00000 # 53 SPARE
013461,002540: 21,7467 00000 OCT 00000 # 54 SPARE
013462,002541:
013463,002542: # NN MIXED NOUNS
013464,002543: 21,7470 00102 OCT 00102 # 55 2COMP DEGREES, Y OPT DEGREES
013465,002544: 21,7471 00102 OCT 00102 # 56 3COMP DEGREES, Y OPT DEGREES, SECS
013466,002545: 21,7472 00102 OCT 00102 # 57 2COMP DEGREES, Y OPT DEGREES
013467,002546: 21,7473 00002 OCT 00002 # 60 2COMP DEGREES, SECS
013468,002547: 21,7474 00002 OCT 00002 # 61 2COMP DEGREES, SECS
013469,002548: 21,7475 00002 OCT 00002 # 62 2COMP DEGREES, SECS
013470,002549: 21,7476 00002 OCT 00002 # 63 2COMP DEGREES, SECS
013471,002550: 21,7477 00002 OCT 00002 # 64 2COMP Y OPT DEGREES, SECS
013472,002551: 21,7500 00001 OCT 00001 # 65 2COMP HOURS, SECONDS
013473,002552: 21,7501 00000 OCT 00000 # 66 3COMP WHOLE, FRACTIONAL, WHOLE
013474,002553: 21,7502 06143 OCT 06143 # 67 3COMP GYRO DEGREES FOR EACH
013475,002554: 21,7503 00000 OCT 00000 # 70 SPARE
013476,002555: 21,7504 00000 OCT 00000 # 71 SPARE
013477,002556: 21,7505 00000 OCT 00000 # 72 SPARE
013478,002557: 21,7506 00000 OCT 00000 # 73 SPARE
013479,002558: 21,7507 00000 OCT 00000 # 74 SPARE
013480,002559: 21,7510 00000 OCT 00000 # 75 SPARE
013481,002560: 21,7511 00000 OCT 00000 # 76 SPARE
013482,002561: 21,7512 00000 OCT 00000 # 77 SPARE
013483,002562:
013484,002563:
013485,002564:
013486,002565: 21,7513 00006 SFINTAB1 OCT 00006 # WHOLE,TIME(SEC) HIGH PART
013487,002566: 21,7514 00000 OCT 00000 # TIME HOURS
013488,002567: 21,7515 00000 OCT 0 # DEGREES
013489,002568: 21,7516 00001 OCT 00001 # GYRO DEGREES
013490,002569: # END OF SFINTAB1
013491,002570:
013492,002571:
013493,002572:
013494,002573: 21,7517 03240 SFINTAB2 OCT 03240 # WHOLE, TIME(SEC) LO PART
013495,002574: 21,7520 00000 OCT 00000 # TIME HOURS
013496,002575: 21,7521 00000 OCT 0 # DEGREES ( SFCON IN DEGINSF)
013497,002576: 21,7522 30707 OCT 30707 # GYRO DEGREES
013498,002577: # END OF SFINTAB2
013499,002578:
013500,002579:
013501,002580:
013502,002581: 21,7523 05174 SFOUTAB1 OCT 05174 # WHOLE, TIME(SEC) HIGH PART
013503,002582: 21,7524 27670 OCT 27670 # TIME HOURS
013504,002583: 21,7525 00000 OCT 0 # DEGREES
013505,002584: 21,7526 22000 OCT 22000 # GYRO DEGREES
013506,002585: # END OF SFOUTAB1
013507,002586:
013508,002587:
013509,002588:
013510,002589: 21,7527 13261 SFOUTAB2 OCT 13261 # WHOLE, TIME(SEC) LO PART
013511,002590: 21,7530 31357 OCT 31357 # TIME HOURS
013512,002591: 21,7531 00000 OCT 0 # DEGREES
013513,002592: 21,7532 00000 OCT 00000 # GYRO DEGREES
013514,002593: # END OF SFOUTAB2
013515,002594:
013516,002595:
013517,002596:
013518,002597: # MIXNOUN SF ROUT REG
013519,002598: 21,7533 02052 IDADDTAB CADR OPTX +02000 # 01 DEGREES 52
013520,002599: 21,7534 12053 CADR OPTY +12000 # 01 Y OPT DEGREES 53
013521,002600: 21,7535 02627 CADR DSPTEM1 +02000 # 02 DEGREES 627
013522,002601: 21,7536 12630 CADR DSPTEM1 +12001 # 02 Y OPT DEGREES 630
013523,002602: 21,7537 06631 CADR DSPTEM1 +06002 # 02 SEC 631
013524,002603: 21,7540 02724 CADR DESOPTX +02000 # 03 DEGREES 724
013525,002604: 21,7541 12725 CADR DESOPTX +12001 # 03 Y OPT DEGREES 725
013526,002605: 21,7542 02047 CADR CDUX +02000 # 04 DEGREES 47
013527,002606: 21,7543 06035 CADR TIME2 +06000 # 04 SEC 35
013528,002607: 21,7544 02050 CADR CDUY +02000 # 05 DEGREES 50
013529,002608: 21,7545 06035 CADR TIME2 +06000 # 05 SEC 35
013530,002609: 21,7546 02051 CADR CDUZ +02000 # 06 DEGREES 51
013531,002610: 21,7547 06035 CADR TIME2 +06000 # 06 SEC 35
013532,002611: 21,7550 02052 CADR OPTX +02000 # 07 DEGREES 52
013533,002612: 21,7551 06035 CADR TIME2 +06000 # 07 SEC 35
013534,002613: 21,7552 12053 CADR OPTY +12000 # 10 Y OPT DEGREES 53
013535,002614: 21,7553 06035 CADR TIME2 +06000 # 10 SEC 35
013536,002615: 21,7554 10035 CADR TIME2 +10000 # 11 HOURS 655
013537,002616: 21,7555 06035 CADR TIME2 +06000 # 11 SECONDS 655
013538,002617: 21,7556 04632 CADR DSPTEM2 +04000 # 12 WHOLE 632
013539,002618: 21,7557 00633 CADR DSPTEM2 +00001 # 12 FRACTIONAL 633
013540,002619: 21,7560 04634 CADR DSPTEM2 +04002 # 12 WHOLE 634
013541,002620: 21,7561 06715 CADR GYROD +06000 # 13 GYRO DEGREES 715
013542,002621: 21,7562 06717 CADR GYROD +06002 # 13 GYRO DEGREES 717
013543,002622: 21,7563 06721 CADR GYROD +06004 # 13 GYRO DEGREES 721
013544,002623: 21,7564 00000 OCT 00000 # SPARE
013545,002624: 21,7565 00000 OCT 00000 # SPARE
013546,002625: 21,7566 00000 OCT 00000 # SPARE
013547,002626: 21,7567 00000 OCT 00000 # SPARE
013548,002627: 21,7570 00000 OCT 00000 # SPARE
013549,002628: 21,7571 00000 OCT 00000 # SPARE
013550,002629: 21,7572 00000 OCT 00000 # SPARE
013551,002630: 21,7573 00000 OCT 00000 # SPARE
013552,002631: 21,7574 00000 OCT 00000 # SPARE
013553,002632: 21,7575 00000 OCT 00000 # SPARE
013554,002633: 21,7576 00000 OCT 00000 # SPARE
013555,002634: 21,7577 00000 OCT 00000 # SPARE
013556,002635: 21,7600 00000 OCT 00000 # SPARE
013557,002636: 21,7601 00000 OCT 00000 # SPARE
013558,002637: 21,7602 00000 OCT 00000 # SPARE
013559,002638: 21,7603 00000 OCT 00000 # SPARE
013560,002639: 21,7604 00000 OCT 00000 # SPARE
013561,002640: 21,7605 00000 OCT 00000 # SPARE
013562,002641: 21,7606 00000 OCT 00000 # SPARE
013563,002642: 21,7607 00000 OCT 00000 # SPARE
013564,002643: 21,7610 00000 OCT 00000 # SPARE
013565,002644: 21,7611 00000 OCT 00000 # SPARE
013566,002645: 21,7612 00000 OCT 00000 # SPARE
013567,002646: 21,7613 00000 OCT 00000 # SPARE
013568,002647: 21,7614 00000 OCT 00000 # SPARE
013569,002648: 21,7615 00000 OCT 00000 # SPARE
013570,002649: 21,7616 00000 OCT 00000 # SPARE
013571,002650: 21,7617 00000 OCT 00000 # SPARE
013572,002651: 21,7620 00000 OCT 00000 # SPARE
013573,002652: 21,7621 00000 OCT 00000 # SPARE
013574,002653:
013575,002654:
013576,002655: # MISCELLANEOUS SERVICE ROUTINES
013577,002656:
013578,002657:
013579,002658:
013580,002659: 2736 SETLOC ENDINST +2
013581,002660:
013582,002661: 2736 00016 R1D1 OCT 16
013583,002662: 2737 00011 R2D1 OCT 11
013584,002663: 2740 00004 R3D1 OCT 4
013585,002664:
013586,002665: 2741 50020 RIGHT5 TS CYR
013587,002666: 2742 40020 CS CYR
013588,002667: 2743 40020 CS CYR
013589,002668: 2744 40020 CS CYR
013590,002669: 2745 40020 CS CYR
013591,002670: 2746 30020 XCH CYR
013592,002671: 2747 00001 TC Q
013593,002672:
013594,002673: 2750 50022 LEFT5 TS CYL
013595,002674: 2751 40022 CS CYL
013596,002675: 2752 40022 CS CYL
013597,002676: 2753 40022 CS CYL
013598,002677: 2754 40022 CS CYL
013599,002678: 2755 30022 XCH CYL
013600,002679: 2756 00001 TC Q
013601,002680:
013602,002681: 2757 60000 SLEFT5 DOUBLE
013603,002682: 2760 60000 DOUBLE
013604,002683: 2761 60000 DOUBLE
013605,002684: 2762 60000 DOUBLE
013606,002685: 2763 60000 DOUBLE
013607,002686: 2764 00001 TC Q
013608,002687:
013609,002688:
013610,002689:
013611,002690: 2765 00037 LOW5 OCT 37
013612,002691: 2766 01740 MID5 OCT 1740
013613,002692: 2767 76000 OCT 76000 # MUST STAY HERE.
013614,002693:
013615,002694: 2770 02043 TCNOVAC TC NOVAC
013616,002695: 2771 02124 TCWAIT TC WAITLIST
013617,002696: 2772 02203 TCTSKOVR TC TASKOVER
013618,002697: 2773 02037 TCFINDVC TC FINDVAC
013619,002698:
013620,002699: 2774 30000 PRIO30 OCT 30000
013621,002700:
013622,002701: 2775 00023 VD1 OCT 23
013623,002702: 2776 00021 ND1 OCT 21
013624,002703: 2777 00025 MD1 OCT 25
013625,002704:
013626,002705:
013627,002706: 3000 00012 BINCON DEC 10 B-14
013628,002707:
013629,002708: 3001 3000 TEN EQUALS BINCON
013630,002709:
013631,002710: 3001 20017 FALTON INHINT # TURN PROGRAM CHECK LIGHT ON
013632,002711: 3002 44512 CS BIT5 # OUT1,BIT5(ALSO KNOWN AS ILLEGAL ORDER)
013633,002712: 3003 70011 MASK OUT1
013634,002713: 3004 64512 AD BIT5
013635,002714: 3005 50011 TS OUT1
013636,002715: 3006 20016 RELINT
013637,002716: 3007 00001 TC Q
013638,002717:
013639,002718: 3010 20017 FALTOF INHINT # TURN PROGRAM CHECK LIGHT OFF
013640,002719: 3011 44512 CS BIT5
013641,002720: 3012 70011 MASK OUT1
013642,002721: 3013 50011 TS OUT1
013643,002722: 3014 20016 RELINT
013644,002723: 3015 00001 TC Q
013645,002724:
013646,002725: 3016 20017 RELDSPON INHINT # TURN ON RELEASE DISPLAY SYST LIGHT
013647,002726: 3017 44514 CS BIT3
013648,002727: 3020 70011 MASK OUT1
013649,002728: 3021 64514 AD BIT3
013650,002729: 3022 50011 TS OUT1
013651,002730: 3023 20016 RELINT
013652,002731: 3024 00001 TC Q
013653,002732:
013654,002733: # INTERNAL ROUTINES THAT USE THE KEYBOARD AND DISPLAY SYSTEM(THRU
013655,002734: # NVSUB) MUST TC GRABDSP BEFOREHAND , TO GRAB THE DISPLAY SYSTEM AND
013656,002735: # MAKE IT BUSY TO OTHER INTERNAL USERS.
013657,002736:
013658,002737: # WHEN FINISHED , THERE MUST BE A TC FREEDSP , TO RELEASE THE
013659,002738: # SYSTEM FOR OTHER INTERNAL USERS.
013660,002739:
013661,002740: # THE CALLING SEQUENCES ARE
013662,002741: # L TC GRABDSP
013663,002742: # L+1 RETURN HERE WHEN SYSTEM IS ALREADY GRABBED
013664,002743: # L+2 RETURN HERE MEANS YOU HAVE IT
013665,002744:
013666,002745: # L TC NVSUB
013667,002746: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
013668,002747: # L+2 RETURN HERE AFTER EXECUTION
013669,002748:
013670,002749:
013671,002750:
013672,002751: # A ROUTINE CALLED GRABUSY IS PROVIDED (USE IS OPTIONAL) TO PUT YOUR
013673,002752: # JOB TO SLEEP UNTIL THE SYSTEM IS FREED BY THE JOB HOLDING IT.
013674,002753: # YOUR CADR IS PUT AT FIRST AVAILABLE SLOT IN A WAITING LIST (FIFO).
013675,002754:
013676,002755: # THE CALLING SEQUENCE IS
013677,002756: # CAF WAKECADR
013678,002757: # TC GRABUSY
013679,002758:
013680,002759: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
013681,002760: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES IT. YOUR CADR IS PUT
013682,002761: # ON TOP OF A WAITING LIST (FIFO). IT ALSO TURNS ON KEY RELEASE LIGHT.
013683,002762:
013684,002763: # THE CALLING SEQUENCE IS
013685,002764: # CAF WAKECADR
013686,002765: # TC NVSUBUSY
013687,002766:
013688,002767:
013689,002768:
013690,002769: # AFTER A TC FREEDSP, THE INTERNAL INTERLOCK IS KEPT BUSY FOR 10 SECONDS,
013691,002770: # AFTER WHICH A CADR IS CALLED FROM THE LIST. THIS INSURES THAT ALL
013692,002771: # DISPLAYS WAITING WILL BE VISIBLE.
013693,002772:
013694,002773:
013695,002774:
013696,002775: # GRABLOCK IS THE INTERNAL INTERLOCK FOR THE USE OF THE KEYBOARD
013697,002776: # AND DISPLAY SYSTEM.
013698,002777: # +0 FREE
013699,002778: # +1 SOME INTERNAL ROUTINE HAS GRABBED DSP SYST
013700,002779: # +2 SOME INTERNAL ROUTINE HAS GONE TO NVSUBUSY
013701,002780:
013702,002781:
013703,002782: 3025 10641 GRABDSP CCS GRABLOCK
013704,002783: 3026 00001 TC Q # GRABBED. RETURN TO L+1
013705,002784: 3027 34516 CAF ONE # NOT GRABBED. SET TO +1
013706,002785: 3030 50641 TS GRABLOCK # AND RETURN TO L+2
013707,002786: 3031 20001 INDEX Q
013708,002787: 3032 00001 TC 1
013709,002788:
013710,002789:
013711,002790:
013712,002791: 3033 34605 PREGBSY CAF LOW10 # SPECIAL ENTRANCE FOR ROUTINES IN BANKS
013713,002792: 3034 70001 MASK Q # DESIRING THE CADR OF 1 + (LOC FROM WHICH
013714,002793: 3035 60015 AD BANKREG # TC PREGBSY WAS DONE) TO BE ENTERED.
013715,002794: 3036 02563 GRABUSY TC POSTJUMP
013716,002795: 3037 50000 CADR GRABUSYB
013717,002796:
013718,002797: 24,7535 SETLOC DOPROC +2
013719,002798:
013720,002799: 24,7535 50113 GRABUSY1 TS CADRTEM
013721,002800: 24,7536 10641 CCS GRABLOCK
013722,002801: 24,7537 07542 TC +3 # STILL GRABBED
013723,002802: 24,7540 30113 XCH CADRTEM # NOT GRABBED SO DO DIRECT CALL
013724,002803: 24,7541 02566 TC BANKJUMP
013725,002804: 24,7542 35502 CAF TWO
013726,002805: 24,7543 50112 TS LSTPTR
013727,002806: 24,7544 20112 INDEX LSTPTR # SEARCH LIST FOR FIRST AVAILABLE SPACE
013728,002807: 24,7545 10647 CCS DSPLIST # FROM BOTTOM.
013729,002808: 24,7546 07550 TC +2
013730,002809: 24,7547 07553 TC PUTINLST # SPACE FOUND
013731,002810: 24,7550 10112 CCS LSTPTR # DECREMENT POINTER
013732,002811: 24,7551 07543 TC -6
013733,002812: 24,7552 07627 TC LSTFULL
013734,002813: 24,7553 30113 PUTINLST XCH CADRTEM
013735,002814: 24,7554 20112 INDEX LSTPTR
013736,002815: 24,7555 50647 TS DSPLIST
013737,002816: 24,7556 02120 TC JOBSLEEP
013738,002817:
013739,002818:
013740,002819:
013741,002820: 3040 SETLOC GRABUSY +2
013742,002821: 3040 43045 PRENVBSY CS 6K+3 # SPECIAL ENTRANCE FOR ROUTINES IN BANKS
013743,002822: 3041 60001 AD Q # DESIRING THE CADR OF (LOC FROM WHICH THE
013744,002823: 3042 60015 AD BANKREG # TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
013745,002824: 3043 02563 NVSUBUSY TC POSTJUMP
013746,002825: 3044 50001 CADR NVSUBSYB
013747,002826: 3045 06003 6K+3 OCT 6003 # TC PRENVBSY WAS DONE) -2 TO BE ENTERED.
013748,002827:
013749,002828: 24,7557 SETLOC PUTINLST +4
013750,002829: 24,7557 50113 NVSUBSY1 TS CADRTEM
013751,002830: 24,7560 10623 CCS DSPLOCK # TEST IF REALLY LOCKED OUT
013752,002831: 24,7561 07564 TC +3 # STILL BUSY
013753,002832: 24,7562 30113 XCH CADRTEM # DSPLOCK = +0 SO RETURN DIRECTLY
013754,002833: 24,7563 02566 TC BANKJUMP
013755,002834: 24,7564 35502 CAF TWO # SET FOR GRABBED STATE AND NVSUBUSY USE
013756,002835: 24,7565 50641 TS GRABLOCK
013757,002836: 24,7566 30113 XCH CADRTEM
013758,002837: 24,7567 30651 XCH DSPLIST +2 # ENTER CADR INTO FIRST POSITION OF LIST
013759,002838: 24,7570 30650 XCH DSPLIST +1 # (BOTTOM)
013760,002839: 24,7571 30647 XCH DSPLIST
013761,002840: 24,7572 10000 CCS A
013762,002841: 24,7573 07627 TC LSTFULL
013763,002842: 24,7574 07576 TC +2
013764,002843: 24,7575 07627 TC LSTFULL
013765,002844: 24,7576 03016 TC RELDSPON
013766,002845: 24,7577 40651 CS DSPLIST +2
013767,002846: 24,7600 40000 COM
013768,002847: 24,7601 02120 ENDNVBSY TC JOBSLEEP
013769,002848:
013770,002849: 3046 SETLOC NVSUBUSY +3
013771,002850:
013772,002851: 3046 30001 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
013773,002852: 3047 50112 TS RELRET # OFF, SEARCH DSPLIST
013774,002853: 3050 34335 CAF NEG1
013775,002854: 3051 60641 AD GRABLOCK
013776,002855: 3052 10000 CCS A # SEARCH LIST ONLY IF GRABLOCK = +2
013777,002856: 3053 03057 TC +4 # (SOMEONE USED NVSUBUSY)
013778,002857: 3055 LOC +1
013779,002858: 3055 03074 TC RELDSP2
013780,002859: 3056 03074 TC RELDSP2
013781,002860: 3057 35500 CAF ZERO
013782,002861: 3060 30647 XCH DSPLIST
013783,002862: 3061 30650 XCH DSPLIST +1
013784,002863: 3062 30651 XCH DSPLIST +2
013785,002864: 3063 50113 TS CADRTEM
013786,002865: 3064 10000 CCS A
013787,002866: 3065 03067 TC +2
013788,002867: 3066 03074 TC RELDSP2 # LIST EMPTY
013789,002868: 3067 30113 XCH CADRTEM
013790,002869: 3070 20017 INHINT
013791,002870: 3071 02051 TC JOBWAKE
013792,002871: 3072 34516 CAF ONE
013793,002872: 3073 50641 TS GRABLOCK
013794,002873: 3074 44514 RELDSP2 CS BIT3
013795,002874: 3075 70011 MASK OUT1
013796,002875: 3076 50011 TS OUT1
013797,002876: 3077 35500 CAF ZERO
013798,002877: 3100 50623 TS DSPLOCK
013799,002878: 3101 20016 RELINT
013800,002879: 3102 00112 TC RELRET
013801,002880: 3103 30001 RELDSP1 XCH Q # SET DSPLOCK TO +0, RELDSP LIGHT OFF,
013802,002881: 3104 50112 TS RELRET # NO LIST SEARCH
013803,002882: 3105 20017 INHINT
013804,002883: 3106 03074 TC RELDSP2
013805,002884:
013806,002885:
013807,002886: 3107 30001 FREEDSP XCH Q
013808,002887: 3110 50112 TS FREERET
013809,002888: 3111 20017 INHINT
013810,002889: 3112 33117 CAF SHOTIME
013811,002890: 3113 02124 TC WAITLIST
013812,002891: 3114 51602 CADR FREEWAIT
013813,002892: 3115 20016 RELINT
013814,002893: 3116 00112 TC FREERET
013815,002894:
013816,002895: 3117 01750 SHOTIME DEC 1000 B-14
013817,002896: 24,7602 SETLOC ENDNVBSY +1
013818,002897:
013819,002898: 24,7602 32774 FREEWAIT CAF PRIO30 # CALLED BY T3RUPT
013820,002899: 24,7603 02043 TC NOVAC
013821,002900: 24,7604 51606 CADR FREDSPDO
013822,002901: 24,7605 02203 TC TASKOVER
013823,002902:
013824,002903:
013825,002904:
013826,002905: 24,7606 35500 FREDSPDO CAF ZERO # CALLED BY EXECUTIVE
013827,002906: 24,7607 30647 XCH DSPLIST
013828,002907: 24,7610 30650 XCH DSPLIST +1
013829,002908: 24,7611 30651 XCH DSPLIST +2
013830,002909: 24,7612 50113 TS CADRTEM
013831,002910: 24,7613 10000 CCS A
013832,002911: 24,7614 07616 TC +2
013833,002912: 24,7615 07625 TC LSTEMPTY
013834,002913: 24,7616 30113 XCH CADRTEM
013835,002914: 24,7617 20017 INHINT
013836,002915: 24,7620 02051 TC JOBWAKE
013837,002916: 24,7621 20016 RELINT
013838,002917: 24,7622 34516 CAF ONE # SET FOR GRABBED CONDITION
013839,002918: 24,7623 50641 TS GRABLOCK
013840,002919: 24,7624 02115 TC ENDOFJOB
013841,002920: 24,7625 35500 LSTEMPTY CAF ZERO # SET FOR FREE CONDITION
013842,002921: 24,7626 07623 TC -3
013843,002922:
013844,002923:
013845,002924:
013846,002925: 24,7627 02652 LSTFULL TC ABORT
013847,002926: 24,7630 01206 OCT 01206 # PINBALL WAITING LINE FULL.
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc