- [ 0 0 ] 2dip STRr64-encode >out ;
-
-: ASRi32 ( imm6 Rn Rd -- ) [ 6 ?bits ] 2dip ASRi32-encode >out ;
-: ASRi64 ( imm6 Rn Rd -- ) [ 6 ?bits ] 2dip ASRi64-encode >out ;
-: LSLi32 ( imm6 Rn Rd -- ) [ 6 ?bits ] 2dip LSLi32-encode >out ;
-: LSLi64 ( imm6 Rn Rd -- ) [ 6 ?bits ] 2dip LSLi64-encode >out ;
-: LSRi32 ( imm6 Rn Rd -- ) [ 6 ?bits ] 2dip LSRi32-encode >out ;
-: LSRi64 ( imm6 Rn Rd -- ) [ 6 ?bits ] 2dip LSRi64-encode >out ;
-
-: SVC ( imm16 -- ) 16 ?bits SVC-encode >out ;
-
-: with-new-arm64-offset ( offset quot -- arm64-assembler )
- [ <arm64-assembler> \ arm64-assembler ] dip
- '[ @ \ arm64-assembler get ] with-variable ; inline
-
-: with-new-arm64 ( quot -- arm64-assembler )
- [ 0 <arm64-assembler> \ arm64-assembler ] dip
- '[ @ \ arm64-assembler get ] with-variable ; inline
-
-: assemble-arm ( quot -- bytes )
- call ; inline
-
-: offset-test-arm64 ( offset quot -- instuctions )
- with-new-arm64-offset out>> ; inline
-
-: offset-test-arm64-instruction ( offset quot -- instuction )
- offset-test-arm64 first ; inline