kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

proof: VNP00H to VNPOOH

Browse Source 
Excluding Luminary099 P30_P37 as covered by existing PR.

This was missed when the other `POO(H)` names were checked and fixed several months ago.
This commit is contained in:
James Harris 2020-10-08 23:00:42 +01:00
parent 3570f3fd22
commit 497515d96f
19 changed files with 83 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Comanche055/EXTENDED_VERBS.agc
View File

@ -10,7 +10,7 @@
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
# 2009-05-20 RSB Corrections: POODOO -> P00DOO,
# GOTOPOOH -> GOTOP00H, added a couple of
# GOTOPOOH -> GOTOPOOH, added a couple of
# missing instructions in Verb 96.
# 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to
# CA FLAGWRD1. Added a variety of SBANK=
@ -462,7 +462,7 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
COUNT 04/EXTVB
SYSTEST TC CHKP00H
SYSTEST TC CHKPOOH
CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
MASK NOP01BIT
EXTEND
@ -524,7 +524,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
# TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
# 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
IMUATTCK TC CHKP00H
IMUATTCK TC CHKPOOH
CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON
EXTEND
@ -586,7 +586,7 @@ CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
XACT0Q TC Q # YES
OCTAL30 OCT 30
VB64 TC CHKP00H # DEMAND PROGRAM 00.
VB64 TC CHKPOOH # DEMAND PROGRAM 00.
TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
INHINT
CAF PRIO4
@ -675,7 +675,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
# C. ENTER
# 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00
CREWMANU TC CHKPOOH # DEMAND P00
TC TESTXACT
@ -1004,7 +1004,7 @@ LFTFLGON TC UPFLAG # VB 75 - SET LIFTOFF FLAG BIT
TC GOPIN
# Page 261
CHKP00H CA MODREG
CHKPOOH CA MODREG
EXTEND
BZF TCQ
TCF ALM/END
@ -1058,7 +1058,7 @@ IDLECADR 2CADR T5IDLOC
# TERMINATE- EXIT R63 ROUTINE
# PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
V89PERF TC CHKP00H # DEMAND P00
V89PERF TC CHKPOOH # DEMAND P00
TC TESTXACT
INHINT
CAF PRIO10
@ -1078,7 +1078,7 @@ WMATRXNG TC DOWNFLAG # RESET RENDWFLG
GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H
SHOWSUM TC CHKPOOH
TC TESTXACT # *
CAF S+1 # *
TS SKEEP6 # * SHOWSUM OPTION

10
Comanche055/FRESH_START_AND_RESTART.agc
View File

@ -116,7 +116,7 @@
# CADR SLAP1
# ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT ***
# CADR ENEMA *** CONSULTING P00H PEOPLE ***
# CADR ENEMA *** CONSULTING POOH PEOPLE ***
# B. OUTPUT
@ -471,7 +471,7 @@ PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
# ******** ****** ******
#
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
#
GOPROG2 EQUALS ENEMA
OCT10000 = BIT13
@ -945,12 +945,12 @@ DUMMYAD EXIT
TC DOWNFLAG
ADRES R21MARK
CCS MMNUMBER # IS THIS A P00H REQUEST
CCS MMNUMBER # IS THIS A POOH REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
COUNT 04/P00
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
POOH TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
TS PHSPRDT2
@ -985,7 +985,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST.
GROUPKIL TC IBNKCALL # KILL GROUPS 3(5,6
CADR V37KLEAN
CCS MMNUMBER # IS IT P00H
CCS MMNUMBER # IS IT POOH
TCF RENDV00 # NO
# Page 201
TC IBNKCALL

6
Comanche055/INTEGRATION_INITIALIZATION.agc
View File

@ -742,13 +742,13 @@ DT/2COMP DLOAD DSU
GETMAXDT
DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
12D
P00HCHK
POOHCHK
USEMAXDT DLOAD SIGN
12D
DT/2
# Page 1324
STCALL DT/2
P00HCHK
POOHCHK
MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
DT/2MAX
GOTO
@ -757,7 +757,7 @@ GETMAXDT RTB
SIGNMPAC
STCALL DT/2
USEMAXDT
P00HCHK DLOAD ABS
POOHCHK DLOAD ABS
DT/2
DSU BMN
DT/2MIN

4
Comanche055/P20-P25.agc
View File

