Permalink
Cannot retrieve contributors at this time
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" |