ASSEM.BAS

10 WIDTH 40
20 CLS
30 PCLEAR 8:CLEAR 200
40 PRINT"  THE WORLDS FASTEST ASSEMBLER"
50 PRINT"     COPYRIGHT (C) 1989 BY"
60 PRINT"         JEREMY SPILLER"
70 PRINT
80 LOADM"ASSEM
90 LINEINPUT"TEXT FILE NAME? ";A$
100 LINEINPUT"BINARY FILE NAME? ";B$
110 A$=A$+CHR$(0)+B$+CHR$(0)+CHR$(0)+CHR$(0)
120 PRINT
130 K=PEEK(&H9D)*256+PEEK(&H9E)
140 DEF USR0 = K
150 PRINT"ASSEMBLING..."
160 JMS F
170 HSCREEN 2:POKE &HFF9D,&HE0:POKE &HFF9E,0:POKE &HFF99,126
180 A=USR0(VARPTR(A$))
190 PRINT"ASSEMBLY ";
200 IF A=0 THEN PRINT"FINISHED" :ELSE PRINT"ABORTED"