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

Kernel 0.93+

Browse Source
This commit is contained in:
Rémy GIBERT 2019-09-09 08:25:27 +02:00
parent dd824b9f99
commit e3b51a6017
2 changed files with 3 additions and 6 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.

9
SYS/KERNEL.S.ENV.txt
View File

@ -120,16 +120,12 @@ K.ExpandStr stz ENV.hMem Reset Intermediate string...
>LDYAI K.Buf256
jsr K.strdup
bcs .9
bcs K.FileSearch.RTS
stx ENV.hMem save this as temp string, in case of recurse
bit ENV.bExp SELF MODIFIED Did we expand something ?
bpl .9
bpl K.FileSearch.RTS No, exit with Y,A from STRDUP
jmp .1 Yes, start over with hPStr
* or exit with Y,A from STRDUP
* clc
.9 rts
*/--------------------------------------
* # FileSearch
* Search a file in the provided PATH list
@ -171,6 +167,7 @@ K.FileSearch pha
.4 sta $ffff,x Self Modified
dex
bpl .3
* clc
K.FileSearch.RTS
rts
*--------------------------------------