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

Kernel 0.93++

Browse Source
This commit is contained in:
Rémy GIBERT 2020-02-04 21:04:33 +01:00
parent 055cecb734
commit abbfc8d1fd
7 changed files with 43 additions and 69 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.

3
BIN/EDIT.S.CTRL.txt
View File

@ -452,7 +452,8 @@ Ctrl.Q >LDA.G bUnSaved
.8 lda #$ff
>STA.G bExit
.80 jmp SCRN.UpdateStatusBar
.80 jsr SCRN.UpdateStatusBar
jmp SCRN.GotoCurXCurY
.9 rts
*--------------------------------------

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

@ -382,25 +382,7 @@ K.GetEnv >PULLW FORPNT value
K.GetEnv.I ldy #S.PS.hENV
lda (pPs),y
ldy TXTPTR+1
bne .10
tax
jsr MEM.GetMemByID
sta SETREADAUX
ldy #S.MEM.LEN
lda (ZPMemMgrSPtr),y
pha
iny
lda (ZPMemMgrSPtr),y
ply
sta CLRREADAUX
jmp MEM.CopyToMain
.10 sta SETREADAUX
sta SETWRITEAUX
jsr ENVX.GetEnv
sta CLRREADAUX
@ -432,7 +414,7 @@ K.UnsetEnv.I ldy #S.PS.hENV
ENV.NextEnvP3 jsr ENV.GetP3LenY
*--------------------------------------
ENV.NextEnvP3Y tya
ENV.NextEnvP3A sec
sec
adc ZPPtr3
sta ZPPtr3
bcc .8

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

@ -113,7 +113,23 @@ ENVX.SetEnv jsr ENVX.UnsetEnv
.9 rts
*--------------------------------------
ENVX.GetEnv sta ENVX.hEnv
ENVX.GetEnv ldy TXTPTR+1
bne .10
tax hMem for CopyToMain
jsr MEM.GetMemByID
ldy #S.MEM.LEN
lda (ZPMemMgrSPtr),y
pha
iny
lda (ZPMemMgrSPtr),y
ply YA = Len
jmp MEM.CopyToMain
.10 sta ENVX.hEnv
jsr ENVX.FindVar
bcs .9

3
SYS/KERNEL.S.MEM.txt
View File

@ -553,7 +553,8 @@ MEM.MoveToMain sec
stx .2+1 Save AUX hMem
>STYA A2L Save LEN to copy/move
jsr K.GetMem
ldx #SYS.GetMem
jsr K.SYSCALL2.MAIN
bcs .9
stx .8+1 Save MAIN hMem

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

@ -21,66 +21,39 @@ DRV.TERM.STATUS.LC
ldy #S.IOCTL.STATCODE
lda (ZPIOCTL),y
sta SETREADAUX
sta SETWRITEAUX
jsr DRV.TERM.STATUS
sta CLRREADAUX
sta CLRWRITEAUX
rts
bra DRV.TERM.TOAUX
DRV.TERM.CONTROL.LC
jsr DRV.TERM.GetDCB
sta SETREADAUX
sta SETWRITEAUX
jsr DRV.TERM.CONTROL
sta CLRREADAUX
sta CLRWRITEAUX
rts
DRV.TERM.OPEN.LC
tax DEV.ID in A
jsr DRV.TERM.GetDCB
sta SETREADAUX
sta SETWRITEAUX
jsr DRV.TERM.OPEN
sta CLRREADAUX
sta CLRWRITEAUX
rts
DRV.TERM.CLOSE.LC
pha DEV.ID in A for OPEN
jsr DRV.TERM.GetDCB
sta SETREADAUX
sta SETWRITEAUX
jsr DRV.TERM.CLOSE
sta CLRREADAUX
sta CLRWRITEAUX
rts
pla
bra DRV.TERM.TOAUX
DRV.TERM.READ.LC
jsr DRV.TERM.GetIOCTLBufCntDCB
sta SETREADAUX
sta SETWRITEAUX
jsr DRV.TERM.READ
sta CLRREADAUX
sta CLRWRITEAUX
rts
DRV.TERM.WRITE.LC
jsr DRV.TERM.GetIOCTLBufCntDCB
sta SETREADAUX
*--------------------------------------
DRV.TERM.TOAUX sta SETREADAUX
sta SETWRITEAUX
jsr DRV.TERM.WRITE
jsr .1
sta CLRREADAUX
sta CLRWRITEAUX
rts
.1 jmp (.2,x)
.2 .DA DRV.TERM.STATUS
.DA A2osX.BADCALL
.DA A2osX.BADCALL
.DA A2osX.BADCALL
.DA DRV.TERM.CONTROL
.DA A2osX.BADCALL
.DA DRV.TERM.OPEN
.DA DRV.TERM.CLOSE
.DA DRV.TERM.READ
.DA DRV.TERM.WRITE
*--------------------------------------
DRV.TERM.GetIOCTLBufCntDCB
>STYA ZPIOCTL

3
SYS/KERNEL.S.TERMX.txt
View File

@ -83,7 +83,8 @@ DRV.TERM.OPEN.E lda #MLI.E.OPEN
sec
rts
*--------------------------------------
DRV.TERM.OPEN jsr DRV.TERM.ISOPENED
DRV.TERM.OPEN tax
jsr DRV.TERM.ISOPENED
bne DRV.TERM.OPEN.E
DRV.TERM.OPEN.1 txa