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

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-02-02 19:24:40 +01:00
parent 686d4f8c66
commit ca2143fdba
6 changed files with 39 additions and 21 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/SH.S.CORE.txt
View File

@ -26,6 +26,7 @@ CORE.Load.YAX stx M32.ACC X = Code to Execute
lda #8 lda #8
jsr CORE.StkCheck jsr CORE.StkCheck
bcs .9 bcs .9
>LDYA ZPInputBuf >LDYA ZPInputBuf
jsr CORE.StkPushYA jsr CORE.StkPushYA

12
BIN/SH.S.HIS.txt
View File

@ -3,17 +3,17 @@ NEW
.LIST OFF .LIST OFF
*-------------------------------------- *--------------------------------------
HIS.Init >LDYAI HISTORY.MAX Get a buffer for History HIS.Init >LDYAI HISTORY.MAX Get a buffer for History
>SYSCALL GetMem >SYSCALL NewStkObj
bcs .9 bcs .9
>STYA ZPPTR1
txa txa
>STA.G HIS.hBuf >STA.G HIS.hBuf
lda #0 >PUSHA
sta (ZPPTR1) >PUSHWI 0
>SYSCALL StrVAdd Reset Buffer
>STA.G HIS.Count
>STZ.G HIS.Count
>STA.G HIS.Index >STA.G HIS.Index
.9 rts .9 rts
*-------------------------------------- *--------------------------------------

8
BIN/SH.S.txt
View File

@ -435,10 +435,12 @@ CS.DOEVENT lda (pEvent)
*-------------------------------------- *--------------------------------------
CS.QUIT jsr CORE.FUNCRESET CS.QUIT jsr CORE.FUNCRESET
ldy #HIS.hBuf >LDA.G HIS.hBuf
jsr .7 beq .1
>SYSCALL FreeStkObj
ldy #CL.hCLBuf .1 ldy #CL.hCLBuf
jsr .7 jsr .7
ldy #CORE.hArgVBuf ldy #CORE.hArgVBuf

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

@ -386,11 +386,11 @@ K.SYSCALL.BANK .DA #RRAMWRAMBNK1 $00
.DA #$80 .DA #$80
.DA #0 PWD .DA #0 PWD
.DA #$80 .DA #$80
.DA #0 StrV .DA #$C0 StrV
.DA #$80 .DA #$80
.DA #0 .DA #$C0
.DA #$80 .DA #$80
.DA #0 .DA #$C0
.DA #$80 .DA #$80
.DA #0 .DA #0
.DA #$80 .DA #$80

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

@ -8,12 +8,16 @@ NEW
* `>SYSCALL StrVShift` * `>SYSCALL StrVShift`
* ## RETURN VALUE * ## RETURN VALUE
*\-------------------------------------- *\--------------------------------------
K.StrVShift >PULLA index K.StrVShift sta CLRREADAUX
>PULLA index
eor #$ff eor #$ff
tax tax
>PULLA >PULLA
>SYSCALL GetMemPtr sta SETREADAUX
jsr K.GetMemPtr
>STYA ZPPtr1 strV >STYA ZPPtr1 strV
.1 inx .1 inx
@ -43,13 +47,15 @@ K.StrVShift >PULLA index
* CC: Y,A = Ptr * CC: Y,A = Ptr
* CS: Y,A = NULL * CS: Y,A = NULL
*\-------------------------------------- *\--------------------------------------
K.StrVGet >PULLW FORPNT ptr K.StrVGet sta CLRREADAUX
>PULLW FORPNT ptr
>PULLA index >PULLA index
eor #$ff eor #$ff
tax tax
>PULLA >PULLA
sta SETREADAUX
jsr K.GetMemPtr jsr K.GetMemPtr
>STYA ZPPtr1 strV >STYA ZPPtr1 strV
@ -75,7 +81,7 @@ K.StrVGet >PULLW FORPNT ptr
.5 iny .5 iny
lda (ZPPtr1),y lda (ZPPtr1),y
sta (FORPNT),y jsr SHARED.FORPNT.PutY
bne .5 bne .5
>LDYA FORPNT >LDYA FORPNT
@ -95,12 +101,21 @@ K.StrVGet >PULLW FORPNT ptr
* CC : str added to hSTRV * CC : str added to hSTRV
* CS : hSTRV full * CS : hSTRV full
*\-------------------------------------- *\--------------------------------------
K.StrVAdd >PULLW TXTPTR str K.StrVAdd sta CLRREADAUX
>PULLW TXTPTR str
>PULLA >PULLA
>SYSCALL GetMemPtr sta SETREADAUX
jsr K.GetMemPtr
>STYA ZPPtr1 >STYA ZPPtr1
lda TXTPTR+1
bne .10
lda #1 for \0 sta (ZPPtr1)
clc
rts
.10 lda #1 for \0
sta ZPPtr2 sta ZPPtr2
stz ZPPtr2+1 stz ZPPtr2+1
@ -113,7 +128,7 @@ K.StrVAdd >PULLW TXTPTR str
.2 ldy #$ff .2 ldy #$ff
.3 iny .3 iny
lda (TXTPTR),y jsr SHARED.TXTPTR.GetY
bne .3 bne .3
tya tya
@ -139,7 +154,7 @@ K.StrVAdd >PULLW TXTPTR str
.4 ldy #$ff .4 ldy #$ff
.5 iny .5 iny
lda (TXTPTR),y jsr SHARED.TXTPTR.GetY
sta (ZPPtr1),y sta (ZPPtr1),y
bne .5 bne .5