Pre-launch Review
SERVICE ROUTINES
It name, and page images. Corrected various typos in the transcription of program comments, and these should be back-ported to Colossus249
# Copyright: Public domain.# Filename: SERVICE_ROUTINES.agc# Purpose: Part of the source code for Comanche, build 055. It# is part of the source code for the Command Module's# (CM) Apollo Guidance Computer (AGC), Apollo 11.# Assembler: yaYUL# Reference: pp. 1485-1492# Contact: Ron Burkey <info@sandroid.org># Website: http://www.ibiblio.org/apollo.# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same# name, and page images. Corrected various# typos in the transcription of program# comments, and these should be back-ported# to Colossus249.## The contents of the "Comanche055" files, in general, are transcribed# from scanned documents.## Assemble revision 055 of AGC program Comanche by NASA# 2021113-051. April 1, 1969.## This AGC program shall also be referred to as Colossus 2A## Prepared by# Massachusetts Institute of Technology# 75 Cambridge Parkway# Cambridge, Massachusetts## under NASA contract NAS 9-4065.## Refer directly to the online document mentioned above for further# information. Please report any errors to info@sandroid.org.
# Page 1485 BLOCK 3 SETLOC FFTAG6 BANK COUNT 03/FLAG
UPENT2 TS L # WHICH FLAGWORD IS IT MASK OCT7 XCH L # SAVE IN L FOR INDEXING
MASK OCT77770 # OBTAIN THE BIT INFORMATION INHINT # PREVENT INTERUPTS TS ITEMP1 # STORE THE BIT INFORMATION TEMPORARIALY
NDX L CS FLAGWRD0 MASK ITEMP1 NDX L ADS FLAGWRD0 RELINT # RELEASE INTERUPT INHIBIT
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS TC Q # RETURN
DOWNENT2 TS L # WHICH FLAGWORD IS IT MASK OCT7 XCH L # SAVE IN L FOR INDEXING
MASK OCT77770 # OBTAIN THE BIT INFORMATION COM # START TO PROCESS THE INFORMATION
INHINT # PREVENT INTERUPTS NDX L MASK FLAGWRD0 NDX L TS FLAGWRD0 RELINT # RELEASE INTERUPT INHIBIT
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS TC Q # RETURN
OCT7 EQUALS SEVEN BANK 10
# Page 1486## UPFLAG AND DOWNFLAG ARE ENTIRELY GENERAL FLAG SETTING AND CLEARING SUBROUTINES. USING THEM, WHETHER OR# NOT IN INTERRUPT, ONE MAY SET OR CLEAR ANY SINGLE, NAMED BIT IN ANY ERASABLE REGISTER, SUBJECT OF COURSE TO# EBANK SETTING. A "NAMED" BIT, AS THE WORD IS USED HERE, IS ANY BIT WITH A NAME FORMALLY ASSIGNED BY THE YUL# ASSEMBLER.## AT PRESENT THE ONLY NAMED BITS ARE THOSE IN THE FLAGWORDS. ASSEMBLER CHANGES WILL MAKE IT POSSIBLE TO# NAME ANY BIT IN ERASABLE MEMORY.## CALLING SEQUENCES ARE AS FOLLOWS:-## TC UPFLAG TC DOWNFLAG# ADRES NAME OF FLAG ADRES NAME OF FLAG## RETURN IS TO THE LOCATION FOLLOWING THE "ADRES" ABOUT .58 MS AFTER THE "TC".## UPON RETURN A CONTAINS THE CURRENT FLAGWRD SETTING.
BLOCK 02 SETLOC FFTAG1 BANK COUNT* $$/FLAG
UPFLAG CA Q TC DEBIT COM # +(15 - BIT) EXTEND ROR LCHAN # SET BITCOMFLAG INDEX ITEMP1 TS FLAGWRD0 LXCH ITEMP3 RELINT TC L
DOWNFLAG CA Q TC DEBIT MASK L # RESET BIT TCF COMFLAG
DEBIT AD ONE # GET DE BITS INHINT TS ITEMP3 CA LOW4 # DEC15 TS ITEMP1 INDEX ITEMP3 CA 0 -1 # ADRES TS L CA ZERO# Page 1487 EXTEND DV ITEMP1 # A = FLAGWRD, L = (15 - BIT) DXCH ITEMP1 INDEX ITEMP1 CA FLAGWRD0 TS L # CURRENT STATE INDEX ITEMP2 CS BIT15 # -(15 - BIT) TC Q
# Page 1488# DELAYJOB- A GENERAL ROUTINE TO DELAY A JOB A SPECIFIC AMOUNT OF TIME BEFORE PICKING UP AGAIN.## ENTRANCE REQUIREMENTS...# CAF DT # DELAY JOB FOR DT CENTISECS# TC BANKCALL# CADR DELAYJOB
BANK 06 SETLOC DLAYJOB BANK
# THIS MUST REMAIN IN BANK 0 ****************************************
COUNT 00/DELAY
DELAYJOB INHINT TS Q # STORE DELAY DT IN Q FOR DLY -1 IN
CAF DELAYNUM # WAITLISTDELLOOP TS RUPTREG1 INDEX A CA DELAYLOC # IS THIS DELAYLOC AVAILABLE EXTEND BZF OK2DELAY # YES
CCS RUPTREG1 # NO, TRY NEXT DELAYLOC TCF DELLOOP
TC BAILOUT # NO AVAILABLE LOCS AVAILABLE. OCT 1104
OK2DELAY CA TCSLEEP # SET WAITLIST IMMEDIATE RETURN TS WAITEXIT
CA FBANK AD RUPTREG1 # STORE BBANK FOR TASK CALL TS L
CAF WAKECAD # STORE CADR FOR TASK CALL TCF DLY2 -1 # DLY IS IN WAITLIST ROUTINE
TCGETCAD TC MAKECADR # GET CALLERS FCADR
INDEX RUPTREG1 TS DELAYLOC # SAVE DELAY CADRS
TC JOBSLEEP
WAKER CAF ZERO INDEX BBANK XCH DELAYLOC # MAKE DELAYLOC AVAILABLE# Page 1489 TC JOBWAKE
TC TASKOVER
TCSLEEP GENADR TCGETCAD -2WAKECAD GENADR WAKER
# Page 1490# GENTRAN, A BLOCK TRANSFER ROUTINE.## WRITTEN BY D. EYLES# MOD 1 BY KERNAN UTILITYM REV 17 11/18/67## MOD 2 BY SCHULENBERG (REMOVE RELINT) SKIPPER REV 4 2/28/68## THIS ROUTINE IS USEFULL FOR TRANSFERING N CONSECUTIVE ERASABLE OR FIXED QUANTITIES TO SOME OTHER N# CONSECUTIVE ERASABLE LOCATIONS. IF BOTH BLOCKS OF DATA ARE IN SWITCHABLE EBANKS, THEY MUST BE IN THE SAME ONE.## GENTRAN IS CALLABLE IN A JOB AS WELL AS A RUPT. THE CALLING SEQUENCE IS:## I CA N-1 # # OF QUANTITIES MINUS ONE.# I +1 TC GENTRAN # IN FIXED-FIXED.# I +2 ADRES L # STARTING ADRES OF DATA TO BE MOVED.# I +3 ADRES M # STARTING ADRES OF DUPLICATION BLOCK.# I +4 # RETURNS HERE.## GENTRAN TAKES 25 MCT'S (300 MICROSECONDS) PER ITEM + 5 MCT'S (60 MICS) FOR ENTERING AND EXITING.## A, L AND ITEMP1 ARE NOT PRESERVED.
BLOCK 02 SETLOC FFTAG4 BANK
EBANK= ITEMP1
COUNT* $$/TRAN
GENTRAN INHINT TS ITEMP1 # SAVE N-1. INDEX Q # C(Q) = ADRES L. AD 0 # ADRES (L + N - 1). INDEX A CA 0 # C(ABOVE). TS L # SAVE DATA. CA ITEMP1 INDEX Q AD 1 # ADRES (M + N - 1). INDEX A LXCH 0 # STUFF IT. CCS ITEMP1 # LOOP UNTIL N-1 = 0. TCF GENTRAN +1 TCF Q+2 # RETURN TO CALLER.
# Page 1491# B5OFF ZERO BIT 5 OF EXTVBACT, WHICH IS SET BY TESTXACT.## MAY BE USED AS NEEDED BY ANY EXTENDED VERB WHICH HAS DONE TESTXACT
COUNT* $$/EXTVB
B5OFF CS BIT5 MASK EXTVBACT TS EXTVBACT TC ENDOFJOB
# Page 1492# SUBROUTINES TO TURN OFF AND TURN ON TRACKER FAIL LIGHT.
TRFAILOF INHINT CS OCT40200 # TURN OFF TRACKER LIGHT MASK DSPTAB +11D AD BIT15 TS DSPTAB +11D CS OPTMODES # TO INSURE THAT OCDU FAIL WILL GO ON MASK BIT7 # AGAIN IF IT WAS ON IN ADDITION TO ADS OPTMODES # TRACKER FAIL.
REQ RELINT TC Q
TRFAILON INHINT CS DSPTAB +11D # TURN ON MASK OCT40200 ADS DSPTAB +11D TCF REQ