commit 7179e632c592ac82823abe49fcd40eeccf1f8ecb Author: Kawamata Akira Date: Mon Nov 6 12:00:00 2000 +0900 First Version Version 0.01 - from wonbe001.lzh diff --git a/keywords.h b/keywords.h new file mode 100644 index 0000000..c07a66b --- /dev/null +++ b/keywords.h @@ -0,0 +1,59 @@ +/* WONBE predefined keyword IDs */ +/* First Created: Nov.3,2000 by Nashiko */ +/* Copyright 2000 (c) by Pie Dey Co.,Ltd. */ + +#define KEYWORD_IF 0x80 +#define KEYWORD_PRINT 0x81 +#define KEYWORD_LOCATE 0x82 +#define KEYWORD_CLS 0x83 +#define KEYWORD_GOTO 0x84 +#define KEYWORD_GOSUB 0x85 +#define KEYWORD_RETURN 0x86 +#define KEYWORD_FOR 0x87 +#define KEYWORD_NEXT 0x88 +#define KEYWORD_END 0x89 +#define KEYWORD_BREAK 0x8a +#define KEYWORD_REM 0x8b +#define KEYWORD_NEW 0x8c +#define KEYWORD_LIST 0x8d +#define KEYWORD_RUN 0x8e +#define KEYWORD_CONT 0x8f +#define KEYWORD_SAVE 0x90 +#define KEYWORD_LOAD 0x91 +#define KEYWORD_MERGE 0x92 +#define KEYWORD_RANDOMIZE 0x93 +#define KEYWORD_EXIT 0x94 +#define KEYWORD_DEBUG 0x95 +#define KEYWORD_WAITVB 0x96 +#define KEYWORD_FILES 0x97 +#define KEYWORD_AND 0xa0 +#define KEYWORD_OR 0xa1 +#define KEYWORD_XOR 0xa2 +#define KEYWORD_NOT 0xb0 +#define KEYWORD_SCAN 0xc0 +#define KEYWORD_WAIT 0xc1 +#define KEYWORD_RND 0xc2 +#define KEYWORD_ABS 0xc3 +#define KEYWORD_TICK 0xc4 +#define KEYWORD_SCAN_A 0xd0 +#define KEYWORD_SCAN_B 0xd1 +#define KEYWORD_SCAN_X1 0xd2 +#define KEYWORD_SCAN_X2 0xd3 +#define KEYWORD_SCAN_X3 0xd4 +#define KEYWORD_SCAN_X4 0xd5 +#define KEYWORD_SCAN_Y1 0xd6 +#define KEYWORD_SCAN_Y2 0xd7 +#define KEYWORD_SCAN_Y3 0xd8 +#define KEYWORD_SCAN_Y4 0xd9 +#define KEYWORD_THEN 0xf0 +#define KEYWORD_CHR 0xf1 +#define KEYWORD_TO 0xf2 +#define KEYWORD_STEP 0xf3 + +#define KEYWORDS_STATEMENT_FROM 0x80 +#define KEYWORDS_STATEMENT_TO 0x97 +#define KEYWORDS_2OP_FROM 0xa0 +#define KEYWORDS_2OP_TO 0xa2 + + +/* end of keywords.h */ diff --git a/makefile b/makefile new file mode 100644 index 0000000..d126588 --- /dev/null +++ b/makefile @@ -0,0 +1,23 @@ + +# start up routine +C0WW_JAPANESE2=..\common\c0wwjpn2.obj + +C0WW=$(C0WW_JAPANESE2) + +LIBWW=@..\common\libww.rsp + +CFLAGS=-DWW -ms -zPCGROUP -zSDGROUP -zGDGROUP + +all: wonbe.fx + +wonbe.fx: wonbe.bin + mkfent wonbe.cf + +wonbe.bin: wonbe.obj + tlink /m /c $(C0WW) wonbe, wonbe, wonbe, $(LIBWW) + exe2fbin wonbe.exe wonbe.bin + +wonbe.obj: wonbe.c + tcc -c $(CFLAGS) $(DEFINES) -IC:\vshare\ww\dev\WWitch\include wonbe.c + + diff --git a/test.wb b/test.wb new file mode 100644 index 0000000..5ec1b92 --- /dev/null +++ b/test.wb @@ -0,0 +1,2 @@ +10 print 1 +20 print 2 diff --git a/testcont.wb b/testcont.wb new file mode 100644 index 0000000..a00a260 --- /dev/null +++ b/testcont.wb @@ -0,0 +1,3 @@ +100 debug "contしてね" +200 break +300 debug "contされたよ" diff --git a/testfor.wb b/testfor.wb new file mode 100644 index 0000000..4a7dd58 --- /dev/null +++ b/testfor.wb @@ -0,0 +1,11 @@ +100 rem ワンべぇ テストプログラム +200 rem forのテストその1 +210 print "loop by global=":for I=0 to 9:print I,:next:print +215 print "PUSH ANY BUTTON";wait +220 print "loop by local=":for i=0 to 9:print i,:next:print +225 print "PUSH ANY BUTTON";wait +230 print "loop by array=":for @(0)=0 to 9:print @(0),:next:print +235 print "PUSH ANY BUTTON";wait +240 print "step 2=":for i=0 to 18 step 2:print i,:next:print +245 print "PUSH ANY BUTTON";wait +250 print "step -1=":for i=9 to 0 step -1:print i,:next:print diff --git a/testgosub.wb b/testgosub.wb new file mode 100644 index 0000000..dfb09b8 --- /dev/null +++ b/testgosub.wb @@ -0,0 +1,19 @@ +100 'gosubとローカル変数のテスト +200 a=1 +210 gosub 1000 +220 if a <> 1 then print "220でエラー" +300 print "main return" +900 end +1000 'sub1 +1010 print "sub1" +1100 a=123 +1200 if a <> 123 then print "1200でエラー" +1300 gosub 2000 +1400 if a <> 123 then print "1400でエラー" +1450 print "sub1 return" +1500 return +2000 'sub2 +2010 print "sub2" +2100 a=321 +2200 if a <> 321 then print "2200でエラー" +2500 return diff --git a/testif.wb b/testif.wb new file mode 100644 index 0000000..b16b6b4 --- /dev/null +++ b/testif.wb @@ -0,0 +1,9 @@ +10 if 1 then print "条件成立" +20 if 0 then print "条件不成立" +30 if 1 then if 1 then if 1 then print "多重条件成立" +40 print "ifによるループ" +50 i = 0 +60 print i;" "; +70 i=i+1 +80 if i < 10 then goto 60 +90 print "終了",wait diff --git a/testlocate.wb b/testlocate.wb new file mode 100644 index 0000000..2aeb20b --- /dev/null +++ b/testlocate.wb @@ -0,0 +1,7 @@ +2 rem cls, localeのテスト +5 cls +7 randomize tick +10 for i=0 to 999 +20 locate rnd(28),rnd(18) +30 print chr(rnd(26)+0x41); +40 next diff --git a/testlongloop.wb b/testlongloop.wb new file mode 100644 index 0000000..7848231 --- /dev/null +++ b/testlongloop.wb @@ -0,0 +1 @@ +10 for i=0 to 32767:print "test";i:next diff --git a/win32text.c b/win32text.c new file mode 100644 index 0000000..67dee98 --- /dev/null +++ b/win32text.c @@ -0,0 +1,275 @@ +// wonbe Win32 text emulation +// First Created: Nov.4,2000 by Nashiko +// Copyright 2000 (c) by Pie Dey Co.,Ltd. + +#include +#include "win32text.h" + +#define SCREEN_SIZE_X (224/8) +#define SCREEN_SIZE_Y (144/8) +static WORD screen[SCREEN_SIZE_X][SCREEN_SIZE_Y]; + +static WORD lastChar; + +static HWND hwnd; + +static void wmPaint( HWND hWnd, HDC hdc ) +{ + int x,y; + int xArea, yArea; + RECT rect, rectDraw; + TEXTMETRIC tm; + + GetClientRect( hWnd, &rect ); + + GetTextMetrics( hdc, &tm ); + + xArea = SCREEN_SIZE_X * tm.tmMaxCharWidth; + yArea = SCREEN_SIZE_Y * tm.tmHeight; + + rectDraw.left = (rect.right-rect.left)/2-xArea/2; + rectDraw.top = (rect.bottom-rect.top)/2-yArea/2; + rectDraw.right = (rect.right-rect.left)/2+xArea/2; + rectDraw.bottom = (rect.bottom-rect.top)/2+yArea/2; + + FillRect( hdc, &rect, GetStockObject(GRAY_BRUSH) ); + FillRect( hdc, &rectDraw, GetStockObject(WHITE_BRUSH) ); + + for( y=0; y= 0x100 ) { + str[0] = (val >> 8); + str[1] = (val & 0xff); + TextOut( hdc, + rectDraw.left+x*tm.tmMaxCharWidth, + rectDraw.top+y*tm.tmHeight, + str, 2 ); + } else { + str[0] = (BYTE)val; + TextOut( hdc, + rectDraw.left+x*tm.tmMaxCharWidth, + rectDraw.top+y*tm.tmHeight, + str, 1 ); + } + } + } +} + +LRESULT CALLBACK WndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam) +{ + PAINTSTRUCT ps; + HDC hdc; + + switch (message) { + case WM_PAINT: + hdc = BeginPaint(hWnd, &ps); + wmPaint(hWnd,hdc); + EndPaint(hWnd, &ps); + break; + + case WM_CHAR: + lastChar = (WORD)wParam; + break; + + case WM_CLOSE: + return 0; // 閉じちゃ駄目 + + case WM_DESTROY: + hwnd = NULL; + PostQuitMessage(0); + break; + + default: + return (DefWindowProc(hWnd, message, wParam, lParam)); + } + return (0); +} + +static int createTextInThread() +{ + WNDCLASS wc; + wc.style = CS_HREDRAW | CS_VREDRAW; + wc.lpfnWndProc = (WNDPROC)WndProc; + wc.cbClsExtra = 0; + wc.cbWndExtra = 0; + wc.hInstance = GetModuleHandle(NULL); + wc.hIcon = NULL; + wc.hCursor = LoadCursor(NULL, IDC_ARROW); + wc.hbrBackground = (HBRUSH)(COLOR_WINDOW+1); + wc.lpszMenuName = NULL; + wc.lpszClassName = "wonbe_win32text"; + RegisterClass(&wc); + + hwnd = CreateWindow(wc.lpszClassName, "WONBE TEXT", WS_OVERLAPPEDWINDOW, + CW_USEDEFAULT, 0, SCREEN_SIZE_X*16+64, SCREEN_SIZE_Y*20+64, + NULL, NULL, wc.hInstance, NULL); + + if( !hwnd ) return FALSE; + + clearText(); + ShowWindow( hwnd, SW_SHOW ); + UpdateWindow( hwnd ); + + return TRUE; +} + +void clearText() +{ + int x,y; + if( hwnd == NULL ) return; + for( y=0; y= SCREEN_SIZE_X ) return; + if( y >= SCREEN_SIZE_Y ) return; + screen[x][y] = ch; + InvalidateRect( hwnd, NULL, FALSE ); +} + +void updateText() +{ + UpdateWindow( hwnd ); +} + +void deleteText() +{ + if( hwnd == NULL ) return; + DestroyWindow( hwnd ); + hwnd = NULL; +} + +DWORD WINAPI ThreadFunc( LPVOID lpParam ) +{ + MSG msg; + createTextInThread(); + while (GetMessage(&msg, NULL, 0, 0)) { + TranslateMessage(&msg); + DispatchMessage(&msg); + } + return 0; +} + +int createText() +{ + DWORD dwThreadId, dwThrdParam = 1; + HANDLE hThread; + + lastChar = 0; + hThread = CreateThread( + NULL, // no security attributes + 0, // use default stack size + ThreadFunc, // thread function + &dwThrdParam, // argument to thread function + 0, // use default creation flags + &dwThreadId); // returns the thread identifier + return TRUE; +} + +unsigned short win32_wait() +{ + WORD t; + while( TRUE ) { + // 以下の2行は本当はマルチスレッド的にNGなんだけど + // テスト用環境だから大目に見る + t = lastChar; + lastChar = 0; + switch( t ) { + case 'p': + case 'P': + return 0x02; // START BUTTON + case ' ': + return 0x04; //KEYWORD_SCAN_A; + case 0x1b: + return 0x08; //KEYWORD_SCAN_B; + case 'e': + case 'E': + return 0x10; //KEYWORD_SCAN_X1; + case 'd': + case 'D': + return 0x20; //KEYWORD_SCAN_X2; + case 'x': + case 'X': + return 0x40; //KEYWORD_SCAN_X3; + case 's': + case 'S': + return 0x80; //KEYWORD_SCAN_X4; + case 't': + case 'T': + return 0x100; //KEYWORD_SCAN_Y1; + case 'g': + case 'G': + return 0x200; //KEYWORD_SCAN_Y2; + case 'v': + case 'V': + return 0x400; //KEYWORD_SCAN_Y3; + case 'f': + case 'F': + return 0x800; //KEYWORD_SCAN_Y4; + } + Sleep( 100 ); + } +} + +unsigned short win32_scan() +{ + WORD t; + t = 0; + if( GetAsyncKeyState('P') & 0x8000 ) { + t |= 0x02; // START + } + if( GetAsyncKeyState(VK_SPACE) & 0x8000 ) { + t |= 0x04; // A + } + if( GetAsyncKeyState(VK_ESCAPE) & 0x8000 ) { + t |= 0x08; // B + } + if( GetAsyncKeyState('E') & 0x8000 ) { + t |= 0x10; // X1 + } + if( GetAsyncKeyState('D') & 0x8000 ) { + t |= 0x20; // X2 + } + if( GetAsyncKeyState('X') & 0x8000 ) { + t |= 0x40; // X3 + } + if( GetAsyncKeyState('S') & 0x8000 ) { + t |= 0x80; // X4 + } + if( GetAsyncKeyState('T') & 0x8000 ) { + t |= 0x100; // Y1 + } + if( GetAsyncKeyState('G') & 0x8000 ) { + t |= 0x200; // Y2 + } + if( GetAsyncKeyState('V') & 0x8000 ) { + t |= 0x400; // Y3 + } + if( GetAsyncKeyState('F') & 0x8000 ) { + t |= 0x800; // Y4 + } + return t; +} + +unsigned int win32_get_tick_count() +{ + return GetTickCount()/10; +} + +void win32_sys_wait( unsigned int val ) +{ + Sleep( val*10 ); +} + +// end of win32text.c diff --git a/win32text.h b/win32text.h new file mode 100644 index 0000000..a781c2f --- /dev/null +++ b/win32text.h @@ -0,0 +1,15 @@ +// wonbe Win32 text emulation +// First Created: Nov.4,2000 by Nashiko +// Copyright 2000 (c) by Pie Dey Co.,Ltd. + +int createText(); +void clearText(); +void drawChar( int x, int y, unsigned short ch ); +void updateText(); +void deleteText(); +unsigned short win32_wait(); +unsigned short win32_scan(); +unsigned int win32_get_tick_count(); +void win32_sys_wait( unsigned int val ); + +// end of win32text.h diff --git a/wonbe.c b/wonbe.c new file mode 100644 index 0000000..abcc174 --- /dev/null +++ b/wonbe.c @@ -0,0 +1,1974 @@ +/* wonbe: WonderWitch Basic Environment */ +/* First Created: Nov.3,2000 by Nashiko */ +/* Copyright 2000 (c) by Pie Dey Co.,Ltd. */ + +/* This source code is for both VC++6.0 and Turbo C 2.0 */ + +#include +#include +#include +#ifdef WW +#include +#include +#include +#include +#endif +#include "keywords.h" +#ifdef WIN32 +#include "win32text.h" +#endif + +char myVersion[] = "0.01"; + +#ifdef WW +#define MEMMOVE mymemmove +#define FAR far +#else +#define MEMMOVE mymemmove +#define FAR +#endif + +#ifdef WIN32 +typedef unsigned char BYTE; +#endif +typedef unsigned short WORD; +typedef signed short SHORT; + +#define EOL (0x0d) + +#ifdef WIN32 +typedef int BOOL; +#endif +#define FALSE 0 +#define TRUE 1 + +typedef void (*NEARPROC)(); + +#define WORKAREA_SIZE ((WORD)49152) +#define LINE_SIZE (256) + +/* 実行のみのモードで動いているとき (シリアル経由で端末が居ないとき) */ +BOOL runtimeOnly; + +#ifdef WW +void fatalExit( const char * msg ) +{ + text_screen_init(); + text_put_string( 0, 0, (char*)msg ); + text_put_string( 0, 3, "PUSH ANY BUTTON" ); + key_wait(); +} +#endif + +BOOL commonPrint( FILE FAR * fp, const char * msg,... ) +{ +#ifdef WW + static +#endif + char buf[256]; + vsprintf(buf, msg, (va_list)(&msg+1) ); + if( fp != NULL ) { + int r; + r = fprintf( fp, buf ); + return r >= 0; + } else { +#ifdef WW + if( runtimeOnly ) { + fatalExit( buf ); + } else { + comm_send_string( buf ); + } +#else + printf( buf ); +#endif + } + return TRUE; +} + +void consoleInput( BYTE * buf, WORD len ) +{ +#ifdef WW + WORD cursor; + if( runtimeOnly ) { + fatalExit("consoleInput not allowed in runtime mode"); + } else { + cursor = 0; + while( TRUE ) { + int ch; + ch = comm_receive_char(); + if( ch == 0x0d ) { /* CR */ + buf[cursor] = '\0'; + return; + } + if( ch == 0x09 ) { /* TAB */ + goto inputAsChar; + } + if( ch == 0x08 ) { /* BS */ + if( cursor > 0 ) { + cursor--; + comm_send_char( ch ); + continue; + } + } + if( ch >= 0 && ch < ' ' ) { + /* ignore it */ + continue; + } + if( ch >= ' ' && ch <= 0xfc ) { +inputAsChar: + if( cursor < len-1 ) { + buf[cursor] = ch; + cursor++; + comm_send_char( ch ); + } + } + } + } +#else + gets(buf); +#endif +} + +typedef struct { + WORD id; + const BYTE * name; +} KEYWORDITEM; + +KEYWORDITEM keywords[] = { + { KEYWORD_IF,"if" }, + { KEYWORD_PRINT,"print" }, + { KEYWORD_LOCATE,"locate" }, + { KEYWORD_CLS,"cls" }, + { KEYWORD_GOTO,"goto" }, + { KEYWORD_GOSUB,"gosub" }, + { KEYWORD_RETURN,"return" }, + { KEYWORD_FOR,"for" }, + { KEYWORD_NEXT,"next" }, + { KEYWORD_END,"end" }, + { KEYWORD_BREAK,"break" }, + { KEYWORD_REM,"rem" }, + { KEYWORD_NEW,"new" }, + { KEYWORD_LIST,"list" }, + { KEYWORD_RUN,"run" }, + { KEYWORD_CONT,"cont" }, + { KEYWORD_SAVE,"save" }, + { KEYWORD_LOAD,"load" }, + { KEYWORD_MERGE,"merge" }, + { KEYWORD_RANDOMIZE,"randomize" }, + { KEYWORD_EXIT,"exit" }, + { KEYWORD_DEBUG,"debug" }, + { KEYWORD_WAITVB,"waitvb" }, + { KEYWORD_FILES,"files" }, + { KEYWORD_AND,"and" }, + { KEYWORD_OR,"or" }, + { KEYWORD_XOR,"xor" }, + { KEYWORD_NOT,"not" }, + { KEYWORD_SCAN,"scan" }, + { KEYWORD_WAIT,"wait" }, + { KEYWORD_RND,"rnd" }, + { KEYWORD_ABS,"abs" }, + { KEYWORD_TICK,"tick" }, + { KEYWORD_SCAN_A,"scan_a" }, + { KEYWORD_SCAN_B,"scan_b" }, + { KEYWORD_SCAN_X1,"scan_x1" }, + { KEYWORD_SCAN_X2,"scan_x2" }, + { KEYWORD_SCAN_X3,"scan_x3" }, + { KEYWORD_SCAN_X4,"scan_x4" }, + { KEYWORD_SCAN_Y1,"scan_y1" }, + { KEYWORD_SCAN_Y2,"scan_y2" }, + { KEYWORD_SCAN_Y3,"scan_y3" }, + { KEYWORD_SCAN_Y4,"scan_y4" }, + { KEYWORD_THEN,"then" }, + { KEYWORD_CHR,"chr" }, + { KEYWORD_TO,"to" }, + { KEYWORD_STEP,"step" }, + { 0,NULL } +}; + +/* インタラクティブモード時の1行バッファ */ +BYTE waRawLine[LINE_SIZE]; +BYTE waCoockedLine[LINE_SIZE]; + +/* コードとデータを収める領域 */ +WORD codeTop; +WORD dataTop; +/*WORD savedPointer; /* breakしたときの実行中位置 */ +BYTE wa[WORKAREA_SIZE]; + +/* グローバル変数領域 */ +#define NUMBER_OF_SIMPLE_VARIABLES (26) +SHORT globalVariables[NUMBER_OF_SIMPLE_VARIABLES]; +SHORT topLevelVariables[NUMBER_OF_SIMPLE_VARIABLES]; +SHORT * localVariables; /* あるスコープで有効なローカル変数領域を持つ */ + +/* 現在実行中の位置に関する情報 */ +/* waかwaCookedLineのどちらかの中を示すかNULL */ +BYTE * executionPointer; +/* contコマンドで実行を再開するポイント */ +BYTE * resumePointer; + +/* 現在処理中の行番号 (0ならダイレクトモード) */ +WORD currentLineNumber; + +/* gosubとforのためのスタック */ +#define STACK_TYPE_GOSUB 1 +#define STACK_TYPE_FOR 2 +typedef struct { + WORD type; /* 1==GOSUB, 2==FOR */ + /* for GOSUB and FOR */ + BYTE * returnPointer; + /* for GOSUB */ + SHORT * lastLocalVariables; + SHORT simpleVariables[NUMBER_OF_SIMPLE_VARIABLES]; + /* for FOR */ + SHORT * pvar; /* counter variable */ + SHORT limit; /* limit value */ + SHORT step; /* step value */ +} STACK; +#define STACK_MAX 8 +STACK stacks[STACK_MAX]; +int stackPointer; + +/* インタラクティブモードかインタプリタモードか */ +BOOL bInteractive; + +/* インタプリタ脱出後の振る舞いのリクエスト */ +BOOL bForceToReturnSuper; + +int requestNextAction; /* 以下のいずれか */ +/* 何もせず現状のまま */ +#define REQUEST_NO_ACTION 0 +/* 対話モードへ行け */ +#define REQUEST_INTERACTIVE 1 +/* runLineNumberから実行を開始せよ */ +#define REQUEST_RUN_LINENUMBER 2 +/* waRawLineに入っている文字列をファイル名としてそれを読み込んで実行せよ */ +#define REQUEST_RUN_FILE 3 +/* newせよ */ +#define REQUEST_NEW 4 +/* waRawLineに入っている文字列をファイル名としてそれをロード */ +#define REQUEST_LOAD_FILE 5 +/* WONBEを終了してOSに戻れ */ +#define REQUEST_EXIT_SYSTEM 6 +/* waRawLineに入っている文字列をファイル名としてそれをマージ */ +#define REQUEST_MERGE_FILE 7 +/* REQUEST_RUN_LINENUMBERで実行開始をリクエストする行番号 */ +WORD runLineNumber; + +/* エラー発生 */ +void syntaxError() +{ + commonPrint(NULL, "Syntax Error in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void divideByZero() +{ + commonPrint(NULL, "Divide by 0 in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void outOfArraySubscription() +{ + commonPrint(NULL, "Out of Array Subscription in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void lineNumberNotFound( WORD lineNumber ) +{ + commonPrint(NULL, "Line Number %d not Found in %d\x07\n", lineNumber, currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void stackOverflow() +{ + commonPrint(NULL, "Stack Overflow in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void stackUnderflow() +{ + commonPrint(NULL, "Stack Underflow in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void nextWithoutFor() +{ + commonPrint(NULL, "Next without For in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void outOfMemory() +{ + commonPrint(NULL, "Out of memory in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void loadError() +{ + commonPrint(NULL, "File Not Found or Load Error in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void cantContinue() +{ + commonPrint(NULL, "Can't Continue in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void saveError() +{ + commonPrint(NULL, "Save Erroor in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +void paramError() +{ + commonPrint(NULL, "Parameter Erroor in %d\x07\n", currentLineNumber ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +/* ユーティリティ関数達 */ +void mymemmove( BYTE * dst, const BYTE * src, WORD len ) +{ + WORD i; + if( dst < src ) { + for( i=0; i= 'A' && ch <= 'Z' ) { + return ch - 'A' + 'a'; + } + return ch; +} + +/* シフトJISの1バイト目かどうか判断。マクロなので副作用に注意 */ +#define IsDBCSLeadByte(ch) ((ch >= 0x81 && ch <= 0x9f) || (ch >= 0xe0 && ch <= 0xfc)) + +/* 実行時情報のクリア (contできなくなる) */ +void clearRuntimeInfo() +{ + memset( globalVariables, 0, sizeof(globalVariables) ); + memset( topLevelVariables, 0, sizeof(topLevelVariables) ); + memset( stacks, 0, sizeof(globalVariables) ); + executionPointer = NULL; + resumePointer = NULL; + currentLineNumber = 0; + localVariables = topLevelVariables; + stackPointer = 0; + srand(0); +} + +/* 行頭の行番号の、実行時の定型処理 */ +void processLineHeader() +{ + if( !bInteractive ) { + currentLineNumber = *((WORD *)executionPointer); + executionPointer += 2; + } else { + currentLineNumber = 0; + } +} + +/* 行番号処理 */ +BYTE * getLineReferenceFromLineNumber( WORD lineNumber ) +{ + BYTE * p; + WORD t; + p = wa; + while( TRUE ) { + t = *((WORD *)p); + if( t == 0 ) { + return NULL; + } + if( lineNumber == t ) { + return p; + } + p += 2; + p = skipToEOL( p ); + p++; + } +} + +BYTE * getInsertionPointFromLineNumber( WORD lineNumber ) +{ + BYTE * p; + WORD t; + p = wa; + while( TRUE ) { + t = *((WORD *)p); + if( t == 0 ) { + return p; + } + if( lineNumber <= t ) { + return p; + } + p += 2; + p = skipToEOL( p ); + p++; + } +} + +/* 配列管理 */ +int availableArrayItems() +{ + return (WORKAREA_SIZE-dataTop) >> 1; +} + +SHORT * derefArrayItem( int index ) +{ + if( index < 0 || index >= availableArrayItems() ) { + outOfArraySubscription(); + return NULL; /* そのインデックスは使えません */ + } + return (SHORT*)(&wa[dataTop+index*2]); +} + +/* 物理テキストの管理 */ +#define SCREEN_SIZE_X (224/8) +#define SCREEN_SIZE_Y (144/8) + +WORD screen[SCREEN_SIZE_X][SCREEN_SIZE_Y]; + +SHORT xCursor, yCursor; + +#define TABSTOP 8 + +void ptextScrollUp() +{ + int x, y; + for( y=0; y= SCREEN_SIZE_Y ) { + ptextScrollUp(); + yCursor = SCREEN_SIZE_Y-1; + } +} + +void ptextTab() +{ + if( xCursor+TABSTOP >= SCREEN_SIZE_X ) { + ptextNewline(); + return; + } + xCursor = (xCursor+TABSTOP) / TABSTOP * TABSTOP; +} + +void ptextString( const BYTE * msg ) +{ + while( TRUE ) { + WORD ch; + if( *msg == '\0' ) break; + if( IsDBCSLeadByte(*msg) ) { + ch = (msg[0] << 8) + msg[1]; + msg+=2; + } else { + ch = msg[0]; + msg++; + } + screen[xCursor][yCursor] = ch; +#ifdef WIN32 + drawChar( xCursor, yCursor, ch ); +#endif +#ifdef WW + text_put_char( xCursor, yCursor, ch ); +#endif + xCursor++; + if( xCursor >= SCREEN_SIZE_X ) { + xCursor = 0; + yCursor++; + if( yCursor >= SCREEN_SIZE_Y ) { + ptextScrollUp(); + yCursor = SCREEN_SIZE_Y-1; + } + } + } +} + +void ptextLocate( int x, int y ) +{ + if( x < 0 ) x = 0; + if( x >= SCREEN_SIZE_X ) x = SCREEN_SIZE_X-1; + if( y < 0 ) y = 0; + if( y >= SCREEN_SIZE_Y ) y = SCREEN_SIZE_Y-1; + xCursor = x; + yCursor = y; +} + +void ptextCLS() +{ + int x,y; + xCursor = 0; + yCursor = 0; +#ifdef WIN32 + clearText(); +#endif +#ifdef WW + for( y=0; y to ) break; + p += 2; + b = commonPrint(fp,"%d",lineNumber); + if( b == FALSE ) return FALSE; + while( TRUE ) { + if( *p == EOL ) { + p++; + break; + } + if( *p == 0x01 ) { + WORD n; + p++; + n = *((WORD*)p); + p += 2; + b = commonPrint(fp,"%d",n); + if( b == FALSE ) return FALSE; + } else if( *p == 0x02 ) { + WORD n; + p++; + n = *((WORD*)p); + p += 2; + b = commonPrint(fp,"0x%x",n); + if( b == FALSE ) return FALSE; + } else if( *p == 0x03 ) { + p++; + b = commonPrint(fp,"\"%s\"",p); + if( b == FALSE ) return FALSE; + p += strlen(p)+1; + } else if( *p == '\'' ) { /* コメントのあとはそのまま行末まで転送 */ + while( TRUE ) { + if( *p == EOL ) break; + b = commonPrint(fp,"%c",*p); + if( b == FALSE ) return FALSE; + p++; + } + } else if( *p >= 0x80 ) { + KEYWORDITEM * k = keywords; + while( TRUE ) { + if( k->id == 0 ) { + b = commonPrint(fp,"[?%x?]", *p ); + if( b == FALSE ) return FALSE; + p++; + break; + } + if( k->id == *p ) { + b = commonPrint(fp, k->name ); + if( b == FALSE ) return FALSE; + p++; + if( k->id == KEYWORD_REM ) { /* コメントのあとはそのまま行末まで転送 */ + while( TRUE ) { + if( *p == EOL ) break; + b = commonPrint(fp,"%c",*p); + if( b == FALSE ) return FALSE; + p++; + } + } + break; + } + k++; + } + } else { + b = commonPrint(fp,"%c",*p); + if( b == FALSE ) return FALSE; + p++; + } + } + b = commonPrint(fp,"\n"); + if( b == FALSE ) return FALSE; + } + return TRUE; +} + +/* 式計算機能 */ +SHORT expr(); /* forward decl */ + +SHORT * getArrayReference() +{ + BYTE ch; + int index; + SHORT * pvar; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != '(' && ch != '[' ) { + syntaxError(); + return NULL; + } + index = expr(); + if( bForceToReturnSuper ) return NULL; + pvar = derefArrayItem( index ); + if( pvar == NULL ) return NULL; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != ')' && ch != ']' ) { + syntaxError(); + return NULL; + } + return pvar; +} + +SHORT calcValue() +{ + BYTE ch; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch >= 'A' && ch <= 'Z' ) { + return globalVariables[ch-'A']; + } + if( ch >= 'a' && ch <= 'z' ) { + return localVariables[ch-'a']; + } + if( ch == '@' ) { + SHORT * pvar; + pvar = getArrayReference(); + if( pvar == NULL ) return -1; + return *pvar; + } + switch( ch ) { + case 0x01: /* 次にあるのは10進2バイト整数 */ + case 0x02: /* 次にあるのは16進2バイト整数 */ + { + SHORT t; + t = *((SHORT *)executionPointer); + executionPointer += 2; + return t; + } + case '(': + { + SHORT t; + t = expr(); + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != ')' ) { + syntaxError(); + return -1; + } + return t; + } + case '-': + return -calcValue(); + case KEYWORD_NOT: + return ~calcValue(); + case KEYWORD_SCAN: +#ifdef WW + return key_press_check(); +#else + return win32_scan(); +#endif + case KEYWORD_WAIT: +#ifdef WW + return key_wait(); +#else + return win32_wait(); +#endif + case KEYWORD_RND: + { + SHORT t; + t = calcValue(); + return rand() % t; + } + case KEYWORD_ABS: + { + SHORT t; + t = calcValue(); + if( t < 0 ) return -t; + return t; + } + case KEYWORD_TICK: +#ifdef WW + return sys_get_tick_count(); +#else + return win32_get_tick_count(); +#endif + case KEYWORD_SCAN_A: + return 4; + case KEYWORD_SCAN_B: + return 8; + case KEYWORD_SCAN_X1: + return 16; + case KEYWORD_SCAN_X2: + return 32; + case KEYWORD_SCAN_X3: + return 64; + case KEYWORD_SCAN_X4: + return 128; + case KEYWORD_SCAN_Y1: + return 256; + case KEYWORD_SCAN_Y2: + return 512; + case KEYWORD_SCAN_Y3: + return 1024; + case KEYWORD_SCAN_Y4: + return 2048; + } + syntaxError(); + return -1; +} + +SHORT expr() +{ + SHORT acc; + acc = calcValue(); + if( bForceToReturnSuper ) return -1; + + while( TRUE ) { + BYTE ch; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + switch( ch ) { + case '+': + acc = acc + calcValue(); + break; + case '-': + acc = acc - calcValue(); + break; + case '*': + acc = acc * calcValue(); + break; + case '/': + { + SHORT t; + t = calcValue(); + if( t == 0 ) { + divideByZero(); + } else { + acc = acc / t; + } + } + break; + case KEYWORD_AND: + acc = acc & calcValue(); + break; + case KEYWORD_OR: + acc = acc | calcValue(); + break; + case KEYWORD_XOR: + acc = acc ^ calcValue(); + break; + case '>': + { + BYTE ch2; + while( TRUE ) { + ch2 = *executionPointer++; + if( ch2 != ' ' && ch2 != '\t' ) break; + } + if( ch2 == '=' ) { + acc = (acc >= calcValue()); + } else { + executionPointer--; + acc = (acc > calcValue()); + } + } + break; + case '<': + { + BYTE ch2; + while( TRUE ) { + ch2 = *executionPointer++; + if( ch2 != ' ' && ch2 != '\t' ) break; + } + if( ch2 == '=' ) { + acc = (acc <= calcValue()); + } else if( ch2 == '>' ) { + acc = (acc != calcValue()); + } else { + executionPointer--; + acc = (acc < calcValue()); + } + } + break; + case '=': + acc = (acc == calcValue()); + break; + default: + executionPointer--; /* unget it */ + return acc; + } + if( bForceToReturnSuper ) return -1; + } +} + +/* 各ステートメント実行処理メイン */ + +void st_assignment( SHORT * pvar ) /* 代入ステートメントだけ例外的に処理する */ +{ + BYTE ch; + SHORT val; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != '=' ) { + syntaxError(); + return; + } + val = expr(); + if( bForceToReturnSuper ) return; + *pvar = val; +} + +void st_if() +{ + SHORT val; + BYTE ch; + val = expr(); + if( bForceToReturnSuper ) return; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != KEYWORD_THEN ) { + syntaxError(); + return; + } + if( val != 0 ) { + return; /* thenの次から継続実行する */ + } + /* 条件不成立につき、行末まで読み飛ばす */ + executionPointer = skipToEOL( executionPointer ); +} + +void printOrDebug( BOOL bPrint ) +{ + WORD lastChar; + BYTE ch; + lastChar = '\0'; + while( TRUE ) { + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == EOL || ch == ':' || ch == '\'' ) { + executionPointer--; /* unget it */ + break; + } + lastChar = ch; + switch( ch ) { + case 0x03: + if( bPrint ) { + ptextString( executionPointer ); + } else { + commonPrint( NULL, executionPointer ); + } + while( TRUE ) { + ch = *executionPointer++; + if( ch == '\0' ) break; + } + break; + case ';': + break; + case ',': + if( bPrint ) { + ptextTab(); + } else { + commonPrint( NULL, "\t" ); + } + break; + case KEYWORD_CHR: + { + WORD val; +#ifdef WW + static +#endif + BYTE str[3]; + val = expr(); + if( bForceToReturnSuper ) return; + if( val >= 0x100 ) { + str[0] = (val >> 8); + str[1] = (val & 0xff); + str[2] = '\0'; + } else { + str[0] = (BYTE)val; + str[1] = '\0'; + } + if( bPrint ) { + ptextString( str ); + } else { + commonPrint( NULL, str ); + } + } + break; + default: + { + WORD val; +#ifdef WW + static +#endif + BYTE str[10]; + executionPointer--; /* unget it */ + val = expr(); + if( bForceToReturnSuper ) return; + sprintf( str, "%d", val ); + if( bPrint ) { + ptextString( str ); + } else { + commonPrint( NULL, str ); + } + } + break; + } + } + if( lastChar != ';' && lastChar != ',' ) { + if( bPrint ) { + ptextNewline(); + } else { + commonPrint( NULL, "\r\n" ); + } + } +} + +void st_print() +{ + printOrDebug( TRUE ); +} + +void st_debug() +{ + printOrDebug( FALSE ); +} + +void st_locate() +{ + SHORT x, y; + BYTE ch; + x = expr(); + if( bForceToReturnSuper ) return; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != ',' ) { + syntaxError(); + return; + } + y = expr(); + if( bForceToReturnSuper ) return; + ptextLocate( x, y ); +} + +void st_cls() +{ + ptextCLS(); +} + +void st_goto() +{ + SHORT val; + BYTE * t; + val = expr(); + if( bForceToReturnSuper ) return; + t = getLineReferenceFromLineNumber( val ); + if( t == NULL ) { + lineNumberNotFound( val ); + return; + } + executionPointer = t; + bInteractive = FALSE; + processLineHeader(); +} + +void st_gosub() +{ + SHORT val; + BYTE * t; + val = expr(); + if( bForceToReturnSuper ) return; + t = getLineReferenceFromLineNumber( val ); + if( t == NULL ) { + lineNumberNotFound( val ); + return; + } + if( stackPointer+1 >= STACK_MAX ) { + stackOverflow(); + return; + } + stacks[stackPointer].type = STACK_TYPE_GOSUB; + stacks[stackPointer].returnPointer = executionPointer; + stacks[stackPointer].lastLocalVariables = localVariables; + localVariables = stacks[stackPointer].simpleVariables; + stackPointer++; + executionPointer = t; + bInteractive = FALSE; + processLineHeader(); +} + +void st_return() +{ + while( TRUE ) { + if( stackPointer == 0 ) { + stackUnderflow(); + return; + } + stackPointer--; + if( stacks[stackPointer].type == STACK_TYPE_GOSUB ) break; + } + executionPointer = stacks[stackPointer].returnPointer; + if( executionPointer >= waCoockedLine && executionPointer < waCoockedLine+LINE_SIZE ) { + bInteractive = TRUE; + } + localVariables = stacks[stackPointer].lastLocalVariables; +} + +void st_for() +{ + BYTE ch; + SHORT from, to, step; + SHORT * pvar; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == '@' ) { /* is it l-value? */ + pvar = getArrayReference(); + if( pvar == NULL ) return; + } else if( ch >= 'A' && ch <= 'Z' ) { + pvar = &globalVariables[ch-'A']; + } else if( ch >= 'a' && ch <= 'z' ) { + pvar = &localVariables[ch-'a']; + } else { + syntaxError(); + return; + } + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != '=' ) { + syntaxError(); + return; + } + from = expr(); + if( bForceToReturnSuper ) return; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != KEYWORD_TO ) { + syntaxError(); + return; + } + to = expr(); + if( bForceToReturnSuper ) return; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == KEYWORD_STEP ) { + step = expr(); + if( bForceToReturnSuper ) return; + } else { + step = 1; + executionPointer--; /* unget it */ + } + + if( stackPointer+1 >= STACK_MAX ) { + stackOverflow(); + return; + } + stacks[stackPointer].type = STACK_TYPE_FOR; + stacks[stackPointer].returnPointer = executionPointer; + *pvar = from; + stacks[stackPointer].pvar = pvar; + stacks[stackPointer].limit = to; + stacks[stackPointer].step = step; + stackPointer++; +} + +void st_next() +{ + if( stackPointer == 0 ) { + nextWithoutFor(); + return; + } + if( stacks[stackPointer-1].type != STACK_TYPE_FOR ) { + nextWithoutFor(); + return; + } + if( stacks[stackPointer-1].limit == *(stacks[stackPointer-1].pvar) ) { + /* loop done */ + stackPointer--; + return; + } + /* count step and loop again */ + *(stacks[stackPointer-1].pvar) += stacks[stackPointer-1].step; + executionPointer = stacks[stackPointer-1].returnPointer; +} + +/* endステートメント:　正常な終了 */ +void st_end() +{ + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; +} + +/* breakステートメント:　デバッグ用の中断 */ +void st_break() +{ + commonPrint(NULL, "Break in %d\x07\n", currentLineNumber); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; + resumePointer = executionPointer; /* contする場所はbreakの次。breakのみの例外処理 */ +} + +void st_rem() +{ + executionPointer = skipToEOL( executionPointer ); +} + +void st_new() +{ + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_NEW; +} + +void st_list() +{ + WORD from, to; + BYTE ch; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == ':' || ch == EOL || ch == '\'' ) { + executionPointer--; /* unget */ + from = 1; + to = 32767; + } else { + if( ch == 0x01 ) { + from = *((WORD*)executionPointer); + executionPointer += 2; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + } else { + from = 1; + } + if( ch != '-' ) { + executionPointer--; /* unget */ + to = from; + } else { + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == 0x01 ) { + to = *((WORD*)executionPointer); + executionPointer += 2; + } else { + executionPointer--; /* unget */ + to = 32767; + } + } + } + sourceDump( NULL, from, to ); /* リスト出力の本体を呼ぶ */ +} + +void st_run() +{ + BYTE ch; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == ':' || ch == EOL || ch == '\'' ) { + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_RUN_LINENUMBER; + runLineNumber = 0; + } else if( ch == 0x03 ) { + strcpy( waRawLine, executionPointer ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_RUN_FILE; + } else { + SHORT val; + executionPointer--; /* unget it */ + val = expr(); + if( bForceToReturnSuper ) return; + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_RUN_LINENUMBER; + runLineNumber = val; + } +} + +void st_cont() +{ + if( resumePointer == NULL ) { + cantContinue(); + return; + } + executionPointer = resumePointer; + bInteractive = FALSE; +} + +void st_save() +{ + BYTE ch; + BOOL b; + FILE FAR * fp; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch != 0x03 ) { + syntaxError(); + return; + } + fp = fopen( executionPointer, "w" ); + if( fp == NULL ) { + saveError(); + return; + } + b = sourceDump( fp, 1, 32767 ); + fclose( fp ); + if( b == FALSE ) { + saveError(); + remove( executionPointer ); + return; + } + + executionPointer += strlen(executionPointer)+1; +} + +void st_load() +{ + BYTE ch; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == 0x03 ) { + strcpy( waRawLine, executionPointer ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_LOAD_FILE; + } else { + syntaxError(); + return; + } +} + +void st_merge() +{ + BYTE ch; + while( TRUE ) { + ch = *executionPointer++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == 0x03 ) { + strcpy( waRawLine, executionPointer ); + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_MERGE_FILE; + } else { + syntaxError(); + return; + } +} + +void st_randomize() +{ + SHORT val; + val = expr(); + srand( val ); +} + +void st_exit() +{ + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_EXIT_SYSTEM; +} + +void st_waitvb() +{ + SHORT val; + val = expr(); + if( bForceToReturnSuper ) return; + if( val < 0 || val > 750 ) { + paramError(); + return; + } +#ifdef WW + sys_wait( val ); +#endif +#ifdef WIN32 + win32_sys_wait( val ); +#endif +} + +void st_files() +{ +#ifdef WIN32 + commonPrint( NULL, "files statement not implemented in Win32\x07\n" ); +#endif +#ifdef WW + int i; + struct stat statbuf; + int nent; + + /*chdir("/rom0");*/ + nent = nument(NULL); + + for (i = 0; i < nent; i++) { + int result = getent(NULL, i, &statbuf); + if (result == E_FS_SUCCESS) { + if (statbuf.count != -1) { + /* Freya OSのバグ?　回避コード */ + int p, q; + p = 0; + q = 0; + waRawLine[p++] = '"'; + while( TRUE ) { + if( statbuf.name[q] == '\0' ) break; + waRawLine[p++] = statbuf.name[q++]; + } + waRawLine[p++] = '"'; + waRawLine[p++] = ','; + q = 0; + while( TRUE ) { + if( statbuf.info[q] == '\0' ) break; + waRawLine[p++] = statbuf.info[q++]; + } + waRawLine[p++] = '\0'; + commonPrint( NULL, "%s,%ld,%d\n", waRawLine, statbuf.len, statbuf.count ); + } + } else { + commonPrint( NULL, "*File Access Error\x07\n" ); + } + } +#endif +} + +/* 行エディタ */ +void editLine() +{ + WORD wishLineNumber; + BYTE ch, * p, * target; + /* トリックに注意! */ + /* 行頭の整数を、行番号に変換するには結果的に先頭の0x01を取り去るだけで良い */ + MEMMOVE( waCoockedLine, waCoockedLine+1, LINE_SIZE-1 ); + /* トリック終わり。この時点でwsCoockedLineは、プログラム内部表現の形式に一致している */ + wishLineNumber = *((WORD*)waCoockedLine); + p = waCoockedLine+2; + target = getLineReferenceFromLineNumber( wishLineNumber ); + while( TRUE ) { + ch = *p++; + if( ch != ' ' && ch != '\t' ) break; + } + if( ch == EOL ) { + WORD delta; + BYTE * from; + /* removing the line */ + if( target == NULL ) { + lineNumberNotFound( wishLineNumber ); + return; + } + from = skipToEOL(target)+1; + delta = from-target; + MEMMOVE( target, from, (WORD)(dataTop-(from-wa)) ); + dataTop -= delta; + clearRuntimeInfo(); + } else { + WORD len; + len = skipToEOL(waCoockedLine+2)-waCoockedLine+1; + if( target == NULL ) { + /* insert new line */ + /*const BYTE * to;*/ + if( dataTop + len >= WORKAREA_SIZE ) { + outOfMemory(); + return; + } + target = getInsertionPointFromLineNumber( wishLineNumber ); + /* to = skipToEOL(target)+1; */ + MEMMOVE( target+len, target, (WORD)(dataTop-(target-wa)) ); + MEMMOVE( target, waCoockedLine, len ); + dataTop += len; + clearRuntimeInfo(); + } else { + /* replace line */ + WORD lost; + BYTE * nextline; + int delta; + nextline = skipToEOL(target)+1; + lost = nextline-target; + delta = len-lost; + if( dataTop + delta >= WORKAREA_SIZE ) { + outOfMemory(); + return; + } + MEMMOVE( nextline+delta, nextline, (WORD)(dataTop-(nextline-wa)) ); + MEMMOVE( target, waCoockedLine, len ); + dataTop += delta; + clearRuntimeInfo(); + } + } +} + +/* 中間言語に翻訳する */ +BOOL convertInternalCode( BYTE * waCoockedLine, const BYTE * waRawLine ) +{ + const BYTE * src = waRawLine; + BYTE * dst = waCoockedLine; + while( TRUE ) { + if( *src == '\0' ) break; + if( *src == ' ' || *src == '\t' ) { + *dst++ = *src++; + } else if( *src < 0x20 ) { + syntaxError(); + return FALSE; + } else if( *src >= '0' && *src <= '9' ) { + if( *src == '0' && *(src+1) == 'x' ) { + WORD acc; + /* 16進のとき */ + *dst++ = 0x02; + acc = 0; + src += 2; + while( TRUE ) { + if( *src >= '0' && *src <= '9' ) { + acc *= 16; + acc += *src - '0'; + } else if( *src >= 'a' && *src <= 'f' ) { + acc *= 16; + acc += *src - 'a' + 10; + } else if( *src >= 'A' && *src <= 'F' ) { + acc *= 16; + acc += *src - 'A' + 10; + } else { + break; + } + src++; + } + *((WORD*)dst) = acc; + dst += 2; + } else { + SHORT acc; + /* 10進のとき */ + *dst++ = 0x01; + acc = *src-'0'; + src++; + while( TRUE ) { + if( *src < '0' || *src > '9' ) break; + acc *= 10; + acc += *src - '0'; + src++; + } + if( acc < 0 ) { /* overflow case */ + syntaxError(); + return FALSE; + } + *((SHORT*)dst) = acc; + dst += 2; + } + } else if( (*src >= 'a' && *src <= 'z') || (*src >= 'A' && *src <= 'Z') ) { + BYTE next = *(src+1); + if( (next >= 'a' && next <= 'z') || (next >= 'A' && next <= 'Z') ) { + WORD id; + KEYWORDITEM * p = keywords; + id = 0; + while( TRUE ) { + const BYTE * ps, * pd; + if( p->id == 0 ) { + syntaxError(); + return FALSE; + } + ps = src; + pd = p->name; + while( TRUE ) { + if( *pd == '\0' ) { + id = p->id; + src = ps; + break; + } + if( mytolower(*ps) != mytolower(*pd) ) break; + ps++; + pd++; + } + if( id != 0 ) break; + p++; + } + *dst++ = (BYTE)id; + if( id == KEYWORD_REM ) { + /* コメント文の場合は行末まで何もかもそのままコピーする */ + while( TRUE ) { + if( *src == '\0' ) break; + *dst++ = *src++; + } + } + } else { + *dst++ = *src++; + } + } else if( *src == '\'' ) { + *dst++ = *src++; + /* コメント文の場合は行末まで何もかもそのままコピーする */ + while( TRUE ) { + if( *src == '\0' ) break; + *dst++ = *src++; + } + } else if( *src == '"' ) { + src++; + *dst++ = 0x03; + while( TRUE ) { + if( *src == '\0' ) { + syntaxError(); + return FALSE; + } + if( *src == '"' ) break; + *dst++ = *src++; + } + *dst++ = '\0'; + src++; + } else { + *dst++ = *src++; + } + } + *dst = EOL; + return TRUE; +} + +/* ステートメント実行処理関数のリスト */ + +NEARPROC statements[KEYWORDS_STATEMENT_TO-KEYWORDS_STATEMENT_FROM+1] = { + st_if, + st_print, + st_locate, + st_cls, + st_goto, + st_gosub, + st_return, + st_for, + st_next, + st_end, + st_break, + st_rem, + st_new, + st_list, + st_run, + st_cont, + st_save, + st_load, + st_merge, + st_randomize, + st_exit, + st_debug, + st_waitvb, + st_files +}; + +void interpreterMain() +{ + WORD keyscan; + while( TRUE ) { + /* 行の開始 */ + processLineHeader(); + /* 最後に達してしまった? */ + if( !bInteractive && currentLineNumber == 0 ) { + bForceToReturnSuper = TRUE; + requestNextAction = REQUEST_INTERACTIVE; + return; + } + + while( TRUE ) { + BYTE ch; + if( !bInteractive ) { + resumePointer = executionPointer; /* contする場所を記憶する */ + } + +#ifdef WW + keyscan = key_press_check(); +#else + keyscan = win32_scan(); +#endif + if( keyscan & 0x02 ) { + st_break(); + return; + } + + ch = *executionPointer++; + if( ch == EOL ) break; + if( ch == ' ' || ch == '\t' || ch == ':' ) { + /* nop */ + } else if( ch == '\'' ) { /* comment */ + st_rem(); + } else if( ch == '@' ) { /* is it l-value? */ + SHORT * pvar; + pvar = getArrayReference(); + if( pvar == NULL ) return; + st_assignment( pvar ); + } else if( ch >= 'A' && ch <= 'Z' ) { + st_assignment( &globalVariables[ch-'A'] ); + } else if( ch >= 'a' && ch <= 'z' ) { + st_assignment( &localVariables[ch-'a'] ); + } else if( ch >= KEYWORDS_STATEMENT_FROM && ch <= KEYWORDS_STATEMENT_TO ) { + (*(statements[ch-KEYWORDS_STATEMENT_FROM]))(); + } else { + syntaxError(); + } + if( bForceToReturnSuper ) return; + } + if( bInteractive ) return; + } +} + +void interactiveMain( FILE FAR * fp ) +{ + if( fp == NULL ) { + commonPrint(NULL,"*Ready\n"); + } + while( TRUE ) { + BOOL b; + if( fp == NULL ) { + consoleInput( waRawLine, LINE_SIZE ); + } else { + char FAR * r; + char * p; + r = fgets( waRawLine, LINE_SIZE, fp ); + if( r == NULL ) break; + p = waRawLine; + while( TRUE ) { + if( *p == '\0' ) break; + if( *p == '\n' || *p == '\r') { + *p = '\0'; + break; + } + p++; + } + } +#ifdef WW + if( fp == NULL ) { + commonPrint( NULL, "\r\n" ); + } +#endif + /* 中間言語に翻訳する */ + b = convertInternalCode( waCoockedLine, waRawLine ); + if( b == FALSE ) { + bForceToReturnSuper = FALSE; + continue; + } + /* 数値で開始されているか? */ + if( waCoockedLine[0] == 0x01 ) { + /* 行エディタを呼び出す */ + editLine(); + } else { + /* その行を実行する */ + executionPointer = waCoockedLine; + interpreterMain(); + } + if( bForceToReturnSuper ) return; + } +} + +/* プログラムの実行開始 */ +void do_run( WORD runLineNumber ) +{ + BYTE * target; + if( runLineNumber == 0 ) { + target = &wa[codeTop]; + } else { + target = getLineReferenceFromLineNumber( runLineNumber ); + if( target == NULL ) { + lineNumberNotFound( runLineNumber ); + return; + } + } + clearRuntimeInfo(); + bInteractive = FALSE; + executionPointer = target; +} + +void do_new() +{ + clearRuntimeInfo(); + bInteractive = TRUE; + codeTop = 0; + wa[0] = 0; + wa[1] = 0; + wa[2] = EOL; + dataTop = 3; +} + +BOOL do_merge( const BYTE * filename ) +{ + FILE FAR * fp; + fp = fopen( filename, "r" ); + if( fp == NULL ) { + loadError(); + return FALSE; + } + interactiveMain( fp ); + fclose( fp ); + if( bForceToReturnSuper ) return FALSE; + return TRUE; +} + +void superMain() +{ + while( TRUE ) { + BOOL b; + bForceToReturnSuper = FALSE; + switch( requestNextAction ) { + case REQUEST_INTERACTIVE: + bInteractive = TRUE; + break; + case REQUEST_RUN_LINENUMBER: + do_run( runLineNumber ); + break; + case REQUEST_RUN_FILE: + do_new(); + b = do_merge( waRawLine ); + if( b ) { + do_run( 0 ); + } + break; + case REQUEST_LOAD_FILE: + do_new(); + do_merge( waRawLine ); + break; + case REQUEST_MERGE_FILE: + do_merge( waRawLine ); + break; + case REQUEST_NEW: + do_new(); + break; + case REQUEST_EXIT_SYSTEM: + return; + } + requestNextAction = REQUEST_NO_ACTION; + if( bInteractive ) { + if( runtimeOnly ) return; /* ランタイムモードのときは絶対にインタラクティブモードに行かない */ + interactiveMain( NULL ); + } else { + interpreterMain(); + } + bForceToReturnSuper = FALSE; + } +} + +#ifdef WW +BOOL entranceUI() +{ +#define MAX_ENT 15 + /* この関数内のstaticはTurbo-C 2.0のSS!=DS問題を回避するために必要なもの */ + static int i; + struct stat statbuf; + static char names[MAX_ENT][MAXFNAME]; + static int nent; + static int c, select; + + ptextCLS(); + ptextString( "ワンべぇ V" ); + ptextString( myVersion ); + ptextNewline(); + ptextString( "↑↓Aでファイル選択 Y2で開発環境 STARTで中止" ); + + c = 0; + nent = nument(NULL); + + for (i = 0; i < nent; i++) { + int result; + if( c >= MAX_ENT ) break; + result = getent(NULL, i, &statbuf); + if (result == E_FS_SUCCESS) { + if (statbuf.count != -1) { + /* Freya OSのバグ?　回避コード */ + { + static int p; + int q; + p = 0; + q = 0; + waRawLine[p++] = statbuf.info[q++]; + waRawLine[p++] = statbuf.info[q++]; + while( TRUE ) { + if( statbuf.info[q] == '\0' ) break; + waRawLine[p++] = statbuf.info[q++]; + } + waRawLine[p++] = '\0'; + ptextLocate(1,c+2); + ptextString( waRawLine ); + } + { + static int r; + int q; + q = 0; + r = 0; + while( TRUE ) { + if( statbuf.name[q] == '\0' ) break; + names[c][r++] = statbuf.name[q++]; + } + names[c][r] = '\0'; + } + c++; + } + } + } + /* 選択の開始 */ + select = 0; + while( TRUE ) { + int key; + for( i=0; i= c ) { + select = 0; + } + } + if( (key & 0x200) != 0 ) { + return TRUE; + } + } +} +#endif + +int main( int argc, char *argv[] ) +{ +#ifdef WW + BOOL b; +#endif + runtimeOnly = FALSE; + requestNextAction = REQUEST_NO_ACTION; +#ifdef WIN32 + createText(); +#endif +#ifdef WW + text_screen_init(); + b = entranceUI(); + if( b == FALSE ) return 0; + if( !runtimeOnly ) { + comm_set_baudrate(1); + comm_open(); + } +#endif + ptextCLS(); + if( requestNextAction == REQUEST_NO_ACTION ) { + do_new(); + } + if( !runtimeOnly ) { + commonPrint(NULL,"ワンべぇ WonderWitch Tiny BASIC Environment Ver %s\n",myVersion); + commonPrint(NULL,"Copyright 2000 (c) by Pie Dey Co.,Ltd.\n"); + } + superMain(); +#ifdef WIN32 + deleteText(); +#endif +#ifdef WW + if( !runtimeOnly ) { + comm_close(); + } +#endif + return 0; +} + +/* end of wonbe.c */ diff --git a/wonbe.cf b/wonbe.cf new file mode 100644 index 0000000..952b04c --- /dev/null +++ b/wonbe.cf @@ -0,0 +1 @@ +name: wonbe info: ワンべぇ mode: 7 source: wonbe.bin output: wonbe.fx \ No newline at end of file diff --git a/wonbe.dsp b/wonbe.dsp new file mode 100644 index 0000000..e4b2825 --- /dev/null +++ b/wonbe.dsp @@ -0,0 +1,112 @@ +# Microsoft Developer Studio Project File - Name="wonbe" - Package Owner=<4> +# Microsoft Developer Studio Generated Build File, Format Version 6.00 +# ** 編集しないでください ** + +# TARGTYPE "Win32 (x86) Console Application" 0x0103 + +CFG=wonbe - Win32 Debug +!MESSAGE これは有効なﾒｲｸﾌｧｲﾙではありません。 このﾌﾟﾛｼﾞｪｸﾄをﾋﾞﾙﾄﾞするためには NMAKE を使用してください。 +!MESSAGE [ﾒｲｸﾌｧｲﾙのｴｸｽﾎﾟｰﾄ] ｺﾏﾝﾄﾞを使用して実行してください +!MESSAGE +!MESSAGE NMAKE /f "wonbe.mak". +!MESSAGE +!MESSAGE NMAKE の実行時に構成を指定できます +!MESSAGE ｺﾏﾝﾄﾞ ﾗｲﾝ上でﾏｸﾛの設定を定義します。例: +!MESSAGE +!MESSAGE NMAKE /f "wonbe.mak" CFG="wonbe - Win32 Debug" +!MESSAGE +!MESSAGE 選択可能なﾋﾞﾙﾄﾞ ﾓｰﾄﾞ: +!MESSAGE +!MESSAGE "wonbe - Win32 Release" ("Win32 (x86) Console Application" 用) +!MESSAGE "wonbe - Win32 Debug" ("Win32 (x86) Console Application" 用) +!MESSAGE + +# Begin Project +# PROP AllowPerConfigDependencies 0 +# PROP Scc_ProjName "" +# PROP Scc_LocalPath "" +CPP=cl.exe +RSC=rc.exe + +!IF "$(CFG)" == "wonbe - Win32 Release" + +# PROP BASE Use_MFC 0 +# PROP BASE Use_Debug_Libraries 0 +# PROP BASE Output_Dir "Release" +# PROP BASE Intermediate_Dir "Release" +# PROP BASE Target_Dir "" +# PROP Use_MFC 0 +# PROP Use_Debug_Libraries 0 +# PROP Output_Dir "Release" +# PROP Intermediate_Dir "Release" +# PROP Target_Dir "" +# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /c +# ADD CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /FR /YX /FD /c +# ADD BASE RSC /l 0x411 /d "NDEBUG" +# ADD RSC /l 0x411 /d "NDEBUG" +BSC32=bscmake.exe +# ADD BASE BSC32 /nologo +# ADD BSC32 /nologo +LINK32=link.exe +# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 +# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386 + +!ELSEIF "$(CFG)" == "wonbe - Win32 Debug" + +# PROP BASE Use_MFC 0 +# PROP BASE Use_Debug_Libraries 1 +# PROP BASE Output_Dir "Debug" +# PROP BASE Intermediate_Dir "Debug" +# PROP BASE Target_Dir "" +# PROP Use_MFC 0 +# PROP Use_Debug_Libraries 1 +# PROP Output_Dir "Debug" +# PROP Intermediate_Dir "Debug" +# PROP Target_Dir "" +# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /YX /FD /GZ /c +# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /FR /YX /FD /GZ /c +# ADD BASE RSC /l 0x411 /d "_DEBUG" +# ADD RSC /l 0x411 /d "_DEBUG" +BSC32=bscmake.exe +# ADD BASE BSC32 /nologo +# ADD BSC32 /nologo +LINK32=link.exe +# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept +# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept + +!ENDIF + +# Begin Target + +# Name "wonbe - Win32 Release" +# Name "wonbe - Win32 Debug" +# Begin Group "Source Files" + +# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat" +# Begin Source File + +SOURCE=.\win32text.c +# End Source File +# Begin Source File + +SOURCE=.\wonbe.c +# End Source File +# End Group +# Begin Group "Header Files" + +# PROP Default_Filter "h;hpp;hxx;hm;inl" +# Begin Source File + +SOURCE=.\keywords.h +# End Source File +# Begin Source File + +SOURCE=.\win32text.h +# End Source File +# End Group +# Begin Group "Resource Files" + +# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe" +# End Group +# End Target +# End Project diff --git a/wonbe.dsw b/wonbe.dsw new file mode 100644 index 0000000..fa22673 --- /dev/null +++ b/wonbe.dsw @@ -0,0 +1,29 @@ +Microsoft Developer Studio Workspace File, Format Version 6.00 +# 警告: このﾜｰｸｽﾍﾟｰｽ ﾌｧｲﾙ を編集または削除しないでください! + +############################################################################### + +Project: "wonbe"=.\wonbe.dsp - Package Owner=<4> + +Package=<5> +{{{ +}}} + +Package=<4> +{{{ +}}} + +############################################################################### + +Global: + +Package=<5> +{{{ +}}} + +Package=<3> +{{{ +}}} + +############################################################################### + diff --git a/wonbe.exe b/wonbe.exe new file mode 100644 index 0000000..a89cd1d Binary files /dev/null and b/wonbe.exe differ diff --git a/wonbe.fx b/wonbe.fx new file mode 100644 index 0000000..630e012 Binary files /dev/null and b/wonbe.fx differ diff --git a/wonbe.txt b/wonbe.txt new file mode 100644 index 0000000..2a58ec7 --- /dev/null +++ b/wonbe.txt @@ -0,0 +1,226 @@ +ワンべぇ: WONBE, WonderWitch BASIC Environment + 暫定マニュアル Ver 0.01 + 2000年11月6日 + 株式会社ピーデー + 川俣　晶 + Copyright 2000 (c) by Pie Dey Co.Ltd. + +●これは何か? +　ワンべぇは、WonderWitch上で使用できる小型BASICインタプリタです。 +　WonderWitch上ですべての機能が稼働し、シリアルケーブル経由で接続された一般の通信ソフトで操作します。デバッグ済みのプログラムを実行する場合は、シリアルケーブルも通信ソフトも必要ありません。 +　WonderWitchのテキスト画面を扱う最小限度のステートメント(cls,locate,print)と、最小限度のボタン入力機能(wait,scan)を持ち、簡易なミニゲームが書けます。 +　動作テスト用にWin32上で動くバイナリーもありますが、これは、BASIC本体の動作確認用と割り切ってください。 + +●必要なもの +・開発時 +　WonderWitchのカートリッジとシリアルケーブル。38400bpsの無手順通信が可能な通信ソフトを持つパソコン等。 +・実行時 +　ワンべぇと実行したプログラムを入れてあるWonderWitchのカートリッジのみ + +●準備 +・TransMagicなどでワンべぇ(fonbe.fx)をWonderWitchに転送します。 +・TransMagicなどの接続を切り、通信ソフトから38400bpsの無手順通信を開始します +・WonderWitch上でワンべぇを実行します +・エントランスメニュー画面でY2を押します +・通信ソフトに、ワンべぇの名前が表示され、"*Ready"と出ます +・これで準備完了です +・print "hello!"リターンと打ってWonderWitchの画面を見てください。文字が出ていれば正常です。 + +●開発済みプログラムの実行 +・WonderWitch上でワンべぇを実行します +・エントランスメニュー画面で実行したいファイルを選んでAボタンを押します + +●開発環境の概要 +　通常の行番号ベースのエディタが使えます。 +　行番号に引き続いて1行を入力してリターンを押すと、プログラムに記録されます。 +　行番号だけを入力してリターンを押すとその行は削除されます。 +　行番号無しで命令を入力すると即座に実行されます。 +　編集はバックスペースによる1文字削除しか使えません。通信ソフトからホスト上のエディタにCOPY&PASTEして、エディタ上で編集してから、通信ソフトに貼り付けてワンべぇに送ると便利です。ただし、フロー制御が無いので、複数行まとめて貼り付けると文字落ちが生じます。張り付けは1行単位で行ってください。プログラムはホスト上で編集してあらかじめTransMagicなどで送信しておくのも有効な手段です。 +　現状では2Kバイト以上のプログラムを作成してもsaveコマンドで保存できません。listコマンドを実行してから通信ソフト上でCOPY&PASTEしてホスト上に保存してください。 +　実行中は、STARTボタンを押すといつでも対話モードに戻れます。その後、contステートメントで実行を継続できます。 +　中間言語に翻訳してから処理するため、中間言語に翻訳できない場合は、入力直後にエラーが出ます。 + +●言語の概要 +　ごく軽いBASIC言語です。 +　昔あったTiny BASICに近い構文を持っています。 +　データ型は、符号付き16bit整数だけです。 +　定数は、-32768〜32767の10進数か、0x0000〜0xffffの16進数で記述できます。 +　変数は、グローバル変数として、A〜Zのアルファベット大文字1文字のものが26個あります。 +　ローカル変数として、a〜zのアルファベット子文字1文字のものが26個あります。ローカル変数はgosubステートメントを実行したときに新しい領域が割り当てられ、returnステートメントを実行したときにgosubする前の領域が戻ってきます。 +　配列変数は@(インデックス)という形式の1次元配列だけが使用できます。使用可能なサイズは、プログラム記憶領域(48Kバイト)の残りサイズに等しくなります。インデックスは0から始まります。(例: for i=0 to 9:print @(i):next) +　演算子の優先順位はありません。(1+2*3は9になります) +　計算順序は、括弧()を使って明示的にコントロールしてください。 +　オーバーフロー、アンダーフローのチェックはありません。溢れは無視されます。ただしゼロ除算はエラーになります。 +　ステートメントなどのキーワードはすべてアルファベット小文字で入力します。大文字を使っても小文字になります。 + +●　ステートメント一覧 + +変数 = 式 +　式を計算して変数に代入します。letキーワードはサポートしていません。 +例: a=b+c + +if 式 then ステートメント列 +　式が0でなければステートメント列を実行します。0なら次の行から実行を継続します。elseはありません。 +例: if (a=0) and (b=1) then goto 200 + +print [文字列|式|chr(式)][,|;]... +　WonderWitchのテキスト画面の現在のカーソル位置から文字を表示します。 +　式の前後に空白文字が入ることはありません。 +　chr(式)は、式の値を文字コードと見なして表示します。 +　制御コードは扱いませんので、WonderWitchのキャラクタージェネレータにあるすべての文字が表示できます。 +　区切り文字の;は何もしません。,はタブストップ位置までカーソルを進めます。 +　print文の最後は;または,で終わった場合は改行しません。 +例: print "計算結果=",chr(34);1+2;chr(34) + +locate 式,式 +　WonderWitchのテキスト画面の現在のカーソル位置を設定します。引数はx,yの順番です。 +例: locate 10,10 + +cls +　WonderWitchのテキスト画面を消去します。 +例: cls + +goto 式 +　式の行番号に飛びます。計算型goto文が可能です。つまり、goto A*100とすると、Aが1のきは100行目に。2のときは200行目に飛びます。 +例: goto 100 + +gosub 式 +　スタックに現在位置とローカル変数を積んで、式の行番号に飛びます。gotoと同じく計算型gosubが可能です。 +　スタックはforと合わせて8レベルまでです。 +例: gosub 100 + +return +　gosubがスタックに積んだ情報を取り出して、そこに処理を戻す。ローカル変数も戻る。 +例: return + +for 変数=式 to 式 +for 変数=式 to 式 step 式 +　変数の値を変化させながらnextまで繰り返します。 +　終了値は厳密であることに注意が必要です。for i=1 to 2 step 2:nextは、無限ループになります。なぜなら変数iは永遠に2にならないからです。このような仕様にしておかないと、終了値を超えたら終わるという判定だと、ループの終値が32767のときに機能しないためです。 +例: for i=0 to 10 step 2 + +next +　forステートメントの位置に戻って動作を繰り返します。forステートメントで示した条件が満たされた場合は、nextの次に動作が進みます。nextの後に変数名を書くとエラーになります。 +例: next + +end +　プログラムの実行を終了します。 + +break +　その位置で一時的に実行を中断します。contステートメントで実行を継続できます。 + +rem 文字列 +'文字列 +　コメントを記述します。後ろに:を置いてステートメントを続けることはできません。 +例: rem これはテストプログラムです。 +例: 'この式が座標を計算します + +new +　メモリ上のプログラムを消去します。 + +list [行番号][-][行番号] +　指定範囲の行番号のプログラムをリストします。すべて省略すると全行をリストします。 + +run +run 式 +run 文字列 +　プログラムを実行します。それに先だって変数やスタックがクリアされます。 +　runはメモリ上のプログラムを先頭から。run 式は、式の行番号から。run 文字列は文字列のファイルを読み込んでそれを実行します。 +例: run +例: run 100 +例: run "test.wb" + +cont +　breakステートメントやSTARTボタンによるブレークによって停止した位置から実行を再開します。 + +save 文字列 +　文字列をファイル名としてメモリ上のプログラムを保存します。保存されるのは内部表現ではなくテキスト形式です。 +　現在はWonderWitchのファイルシステムの制約上、2Kバイトを超えるファイルを保存できません。listコマンドで端末にリストを送ってそれをCOPY&PASTEして保存してください。 +例: save "hello.wb" + +load 文字列 +　文字列をファイル名としてファイルからプログラムを読み込みます。読み込むのはテキスト形式で、改行はCRLFとLFのどちらでも可です。中間言語に翻訳できない行がある場合はそこで読み込みが中断されます。プログラムの実行中に使用した場合は実行は中断されます。 +例: load "hello.wb" + +merge 文字列 +　メモリ上のプログラムにファイル上のプログラムを混ぜ合わせます。同じ行番号の行は読み込まれる方が優先されます。中間言語に翻訳できない行がある場合はそこで読み込みが中断されます。プログラムの実行中に使用した場合は実行は中断されます。 +例: load "merge.wb" + +randomize 式 +　乱数の初期値を指定します。これを使わないと必ず同じ順序で乱数が発生します。引数には、システム変数tickを指定すると最適です。 +例: randomize tick + +exit +　ワンべぇを抜けてOSに戻ります。 + +debug [文字列|式|chr(式)][,|;]... +　printステートメントと同等ですが、WonderWitchの画面ではなく、シリアルポートに送ります。単体で実行する場合には使えないデバッグ専用の機能です。 + +waitvb 式 +　式の回数だけVBLANKを待ちます。待っている間はSTARTボタンによるブレークを受け付けなくなるので、指定できる値は750までと制限されています。750を超える値を指定するとエラーになります。 +例: waitvb 75 + +files +　カレントディレクトリのファイル一覧をシリアルポートに送ります。単体で実行する場合には使えないデバッグ専用の機能です。 + +●　2項演算子 +　+ - * / < > = <= >= <> and or xor + +●　単項演算子 +　- not + +●　関数 + +rnd(式) +　0から式-1までの範囲の乱数を返します。 + +abs(式) +　式の絶対値を返します。 + +●　システム変数 (読み出しのみ) + +scan +　WonderSwanのボタンの状態を調べ、1個の整数値として返します。SCAN_で始まるシステム変数とandを取ることで、どのボタンが押されているかどうか判定できます。STARTボタンは実行中断になるので、これは扱えません。 + +wait +　WonderSwanのボタンが押されるまで待ち、その状態を1個の整数値として返します。SCAN_で始まるシステム変数とandを取ることで、どのボタンが押されたか判定できます。STARTボタンは実行中断になるので、これは扱えません。 + +scan_a +scan_b +scan_x1 +scan_x2 +scan_x3 +scan_x4 +scan_y1 +scan_y2 +scan_y3 +scan_y4 +　それぞれのボタンのマスク値を示す定数を返します。 +　Aボタンが押されているかどうかを調べるには、下記の例のように記述します。 +例: if scan and scna_a then print "Aボタンが押さている" + +tick +　システムタイマーのtickを返します。ただし、本来のtick値は符号無し32bit整数であり、ここで得られるのは16bit符号あり整数であることに注意が必要です。はみ出たbitは捨てられます。 + +●　ファイル保存時の拡張子 +　一応、ワンべぇのソースフィルは、".wb"で終わるファイル名にしておいて下さい。現在エントランスメニューには全ファイルが見えていますが、".wb"で終わるファイル名だけに限定しようかと考えています。 + +●　配布規則 +　現バージョンは品質が不明のテスト版です。 +　ですので、以下のように扱ってください。 +　(正規版でどうするかは未定です) + +・転載 +　未完成品ですので、Internetやパソコン通信などへの転載は不可です。必ずhttp://www.piedey.co.jp/のサイトから入手するようにしてください。 +・雑誌掲載等 +　ご相談下さい。 +・商業利用 +　ご相談下さい。 +・自作ソフトの実行手段としてのワンべぇの添付 +　自作ソフトを配布するためにwonbe.fxを一緒に渡すことを許可します。アーカイブへの同梱、CD-Rメディアなどへの焼き込み、通信ケーブルによる転送、どれも可です。ただし、ワンべぇの動作に関しては何も保証はできませんので、リスクは自分で負ってください。利用にあたっては、ロイヤリティなどはありませんので、報告も送金も必要ありません。 + +●　問い合わせ先 +株式会社ピーデー http://www.piedey.co.jp/ +川俣　晶 autumn@piedey.co.jp + +以上