tw37218.pp 242 B

12345678910111213141516171819202122
  1. { %CPU=aarch64 }
  2. program project1;
  3. uses crt;
  4. procedure test;
  5. var a:uint64;
  6. begin
  7. a:=1;
  8. asm
  9. mov x4,# 0
  10. mov x12,# 1
  11. add x4,x4,x12,lsl # 2
  12. str x4, a
  13. end;
  14. writeln(a);
  15. if a<>4 then
  16. halt(1);
  17. end;
  18. begin
  19. test;
  20. end.