ASSEMBLY.BAS

'HEXADECIMAL CODE*******MNEMONICS*******
DATA 00,00          : ` DW 00
DATA 00,00          : ` DW 00
DATA 00,00          : ` DW 00
DATA 00,00          : ` DW 00
DATA 2E,A1,00,00    : ` CS:MOV AX,[0000]
DATA 2E,8B,1E,02,00 : ` CS:MOV BX,[0002]
DATA 2E,8B,0E,04,00 : ` CS:MOV CX,[0004]
DATA 2E,8B,16,06,00 : ` CS:MOV DX,[0006]
DATA CD,33          : ` INT 33
DATA 2E,A3,00,00    : ` CS:MOV [0000],AX
DATA 2E,89,1E,02,00 : ` CS:MOV [0002],BX
DATA 2E,89,0E,04,00 : ` CS:MOV [0004],CX
DATA 2E,89,16,06,00 : ` CS:MOV [0006],DX
DATA CB,00          : ` RETF plus 1 byte 
DEFINT A-Z: CLS
OPEN "ASSEMBLY.DAT" FOR OUTPUT AS #1
PRINT #1, "DATA ";
FOR i = 1 TO 25: READ a$, b$
  j = VAL("&H" + a$): k = VAL("&H" + b$)
  PRINT #1, CVI(CHR$(j) + CHR$(k));
  IF i < 25 THEN PRINT #1, ",";
NEXT i: PRINT #1, "": CLOSE #1
`      ASSEMBLY.BAS