                                
            /PROGRAM BIO A-08-01
            /ADDITION OF NEW SUBROUTINES TO 4 WORD F.P. PACKAGE
            /FREAD,FSPA,FSZA,FNOP,FJMP,FNEG,FHLT
            /FCLA MAY BE SIMULATED BY SETTING FCLA=2044
            /
            *5760
5760  5324           FPREAD                   /FREAD=10
5761  5333           FPSPA                    /FSPA=11
5762  5340           FPSZA                    /FSZA=12
5763  5770           EXIT6                    /FNOP=13
5764  5770           EXIT6
5765  5345           FPJMP                    /FJMP=15
5766  6261           6261                     /FNEG=16
5767  5372           FPHLT                    /FHLT=17
            EXIT6=5770
            /
            /
            *5324
5324  0000  FPREAD,  0                        /SUBROUTINE TO READ FIRST
5325  4405           JMS I 5                  /VALID F.P. NUMBER
5326  7300           CLA CLL
5327  1061           TAD 61
5330  7650           SNA CLA
5331  5325           JMP .-4
5332  5724           JMP I FPREAD
            /
            /
5333  0000  FPSPA,   0                        /SUBROUTINE TO SIMULATE SPA N.
5334  1045           TAD 45                   /I.E. JUMP N INSTRUCTIONS
5335  7700           SMA CLA                  /IF F.P. ACC. POSITIVE.
5336  4345           JMS FPJMP                /N DEFINED IN F.P. JUMP
5337  5733           JMP I FPSPA
            /
            /
5340  0000  FPSZA,   0                        /SUBROUTINE TO SIMULATE SZA N.
5341  1045           TAD 45                   /I.E. JUMP N INSTRUCTIONS
5342  7650           SNA CLA                  /IF F.P. ACC.=0.
5343  4345           JMS FPJMP                /N DEFINED IN F.P. JUMP
5344  5740           JMP I FPSZA
            /
            /
5345  0000  FPJMP,   0                        /SUBROUTINE TO SIMULATE JMP N
5346  1771           TAD I INST               /WHERE N=M*20(OCTAL) AND
5347  0367           AND MASK1                /M IS THE NUMBER OF INSTR.
5350  7650           SNA CLA                  /TO BE JUMPED. IF BIT 3=0
5351  7040           CMA                      /JUMP FORWARDS, IF BIT 3=1
5352  3015           DCA 15                   /JUMP BACKWARDS.
5353  1771           TAD I INST               /CONTENTS OF LOC. 15 LOST
5354  7112           CLL RTR
5355  7012           RTR
5356  0366           AND MASK
5357  2015           ISZ 15
5360  7041           CIA
5361  1765           TAD I RETADD
5362  1370           TAD MONE
5363  3765           DCA I RETADD
5364  5745           JMP I FPJMP
5365  5661  RETADD,  5661
5366  0017  MASK,    17
5367  0400  MASK1,   400
5370  7777  MONE,    -1
5371  5657  INST,    5657
            /
            /
5372  0000  FPHLT,   0                        /SUBROUTINE TO SIMULATE A HALT
5373  7040           CMA                      /WITH ADDR. OF HALT DISPLAYED
5374  1765           TAD I RETADD             /IN ACC.
5375  7402           HLT
5376  7300           CLA CLL
5377  5772           JMP I FPHLT
                                                                
EXIT6   5770
FPHLT   5372
FPJMP   5345
FPREAD  5324
FPSPA   5333
FPSZA   5340
INST    5371
MASK    5366
MASK1   5367
MONE    5370
RETADD  5365

                                                ?