/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 $