X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=MSP430-FORTH%2FSD_430FR5994%2FTSTWORDS.4TH;fp=MSP430-FORTH%2FSD_430FR5994%2FTSTWORDS.4TH;h=008c969de1fb7153080c97b9a544de6cc0b6a903;hb=7dca57984c551c8c51a22ecaf470cf0065238527;hp=3fe2fefc5a4d9c8a9cde783dc7257c7a503d3140;hpb=a66f5cf4f547d8e0384632b92f652c120f5a70b5;p=fast-forth%2Fmaster.git diff --git a/MSP430-FORTH/SD_430FR5994/TSTWORDS.4TH b/MSP430-FORTH/SD_430FR5994/TSTWORDS.4TH index 3fe2fef..008c969 100644 --- a/MSP430-FORTH/SD_430FR5994/TSTWORDS.4TH +++ b/MSP430-FORTH/SD_430FR5994/TSTWORDS.4TH @@ -17,7 +17,7 @@ MARKER {TSTWORDS} - [UNDEFINED] 0= + [UNDEFINED] 0= [IF] CODE 0= SUB #1,R14 @@ -41,7 +41,7 @@ BW1 SUB #2,R15 ENDCODE [THEN] - [UNDEFINED] IF + [UNDEFINED] IF [IF] CODE IF @@ -53,7 +53,7 @@ BW1 SUB #2,R15 ADD #2,R14 MOV @R13+,R0 ENDCODE IMMEDIATE - + CODE THEN MOV &$1DC8,0(R14) MOV @R15+,R14 @@ -61,7 +61,7 @@ BW1 SUB #2,R15 ENDCODE IMMEDIATE [THEN] - [UNDEFINED] ELSE + [UNDEFINED] ELSE [IF] CODE ELSE ADD #4,&$1DC8 @@ -74,7 +74,7 @@ BW1 SUB #2,R15 ENDCODE IMMEDIATE [THEN] - [UNDEFINED] SWAP + [UNDEFINED] SWAP [IF] CODE SWAP PUSH R14 @@ -84,13 +84,13 @@ BW1 SUB #2,R15 ENDCODE [THEN] - [UNDEFINED] BEGIN + [UNDEFINED] BEGIN [IF] CODE BEGIN MOV #$4032,R0 ENDCODE IMMEDIATE - + CODE UNTIL MOV #$40AC,R9 BW1 ADD #4,&$1DC8 @@ -100,22 +100,22 @@ BW1 ADD #4,&$1DC8 MOV @R15+,R14 MOV @R13+,R0 ENDCODE IMMEDIATE - + CODE AGAIN MOV #$40B2,R9 GOTO BW1 ENDCODE IMMEDIATE - + : WHILE POSTPONE IF SWAP ; IMMEDIATE - + : REPEAT POSTPONE AGAIN POSTPONE THEN ; IMMEDIATE [THEN] - [UNDEFINED] DO + [UNDEFINED] DO [IF] HDNCODE XDO @@ -169,7 +169,7 @@ BW2 ADD #4,&$1DC8 MOV @R15+,R14 MOV @R13+,R0 ENDCODE IMMEDIATE - + HDNCODE XPLOO ADD R14,0(R1) MOV @R15+,R14 @@ -189,7 +189,7 @@ LOAD" \misc\TestASM.4th" ECHO -: LOOP_TEST 8 0 DO I . LOOP +: LOOP_TEST 8 0 DO I . LOOP ; LOOP_TEST @@ -198,18 +198,18 @@ LOOP_TEST : LOOP_TEST1 BEGIN DUP U. 1 - ?DUP - 0= UNTIL + 0= UNTIL ; : FIND_TEST $20 WORD - 50000 0 + 50000 0 DO - DUP + DUP FIND DROP DROP LOOP FIND 0= IF ABORT" <-- not found !" ELSE ABORT" <-- found !" - THEN + THEN ; -\ \ No newline at end of file +\ \ No newline at end of file