93 lines
2.4 KiB
Plaintext
93 lines
2.4 KiB
Plaintext
![]() |
# Copyright: Public domain.
|
||
|
# Filename: MYSUBS.agc
|
||
|
# Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
|
||
|
# It is part of the source code for the Command Module's (CM)
|
||
|
# Apollo Guidance Computer (AGC), for Apollo 11.
|
||
|
# Assembler: yaYUL
|
||
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||
|
# Website: www.ibiblio.org/apollo.
|
||
|
# Pages: 999-1001
|
||
|
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
|
||
|
# same name, using Comanche055 page images.
|
||
|
# 2009-05-20 RSB Corrections: EBANK= changed from MPAC to KMPAC.
|
||
|
#
|
||
|
# This source code has been transcribed or otherwise adapted from digitized
|
||
|
# images of a hardcopy from the MIT Museum. The digitization was performed
|
||
|
# by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
|
||
|
# thanks to both. The images (with suitable reduction in storage size and
|
||
|
# consequent reduction in image quality as well) are available online at
|
||
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||
|
# (much) higher-quality images which Paul actually created.
|
||
|
#
|
||
|
# Notations on the hardcopy document read, in part:
|
||
|
#
|
||
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||
|
# 2021113-051. 10:28 APR. 1, 1969
|
||
|
#
|
||
|
# This AGC program shall also be referred to as
|
||
|
# Colossus 2A
|
||
|
|
||
|
# Page 999
|
||
|
BANK 20
|
||
|
SETLOC MYSUBS
|
||
|
BANK
|
||
|
|
||
|
EBANK= KMPAC
|
||
|
SPCOS1 EQUALS SPCOS
|
||
|
SPSIN1 EQUALS SPSIN
|
||
|
SPCOS2 EQUALS SPCOS
|
||
|
SPSIN2 EQUALS SPSIN
|
||
|
|
||
|
COUNT 21/DAPMS
|
||
|
|
||
|
# ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
|
||
|
|
||
|
SMALLMP TS KMPTEMP # A(X+Y)
|
||
|
EXTEND
|
||
|
MP KMPAC +1
|
||
|
TS KMPAC +1 # AY
|
||
|
CAF ZERO
|
||
|
XCH KMPAC
|
||
|
EXTEND
|
||
|
MP KMPTEMP # AX
|
||
|
DAS KMPAC # AX+AY
|
||
|
TC Q
|
||
|
|
||
|
# SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
|
||
|
# A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
|
||
|
# RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW)
|
||
|
|
||
|
DPADD DAS KMPAC
|
||
|
EXTEND
|
||
|
BZF TSK +1 # NO OVERFLOW
|
||
|
CCS KMPAC
|
||
|
TCF DPADD+ # + OVERFLOW
|
||
|
TCF +2
|
||
|
TCF DPADD- # - OVERFLOW
|
||
|
CCS KMPAC +1
|
||
|
TCF DPADD2+ # UPPER = 0, LOWER +
|
||
|
TCF +2
|
||
|
COM # UPPER = 0, LOWER -
|
||
|
AD POSMAX # LOWER = 0, A = 0
|
||
|
TS KMPAC +1 # CAN NOT OVERFLOW
|
||
|
CA POSMAX # UPPER WAS = 0
|
||
|
TSK TS KMPAC
|
||
|
TC Q
|
||
|
|
||
|
DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
|
||
|
TCF TSK
|
||
|
|
||
|
# Page 1000
|
||
|
DPADD- COM
|
||
|
AD POSMAX # KMPAC LESS THAN 0
|
||
|
TCF TSK
|
||
|
|
||
|
DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
|
||
|
TS KMPAC +1
|
||
|
CA NEGMAX # UPPER WAS = 0
|
||
|
TCF TSK
|
||
|
|
||
|
# Page 1001 (empty page)
|
||
|
|