tw37099.pp 359 B

12345678910111213141516171819202122232425262728293031
  1. { %cpu=xtensa }
  2. { %norun }
  3. unit asmtest;
  4. interface
  5. procedure test;
  6. implementation
  7. procedure test; assembler;
  8. label
  9. lbl, lbl2;
  10. asm
  11. bbci.l a4, 7, lbl2
  12. _bnez.n a4, lbl2
  13. loopnez a5, lbl
  14. beqz.n a2, lbl
  15. add a4, a5, a6
  16. lbl:
  17. bt b9, lbl
  18. sub.s f1, f9, f13
  19. _loopgtz a3, lbl2
  20. rsr.prid a2
  21. extui a4, a3, 2, 1
  22. lbl2:
  23. mula.aa.ll a3, a4
  24. end;
  25. end.