22 lines
379 B
Forth
22 lines
379 B
Forth
module LDText
|
|
|
|
module Ast =
|
|
type Rung =
|
|
| Rung of Step list
|
|
|
|
and Instr = { Op: string; Args: Operand list }
|
|
|
|
and BranchArm =
|
|
| BranchArm of Step list
|
|
|
|
and Branch =
|
|
| Branch of BranchArm list
|
|
|
|
and Step =
|
|
| StepInstr of Instr
|
|
| StepBranch of Branch
|
|
|
|
and Operand =
|
|
| OperandHole
|
|
| OperandTag of string
|