Apple-2-SW/A2osX
1
0
Fork 0
mirror of https://github.com/A2osX/A2osX.git synced 2024-10-21 05:24:15 +00:00
Code Issues Projects Releases Wiki Activity

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-01-29 17:46:51 +01:00
parent abadd5440a
commit 1ec69493f5
5 changed files with 77 additions and 127 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.

8
INC/A2osX.I.txt
View File

@ -415,13 +415,13 @@ S.DIB.T.CDROM .EQ $05 SCSI CD-ROM
S.DIB.T.TAPE .EQ $06 SCSI tape or other SCSI sequential device S.DIB.T.TAPE .EQ $06 SCSI tape or other SCSI sequential device
S.DIB.T.HD .EQ $07 SCSI hard disk S.DIB.T.HD .EQ $07 SCSI hard disk
* .EQ $08 Reserved * .EQ $08 Reserved
S.DIB.T.SPRINTER .EQ $09 SCSI printer *S.DIB.T.SPRINTER .EQ $09 SCSI printer
S.DIB.T.5.25 .EQ $0A 5-1/4" disk S.DIB.T.5.25 .EQ $0A 5-1/4" disk
* .EQ $0B Reserved * .EQ $0B Reserved
* .EQ $0C Reserved * .EQ $0C Reserved
S.DIB.T.PRINTER .EQ $0D Printer *S.DIB.T.PRINTER .EQ $0D Printer
S.DIB.T.CLOCK .EQ $0E Clock *S.DIB.T.CLOCK .EQ $0E Clock
S.DIB.T.MODEM .EQ $0F Modem *S.DIB.T.MODEM .EQ $0F Modem
S.DIB.T.DISKII .EQ $10 S.DIB.T.DISKII .EQ $10
S.DIB.T.PRODOS .EQ $11 S.DIB.T.PRODOS .EQ $11
S.DIB.T.NIC .EQ $12 Network Interface Card S.DIB.T.NIC .EQ $12 Network Interface Card

174
SYS/KERNEL.S.ENVX.txt
View File

