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.
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. |
063183,000002: ## Copyright: Public domain.
063184,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
063185,000004: ## Purpose: Part of the source code for Comanche, build 055. It
063186,000005: ## is part of the source code for the Command Module's
063187,000006: ## (CM) Apollo Guidance Computer (AGC), Apollo 11.
063188,000007: ## Assembler: yaYUL
063189,000008: ## Reference: pp. 1452-1484
063190,000009: ## Contact: Ron Burkey <info@sandroid.org>
063191,000010: ## Website: http://www.ibiblio.org/apollo.
063192,000011: ## Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
063193,000012: ## name, and page images. Corrected various
063194,000013: ## typos in the transcription of program
063195,000014: ## comments, and these should be back-ported
063196,000015: ## to Colossus249.
063197,000016: ## 2010-08-29 JL Fixed indentation, whitespace.
063198,000017: ## 2016-12-22 RSB Proofed comment text using octopus/ProoferComments
063199,000018: ## and corrected the errors found.
063200,000019: ## 2017-01-08 RSB Fixed comment errors detected in cross-diff vs
063201,000020: ## Colossus 249.
063202,000021: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
063203,000022: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
063204,000023: ## side-by-side diff of Luminary 69/99/116/131/210.
063205,000024:
063206,000025: ## The contents of the "Comanche055" files, in general, are transcribed
063207,000026: ## from scanned documents.
063208,000027: ##
063209,000028: ## Assemble revision 055 of AGC program Comanche by NASA
063210,000029: ## 2021113-051. April 1, 1969.
063211,000030: ##
063212,000031: ## This AGC program shall also be referred to as Colossus 2A
063213,000032: ##
063214,000033: ## Prepared by
063215,000034: ## Massachusetts Institute of Technology
063216,000035: ## 75 Cambridge Parkway
063217,000036: ## Cambridge, Massachusetts
063218,000037: ##
063219,000038: ## under NASA contract NAS 9-4065.
063220,000039: ##
063221,000040: ## Refer directly to the online document mentioned above for further
063222,000041: ## information. Please report any errors to info@sandroid.org.
063223,000042:
|
|
Page 1452 |
063225,000044: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
063226,000045: # 1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
063227,000046: # OUT UNDER CRITICAL ALARM CONDITIONS.
063228,000047: # 2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
063229,000048: # 3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
063230,000049: # SEQUENCE OF EVENTS.
063231,000050: # 4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
063232,000051: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
063233,000052: # 5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
063234,000053:
063235,000054: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
063236,000055: # 1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
063237,000056: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
063238,000057: # BUT NOT WAITING FOR A RESPONSE.
063239,000058: # 2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
063240,000059: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
063241,000060: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
063242,000061: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
063243,000062: # HAS INFO SAVED FOR RESTART PURPOSES.
063244,000063:
063245,000064: # DISPLAY PRIORITIES WORK AS FOLLOWS-
063246,000065: # INTERRUPTS -
063247,000066: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
063248,000067: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
063249,000068: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
063250,000069: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
063251,000070: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
063252,000071: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
063253,000072:
063254,000073: # ORDER OF WAITING DISPLAYS-
063255,000074: # 1. ASTRONAUT EXTERNAL USE
063256,000075: # 2. PRIORITY
063257,000076: # 3. INTERRUPTED MARK
063258,000077: # 4. INTERRUPTED NORMAL
063259,000078: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
063260,000079: # 6. MARK WAITING
063261,000080: # 7. NORMAL WAITING
063262,000081:
|
|
Page 1453 |
063264,000083: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
063265,000084: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
063266,000085: # WILL FOLLOW LATER):
063267,000086: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
063268,000087: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
063269,000088: # IS TO THE USERS CALLING LOC +1.
063270,000089: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
063271,000090: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
063272,000091: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
063273,000092: # USERS JOB.
063274,000093: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
063275,000094: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
063276,000095: # DESCRIPTION OF RESTARTS).
063277,000096: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
063278,000097: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
063279,000098: # (V32) BRANCHES TO THE USERS CALL CADR +3.
063280,000099: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
063281,000100:
063282,000101: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
063283,000102:
063284,000103: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
063285,000104: # 1. GODSP IS NOT RESTARTABLE
063286,000105: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
063287,000106: # CAF VXXNYY
063288,000107: # TC BANKCALL
063289,000108: # CADR GODSP
063290,000109: # VXXNYY OCT 0XXYY
063291,000110:
063292,000111: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
063293,000112: # CAF VXXNYY
063294,000113: # TC BANKCALL
063295,000114: # CADR GODSPR
063296,000115: # ... ... IMMEDIATE RETURN OF GODSPR
063297,000116:
063298,000117: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
063299,000118: # THE ASTRONAUT (SEE NO. 7 ABOVE).
063300,000119: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
063301,000120: # TC BANKCALL
063302,000121: # CADR GOFLASH
063303,000122: # ... ... TERMINATE RETURN
063304,000123: # ... ... PROCEED RETURN
063305,000124: # ... ... ENTER OR RECYCLE RETURN
063306,000125:
063307,000126: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
|
|
Page 1454 |
063309,000128: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
063310,000129: # USER (SEE NO. 7 ABOVE).
063311,000130: # GOPERF1 BLANKS REGISTERS R2 AND R3
063312,000131: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
063313,000132: # TC BANKCALL
063314,000133: # CADR GOPERF1
063315,000134: # ... ... TERMINATE RETURN
063316,000135: # ... ... PROCEED RETURN
063317,000136: # ... ... ENTER RETURN
063318,000137: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
063319,000138: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
063320,000139: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
063321,000140: # GOPERF2 DOES NOT BLANK ANY REGISTERS
063322,000141: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
063323,000142: # TC BANKCALL
063324,000143: # CADR GOPERF2
063325,000144: # ... ... TERMINATE RETURN
063326,000145: # ... ... PROCEED RETURN
063327,000146: # ... ... ENTER RETURN
063328,000147: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
063329,000148: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
063330,000149: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
063331,000150: # GOPERF3 BLANKS REGISTERS R2 AND R3
063332,000151: # CAF DECXX REQUEST PERFORM ON PXX
063333,000152: # TC BANKCALL
063334,000153: # CADR GOPERF3
063335,000154: # ... ... TERMINATE RETURN
063336,000155: # ... ... PROCEED RETURN
063337,000156: # ... ... ENTER RETURN
063338,000157:
063339,000158: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
063340,000159: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
063341,000160: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
063342,000161: # CAF OCTXX REQUEST PERFORM ON OPTION XX
063343,000162: # TC BANKCALL
063344,000163: # CADR GOPERF4
063345,000164: # ... ... TERMINATE RETURN
063346,000165: # ... ... PROCEED RETURN
063347,000166: # ... ... ENTER RETURN
063348,000167: # GOPERF4 BLANKS REGISTER R3
063349,000168:
|
|
Page 1455 |
063351,000170: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
063352,000171: # OUT.
063353,000172: # CAF VXXNYY
063354,000173: # TC BANKCALL
063355,000174: # CADR GODSPRET
063356,000175: # ... ... RETURN TO USER
063357,000176:
063358,000177: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
063359,000178: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
063360,000179: # CAF VXXNYY
063361,000180: # TC BANKCALL
063362,000181: # CADR REGODSP
063363,000182:
063364,000183: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
063365,000184: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
063366,000185: # TC BANKCALL
063367,000186: # CADR REFLASH
063368,000187: # ... ... TERMINATE RETURN
063369,000188: # ... ... PROCEED RETURN
063370,000189: # ... ... ENTER RETURN
063371,000190:
063372,000191: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
063373,000192: # CAF VXXNYY
063374,000193: # TC BANKCALL
063375,000194: # CADR GOFLASHR
063376,000195: # ... ... TERMINATE RETURN
063377,000196: # ... ... PROCEED RETURN
063378,000197: # ... ... ENTER OR RECYCLE RETURN
063379,000198: # ... ... IMMEDIATE RETURN FROM GOFLASHR
063380,000199:
063381,000200: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
063382,000201: # GOPERF1R BLANKS REGISTERS R2 AND R3
063383,000202: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
063384,000203: # TC BANKCALL
063385,000204: # CADR GOPERF1R
063386,000205: # ... ... TERMINATE RETURN
063387,000206: # ... ... PROCEED RETURN
063388,000207: # ... ... ENTER RETURN
063389,000208: # ... ... IMMEDIATE RETURN FROM GOPERF1R
063390,000209:
063391,000210: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
|
|
Page 1456 |
063393,000212: # GOPERF2R DOES NOT BLANK ANY REGISTERS
063394,000213: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
063395,000214: # TC BANKCALL
063396,000215: # CADR GOPERF2R
063397,000216: # ... ... TERMINATE RETURN
063398,000217: # ... ... PROCEED RETURN
063399,000218: # ... ... ENTER RETURN
063400,000219: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
063401,000220:
063402,000221: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
063403,000222: # GOPERF3R BLANKS REGISTERS R2 AND R3
063404,000223: # CAF PROGXX PERFORM PROGRAM XX
063405,000224: # TC BANKCALL
063406,000225: # CADR GOPERF3R
063407,000226: # ... ... TERMINATE RETURN
063408,000227: # ... ... PROCEED RETURN
063409,000228: # ... ... ENTER RETURN
063410,000229: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
063411,000230:
063412,000231: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
063413,000232: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
063414,000233: # TC BANKCALL
063415,000234: # CADR GOPERF4R
063416,000235: # ... ... TERMINATE RETURN
063417,000236: # ... ... PROCEED RETURN
063418,000237: # ... ... ENTER RETURN
063419,000238: # ... ... IMMEDIATE RETURN TO USER
063420,000239: # GOPERF4R BLANKS REGISTER R3
063421,000240:
063422,000241: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
063423,000242: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
063424,000243: # TC BANKCALL
063425,000244: # CADR REFLASHR
063426,000245: # ... ... TERMINATE RETURN
063427,000246: # ... ... PROCEED RETURN
063428,000247: # ... ... ENTER RETURN
063429,000248: # ... ... IMMEDIATE RETURN TO USER
063430,000249:
063431,000250: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
|
|
Page 1457 |
063433,000252: # CAF VXXNYY
063434,000253: # TC BANKCALL
063435,000254: # CADR REGODSPR
063436,000255: # ... ... IMMEDIATE RETURN TO USER
063437,000256:
|
|
Page 1458 |
063439,000258: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
063440,000259: # GOXDSP = GOMARK
063441,000260: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
063442,000261: # TC BANKCALL
063443,000262: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
063444,000263:
063445,000264: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
063446,000265: # GOXDSPR = GOMARKR
063447,000266: # CAF VXXNYY
063448,000267: # TC BANKCALL
063449,000268: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
063450,000269:
063451,000270: # ... ... IMMEDIATE RETURN OF GOMARKR
063452,000271:
063453,000272: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
063454,000273: # THE ASTRONAUT (SEE NO. 7 ABOVE).
063455,000274:
063456,000275: # GOXDSPF = GOMARKF
063457,000276:
063458,000277: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
063459,000278: # TC BANKCALL
063460,000279: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
063461,000280: # ... ... TERMINATE RETURN
063462,000281: # ... ... PROCEED RETURN
063463,000282: # ... ... ENTER OR RECYCLE RETURN
063464,000283:
063465,000284: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
063466,000285: # GOXDSPFR = GOMARKFR
063467,000286: # CAF VXXNYY FLASHING MARK VERB NOUN
063468,000287: # TC BANKCALL
063469,000288: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
063470,000289: # ... ... TERMINATE RETURN
063471,000290: # ... ... PROCEED RETURN
063472,000291: # ... ... ENTER OR RECYCLE RETURN
063473,000292: #
063474,000293: # ... ... IMMEDIATE RETURN TO THE USER
063475,000294:
063476,000295: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
063477,000296: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
063478,000297: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
063479,000298: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
063480,000299:
063481,000300: # CAF V5XNYY X=1,2,3,4 Y=NOUN
063482,000301: # TC BANKCALL
|
|
Page 1459 |
063484,000303: # CADR GOMARK1
063485,000304: # ... ... ENTER RETURN
063486,000305:
063487,000306: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
063488,000307:
063489,000308: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
063490,000309: # CAF V5XNYY X=1,2,3,4 YY=NOUN
063491,000310: # TC BANKCALL
063492,000311: # CADR GOMARK1R
063493,000312: # ... ... ASTRONAUT ENTER RETURN
063494,000313: # ... ... IMMEDIATE RETURN TO USER
063495,000314:
063496,000315: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
063497,000316: # CAF V5XNYY X=1,2,3,4 YY=NOUN
063498,000317: # TC BANKCALL
063499,000318: # CADR GOMARK2
063500,000319: # ... ... TERMINATE RETURN
063501,000320: # ... ... PROCEED RETURN
063502,000321: # ... ... ENTER RETURN
063503,000322:
063504,000323: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
063505,000324: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
063506,000325: # TC BANKCALL
063507,000326: # CADR GOMARK2R
063508,000327: # ... ... TERMINATE RETURN
063509,000328: # ... ... PROCEED RETURN
063510,000329: # ... ... ENTER RETURN
063511,000330: # ... ... IMMEDIATE RETURN TO THE USER
063512,000331:
063513,000332: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
063514,000333: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
063515,000334: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
063516,000335: # CAF V5XNYY X=1,2,3,4 YY=NOUN
063517,000336: # TC BANKCALL
063518,000337: # CADR GOMARK3
063519,000338: # ... ... TERMINATE RETURN
063520,000339: # ... ... PROCEED RETURN
063521,000340: # ... ... ENTER RETURN
063522,000341:
063523,000342: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
063524,000343: # CAF V5XNYY X=1,2,3,4 YY=NOUN
063525,000344: # TC BANKCALL
063526,000345: # CADR GOMARK4
063527,000346: # ... ... TERMINATE RETURN
063528,000347: # ... ... PROCEED RETURN
|
|
Page 1460 |
063530,000349: # ... ... ENTER RETURN
063531,000350: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
063532,000351: # SENT OUT.
063533,000352: # CAF VXXNYY
063534,000353: # TC BANKCALL
063535,000354: # CADR EXDSPRET
063536,000355: # ... ... RETURN TO USER
063537,000356:
063538,000357: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
063539,000358: # HAVE BEEN CLEANED OUT.
063540,000359: # TC BANKCALL
063541,000360: # CADR KLEENEX
063542,000361: # ... ... RETURN TO USER
063543,000362:
063544,000363: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
063545,000364: # TC BANKCALL
063546,000365: # CADR MARKBRAN
063547,000366: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
063548,000367: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
063549,000368: # LAST FLASHING MARK R ROUTINE)
063550,000369:
063551,000370: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
063552,000371: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
063553,000372: # TC POSTJUMP
063554,000373: # CADR PINBRNCH
063555,000374:
063556,000375: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
063557,000376: # THE ASTRONAUT (SEE NO. 7 ABOVE).
063558,000377:
063559,000378: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
063560,000379: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
063561,000380: # IS RESPONDED TO BY THE ASTRONAUT.
063562,000381:
063563,000382: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
063564,000383: # PRIO DISPLAY.
063565,000384: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
063566,000385: # TC BANKCALL
063567,000386: # CADR PRIODSP
063568,000387: # ... ... TERMINATE RETURN
063569,000388: # ... ... PROCEED RETURN
|
|
Page 1461 |
063571,000390: # ... ... ENTER OR RECYCLE RETURN
063572,000391:
063573,000392: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
063574,000393: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
063575,000394: # TC BANKCALL
063576,000395: # CADR PRIODSPR
063577,000396: # ... ... TERMINATE RETURN
063578,000397: # ... ... PROCEED RETURN
063579,000398: # ... ... ENTER OR RECYCLE RETURN
063580,000399: # ... ... IMMEDIATE RETURN
063581,000400:
063582,000401: # PRIOLARM DOES A V05N09 PRIODSPR.
063583,000402:
063584,000403: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
063585,000404: # DISPLAYS ARE CLEANED OUT.
063586,000405: # TC BANKCALL
063587,000406: # CADR CLEANDSP
063588,000407: # ... ... RETURN TO USER
|
|
Page 1462 |
063590,000409:
063591,000410: # GENERAL INFORMATION
063592,000411: # ------- -----------
063593,000412:
063594,000413: # ALARM OR ABORT EXIT MODES--
063595,000414: # PRIOBORT TC ABORT
063596,000415: # OCT 1502
063597,000416:
063598,000417: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
063599,000418: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
063600,000419: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
063601,000420:
063602,000421: # ERASABLE INITIALIZATION REQUIRED--
063603,000422: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
063604,000423: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
063605,000424: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
063606,000425: # 5. R1SAVE = MARKBRAN CONTROL WORD
063607,000426: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
063608,000427:
063609,000428: # OUTPUT--
063610,000429: # NVWORD = PRIO VERB AND NOUN
063611,000430: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
063612,000431: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
063613,000432:
063614,000433: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
063615,000434: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
063616,000435: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
063617,000436:
063618,000437: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
063619,000438: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
063620,000439: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
063621,000440:
063622,000441: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
063623,000442: # OPTION1 = DESIRED OPTION FROM GOPERF4
063624,000443: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
063625,000444: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
063626,000445:
063627,000446: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
063628,000447: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
063629,000448:
063630,000449: # DEBRIS-- (STORED INTO)
063631,000450: # TEMPORARY TEMPORARIES - A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
063632,000451: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
063633,000452: # ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
063634,000453: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
|
|
Page 1463 |
063636,000455: # R1SAVE, MARK2PAC,
063637,000456:
063638,000457: # DEBRIS-- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
063639,000458:
063640,000459: # FLAGWORD DESCRIPTIONS--
063641,000460: # FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
063642,000461:
063643,000462: # DSPFLG, DSPFLG+1, DSPFLG +2-
063644,000463: # ----------------------------
063645,000464: # BITS 1 BLANK R1
063646,000465: # 2 BLANK R2
063647,000466: # 3 BLANK R3
063648,000467: # 4 FLASHING DISPLAY REQUESTED
063649,000468: # 5 PERFORM DISPLAY REQUESTED
063650,000469: # 6 ----- EXDSPRET GODSPRET
063651,000470: # 7 PRIO DISPLAY ----- -----
063652,000471: # 8 ----- DEC MARK PERFORM -----
063653,000472: # 9 EBANK
063654,000473: # 10 EBANK
063655,000474: # 11 EBANK
063656,000475: # 12 ----- ----- V99PASTE
063657,000476: # 13 2ND PART OF PERFORM
063658,000477: # 15 REFLASH OR REDO ----- REFLASH OR REDO
063659,000478: # 15 ----- MARK REQUEST -----
063660,000479:
063661,000480: # RESTARTING DISPLAYS--
063662,000481:
063663,000482: # RULES FOR THE DSKY OPERATOR --
063664,000483: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
063665,000484: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
063666,000485: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
063667,000486: # WITH PROCEED AND TERMINATE FOR THIS REASON.
063668,000487: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
063669,000488: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
063670,000489: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
063671,000490: # IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
063672,000491: # OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
063673,000492: # CONSIDERATION.
063674,000493: # 3. KEY RELEASE BUTTON -
063675,000494: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
063676,000495: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
063677,000496: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
063678,000497: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
063679,000498: # KEY RELEASE BUTTON MAY BE NECESSARY.
063680,000499: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
063681,000500: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
063682,000501: # OVER AGAIN.
063683,000502:
063684,000503: # SPECIAL CONSIDERATIONS--
|
|
Page 1464 |
063686,000505: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
063687,000506: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
063688,000507: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
063689,000508: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
063690,000509: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
063691,000510: # BY A .1 RESTART PHASE CHANGE.
063692,000511: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
063693,000512: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
063694,000513: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
063695,000514:
|
|
Page 1465 |
063697,000516: # CALLING SEQUENCE FOR BLANKING
063698,000517: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
063699,000518: # TC BLANKET
063700,000519: # ... ... RETURN TO USER HERE
063701,000520: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
063702,000521: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
063703,000522: 5526 BLOCK 02
063704,000523: 4000 SETLOC FFTAG4
063705,000524: 4000 BANK
063706,000525:
063707,000526: 5526 COUNT 02/DSPLA
063708,000527:
063709,000528: 5526 54162 BLANKET TS MPAC +6
063710,000529: 5527 40160 CS PLAYTEM4
063711,000530: 5530 70162 MASK MPAC +6
063712,000531: 5531 50161 INDEX MPAC +5
063713,000532: 5532 26160 ADS PLAYTEM4
063714,000533:
063715,000534: 5533 00002 TC Q
063716,000535:
063717,000536: 5534 04701 ENDMARK TC POSTJUMP
063718,000537: 5535 20553 CADR MARKEND
063719,000538:
063720,000539: 5536 35021 CLEARMRK CAF ZERO
063721,000540: 5537 55044 TS EXTVBACT
063722,000541:
063723,000542: 5540 00004 INHINT
063724,000543: 5541 45017 CS BIT1
063725,000544: 5542 70100 MASK FLAGWRD4
063726,000545: 5543 54100 TS FLAGWRD4
063727,000546:
063728,000547: 5544 00003 RELINT
063729,000548: 5545 00002 TC Q
063730,000549:
063731,000550: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
063732,000551: # FINISHED.
063733,000552:
063734,000553: 10,2553 BANK 10
063735,000554: 10,2000 SETLOC DISPLAYS
063736,000555: 10,2000 BANK
063737,000556:
063738,000557: 10,2553 COUNT 10/DSPLA
063739,000558:
063740,000559: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
063741,000560: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
063742,000561:
063743,000562: 10,2553 05536 MARKEND TC CLEARMRK
063744,000563: 10,2554 13643 TCF MARKOVER
063745,000564:
|
|
Page 1466 |
063747,000566: 10,2555 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
063748,000567:
063749,000568: 10,2556 35001 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
063750,000569: 10,2557 12722 TCF GOFLASH2
063751,000570:
063752,000571: 10,2560 35021 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
063753,000572: 10,2561 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
063754,000573:
063755,000574: 10,2562 33253 CAF MARKFMSK # MARK, FLASH
063756,000575: 10,2563 12722 TCF GOFLASH2
063757,000576:
063758,000577: 10,2564 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
063759,000578: 10,2565 33742 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
063760,000579: 10,2566 12722 TCF GOFLASH2
063761,000580:
063762,000581: 10,2567 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
063763,000582: 10,2570 33727 CAF MARK3MSK
063764,000583: 10,2571 12722 TCF GOFLASH2
063765,000584:
063766,000585: 10,2572 54155 GOMARK4 TS PLAYTEM1
063767,000586: 10,2573 33730 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
063768,000587: 10,2574 12722 TCF GOFLASH2
063769,000588:
063770,000589: 10,2575 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
063771,000590:
063772,000591: 10,2576 35001 CAF BIT15
063773,000592: 10,2577 12700 TCF GODSPR2
063774,000593:
063775,000594: 10,2600 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
063776,000595:
063777,000596: 10,2601 33253 CAF MARKFMSK
063778,000597: 10,2602 13061 TCF GODSPRS
063779,000598:
063780,000599: 10,2603 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
063781,000600: 10,2604 33742 CAF MPERFMSK # MARK, PERFORM, FLASH
063782,000601: 10,2605 13061 TCF GODSPRS
063783,000602:
063784,000603: 10,2606 54155 GOMARK3R TS PLAYTEM1
063785,000604: 10,2607 33727 CAF MARK3MSK
063786,000605: 10,2610 13061 TCF GODSPRS
063787,000606:
063788,000607: 10,2611 35017 MAKEMARK CAF ONE
063789,000608: 10,2612 03157 TC COPIES
063790,000609:
063791,000610: 10,2613 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
063792,000611: 10,2614 73743 MASK OCT34300
063793,000612: 10,2615 10000 CCS A
063794,000613: 10,2616 12654 TCF CHKPRIO
063795,000614:
063796,000615: 10,2617 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
|
|
Page 1467 |
063798,000617: 10,2620 75007 MASK BIT9
063799,000618:
063800,000619: 10,2621 00006 EXTEND
063801,000620: 10,2622 12624 BZF MARKPLAY # NO
063802,000621:
063803,000622: 10,2623 15217 TCF ENDOFJOB
063804,000623:
063805,000624: 10,2624 00004 MARKPLAY INHINT
063806,000625: 10,2625 45022 CS FIVE # RESET MARK OVER NORM, SET MARK
063807,000626: 10,2626 70100 MASK FLAGWRD4
063808,000627: 10,2627 65017 AD ONE
063809,000628: 10,2630 54100 TS FLAGWRD4
063810,000629: 10,2631 00003 RELINT
063811,000630:
063812,000631: 10,2632 41070 GOGOMARK CS MARKFLAG # PERFORM
063813,000632: 10,2633 75013 MASK BIT5
063814,000633: 10,2634 10000 CCS A
063815,000634: 10,2635 12640 TCF MARKCOP
063816,000635: 10,2636 40370 CS MARKNV
063817,000636: 10,2637 54370 TS MARKNV
063818,000637:
063819,000638: 10,2640 35017 MARKCOP CAF ONE # MARK INDEX
063820,000639: 10,2641 13040 TCF PRIOPLAY
063821,000640:
063822,000641: 10,2642 30165 COPYTOGO CA MPAC2SAV
063823,000642: 10,2643 54156 TS MPAC +2
063824,000643:
063825,000644: 10,2644 50164 COPYPACS INDEX COPINDEX
063826,000645: 10,2645 33753 CAF PRIOOCT
063827,000646: 10,2646 54162 TS GENMASK
063828,000647:
063829,000648: 10,2647 50164 INDEX COPINDEX
|
|
Was CAF — RSB 2004. |
063831,000650: 10,2650 31067 CA EBANKSAV
063832,000651: 10,2651 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
063833,000652:
063834,000653: 10,2652 54003 TS EBANK
063835,000654:
063836,000655: 10,2653 00002 TC Q
063837,000656:
063838,000657: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
063839,000658: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
063840,000659: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
063841,000660: # UNTIL ALL MARKING IS FINISHED.
063842,000661:
063843,000662: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
063844,000663: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
063845,000664:
063846,000665: 10,2654 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
063847,000666: 10,2655 73476 MASK OCT24100
063848,000667: 10,2656 10000 CCS A
063849,000668: 10,2657 13676 TCF MARSLEEP
063850,000669:
|
|
Page 1468 |
063852,000671: 10,2660 40100 CS FLAGWRD4
063853,000672: 10,2661 75015 MASK BIT3 # SET MARK OVER NORM
063854,000673: 10,2662 00004 INHINT
063855,000674: 10,2663 26100 ADS FLAGWRD4
063856,000675:
063857,000676: 10,2664 12756 TCF SETNORM
063858,000677:
063859,000678: 10,2665 30370 MARKPERF CA MARKNV
063860,000679: 10,2666 74160 MASK VERBMASK
063861,000680: 10,2667 13342 TCF NV50DSP
063862,000681:
063863,000682: 10,2670 54155 GODSP TS PLAYTEM1
063864,000683:
063865,000684: 10,2671 35021 GODSP2 CAF ZERO
063866,000685: 10,2672 12722 TCF GOFLASH2
063867,000686:
063868,000687: 10,2673 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
063869,000688:
063870,000689: 10,2674 35012 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
063871,000690: 10,2675 12722 TCF GOFLASH2
063872,000691:
063873,000692: 10,2676 54155 GODSPR TS PLAYTEM1
063874,000693:
063875,000694: 10,2677 35021 GODSPR1 CAF ZERO
063876,000695: 10,2700 54160 GODSPR2 TS PLAYTEM4
063877,000696:
063878,000697: 10,2701 35021 CAF ZERO # * DONT MOVE
063879,000698: 10,2702 13063 TCF GODSPRS1
063880,000699:
063881,000700: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
063882,000701: # SET UP TO BE STARTED OR RESTARTED.
063883,000702:
063884,000703: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
063885,000704: # OLD DISPLAY.
063886,000705:
063887,000706: # CALLING SEQUENCE FOR CLEANDSP -
063888,000707:
063889,000708: # TC BANKCALL
063890,000709: # CADR CLEANDSP
063891,000710:
063892,000711: 10,2703 35021 CLEANDSP CAF ZERO
063893,000712: 10,2704 54155 REFLASH TS PLAYTEM1
063894,000713:
063895,000714: 10,2705 33726 CAF REDOMASK # FLASH AND PERMIT
063896,000715: 10,2706 12722 TCF GOFLASH2
063897,000716:
063898,000717: 10,2707 54155 REGODSP TS PLAYTEM1
063899,000718:
063900,000719: 10,2710 35002 CAF BIT14
063901,000720: 10,2711 12722 TCF GOFLASH2
063902,000721:
|
|
Page 1469 |
063904,000723:
063905,000724: 10,2712 54155 REGODSPR TS PLAYTEM1
063906,000725: 10,2713 35002 CAF BIT14
063907,000726: 10,2714 12700 TCF GODSPR2
063908,000727:
063909,000728: 10,2715 54155 CLOCPLAY TS PLAYTEM1
063910,000729: 10,2716 33765 CAF CLOCKCON
063911,000730: 10,2717 12722 TCF GOFLASH2
063912,000731: 10,2720 54155 GOFLASH TS PLAYTEM1
063913,000732:
063914,000733: 10,2721 35014 CAF BIT4 # LEAVE ONLY FLASH BIT SET
063915,000734: 10,2722 54160 GOFLASH2 TS PLAYTEM4
063916,000735:
063917,000736: 10,2723 03144 TC SAVELOCS
063918,000737:
063919,000738: 10,2724 00003 RELINT
063920,000739:
063921,000740: 10,2725 12770 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
063922,000741:
063923,000742: 10,2726 54155 PRIODSPR TS PLAYTEM1
063924,000743:
063925,000744: 10,2727 33745 CAF BITS7+4
063926,000745: 10,2730 13061 TCF GODSPRS
063927,000746:
063928,000747: 10,2731 54155 PRIODSP TS PLAYTEM1
063929,000748:
063930,000749: 10,2732 33745 SETPRIO CAF BITS7+4
063931,000750: 10,2733 12722 TCF GOFLASH2
063932,000751:
063933,000752: 10,2734 35021 MAKEPRIO CAF ZERO
063934,000753: 10,2735 54164 TS COPINDEX
063935,000754:
063936,000755: 10,2736 03616 TC LINUSCHR
063937,000756: 10,2737 12744 TCF HIPRIO # LINUS RETURN
063938,000757: 10,2740 30100 CA FLAGWRD4
063939,000758: 10,2741 73764 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
063940,000759: 10,2742 10000 CCS A
063941,000760: 10,2743 13017 TCF PRIOBORT # YES, ABORT
063942,000761:
063943,000762: 10,2744 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
063944,000763: 10,2745 77765 MASK OCT40400
063945,000764: 10,2746 00006 EXTEND
063946,000765: 10,2747 12752 BZF ASKIFNRM # NO
063947,000766:
063948,000767: 10,2750 35021 SETMARK CAF ZERO
063949,000768: 10,2751 13216 TCF JOBXCHS
063950,000769:
063951,000770: 10,2752 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
063952,000771: 10,2753 73762 MASK OCT10200 # BITS 13+8
063953,000772: 10,2754 00006 EXTEND
|
|
Page 1470 |
063955,000774: 10,2755 12760 BZF OKTOCOPY # NO
063956,000775:
063957,000776: 10,2756 35017 SETNORM CAF ONE
063958,000777: 10,2757 13216 TCF JOBXCHS
063959,000778:
063960,000779: 10,2760 03156 OKTOCOPY TC COPYNORM
063961,000780: 10,2761 03427 TC WITCHONE
063962,000781:
063963,000782: 10,2762 05201 TC JOBWAKE
063964,000783:
063965,000784: 10,2763 03444 TC XCHTOEND
063966,000785:
063967,000786: 10,2764 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
063968,000787: 10,2765 55147 TS PRIOTIME
063969,000788:
063970,000789: 10,2766 35021 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
063971,000790: 10,2767 13040 TCF PRIOPLAY
063972,000791:
063973,000792: 10,2770 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
063974,000793: 10,2771 77674 MASK PRIO37
063975,000794: 10,2772 54163 TS USERPRIO
063976,000795:
063977,000796: 10,2773 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
063978,000797: 10,2774 05210 TC PRIOCHNG
063979,000798:
063980,000799: 10,2775 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
063981,000800: 10,2776 73744 MASK BITS15+7
063982,000801: 10,2777 10000 CCS A
063983,000802: 10,3000 12734 TCF MAKEPRIO # ITS PRIO
063984,000803: 10,3001 13003 TCF IFLEGAL
063985,000804: 10,3002 12611 TCF MAKEMARK # ITS MARK
063986,000805:
063987,000806: 10,3003 35016 IFLEGAL CAF TWO
063988,000807: 10,3004 54164 TS COPINDEX
063989,000808:
063990,000809: 10,3005 03616 TC LINUSCHR
063991,000810:
063992,000811: 10,3006 13021 TCF OKTOPLAY # LINUS RETURN
063993,000812: 10,3007 41071 CS EBANKTEM
063994,000813: 10,3010 75014 MASK BIT4
063995,000814: 10,3011 10000 CCS A
063996,000815: 10,3012 13021 TCF OKTOPLAY # NO
063997,000816:
063998,000817: 10,3013 30100 CA FLAGWRD4 # WAS NORM ASLEEP
063999,000818: 10,3014 73735 MASK NBUSMASK # ARE ANY NORMS ASLEEP
064000,000819: 10,3015 00006 EXTEND
064001,000820: 10,3016 13021 BZF OKTOPLAY # NO
064002,000821:
064003,000822: 10,3017 05721 PRIOBORT TC POODOO
064004,000823: 10,3020 01502 OCT 1502
|
|
Page 1471 |
064006,000825:
064007,000826: 10,3021 03160 OKTOPLAY TC COPIES2
064008,000827:
064009,000828: 10,3022 30163 CA USERPRIO
064010,000829: 10,3023 00006 EXTEND
064011,000830: 10,3024 04007 ROR SUPERBNK
064012,000831: 10,3025 54366 TS RESTREG
064013,000832:
064014,000833: 10,3026 30100 CA FLAGWRD4 # PRIO OR MARK GOING
064015,000834: 10,3027 73736 MASK PMMASK
064016,000835: 10,3030 10000 CCS A
064017,000836: 10,3031 13176 TCF GOSLEEPS # YES
064018,000837:
064019,000838: 10,3032 13034 TCF +2
064020,000839: 10,3033 13176 TCF GOSLEEPS # MARK GOING
064021,000840:
064022,000841: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
064023,000842:
064024,000843: 10,3034 03427 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
064025,000844: 10,3035 05201 TC JOBWAKE
064026,000845:
064027,000846: 10,3036 03444 TC XCHTOEND
064028,000847:
064029,000848: 10,3037 35016 PLAYJUM1 CAF TWO
064030,000849: 10,3040 54164 PRIOPLAY TS COPINDEX
064031,000850:
064032,000851: 10,3041 13312 TCF GOPLAY
064033,000852:
064034,000853: 10,3042 54155 EXDSPRET TS PLAYTEM1
064035,000854:
064036,000855: 10,3043 37703 CAF BIT15+6
064037,000856: 10,3044 12722 TCF GOFLASH2
064038,000857:
064039,000858: 10,3045 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
064040,000859: 10,3046 33720 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
064041,000860:
064042,000861: 10,3047 54155 GOPERFS TS PLAYTEM1
064043,000862:
064044,000863: 10,3050 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
064045,000864: 10,3051 12722 TCF GOFLASH2
064046,000865:
064047,000866: 10,3052 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
064048,000867:
064049,000868: 10,3053 33723 CAF PERF2MSK
064050,000869: 10,3054 12722 TCF GOFLASH2
064051,000870:
064052,000871: 10,3055 03137 GOPERF4 TC PURRS4
064053,000872:
064054,000873: 10,3056 12722 TCF GOFLASH2
064055,000874:
064056,000875: 10,3057 54155 GOFLASHR TS PLAYTEM1
|
|
Page 1472 |
064058,000877: 10,3060 35014 CAF BIT4 # LEAVE ONLY FLASH BIT SET
064059,000878: 10,3061 54160 GODSPRS TS PLAYTEM4
064060,000879:
064061,000880: 10,3062 36214 CAF THREE
064062,000881:
064063,000882: 10,3063 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
064064,000883: 10,3064 54072 TS RUPTREG3
064065,000884:
064066,000885: 10,3065 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
064067,000886: 10,3066 77674 MASK PRIO37
064068,000887: 10,3067 54063 TS NEWPRIO
064069,000888:
064070,000889: 10,3070 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
064071,000890: 10,3071 75014 MASK BIT4
064072,000891: 10,3072 10000 CCS A
064073,000892: 10,3073 13101 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
064074,000893: 10,3074 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
064075,000894: 10,3075 05134 TC NOVAC
064076,000895: 10,3076 E7,1777 EBANK= WHOCARES
064077,000896: 10,3076 02770 20067 2CADR MAKEPLAY
064078,000897:
064079,000898: 10,3100 13107 TCF BOTHJOBS
064080,000899:
064081,000900: 10,3101 30006 VACDSP CA BBANK
064082,000901: 10,3102 00006 EXTEND
064083,000902: 10,3103 04007 ROR SUPERBNK
064084,000903: 10,3104 54001 TS L
064085,000904: 10,3105 33761 CAF MAKEGEN
064086,000905: 10,3106 05160 TC SPVAC
064087,000906:
064088,000907: 10,3107 03144 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
064089,000908:
064090,000909: 10,3110 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
064091,000910: 10,3111 30156 DCA MPAC +1
064092,000911: 10,3112 50064 INDEX LOCCTR
064093,000912: 10,3113 52156 DXCH MPAC +1
064094,000913:
064095,000914: 10,3114 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
064096,000915: 10,3115 30160 DCA MPAC +3
064097,000916: 10,3116 50064 INDEX LOCCTR
064098,000917: 10,3117 52160 DXCH MPAC +3
064099,000918:
064100,000919: 10,3120 30064 CA LOCCTR
064101,000920: 10,3121 54161 TS MPAC +5
064102,000921: 10,3122 03151 TC SAVELOCR
064103,000922: 10,3123 00003 RELINT
064104,000923: 10,3124 14704 TCF BANKJUMP # CALL CADR +4
064105,000924:
|
|
Page 1473 |
064107,000926: 10,3125 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
064108,000927:
064109,000928: 10,3126 33720 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
064110,000929:
064111,000930: 10,3127 54155 GOPERFRS TS PLAYTEM1
064112,000931:
064113,000932: 10,3130 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
064114,000933: 10,3131 13061 TCF GODSPRS
064115,000934:
064116,000935: 10,3132 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
064117,000936:
064118,000937: 10,3133 33723 CAF PERF2MSK
064119,000938: 10,3134 13061 TCF GODSPRS
064120,000939:
064121,000940: 10,3135 03137 GOPERF4R TC PURRS4
064122,000941:
064123,000942: 10,3136 13061 TCF GODSPRS
064124,000943:
064125,000944: 10,3137 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE
064126,000945:
064127,000946: 10,3140 33724 CAF V04N06
064128,000947: 10,3141 54155 TS PLAYTEM1
064129,000948:
064130,000949: 10,3142 33725 CAF PERF4MSK # FLASH, PERFORM AND BLANK R3
064131,000950: 10,3143 00002 TC Q
064132,000951:
064133,000952: 10,3144 00004 SAVELOCS INHINT
064134,000953:
064135,000954: 10,3145 43734 CS OCT3400 # EBANK BITS
064136,000955: 10,3146 70160 MASK PLAYTEM4
064137,000956: 10,3147 60003 AD EBANK
064138,000957: 10,3150 54160 TS PLAYTEM4
064139,000958:
064140,000959: 10,3151 22002 SAVELOCR LXCH Q
064141,000960:
064142,000961: 10,3152 04711 TC MAKECADR
064143,000962: 10,3153 54157 TS PLAYTEM3
064144,000963:
064145,000964: 10,3154 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
064146,000965: 10,3155 00001 TC L
064147,000966:
064148,000967: 10,3156 35021 COPYNORM CAF ZERO
064149,000968: 10,3157 54164 COPIES TS COPINDEX
064150,000969: 10,3160 00004 COPIES2 INHINT
064151,000970: 10,3161 30160 CA PLAYTEM4 # FLAGWORD
064152,000971:
064153,000972: 10,3162 50164 INDEX COPINDEX
064154,000973: 10,3163 55067 TS EBANKSAV # EQUIV TO DSPFLG
064155,000974: 10,3164 73752 MASK CADRMASK # FLASH AND GODSPRET
064156,000975: 10,3165 00006 EXTEND
|
|
Page 1474 |
064158,000977: 10,3166 13172 BZF SKIPADD
064159,000978:
064160,000979: 10,3167 30157 CA PLAYTEM3
064161,000980: 10,3170 50164 INDEX COPINDEX
064162,000981: 10,3171 54372 TS CADRFLSH
064163,000982:
064164,000983: 10,3172 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
064165,000984: 10,3173 50164 INDEX COPINDEX
064166,000985: 10,3174 54367 TS NVWORD
064167,000986:
064168,000987: 10,3175 13453 TCF RELINTQ
064169,000988:
064170,000989: 10,3176 50164 GOSLEEPS INDEX COPINDEX
064171,000990: 10,3177 33753 CA PRIOOCT
064172,000991: 10,3200 73202 MASK WAITMASK
064173,000992: 10,3201 07722 TC UPENT2
064174,000993: 10,3202 03004 WAITMASK OCT 3004
064175,000994: 10,3203 45017 CS ONE
064176,000995: 10,3204 60164 AD COPINDEX
064177,000996: 10,3205 54154 TS FACEREG
064178,000997:
064179,000998: 10,3206 50154 XCHSLEEP INDEX FACEREG
064180,000999: 10,3207 33732 CAF WAKECADR
064181,001000: 10,3210 00004 INHINT
064182,001001: 10,3211 05201 TC JOBWAKE # FIND CADR IN JOB AREA
064183,001002:
064184,001003: 10,3212 03444 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
064185,001004:
064186,001005: 10,3213 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
064187,001006: 10,3214 33732 CAF WAKECADR
064188,001007: 10,3215 15175 TCF JOBSLEEP
064189,001008:
064190,001009: 10,3216 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
064191,001010: 10,3217 03427 TC WITCHONE
064192,001011: 10,3220 05201 TC JOBWAKE
064193,001012: 10,3221 30154 CA FACEREG
064194,001013: 10,3222 50064 INDEX LOCCTR
064195,001014: 10,3223 54154 TS FACEREG
064196,001015:
064197,001016: 10,3224 33237 CAF XCHQADD
064198,001017: 10,3225 03445 TC XCHNYLOC
064199,001018:
064200,001019: 10,3226 50154 INDEX FACEREG
064201,001020: 10,3227 33754 CA MARKOCT
064202,001021: 10,3230 73756 MASK IDLESLEP
064203,001022:
064204,001023: 10,3231 07740 TC DOWNENT2
064205,001024: 10,3232 74004 IDLEMASK OCT 74004 # * DONT MOVE
064206,001025: 10,3233 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
064207,001026: 10,3234 35013 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
|
|
Page 1475 |
064209,001028: 10,3235 65015 AD FOUR
064210,001029: 10,3236 07722 TC UPENT2 # FLAG ROUTINE DOES RELINT
064211,001030: 10,3237 03206 XCHQADD GENADR XCHSLEEP # * DONT MOVE
064212,001031: 10,3240 30100 CA FLAGWRD4
064213,001032: 10,3241 75015 MASK BIT3 # IF BIT3 THEN MARK OVER NORM
064214,001033: 10,3242 10000 CCS A
064215,001034: 10,3243 02624 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
064216,001035: 10,3244 12760 TCF OKTOCOPY
064217,001036:
064218,001037: 10,3245 35021 MARKWAKE CAF ZERO
064219,001038: 10,3246 54160 WAKEPLAY TS TEMPOR2
064220,001039:
064221,001040: 10,3247 50160 INDEX TEMPOR2
064222,001041: 10,3250 33746 CA BITS5+11
064223,001042: 10,3251 65015 AD FOUR
064224,001043: 10,3252 07740 TC DOWNENT2
064225,001044: 10,3253 40010 MARKFMSK OCT 40010 # *** DONT MOVE
064226,001045:
064227,001046: 10,3254 50160 INDEX TEMPOR2
064228,001047: 10,3255 33732 CAF WAKECADR
064229,001048: 10,3256 00004 INHINT
064230,001049: 10,3257 05201 TC JOBWAKE
064231,001050:
064232,001051: 10,3260 13557 TCF ENDRET
064233,001052:
064234,001053: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
064235,001054: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
064236,001055:
064237,001056: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
064238,001057: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
064239,001058:
064240,001059: 10,3261 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
064241,001060: 10,3262 54003 TS EBANK
064242,001061:
064243,001062: 10,3263 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
064244,001063: 10,3264 04773 TC SUPERSW # RESTORE SUPERBANK
064245,001064:
064246,001065: 10,3265 77674 MASK PRIO37
064247,001066: 10,3266 05210 TC PRIOCHNG
064248,001067:
064249,001068: 10,3267 46214 CS THREE
064250,001069: 10,3270 60374 AD TEMPFLSH
064251,001070: 10,3271 14704 TCF BANKJUMP
064252,001071:
064253,001072: 10,3272 00003 PINBRNCH RELINT # FOR GOPIN USERS
064254,001073: 10,3273 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
064255,001074: 10,3274 54156 TS MPAC +2 # ONLY
064256,001075:
064257,001076: 10,3275 30100 CA FLAGWRD4 # PINBRANCH CONDITION
064258,001077: 10,3276 77707 MASK PINMASK
064259,001078: 10,3277 10000 CCS A
|
|
Page 1476 |
064261,001080: 10,3300 13303 TCF +3
064262,001081: 10,3301 13713 TCF ERASER # ** NOTHING IN ENDIDLE
064263,001082: 10,3302 12624 TCF MARKPLAY
064264,001083:
064265,001084: 10,3303 05546 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
064266,001085: 10,3304 00105 ADRES PINBRFLG
064267,001086:
064268,001087: 10,3305 35002 CAF BIT14 # PRIO INTERRUPTED
064269,001088: 10,3306 70100 MASK FLAGWRD4
064270,001089: 10,3307 10000 CCS A
064271,001090: 10,3310 12766 TCF KEEPPRIO
064272,001091:
064273,001092: 10,3311 13037 TCF PLAYJUM1
064274,001093:
064275,001094: 10,3312 02644 NVDSP TC COPYPACS
064276,001095:
064277,001096: 10,3313 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
064278,001097: 10,3314 75023 MASK SEVEN # USER REQUESTS BLANKING MONITOR
064279,001098: 10,3315 54001 TS L
064280,001099:
064281,001100: 10,3316 45003 CS BIT13
064282,001101: 10,3317 50164 INDEX COPINDEX
064283,001102: 10,3320 71067 MASK DSPFLG
064284,001103: 10,3321 50164 INDEX COPINDEX
064285,001104: 10,3322 55067 TS DSPFLG
064286,001105:
064287,001106: 10,3323 75010 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
064288,001107: 10,3324 54141 TS TEM1
064289,001108:
064290,001109: 10,3325 30156 CA MPAC +2
064291,001110: 10,3326 54165 TS MPAC2SAV
064292,001111:
064293,001112: 10,3327 55072 TS MARK2PAC # * FOR DISK ONLY *
064294,001113: 10,3330 50164 INDEX COPINDEX
064295,001114: 10,3331 10367 CCS NVWORD
064296,001115: 10,3332 13341 TCF NVDSP1
064297,001116: 10,3333 13455 TCF CLEANEND
064298,001117: 10,3334 40370 CS MARKNV
064299,001118: 10,3335 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
064300,001119: 10,3336 76043 MASK LOW7
064301,001120: 10,3337 63737 AD V05N00M1
064302,001121: 10,3340 60141 AD TEM1
064303,001122: 10,3341 65017 NVDSP1 AD ONE
064304,001123: 10,3342 04171 NV50DSP TC NVMONOPT
064305,001124: 10,3343 13467 TCF REST # IF BUSY
064306,001125:
064307,001126: 10,3344 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
064308,001127:
064309,001128: 10,3345 02642 TC COPYTOGO # MPACS DESTROYED BY NVSUB
064310,001129: 10,3346 05560 TC DOWNFLAG # UNSET SLEEPING BITS
064311,001130: 10,3347 00102 ADRES MRKNVFLG
|
|
Page 1477 |
064313,001132: 10,3350 05560 TC DOWNFLAG
064314,001133: 10,3351 00103 ADRES NRMNVFLG
064315,001134: 10,3352 05560 TC DOWNFLAG
064316,001135: 10,3353 00104 ADRES PRONVFLG
064317,001136: 10,3354 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
064318,001137: 10,3355 04271 TC BLANKSUB
064319,001138: 10,3356 13312 TCF NVDSP
064320,001139: 10,3357 35013 PERFCHEK CAF BIT5 # BIT 5 FOR PERFORM
064321,001140: 10,3360 70160 MASK TEMPOR2
064322,001141: 10,3361 10000 CCS A # IS THIS A GOPERF DISPLAY
064323,001142: 10,3362 13405 TCF 1STOR2ND # YES
064324,001143:
064325,001144: 10,3363 35014 GOANIDLE CAF BIT4
064326,001145: 10,3364 70160 MASK TEMPOR2
064327,001146: 10,3365 10000 CCS A
064328,001147: 10,3366 13502 TCF FLASHSUB # IT IS
064329,001148:
064330,001149: 10,3367 40160 CS TEMPOR2 # IS THIS A GODSPRET
064331,001150: 10,3370 75012 MASK BIT6
064332,001151: 10,3371 10000 CCS A
064333,001152: 10,3372 13377 TCF ISITN00
064334,001153:
064335,001154: 10,3373 50164 INDEX COPINDEX
064336,001155: 10,3374 30372 CA CADRFLSH
064337,001156: 10,3375 54157 TS MPAC +3
064338,001157: 10,3376 13575 TCF ENDIT
064339,001158:
064340,001159: 10,3377 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
064341,001160: 10,3400 30367 CA NVWORD
064342,001161: 10,3401 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
064343,001162: 10,3402 00006 EXTEND
064344,001163: 10,3403 13502 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
064345,001164:
064346,001165: 10,3404 15217 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
064347,001166:
064348,001167: 10,3405 30160 1STOR2ND CA TEMPOR2
064349,001168: 10,3406 75003 MASK BIT13
064350,001169: 10,3407 10000 CCS A
064351,001170: 10,3410 13363 TCF GOANIDLE # SECOND
064352,001171:
064353,001172: 10,3411 35003 CA BIT13
064354,001173: 10,3412 50164 INDEX COPINDEX
064355,001174: 10,3413 27067 ADS DSPFLG
064356,001175:
064357,001176: 10,3414 22007 ZL
064358,001177: 10,3415 00006 EXTEND # IS IT MARK
064359,001178: 10,3416 62665 BZMF MARKPERF # YES
064360,001179: 10,3417 75004 MASK BIT12
064361,001180: 10,3420 00006 EXTEND
|
|
Page 1478 |
064363,001182: 10,3421 13425 BZF V50PASTE
064364,001183: 10,3422 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
064365,001184: 10,3423 63763 AD V97N00
064366,001185: 10,3424 13342 TCF NV50DSP
064367,001186: 10,3425 33722 V50PASTE CAF V50N00
064368,001187: 10,3426 13342 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
064369,001188:
064370,001189: 10,3427 45013 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
064371,001190: 10,3430 00006 EXTEND
064372,001191: 10,3431 03011 WAND DSALMOUT
064373,001192:
064374,001193: 10,3432 30100 CA FLAGWRD4
064375,001194: 10,3433 73740 MASK NVBUSMSK # IS IT NVSUB ASLEEP
064376,001195: 10,3434 10000 CCS A
064377,001196: 10,3435 35017 CAF ONE
064378,001197: 10,3436 54001 TS L
064379,001198: 10,3437 35021 CAF ZERO
064380,001199: 10,3440 50001 INDEX L
064381,001200: 10,3441 57042 XCH CADRSTOR
064382,001201:
064383,001202: 10,3442 00004 INHINT
064384,001203: 10,3443 00002 TC Q
064385,001204:
064386,001205: 10,3444 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
064387,001206: 10,3445 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
064388,001207: 10,3446 00006 EXTEND
064389,001208: 10,3447 63453 BZMF RELINTQ # NO
064390,001209: 10,3450 56064 XCH LOCCTR # YES
064391,001210: 10,3451 50064 INDEX LOCCTR
064392,001211: 10,3452 54164 TS LOC
064393,001212:
064394,001213: 10,3453 00003 RELINTQ RELINT
064395,001214: 10,3454 00002 TC Q # BACK TO USER
064396,001215:
064397,001216: 10,3455 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
064398,001217: 10,3456 05147 TC FINDVAC
064399,001218: 10,3457 0371 EBANK= NVSAVE
064400,001219: 10,3457 04245 04060 2CADR JAMTERM
064401,001220:
064402,001221: 10,3461 13503 TCF FLASHSUB +1
064403,001222:
064404,001223: 10,3462 30100 ISITPRIO CA FLAGWRD4
064405,001224: 10,3463 73510 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
064406,001225: 10,3464 00006 EXTEND
064407,001226: 10,3465 13017 BZF PRIOBORT
064408,001227: 10,3466 15217 TCF ENDOFJOB
064409,001228: 10,3467 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
064410,001229: 10,3470 15217 TCF ENDOFJOB # YES
|
|
Page 1479 |
064412,001231: 10,3471 13473 TCF RESTSLEP
064413,001232:
064414,001233: 10,3472 15217 TCF ENDOFJOB
064415,001234:
064416,001235: 10,3473 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
064417,001236: 10,3474 73741 MASK ASTROMSK
064418,001237: 10,3475 07722 TC UPENT2
064419,001238: 10,3476 24100 OCT24100 OCT 24100 # *** DONT MOVE
064420,001239:
064421,001240: 10,3477 50164 INDEX COPINDEX
064422,001241: 10,3500 33731 CAF NVCADR
064423,001242: 10,3501 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
064424,001243:
064425,001244: 10,3502 04443 FLASHSUB TC FLASHON
064426,001245:
064427,001246: 10,3503 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
064428,001247: 10,3504 54157 TS COPMPAC
064429,001248:
064430,001249: 10,3505 30162 CA GENMASK
064431,001250: 10,3506 73232 MASK IDLEMASK
064432,001251: 10,3507 07722 TC UPENT2
064433,001252: 10,3510 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
064434,001253:
064435,001254: 10,3511 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
064436,001255: 10,3512 50164 INDEX COPINDEX
064437,001256: 10,3513 75015 MASK BIT3
064438,001257: 10,3514 10000 CCS A
064439,001258: 10,3515 13602 TCF UNSETR1 # YES
064440,001259:
064441,001260: 10,3516 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
064442,001261: 10,3517 13462 TCF ISITPRIO
064443,001262: 10,3520 13522 TCF +2
064444,001263: 10,3521 13462 TCF ISITPRIO
064445,001264:
064446,001265: 10,3522 04223 TC ENDIDLE
064447,001266: 10,3523 13614 IDLERET1 TCF TERMATE
064448,001267:
064449,001268: 10,3524 13633 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
064450,001269:
064451,001270: 10,3525 43750 CS LOWLOAD
064452,001271: 10,3526 60154 AD MPAC # VERBREG
064453,001272: 10,3527 00006 EXTEND
064454,001273: 10,3530 26000 DIM A
064455,001274: 10,3531 00006 EXTEND
064456,001275: 10,3532 13703 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
064457,001276:
064458,001277: 10,3533 35016 OKTOENT CAF TWO
064459,001278: 10,3534 54161 ENDOUT TS OUTHERE
064460,001279: 10,3535 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
064461,001280: 10,3536 74105 MASK OCT60000
|
|
Page 1480 |
064463,001282: 10,3537 10000 CCS A
064464,001283: 10,3540 13543 TCF TIMECHEK # PRIO ENDIDLE RETURN
064465,001284: 10,3541 13651 TCF NORMRET # NORMAL ENDIDLE RETURN
064466,001285: 10,3542 13635 TCF MARKRET # MARK ENDIDLE RETURN
064467,001286:
064468,001287: 10,3543 40025 TIMECHEK CS TIME1
064469,001288: 10,3544 61147 AD PRIOTIME
064470,001289: 10,3545 10000 CCS A
064471,001290: 10,3546 40000 COM
064472,001291: 10,3547 67700 AD OCT37776
064473,001292: 10,3550 65017 AD ONE
064474,001293: 10,3551 63774 AD -2SEC
064475,001294: 10,3552 00006 EXTEND
064476,001295: 10,3553 62766 BZMF KEEPPRIO
064477,001296:
064478,001297: 10,3554 13651 TCF NORMRET
064479,001298:
064480,001299: 10,3555 35017 NORMWAKE CAF ONE
064481,001300: 10,3556 13246 TCF WAKEPLAY
064482,001301:
064483,001302: 10,3557 10161 ENDRET CCS OUTHERE
064484,001303: 10,3560 65017 AD ONE
064485,001304: 10,3561 13563 TCF +2 # NORMAL ENDIDLE EXIT
064486,001305: 10,3562 15217 TCF ENDOFJOB
064487,001306: 10,3563 50157 INDEX COPMPAC
064488,001307: 10,3564 60372 AD CADRFLSH
064489,001308: 10,3565 54157 TS MPAC +3
064490,001309:
064491,001310: 10,3566 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
064492,001311: 10,3567 73571 MASK PINIDMSK
064493,001312: 10,3570 07740 TC DOWNENT2
064494,001313: 10,3571 74044 PINIDMSK OCT 74044 # *** DONT MOVE
064495,001314:
064496,001315: 10,3572 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
064497,001316: 10,3573 04170 TC NVSUB
064498,001317: 10,3574 13575 TCF +1
064499,001318:
064500,001319: 10,3575 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
064501,001320: 10,3576 77674 MASK PRIO37
064502,001321: 10,3577 05210 TC PRIOCHNG
064503,001322: 10,3600 30157 CA MPAC +3
064504,001323: 10,3601 14704 TCF BANKJUMP
064505,001324:
064506,001325: 10,3602 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
064507,001326: 10,3603 45015 CS BIT3
064508,001327: 10,3604 71073 MASK R1SAVE
064509,001328: 10,3605 55073 TS R1SAVE
064510,001329: 10,3606 35021 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
064511,001330: 10,3607 04773 TC SUPERSW # SUPERBANK 0
|
|
Page 1481 |
064513,001332:
064514,001333: 10,3610 36214 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
064515,001334: 10,3611 50164 IMMEDRET INDEX COPINDEX
064516,001335: 10,3612 60372 AD CADRFLSH
064517,001336: 10,3613 14704 TCF BANKJUMP
064518,001337:
064519,001338: 10,3614 35021 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
064520,001339: 10,3615 13534 TCF ENDOUT
064521,001340:
064522,001341: 10,3616 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
064523,001342: 10,3617 75002 MASK BIT14
064524,001343: 10,3620 10000 CCS A
064525,001344: 10,3621 16706 TCF Q+1 # NO
064526,001345: 10,3622 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
064527,001346: 10,3623 50164 INDEX COPINDEX
064528,001347: 10,3624 60372 AD CADRFLSH
064529,001348: 10,3625 00006 EXTEND
064530,001349: 10,3626 13630 BZF +2 # YES
064531,001350:
064532,001351: 10,3627 00002 TC Q # NO
064533,001352: 10,3630 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
064534,001353: 10,3631 05217 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
064535,001354: 10,3632 00002 TC Q
064536,001355:
064537,001356: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
064538,001357:
064539,001358: 10,3633 35017 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
064540,001359: 10,3634 13534 TCF ENDOUT
064541,001360:
064542,001361: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
064543,001362: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
064544,001363: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
064545,001364:
064546,001365: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
064547,001366: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
064548,001367: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
064549,001368: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
064550,001369:
064551,001370: 10,3635 46211 MARKRET CS SIX
064552,001371: 10,3636 70100 MASK FLAGWRD4
064553,001372: 10,3637 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
064554,001373: 10,3640 54100 TS FLAGWRD4
064555,001374:
064556,001375: 10,3641 00003 RELINT # INHINT REALM
064557,001376: 10,3642 13557 TCF ENDRET
064558,001377:
064559,001378: 10,3643 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
064560,001379: 10,3644 54161 TS OUTHERE
064561,001380: 10,3645 30100 CA FLAGWRD4 # IS ENDIDFLG SET
064562,001381: 10,3646 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
064563,001382: 10,3647 10000 CCS A
|
|
Page 1482 |
064565,001384: 10,3650 13303 TCF NORMBNCH
064566,001385:
064567,001386: 10,3651 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
064568,001387: 10,3652 73746 MASK BITS5+11 # OR WAITING
064569,001388: 10,3653 10000 CCS A
064570,001389: 10,3654 13245 TCF MARKWAKE
064571,001390:
064572,001391: 10,3655 30100 CA FLAGWRD4 # NO
064573,001392: 10,3656 73747 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
064574,001393: 10,3657 10000 CCS A
064575,001394: 10,3660 13555 TCF NORMWAKE # YES
064576,001395:
064577,001396: 10,3661 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
064578,001397: 10,3662 75033 MASK OCT50 # OR A GODSPRET
064579,001398: 10,3663 10000 CCS A
064580,001399: 10,3664 13557 TCF ENDRET # YES
064581,001400: 10,3665 30371 CA NVSAVE
064582,001401: 10,3666 00006 EXTEND
064583,001402: 10,3667 13557 BZF ENDRET
064584,001403:
064585,001404: 10,3670 35067 CAF PRIO15
064586,001405: 10,3671 00004 INHINT
064587,001406: 10,3672 05134 TC NOVAC
064588,001407: 10,3673 0367 EBANK= NVWORD
064589,001408: 10,3673 03037 20060 2CADR PLAYJUM1
064590,001409:
064591,001410: 10,3675 13557 TCF ENDRET
064592,001411:
064593,001412: 10,3676 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
064594,001413: 10,3677 73746 MASK BITS5+11
064595,001414: 10,3700 10000 CCS A
064596,001415: 10,3701 15217 TCF ENDOFJOB # YES
064597,001416: 10,3702 13176 TCF GOSLEEPS
064598,001417:
064599,001418: 10,3703 50157 LOADITIS INDEX COPMPAC
064600,001419: 10,3704 30367 CA NVWORD
064601,001420: 10,3705 76043 MASK LOW7
064602,001421: 10,3706 40000 COM
064603,001422: 10,3707 60155 AD MPAC +1 # NOUNREG
064604,001423: 10,3710 00006 EXTEND
064605,001424: 10,3711 13533 BZF OKTOENT # NO, THEN LOAD IS VALID
064606,001425: 10,3712 13272 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
064607,001426:
064608,001427: 10,3713 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
064609,001428: 10,3714 04170 TC NVSUB
064610,001429: 10,3715 15217 TCF ENDOFJOB
064611,001430: 10,3716 15217 TCF ENDOFJOB
064612,001431:
064613,001432: 10,3717 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
|
|
Page 1483 |
064615,001434: 10,3720 00231 V01N25 VN 00125
064616,001435: 10,3721 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
064617,001436: 10,3722 14400 V50N00 VN 5000
064618,001437: 10,3723 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
064619,001438: 10,3724 01006 V04N06 VN 00406
064620,001439: 10,3725 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
064621,001440: 10,3726 10,3272 GOAGIN EQUALS PINBRNCH
064622,001441: 10,3726 20010 REDOMASK OCT 20010 # BITS 4 AND 14
064623,001442: 10,3727 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
064624,001443: 10,3730 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
064625,001444: 10,3731 20764 NVCADR CADR REDOPRIO
064626,001445: 10,3732 20624 WAKECADR CADR MARKPLAY
064627,001446: 10,3733 21037 CADR PLAYJUM1
064628,001447:
064629,001448: 10,3734 03400 OCT3400 OCT 3400 # EBANK MASK
064630,001449: 10,3735 11210 NBUSMASK OCT 11210
064631,001450: 10,3736 66521 PMMASK OCT 66521
064632,001451: 10,3737 4160 VERBMASK = MID7 # (OCT 37600)
064633,001452: 10,3737 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
064634,001453: 10,3740 10,2555 GOXDSP EQUALS GOMARK
064635,001454: 10,3740 10,2575 GOXDSPR EQUALS GOMARKR
064636,001455: 10,3740 10,2561 GOXDSPF EQUALS GOMARKF
064637,001456: 10,3740 10,2600 GOXDSPFR EQUALS GOMARKFR
064638,001457: 10,3740 5534 ENDEXT EQUALS ENDMARK
064639,001458: 10,3740 0165 MPAC2SAV EQUALS BANKSET
064640,001459: 10,3740 00700 NVBUSMSK OCT 700
064641,001460: 10,3741 00704 ASTROMSK OCT 704
064642,001461: 10,3742 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
064643,001462: 10,3743 34300 OCT34300 OCT 34300
064644,001463: 10,3744 40100 BITS15+7 OCT 40100
064645,001464: 10,3745 00110 BITS7+4 OCT 110
064646,001465: 10,3746 1067 DSPFLG EQUALS EBANKSAV
064647,001466: 10,3746 1070 MARKFLAG EQUALS MARKEBAN
064648,001467: 10,3746 1071 SAVEFLAG EQUALS EBANKTEM
064649,001468: 10,3746 02020 BITS5+11 OCT 2020 # * DONT MOVE
064650,001469: 10,3747 01010 BITS4+10 OCT 1010 # * DONT MOVE
064651,001470: 10,3750 00026 LOWLOAD DEC 22 B-14
064652,001471: 10,3751 77730 BUSYMASK OCT 77730
064653,001472: 10,3752 00050 CADRMASK OCT 50
064654,001473: 10,3753 7707 PINMASK EQUALS 13,14,15
064655,001474: 10,3753 10,3312 GOPLAY EQUALS NVDSP
064656,001475: # PRIOSAVE EQUALS R1SAVE
064657,001476: 10,3753 0157 COPMPAC EQUALS MPAC +3
064658,001477: 10,3753 0160 TEMPOR2 EQUALS MPAC +4
064659,001478: 10,3753 0161 OUTHERE EQUALS MPAC +5
064660,001479: 10,3753 0164 COPINDEX EQUALS LOC
064661,001480: 10,3753 0163 USERPRIO EQUALS MODE
064662,001481: 10,3753 0162 GENMASK EQUALS MPAC +6
064663,001482: 10,3753 20144 PRIOOCT OCT 20144 # PRIO
064664,001483: 10,3754 42424 MARKOCT OCT 42424 # MARK
|
|
Page 1484 |
064666,001485: 10,3755 11254 OCT 11254 # NORM
064667,001486:
064668,001487: 10,3756 74704 IDLESLEP OCT 74704
064669,001488: 10,3757 67777 OCT67777 OCT 67777
064670,001489: 10,3760 5526 LINUS EQUALS BLANKET
064671,001490: 10,3760 0154 FACEREG EQUALS MPAC
064672,001491: 10,3760 0155 PLAYTEM1 EQUALS MPAC +1
064673,001492: 10,3760 0157 PLAYTEM3 EQUALS MPAC +3
064674,001493: 10,3760 0160 PLAYTEM4 EQUALS MPAC +4
064675,001494: 10,3760 40420 OCT40420 OCT 40420
064676,001495: 10,3761 02770 MAKEGEN GENADR MAKEPLAY
064677,001496: 10,3762 10200 OCT10200 OCT 10200
064678,001497: 10,3763 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
064679,001498: 10,3764 20100 OCT20100 OCT 20100
064680,001499: 10,3765 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc