Deriving a new dialect of Very Tiny Language from VTL-2 6800 version
| Revisión | 3325adf30bf5a1da78532c56ccb268090cf757e6 (tree) |
|---|---|
| Tiempo | 2022-09-25 21:16:24 |
| Autor |  Joel Matthew Rees <joel.rees@gmai...> |
| Commiter | Joel Matthew Rees |
remembering best stack blast version as of 25 sept 2022
VTL_6801_exorsim_stkblast.asm (diff)| @@ -503,7 +503,7 @@ EVAL4 CMPA #'/ ; SEE IF IT'S DIVIDE | ||
| 503 | 503 | EVAL5 SUBA #'= ; SEE IF EQUAL TEST |
| 504 | 504 | BNE EVAL6 |
| 505 | 505 | PULA |
| 506 | - BSR SUBTR | |
| 506 | + SUBD 0,X | |
| 507 | 507 | BNE NOTEQ |
| 508 | 508 | TSTB |
| 509 | 509 | BEQ EQL |
| @@ -514,7 +514,7 @@ EVAL6 DECA ; SEE IF LESS THAN TEST | ||
| 514 | 514 | PULA |
| 515 | 515 | BEQ EVAL7 |
| 516 | 516 | * |
| 517 | -SUB2 BSR SUBTR | |
| 517 | +SUB2 SUBD 0,X | |
| 518 | 518 | ROLB |
| 519 | 519 | COMOUT CLRA |
| 520 | 520 | ANDB #$01 |
| @@ -544,7 +544,7 @@ GOT INC MLDVCT | ||
| 544 | 544 | ROR 1,X |
| 545 | 545 | CLR DIVQUO |
| 546 | 546 | CLR DIVQUO+1 |
| 547 | -DIV2 BSR SUBTR | |
| 547 | +DIV2 SUBD 0,X | |
| 548 | 548 | BCC OK |
| 549 | 549 | ADDD 0,X |
| 550 | 550 | CLC |
Fork