@ -4,7 +4,7 @@ NEW
ENVX.PutEnv ldy #$ff ENVX.PutEnv ldy #$ff
.1 iny .1 iny
lda (TXTPTR),y NAME= jsr SHARED.TXTPTR.GetY NAME=
beq .9 beq .9
cmp #'=' cmp #'='
@ -19,7 +19,7 @@ ENVX.PutEnv ldy #$ff
adc TXTPTR+1 adc TXTPTR+1
sta FORPNT+1 sta FORPNT+1
bra K.SetEnv.I bra ENVX.SetEnv
.9 lda #E.SYN .9 lda #E.SYN
sec sec
@ -27,7 +27,7 @@ ENVX.PutEnv ldy #$ff
*-------------------------------------- *--------------------------------------
ENVX.SetEnv jsr ENVX.UnsetEnv ENVX.SetEnv jsr ENVX.UnsetEnv
.1 jsr ENV.InitEnvP3 ZPPtr3 -> Env (SETREADAUX) .1 jsr ENVX.InitEnvP3 ZPPtr3 -> Env (SETREADAUX)
lda #1 lda #1
sta ZPPtr4 sta ZPPtr4
@ -36,33 +36,29 @@ ENVX.SetEnv jsr ENVX.UnsetEnv
.10 lda (ZPPtr3) End of ENV .10 lda (ZPPtr3) End of ENV
beq .15 beq .15
jsr ENV.GetP3LenY jsr ENVX.GetP3LenY
jsr ENV.NextEnvP3Y jsr ENVX.NextEnvP3Y
jsr ENV.NextEnvP4Y jsr ENVX.NextEnvP4Y
bra .10 bra .10
.15 .DO AUXENV=1 .15 ldy #$ff
sta CLRREADAUX
.FIN
ldy #$ff
.16 iny .16 iny
lda (TXTPTR),y jsr SHARED.TXTPTR.GetY
beq .17 beq .17
jsr SHARED.IsIDValid jsr SHARED.IsIDValid
bcc .16 bcc .16
.17 jsr ENV.NextEnvP4Y ZPPtr4 = ENVSIZE + VAR .17 jsr ENVX.NextEnvP4Y ZPPtr4 = ENVSIZE + VAR
ldy #$ff ldy #$ff
.19 iny .19 iny
lda (FORPNT),y jsr SHARED.FORPNT.getY
bne .19 bne .19
jsr ENV.NextEnvP4Y ZPPtr4 = ENVSIZE + VALUE jsr ENVX.NextEnvP4Y ZPPtr4 = ENVSIZE + VALUE
lda ZPPtr4 lda ZPPtr4
beq .20 beq .20
@ -81,12 +77,7 @@ ENVX.SetEnv jsr ENVX.UnsetEnv
ldy #S.PS.hENV ldy #S.PS.hENV
lda (pPs),y lda (pPs),y
.DO AUXENV=1 jsr K.Freemem AUX
ldx #SYS.FreeStkObj
jsr K.SYSCALL2.AUX
.ELSE
jsr K.Freemem
.FIN
pla pla
ldy #S.PS.hENV ldy #S.PS.hENV
@ -98,12 +89,8 @@ ENVX.SetEnv jsr ENVX.UnsetEnv
.22 ldy #$ff .22 ldy #$ff
.DO AUXENV=1
sta SETWRITEAUX
.FIN
.23 iny .23 iny
lda (TXTPTR),y jsr SHARED.TXTPTR.GetY
sta (ZPPtr3),y sta (ZPPtr3),y
beq .24 beq .24
jsr SHARED.IsIDValid jsr SHARED.IsIDValid
@ -112,11 +99,11 @@ ENVX.SetEnv jsr ENVX.UnsetEnv
.24 lda #'=' .24 lda #'='
sta (ZPPtr3),y sta (ZPPtr3),y
jsr ENV.NextEnvP3Y jsr ENVX.NextEnvP3Y
ldy #$ff ldy #$ff
.25 iny .25 iny
lda (FORPNT),y jsr SHARED.FORPNT.getY
sta (ZPPtr3),y sta (ZPPtr3),y
bne .25 bne .25
@ -124,66 +111,49 @@ ENVX.SetEnv jsr ENVX.UnsetEnv
sta (ZPPtr3),y don't forget array ending 0 sta (ZPPtr3),y don't forget array ending 0
clc clc
.9 .DO AUXENV=1 .9 rts
sta CLRREADAUX
sta CLRWRITEAUX
.FIN
rts
*-------------------------------------- *--------------------------------------
ENVX.GetEnv lda TXTPTR ENVX.GetEnv lda TXTPTR
beq K.GetEnvDump beq ENVX.Dump
jsr ENV.FindVar jsr ENVX.FindVar
bcs .9 bcs .9
jsr ENV.NextEnvP3Y Skip NAME= jsr ENVX.NextEnvP3Y Skip NAME=
lda FORPNT+1 lda FORPNT+1
bne .3 bne .3
ldy #$ff ldy #$ff
.DO AUXENV=1
sta SETREADAUX
.FIN
.1 iny .1 iny
lda (ZPPtr3),y lda (ZPPtr3),y
bne .1 bne .1
.DO AUXENV=1
sta CLRREADAUX
.FIN
iny iny
bne .2 bne .2
inc inc
.2 .DO AUXENV=1 .2 sta CLRREADAUX
sta CLRREADAUX
sta CLRWRITEAUX sta CLRWRITEAUX
.FIN
jsr K.getmem jsr K.getmem
sta SETREADAUX
sta SETWRITEAUX
bcs .99 bcs .99
>STYA FORPNT >STYA FORPNT
.3 .DO AUXENV=1 .3 ldy #$ff
sta SETREADAUX
.FIN
ldy #$ff
.4 iny .4 iny
lda (ZPPtr3),y lda (ZPPtr3),y
sta (FORPNT),y jsr SHARED.FORPNT.PutY
bne .4 bne .4
>LDYA FORPNT >LDYA FORPNT
.DO AUXENV=1
sta CLRREADAUX
.FIN
clc clc
rts rts
@ -191,13 +161,20 @@ ENVX.GetEnv lda TXTPTR
.9 >LDYAI 0 .9 >LDYAI 0
* sec * sec
.99 rts .99 rts
*--------------------------------------
ENVX.Dump sta CLRREADAUX
sta CLRWRITEAUX
K.GetEnvDump ldy #S.PS.ENVPAGECNT ldy #S.PS.ENVPAGECNT
lda (pPs),y lda (pPs),y
sta .1+1 sta .1+1
ldy #0 ldy #0
jsr K.getmem jsr K.getmem
sta SETREADAUX
sta SETWRITEAUX
bcs .9 bcs .9
>STYA FORPNT >STYA FORPNT
@ -212,26 +189,27 @@ K.GetEnvDump ldy #S.PS.ENVPAGECNT
ldy #0 ldy #0
.2 lda (ZPPtr3),y .2 lda (ZPPtr3),y
sta (FORPNT),y jsr SHARED.FORPNT.PutY
iny iny
bne .2 bne .2
inc ZPPtr3+1
inc FORPNT+1
dex
bne .2
.80 ldy #$ff SELF MODIFIED .80 ldy #$ff SELF MODIFIED
.81 lda #$ff SELF MODIFIED .81 lda #$ff SELF MODIFIED
.82 ldx #$ff SELF MODIFIED .82 ldx #$ff SELF MODIFIED
.DO AUXENV=1
sta CLRREADAUX
.FIN
clc clc
.9 rts .9 rts
*-------------------------------------- *--------------------------------------
ENVX.UnsetEnv jsr ENV.FindVar ENVX.UnsetEnv jsr ENVX.FindVar
bcs . 8 not found, quit bcs . 8 not found, quit
jsr ENV.DelVarP3 Ptr3 -> NAME=VALUE jsr ENVX.DelVarP3 Ptr3 -> NAME=VALUE
clc clc
rts rts
@ -248,13 +226,7 @@ ENVX.UnsetEnv jsr ENV.FindVar
* TXTPTR -> NAME * TXTPTR -> NAME
* ZPPtr3 -> PTR to Ending 0 * ZPPtr3 -> PTR to Ending 0
*-------------------------------------- *--------------------------------------
ENVX.FindVar ENVX.FindVar jsr ENVX.InitEnvP3 Store ENV
.DO AUXENV=1
sta SETREADAUX
sta SETWRITEAUX
.FIN
jsr ENV.InitEnvP3 Store ENV
.1 lda (ZPPtr3) .1 lda (ZPPtr3)
beq .9 end of ENV beq .9 end of ENV
@ -262,11 +234,7 @@ ENVX.FindVar
ldy #$ff ldy #$ff
.2 iny .2 iny
.DO AUXENV=1
jsr SHARED.TXTPTR.GetY jsr SHARED.TXTPTR.GetY
.ELSE
lda (TXTPTR),y
.FIN
beq .3 beq .3
jsr SHARED.IsIDValid jsr SHARED.IsIDValid
@ -281,34 +249,22 @@ ENVX.FindVar
cmp #'=' cmp #'='
bne .4 bne .4
.DO AUXENV=1
sta CLRREADAUX
sta CLRWRITEAUX
.FIN
clc clc
rts rts
.4 jsr ENV.NextEnvP3 Skip NAME=VALUE .4 jsr ENVX.NextEnvP3 Skip NAME=VALUE
bra .1 bra .1
.9 .DO AUXENV=1 .9 sec
sta CLRREADAUX
sta CLRWRITEAUX
.FIN
sec
rts rts
*-------------------------------------- *--------------------------------------
* ENV.DelVarP3 * ENV.DelVarP3
* In: * In:
* ZPPtr3 -> ENV.NAME to Discard * ZPPtr3 -> ENV.NAME to Discard
*-------------------------------------- *--------------------------------------
ENV.DelVarP3 .DO AUXENV=1 ENVX.DelVarP3 >LDYA ZPPtr3 save actual Ptr
sta SETREADAUX
sta SETWRITEAUX
.FIN
>LDYA ZPPtr3 save actual Ptr
>STYA ZPPtr4 >STYA ZPPtr4
jsr ENV.NextEnvP3 Skip NAME=VALUE jsr ENVX.NextEnvP3 Skip NAME=VALUE
.1 ldy #$ff .1 ldy #$ff
@ -321,46 +277,38 @@ ENV.DelVarP3 .DO AUXENV=1
beq .8 we moved back ending \0 beq .8 we moved back ending \0
jsr ENV.NextEnvP3Y jsr ENVX.NextEnvP3Y
jsr ENV.NextEnvP4Y jsr ENVX.NextEnvP4Y
bra .1 bra .1
.8 .DO AUXENV=1 .8 rts
sta CLRREADAUX
sta CLRWRITEAUX
.FIN
rts
*-------------------------------------- *--------------------------------------
ENV.InitEnvP3 .DO AUXENV=1 ENVX.InitEnvP3 sta CLRREADAUX
sta CLRREADAUX
.FIN
ldy #S.PS.hENV ldy #S.PS.hENV
lda (pPs),y lda (pPs),y
.DO AUXENV=1
sta SETREADAUX sta SETREADAUX
.FIN
jsr K.GetMemPtr jsr K.GetMemPtr
>STYA ZPPtr3 Store ENV >STYA ZPPtr3 Store ENV
rts rts
*-------------------------------------- *--------------------------------------
ENV.NextEnvP3 jsr ENV.GetP3LenY ENVX.NextEnvP3 jsr ENVX.GetP3LenY
*-------------------------------------- *--------------------------------------
ENV.NextEnvP3Y tya ENVX.NextEnvP3Y tya
ENV.NextEnvP3A sec ENVX.NextEnvP3A sec
adc ZPPtr3 adc ZPPtr3
sta ZPPtr3 sta ZPPtr3
bcc .8 bcc .8
inc ZPPtr3+1 inc ZPPtr3+1
.8 rts .8 rts
*-------------------------------------- *--------------------------------------
ENV.GetP3LenY ldy #$ff ENVX.GetP3LenY ldy #$ff
.1 iny .1 iny
lda (ZPPtr3),y lda (ZPPtr3),y
bne .1 bne .1
rts rts
*-------------------------------------- *--------------------------------------
ENV.NextEnvP4Y tya ENVX.NextEnvP4Y tya
sec sec
adc ZPPtr4 adc ZPPtr4
sta ZPPtr4 sta ZPPtr4
@ -386,10 +334,6 @@ ENV.Dup.A sta .8+1 Store target page Count
ldy #S.PS.hENV ldy #S.PS.hENV
lda (pPs),y lda (pPs),y
.DO AUXENV=1
sta SETREADAUX
sta SETWRITEAUX
.FIN
jsr K.GetMemPtr jsr K.GetMemPtr
>STYA .1+1 >STYA .1+1
@ -420,11 +364,7 @@ ENV.Dup.A sta .8+1 Store target page Count
pla hMem pla hMem
clc clc
.9 .DO AUXENV=1 .9 rts
sta CLRREADAUX
sta CLRWRITEAUX
.FIN
rts
*-------------------------------------- *--------------------------------------
MAN MAN
SAVE USR/SRC/SYS/KERNEL.S.ENVX SAVE USR/SRC/SYS/KERNEL.S.ENVX

