OSDN Git Service

V 3.2
[fast-forth/master.git] / MSP430-FORTH / MSP_EXP430FR5994 / COMPARE.4TH
1
2 [UNDEFINED] IF [IF]
3 CODE IF
4 SUB #2,R15
5 MOV R14,0(R15)
6 MOV &$1DC6,R14
7 ADD #4,&$1DC6
8 MOV #$404C,0(R14)
9 ADD #2,R14
10 MOV @R13+,R0
11 ENDCODE IMMEDIATE
12 [THEN]
13
14 [UNDEFINED] THEN [IF]
15 CODE THEN
16 MOV &$1DC6,0(R14)
17 MOV @R15+,R14
18 MOV @R13+,R0
19 ENDCODE IMMEDIATE
20 [THEN]
21
22 [UNDEFINED] BEGIN [IF]
23 CODE BEGIN
24 MOV #HERE,R0
25 ENDCODE IMMEDIATE
26 [THEN]
27
28 [UNDEFINED] UNTIL [IF]
29 CODE UNTIL
30     MOV #$404C,R9
31 BW1 ADD #4,&$1DC6
32     MOV &$1DC6,R10
33     MOV R9,-4(R10)
34     MOV R14,-2(R10)
35     MOV @R15+,R14
36     MOV @R13+,R0
37 ENDCODE IMMEDIATE
38 [THEN]
39
40 CODE COMPARE
41         MOV R14,R12
42         MOV @R15+,R8
43         MOV @R15+,R11
44         MOV @R15+,R9
45 BEGIN   MOV R11,R14
46         ADD R12,R14
47         0= ?GOTO FW3
48         SUB #1,R12
49         0< ?GOTO FW2
50         SUB #1,R11
51         0< ?GOTO FW1
52         ADD #1,R9
53         CMP.B @R8+,-1(R9)
54 0<> UNTIL
55     U< IF
56 FW1     MOV #-1,R14
57         MOV @R13+,R0
58     THEN
59 FW2     MOV #1,R14
60 FW3     MOV @R13+,R0
61 ENDCODE
62
63
64