Deriving a new dialect of Very Tiny Language from VTL-2 6800 version
| Revisión | 82c10054b235b4886319db01bb241c0f34f9e1d7 (tree) |
|---|---|
| Tiempo | 2022-09-25 21:18:29 |
| Autor |  Joel Matthew Rees <joel.rees@gmai...> |
| Commiter | Joel Matthew Rees |
this version still had bad random
VTL_6801_exorsim.asm (diff)| @@ -149,7 +149,7 @@ PROBE STAA 0,X | ||
| 149 | 149 | BNE NOTRAM |
| 150 | 150 | INX ; all bits seem to be R/W. |
| 151 | 151 | PROBET CPX #COLD |
| 152 | - BHI PROBE ; CPX on 6801 works right. | |
| 152 | + BLO PROBE ; CPX on 6801 works right. | |
| 153 | 153 | NOTRAM DEX |
| 154 | 154 | STX STAR |
| 155 | 155 | START LDS #STACK ; re-initialize at beginning of each evaluate |
| @@ -267,8 +267,14 @@ AR11 INCB ; MACHINE LANGUAGE? | ||
| 267 | 267 | * |
| 268 | 268 | AR2 STD 0,X ; STORE NEW VALUE |
| 269 | 269 | ADDD QUITE ; RANDOMIZER |
| 270 | + RORA ; Do something more than double, anyway. | |
| 271 | + ROLB | |
| 272 | + ADCA QUITE+1 | |
| 270 | 273 | STD QUITE |
| 271 | - RTS | |
| 274 | + BNE AR2DUN ; don't get stuck on zero | |
| 275 | + INC QUITE | |
| 276 | + DEC QUITE+1 | |
| 277 | +AR2DUN RTS | |
| 272 | 278 | * |
| 273 | 279 | SKP2 BSR FIND ; FIND LINE |
| 274 | 280 | BEQ INSRT ; IF NOT THERE |
Fork