                                                                
            /ADDENDA TO A-07-02
            /COMPACT VERSION  "ODMS"
            
            /ASSUME OPERAND IN RADIANS
            /OUTPUT  AS DEGREES, MINUTES, SECONDS
            /USES THREE LINES OF "E" FORMAT
            /RESTARTS
            *5765
5765  7200  7200  /OUTPUT
5766  6261  6261   /NEGATE
5767  6752  6752   /GET INTEGRAL PART OF FAC
            
            
            D=4325
            FOUT=15
            FNEG=16
            FINT=17
            
            
            *4541
4541  4341  ODMS
            
            *4341
4341  0000  ODMS, 0
4342  4407  JMS I 7
4343  4325  FDIV D
4344  6366  FPUT RODMS
4345  0017  FINT
4346  6765  FPUT I X
4347  0015  FOUT
4350  5366  FGET RODMS
4351  2765  FSUB I X
4352  3372  FMPY SIXTY
4353  6366  FPUT RODMS
4354  0017  FINT
4355  6765  FPUT I X
4356  0015  FOUT
4357  5366  FGET RODMS
4360  2765  FSUB I X
4361  3372  FMPY SIXTY
4362  0015  FOUT
4363  0000  FEXT
4364  5741  JMP I ODMS
            
            
4365  4551  X, 4551
4366  0000  
4367  0000  
4370  0000  
4371  0000  RODMS, 0;0;0;0
4372  0006  
4373  3600  
4374  0000  
4375  0000  SIXTY, 6;3600;0;0
            
            
                                                                
D       4325
FINT    0017
FNEG    0016
FOUT    0015
ODMS    4341
RODMS   4366
SIXTY   4372
X       4365

                                                       x