ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. 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:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
062119,000002: ## Copyright: Public domain.
062120,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
062121,000004: ## Purpose: Part of the source code for Colossus, build 249.
062122,000005: ## It is part of the source code for the Command Module's (CM)
062123,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
062124,000007: ## Assembler: yaYUL
062125,000008: ## Reference: Starts on p. 1420
062126,000009: ## Contact: Ron Burkey <info@sandroid.org>.
062127,000010: ## Website: www.ibiblio.org/apollo.
062128,000011: ## Mod history: 08/30/04 RSB Adapted from corresponding Luminary131 file.
062129,000012: ## 2010-10-24 JL Indentation fixes.
062130,000013: ## 2011-05-07 JL Removed workarounds.
062131,000014: ## 2017-01-06 RSB Page numbers now agree with those on the
062132,000015: ## original harcopy, as opposed to the PDF page
062133,000016: ## numbers in 1701.pdf.
062134,000017: ## 2017-01-08 RSB Cross-diff'd comment text (not whitespace)
062135,000018: ## vs the already-proofed corresponding Colossus
062136,000019: ## 237 and Comanche 55 source-code files
062137,000020: ## and corrected errors found.
062138,000021: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
062139,000022: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
062140,000023: ## side-by-side diff of Luminary 69/99/116/131/210.
062141,000024:
062142,000025: ## The contents of the "Colossus249" files, in general, are transcribed
062143,000026: ## from a scanned copy of the program listing. Notations on this
062144,000027: ## document read, in part:
062145,000028: ##
062146,000029: ## Assemble revision 249 of AGC program Colossus by NASA
062147,000030: ## 2021111-041. October 28, 1968.
062148,000031: ##
062149,000032: ## This AGC program shall also be referred to as
062150,000033: ## Colossus 1A
062151,000034: ##
062152,000035: ## Prepared by
062153,000036: ## Massachusetts Institute of Technology
062154,000037: ## 75 Cambridge Parkway
062155,000038: ## Cambridge, Massachusetts
062156,000039: ## under NASA contract NAS 9-4065.
062157,000040: ##
062158,000041: ## Refer directly to the online document mentioned above for further information.
062159,000042: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
062160,000043: ##
062161,000044: ## In some cases, where the source code for Luminary 131 overlaps that of
062162,000045: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
062163,000046: ## source file, and then is proofed to incorporate any changes.
062164,000047:
|
|
Page 1420 |
062166,000049: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
062167,000050: # 1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
062168,000051: # OUT UNDER CRITICAL ALARM CONDITIONS.
062169,000052: # 2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
062170,000053: # 3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
062171,000054: # SEQUENCE OF EVENTS.
062172,000055: # 4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
062173,000056: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
062174,000057: # 5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
062175,000058:
062176,000059: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
062177,000060: # 1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
062178,000061: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
062179,000062: # BUT NOT WAITING FOR A RESPONSE.
062180,000063: # 2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
062181,000064: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
062182,000065: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
062183,000066: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
062184,000067: # HAS INFO SAVED FOR RESTART PURPOSES.
062185,000068:
062186,000069: # DISPLAY PRIORITIES WORK AS FOLLOWS-
062187,000070: # INTERRUPTS -
062188,000071: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
062189,000072: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
062190,000073: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
062191,000074: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
062192,000075: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
062193,000076: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
062194,000077:
062195,000078: # ORDER OF WAITING DISPLAYS-
062196,000079: # 1. ASTRONAUT EXTERNAL USE
062197,000080: # 2. PRIORITY
062198,000081: # 3. INTERRUPTED MARK
062199,000082: # 4. INTERRUPTED NORMAL
062200,000083: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
062201,000084: # 6. MARK WAITING
062202,000085: # 7. NORMAL WAITING
062203,000086:
|
|
Page 1421 |
062205,000088: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
062206,000089: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
062207,000090: # WILL FOLLOW LATER):
062208,000091: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
062209,000092: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
062210,000093: # IS TO THE USERS CALLING LOC +1.
062211,000094: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
062212,000095: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
062213,000096: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
062214,000097: # USERS JOB.
062215,000098: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
062216,000099: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
062217,000100: # DESCRIPTION OF RESTARTS).
062218,000101: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
062219,000102: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
062220,000103: # (V32) BRANCHES TO THE USERS CALL CADR +3.
062221,000104: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
062222,000105:
062223,000106: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
062224,000107: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
062225,000108: # 1. GODSP IS NOT RESTARTABLE
062226,000109: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
062227,000110: # CAF VXXNYY
062228,000111: # TC BANKCALL
062229,000112: # CADR GODSP
062230,000113: # VXXNYY OCT 0XXYY
062231,000114: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
062232,000115: # CAF VXXNYY
062233,000116: # TC BANKCALL
062234,000117: # CADR GODSPR
062235,000118: # ... ... IMMEDIATE RETURN OF GODSPR
062236,000119: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
062237,000120: # THE ASTRONAUT (SEE NO. 7 ABOVE).
062238,000121: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
062239,000122: # TC BANKCALL
062240,000123: # CADR GOFLASH
062241,000124: # ... ... TERMINATE RETURN
062242,000125: # ... ... PROCEED RETURN
062243,000126: # ... ... ENTER OR RECYCLE RETURN
062244,000127: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
|
|
Page 1422 |
062246,000129: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
062247,000130: # USER (SEE NO. 7 ABOVE).
062248,000131: # GOPERF1 BLANKS REGISTERS R2 AND R3
062249,000132: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
062250,000133: # TC BANKCALL
062251,000134: # CADR GOPERF1
062252,000135: # ... ... TERMINATE RETURN
062253,000136: # ... ... PROCEED RETURN
062254,000137: # ... ... ENTER RETURN
062255,000138: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
062256,000139: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
062257,000140: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
062258,000141: # GOPERF2 DOES NOT BLANK ANY REGISTERS
062259,000142: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
062260,000143: # TC BANKCALL
062261,000144: # CADR GOPERF2
062262,000145: # ... ... TERMINATE RETURN
062263,000146: # ... ... PROCEED RETURN
062264,000147: # ... ... ENTER RETURN
062265,000148: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
062266,000149: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
062267,000150: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
062268,000151: # GOPERF3 BLANKS REGISTERS R2 AND R3
062269,000152: # CAF DECXX REQUEST PERFORM ON PXX
062270,000153: # TC BANKCALL
062271,000154: # CADR GOPERF3
062272,000155: # ... ... TERMINATE RETURN
062273,000156: # ... ... PROCEED RETURN
062274,000157: # ... ... ENTER RETURN
062275,000158: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
062276,000159: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
062277,000160: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
062278,000161: # CAF OCTXX REQUEST PERFORM ON OPTION XX
062279,000162: # TC BANKCALL
062280,000163: # CADR GOPERF4
062281,000164: # ... ... TERMINATE RETURN
062282,000165: # ... ... PROCEED RETURN
062283,000166: # ... ... ENTER RETURN
062284,000167: # GOPERF4 BLANKS REGISTER R3
062285,000168:
|
|
Page 1423 |
062287,000170: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
062288,000171: # OUT.
062289,000172: # CAF VXXNYY
062290,000173: # TC BANKCALL
062291,000174: # CADR GODSPRET
062292,000175: # ... ... RETURN TO USER
062293,000176: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
062294,000177: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062295,000178: # CAF VXXNYY
062296,000179: # TC BANKCALL
062297,000180: # CADR REGODSP
062298,000181: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062299,000182: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
062300,000183: # TC BANKCALL
062301,000184: # CADR REFLASH
062302,000185: # ... ... TERMINATE RETURN
062303,000186: # ... ... PROCEED RETURN
062304,000187: # ... ... ENTER RETURN
062305,000188: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062306,000189: # CAF VXXNYY
062307,000190: # TC BANKCALL
062308,000191: # CADR GOFLASHR
062309,000192: # ... ... TERMINATE RETURN
062310,000193: # ... ... PROCEED RETURN
062311,000194: # ... ... ENTER OR RECYCLE RETURN
062312,000195: # ... ... IMMEDIATE RETURN FROM GOFLASHR
062313,000196: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
062314,000197: # GOPERF1R BLANKS REGISTERS R2 AND R3
062315,000198: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
062316,000199: # TC BANKCALL
062317,000200: # CADR GOPERF1R
062318,000201: # ... ... TERMINATE RETURN
062319,000202: # ... ... PROCEED RETURN
062320,000203: # ... ... ENTER RETURN
062321,000204: # ... ... IMMEDIATE RETURN FROM GOPERF1R
062322,000205: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
|
|
Page 1424 |
062324,000207: # GOPERF2R DOES NOT BLANK ANY REGISTERS
062325,000208: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
062326,000209: # TC BANKCALL
062327,000210: # CADR GOPERF2R
062328,000211: # ... ... TERMINATE RETURN
062329,000212: # ... ... PROCEED RETURN
062330,000213: # ... ... ENTER RETURN
062331,000214: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
062332,000215: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062333,000216: # GOPERF3R BLANKS REGISTERS R2 AND R3
062334,000217: # CAF PROGXX PERFORM PROGRAM XX
062335,000218: # TC BANKCALL
062336,000219: # CADR GOPERF3R
062337,000220: # ... ... TERMINATE RETURN
062338,000221: # ... ... PROCEED RETURN
062339,000222: # ... ... ENTER RETURN
062340,000223: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
062341,000224: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062342,000225: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
062343,000226: # TC BANKCALL
062344,000227: # CADR GOPERF4R
062345,000228: # ... ... TERMINATE RETURN
062346,000229: # ... ... PROCEED RETURN
062347,000230: # ... ... ENTER RETURN
062348,000231: # ... ... IMMEDIATE RETURN TO USER
062349,000232: # GOPERF4R BLANKS REGISTER R3
062350,000233:
062351,000234: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062352,000235: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
062353,000236: # TC BANKCALL
062354,000237: # CADR REFLASHR
062355,000238: # ... ... TERMINATE RETURN
062356,000239: # ... ... PROCEED RETURN
062357,000240: # ... ... ENTER RETURN
062358,000241: # ... ... IMMEDIATE RETURN TO USER
062359,000242: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
|
|
Page 1425 |
062361,000244: # CAF VXXNYY
062362,000245: # TC BANKCALL
062363,000246: # CADR REGODSPR
062364,000247: # ... ... IMMEDIATE RETURN TO USER
|
|
Page 1426 |
062366,000249: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
062367,000250: # GOXDSP = GOMARK
062368,000251: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
062369,000252: # TC BANKCALL
062370,000253: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
062371,000254: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
062372,000255: # GOXDSPR = GOMARKR
062373,000256: # CAF VXXNYY
062374,000257: # TC BANKCALL
062375,000258: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
062376,000259: # ... ... IMMEDIATE RETURN OF GOMARKR
062377,000260: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
062378,000261: # THE ASTRONAUT (SEE NO. 7 ABOVE).
062379,000262: # GOXDSPF = GOMARKF
062380,000263: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
062381,000264: # TC BANKCALL
062382,000265: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
062383,000266: # ... ... TERMINATE RETURN
062384,000267: # ... ... PROCEED RETURN
062385,000268: # ... ... ENTER OR RECYCLE RETURN
062386,000269: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
062387,000270: # GOXDSPFR = GOMARKFR
062388,000271: # CAF VXXNYY FLASHING MARK VERB NOUN
062389,000272: # TC BANKCALL
062390,000273: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
062391,000274: # ... ... TERMINATE RETURN
062392,000275: # ... ... PROCEED RETURN
062393,000276: # ... ... ENTER OR RECYCLE RETURN
062394,000277: #
062395,000278: # ... ... IMMEDIATE RETURN TO THE USER
062396,000279: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
062397,000280: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
062398,000281: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
062399,000282: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
062400,000283: # CAF V5XNYY X=1,2,3,4 Y=NOUN
062401,000284: # TC BANKCALL
|
|
Page 1427 |
062403,000286: # CADR GOMARK1
062404,000287: # ... ... ENTER RETURN
062405,000288: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
062406,000289:
062407,000290: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
062408,000291: # CAF V5XNYY X=1,2,3,4 YY=NOUN
062409,000292: # TC BANKCALL
062410,000293: # CADR GOMARK1R
062411,000294: # ... ... ASTRONAUT ENTER RETURN
062412,000295: # ... ... IMMEDIATE RETURN TO USER
062413,000296: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
062414,000297: # CAF V5XNYY X=1,2,3,4 YY=NOUN
062415,000298: # TC BANKCALL
062416,000299: # CADR GOMARK2
062417,000300: # ... ... TERMINATE RETURN
062418,000301: # ... ... PROCEED RETURN
062419,000302: # ... ... ENTER RETURN
062420,000303: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
062421,000304: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
062422,000305: # TC BANKCALL
062423,000306: # CADR GOMARK2R
062424,000307: # ... ... TERMINATE RETURN
062425,000308: # ... ... PROCEED RETURN
062426,000309: # ... ... ENTER RETURN
062427,000310: # ... ... IMMEDIATE RETURN TO THE USER
062428,000311: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
062429,000312: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
062430,000313: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
062431,000314: # CAF V5XNYY X=1,2,3,4 YY=NOUN
062432,000315: # TC BANKCALL
062433,000316: # CADR GOMARK3
062434,000317: # ... ... TERMINATE RETURN
062435,000318: # ... ... PROCEED RETURN
062436,000319: # ... ... ENTER RETURN
062437,000320: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
062438,000321: # CAF V5XNYY X=1,2,3,4 YY=NOUN
062439,000322: # TC BANKCALL
062440,000323: # CADR GOMARK4
062441,000324: # ... ... TERMINATE RETURN
062442,000325: # ... ... PROCEED RETURN
|
|
Page 1428 |
062444,000327: # ... ... ENTER RETURN
062445,000328: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
062446,000329: # SENT OUT.
062447,000330: # CAF VXXNYY
062448,000331: # TC BANKCALL
062449,000332: # CADR EXDSPRET
062450,000333: # ... ... RETURN TO USER
062451,000334: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
062452,000335: # HAVE BEEN CLEANED OUT.
062453,000336: # TC BANKCALL
062454,000337: # CADR KLEENEX
062455,000338: # ... ... RETURN TO USER
062456,000339: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
062457,000340: # TC BANKCALL
062458,000341: # CADR MARKBRAN
062459,000342: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
062460,000343: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
062461,000344: # LAST FLASHING MARK R ROUTINE)
062462,000345: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
062463,000346: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
062464,000347: # TC POSTJUMP
062465,000348: # CADR PINBRNCH
062466,000349: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
062467,000350: # THE ASTRONAUT (SEE NO. 7 ABOVE).
062468,000351:
062469,000352: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
062470,000353: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
062471,000354: # IS RESPONDED TO BY THE ASTRONAUT.
062472,000355:
062473,000356: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
062474,000357: # PRIO DISPLAY.
062475,000358: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
062476,000359: # TC BANKCALL
062477,000360: # CADR PRIODSP
062478,000361: # ... ... TERMINATE RETURN
062479,000362: # ... ... PROCEED RETURN
|
|
Page 1429 |
062481,000364: # ... ... ENTER OR RECYCLE RETURN
062482,000365: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062483,000366: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
062484,000367: # TC BANKCALL
062485,000368: # CADR PRIODSPR
062486,000369: # ... ... TERMINATE RETURN
062487,000370: # ... ... PROCEED RETURN
062488,000371: # ... ... ENTER OR RECYCLE RETURN
062489,000372: # ... ... IMMEDIATE RETURN
062490,000373: # PRIOLARM DOES A V05N09 PRIODSPR.
062491,000374:
062492,000375: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
062493,000376: # DISPLAYS ARE CLEANED OUT.
062494,000377: # TC BANKCALL
062495,000378: # CADR CLEANDSP
062496,000379: # ... ... RETURN TO USER
|
|
Page 1430 |
062498,000381:
062499,000382: # GENERAL INFORMATION
062500,000383: # ------- -----------
062501,000384:
062502,000385: # ALARM OR ABORT EXIT MODES--
062503,000386: # PRIOBORT TC ABORT
062504,000387: # OCT 1502
062505,000388:
062506,000389: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
062507,000390: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
062508,000391: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
062509,000392:
062510,000393: # ERASABLE INITIALIZATION REQUIRED--
062511,000394: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
062512,000395: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
062513,000396: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
062514,000397: # 5. R1SAVE = MARKBRAN CONTROL WORD
062515,000398: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
062516,000399:
062517,000400: # OUTPUT--
062518,000401: # NVWORD = PRIO VERB AND NOUN
062519,000402: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
062520,000403: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
062521,000404: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
062522,000405: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
062523,000406: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
062524,000407: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
062525,000408: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
062526,000409: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
062527,000410: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
062528,000411: # OPTION1 = DESIRED OPTION FROM GOPERF4
062529,000412: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
062530,000413: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
062531,000414:
062532,000415: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
062533,000416: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
062534,000417:
062535,000418: # DEBRIS-- (STORED INTO)
062536,000419: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
062537,000420: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
062538,000421: # ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
062539,000422: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
|
|
Page 1431 |
062541,000424: # R1SAVE, MARK2PAC,
062542,000425:
062543,000426: # DEBRIS-- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
062544,000427:
062545,000428: # FLAGWORD DESCRIPTIONS--
062546,000429: # FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
062547,000430:
062548,000431: # DSPFLG, DSPFLG+1, DSPFLG +2-
062549,000432: # ----------------------------
062550,000433: # BITS 1 BLANK R1
062551,000434: # 2 BLANK R2
062552,000435: # 3 BLANK R3
062553,000436: # 4 FLASHING DISPLAY REQUESTED
062554,000437: # 5 PERFORM DISPLAY REQUESTED
062555,000438: # 6 ----- EXDSPRET GODSPRET
062556,000439: # 7 PRIO DISPLAY ----- -----
062557,000440: # 8 ----- DEC MARK PERFORM -----
062558,000441: # 9 EBANK
062559,000442: # 10 EBANK
062560,000443: # 11 EBANK
062561,000444: # 12 ----- ----- V99PASTE
062562,000445: # 13 2ND PART OF PERFORM
062563,000446: # 15 REFLASH OR REDO ----- REFLASH OR REDO
062564,000447: # 15 ----- MARK REQUEST -----
062565,000448:
062566,000449: # RESTARTING DISPLAYS--
062567,000450:
062568,000451: # RULES FOR THE DSKY OPERATOR--
062569,000452: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
062570,000453: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
062571,000454: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
062572,000455: # WITH PROCEED AND TERMINATE FOR THIS REASON.
062573,000456: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
062574,000457: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
062575,000458: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
062576,000459: # IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
062577,000460: # OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
062578,000461: # CONSIDERATION.
062579,000462: # 3. KEY RELEASE BUTTON -
062580,000463: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
062581,000464: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
062582,000465: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
062583,000466: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
062584,000467: # KEY RELEASE BUTTON MAY BE NECESSARY.
062585,000468: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
062586,000469: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
062587,000470: # OVER AGAIN.
062588,000471:
062589,000472: # SPECIAL CONSIDERATIONS--
|
|
Page 1432 |
062591,000474: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
062592,000475: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
062593,000476: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
062594,000477: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
062595,000478: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
062596,000479: # BY A .1 RESTART PHASE CHANGE.
062597,000480: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
062598,000481: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
062599,000482: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
062600,000483:
|
|
Page 1433 |
062602,000485: # CALLING SEQUENCE FOR BLANKING
062603,000486: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
062604,000487: # TC BLANKET
062605,000488: # ... ... RETURN TO USER HERE
062606,000489: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
062607,000490: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
062608,000491: 5415 BLOCK 02
062609,000492: 4000 SETLOC FFTAG4
062610,000493: 4000 BANK
062611,000494:
062612,000495: 5415 COUNT 02/DSPLA
062613,000496:
062614,000497: 5415 54162 BLANKET TS MPAC +6
062615,000498: 5416 40160 CS PLAYTEM4
062616,000499: 5417 70162 MASK MPAC +6
062617,000500: 5420 50161 INDEX MPAC +5
062618,000501: 5421 26160 ADS PLAYTEM4
062619,000502:
062620,000503: 5422 00002 TC Q
062621,000504:
062622,000505: 5423 04574 ENDMARK TC POSTJUMP
062623,000506: 5424 20457 CADR MARKEND
062624,000507:
062625,000508: 5425 34714 CLEARMRK CAF ZERO
062626,000509: 5426 55044 TS EXTVBACT
062627,000510:
062628,000511: 5427 00004 INHINT
062629,000512: 5430 44712 CS BIT1
062630,000513: 5431 70100 MASK FLAGWRD4
062631,000514: 5432 54100 TS FLAGWRD4
062632,000515:
062633,000516: 5433 00003 RELINT
062634,000517: 5434 00002 TC Q
062635,000518:
062636,000519: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
062637,000520: # FINISHED.
062638,000521:
062639,000522: 10,2457 BANK 10
062640,000523: 10,2000 SETLOC DISPLAYS
062641,000524: 10,2000 BANK
062642,000525:
062643,000526: 10,2457 COUNT 10/DSPLA
062644,000527:
062645,000528: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
062646,000529: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
062647,000530:
062648,000531: 10,2457 05425 MARKEND TC CLEARMRK
062649,000532: 10,2460 13547 TCF MARKOVER
062650,000533:
|
|
Page 1434 |
062652,000535: 10,2461 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
062653,000536:
062654,000537: 10,2462 34674 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
062655,000538: 10,2463 12626 TCF GOFLASH2
062656,000539:
062657,000540: 10,2464 34714 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
062658,000541: 10,2465 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
062659,000542:
062660,000543: 10,2466 33157 CAF MARKFMSK # MARK, FLASH
062661,000544: 10,2467 12626 TCF GOFLASH2
062662,000545:
062663,000546: 10,2470 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
062664,000547: 10,2471 33646 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
062665,000548: 10,2472 12626 TCF GOFLASH2
062666,000549:
062667,000550: 10,2473 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
062668,000551: 10,2474 33633 CAF MARK3MSK
062669,000552: 10,2475 12626 TCF GOFLASH2
062670,000553:
062671,000554: 10,2476 54155 GOMARK4 TS PLAYTEM1
062672,000555: 10,2477 33634 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
062673,000556: 10,2500 12626 TCF GOFLASH2
062674,000557:
062675,000558: 10,2501 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
062676,000559:
062677,000560: 10,2502 34674 CAF BIT15
062678,000561: 10,2503 12604 TCF GODSPR2
062679,000562:
062680,000563: 10,2504 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
062681,000564:
062682,000565: 10,2505 33157 CAF MARKFMSK
062683,000566: 10,2506 12765 TCF GODSPRS
062684,000567:
062685,000568: 10,2507 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
062686,000569: 10,2510 33646 CAF MPERFMSK # MARK, PERFORM, FLASH
062687,000570: 10,2511 12765 TCF GODSPRS
062688,000571:
062689,000572: 10,2512 54155 GOMARK3R TS PLAYTEM1
062690,000573: 10,2513 33633 CAF MARK3MSK
062691,000574: 10,2514 12765 TCF GODSPRS
062692,000575:
062693,000576: 10,2515 34712 MAKEMARK CAF ONE
062694,000577: 10,2516 03063 TC COPIES
062695,000578:
062696,000579: 10,2517 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
062697,000580: 10,2520 73647 MASK OCT34300
062698,000581: 10,2521 10000 CCS A
062699,000582: 10,2522 12560 TCF CHKPRIO
062700,000583:
062701,000584: 10,2523 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
|
|
Page 1435 |
062703,000586: 10,2524 74702 MASK BIT9
062704,000587:
062705,000588: 10,2525 00006 EXTEND
062706,000589: 10,2526 12530 BZF MARKPLAY # NO
062707,000590:
062708,000591: 10,2527 15112 TCF ENDOFJOB
062709,000592:
062710,000593: 10,2530 00004 MARKPLAY INHINT
062711,000594: 10,2531 44715 CS FIVE # RESET MARK OVER NORM, SET MARK
062712,000595: 10,2532 70100 MASK FLAGWRD4
062713,000596: 10,2533 64712 AD ONE
062714,000597: 10,2534 54100 TS FLAGWRD4
062715,000598: 10,2535 00003 RELINT
062716,000599:
062717,000600: 10,2536 41070 GOGOMARK CS MARKFLAG # PERFORM
062718,000601: 10,2537 74706 MASK BIT5
062719,000602: 10,2540 10000 CCS A
062720,000603: 10,2541 12544 TCF MARKCOP
062721,000604: 10,2542 40370 CS MARKNV
062722,000605: 10,2543 54370 TS MARKNV
062723,000606:
062724,000607: 10,2544 34712 MARKCOP CAF ONE # MARK INDEX
062725,000608: 10,2545 12744 TCF PRIOPLAY
062726,000609:
062727,000610: 10,2546 30165 COPYTOGO CA MPAC2SAV
062728,000611: 10,2547 54156 TS MPAC +2
062729,000612:
062730,000613: 10,2550 50164 COPYPACS INDEX COPINDEX
062731,000614: 10,2551 33657 CAF PRIOOCT
062732,000615: 10,2552 54162 TS GENMASK
062733,000616:
062734,000617: 10,2553 50164 INDEX COPINDEX
062735,000618: 10,2554 31067 CAF EBANKSAV
062736,000619: 10,2555 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
062737,000620:
062738,000621: 10,2556 54003 TS EBANK
062739,000622:
062740,000623: 10,2557 00002 TC Q
062741,000624:
062742,000625: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
062743,000626: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
062744,000627: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
062745,000628: # UNTIL ALL MARKING IS FINISHED.
062746,000629:
062747,000630: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
062748,000631: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
062749,000632:
062750,000633: 10,2560 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
062751,000634: 10,2561 73402 MASK OCT24100
062752,000635: 10,2562 10000 CCS A
062753,000636: 10,2563 13602 TCF MARSLEEP
062754,000637:
|
|
Page 1436 |
062756,000639: 10,2564 40100 CS FLAGWRD4
062757,000640: 10,2565 74710 MASK BIT3 # SET MARK OVER NORM
062758,000641: 10,2566 00004 INHINT
062759,000642: 10,2567 26100 ADS FLAGWRD4
062760,000643:
062761,000644: 10,2570 12662 TCF SETNORM
062762,000645:
062763,000646: 10,2571 30370 MARKPERF CA MARKNV
062764,000647: 10,2572 74160 MASK VERBMASK
062765,000648: 10,2573 13246 TCF NV50DSP
062766,000649:
062767,000650: 10,2574 54155 GODSP TS PLAYTEM1
062768,000651:
062769,000652: 10,2575 34714 GODSP2 CAF ZERO
062770,000653: 10,2576 12626 TCF GOFLASH2
062771,000654:
062772,000655: 10,2577 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
062773,000656:
062774,000657: 10,2600 34705 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
062775,000658: 10,2601 12626 TCF GOFLASH2
062776,000659:
062777,000660: 10,2602 54155 GODSPR TS PLAYTEM1
062778,000661:
062779,000662: 10,2603 34714 GODSPR1 CAF ZERO
062780,000663: 10,2604 54160 GODSPR2 TS PLAYTEM4
062781,000664:
062782,000665: 10,2605 34714 CAF ZERO # * DONT MOVE
062783,000666: 10,2606 12767 TCF GODSPRS1
062784,000667:
062785,000668: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
062786,000669: # SET UP TO BE STARTED OR RESTARTED.
062787,000670:
062788,000671: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
062789,000672: # OLD DISPLAY.
062790,000673:
062791,000674: # CALLING SEQUENCE FOR CLEANDSP -
062792,000675:
062793,000676: # TC BANKCALL
062794,000677: # CADR CLEANDSP
062795,000678:
062796,000679: 10,2607 34714 CLEANDSP CAF ZERO
062797,000680: 10,2610 54155 REFLASH TS PLAYTEM1
062798,000681:
062799,000682: 10,2611 33632 CAF REDOMASK # FLASH AND PERMIT
062800,000683: 10,2612 12626 TCF GOFLASH2
062801,000684:
062802,000685: 10,2613 54155 REFLASHR TS PLAYTEM1
062803,000686:
062804,000687: 10,2614 33632 CAF REDOMASK # FLASH AND PERMIT
062805,000688: 10,2615 12765 TCF GODSPRS
062806,000689:
|
|
Page 1437 |
062808,000691: 10,2616 54155 REGODSP TS PLAYTEM1
062809,000692:
062810,000693: 10,2617 34675 CAF BIT14
062811,000694: 10,2620 12626 TCF GOFLASH2
062812,000695:
062813,000696: 10,2621 54155 REGODSPR TS PLAYTEM1
062814,000697:
062815,000698: 10,2622 34675 CAF BIT14
062816,000699: 10,2623 12604 TCF GODSPR2
062817,000700:
062818,000701: 10,2624 54155 GOFLASH TS PLAYTEM1
062819,000702:
062820,000703: 10,2625 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET
062821,000704: 10,2626 54160 GOFLASH2 TS PLAYTEM4
062822,000705:
062823,000706: 10,2627 03050 TC SAVELOCS
062824,000707:
062825,000708: 10,2630 00003 RELINT
062826,000709:
062827,000710: 10,2631 12674 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
062828,000711:
062829,000712: 10,2632 54155 PRIODSPR TS PLAYTEM1
062830,000713:
062831,000714: 10,2633 33651 CAF BITS7+4
062832,000715: 10,2634 12765 TCF GODSPRS
062833,000716:
062834,000717: 10,2635 54155 PRIODSP TS PLAYTEM1
062835,000718:
062836,000719: 10,2636 33651 SETPRIO CAF BITS7+4
062837,000720: 10,2637 12626 TCF GOFLASH2
062838,000721:
062839,000722: 10,2640 34714 MAKEPRIO CAF ZERO
062840,000723: 10,2641 54164 TS COPINDEX
062841,000724:
062842,000725: 10,2642 03522 TC LINUSCHR
062843,000726: 10,2643 12650 TCF HIPRIO # LINUS RETURN
062844,000727: 10,2644 30100 CA FLAGWRD4
062845,000728: 10,2645 73670 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
062846,000729: 10,2646 10000 CCS A
062847,000730: 10,2647 12723 TCF PRIOBORT # YES, ABORT
062848,000731:
062849,000732: 10,2650 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
062850,000733: 10,2651 75612 MASK OCT40400
062851,000734: 10,2652 00006 EXTEND
062852,000735: 10,2653 12656 BZF ASKIFNRM # NO
062853,000736:
062854,000737: 10,2654 34714 SETMARK CAF ZERO
062855,000738: 10,2655 13122 TCF JOBXCHS
062856,000739:
062857,000740: 10,2656 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
|
|
Page 1438 |
062859,000742: 10,2657 73666 MASK OCT10200 # BITS 13+8
062860,000743: 10,2660 00006 EXTEND
062861,000744: 10,2661 12664 BZF OKTOCOPY # NO
062862,000745:
062863,000746: 10,2662 34712 SETNORM CAF ONE
062864,000747: 10,2663 13122 TCF JOBXCHS
062865,000748:
062866,000749: 10,2664 03062 OKTOCOPY TC COPYNORM
062867,000750: 10,2665 03333 TC WITCHONE
062868,000751:
062869,000752: 10,2666 05074 TC JOBWAKE
062870,000753:
062871,000754: 10,2667 03350 TC XCHTOEND
062872,000755:
062873,000756: 10,2670 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
062874,000757: 10,2671 55147 TS PRIOTIME
062875,000758:
062876,000759: 10,2672 34714 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
062877,000760: 10,2673 12744 TCF PRIOPLAY
062878,000761:
062879,000762: 10,2674 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
062880,000763: 10,2675 77674 MASK PRIO37
062881,000764: 10,2676 54163 TS USERPRIO
062882,000765:
062883,000766: 10,2677 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
062884,000767: 10,2700 05103 TC PRIOCHNG
062885,000768:
062886,000769: 10,2701 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
062887,000770: 10,2702 73650 MASK BITS15+7
062888,000771: 10,2703 10000 CCS A
062889,000772: 10,2704 12640 TCF MAKEPRIO # ITS PRIO
062890,000773: 10,2705 12707 TCF IFLEGAL
062891,000774: 10,2706 12515 TCF MAKEMARK # ITS MARK
062892,000775:
062893,000776: 10,2707 34711 IFLEGAL CAF TWO
062894,000777: 10,2710 54164 TS COPINDEX
062895,000778:
062896,000779: 10,2711 03522 TC LINUSCHR
062897,000780:
062898,000781: 10,2712 12725 TCF OKTOPLAY # LINUS RETURN
062899,000782: 10,2713 41071 CS EBANKTEM
062900,000783: 10,2714 74707 MASK BIT4
062901,000784: 10,2715 10000 CCS A
062902,000785: 10,2716 12725 TCF OKTOPLAY # NO
062903,000786:
062904,000787: 10,2717 30100 CA FLAGWRD4 # WAS NORM ASLEEP
062905,000788: 10,2720 73641 MASK NBUSMASK # ARE ANY NORMS ASLEEP
062906,000789: 10,2721 00006 EXTEND
062907,000790: 10,2722 12725 BZF OKTOPLAY # NO
062908,000791:
|
|
Page 1439 |
062910,000793: 10,2723 05622 PRIOBORT TC POODOO
062911,000794: 10,2724 01502 OCT 1502
062912,000795:
062913,000796: 10,2725 03064 OKTOPLAY TC COPIES2
062914,000797:
062915,000798: 10,2726 30163 CA USERPRIO
062916,000799: 10,2727 00006 EXTEND
062917,000800: 10,2730 04007 ROR SUPERBNK
062918,000801: 10,2731 54366 TS RESTREG
062919,000802:
062920,000803: 10,2732 30100 CA FLAGWRD4 # PRIO OR MARK GOING
062921,000804: 10,2733 73642 MASK PMMASK
062922,000805: 10,2734 10000 CCS A
062923,000806: 10,2735 13102 TCF GOSLEEPS # YES
062924,000807:
062925,000808: 10,2736 12740 TCF +2
062926,000809: 10,2737 13102 TCF GOSLEEPS # MARK GOING
062927,000810:
062928,000811: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
062929,000812:
062930,000813: 10,2740 03333 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
062931,000814: 10,2741 05074 TC JOBWAKE
062932,000815:
062933,000816: 10,2742 03350 TC XCHTOEND
062934,000817:
062935,000818: 10,2743 34711 PLAYJUM1 CAF TWO
062936,000819: 10,2744 54164 PRIOPLAY TS COPINDEX
062937,000820:
062938,000821: 10,2745 13216 TCF GOPLAY
062939,000822:
062940,000823: 10,2746 54155 EXDSPRET TS PLAYTEM1
062941,000824:
062942,000825: 10,2747 37703 CAF BIT15+6
062943,000826: 10,2750 12626 TCF GOFLASH2
062944,000827:
062945,000828: 10,2751 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
062946,000829: 10,2752 33624 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
062947,000830:
062948,000831: 10,2753 54155 GOPERFS TS PLAYTEM1
062949,000832:
062950,000833: 10,2754 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
062951,000834: 10,2755 12626 TCF GOFLASH2
062952,000835:
062953,000836: 10,2756 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062954,000837:
062955,000838: 10,2757 33627 CAF PERF2MSK
062956,000839: 10,2760 12626 TCF GOFLASH2
062957,000840:
062958,000841: 10,2761 03043 GOPERF4 TC PURRS4
062959,000842:
062960,000843: 10,2762 12626 TCF GOFLASH2
062961,000844:
|
|
Page 1440 |
062963,000846: 10,2763 54155 GOFLASHR TS PLAYTEM1
062964,000847:
062965,000848: 10,2764 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET
062966,000849: 10,2765 54160 GODSPRS TS PLAYTEM4
062967,000850:
062968,000851: 10,2766 36214 CAF THREE
062969,000852:
062970,000853: 10,2767 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
062971,000854: 10,2770 54072 TS RUPTREG3
062972,000855:
062973,000856: 10,2771 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
062974,000857: 10,2772 77674 MASK PRIO37
062975,000858: 10,2773 54063 TS NEWPRIO
062976,000859:
062977,000860: 10,2774 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
062978,000861: 10,2775 74707 MASK BIT4
062979,000862: 10,2776 10000 CCS A
062980,000863: 10,2777 13005 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
062981,000864: 10,3000 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
062982,000865: 10,3001 05027 TC NOVAC
062983,000866: 10,3002 E7,1777 EBANK= WHOCARES
062984,000867: 10,3002 02674 20107 2CADR MAKEPLAY
062985,000868:
062986,000869: 10,3004 13013 TCF BOTHJOBS
062987,000870:
062988,000871: 10,3005 30006 VACDSP CA BBANK
062989,000872: 10,3006 00006 EXTEND
062990,000873: 10,3007 04007 ROR SUPERBNK
062991,000874: 10,3010 54001 TS L
062992,000875: 10,3011 33665 CAF MAKEGEN
062993,000876: 10,3012 05053 TC SPVAC
062994,000877:
062995,000878: 10,3013 03050 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
062996,000879:
062997,000880: 10,3014 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
062998,000881: 10,3015 30156 DCA MPAC +1
062999,000882: 10,3016 50064 INDEX LOCCTR
063000,000883: 10,3017 52156 DXCH MPAC +1
063001,000884:
063002,000885: 10,3020 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
063003,000886: 10,3021 30160 DCA MPAC +3
063004,000887: 10,3022 50064 INDEX LOCCTR
063005,000888: 10,3023 52160 DXCH MPAC +3
063006,000889:
063007,000890: 10,3024 30064 CA LOCCTR
063008,000891: 10,3025 54161 TS MPAC +5
063009,000892: 10,3026 03055 TC SAVELOCR
063010,000893: 10,3027 00003 RELINT
|
|
Page 1441 |
063012,000895: 10,3030 14577 TCF BANKJUMP # CALL CADR +4
063013,000896:
063014,000897: 10,3031 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
063015,000898:
063016,000899: 10,3032 33624 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
063017,000900:
063018,000901: 10,3033 54155 GOPERFRS TS PLAYTEM1
063019,000902:
063020,000903: 10,3034 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
063021,000904: 10,3035 12765 TCF GODSPRS
063022,000905:
063023,000906: 10,3036 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
063024,000907:
063025,000908: 10,3037 33627 CAF PERF2MSK
063026,000909: 10,3040 12765 TCF GODSPRS
063027,000910:
063028,000911: 10,3041 03043 GOPERF4R TC PURRS4
063029,000912:
063030,000913: 10,3042 12765 TCF GODSPRS
063031,000914:
063032,000915: 10,3043 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE
063033,000916:
063034,000917: 10,3044 33630 CAF V04N06
063035,000918: 10,3045 54155 TS PLAYTEM1
063036,000919:
063037,000920: 10,3046 33631 CAF PERF4MSK # FLASH, PERFORM AND BLANK R3
063038,000921: 10,3047 00002 TC Q
063039,000922:
063040,000923: 10,3050 00004 SAVELOCS INHINT
063041,000924:
063042,000925: 10,3051 43640 CS OCT3400 # EBANK BITS
063043,000926: 10,3052 70160 MASK PLAYTEM4
063044,000927: 10,3053 60003 AD EBANK
063045,000928: 10,3054 54160 TS PLAYTEM4
063046,000929:
063047,000930: 10,3055 22002 SAVELOCR LXCH Q
063048,000931:
063049,000932: 10,3056 04604 TC MAKECADR
063050,000933: 10,3057 54157 TS PLAYTEM3
063051,000934:
063052,000935: 10,3060 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
063053,000936: 10,3061 00001 TC L
063054,000937:
063055,000938: 10,3062 34714 COPYNORM CAF ZERO
063056,000939: 10,3063 54164 COPIES TS COPINDEX
063057,000940: 10,3064 00004 COPIES2 INHINT
063058,000941: 10,3065 30160 CA PLAYTEM4 # FLAGWORD
063059,000942:
063060,000943: 10,3066 50164 INDEX COPINDEX
063061,000944: 10,3067 55067 TS EBANKSAV # EQUIV TO DSPFLG
|
|
Page 1442 |
063063,000946: 10,3070 73656 MASK CADRMASK # FLASH AND GODSPRET
063064,000947: 10,3071 00006 EXTEND
063065,000948: 10,3072 13076 BZF SKIPADD
063066,000949:
063067,000950: 10,3073 30157 CA PLAYTEM3
063068,000951: 10,3074 50164 INDEX COPINDEX
063069,000952: 10,3075 54372 TS CADRFLSH
063070,000953:
063071,000954: 10,3076 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
063072,000955: 10,3077 50164 INDEX COPINDEX
063073,000956: 10,3100 54367 TS NVWORD
063074,000957:
063075,000958: 10,3101 13357 TCF RELINTQ
063076,000959:
063077,000960: 10,3102 50164 GOSLEEPS INDEX COPINDEX
063078,000961: 10,3103 33657 CA PRIOOCT
063079,000962: 10,3104 73106 MASK WAITMASK
063080,000963: 10,3105 07717 TC UPENT2
063081,000964: 10,3106 03004 WAITMASK OCT 3004
063082,000965: 10,3107 44712 CS ONE
063083,000966: 10,3110 60164 AD COPINDEX
063084,000967: 10,3111 54154 TS FACEREG
063085,000968:
063086,000969: 10,3112 50154 XCHSLEEP INDEX FACEREG
063087,000970: 10,3113 33636 CAF WAKECADR
063088,000971: 10,3114 00004 INHINT
063089,000972: 10,3115 05074 TC JOBWAKE # FIND CADR IN JOB AREA
063090,000973:
063091,000974: 10,3116 03350 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
063092,000975:
063093,000976: 10,3117 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
063094,000977: 10,3120 33636 CAF WAKECADR
063095,000978: 10,3121 15070 TCF JOBSLEEP
063096,000979:
063097,000980: 10,3122 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
063098,000981: 10,3123 03333 TC WITCHONE
063099,000982: 10,3124 05074 TC JOBWAKE
063100,000983: 10,3125 30154 CA FACEREG
063101,000984: 10,3126 50064 INDEX LOCCTR
063102,000985: 10,3127 54154 TS FACEREG
063103,000986:
063104,000987: 10,3130 33143 CAF XCHQADD
063105,000988: 10,3131 03351 TC XCHNYLOC
063106,000989:
063107,000990: 10,3132 50154 INDEX FACEREG
063108,000991: 10,3133 33660 CA MARKOCT
063109,000992: 10,3134 73662 MASK IDLESLEP
063110,000993:
063111,000994: 10,3135 07735 TC DOWNENT2
063112,000995: 10,3136 74004 IDLEMASK OCT 74004 # * DONT MOVE
|
|
Page 1443 |
063114,000997: 10,3137 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
063115,000998: 10,3140 34706 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
063116,000999: 10,3141 64710 AD FOUR
063117,001000: 10,3142 07717 TC UPENT2 # FLAG ROUTINE DOES RELINT
063118,001001: 10,3143 03112 XCHQADD GENADR XCHSLEEP # * DONT MOVE
063119,001002: 10,3144 30100 CA FLAGWRD4
063120,001003: 10,3145 74710 MASK BIT3 # IF BIT3 THEN MARK OVER NORM
063121,001004: 10,3146 10000 CCS A
063122,001005: 10,3147 02530 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
063123,001006: 10,3150 12664 TCF OKTOCOPY
063124,001007:
063125,001008: 10,3151 34714 MARKWAKE CAF ZERO
063126,001009: 10,3152 54160 WAKEPLAY TS TEMPOR2
063127,001010:
063128,001011: 10,3153 50160 INDEX TEMPOR2
063129,001012: 10,3154 33652 CA BITS5+11
063130,001013: 10,3155 64710 AD FOUR
063131,001014: 10,3156 07735 TC DOWNENT2
063132,001015: 10,3157 40010 MARKFMSK OCT 40010 # *** DONT MOVE
063133,001016:
063134,001017: 10,3160 50160 INDEX TEMPOR2
063135,001018: 10,3161 33636 CAF WAKECADR
063136,001019: 10,3162 00004 INHINT
063137,001020: 10,3163 05074 TC JOBWAKE
063138,001021:
063139,001022: 10,3164 13463 TCF ENDRET
063140,001023:
063141,001024: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
063142,001025: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
063143,001026:
063144,001027: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
063145,001028: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
063146,001029:
063147,001030: 10,3165 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
063148,001031: 10,3166 54003 TS EBANK
063149,001032:
063150,001033: 10,3167 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
063151,001034: 10,3170 04666 TC SUPERSW # RESTORE SUPERBANK
063152,001035:
063153,001036: 10,3171 77674 MASK PRIO37
063154,001037: 10,3172 05103 TC PRIOCHNG
063155,001038:
063156,001039: 10,3173 46214 CS THREE
063157,001040: 10,3174 60374 AD TEMPFLSH
063158,001041: 10,3175 14577 TCF BANKJUMP
063159,001042:
063160,001043: 10,3176 00003 PINBRNCH RELINT # FOR GOPIN USERS
063161,001044: 10,3177 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
063162,001045: 10,3200 54156 TS MPAC +2 # ONLY
063163,001046:
063164,001047: 10,3201 30100 CA FLAGWRD4 # PINBRANCH CONDITION
|
|
Page 1444 |
063166,001049: 10,3202 77707 MASK PINMASK
063167,001050: 10,3203 10000 CCS A
063168,001051: 10,3204 13207 TCF +3
063169,001052: 10,3205 13617 TCF ERASER # ** NOTHING IN ENDIDLE
063170,001053: 10,3206 12530 TCF MARKPLAY
063171,001054:
063172,001055: 10,3207 05435 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
063173,001056: 10,3210 00105 ADRES PINBRFLG
063174,001057:
063175,001058: 10,3211 34675 CAF BIT14 # PRIO INTERRUPTED
063176,001059: 10,3212 70100 MASK FLAGWRD4
063177,001060: 10,3213 10000 CCS A
063178,001061: 10,3214 12672 TCF KEEPPRIO
063179,001062:
063180,001063: 10,3215 12743 TCF PLAYJUM1
063181,001064:
063182,001065: 10,3216 02550 NVDSP TC COPYPACS
063183,001066:
063184,001067: 10,3217 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
063185,001068: 10,3220 74716 MASK SEVEN # USER REQUESTS BLANKING MONITOR
063186,001069: 10,3221 54001 TS L
063187,001070:
063188,001071: 10,3222 44676 CS BIT13
063189,001072: 10,3223 50164 INDEX COPINDEX
063190,001073: 10,3224 71067 MASK DSPFLG
063191,001074: 10,3225 50164 INDEX COPINDEX
063192,001075: 10,3226 55067 TS DSPFLG
063193,001076:
063194,001077: 10,3227 74703 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
063195,001078: 10,3230 54141 TS TEM1
063196,001079:
063197,001080: 10,3231 30156 CA MPAC +2
063198,001081: 10,3232 54165 TS MPAC2SAV
063199,001082:
063200,001083: 10,3233 55072 TS MARK2PAC # * FOR DISK ONLY *
063201,001084: 10,3234 50164 INDEX COPINDEX
063202,001085: 10,3235 10367 CCS NVWORD
063203,001086: 10,3236 13245 TCF NVDSP1
063204,001087: 10,3237 13361 TCF CLEANEND
063205,001088: 10,3240 40370 CS MARKNV
063206,001089: 10,3241 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
063207,001090: 10,3242 76043 MASK LOW7
063208,001091: 10,3243 63643 AD V05N00M1
063209,001092: 10,3244 60141 AD TEM1
063210,001093: 10,3245 64712 NVDSP1 AD ONE
063211,001094: 10,3246 04171 NV50DSP TC NVMONOPT
063212,001095: 10,3247 13373 TCF REST # IF BUSY
063213,001096:
063214,001097: 10,3250 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
063215,001098:
063216,001099: 10,3251 02546 TC COPYTOGO # MPACS DESTROYED BY NVSUB
|
|
Page 1445 |
063218,001101: 10,3252 05447 TC DOWNFLAG # UNSET SLEEPING BITS
063219,001102: 10,3253 00102 ADRES MRKNVFLG
063220,001103: 10,3254 05447 TC DOWNFLAG
063221,001104: 10,3255 00103 ADRES NRMNVFLG
063222,001105: 10,3256 05447 TC DOWNFLAG
063223,001106: 10,3257 00104 ADRES PRONVFLG
063224,001107: 10,3260 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
063225,001108: 10,3261 04271 TC BLANKSUB
063226,001109: 10,3262 13216 TCF NVDSP
063227,001110: 10,3263 34706 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
063228,001111: 10,3264 70160 MASK TEMPOR2
063229,001112: 10,3265 10000 CCS A # IS THIS A GOPERF DISPLAY
063230,001113: 10,3266 13311 TCF 1STOR2ND # YES
063231,001114:
063232,001115: 10,3267 34707 GOANIDLE CAF BIT4
063233,001116: 10,3270 70160 MASK TEMPOR2
063234,001117: 10,3271 10000 CCS A
063235,001118: 10,3272 13406 TCF FLASHSUB # IT IS
063236,001119:
063237,001120: 10,3273 40160 CS TEMPOR2 # IS THIS A GODSPRET
063238,001121: 10,3274 74705 MASK BIT6
063239,001122: 10,3275 10000 CCS A
063240,001123: 10,3276 13303 TCF ISITN00
063241,001124:
063242,001125: 10,3277 50164 INDEX COPINDEX
063243,001126: 10,3300 30372 CA CADRFLSH
063244,001127: 10,3301 54157 TS MPAC +3
063245,001128: 10,3302 13501 TCF ENDIT
063246,001129:
063247,001130: 10,3303 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
063248,001131: 10,3304 30367 CA NVWORD
063249,001132: 10,3305 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
063250,001133: 10,3306 00006 EXTEND
063251,001134: 10,3307 13406 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
063252,001135:
063253,001136: 10,3310 15112 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
063254,001137:
063255,001138: 10,3311 30160 1STOR2ND CA TEMPOR2
063256,001139: 10,3312 74676 MASK BIT13
063257,001140: 10,3313 10000 CCS A
063258,001141: 10,3314 13267 TCF GOANIDLE # SECOND
063259,001142:
063260,001143: 10,3315 34676 CA BIT13
063261,001144: 10,3316 50164 INDEX COPINDEX
063262,001145: 10,3317 27067 ADS DSPFLG
063263,001146:
063264,001147: 10,3320 22007 ZL
063265,001148: 10,3321 00006 EXTEND # IS IT MARK
063266,001149: 10,3322 62571 BZMF MARKPERF # YES
|
|
Page 1446 |
063268,001151: 10,3323 74677 MASK BIT12
063269,001152: 10,3324 00006 EXTEND
063270,001153: 10,3325 13331 BZF V50PASTE
063271,001154: 10,3326 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
063272,001155: 10,3327 63667 AD V97N00
063273,001156: 10,3330 13246 TCF NV50DSP
063274,001157: 10,3331 33626 V50PASTE CAF V50N00
063275,001158: 10,3332 13246 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
063276,001159:
063277,001160: 10,3333 44706 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
063278,001161: 10,3334 00006 EXTEND
063279,001162: 10,3335 03011 WAND DSALMOUT
063280,001163:
063281,001164: 10,3336 30100 CA FLAGWRD4
063282,001165: 10,3337 73644 MASK NVBUSMSK # IS IT NVSUB ASLEEP
063283,001166: 10,3340 10000 CCS A
063284,001167: 10,3341 34712 CAF ONE
063285,001168: 10,3342 54001 TS L
063286,001169: 10,3343 34714 CAF ZERO
063287,001170: 10,3344 50001 INDEX L
063288,001171: 10,3345 57042 XCH CADRSTOR
063289,001172:
063290,001173: 10,3346 00004 INHINT
063291,001174: 10,3347 00002 TC Q
063292,001175:
063293,001176: 10,3350 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
063294,001177: 10,3351 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
063295,001178: 10,3352 00006 EXTEND
063296,001179: 10,3353 63357 BZMF RELINTQ # NO
063297,001180: 10,3354 56064 XCH LOCCTR # YES
063298,001181: 10,3355 50064 INDEX LOCCTR
063299,001182: 10,3356 54164 TS LOC
063300,001183:
063301,001184: 10,3357 00003 RELINTQ RELINT
063302,001185: 10,3360 00002 TC Q # BACK TO USER
063303,001186:
063304,001187: 10,3361 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
063305,001188: 10,3362 05042 TC FINDVAC
063306,001189: 10,3363 0371 EBANK= NVSAVE
063307,001190: 10,3363 04245 04100 2CADR JAMTERM
063308,001191:
063309,001192: 10,3365 13407 TCF FLASHSUB +1
063310,001193:
063311,001194: 10,3366 30100 ISITPRIO CA FLAGWRD4
063312,001195: 10,3367 73414 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
063313,001196: 10,3370 00006 EXTEND
063314,001197: 10,3371 12723 BZF PRIOBORT
063315,001198: 10,3372 15112 TCF ENDOFJOB
|
|
Page 1447 |
063317,001200: 10,3373 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
063318,001201: 10,3374 15112 TCF ENDOFJOB # YES
063319,001202: 10,3375 13377 TCF RESTSLEP
063320,001203:
063321,001204: 10,3376 15112 TCF ENDOFJOB
063322,001205:
063323,001206: 10,3377 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
063324,001207: 10,3400 73645 MASK ASTROMSK
063325,001208: 10,3401 07717 TC UPENT2
063326,001209: 10,3402 24100 OCT24100 OCT 24100 # *** DONT MOVE
063327,001210:
063328,001211: 10,3403 50164 INDEX COPINDEX
063329,001212: 10,3404 33635 CAF NVCADR
063330,001213: 10,3405 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
063331,001214:
063332,001215: 10,3406 04443 FLASHSUB TC FLASHON
063333,001216:
063334,001217: 10,3407 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
063335,001218: 10,3410 54157 TS COPMPAC
063336,001219:
063337,001220: 10,3411 30162 CA GENMASK
063338,001221: 10,3412 73136 MASK IDLEMASK
063339,001222: 10,3413 07717 TC UPENT2
063340,001223: 10,3414 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
063341,001224:
063342,001225: 10,3415 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
063343,001226: 10,3416 50164 INDEX COPINDEX
063344,001227: 10,3417 74710 MASK BIT3
063345,001228: 10,3420 10000 CCS A
063346,001229: 10,3421 13506 TCF UNSETR1 # YES
063347,001230:
063348,001231: 10,3422 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
063349,001232: 10,3423 13366 TCF ISITPRIO
063350,001233: 10,3424 13426 TCF +2
063351,001234: 10,3425 13366 TCF ISITPRIO
063352,001235:
063353,001236: 10,3426 04223 TC ENDIDLE
063354,001237: 10,3427 13520 IDLERET1 TCF TERMATE
063355,001238:
063356,001239: 10,3430 13537 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
063357,001240:
063358,001241: 10,3431 43654 CS LOWLOAD
063359,001242: 10,3432 60154 AD MPAC # VERBREG
063360,001243: 10,3433 00006 EXTEND
063361,001244: 10,3434 26000 DIM A
063362,001245: 10,3435 00006 EXTEND
063363,001246: 10,3436 13607 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
063364,001247:
063365,001248: 10,3437 34711 OKTOENT CAF TWO
063366,001249: 10,3440 54161 ENDOUT TS OUTHERE
|
|
Page 1448 |
063368,001251: 10,3441 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
063369,001252: 10,3442 74105 MASK OCT60000
063370,001253: 10,3443 10000 CCS A
063371,001254: 10,3444 13447 TCF TIMECHEK # PRIO ENDIDLE RETURN
063372,001255: 10,3445 13555 TCF NORMRET # NORMAL ENDIDLE RETURN
063373,001256: 10,3446 13541 TCF MARKRET # MARK ENDIDLE RETURN
063374,001257:
063375,001258: 10,3447 40025 TIMECHEK CS TIME1
063376,001259: 10,3450 61147 AD PRIOTIME
063377,001260: 10,3451 10000 CCS A
063378,001261: 10,3452 40000 COM
063379,001262: 10,3453 67700 AD OCT37776
063380,001263: 10,3454 64712 AD ONE
063381,001264: 10,3455 63677 AD -2SEC
063382,001265: 10,3456 00006 EXTEND
063383,001266: 10,3457 62672 BZMF KEEPPRIO
063384,001267:
063385,001268: 10,3460 13555 TCF NORMRET
063386,001269:
063387,001270: 10,3461 34712 NORMWAKE CAF ONE
063388,001271: 10,3462 13152 TCF WAKEPLAY
063389,001272:
063390,001273: 10,3463 10161 ENDRET CCS OUTHERE
063391,001274: 10,3464 64712 AD ONE
063392,001275: 10,3465 13467 TCF +2 # NORMAL ENDIDLE EXIT
063393,001276: 10,3466 15112 TCF ENDOFJOB
063394,001277: 10,3467 50157 INDEX COPMPAC
063395,001278: 10,3470 60372 AD CADRFLSH
063396,001279: 10,3471 54157 TS MPAC +3
063397,001280:
063398,001281: 10,3472 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
063399,001282: 10,3473 73475 MASK PINIDMSK
063400,001283: 10,3474 07735 TC DOWNENT2
063401,001284: 10,3475 74044 PINIDMSK OCT 74044 # *** DONT MOVE
063402,001285:
063403,001286: 10,3476 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
063404,001287: 10,3477 04170 TC NVSUB
063405,001288: 10,3500 13501 TCF +1
063406,001289:
063407,001290: 10,3501 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
063408,001291: 10,3502 77674 MASK PRIO37
063409,001292: 10,3503 05103 TC PRIOCHNG
063410,001293: 10,3504 30157 CA MPAC +3
063411,001294: 10,3505 14577 TCF BANKJUMP
063412,001295:
063413,001296: 10,3506 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
063414,001297: 10,3507 44710 CS BIT3
063415,001298: 10,3510 71073 MASK R1SAVE
063416,001299: 10,3511 55073 TS R1SAVE
|
|
Page 1449 |
063418,001301: 10,3512 34714 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
063419,001302: 10,3513 04666 TC SUPERSW # SUPERBANK 0
063420,001303:
063421,001304: 10,3514 36214 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
063422,001305: 10,3515 50164 IMMEDRET INDEX COPINDEX
063423,001306: 10,3516 60372 AD CADRFLSH
063424,001307: 10,3517 14577 TCF BANKJUMP
063425,001308:
063426,001309: 10,3520 34714 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
063427,001310: 10,3521 13440 TCF ENDOUT
063428,001311:
063429,001312: 10,3522 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
063430,001313: 10,3523 74675 MASK BIT14
063431,001314: 10,3524 10000 CCS A
063432,001315: 10,3525 16706 TCF Q+1 # NO
063433,001316: 10,3526 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
063434,001317: 10,3527 50164 INDEX COPINDEX
063435,001318: 10,3530 60372 AD CADRFLSH
063436,001319: 10,3531 00006 EXTEND
063437,001320: 10,3532 13534 BZF +2 # YES
063438,001321:
063439,001322: 10,3533 00002 TC Q # NO
063440,001323: 10,3534 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
063441,001324: 10,3535 05112 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
063442,001325: 10,3536 00002 TC Q
063443,001326:
063444,001327: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
063445,001328:
063446,001329: 10,3537 34712 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
063447,001330: 10,3540 13440 TCF ENDOUT
063448,001331:
063449,001332: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
063450,001333: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
063451,001334: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
063452,001335:
063453,001336: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
063454,001337: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
063455,001338: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
063456,001339: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
063457,001340:
063458,001341: 10,3541 46211 MARKRET CS SIX
063459,001342: 10,3542 70100 MASK FLAGWRD4
063460,001343: 10,3543 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
063461,001344: 10,3544 54100 TS FLAGWRD4
063462,001345:
063463,001346: 10,3545 00003 RELINT # INHINT REALM
063464,001347: 10,3546 13463 TCF ENDRET
063465,001348:
063466,001349: 10,3547 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
063467,001350: 10,3550 54161 TS OUTHERE
|
|
Page 1450 |
063469,001352: 10,3551 30100 CA FLAGWRD4 # IS ENDIDFLG SET
063470,001353: 10,3552 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
063471,001354: 10,3553 10000 CCS A
063472,001355: 10,3554 13207 TCF NORMBNCH
063473,001356:
063474,001357: 10,3555 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
063475,001358: 10,3556 73652 MASK BITS5+11 # OR WAITING
063476,001359: 10,3557 10000 CCS A
063477,001360: 10,3560 13151 TCF MARKWAKE
063478,001361:
063479,001362: 10,3561 30100 CA FLAGWRD4 # NO
063480,001363: 10,3562 73653 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
063481,001364: 10,3563 10000 CCS A
063482,001365: 10,3564 13461 TCF NORMWAKE # YES
063483,001366:
063484,001367: 10,3565 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
063485,001368: 10,3566 74726 MASK OCT50 # OR A GODSPRET
063486,001369: 10,3567 10000 CCS A
063487,001370: 10,3570 13463 TCF ENDRET # YES
063488,001371: 10,3571 30371 CA NVSAVE
063489,001372: 10,3572 00006 EXTEND
063490,001373: 10,3573 13463 BZF ENDRET
063491,001374:
063492,001375: 10,3574 34762 CAF PRIO15
063493,001376: 10,3575 00004 INHINT
063494,001377: 10,3576 05027 TC NOVAC
063495,001378: 10,3577 0367 EBANK= NVWORD
063496,001379: 10,3577 02743 20100 2CADR PLAYJUM1
063497,001380:
063498,001381: 10,3601 13463 TCF ENDRET
063499,001382:
063500,001383: 10,3602 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
063501,001384: 10,3603 73652 MASK BITS5+11
063502,001385: 10,3604 10000 CCS A
063503,001386: 10,3605 15112 TCF ENDOFJOB # YES
063504,001387: 10,3606 13102 TCF GOSLEEPS
063505,001388:
063506,001389: 10,3607 50157 LOADITIS INDEX COPMPAC
063507,001390: 10,3610 30367 CA NVWORD
063508,001391: 10,3611 76043 MASK LOW7
063509,001392: 10,3612 40000 COM
063510,001393: 10,3613 60155 AD MPAC +1 # NOUNREG
063511,001394: 10,3614 00006 EXTEND
063512,001395: 10,3615 13437 BZF OKTOENT # NO, THEN LOAD IS VALID
063513,001396: 10,3616 13176 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
063514,001397:
063515,001398: 10,3617 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
063516,001399: 10,3620 04170 TC NVSUB
063517,001400: 10,3621 15112 TCF ENDOFJOB
|
|
Page 1451 |
063519,001402: 10,3622 15112 TCF ENDOFJOB
063520,001403:
063521,001404: 10,3623 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
063522,001405: 10,3624 00231 V01N25 VN 00125
063523,001406: 10,3625 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
063524,001407: 10,3626 14400 V50N00 VN 5000
063525,001408: 10,3627 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
063526,001409: 10,3630 01006 V04N06 VN 00406
063527,001410: 10,3631 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
063528,001411: 10,3632 10,3176 GOAGIN EQUALS PINBRNCH
063529,001412: 10,3632 20010 REDOMASK OCT 20010 # BITS 4 AND 14
063530,001413: 10,3633 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
063531,001414: 10,3634 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
063532,001415: 10,3635 20670 NVCADR CADR REDOPRIO
063533,001416: 10,3636 20530 WAKECADR CADR MARKPLAY
063534,001417: 10,3637 20743 CADR PLAYJUM1
063535,001418:
063536,001419: 10,3640 03400 OCT3400 OCT 3400 # EBANK MASK
063537,001420: 10,3641 11210 NBUSMASK OCT 11210
063538,001421: 10,3642 66521 PMMASK OCT 66521
063539,001422: 10,3643 4160 VERBMASK = MID7 # (OCT 37600)
063540,001423: 10,3643 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
063541,001424: 10,3644 10,2461 GOXDSP EQUALS GOMARK
063542,001425: 10,3644 10,2501 GOXDSPR EQUALS GOMARKR
063543,001426: 10,3644 10,2465 GOXDSPF EQUALS GOMARKF
063544,001427: 10,3644 10,2504 GOXDSPFR EQUALS GOMARKFR
063545,001428: 10,3644 5423 ENDEXT EQUALS ENDMARK
063546,001429: 10,3644 0165 MPAC2SAV EQUALS BANKSET
063547,001430: 10,3644 00700 NVBUSMSK OCT 700
063548,001431: 10,3645 00704 ASTROMSK OCT 704
063549,001432: 10,3646 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
063550,001433: 10,3647 34300 OCT34300 OCT 34300
063551,001434: 10,3650 40100 BITS15+7 OCT 40100
063552,001435: 10,3651 00110 BITS7+4 OCT 110
063553,001436: 10,3652 1067 DSPFLG EQUALS EBANKSAV
063554,001437: 10,3652 1070 MARKFLAG EQUALS MARKEBAN
063555,001438: 10,3652 1071 SAVEFLAG EQUALS EBANKTEM
063556,001439: 10,3652 02020 BITS5+11 OCT 2020 # * DONT MOVE
063557,001440: 10,3653 01010 BITS4+10 OCT 1010 # * DONT MOVE
063558,001441: 10,3654 00026 LOWLOAD DEC 22 B-14
063559,001442: 10,3655 77730 BUSYMASK OCT 77730
063560,001443: 10,3656 00050 CADRMASK OCT 50
063561,001444: 10,3657 7707 PINMASK EQUALS 13,14,15
063562,001445: 10,3657 10,3216 GOPLAY EQUALS NVDSP
063563,001446: # PRIOSAVE EQUALS R1SAVE
063564,001447: 10,3657 0157 COPMPAC EQUALS MPAC +3
063565,001448: 10,3657 0160 TEMPOR2 EQUALS MPAC +4
063566,001449: 10,3657 0161 OUTHERE EQUALS MPAC +5
063567,001450: 10,3657 0164 COPINDEX EQUALS LOC
063568,001451: 10,3657 0163 USERPRIO EQUALS MODE
|
|
Page 1452 |
063570,001453: 10,3657 0162 GENMASK EQUALS MPAC +6
063571,001454: 10,3657 20144 PRIOOCT OCT 20144 # PRIO
063572,001455: 10,3660 42424 MARKOCT OCT 42424 # MARK
063573,001456: 10,3661 11254 OCT 11254 # NORM
063574,001457:
063575,001458: 10,3662 74704 IDLESLEP OCT 74704
063576,001459: 10,3663 67777 OCT67777 OCT 67777
063577,001460: 10,3664 5415 LINUS EQUALS BLANKET
063578,001461: 10,3664 0154 FACEREG EQUALS MPAC
063579,001462: 10,3664 0155 PLAYTEM1 EQUALS MPAC +1
063580,001463: 10,3664 0157 PLAYTEM3 EQUALS MPAC +3
063581,001464: 10,3664 0160 PLAYTEM4 EQUALS MPAC +4
063582,001465: 10,3664 40420 OCT40420 OCT 40420
063583,001466: 10,3665 02674 MAKEGEN GENADR MAKEPLAY
063584,001467: 10,3666 10200 OCT10200 OCT 10200
063585,001468: 10,3667 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
063586,001469: 10,3670 20100 OCT20100 OCT 20100
063587,001470:
063588,001471:
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc