"swap" word.

thun/asm-dump.txt

@@ -5,7 +5,7 @@ label(A),
 mov_imm(0, 0),
 store_word(0, 0, 0),
 mov_imm(0, 4096),
-mov_imm(1, J1),
+mov_imm(1, S1),
 mov_imm(2, 0),
 mov_imm(3, 0),
 store_word(2, 0, 0),
@@ -190,7 +190,61 @@ symbol(I1),
 mov_imm(5, 0),
 do_offset(D),
 label(J1),
+symbol(J1),
+lsl_imm(6, 2, 2),
+asr_imm(6, 6, 17),
+eq_offset(K1),
+add(6, 6, 0),
+label(K1),
+lsl_imm(7, 2, 17),
+asr_imm(7, 7, 17),
+eq_offset(L1),
+add(7, 7, 0),
+label(L1),
+load_word(8, 7, 0),
+lsl_imm(9, 2, 2),
+asr_imm(9, 9, 17),
+eq_offset(M1),
+add(9, 9, 0),
+label(M1),
+lsl_imm(10, 2, 17),
+asr_imm(10, 10, 17),
+eq_offset(N1),
+add(10, 10, 0),
+label(N1),
+sub_imm(0, 0, 4),
+sub_imm(6, 6, 0),
+eq_offset(O1),
+sub(6, 6, 0),
+and_imm(6, 6, 32767),
+label(O1),
+sub_imm(10, 10, 0),
+eq_offset(P1),
+sub(10, 10, 0),
+and_imm(10, 10, 32767),
+label(P1),
+lsl_imm(6, 6, 15),
+ior(6, 6, 10),
+store_word(6, 0, 0),
+mov_imm(6, 4),
+sub_imm(0, 0, 4),
+sub_imm(9, 9, 0),
+eq_offset(Q1),
+sub(9, 9, 0),
+and_imm(9, 9, 32767),
+label(Q1),
+sub_imm(6, 6, 0),
+eq_offset(R1),
+sub(6, 6, 0),
+and_imm(6, 6, 32767),
+label(R1),
+lsl_imm(9, 9, 15),
+ior(9, 9, 6),
+store_word(9, 0, 0),
+do_offset(H),
+label(S1),
 expr_cell(I1, 4),
 expr_cell(R, 4),
+expr_cell(J1, 4),
 expr_cell(J, 4),
 expr_cell(S, 0)].