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