Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-06-11 12:29:35 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.94

Browse Source
This commit is contained in:
Rémy GIBERT 2020-08-26 17:25:58 +02:00
parent a7d688335a
commit 2c19045368
4 changed files with 23 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
.Floppies/A2OSX.BUILD.po
View File

Binary file not shown.

1
BIN/CSH.D.txt
View File

@ -5,6 +5,7 @@ NEW
PathBuf .BS 65 PathBuf .BS 65
hFileBuf .BS 1 hFileBuf .BS 1
hIncludeBuf .BS 1
CSH.BufPtrSave .BS 2 CSH.BufPtrSave .BS 2
CSH.CmdSave .BS 1 CSH.CmdSave .BS 1

33
BIN/CSH.S.CORE.txt
View File

@ -52,11 +52,6 @@ CSH.Init >SYSCALL SListNew
lda #0 lda #0
>STA.G CSH.ConstPtr >STA.G CSH.ConstPtr
>STA.G CSH.StackPtr >STA.G CSH.StackPtr
* sta (ZPCSHConst)
* sta (ZPCSHStack)
* >DEC.G bTrace
* >DEC.G bDebug
* clc * clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
@ -78,7 +73,12 @@ CSH.Quit >LDA.G CSH.hSymbols
>PUSHA >PUSHA
>SYSCALL SListFree >SYSCALL SListFree
.3 lda ZPhMacro .3 >LDA.G hIncludeBuf
beq .4
>SYSCALL FClose
.4 lda ZPhMacro
jsr .7 jsr .7
>LDA.G hFileBuf >LDA.G hFileBuf
@ -250,8 +250,6 @@ CSH.DIR.DEFINE jsr CSH.CheckSpace
.2 iny .2 iny
lda #0
pha
phy phy
>PUSHB.G CSH.hDefines >PUSHB.G CSH.hDefines
@ -259,13 +257,13 @@ CSH.DIR.DEFINE jsr CSH.CheckSpace
>PUSHW ZPFileBufPtr >PUSHW ZPFileBufPtr
ply ply
pla lda #0
>PUSHYA DataLen >PUSHYA DataLen
>SYSCALL SListAddData >SYSCALL SListAddData
bcs .99 bcs .99
bra CSH.SkipLine jmp CSH.SkipLine
.90 lda #CSH.E.SYNTAX .90 lda #CSH.E.SYNTAX
sec sec
@ -315,8 +313,19 @@ CSH.DIR.INCLUDE >STZ.G PathBuf
.8 jsr CSH.GetNextChar skip " or > .8 jsr CSH.GetNextChar skip " or >
>LDYA pData >LDA.G hIncludeBuf
>SYSCALL PutS bne .90
>PUSHW pData
>PUSHBI O.RDONLY
>PUSHBI S.FI.T.TXT
>PUSHWZ Aux type
>SYSCALL LoadTxtFile
bcs .99
txa
>STA.G hIncludeBuf
rts rts
*-------------------------------------- *--------------------------------------
CSH.SkipLine jsr CSH.GetNextChar CSH.SkipLine jsr CSH.GetNextChar

2
INCLUDE/stdio.h.txt
View File

@ -12,7 +12,7 @@ NEW
fastcall int putchar(short int); fastcall int putchar(short int);
// int fputc ( hFILE stream , short int character ); // int fputc ( hFILE stream , short int character );
fastcall int puts(const char*); fastcall int puts(const char*);
// int fputs (hFILE stream, const char * str ); int fputs (short int, const char*);
// char *fgets(hFILE stream, char * s, int n); // char *fgets(hFILE stream, char * s, int n);
short int getchar(); short int getchar();
fastcall short int getc(short int); fastcall short int getc(short int);