/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