GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.
Source Code
|
|
This source code is very close to the Apollo Guidance Computer software for the
Apollo 13 Lunar module. This revision of the Luminary 131 program is from December
of 1969, whereas there was a later revision in January of 1970, and still another
revision in February, which is the code that flew on the mission.
As far as this transcription is concerned, it was originally from a copy made in 1991 of
a printout from the collection of AGC developer Don Eyles for collector David Craig.
It was subsequently scanned by Gary Neff, reprocessed for online
presentation at the now-discontinued History of Recent Science and Technology (HRST) website
of MIT's Dibner Institute (the full-quality scans being discarded in the process),
and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a
high-quality replacement scan for a completely illegible page was later provided by Gary
Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many
errors to be introduced into the transcription. Accordingly, a second scan of the same physical
printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive,
and used to correct the transcription errors. All of the scanned materials mentioned,
as well as other Luminary 131 related material, are available online.
Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017,
so the two scans are not identical in that respect. The page-headings in the printout read, in part:GAP: ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091 17:53 DEC. 19, 1969Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together. |
056175,000002: ## Copyright: Public domain.
056176,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
056177,000004: ## Purpose: A section of Luminary 1C, revision 131.
056178,000005: ## It is part of the source code for the Lunar Module's (LM)
056179,000006: ## Apollo Guidance Computer (AGC) for Apollo 13.
056180,000007: ## This file is intended to be a faithful transcription, except
056181,000008: ## that the code format has been changed to conform to the
056182,000009: ## requirements of the yaYUL assembler rather than the
056183,000010: ## original YUL assembler.
056184,000011: ## Reference: pp. 1333-1365
056185,000012: ## Contact: Ron Burkey <info@sandroid.org>.
056186,000013: ## Website: www.ibiblio.org/apollo/index.html
056187,000014: ## Mod history: 06/06/03 RSB. Began transcribing.
056188,000015: ## 05/14/05 RSB. Corrected website reference above.
056189,000016: ## 2010-10-25 JL Indentation fixes.
056190,000017: ## 2011-05-07 JL Removed workaround.
056191,000018: ## 2017-01-06 RSB Page numbers now agree with those on the
056192,000019: ## original hardcopy, as opposed to the PDF page
056193,000020: ## numbers in 1701.pdf.
056194,000021: ## 2017-02-27 RSB Proofed comment text using octopus/ProoferComments.
056195,000022: ## 2017-03-01 RSB Fixed lingering comment-text typos.
056196,000023: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
056197,000024: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
056198,000025: ## side-by-side diff of Luminary 69/99/116/131/210.
056199,000026:
|
|
Page 1333 |
056201,000028: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
056202,000029: # 1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
056203,000030: # OUT UNDER CRITICAL ALARM CONDITIONS.
056204,000031: # 2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
056205,000032: # 3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
056206,000033: # SEQUENCE OF EVENTS.
056207,000034: # 4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
056208,000035: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
056209,000036: # 5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
056210,000037:
056211,000038: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
056212,000039: # 1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
056213,000040: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
056214,000041: # BUT NOT WAITING FOR A RESPONSE.
056215,000042: # 2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
056216,000043: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
056217,000044: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
056218,000045: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
056219,000046: # HAS INFO SAVED FOR RESTART PURPOSES.
056220,000047:
056221,000048: # DISPLAY PRIORITIES WORK AS FOLLOWS -
056222,000049: # INTERRUPTS -
056223,000050: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
056224,000051: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
056225,000052: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
056226,000053: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
056227,000054: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
056228,000055: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
056229,000056:
056230,000057: # ORDER OF WAITING DISPLAYS -
056231,000058: # 1. ASTRONAUT EXTERNAL USE
056232,000059: # 2. PRIORITY
056233,000060: # 3. INTERRUPTED MARK
056234,000061: # 4. INTERRUPTED NORMAL
056235,000062: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
056236,000063: # 6. MARK WAITING
056237,000064: # 7. NORMAL WAITING
056238,000065:
|
|
Page 1334 |
056240,000067: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
056241,000068: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
056242,000069: # WILL FOLLOW LATER):
056243,000070: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
056244,000071: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
056245,000072: # IS TO THE USERS CALLING LOC +1.
056246,000073: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
056247,000074: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
056248,000075: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
056249,000076: # USERS JOB.
056250,000077: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
056251,000078: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
056252,000079: # DESCRIPTION OF RESTARTS).
056253,000080: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
056254,000081: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
056255,000082: # (V32) BRANCHES TO THE USERS CALL CADR +3.
056256,000083: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
056257,000084:
056258,000085: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
056259,000086: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
056260,000087: # 1. GODSP IS NOT RESTARTABLE
056261,000088: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
056262,000089: # CAF VXXNYY
056263,000090: # TC BANKCALL
056264,000091: # CADR GODSP
056265,000092: # VXXNYY OCT 0XXYY
056266,000093: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
056267,000094: # CAF VXXNYY
056268,000095: # TC BANKCALL
056269,000096: # CADR GODSPR
056270,000097: # ... ... IMMEDIATE RETURN OF GODSPR
056271,000098: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
056272,000099: # THE ASTRONAUT (SEE NO. 7 ABOVE).
056273,000100: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
056274,000101: # TC BANKCALL
056275,000102: # CADR GOFLASH
056276,000103: # ... ... TERMINATE RETURN
056277,000104: # ... ... PROCEED RETURN
056278,000105: # ... ... ENTER OR RECYCLE RETURN
056279,000106: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
|
|
Page 1335 |
056281,000108: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
056282,000109: # USER (SEE NO. 7 ABOVE).
056283,000110: # GOPERF1 BLANKS REGISTERS R2 AND R3
056284,000111: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
056285,000112: # TC BANKCALL
056286,000113: # CADR GOPERF1
056287,000114: # ... ... TERMINATE RETURN
056288,000115: # ... ... PROCEED RETURN
056289,000116: # ... ... ENTER RETURN
056290,000117: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
056291,000118: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
056292,000119: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
056293,000120: # GOPERF2 DOES NOT BLANK ANY REGISTERS
056294,000121: # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01.
056295,000122: # TC BANKCALL
056296,000123: # CADR GOPERF2
056297,000124: # ... ... TERMINATE RETURN
056298,000125: # ... ... PROCEED RETURN
056299,000126: # ... ... ENTER RETURN
056300,000127: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
056301,000128: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
056302,000129: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
056303,000130: # GOPERF3 BLANKS REGISTERS R2 AND R3
056304,000131: # CAF DECXX REQUEST PERFORM ON PXX
056305,000132: # TC BANKCALL
056306,000133: # CADR GOPERF3
056307,000134: # ... ... TERMINATE RETURN
056308,000135: # ... ... PROCEED RETURN
056309,000136: # ... ... ENTER RETURN
056310,000137: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
056311,000138: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
056312,000139: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
056313,000140:
056314,000141: # CAF OCTXX REQUEST PERFORM ON OPTION XX
056315,000142: # TC BANKCALL
056316,000143: # CADR GOPERF4
056317,000144: # ... ... TERMINATE RETURN
056318,000145: # ... ... PROCEED RETURN
056319,000146: # ... ... ENTER RETURN
056320,000147:
056321,000148: # GOPERF4 BLANKS REGISTER R3
056322,000149:
|
|
Page 1336 |
056324,000151: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
056325,000152: # OUT.
056326,000153: # CAF VXXNYY
056327,000154: # TC BANKCALL
056328,000155: # CADR GODSPRET
056329,000156: # ... ... RETURN TO USER
056330,000157: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
056331,000158: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
056332,000159: # CAF VXXNYY
056333,000160: # TC BANKCALL
056334,000161: # CADR REGODSP
056335,000162: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
056336,000163: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
056337,000164: # TC BANKCALL
056338,000165: # CADR REFLASH
056339,000166: # ... ... TERMINATE RETURN
056340,000167: # ... ... PROCEED RETURN
056341,000168: # ... ... ENTER RETURN
056342,000169: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
056343,000170: # CAF VXXNYY
056344,000171: # TC BANKCALL
056345,000172: # CADR GOFLASHR
056346,000173: # ... ... TERMINATE RETURN
056347,000174: # ... ... PROCEED RETURN
056348,000175: # ... ... ENTER OR RECYCLE RETURN
056349,000176: # ... ... IMMEDIATE RETURN FROM GOFLASHR
056350,000177: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
056351,000178: # GOPERF1R BLANKS REGISTERS R2 AND R3
056352,000179: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
056353,000180: # TC BANKCALL
056354,000181: # CADR GOPERF1R
056355,000182: # ... ... TERMINATE RETURN
056356,000183: # ... ... PROCEED RETURN
056357,000184: # ... ... ENTER RETURN
056358,000185: # ... ... IMMEDIATE RETURN FROM GOPERF1R
056359,000186: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
|
|
Page 1337 |
056361,000188: # GOPERF2R DOES NOT BLANK ANY REGISTERS
056362,000189: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
056363,000190: # TC BANKCALL
056364,000191: # CADR GOPERF2R
056365,000192: # ... ... TERMINATE RETURN
056366,000193: # ... ... PROCEED RETURN
056367,000194: # ... ... ENTER RETURN
056368,000195: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
056369,000196: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
056370,000197: # GOPERF3R BLANKS REGISTERS R2 AND R3
056371,000198: # CAF PROGXX PERFORM PROGRAM XX
056372,000199: # TC BANKCALL
056373,000200: # CADR GOPERF3R
056374,000201: # ... ... TERMINATE RETURN
056375,000202: # ... ... PROCEED RETURN
056376,000203: # ... ... ENTER RETURN
056377,000204: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
056378,000205:
056379,000206: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
056380,000207:
056381,000208: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
056382,000209: # TC BANKCALL
056383,000210: # CADR GOPERF4R
056384,000211: # ... ... TERMINATE RETURN
056385,000212: # ... ... PROCEED RETURN
056386,000213: # ... ... ENTER RETURN
056387,000214: # ... ... IMMEDIATE RETURN TO USER
056388,000215:
056389,000216: # GOPERF4R BLANKS REGISTER R3
056390,000217:
056391,000218: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
056392,000219: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
056393,000220: # TC BANKCALL
056394,000221: # CADR REFLASHR
056395,000222: # ... ... TERMINATE RETURN
056396,000223: # ... ... PROCEED RETURN
056397,000224: # ... ... ENTER RETURN
056398,000225: # ... ... IMMEDIATE RETURN TO USER
056399,000226: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
|
|
Page 1338 |
056401,000228: # CAF VXXNYY
056402,000229: # TC BANKCALL
056403,000230: # CADR REGODSPR
056404,000231: # ... ... IMMEDIATE RETURN TO USER
|
|
Page 1339 |
056406,000233: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
056407,000234: # GOXDSP = GOMARK
056408,000235: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
056409,000236: # TC BANKCALL
056410,000237: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
056411,000238: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
056412,000239: # GOXDSPR = GOMARKR
056413,000240: # CAF VXXNYY
056414,000241: # TC BANKCALL
056415,000242: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
056416,000243: # ... ... IMMEDIATE RETURN OF GOMARKR
056417,000244: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
056418,000245: # THE ASTRONAUT (SEE NO. 7 ABOVE).
056419,000246: # GOXDSPF = GOMARKF
056420,000247: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
056421,000248: # TC BANKCALL
056422,000249: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
056423,000250: # ... ... TERMINATE RETURN
056424,000251: # ... ... PROCEED RETURN
056425,000252: # ... ... ENTER OR RECYCLE RETURN
056426,000253:
056427,000254: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
056428,000255:
056429,000256: # GOXDSPFR = GOMARKFR
056430,000257:
056431,000258: # CAF VXXNYY FLASHING MARK VERB NOUN
056432,000259: # TC BANKCALL
056433,000260: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
056434,000261: # ... ... TERMINATE RETURN
056435,000262: # ... ... PROCEED RETURN
056436,000263: # ... ... ENTER OR RECYCLE RETURN
056437,000264:
056438,000265: # ... ... IMMEDIATE RETURN TO THE USER
056439,000266: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
056440,000267: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
056441,000268: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
056442,000269: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
056443,000270: # CAF V5XNYY X=1,2,3,4 Y=NOUN
056444,000271: # TC BANKCALL
|
|
Page 1340 |
056446,000273: # CADR GOMARK1
056447,000274: # ... ... ENTER RETURN
056448,000275: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
056449,000276:
056450,000277: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
056451,000278: # CAF V5XNYY X=1,2,3,4 YY=NOUN
056452,000279: # TC BANKCALL
056453,000280: # CADR GOMARK1R
056454,000281: # ... ... ASTRONAUT ENTER RETURN
056455,000282: # ... ... IMMEDIATE RETURN TO USER
056456,000283: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
056457,000284: # CAF V5XNYY X=1,2,3,4 YY=NOUN
056458,000285: # TC BANKCALL
056459,000286: # CADR GOMARK2
056460,000287: # ... ... TERMINATE RETURN
056461,000288: # ... ... PROCEED RETURN
056462,000289: # ... ... ENTER RETURN
056463,000290: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
056464,000291: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
056465,000292: # TC BANKCALL
056466,000293: # CADR GOMARK2R
056467,000294: # ... ... TERMINATE RETURN
056468,000295: # ... ... PROCEED RETURN
056469,000296: # ... ... ENTER RETURN
056470,000297: # ... ... IMMEDIATE RETURN TO THE USER
056471,000298: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
056472,000299: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
056473,000300: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
056474,000301: # CAF V5XNYY X=1,2,3,4 YY=NOUN
056475,000302: # TC BANKCALL
056476,000303: # CADR GOMARK3
056477,000304: # ... ... TERMINATE RETURN
056478,000305: # ... ... PROCEED RETURN
056479,000306: # ... ... ENTER RETURN
056480,000307: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
056481,000308: # CAF V5XNYY X=1,2,3,4 YY=NOUN
056482,000309: # TC BANKCALL
056483,000310: # CADR GOMARK4
056484,000311: # ... ... TERMINATE RETURN
056485,000312: # ... ... PROCEED RETURN
|
|
Page 1341 |
056487,000314: # ... ... ENTER RETURN
056488,000315: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
056489,000316: # SENT OUT.
056490,000317: # CAF VXXNYY
056491,000318: # TC BANKCALL
056492,000319: # CADR EXDSPRET
056493,000320: # ... ... RETURN TO USER
056494,000321: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
056495,000322: # HAVE BEEN CLEANED OUT.
056496,000323: # TC BANKCALL
056497,000324: # CADR KLEENEX
056498,000325: # ... ... RETURN TO USER
056499,000326: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
056500,000327: # TC BANKCALL
056501,000328: # CADR MARKBRAN
056502,000329: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
056503,000330: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
056504,000331: # LAST FLASHING MARK R ROUTINE)
056505,000332: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
056506,000333: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
056507,000334: # TC POSTJUMP
056508,000335: # CADR PINBRNCH
056509,000336: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
056510,000337: # THE ASTRONAUT (SEE NO. 7 ABOVE).
056511,000338: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
056512,000339: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
056513,000340: # IS RESPONDED TO BY THE ASTRONAUT.
056514,000341: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
056515,000342: # PRIO DISPLAY.
056516,000343: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
056517,000344: # TC BANKCALL
056518,000345: # CADR PRIODSP
056519,000346: # ... ... TERMINATE RETURN
056520,000347: # ... ... PROCEED RETURN
|
|
Page 1342 |
056522,000349: # ... ... ENTER OR RECYCLE RETURN
056523,000350: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
056524,000351: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
056525,000352: # TC BANKCALL
056526,000353: # CADR PRIODSPR
056527,000354: # ... ... TERMINATE RETURN
056528,000355: # ... ... PROCEED RETURN
056529,000356: # ... ... ENTER OR RECYCLE RETURN
056530,000357: # ... ... IMMEDIATE RETURN
056531,000358: # PRIOLARM DOES A V05N09 PRIODSPR.
056532,000359:
056533,000360: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
056534,000361: # DISPLAYS ARE CLEANED OUT.
056535,000362: # TC BANKCALL
056536,000363: # CADR CLEANDSP
056537,000364: # ... ... RETURN TO USER
|
|
Page 1343 |
056539,000366:
056540,000367: # GENERAL INFORMATION
056541,000368: # ------- -----------
056542,000369:
056543,000370: # ALARM OR ABORT EXIT MODES--
056544,000371: # PRIOBORT TC ABORT
056545,000372: # OCT 1502
056546,000373:
056547,000374: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
056548,000375: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
056549,000376: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
056550,000377:
056551,000378: # ERASABLE INITIALIZATION REQUIRED--
056552,000379: # ACCOMPLISHED BY FRESH START - 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
056553,000380: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
056554,000381: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
056555,000382: # 5. R1SAVE = MARKBRAN CONTROL WORD
056556,000383: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
056557,000384:
056558,000385: # OUTPUT--
056559,000386: # NVWORD = PRIO VERB AND NOUN
056560,000387: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
056561,000388: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
056562,000389:
056563,000390: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
056564,000391: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
056565,000392: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
056566,000393:
056567,000394: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
056568,000395: # CADRFLSH +1 (MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
056569,000396: # CADRFLSH +2 (TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
056570,000397:
056571,000398: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
056572,000399: # OPTION1 = DESIRED OPTION FROM GOPERF4
056573,000400: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
056574,000401: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
056575,000402:
056576,000403: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
056577,000404: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
056578,000405:
056579,000406: # DEBRIS-- (STORED INTO)
056580,000407: # TEMPORARY TEMPORARIES - A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
056581,000408: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
056582,000409: # ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
056583,000410:
056584,000411: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
|
|
Page 1344 |
056586,000413: # R1SAVE, MARK2PAC,
056587,000414:
056588,000415: # DEBRIS-- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
056589,000416:
056590,000417: # FLAGWORD DESCRIPTIONS--
056591,000418: # FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
056592,000419:
056593,000420: # DSPFLG, DSPFLG+1, DSPFLG +2-
056594,000421: # ----------------------------
056595,000422: # BITS 1 BLANK R1
056596,000423: # 2 BLANK R2
056597,000424: # 3 BLANK R3
056598,000425: # 4 FLASHING DISPLAY REQUESTED
056599,000426: # 5 PERFORM DISPLAY REQUESTED
056600,000427: # 6 ----- EXDSPRET GODSPRET
056601,000428: # 7 PRIO DISPLAY ----- -----
056602,000429: # 8 ----- DEC MARK PERFORM -----
056603,000430: # 9 EBANK
056604,000431: # 10 EBANK
056605,000432: # 11 EBANK
056606,000433: # 12 ----- ----- V99PASTE
056607,000434: # 13 2ND PART OF PERFORM
056608,000435: # 15 REFLASH OR REDO ----- REFLASH OR REDO
056609,000436: # 15 ----- MARK REQUEST -----
056610,000437:
056611,000438: # RESTARTING DISPLAYS--
056612,000439:
056613,000440: # RULES FOR THE DSKY OPERATOR--
056614,000441: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
056615,000442: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
056616,000443: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
056617,000444: # WITH PROCEED AND TERMINATE FOR THIS REASON.
056618,000445: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
056619,000446: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
056620,000447: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
056621,000448: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
056622,000449: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
056623,000450: # CONSIDERATION.
056624,000451: # 3. KEY RELEASE BUTTON -
056625,000452: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
056626,000453: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
056627,000454: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
056628,000455: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
056629,000456: # KEY RELEASE BUTTON MAY BE NECESSARY.
056630,000457: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
056631,000458: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
056632,000459: # OVER AGAIN.
056633,000460:
056634,000461: # SPECIAL CONSIDERATIONS--
|
|
Page 1345 |
056636,000463: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
056637,000464: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
056638,000465: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
056639,000466: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
056640,000467: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
056641,000468: # BY A .1 RESTART PHASE CHANGE.
056642,000469: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
056643,000470: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
056644,000471: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
056645,000472:
|
|
Page 1346 |
056647,000474: # CALLING SEQUENCE FOR BLANKING
056648,000475: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
056649,000476: # TC BLANKET
056650,000477: # ... ... RETURN TO USER HERE
056651,000478: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
056652,000479: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
056653,000480: 5464 BLOCK 02
056654,000481: 4000 SETLOC FFTAG4
056655,000482: 4000 BANK
056656,000483:
056657,000484: 5464 COUNT* $$/DSPLA
056658,000485: 5464 54162 BLANKET TS MPAC +6
056659,000486: 5465 40160 CS PLAYTEM4
056660,000487: 5466 70162 MASK MPAC +6
056661,000488: 5467 50161 INDEX MPAC +5
056662,000489: 5470 26160 ADS PLAYTEM4
056663,000490:
056664,000491: 5471 00002 TC Q
056665,000492:
056666,000493: 5472 04635 ENDMARK TC POSTJUMP
056667,000494: 5473 20326 CADR MARKEND
056668,000495:
056669,000496: 5474 34755 CLEARMRK CAF ZERO
056670,000497: 5475 55043 TS EXTVBACT
056671,000498:
056672,000499: 5476 00004 +2 INHINT
056673,000500: 5477 44753 CS XDSPBIT
056674,000501: 5500 70100 MASK FLAGWRD4
056675,000502: 5501 54100 TS FLAGWRD4
056676,000503:
056677,000504: 5502 00003 RELINT
056678,000505: 5503 00002 TC Q
056679,000506:
056680,000507: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
056681,000508: # FINISHED.
056682,000509:
056683,000510: 10,2326 BANK 10
056684,000511: 10,2000 SETLOC DISPLAYS
056685,000512: 10,2000 BANK
056686,000513:
056687,000514: 10,2326 COUNT* $$/DSPLA
056688,000515:
056689,000516: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
056690,000517: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
056691,000518:
056692,000519: 10,2326 05474 MARKEND TC CLEARMRK
056693,000520: 10,2327 13422 TCF MARKOVER
056694,000521:
056695,000522: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
056696,000523:
|
|
Page 1347 |
056698,000525: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
056699,000526: 10,2332 12501 TCF GOFLASH2
056700,000527:
056701,000528: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
056702,000529: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
056703,000530:
056704,000531: 10,2335 33032 CAF MARKFMSK # MARK, FLASH
056705,000532: 10,2336 12501 TCF GOFLASH2
056706,000533:
056707,000534: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
056708,000535: 10,2340 33521 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
056709,000536: 10,2341 12501 TCF GOFLASH2
056710,000537:
056711,000538: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
056712,000539: 10,2343 33506 CAF MARK3MSK
056713,000540: 10,2344 12501 TCF GOFLASH2
056714,000541:
056715,000542: 10,2345 54155 GOMARK4 TS PLAYTEM1
056716,000543: 10,2346 33507 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
056717,000544: 10,2347 12501 TCF GOFLASH2
056718,000545:
056719,000546: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR
056720,000547:
056721,000548: 10,2351 34735 CAF BIT15
056722,000549: 10,2352 12454 TCF GODSPR2
056723,000550:
056724,000551: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
056725,000552:
056726,000553: 10,2354 33032 CAF MARKFMSK
056727,000554: 10,2355 12640 TCF GODSPRS
056728,000555:
056729,000556: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
056730,000557: 10,2357 33521 CAF MPERFMSK # MARK, PERFORM, FLASH
056731,000558: 10,2360 12640 TCF GODSPRS
056732,000559:
056733,000560: 10,2361 65023 -1 AD PRIO13
056734,000561: 10,2362 54155 GOMARK3R TS PLAYTEM1
056735,000562: 10,2363 33506 CAF MARK3MSK
056736,000563: 10,2364 12640 TCF GODSPRS
056737,000564:
056738,000565: 10,2365 34753 MAKEMARK CAF ONE
056739,000566: 10,2366 02736 TC COPIES
056740,000567:
056741,000568: 10,2367 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
056742,000569: 10,2370 73522 MASK OCT34300
056743,000570: 10,2371 10000 CCS A
056744,000571: 10,2372 12430 TCF CHKPRIO
056745,000572:
056746,000573: 10,2373 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
056747,000574: 10,2374 74743 MASK MRKNVBIT
056748,000575:
|
|
Page 1348 |
056750,000577: 10,2375 00006 EXTEND
056751,000578: 10,2376 12400 BZF MARKPLAY # NO
056752,000579:
056753,000580: 10,2377 15155 TCF ENDOFJOB
056754,000581:
056755,000582: 10,2400 00004 MARKPLAY INHINT
056756,000583: 10,2401 44756 CS FIVE # RESET MARK OVER NORM, SET MARK
056757,000584: 10,2402 70100 MASK FLAGWRD4
056758,000585: 10,2403 64753 AD ONE
056759,000586: 10,2404 54100 TS FLAGWRD4
056760,000587: 10,2405 00003 RELINT
056761,000588:
056762,000589: 10,2406 41070 GOGOMARK CS MARKFLAG # PERFORM
056763,000590: 10,2407 74747 MASK BIT5
056764,000591: 10,2410 10000 CCS A
056765,000592: 10,2411 12414 TCF MARKCOP
056766,000593: 10,2412 40370 CS MARKNV
056767,000594: 10,2413 54370 TS MARKNV
056768,000595:
056769,000596: 10,2414 34753 MARKCOP CAF ONE # MARK INDEX
056770,000597: 10,2415 12617 TCF PRIOPLAY
056771,000598:
056772,000599: 10,2416 30165 COPYTOGO CA MPAC2SAV
056773,000600: 10,2417 54156 TS MPAC +2
056774,000601:
056775,000602: 10,2420 50164 COPYPACS INDEX COPINDEX
056776,000603: 10,2421 33532 CAF PRIOOCT
056777,000604: 10,2422 54162 TS GENMASK
056778,000605:
056779,000606: 10,2423 50164 INDEX COPINDEX
056780,000607: 10,2424 31067 CAF EBANKSAV
056781,000608: 10,2425 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
056782,000609:
056783,000610: 10,2426 54003 TS EBANK
056784,000611:
056785,000612: 10,2427 00002 TC Q
056786,000613:
056787,000614: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
056788,000615: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
056789,000616: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
056790,000617: # UNTIL ALL MARKING IS FINISHED.
056791,000618:
056792,000619: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
056793,000620: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
056794,000621:
056795,000622: 10,2430 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
056796,000623: 10,2431 73255 MASK OCT24100
056797,000624: 10,2432 10000 CCS A
056798,000625: 10,2433 13455 TCF MARSLEEP
056799,000626:
|
|
Page 1349 |
056801,000628: 10,2434 40100 CS FLAGWRD4
056802,000629: 10,2435 74751 MASK MKOVBIT # SET MARK OVER NORM
056803,000630: 10,2436 00004 INHINT
056804,000631: 10,2437 26100 ADS FLAGWRD4
056805,000632:
056806,000633: 10,2440 12535 TCF SETNORM
056807,000634:
056808,000635: 10,2441 30370 MARKPERF CA MARKNV
056809,000636: 10,2442 74144 MASK VERBMASK
056810,000637: 10,2443 13121 TCF NV50DSP
056811,000638:
056812,000639: 10,2444 54155 GODSP TS PLAYTEM1
056813,000640:
056814,000641: 10,2445 34755 GODSP2 CAF ZERO
056815,000642: 10,2446 12501 TCF GOFLASH2
056816,000643:
056817,000644: 10,2447 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
056818,000645:
056819,000646: 10,2450 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
056820,000647: 10,2451 12501 TCF GOFLASH2
056821,000648:
056822,000649: 10,2452 54155 GODSPR TS PLAYTEM1
056823,000650:
056824,000651: 10,2453 34755 GODSPR1 CAF ZERO
056825,000652: 10,2454 54160 GODSPR2 TS PLAYTEM4
056826,000653:
056827,000654: 10,2455 34755 CAF ZERO # * DONT MOVE
056828,000655: 10,2456 12642 TCF GODSPRS1
056829,000656:
056830,000657: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
056831,000658: # SET UP TO BE STARTED OR RESTARTED.
056832,000659:
056833,000660: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
056834,000661: # OLD DISPLAY.
056835,000662:
056836,000663: # CALLING SEQUENCE FOR CLEANDSP -
056837,000664:
056838,000665: # TC BANKCALL
056839,000666: # CADR CLEANDSP
056840,000667:
056841,000668: 10,2457 34755 CLEANDSP CAF ZERO
056842,000669: 10,2460 54155 REFLASH TS PLAYTEM1
056843,000670:
056844,000671: 10,2461 33505 CAF REDOMASK # FLASH AND PERMIT
056845,000672: 10,2462 12501 TCF GOFLASH2
056846,000673:
056847,000674: 10,2463 54155 REFLASHR TS PLAYTEM1
056848,000675:
056849,000676: 10,2464 33505 CAF REDOMASK # FLASH AND PERMIT
056850,000677: 10,2465 12640 TCF GODSPRS
056851,000678:
|
|
Page 1350 |
056853,000680: 10,2466 54155 REGODSP TS PLAYTEM1
056854,000681:
056855,000682: 10,2467 34736 CAF BIT14
056856,000683: 10,2470 12501 TCF GOFLASH2
056857,000684:
056858,000685: 10,2471 54155 REGODSPR TS PLAYTEM1
056859,000686:
056860,000687: 10,2472 34736 CAF BIT14
056861,000688: 10,2473 12454 TCF GODSPR2
056862,000689:
056863,000690: 10,2474 54155 CLOCPLAY TS PLAYTEM1
056864,000691: 10,2475 33544 CAF CLOCKCON
056865,000692: 10,2476 12501 TCF GOFLASH2
056866,000693:
056867,000694: 10,2477 54155 GOFLASH TS PLAYTEM1
056868,000695:
056869,000696: 10,2500 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
056870,000697: 10,2501 54160 GOFLASH2 TS PLAYTEM4
056871,000698:
056872,000699: 10,2502 02723 TC SAVELOCS
056873,000700:
056874,000701: 10,2503 00003 RELINT
056875,000702:
056876,000703: 10,2504 12547 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
056877,000704:
056878,000705: 10,2505 54155 PRIODSPR TS PLAYTEM1
056879,000706:
056880,000707: 10,2506 33524 CAF BITS7+4
056881,000708: 10,2507 12640 TCF GODSPRS
056882,000709:
056883,000710: 10,2510 54155 PRIODSP TS PLAYTEM1
056884,000711:
056885,000712: 10,2511 33524 SETPRIO CAF BITS7+4
056886,000713: 10,2512 12501 TCF GOFLASH2
056887,000714:
056888,000715: 10,2513 34755 MAKEPRIO CAF ZERO
056889,000716: 10,2514 54164 TS COPINDEX
056890,000717:
056891,000718: 10,2515 03375 TC LINUSCHR
056892,000719: 10,2516 12523 TCF HIPRIO # LINUS RETURN
056893,000720: 10,2517 30100 CA FLAGWRD4
056894,000721: 10,2520 73543 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
056895,000722: 10,2521 10000 CCS A
056896,000723: 10,2522 12576 TCF PRIOBORT # YES, ABORT
056897,000724:
056898,000725: 10,2523 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
056899,000726: 10,2524 75632 MASK OCT40400
056900,000727: 10,2525 00006 EXTEND
056901,000728: 10,2526 12531 BZF ASKIFNRM # NO
056902,000729:
|
|
Page 1351 |
056904,000731: 10,2527 34755 SETMARK CAF ZERO
056905,000732: 10,2530 12775 TCF JOBXCHS
056906,000733:
056907,000734: 10,2531 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
056908,000735: 10,2532 73541 MASK OCT10200 # BITS 13+8
056909,000736: 10,2533 00006 EXTEND
056910,000737: 10,2534 12537 BZF OKTOCOPY # NO
056911,000738:
056912,000739: 10,2535 34753 SETNORM CAF ONE
056913,000740: 10,2536 12775 TCF JOBXCHS
056914,000741:
056915,000742: 10,2537 02735 OKTOCOPY TC COPYNORM
056916,000743: 10,2540 03206 TC WITCHONE
056917,000744:
056918,000745: 10,2541 05137 TC JOBWAKE
056919,000746:
056920,000747: 10,2542 03223 TC XCHTOEND
056921,000748:
056922,000749: 10,2543 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
056923,000750: 10,2544 55164 TS PRIOTIME
056924,000751:
056925,000752: 10,2545 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
056926,000753: 10,2546 12617 TCF PRIOPLAY
056927,000754:
056928,000755: 10,2547 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
056929,000756: 10,2550 77730 MASK PRIO37
056930,000757: 10,2551 54163 TS USERPRIO
056931,000758:
056932,000759: 10,2552 37724 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
056933,000760: 10,2553 05146 TC PRIOCHNG
056934,000761:
056935,000762: 10,2554 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
056936,000763: 10,2555 73523 MASK BITS15+7
056937,000764: 10,2556 10000 CCS A
056938,000765: 10,2557 12513 TCF MAKEPRIO # ITS PRIO
056939,000766: 10,2560 12562 TCF IFLEGAL
056940,000767: 10,2561 12365 TCF MAKEMARK # ITS MARK
056941,000768:
056942,000769: 10,2562 34752 IFLEGAL CAF TWO
056943,000770: 10,2563 54164 TS COPINDEX
056944,000771:
056945,000772: 10,2564 03375 TC LINUSCHR
056946,000773:
056947,000774: 10,2565 12600 TCF OKTOPLAY # LINUS RETURN
056948,000775: 10,2566 41071 CS EBANKTEM
056949,000776: 10,2567 74750 MASK BIT4
056950,000777: 10,2570 10000 CCS A
056951,000778: 10,2571 12600 TCF OKTOPLAY # NO
056952,000779:
056953,000780: 10,2572 30100 CA FLAGWRD4 # WAS NORM ASLEEP
|
|
Page 1352 |
056955,000782: 10,2573 73514 MASK NBUSMASK # ARE ANY NORMS ASLEEP
056956,000783: 10,2574 00006 EXTEND
056957,000784: 10,2575 12600 BZF OKTOPLAY # NO
056958,000785:
056959,000786: 10,2576 05624 PRIOBORT TC BAILOUT
056960,000787: 10,2577 31502 OCT 31502
056961,000788:
056962,000789: 10,2600 02737 OKTOPLAY TC COPIES2
056963,000790:
056964,000791: 10,2601 30163 CA USERPRIO
056965,000792: 10,2602 00006 EXTEND
056966,000793: 10,2603 04007 ROR SUPERBNK
056967,000794: 10,2604 54366 TS RESTREG
056968,000795:
056969,000796: 10,2605 30100 CA FLAGWRD4 # PRIO OR MARK GOING
056970,000797: 10,2606 73515 MASK PMMASK
056971,000798: 10,2607 10000 CCS A
056972,000799: 10,2610 12755 TCF GOSLEEPS # YES
056973,000800:
056974,000801: 10,2611 12613 TCF +2
056975,000802: 10,2612 12755 TCF GOSLEEPS # MARK GOING
056976,000803:
056977,000804: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
056978,000805:
056979,000806: 10,2613 03206 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
056980,000807: 10,2614 05137 TC JOBWAKE
056981,000808:
056982,000809: 10,2615 03223 TC XCHTOEND
056983,000810:
056984,000811: 10,2616 34752 PLAYJUM1 CAF TWO
056985,000812: 10,2617 54164 PRIOPLAY TS COPINDEX
056986,000813:
056987,000814: 10,2620 13071 TCF GOPLAY
056988,000815:
056989,000816: 10,2621 54155 EXDSPRET TS PLAYTEM1
056990,000817:
056991,000818: 10,2622 37737 CAF BIT15+6
056992,000819: 10,2623 12501 TCF GOFLASH2
056993,000820:
056994,000821: 10,2624 55044 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
056995,000822: 10,2625 33477 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
056996,000823:
056997,000824: 10,2626 54155 GOPERFS TS PLAYTEM1
056998,000825:
056999,000826: 10,2627 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
057000,000827: 10,2630 12501 TCF GOFLASH2
057001,000828:
057002,000829: 10,2631 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057003,000830:
057004,000831: 10,2632 33502 CAF PERF2MSK
057005,000832: 10,2633 12501 TCF GOFLASH2
057006,000833:
|
|
Page 1353 |
057008,000835: 10,2634 02716 GOPERF4 TC PURRS4
057009,000836:
057010,000837: 10,2635 12501 TCF GOFLASH2
057011,000838:
057012,000839: 10,2636 54155 GOFLASHR TS PLAYTEM1
057013,000840:
057014,000841: 10,2637 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET
057015,000842: 10,2640 54160 GODSPRS TS PLAYTEM4
057016,000843:
057017,000844: 10,2641 36250 CAF THREE
057018,000845:
057019,000846: 10,2642 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
057020,000847: 10,2643 54072 TS RUPTREG3
057021,000848:
057022,000849: 10,2644 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
057023,000850: 10,2645 77730 MASK PRIO37
057024,000851: 10,2646 54063 TS NEWPRIO
057025,000852:
057026,000853: 10,2647 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
057027,000854: 10,2650 74750 MASK BIT4
057028,000855: 10,2651 10000 CCS A
057029,000856: 10,2652 12660 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
057030,000857: 10,2653 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
057031,000858: 10,2654 05072 TC NOVAC
057032,000859: 10,2655 E7,1471 EBANK= WHOCARES
057033,000860: 10,2655 02547 20067 2CADR MAKEPLAY
057034,000861:
057035,000862: 10,2657 12666 TCF BOTHJOBS
057036,000863:
057037,000864: 10,2660 30006 VACDSP CA BBANK
057038,000865: 10,2661 00006 EXTEND
057039,000866: 10,2662 04007 ROR SUPERBNK
057040,000867: 10,2663 54001 TS L
057041,000868: 10,2664 33540 CAF MAKEGEN
057042,000869: 10,2665 05116 TC SPVAC
057043,000870:
057044,000871: 10,2666 02723 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
057045,000872:
057046,000873: 10,2667 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
057047,000874: 10,2670 30156 DCA MPAC +1
057048,000875: 10,2671 50064 INDEX LOCCTR
057049,000876: 10,2672 52156 DXCH MPAC +1
057050,000877:
057051,000878: 10,2673 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
057052,000879: 10,2674 30160 DCA MPAC +3
057053,000880: 10,2675 50064 INDEX LOCCTR
057054,000881: 10,2676 52160 DXCH MPAC +3
057055,000882:
057056,000883: 10,2677 30064 CA LOCCTR
057057,000884: 10,2700 54161 TS MPAC +5
|
|
Page 1354 |
057059,000886: 10,2701 02730 TC SAVELOCR
057060,000887: 10,2702 00003 RELINT
057061,000888:
057062,000889: 10,2703 14640 TCF BANKJUMP # CALL CADR +4
057063,000890:
057064,000891: 10,2704 55044 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
057065,000892:
057066,000893: 10,2705 33477 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
057067,000894:
057068,000895: 10,2706 54155 GOPERFRS TS PLAYTEM1
057069,000896:
057070,000897: 10,2707 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
057071,000898: 10,2710 12640 TCF GODSPRS
057072,000899:
057073,000900: 10,2711 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
057074,000901:
057075,000902: 10,2712 33502 CAF PERF2MSK
057076,000903: 10,2713 12640 TCF GODSPRS
057077,000904:
057078,000905: 10,2714 02716 GOPERF4R TC PURRS4
057079,000906:
057080,000907: 10,2715 12640 TCF GODSPRS
057081,000908:
057082,000909: 10,2716 55143 PURRS4 TS OPTION1 # DESIRED OPTION CODE
057083,000910:
057084,000911: 10,2717 33503 CAF V04N06
057085,000912: 10,2720 54155 TS PLAYTEM1
057086,000913:
057087,000914: 10,2721 33504 CAF PERF4MSK # FLASH, PERFORM AND BLANK R3
057088,000915: 10,2722 00002 TC Q
057089,000916:
057090,000917: 10,2723 00004 SAVELOCS INHINT
057091,000918:
057092,000919: 10,2724 43513 CS OCT3400 # EBANK BITS
057093,000920: 10,2725 70160 MASK PLAYTEM4
057094,000921: 10,2726 60003 AD EBANK
057095,000922: 10,2727 54160 TS PLAYTEM4
057096,000923:
057097,000924: 10,2730 22002 SAVELOCR LXCH Q
057098,000925:
057099,000926: 10,2731 04645 TC MAKECADR
057100,000927: 10,2732 54157 TS PLAYTEM3
057101,000928:
057102,000929: 10,2733 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
057103,000930: 10,2734 00001 TC L
057104,000931:
057105,000932: 10,2735 34755 COPYNORM CAF ZERO
057106,000933: 10,2736 54164 COPIES TS COPINDEX
057107,000934: 10,2737 00004 COPIES2 INHINT
057108,000935: 10,2740 30160 CA PLAYTEM4 # FLAGWORD
057109,000936:
|
|
Page 1355 |
057111,000938: 10,2741 50164 INDEX COPINDEX
057112,000939: 10,2742 55067 TS EBANKSAV # EQUIV TO DSPFLG
057113,000940:
057114,000941: 10,2743 73531 MASK CADRMASK # FLASH AND GODSPRET
057115,000942: 10,2744 00006 EXTEND
057116,000943: 10,2745 12751 BZF SKIPADD
057117,000944:
057118,000945: 10,2746 30157 CA PLAYTEM3
057119,000946: 10,2747 50164 INDEX COPINDEX
057120,000947: 10,2750 54372 TS CADRFLSH
057121,000948:
057122,000949: 10,2751 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
057123,000950: 10,2752 50164 INDEX COPINDEX
057124,000951: 10,2753 54367 TS NVWORD
057125,000952:
057126,000953: 10,2754 13232 TCF RELINTQ
057127,000954:
057128,000955: 10,2755 50164 GOSLEEPS INDEX COPINDEX
057129,000956: 10,2756 33532 CA PRIOOCT
057130,000957: 10,2757 72761 MASK WAITMASK
057131,000958: 10,2760 03545 TC UPENT2
057132,000959: 10,2761 03004 WAITMASK OCT 3004
057133,000960: 10,2762 44753 CS ONE
057134,000961: 10,2763 60164 AD COPINDEX
057135,000962: 10,2764 54154 TS FACEREG
057136,000963:
057137,000964: 10,2765 50154 XCHSLEEP INDEX FACEREG
057138,000965: 10,2766 33511 CAF WAKECADR
057139,000966: 10,2767 00004 INHINT
057140,000967: 10,2770 05137 TC JOBWAKE # FIND CADR IN JOB AREA
057141,000968:
057142,000969: 10,2771 03223 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
057143,000970:
057144,000971: 10,2772 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
057145,000972: 10,2773 33511 CAF WAKECADR
057146,000973: 10,2774 15133 TCF JOBSLEEP
057147,000974:
057148,000975: 10,2775 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
057149,000976: 10,2776 03206 TC WITCHONE
057150,000977: 10,2777 05137 TC JOBWAKE
057151,000978: 10,3000 30154 CA FACEREG
057152,000979: 10,3001 50064 INDEX LOCCTR
057153,000980: 10,3002 54154 TS FACEREG
057154,000981:
057155,000982: 10,3003 33016 CAF XCHQADD
057156,000983: 10,3004 03224 TC XCHNYLOC
057157,000984:
057158,000985: 10,3005 50154 INDEX FACEREG
057159,000986: 10,3006 33533 CA MARKOCT
057160,000987: 10,3007 73535 MASK IDLESLEP
057161,000988:
|
|
Page 1356 |
057163,000990: 10,3010 03555 TC DOWNENT2
057164,000991: 10,3011 74004 IDLEMASK OCT 74004 # * DONT MOVE
057165,000992:
057166,000993: 10,3012 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
057167,000994: 10,3013 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
057168,000995: 10,3014 64751 AD FOUR
057169,000996: 10,3015 03545 TC UPENT2 # FLAG ROUTINE DOES RELINT
057170,000997: 10,3016 02765 XCHQADD GENADR XCHSLEEP # * DONT MOVE
057171,000998: 10,3017 30100 CA FLAGWRD4
057172,000999: 10,3020 74751 MASK MKOVBIT # MARK OVER NORM?
057173,001000: 10,3021 10000 CCS A
057174,001001: 10,3022 02400 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
057175,001002: 10,3023 12537 TCF OKTOCOPY
057176,001003:
057177,001004: 10,3024 34755 MARKWAKE CAF ZERO
057178,001005: 10,3025 54160 WAKEPLAY TS TEMPOR2
057179,001006:
057180,001007: 10,3026 50160 INDEX TEMPOR2
057181,001008: 10,3027 33525 CA BITS5+11
057182,001009: 10,3030 64751 AD FOUR
057183,001010: 10,3031 03555 TC DOWNENT2
057184,001011: 10,3032 40010 MARKFMSK OCT 40010 # *** DONT MOVE
057185,001012:
057186,001013: 10,3033 50160 INDEX TEMPOR2
057187,001014: 10,3034 33511 CAF WAKECADR
057188,001015: 10,3035 00004 INHINT
057189,001016: 10,3036 05137 TC JOBWAKE
057190,001017:
057191,001018: 10,3037 13336 TCF ENDRET
057192,001019:
057193,001020: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
057194,001021: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
057195,001022:
057196,001023: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
057197,001024: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
057198,001025:
057199,001026: 10,3040 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
057200,001027: 10,3041 54003 TS EBANK
057201,001028:
057202,001029: 10,3042 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
057203,001030: 10,3043 04727 TC SUPERSW # RESTORE SUPERBANK
057204,001031:
057205,001032: 10,3044 77730 MASK PRIO37
057206,001033: 10,3045 05146 TC PRIOCHNG
057207,001034:
057208,001035: 10,3046 46250 CS THREE
057209,001036: 10,3047 60374 AD TEMPFLSH
057210,001037: 10,3050 14640 TCF BANKJUMP
057211,001038:
057212,001039: 10,3051 00003 PINBRNCH RELINT # FOR GOPIN USERS
057213,001040: 10,3052 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
|
|
Page 1357 |
057215,001042: 10,3053 54156 TS MPAC +2 # ONLY
057216,001043:
057217,001044: 10,3054 30100 CA FLAGWRD4 # PINBRANCH CONDITION
057218,001045: 10,3055 77743 MASK PINMASK
057219,001046: 10,3056 10000 CCS A
057220,001047: 10,3057 13062 TCF +3
057221,001048: 10,3060 13472 TCF ERASER # ** NOTHING IN ENDIDLE
057222,001049: 10,3061 12400 TCF MARKPLAY
057223,001050:
057224,001051: 10,3062 05504 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
057225,001052: 10,3063 00105 ADRES PINBRFLG
057226,001053:
057227,001054: 10,3064 34736 CAF PRIODBIT # PRIO INTERRUPTED
057228,001055: 10,3065 70100 MASK FLAGWRD4
057229,001056: 10,3066 10000 CCS A
057230,001057: 10,3067 12545 TCF KEEPPRIO
057231,001058:
057232,001059: 10,3070 12616 TCF PLAYJUM1
057233,001060:
057234,001061: 10,3071 02420 NVDSP TC COPYPACS
057235,001062:
057236,001063: 10,3072 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
057237,001064: 10,3073 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR
057238,001065: 10,3074 54001 TS L
057239,001066:
057240,001067: 10,3075 44737 CS BIT13
057241,001068: 10,3076 50164 INDEX COPINDEX
057242,001069: 10,3077 71067 MASK DSPFLG
057243,001070: 10,3100 50164 INDEX COPINDEX
057244,001071: 10,3101 55067 TS DSPFLG
057245,001072:
057246,001073: 10,3102 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
057247,001074: 10,3103 54141 TS TEM1
057248,001075:
057249,001076: 10,3104 30156 CA MPAC +2
057250,001077: 10,3105 54165 TS MPAC2SAV
057251,001078:
057252,001079: 10,3106 55072 TS MARK2PAC # * FOR DISK ONLY *
057253,001080: 10,3107 50164 INDEX COPINDEX
057254,001081: 10,3110 10367 CCS NVWORD
057255,001082: 10,3111 13120 TCF NVDSP1
057256,001083: 10,3112 13234 TCF CLEANEND
057257,001084: 10,3113 40370 CS MARKNV
057258,001085: 10,3114 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
057259,001086: 10,3115 76077 MASK LOW7
057260,001087: 10,3116 63516 AD V05N00M1
057261,001088: 10,3117 60141 AD TEM1
057262,001089: 10,3120 64753 NVDSP1 AD ONE
057263,001090: 10,3121 04155 NV50DSP TC NVMONOPT
057264,001091: 10,3122 13246 TCF REST # IF BUSY
057265,001092:
|
|
Page 1358 |
057267,001094: 10,3123 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
057268,001095:
057269,001096: 10,3124 02416 TC COPYTOGO # MPACS DESTROYED BY NVSUB
057270,001097: 10,3125 05516 TC DOWNFLAG # UNSET SLEEPING BITS
057271,001098: 10,3126 00102 ADRES MRKNVFLG
057272,001099: 10,3127 05516 TC DOWNFLAG
057273,001100: 10,3130 00103 ADRES NRMNVFLG
057274,001101: 10,3131 05516 TC DOWNFLAG
057275,001102: 10,3132 00104 ADRES PRONVFLG
057276,001103: 10,3133 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
057277,001104: 10,3134 04255 TC BLANKSUB
057278,001105: 10,3135 13071 TCF NVDSP
057279,001106: 10,3136 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM
057280,001107: 10,3137 70160 MASK TEMPOR2
057281,001108: 10,3140 10000 CCS A # IS THIS A GOPERF DISPLAY
057282,001109: 10,3141 13164 TCF 1STOR2ND # YES
057283,001110:
057284,001111: 10,3142 34750 GOANIDLE CAF BIT4
057285,001112: 10,3143 70160 MASK TEMPOR2
057286,001113: 10,3144 10000 CCS A
057287,001114: 10,3145 13261 TCF FLASHSUB # IT IS
057288,001115:
057289,001116: 10,3146 40160 CS TEMPOR2 # IS THIS A GODSPRET
057290,001117: 10,3147 74746 MASK BIT6
057291,001118: 10,3150 10000 CCS A
057292,001119: 10,3151 13156 TCF ISITN00
057293,001120:
057294,001121: 10,3152 50164 INDEX COPINDEX
057295,001122: 10,3153 30372 CA CADRFLSH
057296,001123: 10,3154 54157 TS MPAC +3
057297,001124: 10,3155 13354 TCF ENDIT
057298,001125:
057299,001126: 10,3156 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
057300,001127: 10,3157 30367 CA NVWORD
057301,001128: 10,3160 76077 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
057302,001129: 10,3161 00006 EXTEND
057303,001130: 10,3162 13261 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
057304,001131:
057305,001132: 10,3163 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
057306,001133:
057307,001134: 10,3164 30160 1STOR2ND CA TEMPOR2
057308,001135: 10,3165 74737 MASK BIT13
057309,001136: 10,3166 10000 CCS A
057310,001137: 10,3167 13142 TCF GOANIDLE # SECOND
057311,001138:
057312,001139: 10,3170 34737 CA BIT13
057313,001140: 10,3171 50164 INDEX COPINDEX
057314,001141: 10,3172 27067 ADS DSPFLG
057315,001142:
057316,001143: 10,3173 22007 ZL
|
|
Page 1359 |
057318,001145: 10,3174 00006 EXTEND # IS IT MARK
057319,001146: 10,3175 62441 BZMF MARKPERF # YES
057320,001147:
057321,001148: 10,3176 74740 MASK BIT12
057322,001149: 10,3177 00006 EXTEND
057323,001150: 10,3200 13204 BZF V50PASTE
057324,001151: 10,3201 41066 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
057325,001152: 10,3202 63542 AD V97N00
057326,001153: 10,3203 13121 TCF NV50DSP
057327,001154: 10,3204 33501 V50PASTE CAF V50N00
057328,001155: 10,3205 13121 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
057329,001156:
057330,001157: 10,3206 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
057331,001158: 10,3207 00006 EXTEND
057332,001159: 10,3210 03011 WAND DSALMOUT
057333,001160:
057334,001161: 10,3211 30100 CA FLAGWRD4
057335,001162: 10,3212 73517 MASK NVBUSMSK # IS IT NVSUB ASLEEP
057336,001163: 10,3213 10000 CCS A
057337,001164: 10,3214 34753 CAF ONE
057338,001165: 10,3215 54001 TS L
057339,001166: 10,3216 34755 CAF ZERO
057340,001167: 10,3217 50001 INDEX L
057341,001168: 10,3220 57041 XCH CADRSTOR
057342,001169:
057343,001170: 10,3221 00004 INHINT
057344,001171: 10,3222 00002 TC Q
057345,001172:
057346,001173: 10,3223 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
057347,001174: 10,3224 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
057348,001175: 10,3225 00006 EXTEND
057349,001176: 10,3226 63232 BZMF RELINTQ # NO
057350,001177: 10,3227 56064 XCH LOCCTR # YES
057351,001178: 10,3230 50064 INDEX LOCCTR
057352,001179: 10,3231 54164 TS LOC
057353,001180:
057354,001181: 10,3232 00003 RELINTQ RELINT
057355,001182: 10,3233 00002 TC Q # BACK TO USER
057356,001183:
057357,001184: 10,3234 37723 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
057358,001185: 10,3235 05105 TC FINDVAC
057359,001186: 10,3236 0371 EBANK= NVSAVE
057360,001187: 10,3236 04231 04060 2CADR JAMTERM
057361,001188:
057362,001189: 10,3240 13262 TCF FLASHSUB +1
057363,001190:
057364,001191: 10,3241 30100 ISITPRIO CA FLAGWRD4
057365,001192: 10,3242 73267 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
057366,001193: 10,3243 00006 EXTEND
|
|
Page 1360 |
057368,001195: 10,3244 12576 BZF PRIOBORT
057369,001196: 10,3245 15155 TCF ENDOFJOB
057370,001197:
057371,001198: 10,3246 11041 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
057372,001199: 10,3247 15155 TCF ENDOFJOB # YES
057373,001200: 10,3250 13252 TCF RESTSLEP
057374,001201:
057375,001202: 10,3251 15155 TCF ENDOFJOB
057376,001203:
057377,001204: 10,3252 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
057378,001205: 10,3253 73520 MASK ASTROMSK
057379,001206: 10,3254 03545 TC UPENT2
057380,001207: 10,3255 24100 OCT24100 OCT 24100 # *** DONT MOVE
057381,001208:
057382,001209: 10,3256 50164 INDEX COPINDEX
057383,001210: 10,3257 33510 CAF NVCADR
057384,001211: 10,3260 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
057385,001212:
057386,001213: 10,3261 04427 FLASHSUB TC FLASHON
057387,001214:
057388,001215: 10,3262 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
057389,001216: 10,3263 54157 TS COPMPAC
057390,001217:
057391,001218: 10,3264 30162 CA GENMASK
057392,001219: 10,3265 73011 MASK IDLEMASK
057393,001220: 10,3266 03545 TC UPENT2
057394,001221: 10,3267 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
057395,001222:
057396,001223: 10,3270 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
057397,001224: 10,3271 50164 INDEX COPINDEX
057398,001225: 10,3272 74751 MASK BIT3
057399,001226: 10,3273 10000 CCS A
057400,001227: 10,3274 13361 TCF UNSETR1 # YES
057401,001228:
057402,001229: 10,3275 11041 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
057403,001230: 10,3276 13241 TCF ISITPRIO
057404,001231: 10,3277 13301 TCF +2
057405,001232: 10,3300 13241 TCF ISITPRIO
057406,001233:
057407,001234: 10,3301 04207 TC ENDIDLE
057408,001235: 10,3302 13373 IDLERET1 TCF TERMATE
057409,001236:
057410,001237: 10,3303 13412 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
057411,001238:
057412,001239: 10,3304 43527 CS LOWLOAD
057413,001240: 10,3305 60154 AD MPAC # VERBREG
057414,001241: 10,3306 00006 EXTEND
057415,001242: 10,3307 26000 DIM A
057416,001243: 10,3310 00006 EXTEND
057417,001244: 10,3311 13462 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
057418,001245:
|
|
Page 1361 |
057420,001247: 10,3312 34752 OKTOENT CAF TWO
057421,001248: 10,3313 54161 ENDOUT TS OUTHERE
057422,001249:
057423,001250: 10,3314 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
057424,001251: 10,3315 74101 MASK OCT60000
057425,001252: 10,3316 10000 CCS A
057426,001253: 10,3317 13322 TCF TIMECHEK # PRIO ENDIDLE RETURN
057427,001254: 10,3320 13430 TCF NORMRET # NORMAL ENDIDLE RETURN
057428,001255: 10,3321 13414 TCF MARKRET # MARK ENDIDLE RETURN
057429,001256:
057430,001257: 10,3322 40025 TIMECHEK CS TIME1
057431,001258: 10,3323 61164 AD PRIOTIME
057432,001259: 10,3324 10000 CCS A
057433,001260: 10,3325 40000 COM
057434,001261: 10,3326 67734 AD OCT37776
057435,001262: 10,3327 64753 AD ONE
057436,001263: 10,3330 63571 AD -2SEC
057437,001264: 10,3331 00006 EXTEND
057438,001265: 10,3332 62545 BZMF KEEPPRIO
057439,001266:
057440,001267: 10,3333 13430 TCF NORMRET
057441,001268:
057442,001269: 10,3334 34753 NORMWAKE CAF ONE
057443,001270: 10,3335 13025 TCF WAKEPLAY
057444,001271:
057445,001272: 10,3336 10161 ENDRET CCS OUTHERE
057446,001273: 10,3337 64753 AD ONE
057447,001274: 10,3340 13342 TCF +2 # NORMAL ENDIDLE EXIT
057448,001275: 10,3341 15155 TCF ENDOFJOB
057449,001276: 10,3342 50157 INDEX COPMPAC
057450,001277: 10,3343 60372 AD CADRFLSH
057451,001278: 10,3344 54157 TS MPAC +3
057452,001279:
057453,001280: 10,3345 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
057454,001281: 10,3346 73350 MASK PINIDMSK
057455,001282: 10,3347 03555 TC DOWNENT2
057456,001283: 10,3350 74044 PINIDMSK OCT 74044 # *** DONT MOVE
057457,001284:
057458,001285: 10,3351 46250 CS THREE # BLANK EVERYTHING EXCEPT MM
057459,001286: 10,3352 04154 TC NVSUB
057460,001287: 10,3353 13354 TCF +1
057461,001288:
057462,001289: 10,3354 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
057463,001290: 10,3355 77730 MASK PRIO37
057464,001291: 10,3356 05146 TC PRIOCHNG
057465,001292: 10,3357 30157 CA MPAC +3
057466,001293: 10,3360 14640 TCF BANKJUMP
057467,001294:
057468,001295: 10,3361 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
057469,001296: 10,3362 44751 CS BIT3
|
|
Page 1362 |
057471,001298: 10,3363 71073 MASK R1SAVE
057472,001299: 10,3364 55073 TS R1SAVE
057473,001300:
057474,001301: 10,3365 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
057475,001302: 10,3366 04727 TC SUPERSW # SUPERBANK 0
057476,001303:
057477,001304: 10,3367 36250 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
057478,001305: 10,3370 50164 IMMEDRET INDEX COPINDEX
057479,001306: 10,3371 60372 AD CADRFLSH
057480,001307: 10,3372 14640 TCF BANKJUMP
057481,001308:
057482,001309: 10,3373 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
057483,001310: 10,3374 13313 TCF ENDOUT
057484,001311:
057485,001312: 10,3375 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
057486,001313: 10,3376 74736 MASK BIT14
057487,001314: 10,3377 10000 CCS A
057488,001315: 10,3400 16742 TCF Q+1 # NO
057489,001316: 10,3401 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
057490,001317: 10,3402 50164 INDEX COPINDEX
057491,001318: 10,3403 60372 AD CADRFLSH
057492,001319: 10,3404 00006 EXTEND
057493,001320: 10,3405 13407 BZF +2 # YES
057494,001321:
057495,001322: 10,3406 00002 TC Q # NO
057496,001323: 10,3407 11011 CCS DSPLOCK # IS THE ASTRONAUT BUSY
057497,001324: 10,3410 05155 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
057498,001325: 10,3411 00002 TC Q
057499,001326:
057500,001327: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
057501,001328:
057502,001329: 10,3412 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
057503,001330: 10,3413 13313 TCF ENDOUT
057504,001331:
057505,001332: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
057506,001333: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
057507,001334: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
057508,001335:
057509,001336: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
057510,001337: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
057511,001338: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE (DURING A
057512,001339: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
057513,001340:
057514,001341: 10,3414 46245 MARKRET CS SIX
057515,001342: 10,3415 70100 MASK FLAGWRD4
057516,001343: 10,3416 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
057517,001344: 10,3417 54100 TS FLAGWRD4
057518,001345:
057519,001346: 10,3420 00003 RELINT # INHINT REALM
057520,001347: 10,3421 13336 TCF ENDRET
057521,001348:
|
|
Page 1363 |
057523,001350: 10,3422 37752 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
057524,001351: 10,3423 54161 TS OUTHERE
057525,001352:
057526,001353: 10,3424 30100 CA FLAGWRD4 # IS ENDIDFLG SET
057527,001354: 10,3425 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
057528,001355: 10,3426 10000 CCS A
057529,001356: 10,3427 13062 TCF NORMBNCH
057530,001357:
057531,001358: 10,3430 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
057532,001359: 10,3431 73525 MASK BITS5+11 # OR WAITING
057533,001360: 10,3432 10000 CCS A
057534,001361: 10,3433 13024 TCF MARKWAKE
057535,001362:
057536,001363: 10,3434 30100 CA FLAGWRD4 # NO
057537,001364: 10,3435 73526 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
057538,001365: 10,3436 10000 CCS A
057539,001366: 10,3437 13334 TCF NORMWAKE # YES
057540,001367:
057541,001368: 10,3440 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
057542,001369: 10,3441 74771 MASK OCT50 # OR A GODSPRET
057543,001370: 10,3442 10000 CCS A
057544,001371: 10,3443 13336 TCF ENDRET # YES
057545,001372: 10,3444 30371 CA NVSAVE
057546,001373: 10,3445 00006 EXTEND
057547,001374: 10,3446 13336 BZF ENDRET
057548,001375:
057549,001376: 10,3447 35025 CAF PRIO15
057550,001377: 10,3450 00004 INHINT
057551,001378: 10,3451 05072 TC NOVAC
057552,001379: 10,3452 0367 EBANK= NVWORD
057553,001380: 10,3452 02616 20060 2CADR PLAYJUM1
057554,001381:
057555,001382: 10,3454 13336 TCF ENDRET
057556,001383:
057557,001384: 10,3455 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
057558,001385: 10,3456 73525 MASK BITS5+11
057559,001386: 10,3457 10000 CCS A
057560,001387: 10,3460 15155 TCF ENDOFJOB # YES
057561,001388: 10,3461 12755 TCF GOSLEEPS
057562,001389:
057563,001390: 10,3462 50157 LOADITIS INDEX COPMPAC
057564,001391: 10,3463 30367 CA NVWORD
057565,001392: 10,3464 76077 MASK LOW7
057566,001393: 10,3465 40000 COM
057567,001394: 10,3466 60155 AD MPAC +1 # NOUNREG
057568,001395: 10,3467 00006 EXTEND
057569,001396: 10,3470 13312 BZF OKTOENT # NO, THEN LOAD IS VALID
057570,001397: 10,3471 13051 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
057571,001398:
|
|
Page 1364 |
057573,001400: 10,3472 46250 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
057574,001401: 10,3473 04154 TC NVSUB
057575,001402: 10,3474 15155 TCF ENDOFJOB
057576,001403: 10,3475 15155 TCF ENDOFJOB
057577,001404:
057578,001405: 10,3476 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3
057579,001406: 10,3477 00231 V01N25 VN 00125
057580,001407: 10,3500 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
057581,001408: 10,3501 14400 V50N00 VN 5000
057582,001409: 10,3502 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
057583,001410: 10,3503 01006 V04N06 VN 00406
057584,001411: 10,3504 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
057585,001412: 10,3505 10,3051 GOAGIN EQUALS PINBRNCH
057586,001413: 10,3505 20010 REDOMASK OCT 20010 # BITS 4 AND 14
057587,001414: 10,3506 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH
057588,001415: 10,3507 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3
057589,001416: 10,3510 20543 NVCADR CADR REDOPRIO
057590,001417: 10,3511 20400 WAKECADR CADR MARKPLAY
057591,001418: 10,3512 20616 CADR PLAYJUM1
057592,001419:
057593,001420: 10,3513 03400 OCT3400 OCT 3400 # EBANK MASK
057594,001421: 10,3514 11210 NBUSMASK OCT 11210
057595,001422: 10,3515 66521 PMMASK OCT 66521
057596,001423: 10,3516 4144 VERBMASK = MID7 # (OCT 37600)
057597,001424: 10,3516 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
057598,001425: 10,3517 10,2330 GOXDSP EQUALS GOMARK
057599,001426: 10,3517 10,2350 GOXDSPR EQUALS GOMARKR
057600,001427: 10,3517 10,2334 GOXDSPF EQUALS GOMARKF
057601,001428: 10,3517 10,2353 GOXDSPFR EQUALS GOMARKFR
057602,001429: 10,3517 5472 ENDEXT EQUALS ENDMARK
057603,001430: 10,3517 0165 MPAC2SAV EQUALS BANKSET
057604,001431: 10,3517 00700 NVBUSMSK OCT 700
057605,001432: 10,3520 00704 ASTROMSK OCT 704
057606,001433: 10,3521 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
057607,001434: 10,3522 34300 OCT34300 OCT 34300
057608,001435: 10,3523 40100 BITS15+7 OCT 40100
057609,001436: 10,3524 00110 BITS7+4 OCT 110
057610,001437: 10,3525 1067 DSPFLG EQUALS EBANKSAV
057611,001438: 10,3525 1070 MARKFLAG EQUALS MARKEBAN
057612,001439: 10,3525 1071 SAVEFLAG EQUALS EBANKTEM
057613,001440: 10,3525 02020 BITS5+11 OCT 2020 # * DONT MOVE
057614,001441: 10,3526 01010 BITS4+10 OCT 1010 # * DONT MOVE
057615,001442: 10,3527 00026 LOWLOAD DEC 22 B-14
057616,001443: 10,3530 77730 BUSYMASK OCT 77730
057617,001444: 10,3531 00050 CADRMASK OCT 50
057618,001445: 10,3532 7743 PINMASK EQUALS 13,14,15
057619,001446: 10,3532 10,3071 GOPLAY EQUALS NVDSP
057620,001447: # PRIOSAVE EQUALS R1SAVE
057621,001448: 10,3532 0157 COPMPAC EQUALS MPAC +3
057622,001449: 10,3532 0160 TEMPOR2 EQUALS MPAC +4
057623,001450:
|
|
Page 1365 |
057625,001452: 10,3532 0161 OUTHERE EQUALS MPAC +5
057626,001453: 10,3532 0164 COPINDEX EQUALS LOC
057627,001454: 10,3532 0163 USERPRIO EQUALS MODE
057628,001455: 10,3532 0162 GENMASK EQUALS MPAC +6
057629,001456: 10,3532 20144 PRIOOCT OCT 20144 # PRIO
057630,001457: 10,3533 42424 MARKOCT OCT 42424 # MARK
057631,001458: 10,3534 11254 OCT 11254 # NORM
057632,001459:
057633,001460: 10,3535 74704 IDLESLEP OCT 74704
057634,001461: 10,3536 67777 OCT67777 OCT 67777
057635,001462: 10,3537 5464 LINUS EQUALS BLANKET
057636,001463: 10,3537 0154 FACEREG EQUALS MPAC
057637,001464: 10,3537 0155 PLAYTEM1 EQUALS MPAC +1
057638,001465: 10,3537 0157 PLAYTEM3 EQUALS MPAC +3
057639,001466: 10,3537 0160 PLAYTEM4 EQUALS MPAC +4
057640,001467: 10,3537 40420 OCT40420 OCT 40420
057641,001468: 10,3540 02547 MAKEGEN GENADR MAKEPLAY
057642,001469: 10,3541 10200 OCT10200 OCT 10200
057643,001470: 10,3542 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
057644,001471: 10,3543 20100 OCT20100 OCT 20100
057645,001472: 10,3544 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE, REFLASH
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc