Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2025-02-16 18:30:26 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93

Browse Source
This commit is contained in:
Rémy GIBERT 2019-07-17 17:49:23 +02:00
parent 83aa8f705e
commit e1ed4f68a2
6 changed files with 20 additions and 36 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.

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

@ -513,11 +513,7 @@ ENV.ExpandSysVar
inx
lda (ZPPtr3)
sec
adc ZPPtr3
sta ZPPtr3
bcc .5
inc ZPPtr3+1
jsr ENV.NextEnvP3A
bra .5
*--------------------------------------
ENV.SysVars .AS "*#?@$!"
@ -576,12 +572,7 @@ ENV.StrVarsSession
lda (ZPPtr3),y
bne .2
tya
sec
adc ZPPtr3
sta ZPPtr3
bcc .1
inc ZPPtr3+1
jsr ENV.NextEnvP3Y
bra .1
.3 jmp ENV.AddP3ToBuf
@ -706,7 +697,7 @@ ENV.NextEnvP3x2 jsr ENV.NextEnvP3
ENV.NextEnvP3 jsr ENV.GetP3LenY
*--------------------------------------
ENV.NextEnvP3Y tya
sec
ENV.NextEnvP3A sec
adc ZPPtr3
sta ZPPtr3
bcc .8

6
SYS/KERNEL.S.PWD.txt
View File

@ -108,12 +108,6 @@ K.PutPW.1 sta SETREADAUX
.8 lda #$ff
jmp K.freemem SELF MODIFIED
*--------------------------------------
PWD.bDirty .BS 1
PWD.hDB .BS 1
PWD.DBPtr .BS 2
PWD.DBSize .BS 2
PWD.FILE .AZ "${ROOT}ETC/PASSWD"
*--------------------------------------
MAN
SAVE USR/SRC/SYS/KERNEL.S.PWD
LOAD USR/SRC/SYS/KERNEL.S

11
SYS/KERNEL.S.STRING.txt
View File

@ -69,17 +69,12 @@ K.StrCpy clc
.3 lda (ZPPtr2),y
sta (ZPPtr1),y
beq .8
beq K.StrDup.8
iny
bne .3
inc ZPPtr2+1
inc ZPPtr1+1
bra .3
.8 ply
pla
K.StrCpy.RTS clc
rts
*/--------------------------------------
* # StrDup
* Create a new copy of this C-String
@ -110,7 +105,7 @@ K.StrDup >STYA .1+1
inc
.3 jsr K.GetMem
bcs K.StrCpy.RTS
bcs K.StrDup.RTS
>STYA .5+1
phy
@ -131,7 +126,7 @@ K.StrDup >STYA .1+1
K.StrDup.8 pla
ply
clc
rts
K.StrDup.RTS rts
*/--------------------------------------
* # StrUpr/StrLwr
* Convert string to UPPERCASE/lowercase

16
SYS/KERNEL.S.TERM.txt
View File

@ -360,33 +360,31 @@ DRV.TERM.COUT.FS
inc
sta (ZPDCBPtr),y
cmp #80
bcc DRV.TERM.COUT.FS.8
bcc DRV.TERM.COUT.BS.8
ldy #S.DCB.TTY.bLINEWRAP
lda (ZPDCBPtr),y
bpl DRV.TERM.COUT.FS.8
bpl DRV.TERM.COUT.BS.8
ldy #S.DCB.TTY.CH
lda #0
sta (ZPDCBPtr),y
jmp DRV.TERM.COUT.LF.1
DRV.TERM.COUT.FS.8
clc
rts
*--------------------------------------
DRV.TERM.COUT.BS
ldy #S.DCB.TTY.CH
lda (ZPDCBPtr),y
beq .1
beq DRV.TERM.COUT.BS.1
dec
sta (ZPDCBPtr),y
DRV.TERM.COUT.BS.8
clc
rts
.1 ldy #S.DCB.TTY.CV
DRV.TERM.COUT.BS.1
ldy #S.DCB.TTY.CV
lda (ZPDCBPtr),y
beq .2
@ -410,7 +408,7 @@ DRV.TERM.COUT.DEL
.1 iny S.DCB.TTY.CV
lda (ZPDCBPtr),y
beq DRV.TERM.COUT.FS.8
beq DRV.TERM.COUT.BS.8
dec
sta (ZPDCBPtr),y

8
SYS/KERNEL.S.txt
View File

@ -56,6 +56,7 @@ A2osX.D2 .PH $D000
.INB USR/SRC/SYS/KERNEL.S.BIN
.INB USR/SRC/SYS/KERNEL.S.PS
.INB USR/SRC/SYS/KERNEL.S.ENV
.INB USR/SRC/SYS/KERNEL.S.PWD
.INB USR/SRC/SYS/KERNEL.S.ARG
.EP
A2osX.E0 .PH $E000
@ -67,12 +68,17 @@ A2osX.E0 .PH $E000
********* TMP ***** go to A2osX.D1
.INB USR/SRC/SYS/KERNEL.S.IO
********* TMP ***** go to A2osX.D2
.INB USR/SRC/SYS/KERNEL.S.PWD
*--------------------------------------
DevMgr.Stat .DA DevMgr.FreeMem
DevMgr.Free .DA DevMgr.FreeMem
.DA DevMgr.HiMem
DevMgr.DevIdx .DA #1
*--------------------------------------
PWD.bDirty .BS 1
PWD.hDB .BS 1
PWD.DBPtr .BS 2
PWD.DBSize .BS 2
PWD.FILE .AZ "${ROOT}ETC/PASSWD"
*--------------------------------------
.LIST ON
DevMgr.FreeMem .EQ *