1: OPEN "out.asm" FOR OUTPUT AS #1 2: PRINT #1, "CODE SEGMENT" 3: PRINT #1, " ASSUME CS:Code, DS:Code" 4: PRINT #1, " ORG 0100h" 5: PRINT #1, "" 6: PRINT #1, "MAIN: JMP ONEI" 7: FOR q = 1 TO 2139 STEP 31 8: FOR qe = 1 TO 31: mm$ = mm$ + "00,": NEXT qe: mm$ = LEFT$(mm$, LEN(mm$) - 1) 9: PRINT #1, "DATA"; LTRIM$(RTRIM$(STR$(q))); " DB "; mm$ 10: mm$ = "" 11: NEXT q 12: PRINT #1, "ONEI:" 13: PRINT #1, "CODE ENDS" 14: PRINT #1, " END MAIN" 15: PRINT #1, "END" 16: CLOSE 1 17: |