Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
012930,000002: ## Copyright: Public domain.
012931,000003: ## Filename: PINBALL_GAME__BUTTONS_AND_LIGHTS.agc
012932,000004: ## Purpose: Part of the source code for Colossus build 237.
012933,000005: ## This is for the Command Module's (CM) Apollo Guidance
012934,000006: ## Computer (AGC), for Apollo 8.
012935,000007: ## Assembler: yaYUL
012936,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
012937,000009: ## Website: www.ibiblio.org/apollo/index.html
012938,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
012939,000011: ## Mod history: 2011-01-23 JL Adapted from corresponding Colossus 249 file.
012940,000012: ## 2016-12-30 RSB Proofed comment text using octopus/ProoferComments,
012941,000013: ## and corrected errors found.
012942,000014: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
012943,000015: ## vs Colossus 249.
012944,000016: ## 2017-01-28 RSB WTIH -> WITH.
012945,000017: ## 2017-02-08 RSB Comment-text fixes noted while proofing Artemis 72.
012946,000018: ## 2017-03-08 RSB Changed DSPOCTWO to DSPOCTWD.
012947,000019: ## 2017-03-08 RSB Comment-text fixes noted in proofing Luminary 116.
012948,000020: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
012949,000021: ## side-by-side diff of Luminary 69/99/116/131/210.
012950,000022:
![]() |
Page 300 |
012952,000024:
012953,000025: # PROGRAM NAME - KEYBOARD AND DISPLAY PROGRAM
012954,000026: # MOD NO - 4 DATE - 27 APRIL 1967 ASSEMBLY - PINDISK REV 17
012955,000027: # MOD BY - FILENE
012956,000028: # LOG SECTION - PINBALL GAME BUTTONS AND LIGHTS
012957,000029:
012958,000030: # FUNCTIONAL DESCRIPTION-
012959,000031:
012960,000032: # THE KEYBOARD AND DISPLAY SYSTEM PROGRAM OPERATES UNDER EXECUTIVE
012961,000033: # CONTROL AND PROCESSES INFORMATION EXCHANGED BETWEEN THE AGC AND THE
012962,000034: # COMPUTER OPERATOR. THE INPUTS TO THE PROGRAM ARE FROM THE KEYBOARD,
012963,000035: # FROM INTERNAL PROGRAMS, AND FROM THE UPLINK.
012964,000036: # THE LANGUAGE OF COMMUNICATION WITH THE PROGRAM IS A PAIR OF WORDS
012965,000037: # KNOWN AS VERB AND NOUN. EACH OF THESE IS REPRESENTED BY A 2 CHARACTER
012966,000038: # DECIMAL NUMBER. THE VERB CODE INDICATES WHAT ACTION IS TO BE TAKEN, THE
012967,000039: # NOUN CODE INDICATES TO WHAT THIS ACTION IS APPLIED. NOUNS USUALLY
012968,000040: # REFER TO A GROUP OF ERASABLE REGISTERS.
012969,000041:
012970,000042: # VERBS ARE GROUPED INTO DISPLAYS, LOADS, MONITORS (DISPLAYS THAT ARE
012971,000043: # UPDATED ONCE PER SECOND), SPECIAL FUNCTIONS, AND EXTENDED VERBS(THESE
012972,000044: # ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
012973,000045: # :EXTENDED VERBS:).
012974,000046: # A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION :ASSEMBLY AND
012975,000047: # OPERATION INFORMATION:.
012976,000048:
012977,000049:
012978,000050: # CALLING SEQUENCES-
012979,000051:
012980,000052: # KEYBOARD:
012981,000053: # EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
012982,000054: # INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO
012983,000055: # CHANNEL 15 (CHANNEL 16). KEYRUPT1 (KEYRUPT2) PLACES THE KEY
012984,000056: # CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
012985,000057: # PROGRAM (AT :CHARIN:), AND EXECUTES A RESUME.
012986,000058:
012987,000059: # UPLINK:
012988,000060: # EACH WORD RECEIVED BY THE UPLINK ACTIVATES INTERRUPT UPRUPT WHICH
012989,000061: # PLACES THE 5 BIT KEY CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE
012990,000062: # KEYBOARD AND DISPLAY PROGRAM (AT:CHARIN:) AND EXECUTES A RESUME.
012991,000063:
012992,000064: # INTERNAL PROGRAMS:
012993,000065: # INTERNAL PROGRAMS CALL PINBALL AT :NVSUB: WITH THE DESIRED VERB/NOUN
012994,000066: # CODE IN A (LOW 7 BITS FOR NOUN, NEXT 7 BITS FOR VERB). DETAILS
012995,000067: # DESCRIBED ON REMARKS CARDS JUST BEFORE :NVSUB: AND :NVSBWAIT: (SEE
012996,000068: # SYMBOL TABLE FOR PAGE NUMBERS).
012997,000069:
012998,000070:
012999,000071: # NORMAL EXIT MODES-
013000,000072:
013001,000073: # IF PINBALL WAS CALLED BY EXTERNAL ACTION, THERE ARE FOUR EXITS:
013002,000074: # 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
![]() |
Page 301 |
013004,000076: # 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
013005,000077: # PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
013006,000078: # RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
013007,000079: # CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
013008,000080: # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
013009,000081: # 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS :V37: IN THE
013010,000082: # SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
013011,000083: # 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
013012,000084: # 4) KEY RELEASE BUTTON CALLS :PINBRNCH: IN THE DISPLAY INTERFACE
013013,000085: # ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
013014,000086: # THE KEY RELEASE LIGHT IS OFF AND :CADRSTOR: IS NOT +0.
013015,000087:
013016,000088: # IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
013017,000089: # TO CALLING ROUTINE. DETAILS DESCRIBED IN REMARKS CARDS JUST BEFORE
013018,000090: # :NVSUB: AND :NVSBWAIT: (SEE SYMBOL TABLE FOR PAGE NUMBERS).
013019,000091:
013020,000092:
013021,000093: # ALARM OR ABORT EXIT MODES-
013022,000094:
013023,000095: # EXTERNAL INITIATION:
013024,000096: # IF SOME IMPROPER SEQUENCE OF KEY CODES IS DETECTED, THE OPERATOR
013025,000097: # ERROR LIGHT IS TURNED ON AND EXIT IS TO :ENDOFJOB:.
013026,000098:
013027,000099: # INTERNAL PROGRAM INITIATION:
013028,000100: # IF AN ILLEGAL V/N COMBINATION IS ATTEMPTED, AN ABORT IS CAUSED
013029,000101: # (WITH OCTAL 01501).
013030,000102: # IF A SECOND ATTEMPT IS MADE TO GO TO SLEEP IN PINBALL, AN ABORT IS
013031,000103: # CAUSED (WITH OCTAL 01206). THERE ARE TWO WAYS TO GO TO SLEEP IN PINBALL:
013032,000104: # 1) ENDIDLE OR DATAWAIT.
013033,000105: # 2) NVSBWAIT, PRENVBSY, OR NVSUBUSY.
013034,000106:
013035,000107: # CONDITIONS LEADING TO THE ABOVE ARE DESCRIBED IN FORTHCOMING MIT/IL
013036,000108: # E-REPORT DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
013037,000109:
013038,000110:
013039,000111: # OUTPUT-
013040,000112:
013041,000113: # INFORMATION TO BE SENT TO THE DISPLAY PANEL IS LEFT IN THE :DSPTAB:
013042,000114: # BUFFERS REGISTERS (UNDER EXEC CONTROL). :DSPOUT: (A PART OF T4RUPT)
013043,000115: # HANDLES THE PLACING OF THE :DSPTAB: INFORMATION INTO OUTPUT CHANNEL 10
013044,000116: # IN INTERRUPT.
013045,000117:
013046,000118:
013047,000119: # ERASABLE INITIALIZATION-
013048,000120:
013049,000121: # FRESH START AND RESTART INITIALIZE THE NECESSARY E REGISTERS FOR
013050,000122: # PINBALL IN :STARTSUB:. REGISTERS ARE: DSPTAB BUFFER, CADRSTOR,
013051,000123: # REQRET, CLPASS, DSPLOCK, MONSAVE, MONSAVE1, VERBREG, NOUNREG, DSPLIST,
013052,000124: # DSPCOUNT, NOUT.
013053,000125:
![]() |
Page 302 |
013055,000127:
013056,000128: # A COMPLETE LIST OF ALL THE ERASABLES (BOTH RESERVED AND TEMPORARIES) FOR
013057,000129: # PINBALL IS GIVEN BELOW.
013058,000130:
013059,000131:
013060,000132: # THE FOLLOWING ARE OF GENERAL INTEREST-
013061,000133:
013062,000134: # REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL
013063,000135: # TABLE TO FIND APPROPRIATE PAGE NUMBERS.
013064,000136:
013065,000137: # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL.
013066,000138: # OF RELATED INTEREST NVSBWAIT
013067,000139: # NVSUBUSY
013068,000140: # PRENVBSY
013069,000141:
013070,000142: # ENDIDLE ROUTINE FOR INTERNAL PROGRAMS WISHING TO GO TO SLEEP WHILE
013071,000143: # AWAITING OPERATORS RESPONSE.
013072,000144:
013073,000145: # DSPMM ROUTINE BY WHICH AN INTERNAL PROGRAM MAY DISPLAY A DECIMAL
013074,000146: # PROGRAM CODE (MAJOR MODE) IN THE PROGRAM (MAJOR MODE) LIGHTS.
013075,000147: # (DSPMM DOES NOT DISPLAY DIRECTLY BUT ENTERS EXEC REQUEST
013076,000148: # FOR DSPMMJB WITH PRIO 30000 AND RETURNS TO CALLER.)
013077,000149:
013078,000150: # BLANKSUB ROUTINE BY WHICH AN INTERNAL PROGRAM MAY BLANK ANY
013079,000151: # COMBINATION OF THE DISPLAY REGISTERS R1, R2, R3.
013080,000152:
013081,000153: # JAMTERM ROUTINES BY WHICH AN INTERNAL PROGRAM MAY PERFORM THE
013082,000154: # JAMPROC TERMINATE (V 34) OR PROCEED (V 33) FUNCTION.
013083,000155:
013084,000156: # MONITOR VERBS FOR PERIODIC ( 1 PER SEC) DISPLAY.
013085,000157:
013086,000158: # PLEASE PERFORM, PLEASE MARK SITUATIONS
013087,000159: # REMARKS DESCRIBING HOW AN INTERNAL ROUTINE SHOULD HANDLE
013088,000160: # THESE SITUATIONS CAN BE FOUND JUST BEFORE :NVSUB: (SEE
013089,000161: # SYMBOL TABLE FOR PAGE NUMBER).
013090,000162:
013091,000163: # THE NOUN TABLE FORMAT IS DESCRIBED ON A PAGE OF REMARKS CARDS JUST
013092,000164: # BEFORE :DSPABC: (SEE SYMBOL TABLE FOR PAGE NUMBER).
013093,000165:
013094,000166: # THE NOUN TABLES THEMSELVES ARE FOUND IN LOG SECTION :PINBALL NOUN
013095,000167: # TABLES:.
013096,000168:
013097,000169:
013098,000170: # FOR FURTHER DETAILS ABOUT OPERATION OF THE KEYBOARD AND DISPLAY SYSTEM
013099,000171: # PROGRAM, SEE THE MISSION PLAN AND/OR MIT/IL E-2129
013100,000172: # DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
013101,000173:
013102,000174:
013103,000175: # THE FOLLOWING QUOTATION IS PROVIDED THROUGH THE COURTESY OF THE AUTHORS.
013104,000176:
013105,000177: # ::IT WILL BE PROVED TO THY FACE THAT THOU HAST MEN ABOUT THEE THAT
![]() |
Page 303 |
013107,000179: # USUALLY TALK OF A NOUN AND A VERB, AND SUCH ABOMINABLE WORDS AS NO
013108,000180: # CHRISTIAN EAR CAN ENDURE TO HEAR.::
013109,000181:
013110,000182: # HENRY 6, ACT 2, SCENE 4
013111,000183:
013112,000184:
013113,000185: # THE FOLLOWING ASSIGNMENTS FOR PINBALL ARE MADE ELSEWHERE
013114,000186:
013115,000187:
013116,000188: # RESERVED FOR PINBALL EXECUTIVE ACTION
013117,000189:
013118,000190: # DSPCOUNT ERASE DISPLAY POSITION INDICATOR
013119,000191: # DECBRNCH ERASE +DEC, - DEC, OCT INDICATOR
013120,000192: # VERBREG ERASE VERB CODE
013121,000193: # NOUNREG ERASE NOUN CODE
013122,000194: # XREG ERASE R1 INPUT BUFFER
013123,000195: # YREG ERASE R2 INPUT BUFFER
013124,000196: # ZREG ERASE R3 INPUT BUFFER
013125,000197: # XREGLP ERASE LO PART OF XREG (FOR DEC CONV ONLY)
013126,000198: # YREGLP ERASE LO PART OF YREG (FOR DEC CONV ONLY)
013127,000199: # HITEMOUT = YREGLP TEMP FOR DISPLAY OF HRS, MIN, SEC
013128,000200: # MUST = LOTEMOUT-1.
013129,000201: # ZREGLP ERASE LO PART OF ZREG (FOR DEC CONV ONLY)
013130,000202: # LOTEMOUT = ZREGLP TEMP FOR DISPLAY OF HRS, MIN, SEC
013131,000203: # MUST = HITEMOUT+1.
013132,000204: # MODREG ERASE MODE CODE
013133,000205: # DSPLOCK ERASE KEYBOARD/SUBROUTINE CALL INTERLOCK
013134,000206: # REQRET ERASE RETURN REGISTER FOR LOAD
013135,000207: # LOADSTAT ERASE STATUS INDICATOR FOR LOADTST
013136,000208: # CLPASS ERASE PASS INDICATOR CLEAR
013137,000209: # NOUT ERASE ACTIVITY COUNTER FOR DSPTAB
013138,000210: # NOUNCADR ERASE MACHINE CADR FOR NOUN
013139,000211: # MONSAVE ERASE N/V CODE FOR MONITOR. (= MONSAVE1-1)
013140,000212: # MONSAVE1 ERASE NOUNCADR FOR MONITOR (MATBS) =MONSAVE +1
013141,000213: # MONSAVE2 ERASE NVMONOPT OPTIONS
013142,000214: # DSPTAB ERASE +13D 0-10,DISPLAY PANEL BUFFER.11-13,C RELAYS
013143,000215: # CADRSTOR ERASE ENDIDLE STORAGE
013144,000216: # NVQTEM ERASE NVSUB STORAGE FOR CALLING ADDRESS
013145,000217: # MUST = NVBNKTEM-1
013146,000218: # NVBNKTEM ERASE NVSUB STORAGE FOR CALLING BANK
013147,000219: # MUST = NVQTEM+1
013148,000220: # VERBSAVE ERASE NEEDED FOR RECYCLE
013149,000221: # DSPLIST ERASE WAITING REG FOR DSP SYST INTERNAL USE
013150,000222: # EXTVBACT REASE EXTENDED VERB ACTIVITY INTERLOCK
013151,000223: # DSPTEM1 ERASE +2 BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
013152,000224: # DSPTEM2 ERASE +2 BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
013153,000225: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
013154,000226:
013155,000227:
013156,000228: # TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013157,000229:
![]() |
Page 304 |
013159,000231: # DSEXIT = INTB15+ RETURN FOR DSPIN
013160,000232: # EXITEM = INTB15+ RETURN FOR SCALE FACTOR ROUTINE SELECT
013161,000233: # BLANKRET = INTB15+ RETURN FOR 2BLANK
013162,000234:
013163,000235: # WRDRET = INTBIT15 RETURN FOR 5BLANK
013164,000236: # WDRET = INTBIT15 RETURN FOR DSPWD
013165,000237: # DECRET = INTBIT15 RETURN FOR PUTCOM(DEC LOAD)
013166,000238: # 21/22REG = INTBIT15 TEMP FOR CHARIN
013167,000239:
013168,000240: # UPDATRET = POLISH RETURN FOR UPDATNN, UPDATVB
013169,000241: # CHAR = POLISH TEMP FOR CHARIN
013170,000242: # ERCNT = POLISH COUNTER FOR ERROR LIGHT RESET
013171,000243: # DECOUNT = POLISH COUNTER FOR SCALING AND DISPLAY (DEC)
013172,000244:
013173,000245: # SGNON = VBUF TEMP FOR +,- ON
013174,000246: # NOUNTEM = VBUF COUNTER FOR MIXNOUN FETCH
013175,000247: # DISTEM = VBUF COUNTER FOR OCTAL DISPLAY VERBS
013176,000248: # DECTEM = VBUF COUNTER FOR FETCH (DEC DISPLAY VERBS)
013177,000249:
013178,000250: # SGNOFF = VBUF +1 TEMP FOR +,- ON
013179,000251: # NVTEMP = VBUF +1 TEMP FOR NVSUB
013180,000252: # SFTEMP1 = VBUF +1 STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
013181,000253: # HITEMIN = VBUF +1 TEMP FOR LOAD OF HRS, MIN, SEC
013182,000254: # MUST = LOTEMIN-1.
013183,000255: # CODE = VBUF +2 FOR DSPIN
013184,000256: # SFTEMP2 = VBUF +2 STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
013185,000257: # LOTEMIN = VBUF +2 TEMP FOR LOAD OF HRS, MIN, SEC
013186,000258: # MUST = HITEMIN+1.
013187,000259: # MIXTEMP = VBUF +3 FOR MIXNOUN DATA
013188,000260: # SIGNRET = VBUF +3 RETURN FOR +,- ON
013189,000261:
013190,000262: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
013191,000263:
013192,000264: # ENTRET = DOTINC EXIT FROM ENTER
013193,000265:
013194,000266: # WDCNT = DOTRET CHAR COUNTER FOR DSPWD
013195,000267: # INREL = DOTRET INPUT BUFFER SELECTOR ( X, Y, Z, REG )
013196,000268:
013197,000269: # DSPMMTEM = MATINC DSPCOUNT SAVE FOR DSPMM
013198,000270: # MIXBR = MATINC INDICATOR FOR MIXED OR NORMAL NOUN
013199,000271:
013200,000272: # TEM1 ERASE EXEC TEMP
013201,000273: # DSREL = TEM1 REL ADDRESS FOR DSPIN
013202,000274:
013203,000275: # TEM2 ERASE EXEC TEMP
013204,000276: # DSMAG = TEM2 MAGNITUDE STORE FOR DSPIN
013205,000277: # IDADDTEM = TEM2 MIXNOUN INDIRECT ADDRESS STORAGE
013206,000278:
013207,000279: # TEM3 ERASE EXEC TEMP
013208,000280: # COUNT = TEM3 FOR DSPIN
013209,000281:
![]() |
Page 305 |
013211,000283: # TEM4 ERASE EXEC TEMP
013212,000284: # LSTPTR = TEM4 LIST POINTER FOR GRABUSY
013213,000285: # RELRET = TEM4 RETURN FOR RELDSP
013214,000286: # FREERET = TEM4 RETURN FOR FREEDSP
013215,000287: # DSPWDRET = TEM4 RETURN FOR DSPSIGN
013216,000288: # SEPSCRET = TEM4 RETURN FOR SEPSEC
013217,000289: # SEPMNRET = TEM4 RETURN FOR SEPMIN
013218,000290:
013219,000291: # TEM5 ERASE EXEC TEMP
013220,000292: # NOUNADD = TEM5 TEMP STORAGE FOR NOUN ADDRESS
013221,000293:
013222,000294: # NNADTEM ERASE TEMP FOR NOUN ADDRESS TABLE ENTRY
013223,000295: # NNTYPTEM ERASE TEMP FOR NOUN TYPE TABLE ENTRY
013224,000296: # IDAD1TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
013225,000297: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
013226,000298: # IDAD2TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
013227,000299: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
013228,000300: # IDAD3TEM ERASE TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
013229,000301: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
013230,000302: # RUTMXTEM ERASE TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
013231,000303: # END OF TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013232,000304:
013233,000305:
013234,000306: # ADDITIONAL TEMPORARIES FOR PINBALL EXECUTIVE ACTION
013235,000307:
013236,000308: # MPAC, THRU MPAC +6
013237,000309: # BUF, +1, +2
013238,000310: # BUF2, +1, +2
013239,000311: # MPTEMP
013240,000312: # ADDRWD
013241,000313: # END OF ADDITIONAL TEMPS FOR PINBALL EXEC ACTION
013242,000314:
013243,000315:
013244,000316: # RESERVED FOR PINBALL INTERRUPT ACTION
013245,000317:
013246,000318: # DSPCNT ERASE COUNTER FOR DSPOUT
013247,000319: # UPLOCK ERASE BIT1 = UPLINK INTERLOCK (ACTIVATED BY
013248,000320: # RECEPTION OF A BAD MESSAGE IN UPLINK)
013249,000321: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
013250,000322:
013251,000323:
013252,000324: # TEMPORARIES FOR PINBALL INTERRUPT ACTION
013253,000325:
013254,000326: # KEYTEMP1 = WAITEXIT TEMP FOR KEYRUPT, UPRUPT
013255,000327: # DSRUPTEM = WAITEXIT TEMP FOR DSPOUT
013256,000328: # KEYTEMP2 = RUPTAGN TEMP FOR KEYRUPT, UPRUPT
013257,000329: # END OF TEMPORARIES FOR PINBALL INTERRUPT ACTION
013258,000330:
![]() |
Page 306 |
013260,000332: # THE INPUT CODES ASSUMED FOR THE KEYBOARD ARE,
013261,000333: # 0 10000
013262,000334: # 1 00001
013263,000335: # 9 01001
013264,000336: # VERB 10001
013265,000337: # ERROR RES10010
013266,000338: # KEY RLSE 11001
013267,000339: # + 11010
013268,000340: # - 11011
013269,000341: # ENTER 11100
013270,000342: # CLEAR 11110
013271,000343: # NOUN 11111
013272,000344:
013273,000345:
013274,000346: # OUTPUT FORMAT FOR DISPLAY PANEL. SET OUT0 TO AAAABCCCCCDDDDD.
013275,000347: # A-S SELECT A RELAYWORD. THIS DETERMINES WHICH PAIR OF CHARACTERS ARE
013276,000348: # ENERGIZED.
013277,000349: # B FOR SPECIAL RELAYS SUCH AS SIGNS ETC.
013278,000350: # C-S 5 BIT RELAY CODE FOR LEFT CHAR OF PAIR SELECTED BY RELAYWORD
013279,000351: # D-S 5 BIT RELAY CODE FOR RIGHTCHAR OF PAIR SELECTED BY RELAYWORD.
013280,000352:
013281,000353: # THE PANEL APPEARS AS FOLLOWS,
013282,000354: # MD1 MD2 (MAJOR MODE)
013283,000355: # VD1 VD2 (VERB) ND1 ND2 (NOUN)
013284,000356: # R1D1 R1D2 R1D3 R1D4 R1D5 (R1)
013285,000357: # R2D1 R2D2 R2D3 R2D4 R2D5 (R2)
013286,000358: # R3D1 R3D2 R3D3 R3D4 R3D5 (R3)
013287,000359:
013288,000360: # EACH OF THESE IS GIVEN A DSPCOUNT NUMBER FOR USE WITHIN COMPUTATION ONLY
013289,000361: # MD1 25 R2D1 11 ALL ARE OCTAL
013290,000362: # MD2 24 R2D2 10
013291,000363: # VD1 23 R2D3 7
013292,000364: # VD2 22 R2D4 6
013293,000365: # ND1 21 R2D5 5
013294,000366: # ND2 20 R3D1 4
013295,000367: # R1D1 16 R3D2 3
013296,000368: # R1D2 15 R3D3 2
013297,000369: # R1D3 14 R3D4 1
013298,000370: # R1D4 13 R3D5 0
013299,000371: # R1D5 12
013300,000372:
013301,000373:
013302,000374: # THERE IS AN 11 REGISTER TABLE (DSPTAB) FOR THE DISPLAY PANEL.
013303,000375:
013304,000376: # DSPTAB RELAYWD BIT11 BITS 10-6 BITS 5-1
013305,000377: # RELADD
013306,000378: # 10 1011 MD1 (25) MD2 (24)
013307,000379: # 9 1010 VD1 (23) VD2 (22)
013308,000380: # 8 1001 ND1 (21) ND2 (20)
013309,000381: # 7 1000 R1D1 (16)
![]() |
Page 307 |
013311,000383: # 6 0111 +R1 R1D2 (15) R1D3 (14)
013312,000384: # 5 0110 -R1 R1D4 (13) R1D5 (12)
013313,000385: # 4 0101 +R2 R2D1 (11) R2D2 (10)
013314,000386: # 3 0100 -R2 R2D3 (7) R2D4 (6)
013315,000387: # 2 0011 R2D5 (5) R3D1 (4)
013316,000388: # 1 0010 +R3 R3D2 (3) R3D3 (2)
013317,000389: # 0 0001 -R3 R3D4 (1) R3D5 (0)
013318,000390: # 0000 NO RELAYWORD
013319,000391:
013320,000392:
013321,000393: # THE 5 BIT OUTPUT RELAY CODES ARE:
013322,000394: # BLANK 00000
013323,000395: # 0 10101
013324,000396: # 1 00011
013325,000397: # 2 11001
013326,000398: # 3 11011
013327,000399: # 4 01111
013328,000400: # 5 11110
013329,000401: # 6 11100
013330,000402: # 7 10011
013331,000403: # 8 11101
013332,000404: # 9 11111
013333,000405:
013334,000406:
013335,000407: # OUTPUT BITS USED BY PINBALL:
013336,000408:
013337,000409: # KEY RELEASE LIGHT - BIT 5 OF CHANNEL 11
013338,000410: # VERB/NOUN FLASH - BIT 6 OF CHANNEL 11
013339,000411: # OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
013340,000412:
![]() |
Page 308 |
013342,000414:
013343,000415: # START OF EXECUTIVE SECTION OF PINBALL
013344,000416:
013345,000417: 40,2000 BANK 40
013346,000418: 40,2000 SETLOC PINBALL1
013347,000419: 40,2000 BANK
013348,000420:
013349,000421: 40,2000 COUNT 40/PIN
013350,000422:
013351,000423: 40,2000 34712 CHARIN CAF ONE # BLOCK DISPLAY SYST
013352,000424: 40,2001 57012 XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
013353,000425: 40,2002 54115 TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
013354,000426: 40,2003 11042 CCS CADRSTOR # ALL KEYS EXCEPT ER TURN ON KR LITE IF
013355,000427: 40,2004 02006 TC +2 # CADRSTOR IS FULL. THIS REMINDS OPERATOR
013356,000428: 40,2005 02013 TC CHARIN2 # TO RE-ESTABLISH A FLASHING DISPLAY
013357,000429: 40,2006 42057 CS ELRCODE1 # WHICH HE HAS OBSCURED WITH DISPLAYS OF
013358,000430: 40,2007 60154 AD MPAC # HIS OWN (SEE REMARKS PRECEDING ROUTINE
013359,000431: 40,2010 00006 EXTEND # VBRELDSP).
013360,000432: 40,2011 12013 BZF CHARIN2
013361,000433: 40,2012 04410 TC RELDSPON
013362,000434: 40,2013 56154 CHARIN2 XCH MPAC
013363,000435: 40,2014 54117 TS CHAR
013364,000436: 40,2015 50000 INDEX A
013365,000437: 40,2016 02017 TC +1 # INPUT CODE FUNCTION
013366,000438: 40,2017 03335 TC CHARALRM # 0
013367,000439: 40,2020 02076 TC NUM # 1
013368,000440: 40,2021 02076 TC NUM # 2
013369,000441: 40,2022 02076 TC NUM # 3
013370,000442: 40,2023 02076 TC NUM # 4
013371,000443: 40,2024 02076 TC NUM # 5
013372,000444: 40,2025 02076 TC NUM # 6
013373,000445: 40,2026 02076 TC NUM # 7
013374,000446: 40,2027 02062 TC 89TEST # 10 8
013375,000447: 40,2030 02062 TC 89TEST # 11 9
013376,000448: 40,2031 03335 TC CHARALRM # 12
013377,000449: 40,2032 03335 TC CHARALRM # 13
013378,000450: 40,2033 03335 TC CHARALRM # 14
013379,000451: 40,2034 03335 TC CHARALRM # 15
013380,000452: 40,2035 03335 TC CHARALRM # 16
013381,000453: 40,2036 03335 TC CHARALRM # 17
013382,000454: 40,2037 02074 TC NUM -2 # 20 0
013383,000455: 40,2040 02255 TC VERB # 21 VERB
013384,000456: 40,2041 03504 TC ERROR # 22 ERROR LIGHT RESET
013385,000457: 40,2042 03335 TC CHARALRM # 23
013386,000458: 40,2043 03335 TC CHARALRM # 24
013387,000459: 40,2044 03335 TC CHARALRM # 25
013388,000460: 40,2045 03335 TC CHARALRM # 26
013389,000461: 40,2046 03335 TC CHARALRM # 27
013390,000462: 40,2047 03335 TC CHARALRM # 30
013391,000463: 40,2050 03362 TC VBRELDSP # 31 KEY RELEASE
![]() |
Page 309 |
013393,000465: 40,2051 02310 TC POSGN # 32 +
013394,000466: 40,2052 02275 TC NEGSGN # 33 -
013395,000467: 40,2053 02060 TC ENTERJMP # 34 ENTER
013396,000468: 40,2054 03335 TC CHARALRM # 35
013397,000469: 40,2055 02370 TC CLEAR # 36 CLEAR
013398,000470: 40,2056 02271 TC NOUN # 37 NOUN
013399,000471:
013400,000472:
013401,000473: 40,2057 00022 ELRCODE1 OCT 22
013402,000474: 40,2060 04574 ENTERJMP TC POSTJUMP
013403,000475: 40,2061 62002 CADR ENTER
013404,000476:
013405,000477: 40,2062 10777 89TEST CCS DSPCOUNT
013406,000478: 40,2063 02067 TC +4 # +
013407,000479: 40,2064 02067 TC +3 # +0
013408,000480: 40,2065 05112 TC ENDOFJOB # - BLOCK DATA IN IF DSPCOUNT IS - OR -0
013409,000481: 40,2066 05112 TC ENDOFJOB # -0
013410,000482: 40,2067 36214 CAF THREE
013411,000483: 40,2070 71000 MASK DECBRNCH
013412,000484: 40,2071 10000 CCS A
013413,000485: 40,2072 02076 TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
013414,000486: 40,2073 03335 TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
013415,000487:
013416,000488:
013417,000489: # NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
013418,000490: # WORD AS A FRACTION, KEEPING RESULTS TO DP.
013419,000491: # OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
013420,000492: # YREG, ZREG. THE LOW PARTS IN XREGLP, YREGLP, OR ZREGLP)
013421,000493: # DECBRNCH IS LEFT AT +0 FOR OCT, +1 FOR + DEC, +2 FOR - DEC.
013422,000494: # IF DSPCOUNT WAS LEFT -, NO MORE DATA IS ACCEPTED.
013423,000495:
013424,000496: 40,2074 34714 CAF ZERO
013425,000497: 40,2075 54117 TS CHAR
013426,000498: 40,2076 10777 NUM CCS DSPCOUNT
013427,000499: 40,2077 02103 TC +4 # +
013428,000500: 40,2100 02103 TC +3 # +0
013429,000501: 40,2101 02102 TC +1 # -BLOCK DATA IN IF DSPCOUNT IS -
013430,000502: 40,2102 05112 TC ENDOFJOB # -0
013431,000503: 40,2103 02225 TC GETINREL
013432,000504: 40,2104 11015 CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
013433,000505: 40,2105 34714 CAF ZERO
013434,000506: 40,2106 55015 TS CLPASS
013435,000507: 40,2107 02110 TC +1
013436,000508: 40,2110 50117 INDEX CHAR
013437,000509: 40,2111 34072 CAF RELTAB
013438,000510: 40,2112 74362 MASK LOW5
013439,000511: 40,2113 54124 TS CODE
013440,000512: 40,2114 30777 CA DSPCOUNT
013441,000513: 40,2115 54143 TS COUNT
013442,000514: 40,2116 03225 TC DSPIN
![]() |
Page 310 |
013444,000516: 40,2117 36214 CAF THREE
013445,000517: 40,2120 71000 MASK DECBRNCH
013446,000518: 40,2121 10000 CCS A # +0, OCTAL. +1, + DEC. +2, - DEC.
013447,000519: 40,2122 02133 TC DECTOBIN # +
013448,000520: 40,2123 50137 INDEX INREL # +0 OCTAL
013449,000521: 40,2124 57001 XCH VERBREG
013450,000522: 40,2125 54022 TS CYL
013451,000523: 40,2126 40022 CS CYL
013452,000524: 40,2127 40022 CS CYL
013453,000525: 40,2130 56022 XCH CYL
013454,000526: 40,2131 60117 AD CHAR
013455,000527: 40,2132 02150 TC ENDNMTST
013456,000528: 40,2133 50137 DECTOBIN INDEX INREL
013457,000529: 40,2134 57001 XCH VERBREG
013458,000530: 40,2135 54154 TS MPAC # SUM X 2EXP-14 IN MPAC
013459,000531: 40,2136 34714 CAF ZERO
013460,000532: 40,2137 54155 TS MPAC +1
013461,000533: 40,2140 34377 CAF TEN # 10 X 2EXP-14
013462,000534: 40,2141 07256 TC SHORTMP # 10SUM X 2EXP-28 IN MPAC, MPAC+1
013463,000535: 40,2142 56155 XCH MPAC +1
013464,000536: 40,2143 60117 AD CHAR
013465,000537: 40,2144 54155 TS MPAC +1
013466,000538: 40,2145 02150 TC ENDNMTST # NO OF
013467,000539: 40,2146 26154 ADS MPAC # OF MUST BE 5TH CHAR
013468,000540: 40,2147 02166 TC DECEND
013469,000541: 40,2150 50137 ENDNMTST INDEX INREL
013470,000542: 40,2151 55001 TS VERBREG
013471,000543: 40,2152 40777 CS DSPCOUNT
013472,000544: 40,2153 50137 INDEX INREL
013473,000545: 40,2154 62216 AD CRITCON
013474,000546: 40,2155 00006 EXTEND
013475,000547: 40,2156 12160 BZF ENDNUM # -0, DSPCOUNT = CRITCON
013476,000548: 40,2157 02213 TC MORNUM # - , DSPCOUNT G/ CRITCON
013477,000549: 40,2160 36214 ENDNUM CAF THREE
013478,000550: 40,2161 71000 MASK DECBRNCH
013479,000551: 40,2162 10000 CCS A
013480,000552: 40,2163 02166 TC DECEND
013481,000553: 40,2164 40777 ENDALL CS DSPCOUNT # BLOCK NUMIN BY PLACING DSPCOUNT
013482,000554: 40,2165 02214 TC MORNUM +1 # NEGATIVELY
013483,000555: 40,2166 44712 DECEND CS ONE
013484,000556: 40,2167 60137 AD INREL
013485,000557: 40,2170 00006 EXTEND
013486,000558: 40,2171 62164 BZMF ENDALL # IF INREL=0,1(VBREG,NNREG), LEAVE WHOLE
013487,000559: 40,2172 07052 TC DMP # IF INREL=2,3,4(R1,R2,R3),CONVERT TO FRAC
013488,000560: # MULT SUM X 2EXP-28 IN MPAC, MPAC+1 BY
013489,000561: 40,2173 02223 ADRES DECON # 2EXP14/10EXP5. GIVES(SUM/10EXP5)X2EXP-14
013490,000562: 40,2174 36214 CAF THREE # IN MPAC, +1, +2.
013491,000563: 40,2175 71000 MASK DECBRNCH
013492,000564: 40,2176 50000 INDEX A
013493,000565: 40,2177 02177 TC +0
![]() |
Page 311 |
013495,000567: 40,2200 02204 TC +DECSGN
013496,000568: 40,2201 00006 EXTEND # - CASE
013497,000569: 40,2202 40156 DCS MPAC +1
013498,000570: 40,2203 52156 DXCH MPAC +1
013499,000571: 40,2204 56156 +DECSGN XCH MPAC +2
013500,000572: 40,2205 50137 INDEX INREL
013501,000573: 40,2206 55004 TS XREGLP -2
013502,000574: 40,2207 56155 XCH MPAC +1
013503,000575: 40,2210 50137 INDEX INREL
013504,000576: 40,2211 55001 TS VERBREG
013505,000577: 40,2212 02164 TC ENDALL
013506,000578: 40,2213 10777 MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
013507,000579: 40,2214 54777 TS DSPCOUNT
013508,000580: 40,2215 05112 TC ENDOFJOB
013509,000581:
013510,000582: 40,2216 00022 CRITCON OCT 22 # (DEC 18)
013511,000583: 40,2217 00020 OCT 20 # (DEC 16)
013512,000584: 40,2220 00012 OCT 12 # (DEC 10)
013513,000585: 40,2221 00005 OCT 5
013514,000586: 40,2222 00000 OCT 0
013515,000587:
013516,000588: 40,2223 05174 13261 DECON 2DEC E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
013517,000589:
013518,000590:
013519,000591: # GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
013520,000592: # PUTS IN INTO INREL. +0 VERBREG, 1 NOUNREG, 2 XREG, 3 YREG, 4 ZREG.
013521,000593:
013522,000594: 40,2225 50777 GETINREL INDEX DSPCOUNT
013523,000595: 40,2226 32231 CAF INRELTAB
013524,000596: 40,2227 54137 TS INREL # (A TEMP, REG)
013525,000597: 40,2230 00002 TC Q
013526,000598:
013527,000599: 40,2231 00004 INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
013528,000600: 40,2232 00004 OCT 4 # R3D4 =(1)
013529,000601: 40,2233 00004 OCT 4 # R3D3 =(2)
013530,000602: 40,2234 00004 OCT 4 # R3D2 =(3)
013531,000603: 40,2235 00004 OCT 4 # R3D1 =(4)
013532,000604: 40,2236 00003 OCT 3 # R2D5 =(5)
013533,000605: 40,2237 00003 OCT 3 # R2D4 =(6)
013534,000606: 40,2240 00003 OCT 3 # R2D3 =(7)
013535,000607: 40,2241 00003 OCT 3 # R2D2 =(8D)
013536,000608: 40,2242 00003 OCT 3 # R2D1 =(9D)
013537,000609: 40,2243 00002 OCT 2 # R1D5 =(10D)
013538,000610: 40,2244 00002 OCT 2 # R1D4 =(11D)
013539,000611: 40,2245 00002 OCT 2 # R1D3 =(12D)
013540,000612: 40,2246 00002 OCT 2 # R1D2 =(13D)
013541,000613: 40,2247 00002 OCT 2 # R1D1 =(14D)
013542,000614: 40,2250 05642 TC CCSHOLE # NO DSPCOUNT NUMBER = 15D
013543,000615: 40,2251 00001 OCT 1 # ND2 =(16D)
![]() |
Page 312 |
013545,000617: 40,2252 00001 OCT 1 # ND1 =(17D)
013546,000618: 40,2253 00000 OCT 0 # VD2 =(18D)
013547,000619: 40,2254 00000 OCT 0 # VD1 =(19D)
013548,000620:
013549,000621: 40,2255 34714 VERB CAF ZERO
013550,000622: 40,2256 55001 TS VERBREG
013551,000623: 40,2257 34374 CAF VD1
013552,000624: 40,2260 54777 NVCOM TS DSPCOUNT
013553,000625: 40,2261 02502 TC 2BLANK
013554,000626: 40,2262 34712 CAF ONE
013555,000627: 40,2263 55000 TS DECBRNCH # SET FOR DEC V/N CODE
013556,000628: 40,2264 34714 CAF ZERO
013557,000629: 40,2265 55013 TS REQRET # SET FOR ENTPAS0
013558,000630: 40,2266 34233 CAF ENDINST # IF DSPALARM OCCURS BEFORE FIRST ENTPAS0
013559,000631: 40,2267 54136 TS ENTRET # OR NVSUB, ENTRET MUST ALREADY BE SET
013560,000632: # TO TC ENDOFJOB
013561,000633: 40,2270 05112 TC ENDOFJOB
013562,000634: 40,2271 34714 NOUN CAF ZERO
013563,000635: 40,2272 55002 TS NOUNREG
013564,000636: 40,2273 34375 CAF ND1 # ND1, OCT 21 (DEC 17)
013565,000637: 40,2274 02260 TC NVCOM
013566,000638:
013567,000639:
013568,000640: 40,2275 02347 NEGSGN TC SIGNTEST
013569,000641: 40,2276 02334 TC -ON
013570,000642: 40,2277 34711 CAF TWO
013571,000643: 40,2300 50137 BOTHSGN INDEX INREL # SET DEC COMP BIT TO 1 (IN DECBRNCH)
013572,000644: 40,2301 64704 AD BIT7 # BIT 5 FOR R1, BIT 4 FOR R2,
013573,000645: 40,2302 27000 ADS DECBRNCH # BIT 3 FOR R3.
013574,000646: 40,2303 11015 FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0, MAKE IT +0.
013575,000647: 40,2304 34714 CAF ZERO
013576,000648: 40,2305 55015 TS CLPASS
013577,000649: 40,2306 02307 TC +1
013578,000650: 40,2307 05112 TC ENDOFJOB
013579,000651:
013580,000652: 40,2310 02347 POSGN TC SIGNTEST
013581,000653: 40,2311 02314 TC +ON
013582,000654: 40,2312 34712 CAF ONE
013583,000655: 40,2313 02300 TC BOTHSGN
013584,000656:
013585,000657: 40,2314 22002 +ON LXCH Q
013586,000658: 40,2315 02225 TC GETINREL
013587,000659: 40,2316 50137 INDEX INREL
013588,000660: 40,2317 32342 CAF SGNTAB -2
013589,000661: 40,2320 54123 TS SGNOFF
013590,000662: 40,2321 64712 AD ONE
013591,000663: 40,2322 54122 TS SGNON
013592,000664: 40,2323 34714 SGNCOM CAF ZERO
013593,000665: 40,2324 54124 TS CODE
![]() |
Page 313 |
013595,000667: 40,2325 56123 XCH SGNOFF
013596,000668: 40,2326 03307 TC 11DSPIN
013597,000669: 40,2327 34700 CAF BIT11
013598,000670: 40,2330 54124 TS CODE
013599,000671: 40,2331 56122 XCH SGNON
013600,000672: 40,2332 03307 TC 11DSPIN
013601,000673: 40,2333 00001 TC L
013602,000674: 40,2334 22002 -ON LXCH Q
013603,000675: 40,2335 02225 TC GETINREL
013604,000676: 40,2336 50137 INDEX INREL
013605,000677: 40,2337 32342 CAF SGNTAB -2
013606,000678: 40,2340 54122 TS SGNON
013607,000679: 40,2341 64712 AD ONE
013608,000680: 40,2342 54123 TS SGNOFF
013609,000681: 40,2343 02323 TC SGNCOM
013610,000682:
013611,000683: 40,2344 00005 SGNTAB OCT 5 # -R1
013612,000684: 40,2345 00003 OCT 3 # -R2
013613,000685: 40,2346 00000 OCT 0 # -R3
013614,000686:
013615,000687: 40,2347 22002 SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
013616,000688: 40,2350 36214 CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
013617,000689: 40,2351 71000 MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
013618,000690: 40,2352 10000 CCS A # IF LOW2 BITS OF DECBRNCH NOT= 0, SIGN
013619,000691: 40,2353 05112 TC ENDOFJOB # FOR THIS WORD ALREADY IN. REJECT.
013620,000692: 40,2354 44333 CS R1D1
013621,000693: 40,2355 02363 TC SGNTST1
013622,000694: 40,2356 44334 CS R2D1
013623,000695: 40,2357 02363 TC SGNTST1
013624,000696: 40,2360 44335 CS R3D1
013625,000697: 40,2361 02363 TC SGNTST1
013626,000698: 40,2362 05112 TC ENDOFJOB # NO MATCH FOUND. SIGN ILLEGAL
013627,000699: 40,2363 60777 SGNTST1 AD DSPCOUNT
013628,000700: 40,2364 00006 EXTEND
013629,000701: 40,2365 12367 BZF +2 # MATCH FOUND
013630,000702: 40,2366 00002 TC Q
013631,000703: 40,2367 00001 TC L # SIGN LEGAL
013632,000704:
013633,000705:
013634,000706: # CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED(PERTINE
013635,000707: # NT XREG,YREG,ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
013636,000708: # L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION
013637,000709:
013638,000710: # THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
013639,000711: # APPROPRIATE TO BE CLEARED.
013640,000712:
013641,000713: # CLPASS +0 PASS0, CAN BE BACKED UP
013642,000714: # +NZ HIPASS, CAN BE BACKED UP
013643,000715: # -NZ PASS0, CANNOT BE BACKED UP
013644,000716:
![]() |
Page 314 |
013646,000718: 40,2370 10777 CLEAR CCS DSPCOUNT
013647,000719: 40,2371 64712 AD ONE
013648,000720: 40,2372 02374 TC +2
013649,000721: 40,2373 64712 AD ONE
013650,000722: 40,2374 50000 INDEX A # DO NOT CHANGE DSPCOUNT BECAUSE MAY LATER
013651,000723: 40,2375 32231 CAF INRELTAB # FAIL LEGALTST.
013652,000724: 40,2376 54137 TS INREL # MUST SET INREL, EVEN FOR HIPASS.
013653,000725: 40,2377 11015 CCS CLPASS
013654,000726: 40,2400 02406 TC CLPASHI # +
013655,000727: 40,2401 02403 TC +2 # +0 IF CLPASS IS +0 OR -, IT IS PASS0
013656,000728: 40,2402 02403 TC +1 # -
013657,000729: 40,2403 30137 CA INREL
013658,000730: 40,2404 02430 TC LEGALTST
013659,000731: 40,2405 02423 TC CLEAR1
013660,000732: 40,2406 10137 CLPASHI CCS INREL
013661,000733: 40,2407 54137 TS INREL
013662,000734: 40,2410 02430 TC LEGALTST
013663,000735: 40,2411 32500 CAF DOUBLK +2 # +3 TO - NUMBER. BACKS DATA REQUESTS.
013664,000736: 40,2412 27013 ADS REQRET
013665,000737: 40,2413 30137 CA INREL
013666,000738: 40,2414 54125 TS MIXTEMP # TEMP STORAGE FOR INREL
013667,000739: 40,2415 00006 EXTEND
013668,000740: 40,2416 27001 DIM VERBREG # DECREMENT VERB AND RE-DISPLAY
013669,000741: 40,2417 04555 TC BANKCALL
013670,000742: 40,2420 62337 CADR UPDATVB
013671,000743: 40,2421 30125 CA MIXTEMP
013672,000744: 40,2422 54137 TS INREL # RESTORE INREL
013673,000745: 40,2423 02426 CLEAR1 TC CLR5
013674,000746: 40,2424 25015 INCR CLPASS # ONLY IF CLPASS IS + OR +0,
013675,000747: 40,2425 05112 TC ENDOFJOB # SET FOR HIGHER PASS.
013676,000748: 40,2426 22002 CLR5 LXCH Q # USES 5BLANK BUT AVOIDS ITS TC GETINREL
013677,000749: 40,2427 02441 TC 5BLANK +2
013678,000750: 40,2430 67715 LEGALTST AD NEG2
013679,000751: 40,2431 10000 CCS A
013680,000752: 40,2432 00002 TC Q # LEGAL INREL G/ 2
013681,000753: 40,2433 05642 TC CCSHOLE
013682,000754: 40,2434 05112 TC ENDOFJOB # ILLEGAL INREL= 0,1
013683,000755: 40,2435 00002 TC Q # LEGAL INREL = 2
013684,000756:
013685,000757:
013686,000758: # 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
013687,000759: # YREG, OR ZREG.PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT
013688,000760: # DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
013689,000761:
013690,000762: 40,2436 54777 TS DSPCOUNT # NEEDED FOR BLANKSUB
013691,000763: 40,2437 22002 5BLANK LXCH Q
013692,000764: 40,2440 02225 TC GETINREL
013693,000765: 40,2441 34714 CAF ZERO
013694,000766: 40,2442 50137 INDEX INREL
013695,000767: 40,2443 55001 TS VERBREG # ZERO X, Y, Z REG.
![]() |
Page 315 |
013697,000769: 40,2444 50137 INDEX INREL
013698,000770: 40,2445 55004 TS XREGLP -2
013699,000771: 40,2446 54124 TS CODE
013700,000772: 40,2447 50137 INDEX INREL # ZERO PERTINENT DEC COMP BIT.
013701,000773: 40,2450 44704 CS BIT7 # PROTECT OTHERS
013702,000774: 40,2451 71000 MASK DECBRNCH
013703,000775: 40,2452 72501 MASK BRNCHCON # ZERO LOW 2 BITS.
013704,000776: 40,2453 55000 TS DECBRNCH
013705,000777: 40,2454 50137 INDEX INREL
013706,000778: 40,2455 32471 CAF SINBLANK -2 # BLANK ISOLATED CHAR SEPARATELY
013707,000779: 40,2456 54143 TS COUNT
013708,000780: 40,2457 03225 TC DSPIN
013709,000781: 40,2460 50137 5BLANK1 INDEX INREL
013710,000782: 40,2461 32474 CAF DOUBLK -2
013711,000783: 40,2462 54777 TS DSPCOUNT
013712,000784: 40,2463 02502 TC 2BLANK
013713,000785: 40,2464 44711 CS TWO
013714,000786: 40,2465 26777 ADS DSPCOUNT
013715,000787: 40,2466 02502 TC 2BLANK
013716,000788: 40,2467 50137 INDEX INREL
013717,000789: 40,2470 34331 CAF R1D1 -2
013718,000790: 40,2471 54777 TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
013719,000791: 40,2472 00001 TC L # OF REG. JUST BLANKED
013720,000792:
013721,000793: 40,2473 00016 SINBLANK OCT 16 # DEC 14
013722,000794: 40,2474 00005 OCT 5
013723,000795: 40,2475 00004 OCT 4
013724,000796: 40,2476 00015 DOUBLK OCT 15 # DEC 13
013725,000797: 40,2477 00011 OCT 11 # DEC 9
013726,000798: 40,2500 00003 OCT 3
013727,000799:
013728,000800: 40,2501 77774 BRNCHCON OCT 77774
013729,000801:
013730,000802: # 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
013731,000803: # DSPCOUNT. THIS NUMBER IS LEFT IN DSPCOUNT
013732,000804:
013733,000805: 40,2502 30777 2BLANK CA DSPCOUNT
013734,000806: 40,2503 54021 TS SR
013735,000807: 40,2504 42515 CS BLANKCON
013736,000808: 40,2505 00004 INHINT
013737,000809: 40,2506 50021 INDEX SR
013738,000810: 40,2507 57023 XCH DSPTAB
013739,000811: 40,2510 00006 EXTEND
013740,000812: 40,2511 62513 BZMF +2 # IF OLD CONTENTS -, NOUT OK
013741,000813: 40,2512 25016 INCR NOUT # IF OLD CONTENTS +, +1 TO NOUT
013742,000814: 40,2513 00003 RELINT # IF -,NOUT OK
013743,000815: 40,2514 00002 TC Q
013744,000816: 40,2515 04000 BLANKCON OCT 4000
013745,000817:
013746,000818:
![]() |
Page 316 |
013748,000820:
013749,000821: # ENTER PASS 0 IS THE EXECUTE FUNCTION. HIGHER ORDER ENTERS ARE TO LOAD
013750,000822: # DATA. THE SIGN OF REQRET DETERMINES THE PASS, + FOR PASS 0,- FOR HIGHER
013751,000823: # PASSES.
013752,000824:
013753,000825:
013754,000826: # MACHINE CADR TO BE SPECIFIED (MCTBS) NOUNS DESIRE AN ECADR TO BE LOADED
013755,000827: # WHEN USED WITH LOAD VERBS, MONITOR VERBS, OR DISPLAY VERBS (EXCEPT
013756,000828: # VERB = FIXED MEMORY DISPLAY, WHICH REQUIRES AN FCADR).
013757,000829:
013758,000830:
013759,000831: 41,2000 BANK 41
013760,000832: 41,2000 SETLOC PINBALL2
013761,000833: 41,2000 BANK
013762,000834:
013763,000835: 41,2000 COUNT 41/PIN
013764,000836:
013765,000837: 41,2000 03534 NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
013766,000838: 41,2001 02771 LOADLV1 TC LOADLV
013767,000839: # END OF STANDARD LEAD INS.
013768,000840:
013769,000841: 41,2002 34714 ENTER CAF ZERO
013770,000842: 41,2003 55015 TS CLPASS
013771,000843: 41,2004 34233 CAF ENDINST
013772,000844: 41,2005 54136 TS ENTRET
013773,000845: 41,2006 11013 CCS REQRET
013774,000846: 41,2007 02035 TC ENTPAS0 # IF +, PASS 0
013775,000847: 41,2010 02035 TC ENTPAS0 # IF +, PASS 0
013776,000848: 41,2011 02012 TC +1 # IF -, NOT PASS 0
013777,000849: 41,2012 32033 ENTPASHI CAF MMADREF
013778,000850: 41,2013 61013 AD REQRET # IF L/ 2 CHAR IN FOR MM CODE, ALARM
013779,000851: 41,2014 00006 EXTEND # AND RECYCLE (DECIDE AT MMCHANG+1).
013780,000852: 41,2015 12027 BZF ACCEPTWD
013781,000853: 41,2016 36214 CAF THREE # IF DEC, ALARM IF L/ 5 CHAR IN FOR DATA,
013782,000854: 41,2017 71000 MASK DECBRNCH # BUT LEAVE REQRET - AND FLASH ON, SO
013783,000855: 41,2020 10000 CCS A # OPERATOR CAN SUPPLY MISSING NUMERICAL
013784,000856: 41,2021 02023 TC +2 # CHARACTERS AND CONTINUE.
013785,000857: 41,2022 02027 TC ACCEPTWD # OCTAL. ANY NUMBER OF CHAR OK.
013786,000858: 41,2023 10777 CCS DSPCOUNT
013787,000859: 41,2024 02350 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013788,000860: 41,2025 02350 TC GODSPALM # LESS THAN 5 CHAR DEC(DSPCOUNT IS +)
013789,000861: 41,2026 02027 TC +1 # 5 CHAR IN (DSPCOUNT IS -)
013790,000862: 41,2027 41013 ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
013791,000863: 41,2030 55013 TS REQRET # SET REQRET +.
013792,000864: 41,2031 04447 TC FLASHOFF
013793,000865: 41,2032 01013 TC REQRET
013794,000866:
013795,000867: 41,2033 0136 ENTEXIT = ENTRET
013796,000868:
013797,000869: 41,2033 03421 MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
013798,000870:
![]() |
Page 317 |
013800,000872: 41,2034 00034 LOWVERB DEC 28 B-14 # LOWER VERB THAT AVOIDS NOUN TEST.
013801,000873:
013802,000874: 41,2035 34714 ENTPAS0 CAF ZERO # NOUN VERB SUB ENTERS HERE
013803,000875: 41,2036 55000 TS DECBRNCH
013804,000876: 41,2037 44374 CS VD1 # BLOCK FURTHER NUM CHAR, SO THAT STRAY
013805,000877: 41,2040 54777 TS DSPCOUNT # CHAR DO NOT GET INTO VERB OR NOUN LTS.
013806,000878: 41,2041 41001 TESTVB CS VERBREG # IF VERB IS G/E LOWVB, SKIP NOUN TEST.
013807,000879: 41,2042 55041 TS VERBSAVE # SAVE VERB FOR POSSIBLE RECYCLE.
013808,000880: 41,2043 62034 AD LOWVERB # LOWVERB - VB
013809,000881: 41,2044 00006 EXTEND
013810,000882: 41,2045 62133 BZMF VERBFAN # VERB G/ E LOWVERB
013811,000883: 41,2046 00006 TESTNN EXTEND # VERB L/ LOWVERB
013812,000884: 41,2047 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
013813,000885: 41,2050 52006 DXCH Z # ROUTINE.
013814,000886: 41,2051 50140 INDEX MIXBR
013815,000887: 41,2052 02052 TC +0
013816,000888: 41,2053 02055 TC +2 # NORMAL
013817,000889: 41,2054 02221 TC MIXNOUN # MIXED
013818,000890: 41,2055 10146 CCS NNADTEM # NORMAL
013819,000891: 41,2056 02131 TC VERBFAN -2 # NORMAL IF +
013820,000892: 41,2057 02350 TC GODSPALM # NOT IN USE IF +0
013821,000893: 41,2060 02064 TC REQADD # SPECIFY MACHINE CADR IF -
013822,000894: 41,2061 25017 INCR NOUNCADR # AUGMENT MACHINE CADR IF -0
013823,000895: 41,2062 04325 TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
013824,000896: 41,2063 02120 TC INTMCTBS +2
013825,000897: 41,2064 34674 REQADD CAF BIT15 # SET CLPASS FOR PASS 0 ONLY
013826,000898: 41,2065 55015 TS CLPASS
013827,000899: 41,2066 44233 CS ENDINST # TEST IF REACHED HERE FROM INTERNAL OR
013828,000900: 41,2067 60136 AD ENTEXIT # FROM EXTERNAL
013829,000901: 41,2070 00006 EXTEND
013830,000902: 41,2071 12073 BZF +2 # EXTERNAL MACH CADR TO BE SPECIFIED
013831,000903: 41,2072 02116 TC INTMCTBS
013832,000904: 41,2073 02306 TC REQDATZ # EXTERNAL MACH CADR TO BE SPECIFIED
013833,000905: 41,2074 11000 CCS DECBRNCH # ALARM AND RECYCLE IF DECIMAL USED
013834,000906: 41,2075 04161 TC ALMCYCLE # FOR MCTBS.
013835,000907: 41,2076 44374 CS VD1 # OCTAL USED OK
013836,000908: 41,2077 54777 TS DSPCOUNT # BLOCK NUM CHAR IN
013837,000909: 41,2100 11042 CCS CADRSTOR
013838,000910: 41,2101 02104 TC +3 # EXTERNAL MCTBS DISPLAY WILL LEAVE FLASH
013839,000911: 41,2102 02105 TC USEADD # ON IF ENDIDLE NOT = +0.
013840,000912: 41,2103 02104 TC +1
013841,000913: 41,2104 04443 TC FLASHON
013842,000914: 41,2105 57005 USEADD XCH ZREG
013843,000915: 41,2106 04317 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
013844,000916: 41,2107 00006 EXTEND
013845,000917: 41,2110 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
013846,000918: 41,2111 52006 DXCH Z # ROUTINE.
013847,000919: 41,2112 02133 TC VERBFAN
013848,000920:
013849,000921: 41,2113 0777 EBANK= DSPCOUNT
![]() |
Page 318 |
013851,000923: 41,2113 02062 64101 LODNNLOC 2CADR LODNNTAB
013852,000924:
013853,000925: 41,2115 77772 NEG5 OCT 77772
013854,000926:
013855,000927: 41,2116 30156 INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
013856,000928: 41,2117 04317 TC SETNCADR # ECADR INTO NOUNCADR. SET EB, NOUNADD.
013857,000929: 41,2120 44715 CS FIVE # NVSUB CALL LEFT CADR IN MPAC+2 FOR MACH
013858,000930: 41,2121 61001 AD VERBREG # CADR TO BE SPECIFIED.
013859,000931: 41,2122 00006 EXTEND
013860,000932: 41,2123 12133 BZF VERBFAN # DONT DISPLAY CADR IF VB = 05.
013861,000933: 41,2124 34335 CAF R3D1 # VB NOT = 05. DISPLAY CADR.
013862,000934: 41,2125 54777 TS DSPCOUNT
013863,000935: 41,2126 31017 CA NOUNCADR
013864,000936: 41,2127 03353 TC DSPOCTWD
013865,000937: 41,2130 02133 TC VERBFAN
013866,000938:
013867,000939: 41,2131 64712 AD ONE
013868,000940: 41,2132 04317 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
013869,000941: 41,2133 42145 VERBFAN CS LST2CON
013870,000942: 41,2134 61001 AD VERBREG # VERB-LST2CON
013871,000943: 41,2135 10000 CCS A
013872,000944: 41,2136 64712 AD ONE # VERB G/ LST2CON
013873,000945: 41,2137 02141 TC +2
013874,000946: 41,2140 02146 TC VBFANDIR # VERB L/ LST2CON
013875,000947: 41,2141 54154 TS MPAC
013876,000948: 41,2142 04473 TC RELDSP # RELEASE DISPLAY SYST
013877,000949: 41,2143 04574 TC POSTJUMP # GO TO GOEXTVB WITH VB-40 IN MPAC.
013878,000950: 41,2144 66000 CADR GOEXTVB
013879,000951: 41,2145 00050 LST2CON DEC 40 B-14 # FIRST LIST2 VERB (EXTENDED VERB)
013880,000952:
013881,000953: 41,2146 51001 VBFANDIR INDEX VERBREG
013882,000954: 41,2147 32151 CAF VERBTAB
013883,000955: 41,2150 04577 TC BANKJUMP
013884,000956:
013885,000957: 41,2151 62350 VERBTAB CADR GODSPALM # VB00 ILLEGAL
013886,000958: 41,2152 62364 CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
013887,000959: 41,2153 62372 CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
013888,000960: 41,2154 62377 CADR DSPC # VB03 DISPLAY OCT COMP 3 (R1)
013889,000961: 41,2155 62357 CADR DSPAB # VB04 DISPLAY OCT COMP 1,2 (R1,R2)
013890,000962: 41,2156 62352 CADR DSPABC # VB05 DISPLAY OCT COMP 1,2,3 (R1,R2,R3)
013891,000963: 41,2157 62520 CADR DECDSP # VB06 DECIMAL DISPLAY
013892,000964: 41,2160 60675 CADR DSPDPDEC # VB07 DP DECIMAL DISPLAY (R1,R2)
013893,000965: 41,2161 62350 CADR GODSPALM # VB08 SPARE
013894,000966: 41,2162 62350 CADR GODSPALM # VB09 SPARE
013895,000967: 41,2163 61323 CADR DSPALARM # VB10 SPARE
013896,000968: 41,2164 63220 CADR MONITOR # VB11 MONITOR OCT COMP 1 (R1)
013897,000969: 41,2165 63220 CADR MONITOR # VB12 MONITOR OCT COMP 2 (R1)
013898,000970: 41,2166 63220 CADR MONITOR # VB13 MONITOR OCT COMP 3 (R1)
013899,000971: 41,2167 63220 CADR MONITOR # VB14 MONITOR OCT COMP 1,2 (R1,R2)
![]() |
Page 319 |
013901,000973: 41,2170 63220 CADR MONITOR # VB15 MONITOR OCT COMP 1,2,3 (R1,R2,R3)
013902,000974: 41,2171 63220 CADR MONITOR # VB16 MONITOR DECIMAL
013903,000975: 41,2172 63220 CADR MONITOR # VB17 MONITOR DP DEC (R1,R2)
013904,000976: 41,2173 62350 CADR GODSPALM # VB18 SPARE
013905,000977: 41,2174 62350 CADR GODSPALM # VB19 SPARE
013906,000978: 41,2175 62350 CADR GODSPALM # VB20 SPARE
013907,000979: 41,2176 62726 CADR ALOAD # VB21 LOAD COMP 1 (R1)
013908,000980: 41,2177 62737 CADR BLOAD # VB22 LOAD COMP 2 (R2)
013909,000981: 41,2200 62754 CADR CLOAD # VB23 LOAD COMP 3 (R3)
013910,000982: 41,2201 62677 CADR ABLOAD # VB24 LOAD COMP 1,2 (R1,R2)
013911,000983: 41,2202 62612 CADR ABCLOAD # VB25 LOAD COMP 1,2,3 (R1,R2,R3)
013912,000984: 41,2203 62350 CADR GODSPALM # VB26 SPARE
013913,000985: 41,2204 63343 CADR DSPFMEM # VB27 FIXED MEMORY DISPLAY
013914,000986: # THE FOLLOWING VERBS MAKE NO NOUN TEST
013915,000987: 41,2205 62350 CADR GODSPALM # VB28 SPARE
013916,000988: 41,2206 62350 CADR GODSPALM # VB29 SPARE
013917,000989: 41,2207 63456 REQEXLQC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
013918,000990: 41,2210 63502 CADR VBRQWAIT # VB31 REQUEST WAITLIST
013919,000991: 41,2211 61360 CADR VBRESEQ # VB32 RESEQUENCE
013920,000992: 41,2212 61343 CADR VBPROC # VB33 PROCEED WITHOUT DATA
013921,000993: 41,2213 61351 CADR VBTERM # VB34 TERMINATE CURRENT TEST OR LOAD REQ
013922,000994: 41,2214 63603 CADR VBTSTLTS # VB35 TEST LIGHTS
013923,000995: 41,2215 12347 CADR SLAP1 # VB36 FRESH START
013924,000996: 41,2216 63420 CADR MMCHANG # VB37 CHANGE MAJOR MODE
013925,000997: 41,2217 62350 CADR GODSPALM # VB38 SPARE
013926,000998: 41,2220 62350 CADR GODSPALM # VB39 SPARE
013927,000999:
013928,001000:
013929,001001: # THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
013930,001002:
![]() |
Page 320 |
013932,001004:
013933,001005: # NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL(IN LOW 10 BITS), REFERRING
013934,001006: # TO WHERE 3 CONSECUTIVE ADDRESSES ARE STORED (IN IDADDTAB).
013935,001007: # MIXNOUN GETS DATA AND STORES IN MIXTEMP,+1,+2. IT SETS NOUNADD FOR
013936,001008: # MIXTEMP.
013937,001009:
013938,001010: 41,2221 10146 MIXNOUN CCS NNADTEM
013939,001011: 41,2222 02226 TC +4 # + IN USE
013940,001012: 41,2223 02350 TC GODSPALM # +0 NOT IN USE
013941,001013: 41,2224 02226 TC +2 # - IN USE
013942,001014: 41,2225 02226 TC +1 # -0 IN USE
013943,001015: 41,2226 46211 CS SIX
013944,001016: 41,2227 61001 AD VERBREG
013945,001017: 41,2230 00006 EXTEND
013946,001018: 41,2231 62233 BZMF +2 # VERB L/E 6
013947,001019: 41,2232 02133 TC VERBFAN # AVOID MIXNOUN SWAP IF VB NOT = DISPLAY
013948,001020: 41,2233 34711 CAF TWO
013949,001021: 41,2234 54117 MIXNN1 TS DECOUNT
013950,001022: 41,2235 62260 AD MIXAD
013951,001023: 41,2236 54145 TS NOUNADD # SET NOUNADD TO MIXTEMP + K
013952,001024: 41,2237 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
013953,001025: 41,2240 30150 CA IDAD1TEM # OF NOUN.
013954,001026: 41,2241 54122 TS NOUNTEM
013955,001027: # TEST FOR DP(FOR OCT DISPLAY). IF SO, GET
013956,001028: # MINOR PART ONLY.
013957,001029: 41,2242 03027 TC SFRUTMIX # GET SF ROUT NUMBER IN A
013958,001030: 41,2243 02261 TC DPTEST
013959,001031: 41,2244 02246 TC MIXNN2 # NO DP
013960,001032: 41,2245 24122 INCR NOUNTEM # DP GET MINOR PART
013961,001033: 41,2246 30122 MIXNN2 CA NOUNTEM
013962,001034: 41,2247 74372 MASK LOW11 # ESUBK (NO DP) OR (ESUBK)+1 FOR DP
013963,001035: 41,2250 04327 TC SETEBANK # SET EBANK, LEAVE EADRES IN A.
013964,001036: 41,2251 50000 INDEX A # PICK UP C(ESUBK) NOT DP
013965,001037: 41,2252 30000 CA 0 # OR C((ESUBK)+1) FOR DP MINOR PART
013966,001038: 41,2253 50145 INDEX NOUNADD
013967,001039: 41,2254 56000 XCH 0 # STORE IN MIXTEM + K
013968,001040: 41,2255 10117 CCS DECOUNT
013969,001041: 41,2256 02234 TC MIXNN1
013970,001042: 41,2257 02133 TC VERBFAN
013971,001043:
013972,001044: 41,2260 00125 MIXAD TC MIXTEMP
013973,001045:
013974,001046:
013975,001047: # DPTEST ENTER WITH SF ROUT NUMBER IN A.
013976,001048: # RETURNS TO L+1 IF NO DP.
013977,001049: # RETURNS TO L+2 IF DP.
013978,001050:
013979,001051: 41,2261 50000 DPTEST INDEX A
013980,001052: 41,2262 12263 TCF +1
013981,001053: 41,2263 00002 TC Q # OCTAL ONLY NO DP
013982,001054: 41,2264 00002 TC Q # FRACT NO DP
![]() |
Page 321 |
013984,001056: 41,2265 00002 TC Q # DEG NO DP
013985,001057: 41,2266 00002 TC Q # ARITH NO DP
013986,001058: 41,2267 12300 TCF DPTEST1 # DP1OUT
013987,001059: 41,2270 12300 TCF DPTEST1 # DP2OUT
013988,001060: 41,2271 00002 TC Q # OPDEG NO DP
013989,001061: 41,2272 12300 TCF DPTEST1 # DP3OUT
013990,001062: 41,2273 00002 TC Q # HMS NO DP
013991,001063: 41,2274 00002 TC Q # M/S NO DP
013992,001064: 41,2275 12300 TCF DPTEST1 # DP4OUT
013993,001065: 41,2276 00002 TC Q # ARITH1 NO DP
013994,001066: 41,2277 00002 TC Q # 2INTOUT NO DP TO GET HI PART IN MPAC
013995,001067: 41,2300 50002 DPTEST1 INDEX Q
013996,001068: 41,2301 00001 TC 1 # RETURN TO L+2
013997,001069:
013998,001070:
013999,001071: 41,2302 34333 REQDATX CAF R1D1
014000,001072: 41,2303 12307 TCF REQCOM
014001,001073: 41,2304 34334 REQDATY CAF R2D1
014002,001074: 41,2305 12307 TCF REQCOM
014003,001075: 41,2306 34335 REQDATZ CAF R3D1
014004,001076: 41,2307 54777 REQCOM TS DSPCOUNT
014005,001077: 41,2310 40002 CS Q
014006,001078: 41,2311 55013 TS REQRET
014007,001079: 41,2312 04555 TC BANKCALL
014008,001080: 41,2313 60437 CADR 5BLANK
014009,001081: 41,2314 04443 TC FLASHON
014010,001082: 41,2315 00136 ENDRQDAT TC ENTEXIT
014011,001083:
014012,001084: 41,2316 55002 TS NOUNREG
014013,001085: 41,2317 56002 UPDATNN XCH Q
014014,001086: 41,2320 54117 TS UPDATRET
014015,001087: 41,2321 00006 EXTEND
014016,001088: 41,2322 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014017,001089: 41,2323 52006 DXCH Z # ROUTINE.
014018,001090: 41,2324 10146 CCS NNADTEM
014019,001091: 41,2325 64712 AD ONE # NORMAL
014020,001092: 41,2326 12331 TCF PUTADD
014021,001093: 41,2327 12332 TCF PUTADD +1 # MCTBS DONT CHANGE NOUNADD
014022,001094: 41,2330 12332 TCF PUTADD +1 # MCTBI DONT CHANGE NOUNADD
014023,001095: 41,2331 04317 PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014024,001096: 41,2332 34375 CAF ND1
014025,001097: 41,2333 54777 TS DSPCOUNT
014026,001098: 41,2334 31002 CA NOUNREG
014027,001099: 41,2335 12344 TCF UPDAT1
014028,001100:
014029,001101: 41,2336 55001 TS VERBREG
014030,001102: 41,2337 56002 UPDATVB XCH Q
014031,001103: 41,2340 54117 TS UPDATRET
014032,001104: 41,2341 34374 CAF VD1
014033,001105: 41,2342 54777 TS DSPCOUNT
![]() |
Page 322 |
014035,001107: 41,2343 31001 CA VERBREG
014036,001108: 41,2344 04574 UPDAT1 TC POSTJUMP # CANT USE SWCALL TO GO TO DSPDECVN,SINCE
014037,001109: 41,2345 61222 CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL.
014038,001110: 41,2346 00117 TC UPDATRET
014039,001111:
014040,001112:
014041,001113: 41,2347 04161 GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
014042,001114:
014043,001115:
014044,001116: 41,2350 04574 GODSPALM TC POSTJUMP
014045,001117: 41,2351 61323 CADR DSPALARM
014046,001118:
![]() |
Page 323 |
014048,001120: # NOUN TABLES
014049,001121:
014050,001122: # NOUN CODE L/40, NORMAL NOUN CASE. NOUN CODE G/E 40, MIXED NOUN CASE.
014051,001123: # FOR NORMAL CASE, NNADTAB CONTAINS ONE ECADR FOR EACH NOUN.
014052,001124: # +0 INDICATES NOUN NOT USED. - ENTRY INDICATES MACHINE CADR(E OR F) TO
014053,001125: # BE SPECIFIED. -1 INDICATES CHANNEL TO BE SPECIFIED. -0 INDICATES AUGMENT
014054,001126: # OF LAST MACHINE CADR SUPPLIED.
014055,001127:
014056,001128: # FOR MIXED CASE, NNADTAB CONTAINS ONE INDIRECT ADDRESS(IDADDREL) IN LOW
014057,001129: # 10 BITS, AND THE COMPONENT CODE NUMBER IN THE HIGH 5 BITS.
014058,001130:
014059,001131: # NNTYPTAB IS A PACKED TABLE OF THE FORM MMMMMNNNNNPPPPP.
014060,001132:
014061,001133: # FOR THE NORMAL CASE, M-S ARE THE COMPONENT CODE NUMBER.
014062,001134: # N-S ARE THE SF ROUTINE CODE NUMBER.
014063,001135: # P-S ARE THE SF CONSTANT CODE NUMBER.
014064,001136:
014065,001137: # MIXED CASE,M-S ARE THE SF CONSTANT3 CODE NUMBER 3 COMPONENT CASE
014066,001138: # N-S ARE THE SF CONSTANT2 CODE NUMBER
014067,001139: # P-S ARE THE SF CONSTANT1 CODE NUMBER
014068,001140: # N-S ARE THE SF CONSTANT2 CODE NUMBER 2 COMPONENT CASE
014069,001141: # P-S ARE THE SF CONSTANT1 CODE NUMBER
014070,001142: # P-S ARE THE SF CONSTANT1 CODE NUMBER 1 COMPONENT CASE
014071,001143:
014072,001144: # THERE IS ALSO AN INDIRECT ADDRESS TABLE(IDADDTAB) FOR MIXED CASE ONLY.
014073,001145: # EACH ENTRY CONTAINS ONE ECADR. IDADDREL IS THE RELATIVE ADDRESS OF
014074,001146: # THE FIRST OF THESE ENTRIES.
014075,001147: # THERE IS ONE ENTRY IN THIS TABLE FOR EACH COMPONENT OF A MIXED NOUN
014076,001148: # THEY ARE LISTED IN ORDER OF ASCENDING K.
014077,001149:
014078,001150: # THERE IS ALSO A SCALE FACTOR ROUTINE NUMBER TABLE( RUTMXTAB ) FOR MIXED
014079,001151: # CASE ONLY. THERE IS ONE ENTRY PER MIXED NOUN. THE FORM IS,
014080,001152: # QQQQQRRRRRSSSSS
014081,001153: # Q-S ARE THE SF ROUTINE 3 CODE NUMBER 3 COMPONENT CASE
014082,001154: # R-S ARE THE SF ROUTINE 2 CODE NUMBER
014083,001155: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
014084,001156: # R-S ARE THE SF ROUTINE 2 CODE NUMBER 2 COMPONENT CASE
014085,001157: # S-S ARE THE SF ROUTINE 1 CODE NUMBER
014086,001158:
014087,001159:
014088,001160: # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE
014089,001161: # COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN.
014090,001162: # (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
014091,001163:
014092,001164:
014093,001165: # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA
014094,001166: # COMPONENT WORDS IS ALLOWED. ALARM IF VIOLATION.
014095,001167:
014096,001168: # IN DECIMAL LOADS OF DATA, 5 NUMERICAL CHARACTERS MUST BE KEYED IN
014097,001169: # BEFORE EACH ENTER. IF NOT, ALARM.
014098,001170:
![]() |
Page 324 |
014100,001172:
014101,001173: # DISPLAY VERBS
014102,001174: 41,2352 44711 DSPABC CS TWO
014103,001175: 41,2353 02423 TC COMPTEST
014104,001176: 41,2354 50145 INDEX NOUNADD
014105,001177: 41,2355 40002 CS 2
014106,001178: 41,2356 56132 XCH BUF +2
014107,001179: 41,2357 44712 DSPAB CS ONE
014108,001180: 41,2360 02423 TC COMPTEST
014109,001181: 41,2361 50145 INDEX NOUNADD
014110,001182: 41,2362 40001 CS 1
014111,001183: 41,2363 56131 XCH BUF +1
014112,001184: 41,2364 02442 DSPA TC DECTEST
014113,001185: 41,2365 02465 TC TSTFORDP
014114,001186: 41,2366 50145 INDEX NOUNADD
014115,001187: 41,2367 40000 CS 0
014116,001188: 41,2370 56130 DSPCOM1 XCH BUF
014117,001189: 41,2371 02404 TC DSPCOM2
014118,001190: 41,2372 44712 DSPB CS ONE
014119,001191: 41,2373 02436 TC DCOMPTST
014120,001192: 41,2374 50145 INDEX NOUNADD
014121,001193: 41,2375 40001 CS 1
014122,001194: 41,2376 02370 TC DSPCOM1
014123,001195: 41,2377 44711 DSPC CS TWO
014124,001196: 41,2400 02436 TC DCOMPTST
014125,001197: 41,2401 50145 INDEX NOUNADD
014126,001198: 41,2402 40002 CS 2
014127,001199: 41,2403 02370 TC DSPCOM1
014128,001200: 41,2404 44711 DSPCOM2 CS TWO # A B C AB ABC
014129,001201: 41,2405 61001 AD VERBREG # -1 -0 +1 +2 +3 IN A
014130,001202: 41,2406 10000 CCS A # +0 +0 +0 +1 +2 IN A AFTER CCS
014131,001203: 41,2407 02412 TC DSPCOM3
014132,001204: 41,2410 00136 TC ENTEXIT
014133,001205: 41,2411 02412 TC +1
014134,001206: 41,2412 54122 DSPCOM3 TS DISTEM # +0,+1,+2 INTO DISTEM
014135,001207: 41,2413 50000 INDEX A
014136,001208: 41,2414 34333 CAF R1D1
014137,001209: 41,2415 54777 TS DSPCOUNT
014138,001210: 41,2416 50122 INDEX DISTEM
014139,001211: 41,2417 40130 CS BUF
014140,001212: 41,2420 03353 TC DSPOCTWD
014141,001213: 41,2421 56122 XCH DISTEM
014142,001214: 41,2422 02406 TC DSPCOM2 +2
014143,001215:
014144,001216: # COMPTEST ALARMS IF COMPONENT NUMBER OF VERB(LOAD OR OCT DISPLAY) IS
014145,001217: # GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
014146,001218: 41,2423 54123 COMPTEST TS SFTEMP1 # - VERB COMP
014147,001219: 41,2424 22002 LXCH Q
014148,001220: 41,2425 02512 COMPTST1 TC GETCOMP
014149,001221: 41,2426 04345 TC LEFT5
014150,001222: 41,2427 76214 MASK THREE # NOUN COMP
![]() |
Page 325 |
014152,001224: 41,2430 60123 AD SFTEMP1 # NOUN COMP - VERB COMP
014153,001225: 41,2431 10000 CCS A
014154,001226: 41,2432 00001 TC L # NOUN COMP G/ VERB COMP
014155,001227: 41,2433 05642 TC CCSHOLE
014156,001228: 41,2434 02350 TC GODSPALM # NOUN COMP L/ VERB COMP
014157,001229: 41,2435 00001 NDCMPTST TC L # NOUN COMP = VERB COMP
014158,001230:
014159,001231:
014160,001232: # DCOMPTST ALARMS IF DECIMAL ONLY BIT (BIT4 OF COMP CODE NUMBER) = 1.
014161,001233: # IF NOT, IT PERFORMS REGULAR COMPTEST.
014162,001234: 41,2436 54123 DCOMPTST TS SFTEMP1 # - VERB COMP
014163,001235: 41,2437 22002 LXCH Q
014164,001236: 41,2440 02442 TC DECTEST
014165,001237: 41,2441 02425 TC COMPTST1
014166,001238:
014167,001239: 41,2442 00006 DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
014168,001240: 41,2443 22156 QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT.
014169,001241: 41,2444 02512 TC GETCOMP
014170,001242: 41,2445 74675 MASK BIT14
014171,001243: 41,2446 10000 CCS A
014172,001244: 41,2447 02350 TC GODSPALM
014173,001245: 41,2450 00156 TC MPAC +2
014174,001246:
014175,001247:
014176,001248: 41,2451 22002 DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1
014177,001249: 41,2452 02512 TC GETCOMP # ( BIT4 OF COMP CODE NUMBER). RETURNS
014178,001250: 41,2453 74675 MASK BIT14 # IF NOT. USED BY LOAD VERBS.
014179,001251: 41,2454 10000 CCS A
014180,001252: 41,2455 04161 TC ALMCYCLE
014181,001253: 41,2456 00001 TC L
014182,001254:
014183,001255:
014184,001256: # NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
014185,001257: # IF NOT, IT RETURNS.
014186,001258: 41,2457 22002 NOUNTEST LXCH Q
014187,001259: 41,2460 02512 TC GETCOMP
014188,001260: 41,2461 10000 CCS A
014189,001261: 41,2462 00001 TC L
014190,001262: 41,2463 00001 TC L
014191,001263: 41,2464 02350 TC GODSPALM
014192,001264:
014193,001265:
014194,001266: 41,2465 22002 TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
014195,001267: 41,2466 30146 CA NNADTEM
014196,001268: 41,2467 64712 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014197,001269: 41,2470 00006 EXTEND
014198,001270: 41,2471 12503 BZF CHANDSP
014199,001271: 41,2472 50140 INDEX MIXBR
014200,001272: 41,2473 02473 TC +0
014201,001273: 41,2474 02476 TC +2 # NORMAL
![]() |
Page 326 |
014203,001275: 41,2475 00001 TC L # MIXED CASE ALREADY HANDLED IN MIXNOUN
014204,001276: 41,2476 03021 TC SFRUTNOR
014205,001277: 41,2477 02261 TC DPTEST
014206,001278: 41,2500 00001 TC L # NO DP
014207,001279: 41,2501 24145 INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
014208,001280: 41,2502 00001 TC L
014209,001281:
014210,001282:
014211,001283: 41,2503 00006 CHANDSP EXTEND
014212,001284: 41,2504 51017 INDEX NOUNCADR
014213,001285: 41,2505 00000 READ 0
014214,001286: 41,2506 40000 CS A
014215,001287: 41,2507 12370 TCF DSPCOM1
014216,001288:
014217,001289:
014218,001290: 41,2510 00147 COMPICK ADRES NNTYPTEM
014219,001291: 41,2511 00146 ADRES NNADTEM
014220,001292:
014221,001293: 41,2512 50140 GETCOMP INDEX MIXBR # NORMAL MIXED
014222,001294: 41,2513 32507 CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
014223,001295: 41,2514 50000 INDEX A
014224,001296: 41,2515 30000 CA 0 # C(NNTYPTEM) C(NNADTEM)
014225,001297: 41,2516 74364 MASK HI5 # GET HI5 OF NNTYPTAB(NORM)OF NNADTAB(MIX)
014226,001298: 41,2517 00002 TC Q
014227,001299:
014228,001300:
014229,001301: 41,2520 02512 DECDSP TC GETCOMP
014230,001302: 41,2521 04345 TC LEFT5
014231,001303: 41,2522 76214 MASK THREE
014232,001304: 41,2523 54117 TS DECOUNT # COMP NUMBER INTO DECOUNT
014233,001305: 41,2524 54122 DSPDCGET TS DECTEM # PICKS UP DATA
014234,001306: 41,2525 60145 AD NOUNADD # DECTEM 1COMP +0, 2COMP +1, 3COMP +2
014235,001307: 41,2526 50000 INDEX A
014236,001308: 41,2527 40000 CS 0
014237,001309: 41,2530 50122 INDEX DECTEM
014238,001310: 41,2531 57003 XCH XREG # CANT USE BUF SINCE DMP USES IT.
014239,001311: 41,2532 10122 CCS DECTEM
014240,001312: 41,2533 02524 TC DSPDCGET # MORE TO GET
014241,001313: 41,2534 34714 DSPDCPUT CAF ZERO # DISPLAYS DATA
014242,001314: 41,2535 54155 TS MPAC +1 # DECOUNT 1COMP +0, 2COMP +1, 3COMP +2
014243,001315: 41,2536 54156 TS MPAC +2
014244,001316: 41,2537 50117 INDEX DECOUNT
014245,001317: 41,2540 34333 CAF R1D1
014246,001318: 41,2541 54777 TS DSPCOUNT
014247,001319: 41,2542 50117 INDEX DECOUNT
014248,001320: 41,2543 41003 CS XREG
014249,001321: 41,2544 54154 TS MPAC
014250,001322: 41,2545 03042 TC SFCONUM # 2X( SF CON NUMB ) IN A
014251,001323: 41,2546 54123 TS SFTEMP1
014252,001324: 41,2547 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
![]() |
Page 327 |
014254,001326: 41,2550 32562 DCA GTSFOUTL # READING ROUTINE.
014255,001327: 41,2551 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
014256,001328: 41,2552 50140 INDEX MIXBR
014257,001329: 41,2553 02553 TC +0
014258,001330: 41,2554 02557 TC DSPSFNOR
014259,001331: 41,2555 03027 TC SFRUTMIX
014260,001332: 41,2556 02572 TC DECDSP3
014261,001333:
014262,001334: 41,2557 03021 DSPSFNOR TC SFRUTNOR
014263,001335: 41,2560 02572 TC DECDSP3
014264,001336:
014265,001337: 41,2561 0777 EBANK= DSPCOUNT
014266,001338: 41,2561 02120 64101 GTSFOUTL 2CADR GTSFOUT
014267,001339:
014268,001340:
014269,001341: 41,2563 04555 DSPDCEND TC BANKCALL # ALL SFOUT ROUTINES END HERE
014270,001342: 41,2564 61131 CADR DSPDECWD
014271,001343: 41,2565 10117 CCS DECOUNT
014272,001344: 41,2566 02570 TC +2
014273,001345: 41,2567 00136 TC ENTEXIT
014274,001346: 41,2570 54117 TS DECOUNT
014275,001347: 41,2571 02534 TC DSPDCPUT # MORE TO DISPLAY
014276,001348:
014277,001349:
014278,001350: 41,2572 50000 DECDSP3 INDEX A
014279,001351: 41,2573 32575 CAF SFOUTABR
014280,001352: 41,2574 04577 TC BANKJUMP
014281,001353:
014282,001354: 41,2575 61321 SFOUTABR CADR PREDSPAL # ALARM IF DEC DISP WITH OCTAL ONLY NOUN
014283,001355: 41,2576 62563 CADR DSPDCEND
014284,001356: 41,2577 60516 CADR DEGOUTSF
014285,001357: 41,2600 60603 CADR ARTOUTSF
014286,001358: 41,2601 60614 CADR DP1OUTSF
014287,001359: 41,2602 60621 CADR DP2OUTSF
014288,001360: 41,2603 60524 CADR OPDEGOUT
014289,001361: 41,2604 60623 CADR DP3OUTSF
014290,001362: 41,2605 65143 CADR HMSOUT
014291,001363: 41,2606 65216 CADR M/SOUT
014292,001364: 41,2607 60621 CADR DP2OUTSF
014293,001365: 41,2610 60610 CADR AROUT1SF
014294,001366: 41,2611 60636 CADR 2INTOUT
014295,001367: 41,2612 ENDRTOUT EQUALS
014296,001368:
014297,001369:
014298,001370: # THE FOLLOWING IS ATYPICAL SF ROUTINE . IT USES MPAC. LEAVES RESU
014299,001371: # LTS IN MPAC, MPAC+1. ENDS WITH TC DSPDCEND
014300,001372:
014301,001373:
014302,001374: 40,2516 SETLOC BLANKCON +1
![]() |
Page 328 |
014304,001376: 40,2516 COUNT 40/PIN
014305,001377:
014306,001378: # DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE , ADDING .18 FOR
014307,001379: # NUMBERS IN THE NEGATIVE (AGC) RANGE.
014308,001380:
014309,001381: 40,2516 34714 DEGOUTSF CAF ZERO
014310,001382: 40,2517 54156 TS MPAC +2 # SET INDEX FOR FULL SCALE
014311,001383: 40,2520 02555 TC FIXRANGE
014312,001384: 40,2521 02523 TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
014313,001385: 40,2522 02550 TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
014314,001386: 40,2523 02566 TC DEGCOM
014315,001387:
014316,001388: # OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
014317,001389:
014318,001390: 40,2524 10154 OPDEGOUT CCS MPAC # RANGE IS 90 DEG
014319,001391: 40,2525 56154 XCH MPAC # IF POS OR POS 0 THEN ADD BIAS AND
014320,001392: 40,2526 02531 TC +3 # CORRECT FOR POSSIBLE OVERFLOW
014321,001393: 40,2527 02540 TC NEGOPT # IF NEG NON ZERO
014322,001394: 40,2530 67716 AD NEG1 # IF NEG ZERO SUBTRACT 1
014323,001395: 40,2531 62602 AD 20BIAS
014324,001396: 40,2532 54154 BIASCOM TS MPAC # TEST FOR OVERFLOW
014325,001397: 40,2533 02536 TC +3 # NO OVFLOW
014326,001398: 40,2534 34674 CAF BIT15 # IF OVFLOW
014327,001399: 40,2535 26154 ADS MPAC
014328,001400: 40,2536 34711 CAF TWO # SET MULTIPLIER TO .45
014329,001401: 40,2537 02517 TC DEGOUTSF +1
014330,001402:
014331,001403: 40,2540 56154 NEGOPT XCH MPAC # NEGATIVE CASE
014332,001404: 40,2541 62602 AD 20BIAS
014333,001405: 40,2542 10000 CCS A
014334,001406: 40,2543 02532 TC BIASCOM # IF POS THEN SUBTRACT 1 BECAUSE OF 2SCOM
014335,001407: 40,2544 05642 TC CCSHOLE
014336,001408: 40,2545 64712 AD ONE # IF NEG RESTORE SUM
014337,001409: 40,2546 40000 COM # IF NEG 0 LEAVE NEG 0
014338,001410: 40,2547 02532 TC BIASCOM
014339,001411:
014340,001412: 40,2550 00006 SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
014341,001413: 40,2551 50156 INDEX MPAC +2 # DP AUGMENTER CONSTANT
014342,001414: 40,2552 32577 DCA DEGTAB
014343,001415: 40,2553 52124 DXCH SFTEMP1
014344,001416: 40,2554 00002 TC Q
014345,001417:
014346,001418: 40,2555 10154 FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
014347,001419: 40,2556 00002 TC Q # IF MPAC IS - RETURN TO L+2 AFTER
014348,001420: 40,2557 00002 TC Q # MASKING OUT THE SIGN BIT
014349,001421: 40,2560 12561 TCF +1
014350,001422: 40,2561 44674 CS BIT15
014351,001423: 40,2562 70154 MASK MPAC
014352,001424: 40,2563 54154 TS MPAC
014353,001425: 40,2564 50002 INDEX Q
![]() |
Page 329 |
014355,001427: 40,2565 00001 TC 1
014356,001428:
014357,001429: 40,2566 00006 DEGCOM EXTEND # LOADS MULTIPLIER , DOES SHORTMP, AND
014358,001430: 40,2567 50156 INDEX MPAC +2 # ADDS AUGMENTER.
014359,001431: 40,2570 32577 DCA DEGTAB
014360,001432: 40,2571 52155 DXCH MPAC # ADJUSTED ANGLE IN A
014361,001433: 40,2572 07256 TC SHORTMP
014362,001434: 40,2573 52124 DXCH SFTEMP1
014363,001435: 40,2574 20155 DAS MPAC
014364,001436: 40,2575 02606 TC SCOUTEND
014365,001437:
014366,001438:
014367,001439: 40,2576 05605 DEGTAB OCT 05605 # HI PART OF .18
014368,001440: 40,2577 03656 OCT 03656 # LOW PART OF .18
014369,001441: 40,2600 16314 OCT 16314 # HI PART OF .45
014370,001442: 40,2601 31463 OCT 31463 # LO PART OF .45
014371,001443:
014372,001444: 40,2602 16040 20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
014373,001445:
014374,001446: 40,2603 52124 ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
014375,001447: 40,2604 52155 DXCH MPAC
014376,001448: 40,2605 04431 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014377,001449: 40,2606 04574 SCOUTEND TC POSTJUMP
014378,001450: 40,2607 62563 CADR DSPDCEND
014379,001451:
014380,001452: 40,2610 52124 AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF
014381,001453: 40,2611 52155 DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY
014382,001454: 40,2612 04431 TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2.
014383,001455: 40,2613 02615 TC L14/OUT
014384,001456:
014385,001457: 40,2614 02627 DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
014386,001458: 40,2615 56156 L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
014387,001459: 40,2616 56155 XCH MPAC +1 # BY B14.
014388,001460: 40,2617 54154 TS MPAC
014389,001461: 40,2620 02606 TC SCOUTEND
014390,001462:
014391,001463: 40,2621 02627 DP2OUTSF TC DPOUT # SCALES MPAC , MPAC +1 BY DP SCALE FACTOR
014392,001464: 40,2622 02606 TC SCOUTEND
014393,001465:
014394,001466: 40,2623 02627 DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
014395,001467: 40,2624 36211 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
014396,001468: 40,2625 03056 TC TPLEFTN # SHIFT LEFT 7.
014397,001469: 40,2626 02606 TC SCOUTEND
014398,001470:
014399,001471: 40,2627 0162 MPAC+6 = MPAC +6 # USE MPAC +6 INSTEAD OF OVFIND
014400,001472:
![]() |
Page 330 |
014402,001474: 40,2627 56002 DPOUT XCH Q
014403,001475: 40,2630 54162 TS MPAC+6
014404,001476: 40,2631 02653 TC READLO # GET FRESH DATA FOR BOTH HI AND LO.
014405,001477: 40,2632 07226 TC TPAGREE # MAKE DP DATA AGREE
014406,001478: 40,2633 07052 TC DMP
014407,001479: 40,2634 00123 ADRES SFTEMP1
014408,001480: 40,2635 00162 TC MPAC+6
014409,001481: # THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
014410,001482: # AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
014411,001483: # BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
014412,001484: # RXD1-RXD2.
014413,001485:
014414,001486: 40,2636 02437 2INTOUT TC 5BLANK # TO BLANK RXD3
014415,001487: 40,2637 02314 TC +ON # TURN ON + SIGN
014416,001488: 40,2640 30154 CA MPAC
014417,001489: 40,2641 03211 TC DSPDECVN # DISPLAY 1ST INTEGER (LIKE VERB AND NOUN)
014418,001490: 40,2642 46214 CS THREE
014419,001491: 40,2643 50117 INDEX DECOUNT
014420,001492: 40,2644 64333 AD R1D1 # RXD4
014421,001493: 40,2645 54777 TS DSPCOUNT
014422,001494: 40,2646 02653 TC READLO # GET 2ND INTEGER
014423,001495: 40,2647 30155 CA MPAC +1
014424,001496: 40,2650 03211 TC DSPDECVN # DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
014425,001497: 40,2651 04574 TC POSTJUMP
014426,001498: 40,2652 62565 CADR DSPDCEND +2
014427,001499:
014428,001500:
014429,001501: # READLO PICKS UP FRESH DATA FOR BOTH HI AND LO AND LEAVES IT IN
014430,001502: # MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
014431,001503: # DOES NOT FORCE TPAGREE.
014432,001504:
014433,001505: 40,2653 56002 READLO XCH Q
014434,001506: 40,2654 54144 TS TEM4
014435,001507: 40,2655 50140 INDEX MIXBR
014436,001508: 40,2656 02656 TC +0
014437,001509: 40,2657 02673 TC RDLONOR
014438,001510: 40,2660 50117 INDEX DECOUNT
014439,001511: 40,2661 30150 CA IDAD1TEM # GET IDADDTAB ENTRY FOR COMP K OF NOUN.
014440,001512: 40,2662 74372 MASK LOW11 # E SUBK
014441,001513: 40,2663 04327 TC SETEBANK # SET EB, LEAVE EADRES IN A.
014442,001514: 40,2664 00006 READLO1 EXTEND # MIXED NORMAL
014443,001515: 40,2665 50000 INDEX A # C(ESUBK) C(E)
014444,001516: 40,2666 30001 DCA 0 # C((E SUBK)+1) C(E+1)
014445,001517: 40,2667 52155 DXCH MPAC
014446,001518: 40,2670 34714 CAF ZERO
014447,001519: 40,2671 54156 TS MPAC +2
014448,001520: 40,2672 00144 TC TEM4
014449,001521:
014450,001522: 40,2673 30145 RDLONOR CA NOUNADD # E
014451,001523: 40,2674 02664 ENDRDLO TC READLO1
![]() |
Page 331 |
014453,001525: 42,3143 BANK 42
014454,001526: 42,2000 SETLOC PINBALL3
014455,001527: 42,2000 BANK
014456,001528:
014457,001529: 42,3143 COUNT 42/PIN
014458,001530:
014459,001531: 42,3143 04555 HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
014460,001532: 42,3144 60653 CADR READLO # MPAC+1.
014461,001533: 42,3145 07226 TC TPAGREE # MAKE DP DATA AGREE
014462,001534: 42,3146 03332 TC SEPSECNR # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.LEAVE
014463,001535: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014464,001536: 42,3147 07052 TC DMP # USE ONLY FRACT SEC/60 MOD 60
014465,001537: 42,3150 03204 ADRES SECON2 # MULT BY .06
014466,001538: 42,3151 34335 CAF R3D1 # GIVES CENTI-SEC/10EXP5 MOD 60
014467,001539: 42,3152 54777 TS DSPCOUNT
014468,001540: 42,3153 04555 TC BANKCALL # DISPLAY SEC MOD 60
014469,001541: 42,3154 61131 CADR DSPDECWD
014470,001542: 42,3155 03350 TC SEPMIN # REMOVE REST OF SECONDS
014471,001543: 42,3156 33206 CAF MINCON2 # LEAVE FRACT MIN/60 IN MPAC+1. LEAVE
014472,001544: 42,3157 56154 XCH MPAC # WHOLE HOURS IN MPAC.
014473,001545: 42,3160 55007 TS HITEMOUT # SAVE WHOLE HOURS.
014474,001546: 42,3161 33207 CAF MINCON2 +1
014475,001547: 42,3162 56155 XCH MPAC +1 # USE ONLY FRACT MIN/60 MOD 60
014476,001548: 42,3163 04431 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014477,001549: # MULT BY .0006
014478,001550: 42,3164 34334 CAF R2D1 # GIVES MIN/10EXP5 MOD 60
014479,001551: 42,3165 54777 TS DSPCOUNT
014480,001552: 42,3166 04555 TC BANKCALL # DISPLAY MIN MOD 60
014481,001553: 42,3167 61131 CADR DSPDECWD
014482,001554: 42,3170 00006 EXTEND # MINUTES, SECONDS HAVE BEEN REMOVED
014483,001555: 42,3171 33213 DCA HRCON1
014484,001556: 42,3172 52155 DXCH MPAC
014485,001557: 42,3173 31007 CA HITEMOUT # USE WHOLE HOURS
014486,001558: 42,3174 04431 TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
014487,001559: # MULT BY .16384
014488,001560: 42,3175 34333 CAF R1D1 # GIVES HOURS/10EXP5
014489,001561: 42,3176 54777 TS DSPCOUNT
014490,001562: 42,3177 04555 TC BANKCALL # USE REGULAR DSPDECWD, WITH ROUND OFF.
014491,001563: 42,3200 61131 CADR DSPDECWD
014492,001564: 42,3201 00136 TC ENTEXIT
014493,001565:
014494,001566: 42,3202 25660 31742 SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000
014495,001567: 42,3204 01727 SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY
014496,001568: 42,3205 01217 OCT 01217
014497,001569: 42,3206 00011 MINCON2 OCT 00011 # .0006 FOR MINUTES DISLPAY
014498,001570: 42,3207 32445 OCT 32445
014499,001571: 42,3210 02104 MINCON1 OCT 02104 # .066..66 UPPED BY 2EXP-28
014500,001572: 42,3211 10422 OCT 10422
014501,001573: 42,3212 05174 13261 HRCON1 2DEC .16384
![]() |
Page 332 |
014503,001575: 42,3214 00000 OCT 00000
014504,001576: 42,3215 00062 RNDCON OCT 00062 # .5 SEC
014505,001577:
014506,001578:
014507,001579: 42,3216 04555 M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
014508,001580: 42,3217 60653 CADR READLO # MPAC+1.
014509,001581: 42,3220 07226 TC TPAGREE # MAKE DP DATA AGREE
014510,001582: 42,3221 10154 CCS MPAC # IF MAG OF (MPAC, MPAC+1) G/ 59 M 59 S,
014511,001583: 42,3222 03224 TC +2 # DISPLAY 59B59, WITH PROPER SIGN.
014512,001584: 42,3223 03255 TC M/SNORM # MPAC = +0. L/ 59M58.5S
014513,001585: 42,3224 63312 AD M/SCON1 # - HI PART OF (59M58.5S) +1 FOR CCS
014514,001586: 42,3225 10000 CCS A # MAG OF MPAC - HI PART OF (59M58.5S)
014515,001587: 42,3226 03241 TC M/SLIMIT # G/ 59M58.5S
014516,001588: 42,3227 03255 TC M/SNORM # ORIGINAL MPAC = -0. L/ 59M58.5S
014517,001589: 42,3230 03255 TC M/SNORM # L/ 59M58.5S
014518,001590: 42,3231 10155 CCS MPAC +1 # MAG OF MPAC = HI PART OF 59M58.5S
014519,001591: 42,3232 03234 TC +2
014520,001592: 42,3233 03255 TC M/SNORM # MPAC+1 = +0. L/ 59M58.5S
014521,001593: 42,3234 63313 AD M/SCON2 # - LO PART OF (59M58.5S) +1 FOR CCS
014522,001594: 42,3235 10000 CCS A # MAG OF MPAC+1 - LO PART OF (59M58.5S)
014523,001595: 42,3236 03241 TC M/SLIMIT # G/ 59M58.5S
014524,001596: 42,3237 03255 TC M/SNORM # ORIGINAL MPAC+1 = -0. L/ 59M58.5S
014525,001597: 42,3240 03255 TC M/SNORM # L/ 59M58.5S
014526,001598: 42,3241 10154 M/SLIMIT CCS MPAC # = 59M58.5S LIMIT
014527,001599: 42,3242 33315 CAF M/SCON3 # MPAC CANNOT BE +/- 0 AT THIS POINT.
014528,001600: 42,3243 03252 TC +LIMIT # FORCE MPAC, MPAC+1 TO +/- 59M59.5S
014529,001601: 42,3244 43315 CS M/SCON3
014530,001602: 42,3245 54154 TS MPAC # WILL DISPLAY 59M59S IN DSPDECNR
014531,001603: 42,3246 43316 CS M/SCON3 +1
014532,001604: 42,3247 54155 LIMITCOM TS MPAC +1
014533,001605: 42,3250 33314 CAF NORMADR # SET RETURN TO M/SNORM+1.
014534,001606: 42,3251 03333 TC SEPSECNR +1
014535,001607: 42,3252 54154 +LIMIT TS MPAC
014536,001608: 42,3253 33316 CAF M/SCON3 +1
014537,001609: 42,3254 03247 TC LIMITCOM
014538,001610: 42,3255 03317 M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
014539,001611: # WHOLE MIN IN BIT13 OF LOTEMOUT AND ABOVE
014540,001612: 42,3256 33310 CAF HISECON # USE ONLY FRACT SEC/60 MOD 60
014541,001613: 42,3257 07256 TC SHORTMP # MULT BY .6 + 2EXP-14
014542,001614: 42,3260 46214 CS THREE # GIVES SEC/100 MOD 60
014543,001615: 42,3261 26777 ADS DSPCOUNT # DSPCOUNT ALREADY SET TO RXD1
014544,001616: 42,3262 04555 TC BANKCALL # DISPLAY SEC MOD 60 IN D4D5.
014545,001617: 42,3263 61171 CADR DSPDC2NR
014546,001618: 42,3264 34714 CAF ZERO
014547,001619: 42,3265 54124 TS CODE
014548,001620: 42,3266 44711 CS TWO
014549,001621: 42,3267 50117 INDEX DECOUNT
014550,001622: 42,3270 64333 AD R1D1 # RXD3
014551,001623: 42,3271 54143 TS COUNT
014552,001624: 42,3272 04555 TC BANKCALL # BLANK MIDDLE CHAR
![]() |
Page 333 |
014554,001626: 42,3273 61225 CADR DSPIN
014555,001627: 42,3274 03350 TC SEPMIN # REMOVE REST OF SECONDS
014556,001628: 42,3275 56155 XCH MPAC +1 # LEAVE FRACT MIN/60 IN MPAC+1
014557,001629: 42,3276 00006 EXTEND # USE ONLY FRACT MIN/60 MOD 60
014558,001630: 42,3277 73311 MP HIMINCON # MULT BY .6 + 2EXP-7
014559,001631: 42,3300 52155 DXCH MPAC # GIVES MIN/100 MOD 60
014560,001632: 42,3301 50117 INDEX DECOUNT
014561,001633: 42,3302 34333 CAF R1D1 # RXD1
014562,001634: 42,3303 54777 TS DSPCOUNT
014563,001635: 42,3304 04555 TC BANKCALL # DISPLAY MIN MOD 60 IN D1D2.
014564,001636: 42,3305 61171 CADR DSPDC2NR
014565,001637: 42,3306 04574 TC POSTJUMP
014566,001638: 42,3307 62565 CADR DSPDCEND +2
014567,001639:
014568,001640: 42,3310 23147 HISECON OCT 23147 # .6 + 2EXP-14
014569,001641: 42,3311 23346 HIMINCON OCT 23346 # .6 + 2EXP-7
014570,001642:
014571,001643: 42,3312 77753 M/SCON1 OCT 77753 # - HI PART OF (59M58.5S) +1
014572,001644: 42,3313 41126 M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) +1
014573,001645: 42,3314 03256 NORMADR ADRES M/SNORM +1
014574,001646: 42,3315 00025 M/SCON3 OCT 00025 # 59M 59.5S
014575,001647: 42,3316 37016 OCT 37016
014576,001648:
014577,001649: 42,3317 10155 SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC
014578,001650: 42,3320 13327 TCF POSEC # IF -, ROUND BY SUBTRACTING .5 SEC
014579,001651: 42,3321 13327 TCF POSEC # FINDS TIME IN MPAC, MPAC+1
014580,001652: 42,3322 13323 TCF +1 # ROUNDS OFF BY +/- .5 SEC
014581,001653: 42,3323 00006 EXTEND # LEAVES WHOLE MIN IN BIT13 OF
014582,001654: 42,3324 43215 DCS RNDCON -1 # LOTEMOUT AND ABOVE.
014583,001655: 42,3325 20155 SEPSEC1 DAS MPAC # LEAVES FRACT SEC/60 IN MPAC, MPAC+1.
014584,001656: 42,3326 13332 TCF SEPSECNR
014585,001657: 42,3327 00006 POSEC EXTEND
014586,001658: 42,3330 33215 DCA RNDCON -1
014587,001659: 42,3331 13325 TCF SEPSEC1
014588,001660: 42,3332 56002 SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC
014589,001661: 42,3333 54144 TS SEPSCRET
014590,001662: 42,3334 07052 TC DMP # MULT BY 2EXP12/6000
014591,001663: 42,3335 03202 ADRES SECON1 # GIVES FRACT SEC/60 IN BIT12 OF MPAC+1
014592,001664: 42,3336 00006 EXTEND # AND BELOW.
014593,001665: 42,3337 30155 DCA MPAC # SAVE MINUTES AND HOURS
014594,001666: 42,3340 53010 DXCH HITEMOUT
014595,001667: 42,3341 04420 TC TPSL1
014596,001668: 42,3342 04420 TC TPSL1 # GIVES FRACT SEC/60 IN MPAC+1, MPAC+2.
014597,001669: 42,3343 34714 CAF ZERO
014598,001670: 42,3344 56156 XCH MPAC +2 # LEAVE FRACT SEC/60 IN MPAC, MPAC+1.
014599,001671: 42,3345 56155 XCH MPAC +1
014600,001672: 42,3346 56154 XCH MPAC
014601,001673: 42,3347 00144 TC SEPSCRET
014602,001674:
![]() |
Page 334 |
014604,001676: 42,3350 56002 SEPMIN XCH Q # FINDS WHOLE MINUTES IN BIT13
014605,001677: 42,3351 54144 TS SEPMNRET # OF LOTEMOUT AND ABOVE.
014606,001678: 42,3352 31010 CA LOTEMOUT # REMOVES REST OF SECONDS.
014607,001679: 42,3353 00006 EXTEND # LEAVES FRACT MIN/60 IN MPAC+1.
014608,001680: 42,3354 74710 MP BIT3 # LEAVES WHOLE HOURS IN MPAC.
014609,001681: 42,3355 00006 EXTEND # SR 12, THROW AWAY LP.
014610,001682: 42,3356 74676 MP BIT13 # SR 2, TAKE FROM LP. = SL 12.
014611,001683: 42,3357 22155 LXCH MPAC +1 # THIS FORCES BITS 12-1 TO 0 IF +,
014612,001684: # FORCES BITS 12-1 TO 1 IF -.
014613,001685: 42,3360 31007 CA HITEMOUT
014614,001686: 42,3361 54154 TS MPAC
014615,001687: 42,3362 07052 TC DMP # MULT BY 1/15
014616,001688: 42,3363 03210 ADRES MINCON1 # GIVES FRACT MIN/60 IN MPAC+1.
014617,001689: 42,3364 00144 ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC.
014618,001690:
014619,001691:
014620,001692: # THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC
014621,001693: # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
014622,001694: # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
014623,001695: # OF THE REGISTER NOUNADD IS POINTING TO . IF USED WITH NOUNS WHICH ARE
014624,001696: # INHERENTLY NOT DP SUCH AS THE CDU COUNTERS THE DISPLAY WILL BE GARBAGE.
014625,001697: # DISPLAY IS IN R1 AND R2 ONLY WITH THE SIGN IN R1.
014626,001698:
014627,001699:
014628,001700: 40,2675 SETLOC ENDRDLO +1
014629,001701:
014630,001702: 40,2675 COUNT 40/PIN
014631,001703:
014632,001704: 40,2675 50140 DSPDPDEC INDEX MIXBR
014633,001705: 40,2676 02676 TC +0
014634,001706: 40,2677 02701 TC +2 # NORMAL NOUN
014635,001707: 40,2700 03323 TC DSPALARM
014636,001708: 40,2701 00006 EXTEND
014637,001709: 40,2702 50145 INDEX NOUNADD
014638,001710: 40,2703 30001 DCA 0
014639,001711: 40,2704 52155 DXCH MPAC
014640,001712: 40,2705 34333 CAF R1D1
014641,001713: 40,2706 54777 TS DSPCOUNT
014642,001714: 40,2707 34714 CAF ZERO
014643,001715: 40,2710 54156 TS MPAC +2
014644,001716: 40,2711 07226 TC TPAGREE
014645,001717: 40,2712 03176 TC DSP2DEC
014646,001718: 40,2713 00136 ENDDPDEC TC ENTEXIT
014647,001719:
![]() |
Page 335 |
014649,001721: # LOAD VERBS IF ALARM CONDITION IS DETECTED DURING EXECUTE,
014650,001722: # CHECK FAIL LIGHT IS TURNED ON AND ENDOFJOB. IF ALARM CONDITION IS
014651,001723: # DETECTED DURING ENTER OF DATA, CHECK FAIL IS TURNED ON AND IT RECYCLES
014652,001724: # TO EXECUTE OF ORIGINAL LOAD VERB. RECYCLE CAUSED BY 1) DECIMAL MACHINE
014653,001725: # CADR 2) MIXTURE OF OCTAL/DECIMAL DATA 3) OCTAL DATA INTO DECIMAL
014654,001726: # ONLY NOUN 4) DEC DATA INTO OCT ONLY NOUN 5) DATA TOO LARGE FOR SCALE
014655,001727: # 6) FEWER THAN 3 DATA WORDS LOADED FOR HRS, MIN, SEC NOUN.8(2)-(6) ALARM
014656,001728: # AND RECYCLE OCCUR AT FINAL ENTER OF SET. (1) ALARM AND RECYCLE OCCUR AT
014657,001729: # ENTER OF CADR.
014658,001730:
014659,001731:
014660,001732: 41,2612 SETLOC ENDRTOUT
014661,001733:
014662,001734: 41,2612 COUNT 41/PIN
014663,001735:
014664,001736: 41,2612 44711 ABCLOAD CS TWO
014665,001737: 41,2613 02423 TC COMPTEST
014666,001738: 41,2614 02457 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
014667,001739: 41,2615 33001 CAF VBSP1LD
014668,001740: 41,2616 02336 TC UPDATVB -1
014669,001741: 41,2617 02302 TC REQDATX
014670,001742: 41,2620 33002 CAF VBSP2LD
014671,001743: 41,2621 02336 TC UPDATVB -1
014672,001744: 41,2622 02304 TC REQDATY
014673,001745: 41,2623 33003 CAF VBSP3LD
014674,001746: 41,2624 02336 TC UPDATVB -1
014675,001747: 41,2625 02306 TC REQDATZ
014676,001748:
014677,001749: 41,2626 46211 PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
014678,001750: 41,2627 03004 TC ALLDC/OC # ALL DEC OR ALL OCT.
014679,001751: 41,2630 00006 EXTEND
014680,001752: 41,2631 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014681,001753: 41,2632 52006 DXCH Z # ROUTINE.
014682,001754: 41,2633 34714 CAF ZERO # X COMP
014683,001755: 41,2634 03070 TC PUTCOM
014684,001756: 41,2635 50145 INDEX NOUNADD
014685,001757: 41,2636 54000 TS 0
014686,001758: 41,2637 34712 CAF ONE # Y COMP
014687,001759: 41,2640 03070 TC PUTCOM
014688,001760: 41,2641 50145 INDEX NOUNADD
014689,001761: 41,2642 54001 TS 1
014690,001762: 41,2643 34711 CAF TWO # Z COMP
014691,001763: 41,2644 03070 TC PUTCOM
014692,001764: 41,2645 50145 INDEX NOUNADD
014693,001765: 41,2646 54002 TS 2
014694,001766: 41,2647 44716 CS SEVEN # IF NOUN 7 HAS JUST BEEN LOADED, SET
014695,001767: 41,2650 61002 AD NOUNREG # FLAG BITS AS SPECIFIED.
014696,001768: 41,2651 00006 EXTEND
014697,001769: 41,2652 12654 BZF +2
![]() |
Page 336 |
014699,001771: 41,2653 02771 TC LOADLV
014700,001772: 41,2654 31003 CA XREG # ECADR OF FLAG WORD.
014701,001773: 41,2655 04320 TC SETNCADR +1 # SET EBANK, NOUNADD.
014702,001774: 41,2656 31005 CA ZREG # ZERO TO RESET BITS, NON-ZERO TO SET BITS
014703,001775: 41,2657 00004 INHINT
014704,001776: 41,2660 00006 EXTEND
014705,001777: 41,2661 12670 BZF BITSOFF
014706,001778: 41,2662 50145 INDEX NOUNADD
014707,001779: 41,2663 40000 CS 0
014708,001780: 41,2664 71004 MASK YREG # BITS TO BE PROCESSED.
014709,001781: 41,2665 50145 INDEX NOUNADD
014710,001782: 41,2666 26000 ADS 0 # SET BITS.
014711,001783: 41,2667 02675 TC BITSOFF1
014712,001784: 41,2670 41004 BITSOFF CS YREG # BITS TO BE PROCESSED.
014713,001785: 41,2671 50145 INDEX NOUNADD
014714,001786: 41,2672 70000 MASK 0
014715,001787: 41,2673 50145 INDEX NOUNADD
014716,001788: 41,2674 54000 TS 0 # RESET BITS.
014717,001789: 41,2675 00003 BITSOFF1 RELINT
014718,001790: 41,2676 02771 TC LOADLV
014719,001791:
014720,001792: 41,2677 44712 ABLOAD CS ONE
014721,001793: 41,2700 02423 TC COMPTEST
014722,001794: 41,2701 02457 TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
014723,001795: 41,2702 33001 CAF VBSP1LD
014724,001796: 41,2703 02336 TC UPDATVB -1
014725,001797: 41,2704 02302 TC REQDATX
014726,001798: 41,2705 33002 CAF VBSP2LD
014727,001799: 41,2706 02336 TC UPDATVB -1
014728,001800: 41,2707 02304 TC REQDATY
014729,001801: 41,2710 44715 PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
014730,001802: 41,2711 03004 TC ALLDC/OC # ALL DEC OR ALL OCT.
014731,001803: 41,2712 00006 EXTEND
014732,001804: 41,2713 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014733,001805: 41,2714 52006 DXCH Z # ROUTINE.
014734,001806: 41,2715 34714 CAF ZERO # X COMP
014735,001807: 41,2716 03070 TC PUTCOM
014736,001808: 41,2717 50145 INDEX NOUNADD
014737,001809: 41,2720 54000 TS 0
014738,001810: 41,2721 34712 CAF ONE # Y COMP
014739,001811: 41,2722 03070 TC PUTCOM
014740,001812: 41,2723 50145 INDEX NOUNADD
014741,001813: 41,2724 54001 TS 1
014742,001814: 41,2725 02771 TC LOADLV
014743,001815:
014744,001816: 41,2726 02302 ALOAD TC REQDATX
014745,001817: 41,2727 00006 EXTEND
014746,001818: 41,2730 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014747,001819: 41,2731 52006 DXCH Z # ROUTINE.
014748,001820: 41,2732 34714 CAF ZERO # X COMP
![]() |
Page 337 |
014750,001822: 41,2733 03070 TC PUTCOM
014751,001823: 41,2734 50145 INDEX NOUNADD
014752,001824: 41,2735 54000 TS 0
014753,001825: 41,2736 02771 TC LOADLV
014754,001826:
014755,001827: 41,2737 44712 BLOAD CS ONE
014756,001828: 41,2740 02423 TC COMPTEST
014757,001829: 41,2741 34674 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
014758,001830: 41,2742 55015 TS CLPASS
014759,001831: 41,2743 02304 TC REQDATY
014760,001832: 41,2744 00006 EXTEND
014761,001833: 41,2745 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014762,001834: 41,2746 52006 DXCH Z # ROUTINE.
014763,001835: 41,2747 34712 CAF ONE
014764,001836: 41,2750 03070 TC PUTCOM
014765,001837: 41,2751 50145 INDEX NOUNADD
014766,001838: 41,2752 54001 TS 1
014767,001839: 41,2753 02771 TC LOADLV
014768,001840:
014769,001841: 41,2754 44711 CLOAD CS TWO
014770,001842: 41,2755 02423 TC COMPTEST
014771,001843: 41,2756 34674 CAF BIT15 # SET CLPASS FOR PASS0 ONLY
014772,001844: 41,2757 55015 TS CLPASS
014773,001845: 41,2760 02306 TC REQDATZ
014774,001846: 41,2761 00006 EXTEND
014775,001847: 41,2762 32114 DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
014776,001848: 41,2763 52006 DXCH Z # ROUTINE.
014777,001849: 41,2764 34711 CAF TWO
014778,001850: 41,2765 03070 TC PUTCOM
014779,001851: 41,2766 50145 INDEX NOUNADD
014780,001852: 41,2767 54002 TS 2
014781,001853: 41,2770 02771 TC LOADLV
014782,001854:
014783,001855: 41,2771 34714 LOADLV CAF ZERO
014784,001856: 41,2772 55000 TS DECBRNCH
014785,001857: 41,2773 44714 CS ZERO
014786,001858: 41,2774 55014 TS LOADSTAT
014787,001859: 41,2775 44374 CS VD1 # TO BLOCK NUMERICAL CHARACTERS AND
014788,001860: 41,2776 54777 TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
014789,001861: 41,2777 04574 TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
014790,001862: 41,3000 61450 CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
014791,001863:
014792,001864: 41,3001 00025 VBSP1LD DEC 21 B-14 # VB21 = ALOAD
014793,001865: 41,3002 00026 VBSP2LD DEC 22 B-14 # VB22 = BLOAD
014794,001866: 41,3003 00027 VBSP3LD DEC 23 B-14 # VB23 = CLOAD
014795,001867:
014796,001868:
014797,001869: 41,3004 54117 ALLDC/OC TS DECOUNT # TESTS THAT DATA WORDS LOADED ARE EITHER
014798,001870: 41,3005 41000 CS DECBRNCH # ALL DEC OR ALL OCT. ALARMS IF NOT.
014799,001871: 41,3006 54021 TS SR
![]() |
Page 338 |
014801,001873: 41,3007 40021 CS SR
014802,001874: 41,3010 40021 CS SR # SHIFTED RIGHT 2
014803,001875: 41,3011 10000 CCS A # DEC COMP BITS IN LOW 3
014804,001876: 41,3012 13014 TCF +2 # SOME ONES IN LOW 3
014805,001877: 41,3013 00002 TC Q # ALL ZEROS. ALL OCTAL. OK
014806,001878: 41,3014 60117 AD DECOUNT # DEC COMP = 7 FOR 3COMP, =6 FOR 2COMP
014807,001879: 41,3015 00006 EXTEND # (BUT IT HAS BEEN DECREMENTED BY CCS)
014808,001880: 41,3016 13020 BZF +2 # MUST MATCH 6 FOR 3COMP, 5 FOR 2COMP.
014809,001881: 41,3017 04161 TC ALMCYCLE # ALARM AND RECYCLE.
014810,001882: 41,3020 00002 GOQ TC Q # ALL REQUIRED ARE DEC. OK
014811,001883:
014812,001884:
014813,001885: 41,3021 56002 SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
014814,001886: 41,3022 54114 TS EXITEM # CANT USE L FOR RETURN. TSTFORDP USES L.
014815,001887: 41,3023 34363 CAF MID5
014816,001888: 41,3024 70147 MASK NNTYPTEM
014817,001889: 41,3025 04336 TC RIGHT5
014818,001890: 41,3026 00114 TC EXITEM # SF ROUTINE NUMBER IN A
014819,001891:
014820,001892: 41,3027 56002 SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
014821,001893: 41,3030 54114 TS EXITEM
014822,001894: 41,3031 50117 INDEX DECOUNT
014823,001895: 41,3032 33061 CAF DISPLACE # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014824,001896: 41,3033 54001 TS L
014825,001897: 41,3034 50117 INDEX DECOUNT
014826,001898: 41,3035 34362 CAF LOW5 # LOW5, MID5, OR HI5 IN A
014827,001899: 41,3036 70153 MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
014828,001900: 41,3037 50001 INDEX L
014829,001901: 41,3040 00000 TC 0
014830,001902: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014831,001903: 41,3041 00114 SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
014832,001904:
014833,001905: 41,3042 56002 SFCONUM XCH Q # GETS 2X( SF CONSTANT NUMBER)
014834,001906: 41,3043 54114 TS EXITEM
014835,001907: 41,3044 50140 INDEX MIXBR
014836,001908: 41,3045 03045 TC +0
014837,001909: 41,3046 03064 TC CONUMNOR # NORMAL NOUN
014838,001910: 41,3047 50117 INDEX DECOUNT # MIXED NOUN
014839,001911: 41,3050 33061 CAF DISPLACE
014840,001912: 41,3051 54001 TS L # PUT TC GOQ, TC RIGHT5, OR TC LEFT5 IN L
014841,001913: 41,3052 50117 INDEX DECOUNT
014842,001914: 41,3053 34362 CAF LOW5
014843,001915: 41,3054 70147 MASK NNTYPTEM
014844,001916: 41,3055 50001 INDEX L
014845,001917: 41,3056 00000 TC 0
014846,001918: # DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
014847,001919: 41,3057 60000 SFRET DOUBLE # 2X(SF CONSTANT NUMBER ) IN A
014848,001920: 41,3060 00114 TC EXITEM
014849,001921:
014850,001922: 41,3061 03020 DISPLACE TC GOQ
![]() |
Page 339 |
014852,001924: 41,3062 04336 TC RIGHT5
014853,001925: 41,3063 04345 TC LEFT5
014854,001926:
014855,001927: 41,3064 34362 CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
014856,001928: 41,3065 70147 MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
014857,001929: 41,3066 60000 DOUBLE
014858,001930: 41,3067 00114 TC EXITEM # 2X( SF CONSTANT NUMBER) IN A
014859,001931:
014860,001932: 41,3070 54117 PUTCOM TS DECOUNT
014861,001933: 41,3071 56002 XCH Q
014862,001934: 41,3072 54115 TS DECRET
014863,001935: 41,3073 34714 CAF ZERO
014864,001936: 41,3074 54162 TS MPAC+6
014865,001937: 41,3075 50117 INDEX DECOUNT
014866,001938: 41,3076 57006 XCH XREGLP
014867,001939: 41,3077 54155 TS MPAC +1
014868,001940: 41,3100 50117 INDEX DECOUNT
014869,001941: 41,3101 57003 XCH XREG
014870,001942: 41,3102 54154 TS MPAC
014871,001943: 41,3103 50140 INDEX MIXBR
014872,001944: 41,3104 03104 TC +0
014873,001945: 41,3105 03132 TC PUTNORM # NORMAL NOUN
014874,001946: # IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
014875,001947: 41,3106 50117 INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
014876,001948: 41,3107 30150 CA IDAD1TEM # OF NOUN.
014877,001949: 41,3110 74372 MASK LOW11 # (ECADR)SUBK FOR CURRENT COMP OF NOUN
014878,001950: 41,3111 04317 TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
014879,001951: 41,3112 00006 EXTEND # C(NOUNADD) IN A UPON RETURN
014880,001952: 41,3113 60117 SU DECOUNT # PLACE (ESUBK)-K INTO NOUNADD
014881,001953: 41,3114 54145 TS NOUNADD
014882,001954: 41,3115 11000 CCS DECBRNCH
014883,001955: 41,3116 03165 TC PUTDECSF # + DEC
014884,001956: 41,3117 02451 TC DCTSTCYC # +0 OCTAL
014885,001957: 41,3120 03027 TC SFRUTMIX # TEST IF DEC ONLY BIT = 1. IF SO,
014886,001958: 41,3121 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
014887,001959: 41,3122 03150 TC PUTCOM2 # NO DP
014888,001960: # TEST FOR DP SCALE FOR OCT LOAD. IF SO,
014889,001961: # +0 INTO MAJOR PART. SET NOUNADD FOR
014890,001962: # LOADING OCTAL WORD INTO MINOR PART.
014891,001963: 41,3123 24145 PUTDPCOM INCR NOUNADD # DP (ESUBK)-K+1 OR E+1
014892,001964: 41,3124 30145 CA NOUNADD # NOUNADD NOW SET FOR MINOR PART
014893,001965: 41,3125 26117 ADS DECOUNT # (ESUBK)+1 OR E+1 INTO DECOUNT
014894,001966: 41,3126 34714 CAF ZERO # NOUNADD SET FOR MINOR PART
014895,001967: 41,3127 50117 INDEX DECOUNT
014896,001968: 41,3130 53777 TS 0 -1 # ZERO MAJOR PART(ESUBK OR E)
014897,001969: 41,3131 03150 TC PUTCOM2
014898,001970:
014899,001971: 41,3132 04325 PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
014900,001972: 41,3133 11000 CCS DECBRNCH
![]() |
Page 340 |
014902,001974: 41,3134 03165 TC PUTDECSF # + DEC
014903,001975: 41,3135 02451 TC DCTSTCYC # +0 OCTAL
014904,001976: 41,3136 03021 TC SFRUTNOR # TEST IF DEC ONLY BIT = 1. IF SO,
014905,001977: 41,3137 02261 TC DPTEST # ALARM AND RECYCLE. IF NOT, CONTINUE.
014906,001978: 41,3140 03144 TC PUTCOM2 -4 # NO DP
014907,001979: 41,3141 34714 CAF ZERO # DP
014908,001980: 41,3142 54117 TS DECOUNT
014909,001981: 41,3143 03123 TC PUTDPCOM
014910,001982:
014911,001983: 41,3144 30146 CA NNADTEM
014912,001984: 41,3145 64712 AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
014913,001985: 41,3146 00006 EXTEND
014914,001986: 41,3147 13154 BZF CHANLOAD
014915,001987: 41,3150 56154 PUTCOM2 XCH MPAC
014916,001988: 41,3151 00115 TC DECRET
014917,001989:
014918,001990: 41,3152 0777 EBANK= DSPCOUNT
014919,001991: 41,3152 02126 64101 GTSFINLC 2CADR GTSFIN
014920,001992:
014921,001993:
014922,001994: 41,3154 44716 CHANLOAD CS SEVEN # DONT LOAD CHAN 7. (IT = SUPERBANK).
014923,001995: 41,3155 61017 AD NOUNCADR
014924,001996: 41,3156 00006 EXTEND
014925,001997: 41,3157 12771 BZF LOADLV
014926,001998: 41,3160 30154 CA MPAC
014927,001999: 41,3161 00006 EXTEND
014928,002000: 41,3162 51017 INDEX NOUNCADR
014929,002001: 41,3163 01000 WRITE 0
014930,002002: 41,3164 02771 TC LOADLV
014931,002003:
014932,002004:
014933,002005: # PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
014934,002006:
014935,002007: 41,3165 03042 PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
014936,002008: 41,3166 54123 TS SFTEMP1
014937,002009: 41,3167 00006 EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
014938,002010: 41,3170 33153 DCA GTSFINLC # READING ROUTINE.
014939,002011: 41,3171 52006 DXCH Z # LOADS SFTEMP1, SFTEMP2.
014940,002012: 41,3172 50140 INDEX MIXBR
014941,002013: 41,3173 03173 TC +0
014942,002014: 41,3174 03177 TC PUTSFNOR
014943,002015: 41,3175 03027 TC SFRUTMIX
014944,002016: 41,3176 03200 TC PUTDCSF2
014945,002017: 41,3177 03021 PUTSFNOR TC SFRUTNOR
014946,002018:
014947,002019: 41,3200 50000 PUTDCSF2 INDEX A
014948,002020: 41,3201 33203 CAF SFINTABR
014949,002021: 41,3202 04577 TC BANKJUMP # SWITCH BANKS FOR EXPANSHION ROOM
014950,002022: 41,3203 62347 SFINTABR CADR GOALMCYC # ALARM AND RECYCLE IF DEC LOAD
![]() |
Page 341 |
014952,002024: # WITH OCTAL ONLY NOUN.
014953,002025: 41,3204 60774 CADR BINROUND
014954,002026: 41,3205 60714 CADR DEGINSF
014955,002027: 41,3206 60764 CADR ARTHINSF
014956,002028: 41,3207 61017 CADR DPINSF
014957,002029: 41,3210 61044 CADR DPINSF2
014958,002030: 41,3211 61002 CADR OPTDEGIN
014959,002031: 41,3212 61017 CADR DPINSF # SAME AS ARITHDP1
014960,002032: 41,3213 65365 CADR HMSIN
014961,002033: 41,3214 61323 CADR DSPALARM # MIN/SEC CANT BE LOADED.
014962,002034: 41,3215 61051 CADR DPINSF4
014963,002035: 41,3216 60777 CADR ARTIN1SF
014964,002036: 41,3217 61323 CADR DSPALARM # 2INTOUT CANT BE LOADED.
014965,002037: 41,3220 ENDRUTIN EQUALS
014966,002038:
014967,002039:
014968,002040: # SCALE FACTORS FOR THOSE ROUTINES NEEDING THEM ARE AVAILABLE IN SFTEMP1.
014969,002041: # ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET
014970,002042:
014971,002043:
014972,002044: 40,2714 SETLOC ENDDPDEC +1
014973,002045:
014974,002046: 40,2714 COUNT 40/PIN
014975,002047:
014976,002048: # DEGINSF APPLIES 1000/180 =5.55555(10) = 5.43434(8)
014977,002049:
014978,002050: 40,2714 07052 DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
014979,002051: 40,2715 02757 ADRES DEGCON1 # MULT BY 5.5 5(10)X2EXP-3
014980,002052: 40,2716 10155 CCS MPAC +1 # THIS ROUNDS OFF MPAC+1 BEFORE SHIFT
014981,002053: 40,2717 34700 CAF BIT11 # LEFT 3, AND CAUSES 360.00 TO OF/UF
014982,002054: 40,2720 02722 TC +2 # WHEN SHIFTED LEFT AND ALARM.
014983,002055: 40,2721 44700 CS BIT11
014984,002056: 40,2722 60155 AD MPAC +1
014985,002057: 40,2723 03070 TC 2ROUND +2
014986,002058: 40,2724 04420 TC TPSL1 # LEFT 1
014987,002059: 40,2725 04420 DEGINSF2 TC TPSL1 # LEFT 2
014988,002060: 40,2726 03077 TC TESTOFUF
014989,002061: 40,2727 04420 TC TPSL1 # RETURNS IF NO OF/UF (LEFT3)
014990,002062: 40,2730 10154 CCS MPAC
014991,002063: 40,2731 02735 TC SIGNFIX # IF+, GO TO SIGNFIX
014992,002064: 40,2732 02735 TC SIGNFIX # IF +0, GO TO SIGNFIX
014993,002065: 40,2733 40000 COM # IF - , USE -MAGNITUDE +1
014994,002066: 40,2734 54154 TS MPAC # IF -0, USE +0
014995,002067: 40,2735 10162 SIGNFIX CCS MPAC+6
014996,002068: 40,2736 02753 TC SGNTO1 # IF OVERFLOW
014997,002069: 40,2737 02747 TC ENDSCALE # NO OVERFLOW/UNDERFLOW
014998,002070: 40,2740 10154 CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
014999,002071: 40,2741 05642 TC CCSHOLE
015000,002072: 40,2742 02751 TC NEG180
015001,002073: 40,2743 02744 TC +1
![]() |
Page 342 |
015003,002075: 40,2744 56154 XCH MPAC
015004,002076: 40,2745 74672 MASK POSMAX
015005,002077: 40,2746 54154 TS MPAC
015006,002078: 40,2747 04574 ENDSCALE TC POSTJUMP
015007,002079: 40,2750 63150 CADR PUTCOM2
015008,002080:
015009,002081: 40,2751 44672 NEG180 CS POSMAX
015010,002082: 40,2752 02746 TC ENDSCALE -1
015011,002083:
015012,002084: 40,2753 40154 SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
015013,002085: 40,2754 74672 MASK POSMAX
015014,002086: 40,2755 40000 CS A
015015,002087: 40,2756 02746 TC ENDSCALE -1
015016,002088:
015017,002089: 40,2757 26161 30707 DEGCON1 2DEC 5.555555555 B-3
015018,002090:
015019,002091: 40,2761 21616 07071 DEGCON2 2DEC 2.222222222 B-2
015020,002092: 40,2763 71527 NEG.2 OCT -06250 # = .197753906 I.E. THE BIAS SCALED
015021,002093:
015022,002094: 40,2764 07052 ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015023,002095: 40,2765 00123 ADRES SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS
015024,002096: 40,2766 56156 XCH MPAC +2 # OF SFCON. SHIFTS RESULTS LEFT BY 14.
015025,002097: 40,2767 56155 XCH MPAC +1 # (BY TAKING RESULTS FROM MPAC+1, MPAC+2)
015026,002098: 40,2770 56154 XCH MPAC
015027,002099: 40,2771 00006 EXTEND
015028,002100: 40,2772 12774 BZF BINROUND
015029,002101: 40,2773 04161 TC ALMCYCLE # TOO LARGE A LOAD. ALARM AND RECYCLE.
015030,002102: 40,2774 03066 BINROUND TC 2ROUND
015031,002103: 40,2775 03077 TC TESTOFUF
015032,002104: 40,2776 02747 TC ENDSCALE # RETURNS IF NO OF/UF
015033,002105:
015034,002106:
015035,002107: 40,2777 07052 ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
015036,002108: 40,3000 00123 ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC.
015037,002109: 40,3001 02774 TC BINROUND
015038,002110:
015039,002111:
015040,002112: 40,3002 10154 OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
015041,002113: 40,3003 03007 TC +4
015042,002114: 40,3004 03007 TC +3
015043,002115: 40,3005 04161 TC ALMCYCLE # REJECT - INPUT. ALARM AND RECYCLE.
015044,002116: 40,3006 04161 TC ALMCYCLE # REJECT - INPUT. ALARM AND RECYCLE.
015045,002117: 40,3007 32763 OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
015046,002118: 40,3010 26154 ADS MPAC # SUBTRACT BIAS
015047,002119: 40,3011 07052 TC DMP # MULT BY 100 / 45 B-2
015048,002120: 40,3012 02761 ADRES DEGCON2
015049,002121: 40,3013 34677 CAF BIT12 # ROUND AS IN DEGINSF
015050,002122: 40,3014 60155 AD MPAC +1
![]() |
Page 343 |
015052,002124: 40,3015 03070 TC 2ROUND +2
015053,002125: 40,3016 02725 TC DEGINSF2
015054,002126:
015055,002127: 40,3017 07052 DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
015056,002128: 40,3020 00123 ADRES SFTEMP1 # SFTEMP2. STORES LOW PART OF RESULT
015057,002129: 40,3021 56156 XCH MPAC +2 # IN (E SUBK) +1 OR E+1
015058,002130: 40,3022 60000 DOUBLE
015059,002131: 40,3023 54156 TS MPAC +2
015060,002132: 40,3024 34714 CAF ZERO
015061,002133: 40,3025 60155 AD MPAC +1
015062,002134: 40,3026 03070 TC 2ROUND +2
015063,002135: 40,3027 03077 TC TESTOFUF
015064,002136: 40,3030 50140 INDEX MIXBR # RETURNS IF NO OF/UF
015065,002137: 40,3031 03031 TC +0
015066,002138: 40,3032 03042 TC DPINORM
015067,002139: 40,3033 30117 CA DECOUNT # MIXEDNOUN
015068,002140: 40,3034 60145 DPINCOM AD NOUNADD # MIXED NORMAL
015069,002141: 40,3035 54002 TS Q # E SUBK E
015070,002142: 40,3036 56155 XCH MPAC +1
015071,002143: 40,3037 50002 INDEX Q
015072,002144: 40,3040 54001 TS 1 # PLACE LOW PART IN
015073,002145: 40,3041 02747 TC ENDSCALE # (E SUBK) +1 MIXED
015074,002146: 40,3042 34714 DPINORM CAF ZERO # E +1 NORMAL
015075,002147: 40,3043 03034 TC DPINCOM
015076,002148:
015077,002149:
015078,002150: 40,3044 07052 DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
015079,002151: 40,3045 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
015080,002152: 40,3046 36211 CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
015081,002153: 40,3047 03056 TC TPLEFTN # SHIFT LEFT 7.
015082,002154: 40,3050 03021 TC DPINSF +2
015083,002155:
015084,002156: 40,3051 07052 DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
015085,002157: 40,3052 00123 ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
015086,002158: 40,3053 34711 CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
015087,002159: 40,3054 03056 TC TPLEFTN # SHIFT LEFT 3.
015088,002160: 40,3055 03021 TC DPINSF +2
015089,002161:
015090,002162:
015091,002163: 40,3056 56002 TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
015092,002164: 40,3057 54124 TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF.
015093,002165: 40,3060 56002 XCH Q # CALL WITH N-1 IN A.
015094,002166: 40,3061 54123 LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC.
015095,002167: 40,3062 04420 TC TPSL1
015096,002168: 40,3063 10123 CCS SFTEMP1
015097,002169: 40,3064 03061 TC LEFTNCOM
015098,002170: 40,3065 00124 TC SFTEMP2
015099,002171:
015100,002172:
![]() |
Page 344 |
015102,002174: 40,3066 56155 2ROUND XCH MPAC +1
015103,002175: 40,3067 60000 DOUBLE
015104,002176: 40,3070 54155 TS MPAC +1
015105,002177: 40,3071 00002 TC Q # IF MPAC+1 DOES NOT OF/UF
015106,002178: 40,3072 60154 AD MPAC
015107,002179: 40,3073 54154 TS MPAC
015108,002180: 40,3074 00002 TC Q # IF MPAC DOES NOT OF/UF
015109,002181: 40,3075 54162 TS MPAC+6
015110,002182: 40,3076 00002 2RNDEND TC Q
015111,002183:
015112,002184: 40,3077 10162 TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF
015113,002185: 40,3100 04161 TC ALMCYCLE # OF ALARM AND RECYCLE.
015114,002186: 40,3101 00002 TC Q
015115,002187: 40,3102 04161 TC ALMCYCLE # UF ALARM AND RECYCLE.
015116,002188:
015117,002189:
015118,002190: 42,3365 SETLOC ENDSPMIN +1
015119,002191:
015120,002192: 42,3365 COUNT 42/PIN
015121,002193:
015122,002194: 42,3365 03506 HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM.
015123,002195: 42,3366 07052 TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT
015124,002196: 42,3367 03447 ADRES WHOLECON # INTO MPAC, MPAC+1.
015125,002197: 42,3370 03456 TC RND/TST # ROUND OFF TO WHOLE HRS IN MPAC+1.
015126,002198: 42,3371 34714 CAF ZERO # ALARM IF MPAC NON ZERO (G/ 16383 ).
015127,002199: 42,3372 54156 TS MPAC +2
015128,002200: 42,3373 33451 CAF HRCON
015129,002201: 42,3374 54154 TS MPAC
015130,002202: 42,3375 33452 CAF HRCON +1
015131,002203: 42,3376 56155 XCH MPAC +1
015132,002204: 42,3377 07256 TC SHORTMP
015133,002205: 42,3400 03467 TC MPACTST # ALARM IF MPAC NON ZERO (G/ 745)
015134,002206: 42,3401 52156 DXCH MPAC +1 # STORE HOURS CONTRIBUTION
015135,002207: 42,3402 52124 DXCH HITEMIN
015136,002208: 42,3403 31004 CA YREG # PUT YREG, YREGLP INTO MPAC, +1.
015137,002209: 42,3404 23007 LXCH YREGLP
015138,002210: 42,3405 52155 DXCH MPAC
015139,002211: 42,3406 07052 TC DMP
015140,002212: 42,3407 03447 ADRES WHOLECON
015141,002213: 42,3410 03456 TC RND/TST # ROUND OFF TO WHOLE MIN IN MPAC+1
015142,002214: 42,3411 43454 CS 59MIN # ALARM IF MPAC NON ZERO (G/16383)
015143,002215: 42,3412 03474 TC SIZETST # ALARM IF MPAC+1 G/ 59MIN
015144,002216: 42,3413 56155 XCH MPAC +1
015145,002217: 42,3414 00006 EXTEND
015146,002218: 42,3415 73453 MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L
015147,002219: 42,3416 20124 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION
015148,002220: 42,3417 00006 EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
015149,002221: 42,3420 13422 BZF +2
015150,002222: 42,3421 04161 TC ALMCYCLE
![]() |
Page 345 |
015152,002224: 42,3422 31005 CA ZREG # PUT ZREG, ZREGLP INTO MPAC, +1.
015153,002225: 42,3423 23010 LXCH ZREGLP
015154,002226: 42,3424 52155 DXCH MPAC
015155,002227: 42,3425 07052 TC DMP
015156,002228: 42,3426 03447 ADRES WHOLECON
015157,002229: 42,3427 03456 TC RND/TST # ROUND OFF TO WHOLE CENTI-SEC IN MPAC+1
015158,002230: 42,3430 43455 CS 59.99SEC # ALARM IF MPAC NON ZERO (G/163.83 SEC)
015159,002231: 42,3431 03474 TC SIZETST # ALARM IF MPAC+1 G/59.99 SEC
015160,002232: 42,3432 52124 DXCH HITEMIN # ADD IN SECONDS CONTRIBUTION
015161,002233: 42,3433 20155 DAS MPAC # IF THIS DAS OVERFLOWS,
015162,002234: 42,3434 00006 EXTEND # G/ 745 HR, 39 MIN, 14.55 SEC.
015163,002235: 42,3435 13437 BZF +2
015164,002236: 42,3436 04161 TC ALMCYCLE # ALARM AND RECYCLE
015165,002237: 42,3437 34714 CAF ZERO
015166,002238: 42,3440 54156 TS MPAC +2
015167,002239: 42,3441 07226 TC TPAGREE
015168,002240: 42,3442 52155 DXCH MPAC
015169,002241: 42,3443 50145 INDEX NOUNADD
015170,002242: 42,3444 52001 DXCH 0
015171,002243: 42,3445 04574 TC POSTJUMP
015172,002244: 42,3446 62771 CADR LOADLV
015173,002245:
015174,002246: 42,3447 00006 WHOLECON OCT 00006 # (10EXP5/2EXP14)2EXP14
015175,002247: 42,3450 03240 OCT 03240
015176,002248: 42,3451 00025 HRCON OCT 00025 # 1 HOUR IN CENTI-SEC
015177,002249: 42,3452 37100 OCT 37100
015178,002250: 42,3453 13560 MINCON OCT 13560 # 1 MINUTE IN CENTI-SEC
015179,002251: 42,3454 00073 59MIN OCT 00073 # 59 AS WHOLE
015180,002252: 42,3455 13557 59.99SEC OCT 13557 # 5999 CENTI-SEC
015181,002253:
015182,002254: 42,3456 56156 RND/TST XCH MPAC +2 # ROUNDS MPAC+2 INTO MPAC+1.
015183,002255: 42,3457 60000 DOUBLE # ALARMS IF MPAC NOT 0
015184,002256: 42,3460 54156 TS MPAC +2
015185,002257: 42,3461 34714 CAF ZERO
015186,002258: 42,3462 60155 AD MPAC +1
015187,002259: 42,3463 54155 TS MPAC +1
015188,002260: 42,3464 34714 CAF ZERO
015189,002261: 42,3465 60154 AD MPAC # CANT OVFLOW
015190,002262: 42,3466 56154 XCH MPAC
015191,002263: 42,3467 10154 MPACTST CCS MPAC # ALARM IF MPAC NON ZERO
015192,002264: 42,3470 04161 TC ALMCYCLE # ALARM AND RECYCLE.
015193,002265: 42,3471 00002 TC Q
015194,002266: 42,3472 04161 TC ALMCYCLE # ALARM AND RECYCLE.
015195,002267: 42,3473 00002 TC Q
015196,002268:
015197,002269: 42,3474 54156 SIZETST TS MPAC +2 # CALLED WITH - CON IN A
015198,002270: 42,3475 10155 CCS MPAC +1 # GET MAG OF MPAC+1
015199,002271: 42,3476 64712 AD ONE
015200,002272: 42,3477 13501 TCF +2
![]() |
Page 346 |
015202,002274: 42,3500 64712 AD ONE
015203,002275: 42,3501 60156 AD MPAC +2
015204,002276: 42,3502 00006 EXTEND # MAG OF MPAC+1 - CON
015205,002277: 42,3503 63505 BZMF +2
015206,002278: 42,3504 04161 TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
015207,002279: 42,3505 00002 TC Q # MAG OF MPAC+1 L/= CON
015208,002280:
015209,002281:
015210,002282: # ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
015211,002283: # ALARM IF NOT.( TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1)
015212,002284: 42,3506 43513 ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A
015213,002285: 42,3507 71000 MASK DECBRNCH # GET BITS 3,4,5 OF DECBRNCH IN A
015214,002286: 42,3510 63513 AD OCT34BAR # BITS 3,4,5 OF DECBRNCH MUST ALL = 1
015215,002287: 42,3511 10000 CCS A
015216,002288: 42,3512 03516 TC FORCEV25
015217,002289: 42,3513 77743 OCT34BAR OCT 77743
015218,002290: 42,3514 03516 TC FORCEV25
015219,002291: 42,3515 00002 TC Q
015220,002292:
015221,002293:
015222,002294: 42,3516 44113 FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE
015223,002295: 42,3517 55041 TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD
015224,002296: 42,3520 04161 TC ALMCYCLE # VERB. ALARM AND RECYCLE.
015225,002297: 42,3521 ENDHMSS EQUALS
015226,002298:
015227,002299:
![]() |
Page 347 |
015229,002301: # MONITOR ALLOWS OTHER KEYBOARD ACTIVITY. IT IS ENDED BY VERB TERMINATE,
015230,002302: # VERB PROCEED WITHOUT DATA, VERB RESEQUENCE,
015231,002303: # ANOTHER MONITOR, OR ANY NVSUB CALL THAT PASSES THE DSPLOCK (PROVIDED
015232,002304: # THAT THE OPERATOR HAS SOMEHOW ALLOWED THE ENDING OF A MONITOR WHICH
015233,002305: # HE HAS INITIATED THROUGH THE KEYBOARD).
015234,002306:
015235,002307: # MONITOR ACTION IS SUSPENDED, BUT NOT ENDED, BY ANY KEYBOARD ACTION,
015236,002308: # EXCEPT ERROR LIGHT RESET. IT BEGINS AGAIN WHEN KEY RELEASE IS PERFORMED.
015237,002309: # MONITOR SAVES THE NOUN AND APPROPRIATE DISPLAY VERB IN MONSAVE. IT SAVES
015238,002310: # NOUNCADR IN MONSAVE1, IF NOUN = MACHINE CADR TO BE SPECIFIED. BIT 15 OF
015239,002311: # MONSAVE1 IS THE KILL MONITOR SIGNAL (KILLER BIT). BIT 14 OF MONSAVE1
015240,002312: # INDICATES THE CURRENT MONITOR WAS EXTERNALLY INITIATED (EXTERNAL
015241,002313: # MONITOR BIT). IT IS TURNED OFF BY RELDSP AND KILMONON.
015242,002314:
015243,002315: # MONSAVE INDICATES IF MONITOR IS ON (+=ON, +0=OFF)
015244,002316: # IF MONSAVE IS +, MONITOR ENTERS NO REQUEST, BUT TURNS KILLER BIT OFF.
015245,002317: # IF MONSAVE IS +0, MONITOR ENTERS REQUEST AND TURNS KILLER BIT OFF.
015246,002318:
015247,002319: # NVSUB (IF EXTERNAL MONITOR BIT IS OFF), VB=PROCEED WITHOUT DATA,
015248,002320: # VB=RESEQUENCE, AND VB=TERMINATE TURN KILL MONITOR BIT ON.
015249,002321:
015250,002322: # IF KILLER BIT IS ON, MONREQ ENTERS NO FURTHER REQUESTS, ZEROS MONSAVE
015251,002323: # AND MONSAVE1 (TURNING OFF KILLER BIT AND EXTERNAL MONITOR BIT).
015252,002324:
015253,002325: # MONITOR DOSENT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW
015254,002326: 41,3220 SETLOC ENDRUTIN
015255,002327:
015256,002328: 41,3220 COUNT 41/PIN
015257,002329:
015258,002330: 41,3220 43227 MONITOR CS BIT15/14
015259,002331: 41,3221 71017 MASK NOUNCADR
015260,002332: 41,3222 54155 MONIT1 TS MPAC +1 # TEMP STORAGE
015261,002333: 41,3223 40136 CS ENTEXIT
015262,002334: 41,3224 64233 AD ENDINST
015263,002335: 41,3225 10000 CCS A
015264,002336: 41,3226 03235 TC MONIT2
015265,002337: 41,3227 60000 BIT15/14 OCT 60000
015266,002338: 41,3230 03235 TC MONIT2
015267,002339: 41,3231 34675 CAF BIT14 # EXTERNALLY INITIATED MONITOR,
015268,002340: 41,3232 26155 ADS MPAC +1 # SET BIT 14 FOR MONSAVE1.
015269,002341: 41,3233 34714 CAF ZERO
015270,002342: 41,3234 55022 TS MONSAVE2 # ZERO NVMONOPT OPTIONS
015271,002343: 41,3235 36043 MONIT2 CAF LOW7
015272,002344: 41,3236 71001 MASK VERBREG
015273,002345: 41,3237 04345 TC LEFT5
015274,002346: 41,3240 54022 TS CYL
015275,002347: 41,3241 40022 CS CYL
015276,002348: 41,3242 56022 XCH CYL
015277,002349: 41,3243 61002 AD NOUNREG
015278,002350: 41,3244 54154 TS MPAC # TEMP STORAGE
![]() |
Page 348 |
015280,002352: 41,3245 34714 CAF ZERO
015281,002353: 41,3246 55012 TS DSPLOCK # +0 INTO DSPLOCK SO MONITOR CAN RUN.
015282,002354: 41,3247 11042 CCS CADRSTOR # TURN OFF KR LITE IF CADRSTOR AND DSPLIST
015283,002355: 41,3250 03252 TC +2 # ARE BOTH EMPTY. (LITE COMES ON IF NEW
015284,002356: 41,3251 04516 TC RELDSP1 # MONITOR IS KEYED IN OVER OLD MONITOR.)
015285,002357: 41,3252 00004 INHINT
015286,002358: 41,3253 11020 CCS MONSAVE
015287,002359: 41,3254 03261 TC +5 # IF MONSAVE WAS +, NO REQUEST
015288,002360: 41,3255 34712 CAF ONE # IF MONSAVE WAS 0, REQUEST MONREQ
015289,002361: 41,3256 05140 TC WAITLIST
015290,002362: 41,3257 0777 EBANK= DSPCOUNT
015291,002363: 41,3257 03265 62101 2CADR MONREQ
015292,002364: 41,3261 52155 DXCH MPAC # PLACE MONITOR VERB AND NOUN INTO MONSAVE
015293,002365: 41,3262 53021 DXCH MONSAVE # ZERO THE KILL MONITOR BIT
015294,002366: 41,3263 00003 RELINT # SET UP EXTERNAL MONITOR BIT
015295,002367: 41,3264 00136 TC ENTRET
015296,002368:
015297,002369:
015298,002370: 41,3265 04414 MONREQ TC LODSAMPT # CALLED BY WAITLIST
015299,002371: 41,3266 11021 CCS MONSAVE1 # TIME IS SNATCHED IN RUPT FOR NOUN 65
015300,002372: 41,3267 03273 TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
015301,002373: 41,3270 03273 TC +3 # IF KILLER BIT = 0, ENTER REQUESTS
015302,002374: 41,3271 03304 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
015303,002375: 41,3272 03304 TC KILLMON # IF KILLER BIT = 1, NO REQUESTS
015304,002376: 41,3273 33310 CAF MONDEL
015305,002377: 41,3274 05140 TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
015306,002378: 41,3275 0777 EBANK= DSPCOUNT
015307,002379: 41,3275 03265 62101 2CADR MONREQ
015308,002380: 41,3277 34371 CAF CHRPRIO
015309,002381: 41,3300 05027 TC NOVAC # ENTER EXEC REQUEST FOR MONDO
015310,002382: 41,3301 0777 EBANK= DSPCOUNT
015311,002383: 41,3301 03311 62101 2CADR MONDO
015312,002384: 41,3303 05213 TC TASKOVER
015313,002385:
015314,002386: 41,3304 34714 KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
015315,002387: 41,3305 55020 TS MONSAVE
015316,002388: 41,3306 55021 TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
015317,002389: 41,3307 05213 TC TASKOVER # TURN OFF EXTERNAL MONITOR BIT.
015318,002390: 41,3310 00144 MONDEL OCT 144 # FOR 1 SEC MONITOR INTERVALS
015319,002391:
015320,002392:
015321,002393: 41,3311 11021 MONDO CCS MONSAVE1 # CALLED BY EXEC
015322,002394: 41,3312 03316 TC +4 # IF KILLER BIT = 0, CONTINUE
015323,002395: 41,3313 03316 TC +3 # IF KILLER BIT = 0, CONTINUE
015324,002396: 41,3314 05112 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
015325,002397: 41,3315 05112 TC ENDOFJOB # IN CASE TERMINATE CAME SINCE LAST MONREQ
015326,002398: 41,3316 11012 CCS DSPLOCK
![]() |
Page 349 |
015328,002400: 41,3317 03341 TC MONBUSY # NVSUB IS BUSY
015329,002401: 41,3320 36043 CAF LOW7
015330,002402: 41,3321 71020 MASK MONSAVE
015331,002403: 41,3322 02316 TC UPDATNN -1 # PLACE NOUN INTO NOUNREG AND DISPLAY IT
015332,002404: 41,3323 34160 CAF MID7
015333,002405: 41,3324 71020 MASK MONSAVE # CHANGE MONITOR VERB TO DISPLAY VERB
015334,002406: 41,3325 63337 AD MONREF # -DEC10, STARTING IN BIT8
015335,002407: 41,3326 54023 TS EDOP # RIGHT 7
015336,002408: 41,3327 30023 CA EDOP
015337,002409: 41,3330 55001 TS VERBREG
015338,002410: 41,3331 33340 CAF MONBACK # SET RETURN TO PASTEVB AFTER DATA DISPLAY
015339,002411: 41,3332 54136 TS ENTRET
015340,002412: 41,3333 43227 CS BIT15/14
015341,002413: 41,3334 71021 MASK MONSAVE1 # PUT ECADR INTO MPAC +2. INTMCTBS WILL
015342,002414: 41,3335 54156 TS MPAC +2 # DISPLAY IT AND SET NOUNCADR, NOUNADD,
015343,002415: 41,3336 02046 ENDMONDO TC TESTNN # EBANK.
015344,002416:
015345,002417: 4140 BLOCK 2
015346,002418:
015347,002419: 4000 SETLOC FFTAG8
015348,002420: 4000 BANK
015349,002421:
015350,002422: 4140 COUNT 02/PIN
015351,002423:
015352,002424: 4140 34160 PASTEVB CAF MID7
015353,002425: 4141 71022 MASK MONSAVE2 # NVMONOPT PASTE OPTION
015354,002426: 4142 00006 EXTEND
015355,002427: 4143 14145 BZF +2
015356,002428: 4144 04146 TC PASTEOPT # PASTE PLEASE VERB FOR NVMONOPT
015357,002429: 4145 31020 CA MONSAVE # PASTE MONITOR VERB - PASTE OPTION IS 0
015358,002430: 4146 54023 PASTEOPT TS EDOP # RIGHT 7
015359,002431: 4147 30023 CA EDOP # PLACE MONITOR VERB OR PLEASE VERB INTO
015360,002432: 4150 04555 TC BANKCALL # VERBREG AND DISPLAY IT.
015361,002433: 4151 62336 CADR UPDATVB -1
015362,002434: 4152 34714 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
015363,002435: 4153 55013 TS REQRET # BE EXECUTED BY OPERATOR.
015364,002436: 4154 31022 CA MONSAVE2
015365,002437: 4155 04271 TC BLANKSUB # PROCESS NVMONOPT BLANK OPTION IF ANY
015366,002438: 4156 04157 TC +1
015367,002439: 4157 05112 ENDPASTE TC ENDOFJOB
015368,002440:
015369,002441: 4160 37600 MID7 OCT 37600
015370,002442:
015371,002443:
015372,002444: 41,3337 SETLOC ENDMONDO +1
015373,002445: 41,3337 COUNT 41/PIN
015374,002446:
015375,002447: 41,3337 75377 MONREF OCT 75377 # -DEC10, STARTING IN BIT8
015376,002448: 41,3340 04140 MONBACK ADRES PASTEVB
015377,002449:
![]() |
Page 350 |
015379,002451: 41,3341 04410 MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
015380,002452: 41,3342 05112 TC ENDOFJOB
015381,002453:
015382,002454:
015383,002455: # DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
015384,002456: # IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
015385,002457: # DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F ( FCADR 4000-7777)
015386,002458:
015387,002459: # FOR BANKS L/E 27, THIS IS ENOUGH.
015388,002460:
015389,002461: # FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
015390,002462: # MUST BE PRELOADED WITH THE DESIRED SUPERBANK BITS (BITS 5,6,7).
015391,002463: # V23N26 SHOULD BE USED.
015392,002464:
015393,002465: # SUMMARY
015394,002466: # FOR BANKS L/E 27, V27N01E(FCADR)E
015395,002467: # FOR BANKS G/E 30, V23N26E(SUPERBITS)E V27N01E(FCADR)E
015396,002468:
015397,002469: 41,3343 34333 DSPFMEM CAF R1D1 # IF F/F, DATACALL USES BANK 02 OR 03.
015398,002470: 41,3344 54777 TS DSPCOUNT
015399,002471: 41,3345 31047 CA DSPTEM1 +2 # SUPERBANK BITS WERE PRELOADED INTO
015400,002472: 41,3346 54001 TS L # 3RD COMPONENT OF NOUN 26.
015401,002473: 41,3347 31017 CA NOUNCADR # ORIGINAL FCADR LOADED STILL IN NOUNCADR.
015402,002474: 41,3350 04610 TC SUPDACAL # CALL WITH FCADR IN A, SUPERBITS IN L.
015403,002475: 41,3351 03353 TC DSPOCTWD
015404,002476: 41,3352 05112 ENDSPF TC ENDOFJOB
015405,002477:
![]() |
Page 351 |
015407,002479: # WORD DISPLAY ROUTINES
015408,002480:
015409,002481: 40,3103 SETLOC TESTOFUF +4
015410,002482: 40,3103 COUNT 40/PIN
015411,002483:
015412,002484: 40,3103 56002 DSPSIGN XCH Q
015413,002485: 40,3104 54144 TS DSPWDRET
015414,002486: 40,3105 10154 CCS MPAC
015415,002487: 40,3106 03116 TC +8D
015416,002488: 40,3107 03116 TC +7
015417,002489: 40,3110 64712 AD ONE
015418,002490: 40,3111 54154 TS MPAC
015419,002491: 40,3112 02334 TC -ON
015420,002492: 40,3113 40155 CS MPAC +1
015421,002493: 40,3114 54155 TS MPAC +1
015422,002494: 40,3115 00144 TC DSPWDRET
015423,002495: 40,3116 02314 TC +ON
015424,002496: 40,3117 00144 TC DSPWDRET
015425,002497:
015426,002498: 40,3120 00006 DSPRND EXTEND # ROUND BY 5 EXP-6
015427,002499: 40,3121 33164 DCA DECROUND -1
015428,002500: 40,3122 20155 DAS MPAC
015429,002501: 40,3123 00006 EXTEND
015430,002502: 40,3124 13130 BZF +4
015431,002503: 40,3125 00006 EXTEND
015432,002504: 40,3126 34672 DCA DPOSMAX
015433,002505: 40,3127 52155 DXCH MPAC
015434,002506: 40,3130 00002 TC Q
015435,002507:
015436,002508: # DSPDECWD CONVERTS C( MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015437,002509: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
015438,002510:
015439,002511: 40,3131 56002 DSPDECWD XCH Q
015440,002512: 40,3132 54115 TS WDRET
015441,002513: 40,3133 03103 TC DSPSIGN
015442,002514: 40,3134 03120 TC DSPRND
015443,002515: 40,3135 34710 CAF FOUR
015444,002516: 40,3136 54137 DSPDCWD1 TS WDCNT
015445,002517: 40,3137 34377 CAF BINCON
015446,002518: 40,3140 07256 TC SHORTMP
015447,002519: 40,3141 50154 TRACE1 INDEX MPAC
015448,002520: 40,3142 34072 CAF RELTAB
015449,002521: 40,3143 74362 MASK LOW5
015450,002522: 40,3144 54124 TS CODE
015451,002523: 40,3145 34714 CAF ZERO
015452,002524: 40,3146 56156 XCH MPAC +2
015453,002525: 40,3147 56155 XCH MPAC +1
015454,002526: 40,3150 54154 TS MPAC
015455,002527: 40,3151 56777 XCH DSPCOUNT
015456,002528: 40,3152 54143 TRACE1S TS COUNT
015457,002529:
![]() |
Page 352 |
015459,002531: 40,3153 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
015460,002532: 40,3154 54777 TS DSPCOUNT
015461,002533: 40,3155 03225 TC DSPIN
015462,002534: 40,3156 10137 CCS WDCNT
015463,002535: 40,3157 03136 TC DSPDCWD1
015464,002536: 40,3160 44374 CS VD1
015465,002537: 40,3161 54777 TS DSPCOUNT
015466,002538: 40,3162 00115 TC WDRET
015467,002539:
015468,002540: 40,3163 00000 OCT 00000
015469,002541: 40,3164 02476 DECROUND OCT 02476
015470,002542:
015471,002543: # DSPDECNR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
015472,002544: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015473,002545:
015474,002546: 40,3165 56002 DSPDECNR XCH Q
015475,002547: 40,3166 54115 TS WDRET
015476,002548: 40,3167 03103 TC DSPSIGN
015477,002549: 40,3170 03135 TC DSPDCWD1 -1
015478,002550:
015479,002551: # DSPDC2NR CONVERTS C( MPAC,MPAC+1) INTO A SIGN AND 2 CHAR DECIMAL
015480,002552: # STARTING IN LOC SPECIFIED IN DSPCOUNT. IT DOES NOT ROUND
015481,002553:
015482,002554: 40,3171 56002 DSPDC2NR XCH Q
015483,002555: 40,3172 54115 TS WDRET
015484,002556: 40,3173 03103 TC DSPSIGN
015485,002557: 40,3174 34712 CAF ONE
015486,002558: 40,3175 03136 TC DSPDCWD1
015487,002559:
015488,002560:
015489,002561: # DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
015490,002562: # STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
015491,002563:
015492,002564: 40,3176 56002 DSP2DEC XCH Q
015493,002565: 40,3177 54115 TS WDRET
015494,002566: 40,3200 34714 CAF ZERO
015495,002567: 40,3201 54124 TS CODE
015496,002568: 40,3202 36214 CAF THREE
015497,002569: 40,3203 03307 TC 11DSPIN # -R2 OFF
015498,002570: 40,3204 34710 CAF FOUR
015499,002571: 40,3205 03307 TC 11DSPIN # +R2 OFF
015500,002572: 40,3206 03103 TC DSPSIGN
015501,002573: 40,3207 34334 CAF R2D1
015502,002574: 40,3210 03136 END2DEC TC DSPDCWD1
015503,002575:
015504,002576:
015505,002577: # DSPDECVN DISPLAYS C(A) UPON ENTRY AS A 2 CHAR DECIMAL BEGINNING IN THE
015506,002578: # DSP LOC SPECIFIED IN DSPCOUNT.
015507,002579: # C(A) SHOULD BE IN FORM N X 2EXP-14. THIS IS SCALED TO FORM N/100 BEFORE
015508,002580: # DISPLAY CONVERSION.
015509,002581:
![]() |
Page 353 |
015511,002583: 40,3211 00006 DSPDECVN EXTEND
015512,002584: 40,3212 73221 MP VNDSPCON # MULT BY .01
015513,002585: 40,3213 22154 LXCH MPAC # TAKE RESULTS FROM L.(MULT BY 2EXP14).
015514,002586: 40,3214 34714 CAF ZERO
015515,002587: 40,3215 54155 TS MPAC +1
015516,002588: 40,3216 56002 XCH Q
015517,002589: 40,3217 54115 TS WDRET
015518,002590: 40,3220 03174 TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR
015519,002591:
015520,002592: 40,3221 00244 VNDSPCON OCT 00244 # .01 ROUNDED UP
015521,002593:
015522,002594:
015523,002595: 40,3222 03211 GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART
015524,002596: 40,3223 04574 TC POSTJUMP # OF UPDATVB.
015525,002597: 40,3224 62346 CADR UPDAT1 +2
015526,002598:
015527,002599: 40,3225 ENDECVN EQUALS
015528,002600:
015529,002601:
015530,002602: 41,3353 SETLOC ENDSPF +1
015531,002603: 41,3353 COUNT 41/PIN
015532,002604:
015533,002605: # DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
015534,002606: # CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
015535,002607:
015536,002608: 41,3353 54022 DSPOCTWD TS CYL
015537,002609: 41,3354 56002 XCH Q
015538,002610: 41,3355 54115 TS WDRET # MUST USE SAME RETURN AS DSP2BIT.
015539,002611: 41,3356 34675 CAF BIT14 # TO BLANK SIGNS
015540,002612: 41,3357 26777 ADS DSPCOUNT
015541,002613: 41,3360 34710 CAF FOUR
015542,002614: 41,3361 54137 WDAGAIN TS WDCNT
015543,002615: 41,3362 40022 CS CYL
015544,002616: 41,3363 40022 CS CYL
015545,002617: 41,3364 40022 CS CYL
015546,002618: 41,3365 40000 CS A
015547,002619: 41,3366 74716 MASK DSPMSK
015548,002620: 41,3367 50000 INDEX A
015549,002621: 41,3370 34072 CAF RELTAB
015550,002622: 41,3371 74362 MASK LOW5
015551,002623: 41,3372 54124 TS CODE
015552,002624: 41,3373 56777 XCH DSPCOUNT
015553,002625: 41,3374 54143 TS COUNT
015554,002626: 41,3375 10000 CCS A # DECREMENT DSPCOUNT EXCEPT AT +0
015555,002627: 41,3376 54777 TS DSPCOUNT
015556,002628: 41,3377 04574 TC POSTJUMP
015557,002629: 41,3400 61315 CADR DSPOCTIN
015558,002630: 41,3401 10137 OCTBACK CCS WDCNT
015559,002631: 41,3402 03361 TC WDAGAIN # +
015560,002632: 41,3403 44374 DSPLV CS VD1 # TO BLOCK NUMERICAL CHARACTERS, CLEARS,
![]() |
Page 354 |
015562,002634: 41,3404 54777 TS DSPCOUNT # AND SIGNS AFTER A COMPLETED DISPLAY.
015563,002635: 41,3405 00115 TC WDRET
015564,002636:
015565,002637: 41,3406 4716 DSPMSK = SEVEN
015566,002638:
015567,002639:
015568,002640: # DSP2BIT DISPLAYS C(A) UPON ENTRY AS A 2 CHAR OCT BEGINNING IN THE DSP
015569,002641: # LOC SPECIFIED IN DSPCOUNT BY PRE CYCLING RIGHT C(A) AND USING THE LOGIC
015570,002642: # OF THE 5 CHAR OCTAL DISPLAY
015571,002643:
015572,002644: 41,3406 54020 DSP2BIT TS CYR
015573,002645: 41,3407 56002 XCH Q
015574,002646: 41,3410 54115 TS WDRET
015575,002647: 41,3411 34712 CAF ONE
015576,002648: 41,3412 54137 TS WDCNT
015577,002649: 41,3413 40020 CS CYR
015578,002650: 41,3414 40020 CS CYR
015579,002651: 41,3415 56020 XCH CYR
015580,002652: 41,3416 54022 TS CYL
015581,002653: 41,3417 03366 TC WDAGAIN +5
015582,002654:
015583,002655:
015584,002656: # FOR DSPIN PLACE 0/25 OCT INTO COUNT, 5 BIT RELAY CODE INTO CODE. BOTH
015585,002657: # ARE DESTROYED. IF BIT14 OF COUNT IS 1, SIGN IS BLANKED WITH LEFT CHAR.
015586,002658: # FOR DSPIN1 PLACE 0,1 INTO BIT11 OF CODE, 2 INTO COUNT, REL ADDRESS OF
015587,002659: # DSPTAB ENTRY INTO DSREL.
015588,002660:
015589,002661: 40,3225 SETLOC ENDECVN
015590,002662:
015591,002663: 40,3225 COUNT 40/PIN
015592,002664:
015593,002665: 40,3225 56002 DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANY OF THE
015594,002666: 40,3226 54114 TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
015595,002667: 40,3227 34362 CAF LOW5
015596,002668: 40,3230 70143 MASK COUNT
015597,002669: 40,3231 54021 TS SR
015598,002670: 40,3232 56021 XCH SR
015599,002671: 40,3233 54141 TS DSREL
015600,002672: 40,3234 34712 CAF BIT1
015601,002673: 40,3235 70143 MASK COUNT
015602,002674: 40,3236 10000 CCS A
015603,002675: 40,3237 03241 TC +2 # LEFT IF COUNT IS ODD
015604,002676: 40,3240 03251 TC DSPIN1 -1 # RIGHT IF COUNT IS EVEN
015605,002677: 40,3241 56124 XCH CODE
015606,002678: 40,3242 04354 TC SLEFT5 # DOES NOT USE CYL
015607,002679: 40,3243 54124 TS CODE
015608,002680: 40,3244 34675 CAF BIT14
015609,002681: 40,3245 70143 MASK COUNT
015610,002682: 40,3246 10000 CCS A
015611,002683: 40,3247 34711 CAF TWO # BIT14 = 1, BLANK SIGN
![]() |
Page 355 |
015613,002685: 40,3250 64712 AD ONE # BIT14 = 0, LEAVE SIGN ALONE
015614,002686: 40,3251 54143 TS COUNT # +0 INTO COUNT FOR RIGHT
015615,002687: # +1 INTO COUNT FOR LEFT(SIGN LEFT ALONE)
015616,002688: # +3 INTO COUNT FOR LEFT(TO BLANK SIGN)
015617,002689: 40,3252 00004 DSPIN1 INHINT
015618,002690: 40,3253 50141 INDEX DSREL
015619,002691: 40,3254 11023 CCS DSPTAB
015620,002692: 40,3255 03257 TC +2 # IF +
015621,002693: 40,3256 05642 TC CCSHOLE
015622,002694: 40,3257 64712 AD ONE # IF-
015623,002695: 40,3260 54142 TS DSMAG
015624,002696: 40,3261 50143 INDEX COUNT
015625,002697: 40,3262 73303 MASK DSMSK
015626,002698: 40,3263 00006 EXTEND
015627,002699: 40,3264 60124 SU CODE
015628,002700: 40,3265 00006 EXTEND
015629,002701: 40,3266 13301 BZF DSLV # SAME
015630,002702: 40,3267 50143 DFRNT INDEX COUNT
015631,002703: 40,3270 43303 CS DSMSK # MASK WITH 77740,76037,75777, OR 74037
015632,002704: 40,3271 70142 MASK DSMAG
015633,002705: 40,3272 60124 AD CODE
015634,002706: 40,3273 40000 CS A
015635,002707: 40,3274 50141 INDEX DSREL
015636,002708: 40,3275 57023 XCH DSPTAB
015637,002709: 40,3276 00006 EXTEND
015638,002710: 40,3277 63301 BZMF DSLV # DSPTAB ENTRY WAS -
015639,002711: 40,3300 25016 INCR NOUT # DSPTAB ENTRY WAS +
015640,002712: 40,3301 00003 DSLV RELINT
015641,002713: 40,3302 00114 TC DSEXIT
015642,002714:
015643,002715: 40,3303 00037 DSMSK OCT 37
015644,002716: 40,3304 01740 OCT 1740
015645,002717: 40,3305 02000 OCT 2000
015646,002718: 40,3306 03740 OCT 3740
015647,002719:
015648,002720:
015649,002721: # FOR 11DSPIN, PUT REL ADDRESSS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
015650,002722: # BIT11 OF CODE.
015651,002723:
015652,002724: 40,3307 54141 11DSPIN TS DSREL
015653,002725: 40,3310 34711 CAF TWO
015654,002726: 40,3311 54143 TS COUNT
015655,002727: 40,3312 56002 XCH Q # MUST USE SAME RETURN AS DSPIN
015656,002728: 40,3313 54114 TS DSEXIT
015657,002729: 40,3314 03252 TC DSPIN1
015658,002730:
015659,002731:
015660,002732: 40,3315 03225 DSPOCTIN TC DSPIN # SO DSPOCTWD DOESNT USE SWCALL
015661,002733: 40,3316 33320 CAF +2
015662,002734: 40,3317 04577 TC BANKJUMP
![]() |
Page 356 |
015664,002736: 40,3320 63401 ENDSPOCT CADR OCTBACK
015665,002737:
015666,002738:
015667,002739: # DSPALARM FINDS TC NVSUBEND IN ENTRET FOR NVSUB INITIATED ROUTINES.
015668,002740: # ABORT WITH 01501.
015669,002741: # DSPALARM FINDS TC ENDOFJOB IN ENTRET FOR KEYBOARD INITIATED ROUTINES.
015670,002742: # DO TC ENTRET.
015671,002743:
015672,002744: 40,3321 44374 PREDSPAL CS VD1
015673,002745: 40,3322 54777 TS DSPCOUNT
015674,002746: 40,3323 43342 DSPALARM CS NVSBENDL
015675,002747: 40,3324 60136 AD ENTEXIT
015676,002748: 40,3325 00006 EXTEND
015677,002749: 40,3326 13337 BZF CHARALRM +2
015678,002750: 40,3327 43341 CS MONADR # IF THIS IS A MONITOR, KILL IT
015679,002751: 40,3330 60136 AD ENTEXIT
015680,002752: 40,3331 00006 EXTEND
015681,002753: 40,3332 13334 BZF +2
015682,002754: 40,3333 03335 TC +2
015683,002755: 40,3334 04220 TC KILMONON
015684,002756: 40,3335 04400 CHARALRM TC FALTON # NOT NVSUB INITIATED. TURN ON OPR ERROR
015685,002757: 40,3336 05112 TC ENDOFJOB
015686,002758: 40,3337 05622 TC POODOO
015687,002759: 40,3340 01501 OCT 01501
015688,002760: 40,3341 04140 MONADR GENADR PASTEVB
015689,002761: 40,3342 04216 NVSBENDL TC NVSUBEND
015690,002762:
015691,002763:
015692,002764: # ALMCYCLE TURNS ON CHECK FAIL LIGHT, REDISPLAYS THE ORIGINAL VERB THAT
015693,002765: # WAS EXECUTED, AND RECYCLES TO EXECUTE THE ORIGINAL VERB/NOUN COMBINATION
015694,002766: # THAT WAS LAST EXECUTED. USED FOR BAD DATA DURING LOAD VERBS AND BY
015695,002767: # MCTBS. ALSO BY MMCHANG IF 2 NUMERICAL CHARACTERS WERE NOT PUNCHED IN
015696,002768: # FOR MM CODE.
015697,002769:
015698,002770: 4161 SETLOC MID7 +1
015699,002771: 4161 COUNT 02/PIN
015700,002772:
015701,002773: 4161 04400 ALMCYCLE TC FALTON # TURN ON CHECK FAIL LIGHT.
015702,002774: 4162 41041 CS VERBSAVE # GET ORIGINAL VERB THAT WAS EXECUTED
015703,002775: 4163 55013 TS REQRET # SET FOR ENTPAS0
015704,002776: 4164 04555 TC BANKCALL # PUTS ORIGINAL VERB INTO VERBREG AND
015705,002777: 4165 62336 CADR UPDATVB -1 # DISPLAYS IT IN VERB LIGHTS.
015706,002778: 4166 04574 TC POSTJUMP
015707,002779: 4167 62002 ENDALM CADR ENTER
015708,002780:
015709,002781:
015710,002782: # MMCHANG USES NOUN DISPLAY UNTIL ENTER. THEN IT USES MODE DISP.
015711,002783: # IT GOES TO MODROUT WITH THE NEW MM CODE IN A, BUT NOT DISPLAYED IN
015712,002784: # MM LIGHTS.
015713,002785: # IT DEMANDS 2 NUMERICAL CHARACTERS BE PUNCHED IN FOR NEW MM CODE.
![]() |
Page 357 |
015715,002787: # IF NOT, IT RECYCLES.
015716,002788:
015717,002789: 41,3420 SETLOC DSP2BIT +10D
015718,002790:
015719,002791: 41,3420 COUNT 41/PIN
015720,002792:
015721,002793: 41,3420 03442 MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
015722,002794: # IF THIS MOVES AT ALL, MUST CHANGE
015723,002795: # MMADREF AT ENTPASHI.
015724,002796: 41,3421 34706 CAF BIT5 # OCT20 = ND2.
015725,002797: 41,3422 60777 AD DSPCOUNT # DSPCOUNT MUST = -ND2.
015726,002798: 41,3423 00006 EXTEND # DEMAND THAT 2 NUM CHAR WERE PUNCHED IN.
015727,002799: 41,3424 13426 BZF +2
015728,002800: 41,3425 04161 TC ALMCYCLE # DSPCOUNT NOT= -ND2. ALARM AND RECYCLE.
015729,002801: 41,3426 34714 CAF ZERO # DSPCOUNT = -ND2.
015730,002802: 41,3427 57002 XCH NOUNREG
015731,002803: 41,3430 54154 TS MPAC
015732,002804: 41,3431 34375 CAF ND1
015733,002805: 41,3432 54777 TS DSPCOUNT
015734,002806: 41,3433 04555 TC BANKCALL
015735,002807: 41,3434 60502 CADR 2BLANK
015736,002808: 41,3435 44374 CS VD1 # BLOCK NUM CHAR IN
015737,002809: 41,3436 54777 TS DSPCOUNT
015738,002810: 41,3437 30154 CA MPAC
015739,002811: 41,3440 04574 TC POSTJUMP
015740,002812: 41,3441 10010 CADR MODROUTB # GO THRU STANDARD LOC.
015741,002813:
015742,002814:
015743,002815: 41,3442 04,2010 MODROUTB = V37
015744,002816: 41,3442 40002 REQMM CS Q
015745,002817: 41,3443 55013 TS REQRET
015746,002818: 41,3444 34375 CAF ND1
015747,002819: 41,3445 54777 TS DSPCOUNT
015748,002820: 41,3446 34714 CAF ZERO
015749,002821: 41,3447 55002 TS NOUNREG
015750,002822: 41,3450 04555 TC BANKCALL
015751,002823: 41,3451 60502 CADR 2BLANK
015752,002824: 41,3452 04443 TC FLASHON
015753,002825: 41,3453 34712 CAF ONE
015754,002826: 41,3454 55000 TS DECBRNCH # SET FOR DEC
015755,002827: 41,3455 00136 TC ENTEXIT
015756,002828:
015757,002829:
015758,002830: # VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
015759,002831: # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
015760,002832: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
015761,002833: # COMPONENT 1 PRIORITY (BITS 10-14) BIT1=0 FOR NOVAC, BIT1=1 FOR FINDVAC.
015762,002834: # COMPONENT 2 JOB ADRES (12 BIT )
015763,002835: # COMPONENT 3 BBCON
015764,002836:
![]() |
Page 358 |
015766,002838: 41,3456 34712 VBRQEXEC CAF BIT1
015767,002839: 41,3457 71045 MASK DSPTEM1
015768,002840: 41,3460 10000 CCS A
015769,002841: 41,3461 03500 TC SETVAC # IF BIT1 = 1, FINDVAC
015770,002842: 41,3462 34365 CAF TCNOVAC # IF BIT1 = 0, NOVAC
015771,002843: 41,3463 54154 REQEX1 TS MPAC # TC NOVAC OR TC FINDVAC INTO MPAC
015772,002844: 41,3464 44712 CS BIT1
015773,002845: 41,3465 71045 MASK DSPTEM1
015774,002846: 41,3466 54160 TS MPAC +4 # PRIO INTO MPAC+4 AS A TEMP
015775,002847: 41,3467 04473 REQUESTC TC RELDSP
015776,002848: 41,3470 34233 CA ENDINST
015777,002849: 41,3471 54157 TS MPAC +3 # TC ENDOFJOB INTO MPAC+3
015778,002850: 41,3472 00006 EXTEND
015779,002851: 41,3473 31047 DCA DSPTEM1 +1 # JOB ADRES INTO MPAC+1
015780,002852: 41,3474 52156 DXCH MPAC +1 # BBCON INTO MPAC+2
015781,002853: 41,3475 30160 CA MPAC +4 # PRIO IN A
015782,002854: 41,3476 00004 INHINT
015783,002855: 41,3477 00154 TC MPAC
015784,002856:
015785,002857: 41,3500 34370 SETVAC CAF TCFINDVC
015786,002858: 41,3501 03463 TC REQEX1
015787,002859:
015788,002860: # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
015789,002861: # IT DOES ENDOFJOB AFTER ENTERING REQUEST.DISPLAY SYST IS RELEASED.
015790,002862: # IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
015791,002863: # COMPONENT 1 DELAY (LOW BITS)
015792,002864: # COMPONENT 2 TASK ADRES (12 BIT)
015793,002865: # COMPONENT 3 BBCON
015794,002866:
015795,002867: 41,3502 34366 VBRQWAIT CAF TCWAIT
015796,002868: 41,3503 54154 TS MPAC # TC WAITLIST INTO MPAC
015797,002869: 41,3504 31045 CA DSPTEM1 # TIME DELAY
015798,002870: 41,3505 03466 ENDRQWT TC REQUESTC -1
015799,002871:
015800,002872: # REQUESTC WILL PUT TASK ADRES INTO MPAC+1, BBCON INTO MPAC+2,
015801,002873: # TC ENDOFJOB INTO MPAC+3. IT WILL TAKE TIME DELAY OUT OF MPAC+4 AND
015802,002874: # LEAVE IT IN A, INHINT AND TC MPAC.
015803,002875:
015804,002876:
015805,002877: 40,3343 SETLOC NVSBENDL +1
015806,002878: 40,3343 COUNT 40/PIN
015807,002879:
015808,002880: 40,3343 34712 VBPROC CAF ONE # PROCEED WITHOUT DATA
015809,002881: 40,3344 55014 TS LOADSTAT
015810,002882: 40,3345 04220 TC KILMONON # TURN ON KILL MONITOR BIT
015811,002883: 40,3346 04473 TC RELDSP
015812,002884: 40,3347 04447 TC FLASHOFF
015813,002885: 40,3350 03450 TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
015814,002886:
![]() |
Page 359 |
015816,002888: 40,3351 44712 VBTERM CS ONE
015817,002889: 40,3352 03344 TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
015818,002890:
015819,002891:
015820,002892: # PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
015821,002893: # EXECUTIVE CONTROL, WITH CHRPRIO.
015822,002894: 40,3353 34714 PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
015823,002895: 40,3354 55013 TS REQRET
015824,002896: 40,3355 44374 CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
015825,002897: 40,3356 54777 TS DSPCOUNT
015826,002898: 40,3357 03343 TC VBPROC
015827,002899:
015828,002900:
015829,002901: # VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
015830,002902: # (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
015831,002903: # DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS,PLEASE PERFORM,
015832,002904: # OR PLEASE MARK VERBS BECAUSE THEY ALREADY USE L+3 IN ANOTHER CONTEXT.)
015833,002905:
015834,002906: 40,3360 44714 VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN.
015835,002907: 40,3361 03344 TC VBPROC +1
015836,002908:
015837,002909:
015838,002910: # FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
015839,002911: # END OF LOAD.
015840,002912:
![]() |
Page 360 |
015842,002914: # KEY RELEASE ROUTINE
015843,002915:
015844,002916: # THIS ROUTINE ALWAYS TURNS OFF THE UPACT LIGHT AND ALWAYS CLEARS DSPLOCK.
015845,002917:
015846,002918: # THE HIGHEST PRIORITY FUNCTION OF THE KEY RELEASE BUTTON IS THE
015847,002919: # UNSUSPENDING OF A SUSPENDED MONITOR WHICH WAS EXTERNALLY INITIATED.
015848,002920: # THIS FUNCTION IS ACCOMPLISHED BY CLEARING DSPLOCK AND TURNING OFF
015849,002921: # THE KEY RELEASE LIGHT IF BOTH DSPLIST AND CADRSTOR ARE EMPTY.
015850,002922:
015851,002923: # IF NO SUCH MONITOR EXISTS, THEN RELDSP IS EXECUTED TO CLEAR DSPLOCK
015852,002924: # AND THE EXTERNAL MONITOR BIT (FREEING THE DISPLAY SYSTEM FOR INTERNAL
015853,002925: # USE), TURN OFF THE KEY RELEASE LIGHT, AND WAKE UP ANY JOB IN DSPLIST.
015854,002926:
015855,002927: # IN ADDITION IF THERE IS A JOB IN ENDIDLE, THEN CONTROL IS TRANSFERRED
015856,002928: # TO PINBRNCH (IN DISPLAY INTERFACE ROUTINE) TO RE-EXECUTE THE SERIES OF
015857,002929: # NVSUB CALLS ETC. THAT PRECEDED THE ENDIDLE CALL STILL AWAITING RESPONSE.
015858,002930: # THIS FEATURE IS INTENDED FOR USE WHEN THE OPERATOR HAS BEEN REQUESTED TO
015859,002931: # RESPOND TO SOME INTERNAL ACTION THAT USED ENDIDLE, BUT HE HAS WRITTEN
015860,002932: # OVER THE INFORMATION ON THE DISPLAY PANEL BY SOME DISPLAYS OF HIS OWN
015861,002933: # INITIATION WHICH DO NOT SERVE AS RESPONSES. HITTING KEY RLSE WILL
015862,002934: # RE-ESTABLISH THE DISPLAYS TO THE STATE THEY WERE IN BEFORE HE OBSCURED
015863,002935: # THEM, SO THAT HE CAN SEE THE WAITING REQUEST. THIS WORKS ONLY FOR
015864,002936: # INTERNAL PROGRAMS THAT USED ENDIDLE THROUGH MARGARETS DISPLAY
015865,002937: # SUBROUTINES.
015866,002938:
015867,002939: 40,3362 44710 VBRELDSP CS BIT3
015868,002940: 40,3363 00006 EXTEND
015869,002941: 40,3364 03011 WAND DSALMOUT # TURN OFF UPACT LITE
015870,002942: 40,3365 10115 CCS 21/22REG # OLD DSPLOCK
015871,002943: 40,3366 34675 CAF BIT14
015872,002944: 40,3367 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT (EMB)
015873,002945: 40,3370 10000 CCS A
015874,002946: 40,3371 03400 TC UNSUSPEN # OLD DSPLOCK AND EMB BOTH 1, UNSUSPEND.
015875,002947: 40,3372 04473 TSTLTS4 TC RELDSP # NOT UNSUSPENDING EXTERNAL MONITOR,
015876,002948: 40,3373 11042 CCS CADRSTOR # RELEASE DISPLAY SYSTEM AND
015877,002949: 40,3374 03376 TC +2 # DO RE-ESTABLISH IF CADRSTOR IS FULL.
015878,002950: 40,3375 05112 TC ENDOFJOB
015879,002951: 40,3376 04574 TC POSTJUMP
015880,002952: 40,3377 21176 CADR PINBRNCH
015881,002953: 40,3400 34714 UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED,
015882,002954: 40,3401 55012 TS DSPLOCK # JUST UNSUSPEND IT BY CLEARING DSPLOCK.
015883,002955: 40,3402 11042 CCS CADRSTOR # TURN KEY RELEASE LIGHT OFF IF BOTH
015884,002956: 40,3403 05112 TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY.
015885,002957: 40,3404 04516 TC RELDSP1
015886,002958: 40,3405 05112 TC ENDOFJOB
015887,002959:
015888,002960: 40,3406 ENDRELDS EQUALS
015889,002961:
![]() |
Page 361 |
015891,002963: # NVSUB IS USED FOR SUB ROUTINE CALLS FROM WITHIN COMPUTER. IT CAN BE
015892,002964: # USED TO CALL THE COMBINATION OF ANY DISPLAY, LOAD, OR MONITOR VERB
015893,002965: # TOGETHER WITH ANY NOUN AVAILABLE TO THE KEYBOARD.
015894,002966: # PLACE 0VVVVVVVNNNNNNN INTO A.
015895,002967: # V-S ARE THE 7 BIT VERB CODE. N-S ARE THE 7 BIT NOUN CODE.
015896,002968:
015897,002969: # IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE
015898,002970: # VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS-
015899,002971: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015900,002972:
015901,002973: # NVSUB CAN BE USED WITH MACH CADR TO BE SPEC BY PLACING THE CADR INTO
015902,002974: # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
015903,002975:
015904,002976: # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY
015905,002977: # SYSTEM IS AVAILABLE. THE NEW NOUN AND VERB CODES ARE DISPLAYED.
015906,002978: # IF V:S =0, THE NEW NOUN CODE IS DISPLAYED ONLY(RETURN WITH NO FURTHER
015907,002979: # ACTION). IF N-S =0, THE NEW VERB CODE IS DISPLAYED ONLY(RETURN WITH NO
015908,002980: # FURTHER ACTION).
015909,002981:
015910,002982: # IT RETURNS TO 1+ CALLING LOC WITHOUT PERFORMING TASK, IF DISPLAY
015911,002983: # SYSTEM IS BLOCKED (NOTHING IS DISPLAYED IN THIS CASE).
015912,002984: # IT DOES TC ABORT (WITH OCT 01501) IF IT ENCOUNTERS A DISPLAY PROGRAM
015913,002985: # ALARM CONDITION BEFORE RETURN TO CALLER.
015914,002986:
015915,002987: # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
015916,002988: # KEY, EXCEPT ERROR LIGHT RESET
015917,002989: # IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS,
015918,002990: # PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE,
015919,002991: # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
015920,002992: # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
015921,002993: # MONITOR SET UP.
015922,002994:
015923,002995: # THE DISPLAY SYSTEM IS ALSO BLOCKED BY THE EXTERNAL MONITOR BIT, WHICH
015924,002996: # INDICATES AN EXTERNALLY INITIATED MONITOR IS RUNNING (SEE MONITOR)
015925,002997:
015926,002998: # A NVSUB CALL THAT PASSES DSPLOCK AND THE EXTERNAL MONITOR BIT ENDS OLD
015927,002999: # MONITOR.
015928,003000:
015929,003001: # DSPLOCK IS THE INTERLOCK FOR USE OF KEYBOARD AND DISPLAY SYSTEM WHICH
015930,003002: # LOCKS OUT INTERNAL USE WHENEVER THERE IS EXTERNAL KEYBOARD ACTION.
015931,003003:
015932,003004: # NVSUB SHOULD BE USED TWICE IN SUCCESSION FOR :PLEASE PERFORM: SITUATIONS
015933,003005: # (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
015934,003006: # ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE
015935,003007: # :CHECKLIST: NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE :CHECKLIST:
015936,003008: # NOUN. GO TO NVSUB AGAIN WITH THE :PLEASE PERFORM: VERB AND ZEROS IN THE
015937,003009: # LOW 7 BITS. THIS :PASTES UP: THE :PLEASE PERFORM: VERB INTO THE VERB
015938,003010: # LIGHTS.
015939,003011:
015940,003012: # NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
![]() |
Page 362 |
015942,003014: # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
015943,003015: # A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
015944,003016: # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
015945,003017: # SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
015946,003018: # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
015947,003019: # CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
015948,003020: # OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
015949,003021: # BLANKSUB. IF NVMONOPT IS USED WITH A VERB OTHER THAN A MONITOR VERB,
015950,003022: # THE PARAMETER IN L HAS NO EFFECT.
015951,003023:
015952,003024: # NVSUB IN FIXED-FIXED PLACES 2+CALLING LOC INTO NVQTEM, TC NVSUBEND INTO
015953,003025: # ENTRET. (THIS WILL RESTORE OLD CALLING BANK BITS)
015954,003026:
015955,003027: 4170 SETLOC ENDALM +1
015956,003028:
015957,003029: 4170 COUNT 02/PIN
015958,003030:
015959,003031: 4170 22007 NVSUB LXCH 7 # ZERO NVMONOPT OPTIONS
015960,003032: 4171 54123 NVMONOPT TS NVTEMP
015961,003033: 4172 34675 CAF BIT14
015962,003034: 4173 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
015963,003035: 4174 61012 AD DSPLOCK
015964,003036: 4175 10000 CCS A
015965,003037: 4176 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
015966,003038: 4177 34712 CAF ONE # DSP SYST AVAILABLE
015967,003039: 4200 60002 NVSBCOM AD Q
015968,003040: 4201 55037 TS NVQTEM # 2+ CALLING LOC INTO NVQTEM
015969,003041: 4202 23022 LXCH MONSAVE2 # STORE NVMONOPT OPTIONS
015970,003042: 4203 04220 TC KILMONON # TURN ON KILL MONITOR BIT
015971,003043: 4204 34215 NVSUBCOM CAF NVSBBBNK
015972,003044:
015973,003045: 4205 56006 XCH BBANK
015974,003046: 4206 00006 EXTEND # SAVE OLD SUPERBITS
015975,003047: 4207 04007 ROR SUPERBNK
015976,003048: 4210 55040 TS NVBNKTEM
015977,003049: 4211 34215 CAF PINSUPBT
015978,003050: 4212 00006 EXTEND
015979,003051: 4213 01007 WRITE SUPERBNK
015980,003052: 4214 02000 TC NVSUBB # GO TO NVSUB1 THRU STANDARD LOC
015981,003053: 4215 0777 EBANK= DSPCOUNT
015982,003054: 4215 62101 NVSBBBNK BBCON NVSUB1
015983,003055:
015984,003056: 4216 4215 PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBITS.
015985,003057:
015986,003058: 4216 53040 NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
015987,003059: 4217 05122 TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING
015988,003060:
015989,003061: 41,3506 SETLOC ENDRQWT +1
015990,003062:
015991,003063: 41,3506 COUNT 41/PIN
![]() |
Page 363 |
015993,003065: # BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
015994,003066: # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R-S ONLY
015995,003067:
015996,003068: 41,3506 64716 BLANKDSP AD SEVEN # 7,8,9,OR 10 (A HAD 0,1,2,OR 3)
015997,003069: 41,3507 00004 INHINT
015998,003070: 41,3510 54124 TS CODE # BLANK SPECIFIED DSPTABS
015999,003071: 41,3511 44677 CS BIT12
016000,003072: 41,3512 50124 INDEX CODE
016001,003073: 41,3513 57023 XCH DSPTAB
016002,003074: 41,3514 10000 CCS A
016003,003075: 41,3515 25016 INCR NOUT
016004,003076: 41,3516 03517 TC +1
016005,003077: 41,3517 10124 CCS CODE
016006,003078: 41,3520 03510 TC BLANKDSP +2
016007,003079: 41,3521 00003 RELINT
016008,003080: 41,3522 50123 INDEX NVTEMP
016009,003081: 41,3523 03530 TC +5
016010,003082: 41,3524 03525 TC +1 # NVTEMP HAS -4 (NEVER TOUCH MODREG)
016011,003083: 41,3525 55001 TS VERBREG # -3
016012,003084: 41,3526 55002 TS NOUNREG # -2
016013,003085: 41,3527 55015 TS CLPASS # -1
016014,003086: 41,3530 44374 CS VD1
016015,003087: 41,3531 54777 TS DSPCOUNT
016016,003088: 41,3532 04447 TC FLASHOFF # PROTECT AGAINST INVISIBLE FLASH
016017,003089: 41,3533 03556 TC ENTSET -2 # ZEROS REQRET
016018,003090:
016019,003091: 41,3534 33560 NVSUB1 CAF ENTSET # IN BANK
016020,003092: 41,3535 54136 TS ENTRET # SET RETURN TO NVSUBEND
016021,003093: 41,3536 10123 CCS NVTEMP # WHAT NOW
016022,003094: 41,3537 03543 TC +4 # NORMAL NVSUB CALL (EXECUTE VN OR PASTE)
016023,003095: 41,3540 02350 TC GODSPALM
016024,003096: 41,3541 03506 TC BLANKDSP # BLANK DISPLAY AS SPECIFIED
016025,003097: 41,3542 02350 TC GODSPALM
016026,003098: 41,3543 36043 CAF LOW7
016027,003099: 41,3544 70123 MASK NVTEMP
016028,003100: 41,3545 54157 TS MPAC +3 # TEMP FOR NOUN (CANT USE MPAC. DSPDECVN
016029,003101: 41,3546 30123 CA NVTEMP # USES MPAC, +1, +2
016030,003102: 41,3547 54023 TS EDOP # RIGHT 7
016031,003103: 41,3550 30023 CA EDOP
016032,003104: 41,3551 54160 TS MPAC +4 # TEMP FOR VERB (CANT USE MPAC+1. DSPDECVN
016033,003105: # USES MPAC, +1, +2).
016034,003106: 41,3552 10157 CCS MPAC +3 # TEST NOUN
016035,003107: 41,3553 03561 TC NVSUB2 # IF NOUN NOT +0, GO ON
016036,003108: 41,3554 30160 CA MPAC +4
016037,003109: 41,3555 02336 TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB . THEN RETURN
016038,003110: 41,3556 34714 CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
016039,003111: 41,3557 55013 TS REQRET # BE EXECUTED BY OPERATOR.
016040,003112: 41,3560 04216 ENTSET TC NVSUBEND
016041,003113: 41,3561 10160 NVSUB2 CCS MPAC +4 # TEST VERB
016042,003114: 41,3562 03566 TC +4 # IF VERB NOT +0, GO ON
![]() |
Page 364 |
016044,003116: 41,3563 30157 CA MPAC +3
016045,003117: 41,3564 02316 TC UPDATNN -1 # IF VERB = +0, DISPLAY NOUN. THEN RETURN
016046,003118: 41,3565 04216 TC NVSUBEND
016047,003119: 41,3566 30156 CA MPAC +2 # TEMP FOR MACH CADR TO BE SPEC. (DSPDECVN
016048,003120: 41,3567 54161 TS MPAC +5 # USES MPAC, +1, +2)
016049,003121: 41,3570 30160 CA MPAC +4
016050,003122: 41,3571 02336 TC UPDATVB -1 # IF BOTH NOUN AND VERB NOT +0, DISPLAY
016051,003123: 41,3572 30157 CA MPAC +3 # BOTH AND GO TO ENTPAS0.
016052,003124: 41,3573 02316 TC UPDATNN -1
016053,003125: 41,3574 34714 CAF ZERO
016054,003126: 41,3575 55014 TS LOADSTAT # SET FOR WAITING FOR DATA CONDITION
016055,003127: 41,3576 55015 TS CLPASS
016056,003128: 41,3577 55013 TS REQRET # SET REQRET FOR PASS 0.
016057,003129: 41,3600 30161 CA MPAC +5 # RESTORES MACH CADR TO BE SPEC TO MPAC+2
016058,003130: 41,3601 54156 TS MPAC +2 # FOR USE IN INTMCTBS (IN ENTPAS0).
016059,003131: 41,3602 02035 ENDNVSB1 TC ENTPAS0
016060,003132:
016061,003133:
016062,003134: # IF INTERNAL MACH CADR TO BE SPECIFIED, MPAC+2 WILL BE PLACED INTO
016063,003135: # NOUNCADR IN ENTPAS0 (INTMCTBS ).
016064,003136:
016065,003137:
016066,003138: 4220 SETLOC NVSUBEND +2
016067,003139: 4220 COUNT 02/PIN
016068,003140:
016069,003141: # FORCE BIT 15 OF MONSAVE1 TO 1.
016070,003142: 4220 34674 KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT.
016071,003143: 4221 55021 TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL
016072,003144: # MONITOR BIT.
016073,003145: 4222 00002 TC Q
016074,003146:
016075,003147:
016076,003148: # LOADSTAT +0 INACTIVE(WAITING FOR DATA). SET BY NVSUB
016077,003149: # +1 PROCEED NO DATA. SET BY SPECIAL VERB
016078,003150: # -1 TERMINATE SET BY SPECIAL VERB
016079,003151: # -0 DATA IN SET BY END OF LOAD ROUTINE
016080,003152: # OR RESEQUENCE SET BY VERB 32
016081,003153:
016082,003154:
016083,003155: # L TC ENDIDLE (FIXED FIXED)
016084,003156: # ROUTINES THAT REQUEST LOADS THROUGH NVSUB SHOULD USE ENDIDLE WHILE
016085,003157: # WAITING FOR THE DATA TO BE LOADED. ENDIDLE PUTS CURRENT JOB TO SLEEP.
016086,003158: # ENDIDLE CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016087,003159: # SINCE JOB SLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016088,003160: # RECALTST TESTS LOADSTAT AND WAKES JOB UP TO,
016089,003161: # L+1 FOR TERMINATE
016090,003162: # L+2 FOR PROCEED WITHOUT DATA
016091,003163: # L+3 FOR DATA IN, OR RESEQUENCE
016092,003164: # IT DOES NOTHING IF LOADSTAT INDICATES WAITING FOR DATA.
016093,003165:
![]() |
Page 365 |
016095,003167:
016096,003168: # ENDIDLE ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO SLEEP
016097,003169: # IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO ENDIDLE WHEN
016098,003170: # 1) CADRSTOR NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF ENDIDLE IS
016099,003171: # EXCEEDED. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016100,003172: # 2) DSPLIST NOT= +0. THIS INDICATES A JOB IS ALREADY ASLEEP DUE TO
016101,003173: # NVSUBUSY.
016102,003174:
016103,003175: 4223 22002 ENDIDLE LXCH Q # RETURN ADDRESS INTO L.
016104,003176: 4224 04234 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0
016105,003177: 4225 04240 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0
016106,003178: 4226 30001 CA L # DONT SET DSPLOCK TO 1 SO CAN USE
016107,003179: 4227 74747 MASK LOW10 # ENDIDLE WITH NVSUB INITIATED MONITOR.
016108,003180: 4230 60004 AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR.
016109,003181: 4231 55042 TS CADRSTOR
016110,003182: 4232 05070 TC JOBSLEEP
016111,003183:
016112,003184:
016113,003185: 4233 05112 ENDINST TC ENDOFJOB
016114,003186:
016115,003187:
016116,003188: 4234 11042 ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
016117,003189: 4235 04243 TC DSPABORT # RETURNS IF CADRSTOR = +0.
016118,003190: 4236 00002 TC Q
016119,003191: 4237 04243 TC DSPABORT
016120,003192:
016121,003193: 4240 11043 ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
016122,003194: 4241 04243 TC DSPABORT # RETURNS IF DSPLIST = +0.
016123,003195: 4242 00002 TC Q
016124,003196: 4243 05622 DSPABORT TC POODOO
016125,003197: 4244 01206 OCT 01206
016126,003198:
016127,003199:
016128,003200: # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
016129,003201: # IT DOES ENDOFJOB.
016130,003202:
016131,003203: 4245 34215 JAMTERM CAF PINSUPBT
016132,003204: 4246 00006 EXTEND
016133,003205: 4247 01007 WRITE SUPERBNK
016134,003206: 4250 34256 CAF 34DEC
016135,003207: 4251 55013 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
016136,003208: 4252 44374 CS VD1
016137,003209: 4253 54777 TS DSPCOUNT
016138,003210: 4254 04574 TC POSTJUMP
016139,003211: 4255 61351 CADR VBTERM
016140,003212:
016141,003213: 4256 00042 34DEC DEC 34 B-14
016142,003214:
016143,003215:
016144,003216: # JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
016145,003217: # FUNCTION. IT DOES ENDOFJOB.
016146,003218:
![]() |
Page 366 |
016148,003220: 4257 34215 JAMPROC CAF PINSUPBT
016149,003221: 4260 00006 EXTEND
016150,003222: 4261 01007 WRITE SUPERBNK
016151,003223: 4262 34270 CAF 33DEC
016152,003224: 4263 55013 TS REQRET # LEAVE ENTER SET FOR ENTPASS0.
016153,003225: 4264 44374 CS VD1
016154,003226: 4265 54777 TS DSPCOUNT
016155,003227: 4266 04574 TC POSTJUMP
016156,003228: 4267 61343 CADR VBPROC
016157,003229:
016158,003230: 4270 00041 33DEC DEC 33 B-14
016159,003231:
016160,003232:
016161,003233: # BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
016162,003234: # CALL WITH BLANKING CODE IN A.
016163,003235: # BIT1=1 BLANKS R1, BIT2=1 BLANKS R2, BIT3=1 BLANKS R3.
016164,003236: # ANY COMBINATION OF THESE BITS IS ACCEPTED.
016165,003237:
016166,003238: # DSPCOUNT IS RESTORED TO STATE IT WAS IN BEFORE BLANKSUB WAS EXECUTED.
016167,003239:
016168,003240: 4271 74716 BLANKSUB MASK SEVEN
016169,003241: 4272 54123 TS NVTEMP # STORE BLANKING CODE IN NVTEMP.
016170,003242: 4273 34675 CAF BIT14
016171,003243: 4274 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
016172,003244: 4275 61012 AD DSPLOCK
016173,003245: 4276 10000 CCS A
016174,003246: 4277 00002 TC Q # DSP SYST BLOCKED. RET TO 1+ CALLING LOC
016175,003247: 4300 24002 INCR Q # DSP SYST AVAILABLE
016176,003248: # SET RETURN FOR 2+ CALLING LOC
016177,003249: 4301 10123 CCS NVTEMP
016178,003250: 4302 14304 TCF +2
016179,003251: 4303 00002 TC Q # NOTHING TO BLANK. RET TO 2+ CALLING LOC
016180,003252: 4304 22002 LXCH Q # SET RETURN FOR 2 + CALLING LOC
016181,003253: 4305 34316 CAF BLNKBBNK
016182,003254: 4306 56006 XCH BBANK
016183,003255: 4307 00006 EXTEND
016184,003256: 4310 04007 ROR SUPERBNK # SAVE OLD SUPERBITS.
016185,003257: 4311 52131 DXCH BUF
016186,003258: 4312 34215 CAF PINSUPBT
016187,003259: 4313 00006 EXTEND
016188,003260: 4314 01007 WRITE SUPERBNK
016189,003261: 4315 03406 TC BLNKSUB1
016190,003262:
016191,003263: 4316 0777 EBANK= DSPCOUNT
016192,003264: 4316 60101 BLNKBBNK BBCON BLNKSUB1
016193,003265: 4317 ENDBLFF EQUALS
016194,003266:
016195,003267: 40,3406 SETLOC ENDRELDS
016196,003268: 40,3406 COUNT 40/PIN
016197,003269:
![]() |
Page 367 |
016199,003271: 40,3406 30777 BLNKSUB1 CA DSPCOUNT # SAVE OLD DSPCOUNT FOR LATER RESTORATION
016200,003272: 40,3407 54132 TS BUF +2
016201,003273: 40,3410 34712 CAF BIT1 # TEST BIT1. SEE IF R1 TO BE BLANKED.
016202,003274: 40,3411 03430 TC TESTBIT
016203,003275: 40,3412 34333 CAF R1D1
016204,003276: 40,3413 02436 TC 5BLANK -1
016205,003277: 40,3414 34711 CAF BIT2 # TEST BIT2. SEE IF R2 TO BE BLANKED.
016206,003278: 40,3415 03430 TC TESTBIT
016207,003279: 40,3416 34334 CAF R2D1
016208,003280: 40,3417 02436 TC 5BLANK -1
016209,003281: 40,3420 34710 CAF BIT3 # TEST BIT3. SEE IF R3 TO BE BLANKED.
016210,003282: 40,3421 03430 TC TESTBIT
016211,003283: 40,3422 34335 CAF R3D1
016212,003284: 40,3423 02436 TC 5BLANK -1
016213,003285: 40,3424 30132 CA BUF +2 # RESTORE DSPCOUNT TO STATE IT HAD
016214,003286: 40,3425 54777 TS DSPCOUNT # BEFORE BLANKSUB.
016215,003287: 40,3426 52131 DXCH BUF # CALL L+2 DIRECTLY.
016216,003288: 40,3427 05123 TC SUPDXCHZ +1 # DTCB WITH SUPERBIT SWITCHING
016217,003289:
016218,003290: 40,3430 70123 TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE.
016219,003291: 40,3431 10000 CCS A
016220,003292: 40,3432 00002 TC Q # IF CURRENT BIT = 1, RETURN TO L+1.
016221,003293: 40,3433 50002 INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3.
016222,003294: 40,3434 00002 TC 2
016223,003295:
016224,003296: 40,3435 ENDBSUB1 EQUALS
016225,003297:
016226,003298:
016227,003299: # DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
016228,003300: # PRIO 30000 FOR DSPMMJB AND RETURNS TO CALLER.
016229,003301:
016230,003302: # IF MODREG CONTAINS -0, DSPMMJB BLANKS THE MODE LIGHTS.
016231,003303:
016232,003304: # DSPMM MUST BE IN BANK 27 OR LOWER, SO IT CAN BE CALLED VIA BANKCALL.
016233,003305:
016234,003306: 07,2440 BANK 7
016235,003307: 04,2000 SETLOC PINBALL4
016236,003308: 04,2000 BANK
016237,003309:
016238,003310: 04,2537 COUNT 07/PIN
016239,003311:
016240,003312: 04,2537 56002 DSPMM XCH Q
016241,003313: 04,2540 54154 TS MPAC
016242,003314: 04,2541 00004 INHINT
016243,003315: 04,2542 34371 CAF CHRPRIO
016244,003316: 04,2543 05027 TC NOVAC
016245,003317: 04,2544 0777 EBANK= DSPCOUNT
016246,003318: 04,2544 03435 60101 2CADR DSPMMJB
016247,003319: 04,2546 00003 RELINT
![]() |
Page 368 |
016249,003321: 04,2547 00154 ENDSPMM TC MPAC
016250,003322:
016251,003323: # DSPMM PLACE MAJOR MODE CODE INTO MODREG
016252,003324:
016253,003325: 40,3435 SETLOC ENDBSUB1
016254,003326:
016255,003327: 40,3435 COUNT 40/PIN
016256,003328:
016257,003329: 40,3435 34376 DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
016258,003330: 40,3436 56777 XCH DSPCOUNT
016259,003331: 40,3437 54140 TS DSPMMTEM # SAVE DSPCOUNT
016260,003332: 40,3440 11011 CCS MODREG
016261,003333: 40,3441 64712 AD ONE
016262,003334: 40,3442 03211 TC DSPDECVN # IF MODREG IS + OR +0, DISPLAY MODREG
016263,003335: 40,3443 03445 TC +2 # IF MODREG IS -NZ, DO NOTHING
016264,003336: 40,3444 02502 TC 2BLANK # IF MODREG IS -0, BLANK MM
016265,003337: 40,3445 56140 XCH DSPMMTEM # RESTORE DSPCOUNT
016266,003338: 40,3446 54777 TS DSPCOUNT
016267,003339: 40,3447 05112 TC ENDOFJOB
016268,003340:
016269,003341:
016270,003342: # RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
016271,003343: # EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
016272,003344: # EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
016273,003345:
016274,003346: # IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
016275,003347: # LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
016276,003348:
016277,003349: 40,3450 11042 RECALTST CCS CADRSTOR
016278,003350: 40,3451 03453 TC RECAL1
016279,003351: 40,3452 05112 TC ENDOFJOB # NORMAL EXIT IF KEYBOARD INITIATED
016280,003352: 40,3453 34714 RECAL1 CAF ZERO
016281,003353: 40,3454 57042 XCH CADRSTOR
016282,003354: 40,3455 00004 INHINT
016283,003355: 40,3456 05074 TC JOBWAKE
016284,003356: 40,3457 11014 CCS LOADSTAT
016285,003357: 40,3460 03502 TC DOPROC # + PROCEED WITHOUT DATA
016286,003358: 40,3461 05112 TC ENDOFJOB # PATHALOGICAL CASE EXIT
016287,003359: 40,3462 03500 TC DOTERM # - TERMINATE
016288,003360: 40,3463 34711 CAF TWO # -0 DATA IN OR RESEQUENCE
016289,003361: 40,3464 50064 RECAL2 INDEX LOCCTR
016290,003362: 40,3465 60164 AD LOC # LOC IS + FOR BASIC JOBS
016291,003363: 40,3466 50064 INDEX LOCCTR
016292,003364: 40,3467 54164 TS LOC
016293,003365: 40,3470 31002 CA NOUNREG # SAVE VERB IN MPAC, NOUN IN MPAC+1 AT
016294,003366: 40,3471 54001 TS L # TIME OF RESPONSE TO ENDIDLE FOR
016295,003367: 40,3472 31001 CA VERBREG # POSSIBLE LATER TESTING BY JOB THAT HAS
016296,003368: 40,3473 50064 INDEX LOCCTR # BEEN WAKED UP.
016297,003369: 40,3474 52155 DXCH MPAC
016298,003370: 40,3475 00003 RELINT
![]() |
Page 369 |
016300,003372: 40,3476 04473 RECAL3 TC RELDSP
016301,003373: 40,3477 05112 TC ENDOFJOB
016302,003374:
016303,003375: 40,3500 34714 DOTERM CAF ZERO
016304,003376: 40,3501 03464 TC RECAL2
016305,003377:
016306,003378: 40,3502 34712 DOPROC CAF ONE
016307,003379: 40,3503 03464 TC RECAL2
016308,003380:
![]() |
Page 370 |
016310,003382: # MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
016311,003383:
016312,003384:
016313,003385: 4317 SETLOC ENDBLFF
016314,003386:
016315,003387: 4317 COUNT 02/PIN
016316,003388:
016317,003389: # SETNCADR E CADR ARRIVES IN A. IT IS STORED IN NOUNCADR. EBANK BITS
016318,003390: # ARE SET. E ADRES IS DERIVED AND PUT INTO NOUNADD.
016319,003391:
016320,003392: 4317 55017 SETNCADR TS NOUNCADR # STORE ECADR
016321,003393: 4320 54003 TS EBANK # SET EBANK BITS
016322,003394: 4321 74373 MASK LOW8
016323,003395: 4322 64744 AD OCT1400
016324,003396: 4323 54145 TS NOUNADD # PUT E ADRES INTO NOUNADD
016325,003397: 4324 00002 TC Q
016326,003398:
016327,003399:
016328,003400: # SETNADD GETS E CADR FROM NOUNCADR, SETS EBANK BITS, DERIVES
016329,003401: # E ADRES AND PUTS IT INTO NOUNADD.
016330,003402:
016331,003403: 4325 31017 SETNADD CA NOUNCADR
016332,003404: 4326 14320 TCF SETNCADR +1
016333,003405:
016334,003406:
016335,003407: # SETEBANK E CADR ARRIVES IN A. EBANK BITS ARE SET. E ADRES IS
016336,003408: # DERIVED AND LEFT IN A.
016337,003409:
016338,003410: 4327 54003 SETEBANK TS EBANK # SET EBANK BITS
016339,003411: 4330 74373 MASK LOW8
016340,003412: 4331 64744 AD OCT1400 # E ADRES LEFT IN A
016341,003413: 4332 00002 TC Q
016342,003414:
016343,003415:
016344,003416: 4333 00016 R1D1 OCT 16 # THESE 3 CONSTANTS FORM A PACKED TABLE.
016345,003417: 4334 00011 R2D1 OCT 11 # DONT SEPARATE.
016346,003418: 4335 00004 R3D1 OCT 4
016347,003419:
016348,003420: 4336 54020 RIGHT5 TS CYR
016349,003421: 4337 40020 CS CYR
016350,003422: 4340 40020 CS CYR
016351,003423: 4341 40020 CS CYR
016352,003424: 4342 40020 CS CYR
016353,003425: 4343 56020 XCH CYR
016354,003426: 4344 00002 TC Q
016355,003427:
016356,003428: 4345 54022 LEFT5 TS CYL
016357,003429: 4346 40022 CS CYL
016358,003430: 4347 40022 CS CYL
016359,003431: 4350 40022 CS CYL
![]() |
Page 371 |
016361,003433: 4351 40022 CS CYL
016362,003434: 4352 56022 XCH CYL
016363,003435: 4353 00002 TC Q
016364,003436:
016365,003437: 4354 60000 SLEFT5 DOUBLE
016366,003438: 4355 60000 DOUBLE
016367,003439: 4356 60000 DOUBLE
016368,003440: 4357 60000 DOUBLE
016369,003441: 4360 60000 DOUBLE
016370,003442: 4361 00002 TC Q
016371,003443:
016372,003444:
016373,003445: 4362 00037 LOW5 OCT 37 # THESE 3 CONSTANTS FORM A PACKED TABLE.
016374,003446: 4363 01740 MID5 OCT 1740 # DONT SEPARATE.
016375,003447: 4364 76000 HI5 OCT 76000 # MUST STAY HERE
016376,003448:
016377,003449: 4365 05027 TCNOVAC TC NOVAC
016378,003450: 4366 05140 TCWAIT TC WAITLIST
016379,003451: 4367 05213 TCTSKOVR TC TASKOVER
016380,003452: 4370 05042 TCFINDVC TC FINDVAC
016381,003453:
016382,003454:
016383,003455: 4371 30000 CHRPRIO OCT 30000 # EXEC PRIORITY OF CHARIN
016384,003456:
016385,003457:
016386,003458: 4372 03777 LOW11 OCT 3777
016387,003459: 4373 4372 B12-1 EQUALS LOW11
016388,003460: 4373 00377 LOW8 OCT 377
016389,003461:
016390,003462:
016391,003463: 4374 00023 VD1 OCT 23 # THESE 3 CONSTANTS FORM A PACKED TABLE.
016392,003464: 4375 00021 ND1 OCT 21 # DONT SEPARATE.
016393,003465: 4376 00025 MD1 OCT 25
016394,003466:
016395,003467: 4377 00012 BINCON DEC 10 B-14
016396,003468:
016397,003469: 4400 34704 FALTON CA BIT7 # TURN ON OPERATOR ERROR LIGHT
016398,003470: 4401 00006 EXTEND
016399,003471: 4402 05011 WOR DSALMOUT # BIT 7 OF CHANNEL 11
016400,003472: 4403 00002 TC Q
016401,003473:
016402,003474: 4404 44704 FALTOF CS BIT7 # TURN OFF OPERATOR ERROR LIGHT
016403,003475: 4405 00006 EXTEND
016404,003476: 4406 03011 WAND DSALMOUT # BIT 7 OF CHANNEL 11
016405,003477: 4407 00002 TC Q
016406,003478:
016407,003479: 4410 34706 RELDSPON CAF BIT5 # TURN ON KEY RELEASE LIGHT
016408,003480: 4411 00006 EXTEND
016409,003481: 4412 05011 WOR DSALMOUT # BIT 5 OF CHANNEL 11
016410,003482: 4413 00002 TC Q
016411,003483:
![]() |
Page 372 |
016413,003485: 4414 00006 LODSAMPT EXTEND
016414,003486: 4415 30025 DCA TIME2
016415,003487: 4416 52014 DXCH SAMPTIME
016416,003488: 4417 00002 TC Q
016417,003489:
016418,003490:
016419,003491: 4420 00006 TPSL1 EXTEND # SHIFTS MPAC, +1, +2 LEFT 1
016420,003492: 4421 30156 DCA MPAC +1 # LEAVES OVFIND SET TO +/- 1 FOR OF/UF
016421,003493: 4422 20156 DAS MPAC +1
016422,003494: 4423 60154 AD MPAC
016423,003495: 4424 26154 ADS MPAC
016424,003496: 4425 54007 TS 7 # TS A DOES NOT CHANGE A ON OF/UF.
016425,003497: 4426 00002 TC Q # NO NET OF/UF
016426,003498: 4427 54162 TS MPAC+6 # MPAC +6 SET TO +/- 1 FOR OF/UF
016427,003499: 4430 00002 TC Q
016428,003500:
016429,003501:
016430,003502: # IF MPAC, +1 ARE EACH +NZ OR +0 AND C(A)=-0, SHORTMP WRONGLY GIVES +0.
016431,003503: # IF MPAC, +1 ARE EACH -NZ OR -0 AND C(A)=+0, SHORTMP WRONGLY GIVES +0.
016432,003504: # PRSHRTMP FIXES FIRST CASE ONLY, BY MERELY TESTING C(A) AND IF IT = -0,
016433,003505: # SETTING RESULT TO -0.
016434,003506: # (DO NOT USE PRSHRTMP UNLESS MPAC, +1 ARE EACH +NZ OR +0, AS THEY ARE
016435,003507: # WHEN THEY CONTAIN TH E SF CONSTANTS.)
016436,003508:
016437,003509: 4431 54135 PRSHRTMP TS MPTEMP
016438,003510: 4432 10000 CCS A
016439,003511: 4433 30135 CA MPTEMP # C(A) +, DO REGULAR SHORTMP
016440,003512: 4434 17257 TCF SHORTMP +1 # C(A) +0, DO REGULAR SHORTMP
016441,003513: 4435 14433 TCF -2 # C(A) -, DO REGULAR SHORTMP
016442,003514: 4436 44714 CS ZERO # C(A) -0, FORCE RESULT TO -0 AND RETURN.
016443,003515: 4437 54154 TS MPAC
016444,003516: 4440 54155 TS MPAC +1
016445,003517: 4441 54156 TS MPAC +2
016446,003518: 4442 00002 TC Q
016447,003519:
016448,003520:
016449,003521: 4443 34705 FLASHON CAF BIT6 # TURN ON V/N FLASH
016450,003522: 4444 00006 EXTEND # BIT 6 OF CHANNEL 11
016451,003523: 4445 05011 WOR DSALMOUT
016452,003524: 4446 00002 TC Q
016453,003525:
016454,003526:
016455,003527: 4447 44705 FLASHOFF CS BIT6 # TURN OFF V/N FLASH
016456,003528: 4450 00006 EXTEND
016457,003529: 4451 03011 WAND DSALMOUT # BIT 6 OF CHANNEL 11
016458,003530: 4452 00002 TC Q
016459,003531:
![]() |
Page 373 |
016461,003533: # INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM
016462,003534:
016463,003535: # USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
016464,003536: # CONFUSION TO OPERATOR. THE OLD GRABLOCK (INTERNAL/INTERNAL INTERLOCK)
016465,003537: # HAS BEEN REMOVED AND THE INTERNAL USER NO LONGER HAS THE PROTECTION THIS
016466,003538: # OFFERED.
016467,003539:
016468,003540: # THERE ARE TWO WAYS A JOB CAN BE PUT TO SLEEP BY THE KEYBOARD + DISPLAY
016469,003541: # PROGRAM. 1) BY ENDIDLE
016470,003542: # 2) BY NVSUBUSY
016471,003543: # THE BASIC CONVENTION IS THAT ONLY ONE JOB WILL BE PERMITTED ASLEEP VIA
016472,003544: # THE KEYBOARD + DISPLAY PROGRAM AT A TIME. IF A JOB ATTEMPTS TO GO TO
016473,003545: # SLEEP BY MEANS OF (1) OR (2) AND THERE IS ALREADY A JOB ASLEEP THAT WAS
016474,003546: # PUT TO SLEEP BY (1) OR (2), THEN AN ABORT IS CAUSED.
016475,003547:
016476,003548:
016477,003549: # THE CALLING SEQUENCE FOR NVSUB IS
016478,003550: # CAF V/N
016479,003551: # L TC NVSUB
016480,003552: # L+1 RETURN HERE IF OPERATOR HAS INTERVENED
016481,003553: # L+2 RETURN HERE AFTER EXECUTION
016482,003554:
016483,003555:
016484,003556: # A ROUTINE CALLED NVSUBUSY IS PROVIDED (USE IS OPTIONAL) TO PUT
016485,003557: # YOUR JOB TO SLEEP UNTIL THE OPERATOR RELEASES THE KEYBOARD + DISPLAY
016486,003558: # SYSTEM. NVSUBUSY ALSO TURNS ON THE KEY RELEASE LIGHT.
016487,003559: # NVSUBUSY CANNOT BE CALLED FROM ERASABLE OR F/F MEMORY,
016488,003560: # SINCE JOBSLEEP AND JOBWAKE CAN HANDLE ONLY FIXED BANKS.
016489,003561:
016490,003562:
016491,003563: # THE CALLING SEQUENCE IS
016492,003564: # CAF WAKEFCADR
016493,003565: # TC NVSUBUSY
016494,003566:
016495,003567:
016496,003568: # .
016497,003569:
016498,003570:
016499,003571: # NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
016500,003572: # IS USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
016501,003573: # NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
016502,003574: # PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
016503,003575:
016504,003576:
016505,003577: # NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
016506,003578: # SLEEP IN PINBALL. IN PARTICULAR, IF AN ATTEMPT IS MADE TO GO TO NVSUBUSY
016507,003579: # WHEN
016508,003580: # 1) DSPLIST NOT= +0. THIS IS THE CASE WHERE THE CAPACITY OF THE DSPLIST
016509,003581: # IS EXCEEDED.
016510,003582: # 2) CADRSTOR NOT= +0. THIS INDICATES THAT A JOB IS ALREADY USING
![]() |
Page 374 |
016512,003584: # ENDIDLE. (+-NZ INDICATE A JOB IS ALREADY ASLEEP DUE TO ENDIDLE.)
016513,003585:
016514,003586: 4453 44460 PRENVBSY CS 2K+3 # SPECIAL ENTRANCE FOR ROUTINES IN FIXED
016515,003587: 4454 60002 AD Q # BANKS ONLY DESIRING THE FCADR OF(LOC
016516,003588: 4455 60004 AD FBANK # FROM WHICH THE TC PRENVBSY WAS DONE) -2
016517,003589: 4456 04574 NVSUBUSY TC POSTJUMP # TO BE ENTERED.
016518,003590: 4457 10550 CADR NVSUBSY1
016519,003591: 4460 02003 2K+3 OCT 2003
016520,003592:
016521,003593: # NVSUBSY1 MUST BE IN BANK 27 OR LOWER, SO IT WILL PUT CALLER TO SLEEP
016522,003594: # WITH HIS PROPER SUPERBITS.
016523,003595:
016524,003596: 04,2550 SETLOC ENDSPMM +1
016525,003597: 04,2550 COUNT 07/PIN
016526,003598:
016527,003599: 04,2550 54001 NVSUBSY1 TS L
016528,003600: 04,2551 04234 TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0.
016529,003601: 04,2552 04240 TC ISLIST+0 # ABORT IF DSPLIST NOT= +0.
016530,003602: 04,2553 04410 TC RELDSPON
016531,003603: 04,2554 30001 CA L
016532,003604: 04,2555 55043 TS DSPLIST
016533,003605: 04,2556 05070 ENDNVBSY TC JOBSLEEP
016534,003606:
016535,003607:
016536,003608: # NVSBWAIT IS A SPECIAL ENTRANCE FOR ROUTINES IN FIXED BANKS ONLY. IF
016537,003609: # SYSTEM IS NOT BUSY, IT EXECUTES V/N AND RETURNS TO L+1 (L= LOC FROM
016538,003610: # WHICH THE TC NVSBWAIT WAS DONE). IF SYSTEM IS BUSY, IT PUTS CALLING JOB
016539,003611: # TO SLEEP WITH L-1 GOING INTO LIST FOR EVENTUAL WAKING UP WHEN SYSTEM
016540,003612: # IS NOT BUSY.
016541,003613:
016542,003614: 4461 SETLOC NVSUBUSY +3
016543,003615: 4461 COUNT 02/PIN
016544,003616:
016545,003617: 4461 22007 NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS
016546,003618: 4462 54123 TS NVTEMP
016547,003619: 4463 34675 CAF BIT14
016548,003620: 4464 71021 MASK MONSAVE1 # EXTERNAL MONITOR BIT
016549,003621: 4465 61012 AD DSPLOCK
016550,003622: 4466 10000 CCS A
016551,003623: 4467 14471 TCF NVSBWT1 # BUSY
016552,003624: 4470 14200 TCF NVSBCOM # FREE. NVSUB WILL SAVE L+1 FOR RETURN
016553,003625: # AFTER EXECUTION.
016554,003626: 4471 24002 NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
016555,003627: 4472 14453 TCF PRENVBSY # GO TO SLEEP.
016556,003628:
016557,003629:
016558,003630: # RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
016559,003631: # VERB DISPATCHER, VBRESEQ, RECALTST.
016560,003632: # RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
016561,003633: 4473 56002 RELDSP XCH Q # SET DSPLOCK TO +0, TURN RELDSP LIGHT
![]() |
Page 375 |
016563,003635: 4474 54144 TS RELRET # OFF, SEARCH DSPLIST
016564,003636: 4475 44675 CS BIT14
016565,003637: 4476 00004 INHINT
016566,003638: 4477 71021 MASK MONSAVE1
016567,003639: 4500 55021 TS MONSAVE1 # TURN OFF EXTERNAL MONITOR BIT
016568,003640: 4501 11043 CCS DSPLIST
016569,003641: 4502 04504 TC +2
016570,003642: 4503 04507 TC RELDSP2 # LIST EMPTY
016571,003643: 4504 34714 CAF ZERO
016572,003644: 4505 57043 XCH DSPLIST
016573,003645: 4506 05074 TC JOBWAKE
016574,003646: 4507 00003 RELDSP2 RELINT
016575,003647: 4510 44706 CS BIT5 # TURN OFF KEY RELEASE LIGHT
016576,003648: 4511 00006 EXTEND # (BIT 5 OF CHANNEL 11)
016577,003649: 4512 03011 WAND DSALMOUT
016578,003650: 4513 34714 CAF ZERO
016579,003651: 4514 55012 TS DSPLOCK
016580,003652: 4515 00144 TC RELRET
016581,003653: 4516 56002 RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
016582,003654: 4517 54144 TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS
016583,003655: # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
016584,003656: # DSPLIST IS NOT EMPTY.
016585,003657: 4520 11043 CCS DSPLIST
016586,003658: 4521 04523 TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016587,003659: 4522 04507 TC RELDSP2 # +0 EMPTY. TURN OFF KEY RLSE LIGHT
016588,003660: 4523 34714 CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
016589,003661: 4524 55012 TS DSPLOCK
016590,003662: 4525 00144 TC RELRET
016591,003663:
016592,003664:
016593,003665: 4526 ENDPINBF EQUALS
016594,003666:
![]() |
Page 376 |
016596,003668: # PINTEST IS NEEDED FOR AUTO CHECK OF PINBALL.
016597,003669:
016598,003670: 4526 43,2002 PINTEST EQUALS LST2FAN
016599,003671:
![]() |
Page 377 |
016601,003673: # VBTSTLTS TURNS ON ALL DISPLAY PANEL LIGHTS. AFTER 5 SEC, IT TURNS
016602,003674: # OFF THE CAUTION AND STATUS LIGHTS.
016603,003675:
016604,003676: 41,3603 SETLOC ENDNVSB1 +1
016605,003677:
016606,003678: 41,3603 COUNT 41/PIN
016607,003679:
016608,003680: 41,3603 00004 VBTSTLTS INHINT
016609,003681: 41,3604 44712 CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
016610,003682: 41,3605 71321 MASK IMODES33 # TURN OUT ANY LAMPS.
016611,003683: 41,3606 64712 AD BIT1
016612,003684: 41,3607 55321 TS IMODES33
016613,003685:
016614,003686: 41,3610 33644 CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
016615,003687: 41,3611 00006 EXTEND # V/N FLASH, OPERATOR ERROR.
016616,003688: 41,3612 05011 WOR DSALMOUT
016617,003689: 41,3613 33645 CAF TSTCON2 # TURN ON NO ATT, GIMBAL LOCK, TRACKER,
016618,003690: 41,3614 55036 TS DSPTAB +11D # PROG ALM.
016619,003691: 41,3615 34701 CAF BIT10 # TURN ON TEST ALARM OUTBIT
016620,003692: 41,3616 00006 EXTEND
016621,003693: 41,3617 05013 WOR CHAN13
016622,003694: 41,3620 34377 CAF TEN
016623,003695: 41,3621 54117 TSTLTS1 TS ERCNT
016624,003696: 41,3622 43642 CS FULLDSP
016625,003697: 41,3623 50117 INDEX ERCNT
016626,003698: 41,3624 55023 TS DSPTAB
016627,003699: 41,3625 10117 CCS ERCNT
016628,003700: 41,3626 03621 TC TSTLTS1
016629,003701: 41,3627 43643 CS FULLDSP1
016630,003702: 41,3630 55024 TS DSPTAB +1 # TURN ON 3 PLUS SIGNS
016631,003703: 41,3631 55027 TS DSPTAB +4
016632,003704: 41,3632 55031 TS DSPTAB +6
016633,003705: 41,3633 34717 CAF ELEVEN
016634,003706: 41,3634 55016 TS NOUT
016635,003707: 41,3635 33647 CAF SHOLTS
016636,003708: 41,3636 05140 TC WAITLIST
016637,003709: 41,3637 1023 EBANK= DSPTAB
016638,003710: 41,3637 03650 62102 2CADR TSTLTS2
016639,003711: 41,3641 05112 TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
016640,003712: # ACTION) UNTIL TSTLTS3 TO INSURE THAT
016641,003713: # LIGHTS TEST WILL BE SEEN.
016642,003714:
016643,003715:
016644,003716: 41,3642 05675 FULLDSP OCT 05675 # DISPLAY ALL 8:S
016645,003717: 41,3643 07675 FULLDSP1 OCT 07675 # DISPLAY ALL 8:S AND +
016646,003718: 41,3644 00175 TSTCON1 OCT 00175
016647,003719: # UPLINK ACTIVITY, TEMP, KEY RLSE,
016648,003720: # V/N FLASH, OPERATOR ERROR.
016649,003721: 41,3645 40650 TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9.
![]() |
Page 378 |
016651,003723: # NO ATT, GIMBAL LOCK, TRACKER, PROG ALM.
016652,003724: 41,3646 00115 TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
016653,003725: # UPLINK ACTIVITY, TEMP, OPERATOR ERROR.
016654,003726: 41,3647 00764 SHOLTS OCT 764 # 5 SEC
016655,003727:
016656,003728:
016657,003729: 41,3650 34371 TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
016658,003730: 41,3651 05027 TC NOVAC
016659,003731: 41,3652 1023 EBANK= DSPTAB
016660,003732: 41,3652 03655 62102 2CADR TSTLTS3
016661,003733: 41,3654 05213 TC TASKOVER
016662,003734:
016663,003735:
016664,003736: 41,3655 43646 TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
016665,003737: 41,3656 00004 INHINT
016666,003738: 41,3657 00006 EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
016667,003739: 41,3660 03011 WAND DSALMOUT # OPERATOR ERROR.
016668,003740: 41,3661 44701 CS BIT10 # TURN OFF TEST ALARM OUTBIT
016669,003741: 41,3662 00006 EXTEND
016670,003742: 41,3663 03013 WAND CHAN13
016671,003743: 41,3664 34707 CAF BIT4 # MAKE NO ATT FOLLOW BIT 4 OF CHANNEL 12
016672,003744: 41,3665 00006 EXTEND # (NO ATT LIGHT ON IF IN COARSE ALIGN)
016673,003745: 41,3666 02012 RAND CHAN12
016674,003746: 41,3667 64674 AD BIT15 # TURN OFF AUTO, HOLD, FREE, SPARE,
016675,003747: 41,3670 55036 TS DSPTAB +11D # GIMBAL LOCK, SPARE, TRACKER, PROG ALM
016676,003748: 41,3671 43710 CS 13-11,1 # SET BITS TO INDICATE ALL LAMPS OUT. TEST
016677,003749: 41,3672 71321 MASK IMODES33 # LIGHTS COMPLETE.
016678,003750: 41,3673 64763 AD PRIO16
016679,003751: 41,3674 55321 TS IMODES33
016680,003752:
016681,003753: 41,3675 43711 CS OCT55000
016682,003754: 41,3676 71320 MASK IMODES30
016683,003755: 41,3677 64762 AD PRIO15 # 15000.
016684,003756: 41,3700 55320 TS IMODES30
016685,003757:
016686,003758: 41,3701 00003 RELINT
016687,003759:
016688,003760: 41,3702 04555 TC BANKCALL # REDISPLAY C(MODREG)
016689,003761: 41,3703 10537 CADR DSPMM
016690,003762: 41,3704 04220 TC KILMONON # TURN ON KILL MONITOR BIT.
016691,003763: 41,3705 04447 TC FLASHOFF # TURN OFF V/N FLASH.
016692,003764: 41,3706 04574 TC POSTJUMP # DOES RELDSP AND GOES TO PINBRNCH IF
016693,003765: 41,3707 61372 CADR TSTLTS4 # ENDIDLE IS AWAITING OPERATOR RESPONSE.
016694,003766: 41,3710 16001 13-11,1 OCT 16001
016695,003767: 41,3711 55000 OCT55000 OCT 55000
016696,003768: 41,3712 ENDPINS2 EQUALS
016697,003769:
![]() |
Page 379 |
016699,003771: # ERROR LIGHT RESET (RSET) TURNS OFF,
016700,003772: # UPLINK ACTIVITY, AUTO, HOLD, FREE, OPERATOR ERROR,
016701,003773: # PROG ALM, TRACKER FAIL.
016702,003774: # LEAVES GIMBAL LOCK AND NO ATT ALONE.
016703,003775: # IT ALSO ZEROES THE :TEST ALARM: OUT BIT, WHICH TURNS OFF STBY,RESTART.
016704,003776: # IT ALSO SETS :CAUTION RESET: TO 1.
016705,003777: # IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
016706,003778:
016707,003779: 40,3504 SETLOC DOPROC +2
016708,003780: 40,3504 COUNT 40/PIN
016709,003781:
016710,003782: 40,3504 56115 ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
016711,003783: 40,3505 55012 TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK UNCHANGED.
016712,003784: 40,3506 00004 INHINT
016713,003785: 40,3507 34701 CAF BIT10 # TURN ON :CAUTION RESET: OUTBIT
016714,003786: 40,3510 00006 EXTEND
016715,003787: 40,3511 05011 WOR DSALMOUT # BIT10 CHAN 11
016716,003788: 40,3512 33567 CAF GL+NOATT # LEAVE GIMBAL LOCK AND NO ATT INTACT,
016717,003789: 40,3513 71036 MASK DSPTAB +11D # TURNING OFF AUTO, HOLD, FREE,
016718,003790: 40,3514 64674 AD BIT15 # PROG ALARM, AND TRACKER.
016719,003791: 40,3515 55036 TS DSPTAB +11D
016720,003792: 40,3516 44763 CS PRIO16 # RESET FAIL BITS WHICH GENERATE PROG
016721,003793: 40,3517 71321 MASK IMODES33 # ALARM SO THAT IF THE FAILURE STILL
016722,003794: 40,3520 64763 AD PRIO16 # EXISTS, THE ALARM WILL COME BACK.
016723,003795: 40,3521 55321 TS IMODES33
016724,003796: 40,3522 44701 CS BIT10
016725,003797: 40,3523 71320 MASK IMODES30
016726,003798: 40,3524 64701 AD BIT10
016727,003799: 40,3525 55320 TS IMODES30
016728,003800:
016729,003801: 40,3526 44701 CS BIT10 # TURN OFF :TEST ALARM: OUTBIT.
016730,003802: 40,3527 00006 EXTEND
016731,003803: 40,3530 03013 WAND CHAN13
016732,003804: 40,3531 43565 CS ERCON # TURN OFF UPLINK ACTIVITY,
016733,003805: 40,3532 00006 EXTEND # OPERATOR ERROR.
016734,003806: 40,3533 03011 WAND DSALMOUT
016735,003807: 40,3534 34377 TSTAB CAF BINCON # (DEC 10)
016736,003808: 40,3535 54117 TS ERCNT # ERCNT = COUNT
016737,003809: 40,3536 00004 INHINT
016738,003810: 40,3537 50117 INDEX ERCNT
016739,003811: 40,3540 11023 CCS DSPTAB
016740,003812: 40,3541 64712 AD ONE
016741,003813: 40,3542 03547 TC ERPLUS
016742,003814: 40,3543 64712 AD ONE
016743,003815: 40,3544 40000 ERMINUS CS A
016744,003816: 40,3545 73570 MASK NOTBIT12
016745,003817: 40,3546 03552 TC ERCOM
016746,003818: 40,3547 40000 ERPLUS CS A
016747,003819: 40,3550 73570 MASK NOTBIT12
016748,003820: 40,3551 40000 CS A # MIGHT WANT TO RESET CLPASS, DECBRNCH,
![]() |
Page 380 |
016750,003822: 40,3552 50117 ERCOM INDEX ERCNT # ETC.
016751,003823: 40,3553 55023 TS DSPTAB
016752,003824: 40,3554 00003 RELINT
016753,003825: 40,3555 10117 CCS ERCNT
016754,003826: 40,3556 03535 TC TSTAB +1
016755,003827: 40,3557 34714 CAF ZERO
016756,003828: 40,3560 54375 TS FAILREG
016757,003829: 40,3561 54376 TS FAILREG +1
016758,003830: 40,3562 54377 TS FAILREG +2
016759,003831: 40,3563 55357 TS SFAIL
016760,003832: 40,3564 05112 TC ENDOFJOB
016761,003833:
016762,003834: 40,3565 00104 ERCON OCT 104 # CHAN 11 BITS 3,7.
016763,003835: # UPLINK ACTIVITY, AND OPERATOR ERROR.
016764,003836: 40,3566 00240 BITS6,8 OCT 240
016765,003837: 40,3567 00050 GL+NOATT OCT 00050 # NO ATT AND GIMBAL LOCK LAMPS
016766,003838: 40,3570 73777 NOTBIT12 OCT 73777
016767,003839:
016768,003840:
016769,003841: 40,3571 ENDPINS1 EQUALS
End of include-file PINBALL_GAME__BUTTONS_AND_LIGHTS.agc. Parent file is MAIN.agc