Source Code
![]() |
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
061771,000002: # Copyright: Public domain.
061772,000003: # Filename: DISPLAY_INTERFACE_ROUTINES.agc
061773,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
061774,000005: # build 072. This is for the Command Module's (CM)
061775,000006: # Apollo Guidance Computer (AGC), we believe for
061776,000007: # Apollo 15-17.
061777,000008: # Assembler: yaYUL
061778,000009: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
061779,000010: # Website: www.ibiblio.org/apollo/index.html
061780,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
061781,000012: # Mod history: 2009-08-18 JL Adapted from corresponding Comanche 055 file.
061782,000013: # 2010-01-31 JL Removed obsolete meta-comment.
061783,000014: # 2010-02-01 JL Fixed build errors.
061784,000015: # 2010-02-11 JL Fixed error on p1465.
061785,000016: # 2010-02-20 RSB Un-##'d this header.
061786,000017:
061787,000018: # # Page 1448
061788,000019:
061789,000020: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
061790,000021:
061791,000022: # 1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
061792,000023: # OUT UNDER CRITICAL ALARM CONDITIONS.
061793,000024: # 2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
061794,000025: # 3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
061795,000026: # SEQUENCE OF EVENTS.
061796,000027: # 4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
061797,000028: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
061798,000029: # 5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
061799,000030:
061800,000031: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
061801,000032:
061802,000033: # 1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
061803,000034: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
061804,000035: # BUT NOT WAITING FOR A RESPONSE.
061805,000036: # 2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
061806,000037: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
061807,000038: # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
061808,000039: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
061809,000040: # HAS INFO SAVED FOR RESTART PURPOSES.
061810,000041:
061811,000042: # DISPLAY PRIORITIES WORK AS FOLLOWS -
061812,000043:
061813,000044: # INTERRUPTS -
061814,000045: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
061815,000046: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
061816,000047: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
061817,000048: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
061818,000049: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
061819,000050: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
061820,000051:
061821,000052: # ORDER OF WAITING DISPLAYS -
061822,000053: # 1. ASTRONAUT EXTERNAL USE
061823,000054: # 2. PRIORITY
061824,000055: # 3. INTERRUPTED MARK
061825,000056: # 4. INTERRUPTED NORMAL
061826,000057:
061827,000058: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
061828,000059: # 6. MARK WAITING
061829,000060: # 7. NORMAL WAITING
061830,000061:
061831,000062: # # Page 1449
061832,000063: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
061833,000064: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
061834,000065: # WILL FOLLOW LATER):
061835,000066:
061836,000067: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
061837,000068: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
061838,000069: # IS TO THE USERS CALLING LOC +1.
061839,000070: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
061840,000071: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
061841,000072: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
061842,000073: # USERS JOB.
061843,000074: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
061844,000075: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
061845,000076: # DESCRIPTION OF RESTARTS).
061846,000077: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES
061847,000078: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
061848,000079: # (V32) BRANCHES TO THE USERS CALL CADR +3.
061849,000080: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
061850,000081:
061851,000082: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
061852,000083:
061853,000084: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
061854,000085:
061855,000086: # CAF VXXNYY
061856,000087: # TC BANKCALL
061857,000088: # CADR GODSPR
061858,000089: # ... ... # IMMEDIATE RETURN OF GODSPR
061859,000090:
061860,000091: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
061861,000092: # THE ASTRONAUT (SEE NO. 7 ABOVE).
061862,000093:
061863,000094: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN.
061864,000095: # TC BANKCALL
061865,000096: # CADR GOFLASH
061866,000097: # ... ... # TERMINATE RETURN
061867,000098: # ... ... # PROCEED RETURN
061868,000099: # ... ... # ENTER OR RECYCLE RETURN
061869,000100:
061870,000101: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
061871,000102: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
061872,000103: # USER (SEE NO. 7 ABOVE).
061873,000104: # GOPERF1 BLANKS REGISTERS R2 AND R3
061874,000105:
061875,000106: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX
061876,000107: # TC BANKCALL
061877,000108: # CADR GOPERF1
061878,000109: # ... ... # TERMINATE RETURN
061879,000110: # ... ... # PROCEED RETURN
061880,000111: # # Page 1450
061881,000112: # ... ... # ENTER RETURN
061882,000113:
061883,000114: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
061884,000115: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
061885,000116: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
061886,000117: # GOPERF3 BLANKS REGISTERS R2 AND R3
061887,000118:
061888,000119: # CAF DECXX # REQUEST PERFORM ON PXX
061889,000120: # TC BANKCALL
061890,000121: # CADR GOPERF3
061891,000122: # ... ... # TERMINATE RETURN
061892,000123: # ... ... # PROCEED RETURN
061893,000124: # ... ... # ENTER RETURN
061894,000125:
061895,000126: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
061896,000127: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
061897,000128: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
061898,000129:
061899,000130: # CAF OCTXX # REQUEST PERFORM ON OPTION XX
061900,000131: # TC BANKCALL
061901,000132: # CADR GOPERF4
061902,000133: # ... ... # TERMINATE RETURN
061903,000134: # ... ... # PROCEED RETURN
061904,000135: # ... ... # ENTER RETURN
061905,000136:
061906,000137: # GOPERF4 BLANKS REGISTER R3.
061907,000138:
061908,000139: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
061909,000140: # OUT.
061910,000141:
061911,000142: # CAF VXXNYY
061912,000143: # TC BANKCALL
061913,000144: # CADR GODSPRET
061914,000145: # ... ... # RETURN TO USER.
061915,000146:
061916,000147: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
061917,000148: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061918,000149:
061919,000150: # CAF VXXNYY
061920,000151: # TC BANKCALL
061921,000152: # CADR REGODSP
061922,000153:
061923,000154: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061924,000155:
061925,000156: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
061926,000157: # TC BANKCALL
061927,000158: # CADR REFLASH
061928,000159: # ... ... # TERMINATE RETURN
061929,000160: # # Page 1451
061930,000161: # ... ... # PROCEED RETURN
061931,000162: # ... ... # ENTER RETURN
061932,000163:
061933,000164: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
061934,000165:
061935,000166: # CAF VXXNYY
061936,000167: # TC BANKCALL
061937,000168: # CADR GOFLASHR
061938,000169: # ... ... # TERMINATE RETURN
061939,000170: # ... ... # PROCEED RETURN
061940,000171: # ... ... # ENTER OR RECYCLE RETURN
061941,000172:
061942,000173: # ... ... # IMMEDIATE RETURN FROM GOFLASHR
061943,000174:
061944,000175: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
061945,000176: # GOPERF1R BLANKS REGISTERS R2 AND R3
061946,000177:
061947,000178: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX.
061948,000179: # TC BANKCALL
061949,000180: # CADR GOPERF1R
061950,000181: # ... ... # TERMINATE RETURN
061951,000182: # ... ... # PROCEED RETURN
061952,000183: # ... ... # ENTER RETURN
061953,000184:
061954,000185: # ... ... # IMMEDIATE RETURN FROM GOPERF1R
061955,000186:
061956,000187: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
061957,000188: # GOPERF3R BLANKS REGISTERS R2 AND R3
061958,000189:
061959,000190: # CAF PROGXX # PERFORM PROGRAM XX
061960,000191: # TC BANKCALL
061961,000192: # CADR GOPERF3R
061962,000193: # ... ... # TERMINATE RETURN
061963,000194: # ... ... # PROCEED RETURN
061964,000195: # ... ... # ENTER RETURN
061965,000196:
061966,000197: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE
061967,000198:
061968,000199: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
061969,000200:
061970,000201: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX
061971,000202: # TC BANKCALL
061972,000203: # CADR GOPERF4R
061973,000204: # ... ... # TERMINATE RETURN
061974,000205: # ... ... # PROCEED RETURN
061975,000206: # ... ... # ENTER RETURN
061976,000207:
061977,000208: # ... ... # IMMEDIATE RETURN TO USER
061978,000209:
061979,000210: # # Page 1452
061980,000211: # GOPERF4R BLANKS REGISTER R3.
061981,000212:
061982,000213: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
061983,000214:
061984,000215: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN
061985,000216: # TC BANKCALL
061986,000217: # CADR REFLASHR
061987,000218: # ... ... # TERMINATE RETURN
061988,000219: # ... ... # PROCEED RETURN
061989,000220: # ... ... # ENTER RETURN
061990,000221:
061991,000222: # ... ... # IMMEDIATE RETURN TO USER
061992,000223:
061993,000224: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
061994,000225:
061995,000226: # CAF VXXNYY
061996,000227: # TC BANKCALL
061997,000228: # CADR REGODSPR
061998,000229:
061999,000230: # ... ... # IMMEDIATE RETURN TO USER
062000,000231:
062001,000232: # # Page 1453
062002,000233: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
062003,000234:
062004,000235: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
062005,000236:
062006,000237: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
062007,000238: # THE ASTRONAUT (SEE NO. 7 ABOVE).
062008,000239: # GOXDSPF = GOMARKF
062009,000240:
062010,000241: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN
062011,000242: # TC BANKCALL
062012,000243: # CADR GOMARKF # OTHER EXTENDED VERBS USE CADR GOXDSPF
062013,000244: # ... ... # TERMINATE RETURN
062014,000245: # ... ... # PROCEED RETURN
062015,000246: # ... ... # ENTER OR RECYCLE RETURN
062016,000247:
062017,000248: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
062018,000249:
062019,000250: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
062020,000251: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
062021,000252: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
062022,000253: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
062023,000254:
062024,000255: # CAF V5XNYY # X=1,2,3,4 Y=NOUN
062025,000256: # TC BANKCALL
062026,000257: # CADR GOMARK1
062027,000258:
062028,000259: # ... ... # ENTER RETURN
062029,000260:
062030,000261: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER.
062031,000262:
062032,000263: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
062033,000264:
062034,000265: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
062035,000266: # TC BANKCALL
062036,000267: # CADR GOMARK1R
062037,000268:
062038,000269: # ... ... # ASTRONAUT ENTER RETURN
062039,000270: # ... ... # IMMEDIATE RETURN TO USER
062040,000271:
062041,000272: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
062042,000273:
062043,000274: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
062044,000275: # TC BANKCALL
062045,000276: # CADR GOMARK2
062046,000277: # ... ... # TERMINATE RETURN
062047,000278: # ... ... # PROCEED RETURN
062048,000279: # ... ... # ENTER RETURN
062049,000280:
062050,000281: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
062051,000282:
062052,000283: # CAF V5XNYY # X=1,2,3,4 YY=NOUN
062053,000284: # TC BANKCALL
062054,000285: # # Page 1454
062055,000286: # CADR GOMARK4
062056,000287: # ... ... # TERMINATE RETURN
062057,000288: # ... ... # PROCEED RETURN
062058,000289: # ... ... # ENTER RETURN
062059,000290:
062060,000291: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
062061,000292: # SENT OUT.
062062,000293:
062063,000294: # CAF VXXNYY
062064,000295: # TC BANKCALL
062065,000296: # CADR EXDSPRET
062066,000297:
062067,000298: # ... ... # RETURN TO USER
062068,000299:
062069,000300: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
062070,000301: # HAVE BEEN CLEANED OUT.
062071,000302:
062072,000303: # TC BANKCALL
062073,000304: # CADR KLEENEX
062074,000305:
062075,000306: # ... ... # RETURN TO USER
062076,000307:
062077,000308: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
062078,000309:
062079,000310: # TC BANKCALL
062080,000311: # CADR MARKBRAN
062081,000312:
062082,000313: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE
062083,000314:
062084,000315: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
062085,000316: # # LAST FLASHING MARK R ROUTINE)
062086,000317:
062087,000318: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
062088,000319: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
062089,000320:
062090,000321: # TC POSTJUMP
062091,000322: # CADR PINBRNCH
062092,000323:
062093,000324: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
062094,000325: # THE ASTRONAUT (SEE NO. 7 ABOVE).
062095,000326:
062096,000327: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
062097,000328: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
062098,000329: # IS RESPONDED TO BY THE ASTRONAUT.
062099,000330:
062100,000331: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
062101,000332: # PRIO DISPLAY.
062102,000333:
062103,000334: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
062104,000335: # TC BANKCALL
062105,000336: # # Page 1455
062106,000337: # CADR PRIODSP
062107,000338: # ... ... # TERMINATE RETURN
062108,000339: # ... ... # PROCEED RETURN
062109,000340: # ... ... # ENTER OR RECYCLE RETURN
062110,000341:
062111,000342: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062112,000343:
062113,000344: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
062114,000345: # TC BANKCALL
062115,000346: # CADR PRIODSPR
062116,000347: # ... ... # TERMINATE RETURN
062117,000348: # ... ... # PROCEED RETURN
062118,000349: # ... ... # ENTER OR RECYCLE RETURN
062119,000350:
062120,000351: # ... ... # IMMEDIATE RETURN
062121,000352:
062122,000353: # PRIOLARM DOES A V05N09 PRIODSPR.
062123,000354:
062124,000355: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
062125,000356: # DISPLAYS ARE CLEANED OUT.
062126,000357:
062127,000358: # TC BANKCALL
062128,000359: # CADR CLEANDSP
062129,000360:
062130,000361: # ... ... # RETURN TO USER
062131,000362:
062132,000363: # # Page 1456
062133,000364:
062134,000365: # GENERAL INFORMATION
062135,000366: # ------- -----------
062136,000367:
062137,000368: # ALARM OR ABORT EXIT MODES--
062138,000369:
062139,000370: # PRIOBORT TC ABORT
062140,000371: # OCT 1502
062141,000372:
062142,000373: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
062143,000374: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
062144,000375: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
062145,000376:
062146,000377: # ERASABLE INITIALIZATION REQUIRED--
062147,000378:
062148,000379: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
062149,000380: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
062150,000381: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
062151,000382:
062152,000383: # 5. R1SAVE = MARKBRAN CONTROL WORD
062153,000384: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
062154,000385:
062155,000386: # OUTPUT--
062156,000387:
062157,000388: # NVWORD = PRIO VERB AND NOUN
062158,000389: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN
062159,000390: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
062160,000391:
062161,000392: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
062162,000393: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
062163,000394: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK)
062164,000395:
062165,000396: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
062166,000397: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
062167,000398: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION
062168,000399:
062169,000400: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
062170,000401: # OPTION1 = DESIRED OPTION FROM GOPERF4
062171,000402: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
062172,000403: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
062173,000404:
062174,000405: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
062175,000406: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
062176,000407:
062177,000408: # DEBRIS-- (STORED INTO)
062178,000409: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL,
062179,000410: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
062180,000411: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
062181,000412: # ERASABLES (USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
062182,000413: # # Page 1457
062183,000414: # R1SAVE, MARK2PAC,
062184,000415:
062185,000416: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
062186,000417:
062187,000418: # FLAGWORD DESCRIPTIONS--
062188,000419: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
062189,000420:
062190,000421: # DSPFLG, DSPFLG+1, DSPFLG+2-
062191,000422: # ---------------------------
062192,000423: # BITS 1 BLANK R1
062193,000424: # 2 BLANK R2
062194,000425: # 3 BLANK R3
062195,000426: # 4 FLASHING DISPLAY REQUESTED
062196,000427: # 5 PERFORM DISPLAY REQUESTED
062197,000428: # 6 ----- EXDSPRET GODSPRET
062198,000429: # 7 PRIO DISPLAY ----- -----
062199,000430: # 8 ----- MARK MONITOR PERF -----
062200,000431: # 9 EBANK
062201,000432: # 10 EBANK
062202,000433: # 11 EBANK
062203,000434: # 12 ----- ----- V99PASTE
062204,000435: # 13 2ND PART OF PERFORM
062205,000436: # 14 REFLASH OR REDO ----- REFLASH OR REDO
062206,000437: # 15 ----- MARK REQUEST -----
062207,000438:
062208,000439: # RESTARTING DISPLAYS--
062209,000440:
062210,000441: # RULES FOR THE DSKY OPERATOR--
062211,000442:
062212,000443: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N). AS LONG
062213,000444: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
062214,000445: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
062215,000446: # WITH PROCEED AND TERMINATE FOR THIS REASON.
062216,000447: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECONDS FROM THE TIME THE MISSION
062217,000448: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
062218,000449: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
062219,000450: # IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
062220,000451: # OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
062221,000452: # CONSIDERATION.
062222,000453: # 3. KEY RELEASE BUTTON-
062223,000454: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
062224,000455: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
062225,000456: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
062226,000457: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
062227,000458: # KEY RELEASE BUTTON MAY BE NECESSARY.
062228,000459: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
062229,000460: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
062230,000461: # OVER AGAIN.
062231,000462:
062232,000463: # SPECIAL CONSIDERATONS -
062233,000464: # # Page 1458
062234,000465: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
062235,000466: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
062236,000467: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
062237,000468: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
062238,000469: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
062239,000470: # BY A .1 RESTART PHASE CHANGE.
062240,000471: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
062241,000472: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
062242,000473: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL
062243,000474:
062244,000475: # # Page 1459
062245,000476: # CALLING SEQUENCE FOR BLANKING
062246,000477: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
062247,000478: # TC BLANKET
062248,000479: # ... ... # RETURN TO USER HERE
062249,000480:
062250,000481: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
062251,000482: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
062252,000483:
062253,000484: 4000 SETLOC FFTAG4
062254,000485: 4000 BANK
062255,000486:
062256,000487: 5516 COUNT* $$/DSPLA
062257,000488: 5516 54162 BLANKET TS MPAC +6
062258,000489: 5517 40160 CS PLAYTEM4
062259,000490: 5520 70162 MASK MPAC +6
062260,000491: 5521 50161 INDEX MPAC +5
062261,000492: 5522 26160 ADS PLAYTEM4
062262,000493:
062263,000494: 5523 00002 TC Q
062264,000495:
062265,000496: 5524 05527 ENDMARK TC CLEARMRK
062266,000497: 5525 04655 TC POSTJUMP
062267,000498: 5526 21643 CADR MARKOVER
062268,000499:
062269,000500: 5527 34772 CLEARMRK CAF ZERO
062270,000501: 5530 55247 TS EXTVBACT
062271,000502:
062272,000503: 5531 44770 CS XDSPBIT
062273,000504: 5532 70100 MASK FLAGWRD4
062274,000505: 5533 54100 TS FLAGWRD4
062275,000506:
062276,000507: 5534 00002 TC Q
062277,000508:
062278,000509: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
062279,000510: # FINISHED.
062280,000511:
062281,000512: 5535 56001 VNFLASH XCH L
062282,000513: 5536 35545 CAF VNCADR
062283,000514: 5537 15542 TCF VNGODSP
062284,000515:
062285,000516: 5540 56001 VNFLASHR XCH L
062286,000517: 5541 35546 CAF VNRCADR
062287,000518: 5542 24002 VNGODSP INCR Q # BECAUSE OF RESTARTS
062288,000519: 5543 22155 LXCH PLAYTEM1
062289,000520: 5544 14642 TCF SWCALL
062290,000521:
062291,000522: 5545 20732 VNCADR CADR VNFLSH
062292,000523: 5546 20735 VNRCADR CADR VNFLSHR
062293,000524:
062294,000525: 10,2000 SETLOC DISPLAYS
062295,000526: 10,2000 BANK
062296,000527: # # Page 1460
062297,000528:
062298,000529: 10,2575 COUNT 10/DSPLA
062299,000530:
062300,000531: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH
062301,000532: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
062302,000533:
062303,000534: 10,2575 34772 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
062304,000535: 10,2576 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
062305,000536:
062306,000537: 10,2577 37664 CAF MARKFMSK # MARK,FLASH
062307,000538: 10,2600 12745 TCF GOFLASH2
062308,000539:
062309,000540: 10,2601 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
062310,000541: 10,2602 33733 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
062311,000542: 10,2603 12745 TCF GOFLASH2
062312,000543:
062313,000544: 10,2604 54155 GOMARK4 TS PLAYTEM1
062314,000545: 10,2605 33723 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
062315,000546: 10,2606 12745 TCF GOFLASH2
062316,000547:
062317,000548: 10,2607 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
062318,000549:
062319,000550: 10,2610 37664 CAF MARKFMSK
062320,000551: 10,2611 13103 TCF GODSPRS
062321,000552:
062322,000553: 10,2612 54155 MARKMONR TS PLAYTEM1 # USED FOR MARK MONITOR
062323,000554: 10,2613 33754 CAF MARK3MSK
062324,000555: 10,2614 12745 TCF GOFLASH2
062325,000556: 10,2615 34770 MAKEMARK CAF ONE
062326,000557: 10,2616 03172 TC COPIES
062327,000558:
062328,000559: 10,2617 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
062329,000560: 10,2620 73734 MASK OCT34300
062330,000561: 10,2621 10000 CCS A
062331,000562: 10,2622 12670 TCF CHKPRIO
062332,000563:
062333,000564: 10,2623 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY?
062334,000565: 10,2624 74760 MASK MRKNVBIT
062335,000566: 10,2625 00006 EXTEND
062336,000567: 10,2626 12630 BZF MARKPLAY # NO
062337,000568:
062338,000569: 10,2627 15205 TCF ENDOFJOB
062339,000570:
062340,000571: 10,2630 44773 MARKPLAY CS FIVE # RESET MARK OVER NORM, SET MARK
062341,000572: 10,2631 70100 MASK FLAGWRD4
062342,000573: 10,2632 64770 AD XDSPBIT
062343,000574: 10,2633 54100 TS FLAGWRD4
062344,000575: 10,2634 22007 GOGOMARK ZL # PERFORM
062345,000576: 10,2635 41274 CS MARKFLAG
062346,000577: 10,2636 74761 MASK DCMKPERF
062347,000578: 10,2637 10000 CCS A
062348,000579: 10,2640 12645 TCF +5
062349,000580: # # Page 1461
062350,000581: 10,2641 30367 CA MARKNV
062351,000582: 10,2642 74171 MASK MID7
062352,000583: 10,2643 54001 TS L
062353,000584: 10,2644 12651 TCF +5
062354,000585: 10,2645 41274 CS MARKFLAG
062355,000586: 10,2646 74764 MASK PERFRQST
062356,000587: 10,2647 10000 CCS A
062357,000588: 10,2650 12653 TCF MARKCOP
062358,000589: 10,2651 40367 CS MARKNV
062359,000590: 10,2652 54367 TS MARKNV
062360,000591:
062361,000592: 10,2653 34770 MARKCOP CAF ONE # MARK INDEX
062362,000593: 10,2654 54164 TS COPINDEX
062363,000594: 10,2655 13316 TCF NVDSP +1
062364,000595: 10,2656 30165 COPYTOGO CA MPAC2SAV
062365,000596: 10,2657 54156 TS MPAC +2
062366,000597:
062367,000598: 10,2660 50164 COPYPACS INDEX COPINDEX
062368,000599: 10,2661 33740 CAF PRIOOCT
062369,000600: 10,2662 54162 TS GENMASK
062370,000601:
062371,000602: 10,2663 50164 INDEX COPINDEX
062372,000603: 10,2664 31273 CAF EBANKSAV
062373,000604: 10,2665 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
062374,000605:
062375,000606: 10,2666 54003 TS EBANK
062376,000607:
062377,000608: 10,2667 00002 TC Q
062378,000609:
062379,000610: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY
062380,000611: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
062381,000612: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
062382,000613: # UNTIL ALL MARKING IS FINISHED.
062383,000614:
062384,000615: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
062385,000616: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
062386,000617:
062387,000618: 10,2670 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
062388,000619: 10,2671 77646 MASK 14,12,7
062389,000620: 10,2672 10000 CCS A
062390,000621: 10,2673 13676 TCF MARSLEEP
062391,000622:
062392,000623: 10,2674 34766 CAF MKOVBIT # SET MARK OVER NORM
062393,000624: 10,2675 03755 TC UPENT2
062394,000625:
062395,000626: 10,2676 13000 TCF SETNORM
062396,000627:
062397,000628: 10,2677 30367 MARKPERF CA MARKNV
062398,000629: 10,2700 74171 MASK VERBMASK
062399,000630: 10,2701 13350 TCF NV50DSP
062400,000631:
062401,000632: # # Page 1462
062402,000633: 10,2702 54155 GODSP TS PLAYTEM1
062403,000634:
062404,000635: 10,2703 34772 GODSP2 CAF DSPONLY
062405,000636: 10,2704 12745 TCF GOFLASH2
062406,000637:
062407,000638: 10,2705 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
062408,000639:
062409,000640: 10,2706 34763 CAF RETDSPY # SET BIT6 TO RETURN TO USER AFTER NVSUB
062410,000641: 10,2707 12745 TCF GOFLASH2
062411,000642:
062412,000643: 10,2710 54155 GODSPR TS PLAYTEM1
062413,000644:
062414,000645: 10,2711 34772 GODSPR1 CAF DSPONLY
062415,000646: 10,2712 54160 GODSPR2 TS PLAYTEM4
062416,000647:
062417,000648: 10,2713 34772 CAF ZERO # * DONT MOVE
062418,000649: 10,2714 13105 TCF GODSPRS1
062419,000650:
062420,000651: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
062421,000652: # SET UP TO BE STARTED OR RESTARTED.
062422,000653:
062423,000654: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
062424,000655: # OLD DISPLAY.
062425,000656:
062426,000657: # CALLING SEQUENCE FOR CLEANDSP-
062427,000658:
062428,000659: # TC BANKCALL
062429,000660: # CADR CLEANDSP
062430,000661:
062431,000662: 10,2715 34772 CLEANDSP CAF ZERO
062432,000663: 10,2716 54155 REFLASH TS PLAYTEM1
062433,000664:
062434,000665: 10,2717 33722 CAF REDOMASK # FLASH AND PERMIT
062435,000666: 10,2720 12745 TCF GOFLASH2
062436,000667:
062437,000668: 10,2721 54155 REGODSP TS PLAYTEM1
062438,000669:
062439,000670: 10,2722 34753 CAF REFLSH
062440,000671: 10,2723 12745 TCF GOFLASH2
062441,000672:
062442,000673: 10,2724 54155 REGODSPR TS PLAYTEM1
062443,000674:
062444,000675: 10,2725 34753 CAF REFLSH
062445,000676: 10,2726 12712 TCF GODSPR2
062446,000677:
062447,000678: 10,2727 54155 CLOCPLAY TS PLAYTEM1
062448,000679: 10,2730 33750 CAF CLOCKCON
062449,000680: 10,2731 12745 TCF GOFLASH2
062450,000681: 10,2732 05547 VNFLSH TC UPFLAG
062451,000682: 10,2733 00111 ADRES VNFLAG
062452,000683: # # Page 1463
062453,000684: 10,2734 12744 TCF GOFLASH +1
062454,000685:
062455,000686: 10,2735 05547 VNFLSHR TC UPFLAG
062456,000687: 10,2736 00111 ADRES VNFLAG
062457,000688: 10,2737 34765 CAF FLSHRQST
062458,000689: 10,2740 54160 TS PLAYTEM4 # IT'S A FLASHING DISPLAY
062459,000690: 10,2741 34772 CAF ZERO # RETURN TO CALLER'S Q +1
062460,000691: 10,2742 13105 TCF GODSPRS1
062461,000692:
062462,000693: 10,2743 54155 GOFLASH TS PLAYTEM1
062463,000694:
062464,000695: 10,2744 34765 +1 CAF FLSHRQST # LEAVE ONLY FLASH BIT SET
062465,000696: 10,2745 54160 GOFLASH2 TS PLAYTEM4
062466,000697:
062467,000698: 10,2746 03157 TC SAVELOCS
062468,000699:
062469,000700: 10,2747 13012 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
062470,000701:
062471,000702: 10,2750 54155 PRIODSPR TS PLAYTEM1
062472,000703:
062473,000704: 10,2751 35013 CAF BITS7+4
062474,000705: 10,2752 13103 TCF GODSPRS
062475,000706:
062476,000707: 10,2753 54155 PRIODSP TS PLAYTEM1
062477,000708:
062478,000709: 10,2754 35013 SETPRIO CAF BITS7+4
062479,000710: 10,2755 12745 TCF GOFLASH2
062480,000711:
062481,000712: 10,2756 34772 MAKEPRIO CAF ZERO
062482,000713: 10,2757 54164 TS COPINDEX
062483,000714:
062484,000715: 10,2760 03623 TC LINUSCHR
062485,000716: 10,2761 12766 TCF HIPRIO # LINUS RETURN
062486,000717: 10,2762 30100 CA FLAGWRD4
062487,000718: 10,2763 73747 MASK BIT14+7 # IS PRIO IN ENDIDLE OR BUSY
062488,000719: 10,2764 10000 CCS A
062489,000720: 10,2765 13041 TCF PRIOBORT # YES, ABORT
062490,000721:
062491,000722: 10,2766 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
062492,000723: 10,2767 77716 MASK BIT15+9
062493,000724: 10,2770 00006 EXTEND
062494,000725: 10,2771 12774 BZF ASKIFNRM # NO
062495,000726:
062496,000727: 10,2772 34772 SETMARK CAF ZERO
062497,000728: 10,2773 13226 TCF JOBXCHS
062498,000729:
062499,000730: 10,2774 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
062500,000731: 10,2775 73745 MASK BIT13+8
062501,000732: 10,2776 00006 EXTEND
062502,000733: 10,2777 13002 BZF OKTOCOPY # NO
062503,000734: # # Page 1464
062504,000735:
062505,000736: 10,3000 34770 SETNORM CAF ONE
062506,000737: 10,3001 13226 TCF JOBXCHS
062507,000738:
062508,000739: 10,3002 03171 OKTOCOPY TC COPYNORM
062509,000740: 10,3003 03431 TC WITCHONE
062510,000741:
062511,000742: 10,3004 05167 TC JOBWAKE
062512,000743:
062513,000744: 10,3005 03445 TC XCHTOEND
062514,000745:
062515,000746: 10,3006 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
062516,000747: 10,3007 55005 TS PRIOTIME
062517,000748:
062518,000749: 10,3010 34772 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
062519,000750: 10,3011 13062 TCF PRIOPLAY
062520,000751:
062521,000752: 10,3012 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
062522,000753: 10,3013 77660 MASK PRIO37
062523,000754: 10,3014 54163 TS USERPRIO
062524,000755:
062525,000756: 10,3015 37655 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
062526,000757: 10,3016 05176 TC PRIOCHNG
062527,000758:
062528,000759: 10,3017 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
062529,000760: 10,3020 73735 MASK BITS15+7
062530,000761: 10,3021 10000 CCS A
062531,000762: 10,3022 12756 TCF MAKEPRIO # ITS PRIO
062532,000763: 10,3023 13025 TCF IFLEGAL
062533,000764: 10,3024 12615 TCF MAKEMARK # ITS MARK
062534,000765:
062535,000766: 10,3025 34767 IFLEGAL CAF TWO
062536,000767: 10,3026 54164 TS COPINDEX
062537,000768:
062538,000769: 10,3027 03623 TC LINUSCHR
062539,000770:
062540,000771: 10,3030 13043 TCF OKTOPLAY # LINUS RETURN
062541,000772: 10,3031 41275 CS EBANKTEM
062542,000773: 10,3032 74765 MASK FLSHRQST
062543,000774: 10,3033 10000 CCS A
062544,000775: 10,3034 13043 TCF OKTOPLAY # NO
062545,000776:
062546,000777: 10,3035 30100 CA FLAGWRD4 # WAS NORM ASLEEP
062547,000778: 10,3036 73727 MASK NBUSMASK # ARE ANY NORMS ASLEEP
062548,000779: 10,3037 00006 EXTEND
062549,000780: 10,3040 13043 BZF OKTOPLAY # NO
062550,000781:
062551,000782: 10,3041 05726 PRIOBORT TC POODOO
062552,000783: 10,3042 21502 OCT 21502 # ILLEGAL FLASHING DISPLAY
062553,000784:
062554,000785: 10,3043 03173 OKTOPLAY TC COPIES2
062555,000786: # # Page 1465
062556,000787: 10,3044 30163 CA USERPRIO
062557,000788: 10,3045 00006 EXTEND
062558,000789: 10,3046 04007 ROR SUPERBNK
062559,000790: 10,3047 54365 TS RESTREG
062560,000791:
062561,000792: 10,3050 30100 CA FLAGWRD4 # PRIO OR MARK GOING
062562,000793: 10,3051 73730 MASK PMMASK
062563,000794: 10,3052 10000 CCS A
062564,000795: 10,3053 13210 TCF GOSLEEPS # YES
062565,000796:
062566,000797: 10,3054 13056 TCF +2
062567,000798: 10,3055 13210 TCF GOSLEEPS # MARK GOING
062568,000799:
062569,000800: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
062570,000801:
062571,000802: 10,3056 03431 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
062572,000803: 10,3057 05167 TC JOBWAKE
062573,000804:
062574,000805: 10,3060 03445 TC XCHTOEND
062575,000806:
062576,000807: 10,3061 34767 PLAYJUM1 CAF TWO
062577,000808: 10,3062 54164 PRIOPLAY TS COPINDEX
062578,000809:
062579,000810: 10,3063 13315 TCF GOPLAY
062580,000811:
062581,000812: 10,3064 54155 EXDSPRET TS PLAYTEM1
062582,000813:
062583,000814: 10,3065 37667 CAF BIT15+6
062584,000815: 10,3066 12745 TCF GOFLASH2
062585,000816:
062586,000817: 10,3067 55250 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
062587,000818: 10,3070 33720 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
062588,000819:
062589,000820: 10,3071 54155 GOPERFS TS PLAYTEM1
062590,000821:
062591,000822: 10,3072 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
062592,000823: 10,3073 12745 TCF GOFLASH2
062593,000824:
062594,000825: 10,3074 54775 GOPERF4 TS OPTION1 # DESIRED OPTION CODE
062595,000826:
062596,000827: 10,3075 34537 CAF V04N06
062597,000828: 10,3076 54155 TS PLAYTEM1
062598,000829:
062599,000830: 10,3077 35775 CAF PERF4MSK # FLASH, PERFORM, AND BLANK R3
062600,000831: 10,3100 12745 TCF GOFLASH2
062601,000832:
062602,000833: 10,3101 54155 GOFLASHR TS PLAYTEM1
062603,000834:
062604,000835: 10,3102 34765 CAF FLSHRQST # LEAVE ONLY FLASH BIT SET
062605,000836: 10,3103 54160 GODSPRS TS PLAYTEM4
062606,000837: # # Page 1466
062607,000838: 10,3104 36214 CAF THREE
062608,000839:
062609,000840: 10,3105 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
062610,000841: 10,3106 54072 TS RUPTREG3
062611,000842:
062612,000843: 10,3107 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
062613,000844: 10,3110 77660 MASK PRIO37
062614,000845: 10,3111 54063 TS NEWPRIO
062615,000846:
062616,000847: 10,3112 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
062617,000848: 10,3113 74765 MASK FLSHRQST
062618,000849: 10,3114 10000 CCS A
062619,000850: 10,3115 13123 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
062620,000851: 10,3116 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
062621,000852: 10,3117 05121 TC NOVAC
062622,000853: 10,3120 0003777 EBANK= WHOCARES
062623,000854: 10,3120 03012 20067 2CADR MAKEPLAY
062624,000855:
062625,000856: 10,3122 13131 TCF BOTHJOBS
062626,000857:
062627,000858: 10,3123 30006 VACDSP CA BBANK
062628,000859: 10,3124 00006 EXTEND
062629,000860: 10,3125 04007 ROR SUPERBNK
062630,000861: 10,3126 54001 TS L
062631,000862: 10,3127 33744 CAF MAKEGEN
062632,000863: 10,3130 05146 TC SPVAC
062633,000864:
062634,000865: 10,3131 03157 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
062635,000866:
062636,000867: 10,3132 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
062637,000868: 10,3133 30156 DCA MPAC +1
062638,000869: 10,3134 50064 INDEX LOCCTR
062639,000870: 10,3135 52156 DXCH MPAC +1
062640,000871:
062641,000872: 10,3136 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
062642,000873: 10,3137 30160 DCA MPAC +3
062643,000874: 10,3140 50064 INDEX LOCCTR
062644,000875: 10,3141 52160 DXCH MPAC +3
062645,000876:
062646,000877: 10,3142 30064 CA LOCCTR
062647,000878: 10,3143 54161 TS MPAC +5
062648,000879:
062649,000880: 10,3144 03164 TC SAVELOCR
062650,000881: 10,3145 00003 RELINT
062651,000882:
062652,000883: 10,3146 14660 TCF BANKJUMP # CALL CADR +4
062653,000884:
062654,000885: 10,3147 55250 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
062655,000886:
062656,000887: 10,3150 33720 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
062657,000888:
062658,000889: # # Page 1467
062659,000890:
062660,000891: 10,3151 54155 GOPERFRS TS PLAYTEM1
062661,000892:
062662,000893: 10,3152 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
062663,000894: 10,3153 13103 TCF GODSPRS
062664,000895:
062665,000896: 10,3154 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062666,000897:
062667,000898: 10,3155 35001 CAF PERF2MSK
062668,000899: 10,3156 13103 TCF GODSPRS
062669,000900:
062670,000901: 10,3157 00004 SAVELOCS INHINT
062671,000902:
062672,000903: 10,3160 45046 CS EBANK7 # GETS ALL EBANK BITS OFF
062673,000904: 10,3161 70160 MASK PLAYTEM4
062674,000905: 10,3162 60003 AD EBANK
062675,000906: 10,3163 54160 TS PLAYTEM4
062676,000907:
062677,000908: 10,3164 22002 SAVELOCR LXCH Q
062678,000909:
062679,000910: 10,3165 04665 TC MAKECADR
062680,000911: 10,3166 54157 TS PLAYTEM3
062681,000912:
062682,000913: 10,3167 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
062683,000914: 10,3170 00001 TC L
062684,000915:
062685,000916: 10,3171 34772 COPYNORM CAF ZERO
062686,000917: 10,3172 54164 COPIES TS COPINDEX
062687,000918: 10,3173 30160 COPIES2 CA PLAYTEM4 # FLAGWORD
062688,000919: 10,3174 50164 INDEX COPINDEX
062689,000920: 10,3175 55273 TS EBANKSAV # EQUIV TO DSPFLG
062690,000921:
062691,000922: 10,3176 75004 MASK CADRMASK # FLASH AND GODSPRET
062692,000923: 10,3177 00006 EXTEND
062693,000924: 10,3200 13204 BZF SKIPADD
062694,000925:
062695,000926: 10,3201 30157 CA PLAYTEM3
062696,000927: 10,3202 50164 INDEX COPINDEX
062697,000928: 10,3203 54371 TS CADRFLSH
062698,000929:
062699,000930: 10,3204 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
062700,000931: 10,3205 50164 INDEX COPINDEX
062701,000932: 10,3206 54366 TS NVWORD
062702,000933:
062703,000934: 10,3207 13454 TCF RELINTQ
062704,000935:
062705,000936: 10,3210 50164 GOSLEEPS INDEX COPINDEX
062706,000937: 10,3211 33740 CA PRIOOCT
062707,000938: 10,3212 75045 MASK WAITMASK
062708,000939: 10,3213 03755 TC UPENT2
062709,000940: 10,3214 44770 CS ONE
062710,000941: # # Page 1468
062711,000942: 10,3215 60164 AD COPINDEX
062712,000943: 10,3216 54154 TS FACEREG
062713,000944:
062714,000945: 10,3217 50154 XCHSLEEP INDEX FACEREG
062715,000946: 10,3220 33725 CAF WAKECADR
062716,000947: 10,3221 05167 TC JOBWAKE # FIND CADR IN JOB AREA
062717,000948:
062718,000949: 10,3222 03445 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
062719,000950:
062720,000951: 10,3223 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
062721,000952: 10,3224 33725 CAF WAKECADR
062722,000953: 10,3225 15163 TCF JOBSLEEP
062723,000954:
062724,000955: 10,3226 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
062725,000956: 10,3227 03431 TC WITCHONE
062726,000957: 10,3230 05167 TC JOBWAKE
062727,000958: 10,3231 30154 CA FACEREG
062728,000959: 10,3232 50064 INDEX LOCCTR
062729,000960: 10,3233 54154 TS FACEREG
062730,000961:
062731,000962: 10,3234 33752 CAF XCHQADD
062732,000963: 10,3235 03446 TC XCHNYLOC
062733,000964:
062734,000965: 10,3236 50154 INDEX FACEREG
062735,000966: 10,3237 33741 CA MARKOCT
062736,000967: 10,3240 73743 MASK IDLESLEP
062737,000968: 10,3241 03762 TC DOWNENT2
062738,000969: 10,3242 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
062739,000970: 10,3243 34764 CA MRUPTBIT # BIT5 FOR MARK, BIT4 FOR NORMAL
062740,000971: 10,3244 03755 TC UPENT2 # FLAG ROUTINE DOES RELINT
062741,000972: 10,3245 30100 CA FLAGWRD4
062742,000973: 10,3246 74766 MASK MKOVBIT # IF BIT 3 THEN MARK OVER NORM
062743,000974: 10,3247 10000 CCS A
062744,000975: 10,3250 02630 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
062745,000976: 10,3251 13002 TCF OKTOCOPY
062746,000977:
062747,000978: 10,3252 34772 MARKWAKE CAF ZERO
062748,000979: 10,3253 54160 WAKEPLAY TS TEMPOR2
062749,000980:
062750,000981: 10,3254 50160 INDEX TEMPOR2
062751,000982: 10,3255 33736 CA BITS5+11
062752,000983: 10,3256 03762 TC DOWNENT2
062753,000984: 10,3257 50160 INDEX TEMPOR2
062754,000985: 10,3260 33725 CAF WAKECADR
062755,000986: 10,3261 05167 TC JOBWAKE
062756,000987:
062757,000988: 10,3262 13555 TCF ENDRET
062758,000989:
062759,000990: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
062760,000991: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
062761,000992: # # Page 1469
062762,000993: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
062763,000994: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
062764,000995:
062765,000996: 10,3263 31275 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK
062766,000997: 10,3264 54003 TS EBANK
062767,000998:
062768,000999: 10,3265 30365 CA RESTREG # SUPERBANK AND JOB PRIORITY
062769,001000: 10,3266 00006 EXTEND # RESTORE SUPERBANK
062770,001001: 10,3267 01007 WRITE SUPERBNK # CHAN 07
062771,001002: 10,3270 77660 MASK PRIO37
062772,001003: 10,3271 05176 TC PRIOCHNG
062773,001004:
062774,001005: 10,3272 46214 CS THREE
062775,001006: 10,3273 60373 AD TEMPFLSH
062776,001007: 10,3274 14660 TCF BANKJUMP
062777,001008:
062778,001009: 10,3275 00003 PINBRNCH RELINT # FOR GOPIN USERS
062779,001010: 10,3276 31276 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
062780,001011: 10,3277 54156 TS MPAC +2 # ONLY
062781,001012:
062782,001013: 10,3300 30100 CA FLAGWRD4 # PINBRANCH CONDITION
062783,001014: 10,3301 77673 MASK PINMASK
062784,001015: 10,3302 10000 CCS A
062785,001016: 10,3303 13306 TCF +3
062786,001017: 10,3304 13713 TCF ERASER # ** NOTHING IN ENDIDLE
062787,001018: 10,3305 12630 TCF MARKPLAY
062788,001019:
062789,001020: 10,3306 05547 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
062790,001021: 10,3307 00105 ADRES PINBRFLG
062791,001022:
062792,001023: 10,3310 34753 CAF PRIODBIT # PRIO INTERRUPTED
062793,001024: 10,3311 70100 MASK FLAGWRD4
062794,001025: 10,3312 10000 CCS A
062795,001026: 10,3313 13010 TCF KEEPPRIO
062796,001027:
062797,001028: 10,3314 13061 TCF PLAYJUM1
062798,001029:
062799,001030: 10,3315 22007 NVDSP ZL
062800,001031: 10,3316 02660 TC COPYPACS
062801,001032: 10,3317 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
062802,001033: 10,3320 74774 MASK SEVEN # USER REQUESTS BLANKING MONITOR
062803,001034: 10,3321 26001 ADS L
062804,001035: 10,3322 44754 CS 2NDPERF
062805,001036: 10,3323 50164 INDEX COPINDEX
062806,001037: 10,3324 71273 MASK DSPFLG
062807,001038: 10,3325 50164 INDEX COPINDEX
062808,001039: 10,3326 55273 TS DSPFLG
062809,001040:
062810,001041: 10,3327 74761 MASK DCMKPERF
062811,001042: 10,3330 10000 CCS A
062812,001043: # # Page 1470
062813,001044: 10,3331 35044 CA OCT2600
062814,001045: 10,3332 54141 TS TEM1
062815,001046:
062816,001047: 10,3333 30156 CA MPAC +2
062817,001048: 10,3334 54165 TS MPAC2SAV
062818,001049:
062819,001050: 10,3335 55276 TS MARK2PAC # * FOR DISK ONLY *
062820,001051: 10,3336 50164 INDEX COPINDEX
062821,001052: 10,3337 10366 CCS NVWORD
062822,001053: 10,3340 13347 TCF NVDSP1
062823,001054: 10,3341 13455 TCF CLEANEND
062824,001055: 10,3342 40367 CS MARKNV
062825,001056: 10,3343 54367 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
062826,001057: 10,3344 76043 MASK LOW7
062827,001058: 10,3345 63731 AD V05N00M1
062828,001059: 10,3346 60141 AD TEM1
062829,001060: 10,3347 64770 NVDSP1 AD ONE
062830,001061: 10,3350 04203 NV50DSP TC NVMONOPT
062831,001062: 10,3351 13467 TCF REST # IF BUSY
062832,001063: 10,3352 04417 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
062833,001064:
062834,001065: 10,3353 02656 TC COPYTOGO # MPACS DESTROYED BY NVSUB
062835,001066: 10,3354 33732 CAF OCT700
062836,001067: 10,3355 03762 TC DOWNENT2
062837,001068:
062838,001069: 10,3356 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
062839,001070: 10,3357 04264 TC BLANKSUB
062840,001071: 10,3360 13315 TCF NVDSP
062841,001072: 10,3361 34764 PERFCHEK CAF PERFRQST # BIT5 FOR PERFORM
062842,001073: 10,3362 70160 MASK TEMPOR2
062843,001074: 10,3363 10000 CCS A # IS THIS A GOPERF DISPLAY
062844,001075: 10,3364 13407 TCF 1STOR2ND # YES
062845,001076:
062846,001077: 10,3365 34765 GOANIDLE CAF FLSHRQST
062847,001078: 10,3366 70160 MASK TEMPOR2
062848,001079: 10,3367 10000 CCS A
062849,001080: 10,3370 13504 TCF FLASHSUB # IT IS
062850,001081:
062851,001082: 10,3371 40160 CS TEMPOR2 # IS THIS A GODSPRET
062852,001083: 10,3372 74763 MASK RETDSPY
062853,001084: 10,3373 10000 CCS A
062854,001085: 10,3374 13401 TCF ISITN00
062855,001086:
062856,001087: 10,3375 50164 INDEX COPINDEX
062857,001088: 10,3376 30371 CA CADRFLSH
062858,001089: 10,3377 54157 TS MPAC +3
062859,001090: 10,3400 13602 TCF ENDIT
062860,001091:
062861,001092: 10,3401 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
062862,001093: 10,3402 30366 CA NVWORD
062863,001094: # # Page 1471
062864,001095: 10,3403 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
062865,001096: 10,3404 00006 EXTEND
062866,001097: 10,3405 13504 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
062867,001098:
062868,001099: 10,3406 15205 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT
062869,001100:
062870,001101: 10,3407 30160 1STOR2ND CA TEMPOR2
062871,001102: 10,3410 74754 MASK 2NDPERF
062872,001103: 10,3411 10000 CCS A
062873,001104: 10,3412 13365 TCF GOANIDLE # SECOND
062874,001105:
062875,001106: 10,3413 34754 CA 2NDPERF
062876,001107: 10,3414 50164 INDEX COPINDEX
062877,001108: 10,3415 27273 ADS DSPFLG
062878,001109:
062879,001110: 10,3416 22007 ZL
062880,001111: 10,3417 00006 EXTEND # IS IT MARK
062881,001112: 10,3420 62677 BZMF MARKPERF # YES
062882,001113:
062883,001114: 10,3421 74755 MASK V99PSTE
062884,001115: 10,3422 00006 EXTEND
062885,001116: 10,3423 13427 BZF V50PASTE
062886,001117: 10,3424 40777 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
062887,001118: 10,3425 63746 AD V97N00
062888,001119: 10,3426 13350 TCF NV50DSP
062889,001120: 10,3427 33721 V50PASTE CAF V50N00
062890,001121: 10,3430 13350 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
062891,001122:
062892,001123: 10,3431 44764 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
062893,001124: 10,3432 00006 EXTEND
062894,001125: 10,3433 03011 WAND DSALMOUT
062895,001126:
062896,001127: 10,3434 30100 CA FLAGWRD4
062897,001128: 10,3435 73732 MASK NVBUSMSK # IS IT NVSUB ASLEEP
062898,001129: 10,3436 10000 CCS A
062899,001130: 10,3437 34770 CAF ONE
062900,001131: 10,3440 54001 TS L
062901,001132: 10,3441 34772 CAF ZERO
062902,001133: 10,3442 50001 INDEX L
062903,001134: 10,3443 57245 XCH CADRSTOR
062904,001135:
062905,001136: 10,3444 00002 TC Q
062906,001137:
062907,001138: 10,3445 34170 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
062908,001139: 10,3446 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
062909,001140: 10,3447 00006 EXTEND
062910,001141: 10,3450 63454 BZMF RELINTQ # NO
062911,001142: 10,3451 56064 XCH LOCCTR # YES
062912,001143: 10,3452 50064 INDEX LOCCTR
062913,001144: 10,3453 54164 TS LOC
062914,001145:
062915,001146: # # Page 1472
062916,001147:
062917,001148: 10,3454 15642 RELINTQ TCF REQ # BACK TO USER
062918,001149: 10,3455 37654 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
062919,001150: 10,3456 05135 TC FINDVAC
062920,001151: 10,3457 0370 EBANK= NVSAVE
062921,001152: 10,3457 04247 04060 2CADR JAMTERM
062922,001153:
062923,001154: 10,3461 13505 TCF FLASHSUB +1
062924,001155:
062925,001156: 10,3462 30100 ISITPRIO CA FLAGWRD4
062926,001157: 10,3463 77667 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
062927,001158: 10,3464 00006 EXTEND
062928,001159: 10,3465 13041 BZF PRIOBORT
062929,001160: 10,3466 15205 TCF ENDOFJOB
062930,001161:
062931,001162: 10,3467 11245 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
062932,001163: 10,3470 15205 TCF ENDOFJOB # YES
062933,001164: 10,3471 13473 TCF RESTSLEP
062934,001165:
062935,001166: 10,3472 15205 TCF ENDOFJOB
062936,001167:
062937,001168: 10,3473 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
062938,001169: 10,3474 73732 MASK NVBUSMSK
062939,001170: 10,3475 03755 TC UPENT2
062940,001171: 10,3476 04240 NVSUBUSY TC ISCADR+0
062941,001172: 10,3477 04356 TC RELDSPON
062942,001173: 10,3500 50164 INDEX COPINDEX
062943,001174: 10,3501 33724 CAF NVCADR
062944,001175: 10,3502 55246 TS DSPLIST
062945,001176: 10,3503 05163 TC JOBSLEEP
062946,001177: 10,3504 04360 FLASHSUB TC FLASHON
062947,001178:
062948,001179: 10,3505 30164 +1 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
062949,001180: 10,3506 54157 TS COPMPAC
062950,001181:
062951,001182: 10,3507 30162 CA GENMASK
062952,001183: 10,3510 77675 MASK IDLEMASK
062953,001184: 10,3511 03755 TC UPENT2
062954,001185: 10,3512 11245 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
062955,001186: 10,3513 13462 TCF ISITPRIO
062956,001187: 10,3514 13516 TCF +2
062957,001188: 10,3515 13462 TCF ISITPRIO
062958,001189:
062959,001190: 10,3516 04240 ENDIDLE TC ISCADR+0
062960,001191: 10,3517 33557 CA ENDIDRET
062961,001192: 10,3520 55245 TS CADRSTOR
062962,001193: 10,3521 05163 TC JOBSLEEP
062963,001194: 10,3522 44354 IDLERET1 CS LOWLOAD
062964,001195: 10,3523 60154 AD MPAC # VERBREG
062965,001196: 10,3524 00006 EXTEND
062966,001197: # # Page 1473
062967,001198: 10,3525 26000 DIM A
062968,001199: 10,3526 00006 EXTEND
062969,001200: 10,3527 13703 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
062970,001201: 10,3530 30100 OKTOENT CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
062971,001202: 10,3531 74076 MASK BIT15/14
062972,001203: 10,3532 10000 CCS A
062973,001204: 10,3533 13536 TCF TIMECHEK # PRIO ENDIDLE RETURN
062974,001205: 10,3534 13651 TCF NORMRET # NORMAL ENDIDLE RETURN
062975,001206: 10,3535 13640 TCF MARKRET # MARK ENDIDLE RETURN
062976,001207:
062977,001208: 10,3536 30366 TIMECHEK CA NVWORD
062978,001209: 10,3537 00006 EXTEND
062979,001210: 10,3540 13651 BZF NORMRET
062980,001211:
062981,001212: 10,3541 40025 CS TIME1
062982,001213: 10,3542 61005 AD PRIOTIME
062983,001214: 10,3543 10000 CCS A
062984,001215: 10,3544 40000 COM
062985,001216: 10,3545 67663 AD OCT37776
062986,001217: 10,3546 64770 AD ONE
062987,001218: 10,3547 63774 AD -2SEC
062988,001219: 10,3550 00006 EXTEND
062989,001220: 10,3551 63010 BZMF KEEPPRIO
062990,001221:
062991,001222: 10,3552 13651 TCF NORMRET
062992,001223:
062993,001224: 10,3553 34770 NORMWAKE CAF ONE
062994,001225: 10,3554 13253 TCF WAKEPLAY
062995,001226:
062996,001227:
062997,001228: 10,3555 11217 ENDRET CCS LOADSTAT # -0=V32 OR E, -1=V33 OR PRO, -2=V34
062998,001229: 10,3556 15205 TCF ENDOFJOB # +1=ENDMARK
062999,001230: 10,3557 21522 ENDIDRET CADR IDLERET1 # CANNOT GET HERE
063000,001231: 10,3560 13561 TCF +1
063001,001232: 10,3561 30100 CA FLAGWRD4 # IS IT A VNFLASH
063002,001233: 10,3562 74767 MASK VNBIT # (BIT2)
063003,001234: 10,3563 60157 AD COPMPAC # AND A NORMAL DISPLAY
063004,001235: 10,3564 66061 AD NEG4
063005,001236: 10,3565 00006 EXTEND
063006,001237: 10,3566 13607 BZF VNRET
063007,001238: 10,3567 31217 CA LOADSTAT
063008,001239: 10,3570 64767 AD TWO
063009,001240: 10,3571 50157 ENDRET1 INDEX COPMPAC
063010,001241: 10,3572 60371 AD CADRFLSH
063011,001242: 10,3573 54157 ENDRET2 TS MPAC +3
063012,001243:
063013,001244: 10,3574 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
063014,001245: 10,3575 73751 MASK PINIDMSK
063015,001246: 10,3576 03762 TC DOWNENT2
063016,001247: 10,3577 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
063017,001248: 10,3600 04202 TC NVSUB
063018,001249: # # Page 1474
063019,001250: 10,3601 13602 TCF +1
063020,001251:
063021,001252: 10,3602 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
063022,001253: 10,3603 77660 MASK PRIO37
063023,001254: 10,3604 05176 TC PRIOCHNG
063024,001255: 10,3605 30157 CA MPAC +3
063025,001256: 10,3606 14660 TCF BANKJUMP
063026,001257:
063027,001258: 10,3607 05561 VNRET TC DOWNFLAG
063028,001259: 10,3610 00111 ADRES VNFLAG
063029,001260: 10,3611 31217 CA LOADSTAT
063030,001261: 10,3612 64770 AD ONE
063031,001262: 10,3613 10000 CCS A
063032,001263: 10,3614 37700 CAF NEG3 # LOADOSTAT.-0
063033,001264: 10,3615 13571 TCF ENDRET1 # CANNOT GET HERE VIA CCS
063034,001265: 10,3616 13621 TCF TERMFLSH # LOADSTAT=-2
063035,001266: 10,3617 44770 CS ONE # COMPENSATE FOR INCREMENTED Q IN LEAD-IN
063036,001267: 10,3620 13571 TCF ENDRET1 # LOADSTAT=-1
063037,001268: 10,3621 33753 TERMFLSH CAF GOPOOCAD
063038,001269: 10,3622 13573 TCF ENDRET2
063039,001270:
063040,001271:
063041,001272: 10,3623 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
063042,001273: 10,3624 74753 MASK REFLSH
063043,001274: 10,3625 10000 CCS A
063044,001275: 10,3626 16706 TCF Q+1 # NO
063045,001276: 10,3627 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
063046,001277: 10,3630 50164 INDEX COPINDEX
063047,001278: 10,3631 60371 AD CADRFLSH
063048,001279: 10,3632 00006 EXTEND
063049,001280: 10,3633 13635 BZF +2 # YES
063050,001281:
063051,001282: 10,3634 00002 TC Q # NO
063052,001283: 10,3635 11215 CCS DSPLOCK # IS THE ASTRONAUT BUSY
063053,001284: 10,3636 05205 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
063054,001285: 10,3637 00002 TC Q
063055,001286:
063056,001287: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD.
063057,001288:
063058,001289: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
063059,001290: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
063060,001291: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP.
063061,001292:
063062,001293: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
063063,001294: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
063064,001295: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A
063065,001296: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
063066,001297:
063067,001298: 10,3640 34766 MARKRET CAF MKOVBIT
063068,001299: 10,3641 03762 TC DOWNENT2
063069,001300: # # Page 1475
063070,001301: 10,3642 13555 TCF ENDRET
063071,001302:
063072,001303: 10,3643 34770 MARKOVER CAF ONE
063073,001304: 10,3644 55217 TS LOADSTAT
063074,001305: 10,3645 30100 CA FLAGWRD4 # IS ENDIDFLG SET
063075,001306: 10,3646 74346 MASK BIT13-14 # IS NORMAL OR PRIO IN ENDIDLE
063076,001307: 10,3647 10000 CCS A
063077,001308: 10,3650 13306 TCF NORMBNCH
063078,001309:
063079,001310: 10,3651 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
063080,001311: 10,3652 73736 MASK BITS5+11 # OR WAITING
063081,001312: 10,3653 10000 CCS A
063082,001313: 10,3654 13252 TCF MARKWAKE
063083,001314:
063084,001315: 10,3655 30100 CA FLAGWRD4 # NO
063085,001316: 10,3656 73737 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
063086,001317: 10,3657 10000 CCS A
063087,001318: 10,3660 13553 TCF NORMWAKE # YES
063088,001319:
063089,001320: 10,3661 34765 CAF FLSHRQST # NO, WAS IT A FLASH REQUEST
063090,001321: 10,3662 64763 AD RETDSPY # OR GODSPRET
063091,001322: 10,3663 71275 MASK EBANKTEM
063092,001323: 10,3664 10000 CCS A
063093,001324: 10,3665 13555 TCF ENDRET # YES
063094,001325: 10,3666 30370 CA NVSAVE
063095,001326: 10,3667 00006 EXTEND
063096,001327: 10,3670 13555 BZF ENDRET
063097,001328:
063098,001329: 10,3671 35054 CAF PRIO15
063099,001330: 10,3672 05121 TC NOVAC
063100,001331: 10,3673 0366 EBANK= NVWORD
063101,001332: 10,3673 03061 20060 2CADR PLAYJUM1
063102,001333:
063103,001334:
063104,001335: 10,3675 13555 TCF ENDRET
063105,001336:
063106,001337: 10,3676 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY ON
063107,001338: 10,3677 73736 MASK BITS5+11
063108,001339: 10,3700 10000 CCS A
063109,001340: 10,3701 15205 TCF ENDOFJOB # YES
063110,001341: 10,3702 13210 TCF GOSLEEPS
063111,001342:
063112,001343: 10,3703 50157 LOADITIS INDEX COPMPAC
063113,001344: 10,3704 30366 CA NVWORD
063114,001345: 10,3705 76043 MASK LOW7
063115,001346: 10,3706 40000 COM
063116,001347: 10,3707 60155 AD MPAC +1 # NOUNREG
063117,001348: 10,3710 00006 EXTEND
063118,001349: 10,3711 13530 BZF OKTOENT # NO, THEN LOAD IS VALID
063119,001350: 10,3712 13275 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
063120,001351:
063121,001352: # # Page 1476
063122,001353: 10,3713 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM
063123,001354: 10,3714 04202 TC NVSUB
063124,001355: 10,3715 15205 TCF ENDOFJOB
063125,001356: 10,3716 15205 TCF ENDOFJOB
063126,001357:
063127,001358: 10,3717 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
063128,001359: 10,3720 00231 V01N25 VN 00125
063129,001360: 10,3721 14400 V50N00 VN 5000
063130,001361: 10,3722 5001 PERF2MSK EQUALS BITS4&5 # (OCTAL 30) FLASH, PERFORM
063131,001362: 10,3722 5775 PERF4MSK EQUALS OCT14 # FLASH, BLANK R3
063132,001363: 10,3722 20010 REDOMASK OCT 20010 # BITS 4 AND 14
063133,001364: 10,3723 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
063134,001365: 10,3724 21006 NVCADR CADR REDOPRIO
063135,001366: 10,3725 20630 WAKECADR CADR MARKPLAY
063136,001367: 10,3726 21061 CADR PLAYJUM1
063137,001368:
063138,001369: 10,3727 11210 NBUSMASK OCT 11210
063139,001370: 10,3730 66521 PMMASK OCT 66521
063140,001371: 10,3731 4171 VERBMASK = MID7 # (OCT 37600)
063141,001372: 10,3731 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
063142,001373: 10,3732 10,2576 GOXDSPF EQUALS GOMARKF
063143,001374: 10,3732 5524 ENDEXT EQUALS ENDMARK
063144,001375: 10,3732 0165 MPAC2SAV EQUALS BANKSET
063145,001376: 10,3732 00700 NVBUSMSK OCT 700
063146,001377: 10,3733 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
063147,001378: 10,3734 34300 OCT34300 OCT 34300
063148,001379: 10,3735 40100 BITS15+7 OCT 40100
063149,001380: 10,3736 02020 BITS5+11 OCT 2020 # * DONT MOVE
063150,001381: 10,3737 01010 BITS4+10 OCT 1010 # * DONT MOVE
063151,001382: 10,3740 4354 LOWLOAD EQUALS VBSP2LD
063152,001383: 10,3740 5004 CADRMASK EQUALS OCT50
063153,001384: 10,3740 7673 PINMASK EQUALS 13,14,15
063154,001385: 10,3740 10,3315 GOPLAY EQUALS NVDSP
063155,001386: # PRIOSAVE EQUALS R1SAVE
063156,001387: 10,3740 0157 COPMPAC EQUALS MPAC +3
063157,001388: 10,3740 0160 TEMPOR2 EQUALS MPAC +4
063158,001389: 10,3740 0164 COPINDEX EQUALS LOC
063159,001390: 10,3740 0163 USERPRIO EQUALS MODE
063160,001391: 10,3740 0162 GENMASK EQUALS MPAC +6
063161,001392: 10,3740 20144 PRIOOCT OCT 20144 # PRIO
063162,001393: 10,3741 42424 MARKOCT OCT 42424 # MARK
063163,001394: 10,3742 11254 OCT 11254 # NORM
063164,001395:
063165,001396: 10,3743 74700 IDLESLEP OCT 74700
063166,001397: 10,3744 5516 LINUS EQUALS BLANKET
063167,001398: 10,3744 0154 FACEREG EQUALS MPAC
063168,001399: 10,3744 0155 PLAYTEM1 EQUALS MPAC +1
063169,001400: 10,3744 0157 PLAYTEM3 EQUALS MPAC +3
063170,001401: 10,3744 0160 PLAYTEM4 EQUALS MPAC +4
063171,001402: 10,3744 03012 MAKEGEN GENADR MAKEPLAY
063172,001403: # # Page 1477
063173,001404: 10,3745 10200 BIT13+8 OCT 10200
063174,001405: 10,3746 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
063175,001406: 10,3747 20100 BIT14+7 OCT 20100
063176,001407: 10,3750 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
063177,001408: 10,3751 74040 PINIDMSK OCT 74040
063178,001409: 10,3752 7675 IDLEMASK EQUALS HIGH4
063179,001410: 10,3752 7667 ITISMASK EQUALS BIT15+6 # *** ENDIDLE ALLOW ***
063180,001411: 10,3752 7664 MARKFMSK EQUALS OT40010
063181,001412: 10,3752 03217 XCHQADD GENADR XCHSLEEP
063182,001413: 10,3753 5045 WAITMASK EQUALS PRIO3 # (OCTAL 3000)
063183,001414: 10,3753 10,3732 OCT700 EQUALS NVBUSMSK
063184,001415: 10,3753 55772 GOPOOCAD CADR TCGOPOOH
063185,001416: 10,3754 40210 MARK3MSK OCT 40210
063186,001417: 10,3755 4752 MKRQST = BIT15
063187,001418: 10,3755 4753 REFLSH = BIT14
063188,001419: 10,3755 4754 2NDPERF = BIT13
063189,001420: 10,3755 4755 V99PSTE = BIT12
063190,001421: 10,3755 4761 DCMKPERF = BIT8
063191,001422: 10,3755 4762 PRIODSPY = BIT7
063192,001423: 10,3755 4763 RETDSPY = BIT6
063193,001424: 10,3755 4764 PERFRQST = BIT5
063194,001425: 10,3755 4765 FLSHRQST = BIT4
063195,001426: 10,3755 4766 BLNKR3 = BIT3
063196,001427: 10,3755 4767 BLNKR2 = BIT2
063197,001428: 10,3755 4770 BLKNR1 = BIT1
063198,001429: 10,3755 4772 DSPONLY = ZERO
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc