CalcLoverHK
/
C.Basic
1
2
Fork 0
Code Issues 8 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

FX 02.36.0002

This commit is contained in:
CalcLoverHK 2024-01-25 02:53:47 +08:00
parent 673b9c3169
commit 08eb115a71
4 changed files with 20 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fx/AddinInfo.txt
View File

@ -5,7 +5,7 @@
[BINDATA] : "FXADDINror.bin"
[DISPNAME] : "CBASIC"
[APPNAME] : "@CBASIC"
[VERSION] : "02.36.1000"
[VERSION] : "02.36.2000"
[APL_ICON] : "MainIcon.bmp"
[MODULE_NUM] : 0
[MOD1_TITLE] : "CBASIC"

2
fx/CBASIC.g1w
View File

@ -1,6 +1,6 @@
[DLSimProject]
Name=CBASIC
Version=02.36.1000
Version=02.36.2000
Model=:fx-9860G.dlm
SourcePath=.
MemoryPath=INIT

8
fx/CBZ_file.c
View File

@ -3331,6 +3331,8 @@ void CB_ProgEntry( char *SRC ) { // Prog "..." into memory
Skip_rem(SRC);
break;
case 0xFFFFFFED: // Prog "..."
c =SRC[ExecPtr];
if ( c != 0x22 ) break;
ExecPtr++; // " skip
CB_GetQuotOpcode(SRC, buffer, 32); // Prog name
strcpy( basname, buffer);
@ -3533,9 +3535,9 @@ int fileObjectAlign4u( unsigned int n ){ return n; } // align +4byte
int fileObjectAlign4v( unsigned int n ){ return n; } // align +4byte
int fileObjectAlign4w( unsigned int n ){ return n; } // align +4byte
int fileObjectAlign4x( unsigned int n ){ return n; } // align +4byte
int fileObjectAlign4y( unsigned int n ){ return n; } // align +4byte
int fileObjectAlign4z( unsigned int n ){ return n; } // align +4byte
int fileObjectAlign4A( unsigned int n ){ return n; } // align +4byte
//int fileObjectAlign4y( unsigned int n ){ return n; } // align +4byte
//int fileObjectAlign4z( unsigned int n ){ return n; } // align +4byte
//int fileObjectAlign4A( unsigned int n ){ return n; } // align +4byte
//int fileObjectAlign4B( unsigned int n ){ return n; } // align +4byte
//int fileObjectAlign4C( unsigned int n ){ return n; } // align +4byte
//int fileObjectAlign4D( unsigned int n ){ return n; } // align +4byte

20
fx/CB_interpreter.c
View File

@ -2503,9 +2503,11 @@ void CB_Prog( char *SRC, int *localvarInt, complex *localvarDbl ) { // Prog "...
char StepOutProgNo=0;
c=SRC[ExecPtr];
if ( c != 0x22 ) { CB_Error(SyntaxERR); return; } // Syntax error
ExecPtr++;
CB_GetQuotOpcode(SRC, buffer,32-1); // Prog name
if ( c == 0x22 ) {
ExecPtr++;
CB_GetQuotOpcode(SRC, buffer,32-1); // Prog name
} else CB_GetLocateStr(SRC, buffer,32-1);
if ( ErrorNo ) return ; // error
c=SRC[ExecPtr];
if ( c == ',' ) { // arg
@ -3191,10 +3193,14 @@ int iObjectAlign4m( unsigned int n ){ return n; } // align +4byte
int iObjectAlign4n( unsigned int n ){ return n; } // align +4byte
int iObjectAlign4o( unsigned int n ){ return n; } // align +4byte
int iObjectAlign4p( unsigned int n ){ return n; } // align +4byte
int iObjectAlign4q( unsigned int n ){ return n; } // align +4byte
int iObjectAlign4r( unsigned int n ){ return n; } // align +4byte
int iObjectAlign4s( unsigned int n ){ return n; } // align +4byte
int iObjectAlign4t( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4q( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4r( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4s( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4t( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4u( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4v( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4w( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4x( unsigned int n ){ return n; } // align +4byte
//int iObjectAlign4y( unsigned int n ){ return n; } // align +4byte
//----------------------------------------------------------------------------------------------
//----------------------------------------------------------------------------------------------