Source Code
|
These source-code files are part of a reconstructed copy of Skylark 048, the
Block II Command Module (CM) Apollo Guidance Computer (AGC) software for the
Skylab-2, Skylab-3, Skylab-4, and Apollo-Soyuz Test Project missions.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on Skylab-2, part numbers 2010802-541, 2010802-551,
2010802-561, 2010802-571, 2010802-581, and 2010802-591. Access to these modules
was provided by the New Mexico Museum of Space History, who we are much indebted to.
The source code for the Apollo 15, 16, and 17 software, Artemis 072, was used as
a starting point. Heavy use was made of TRW 4900.5-244, Programmed Guidance Equations
for Skylark Command Module Earth Orbital Program, dated 14 February 1972. This document
contains pseudocode of essentially all of Skylark, using original program labels which
have been copied for this source reconstruction.
Since only binary dumps (rather than listings) of Skylark are available as source material,
all comments and labels are approximate.
They have been taken from the Programmed Guidance Equations or other AGC programs where
possible, or, in some places, written from scratch to match what we believe would have
been in the original listing.
|
058047,000002: ## Copyright: Public domain.
058048,000003: ## Filename: DISPLAY_INTERFACE_ROUTINES.agc
058049,000004: ## Purpose: A section of Skylark revision 048.
058050,000005: ## It is part of the source code for the Apollo Guidance Computer (AGC)
058051,000006: ## for Skylab-2, Skylab-3, Skylab-4, and ASTP. No original listings of
058052,000007: ## this software are available; instead, this file was created via
058053,000008: ## disassembly of dumps of the core rope modules actually flown on
058054,000009: ## Skylab-2. Access to these modules was provided by the New Mexico
058055,000010: ## Museum of Space History.
058056,000011: ## Assembler: yaYUL
058057,000012: ## Contact: Ron Burkey <info@sandroid.org>.
058058,000013: ## Website: www.ibiblio.org/apollo/index.html
058059,000014: ## Mod history: 2023-09-04 MAS Created from Artemis 072.
058060,000015:
058061,000016:
058062,000017: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
058063,000018:
058064,000019: # 1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
058065,000020: # OUT UNDER CRITICAL ALARM CONDITIONS.
058066,000021: # 2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
058067,000022: # 3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
058068,000023: # SEQUENCE OF EVENTS.
058069,000024: # 4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
058070,000025: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
058071,000026: # 5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
058072,000027:
058073,000028: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
058074,000029:
058075,000030: # 1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
058076,000031: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
058077,000032: # BUT NOT WAITING FOR A RESPONSE.
058078,000033: # 2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
058079,000034: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
058080,000035: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
058081,000036: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
058082,000037: # HAS INFO SAVED FOR RESTART PURPOSES.
058083,000038:
058084,000039: # DISPLAY PRIORITIES WORK AS FOLLOWS -
058085,000040:
058086,000041: # INTERRUPTS -
058087,000042: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
058088,000043: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
058089,000044: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
058090,000045: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
058091,000046: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
058092,000047: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
058093,000048:
058094,000049: # ORDER OF WAITING DISPLAYS -
058095,000050: # 1. ASTRONAUT EXTERNAL USE
058096,000051: # 2. PRIORITY
058097,000052: # 3. INTERRUPTED MARK
058098,000053: # 4. INTERRUPTED NORMAL
058099,000054:
058100,000055: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
058101,000056: # 6. MARK WAITING
058102,000057: # 7. NORMAL WAITING
058103,000058:
058104,000059: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
058105,000060: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
058106,000061: # WILL FOLLOW LATER):
058107,000062:
058108,000063: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
058109,000064: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
058110,000065: # IS TO THE USERS CALLING LOC +1.
058111,000066: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
058112,000067: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
058113,000068: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
058114,000069: # USERS JOB.
058115,000070: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
058116,000071: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
058117,000072: # DESCRIPTION OF RESTARTS).
058118,000073: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
058119,000074: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
058120,000075: # (V32) BRANCHES TO THE USERS CALL CADR +3.
058121,000076: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
058122,000077:
058123,000078: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
058124,000079:
058125,000080: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
058126,000081:
058127,000082: # CAF VXXNYY
058128,000083: # TC BANKCALL
058129,000084: # CADR GODSPR
058130,000085: # ... ... IMMEDIATE RETURN OF GODSPR
058131,000086:
058132,000087: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058133,000088: # THE ASTRONAUT (SEE NO. 7 ABOVE).
058134,000089:
058135,000090: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
058136,000091: # TC BANKCALL
058137,000092: # CADR GOFLASH
058138,000093: # ... ... TERMINATE RETURN
058139,000094: # ... ... PROCEED RETURN
058140,000095: # ... ... ENTER OR RECYCLE RETURN
058141,000096:
058142,000097: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
058143,000098: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
058144,000099: # USER (SEE NO. 7 ABOVE).
058145,000100: # GOPERF1 BLANKS REGISTERS R2 AND R3
058146,000101:
058147,000102: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
058148,000103: # TC BANKCALL
058149,000104: # CADR GOPERF1
058150,000105: # ... ... TERMINATE RETURN
058151,000106: # ... ... PROCEED RETURN
058152,000107: # ... ... ENTER RETURN
058153,000108:
058154,000109: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
058155,000110: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
058156,000111: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
058157,000112: # GOPERF3 BLANKS REGISTERS R2 AND R3
058158,000113:
058159,000114: # CAF DECXX REQUEST PERFORM ON PXX
058160,000115: # TC BANKCALL
058161,000116: # CADR GOPERF3
058162,000117: # ... ... TERMINATE RETURN
058163,000118: # ... ... PROCEED RETURN
058164,000119: # ... ... ENTER RETURN
058165,000120:
058166,000121: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
058167,000122: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
058168,000123: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058169,000124:
058170,000125: # CAF OCTXX REQUEST PERFORM ON OPTION XX
058171,000126: # TC BANKCALL
058172,000127: # CADR GOPERF4
058173,000128: # ... ... TERMINATE RETURN
058174,000129: # ... ... PROCEED RETURN
058175,000130: # ... ... ENTER RETURN
058176,000131:
058177,000132: # GOPERF4 BLANKS REGISTER R3
058178,000133:
058179,000134: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
058180,000135: # OUT.
058181,000136:
058182,000137: # CAF VXXNYY
058183,000138: # TC BANKCALL
058184,000139: # CADR GODSPRET
058185,000140: # ... ... RETURN TO USER
058186,000141:
058187,000142: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
058188,000143: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058189,000144:
058190,000145: # CAF VXXNYY
058191,000146: # TC BANKCALL
058192,000147: # CADR REGODSP
058193,000148:
058194,000149: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058195,000150:
058196,000151: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
058197,000152: # TC BANKCALL
058198,000153: # CADR REFLASH
058199,000154: # ... ... TERMINATE RETURN
058200,000155: # ... ... PROCEED RETURN
058201,000156: # ... ... ENTER RETURN
058202,000157:
058203,000158: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058204,000159:
058205,000160: # CAF VXXNYY
058206,000161: # TC BANKCALL
058207,000162: # CADR GOFLASHR
058208,000163: # ... ... TERMINATE RETURN
058209,000164: # ... ... PROCEED RETURN
058210,000165: # ... ... ENTER OR RECYCLE RETURN
058211,000166:
058212,000167: # ... ... IMMEDIATE RETURN FROM GOFLASHR
058213,000168:
058214,000169: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
058215,000170: # GOPERF1R BLANKS REGISTERS R2 AND R3
058216,000171:
058217,000172: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
058218,000173: # TC BANKCALL
058219,000174: # CADR GOPERF1R
058220,000175: # ... ... TERMINATE RETURN
058221,000176: # ... ... PROCEED RETURN
058222,000177: # ... ... ENTER RETURN
058223,000178:
058224,000179: # ... ... IMMEDIATE RETURN FROM GOPERF1R
058225,000180:
058226,000181: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058227,000182: # GOPERF3R BLANKS REGISTERS R2 AND R3
058228,000183:
058229,000184: # CAF PROGXX PERFORM PROGRAM XX
058230,000185: # TC BANKCALL
058231,000186: # CADR GOPERF3R
058232,000187: # ... ... TERMINATE RETURN
058233,000188: # ... ... PROCEED RETURN
058234,000189: # ... ... ENTER RETURN
058235,000190:
058236,000191: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
058237,000192:
058238,000193: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058239,000194:
058240,000195: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
058241,000196: # TC BANKCALL
058242,000197: # CADR GOPERF4R
058243,000198: # ... ... TERMINATE RETURN
058244,000199: # ... ... PROCEED RETURN
058245,000200: # ... ... ENTER RETURN
058246,000201:
058247,000202: # ... ... IMMEDIATE RETURN TO USER
058248,000203:
058249,000204: # GOPERF4R BLANKS REGISTER R3
058250,000205:
058251,000206: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058252,000207:
058253,000208: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
058254,000209: # TC BANKCALL
058255,000210: # CADR REFLASHR
058256,000211: # ... ... TERMINATE RETURN
058257,000212: # ... ... PROCEED RETURN
058258,000213: # ... ... ENTER RETURN
058259,000214:
058260,000215: # ... ... IMMEDIATE RETURN TO USER
058261,000216:
058262,000217: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
058263,000218:
058264,000219: # CAF VXXNYY
058265,000220: # TC BANKCALL
058266,000221: # CADR REGODSPR
058267,000222:
058268,000223: # ... ... IMMEDIATE RETURN TO USER
058269,000224:
058270,000225: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
058271,000226:
058272,000227: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
058273,000228:
058274,000229: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058275,000230: # THE ASTRONAUT (SEE NO. 7 ABOVE).
058276,000231: # GOXDSPF = GOMARKF
058277,000232:
058278,000233: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
058279,000234: # TC BANKCALL
058280,000235: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
058281,000236: # ... ... TERMINATE RETURN
058282,000237: # ... ... PROCEED RETURN
058283,000238: # ... ... ENTER OR RECYCLE RETURN
058284,000239:
058285,000240: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058286,000241:
058287,000242: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058288,000243: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058289,000244: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058290,000245: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058291,000246:
058292,000247: # CAF V5XNYY X=1,2,3,4 Y=NOUN
058293,000248: # TC BANKCALL
058294,000249: # CADR GOMARK1
058295,000250:
058296,000251: # ... ... ENTER RETURN
058297,000252:
058298,000253: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058299,000254:
058300,000255: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058301,000256:
058302,000257: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058303,000258: # TC BANKCALL
058304,000259: # CADR GOMARK1R
058305,000260:
058306,000261: # ... ... ASTRONAUT ENTER RETURN
058307,000262: # ... ... IMMEDIATE RETURN TO USER
058308,000263:
058309,000264: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058310,000265:
058311,000266: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058312,000267: # TC BANKCALL
058313,000268: # CADR GOMARK2
058314,000269: # ... ... TERMINATE RETURN
058315,000270: # ... ... PROCEED RETURN
058316,000271: # ... ... ENTER RETURN
058317,000272:
058318,000273: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058319,000274:
058320,000275: # CAF V5XNYY X=1,2,3,4 YY=NOUN
058321,000276: # TC BANKCALL
058322,000277: # CADR GOMARK4
058323,000278: # ... ... TERMINATE RETURN
058324,000279: # ... ... PROCEED RETURN
058325,000280: # ... ... ENTER RETURN
058326,000281:
058327,000282: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058328,000283: # SENT OUT.
058329,000284:
058330,000285: # CAF VXXNYY
058331,000286: # TC BANKCALL
058332,000287: # CADR EXDSPRET
058333,000288:
058334,000289: # ... ... RETURN TO USER
058335,000290:
058336,000291: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058337,000292: # HAVE BEEN CLEANED OUT.
058338,000293:
058339,000294: # TC BANKCALL
058340,000295: # CADR KLEENEX
058341,000296:
058342,000297: # ... ... RETURN TO USER
058343,000298:
058344,000299: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058345,000300:
058346,000301: # TC BANKCALL
058347,000302: # CADR MARKBRAN
058348,000303:
058349,000304: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
058350,000305:
058351,000306: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058352,000307: # LAST FLASHING MARK R ROUTINE)
058353,000308:
058354,000309: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058355,000310: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058356,000311:
058357,000312: # TC POSTJUMP
058358,000313: # CADR PINBRNCH
058359,000314:
058360,000315: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058361,000316: # THE ASTRONAUT (SEE NO. 7 ABOVE).
058362,000317:
058363,000318: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058364,000319: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058365,000320: # IS RESPONDED TO BY THE ASTRONAUT.
058366,000321:
058367,000322: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058368,000323: # PRIO DISPLAY.
058369,000324:
058370,000325: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058371,000326: # TC BANKCALL
058372,000327: # CADR PRIODSP
058373,000328: # ... ... TERMINATE RETURN
058374,000329: # ... ... PROCEED RETURN
058375,000330: # ... ... ENTER OR RECYCLE RETURN
058376,000331:
058377,000332: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058378,000333:
058379,000334: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
058380,000335: # TC BANKCALL
058381,000336: # CADR PRIODSPR
058382,000337: # ... ... TERMINATE RETURN
058383,000338: # ... ... PROCEED RETURN
058384,000339: # ... ... ENTER OR RECYCLE RETURN
058385,000340:
058386,000341: # ... ... IMMEDIATE RETURN
058387,000342:
058388,000343: # PRIOLARM DOES A V05N09 PRIODSPR.
058389,000344:
058390,000345: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
058391,000346: # DISPLAYS ARE CLEANED OUT.
058392,000347:
058393,000348: # TC BANKCALL
058394,000349: # CADR CLEANDSP
058395,000350:
058396,000351: # ... ... RETURN TO USER
058397,000352:
058398,000353:
058399,000354: # GENERAL INFORMATION
058400,000355: # ------- -----------
058401,000356:
058402,000357: # ALARM OR ABORT EXIT MODES--
058403,000358:
058404,000359: # PRIOBORT TC ABORT
058405,000360: # OCT 1502
058406,000361:
058407,000362: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058408,000363: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058409,000364: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058410,000365:
058411,000366: # ERASABLE INITIALIZATION REQUIRED--
058412,000367:
058413,000368: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058414,000369: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
058415,000370: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
058416,000371:
058417,000372: # 5. R1SAVE = MARKBRAN CONTROL WORD
058418,000373: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
058419,000374:
058420,000375: # OUTPUT--
058421,000376:
058422,000377: # NVWORD = PRIO VERB AND NOUN
058423,000378: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
058424,000379: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
058425,000380:
058426,000381: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058427,000382: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058428,000383: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058429,000384:
058430,000385: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058431,000386: # CADRFLSH +1 (MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058432,000387: # CADRFLSH +2 (TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058433,000388:
058434,000389: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058435,000390: # OPTION1 = DESIRED OPTION FROM GOPERF4
058436,000391: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058437,000392: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
058438,000393:
058439,000394: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058440,000395: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058441,000396:
058442,000397: # DEBRIS-- (STORED INTO)
058443,000398: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058444,000399: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
058445,000400: # ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058446,000401: # ERASABLES (USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
058447,000402: # R1SAVE, MARK2PAC,
058448,000403:
058449,000404: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
058450,000405:
058451,000406: # FLAGWORD DESCRIPTIONS--
058452,000407: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
058453,000408:
058454,000409: # DSPFLG, DSPFLG+1, DSPFLG +2-
058455,000410: # ----------------------------
058456,000411: # BITS 1 BLANK R1
058457,000412: # 2 BLANK R2
058458,000413: # 3 BLANK R3
058459,000414: # 4 FLASHING DISPLAY REQUESTED
058460,000415: # 5 PERFORM DISPLAY REQUESTED
058461,000416: # 6 ----- EXDSPRET GODSPRET
058462,000417: # 7 PRIO DISPLAY ----- -----
058463,000418: # 8 ----- MARK MONITOR PERF -----
058464,000419: # 9 EBANK
058465,000420: # 10 EBANK
058466,000421: # 11 EBANK
058467,000422: # 12 ----- ----- V99PASTE
058468,000423: # 13 2ND PART OF PERFORM
058469,000424: # 14 REFLASH OR REDO ----- REFLASH OR REDO
058470,000425: # 15 ----- MARK REQUEST -----
058471,000426:
058472,000427: # RESTARTING DISPLAYS--
058473,000428:
058474,000429: # RULES FOR THE DSKY OPERATOR--
058475,000430:
058476,000431: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
058477,000432: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
058478,000433: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
058479,000434: # WITH PROCEED AND TERMINATE FOR THIS REASON.
058480,000435: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
058481,000436: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
058482,000437: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
058483,000438: # IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
058484,000439: # OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
058485,000440: # CONSIDERATION.
058486,000441: # 3. KEY RELEASE BUTTON-
058487,000442: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
058488,000443: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
058489,000444: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
058490,000445: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
058491,000446: # KEY RELEASE BUTTON MAY BE NECESSARY.
058492,000447: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
058493,000448: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
058494,000449: # OVER AGAIN.
058495,000450:
058496,000451: # SPECIAL CONSIDERATIONS--
058497,000452: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
058498,000453: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
058499,000454: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
058500,000455: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
058501,000456: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
058502,000457: # BY A .1 RESTART PHASE CHANGE.
058503,000458: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
058504,000459: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
058505,000460: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL
058506,000461:
058507,000462: # CALLING SEQUENCE FOR BLANKING
058508,000463: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
058509,000464: # TC BLANKET
058510,000465: # ... ... RETURN TO USER HERE
058511,000466:
058512,000467: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
058513,000468: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
058514,000469:
058515,000470: 4000 SETLOC FFTAG4
058516,000471: 4000 BANK
058517,000472:
058518,000473: 5531 COUNT* $$/DSPLA
058519,000474: 5531 54162 BLANKET TS MPAC +6
058520,000475: 5532 40160 CS PLAYTEM4
058521,000476: 5533 70162 MASK MPAC +6
058522,000477: 5534 50161 INDEX MPAC +5
058523,000478: 5535 26160 ADS PLAYTEM4
058524,000479:
058525,000480: 5536 00002 TC Q
058526,000481:
058527,000482: 5537 05542 ENDMARK TC CLEARMRK
058528,000483: 5540 04666 TC POSTJUMP
058529,000484: 5541 21523 CADR MARKOVER
058530,000485:
058531,000486: 5542 35003 CLEARMRK CAF ZERO
058532,000487: 5543 55237 TS EXTVBACT
058533,000488:
058534,000489: 5544 45001 CS XDSPBIT
058535,000490: 5545 70100 MASK FLAGWRD4
058536,000491: 5546 54100 TS FLAGWRD4
058537,000492:
058538,000493: 5547 00002 TC Q
058539,000494:
058540,000495: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
058541,000496: # FINISHED.
058542,000497:
058543,000498: 5550 56001 VNFLASH XCH L
058544,000499: 5551 35560 CAF VNCADR
058545,000500: 5552 15555 TCF VNGODSP
058546,000501:
058547,000502: 5553 56001 VNFLASHR XCH L
058548,000503: 5554 35561 CAF VNRCADR
058549,000504: 5555 24002 VNGODSP INCR Q # BECAUSE OF RESTARTS
058550,000505: 5556 22155 LXCH PLAYTEM1
058551,000506: 5557 14653 TCF SWCALL
058552,000507:
058553,000508: 5560 20612 VNCADR CADR VNFLSH
058554,000509: 5561 20615 VNRCADR CADR VNFLSHR
058555,000510:
058556,000511: 10,2000 SETLOC DISPLAYS
058557,000512: 10,2000 BANK
058558,000513:
058559,000514: 10,2455 COUNT 10/DSPLA
058560,000515:
058561,000516: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
058562,000517: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
058563,000518:
058564,000519: 10,2455 35003 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
058565,000520: 10,2456 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
058566,000521:
058567,000522: 10,2457 37664 CAF MARKFMSK # MARK,FLASH
058568,000523: 10,2460 12625 TCF GOFLASH2
058569,000524:
058570,000525: 10,2461 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
058571,000526: 10,2462 33613 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
058572,000527: 10,2463 12625 TCF GOFLASH2
058573,000528:
058574,000529: 10,2464 54155 GOMARK4 TS PLAYTEM1
058575,000530: 10,2465 33603 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
058576,000531: 10,2466 12625 TCF GOFLASH2
058577,000532:
058578,000533: 10,2467 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
058579,000534:
058580,000535: 10,2470 37664 CAF MARKFMSK
058581,000536: 10,2471 12763 TCF GODSPRS
058582,000537:
058583,000538: 10,2472 54155 MARKMONR TS PLAYTEM1 # USED FOR MARK MONITOR
058584,000539: 10,2473 33634 CAF MARK3MSK
058585,000540: 10,2474 12625 TCF GOFLASH2
058586,000541: 10,2475 35001 MAKEMARK CAF ONE
058587,000542: 10,2476 03052 TC COPIES
058588,000543:
058589,000544: 10,2477 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
058590,000545: 10,2500 73614 MASK OCT34300
058591,000546: 10,2501 10000 CCS A
058592,000547: 10,2502 12550 TCF CHKPRIO
058593,000548:
058594,000549: 10,2503 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
058595,000550: 10,2504 74771 MASK MRKNVBIT
058596,000551: 10,2505 00006 EXTEND
058597,000552: 10,2506 12510 BZF MARKPLAY # NO
058598,000553:
058599,000554: 10,2507 15220 TCF ENDOFJOB
058600,000555:
058601,000556: 10,2510 45004 MARKPLAY CS FIVE # RESET MARK OVER NORM, SET MARK
058602,000557: 10,2511 70100 MASK FLAGWRD4
058603,000558: 10,2512 65001 AD XDSPBIT
058604,000559: 10,2513 54100 TS FLAGWRD4
058605,000560: 10,2514 22007 GOGOMARK ZL # PERFORM
058606,000561: 10,2515 41264 CS MARKFLAG
058607,000562: 10,2516 74772 MASK DCMKPERF
058608,000563: 10,2517 10000 CCS A
058609,000564: 10,2520 12525 TCF +5
058610,000565: 10,2521 30366 CA MARKNV
058611,000566: 10,2522 74171 MASK MID7
058612,000567: 10,2523 54001 TS L
058613,000568: 10,2524 12531 TCF +5
058614,000569: 10,2525 41264 CS MARKFLAG
058615,000570: 10,2526 74775 MASK PERFRQST
058616,000571: 10,2527 10000 CCS A
058617,000572: 10,2530 12533 TCF MARKCOP
058618,000573: 10,2531 40366 CS MARKNV
058619,000574: 10,2532 54366 TS MARKNV
058620,000575:
058621,000576: 10,2533 35001 MARKCOP CAF ONE # MARK INDEX
058622,000577: 10,2534 54164 TS COPINDEX
058623,000578: 10,2535 13176 TCF NVDSP +1
058624,000579: 10,2536 30165 COPYTOGO CA MPAC2SAV
058625,000580: 10,2537 54156 TS MPAC +2
058626,000581:
058627,000582: 10,2540 50164 COPYPACS INDEX COPINDEX
058628,000583: 10,2541 33620 CAF PRIOOCT
058629,000584: 10,2542 54162 TS GENMASK
058630,000585:
058631,000586: 10,2543 50164 INDEX COPINDEX
058632,000587: 10,2544 31263 CAF EBANKSAV
058633,000588: 10,2545 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
058634,000589:
058635,000590: 10,2546 54003 TS EBANK
058636,000591:
058637,000592: 10,2547 00002 TC Q
058638,000593:
058639,000594: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
058640,000595: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
058641,000596: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
058642,000597: # UNTIL ALL MARKING IS FINISHED.
058643,000598:
058644,000599: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
058645,000600: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
058646,000601:
058647,000602: 10,2550 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
058648,000603: 10,2551 77646 MASK 14,12,7
058649,000604: 10,2552 10000 CCS A
058650,000605: 10,2553 13556 TCF MARSLEEP
058651,000606:
058652,000607: 10,2554 34777 CAF MKOVBIT # SET MARK OVER NORM
058653,000608: 10,2555 03635 TC UPENT2
058654,000609:
058655,000610: 10,2556 12660 TCF SETNORM
058656,000611:
058657,000612: 10,2557 30366 MARKPERF CA MARKNV
058658,000613: 10,2560 74171 MASK VERBMASK
058659,000614: 10,2561 13230 TCF NV50DSP
058660,000615:
058661,000616: 10,2562 54155 GODSP TS PLAYTEM1
058662,000617:
058663,000618: 10,2563 35003 GODSP2 CAF DSPONLY
058664,000619: 10,2564 12625 TCF GOFLASH2
058665,000620:
058666,000621: 10,2565 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
058667,000622:
058668,000623: 10,2566 34774 CAF RETDSPY # SET BIT6 TO RETURN TO USER AFTER NVSUB
058669,000624: 10,2567 12625 TCF GOFLASH2
058670,000625:
058671,000626: 10,2570 54155 GODSPR TS PLAYTEM1
058672,000627:
058673,000628: 10,2571 35003 GODSPR1 CAF DSPONLY
058674,000629: 10,2572 54160 GODSPR2 TS PLAYTEM4
058675,000630:
058676,000631: 10,2573 35003 CAF ZERO # * DONT MOVE
058677,000632: 10,2574 12765 TCF GODSPRS1
058678,000633:
058679,000634: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
058680,000635: # SET UP TO BE STARTED OR RESTARTED.
058681,000636:
058682,000637: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
058683,000638: # OLD DISPLAY.
058684,000639:
058685,000640: # CALLING SEQUENCE FOR CLEANDSP-
058686,000641:
058687,000642: # TC BANKCALL
058688,000643: # CADR CLEANDSP
058689,000644:
058690,000645: 10,2575 35003 CLEANDSP CAF ZERO
058691,000646: 10,2576 54155 REFLASH TS PLAYTEM1
058692,000647:
058693,000648: 10,2577 33602 CAF REDOMASK # FLASH AND PERMIT
058694,000649: 10,2600 12625 TCF GOFLASH2
058695,000650:
058696,000651: 10,2601 54155 REGODSP TS PLAYTEM1
058697,000652:
058698,000653: 10,2602 34764 CAF REFLSH
058699,000654: 10,2603 12625 TCF GOFLASH2
058700,000655:
058701,000656: 10,2604 54155 REGODSPR TS PLAYTEM1
058702,000657:
058703,000658: 10,2605 34764 CAF REFLSH
058704,000659: 10,2606 12572 TCF GODSPR2
058705,000660:
058706,000661: 10,2607 54155 CLOCPLAY TS PLAYTEM1
058707,000662: 10,2610 33630 CAF CLOCKCON
058708,000663: 10,2611 12625 TCF GOFLASH2
058709,000664: 10,2612 07710 VNFLSH TC UPFLAG
058710,000665: 10,2613 00111 ADRES VNFLAG
058711,000666: 10,2614 12624 TCF GOFLASH +1
058712,000667:
058713,000668: 10,2615 07710 VNFLSHR TC UPFLAG
058714,000669: 10,2616 00111 ADRES VNFLAG
058715,000670: 10,2617 34776 CAF FLSHRQST
058716,000671: 10,2620 54160 TS PLAYTEM4 # IT'S A FLASHING DISPLAY
058717,000672: 10,2621 35003 CAF ZERO # RETURN TO CALLER'S Q +1
058718,000673: 10,2622 12765 TCF GODSPRS1
058719,000674:
058720,000675: 10,2623 54155 GOFLASH TS PLAYTEM1
058721,000676:
058722,000677: 10,2624 34776 +1 CAF FLSHRQST # LEAVE ONLY FLASH BIT SET
058723,000678: 10,2625 54160 GOFLASH2 TS PLAYTEM4
058724,000679:
058725,000680: 10,2626 03037 TC SAVELOCS
058726,000681:
058727,000682: 10,2627 12672 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
058728,000683:
058729,000684: 10,2630 54155 PRIODSPR TS PLAYTEM1
058730,000685:
058731,000686: 10,2631 35025 CAF BITS7+4
058732,000687: 10,2632 12763 TCF GODSPRS
058733,000688:
058734,000689: 10,2633 54155 PRIODSP TS PLAYTEM1
058735,000690:
058736,000691: 10,2634 35025 SETPRIO CAF BITS7+4
058737,000692: 10,2635 12625 TCF GOFLASH2
058738,000693:
058739,000694: 10,2636 35003 MAKEPRIO CAF ZERO
058740,000695: 10,2637 54164 TS COPINDEX
058741,000696:
058742,000697: 10,2640 03503 TC LINUSCHR
058743,000698: 10,2641 12646 TCF HIPRIO # LINUS RETURN
058744,000699: 10,2642 30100 CA FLAGWRD4
058745,000700: 10,2643 73627 MASK BIT14+7 # IS PRIO IN ENDIDLE OR BUSY
058746,000701: 10,2644 10000 CCS A
058747,000702: 10,2645 12721 TCF PRIOBORT # YES, ABORT
058748,000703:
058749,000704: 10,2646 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
058750,000705: 10,2647 77760 MASK BIT15+9
058751,000706: 10,2650 00006 EXTEND
058752,000707: 10,2651 12654 BZF ASKIFNRM # NO
058753,000708:
058754,000709: 10,2652 35003 SETMARK CAF ZERO
058755,000710: 10,2653 13106 TCF JOBXCHS
058756,000711:
058757,000712: 10,2654 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
058758,000713: 10,2655 73625 MASK BIT13+8
058759,000714: 10,2656 00006 EXTEND
058760,000715: 10,2657 12662 BZF OKTOCOPY # NO
058761,000716:
058762,000717: 10,2660 35001 SETNORM CAF ONE
058763,000718: 10,2661 13106 TCF JOBXCHS
058764,000719:
058765,000720: 10,2662 03051 OKTOCOPY TC COPYNORM
058766,000721: 10,2663 03311 TC WITCHONE
058767,000722:
058768,000723: 10,2664 05202 TC JOBWAKE
058769,000724:
058770,000725: 10,2665 03325 TC XCHTOEND
058771,000726:
058772,000727: 10,2666 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
058773,000728: 10,2667 55000 TS PRIOTIME
058774,000729:
058775,000730: 10,2670 35003 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
058776,000731: 10,2671 12742 TCF PRIOPLAY
058777,000732:
058778,000733: 10,2672 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
058779,000734: 10,2673 77660 MASK PRIO37
058780,000735: 10,2674 54163 TS USERPRIO
058781,000736:
058782,000737: 10,2675 37655 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
058783,000738: 10,2676 05211 TC PRIOCHNG
058784,000739:
058785,000740: 10,2677 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
058786,000741: 10,2700 73615 MASK BITS15+7
058787,000742: 10,2701 10000 CCS A
058788,000743: 10,2702 12636 TCF MAKEPRIO # ITS PRIO
058789,000744: 10,2703 12705 TCF IFLEGAL
058790,000745: 10,2704 12475 TCF MAKEMARK # ITS MARK
058791,000746:
058792,000747: 10,2705 35000 IFLEGAL CAF TWO
058793,000748: 10,2706 54164 TS COPINDEX
058794,000749:
058795,000750: 10,2707 03503 TC LINUSCHR
058796,000751:
058797,000752: 10,2710 12723 TCF OKTOPLAY # LINUS RETURN
058798,000753: 10,2711 41265 CS EBANKTEM
058799,000754: 10,2712 74776 MASK FLSHRQST
058800,000755: 10,2713 10000 CCS A
058801,000756: 10,2714 12723 TCF OKTOPLAY # NO
058802,000757:
058803,000758: 10,2715 30100 CA FLAGWRD4 # WAS NORM ASLEEP
058804,000759: 10,2716 73607 MASK NBUSMASK # ARE ANY NORMS ASLEEP
058805,000760: 10,2717 00006 EXTEND
058806,000761: 10,2720 12723 BZF OKTOPLAY # NO
058807,000762:
058808,000763: 10,2721 05701 PRIOBORT TC POODOO
058809,000764: 10,2722 21502 OCT 21502 # ILLEGAL FLASHING DISPLAY
058810,000765:
058811,000766: 10,2723 03053 OKTOPLAY TC COPIES2
058812,000767: 10,2724 30163 CA USERPRIO
058813,000768: 10,2725 00006 EXTEND
058814,000769: 10,2726 04007 ROR SUPERBNK
058815,000770: 10,2727 54364 TS RESTREG
058816,000771:
058817,000772: 10,2730 30100 CA FLAGWRD4 # PRIO OR MARK GOING
058818,000773: 10,2731 73610 MASK PMMASK
058819,000774: 10,2732 10000 CCS A
058820,000775: 10,2733 13070 TCF GOSLEEPS # YES
058821,000776:
058822,000777: 10,2734 12736 TCF +2
058823,000778: 10,2735 13070 TCF GOSLEEPS # MARK GOING
058824,000779:
058825,000780: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
058826,000781:
058827,000782: 10,2736 03311 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
058828,000783: 10,2737 05202 TC JOBWAKE
058829,000784:
058830,000785: 10,2740 03325 TC XCHTOEND
058831,000786:
058832,000787: 10,2741 35000 PLAYJUM1 CAF TWO
058833,000788: 10,2742 54164 PRIOPLAY TS COPINDEX
058834,000789:
058835,000790: 10,2743 13175 TCF GOPLAY
058836,000791:
058837,000792: 10,2744 54155 EXDSPRET TS PLAYTEM1
058838,000793:
058839,000794: 10,2745 37667 CAF BIT15+6
058840,000795: 10,2746 12625 TCF GOFLASH2
058841,000796:
058842,000797: 10,2747 55240 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
058843,000798: 10,2750 33600 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
058844,000799:
058845,000800: 10,2751 54155 GOPERFS TS PLAYTEM1
058846,000801:
058847,000802: 10,2752 33577 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
058848,000803: 10,2753 12625 TCF GOFLASH2
058849,000804:
058850,000805: 10,2754 54770 GOPERF4 TS OPTION1 # DESIRED OPTION CODE
058851,000806:
058852,000807: 10,2755 34605 CAF V04N06
058853,000808: 10,2756 54155 TS PLAYTEM1
058854,000809:
058855,000810: 10,2757 35750 CAF PERF4MSK # FLASH, PERFORM, AND BLANK R3
058856,000811: 10,2760 12625 TCF GOFLASH2
058857,000812:
058858,000813: 10,2761 54155 GOFLASHR TS PLAYTEM1
058859,000814:
058860,000815: 10,2762 34776 CAF FLSHRQST # LEAVE ONLY FLASH BIT SET
058861,000816: 10,2763 54160 GODSPRS TS PLAYTEM4
058862,000817: 10,2764 36214 CAF THREE
058863,000818:
058864,000819: 10,2765 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
058865,000820: 10,2766 54072 TS RUPTREG3
058866,000821:
058867,000822: 10,2767 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
058868,000823: 10,2770 77660 MASK PRIO37
058869,000824: 10,2771 54063 TS NEWPRIO
058870,000825:
058871,000826: 10,2772 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
058872,000827: 10,2773 74776 MASK FLSHRQST
058873,000828: 10,2774 10000 CCS A
058874,000829: 10,2775 13003 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
058875,000830: 10,2776 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
058876,000831: 10,2777 05134 TC NOVAC
058877,000832: 10,3000 0003777 EBANK= WHOCARES
058878,000833: 10,3000 02672 20067 2CADR MAKEPLAY
058879,000834:
058880,000835: 10,3002 13011 TCF BOTHJOBS
058881,000836:
058882,000837: 10,3003 30006 VACDSP CA BBANK
058883,000838: 10,3004 00006 EXTEND
058884,000839: 10,3005 04007 ROR SUPERBNK
058885,000840: 10,3006 54001 TS L
058886,000841: 10,3007 33624 CAF MAKEGEN
058887,000842: 10,3010 05161 TC SPVAC
058888,000843:
058889,000844: 10,3011 03037 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
058890,000845:
058891,000846: 10,3012 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
058892,000847: 10,3013 30156 DCA MPAC +1
058893,000848: 10,3014 50064 INDEX LOCCTR
058894,000849: 10,3015 52156 DXCH MPAC +1
058895,000850:
058896,000851: 10,3016 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
058897,000852: 10,3017 30160 DCA MPAC +3
058898,000853: 10,3020 50064 INDEX LOCCTR
058899,000854: 10,3021 52160 DXCH MPAC +3
058900,000855:
058901,000856: 10,3022 30064 CA LOCCTR
058902,000857: 10,3023 54161 TS MPAC +5
058903,000858:
058904,000859: 10,3024 03044 TC SAVELOCR
058905,000860: 10,3025 00003 RELINT
058906,000861:
058907,000862: 10,3026 14671 TCF BANKJUMP # CALL CADR +4
058908,000863:
058909,000864: 10,3027 55240 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
058910,000865:
058911,000866: 10,3030 33600 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
058912,000867:
058913,000868:
058914,000869: 10,3031 54155 GOPERFRS TS PLAYTEM1
058915,000870:
058916,000871: 10,3032 33577 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
058917,000872: 10,3033 12763 TCF GODSPRS
058918,000873:
058919,000874: 10,3034 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058920,000875:
058921,000876: 10,3035 35012 CAF PERF2MSK
058922,000877: 10,3036 12763 TCF GODSPRS
058923,000878:
058924,000879: 10,3037 00004 SAVELOCS INHINT
058925,000880:
058926,000881: 10,3040 45060 CS EBANK7 # GETS ALL EBANK BITS OFF
058927,000882: 10,3041 70160 MASK PLAYTEM4
058928,000883: 10,3042 60003 AD EBANK
058929,000884: 10,3043 54160 TS PLAYTEM4
058930,000885:
058931,000886: 10,3044 22002 SAVELOCR LXCH Q
058932,000887:
058933,000888: 10,3045 04676 TC MAKECADR
058934,000889: 10,3046 54157 TS PLAYTEM3
058935,000890:
058936,000891: 10,3047 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
058937,000892: 10,3050 00001 TC L
058938,000893:
058939,000894: 10,3051 35003 COPYNORM CAF ZERO
058940,000895: 10,3052 54164 COPIES TS COPINDEX
058941,000896: 10,3053 30160 COPIES2 CA PLAYTEM4 # FLAGWORD
058942,000897: 10,3054 50164 INDEX COPINDEX
058943,000898: 10,3055 55263 TS EBANKSAV # EQUIV TO DSPFLG
058944,000899:
058945,000900: 10,3056 75016 MASK CADRMASK # FLASH AND GODSPRET
058946,000901: 10,3057 00006 EXTEND
058947,000902: 10,3060 13064 BZF SKIPADD
058948,000903:
058949,000904: 10,3061 30157 CA PLAYTEM3
058950,000905: 10,3062 50164 INDEX COPINDEX
058951,000906: 10,3063 54370 TS CADRFLSH
058952,000907:
058953,000908: 10,3064 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
058954,000909: 10,3065 50164 INDEX COPINDEX
058955,000910: 10,3066 54365 TS NVWORD
058956,000911:
058957,000912: 10,3067 13334 TCF RELINTQ
058958,000913:
058959,000914: 10,3070 50164 GOSLEEPS INDEX COPINDEX
058960,000915: 10,3071 33620 CA PRIOOCT
058961,000916: 10,3072 75057 MASK WAITMASK
058962,000917: 10,3073 03635 TC UPENT2
058963,000918: 10,3074 45001 CS ONE
058964,000919: 10,3075 60164 AD COPINDEX
058965,000920: 10,3076 54154 TS FACEREG
058966,000921:
058967,000922: 10,3077 50154 XCHSLEEP INDEX FACEREG
058968,000923: 10,3100 33605 CAF WAKECADR
058969,000924: 10,3101 05202 TC JOBWAKE # FIND CADR IN JOB AREA
058970,000925:
058971,000926: 10,3102 03325 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
058972,000927:
058973,000928: 10,3103 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
058974,000929: 10,3104 33605 CAF WAKECADR
058975,000930: 10,3105 15176 TCF JOBSLEEP
058976,000931:
058977,000932: 10,3106 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
058978,000933: 10,3107 03311 TC WITCHONE
058979,000934: 10,3110 05202 TC JOBWAKE
058980,000935: 10,3111 30154 CA FACEREG
058981,000936: 10,3112 50064 INDEX LOCCTR
058982,000937: 10,3113 54154 TS FACEREG
058983,000938:
058984,000939: 10,3114 33632 CAF XCHQADD
058985,000940: 10,3115 03326 TC XCHNYLOC
058986,000941:
058987,000942: 10,3116 50154 INDEX FACEREG
058988,000943: 10,3117 33621 CA MARKOCT
058989,000944: 10,3120 73623 MASK IDLESLEP
058990,000945: 10,3121 03642 TC DOWNENT2
058991,000946: 10,3122 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
058992,000947: 10,3123 34775 CA MRUPTBIT # BIT5 FOR MARK, BIT4 FOR NORMAL
058993,000948: 10,3124 03635 TC UPENT2
058994,000949: 10,3125 30100 CA FLAGWRD4
058995,000950: 10,3126 74777 MASK MKOVBIT # IF BIT 3 THEN MARK OVER NORM
058996,000951: 10,3127 10000 CCS A
058997,000952: 10,3130 02510 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
058998,000953: 10,3131 12662 TCF OKTOCOPY
058999,000954:
059000,000955: 10,3132 35003 MARKWAKE CAF ZERO
059001,000956: 10,3133 54160 WAKEPLAY TS TEMPOR2
059002,000957:
059003,000958: 10,3134 50160 INDEX TEMPOR2
059004,000959: 10,3135 33616 CA BITS5+11
059005,000960: 10,3136 03642 TC DOWNENT2
059006,000961: 10,3137 50160 INDEX TEMPOR2
059007,000962: 10,3140 33605 CAF WAKECADR
059008,000963: 10,3141 05202 TC JOBWAKE
059009,000964:
059010,000965: 10,3142 13435 TCF ENDRET
059011,000966:
059012,000967: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
059013,000968: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
059014,000969: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
059015,000970: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
059016,000971:
059017,000972: 10,3143 31265 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
059018,000973: 10,3144 54003 TS EBANK
059019,000974:
059020,000975: 10,3145 30364 CA RESTREG # SUPERBANK AND JOB PRIORITY
059021,000976: 10,3146 00006 EXTEND # RESTORE SUPERBANK
059022,000977: 10,3147 01007 WRITE SUPERBNK # CHAN 07
059023,000978: 10,3150 77660 MASK PRIO37
059024,000979: 10,3151 05211 TC PRIOCHNG
059025,000980:
059026,000981: 10,3152 46214 CS THREE
059027,000982: 10,3153 60372 AD TEMPFLSH
059028,000983: 10,3154 14671 TCF BANKJUMP
059029,000984:
059030,000985: 10,3155 00003 PINBRNCH RELINT # FOR GOPIN USERS
059031,000986: 10,3156 31266 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
059032,000987: 10,3157 54156 TS MPAC +2 # ONLY
059033,000988:
059034,000989: 10,3160 30100 CA FLAGWRD4 # PINBRANCH CONDITION
059035,000990: 10,3161 77673 MASK PINMASK
059036,000991: 10,3162 10000 CCS A
059037,000992: 10,3163 13166 TCF +3
059038,000993: 10,3164 13573 TCF ERASER # ** NOTHING IN ENDIDLE
059039,000994: 10,3165 12510 TCF MARKPLAY
059040,000995:
059041,000996: 10,3166 07710 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
059042,000997: 10,3167 00105 ADRES PINBRFLG
059043,000998:
059044,000999: 10,3170 34764 CAF PRIODBIT # PRIO INTERRUPTED
059045,001000: 10,3171 70100 MASK FLAGWRD4
059046,001001: 10,3172 10000 CCS A
059047,001002: 10,3173 12670 TCF KEEPPRIO
059048,001003:
059049,001004: 10,3174 12741 TCF PLAYJUM1
059050,001005:
059051,001006: 10,3175 22007 NVDSP ZL
059052,001007: 10,3176 02540 TC COPYPACS
059053,001008: 10,3177 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
059054,001009: 10,3200 75005 MASK SEVEN # USER REQUESTS BLANKING MONITOR
059055,001010: 10,3201 26001 ADS L
059056,001011: 10,3202 44765 CS 2NDPERF
059057,001012: 10,3203 50164 INDEX COPINDEX
059058,001013: 10,3204 71263 MASK DSPFLG
059059,001014: 10,3205 50164 INDEX COPINDEX
059060,001015: 10,3206 55263 TS DSPFLG
059061,001016:
059062,001017: 10,3207 74772 MASK DCMKPERF
059063,001018: 10,3210 10000 CCS A
059064,001019: 10,3211 35056 CA OCT2600
059065,001020: 10,3212 54141 TS TEM1
059066,001021:
059067,001022: 10,3213 30156 CA MPAC +2
059068,001023: 10,3214 54165 TS MPAC2SAV
059069,001024:
059070,001025: 10,3215 55266 TS MARK2PAC # * FOR DISK ONLY *
059071,001026: 10,3216 50164 INDEX COPINDEX
059072,001027: 10,3217 10365 CCS NVWORD
059073,001028: 10,3220 13227 TCF NVDSP1
059074,001029: 10,3221 13335 TCF CLEANEND
059075,001030: 10,3222 40366 CS MARKNV
059076,001031: 10,3223 54366 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
059077,001032: 10,3224 76043 MASK LOW7
059078,001033: 10,3225 63611 AD V05N00M1
059079,001034: 10,3226 60141 AD TEM1
059080,001035: 10,3227 65001 NVDSP1 AD ONE
059081,001036: 10,3230 04203 NV50DSP TC NVMONOPT
059082,001037: 10,3231 13347 TCF REST # IF BUSY
059083,001038: 10,3232 04417 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
059084,001039:
059085,001040: 10,3233 02536 TC COPYTOGO # MPACS DESTROYED BY NVSUB
059086,001041: 10,3234 33612 CAF OCT700
059087,001042: 10,3235 03642 TC DOWNENT2
059088,001043:
059089,001044: 10,3236 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
059090,001045: 10,3237 04264 TC BLANKSUB
059091,001046: 10,3240 13175 TCF NVDSP
059092,001047: 10,3241 34775 PERFCHEK CAF PERFRQST # BIT5 FOR PERFORM
059093,001048: 10,3242 70160 MASK TEMPOR2
059094,001049: 10,3243 10000 CCS A # IS THIS A GOPERF DISPLAY
059095,001050: 10,3244 13267 TCF 1STOR2ND # YES
059096,001051:
059097,001052: 10,3245 34776 GOANIDLE CAF FLSHRQST
059098,001053: 10,3246 70160 MASK TEMPOR2
059099,001054: 10,3247 10000 CCS A
059100,001055: 10,3250 13364 TCF FLASHSUB # IT IS
059101,001056:
059102,001057: 10,3251 40160 CS TEMPOR2 # IS THIS A GODSPRET
059103,001058: 10,3252 74774 MASK RETDSPY
059104,001059: 10,3253 10000 CCS A
059105,001060: 10,3254 13261 TCF ISITN00
059106,001061:
059107,001062: 10,3255 50164 INDEX COPINDEX
059108,001063: 10,3256 30370 CA CADRFLSH
059109,001064: 10,3257 54157 TS MPAC +3
059110,001065: 10,3260 13462 TCF ENDIT
059111,001066:
059112,001067: 10,3261 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
059113,001068: 10,3262 30365 CA NVWORD
059114,001069: 10,3263 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
059115,001070: 10,3264 00006 EXTEND
059116,001071: 10,3265 13364 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
059117,001072:
059118,001073: 10,3266 15220 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT
059119,001074:
059120,001075: 10,3267 30160 1STOR2ND CA TEMPOR2
059121,001076: 10,3270 74765 MASK 2NDPERF
059122,001077: 10,3271 10000 CCS A
059123,001078: 10,3272 13245 TCF GOANIDLE # SECOND
059124,001079:
059125,001080: 10,3273 34765 CA 2NDPERF
059126,001081: 10,3274 50164 INDEX COPINDEX
059127,001082: 10,3275 27263 ADS DSPFLG
059128,001083:
059129,001084: 10,3276 22007 ZL
059130,001085: 10,3277 00006 EXTEND # IS IT MARK
059131,001086: 10,3300 62557 BZMF MARKPERF # YES
059132,001087:
059133,001088: 10,3301 74766 MASK V99PSTE
059134,001089: 10,3302 00006 EXTEND
059135,001090: 10,3303 13307 BZF V50PASTE
059136,001091: 10,3304 40772 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
059137,001092: 10,3305 63626 AD V97N00
059138,001093: 10,3306 13230 TCF NV50DSP
059139,001094: 10,3307 33601 V50PASTE CAF V50N00
059140,001095: 10,3310 13230 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
059141,001096:
059142,001097: 10,3311 44775 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
059143,001098: 10,3312 00006 EXTEND
059144,001099: 10,3313 03011 WAND DSALMOUT
059145,001100:
059146,001101: 10,3314 30100 CA FLAGWRD4
059147,001102: 10,3315 73612 MASK NVBUSMSK # IS IT NVSUB ASLEEP
059148,001103: 10,3316 10000 CCS A
059149,001104: 10,3317 35001 CAF ONE
059150,001105: 10,3320 54001 TS L
059151,001106: 10,3321 35003 CAF ZERO
059152,001107: 10,3322 50001 INDEX L
059153,001108: 10,3323 57235 XCH CADRSTOR
059154,001109:
059155,001110: 10,3324 00002 TC Q
059156,001111:
059157,001112: 10,3325 34170 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
059158,001113: 10,3326 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
059159,001114: 10,3327 00006 EXTEND
059160,001115: 10,3330 63334 BZMF RELINTQ # NO
059161,001116: 10,3331 56064 XCH LOCCTR # YES
059162,001117: 10,3332 50064 INDEX LOCCTR
059163,001118: 10,3333 54164 TS LOC
059164,001119:
059165,001120:
059166,001121: 10,3334 15615 RELINTQ TCF REQ # BACK TO USER
059167,001122: 10,3335 37654 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
059168,001123: 10,3336 05150 TC FINDVAC
059169,001124: 10,3337 0367 EBANK= NVSAVE
059170,001125: 10,3337 04247 04060 2CADR JAMTERM
059171,001126:
059172,001127: 10,3341 13365 TCF FLASHSUB +1
059173,001128:
059174,001129: 10,3342 30100 ISITPRIO CA FLAGWRD4
059175,001130: 10,3343 77667 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
059176,001131: 10,3344 00006 EXTEND
059177,001132: 10,3345 12721 BZF PRIOBORT
059178,001133: 10,3346 15220 TCF ENDOFJOB
059179,001134:
059180,001135: 10,3347 11235 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
059181,001136: 10,3350 15220 TCF ENDOFJOB # YES
059182,001137: 10,3351 13353 TCF RESTSLEP
059183,001138:
059184,001139: 10,3352 15220 TCF ENDOFJOB
059185,001140:
059186,001141: 10,3353 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
059187,001142: 10,3354 73612 MASK NVBUSMSK
059188,001143: 10,3355 03635 TC UPENT2
059189,001144: 10,3356 04240 NVSUBUSY TC ISCADR+0
059190,001145: 10,3357 04356 TC RELDSPON
059191,001146: 10,3360 50164 INDEX COPINDEX
059192,001147: 10,3361 33604 CAF NVCADR
059193,001148: 10,3362 55236 TS DSPLIST
059194,001149: 10,3363 05176 TC JOBSLEEP
059195,001150: 10,3364 04360 FLASHSUB TC FLASHON
059196,001151:
059197,001152: 10,3365 30164 +1 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
059198,001153: 10,3366 54157 TS COPMPAC
059199,001154:
059200,001155: 10,3367 30162 CA GENMASK
059201,001156: 10,3370 77675 MASK IDLEMASK
059202,001157: 10,3371 03635 TC UPENT2
059203,001158: 10,3372 11235 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
059204,001159: 10,3373 13342 TCF ISITPRIO
059205,001160: 10,3374 13376 TCF +2
059206,001161: 10,3375 13342 TCF ISITPRIO
059207,001162:
059208,001163: 10,3376 04240 ENDIDLE TC ISCADR+0
059209,001164: 10,3377 33437 CA ENDIDRET
059210,001165: 10,3400 55235 TS CADRSTOR
059211,001166: 10,3401 05176 TC JOBSLEEP
059212,001167: 10,3402 44354 IDLERET1 CS LOWLOAD
059213,001168: 10,3403 60154 AD MPAC # VERBREG
059214,001169: 10,3404 00006 EXTEND
059215,001170: 10,3405 26000 DIM A
059216,001171: 10,3406 00006 EXTEND
059217,001172: 10,3407 13563 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
059218,001173: 10,3410 30100 OKTOENT CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
059219,001174: 10,3411 74076 MASK BIT15/14
059220,001175: 10,3412 10000 CCS A
059221,001176: 10,3413 13416 TCF TIMECHEK # PRIO ENDIDLE RETURN
059222,001177: 10,3414 13531 TCF NORMRET # NORMAL ENDIDLE RETURN
059223,001178: 10,3415 13520 TCF MARKRET # MARK ENDIDLE RETURN
059224,001179:
059225,001180: 10,3416 30365 TIMECHEK CA NVWORD
059226,001181: 10,3417 00006 EXTEND
059227,001182: 10,3420 13531 BZF NORMRET
059228,001183:
059229,001184: 10,3421 40025 CS TIME1
059230,001185: 10,3422 61000 AD PRIOTIME
059231,001186: 10,3423 10000 CCS A
059232,001187: 10,3424 40000 COM
059233,001188: 10,3425 67663 AD OCT37776
059234,001189: 10,3426 65001 AD ONE
059235,001190: 10,3427 63654 AD -2SEC
059236,001191: 10,3430 00006 EXTEND
059237,001192: 10,3431 62670 BZMF KEEPPRIO
059238,001193:
059239,001194: 10,3432 13531 TCF NORMRET
059240,001195:
059241,001196: 10,3433 35001 NORMWAKE CAF ONE
059242,001197: 10,3434 13133 TCF WAKEPLAY
059243,001198:
059244,001199:
059245,001200: 10,3435 11207 ENDRET CCS LOADSTAT # -0=V32 OR E, -1=V33 OR PRO, -2=V34
059246,001201: 10,3436 15220 TCF ENDOFJOB # +1=ENDMARK
059247,001202: 10,3437 21402 ENDIDRET CADR IDLERET1 # CANNOT GET HERE
059248,001203: 10,3440 13441 TCF +1
059249,001204: 10,3441 30100 CA FLAGWRD4 # IS IT A VNFLASH
059250,001205: 10,3442 75000 MASK VNBIT # (BIT2)
059251,001206: 10,3443 60157 AD COPMPAC # AND A NORMAL DISPLAY
059252,001207: 10,3444 66061 AD NEG4
059253,001208: 10,3445 00006 EXTEND
059254,001209: 10,3446 13467 BZF VNRET
059255,001210: 10,3447 31207 CA LOADSTAT
059256,001211: 10,3450 65000 AD TWO
059257,001212: 10,3451 50157 ENDRET1 INDEX COPMPAC
059258,001213: 10,3452 60370 AD CADRFLSH
059259,001214: 10,3453 54157 ENDRET2 TS MPAC +3
059260,001215:
059261,001216: 10,3454 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
059262,001217: 10,3455 73631 MASK PINIDMSK
059263,001218: 10,3456 03642 TC DOWNENT2
059264,001219: 10,3457 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
059265,001220: 10,3460 04202 TC NVSUB
059266,001221: 10,3461 13462 TCF +1
059267,001222:
059268,001223: 10,3462 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
059269,001224: 10,3463 77660 MASK PRIO37
059270,001225: 10,3464 05211 TC PRIOCHNG
059271,001226: 10,3465 30157 CA MPAC +3
059272,001227: 10,3466 14671 TCF BANKJUMP
059273,001228:
059274,001229: 10,3467 07722 VNRET TC DOWNFLAG
059275,001230: 10,3470 00111 ADRES VNFLAG
059276,001231: 10,3471 31207 CA LOADSTAT
059277,001232: 10,3472 65001 AD ONE
059278,001233: 10,3473 10000 CCS A
059279,001234: 10,3474 37700 CAF NEG3 # LOADOSTAT.-0
059280,001235: 10,3475 13451 TCF ENDRET1 # CANNOT GET HERE VIA CCS
059281,001236: 10,3476 13501 TCF TERMFLSH # LOADSTAT=-2
059282,001237: 10,3477 45001 CS ONE # COMPENSATE FOR INCREMENTED Q IN LEAD-IN
059283,001238: 10,3500 13451 TCF ENDRET1 # LOADSTAT=-1
059284,001239: 10,3501 33633 TERMFLSH CAF GOPOOCAD
059285,001240: 10,3502 13453 TCF ENDRET2
059286,001241:
059287,001242:
059288,001243: 10,3503 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
059289,001244: 10,3504 74764 MASK REFLSH
059290,001245: 10,3505 10000 CCS A
059291,001246: 10,3506 16706 TCF Q+1 # NO
059292,001247: 10,3507 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
059293,001248: 10,3510 50164 INDEX COPINDEX
059294,001249: 10,3511 60370 AD CADRFLSH
059295,001250: 10,3512 00006 EXTEND
059296,001251: 10,3513 13515 BZF +2 # YES
059297,001252:
059298,001253: 10,3514 00002 TC Q # NO
059299,001254: 10,3515 11205 CCS DSPLOCK # IS THE ASTRONAUT BUSY
059300,001255: 10,3516 05220 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
059301,001256: 10,3517 00002 TC Q
059302,001257:
059303,001258: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059304,001259:
059305,001260: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059306,001261: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059307,001262: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059308,001263:
059309,001264: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059310,001265: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059311,001266: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE (DURING A
059312,001267: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059313,001268:
059314,001269: 10,3520 34777 MARKRET CAF MKOVBIT
059315,001270: 10,3521 03642 TC DOWNENT2
059316,001271: 10,3522 13435 TCF ENDRET
059317,001272:
059318,001273: 10,3523 35001 MARKOVER CAF ONE
059319,001274: 10,3524 55207 TS LOADSTAT
059320,001275: 10,3525 30100 CA FLAGWRD4 # IS ENDIDFLG SET
059321,001276: 10,3526 74346 MASK BIT13-14 # IS NORMAL OR PRIO IN ENDIDLE
059322,001277: 10,3527 10000 CCS A
059323,001278: 10,3530 13166 TCF NORMBNCH
059324,001279:
059325,001280: 10,3531 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
059326,001281: 10,3532 73616 MASK BITS5+11 # OR WAITING
059327,001282: 10,3533 10000 CCS A
059328,001283: 10,3534 13132 TCF MARKWAKE
059329,001284:
059330,001285: 10,3535 30100 CA FLAGWRD4 # NO
059331,001286: 10,3536 73617 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
059332,001287: 10,3537 10000 CCS A
059333,001288: 10,3540 13433 TCF NORMWAKE # YES
059334,001289:
059335,001290: 10,3541 34776 CAF FLSHRQST # NO, WAS IT A FLASH REQUEST
059336,001291: 10,3542 64774 AD RETDSPY # OR GODSPRET
059337,001292: 10,3543 71265 MASK EBANKTEM
059338,001293: 10,3544 10000 CCS A
059339,001294: 10,3545 13435 TCF ENDRET # YES
059340,001295: 10,3546 30367 CA NVSAVE
059341,001296: 10,3547 00006 EXTEND
059342,001297: 10,3550 13435 BZF ENDRET
059343,001298:
059344,001299: 10,3551 35066 CAF PRIO15
059345,001300: 10,3552 05134 TC NOVAC
059346,001301: 10,3553 0365 EBANK= NVWORD
059347,001302: 10,3553 02741 20060 2CADR PLAYJUM1
059348,001303:
059349,001304:
059350,001305: 10,3555 13435 TCF ENDRET
059351,001306:
059352,001307: 10,3556 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
059353,001308: 10,3557 73616 MASK BITS5+11
059354,001309: 10,3560 10000 CCS A
059355,001310: 10,3561 15220 TCF ENDOFJOB # YES
059356,001311: 10,3562 13070 TCF GOSLEEPS
059357,001312:
059358,001313: 10,3563 50157 LOADITIS INDEX COPMPAC
059359,001314: 10,3564 30365 CA NVWORD
059360,001315: 10,3565 76043 MASK LOW7
059361,001316: 10,3566 40000 COM
059362,001317: 10,3567 60155 AD MPAC +1 # NOUNREG
059363,001318: 10,3570 00006 EXTEND
059364,001319: 10,3571 13410 BZF OKTOENT # NO, THEN LOAD IS VALID
059365,001320: 10,3572 13155 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059366,001321:
059367,001322: 10,3573 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
059368,001323: 10,3574 04202 TC NVSUB
059369,001324: 10,3575 15220 TCF ENDOFJOB
059370,001325: 10,3576 15220 TCF ENDOFJOB
059371,001326:
059372,001327: 10,3577 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
059373,001328: 10,3600 00231 V01N25 VN 00125
059374,001329: 10,3601 14400 V50N00 VN 5000
059375,001330: 10,3602 5012 PERF2MSK EQUALS BITS4&5 # (OCTAL 30) FLASH, PERFORM
059376,001331: 10,3602 5750 PERF4MSK EQUALS OCT14 # FLASH, BLANK R3
059377,001332: 10,3602 20010 REDOMASK OCT 20010 # BITS 4 AND 14
059378,001333: 10,3603 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
059379,001334: 10,3604 20666 NVCADR CADR REDOPRIO
059380,001335: 10,3605 20510 WAKECADR CADR MARKPLAY
059381,001336: 10,3606 20741 CADR PLAYJUM1
059382,001337:
059383,001338: 10,3607 11210 NBUSMASK OCT 11210
059384,001339: 10,3610 66521 PMMASK OCT 66521
059385,001340: 10,3611 4171 VERBMASK = MID7 # (OCT 37600)
059386,001341: 10,3611 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
059387,001342: 10,3612 10,2456 GOXDSPF EQUALS GOMARKF
059388,001343: 10,3612 5537 ENDEXT EQUALS ENDMARK
059389,001344: 10,3612 0165 MPAC2SAV EQUALS BANKSET
059390,001345: 10,3612 00700 NVBUSMSK OCT 700
059391,001346: 10,3613 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
059392,001347: 10,3614 34300 OCT34300 OCT 34300
059393,001348: 10,3615 40100 BITS15+7 OCT 40100
059394,001349: 10,3616 02020 BITS5+11 OCT 2020 # * DONT MOVE
059395,001350: 10,3617 01010 BITS4+10 OCT 1010 # * DONT MOVE
059396,001351: 10,3620 4354 LOWLOAD EQUALS VBSP2LD
059397,001352: 10,3620 5016 CADRMASK EQUALS OCT50
059398,001353: 10,3620 7673 PINMASK EQUALS 13,14,15
059399,001354: 10,3620 10,3175 GOPLAY EQUALS NVDSP
059400,001355: # PRIOSAVE EQUALS R1SAVE
059401,001356: 10,3620 0157 COPMPAC EQUALS MPAC +3
059402,001357: 10,3620 0160 TEMPOR2 EQUALS MPAC +4
059403,001358: 10,3620 0164 COPINDEX EQUALS LOC
059404,001359: 10,3620 0163 USERPRIO EQUALS MODE
059405,001360: 10,3620 0162 GENMASK EQUALS MPAC +6
059406,001361: 10,3620 20144 PRIOOCT OCT 20144 # PRIO
059407,001362: 10,3621 42424 MARKOCT OCT 42424 # MARK
059408,001363: 10,3622 11254 OCT 11254 # NORM
059409,001364:
059410,001365: 10,3623 74700 IDLESLEP OCT 74700
059411,001366: 10,3624 5531 LINUS EQUALS BLANKET
059412,001367: 10,3624 0154 FACEREG EQUALS MPAC
059413,001368: 10,3624 0155 PLAYTEM1 EQUALS MPAC +1
059414,001369: 10,3624 0157 PLAYTEM3 EQUALS MPAC +3
059415,001370: 10,3624 0160 PLAYTEM4 EQUALS MPAC +4
059416,001371: 10,3624 02672 MAKEGEN GENADR MAKEPLAY
059417,001372: 10,3625 10200 BIT13+8 OCT 10200
059418,001373: 10,3626 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
059419,001374: 10,3627 20100 BIT14+7 OCT 20100
059420,001375: 10,3630 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
059421,001376: 10,3631 74040 PINIDMSK OCT 74040
059422,001377: 10,3632 7675 IDLEMASK EQUALS HIGH4
059423,001378: 10,3632 7667 ITISMASK EQUALS BIT15+6 # *** ENDIDLE ALLOW ***
059424,001379: 10,3632 7664 MARKFMSK EQUALS OT40010
059425,001380: 10,3632 03077 XCHQADD GENADR XCHSLEEP
059426,001381: 10,3633 5057 WAITMASK EQUALS PRIO3 # (OCTAL 3000)
059427,001382: 10,3633 10,3612 OCT700 EQUALS NVBUSMSK
059428,001383: 10,3633 55436 GOPOOCAD CADR TCGOPOOH
059429,001384: 10,3634 40210 MARK3MSK OCT 40210
059430,001385: 10,3635 4763 MKRQST = BIT15
059431,001386: 10,3635 4764 REFLSH = BIT14
059432,001387: 10,3635 4765 2NDPERF = BIT13
059433,001388: 10,3635 4766 V99PSTE = BIT12
059434,001389: 10,3635 4772 DCMKPERF = BIT8
059435,001390: 10,3635 4773 PRIODSPY = BIT7
059436,001391: 10,3635 4774 RETDSPY = BIT6
059437,001392: 10,3635 4775 PERFRQST = BIT5
059438,001393: 10,3635 4776 FLSHRQST = BIT4
059439,001394: 10,3635 4777 BLNKR3 = BIT3
059440,001395: 10,3635 5000 BLNKR2 = BIT2
059441,001396: 10,3635 5001 BLNKR1 = BIT1
059442,001397: 10,3635 5003 DSPONLY = ZERO
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc