Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
051079,000002: ## Copyright: Public domain.
051080,000003: ## Filename: WAITLIST.agc
051081,000004: ## Purpose: A section of Comanche revision 072.
051082,000005: ## It is part of the reconstructed source code for the first
051083,000006: ## release of the software for the Command Module's (CM) Apollo
051084,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
051085,000008: ## of this program are available; instead, this file was recreated
051086,000009: ## from a printout of Comanche 055, binary dumps of a set of
051087,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
051088,000011: ## and 072. It has been adapted such that the resulting bugger words
051089,000012: ## exactly match those specified for Comanche 072 in NASA drawing
051090,000013: ## 2021153G, which gives relatively high confidence that the
051091,000014: ## reconstruction is correct.
051092,000015: ## Assembler: yaYUL
051093,000016: ## Contact: Ron Burkey <info@sandroid.org>.
051094,000017: ## Website: www.ibiblio.org/apollo/index.html
051095,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
051096,000019:
051097,000020: # PROGRAM DESCRIPTION DATE - 10 OCTOBER 1966
051098,000021: # MOD NO - 2 LOG SECTION - WAITLIST
051099,000022: # MOD BY - MILLER (DTMAX INCREASED TO 162.5 SEC) ASSEMBLY SUNBURST REV 5
051100,000023: # MOD 3 BY KERNAN (INHINT INSERTED AT WAITLIST) 2/28/68 SKIPPER REV 4
051101,000024: # MOD 4 BY KERNAN (TWIDDLE IN 54) 3/28/68 SKIPPER REV 13.
051102,000025:
051103,000026: # FUNCTIONAL DESCRIPTION -
051104,000027: # PART OF A SECTION OF PROGRAMS,- WAITLIST, TASKOVER, T3RUPT, USED TO CALL A PROGRAM, (CALLED A TASK),
051105,000028: # WHICH IS TO BEGIN IN C(A) CENTISECONDS. WAITLIST UPDATES TIME3, LST1 AND LST2. THE MEANING OF THESE LISTS
051106,000029: # FOLLOW.
051107,000030:
051108,000031: # C(TIME3) = 16384 -(T1-T) CENTISECONDS, (T=PRESENT TIME, T1-TIME FOR TASK1)
051109,000032:
051110,000033: # C(LST1) = -(T2-T1)+1
051111,000034: # C(LST1 +1) = -(T3-T2)+1
051112,000035: # C(LST1 +2) = -(T4-T3)+1
051113,000036: # .
051114,000037: # .
051115,000038: # C(LST1 +6) = -(T8-T7)+1
051116,000039: # C(LST1 +7) = -(T9-T8)+1
051117,000040:
051118,000041: # C(LST2) = 2CADR OF TASK1
051119,000042: # C(LST2 +2) = 2CADR OF TASK2
051120,000043: # .
051121,000044: # .
051122,000045: # C(LST2 +14) = 2CADR OF TASK8
051123,000046: # C(LST2 +16) = 2CADR OF TASK9
051124,000047:
051125,000048: # WARNINGS-
051126,000049: # --------
051127,000050: # 1) 1 <= C(A) <= 16250D (1 CENTISECOND TO 162.5 SEC)
051128,000051: # 2) 9 TASKS MAXIMUM
051129,000052: # 3) TASKS CALLED UNDER INTERRUPT INHIBITED
051130,000053: # 4) TASKS END BY TC TASKOVER
051131,000054:
051132,000055: # CALLING SEQUENCE -
051133,000056: # L-1 CA DELTAT (TIME IN CENTISECONDS TO TASK START)
051134,000057: # L TC WAITLIST
051135,000058: # L+1 2CADR DESIRED TASK
051136,000059: # L+2 (MINOR OF 2CADR)
051137,000060: # L+3 RELINT (RETURNS HERE)
051138,000061:
051139,000062: # TWIDDLE-
051140,000063: # -------
051141,000064: # TWIDDLE IS FOR USE WHEN THE TASK BEING SET UP IS IN THE SAME EBANK AND FBANK AS THE USER. IN
051142,000065: # SUCH CASES, IT IMPROVES UPON WAITLIST BY ELIMINATING THE NEED FOR THE BBCON HALF OF THE 2CADR,
051143,000066: # SAVING A WORD. TWIDDLE IS LIKE WAITLIST IN EVERY RESPECT EXCEPT CALLING SEQUENCE, TO WIT-
051144,000067: # L-1 CA DELTAT
051145,000068: # L TC TWIDDLE
051146,000069: # L+1 ADRES DESIRED TASK
051147,000070: # L+2 RELINT (RETURNS HERE)
051148,000071:
051149,000072: # NORMAL EXIT MODES -
051150,000073: # AT L+3 OF CALLING SEQUENCE
051151,000074:
051152,000075: # ALARM OR ABORT EXIT MODES -
051153,000076: # TC ABORT
051154,000077: # OCT 1203 (WAITLIST OVERFLOW - TOO MANY TASKS)
051155,000078:
051156,000079: # ERASABLE INITIALIZATION REQUIRED -
051157,000080: # ACCOMPLISHED BY FRESH START,-- LST2, ..., LST2 +16 = ENDTASK
051158,000081: # LST1, ..., LST1 +7 = NEG1/2
051159,000082:
051160,000083: # OUTPUT --
051161,000084: # LST1 AND LST2 UPDATED WITH NEW TASK AND ASSOCIATED TIME.
051162,000085:
051163,000086: # DEBRIS -
051164,000087: # CENTRALS - A,Q,L
051165,000088: # OTHER - WAITEXIT, WAITADR, WAITTEMP, WAITBANK
051166,000089:
051167,000090: # DETAILED ANALYSIS OF TIMING -
051168,000091: # CONTROL WILL NOT BE RETURNED TO THE SPECIFIED ADDRESS (2CADR) IN EXACTLY DELTA T CENTISECONDS.
051169,000092: # THE APPROXIMATE TIME MAY BE CALCULATED AS FOLLOWS
051170,000093: # LET TO = THE TIME OF THE TC WAITLIST
051171,000094: # LET TS = TO +147U + COUNTER INCREMENTS (SET UP TIME)
051172,000095: # LET X = TS -(100TS)/100 (VARIANCE FROM COUNTERS)
051173,000096: # LET Y = LENGTH OF TIME OF INHIBIT INTERRUPT AFTER T3RUPT
051174,000097: # LET Z = LENGTH OF TIME TO PROCESS TASKS WHICH ARE DUE THIS T3RUPT BUT DISPATCHED EARLIER.
051175,000098: # (Z=0, USUALLY)
051176,000099: # LET DELTD = THE ACTUAL TIME TAKEN TO GIVE CONTROL TO 2CADR
051177,000100: # THEN DELTD = TS+DELTA T -X +Y +Z +1.05MS* +COUNTERS*
051178,000101: # *-THE TIME TAKEN BY WAITLIST ITSELF AND THE COUNTER TICKING DURING THIS WAITLIST TIME.
051179,000102: # IN SHORT, THE ACTUAL TIME TO RETURN CONTROL TO A 2CADR IS AUGMENTED BY THE TIME TO SET UP THE TASK:S
051180,000103: # INTERRUPT, ALL COUNTERS TICKING, THE T3RUPT PROCESSING TIME, THE WAITLIST PROCESSING TIME AND THE POSSIBILITY
051181,000104: # OF OTHER TASKS INHIBITING THE INTERRUPT.
051182,000105:
051183,000106: 5251 BLOCK 02
051184,000107: 5251 E3,1400 EBANK= LST1 # TASK LISTS IN SWITCHED E BANK.
051185,000108:
051186,000109: 5251 COUNT 02/WAIT
051187,000110:
051188,000111: 5251 00004 TWIDDLE INHINT
051189,000112: 5252 54001 TS L # SAVE DELAY TIME IN L
051190,000113: 5253 35013 CA POSMAX
051191,000114: 5254 26002 ADS Q # CREATING OVERFLOW AND Q-1 IN Q
051192,000115: 5255 30006 CA BBANK
051193,000116: 5256 00006 EXTEND
051194,000117: 5257 04007 ROR SUPERBNK
051195,000118: 5260 56001 XCH L
051196,000119:
051197,000120: 5261 00004 WAITLIST INHINT
051198,000121: 5262 00006 EXTEND
051199,000122: 5263 65275 BZMF WATLST0-
051200,000123: 5264 56002 XCH Q # SAVE DELTA T IN Q AND RETURN IN
051201,000124: 5265 54061 TS WAITEXIT # WAITEXIT.
051202,000125: 5266 00006 EXTEND
051203,000126: 5267 50061 INDEX WAITEXIT # IF TWIDDLING, THE TS SKIPS TO HERE
051204,000127: 5270 30001 DCA 0 # PICK UP 2CADR OF TASK.
051205,000128: 5271 54063 -1 TS WAITADR # BBCON WILL REMAIN IN L
051206,000129: 5272 35302 DLY2 CAF WAITBB # ENTRY FROM FIXDELAY AND VARDELAY.
051207,000130: 5273 56006 XCH BBANK
051208,000131: 5274 13246 TCF WAIT2
051209,000132:
051210,000133: 5275 05725 WATLST0- TC POODOO
051211,000134: 5276 21204 OCT 21204
051212,000135:
051213,000136: # RETURN TO CALLER AFTER TASK INSERTION:
051214,000137:
051215,000138: 5277 52062 LVWTLIST DXCH WAITEXIT
051216,000139: 5300 65032 AD TWO
051217,000140: 5301 52006 DTCB
051218,000141:
051219,000142: 5302 E3,1400 EBANK= LST1
051220,000143: 5302 02063 WAITBB BBCON WAIT2
051221,000144:
051222,000145: # RETURN TO CALLER +2 AFTER WAITING DT SPECIFIED AT CALLER +1.
051223,000146:
051224,000147: 5303 50002 FIXDELAY INDEX Q # BOTH ROUTINES MUST BE CALLED UNDER
051225,000148: 5304 30000 CAF 0 # WAITLIST CONTROL AND TERMINATE THE TASK
051226,000149: 5305 24002 INCR Q # IN WHICH THEY WERE CALLED.
051227,000150:
051228,000151: # RETURN TO CALLER +1 AFTER WAITING THE DT AS ARRIVING IN A.
051229,000152:
051230,000153: 5306 56002 VARDELAY XCH Q # DT TO Q. TASK ADRES TO WAITADR.
051231,000154: 5307 54063 TS WAITADR
051232,000155: 5310 30006 CA BBANK # BBANK IS SAVED DURING DELAY.
051233,000156: 5311 00006 EXTEND
051234,000157: 5312 04007 ROR SUPERBNK # ADD SBANK TO BBCON.
051235,000158: 5313 54001 TS L
051236,000159: 5314 35317 CAF DELAYEX
051237,000160: 5315 54061 TS WAITEXIT # GO TO TASKOVER AFTER TASK ENTRY.
051238,000161: 5316 15272 TCF DLY2
051239,000162:
051240,000163: 5317 15336 DELAYEX TCF TASKOVER -2 # RETURNS TO TASKOVER
051241,000164:
051242,000165: # ENDTASK MUST BE ENTERED IN FIXED-FIXED SO IT IS DISTINGUISHABLE BY ITS ADRES ALONE.
051243,000166:
051244,000167: 5320 E3,1400 EBANK= LST1
051245,000168: 5320 72455 73714 ENDTASK -2CADR SVCT3
051246,000169:
051247,000170: 5322 10076 SVCT3 CCS FLAGWRD2 # DRIFT FLAG
051248,000171: 5323 15340 TCF TASKOVER
051249,000172: 5324 15340 TCF TASKOVER
051250,000173: 5325 15326 TCF +1
051251,000174:
051252,000175: 5326 11322 CCS IMUCADR # DON'T DO NBDONLY IF SOMEONE ELSE IS IN
051253,000176: 5327 17717 TCF SVCT3X
051254,000177: 5330 15333 TCF +3
051255,000178: 5331 17717 TCF SVCT3X
051256,000179: 5332 17717 TCF SVCT3X
051257,000180: 5333 37672 +3 CAF PRIO35 # COMPENSATE FOR NBD COEFFICIENTS ONLY.
051258,000181: 5334 05150 TC NOVAC # ENABLE EVERY 81.93 SECONDS
051259,000182: 5335 E3,1460 EBANK= NBDX
051260,000183: 5335 03542 14063 2CADR NBDONLY
051261,000184:
051262,000185: 5337 15340 TCF TASKOVER
051263,000186:
051264,000187: 6000 SETLOC FFTAG6
051265,000188: 6000 BANK
051266,000189:
051267,000190: 7717 05303 SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMU ZERO
051268,000191: 7720 00764 DEC 500 B-14
051269,000192: 7721 05322 TC SVCT3 # CHECK DRIFT FLAG AGAIN
051270,000193:
051271,000194: # BEGIN TASK INSERTION.
051272,000195:
051273,000196: 01,3246 BANK 01
051274,000197: 01,3246 COUNT 01/WAIT
051275,000198:
051276,000199: 01,3246 54062 WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
051277,000200: 01,3247 40026 CS TIME3
051278,000201: 01,3250 65024 AD BIT8 # BIT 8 = OCT 200
051279,000202: 01,3251 10000 CCS A # TEST 200 - C(TIME3). IF POSITIVE,
051280,000203: # IT MEANS THAT TIME3 OVERFLOW HAS OCCURRED PRIOR TO CS TIME3 AND THAT
051281,000204: # C(TIME3) = T - T1, INSTEAD OF 1.0 - (T1 - T). THE FOLLOWING FOUR
051282,000205: # ORDERS SET C(A) = TD - T1 + 1 IN EITHER CASE.
051283,000206:
051284,000207: 01,3252 66056 AD OCT40001 # OVERFLOW HAS OCCURRED. SET C(A) =
051285,000208: 01,3253 40000 CS A # T - T1 + 1.0 - 201
051286,000209:
051287,000210: # NORMAL CASE (C(A) NNZ) YIELDS SAME C(A): -( -(1.0-(T1-T)) + 200) - 1
051288,000211:
051289,000212: 01,3254 63402 AD OCT40201
051290,000213: 01,3255 60002 AD Q # RESULT = TD - T1 + 1.
051291,000214:
051292,000215: 01,3256 10000 CCS A # TEST TD - T1 +1
051293,000216:
051294,000217: 01,3257 61400 AD LST1 # IF TD - T1 POS, GO TO WTLST5 WITH
051295,000218: 01,3260 13322 TCF WTLST5 # C(A) = (TD - T1) + C(LST1) = TD-T2+1
051296,000219:
051297,000220: 01,3261 13262 NOOP
051298,000221: 01,3262 40002 CS Q
051299,000222:
051300,000223: # NOTE THAT THIS PROGRAM SECTION IS NEVER ENTERED WHEN T-T1 G/E -1,
051301,000224: # SINCE TD-T1+1 = (TD-T) + (T-T1+1), AND DELTA T = TD-T G/E +1. (G/E
051302,000225: # SYMBOL MEANS GREATER THAN OR EQUAL TO). THUS THERE NEED BE NO CON-
051303,000226: # CERN OVER A PREVIOUS OR IMMINENT OVERFLOW OF TIME3 HERE.
051304,000227:
051305,000228: 01,3263 65016 AD POS1/2 # WHEN TD IS NEXT, FORM QUANTITY
051306,000229: 01,3264 65016 AD POS1/2 # 1.0 - DELTA T = 1.0 - (TD - T)
051307,000230: 01,3265 56026 XCH TIME3
051308,000231: 01,3266 65015 AD NEGMAX
051309,000232: 01,3267 60002 AD Q # 1.0 - DELTAT T NOW COMPLETE.
051310,000233: 01,3270 00006 EXTEND # ZERO INDEX Q.
051311,000234: 01,3271 22007 QXCH 7 # (ZQ)
051312,000235:
051313,000236: 01,3272 57400 WTLST4 XCH LST1
051314,000237: 01,3273 57401 XCH LST1 +1
051315,000238: 01,3274 57402 XCH LST1 +2
051316,000239: 01,3275 57403 XCH LST1 +3
051317,000240: 01,3276 57404 XCH LST1 +4
051318,000241: 01,3277 57405 XCH LST1 +5
051319,000242: 01,3300 57406 XCH LST1 +6
051320,000243: 01,3301 57407 XCH LST1 +7
051321,000244:
051322,000245: 01,3302 30063 CA WAITADR # (MINOR PART OF TASK CADR HAS BEEN IN L.)
051323,000246: 01,3303 50002 INDEX Q
051324,000247: 01,3304 13305 TCF +1
051325,000248:
051326,000249: 01,3305 53411 DXCH LST2
051327,000250: 01,3306 53413 DXCH LST2 +2
051328,000251: 01,3307 53415 DXCH LST2 +4
051329,000252: 01,3310 53417 DXCH LST2 +6
051330,000253: 01,3311 53421 DXCH LST2 +8D
051331,000254: 01,3312 53423 DXCH LST2 +10D # AT END, CHECK THAT C(LST2 +10) IS STD
051332,000255: 01,3313 53425 DXCH LST2 +12D
051333,000256: 01,3314 53427 DXCH LST2 +14D
051334,000257: 01,3315 53431 DXCH LST2 +16D
051335,000258: 01,3316 65320 AD ENDTASK # END ITEM, AS CHECK FOR EXCEEDING
051336,000259: # THE LENGTH OF THE LIST.
051337,000260: 01,3317 00006 EXTEND # DUMMY TASK ADRES SHOULD BE IN FIXED-
051338,000261: 01,3320 15277 BZF LVWTLIST # FIXED SO ITS ADRES ALONE DISTINGUISHES
051339,000262: 01,3321 13375 TCF WTABORT # IT.
051340,000263:
051341,000264: 01,3322 10000 WTLST5 CCS A # TEST TD - T2 + 1
051342,000265: 01,3323 61401 AD LST1 +1
051343,000266: 01,3324 13330 TCF +4
051344,000267: 01,3325 65033 AD ONE
051345,000268: 01,3326 03403 TC WTLST2
051346,000269: 01,3327 00001 OCT 1
051347,000270:
051348,000271: 01,3330 10000 +4 CCS A # TEST TD - T3 + 1
051349,000272: 01,3331 61402 AD LST1 +2
051350,000273: 01,3332 13336 TCF +4
051351,000274: 01,3333 65033 AD ONE
051352,000275: 01,3334 03403 TC WTLST2
051353,000276: 01,3335 00002 OCT 2
051354,000277:
051355,000278: 01,3336 10000 +4 CCS A # TEST TD - T4 + 1
051356,000279: 01,3337 61403 AD LST1 +3
051357,000280: 01,3340 13344 TCF +4
051358,000281: 01,3341 65033 AD ONE
051359,000282: 01,3342 03403 TC WTLST2
051360,000283: 01,3343 00003 OCT 3
051361,000284:
051362,000285: 01,3344 10000 +4 CCS A # TEST TD - T5 + 1
051363,000286: 01,3345 61404 AD LST1 +4
051364,000287: 01,3346 13352 TCF +4
051365,000288: 01,3347 65033 AD ONE
051366,000289: 01,3350 03403 TC WTLST2
051367,000290: 01,3351 00004 OCT 4
051368,000291:
051369,000292: 01,3352 10000 +4 CCS A # TEST TD - T6 + 1
051370,000293: 01,3353 61405 AD LST1 +5
051371,000294: 01,3354 13360 TCF +4
051372,000295: 01,3355 65033 AD ONE
051373,000296: 01,3356 03403 TC WTLST2
051374,000297: 01,3357 00005 OCT 5
051375,000298:
051376,000299: 01,3360 10000 +4 CCS A # TEST TD - T7 + 1
051377,000300: 01,3361 61406 AD LST1 +6
051378,000301: 01,3362 13366 TCF +4
051379,000302: 01,3363 65033 AD ONE
051380,000303: 01,3364 03403 TC WTLST2
051381,000304: 01,3365 00006 OCT 6
051382,000305:
051383,000306: 01,3366 10000 +4 CCS A
051384,000307: 01,3367 61407 AD LST1 +7
051385,000308: 01,3370 13374 TCF +4
051386,000309: 01,3371 65033 AD ONE
051387,000310: 01,3372 03403 TC WTLST2
051388,000311: 01,3373 00007 OCT 7
051389,000312:
051390,000313: 01,3374 10000 +4 CCS A
051391,000314: 01,3375 07755 WTABORT TC BAILOUT # NO ROOM IN THE INN.
051392,000315: 01,3376 31203 OCT 31203
051393,000316:
051394,000317: 01,3377 65033 AD ONE
051395,000318: 01,3400 03403 TC WTLST2
051396,000319: 01,3401 00010 OCT 10
051397,000320:
051398,000321: 01,3402 40201 OCT40201 OCT 40201
051399,000322:
051400,000323: # THE ENTRY TO WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
051401,000324: # N N+1
051402,000325:
051403,000326: # (LE MEANS LESS THAN OR EQUAL TO). AT ENTRY, C(A) = -(TD - T + 1)
051404,000327: # N+1
051405,000328:
051406,000329: # THE LST1 ENTRY-(T -T +1) IS TO BE REPLACED BY -(TD - T + 1), AND
051407,000330: # N+1 N N
051408,000331:
051409,000332: # THE ENTRY-(T - TD + 1) IS TO BE INSERTED IMMEDIATELY FOLLOWING.
051410,000333: # N+1
051411,000334:
051412,000335: 01,3403 54064 WTLST2 TS WAITTEMP # C(A) = -(TD - T + 1)
051413,000336: 01,3404 50002 INDEX Q
051414,000337: 01,3405 30000 CAF 0
051415,000338: 01,3406 54002 TS Q # INDEX VALUE INTO Q.
051416,000339:
051417,000340: 01,3407 35033 CAF ONE
051418,000341: 01,3410 60064 AD WAITTEMP
051419,000342: 01,3411 50002 INDEX Q # C(A) = -(TD - T ) + 1.
051420,000343: 01,3412 27377 ADS LST1 -1 # N
051421,000344:
051422,000345: 01,3413 40064 CS WAITTEMP
051423,000346: 01,3414 50002 INDEX Q
051424,000347: 01,3415 13272 TCF WTLST4
051425,000348:
051426,000349: # C(TIME3) = 1.0 - (T1 - T)
051427,000350:
051428,000351: # C(LST1 ) = - (T2 - T1) + 1
051429,000352: # C(LST1+1) = - (T3 - T2) + 1
051430,000353: # C(LST1+2) = - (T4 - T3) + 1
051431,000354: # C(LST1+3) = - (T5 - T4) + 1
051432,000355: # C(LST1+4) = - (T6 - T5) + 1
051433,000356:
051434,000357: # C(LST2 ) = 2CADR TASK1
051435,000358: # C(LST2+2 ) = 2CADR TASK2
051436,000359: # C(LST2+4 ) = 2CADR TASK3
051437,000360: # C(LST2+6 ) = 2CADR TASK4
051438,000361: # C(LST2+8 ) = 2CADR TASK5
051439,000362: # C(LST2+10) = 2CADR TASK6
051440,000363:
051441,000364: # ENTERS HERE ON T3 RUPT TO DISPATCH WAITLISTED TASK.
051442,000365:
051443,000366: 01,3416 00006 T3RUPT EXTEND
051444,000367: 01,3417 04007 ROR SUPERBNK # READ CURRENT SUPERBANK VALUE AND
051445,000368: 01,3420 54016 TS BANKRUPT # SAVE WITH E AND F BANK VALUES.
051446,000369: 01,3421 00006 EXTEND
051447,000370: 01,3422 22012 QXCH QRUPT
051448,000371:
051449,000372: 01,3423 35014 T3RUPT2 CAF NEG1/2 # DISPATCH WAITLIST TASK.
051450,000373: 01,3424 57407 XCH LST1 +7
051451,000374: 01,3425 57406 XCH LST1 +6
051452,000375: 01,3426 57405 XCH LST1 +5
051453,000376: 01,3427 57404 XCH LST1 +4 # 1. MOVE UP LST1 CONTENTS, ENTERING
051454,000377: 01,3430 57403 XCH LST1 +3 # A VALUE OF 1/2 +1 AT THE BOTTOM
051455,000378: 01,3431 57402 XCH LST1 +2 # FOR T6-T5, CORRESPONDING TO THE
051456,000379: 01,3432 57401 XCH LST1 +1 # INTERVAL 81.91 SEC FOR ENDTASK.
051457,000380: 01,3433 57400 XCH LST1
051458,000381: 01,3434 65013 AD POSMAX # 2. SET T3 = 1.0 - T2 - T USING LIST 1.
051459,000382: 01,3435 26026 ADS TIME3 # SO T3 WONT TICK DURING UPDATE.
051460,000383: 01,3436 54734 TS RUPTAGN
051461,000384: 01,3437 45035 CS ZERO
051462,000385: 01,3440 54734 TS RUPTAGN # SETS RUPTAGN TO +1 ON OVERFLOW.
051463,000386:
051464,000387: 01,3441 00006 EXTEND # DISPATCH TASK.
051465,000388: 01,3442 45321 DCS ENDTASK
051466,000389: 01,3443 53431 DXCH LST2 +16D
051467,000390: 01,3444 53427 DXCH LST2 +14D
051468,000391: 01,3445 53425 DXCH LST2 +12D
051469,000392: 01,3446 53423 DXCH LST2 +10D
051470,000393: 01,3447 53421 DXCH LST2 +8D
051471,000394: 01,3450 53417 DXCH LST2 +6
051472,000395: 01,3451 53415 DXCH LST2 +4
051473,000396: 01,3452 53413 DXCH LST2 +2
051474,000397: 01,3453 53411 DXCH LST2
051475,000398:
051476,000399: 01,3454 56001 XCH L
051477,000400: 01,3455 00006 EXTEND
051478,000401: 01,3456 01007 WRITE SUPERBNK # SET SUPERBANK FROM BBCON OF 2CADR
051479,000402: 01,3457 56001 XCH L # RESTORE TO L FOR DXCH Z.
051480,000403: 01,3460 52006 DTCB
051481,000404:
051482,000405: # RETURN, AFTER EXECUTION OF T3 OVERFLOW TASK:
051483,000406:
051484,000407: 5340 BLOCK 02
051485,000408: 5340 COUNT 02/WAIT
051486,000409:
051487,000410: 5340 10734 TASKOVER CCS RUPTAGN # IF +1 RETURN TO T3RUPT, IF -0 RESUME.
051488,000411: 5341 35302 CAF WAITBB
051489,000412: 5342 54006 TS BBANK
051490,000413: 5343 13423 TCF T3RUPT2 # DISPATCH NEXT TASK IF IT WAS DUE.
051491,000414:
051492,000415: 5344 30016 CA BANKRUPT
051493,000416: 5345 00006 EXTEND
051494,000417: 5346 01007 WRITE SUPERBNK # RESTORE SUPERBANK BEFORE RESUME IS DONE
051495,000418:
051496,000419: 5347 00006 RESUME EXTEND
051497,000420: 5350 22012 QXCH QRUPT
051498,000421: 5351 30016 NOQRSM CA BANKRUPT
051499,000422: 5352 56006 XCH BBANK
051500,000423: 5353 52011 NOQBRSM DXCH ARUPT
051501,000424: 5354 00003 RELINT
051502,000425: 5355 50017 RESUME
051503,000426:
051504,000427: # LONGCALL
051505,000428: # PROGRAM DESCRIPTION DATE - 17 MARCH 1967
051506,000429: # PROGRAM WRITTEN BY W.H.VANDEVER LOG SECTION WAITLIST
051507,000430: # MOD BY - R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 100
051508,000431:
051509,000432: # FUNCTIONAL DESCRIPTION -
051510,000433: # LONGCALL IS CALLED WITH THE DELTA TIME ARRIVING IN A,L SCALED AS TIME2,TIME1 WITH THE 2CADR OF THE TASK
051511,000434: # IMMEDIATELY FOLLOWING THE TC LONGCALL. FOR EXAMPLE, IT MIGHT BE DONE AS FOLLOWS WHERE TIMELOC IS THE NAME OF
051512,000435: # A DP REGISTER CONTAINING A DELTA TIME AND WHERE TASKTODO IS THE NAME OF THE LOCATION AT WHICH LONGCALL IS TO
051513,000436: # START
051514,000437:
051515,000438: # CALLING SEQUENCE -
051516,000439: # EXTEND
051517,000440: # DCA TIMELOC
051518,000441: # TC LONGCALL
051519,000442: # 2CADR TASKTODO
051520,000443:
051521,000444: # NORMAL EXIT MODE -
051522,000445: # 1). TC WAITLIST
051523,000446: # 2). DTCB (TO L+3 OF CALLING ROUTINE 1ST PASS THRU LONGCYCL)
051524,000447: # 3). DTCB (TO TASKOVER ON SUBSEQUENT PASSES THRU LONGCYCL)
051525,000448:
051526,000449: # ALARM OR ABORT EXIT MODE -
051527,000450: # NONE
051528,000451:
051529,000452: # OUTPUT -
051530,000453: # LONGTIME AND LONGTIME+1 = DELTA TIME
051531,000454: # LONGEXIT AND LONGEXIT+1 = RETURN 2CADR
051532,000455: # LONGCADR AND LONGCADR+1 = TASK 2CADR
051533,000456: # A = SINGLE PRECISION TIME FOR WAITLIST
051534,000457:
051535,000458: # ERASABLE INITIALIZATION -
051536,000459: # A = MOST SIGNIFICANT PART OF DELTA TIME
051537,000460: # L = LEAST SIGNIFICANT PART OF DELTA TIME
051538,000461: # Q = ADDRESS OF 2CADR TASK VALUE
051539,000462:
051540,000463: # DEBRIS -
051541,000464: # A,Q,L
051542,000465: # LONGCADR AND LONGCADR+1
051543,000466: # LONGEXIT AND LONGEXIT+1
051544,000467: # LONGTIME AND LONGTIME+1
051545,000468:
051546,000469: # *** THE FOLLOWING IS TO BE IN FIXED-FIXED AND UNSWITCHED ERRASIBLE ***
051547,000470:
051548,000471: 5356 BLOCK 02
051549,000472: 5356 E3,1400 EBANK= LST1
051550,000473: 5356 53140 LONGCALL DXCH LONGTIME # OBTAIN THE DELTA TIME
051551,000474:
051552,000475: 5357 00006 EXTEND # OBTAIN THE 2CADR
051553,000476: 5360 50002 NDX Q
051554,000477: 5361 30001 DCA 0
051555,000478: 5362 53134 DXCH LONGCADR
051556,000479:
051557,000480: 5363 00006 EXTEND # NOW GO TO THE APPROPRIATE SWITCHED BANK
051558,000481: 5364 35367 DCA LGCL2CDR # FOR THE REST OF LONGCALL
051559,000482: 5365 52006 DTCB
051560,000483:
051561,000484: 5366 E3,1400 EBANK= LST1
051562,000485: 5366 03461 02063 LGCL2CDR 2CADR LNGCALL2
051563,000486:
051564,000487: # *** THE FOLLOWING MAY BE IN A SWITCHED BANK, INCLUDING ITS ERASABLE ***
051565,000488:
051566,000489: 01,3461 BANK 01
051567,000490: 01,3461 COUNT 01/WAIT
051568,000491:
051569,000492: 01,3461 23435 LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
051570,000493: 01,3462 35032 CA TWO # OBTAIN THE RETURN ADDRESS
051571,000494: 01,3463 26002 ADS Q
051572,000495: 01,3464 55434 TS LONGEXIT
051573,000496:
051574,000497: # *** WAITLIST TASK LONGCYCL ***
051575,000498:
051576,000499: 01,3465 00006 LONGCYCL EXTEND # CAN WE SUCCESFULLY TAKE ABOUT 1.25
051577,000500: 01,3466 43477 DCS DPBIT14 # MINUTES OFF OF LONGTIME
051578,000501: 01,3467 21140 DAS LONGTIME
051579,000502:
051580,000503: 01,3470 11140 CCS LONGTIME +1 # THE REASONIBG BEHIND THIS PART IS
051581,000504: 01,3471 13510 TCF MUCHTIME # INVOLVED, TAKING INTO ACCOUNT THAT THE
051582,000505: # WORDS MAY NOT BE SIGNED CORRECTED (DP
051583,000506: # BASIC INSTRUCTIONS
051584,000507: # DO NOT SIGN CORRECT) AND THAT WE SUBTRAC
051585,000508: # TED BIT14 (1 OVER HALF THE POS. VALUE
051586,000509: # REPRESENTIBLE IN SINGLE WORD)
051587,000510: 01,3472 13473 NOOP # CAN:T GET HERE **********
051588,000511: 01,3473 13474 TCF +1
051589,000512: 01,3474 11137 CCS LONGTIME
051590,000513: 01,3475 13510 TCF MUCHTIME
051591,000514: 01,3476 00000 DPBIT14 OCT 00000
051592,000515: 01,3477 20000 OCT 20000
051593,000516:
051594,000517: # LONGCALL
051595,000518: 01,3500 35016 LASTTIME CA BIT14 # GET BACK THE CORRECT DELTA TFOR WAITLIST
051596,000519: 01,3501 27140 ADS LONGTIME +1
051597,000520: 01,3502 05261 TC WAITLIST
051598,000521: 01,3503 E3,1400 EBANK= LST1
051599,000522: 01,3503 03515 02063 2CADR GETCADR # THE ENTRY TO OUR LONGCADR
051600,000523:
051601,000524: 01,3505 33517 LONGRTRN CA TSKOVCDR # SET IT UP SO THAT ONLY THE FIRST EXIT IS
051602,000525: 01,3506 53435 DXCH LONGEXIT # TO THE CALLER OF LONGCALL
051603,000526: 01,3507 52006 DTCB # THE REST ARE TO TASKOVER
051604,000527:
051605,000528: 01,3510 35016 MUCHTIME CA BIT14 # WE HAVE OVER OUR ABOUT 1.25 MINUTES
051606,000529: 01,3511 05261 TC WAITLIST # SO SET UP FOR ANOTHER CYCLE THROUGH HERE
051607,000530: 01,3512 E3,1400 EBANK= LST1
051608,000531: 01,3512 03465 02063 2CADR LONGCYCL
051609,000532:
051610,000533: 01,3514 13505 TCF LONGRTRN # NOW EXIT PROPERLY
051611,000534:
051612,000535: # *** WAITLIST TASK GETCADR ***
051613,000536:
051614,000537: 01,3515 53134 GETCADR DXCH LONGCADR # GET THE LONGCALL THAT WE WISHED TO START
051615,000538: 01,3516 52006 DTCB # AND TRANSFER CONTROL TO IT
051616,000539:
051617,000540: 01,3517 05340 TSKOVCDR GENADR TASKOVER
051618,000541:
051619,000542:
End of include-file WAITLIST.agc. Parent file is MAIN.agc