; Make data statements from file (don't use this).

if definite FILE
virtual at 0
        DAT::
        file FILE
        BYTES := $
end virtual

db '; ',FILE,13,10
repeat 1,D:BYTES
        db 'label dat:',`D,13,10
end repeat
db 'db \',13,10
data_dump BYTES,,db

calminstruction hex_nibble digit*, command: display
        compute digit, 0FFh and '0123456789ABCDEF' shr (digit*8)
        arrange command, command digit
        assemble command
end calminstruction

define _db
calminstruction data_dump bytes*, i:0, cmd:display
        local awk, digit
jj:     arrange         awk, =load =_db:1 =from =DAT:i
        assemble        awk
        arrange         awk, cmd '0x'
        assemble        awk
        compute         digit, (_db shr 4) and 0Fh
        call            hex_nibble, digit, cmd
        compute         digit, _db and 0Fh
        call            hex_nibble, digit, cmd
        compute         i, i + 1
        check           i = bytes
        jyes            done
        arrange         awk, cmd ','
        assemble        awk
        check           i and 0Fh
        jyes            jj
        arrange         awk, cmd '\',13,10
        assemble        awk
        jump            jj
done:   arrange         awk, cmd 13,10
        assemble        awk
end calminstruction

else
        display 'usage: fasmg -i "define FILE ''<filename>''" ',__FILE__,' <outfile>'
end if    

                virtual at $ - 512
                        footer VHD.Footer
                end virtual
                load sig:sizeof VHD.Footer.Signature from footer.Signature
                load ver:sizeof VHD.Footer.Version from footer.Version
                load met:sizeof VHD.Footer.NextMeta from footer.NextMeta
                load typ:sizeof VHD.Footer.DiskType from footer.DiskType
                if sig = VHD.Cookie \
                & ver = 0x0000_0100 \
                & met = VHD.FixedMeta \
                & typ = ((VHD.DiskType.Fixed) bswap 4)
                        FILE.BYTES = $ - 512
                else ; assume RAW disk image
                        FILE.BYTES = $
                end if