arm.fs (559B) - raw
1 ?f<< /tests/harness.fs 2 \ TODO: allow assemblers to coexist 3 ARCH S" i386" s= [if] 4 ." ARM assembler messes up i386 asm, skipping" nl> \s [then] 5 ?f<< /asm/arm.fs 6 testbegin 7 \ Tests for asm/arm.fs 8 mov) r0 rd) 42 imm) 9 $e3a0002a #eq \ mov r0, #42 10 ldr) r1 rd) r2 rn) r3 +r) pre) 1 lsr) 11 $e79210a3 #eq \ ldr r1, [r2, r3 lsr #1] 12 swp) r1 rd) r2 rn) r3 rm) 13 $e1021093 #eq \ swp r1, r3, [r2] 14 mov) r3 rd) $3f0000 imm) 15 $e3a039fc #eq \ mov r3, #3f0000 16 mul) r1 rd) r2 rm) r3 rs) 17 $e0010392 over #eq \ mul r1, r2, r3 18 r4 acc) $e0214392 #eq \ mla r1, r2, r3, r4 19 testend