8
SYS/KERNEL.S.SHARED.txt
View File

@ -97,6 +97,12 @@ SHARED.TXTPTR.Next
inc TXTPTR+1 inc TXTPTR+1
rts rts
*-------------------------------------- *--------------------------------------
SHARED.FORPNT.getY
sta CLRREADAUX
sta (FORPNT),y
sta SETREADAUX
rts
*--------------------------------------
SHARED.FORPNT.PutY SHARED.FORPNT.PutY
sta CLRWRITEAUX sta CLRWRITEAUX
sta (FORPNT),y sta (FORPNT),y
@ -107,7 +113,7 @@ SHARED.FORPNT.PutNext
sta CLRWRITEAUX sta CLRWRITEAUX
sta (FORPNT) sta (FORPNT)
sta SETWRITEAUX sta SETWRITEAUX
* SHARED.FORPNT.Next SHARED.FORPNT.Next
inc FORPNT inc FORPNT
bne SHARED.RTS bne SHARED.RTS
inc FORPNT+1 inc FORPNT+1

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

@ -174,17 +174,21 @@ K.Str2StrV jsr K.Expand
.3 cmp #C.SPACE .3 cmp #C.SPACE
bne .6 regular char ...store... bne .6 regular char ...store...
tya tya
bmi .6 between quotes... store space... bmi .4 between quotes... store space...
inx Found one arg !!! inx Found one arg !!!
lda #0 set this token End lda #0 set this token End
jsr SHARED.PutCharPtr2 jsr SHARED.PutCharPtr2
bra .1 bra .1
.4 lda #C.SPACE
.6 jsr SHARED.PutCharPtr2 .6 jsr SHARED.PutCharPtr2
.7 jsr SHARED.GetCharPtr1 .7 jsr SHARED.GetCharPtr1
bne .2 bne .2
inx inx
.8 jsr SHARED.PutCharPtr2 set Argv[x] Ending 0 .8 jsr SHARED.PutCharPtr2 set Argv[x] Ending 0
sta (ZPPtr2) set Array Ending 0 sta (ZPPtr2) set Array Ending 0