ON ERROR PRINT REPORT$;" at ";ERL : END

DIM code% 256
FOR pass=0 TO 2 STEP 2
P%=code%
[ OPT pass
RFS R0
MOV R1,#0 ; No exception traps, normal packed decimal
WFS R1
ADR R2,data
LDFP F0,[R2]
WFS R0
MOV PC,R14

.data
EQUD &3fff7bde
EQUD &e8425368
EQUD &51179ca4
]
NEXT pass

PRINT "Calling..."
CALL code%
PRINT "Done"