strip8.bas

这个是专门用在ALtera第二代PLD MAXII上的16位微处理器IP核

DEFLNG A-Z

ON ERROR GOTO FileOpenError

fil = FREEFILE
fil$ = COMMAND$
IF INSTR(fil$, ".") > 0 THEN
    fil$ = LEFT$(fil$, INSTR(fil$, ".") - 1)
END IF
IF INSTR(fil$, "\") > 0 THEN
    fil$ = MID$(fil$, INSTR(fil$, "\") + 1)
END IF
IF fil$ = "" THEN
    PRINT "no file specified."
    END
END IF
OPEN "i", fil, COMMAND$
fil2 = FREEFILE
OPEN "o", fil2, fil$ + ".mif"
x = 0
PRINT #fil2, "WIDTH=16;"
PRINT #fil2, "DEPTH=512;"
PRINT #fil2, "ADDRESS_RADIX=HEX;"
PRINT #fil2, "DATA_RADIX=HEX;"
PRINT #fil2,
PRINT #fil2, "CONTENT BEGIN"
WHILE NOT EOF(fil)
    LINE INPUT #fil, lin$
    lin$ = RIGHT$(lin$, 4)
    PRINT #fil2, HEX$(x); ":"; lin$; ";"
    x = x + 1
WEND
FOR i = x TO 511
    PRINT #fil2, HEX$(i); ": 0000;"
NEXT
PRINT #fil2, "END;"
CLOSE
PRINT fil$ + ".mif created."
END

FileOpenError:

IF ERR = 53 THEN
    PRINT "file not found."
    END
ELSE
    PRINT "an error occurred opening the file"
    END
END IF