- let (dict,formatedsrc) = convertDTF src NoState 0x00 0x00 []
- printf "\nlabels:\n"
- sequence_ [printf "%10s @ 0x%08x\n" l a | (l,a) <- (reverse dict)]
- printf "\nparsed asm:\n"
- sequence_ [printf "%s" (show x) | x <- formatedsrc]
+ let (dict,formatedsrc) = convertDTF src NoState 0x00 0x00 [("start_",0x00)]
+ if (not $ null args) && ("-d" `elem` args)
+ then do
+ printf "\nlabels:\n"
+ sequence_ [printf "%20s @ 0x%08x\n" l a | (l,a) <- (reverse dict)]
+ printf "\nparsed asm:\n"
+ sequence_ [printf "%s" (show x) | x <- formatedsrc]
+ printf "\nafter parsing the instructions:\n"
+ else do
+ printf ""
+ let base = if "-b" `elem` args then 2 else 16