Proof read AOTMARK pages 0244-0261. I made several changes with space formatting and changed several -- to - to match scanned source code images.
Froderick-Fronkensteen
parent
dd9b5e33f2
commit
d9314ede7c
|
|
@ -36,7 +36,7 @@
|
||||||
|
|
||||||
AOTMARK INHINT
|
AOTMARK INHINT
|
||||||
CCS MARKSTAT # SEE IF AOTMARK BUSY
|
CCS MARKSTAT # SEE IF AOTMARK BUSY
|
||||||
TC +2 # MARK SYSTEM BUSY -- DO ALARM
|
TC +2 # MARK SYSTEM BUSY-DO ALARM
|
||||||
TC EXTVBCHK
|
TC EXTVBCHK
|
||||||
TC POODOO
|
TC POODOO
|
||||||
OCT 00105
|
OCT 00105
|
||||||
|
|
@ -44,11 +44,11 @@ AOTMARK INHINT
|
||||||
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
|
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
|
||||||
MASK EXTVBACT
|
MASK EXTVBACT
|
||||||
CCS A
|
CCS A
|
||||||
TCF MKABORT # YES -- ABORT
|
TCF MKABORT # YES-ABORT
|
||||||
|
|
||||||
CAF BIT2 # NO -- DISALLOW SOME EXTENDED VERB ACTION
|
CAF BIT2 # NO-DISALLOW SOME EXTENDED VERB ACTION
|
||||||
ADS EXTVBACT # BIT2 RESET IN ENDMARK
|
ADS EXTVBACT # BIT2 RESET IN ENDMARK
|
||||||
MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
|
MKVAC CCS VAC1USE # LOOK FOR A VAC AREA-DO ABORT IF
|
||||||
TCF MKVACFND # NONE AVAILABLE
|
TCF MKVACFND # NONE AVAILABLE
|
||||||
CCS VAC2USE
|
CCS VAC2USE
|
||||||
TCF MKVACFND
|
TCF MKVACFND
|
||||||
|
|
@ -59,7 +59,7 @@ MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
|
||||||
CCS VAC5USE
|
CCS VAC5USE
|
||||||
TCF MKVACFND
|
TCF MKVACFND
|
||||||
DXCH BUF2
|
DXCH BUF2
|
||||||
TC BAILOUT1 # ALL VAC AREAS OCCUPIED -- ABORT.
|
TC BAILOUT1 # ALL VAC AREAS OCCUPIED - ABORT.
|
||||||
OCT 01207
|
OCT 01207
|
||||||
|
|
||||||
MKVACFND AD TWO
|
MKVACFND AD TWO
|
||||||
|
|
@ -67,13 +67,14 @@ MKVACFND AD TWO
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
INDEX MARKSTAT
|
INDEX MARKSTAT
|
||||||
TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
|
TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
|
||||||
|
|
||||||
CAF PRIO15
|
CAF PRIO15
|
||||||
TC FINDVAC # SET UP JOB FOR GETDAT
|
TC FINDVAC # SET UP JOB FOR GETDAT
|
||||||
EBANK= XYMARK
|
EBANK= XYMARK
|
||||||
2CADR GETDAT
|
2CADR GETDAT
|
||||||
|
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TCF SWRETURN
|
TCF SWRETURN
|
||||||
# Page 245
|
# Page 245
|
||||||
|
|
@ -83,29 +84,28 @@ MKABORT DXCH BUF2
|
||||||
|
|
||||||
MKRELEAS CAF ZERO
|
MKRELEAS CAF ZERO
|
||||||
XCH MARKSTAT # SET MARKSTAT TO ZERO
|
XCH MARKSTAT # SET MARKSTAT TO ZERO
|
||||||
MASK LOW9 # PICK UP VAC AREA AOR
|
MASK LOW9 # PICK UP VAC AREA ADR
|
||||||
CCS A
|
CCS A
|
||||||
INDEX A
|
INDEX A
|
||||||
TS 0 # SHOW MKVAC AREA AVAILABLE
|
TS 0 # SHOW MKVAC AREA AVAILABLE
|
||||||
CAF ONE
|
CAF ONE
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR GOODEND # GO WAKE UP CALLING JOB
|
CADR GOODEND # GO WAKE UP CALLING JOB
|
||||||
|
|
||||||
# Page 246
|
# Page 246
|
||||||
KILLAOT CAF ZERO
|
KILLAOT CAF ZERO
|
||||||
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
|
TS EXTVBACT # TERMINATE AOTMARK-ALLOW EXT VERB
|
||||||
TC GOTOPOOH
|
TC GOTOPOOH
|
||||||
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
||||||
MASK BIT12 # BIT12 RESET AT GETMARK
|
MASK BIT12 # BIT12 RESET AT GETMARK
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
|
|
||||||
CAF V01N71 # DISPLAY DETENT AND STAR CODE
|
CAF V01N71 # DISPLAY DETENT AND STAR CODE
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOMARKF
|
CADR GOMARKF
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
TCF KILLAOT # V34-DOES GOTOPOOH
|
||||||
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
|
TCF DODAT # V33-PROCEED-USE THIS STAR FOR MARKS
|
||||||
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
|
ENTERDAT TCF GETDAT # ENTER-REDISPLAY STAR CODE
|
||||||
|
|
||||||
DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
|
DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
|
||||||
MASK AOTCODE # AND SEE IF CODE 1 TO 6
|
MASK AOTCODE # AND SEE IF CODE 1 TO 6
|
||||||
|
|
@ -114,7 +114,7 @@ DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
|
||||||
TS XYMARK # STORE DETENT
|
TS XYMARK # STORE DETENT
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE
|
BZMF GETDAT # COAS CALIBRATION CODE-NO GOOD HERE
|
||||||
|
|
||||||
AD NEG7 # SEE IF DETENT 7 FOR COAS
|
AD NEG7 # SEE IF DETENT 7 FOR COAS
|
||||||
EXTEND
|
EXTEND
|
||||||
|
|
@ -126,7 +126,7 @@ CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
|
||||||
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
|
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
|
||||||
CADR GOMARKF
|
CADR GOMARKF
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
TCF KILLAOT # V34-DOES GOTOPOOH
|
||||||
TCF +2 # PROCEED
|
TCF +2 # PROCEED
|
||||||
TCF CODE7 # ON ENTER, RECYCLE
|
TCF CODE7 # ON ENTER, RECYCLE
|
||||||
EXTEND
|
EXTEND
|
||||||
|
|
@ -145,45 +145,42 @@ CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
|
||||||
# Page 247
|
# Page 247
|
||||||
CA AOTAZ -1
|
CA AOTAZ -1
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS 8D # STORE AZIMUTH IN VAC +8D
|
TS 8D # STORE AZIMUTH IN VAC+8D
|
||||||
|
|
||||||
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
|
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
|
||||||
EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGHT
|
EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGTHT
|
||||||
INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
|
INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
|
||||||
MSU 8D # PRECISION ONE'S COMPLEMENT
|
MSU 8D # PRECISION ONES COMPLEMENT
|
||||||
COASCODE INDEX FIXLOC
|
COASCODE INDEX FIXLOC
|
||||||
TS 10D # ROT ANGLE
|
TS 10D # ROT ANGLE
|
||||||
|
|
||||||
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
|
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
|
||||||
|
|
||||||
# Page 248
|
# Page 248
|
||||||
# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
|
# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
|
||||||
# ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
|
# AND ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
|
||||||
# OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
|
# OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
|
||||||
#
|
# INPUT-AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
|
||||||
# INPUT -- AZIMUTH ANGLE IN SINGLE PREC AT CDU SCALE IN 8D OF JOB VAC
|
# ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
|
||||||
# ELEVATION ANGLE IN SINGLE PREC AT CDU SCALE IN 9D OF JOB VAC
|
# ROTATION ANGLE IN SINGLE PREC IS COMP SCALED BY PI IN 10D OF VAC
|
||||||
# ROTATION ANGLE IN SINGLE PREC IS COMP SCALED BY PI IN 10D OF VAC
|
# OUTPUT-OPTIC AXIS VEC IN NB COORDS IN SCAXIS
|
||||||
#
|
# X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
|
||||||
# OUTPUT -- OPTIC AXIS VEC IN NG COORDS IN SCAXIS
|
# Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
|
||||||
# X-MARK PLANE 1/4VEC IN NB COORDS AT 18D OF JOB VAC
|
|
||||||
# Y-MARK PLANE 1/4VEC IN NB COORDS AT 12D OF JOB VAC
|
|
||||||
|
|
||||||
OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS
|
OPTAXIS CALL # GO COMPUTE OA AND X AND Y PLANE VECS
|
||||||
OANB
|
OANB
|
||||||
SLOAD SR1 # LOAD APP ROTATION IN ONES COMP
|
SLOAD SR1 # LOAD APP ROTATION IN ONES COMP
|
||||||
10D # RESCALE BY 2PI
|
10D # RESCALE BY 2PI
|
||||||
PUSH SIN # 1/2SIN(ROT) 0-1
|
PUSH SIN # 1/2SIN(ROT) 0-1
|
||||||
PDDL COS
|
PDDL COS
|
||||||
PUSH VXSC # 1/2COS(ROT) 2-3
|
PUSH VXSC # 1/2COS(ROT) 2-3
|
||||||
18D
|
18D
|
||||||
PDDL VXSC # 1/4COS(ROT)UYP 4-9
|
PDDL VXSC # 1/4COS(ROT)UYP 4-9
|
||||||
0
|
0
|
||||||
24D # 1/4SIN(ROT)UXP
|
24D # 1/4SIN(ROT)UXP
|
||||||
BVSU STADR # UP 4-9
|
BVSU STADR # UP 4-9
|
||||||
STODL 12D # YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
|
STODL 12D # YPNB=1/4(COS(ROT)UYP-SIN(ROT)UXP)
|
||||||
VXSC PDDL # UP 2-3 UP 0-1 FOR EXCHANGE
|
VXSC PDDL # UP 2-3 UP 0-1 FOR EXCHANGE
|
||||||
24D # 1/4COS(ROT)UXP PUSH 0-5
|
24D # 1/4COS(ROT)UXP PUSH 0-5
|
||||||
VXSC VAD # 1/4SIN(ROT)UYP
|
VXSC VAD # 1/4SIN(ROT)UYP
|
||||||
18D # UP 0-5
|
18D # UP 0-5
|
||||||
STADR
|
STADR
|
||||||
|
|
@ -192,17 +189,14 @@ OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS
|
||||||
STORE STARAD +6
|
STORE STARAD +6
|
||||||
EXIT
|
EXIT
|
||||||
TCF GETMKS
|
TCF GETMKS
|
||||||
|
|
||||||
# Page 249
|
# Page 249
|
||||||
# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
|
# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
|
||||||
# FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
|
# FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
|
||||||
#
|
# INPUT- AZIMUTH ANGLE IN SINGLE PREC 2S COMP IN 8D OF JOB VAC
|
||||||
# INPUT -- AZIMUTH ANGLE IN SINGLE PREC 2'S COMP IN 8D OF JOB VAC
|
# ELEVATION ANGLE IN SINGLE PREC 2S COMP IN 9D OF VAC
|
||||||
# ELEVATION ANGLE IN SINGLE PREC 2'S COMP IN 9D OF VAC
|
# OUTPUT-OPTIC AXIS IN NB COORDS. IN SCAXIS
|
||||||
#
|
# X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
|
||||||
# OUTPUT -- OPTIC AXIS IN NB COORDS. IN SCAXIS
|
# Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
|
||||||
# X-PLANE 1/2VEC IN NB COORDS AT 24D OF VAC
|
|
||||||
# Y-PLANE 1/2VEC IN NB COORDS AT 18D OF VAC
|
|
||||||
|
|
||||||
BANK 05
|
BANK 05
|
||||||
SETLOC AOTMARK2
|
SETLOC AOTMARK2
|
||||||
|
|
@ -217,24 +211,24 @@ OANB SETPD STQ
|
||||||
9D # PICK UP SP ELV
|
9D # PICK UP SP ELV
|
||||||
CDULOGIC
|
CDULOGIC
|
||||||
PUSH COS
|
PUSH COS
|
||||||
PDDL SIN # 1/2COS(ELV) PD 0-1
|
PDDL SIN # 1/2COS(ELV) PD 0-1
|
||||||
STADR
|
STADR
|
||||||
STODL SCAXIS # OAX=1/2SIN(ELV)
|
STODL SCAXIS # OAX=1/2SIN(ELV)
|
||||||
8D
|
8D # PICK UP AZ SP
|
||||||
RTB
|
RTB
|
||||||
CDULOGIC
|
CDULOGIC
|
||||||
PUSH COS
|
PUSH COS
|
||||||
STORE 20D # STORE UYP(Y) 20-21
|
STORE 20D # STORE UYP(Y) 20-21
|
||||||
PDDL SIN # 1/2COS(AZ) PD 2-3
|
PDDL SIN # 1/2COS(AZ) PD 2-3
|
||||||
PUSH DCOMP # PUSH 1/2S IN (AZ) 4-5
|
PUSH DCOMP # PUSH 1/2SIN(AZ) 4-5
|
||||||
STODL 22D # STORE UYP(Z) 22-23
|
STODL 22D # STORE UYP(Z) 22-23
|
||||||
LO6ZEROS
|
LO6ZEROS
|
||||||
STODL 18D # STORE UYP(X) 18-19
|
STODL 18D # STORE UYP(X) 18-19 UP 4-5
|
||||||
DMP SL1
|
DMP SL1
|
||||||
0
|
0
|
||||||
STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ)
|
STODL SCAXIS +2 # OAY=1/2COS(ELV)SIN(AZ)
|
||||||
DMP SL1 # UP 2-3
|
DMP SL1 # UP 2-3
|
||||||
STADR # UP 0-1
|
STADR # UP 0-1
|
||||||
STOVL SCAXIS +4 # OAZ=1/2COS(ELV)COS(AZ)
|
STOVL SCAXIS +4 # OAZ=1/2COS(ELV)COS(AZ)
|
||||||
18D # LOAD UYP VEC
|
18D # LOAD UYP VEC
|
||||||
VXV UNIT
|
VXV UNIT
|
||||||
|
|
@ -245,13 +239,11 @@ OANB SETPD STQ
|
||||||
# Page 250
|
# Page 250
|
||||||
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
|
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
|
||||||
# SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
|
# SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
|
||||||
#
|
# GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
|
||||||
# GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
|
# Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
|
||||||
# Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
|
# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
|
||||||
# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
|
# SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC
|
||||||
# SPIRAL SP 2COMP AT POSITION 3 OF INDEXED MARKVAC
|
# CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
|
||||||
# CDUY,Z,X AT POSITIONS 0,2,4 OF INDEXED MARKVAC
|
|
||||||
|
|
||||||
BANK 15
|
BANK 15
|
||||||
SETLOC P50S
|
SETLOC P50S
|
||||||
BANK
|
BANK
|
||||||
|
|
@ -265,12 +257,12 @@ SURFSTAR VLOAD*
|
||||||
CDULOGIC
|
CDULOGIC
|
||||||
STORE 24D # STORE CURSOR FOR SPIRAL COMP (REVS)
|
STORE 24D # STORE CURSOR FOR SPIRAL COMP (REVS)
|
||||||
BZE
|
BZE
|
||||||
YZCHK # IF YROT ZERO -- SEE IF SROT ZERO
|
YZCHK # IF YROT ZERO-SEE IF SROT ZERO
|
||||||
JUSTZY PUSH COS
|
JUSTZY PUSH COS
|
||||||
PDDL SIN # 1/2COS(YROT) 0-1
|
PDDL SIN # 1/2COS(YROT) 0-1
|
||||||
VXSC PDDL # UP 0-1 1/8SIN(YROT)UXP 0-5
|
VXSC PDDL # UP 0-1 1/8SIN(YROT)UXP 0-5
|
||||||
18D
|
18D
|
||||||
VXSC VSU # UP 0-5
|
VXSC VSU # UP 0-5
|
||||||
12D # UYP
|
12D # UYP
|
||||||
UNIT VXV
|
UNIT VXV
|
||||||
SCAXIS
|
SCAXIS
|
||||||
|
|
@ -284,13 +276,13 @@ JUSTZY PUSH COS
|
||||||
ABOUTONE
|
ABOUTONE
|
||||||
DMP
|
DMP
|
||||||
DP1/12
|
DP1/12
|
||||||
STORE 26D # SEP=(360 + SPIRAL -CURSOR)/12
|
STORE 26D # SEP=(360 + SPIRAL - CURSOR)/12
|
||||||
SIN VXSC # UP 0-5
|
SIN VXSC # UP 0-5
|
||||||
VSL1 PDDL # 1/2SIN(SEP)(UPP X OA) 0-5
|
VSL1 PDDL # 1/2SIN(SEP)(UPP X OA) 0-5
|
||||||
26D
|
26D
|
||||||
COS VXSC
|
COS VXSC
|
||||||
SCAXIS
|
SCAXIS
|
||||||
VSL1 VAD # UP 0-5
|
VSL1 VAD # UP 0-5
|
||||||
JUSTOA UNIT CALL
|
JUSTOA UNIT CALL
|
||||||
TRG*NBSM
|
TRG*NBSM
|
||||||
STCALL 24D # STAR VEC IN SM
|
STCALL 24D # STAR VEC IN SM
|
||||||
|
|
@ -308,11 +300,10 @@ YZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR
|
||||||
YSZERO
|
YSZERO
|
||||||
DLOAD GOTO
|
DLOAD GOTO
|
||||||
24D
|
24D
|
||||||
JUSTZY # SROT NOT ZERO -- CONTINUE NORMALLY
|
JUSTZY # SROT NOT ZERO-CONTINUE NORMALLY
|
||||||
YSZERO VLOAD GOTO
|
YSZERO VLOAD GOTO
|
||||||
SCAXIS
|
SCAXIS
|
||||||
JUSTOA
|
JUSTOA
|
||||||
|
|
||||||
# Page 252
|
# Page 252
|
||||||
# THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
|
# THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
|
||||||
|
|
||||||
|
|
@ -326,9 +317,9 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
|
||||||
PASTIT TC BANKCALL
|
PASTIT TC BANKCALL
|
||||||
CADR GOMARK4
|
CADR GOMARK4
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
TCF KILLAOT # V34-DOES GOTOPOOH
|
||||||
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
|
TCF MARKCHEX # VB33-PROCEED, GOT MARKS, COMPUTE LOS
|
||||||
TCF GETDAT # ENTER -- RECYCLE TO V01N71
|
TCF GETDAT # ENTER-RECYCLE TO V01N71
|
||||||
|
|
||||||
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
||||||
MASK BIT12
|
MASK BIT12
|
||||||
|
|
@ -338,27 +329,27 @@ MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR
|
TS MKDEX # SET MKDEX ZERO FOR LOS VEC CNTR
|
||||||
CA MARKSTAT
|
CA MARKSTAT
|
||||||
MASK PRIO3 # SEE IF LAST MK PART COMPLETE
|
MASK PRIO3 # SEE IF LAST MK PARI COMPLETE
|
||||||
TS L
|
TS L
|
||||||
CAF PRIO3 # BITS10 AND 11
|
CAF PRIO3 # BITS10 AND 11
|
||||||
EXTEND
|
EXTEND
|
||||||
RXOR LCHAN
|
RXOR LCHAN
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF AVESTAR # LAST PAIR COMPLETE -- TO COMPUTE LOS
|
BZF AVESTAR # LAST PAIR COMPLETE-GO COMPUTE LOS
|
||||||
CNTCHK CCS MARKCNTR # NO PAIR SHOWING -- SEE IF PAIR IN HOLD
|
CNTCHK CCS MARKCNTR # NO PAIR SHOWING-SEE IF PAIR IN HOLD
|
||||||
TCF +2 # PAIR BURIED -- DECREMENT COUNTER
|
TCF +2 # PAIR BURIED-DECREMENT COUNTER
|
||||||
TCF MKALARM # NO PAIR -- ALARM
|
TCF MKALARM # NO PAIR-ALARM
|
||||||
TS MARKCNTR # STORE DECREMENTED COUNTER
|
TS MARKCNTR # STORE DECREMENTED COUNTER
|
||||||
|
|
||||||
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
|
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
|
||||||
ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
|
ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
|
||||||
CS MARKCNTR
|
CS MARKCNTR
|
||||||
EXTEND
|
EXTEND
|
||||||
MP SIX # GET C(L) = -6 MARKCNTR
|
MP SIX # GET C(L) = - 6 MARKCNTR
|
||||||
CS XYMARK
|
CS XYMARK
|
||||||
AD L # ADD -- MARK VAC ADR SET IN MARKCHEX
|
AD L # ADD - MARK VAC ADR SET IN MARKCHEX
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS X1 # JAM -- CDU ADR OF X-MARK IN X1
|
TS X1 # JAM - CDU ADR OF X-MARK IN X1
|
||||||
|
|
||||||
CA FIXLOC # SET PD POINTER TO ZERO
|
CA FIXLOC # SET PD POINTER TO ZERO
|
||||||
TS PUSHLOC
|
TS PUSHLOC
|
||||||
|
|
@ -370,7 +361,7 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
|
||||||
SURFSTAR
|
SURFSTAR
|
||||||
1,1 # PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM
|
1,1 # PUT Y-MARK CDUS IN CDUSPOT FOR TRG*NBSM
|
||||||
STOVL CDUSPOT
|
STOVL CDUSPOT
|
||||||
12D # LOAD Y-PLANE VECTOR IN NG
|
12D # LOAD Y-PLANE VECTOR IN NB
|
||||||
CALL
|
CALL
|
||||||
TRG*NBSM # CONVERT IT TO STABLE MEMBER
|
TRG*NBSM # CONVERT IT TO STABLE MEMBER
|
||||||
PUSH VLOAD*
|
PUSH VLOAD*
|
||||||
|
|
@ -399,28 +390,28 @@ AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
|
||||||
STORE STARSAV2
|
STORE STARSAV2
|
||||||
EXIT
|
EXIT
|
||||||
CCS MARKCNTR # SEE IF ANOTHER MARK PAIR IN MKVAC
|
CCS MARKCNTR # SEE IF ANOTHER MARK PAIR IN MKVAC
|
||||||
TCF AVESTAR -1 # THERE IS -- GO GET IT -- DECREMENT COUNTER
|
TCF AVESTAR -1 # THERE IS-GO GET IT-DECREMENT COUNTER
|
||||||
ENDMARKS CAF FIVE # NO MORE MARKS -- TERMINATE AOTMARK
|
ENDMARKS CAF FIVE # NO MORE MARKS-TERMINATE AOTMARK
|
||||||
INHINT
|
INHINT
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= XYMARK
|
EBANK= XYMARK
|
||||||
2CADR MKRELEAS
|
2CADR MKRELEAS
|
||||||
|
|
||||||
|
|
||||||
TC ENDMARK
|
TC ENDMARK
|
||||||
|
|
||||||
MKALARM TC ALARM # NOT A PAIR TO PROCESS -- DO GETMKS
|
MKALARM TC ALARM # NOT A PAIR TO PROCESS-DO GETMKS
|
||||||
OCT 111
|
OCT 111
|
||||||
TCF GETMKS
|
TCF GETMKS
|
||||||
|
|
||||||
V01N71 VN 171
|
V01N71 VN 171
|
||||||
V06N87* VN 687
|
V06N87* VN 687
|
||||||
|
|
||||||
# Page 254
|
# Page 254
|
||||||
# MARKRUPT IS ENTERED FROM INTERRUPT LEAD-INS AND PROCESSES CHANNEL 16
|
# MARKRUPT IS ENTERED FROM INTERUPT LEAD-INS AND PROCESSES CHANNEL 16
|
||||||
# CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
|
# CAUSED BY X,Y MARK OR MARK REJECT OR BY THE RATE OF DESCENT SWITCH
|
||||||
|
|
||||||
MARKRUPT TS BANKRUPT
|
MARKRUPT TS BANKRUPT
|
||||||
CA CDUY # STORE CDUS AND TIME NOW -- THEN SEE IF
|
CA CDUY # STORE CDUS AND TIME NOW-THEN SEE IF
|
||||||
TS ITEMP3 # WE NEED THEM
|
TS ITEMP3 # WE NEED THEM
|
||||||
CA CDUZ
|
CA CDUZ
|
||||||
TS ITEMP4
|
TS ITEMP4
|
||||||
|
|
@ -436,42 +427,41 @@ MARKRUPT TS BANKRUPT
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
TCF +2 # ITS A LIVE ONE -- SEE IF ITS WANTED
|
TCF +2 # ITS A LIVE ONE-SEE IF ITS WANTED
|
||||||
TCF SOMEKEY # ITS SOME OTHER KEY
|
TCF SOMEKEY # ITS SOME OTHER KEY
|
||||||
|
|
||||||
CAF BIT12 # ARE WE ASKING FOR A MARK
|
CAF BIT12 # ARE WE ASKING FOR A MARK
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
CCS A
|
CCS A
|
||||||
TC RESUME # DON'T WANT MARK OR MKREJECT -- DO NOTHING
|
TC RESUME # DONT WANT MARK OR MKREJECT-DO NOTHING
|
||||||
|
|
||||||
CCS MARKSTAT # ARE MARKS BEING ACCEPTED
|
CCS MARKSTAT # ARE MARKS BEING ACCEPTED
|
||||||
TCF FINDKEY # THEY ARE -- WHICH ONE IS IT
|
TCF FINDKEY # THEY ARE-WHICH ONE IS IT
|
||||||
TC ALARM # MARKS NOT BEING ACCEPTED -- DO ALARM
|
TC ALARM # MARKS NOT BEING ACCEPTED-DO ALARM
|
||||||
OCT 112
|
OCT 112
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
FINDKEY CAF BIT5 # SEE IF MARK REJECT.
|
FINDKEY CAF BIT5 # SEE IF MARK REJECT
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
TCF MKREJ # IT'S A MARK REJECT
|
TCF MKREJ # ITS A MARK REJECT
|
||||||
|
|
||||||
CAF BIT4 # SEE IF Y MARK
|
CAF BIT4 # SEE IF Y MARK
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
|
|
||||||
TCF YMKRUPT # IT'S A Y MARK
|
TCF YMKRUPT # ITS A Y MARK
|
||||||
|
|
||||||
CAF BIT3 # SEE IF X MARK
|
CAF BIT3 # SEE IF X MARK
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
|
|
||||||
# Page 255
|
# Page 255
|
||||||
CCS A
|
CCS A
|
||||||
TCF XMKRUPT # IT'S A X MARK
|
TCF XMKRUPT # ITS A X MARK
|
||||||
|
|
||||||
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS
|
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT-SEE IF DESCENT BITS
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
EXTEND
|
EXTEND
|
||||||
|
|
@ -480,7 +470,7 @@ SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS
|
||||||
TC POSTJUMP # IF DESCENT BITS
|
TC POSTJUMP # IF DESCENT BITS
|
||||||
CADR DESCBITS
|
CADR DESCBITS
|
||||||
|
|
||||||
TC ALARM # NO INBITS IN CHANNEL 16.
|
TC ALARM # NO INBITS IN CHANNEL 16
|
||||||
OCT 113
|
OCT 113
|
||||||
|
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
@ -492,21 +482,21 @@ XMKRUPT CAF ZERO
|
||||||
YMKRUPT CAF ONE
|
YMKRUPT CAF ONE
|
||||||
TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
|
TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
|
||||||
CAF BIT11
|
CAF BIT11
|
||||||
TS XYMARK # SET MARK IDENTIFICATION
|
TS XYMARK # SET MARK IDENTIFIATION
|
||||||
|
|
||||||
TC MARKTYPE # SEE IF SURFACE MARK
|
TC MARKTYPE # SEE IF SURFACE MARK
|
||||||
TCF SURFSTOR # SURFACE MARK -- JUST STORE CDUS
|
TCF SURFSTOR # SURFACE MARK-JUST STORE CDUS
|
||||||
|
|
||||||
CAF BIT14 # GOT A MARK -- SEE IF MARK PARI MADE
|
CAF BIT14 # GOT A MARK-SEE IF MARK PAIR MADE
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF VERIFYMK # NOT A PAIR, NORMAL PROCEDURE
|
BZF VERIFYMK # NOT A PAIR, NORMAL PROCEDURE
|
||||||
CS MARKCNTR # GO A PAIR, SEE IF ANOTHER CAN BE MADE
|
CS MARKCNTR # GOT A PAIR, SEE IF ANOTHER CAN BE MADE
|
||||||
AD FOUR # IF SO, INCREMENT POINTER, CLEAR BITS 10,11
|
AD FOUR # IF SO, INCREMENT POINTER,CLEAR BITS10,11
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF 5MKALARM # HAVE FIVE MARK PAIRS -- DON'T ALLOW MARK
|
BZMF 5MKALARM # HAVE FIVE MARK PAIRS-DONT ALLOW MARK
|
||||||
INCR MARKCNTR # OK FOR ANOTHER PAIR, INCR POINTER
|
INCR MARKCNTR # OK FOR ANOTHER PAIR, INCR POINTER
|
||||||
CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR
|
CS PRIO23 # CLEAR BITS10,11,14 FOR NEXT PAIR
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
|
|
||||||
|
|
@ -514,31 +504,29 @@ VERIFYMK CA XYMARK
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
CCS A
|
CCS A
|
||||||
TCF +2 # THIS MARK NOT DESIRED
|
TCF +2 # THIS MARK NOT DESIRED
|
||||||
TCF VACSTOR # MARK DESIRED -- STORE CDUS
|
TCF VACSTOR # MARK DESIRED - STORE CDUS
|
||||||
TC ALARM
|
TC ALARM
|
||||||
OCT 114
|
OCT 114
|
||||||
TC RESUME # RESUME -- DISPLAY UNCHANGED -- WAIT FOR ACTION
|
TC RESUME # RESUME-DISPLAY UNCHANGED-WAIT FOR ACTION
|
||||||
|
|
||||||
# Page 256
|
# Page 256
|
||||||
5MKALARM TC ALARM # ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
|
5MKALARM TC ALARM # ATTEMPTING TO MAKE MORE THAN 5 MK PAIRS
|
||||||
OCT 107
|
OCT 107
|
||||||
TC MARKTYPE # SEE IF SURFACE MARK
|
TC MARKTYPE # SEE IF SURFACE MARK
|
||||||
TCF DSPV6N79 # IT IS
|
TCF DSPV6N79 # IT IS
|
||||||
TC RESUME # DON'T CHANGE DISPLAY -- DO NOTHING
|
TC RESUME # DONT CHANGE DISPLAY-DO NOTHING
|
||||||
|
|
||||||
# Page 257
|
# Page 257
|
||||||
MKREJ TC MARKTYPE # SEE IF SURFACE
|
MKREJ TC MARKTYPE # SEE IF SURFACE
|
||||||
TCF SURFREJ # SURFACE -- JUST CHECK MARK COUNTER
|
TCF SURFREJ # SURFACE-JUST CHECK MARK COUNTER
|
||||||
|
|
||||||
CAF PRIO3 # INFLIGHT -- SEE IF MARKS MADE
|
CAF PRIO3 # INFLIGHT-SEE IF MARKS MADE
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
CCS A
|
CCS A
|
||||||
TCF REJECT # MARKS MADE -- REJECT ONE
|
TCF REJECT # MARKS MADE-REJECT ONE
|
||||||
REJALM TC ALARM # NO MARK TO REJECT -- BAD PROCEDURE -- ALARM
|
REJALM TC ALARM # NO MARK TO REJECT-BAD PROCEDURE-ALARM
|
||||||
OCT 115
|
OCT 115
|
||||||
TC RESUME # DESIRED ACTION DISPLAYED
|
TC RESUME # DESIRED ACTION DISPLAYED
|
||||||
|
|
||||||
REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
|
REJECT CS PRIO30 # ZERO BIT14,SHOW REJ.,SEE IF MARK SINCE
|
||||||
MASK MARKSTAT # LAST REJECT
|
MASK MARKSTAT # LAST REJECT
|
||||||
AD BIT13
|
AD BIT13
|
||||||
XCH MARKSTAT
|
XCH MARKSTAT
|
||||||
|
|
@ -546,27 +534,26 @@ REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
|
||||||
CCS A
|
CCS A
|
||||||
TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
|
TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
|
||||||
|
|
||||||
CS XYMARK # MARK MADE SINCE REJECT -- REJECT MARK IN 1D
|
CS XYMARK # MARK MADE SINCE REJECT-REJECT MARK IN 1D
|
||||||
RENEWMK MASK MARKSTAT
|
RENEWMK MASK MARKSTAT
|
||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
TCF REMARK # GO REQUEST NEW MARK ACTION
|
TCF REMARK # GO REQUEST NEW MARK ACTION
|
||||||
|
|
||||||
REJECT2 CS PRIO3 # ON SECOND REJECT -- DISPLAY VB53 AGAIN
|
REJECT2 CS PRIO3 # ON SECOND REJECT-DISPLAY VB53 AGAIN
|
||||||
TCF RENEWMK
|
TCF RENEWMK
|
||||||
|
|
||||||
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
|
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF REJALM # NO MARKS TO REJECT -- ALARM
|
TCF REJALM # NO MARKS TO REJECT-ALARM
|
||||||
TS MARKCNTR
|
TS MARKCNTR
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
# Page 258
|
# Page 258
|
||||||
# MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1
|
# MARKTYPE TESTS TO SEE IF LEM ON LUNAR SURFACE. IF IT IS RETURN TO LOC+1
|
||||||
|
|
||||||
MARKTYPE CS FLAGWRD8 # SURFFLAG ******** TEMPORARY ******
|
MARKTYPE CS FLAGWRD8 # SURFFLAG*******TEMPORARY*****
|
||||||
MASK BIT8
|
MASK BIT8
|
||||||
CCS A
|
CCS A
|
||||||
INCR Q # IF SURFACE MARK RETURN TO LOC +1
|
INCR Q # IF SURFACE MARK REUTNR TO LOC +1
|
||||||
TC Q # IF INFLIGHT MARK RETURN TO LOC +2
|
TC Q # IF INFLIGHT MARK RETURN TO LOC +2
|
||||||
|
|
||||||
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
|
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
|
||||||
|
|
@ -598,7 +585,7 @@ VACSTOR CAF LOW9
|
||||||
CA ITEMP5
|
CA ITEMP5
|
||||||
INDEX RUPTREG1
|
INDEX RUPTREG1
|
||||||
TS 4 # STORE CDUX
|
TS 4 # STORE CDUX
|
||||||
TC MARKTYPE # IF SURFACE MARK -- JUST DO SURFJOB
|
TC MARKTYPE # IF SURFACE MARK-JUST DO SURFJOB
|
||||||
TCF SURFJOB
|
TCF SURFJOB
|
||||||
|
|
||||||
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
|
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
|
||||||
|
|
@ -609,18 +596,16 @@ VACSTOR CAF LOW9
|
||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
MASK PRIO3 # SEE IF X, Y MARK MADE
|
MASK PRIO3 # SEE IF X, Y MARK MADE
|
||||||
TS L
|
TS L
|
||||||
|
|
||||||
# Page 259
|
# Page 259
|
||||||
CA PRIO3
|
CA PRIO3
|
||||||
EXTEND
|
EXTEND
|
||||||
RXOR LCHAN
|
RXOR LCHAN
|
||||||
CCS A
|
CCS A
|
||||||
TCF REMARK # NOT PAIR YET, DISPLAY MARK ACTION
|
TCF REMARK # NOT PAIR YET, DISPLAY MARK ACTION
|
||||||
CS MARKSTAT # MARK PAIR COMPLETE -- SET BIT14
|
CS MARKSTAT # MARK PAIR COMPLETE-SET BIT14
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
TCF REMARK # GO DISPLAY V54
|
TCF REMARK # GO DISPLAY V54
|
||||||
|
|
||||||
# Page 260
|
# Page 260
|
||||||
REMARK CAF PRIO3 # BITS 10 AND 11
|
REMARK CAF PRIO3 # BITS 10 AND 11
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
|
|
@ -632,15 +617,16 @@ SURFJOB CAF PRIO15
|
||||||
EBANK= XYMARK # REQUEST NEXT ACTION
|
EBANK= XYMARK # REQUEST NEXT ACTION
|
||||||
2CADR CHANGEVB
|
2CADR CHANGEVB
|
||||||
|
|
||||||
|
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
CHANGEVB TC MARKTYPE
|
CHANGEVB TC MARKTYPE
|
||||||
TCF DSPV6N79 # SURFACE -- DISPLAY V 06 N 79
|
TCF DSPV6N79 # SURFACE-DISPLAY V 06 N 79
|
||||||
INDEX MKDEX # INFLIGHT -- PICK UP MARK VB INDEX
|
INDEX MKDEX # INFLIGHT-PICK UP MARK VB INDEX
|
||||||
CAF MKVB54
|
CAF MKVB54
|
||||||
TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
|
TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
|
||||||
|
|
||||||
# THE FOUR MKVBS ARE INDEXED -- THEIR ORDER CANNOT BE CHANGED
|
# THE FOUR MKVBS ARE INDEXED-THEIR ORDER CANNOT BE CHANGED
|
||||||
|
|
||||||
MKVB54 VN 5471 # MAKE X OR Y MARK
|
MKVB54 VN 5471 # MAKE X OR Y MARK
|
||||||
MKVB53 VN 5371 # MAKE Y MARK
|
MKVB53 VN 5371 # MAKE Y MARK
|
||||||
|
|
@ -651,21 +637,20 @@ DP1/8 2DEC .125
|
||||||
OCT34 OCT 34
|
OCT34 OCT 34
|
||||||
V06N71 VN 671
|
V06N71 VN 671
|
||||||
V06N79* VN 679
|
V06N79* VN 679
|
||||||
|
|
||||||
# Page 261
|
# Page 261
|
||||||
# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
|
# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
|
||||||
COUNT* $$/R59
|
COUNT* $$/R59
|
||||||
|
|
||||||
DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
|
DSPV6N79 CAF V06N79* # CURSOR-SPIRAL DISPLAY
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOMARKF
|
CADR GOMARKF
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
TCF KILLAOT # V34-DOES GOTOPOOH
|
||||||
TCF SURFEND # V33 -- PROCEED, END MARKING
|
TCF SURFEND # V33-PROCEED, END MARKING
|
||||||
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
|
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
|
||||||
MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO
|
MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO
|
||||||
CCS A # RE-DISPLAY V06N79
|
CCS A # RE-DISPLAY V06N79
|
||||||
TCF SURFAGAN # VB32 -- RECYCLE
|
TCF SURFAGAN # VB32-RECYCLE
|
||||||
TCF DSPV6N79 # ENTER
|
TCF DSPV6N79 # ENTER
|
||||||
|
|
||||||
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
|
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
|
||||||
|
|
@ -680,16 +665,15 @@ SURFAGAN CA CURSOR
|
||||||
INDEX MKDEX
|
INDEX MKDEX
|
||||||
TS 3 # STORE SPIRAL
|
TS 3 # STORE SPIRAL
|
||||||
|
|
||||||
CS MARKSTAT # IF BIT 14 SET -- END MARKING
|
CS MARKSTAT # IF BIT 14 SET-END MARKING
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF MARKCHEX
|
BZF MARKCHEX
|
||||||
CA MARKCNTR # THIS IS RECYCLE -- SEE IF 5 MARKS ALREADY
|
CA MARKCNTR # THIS IS RECYCLE-SEE IF 5 MARKS ALREADY
|
||||||
AD ONE
|
AD ONE
|
||||||
COM
|
COM
|
||||||
AD FIVE
|
AD FIVE
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF 5MKALARM # CAN'T RECYCLE -- TOO MANY MARKS -- ALARM
|
BZMF 5MKALARM # CANT RECYCLE-TO MANY MARKS-ALARM
|
||||||
INCR MARKCNTR # OF FOR RECYCLE -- INCR COUNTER
|
INCR MARKCNTR # OF FOR RECYCLE-INCR COUNTER
|
||||||
TCF GETMKS +3 # GO DISPLAY MARK VB
|
TCF GETMKS +3 # GO DISPLAY MARK VB
|
||||||
|
|
||||||
Loading…
Reference in New Issue