2018-05-25 08:50:04 +00:00
|
|
|
# A 65C02 Assembly DSL for Haskell
|
|
|
|
|
|
|
|
|
|
_... shut up, show me the code!_
|
|
|
|
|
|
|
|
|
|
Here's some example code utilizing all of the features of the DSL:
|
|
|
|
|
|
|
|
|
|
```haskell
|
|
|
|
|
import SixtyFiveOhTwo.Instruction
|
|
|
|
|
|
|
|
|
|
accumulatorLoadNStore :: Instruction
|
|
|
|
|
accumulatorLoadNStore = do
|
|
|
|
|
lda (Immediate 0x10)
|
|
|
|
|
sta (Absolute 0x0200)
|
|
|
|
|
rts (Implied)
|
|
|
|
|
|
|
|
|
|
myProgram :: Instruction
|
|
|
|
|
myProgram = do
|
|
|
|
|
define "accumulatorLoadNStore" accumulatorLoadNStore
|
|
|
|
|
call "accumulatorLoadNStore"
|
|
|
|
|
```
|
|
|
|
|
(taken from main.hs)
|
|
|
|
|
|
|
|
|
|
More documentation coming soon!
|
