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