Aminet 6/Aminet 6 - June 1995.iso/Aminet/text/misc/cvt_1_6.lha/cvt-1.6/scripts/AmigaBASIC->ASCII.cvt

Text File | 1994-01-23 | 4.5 KB | 260 lines

/*

 AmigaBASIC -> ASCII.cvt

 Token tables taken from `ab2ascii' by Stefan Reisner ([e-mail])

 I cannot guarrantee that the program understands all token constructs that
 AmigaBasic can produce AND translates them correctly. I obtained the `token
 dictionary' by trial and error (I did not disassemble AmigaBasic). For the
 programs I tested it on it seemed to work.

*/


$00 -> "\n";

/*
$01,   // variable
$02,   // define label
$03,   // reference label

$08,x,y,z -> ;   // skip 3 bytes after 8 ;)

$0c -> "&H%x", (next 2 byte word)
$0f, -> "%d" (next byte)
*/

$11 -> "0";
$12 -> "1";
$13 -> "2";
$14 -> "3";
$15 -> "4";
$16 -> "5";
$17 -> "6";
$18 -> "7";
$19 -> "8";
$1a -> "9";

/*
$1c -> "%d", (next 2 byte word)
$1d -> "%g", (next 4 byte float)
$1e -> "%ld", (next 4 byte long)
*/

$80 -> "ABS";
$81 -> "ASC";
$82 -> "ATN";
$83 -> "CALL";
$84 -> "CDBL";
$85 -> "CHR$";
$86 -> "CINT";
$87 -> "CLOSE";
$88 -> "COMMON";
$89 -> "COS";
$8a -> "CVD";
$8b -> "CVI";
$8c -> "CVS";
$8d -> "DATA";
$8e -> "ELSE";
$8f -> "EOF";
$90 -> "EXP";
$91 -> "FIELD";
$92 -> "FIX";
$93 -> "FN";
$94 -> "FOR";
$95 -> "GET";
$96 -> "GOSUB";
$97 -> "GOTO";
$98 -> "IF";
$99 -> "INKEY$";
$9a -> "INPUT";
$9b -> "INT";
$9c -> "LEFT$";
$9d -> "LEN";
$9e -> "LET";
$9f -> "LINE";
$a1 -> "LOC";
$a2 -> "LOF";
$a3 -> "LOG";
$a4 -> "LSET";
$a5 -> "MID$";
$a6 -> "MKD$";
$a7 -> "MKI$";
$a8 -> "MKS$";
$a9 -> "NEXT";
$aa -> "ON";
$ab -> "OPEN";
$ac -> "PRINT";
$ad -> "PUT";
$ae -> "READ";
$af -> "REM";
$b0 -> "RETURN";
$b1 -> "RIGHT$";
$b2 -> "RND";
$b3 -> "RSET";
$b4 -> "SGN";
$b5 -> "SIN";
$b6 -> "SPACE$";
$b7 -> "SQR";
$b8 -> "STR$";
$b9 -> "STRING$";
$ba -> "TAN";
$bc -> "VAL";
$bd -> "WEND";
$be -> "WHILE";
$bf -> "WRITE";
$c0 -> "ELSE IF";
$c1 -> "CLNG";
$c2 -> "CVL";
$c3 -> "MKL$";
$c4 -> "AREA";

$e3 -> "STATIC";
$e4 -> "USING";
$e5 -> "TO";
$e6 -> "THEN";
$e7 -> "NOT";

$e9 -> ">";
$ea -> "=";
$eb -> "<";
$ec -> "+";
$ed -> "-";
$ee -> "*";
$ef -> "/";

$f0 -> "^";
$f1 -> "AND";
$f2 -> "OR";
$f3 -> "XOR";
$f4 -> "EQV";
$f5 -> "IMP";
$f6 -> "MOD";

