1               FIXMRI FPUT=6000
   2               FIXMRI FGET=5000
   3               FEXT=0000
   4               
   5               /ADDITIONS TO CDP FOR FLOATING EXAMINAYTION AND
   6               /MODIFICATION. 3 WORD PACKAGE.
   7               /JAMES ROTHMAN  JULY 27,1967
   8               *3530                   /ADDITIONS TO ODP FOR EXAMINING AND
   9                       OUTPUT=11       /MODIFYING FLOATING POINT NUMBERS
  10                       INPUT=12
  11 003530  4774  EX,     JMS I OCTRD     /EXAMINE INSTRUCTION
  12 003531  3370          DCA TEMP
  13 003532  4407          JMS I 7
  14 003533  6371          FPUT TEMP2      /SAVE FAC
  15 003534  5770          FGET I TEMP
  16 003535  0011          OUTPUT
  17 003536  5371          FGET TEMP2
  18 003537  0000          FEXT
  19 003540  5776          JMP I BEG
  20 003541  4407  IN,     JMS I 7 /INSERT INSTRUCTION
  21 003542  6371          FPUT TEMP2
  22 003543  0012          INPUT
  23 003544  6770          FPUT I TEMP
  24 003545  5371          FGET TEMP2
  25 003546  0000          FEXT
  26 003547  1367          TAD P4
  27 003550  1370          TAD TEMP        /NEXT FLOATING NUMBER
  28 003551  3370          DCA TEMP
  29 003552  5776          JMP I BEG
  30 003553  1367  NEXT,   TAD P4  /EXAMINE NEXT
  31 003554  1370          TAD TEMP
  32 003555  3370          DCA TEMP
  33 003556  1370          TAD TEMP
  34 003557  4775          JMS I OCTPNT    /PRINT ADDRESS
  35 003560  5332          JMP EX+2
  36 003561  0000  IPUT,   0       /CHECK AND CALL INPUT
  37 003562  4405          JMS I 5
  38 003563  1060          TAD 60          /VALID INPUT?
  39 003564  7650          SNA CLA
  40 003565  5362          JMP .-3 /NO. TRY AGAIN.
  41 003566  5761          JMP I IPUT      /YES. EXIT.
  42               /CONSTANTS AND POINTERS FOR ADDITIONS.
  43 003567  0003  P4,     3
  44 003570  0000  TEMP,   0
  45 003571  0000  TEMP2,  0;0;0           /TEMP. FAC STORAGE
     003572  0000  
     003573  0000  
  46 003574  4113  OCTRD,  4113
  47 003575  3705  OCTPNT, 3705
  48 003576  3602  BEG,    3602
  49               *4563   /MODIFICATIONS TO ADDRESS TABLE IN ODP
  50 004563  3541          IN
  51 004564  3530          EX
  52 004565  3553          NEXT
  53               *4550   /COMMAND TABLE IN ODP
  54 004550  7473          -305    /CHANGE O TO E
  55               *6555   /INTERPRETATION TABLE IN PACKAGE
  56 006555  7200          7200    /FLOATING OUTPUT
  57 006556  3561          IPUT    /FLOATING INPUT
  58               $

BEG     3576
EX      3530
FEXT    0000
FGET    5000
FPUT    6000
IN      3541
INPUT   0012
IPUT    3561
NEXT    3553
OCTPNT  3575
OCTRD   3574
OUTPUT  0011
P4      3567
TEMP    3570
TEMP2   3571