1: DIM dd AS STRING * 1 2: PRINT " COM2ASM v1.0 By Roy Keene" 3: FILES "*.com" 4: INPUT "COM File->", f$ 5: INPUT "ASM File->", of$ 6: OPEN f$ FOR BINARY AS #1 7: OPEN of$ FOR OUTPUT AS #2 8: print "Converting to DB's.."; 9: PRINT #2, "Code Segment" 10: PRINT #2, " ASSUME CS:Code, DS:Code" 11: PRINT #2, " ORG 0100h" 12: PRINT #2, "MAIN:" 13: FOR q = 1 TO LOF(1) 14: GET #1, , dd 15: IF q = 1 THEN PRINT #2, "DATA00 " + "DB " + "0" + HEX$(ASC(dd)) + "h" ELSE PRINT #2, " " + "DB " + "0" + HEX$(ASC(dd)) + "h" 16: NEXT q 17: PRINT #2, "CODE ENDS " 18: PRINT #2, " END MAIN" 19: PRINT #2, "END" 20: print ".Done" 21: CLOSE 1, 2 |