@ -11,7 +11,7 @@
# of the same name, using Comanche055 page
# images.
# 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ,
# GOTOPOOH -> GOTOP00H, a duplicated EXTEND
# GOTOPOOH -> GOTOPOOH, a duplicated EXTEND
# was fixed, P23.10 -> R23.10,
# S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
# S22DPP -> S22DSPP, changed some instructions in
@ -2685,7 +2685,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF
#
# CALLING SEQUENCE: V 89 E
#
# SUBROUTINES CALLED: CHKP00H, R02BOTH, GOXDSPF, R63COMP, R60CSM
# SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
#
# ALARMS 1. OPERATOR ERROR IF NOT IN P00
# 2. PROGRAM ALARM IF IMU IS OFF

18
Comanche055/P32-P33_P72-P73.agc
View File

@ -189,7 +189,7 @@
# GOFLASH
# GOTOPOOH
# Page 652
# VNP00H
# VNPOOH
# GOFLASHR
# BLANKET
# ENDOFJOB
@ -237,7 +237,7 @@ P32/P72A TC P20FLGON
STORE NN
EXIT
CAF V06N11 # TCSI
TC VNP00H
TC VNPOOH
CAF V06N55 # NN. ELEV(RGL05)
# Page 653
TC BANKCALL
@ -246,7 +246,7 @@ P32/P72A TC P20FLGON
TC +2
TC -5
CAF V06N37 # TTPI
TC VNP00H
TC VNPOOH
TC INTPRET
DLOAD
TCSI
@ -295,7 +295,7 @@ P32/P72F STORE T2TOT3
P32/P72F
EXIT
CAF V06N75
TC VNP00H
TC VNPOOH
TC INTPRET
VLOAD CALL
DELVEET1
@ -453,7 +453,7 @@ P32/P72F STORE T2TOT3
# AVFLAGA
# AVFLAGP
# P20FLGON
# VNP00H
# VNPOOH
# SELECTMU
# ADVANCE
# CDHMVR
@ -476,7 +476,7 @@ P33 TC AVFLAGA
P73 TC AVFLAGP
P33/P73A TC P20FLGON
CAF V06N13 # TCDH
TC VNP00H
TC VNPOOH
TC INTPRET
DLOAD
TTPIO
@ -560,7 +560,7 @@ P33/P73F ABS DSU
STORE T2TOT3
EXIT
CAF V06N75
TC VNP00H
TC VNPOOH
TC INTPRET
VLOAD CALL
DELVEET2
@ -578,7 +578,7 @@ P33/P73F ABS DSU
# SUBROUTINES USED
# S32/33.X
# VNP00H
# VNPOOH
SETLOC CDHTAG3
BANK
@ -595,7 +595,7 @@ DISDVLVC STORE DELVLVC
STORE DELVLVC
EXIT
CA VERBNOUN
TC VNP00H
TC VNPOOH
TC INTPRET
GOTO
NORMEX

18
Comanche055/P34-35_P74-75.agc
View File

@ -159,7 +159,7 @@
# AVFLAGA
# Page 463
# AVFLAGP
# VNP00H
# VNPOOH
# DISPLAYE
# SELECTMU
# PRECSET
@ -185,7 +185,7 @@ P34 TC AVFLAGA
P74 TC AVFLAGP
P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
CAF V06N37 # TTPI
TC VNP00H # Onno: The scans look like O not zero
TC VNPOOH # Onno: The scans look like O not zero
TC INTPRET
SSP EXIT
NN
@ -240,7 +240,7 @@ SWCHCLR BONCLR BON
TC P34/P74E
P34/P74D EXIT
CAF V06N37 # TTPI
TC VNP00H
TC VNPOOH
P34/P74E TC INTPRET
SETPD DLOAD
0D
@ -287,7 +287,7 @@ P34/P74E TC INTPRET
STORE TIG
EXIT
CAF V06N58
TC VNP00H
TC VNPOOH
TC INTPRET
CALL
S34/35.5
@ -821,7 +821,7 @@ ALLSET STOVL TET
# GOTOPOOH
# S34/35.3
# S34.35.4
# VNP00H
# VNPOOH
S34/35.5 STQ BON
SUBEXIT
@ -835,7 +835,7 @@ FLAGON VLOAD
STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
EXIT
CAF V06N81
TC VNP00H
TC VNPOOH
TC INTPRET
VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED
DELVLVC # DELTA V
@ -852,7 +852,7 @@ FLAGOFF CALL
S34/35.4
EXIT
CAF V06N59
TC VNP00H
TC VNPOOH
TC INTPRET
GOTO
SUBEXIT
@ -955,7 +955,7 @@ P3XORP7X CAF HIGH9
INCR Q
RETURN
# ***** VNP00H *****
# ***** VNPOOH *****
#
# SUBROUTINES USED
# BANKCALL
@ -965,7 +965,7 @@ P3XORP7X CAF HIGH9
SETLOC P30SUBS
BANK
VNP00H EXTEND
VNPOOH EXTEND
QXCH RTRN
TS VERBNOUN
CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN

