                                                                         /MACRO COMPILER
                     /
                     /PAGE 4600
                     *4600
          FLMY,      0
                     TAD I FLMY
                     DCA Z AUT17
                     TAD I Z AUT17
                     DCA OP10
                     TAD I Z AUT17
                     DCA OP10+1
                     TAD I Z AUT17
                     DCA OP10+2
                     ISZ FLMY
                     TAD OP10
                     TAD Z BEXP
                     IAC
                     DCA Z BEXP
                     CLL
                     TAD Z HIC
                     DCA Z MP2
                     TAD OP10+2
                     JMS MP44
                     DCA CC
                     TAD Z MP5
                     DCA CC+1
                     TAD OP10+1
                     DCA Z MP2
                     TAD Z LWC
                     JMS MP44
                     TAD CC
                     DCA CC
                     RAL
                     TAD Z MP5
                     TAD CC+1
                     DCA CC+1
                     RAL
                     DCA CC+2
                     TAD Z HIC
                     DCA Z MP2
                     TAD OP10+1
                     JMS MP44
                     TAD CC+1
                     DCA Z LWC
                     RAL
                     TAD Z MP5
                     TAD CC+2
                     DCA Z HIC
                     JMS I .+2
                     JMP I FLMY
                     /
                     FLNR
          OP10,      0
                     0
                     0
                     /
          MP44,      0
                     DCA Z MP1
                     DCA Z MP5
                     TAD C7764
                     DCA Z MP3
                     TAD Z MP1
                     RAR
                     DCA Z MP1
                     TAD Z MP5
                     SNL
                     JMP .+3
                     /
                     CLL
                     TAD Z MP2
                     RAR
                     DCA Z MP5
                     ISZ Z MP3
                     JMP MP44+5
                     /
                     TAD Z MP1
                     RAR
                     CLL
                     JMP I MP44
                     /
          TEN,       4
                     2400
                     0
                     0-3
                     3146
                     3146
          CC,        0
                     0
                     0
                     /
          FLOAT,     JMS FRCDEC
                     DCA INDIC
                     JMS I DOUBLE-2
                     JMP I DOUBLE-1
                     /
                     TAD Z BEXP
                     JMS I ONERE1
                     TAD Z HIC
                     JMS I ONERE1
                     TAD Z LWC
                     JMS I ONERE1
                     JMP FLOAT+2
                     /
                     DANDF
                     MAINSE+1
                     /
          DOUBLE,    JMS FRCDEC
                     CLA CMA
                     DCA INDIC
                     JMS I DOUBLE-2
                     JMP I DOUBLE-1
                     /
                     TAD Z HIC
                     JMS I ONERE1
                     TAD Z LWC
                     JMS I ONERE1
                     JMP DOUBLE+3
                     /
          FRCDEC,    0
                     TAD I INDIC-2
                     DCA INDIC-3
                     JMS I INDIC-1
                     JMP I FRCDEC
                     /
          RET,       0
                     TAD INDIC-3
                     DCA I INDIC-2
                     JMP I RET
                     /
                     0
                     MTSW
                     DECIMS
          INDIC,     0
          ONERE1,    ONEREG
                     HLT
                     HLT
                     HLT
                     HLT
                     HLT
                     HLT
                     HLT
                     HLT
                     HLT
                     HLT
                     /
          C7764,     7764
                     PAUSE
                                                                                                                                                                                                                                        