MSP430-FORTH/MSP_EXP430FR5994/CORE_ANS.4TH

   1
   2 ; -----------------------------------------------------
   3 ; CORE_ANS.4th for MSP_EXP430FR5994
   4 ; -----------------------------------------------------
   5 ; words complement to pass CORETEST.4TH
   6
   7 PWR_STATE
   8
   9 [DEFINED] {CORE_ANS} [IF]  {CORE_ANS} [THEN]
  10
  11 [UNDEFINED] {CORE_ANS} [IF]
  12
  13 MARKER {CORE_ANS}
  14
  15 [UNDEFINED] + [IF]
  16 CODE +
  17 ADD @R15+,R14
  18 MOV @R13+,R0
  19 ENDCODE
  20 [THEN]
  21
  22 [UNDEFINED] - [IF]
  23 CODE -
  24 SUB @R15+,R14
  25 XOR #-1,R14
  26 ADD #1,R14
  27 MOV @R13+,R0
  28 ENDCODE
  29 [THEN]
  30
  31 [UNDEFINED] @ [IF]
  32 CODE @
  33 MOV @R14,R14
  34 MOV @R13+,R0
  35 ENDCODE
  36 [THEN]
  37
  38 [UNDEFINED] ! [IF]
  39 CODE !
  40 MOV @R15+,0(R14)
  41 MOV @R15+,R14
  42 MOV @R13+,R0
  43 ENDCODE
  44 [THEN]
  45
  46 [UNDEFINED] DUP [IF]
  47 CODE DUP
  48 BW1 SUB #2,R15
  49     MOV R14,0(R15)
  50     MOV @R13+,R0
  51 ENDCODE
  52
  53 CODE ?DUP
  54 CMP #0,R14
  55 0<> ?GOTO BW1
  56 MOV @R13+,R0
  57 ENDCODE
  58 [THEN]
  59
  60 [UNDEFINED] EXIT [IF]
  61 CODE EXIT
  62 MOV @R1+,R13
  63 MOV @R13+,R0
  64
  65 ENDCODE
  66 [THEN]
  67
  68 [UNDEFINED] DEPTH [IF]
  69 CODE DEPTH
  70 MOV R14,-2(R15)
  71 MOV #$1C80,R14
  72 SUB R15,R14
  73 RRA R14
  74 SUB #2,R15
  75 MOV @R13+,R0
  76 ENDCODE
  77 [THEN]
  78
  79 [UNDEFINED] SWAP [IF]
  80 CODE SWAP
  81 MOV @R15,R10
  82 MOV R14,0(R15)
  83 MOV R10,R14
  84 MOV @R13+,R0
  85 ENDCODE
  86 [THEN]
  87
  88 [UNDEFINED] DROP [IF]
  89 CODE DROP
  90 MOV @R15+,R14
  91 MOV @R13+,R0
  92 ENDCODE
  93 [THEN]
  94
  95 [UNDEFINED] NIP [IF]
  96 CODE NIP
  97 ADD #2,R15
  98 MOV @R13+,R0
  99 ENDCODE
 100 [THEN]
 101
 102 [UNDEFINED] >R [IF]
 103 CODE >R
 104 PUSH R14
 105 MOV @R15+,R14
 106 MOV @R13+,R0
 107 ENDCODE
 108 [THEN]
 109
 110 [UNDEFINED] R> [IF]
 111 CODE R>
 112 SUB #2,R15
 113 MOV R14,0(R15)
 114 MOV @R1+,R14
 115 MOV @R13+,R0
 116 ENDCODE
 117 [THEN]
 118
 119 [UNDEFINED] @ [IF]
 120 CODE @
 121 MOV @R14,R14
 122 MOV @R13+,R0
 123 ENDCODE
 124 [THEN]
 125
 126 [UNDEFINED] ! [IF]
 127 CODE !
 128 MOV @R15+,0(R14)
 129 MOV @R15+,R14
 130 MOV @R13+,R0
 131 ENDCODE
 132 [THEN]
 133
 134 [UNDEFINED] C@ [IF]
 135 CODE C@
 136 MOV.B @R14,R14
 137 MOV @R13+,R0
 138 ENDCODE
 139 [THEN]
 140
 141 [UNDEFINED] C! [IF]
 142 CODE C!
 143 MOV.B @R15+,0(R14)
 144 ADD #1,R15
 145 MOV @R15+,R14
 146 MOV @R13+,R0
 147 ENDCODE
 148 [THEN]
 149
 150 [UNDEFINED] C, [IF]
 151 CODE C,
 152 MOV &$1DC6,R10
 153 MOV.B R14,0(R10)
 154 ADD #1,&$1DC6
 155 MOV @R15+,R14
 156 MOV @R13+,R0
 157 ENDCODE
 158 [THEN]
 159
 160 [UNDEFINED] 0= [IF]
 161 CODE 0=
 162 SUB #1,R14
 163 SUBC R14,R14
 164 MOV @R13+,R0
 165 ENDCODE
 166 [THEN]
 167
 168 [UNDEFINED] 0< [IF]
 169 CODE 0<
 170 ADD R14,R14
 171 SUBC R14,R14
 172 XOR #-1,R14
 173 MOV @R13+,R0
 174 ENDCODE
 175 [THEN]
 176
 177 [UNDEFINED] = [IF]
 178 CODE =
 179 SUB @R15+,R14
 180 0<> IF
 181     AND #0,R14
 182     MOV @R13+,R0
 183 THEN
 184 XOR #-1,R14
 185 MOV @R13+,R0
 186 ENDCODE
 187 [THEN]
 188
 189 [UNDEFINED] U< [IF]
 190 CODE U<
 191 SUB @R15+,R14
 192 0<> IF
 193     MOV #-1,R14
 194     U< IF
 195         AND #0,R14
 196     THEN
 197 THEN
 198 MOV @R13+,R0
 199 ENDCODE
 200 [THEN]
 201
 202 [UNDEFINED] < [IF]
 203 CODE <
 204         SUB @R15+,R14
 205         S< ?GOTO FW1
 206         0<> IF
 207 BW1         MOV #-1,R14
 208         THEN
 209         MOV @R13+,R0
 210 ENDCODE
 211
 212 CODE >
 213         SUB @R15+,R14
 214         S< ?GOTO BW1
 215 FW1     AND #0,R14
 216         MOV @R13+,R0
 217 ENDCODE
 218 [THEN]
 219
 220 [UNDEFINED] IF [IF]
 221 CODE IF
 222 SUB #2,R15
 223 MOV R14,0(R15)
 224 MOV &$1DC6,R14
 225 ADD #4,&$1DC6
 226 MOV #$4042,0(R14)
 227 ADD #2,R14
 228 MOV @R13+,R0
 229 ENDCODE IMMEDIATE
 230
 231 CODE THEN
 232 MOV &$1DC6,0(R14)
 233 MOV @R15+,R14
 234 MOV @R13+,R0
 235 ENDCODE IMMEDIATE
 236 [THEN]
 237
 238 [UNDEFINED] ELSE [IF]
 239 CODE ELSE
 240 ADD #4,&$1DC6
 241 MOV &$1DC6,R10
 242 MOV #$403E,-4(R10)
 243 MOV R10,0(R14)
 244 SUB #2,R10
 245 MOV R10,R14
 246 MOV @R13+,R0
 247 ENDCODE IMMEDIATE
 248 [THEN]
 249
 250 [UNDEFINED] BEGIN [IF]
 251 CODE BEGIN
 252     MOV #$402C,R0
 253 ENDCODE IMMEDIATE
 254
 255 CODE UNTIL
 256     MOV #$4042,R9
 257 BW1 ADD #4,&$1DC6
 258     MOV &$1DC6,R10
 259     MOV R9,-4(R10)
 260     MOV R14,-2(R10)
 261     MOV @R15+,R14
 262     MOV @R13+,R0
 263 ENDCODE IMMEDIATE
 264
 265 CODE AGAIN
 266 MOV #$403E,R9
 267 GOTO BW1
 268 ENDCODE IMMEDIATE
 269
 270 : WHILE
 271 POSTPONE IF SWAP
 272 ; IMMEDIATE
 273
 274 : REPEAT
 275 POSTPONE AGAIN POSTPONE THEN
 276 ; IMMEDIATE
 277 [THEN]
 278
 279 [UNDEFINED] DO [IF]
 280 CODE DO
 281 SUB #2,R15
 282 MOV R14,0(R15)
 283 ADD #2,&$1DC6
 284 MOV &$1DC6,R14
 285 MOV #$404C,-2(R14)
 286 ADD #2,&$1C00
 287 MOV &$1C00,R10
 288 MOV #0,0(R10)
 289 MOV @R13+,R0
 290 ENDCODE IMMEDIATE
 291
 292 CODE LOOP
 293     MOV #$406E,R9
 294 BW1 ADD #4,&$1DC6
 295     MOV &$1DC6,R10
 296     MOV R9,-4(R10)
 297     MOV R14,-2(R10)
 298 BEGIN
 299     MOV &$1C00,R14
 300     SUB #2,&$1C00
 301     MOV @R14,R14
 302     CMP #0,R14
 303 0<> WHILE
 304     MOV R10,0(R14)
 305 REPEAT
 306     MOV @R15+,R14
 307     MOV @R13+,R0
 308 ENDCODE IMMEDIATE
 309
 310 CODE +LOOP
 311 MOV #$405C,R9
 312 GOTO BW1
 313 ENDCODE IMMEDIATE
 314 [THEN]
 315
 316 [UNDEFINED] I [IF]
 317 CODE I
 318 SUB #2,R15
 319 MOV R14,0(R15)
 320 MOV @R1,R14
 321 SUB 2(R1),R14
 322 MOV @R13+,R0
 323 ENDCODE
 324 [THEN]
 325
 326 [UNDEFINED] J [IF]
 327 CODE J
 328 SUB #2,R15
 329 MOV R14,0(R15)
 330 MOV 4(R1),R14
 331 SUB 6(R1),R14
 332 MOV @R13+,R0
 333 ENDCODE
 334 [THEN]
 335
 336 [UNDEFINED] UNLOOP [IF]
 337 CODE UNLOOP
 338 ADD #4,R1
 339 MOV @R13+,R0
 340 ENDCODE
 341 [THEN]
 342
 343 [UNDEFINED] LEAVE [IF]
 344 CODE LEAVE
 345 MOV &$1DC6,R10
 346 MOV #UNLOOP,0(R10)
 347 MOV #$403E,2(R10)
 348 ADD #6,&$1DC6
 349 ADD #2,&$1C00
 350 ADD #4,R10
 351 MOV &$1C00,R9
 352 MOV R10,0(R9)
 353 MOV @R13+,R0
 354 ENDCODE IMMEDIATE
 355 [THEN]
 356
 357 [UNDEFINED] AND [IF]
 358 CODE AND
 359 AND @R15+,R14
 360 MOV @R13+,R0
 361 ENDCODE
 362 [THEN]
 363
 364 [UNDEFINED] OR [IF]
 365 CODE OR
 366 BIS @R15+,R14
 367 MOV @R13+,R0
 368 ENDCODE
 369 [THEN]
 370
 371 [UNDEFINED] XOR [IF]
 372 CODE XOR
 373 XOR @R15+,R14
 374 MOV @R13+,R0
 375 ENDCODE
 376 [THEN]
 377
 378 [UNDEFINED] S>D [IF]
 379 : S>D
 380     DUP 0<
 381 ;
 382 [THEN]
 383
 384 [UNDEFINED] + [IF]
 385 CODE +
 386 ADD @R15+,R14
 387 MOV @R13+,R0
 388 ENDCODE
 389 [THEN]
 390
 391 [UNDEFINED] - [IF]
 392 CODE -
 393 SUB @R15+,R14
 394 XOR #-1,R14
 395 ADD #1,R14
 396 MOV @R13+,R0
 397 ENDCODE
 398 [THEN]
 399
 400 [UNDEFINED] 1+ [IF]
 401 CODE 1+
 402 ADD #1,R14
 403 MOV @R13+,R0
 404 ENDCODE
 405 [THEN]
 406
 407 [UNDEFINED] 1- [IF]
 408 CODE 1-
 409 SUB #1,R14
 410 MOV @R13+,R0
 411 ENDCODE
 412 [THEN]
 413
 414 [UNDEFINED] INVERT [IF]
 415 CODE INVERT
 416 XOR #-1,R14
 417 MOV @R13+,R0
 418 ENDCODE
 419 [THEN]
 420
 421 [UNDEFINED] LSHIFT [IF]
 422 CODE LSHIFT
 423             MOV @R15+,R10
 424             AND #$1F,R14
 425 0<> IF
 426     BEGIN   ADD R10,R10
 427             SUB #1,R14
 428     0= UNTIL
 429 THEN        MOV R10,R14
 430             MOV @R13+,R0
 431 ENDCODE
 432 [THEN]
 433
 434 [UNDEFINED] RSHIFT [IF]
 435 CODE RSHIFT
 436             MOV @R15+,R10
 437             AND #$1F,R14
 438 0<> IF
 439     BEGIN   BIC #1,R2
 440             RRC R10
 441             SUB #1,R14
 442     0= UNTIL
 443 THEN        MOV R10,R14
 444             MOV @R13+,R0
 445 ENDCODE
 446 [THEN]
 447
 448 [UNDEFINED] MAX [IF]
 449 CODE MAX
 450     CMP @R15,R14
 451     S<  ?GOTO FW1
 452 BW1 ADD #2,R15
 453     MOV @R13+,R0
 454 ENDCODE
 455
 456 CODE MIN
 457     CMP @R15,R14
 458     S< ?GOTO BW1
 459 FW1 MOV @R15+,R14
 460     MOV @R13+,R0
 461 ENDCODE
 462 [THEN]
 463
 464 [THEN]
 465
 466 [UNDEFINED] 2* [IF]
 467 CODE 2*
 468 ADD R14,R14
 469 MOV @R13+,R0
 470 ENDCODE
 471 [THEN]
 472
 473 [UNDEFINED] 2/ [IF]
 474 CODE 2/
 475 RRA R14
 476 MOV @R13+,R0
 477 ENDCODE
 478 [THEN]
 479
 480 [UNDEFINED] M* [IF]
 481
 482 $1A00 4 + @ $81F3 U<
 483 $81EF $1A00 4 + @ U<
 484 = [IF]   ; MSP430FR2xxx|MSP430FR4xxx subfamilies without hardware_MPY
 485
 486 CODE M*
 487 MOV @R15,R12
 488 CMP #0,R12
 489 S< IF
 490     XOR #-1,0(R15)
 491     ADD #1,0(R15)
 492 THEN
 493 XOR R14,R12
 494 CMP #0,R14
 495 S< IF
 496     XOR #-1,R14
 497     ADD #1,R14
 498 THEN
 499 PUSHM #2,R13
 500 LO2HI
 501 UM*
 502 HI2LO
 503 POPM #2,R13
 504 CMP #0,R12
 505 S< IF
 506     XOR #-1,0(R15)
 507     XOR #-1,R14
 508     ADD #1,0(R15)
 509     ADDC #0,R14
 510 THEN
 511 MOV @R13+,R0
 512 ENDCODE
 513
 514 [ELSE]  ; MSP430FRxxxx with hardware_MPY
 515
 516 CODE UM*
 517     MOV @R15,&$4C0
 518 BW1 MOV R14,&$4C8
 519     MOV &$4E4,0(R15)
 520     MOV &$4E6,R14
 521     MOV @R13+,R0
 522 ENDCODE
 523
 524 CODE M*
 525     MOV @R15,&$4C2
 526     GOTO BW1
 527 ENDCODE
 528
 529 [THEN]
 530
 531 [THEN]
 532
 533 [UNDEFINED] UM/MOD [IF]
 534 CODE UM/MOD
 535     PUSH #DROP
 536     MOV #$4074,R0
 537 ENDCODE
 538 [THEN]
 539
 540 [UNDEFINED] SM/REM [IF]
 541 CODE SM/REM
 542 MOV R14,R12
 543 MOV @R15,R11
 544 CMP #0,R14
 545 S< IF
 546     XOR #-1,R14
 547     ADD #1,R14
 548 THEN
 549 CMP #0,0(R15)
 550 S< IF
 551     XOR #-1,2(R15)
 552     XOR #-1,0(R15)
 553     ADD #1,2(R15)
 554     ADDC #0,0(R15)
 555 THEN
 556 PUSHM #3,R13
 557 LO2HI
 558     UM/MOD
 559 HI2LO
 560 POPM #3,R13
 561 CMP #0,R11
 562 S< IF
 563     XOR #-1,0(R15)
 564     ADD #1,0(R15)
 565 THEN
 566 XOR R12,R11
 567 CMP #0,R11
 568 S< IF
 569     XOR #-1,R14
 570     ADD #1,R14
 571 THEN
 572 MOV @R13+,R0
 573 ENDCODE
 574 [THEN]
 575
 576 [UNDEFINED] NEGATE [IF]
 577 CODE NEGATE
 578 XOR #-1,R14
 579 ADD #1,R14
 580 MOV @R13+,R0
 581 ENDCODE
 582 [THEN]
 583
 584 [UNDEFINED] ABS [IF]
 585 CODE ABS
 586 CMP #0,R14
 587 0>= IF
 588     MOV @R13+,R0
 589 THEN
 590 MOV #NEGATE,R0
 591 ENDCODE
 592 [THEN]
 593
 594 [UNDEFINED] FM/MOD [IF]
 595 : FM/MOD
 596 SM/REM
 597 HI2LO
 598 CMP #0,0(R15)
 599 0<> IF
 600     CMP #1,R14
 601     S< IF
 602       ADD R12,0(R15)
 603       SUB #1,R14
 604     THEN
 605 THEN
 606 MOV @R1+,R13
 607 MOV @R13+,R0
 608 ENDCODE
 609 [THEN]
 610
 611 [UNDEFINED] * [IF]
 612 : *
 613 M* DROP
 614 ;
 615 [THEN]
 616
 617 [UNDEFINED] /MOD [IF]
 618 : /MOD
 619 >R DUP 0< R> FM/MOD
 620 ;
 621 [THEN]
 622
 623 [UNDEFINED] / [IF]
 624 : /
 625 >R DUP 0< R> FM/MOD NIP
 626 ;
 627 [THEN]
 628
 629 [UNDEFINED] MOD [IF]
 630 : MOD
 631 >R DUP 0< R> FM/MOD DROP
 632 ;
 633 [THEN]
 634
 635 [UNDEFINED] */MOD [IF]
 636 : */MOD
 637 >R M* R> FM/MOD
 638 ;
 639 [THEN]
 640
 641 [UNDEFINED] */ [IF]
 642 : */
 643 >R M* R> FM/MOD NIP
 644 ;
 645 [THEN]
 646
 647 [UNDEFINED] OVER [IF]
 648 CODE OVER
 649 MOV R14,-2(R15)
 650 MOV @R15,R14
 651 SUB #2,R15
 652 MOV @R13+,R0
 653 ENDCODE
 654 [THEN]
 655
 656 [UNDEFINED] ROT [IF]
 657 CODE ROT
 658 MOV @R15,R10
 659 MOV R14,0(R15)
 660 MOV 2(R15),R14
 661 MOV R10,2(R15)
 662 MOV @R13+,R0
 663 ENDCODE
 664 [THEN]
 665
 666 [UNDEFINED] R@ [IF]
 667 CODE R@
 668 SUB #2,R15
 669 MOV R14,0(R15)
 670 MOV @R1,R14
 671 MOV @R13+,R0
 672 ENDCODE
 673 [THEN]
 674
 675 [UNDEFINED] 2@ [IF]
 676 CODE 2@
 677 BW1 SUB #2,R15
 678     MOV 2(R14),0(R15)
 679     MOV @R14,R14
 680     MOV @R13+,R0
 681 ENDCODE
 682 [THEN]
 683
 684 [UNDEFINED] 2! [IF]
 685 CODE 2!
 686 BW2 MOV @R15+,0(R14)
 687     MOV @R15+,2(R14)
 688     MOV @R15+,R14
 689     MOV @R13+,R0
 690 ENDCODE
 691 [THEN]
 692
 693 [UNDEFINED] 2DUP [IF]
 694 CODE 2DUP
 695 MOV R14,-2(R15)
 696 MOV @R15,-4(R15)
 697 SUB #4,R15
 698 MOV @R13+,R0
 699 ENDCODE
 700 [THEN]
 701
 702 [UNDEFINED] 2DROP [IF]
 703 CODE 2DROP
 704 ADD #2,R15
 705 MOV @R15+,R14
 706 MOV @R13+,R0
 707 ENDCODE
 708 [THEN]
 709
 710 [UNDEFINED] 2SWAP [IF]
 711 CODE 2SWAP
 712 MOV @R15,R10
 713 MOV 4(R15),0(R15)
 714 MOV R10,4(R15)
 715 MOV R14,R10
 716 MOV 2(R15),R14
 717 MOV R10,2(R15)
 718 MOV @R13+,R0
 719 ENDCODE
 720 [THEN]
 721
 722 [UNDEFINED] 2OVER [IF]
 723 CODE 2OVER
 724 SUB #4,R15
 725 MOV R14,2(R15)
 726 MOV 8(R15),0(R15)
 727 MOV 6(R15),R14
 728 MOV @R13+,R0
 729 ENDCODE
 730 [THEN]
 731
 732
 733 [UNDEFINED] ALIGNED [IF]
 734 CODE ALIGNED
 735 BIT #1,R14
 736 ADDC #0,R14
 737 MOV @R13+,R0
 738 ENDCODE
 739 [THEN]
 740
 741 [UNDEFINED] ALIGN [IF]
 742 CODE ALIGN
 743 BIT #1,&$1DC6
 744 ADDC #0,&$1DC6
 745 MOV @R13+,R0
 746 ENDCODE
 747 [THEN]
 748
 749
 750 [UNDEFINED] CHARS [IF]
 751 CODE CHARS
 752 MOV @R13+,R0
 753 ENDCODE
 754 [THEN]
 755
 756 [UNDEFINED] CHAR+ [IF]
 757 CODE CHAR+
 758 ADD #1,R14
 759 MOV @R13+,R0
 760 ENDCODE
 761 [THEN]
 762
 763 [UNDEFINED] CELLS [IF]
 764 CODE CELLS
 765 ADD R14,R14
 766 MOV @R13+,R0
 767 ENDCODE
 768 [THEN]
 769
 770 [UNDEFINED] CELL+ [IF]
 771 CODE CELL+
 772 ADD #2,R14
 773 MOV @R13+,R0
 774 ENDCODE
 775 [THEN]
 776
 777
 778 [UNDEFINED] CHAR [IF]
 779 : CHAR
 780     $20 WORD 1+ C@
 781 ;
 782 [THEN]
 783
 784 [UNDEFINED] [CHAR] [IF]
 785 : [CHAR]
 786     CHAR POSTPONE LITERAL
 787 ; IMMEDIATE
 788 [THEN]
 789
 790 [UNDEFINED] +! [IF]
 791 CODE +!
 792 ADD @R15+,0(R14)
 793 MOV @R15+,R14
 794 MOV @R13+,R0
 795 ENDCODE
 796 [THEN]
 797
 798 [UNDEFINED] MOVE [IF]
 799 CODE MOVE
 800 MOV R14,R10
 801 MOV @R15+,R8
 802 MOV @R15+,R9
 803 MOV @R15+,R14
 804 CMP #0,R10
 805 0<> IF
 806     CMP R9,R8
 807     0<> IF
 808         U< IF
 809             BEGIN
 810                 MOV.B @R9+,0(R8)
 811                 ADD #1,R8
 812                 SUB #1,R10
 813             0= UNTIL
 814             MOV @R13+,R0
 815         THEN
 816         ADD R10,R8
 817         ADD R10,R9
 818         BEGIN
 819             SUB #1,R9
 820             SUB #1,R8
 821             MOV.B @R9,0(R8)
 822             SUB #1,R10
 823         0= UNTIL
 824     THEN
 825 THEN
 826 MOV @R13+,R0
 827 ENDCODE
 828 [THEN]
 829
 830
 831 [UNDEFINED] FILL [IF]
 832 CODE FILL
 833 MOV @R15+,R9
 834 MOV @R15+,R10
 835 CMP #0,R9
 836 0<> IF
 837     BEGIN
 838         MOV.B R14,0(R10)
 839         ADD #1,R10
 840         SUB #1,R9
 841     0= UNTIL
 842 THEN
 843 MOV @R15+,R14
 844 MOV @R13+,R0
 845 ENDCODE
 846 [THEN]
 847
 848 [UNDEFINED] HERE [IF]
 849 CODE HERE
 850 MOV #$402C,R0
 851 ENDCODE
 852 [THEN]
 853
 854 [UNDEFINED] ALLOT [IF]
 855 CODE ALLOT
 856 ADD R14,&$1DC6
 857 MOV @R15+,R14
 858 MOV @R13+,R0
 859 ENDCODE
 860 [THEN]
 861
 862
 863 [UNDEFINED] HEX [IF]
 864 CODE HEX
 865 MOV #$10,&$1DDC
 866 MOV @R13+,R0
 867 ENDCODE
 868 [THEN]
 869
 870 [UNDEFINED] DECIMAL [IF]
 871 CODE DECIMAL
 872 MOV #$0A,&$1DDC
 873 MOV @R13+,R0
 874 ENDCODE
 875 [THEN]
 876
 877 [UNDEFINED] ( [IF]
 878 : (
 879 $29 WORD DROP
 880 ; IMMEDIATE
 881 [THEN]
 882
 883 [UNDEFINED] .( [IF]
 884 CODE .(
 885 MOV #0,&$1DB4
 886 COLON
 887 $29 WORD
 888 COUNT TYPE
 889 $20 $1DB4 !
 890 ; IMMEDIATE
 891 [THEN]
 892
 893 [UNDEFINED] >BODY [IF]
 894 CODE >BODY
 895 ADD #4,R14
 896 MOV @R13+,R0
 897 ENDCODE
 898 [THEN]
 899
 900 [UNDEFINED] EXECUTE [IF]
 901 CODE EXECUTE
 902 PUSH R14
 903 MOV @R15+,R14
 904 MOV @R1+,R0
 905 ENDCODE
 906 [THEN]
 907
 908 [UNDEFINED] EVALUATE [IF]
 909 CODE EVALUATE
 910 MOV #$1DC0,R9
 911 MOV @R9+,R12
 912 MOV @R9+,R11
 913 MOV @R9+,R10
 914 PUSHM #4,R13
 915 LO2HI
 916 TREAT
 917 HI2LO
 918 MOV @R1+,&$1DC4
 919 MOV @R1+,&$1DC2
 920 MOV @R1+,&$1DC0
 921 MOV @R1+,R13
 922 MOV @R13+,R0
 923 ENDCODE
 924 [THEN]
 925
 926 [UNDEFINED] RECURSE [IF]
 927 CODE RECURSE
 928 MOV &$1DC6,R9
 929 MOV &$1DBA,0(R9)
 930 ADD #2,&$1DC6
 931 MOV @R13+,R0
 932 ENDCODE IMMEDIATE
 933 [THEN]
 934
 935 [UNDEFINED] SOURCE [IF]
 936 CODE SOURCE
 937 SUB #4,R15
 938 MOV R14,2(R15)
 939 MOV &$1DC0,R14
 940 MOV &$1DC2,0(R15)
 941 MOV @R13+,R0
 942 ENDCODE
 943 [THEN]
 944
 945 [UNDEFINED] DOES> [IF]
 946 CODE DOES>
 947 MOV &$1DBA,R10
 948 MOV #$1285,0(R10)
 949 MOV R13,2(R10)
 950 MOV @R1+,R13
 951 MOV @R13+,R0
 952 ENDCODE
 953 [THEN]
 954
 955 [UNDEFINED] VARIABLE [IF]
 956 : VARIABLE
 957 CREATE
 958 HI2LO
 959 MOV #$1287,-4(R10)
 960 MOV @R1+,R13
 961 MOV @R13+,R0
 962 ENDCODE
 963 [THEN]
 964
 965 [UNDEFINED] CONSTANT [IF]
 966 : CONSTANT
 967 CREATE
 968 HI2LO
 969 MOV R14,-2(R10)
 970 MOV @R15+,R14
 971 MOV @R1+,R13
 972 MOV @R13+,R0
 973 ENDCODE
 974 [THEN]
 975
 976 [UNDEFINED] STATE [IF]
 977 $1DBE CONSTANT STATE
 978 [THEN]
 979
 980 [UNDEFINED] BASE [IF]
 981 $1DDC CONSTANT BASE
 982 [THEN]
 983
 984 [UNDEFINED] >IN [IF]
 985 $1DC4 CONSTANT >IN
 986 [THEN]
 987
 988 [UNDEFINED] PAD [IF]
 989 $1CE4 CONSTANT PAD
 990 [THEN]
 991
 992 [UNDEFINED] BL [IF]
 993 $20 CONSTANT BL
 994 [THEN]
 995
 996 [UNDEFINED] SPACE [IF]
 997 : SPACE
 998 $20 EMIT ;
 999 [THEN]
1000
1001 [UNDEFINED] SPACES [IF]
1002 CODE SPACES
1003 CMP #0,R14
1004 0<> IF
1005     PUSH R13
1006     BEGIN
1007         LO2HI
1008         $20 EMIT
1009         HI2LO
1010         SUB #2,R13
1011         SUB #1,R14
1012     0= UNTIL
1013     MOV @R1+,R13
1014 THEN
1015 MOV @R15+,R14
1016 MOV @R13+,R0
1017 ENDCODE
1018 [THEN]
1019
1020 [UNDEFINED] TO [IF]
1021 CODE TO
1022 BIS #$200,R2
1023 MOV @R13+,R0
1024 ENDCODE
1025 [THEN]
1026
1027 [UNDEFINED] VALUE [IF]
1028 : VALUE
1029 CREATE ,
1030 DOES>
1031 HI2LO
1032 MOV @R1+,R13
1033 BIT #$200,R2
1034 0= IF
1035     MOV @R14,R14
1036     MOV @R13+,R0
1037 THEN
1038 BIC #$200,R2
1039 MOV @R15+,0(R14)
1040 MOV @R15+,R14
1041 MOV @R13+,R0
1042 ENDCODE
1043 [THEN]
1044
1045 RST_HERE
1046
1047 [THEN]
1048
1049 ECHO
1050 ; CORE_ANS.4th for MSP_EXP430FR5994 loaded