2
Comanche055/P51-P53.agc
View File

@ -10,7 +10,7 @@
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
# name, and Comanche 055 page images.
# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
# GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT,
# GOTOPOOH -> GOTOPOOH, R33EXIT -> R53EXIT,
# V853 -> VB53, R56A -> R56A1 (some places
# only), added missing R56A1 label, added a
# missing CAF in COARSTYP, corrected a SETLOC

2
Comanche055/P61-P67.agc
View File

@ -447,7 +447,7 @@ P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
# MOD BY: R. HIRSCHKOP
# FUNCTION: TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC
# CALLING SEQUENCE:
# EXIT: TO P00H
# EXIT: TO POOH
# SUBROUTINE CALLS: GOFLASH
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.

4
Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
View File

@ -11,7 +11,7 @@
# of the same name, using Comanche055 page
# images. Finished through page 329.
# 2009-05-09 RSB Finished first draft.
# 2009-05-20 RSB Corrected a CHKPOOH to CHKP00H.
# 2009-05-20 RSB Corrected a CHKPOOH to CHKPOOH.
#
# This source code has been transcribed or otherwise adapted from digitized
# images of a hardcopy from the MIT Museum. The digitization was performed
@ -3605,7 +3605,7 @@ PINTEST EQUALS LST2FAN
COUNT 41/PIN
VBTSTLTS TC BANKCALL
CADR CHKP00H
CADR CHKPOOH
INHINT
CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T

2
Comanche055/TPI_SEARCH.agc
View File

@ -476,7 +476,7 @@ P17 TC AVFLAGA # AVFLAG = CSM , SET TRACK + UPDATE FLAGS
P77 TC AVFLAGP # AVFLAG = LEM , SET TRACK + UPDATE FLAGS
P17.1 TC P20FLGON # SET UPDATE FLAG
CAF V06N37 # DISPLAY TTPI TIME
TC VNP00H
TC VNPOOH
TC INTPRET
CLEAR CALL
UPDATFLG

2
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

@ -745,7 +745,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
TC BANKCALL
CADR CLOCPLAY
TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H
TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO POOH
TCF COMFAIL1
TCF COMFAIL2

16
Luminary099/EXTENDED_VERBS.agc
View File

@ -146,7 +146,7 @@ ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
GOPIN TC POSTJUMP
CADR PINBRNCH
CHKP00H CA MODREG # CHECK FOR P00 OR P00-.
CHKPOOH CA MODREG # CHECK FOR P00 OR P00-.
EXTEND
BZF TCQ
TC ALM/END
@ -827,7 +827,7 @@ DEC22 DEC 22
COUNT* $$/EXTVB
VB64 TC CHKP00H # DEMAND PROGRAM 00.
VB64 TC CHKPOOH # DEMAND PROGRAM 00.
TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
CAF PRIO4
TC FINDVAC
@ -846,7 +846,7 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00.
# 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).
# 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS
IMUATTCK TC CHKPOOH # VB 76 -- LOAD IMU ATT. ERROR METERS
CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
EXTEND # CDUS BITS ARE ON
@ -1002,7 +1002,7 @@ V83PERF TC TESTXACT
# TERMINATE -- EXIT R63.
# PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
V89PERF TC CHKP00H
V89PERF TC CHKPOOH
TC TESTXACT
CAF PRIO10
TC FINDVAC
@ -1080,7 +1080,7 @@ NOMINIMP INHINT
# C. ENTER
# 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00
CREWMANU TC CHKPOOH # DEMAND P00
TC TESTXACT
@ -1096,7 +1096,7 @@ CREWMANU TC CHKP00H # DEMAND P00
# TERMINATE TRACKING (P20 AND P25).
#
# 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
# 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOP00H (REQUEST PROGRAM 00).
# 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOPOOH (REQUEST PROGRAM 00).
# 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
#
# V56TOVAC
@ -1223,7 +1223,7 @@ UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
EBANK= QPLACE
SYSTEST TC CHKP00H # DEMAND P00
SYSTEST TC CHKPOOH # DEMAND P00
TC TESTXACT
@ -1246,7 +1246,7 @@ WMATRXNG INHINT
GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H # *
SHOWSUM TC CHKPOOH # *
TC TESTXACT # *
CAF PRIO7 # * ALLOW OTHER CHARINS.
TC PRIOCHNG # *

