DIM dd AS STRING * 1
PRINT " COM2ASM v1.0 By Roy Keene"
FILES "*.com"
INPUT "COM File->", f$
INPUT "ASM File->", of$
OPEN f$ FOR BINARY AS #1
OPEN of$ FOR OUTPUT AS #2
print "Converting to DB's..";
PRINT #2, "Code Segment"
PRINT #2, "     ASSUME CS:Code, DS:Code"
PRINT #2, "     ORG 0100h"
PRINT #2, "MAIN:"
FOR q = 1 TO LOF(1)
GET #1, , dd
IF q = 1 THEN PRINT #2, "DATA00     " + "DB    " + "0" + HEX$(ASC(dd)) + "h" ELSE PRINT #2, "           " + "DB    " + "0" + HEX$(ASC(dd)) + "h"
NEXT q
PRINT #2, "CODE  ENDS "
PRINT #2, "      END MAIN"
PRINT #2, "END"
print ".Done"
CLOSE 1, 2