Deriving a new dialect of Very Tiny Language from VTL-2 6800 version
| Revision | beca7eb329e65e76fcfc9a6f9b16d146179beddf (tree) |
|---|---|
| Time | 2022-09-25 21:33:09 |
| Author |  Joel Matthew Rees <joel.rees@gmai...> |
| Commiter | Joel Matthew Rees |
missed subtraction, random reverted to VTL-2 original
VTL_6801_mc10.asm (diff)| @@ -293,7 +293,11 @@ AR11 INCB ; MACHINE LANGUAGE? | ||
| 293 | 293 | SWI ; THEN INTERUPT |
| 294 | 294 | * |
| 295 | 295 | AR2 STD 0,X ; STORE NEW VALUE |
| 296 | - ADDD QUITE ; RANDOMIZER | |
| 296 | + BNE AR2RND ; Initialize/don't get stuck on zero. | |
| 297 | + INCB ; Keep it known cheap. | |
| 298 | +* ADDD QUITE ; RANDOMIZER ; NO! Don't do this. | |
| 299 | +AR2RND ADDB QUITE ; RANDOMIZER ; Adding the low byte to the high byte | |
| 300 | + ADCA QUITE+1 ; ; is cheap but intentional. | |
| 297 | 301 | STD QUITE |
| 298 | 302 | RTS |
| 299 | 303 | * |
Fork