$f8,$81 -> "CHAIN";
$f8,$82 -> "CLEAR";
$f8,$83 -> "CLS";
$f8,$84 -> "CONT";
$f8,$85 -> "CSNG";
$f8,$86 -> "DATE$";
$f8,$87 -> "DEFINT";
$f8,$88 -> "DEFSNG";
$f8,$89 -> "DEFDBL";
$f8,$8a -> "DEFSTR";
$f8,$8b -> "DEF";
$f8,$8c -> "DELETE";
$f8,$8d -> "DIM";
$f8,$8e -> "EDIT";
$f8,$8f -> "END";
$f8,$90 -> "ERASE";
$f8,$91 -> "ERL";
$f8,$92 -> "ERROR";
$f8,$93 -> "ERR";
$f8,$94 -> "FILES";
$f8,$95 -> "FRE";
$f8,$96 -> "HEX$";
$f8,$97 -> "INSTR";
$f8,$98 -> "KILL";
$f8,$99 -> "LIST";
$f8,$9a -> "LLIST";
$f8,$9b -> "LOAD";
$f8,$9c -> "LPOS";
$f8,$9d -> "LPRINT";
$f8,$9e -> "MERGE";
$f8,$9f -> "NAME";
$f8,$a0 -> "NEW";
$f8,$a1 -> "OCT$";
$f8,$a2 -> "OPTION";
$f8,$a3 -> "PEEK";
$f8,$a4 -> "POKE";
$f8,$a5 -> "POS";
$f8,$a6 -> "RANDOMIZE";
$f8,$a8 -> "RESTORE";
$f8,$a9 -> "RESUME";
$f8,$aa -> "RUN";
$f8,$ab -> "SAVE";
$f8,$ad -> "STOP";
$f8,$ae -> "SWAP";
$f8,$af -> "SYSTEM";
$f8,$b0 -> "TIME";
$f8,$b1 -> "TRON";
$f8,$b2 -> "TROFF";
$f8,$b3 -> "VARPTR";
$f8,$b4 -> "WIDTH";
$f8,$b5 -> "BEEP";
$f8,$b6 -> "CIRCLE";
$f8,$b8 -> "MOUSE";
$f8,$b9 -> "POINT";
$f8,$ba -> "PRESET";
$f8,$bb -> "PSET";
$f8,$bc -> "RESET";
$f8,$bd -> "TIMER";
$f8,$be -> "SUB";
$f8,$bf -> "EXIT";
$f8,$c0 -> "SOUND";
$f8,$c2 -> "MENU";
$f8,$c3 -> "WINDOW";
$f8,$c5 -> "LOCATE";
$f8,$c6 -> "CSRLIN";
$f8,$c7 -> "LBOUND";
$f8,$c8 -> "UBOUND";
$f8,$c9 -> "SHARED";
$f8,$ca -> "UCASE$";
$f8,$cb -> "SCROLL";
$f8,$cc -> "LIBRARY";
$f8,$d2 -> "PAINT";
$f8,$d3 -> "SCREEN";
$f8,$d4 -> "DECLARE";
$f8,$d5 -> "FUNCTION";
$f8,$d6 -> "DEFLNG";
$f8,$d7 -> "SADD";
$f8,$d8 -> "AREAFILL";
$f8,$d9 -> "COLOR";
$f8,$da -> "PATTERN";
$f8,$db -> "PALETTE";
$f8,$dc -> "SLEEP";
$f8,$dd -> "CHDIR";
$f8,$de -> "STRIG";
$f8,$df -> "STICK";

$f9,$f4 -> "OFF";
$f9,$f5 -> "BREAK";
$f9,$f6 -> "WAIT";
$f9,$f7 -> "USR";
$f9,$f8 -> "TAB";
$f9,$f9 -> "STEP";
$f9,$fa -> "SPC";
$f9,$fb -> "OUTPUT";
$f9,$fc -> "BASE";
$f9,$fd -> "AS";
$f9,$fe -> "APPEND";
$f9,$ff -> "ALL";

$fa,$80 -> "WAVE";
$fa,$81 -> "POKEW";
$fa,$82 -> "POKEL";
$fa,$83 -> "PEEKW";
$fa,$84 -> "PEEKL";
$fa,$85 -> "SAY";
$fa,$86 -> "TRANSLATE$";
$fa,$87 -> "OBJECT.SHAPE";
$fa,$88 -> "OBJECT.PRIORITY";
$fa,$89 -> "OBJECT.X";
$fa,$8a -> "OBJECT.Y";
$fa,$8b -> "OBJECT.VX";
$fa,$8c -> "OBJECT.VY";
$fa,$8d -> "OBJECT.AX";
$fa,$8e -> "OBJECT.AY";
$fa,$8f -> "OBJECT.CLIP";
$fa,$90 -> "OBJECT.PLANES";
$fa,$91 -> "OBJECT.HIT";
$fa,$92 -> "OBJECT.ON";
$fa,$93 -> "OBJECT.OFF";
$fa,$94 -> "OBJECT.START";
$fa,$95 -> "OBJECT.STOP";
$fa,$96 -> "OBJECT.CLOSE";
$fa,$97 -> "COLLISION";

$fb,$ff -> "PTAB";