8
Luminary099/FRESH_START_AND_RESTART.agc
View File

@ -350,7 +350,7 @@ PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
TCF DOFSTRT1
#******** ****** ******
# Page 218
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE.
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE.
OCT10000 = BIT13
OCT30000 = PRIO30
@ -844,10 +844,10 @@ DUMMYAD EXIT
TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
ADRES XOVINFLG
CCS MMNUMBER # IS THIS A P00H REQUEST
CCS MMNUMBER # IS THIS A POOH REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
POOH TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
TS PHSPRDT2 # P00 INTEGRATION.
@ -887,7 +887,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
TC IBNKCALL # KILL GROUPS 1,3,5,6
CADR V37KLEAN
CCS MMNUMBER # IS IT P00H
CCS MMNUMBER # IS IT POOH
TCF RENDV00 # NO
GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
CADR P00KLEAN

6
Luminary099/INTEGRATION_INITIALIZATION.agc
View File

@ -729,13 +729,13 @@ DT/2COMP DLOAD DSU
GETMAXDT
DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
12D
P00HCHK
POOHCHK
USEMAXDT DLOAD SIGN
12D
DT/2
# Page 1219
STCALL DT/2
P00HCHK
POOHCHK
MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
DT/2MAX
GOTO
@ -744,7 +744,7 @@ GETMAXDT RTB
SIGNMPAC
STCALL DT/2
USEMAXDT
P00HCHK DLOAD ABS
POOHCHK DLOAD ABS
DT/2
DSU BMN
DT/2MIN

6
Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc
View File

@ -103,7 +103,7 @@
COUNT* $$/P31
P31 TC P20FLGON
CAF V06N33 # T16
TC VNP00H
TC VNPOOH
TC INTPRET
CLEAR DLOAD
UPDATFLG
@ -154,9 +154,9 @@ P31 TC P20FLGON
STORE HAPO
EXIT
CAF V06N81 # DELVLVC
TC VNP00H
TC VNPOOH
CAF V06N42 # HAPO, HPER, VGDISP
TC VNP00H
TC VNPOOH
TC INTPRET
REVN1645 SET CALL # TRKMKCNT, TTOGO, +MGA
FINALFLG

2
Luminary099/P20-P25.agc
View File

@ -1100,7 +1100,7 @@ OUTOFLIM RELINT
CAF OCT501PV
TC BANKCALL # ISSUE ALARM -- RR ANTENNA NOT WITHIN
CADR PRIOLARM # LIMITS
TC R23LEM2 # TERMINATE -- EXIT R23 TO R00 (GO TO P00H)
TC R23LEM2 # TERMINATE -- EXIT R23 TO R00 (GO TO POOH)
TC OUTOFLIM +1 # PROCEED ILLEGAL
TC R23LEM3 # RECYCLE -- TO ANOTHER MANEUVER
TC ENDOFJOB

18
Luminary099/P32-P35_P72-P75.agc
View File

