OSDN Git Service
(root)
/
fast-forth
/
master.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
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