X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Fcpu%2Farm%2Fassembler%2Fassembler-tests.factor;h=796f898bacfb0b6cc3a3b3fb0dd0774852e8b53e;hp=3164fc197ae9fd2623f02c12cdc92c08ca670667;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/extra/cpu/arm/assembler/assembler-tests.factor b/extra/cpu/arm/assembler/assembler-tests.factor index 3164fc197a..796f898bac 100644 --- a/extra/cpu/arm/assembler/assembler-tests.factor +++ b/extra/cpu/arm/assembler/assembler-tests.factor @@ -5,42 +5,42 @@ FROM: cpu.arm.assembler => B ; : test-opcode ( expect quot -- ) [ { } make first ] curry unit-test ; -[ HEX: ea000000 ] [ 0 B ] test-opcode -[ HEX: eb000000 ] [ 0 BL ] test-opcode -! [ HEX: e12fff30 ] [ R0 BLX ] test-opcode - -[ HEX: e24cc004 ] [ IP IP 4 SUB ] test-opcode -[ HEX: e24cb004 ] [ FP IP 4 SUB ] test-opcode -[ HEX: e087e3ac ] [ LR R7 IP 7 ADD ] test-opcode -[ HEX: e08c0109 ] [ R0 IP R9 2 ADD ] test-opcode -[ HEX: 02850004 ] [ R0 R5 4 EQ ADD ] test-opcode -[ HEX: 00000000 ] [ R0 R0 R0 EQ AND ] test-opcode - -[ HEX: e1a0c00c ] [ IP IP MOV ] test-opcode -[ HEX: e1a0c00d ] [ IP SP MOV ] test-opcode -[ HEX: e3a03003 ] [ R3 3 MOV ] test-opcode -[ HEX: e1a00003 ] [ R0 R3 MOV ] test-opcode -[ HEX: e1e01c80 ] [ R1 R0 25 MVN ] test-opcode -[ HEX: e1e00ca1 ] [ R0 R1 25 MVN ] test-opcode -[ HEX: 11a021ac ] [ R2 IP 3 NE MOV ] test-opcode - -[ HEX: e3530007 ] [ R3 7 CMP ] test-opcode - -[ HEX: e008049a ] [ R8 SL R4 MUL ] test-opcode - -[ HEX: e5151004 ] [ R1 R5 4 <-> LDR ] test-opcode -[ HEX: e41c2004 ] [ R2 IP 4 <-!> LDR ] test-opcode -[ HEX: e50e2004 ] [ R2 LR 4 <-> STR ] test-opcode - -[ HEX: e7910002 ] [ R0 R1 R2 <+> LDR ] test-opcode -[ HEX: e7910102 ] [ R0 R1 R2 2 <+> LDR ] test-opcode - -[ HEX: e1d310bc ] [ R1 R3 12 <+> LDRH ] test-opcode -[ HEX: e1d310fc ] [ R1 R3 12 <+> LDRSH ] test-opcode -[ HEX: e1d310dc ] [ R1 R3 12 <+> LDRSB ] test-opcode -[ HEX: e1c310bc ] [ R1 R3 12 <+> STRH ] test-opcode -[ HEX: e19310b4 ] [ R1 R3 R4 <+> LDRH ] test-opcode -[ HEX: e1f310fc ] [ R1 R3 12 LDRSH ] test-opcode -[ HEX: e1b310d4 ] [ R1 R3 R4 LDRSB ] test-opcode -[ HEX: e0c317bb ] [ R1 R3 123 <+!> STRH ] test-opcode -[ HEX: e08310b4 ] [ R1 R3 R4 <+!> STRH ] test-opcode +[ 0xea000000 ] [ 0 B ] test-opcode +[ 0xeb000000 ] [ 0 BL ] test-opcode +! [ 0xe12fff30 ] [ R0 BLX ] test-opcode + +[ 0xe24cc004 ] [ IP IP 4 SUB ] test-opcode +[ 0xe24cb004 ] [ FP IP 4 SUB ] test-opcode +[ 0xe087e3ac ] [ LR R7 IP 7 ADD ] test-opcode +[ 0xe08c0109 ] [ R0 IP R9 2 ADD ] test-opcode +[ 0x02850004 ] [ R0 R5 4 EQ ADD ] test-opcode +[ 0x00000000 ] [ R0 R0 R0 EQ AND ] test-opcode + +[ 0xe1a0c00c ] [ IP IP MOV ] test-opcode +[ 0xe1a0c00d ] [ IP SP MOV ] test-opcode +[ 0xe3a03003 ] [ R3 3 MOV ] test-opcode +[ 0xe1a00003 ] [ R0 R3 MOV ] test-opcode +[ 0xe1e01c80 ] [ R1 R0 25 MVN ] test-opcode +[ 0xe1e00ca1 ] [ R0 R1 25 MVN ] test-opcode +[ 0x11a021ac ] [ R2 IP 3 NE MOV ] test-opcode + +[ 0xe3530007 ] [ R3 7 CMP ] test-opcode + +[ 0xe008049a ] [ R8 SL R4 MUL ] test-opcode + +[ 0xe5151004 ] [ R1 R5 4 <-> LDR ] test-opcode +[ 0xe41c2004 ] [ R2 IP 4 <-!> LDR ] test-opcode +[ 0xe50e2004 ] [ R2 LR 4 <-> STR ] test-opcode + +[ 0xe7910002 ] [ R0 R1 R2 <+> LDR ] test-opcode +[ 0xe7910102 ] [ R0 R1 R2 2 <+> LDR ] test-opcode + +[ 0xe1d310bc ] [ R1 R3 12 <+> LDRH ] test-opcode +[ 0xe1d310fc ] [ R1 R3 12 <+> LDRSH ] test-opcode +[ 0xe1d310dc ] [ R1 R3 12 <+> LDRSB ] test-opcode +[ 0xe1c310bc ] [ R1 R3 12 <+> STRH ] test-opcode +[ 0xe19310b4 ] [ R1 R3 R4 <+> LDRH ] test-opcode +[ 0xe1f310fc ] [ R1 R3 12 LDRSH ] test-opcode +[ 0xe1b310d4 ] [ R1 R3 R4 LDRSB ] test-opcode +[ 0xe0c317bb ] [ R1 R3 123 <+!> STRH ] test-opcode +[ 0xe08310b4 ] [ R1 R3 R4 <+!> STRH ] test-opcode