3a_asm: parse a comment \o/

[calu.git] / 3a_asm / DTFormat.hs

diff --git a/3a_asm/DTFormat.hs b/3a_asm/DTFormat.hs
index 819e083afe3a8e6e493c6c2ffdd9c616cc43dd26..aad67e01bab02379c123a573f9451e2942d1ceba 100644 (file)
--- a/3a_asm/DTFormat.hs
+++ b/3a_asm/DTFormat.hs
@@ -15,7 +15,9 @@ data DTF =
        DTF_Instr Address Value Code Label Comment |
        DTF_Comment Comment |
        DTF_Label Label |
-       DTF_ToParse Address ValueToParse Code Label Comment
+       -- types for intern processing
+       DTF_ToParse Address ValueToParse Code Label Comment |
+       DTF_Org Address
 
 instance Show (DTF) where
        showsPrec n = showsDTF