I hereby claim:
- I am lashtear on github.
- I am lashtear (https://keybase.io/lashtear) on keybase.
- I have a public key ASAHm-qxXzsv2V4wCTdeog92pMn_M3VDDvGNfpOrXW1eoQo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
| ;; constants in the rom | |
| romcout:equ 087fdh ; draw-character routine | |
| romfont:equ 08561h ; built-in compressed 8x10 font | |
| ;; bootloader always jumps to loadaddr+10 | |
| bsent: equ 0c00ah | |
| org 0c000h ; start at 0c000h | |
| db 0c0h ; tell bootloader to load at 0c000h | |
| ds bsent-$ ; skip to the 0c00ah entry point |
| module BWT where | |
| import Data.List (sort) | |
| ibwt :: String -> String | |
| ibwt s = | |
| let len = length s | |
| cs = cycle s in | |
| head $ | |
| head $ |
| \ Adapted from http://forum.6502.org/viewtopic.php?f=2&t=2263 | |
| \ also cf. http://forum.6502.org/viewtopic.php?f=2&t=5931 | |
| include 816w2.fs | |
| hex flush | |
| : output-filename s" detect-sim.bin" ; | |
| #-514 constant no-such-file | |
| 0fff5 constant SIM_CIN |