Deriving a new dialect of Very Tiny Language from VTL-2 6800 version
| Revision | bda5582a3eae4ca926964105ab0a8d367c4dedf5 (tree) |
|---|---|
| Time | 2022-09-25 21:36:06 |
| Author |  Joel Matthew Rees <joel.rees@gmai...> |
| Commiter | Joel Matthew Rees |
optimized subtraction
VTL_6801_mc10.asm (diff)| @@ -569,7 +569,7 @@ EVAL4 CMPA #'/ ; SEE IF IT'S DIVIDE | ||
| 569 | 569 | EVAL5 SUBA #'= ; SEE IF EQUAL TEST |
| 570 | 570 | BNE EVAL6 |
| 571 | 571 | PULA |
| 572 | - BSR SUBTR | |
| 572 | + SUBD 0,X | |
| 573 | 573 | BNE NOTEQ |
| 574 | 574 | TSTB |
| 575 | 575 | BEQ EQL |
| @@ -580,7 +580,7 @@ EVAL6 DECA ; SEE IF LESS THAN TEST | ||
| 580 | 580 | PULA |
| 581 | 581 | BEQ EVAL7 |
| 582 | 582 | * |
| 583 | -SUB2 BSR SUBTR | |
| 583 | +SUB2 SUBD 0,X | |
| 584 | 584 | ROLB |
| 585 | 585 | COMOUT CLRA |
| 586 | 586 | ANDB #$01 |
| @@ -610,7 +610,7 @@ GOT INC MLDVCT | ||
| 610 | 610 | ROR 1,X |
| 611 | 611 | CLR DIVQUO |
| 612 | 612 | CLR DIVQUO+1 |
| 613 | -DIV2 BSR SUBTR | |
| 613 | +DIV2 SUBD 0,X | |
| 614 | 614 | BCC OK |
| 615 | 615 | ADDD 0,X |
| 616 | 616 | CLC |
Fork