612 lines
12 KiB
Plaintext
612 lines
12 KiB
Plaintext
# Copyright: Public domain.
|
|
# Filename: P30-P37.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: 635-648
|
|
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
|
|
# of the same name, using Comanche055 page
|
|
# images.
|
|
# 2009-05-20 RSB Corrected BDV -> BOV.
|
|
#
|
|
# 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 635
|
|
BANK 32
|
|
|
|
SETLOC P30S1
|
|
BANK
|
|
|
|
EBANK= +MGA
|
|
|
|
COUNT 35/P34
|
|
|
|
DISPMGA STQ EXIT # USED IN P30
|
|
|
|
RGEXIT
|
|
TC COMPTGO
|
|
|
|
DISP45 CAF V16N45
|
|
TC BANKCALL
|
|
CADR GOFLASHR
|
|
TC GOTOPOOH
|
|
TC END45
|
|
TC DISP45
|
|
P30PHSI TC PHASCHNG
|
|
OCT 14
|
|
TCR ENDOFJOB
|
|
END45 TC INTPRET
|
|
CLEAR GOTO
|
|
TIMRFLAG
|
|
RGEXIT
|
|
|
|
COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
|
QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED .. BEWARE **
|
|
|
|
TC UPFLAG # SET TIMRFLAG
|
|
ADRES TIMRFLAG # BIT 11 FLAG 7
|
|
CAF ZERO
|
|
TS NVWORD1
|
|
|
|
CAF ONE
|
|
TC WAITLIST
|
|
EBANK= TIG
|
|
2CADR CLOKTASK
|
|
|
|
TC 2PHSCHNG
|
|
OCT 40036 # 6.3SPOT FOR CLOKTASK
|
|
OCT 05024 # GROUP 4 CONTINUES HERE
|
|
OCT 13000
|
|
|
|
TC PHSPRDT6
|
|
# Page 636
|
|
# PROGRAM DESCRIPTION P30 DATE 3-6-67
|
|
|
|
# MOD.I BY S. ZELDIN- TO ADD P31 AND AD APT P30 FOR P31 USE. 22DEC67
|
|
# FUNCTIONAL DESCRIPTION
|
|
# +30(EXTERNAL DELTA-V TARGETTING PROGRAM)
|
|
# ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES,FOR DISPLAY,
|
|
# APOGEE,PERIGEE,DELV(MAG),MGA ASSOCIATED WITH DESIRED MANEUVER
|
|
|
|
# P31(GENERAL LAMBERT AIMPOINT GUIDANCE)
|
|
# A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
|
|
# POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
|
|
# BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS,AND
|
|
# ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
|
|
# AND,FOR DISPLAY,APOGEE,PERIGEE,DELV(7AG),+MGA ASSOCIATED WITH
|
|
# DESIRED MANEUVER
|
|
|
|
# THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
|
|
# S30.1 (P30 ONLY)
|
|
# S31.1 (P31 ONLY)
|
|
# P30/P31 - DISPLAYS TIG
|
|
# CNTUP30 - DISPLAYS DELV(LV)
|
|
# PARAM30 - DISPLAYS APOGEE,PERIGEE,DELV(MAG),MGA,TIME FROM TIG,
|
|
# MARKS SINCE LAST THRUSTING MANEUVER
|
|
|
|
# CALLING SEQUENCE VIA JOB FROM V37
|
|
|
|
# EXIT VIA V37 OR GOTOPOOH
|
|
|
|
# OUTPUT FOR POWERED FLIGHT
|
|
# VTIG X
|
|
# RTIG XSEE S30.1
|
|
# DELVSIN X
|
|
# VGDISP
|
|
# RTARG X
|
|
# TPASS4 X SEE S31.1
|
|
# X
|
|
|
|
|
|
COUNT 35/P30
|
|
|
|
P30 TC P30/P31
|
|
TC CNTNUP30
|
|
TC DOWNFLAG # RESET UPDATFLG
|
|
ADRES UPDATFLG # BIT 7 FLAG 1
|
|
TC INTPRET
|
|
CALL
|
|
S30.1
|
|
EXIT
|
|
TC PARAM30
|
|
TC UPFLAG
|
|
# Page 637
|
|
ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
|
|
TCF GOTOPOOH
|
|
|
|
P31 TC P30/P31
|
|
TC DOWNFLAG
|
|
ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
|
|
TC DOWNFLAG
|
|
ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7
|
|
TC INTPRET
|
|
CALL
|
|
S31.1
|
|
EXIT
|
|
TC CNTNUP30
|
|
TC PARAM30
|
|
TC DOWNFLAG
|
|
ADRES XDELVFLG # BIT 8 FLAG 2
|
|
TCF GOTOPOOH
|
|
|
|
P30/P31 XCH Q
|
|
TS P30/31RT
|
|
TC UPFLAG
|
|
ADRES UPDATFLG # SET UPDATFLG BIT 7 FLAG 1
|
|
TC UPFLAG
|
|
ADRES TRACKFLG # SET TRACKFLG BIT 5 FLAG 1
|
|
CAF V06N33 # T OF IGN
|
|
TC BANKCALL
|
|
CADR GOFLASHR
|
|
TCF GOTOPOOH
|
|
TC P30/31RT
|
|
TCF P30/P31 +4
|
|
TC PHASCHNG
|
|
OCT 00014
|
|
TC ENDOFJOB
|
|
|
|
CNTNUP30 XCH Q
|
|
TS P30/RET
|
|
CAF V06N81
|
|
TC BANKCALL
|
|
CADR GOFLASH
|
|
TCF GOTOPOOH
|
|
TC P30/RET
|
|
TCF CNTNUP30 +2
|
|
PARAM30 XCH Q
|
|
TS P30/31RT
|
|
CAF V06N42
|
|
TC BANKCALL
|
|
CADR GOFLASH
|
|
TC GOTOPOOH # ON TERMINATION GOTOPOOH
|
|
TCF REFTEST # ON PROCEED GO DO REFTEST
|
|
# Page 638
|
|
TCF PARAM30 +2
|
|
REFTEST CAF BIT13
|
|
MASK STATE +3 # REFSMFLAG
|
|
EXTEND
|
|
BZF NOTSET # REFSMFLAG =0 , THEN BRANCH TO NOTSET
|
|
TC INTPRET
|
|
VLOAD PUSH
|
|
DELVSIN
|
|
CALL
|
|
GET+MGA
|
|
GOTO
|
|
FLASHMGA
|
|
NOTSET EXTEND
|
|
DCS MARSDP
|
|
DXCH +MGA # +MGA, +MGA+1 CONTAINS (-00001)
|
|
TC INTPRET
|
|
FLASHMGA CALL
|
|
DISPMGA
|
|
EXIT
|
|
TC P30/31RT
|
|
MARSDP OCT 00000 # (00000) (16440) = (+00001)
|
|
OCT 35100
|
|
# ( .01 ) DEGREES IN THE LOW ORDER REGISTE
|
|
|
|
V06N33 VN 0633
|
|
V06N42 VN 0642
|
|
V16N35 VN 1635
|
|
V06N45 VN 0645
|
|
|
|
# Page 639
|
|
# PROGRAM DESCRIPTION S30.1 DATE 9NOV66
|
|
|
|
# MOD NO 1 LOG SECTION P30,P37
|
|
# MOD BY RAMA AIYAWAR **
|
|
# MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS 29DEC67
|
|
# FUNCTIONAL DESCRIPTION
|
|
# BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
|
|
# IGNITION(VTIG),TIME OF IGNITION(TIG),DELV(LV),COMPUTE PERIGEE ALTITUDE
|
|
# A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS.(DELVSIN)
|
|
# CALLING SEQUENCE
|
|
# L CALL
|
|
# L+1 S30.1
|
|
# NORMAL EXIT MODE
|
|
# AT L+2 OR CALLING SEQUENCE (GOTO L+2)
|
|
# SUBROUTINES CALLED
|
|
# THISPREC
|
|
# PERIAPO
|
|
# ALARM OR ABORT EXIT MODES
|
|
# NONE
|
|
# ERASABLE INITIALIZATION REQUIRED
|
|
# TIG TIME OF IGNITION DP B28CS
|
|
# DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
|
|
# COORDS. OF ACTIVE VEHICLE AT
|
|
# TIME OF IGNITION VCT. B+7M/CS
|
|
#
|
|
# OUTPUT
|
|
# RTIG POSITION AT TIG VCT. B+29M
|
|
# VTIG VELOCITY AT TIG VCT. B+7M
|
|
# HAPO APOGEE ALT. DP B+29M
|
|
# HPER PERIGEE ALT. DP B+29M
|
|
# DELVSIN DELVSLV IN REF COORDS VCT. B+7M/CS
|
|
# VGDISP MAG. OF DELVSIN DP B+7M/CS
|
|
# DEBRIS QTEMP TEMP. ERASABLE
|
|
# QPRET,MPAC
|
|
# PUSHLIST
|
|
|
|
SETLOC P30S1A
|
|
BANK
|
|
|
|
COUNT 35/S30S
|
|
|
|
S30.1 STQ DLOAD
|
|
QTEMP
|
|
TIG # TIME IGNITION SCALED AT 2(+28)CS
|
|
STCALL TDEC1
|
|
THISPREC # ENCKE ROUTINE FOR
|
|
|
|
VLOAD SXA,2
|
|
VATT
|
|
RTX2
|
|
STOVL VTIG
|
|
# Page 640
|
|
RATT
|
|
STORE RTIG
|
|
STORE RACT3
|
|
VXV UNIT
|
|
VTIG
|
|
STCALL UNRM
|
|
LOMAT
|
|
VLOAD VXM
|
|
DELVSLV
|
|
0
|
|
VSL1 SXA,1
|
|
RTX1
|
|
STORE DELVSIN
|
|
ABVAL
|
|
STOVL VGDISP # MAG DELV
|
|
RTIG
|
|
PDVL VAD
|
|
DELVSIN
|
|
VTIG
|
|
CALL
|
|
PERIAPO1
|
|
CALL
|
|
SHIFTR1
|
|
CALL
|
|
MAXCHK
|
|
STODL HPER # PERIGEE ALT B+29
|
|
4D
|
|
CALL
|
|
SHIFTR1
|
|
CALL
|
|
MAXCHK
|
|
STCALL HAPO # APOGEE ALT B+29
|
|
QTEMP
|
|
|
|
# Page 641
|
|
# S31.1 PROGRAM DESCRIPTION 28DEC67
|
|
# MOD.1 BY S.ZELDIN
|
|
|
|
# S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
|
|
# APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
|
|
|
|
# CALLING SEQUENCE
|
|
# L CALL
|
|
# L+1 S31.1
|
|
|
|
# NORMAL EXIT MODE
|
|
# AT L +2 OF CALLING SEQUENCE(GOTO L+2)
|
|
# SUBROUTINES CALLED
|
|
# AGAIN
|
|
# PERIAPO1
|
|
# SHIFTR1
|
|
# MIDGIM
|
|
# NO ALARM OR ABORT MODES
|
|
# INPUT
|
|
# DELLT4 DP +28
|
|
# TIG DP +28
|
|
# RTARG VCT +29
|
|
# OUTPUT
|
|
# DELVLVC VCT +7
|
|
# VGDISP DP +7
|
|
# HAPO DP +29
|
|
# HPER DP +29
|
|
# TPASS4 DP +28
|
|
# DEBRIS - QTEMP
|
|
|
|
S31.1 STQ DLOAD
|
|
QTEMP
|
|
TIG
|
|
STCALL TDEC1
|
|
AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
|
|
VLOAD PDVL # DELUEET3
|
|
RTIG
|
|
VIPRIME
|
|
CALL
|
|
PERIAPO1
|
|
CALL
|
|
SHIFTR1
|
|
CALL
|
|
MAXCHK
|
|
STODL HPER # B29
|
|
4D
|
|
CALL
|
|
SHIFTR1
|
|
CALL
|
|
MAXCHK
|
|
STOVL HAPO # B29
|
|
# Page 642
|
|
DELVEET3
|
|
STORE 0
|
|
SET CALL
|
|
AVFLAG
|
|
MIDGIM # GET DELVLVC B7 FORDISPLAY
|
|
ABVAL
|
|
STODL VGDISP # B+7 FOR DISPLAY
|
|
DELLT4
|
|
DAD
|
|
TIG
|
|
STCALL TPASS4 # FOR S40.1
|
|
QTEMP
|
|
|
|
# Page 643
|
|
# SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTI
|
|
# TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
|
|
# MOD NO: 0 MOD BY: ZELDIN DATE:
|
|
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
|
|
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
|
|
# MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR ON MOD. 2.
|
|
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
|
|
# MOD 4 MOD BY S.ZELDIN DATE 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
|
|
# FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
|
|
# ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
|
|
# SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
|
|
# THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
|
|
# ANGLE IS NEGATIVE: SPASH ERROR= -RANGE TO TARGET
|
|
# THE PRESENT TARGET LOCATION IS USED.
|
|
# CALLING SEQUENCE CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
|
|
# SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
|
|
# EXIT: RETURN DIRECTLY TO V 82 PROG. AT SPLRET
|
|
# ERASABLE INITIALIZATION LEFT BY SR30.1 AND V82GON1
|
|
# OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI.
|
|
# DEBRIS: QPRET, PDL0 ...PDL7 ,PDL10
|
|
|
|
# THETA(1)
|
|
|
|
BANK 32
|
|
SETLOC DELRSPL1
|
|
BANK
|
|
COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
|
|
|
|
DELRSPL STORE 8D
|
|
BPL DSU
|
|
CANTDO # GONE PAST 300K FT ALT
|
|
1BITDP
|
|
BOV CALL
|
|
CANTDO # POSMAX INDICATES NO 300K FT SOLUTION.
|
|
VGAMCALC # +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
|
|
PUSH CALL
|
|
TFF/TRIG
|
|
CALL
|
|
AUGEKUGL
|
|
PDDL ACOS # T ENTRY PDL 6
|
|
CDELF/2
|
|
DAD
|
|
4
|
|
GETARG STOVL THETA(1)
|
|
LAT(SPL)
|
|
STODL LAT
|
|
HI6ZEROS
|
|
STODL ALT # ALT=0 = LAT +4
|
|
PIPTIME
|
|
# Page 644
|
|
BON DLOAD
|
|
V37FLAG
|
|
+2
|
|
TSTART82
|
|
DSU DAD
|
|
8D
|
|
CLEAR CALL
|
|
ERADFLAG
|
|
LALOTORV # R RECOV. IN ALPHAV AND MPAC
|
|
|
|
UNIT PDVL
|
|
RONE
|
|
UNIT DOT
|
|
SL1 ARCCOS
|
|
BDSU # ERROR = THETA EST - THETA TARG
|
|
# NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
|
|
# POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
|
|
THETA(1)
|
|
DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
|
|
INTWAKE0
|
|
CALL
|
|
SPLRET
|
|
CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
|
|
# FOR RANGE ANGLE.
|
|
HIDPHALF # TO PDL 0 FOR DEN IN DDV.
|
|
HI6ZEROS
|
|
PUSH # ZERO TO PDL 2 FOR PHI ENTRY
|
|
STCALL 8D
|
|
GETARG # GO SET RSP-RREC =0
|
|
|
|
AUGEKUGL VLOAD
|
|
X1CON -2
|
|
STODL X1 -2
|
|
0
|
|
DSU BMN
|
|
V(21K)
|
|
LOOPSET
|
|
XSU,1 XCHX,2
|
|
S1
|
|
X1
|
|
XCHX,2 DSU
|
|
S1
|
|
V(3K)
|
|
BMN XCHX,2
|
|
LOOPSET
|
|
S1
|
|
DSU BMN
|
|
V(4K)
|
|
LOOPSET
|
|
XCHX,2 XCHX,2
|
|
# Page 645
|
|
S1
|
|
X1
|
|
DSU BMN
|
|
V(400)
|
|
LOOPSET
|
|
SXA,1
|
|
S1
|
|
LOOPSET INCR,1 GOTO
|
|
DEC 1
|
|
K1K2LOOP
|
|
K2CALC SXA,1
|
|
S1
|
|
K1K2LOOP DLOAD DSU*
|
|
0
|
|
V(32K) +1,1
|
|
DMP* DAD*
|
|
YK1K2 +1,1
|
|
CK1K2 +1,1
|
|
PDDL TIX,1
|
|
2
|
|
K2CALC
|
|
DSU BDDV
|
|
PUSH BOV
|
|
MAXPHI
|
|
BMN DSU
|
|
MAXPHI
|
|
MAXPHIC
|
|
BPL
|
|
MAXPHI
|
|
PHICALC DLOAD DSU # PHI ENTRY PDL 4D
|
|
0
|
|
V(26K)
|
|
BPL DLOAD
|
|
TGR26
|
|
TLESS26
|
|
DDV
|
|
0
|
|
TENT DMP RVQ
|
|
4D
|
|
TGR26 DLOAD GOTO
|
|
TGR26CON
|
|
TENT
|
|
|
|
MAXPHI DLOAD PDDL
|
|
MAXPHIC
|
|
GOTO
|
|
PHICALC
|
|
MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
|
|
|
|
# Page 646
|
|
|
|
COUNT* $$/P30
|
|
|
|
# BELOW
|
|
# <<<< TABLE IS INDEXED. KEEP IN ORDER >>>>
|
|
|
|
2DEC 7.07304526 E-4 # 5500
|
|
|
|
2DEC 3.08641975 E-4 # 2400
|
|
|
|
2DEC 3.08641975 E-4 # 2400
|
|
|
|
2DEC -8.8888888 E-3 # -3.2
|
|
|
|
2DEC 2.7777777 E-3 # 1
|
|
|
|
CK1K2 2DEC 6.6666666 E-3 # 2.4
|
|
|
|
2DEC 0 # 0
|
|
|
|
2DEC* -1.86909989 E-5 B7* # -.443
|
|
|
|
2DEC 0
|
|
|
|
2DEC* 1.11639691 E-3 B7* # .001225
|
|
|
|
2DEC* 9.56911636 E-4 B7* # .00105
|
|
|
|
YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
|
|
|
|
V(400) 2DEC 1.2192 B-7
|
|
|
|
V(28K) 2DEC 85.344 B-7
|
|
|
|
V(3K) 2DEC 9.144 B-7
|
|
|
|
V(24K) 2DEC 73.152 B-7
|
|
|
|
2DEC 85.344 B-7
|
|
|
|
V(32K) 2DEC 97.536 B-7
|
|
|
|
V(4K) 2DEC 12.192 B-7
|
|
|
|
V(21K) 2DEC 64.000 B-7
|
|
|
|
TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V
|
|
|
|
TGR26CON 2DEC 7.2 E5 B-28 # PHI/3
|
|
|
|
V(26K) 2DEC 79.248 B-7 # 26000
|
|
|
|
# Page 647
|
|
|
|
X1CON DEC 10
|
|
|
|
DEC 8
|
|
|
|
DEC 6
|
|
# <<<< TABLE IS INDEXED. KEEP IN ORDER >>>>
|
|
# ABOVE
|
|
# Page 648
|
|
# ***** AVFLAGA/P *****
|
|
|
|
# SUBROUTINES USED
|
|
|
|
# UPFLAG
|
|
# DOWNFLAG
|
|
SETLOC P30SUBS
|
|
BANK
|
|
EBANK= SUBEXIT
|
|
AVFLAGA EXTEND # AVFLAG = CSM
|
|
QXCH SUBEXIT
|
|
TC DOWNFLAG
|
|
ADRES AVFLAG # BIT 5 FLAG 2
|
|
CAF EBANK7
|
|
TS EBANK
|
|
EBANK= ECSTEER
|
|
CAF BIT13
|
|
TS ECSTEER # SET ECSTEER = 1
|
|
CAF EBANK4
|
|
TS EBANK
|
|
EBANK= SUBEXIT
|
|
TC SUBEXIT
|
|
AVFLAGP EXTEND # AVFLAG = LEM
|
|
QXCH SUBEXIT
|
|
TC UPFLAG
|
|
ADRES AVFLAG # BIT 5 FLAG 2
|
|
TC SUBEXIT
|
|
P20FLGON EXTEND
|
|
QXCH SUBEXIT
|
|
TC UPFLAG
|
|
ADRES TRACKFLG
|
|
TC UPFLAG
|
|
ADRES UPDATFLG
|
|
TC SUBEXIT # DP B4
|