@ -182,7 +182,7 @@
# GOFLASH
# GOTOPOOH
# Page 621
# VNP00H
# VNPOOH
# GOFLASHR
# BLANKET
# ENDOFJOB
@ -226,7 +226,7 @@ P32/P72A TC P20FLGON
TS TCSI
TS TCSI +1
VN0611 CAF V06N11 # TCSI
TC VNP00H
TC VNPOOH
TC INTPRET
DLOAD DCOMP
TCSI
@ -261,7 +261,7 @@ VN0655 EXIT
TC +2
TC -5
CAF V06N37 # TTPI
TC VNP00H
TC VNPOOH
TC INTPRET
DLOAD
TCSI
@ -303,7 +303,7 @@ P32/P72F STORE T2TOT3
P32/P72F
EXIT
CAF V06N75
TC VNP00H
TC VNPOOH
TC INTPRET
VLOAD CALL
DELVEET1
@ -462,7 +462,7 @@ P32/P72F STORE T2TOT3
# AVFLAGA
# AVFLAGP
# P20FLGON
# VNP00H
# VNPOOH
# SELECTMU
# ADVANCE
# CDHMVR
@ -484,7 +484,7 @@ P33 TC AVFLAGA
P73 TC AVFLAGP
P33/P73A TC P20FLGON
CAF V06N13 # TCDH
TC VNP00H
TC VNPOOH
TC INTPRET
DLOAD
TTPIO
@ -560,7 +560,7 @@ P33/P73F ABS DSU
STORE T2TOT3
EXIT
CAF V06N75
TC VNP00H
TC VNPOOH
TC INTPRET
VLOAD CALL
DELVEET2
@ -602,7 +602,7 @@ P20FLGON EXTEND
# SUBROUTINES USED
#
# S32/33.X
# VNP00H
# VNPOOH
DISDVLVC STORE DELVLVC
STQ CALL
@ -616,7 +616,7 @@ DISDVLVC STORE DELVLVC
STORE DELVLVC
EXIT
CA VERBNOUN
TC VNP00H
TC VNPOOH
TC INTPRET
GOTO
NORMEX

16
Luminary099/P34-35_P74-75.agc
View File

@ -184,7 +184,7 @@
# AVFLAGA
# Page 661
# AVFLAGP
# VNP00H
# VNPOOH
# DISPLAYE
# SELECTMU
# PRECSET
@ -209,7 +209,7 @@ P34 TC AVFLAGA
P74 TC AVFLAGP
P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
CAF V06N37 # TTPI
TC VNP00H
TC VNPOOH
EXTEND
DCA 130DEG
DXCH CENTANG
@ -265,7 +265,7 @@ SWCHCLR BONCLR BON
TC P34/P74E
P34/P74D EXIT
CAF V06N37 # TTPI
TC VNP00H
TC VNPOOH
P34/P74E TC INTPRET
SETPD DLOAD
0D
@ -312,7 +312,7 @@ P34/P74E TC INTPRET
STORE TIG
EXIT
CAF V06N58
TC VNP00H
TC VNPOOH
TC INTPRET
CALL
S34/35.5
@ -856,7 +856,7 @@ ALLSET STOVL TET
# GOTOPOOH
# S34/35.3
# S34.35.4
# VNP00H
# VNPOOH
S34/35.5 STQ BON
SUBEXIT
@ -909,7 +909,7 @@ FLAGOFF CALL
S34/35.4
EXIT
CAF V06N59
TC VNP00H
TC VNPOOH
TC INTPRET
GOTO
SUBEXIT
@ -1012,14 +1012,14 @@ P3XORP7X CAF HIGH9
INCR Q
RETURN
# ***** VNP00H *****
# ***** VNPOOH *****
#
# SUBROUTINES USED
# BANKCALL
# GOFLASH
# GOTOPOOH
VNP00H EXTEND
VNPOOH EXTEND
QXCH RTRN
TS VERBNOUN
CA VERBNOUN

10
Luminary099/WAITLIST.agc
View File

@ -203,7 +203,7 @@ SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMUZERO.
WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
CA Q
EXTEND
BZMF WAITP00H
BZMF WAITPOOH
CS TIME3
AD BIT8 # BIT 8 = OCT 200
@ -506,10 +506,10 @@ LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
CCS A
TCF LONGCYCL # HI-ORDER OK --> ALL IS OK.
TCF +2 # HI-ORDER ZERO --> CHECK LO-ORDER.
TCF LONGP00H # HI-ORDER NEG. --> NEG. DT
TCF LONGPOOH # HI-ORDER NEG. --> NEG. DT
+2 CA LONGTIME +1 # CHECK LO-ORDER FOR ZERO OR NEGATIVE.
EXTEND
BZMF LONGP00H # BAD DELTA-TIME. ABORT
BZMF LONGPOOH # BAD DELTA-TIME. ABORT
# *** WAITLIST TASK LONGCYCL ***
@ -556,9 +556,9 @@ GETCADR DXCH LONGCADR # GET THE LONGCALL THAT WE WISHED TO START
DTCB # AND TRANSFER CONTROL TO IT
TSKOVCDR GENADR TASKOVER
LONGP00H DXCH LONGEXIT
LONGPOOH DXCH LONGEXIT
TCF +2
WAITP00H DXCH WAITEXIT
WAITPOOH DXCH WAITEXIT
+2 TC POODOO1
OCT 01204