/ fp1 -- floating point simulator
m.ext = 200 / long mode bit
m.lngi = 100 / long integer mode
.globl ac0, ac1, ac2, ac3
mov -(r5),r5 / trapped instruction
sub $8,sp / room for double push
bic $100000,fpsr / clear fp error
jsr r1,fsrc; mod0rx; mod242
jsr r1,fsrc; mod0f; mod24f
jsr r1,fsrc; mod0rx; mod242
jsr r1,fsrc; mod0ra; mod24i
jsr r1,fsrc; mod0f; mod24d
jsr r1,fsrc; mod0f; mod24f
jbr again / if another fp, save trap