/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