dos33fsprogs/asoft_basic-utils/asoft_detoken.c

85 lines
2.4 KiB
C
Raw Normal View History

2003-05-01 20:53:00 +00:00
#include <stdio.h>
#include <string.h> /* strlen() */
#include "version.h"
2003-05-01 20:53:00 +00:00
/* Starting at 0x80 */
char applesoft_tokens[][8]={
/* 80 */ "END","FOR","NEXT","DATA","INPUT","DEL","DIM","READ",
/* 88 */ "GR","TEXT","PR #","IN #","CALL","PLOT","HLIN","VLIN",
/* 90 */ "HGR2","HGR","HCOLOR=","HPLOT","DRAW","XDRAW","HTAB","HOME",
/* 98 */ "ROT=","SCALE=","SHLOAD","TRACE","NOTRACE","NORMAL","INVERSE","FLASH",
/* A0 */ "COLOR=","POP","VTAB ","HIMEM:","LOMEM:","ONERR","RESUME","RECALL",
/* A8 */ "STORE","SPEED=","LET","GOTO","RUN","IF","RESTORE","&",
/* B0 */ "GOSUB","RETURN","REM","STOP","ON","WAIT","LOAD","SAVE",
/* B8 */ "DEF FN","POKE","PRINT","CONT","LIST","CLEAR","GET","NEW",
/* C0 */ "TAB","TO","FN","SPC(","THEN","AT","NOT","STEP",
/* C8 */ "+","-","*","/","^","AND","OR",">",
/* D0 */ "=","<","SGN","INT","ABS","USR","FRE","SCRN (",
/* D8 */ "PDL","POS","SQR","RND","LOG","EXP","COS","SIN",
/* E0 */ "TAN","ATN","PEEK","LEN","STR$","VAL","ASC","CHR$",
/* E8 */ "LEFT$","RIGHT$","MID$","","","","","",
/* F0 */ "","","","","","","","",
/* F8 */ "","","","","","(","(","("
};
int main(int argc, char **argv) {
int ch1,i;
int size1,size2;
int line1,line2;
int link1,link2,link;
int debug=0;
2012-05-18 21:22:02 +00:00
int offset=0x801;
2003-05-01 20:53:00 +00:00
/* read size, first two bytes */
size1=fgetc(stdin);
size2=fgetc(stdin);
if (debug) fprintf(stderr,"File size: %x %x\n",size1,size2);
2003-05-01 20:53:00 +00:00
while(!feof(stdin)) {
/* link points to the next line */
/* assumes asoft program starts at address $801 */
link1=fgetc(stdin);
link2=fgetc(stdin);
2012-05-18 21:22:02 +00:00
link=(link2<<8)|link1;
offset+=2;
/* link==0 indicates EOF */
if (link==0) goto the_end;
2003-05-01 20:53:00 +00:00
/* line number is little endian 16-bit value */
2003-05-01 20:53:00 +00:00
line1=fgetc(stdin);
line2=fgetc(stdin);
if (feof(stdin)) goto the_end;
printf("%4d ",((line2)<<8)+line1);
2012-05-18 21:22:02 +00:00
offset+=2;
/* repeat until EOL character (0) */
2003-05-01 20:53:00 +00:00
while( (ch1=fgetc(stdin))!=0 ) {
2012-05-18 21:22:02 +00:00
offset++;
/* if > 0x80 it's a token */
2003-05-01 20:53:00 +00:00
if (ch1>=0x80) {
fputc(' ',stdout);
for(i=0;i<strlen(applesoft_tokens[ch1-0x80]);i++) {
fputc(applesoft_tokens[ch1-0x80][i],stdout);
}
fputc(' ',stdout);
}
/* otherwise it is an ascii char */
else {
fputc(ch1,stdout);
}
2003-05-01 20:53:00 +00:00
}
2012-05-18 21:22:02 +00:00
offset++;
2003-05-01 20:53:00 +00:00
printf("\n");
2012-05-18 21:22:02 +00:00
if (link!=offset) fprintf(stderr,"WARNING! link!=offset %x %x\n",
link,offset);
2003-05-01 20:53:00 +00:00
}
the_end:;
return 0;
}