
/ADDITIONS TO CDP FOR FLOATING EXAMINATION AND
/MODIFICATION. 4 WORD PACKAGE.
/JAMES ROTHMAN  JULY 27,1967
*4130   /ADDITIONS TO ODP FOR EXAMINING AND
        OUTPUT=11       /MODIFYING FLOATING POINT NUMBERS
        INPUT=12
EX,     JMS I OCTRD     /EXAMINE INSTRUCTION
        DCA TEMP
        JMS I 7
        FPUT TEMP2      /SAVE FAC
        FGET I TEMP
        OUTPUT
        FGET TEMP2
        FEXT
        JMP I BEG
IN,     JMS I 7 /INSERT INSTRUCTION
        FPUT TEMP2
        INPUT
        FPUT I TEMP
        FGET TEMP2
        FEXT
        TAD P4
        TAD TEMP        /NEXT FLOATING NUMBER
        DCA TEMP
        JMP I BEG
NEXT,   TAD P4  /EXAMINE NEXT
        TAD TEMP
        DCA TEMP
        TAD TEMP
        JMS I OCTPNT    /PRINT ADDRESS
        JMP EX+2
IPUT,   0       /CHECK AND CALL INPUT
        JMS I 5
        TAD 61  /VALID INPUT?
        SNA CLA
        JMP .-3 /NO. TRY AGAIN.
        JMP I IPUT      /YES. EXIT.
/CONSTANTS AND POINTERS FOR ADDITIONS.
P4,     4
TEMP,   0
TEMP2,  0;0;0;0 /TEMP. FAC STORAGE
OCTRD,  4513
OCTPNT, 4305
BEG,    4202
*5170   /MODIFICATIONS TO ADDRESS TABLE IN ODP
        IN
        EX
        NEXT
*5155   /COMMAND TABLE IN ODP
        -305    /CHANGE O TO E
*5761   /INTERPRETATION TABLE IN PACKAGE
        7200    /FLOATING OUTPUT
        IPUT    /FLOATING INPUT
$

