Source Code
![]() |
These source-code files were obtained by digitally photographing the
Colossus 237 program listing from the private collection of original
AGC developer Fred Martin, and then modifying pre-existing Colossus 249
(Apollo 9) source files to incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968 |
059718,000002: # Copyright: Public domain.
059719,000003: # Filename: DISPLAY_INTERFACE_ROUTINES.agc
059720,000004: # Purpose: Part of the source code for Colossus build 237.
059721,000005: # This is for the Command Module's (CM) Apollo Guidance
059722,000006: # Computer (AGC), we believe for Apollo 8.
059723,000007: # Assembler: yaYUL
059724,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
059725,000009: # Website: www.ibiblio.org/apollo/index.html
059726,000010: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
059727,000011: # Mod history: 2011-04-17 JL Adapted from corresponding Colossus 249 file.
059728,000012:
059729,000013: # # Page 1416
059730,000014: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
059731,000015:
059732,000016: # 1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
059733,000017: # OUT UNDER CRITICAL ALARM CONDITIONS.
059734,000018: # 2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
059735,000019: # 3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
059736,000020: # SEQUENCE OF EVENTS.
059737,000021: # 4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
059738,000022: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
059739,000023:
059740,000024:
059741,000025: # 5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
059742,000026: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
059743,000027:
059744,000028: # 1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
059745,000029: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
059746,000030: # BUT NOT WAITING FOR A RESPONSE.
059747,000031: # 2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
059748,000032: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
059749,000033: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
059750,000034: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
059751,000035: # HAS INFO SAVED FOR RESTART PURPOSES.
059752,000036:
059753,000037:
059754,000038: # DISPLAY PRIORITIES WORK AS FOLLOWS-
059755,000039:
059756,000040: # INTERRUPTS-
059757,000041: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
059758,000042: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
059759,000043: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
059760,000044: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
059761,000045: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
059762,000046: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
059763,000047:
059764,000048: # ORDER OF WAITING DISPLAYS-
059765,000049: # 1. ASTRONAUT
059766,000050: # 2. PRIORITY
059767,000051: # 3. INTERRUPTED MARK
059768,000052: # 4. INTERRUPTED NORMAL
059769,000053:
059770,000054: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
059771,000055: # 6. MARK WAITING
059772,000056: # 7. NORMAL WAITING
059773,000057:
059774,000058: # # Page 1417
059775,000059: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE
059776,000060: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
059777,000061: # WILL FOLLOW LATER):
059778,000062:
059779,000063: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN
059780,000064: # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
059781,000065: # IS TO THE USERS CALLING LOC +1.
059782,000066: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
059783,000067: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
059784,000068: # 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
059785,000069: # USERS JOB.
059786,000070: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
059787,000071: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
059788,000072: # DESCRIPTION OF RESTARTS).
059789,000073: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES
059790,000074: # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE
059791,000075: # (V32) BRANCHES TO THE USERS CALL CADR +3.
059792,000076: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
059793,000077:
059794,000078: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
059795,000079:
059796,000080: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
059797,000081:
059798,000082: # 1. GODSP IS NOT RESTARTABLE
059799,000083: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
059800,000084: # CAF VXXNYY
059801,000085: # TC BANKCALL
059802,000086: # CADR GODSP
059803,000087:
059804,000088: # VXXNYY OCT OXXYY
059805,000089:
059806,000090: # ODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
059807,000091:
059808,000092: # CAF VXXNYY
059809,000093: # TC BANKCALL
059810,000094: # CADR GODSPR
059811,000095:
059812,000096: # ... ... IMMEDIATE RETURN OF GODSPR
059813,000097:
059814,000098: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
059815,000099: # THE ASTRONAUT (SEE NO. 7 ABOVE).
059816,000100:
059817,000101: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN.
059818,000102: # TC BANKCALL
059819,000103: # CADR GOFLASH
059820,000104: # ... ... TERMINATE RETURN
059821,000105: # ... ... PROCEED RETURN
059822,000106: # ... ... ENTER OR RECYCLE RETURN
059823,000107:
059824,000108: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
059825,000109: # # Page 1418
059826,000110: # V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO
059827,000111: # USER (SEE NO. 7 ABOVE).
059828,000112:
059829,000113: # GOPERF1 BLANKS REGISTERS R2 AND R3
059830,000114:
059831,000115: # CAF OCTXX CODE FOR CHECKLIST VALUE XX
059832,000116: # TC BANKCALL
059833,000117: # CADR GOPERF1
059834,000118: # ... ... TERMINATE RETURN
059835,000119: # ... ... PROCEED RETURN
059836,000120: # ... ... ENTER RETURN
059837,000121:
059838,000122: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE
059839,000123: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
059840,000124: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
059841,000125:
059842,000126: # GOPERF2 DOES NOT BLANK ANY REGISTERS
059843,000127:
059844,000128: # CAF VXXNYY VARIABLE NOUN YY. XX=0 OR 01.
059845,000129: # TC BANKCALL
059846,000130: # CADR GOPERF2
059847,000131: # ... ... TERMINATE RETURN
059848,000132: # ... ... PROCEED RETURN
059849,000133: # ... ... ENTER RETURN
059850,000134:
059851,000135: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3
059852,000136: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
059853,000137: # IS MADE TO THE USER (SEE NO. 7 ABOVE).
059854,000138:
059855,000139: # GOPERF3 BLANKS REGISTERS R2 AND R3
059856,000140:
059857,000141: # CAF DECXX REQUEST PERFORM ON PXX
059858,000142: # TC BANKCALL
059859,000143: # CADR GOPERF3
059860,000144: # ... ... TERMINATE RETURN
059861,000145: # ... ... PROCEED RETURN
059862,000146: # ... ... ENTER RETURN
059863,000147:
059864,000148: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
059865,000149: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
059866,000150: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
059867,000151:
059868,000152: # CAF OCTXX REQUEST PERFORM ON OPTION XX
059869,000153: # TC BANKCALL
059870,000154: # CADR GOPERF4
059871,000155: # ... ... TERMINATE RETURN
059872,000156: # ... ... PROCEED RETURN
059873,000157: # ... ... ENTER RETURN
059874,000158:
059875,000159: # GOPERF4 BLANKS REGISTER R3
059876,000160: # # Page 1419
059877,000161: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
059878,000162: # OUT.
059879,000163:
059880,000164: # CAF VXXNYY
059881,000165: # TC BANKCALL
059882,000166: # CADR GODSPRET
059883,000167:
059884,000168: # ... ... RETURN TO USER
059885,000169:
059886,000170: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
059887,000171: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
059888,000172:
059889,000173: # CAF VXXNYY
059890,000174: # TC BANKCALL
059891,000175: # CADR REGODSP
059892,000176:
059893,000177: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
059894,000178:
059895,000179: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
059896,000180: # TC BANKCALL
059897,000181: # CADR REFLASH
059898,000182: # ... ... TERMINATE RETURN
059899,000183: # ... ... PROCEED RETURN
059900,000184: # ... ... ENTER RETURN
059901,000185:
059902,000186: # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
059903,000187:
059904,000188: # CAF VXXNYY
059905,000189: # TC BANKCALL
059906,000190: # CADR GOFLASHR
059907,000191: # ... ... TERMINATE RETURN
059908,000192: # ... ... PROCEED RETURN
059909,000193: # ... ... ENTER OR RECYCLE RETURN
059910,000194:
059911,000195: # ... ... IMMEDIATE RETURN FROM GOFLASHR
059912,000196:
059913,000197: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
059914,000198:
059915,000199: # GOPERF1R BLANKS REGISTERS R2 AND R3
059916,000200:
059917,000201: # CAF OCTXX CODE FOR CHECKLIST VALUE XX.
059918,000202: # TC BANKCALL
059919,000203: # CADR GOPERF1R
059920,000204: # ... ... TERMINATE RETURN
059921,000205: # ... ... PROCEED RETURN
059922,000206: # ... ... ENTER RETURN
059923,000207:
059924,000208: # ... ... IMMEDIATE RETURN FROM GOPERF1R
059925,000209:
059926,000210: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
059927,000211: # # Page 1420
059928,000212: # GOPERF2R DOES NOT BLANK ANY REGISTERS
059929,000213:
059930,000214: # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01
059931,000215: # TC BANKCALL
059932,000216: # CADR GOPERF2R
059933,000217: # ... ... TERMINATE RETURN
059934,000218: # ... ... PROCEED RETURN
059935,000219: # ... ... ENTER RETURN
059936,000220:
059937,000221: # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R
059938,000222:
059939,000223: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
059940,000224:
059941,000225: # GOPERF3R BLANKS REGISTERS R2 AND R3
059942,000226:
059943,000227: # CAF PROGXX PERFORM PROGRAM XX
059944,000228: # TC BANKCALL
059945,000229: # CADR GOPERF3R
059946,000230: # ... ... TERMINATE RETURN
059947,000231: # ... ... PROCEED RETURN
059948,000232: # ... ... ENTER RETURN
059949,000233:
059950,000234: # ... ... GOPERF3R IMMEDIATELY RETURNS HERE
059951,000235:
059952,000236: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
059953,000237:
059954,000238: # CAF OCTXX REQUEST PERFORM ON OPTIONXX
059955,000239: # TC BANKCALL
059956,000240: # CADR GOPERF4R
059957,000241: # ... ... TERMINATE RETURN
059958,000242: # ... ... PROCEED RETURN
059959,000243: # ... ... ENTER RETURN
059960,000244:
059961,000245: # ... ... IMMEDIATE RETURN TO USER
059962,000246:
059963,000247: # GOPERF4R BLANKS REGISTER R3
059964,000248:
059965,000249: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
059966,000250:
059967,000251: # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN
059968,000252: # TC BANKCALL
059969,000253: # CADR REFLASHR
059970,000254: # ... ... TERMINATE RETURN
059971,000255: # ... ... PROCEED RETURN
059972,000256: # ... ... ENTER RETURN
059973,000257:
059974,000258: # ... ... IMMEDIATE RETURN TO USER
059975,000259:
059976,000260: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
059977,000261:
059978,000262: # # Page 1421
059979,000263: # CAF VXXNYY
059980,000264: # TC BANKCALL
059981,000265: # CADR REGODSPR
059982,000266:
059983,000267: # ... ... IMMEDIATE RETURN TO USER
059984,000268:
059985,000269: # # Page 1422
059986,000270: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
059987,000271:
059988,000272: # GOXDSP = GOMARK
059989,000273:
059990,000274: # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN
059991,000275: # TC BANKCALL
059992,000276: # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP
059993,000277:
059994,000278: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
059995,000279:
059996,000280: # GOXDSPR = GOMARKR
059997,000281:
059998,000282: # CAF VXXNYY
059999,000283: # TC BANKCALL
060000,000284: # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR
060001,000285:
060002,000286: # ... ... IMMEDIATE RETURN OF GOMARKR
060003,000287:
060004,000288: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
060005,000289: # THE ASTRONAUT (SEE NO. 7 ABOVE ).
060006,000290:
060007,000291: # GOXDSPF = GOMARKF
060008,000292:
060009,000293: # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN
060010,000294: # TC BANKCALL
060011,000295: # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF
060012,000296: # ... ... TERMINATE RETURN
060013,000297: # ... ... PROCEED RETURN
060014,000298: # ... ... ENTER OR RECYCLE RETURN
060015,000299:
060016,000300: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
060017,000301:
060018,000302: # GOXDSPFR = GOMARKFR
060019,000303:
060020,000304: # CAF VXXNYY FLASHING MARK VERB NOUN
060021,000305: # TC BANKCALL
060022,000306: # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR
060023,000307: # ... ... TERMINATE RETURN
060024,000308: # ... ... PROCEED RETURN
060025,000309: # ... ... ENTER OR RECYCLE RETURN
060026,000310:
060027,000311: # ... ... IMMEDIATE RETURN TO THE USER
060028,000312:
060029,000313: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
060030,000314: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
060031,000315: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
060032,000316: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
060033,000317:
060034,000318: # CAF V5XNYY X=1,2,3,4 Y= NOUN
060035,000319: # TC BANKCALL
060036,000320: # # Page 1423
060037,000321: # CADR GOMARK1
060038,000322:
060039,000323: # ... ... ENTER RETURN
060040,000324:
060041,000325: # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
060042,000326:
060043,000327: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
060044,000328: # CAF V5XNYY X=1,2,3,4 YY = NOUN
060045,000329: # TC BANKCALL
060046,000330: # CADR GOMARK1R
060047,000331:
060048,000332: # ... ... ASTRONAUT ENTER RETURN
060049,000333: # ... ... IMMEDIATE RETURN TO USER
060050,000334:
060051,000335: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
060052,000336: # CAF V5XNYY X=1,2,3,4 YY=NOUN
060053,000337: # TC BANKCALL
060054,000338: # CADR GOMARK2
060055,000339: # ... ... TERMINATE RETURN
060056,000340: # ... ... PROCEED RETURN
060057,000341: # ... ... ENTER RETURN
060058,000342: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
060059,000343:
060060,000344: # CAF V5XNYY X=0,1,2,3,4 YY=NOUN
060061,000345: # TC BANKCALL
060062,000346: # CADR GOMARK24
060063,000347: # ... ... TERMINATE RETURN
060064,000348: # ... ... PROCEED RETURN
060065,000349: # ... ... ENTER RETURN
060066,000350:
060067,000351: # ... ... IMMEDIATE RETURN TO THE USER
060068,000352:
060069,000353: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
060070,000354: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
060071,000355: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
060072,000356:
060073,000357: # CAF V5XNYY X=1, 2,3,4 YY=NOUN
060074,000358: # TC BANKCALL
060075,000359: # CADR GOMARK3
060076,000360: # ... ... TERMINATE RETURN
060077,000361: # ... ... PROCEED RETURN
060078,000362: # ... ... ENTER RETURN
060079,000363:
060080,000364: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
060081,000365:
060082,000366: # CAF V5XNYY X=1,2,3,4 YY=NOUN
060083,000367: # TC BANKCALL
060084,000368: # CADR GOMARK4
060085,000369: # ... ... TERMINATE RETURN
060086,000370: # ... ... PROCEED RETURN
060087,000371: # # Page 1424
060088,000372: # ... ... ENTER RETURN
060089,000373:
060090,000374: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
060091,000375: # SENT OUT.
060092,000376:
060093,000377: # CAF VXNYY
060094,000378: # TC BANKCALL
060095,000379: # CADR EXDSPRET
060096,000380:
060097,000381: # ... ... RETURN TO USER
060098,000382:
060099,000383: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
060100,000384: # HAVE BEEN CLEANED OUT.
060101,000385:
060102,000386: # TC BANKCALL
060103,000387: # CADR KLEENEX
060104,000388:
060105,000389: # ... ... RETURN TO USER
060106,000390:
060107,000391: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
060108,000392:
060109,000393: # TC BANKCALL
060110,000394: # CADR MARKBRAN
060111,000395: # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE
060112,000396:
060113,000397: # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
060114,000398: # LAST FLASHING MARK R ROUTINE)
060115,000399:
060116,000400: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
060117,000401: # BLANKED AND CONTROL IS SENT TO ENDOFJOB.
060118,000402:
060119,000403: # TC POSTJUMP
060120,000404: # CADR PINBRNCH
060121,000405:
060122,000406: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
060123,000407: # THE ASTRONAUT (SEE NO. 7 ABOVE).
060124,000408:
060125,000409: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
060126,000410: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
060127,000411: # IS RESPONDED TO BY THE ASTRONAUT.
060128,000412:
060129,000413: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
060130,000414: # PRIO DISPLAY.
060131,000415:
060132,000416: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
060133,000417: # TC BANKCALL
060134,000418: # CADR PRIODSP
060135,000419: # ... ... TERMINATE RETURN
060136,000420: # ... ... PROCEED RETURN
060137,000421: # # Page 1425
060138,000422: # ... ... ENTER OR RECYCLE RETURN
060139,000423:
060140,000424: # PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060141,000425:
060142,000426: # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN
060143,000427: # TC BANKCALL
060144,000428: # CADR PRIODSPR
060145,000429: # ... ... TERMINATE ACTION
060146,000430: # ... ... PROCEED RETURN
060147,000431: # ... ... ENTER OR RECYCLE RETURN
060148,000432:
060149,000433: # ... ... IMMEDIATE RETURN
060150,000434:
060151,000435: # PRIOLARM DOES A V05N09 PRIODSPR.
060152,000436: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
060153,000437: # DISPLAYS ARE CLEANED OUT.
060154,000438:
060155,000439: # TC BANKCALL
060156,000440: # CADR CLEANDSP
060157,000441:
060158,000442: # ... ... RETURN TO USER
060159,000443:
060160,000444: # # Page 1426
060161,000445: # GENERAL INFORMATION
060162,000446: # ------- -----------
060163,000447:
060164,000448:
060165,000449: # ALARM OR ABORT EXIT MODES--
060166,000450:
060167,000451: # PRIOBORT TC ABORT
060168,000452: # OCT 1502
060169,000453:
060170,000454: # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
060171,000455: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
060172,000456: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
060173,000457:
060174,000458:
060175,000459: # ERASABLE INITIALIZATION REQUIRED--
060176,000460:
060177,000461: # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
060178,000462: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
060179,000463: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
060180,000464:
060181,000465:
060182,000466: # 5. R1SAVE = MARKBRAN CONTROL WORD
060183,000467: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
060184,000468: # OUTPUT--
060185,000469:
060186,000470: # NVWORD = PRIO VERB AND NOUN
060187,000471: # NVWORD +1(MARKNV) = MARK VERB AND NOUN
060188,000472: # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
060189,000473:
060190,000474: # DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
060191,000475: # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
060192,000476: # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
060193,000477:
060194,000478: # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
060195,000479: # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
060196,000480: # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
060197,000481:
060198,000482: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
060199,000483: # OPTION1 = DESIRED OPTION FROM GOPERF4
060200,000484: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
060201,000485: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
060202,000486: # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
060203,000487: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
060204,000488: # DEBRIS-- (STORED INTO)
060205,000489:
060206,000490: # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
060207,000491: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4, FACEREG
060208,000492: # ERASABLES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
060209,000493: # ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
060210,000494: # # Page 1427
060211,000495: # R1SAVE, MARK2PAC
060212,000496:
060213,000497:
060214,000498: # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
060215,000499: # FLAGWORD DESCRIPTIONS--
060216,000500: # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
060217,000501:
060218,000502: # DSPFLG, DSPFLG+1, DSPFLG+2-
060219,000503: # ---------------------------
060220,000504: # BITS 1 BLANK R1
060221,000505: # 2 BLANK R2
060222,000506: # 3 BLANK R3
060223,000507: # 4 FLASHING DISPLAY REQUESTED
060224,000508: # 5 PERFORM DISPLAY REQUESTED
060225,000509: # 6 ----- EXDSPRET GODSPRET
060226,000510: # 7 PRIO DISPLAY ----- -----
060227,000511: # 8 ----- DEC MARK PERFORM -----
060228,000512: # 9 EBANK
060229,000513: # 10 EBANK
060230,000514: # 11 EBANK
060231,000515: # 12 ----- ----- V99PASTE
060232,000516: # 13 2ND PART OF PERFORM
060233,000517: # 14 REFLASH OR REDO ----- REFLASH OR REDO
060234,000518: # 15 ----- MARK REQUEST -----
060235,000519: # RESTARTING DISPLAYS--
060236,000520:
060237,000521: # RULES FOR THE DSKY OPERATOR--
060238,000522:
060239,000523: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG
060240,000524: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
060241,000525: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
060242,000526: # WITH PROCEED AND TERMINATE FOR THIS REASON.
060243,000527: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
060244,000528: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
060245,000529: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
060246,000530: # IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
060247,000531: # OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
060248,000532: # CONSIDERATION.
060249,000533: # 3. KEY RELEASE BUTTON-
060250,000534: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
060251,000535: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
060252,000536: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
060253,000537: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
060254,000538: # KEY RELEASE BUTTON MAY BE NECESSARY.
060255,000539: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
060256,000540: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
060257,000541: # OVER AGAIN.
060258,000542:
060259,000543:
060260,000544: # SPECIAL CONSIDERATONS--
060261,000545: # # Page 1428
060262,000546: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
060263,000547: # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
060264,000548: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
060265,000549: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
060266,000550: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
060267,000551: # BY A .1 RESTART PHASE CHANGE.
060268,000552: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
060269,000553: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
060270,000554: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
060271,000555:
060272,000556: # # Page 1429
060273,000557: # CALLING SEQUENCE FOR BLANKING
060274,000558: # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
060275,000559: # TC BLANKET
060276,000560: # ... ... RETURN TO USER HERE
060277,000561:
060278,000562: # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
060279,000563: # TO BLANKET AT THE IMMEDIATE RETURN LOC.
060280,000564:
060281,000565: 5415 BLOCK 02
060282,000566: 4000 SETLOC FFTAG4
060283,000567: 4000 BANK
060284,000568:
060285,000569: 5415 COUNT 02/DSPLA
060286,000570:
060287,000571: 5415 54162 BLANKET TS MPAC +6
060288,000572: 5416 40160 CS PLAYTEM4
060289,000573: 5417 70162 MASK MPAC +6
060290,000574: 5420 50161 INDEX MPAC +5
060291,000575: 5421 26160 ADS PLAYTEM4
060292,000576:
060293,000577: 5422 00002 TC Q
060294,000578:
060295,000579: 5423 04574 ENDMARK TC POSTJUMP
060296,000580: 5424 20457 CADR MARKEND
060297,000581:
060298,000582: 5425 34714 CLEARMRK CAF ZERO
060299,000583: 5426 55044 TS EXTVBACT
060300,000584:
060301,000585: 5427 00004 INHINT
060302,000586: 5430 44712 CS BIT1
060303,000587: 5431 70100 MASK FLAGWRD4
060304,000588: 5432 54100 TS FLAGWRD4
060305,000589:
060306,000590: 5433 00003 RELINT
060307,000591: 5434 00002 TC Q
060308,000592: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
060309,000593: # FINISHED.
060310,000594:
060311,000595: 10,2457 BANK 10
060312,000596: 10,2000 SETLOC DISPLAYS
060313,000597: 10,2000 BANK
060314,000598:
060315,000599: 10,2457 COUNT 10/DSPLA
060316,000600:
060317,000601: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
060318,000602: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
060319,000603:
060320,000604: 10,2457 05425 MARKEND TC CLEARMRK
060321,000605: 10,2460 13547 TCF MARKOVER
060322,000606:
060323,000607: # # Page 1430
060324,000608: 10,2461 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP
060325,000609:
060326,000610: 10,2462 34674 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS
060327,000611: 10,2463 12626 TCF GOFLASH2
060328,000612:
060329,000613: 10,2464 34714 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS
060330,000614: 10,2465 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH
060331,000615:
060332,000616: 10,2466 33157 CAF MARKFMSK # MARK,FLASH
060333,000617: 10,2467 12626 TCF GOFLASH2
060334,000618:
060335,000619: 10,2470 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS
060336,000620: 10,2471 33646 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH
060337,000621: 10,2472 12626 TCF GOFLASH2
060338,000622:
060339,000623: 10,2473 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM
060340,000624: 10,2474 33633 CAF MARK3MSK
060341,000625: 10,2475 12626 TCF GOFLASH2
060342,000626:
060343,000627: 10,2476 54155 GOMARK4 TS PLAYTEM1
060344,000628: 10,2477 33634 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK
060345,000629: 10,2500 12626 TCF GOFLASH2
060346,000630:
060347,000631: 10,2501 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR
060348,000632:
060349,000633: 10,2502 34674 CAF BIT15
060350,000634: 10,2503 12604 TCF GODSPR2
060351,000635:
060352,000636: 10,2504 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR
060353,000637:
060354,000638: 10,2505 33157 CAF MARKFMSK
060355,000639: 10,2506 12765 TCF GODSPRS
060356,000640:
060357,000641: 10,2507 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
060358,000642: 10,2510 33646 CAF MPERFMSK # MARK, PERFORM, FLASH
060359,000643: 10,2511 12765 TCF GODSPRS
060360,000644:
060361,000645: 10,2512 54155 GOMARK3R TS PLAYTEM1
060362,000646: 10,2513 33633 CAF MARK3MSK
060363,000647: 10,2514 12765 TCF GODSPRS
060364,000648:
060365,000649: 10,2515 34712 MAKEMARK CAF ONE
060366,000650: 10,2516 03063 TC COPIES
060367,000651:
060368,000652: 10,2517 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING
060369,000653: 10,2520 73647 MASK OCT34300
060370,000654: 10,2521 10000 CCS A
060371,000655: 10,2522 12560 TCF CHKPRIO
060372,000656:
060373,000657: 10,2523 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
060374,000658: # # Page 1431
060375,000659: 10,2524 74702 MASK BIT9
060376,000660:
060377,000661: 10,2525 00006 EXTEND
060378,000662: 10,2526 12530 BZF MARKPLAY # NO
060379,000663:
060380,000664: 10,2527 15112 TCF ENDOFJOB
060381,000665:
060382,000666: 10,2530 00004 MARKPLAY INHINT
060383,000667: 10,2531 44715 CS FIVE # RESET MARK OVER NORM, SET MARK
060384,000668: 10,2532 70100 MASK FLAGWRD4
060385,000669: 10,2533 64712 AD ONE
060386,000670: 10,2534 54100 TS FLAGWRD4
060387,000671: 10,2535 00003 RELINT
060388,000672:
060389,000673: 10,2536 41070 GOGOMARK CS MARKFLAG # PERFORM
060390,000674: 10,2537 74706 MASK BIT5
060391,000675: 10,2540 10000 CCS A
060392,000676: 10,2541 12544 TCF MARKCOP
060393,000677: 10,2542 40370 CS MARKNV
060394,000678: 10,2543 54370 TS MARKNV
060395,000679:
060396,000680: 10,2544 34712 MARKCOP CAF ONE # MARK INDEX
060397,000681: 10,2545 12744 TCF PRIOPLAY
060398,000682:
060399,000683: 10,2546 30165 COPYTOGO CA MPAC2SAV
060400,000684: 10,2547 54156 TS MPAC +2
060401,000685:
060402,000686: 10,2550 50164 COPYPACS INDEX COPINDEX
060403,000687: 10,2551 33657 CAF PRIOOCT
060404,000688: 10,2552 54162 TS GENMASK
060405,000689:
060406,000690: 10,2553 50164 INDEX COPINDEX
060407,000691: 10,2554 31067 CAF EBANKSAV
060408,000692: 10,2555 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG
060409,000693:
060410,000694: 10,2556 54003 TS EBANK
060411,000695:
060412,000696: 10,2557 00002 TC Q
060413,000697:
060414,000698: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
060415,000699: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
060416,000700: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
060417,000701: # UNTIL ALL MARKING IS FINISHED.
060418,000702:
060419,000703: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
060420,000704: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
060421,000705:
060422,000706: 10,2560 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
060423,000707: 10,2561 73402 MASK OCT24100
060424,000708: 10,2562 10000 CCS A
060425,000709: 10,2563 13602 TCF MARSLEEP
060426,000710: # # Page 1432
060427,000711: 10,2564 40100 CS FLAGWRD4
060428,000712: 10,2565 74710 MASK BIT3 # SET MARK OVER NORM
060429,000713: 10,2566 00004 INHINT
060430,000714: 10,2567 26100 ADS FLAGWRD4
060431,000715:
060432,000716: 10,2570 12662 TCF SETNORM
060433,000717:
060434,000718: 10,2571 30370 MARKPERF CA MARKNV
060435,000719: 10,2572 74160 MASK VERBMASK
060436,000720: 10,2573 13246 TCF NV50DSP
060437,000721:
060438,000722: 10,2574 54155 GODSP TS PLAYTEM1
060439,000723:
060440,000724: 10,2575 34714 GODSP2 CAF ZERO
060441,000725: 10,2576 12626 TCF GOFLASH2
060442,000726:
060443,000727: 10,2577 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE
060444,000728:
060445,000729: 10,2600 34705 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB
060446,000730: 10,2601 12626 TCF GOFLASH2
060447,000731:
060448,000732: 10,2602 54155 GODSPR TS PLAYTEM1
060449,000733:
060450,000734: 10,2603 34714 GODSPR1 CAF ZERO
060451,000735: 10,2604 54160 GODSPR2 TS PLAYTEM4
060452,000736:
060453,000737: 10,2605 34714 CAF ZERO # * DONT MOVE
060454,000738: 10,2606 12767 TCF GODSPRS1
060455,000739:
060456,000740: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
060457,000741: # SET UP TO BE STARTED OR RESTARTED.
060458,000742:
060459,000743: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
060460,000744: # OLD DISPLAY.
060461,000745:
060462,000746: # CALLING SEQUENCE FOR CLEANDSP-
060463,000747:
060464,000748: # TC BANKCALL
060465,000749: # CADR CLEANDSP
060466,000750:
060467,000751: 10,2607 34714 CLEANDSP CAF ZERO
060468,000752: 10,2610 54155 REFLASH TS PLAYTEM1
060469,000753:
060470,000754: 10,2611 33632 CAF REDOMASK # FLASH AND PERMIT
060471,000755: 10,2612 12626 TCF GOFLASH2
060472,000756:
060473,000757: 10,2613 54155 REFLASHR TS PLAYTEM1
060474,000758:
060475,000759: 10,2614 33632 CAF REDOMASK # FLASH AND PERMIT
060476,000760: 10,2615 12765 TCF GODSPRS
060477,000761: # # Page 1433
060478,000762: 10,2616 54155 REGODSP TS PLAYTEM1
060479,000763:
060480,000764: 10,2617 34675 CAF BIT14
060481,000765: 10,2620 12626 TCF GOFLASH2
060482,000766:
060483,000767: 10,2621 54155 REGODSPR TS PLAYTEM1
060484,000768:
060485,000769: 10,2622 34675 CAF BIT14
060486,000770: 10,2623 12604 TCF GODSPR2
060487,000771:
060488,000772: 10,2624 54155 GOFLASH TS PLAYTEM1
060489,000773:
060490,000774: 10,2625 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET
060491,000775: 10,2626 54160 GOFLASH2 TS PLAYTEM4
060492,000776:
060493,000777: 10,2627 03050 TC SAVELOCS
060494,000778:
060495,000779: 10,2630 00003 RELINT
060496,000780:
060497,000781: 10,2631 12674 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL
060498,000782:
060499,000783: 10,2632 54155 PRIODSPR TS PLAYTEM1
060500,000784:
060501,000785: 10,2633 33651 CAF BITS7+4
060502,000786: 10,2634 12765 TCF GODSPRS
060503,000787:
060504,000788: 10,2635 54155 PRIODSP TS PLAYTEM1
060505,000789:
060506,000790: 10,2636 33651 SETPRIO CAF BITS7+4
060507,000791: 10,2637 12626 TCF GOFLASH2
060508,000792:
060509,000793: 10,2640 34714 MAKEPRIO CAF ZERO
060510,000794: 10,2641 54164 TS COPINDEX
060511,000795:
060512,000796: 10,2642 03522 TC LINUSCHR
060513,000797: 10,2643 12650 TCF HIPRIO # LINUS RETURN
060514,000798: 10,2644 30100 CA FLAGWRD4
060515,000799: 10,2645 73670 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY
060516,000800: 10,2646 10000 CCS A
060517,000801: 10,2647 12723 TCF PRIOBORT # YES, ABORT
060518,000802:
060519,000803: 10,2650 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE
060520,000804: 10,2651 75612 MASK OCT40400
060521,000805: 10,2652 00006 EXTEND
060522,000806: 10,2653 12656 BZF ASKIFNRM # NO
060523,000807:
060524,000808: 10,2654 34714 SETMARK CAF ZERO
060525,000809: 10,2655 13122 TCF JOBXCHS
060526,000810:
060527,000811: 10,2656 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE
060528,000812: # # Page 1434
060529,000813: 10,2657 73666 MASK OCT10200 # BITS 13+8
060530,000814: 10,2660 00006 EXTEND
060531,000815: 10,2661 12664 BZF OKTOCOPY # NO
060532,000816:
060533,000817: 10,2662 34712 SETNORM CAF ONE
060534,000818: 10,2663 13122 TCF JOBXCHS
060535,000819:
060536,000820: 10,2664 03062 OKTOCOPY TC COPYNORM
060537,000821: 10,2665 03333 TC WITCHONE
060538,000822:
060539,000823: 10,2666 05074 TC JOBWAKE
060540,000824:
060541,000825: 10,2667 03350 TC XCHTOEND
060542,000826:
060543,000827: 10,2670 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT
060544,000828: 10,2671 55147 TS PRIOTIME
060545,000829:
060546,000830: 10,2672 34714 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY
060547,000831: 10,2673 12744 TCF PRIOPLAY
060548,000832:
060549,000833: 10,2674 30167 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY
060550,000834: 10,2675 77674 MASK PRIO37
060551,000835: 10,2676 54163 TS USERPRIO
060552,000836:
060553,000837: 10,2677 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
060554,000838: 10,2700 05103 TC PRIOCHNG
060555,000839:
060556,000840: 10,2701 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM
060557,000841: 10,2702 73650 MASK BITS15+7
060558,000842: 10,2703 10000 CCS A
060559,000843: 10,2704 12640 TCF MAKEPRIO # ITS PRIO
060560,000844: 10,2705 12707 TCF IFLEGAL
060561,000845: 10,2706 12515 TCF MAKEMARK # ITS MARK
060562,000846:
060563,000847: 10,2707 34711 IFLEGAL CAF TWO
060564,000848: 10,2710 54164 TS COPINDEX
060565,000849:
060566,000850: 10,2711 03522 TC LINUSCHR
060567,000851:
060568,000852: 10,2712 12725 TCF OKTOPLAY # LINUS RETURN
060569,000853: 10,2713 41071 CS EBANKTEM
060570,000854: 10,2714 74707 MASK BIT4
060571,000855: 10,2715 10000 CCS A
060572,000856: 10,2716 12725 TCF OKTOPLAY # NO
060573,000857:
060574,000858: 10,2717 30100 CA FLAGWRD4 # WAS NORM ASLEEP
060575,000859: 10,2720 73641 MASK NBUSMASK # ARE ANY NORMS ASLEEP
060576,000860: 10,2721 00006 EXTEND
060577,000861: 10,2722 12725 BZF OKTOPLAY # NO
060578,000862:
060579,000863: # # Page 1435
060580,000864: 10,2723 05622 PRIOBORT TC POODOO
060581,000865: 10,2724 01502 OCT 1502
060582,000866:
060583,000867: 10,2725 03064 OKTOPLAY TC COPIES2
060584,000868:
060585,000869: 10,2726 30163 CA USERPRIO
060586,000870: 10,2727 00006 EXTEND
060587,000871: 10,2730 04007 ROR SUPERBNK
060588,000872: 10,2731 54366 TS RESTREG
060589,000873:
060590,000874: 10,2732 30100 CA FLAGWRD4 # PRIO OR MARK GOING
060591,000875: 10,2733 73642 MASK PMMASK
060592,000876: 10,2734 10000 CCS A
060593,000877: 10,2735 13102 TCF GOSLEEPS # YES
060594,000878:
060595,000879: 10,2736 12740 TCF +2
060596,000880: 10,2737 13102 TCF GOSLEEPS # MARK GOING
060597,000881:
060598,000882: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
060599,000883: 10,2740 03333 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE
060600,000884: 10,2741 05074 TC JOBWAKE
060601,000885:
060602,000886: 10,2742 03350 TC XCHTOEND
060603,000887:
060604,000888: 10,2743 34711 PLAYJUM1 CAF TWO
060605,000889: 10,2744 54164 PRIOPLAY TS COPINDEX
060606,000890:
060607,000891: 10,2745 13216 TCF GOPLAY
060608,000892:
060609,000893: 10,2746 54155 EXDSPRET TS PLAYTEM1
060610,000894:
060611,000895: 10,2747 37703 CAF BIT15+6
060612,000896: 10,2750 12626 TCF GOFLASH2
060613,000897:
060614,000898: 10,2751 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE
060615,000899: 10,2752 33624 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1
060616,000900:
060617,000901: 10,2753 54155 GOPERFS TS PLAYTEM1
060618,000902:
060619,000903: 10,2754 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
060620,000904: 10,2755 12626 TCF GOFLASH2
060621,000905:
060622,000906: 10,2756 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
060623,000907:
060624,000908: 10,2757 33627 CAF PERF2MSK
060625,000909: 10,2760 12626 TCF GOFLASH2
060626,000910:
060627,000911: 10,2761 03043 GOPERF4 TC PURRS4
060628,000912:
060629,000913: 10,2762 12626 TCF GOFLASH2
060630,000914: # # Page 1436
060631,000915: 10,2763 54155 GOFLASHR TS PLAYTEM1
060632,000916:
060633,000917: 10,2764 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET
060634,000918: 10,2765 54160 GODSPRS TS PLAYTEM4
060635,000919:
060636,000920: 10,2766 36214 CAF THREE
060637,000921:
060638,000922: 10,2767 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4
060639,000923: 10,2770 54072 TS RUPTREG3
060640,000924:
060641,000925: 10,2771 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER
060642,000926: 10,2772 77674 MASK PRIO37
060643,000927: 10,2773 54063 TS NEWPRIO
060644,000928:
060645,000929: 10,2774 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY
060646,000930: 10,2775 74707 MASK BIT4
060647,000931: 10,2776 10000 CCS A
060648,000932: 10,2777 13005 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC
060649,000933: 10,3000 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC
060650,000934: 10,3001 05027 TC NOVAC
060651,000935: 10,3002 0003777 EBANK= WHOCARES
060652,000936: 10,3002 02674 20067 2CADR MAKEPLAY
060653,000937: 10,3004 13013 TCF BOTHJOBS
060654,000938:
060655,000939: 10,3005 30006 VACDSP CA BBANK
060656,000940: 10,3006 00006 EXTEND
060657,000941: 10,3007 04007 ROR SUPERBNK
060658,000942: 10,3010 54001 TS L
060659,000943: 10,3011 33665 CAF MAKEGEN
060660,000944: 10,3012 05053 TC SPVAC
060661,000945:
060662,000946: 10,3013 03050 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS
060663,000947:
060664,000948: 10,3014 00006 EXTEND # SAVE NVWORD AND USERS MPAC +2
060665,000949: 10,3015 30156 DCA MPAC +1
060666,000950: 10,3016 50064 INDEX LOCCTR
060667,000951: 10,3017 52156 DXCH MPAC +1
060668,000952:
060669,000953: 10,3020 00006 EXTEND # SAVE USERS CADR, FLAGS AND EBANK
060670,000954: 10,3021 30160 DCA MPAC +3
060671,000955: 10,3022 50064 INDEX LOCCTR
060672,000956: 10,3023 52160 DXCH MPAC +3
060673,000957:
060674,000958: 10,3024 30064 CA LOCCTR
060675,000959: 10,3025 54161 TS MPAC +5
060676,000960:
060677,000961: 10,3026 03055 TC SAVELOCR
060678,000962: 10,3027 00003 RELINT
060679,000963:
060680,000964: # # Page 1437
060681,000965: 10,3030 14577 TCF BANKJUMP # CALL CADR +4
060682,000966:
060683,000967: 10,3031 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE
060684,000968:
060685,000969: 10,3032 33624 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1
060686,000970:
060687,000971: 10,3033 54155 GOPERFRS TS PLAYTEM1
060688,000972:
060689,000973: 10,3034 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING
060690,000974: 10,3035 12765 TCF GODSPRS
060691,000975:
060692,000976: 10,3036 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
060693,000977:
060694,000978: 10,3037 33627 CAF PERF2MSK
060695,000979: 10,3040 12765 TCF GODSPRS
060696,000980:
060697,000981: 10,3041 03043 GOPERF4R TC PURRS4
060698,000982:
060699,000983: 10,3042 12765 TCF GODSPRS
060700,000984:
060701,000985: 10,3043 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE
060702,000986:
060703,000987: 10,3044 33630 CAF V04N06
060704,000988: 10,3045 54155 TS PLAYTEM1
060705,000989:
060706,000990: 10,3046 33631 CAF PERF4MSK # FLASH,PERFORM AND EBANK R3
060707,000991: 10,3047 00002 TC Q
060708,000992:
060709,000993: 10,3050 00004 SAVELOCS INHINT
060710,000994:
060711,000995: 10,3051 43640 CS OCT3400 # EBANK BITS
060712,000996: 10,3052 70160 MASK PLAYTEM4
060713,000997: 10,3053 60003 AD EBANK
060714,000998: 10,3054 54160 TS PLAYTEM4
060715,000999:
060716,001000: 10,3055 22002 SAVELOCR LXCH Q
060717,001001:
060718,001002: 10,3056 04604 TC MAKECADR
060719,001003: 10,3057 54157 TS PLAYTEM3
060720,001004:
060721,001005: 10,3060 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES
060722,001006: 10,3061 00001 TC L
060723,001007:
060724,001008: 10,3062 34714 COPYNORM CAF ZERO
060725,001009: 10,3063 54164 COPIES TS COPINDEX
060726,001010: 10,3064 00004 COPIES2 INHINT
060727,001011: 10,3065 30160 CA PLAYTEM4 # FLAGWORD
060728,001012: 10,3066 50164 INDEX COPINDEX
060729,001013: 10,3067 55067 TS EBANKSAV # EQUIV TO DSPFLG
060730,001014:
060731,001015: # # Page 1438
060732,001016: 10,3070 73656 MASK CADRMASK # FLASH AND GODSPRET
060733,001017: 10,3071 00006 EXTEND
060734,001018: 10,3072 13076 BZF SKIPADD
060735,001019:
060736,001020: 10,3073 30157 CA PLAYTEM3
060737,001021: 10,3074 50164 INDEX COPINDEX
060738,001022: 10,3075 54372 TS CADRFLSH
060739,001023:
060740,001024: 10,3076 30155 SKIPADD CA PLAYTEM1 # VERB NOUN
060741,001025: 10,3077 50164 INDEX COPINDEX
060742,001026: 10,3100 54367 TS NVWORD
060743,001027:
060744,001028: 10,3101 13357 TCF RELINTQ
060745,001029:
060746,001030: 10,3102 50164 GOSLEEPS INDEX COPINDEX
060747,001031: 10,3103 33657 CA PRIOOCT
060748,001032: 10,3104 73106 MASK WAITMASK
060749,001033: 10,3105 07717 TC UPENT2
060750,001034: 10,3106 03004 WAITMASK OCT 3004
060751,001035: 10,3107 44712 CS ONE
060752,001036: 10,3110 60164 AD COPINDEX
060753,001037: 10,3111 54154 TS FACEREG
060754,001038:
060755,001039: 10,3112 50154 XCHSLEEP INDEX FACEREG
060756,001040: 10,3113 33636 CAF WAKECADR
060757,001041: 10,3114 00004 INHINT
060758,001042: 10,3115 05074 TC JOBWAKE # FIND CADR IN JOB AREA
060759,001043:
060760,001044: 10,3116 03350 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB
060761,001045:
060762,001046: 10,3117 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA
060763,001047: 10,3120 33636 CAF WAKECADR
060764,001048: 10,3121 15070 TCF JOBSLEEP
060765,001049:
060766,001050: 10,3122 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP
060767,001051: 10,3123 03333 TC WITCHONE
060768,001052: 10,3124 05074 TC JOBWAKE
060769,001053: 10,3125 30154 CA FACEREG
060770,001054: 10,3126 50064 INDEX LOCCTR
060771,001055: 10,3127 54154 TS FACEREG
060772,001056:
060773,001057: 10,3130 33143 CAF XCHQADD
060774,001058: 10,3131 03351 TC XCHNYLOC
060775,001059:
060776,001060: 10,3132 50154 INDEX FACEREG
060777,001061: 10,3133 33660 CA MARKOCT
060778,001062: 10,3134 73662 MASK IDLESLEP
060779,001063: 10,3135 07735 TC DOWNENT2
060780,001064: 10,3136 74004 IDLEMASK OCT 74004 # * DONT MOVE
060781,001065:
060782,001066: # # Page 1439
060783,001067: 10,3137 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK
060784,001068: 10,3140 34706 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL
060785,001069: 10,3141 64710 AD FOUR
060786,001070: 10,3142 07717 TC UPENT2 # FLAG ROUTINE DOES RELINT
060787,001071: 10,3143 03112 XCHQADD GENADR XCHSLEEP # * DONT MOVE
060788,001072: 10,3144 30100 CA FLAGWRD4
060789,001073: 10,3145 74710 MASK BIT3 # IF BIT3 THEN MARK OVER NORM
060790,001074: 10,3146 10000 CCS A
060791,001075: 10,3147 02530 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE
060792,001076: 10,3150 12664 TCF OKTOCOPY
060793,001077:
060794,001078: 10,3151 34714 MARKWAKE CAF ZERO
060795,001079: 10,3152 54160 WAKEPLAY TS TEMPOR2
060796,001080:
060797,001081: 10,3153 50160 INDEX TEMPOR2
060798,001082: 10,3154 33652 CA BITS5+11
060799,001083: 10,3155 64710 AD FOUR
060800,001084: 10,3156 07735 TC DOWNENT2
060801,001085: 10,3157 40010 MARKFMSK OCT 40010 # ***DONT MOVE
060802,001086:
060803,001087: 10,3160 50160 INDEX TEMPOR2
060804,001088: 10,3161 33636 CAF WAKECADR
060805,001089: 10,3162 00004 INHINT
060806,001090: 10,3163 05074 TC JOBWAKE
060807,001091:
060808,001092: 10,3164 13463 TCF ENDRET
060809,001093:
060810,001094: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
060811,001095: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
060812,001096: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
060813,001097: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
060814,001098:
060815,001099: 10,3165 31071 INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK
060816,001100: 10,3166 54003 TS EBANK
060817,001101:
060818,001102: 10,3167 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY
060819,001103: 10,3170 04666 TC SUPERSW # RESTORE SUPERBANK
060820,001104:
060821,001105: 10,3171 77674 MASK PRIO37
060822,001106: 10,3172 05103 TC PRIOCHNG
060823,001107:
060824,001108: 10,3173 46214 CS THREE
060825,001109: 10,3174 60374 AD TEMPFLSH
060826,001110: 10,3175 14577 TCF BANKJUMP
060827,001111:
060828,001112: 10,3176 00003 PINBRNCH RELINT # FOR GOPIN USERS
060829,001113: 10,3177 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS
060830,001114: 10,3200 54156 TS MPAC +2 # ONLY
060831,001115:
060832,001116: 10,3201 30100 CA FLAGWRD4 # PINBRANCH CONDITION
060833,001117: # # Page 1440
060834,001118: 10,3202 77707 MASK PINMASK
060835,001119: 10,3203 10000 CCS A
060836,001120: 10,3204 13207 TCF +3
060837,001121: 10,3205 13617 TCF ERASER # ** NOTHING IN ENDIDLE
060838,001122: 10,3206 12530 TCF MARKPLAY
060839,001123:
060840,001124: 10,3207 05435 NORMBNCH TC UPFLAG # SET PINBRANCH BIT
060841,001125: 10,3210 00105 ADRES PINBRFLG
060842,001126:
060843,001127: 10,3211 34675 CAF BIT14 # PRIO INTERRUPTED
060844,001128: 10,3212 70100 MASK FLAGWRD4
060845,001129: 10,3213 10000 CCS A
060846,001130: 10,3214 12672 TCF KEEPPRIO
060847,001131:
060848,001132: 10,3215 12743 TCF PLAYJUM1
060849,001133:
060850,001134: 10,3216 02550 NVDSP TC COPYPACS
060851,001135:
060852,001136: 10,3217 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE
060853,001137: 10,3220 74716 MASK SEVEN # USER REQUESTS BLANKING MONITOR
060854,001138: 10,3221 54001 TS L
060855,001139:
060856,001140: 10,3222 44676 CS BIT13
060857,001141: 10,3223 50164 INDEX COPINDEX
060858,001142: 10,3224 71067 MASK DSPFLG
060859,001143: 10,3225 50164 INDEX COPINDEX
060860,001144: 10,3226 55067 TS DSPFLG
060861,001145:
060862,001146: 10,3227 74703 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY
060863,001147: 10,3230 54141 TS TEM1
060864,001148:
060865,001149: 10,3231 30156 CA MPAC +2
060866,001150: 10,3232 54165 TS MPAC2SAV
060867,001151:
060868,001152: 10,3233 55072 TS MARK2PAC # * FOR DISK ONLY *
060869,001153: 10,3234 50164 INDEX COPINDEX
060870,001154: 10,3235 10367 CCS NVWORD
060871,001155: 10,3236 13245 TCF NVDSP1
060872,001156: 10,3237 13361 TCF CLEANEND
060873,001157: 10,3240 40370 CS MARKNV
060874,001158: 10,3241 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
060875,001159: 10,3242 76043 MASK LOW7
060876,001160: 10,3243 63643 AD V05N00M1
060877,001161: 10,3244 60141 AD TEM1
060878,001162: 10,3245 64712 NVDSP1 AD ONE
060879,001163: 10,3246 04171 NV50DSP TC NVMONOPT
060880,001164: 10,3247 13373 TCF REST # IF BUSY
060881,001165: 10,3250 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH
060882,001166:
060883,001167: 10,3251 02546 TC COPYTOGO # MPACS DESTROYED BY NVSUB
060884,001168: # # Page 1441
060885,001169: 10,3252 05447 TC DOWNFLAG # UNSET SLEEPING BITS
060886,001170: 10,3253 00102 ADRES MRKNVFLG
060887,001171: 10,3254 05447 TC DOWNFLAG
060888,001172: 10,3255 00103 ADRES NRMNVFLG
060889,001173: 10,3256 05447 TC DOWNFLAG
060890,001174: 10,3257 00104 ADRES PRONVFLG
060891,001175: 10,3260 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET
060892,001176: 10,3261 04271 TC BLANKSUB
060893,001177: 10,3262 13216 TCF NVDSP
060894,001178: 10,3263 34706 PERFCHEK CAF BIT5 # BIT 5 FOR PERFORM
060895,001179: 10,3264 70160 MASK TEMPOR2
060896,001180: 10,3265 10000 CCS A # IS THIS A GOPERF DISPLAY
060897,001181: 10,3266 13311 TCF 1STOR2ND # YES
060898,001182:
060899,001183: 10,3267 34707 GOANIDLE CAF BIT4
060900,001184: 10,3270 70160 MASK TEMPOR2
060901,001185: 10,3271 10000 CCS A
060902,001186: 10,3272 13406 TCF FLASHSUB # IT IS
060903,001187:
060904,001188: 10,3273 40160 CS TEMPOR2 # IS THIS A GODSPRET
060905,001189: 10,3274 74705 MASK BIT6
060906,001190: 10,3275 10000 CCS A
060907,001191: 10,3276 13303 TCF ISITN00
060908,001192:
060909,001193: 10,3277 50164 INDEX COPINDEX
060910,001194: 10,3300 30372 CA CADRFLSH
060911,001195: 10,3301 54157 TS MPAC +3
060912,001196: 10,3302 13501 TCF ENDIT
060913,001197:
060914,001198: 10,3303 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE
060915,001199: 10,3304 30367 CA NVWORD
060916,001200: 10,3305 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK
060917,001201: 10,3306 00006 EXTEND
060918,001202: 10,3307 13406 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH
060919,001203:
060920,001204: 10,3310 15112 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT
060921,001205:
060922,001206: 10,3311 30160 1STOR2ND CA TEMPOR2
060923,001207: 10,3312 74676 MASK BIT13
060924,001208: 10,3313 10000 CCS A
060925,001209: 10,3314 13267 TCF GOANIDLE # SECOND
060926,001210:
060927,001211: 10,3315 34676 CA BIT13
060928,001212: 10,3316 50164 INDEX COPINDEX
060929,001213: 10,3317 27067 ADS DSPFLG
060930,001214:
060931,001215: 10,3320 22007 ZL
060932,001216: 10,3321 00006 EXTEND # IS IT MARK
060933,001217: 10,3322 62571 BZMF MARKPERF # YES
060934,001218:
060935,001219: # # Page 1442
060936,001220: 10,3323 74677 MASK BIT12
060937,001221: 10,3324 00006 EXTEND
060938,001222: 10,3325 13331 BZF V50PASTE
060939,001223: 10,3326 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
060940,001224: 10,3327 63667 AD V97N00
060941,001225: 10,3330 13246 TCF NV50DSP
060942,001226: 10,3331 33626 V50PASTE CAF V50N00
060943,001227: 10,3332 13246 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF
060944,001228:
060945,001229: 10,3333 44706 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT
060946,001230: 10,3334 00006 EXTEND
060947,001231: 10,3335 03011 WAND DSALMOUT
060948,001232:
060949,001233: 10,3336 30100 CA FLAGWRD4
060950,001234: 10,3337 73644 MASK NVBUSMSK # IS IT NVSUB ASLEEP
060951,001235: 10,3340 10000 CCS A
060952,001236: 10,3341 34712 CAF ONE
060953,001237: 10,3342 54001 TS L
060954,001238: 10,3343 34714 CAF ZERO
060955,001239: 10,3344 50001 INDEX L
060956,001240: 10,3345 57042 XCH CADRSTOR
060957,001241:
060958,001242: 10,3346 00004 INHINT
060959,001243: 10,3347 00002 TC Q
060960,001244:
060961,001245: 10,3350 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR
060962,001246: 10,3351 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING
060963,001247: 10,3352 00006 EXTEND
060964,001248: 10,3353 63357 BZMF RELINTQ # NO
060965,001249: 10,3354 56064 XCH LOCCTR # YES
060966,001250: 10,3355 50064 INDEX LOCCTR
060967,001251: 10,3356 54164 TS LOC
060968,001252:
060969,001253: 10,3357 00003 RELINTQ RELINT
060970,001254: 10,3360 00002 TC Q # BACK TO USER
060971,001255:
060972,001256: 10,3361 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING
060973,001257: 10,3362 05042 TC FINDVAC
060974,001258: 10,3363 0371 EBANK= NVSAVE
060975,001259: 10,3363 04245 04060 2CADR JAMTERM
060976,001260:
060977,001261: 10,3365 13407 TCF FLASHSUB +1
060978,001262:
060979,001263: 10,3366 30100 ISITPRIO CA FLAGWRD4
060980,001264: 10,3367 73414 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET
060981,001265: 10,3370 00006 EXTEND
060982,001266: 10,3371 12723 BZF PRIOBORT
060983,001267: 10,3372 15112 TCF ENDOFJOB
060984,001268:
060985,001269: # # Page 1443
060986,001270: 10,3373 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE
060987,001271: 10,3374 15112 TCF ENDOFJOB # YES
060988,001272: 10,3375 13377 TCF RESTSLEP
060989,001273:
060990,001274: 10,3376 15112 TCF ENDOFJOB
060991,001275:
060992,001276: 10,3377 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS
060993,001277: 10,3400 73645 MASK ASTROMSK
060994,001278: 10,3401 07717 TC UPENT2
060995,001279: 10,3402 24100 OCT24100 OCT 24100 # *** DONT MOVE
060996,001280:
060997,001281: 10,3403 50164 INDEX COPINDEX
060998,001282: 10,3404 33635 CAF NVCADR
060999,001283: 10,3405 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL
061000,001284:
061001,001285: 10,3406 04443 FLASHSUB TC FLASHON
061002,001286:
061003,001287: 10,3407 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE
061004,001288: 10,3410 54157 TS COPMPAC
061005,001289:
061006,001290: 10,3411 30162 CA GENMASK
061007,001291: 10,3412 73136 MASK IDLEMASK
061008,001292: 10,3413 07717 TC UPENT2
061009,001293: 10,3414 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE
061010,001294:
061011,001295: 10,3415 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY
061012,001296: 10,3416 50164 INDEX COPINDEX
061013,001297: 10,3417 74710 MASK BIT3
061014,001298: 10,3420 10000 CCS A
061015,001299: 10,3421 13506 TCF UNSETR1 # YES
061016,001300:
061017,001301: 10,3422 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE
061018,001302: 10,3423 13366 TCF ISITPRIO
061019,001303: 10,3424 13426 TCF +2
061020,001304: 10,3425 13366 TCF ISITPRIO
061021,001305:
061022,001306: 10,3426 04223 TC ENDIDLE
061023,001307: 10,3427 13520 IDLERET1 TCF TERMATE
061024,001308:
061025,001309: 10,3430 13537 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED
061026,001310:
061027,001311: 10,3431 43654 CS LOWLOAD
061028,001312: 10,3432 60154 AD MPAC # VERBREG
061029,001313: 10,3433 00006 EXTEND
061030,001314: 10,3434 26000 DIM A
061031,001315: 10,3435 00006 EXTEND
061032,001316: 10,3436 13607 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY
061033,001317: 10,3437 34711 OKTOENT CAF TWO
061034,001318: 10,3440 54161 ENDOUT TS OUTHERE
061035,001319:
061036,001320: # # Page 1444
061037,001321: 10,3441 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN
061038,001322: 10,3442 74105 MASK OCT60000
061039,001323: 10,3443 10000 CCS A
061040,001324: 10,3444 13447 TCF TIMECHEK # PRIO ENDIDLE RETURN
061041,001325: 10,3445 13555 TCF NORMRET # NORMAL ENDIDLE RETURN
061042,001326: 10,3446 13541 TCF MARKRET # MARK ENDIDLE RETURN
061043,001327:
061044,001328: 10,3447 40025 TIMECHEK CS TIME1
061045,001329: 10,3450 61147 AD PRIOTIME
061046,001330: 10,3451 10000 CCS A
061047,001331: 10,3452 40000 COM
061048,001332: 10,3453 67700 AD OCT37776
061049,001333: 10,3454 64712 AD ONE
061050,001334: 10,3455 63677 AD -2SEC
061051,001335: 10,3456 00006 EXTEND
061052,001336: 10,3457 62672 BZMF KEEPPRIO
061053,001337:
061054,001338: 10,3460 13555 TCF NORMRET
061055,001339:
061056,001340: 10,3461 34712 NORMWAKE CAF ONE
061057,001341: 10,3462 13152 TCF WAKEPLAY
061058,001342:
061059,001343: 10,3463 10161 ENDRET CCS OUTHERE
061060,001344: 10,3464 64712 AD ONE
061061,001345: 10,3465 13467 TCF +2 # NORMAL ENDIDLE EXIT
061062,001346: 10,3466 15112 TCF ENDOFJOB
061063,001347: 10,3467 50157 INDEX COPMPAC
061064,001348: 10,3470 60372 AD CADRFLSH
061065,001349: 10,3471 54157 TS MPAC +3
061066,001350:
061067,001351: 10,3472 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS
061068,001352: 10,3473 73475 MASK PINIDMSK
061069,001353: 10,3474 07735 TC DOWNENT2
061070,001354: 10,3475 74044 PINIDMSK OCT 74044 # *** DONT MOVE
061071,001355:
061072,001356: 10,3476 46214 CS THREE # BLANK EVERYTHING EXCEPT MM
061073,001357: 10,3477 04170 TC NVSUB
061074,001358: 10,3500 13501 TCF +1
061075,001359:
061076,001360: 10,3501 30163 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY
061077,001361: 10,3502 77674 MASK PRIO37
061078,001362: 10,3503 05103 TC PRIOCHNG
061079,001363: 10,3504 30157 CA MPAC +3
061080,001364: 10,3505 14577 TCF BANKJUMP
061081,001365:
061082,001366: 10,3506 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
061083,001367: 10,3507 44710 CS BIT3
061084,001368: 10,3510 71073 MASK R1SAVE
061085,001369: 10,3511 55073 TS R1SAVE
061086,001370:
061087,001371: # # Page 1445
061088,001372: 10,3512 34714 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN
061089,001373: 10,3513 04666 TC SUPERSW # SUPERBANK 0
061090,001374:
061091,001375: 10,3514 36214 -1 CAF THREE # RETURN TO USERS IMMEDIATE RETURN LOC
061092,001376: 10,3515 50164 IMMEDRET INDEX COPINDEX
061093,001377: 10,3516 60372 AD CADRFLSH
061094,001378: 10,3517 14577 TCF BANKJUMP
061095,001379:
061096,001380: 10,3520 34714 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO
061097,001381: 10,3521 13440 TCF ENDOUT
061098,001382:
061099,001383: 10,3522 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS
061100,001384: 10,3523 74675 MASK BIT14
061101,001385: 10,3524 10000 CCS A
061102,001386: 10,3525 16706 TCF Q+1 # NO
061103,001387: 10,3526 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE
061104,001388: 10,3527 50164 INDEX COPINDEX
061105,001389: 10,3530 60372 AD CADRFLSH
061106,001390: 10,3531 00006 EXTEND
061107,001391: 10,3532 13534 BZF +2 # YES
061108,001392:
061109,001393: 10,3533 00002 TC Q # NO
061110,001394: 10,3534 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY
061111,001395: 10,3535 05112 TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE
061112,001396: 10,3536 00002 TC Q
061113,001397:
061114,001398: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
061115,001399: 10,3537 34712 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS
061116,001400: 10,3540 13440 TCF ENDOUT
061117,001401:
061118,001402: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
061119,001403: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
061120,001404: # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
061121,001405:
061122,001406: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
061123,001407: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
061124,001408: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
061125,001409: # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
061126,001410:
061127,001411: 10,3541 46211 MARKRET CS SIX
061128,001412: 10,3542 70100 MASK FLAGWRD4
061129,001413: 10,3543 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF
061130,001414: 10,3544 54100 TS FLAGWRD4
061131,001415:
061132,001416: 10,3545 00003 RELINT # INHINT REALM
061133,001417: 10,3546 13463 TCF ENDRET
061134,001418:
061135,001419: 10,3547 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
061136,001420: 10,3550 54161 TS OUTHERE
061137,001421:
061138,001422: # # Page 1446
061139,001423: 10,3551 30100 CA FLAGWRD4 # IS ENDIDFLG SET
061140,001424: 10,3552 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
061141,001425: 10,3553 10000 CCS A
061142,001426: 10,3554 13207 TCF NORMBNCH
061143,001427:
061144,001428: 10,3555 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING
061145,001429: 10,3556 73652 MASK BITS5+11 # OR WAITING
061146,001430: 10,3557 10000 CCS A
061147,001431: 10,3560 13151 TCF MARKWAKE
061148,001432:
061149,001433: 10,3561 30100 CA FLAGWRD4 # NO
061150,001434: 10,3562 73653 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING
061151,001435: 10,3563 10000 CCS A
061152,001436: 10,3564 13461 TCF NORMWAKE # YES
061153,001437:
061154,001438: 10,3565 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST
061155,001439: 10,3566 74726 MASK OCT50 # OR A GODSPRET
061156,001440: 10,3567 10000 CCS A
061157,001441: 10,3570 13463 TCF ENDRET # YES
061158,001442: 10,3571 30371 CA NVSAVE
061159,001443: 10,3572 00006 EXTEND
061160,001444: 10,3573 13463 BZF ENDRET
061161,001445:
061162,001446: 10,3574 34762 CAF PRIO15
061163,001447: 10,3575 00004 INHINT
061164,001448: 10,3576 05027 TC NOVAC
061165,001449: 10,3577 0367 EBANK= NVWORD
061166,001450: 10,3577 02743 20060 2CADR PLAYJUM1
061167,001451:
061168,001452: 10,3601 13463 TCF ENDRET
061169,001453:
061170,001454: 10,3602 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN
061171,001455: 10,3603 73652 MASK BITS5+11
061172,001456: 10,3604 10000 CCS A
061173,001457: 10,3605 15112 TCF ENDOFJOB # YES
061174,001458: 10,3606 13102 TCF GOSLEEPS
061175,001459:
061176,001460: 10,3607 50157 LOADITIS INDEX COPMPAC
061177,001461: 10,3610 30367 CA NVWORD
061178,001462: 10,3611 76043 MASK LOW7
061179,001463: 10,3612 40000 COM
061180,001464: 10,3613 60155 AD MPAC +1 # NOUNREG
061181,001465: 10,3614 00006 EXTEND
061182,001466: 10,3615 13437 BZF OKTOENT # NO, THEN LOAD IS VALID
061183,001467: 10,3616 13176 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
061184,001468:
061185,001469: 10,3617 46214 ERASER CS THREE # BLANK EVERYTHINGEXCEPT MM
061186,001470: 10,3620 04170 TC NVSUB
061187,001471: 10,3621 15112 TCF ENDOFJOB
061188,001472: # # Page 1447
061189,001473: 10,3622 15112 TCF ENDOFJOB
061190,001474:
061191,001475: 10,3623 00036 PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3
061192,001476: 10,3624 00231 V01N25 VN 00125
061193,001477: 10,3625 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50
061194,001478: 10,3626 14400 V50N00 VN 5000
061195,001479: 10,3627 00030 PERF2MSK OCT 00030 # FLASH, PERFORM
061196,001480: 10,3630 01006 V04N06 VN 00406
061197,001481: 10,3631 00014 PERF4MSK OCT 14 # FLASH, BLANK R3
061198,001482: 10,3632 10,3176 GOAGIN EQUALS PINBRNCH
061199,001483: 10,3632 20010 REDOMASK OCT 20010 # BITS 4 AND 14
061200,001484: 10,3633 40230 MARK3MSK OCT 40230 # MARK,DECIMAL NOUN, PERFORM,FLASH
061201,001485: 10,3634 40036 MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3
061202,001486: 10,3635 20670 NVCADR CADR REDOPRIO
061203,001487: 10,3636 20530 WAKECADR CADR MARKPLAY
061204,001488: 10,3637 20743 CADR PLAYJUM1
061205,001489:
061206,001490: 10,3640 03400 OCT3400 OCT 3400 # EBANK MASK
061207,001491: 10,3641 11210 NBUSMASK OCT 11210
061208,001492: 10,3642 66521 PMMASK OCT 66521
061209,001493: 10,3643 4160 VERBMASK = MID7 # (OCT 37600)
061210,001494: 10,3643 01177 V05N00M1 OCT 1177 # V05 MINUS ONE
061211,001495: 10,3644 10,2461 GOXDSP EQUALS GOMARK
061212,001496: 10,3644 10,2501 GOXDSPR EQUALS GOMARKR
061213,001497: 10,3644 10,2465 GOXDSPF EQUALS GOMARKF
061214,001498: 10,3644 10,2504 GOXDSPFR EQUALS GOMARKFR
061215,001499: 10,3644 5423 ENDEXT EQUALS ENDMARK
061216,001500: 10,3644 0165 MPAC2SAV EQUALS BANKSET
061217,001501: 10,3644 00700 NVBUSMSK OCT 700
061218,001502: 10,3645 00704 ASTROMSK OCT 704
061219,001503: 10,3646 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH
061220,001504: 10,3647 34300 OCT34300 OCT 34300
061221,001505: 10,3650 40100 BITS15+7 OCT 40100
061222,001506: 10,3651 00110 BITS7+4 OCT 110
061223,001507: 10,3652 1067 DSPFLG EQUALS EBANKSAV
061224,001508: 10,3652 1070 MARKFLAG EQUALS MARKEBAN
061225,001509: 10,3652 1071 SAVEFLAG EQUALS EBANKTEM
061226,001510: 10,3652 02020 BITS5+11 OCT 2020 # * DONT MOVE
061227,001511: 10,3653 01010 BITS4+10 OCT 1010 # * DONT MOVE
061228,001512: 10,3654 00026 LOWLOAD DEC 22 B-14
061229,001513: 10,3655 77730 BUSYMASK OCT 77730
061230,001514: 10,3656 00050 CADRMASK OCT 50
061231,001515: 10,3657 7707 PINMASK EQUALS 13,14,15
061232,001516: 10,3657 10,3216 GOPLAY EQUALS NVDSP
061233,001517: 10,3657 1073 PRIOSAVE EQUALS R1SAVE
061234,001518: 10,3657 0157 COPMPAC EQUALS MPAC +3
061235,001519: 10,3657 0160 TEMPOR2 EQUALS MPAC +4
061236,001520: 10,3657 0161 OUTHERE EQUALS MPAC +5
061237,001521: 10,3657 0164 COPINDEX EQUALS LOC
061238,001522: 10,3657 0163 USERPRIO EQUALS MODE
061239,001523: # # Page 1448
061240,001524: 10,3657 0162 GENMASK EQUALS MPAC +6
061241,001525: 10,3657 20144 PRIOOCT OCT 20144 # PRIO
061242,001526: 10,3660 42424 MARKOCT OCT 42424 # MARK
061243,001527: 10,3661 11254 OCT 11254 # NORM
061244,001528:
061245,001529: 10,3662 74704 IDLESLEP OCT 74704
061246,001530: 10,3663 67777 OCT67777 OCT 67777
061247,001531: 10,3664 5415 LINUS EQUALS BLANKET
061248,001532: 10,3664 0154 FACEREG EQUALS MPAC
061249,001533: 10,3664 0155 PLAYTEM1 EQUALS MPAC +1
061250,001534: 10,3664 0157 PLAYTEM3 EQUALS MPAC +3
061251,001535: 10,3664 0160 PLAYTEM4 EQUALS MPAC +4
061252,001536: 10,3664 40420 OCT40420 OCT 40420
061253,001537: 10,3665 02674 MAKEGEN GENADR MAKEPLAY
061254,001538: 10,3666 10200 OCT10200 OCT 10200
061255,001539: 10,3667 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99
061256,001540: 10,3670 20100 OCT20100 OCT 20100
End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc