swh:1:snp:92f3f585b9ae79620ad8c41a332d6329b31fd381
Tip revision: 391bbc7b68686318ecd16acb71d520614176e602 authored by Mike Stewart on 02 October 2019, 05:15:17 UTC
Retread 50: Completed disassembly of new extended verbs
Retread 50: Completed disassembly of new extended verbs
Tip revision: 391bbc7
IDS.f
C COPYRIGHT NONE. THIS CODE IS IN THE PUBLIC DOMAIN.
C FILENAME GEMINICATCHUPANDRENDEZVOUSPROGRAM/IDS.F
C PURPOSE THIS IS PART OF THE ORIGINAL 1965 SIMULATION
C PROGRAM FOR THE GEMINI 7/6 MISSION
C CATCH-UP AND RENDEZVOUS FLIGHT PHASES.
C THIS PARTICULAR FILE CONTAINS ONLY THE
C IVIDS SUBROUTINE.
C WEBSITE WWW.IBIBLIO.ORG/APOLLO
C HISTORY 2010-08-14 RSB BEGAN TRANSCRIBING FROM
C THE SCANNED PDF REPORT.
C
C REFER TO MAIN.F FOR MORE-DETAILED INTRODUCTORY COMMENTS.
C
C FROM PAGE 174 OF THE REPORT
SUBROUTINE IVIDS(CDVXS,CDVXB,CDVXZ,CDVYS,CDVYB,CDVYZ,CDVZS,CDVZB,
1CDVZZ,LDI22,LC1J,LDO12,LDO13,CDV,CDVXSP,CDVYSP,CDVZSP)
326 CDVXS=CDVXB-CDVXZ
CDVYS=CDVYB-CDVYZ
CDVZS=CDVZB-CDVZZ
327 IF (LDI22) 344,328,344
328 IF (LC1J) 336,334,330
330 LC1J=-4095
331 LDO12=4095
LDO13=4095
332 IF (CDVZS) 11,13,12
11 CDVZS=CDVZS-.5
GO TO 13
12 CDVZS=CDVZS+.5
13 CDV = INTF(CDVZS)
CDVZSP=CDVZSP+CDV
333 CDVZZ=CDVZZ+CDV
GO TO 344
334 LC1J=4095
335 LDO12=0
LDO13=4095
339 IF (CDVYS) 14,16,15
14 CDVYS=CDVYS-.5
GO TO 16
15 CDVYS=CDVYS+.5
16 CDV = INTF(CDVYS)
CDVYSP=CDVYSP+CDV
340 CDVYZ=CDVYZ+CDV
GO TO 344
336 LC1J=0
337 LDO12=4095
LD013=0
341 IF (CDVXS) 17,19,18
17 CDVXS=CDVXS-.5
GO TO 19
18 CDVXS=CDVXS+.5
19 CDV = INTF(CDVXS)
CDVXSP=CDVXSP+CDV
342 CDVXZ=CDVXZ+CDV
344 RETURN
END(1,1,0,0,0,0,1,1,0,0,0,0,0,0,0)