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

Kernel 0.9.1 : Code reorganization & move to CSTR : new MACROS set for DS access

Browse Source
This commit is contained in:
Rémy GIBERT 2017-09-26 08:27:34 +02:00
parent 3e3aa41e87
commit 6a46705d34
4 changed files with 28 additions and 38 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.

BIN
.Floppies/A2OSX.SRC.po
View File

Binary file not shown.

39
INC/MACROS.I.txt
View File

@ -13,11 +13,9 @@ AUTO 6
*-------------------------------------- *--------------------------------------
.MA DEBUGOA .MA DEBUGOA
bit $C061 bit $C061
bpl :2
:1 bit $C000
bpl :1 bpl :1
sta $C010 >DEBUG
:2 .EQ * :1 .EQ *
.EM .EM
*-------------------------------------- *--------------------------------------
* SYSCALLs Macros * SYSCALLs Macros
@ -125,18 +123,8 @@ AUTO 6
.EM .EM
*-------------------------------------- *--------------------------------------
.MA PUSHEA.G .MA PUSHEA.G
clc >LEA.G ]1
lda pData >PUSHYA
adc #]1
tay
lda pData+1
adc /]1
dec pStack
sta (pStack)
tya
dec pStack
sta (pStack)
.EM .EM
*-------------------------------------- *--------------------------------------
.MA LDA.G .MA LDA.G
@ -153,6 +141,11 @@ AUTO 6
ldy #]1 ldy #]1
cmp (pData),y cmp (pData),y
.EM .EM
*--------------------------------------
.MA ADC.G
ldy #]1
adc (pData),y
.EM
*-------------------------------------- *--------------------------------------
.MA SBC.G .MA SBC.G
ldy #]1 ldy #]1
@ -160,24 +153,19 @@ AUTO 6
.EM .EM
*-------------------------------------- *--------------------------------------
.MA DEC.G .MA DEC.G
ldy #]1 >LDA.G ]1
lda (pData),y
dec dec
sta (pData),y sta (pData),y
.EM .EM
*-------------------------------------- *--------------------------------------
.MA INC.G .MA INC.G
ldy #]1 >LDA.G ]1
lda (pData),y
inc inc
sta (pData),y sta (pData),y
.EM .EM
*-------------------------------------- *--------------------------------------
.MA INCW.G .MA INCW.G
ldy #]1 >INC.G ]1
lda (pData),y
inc
sta (pData),y
bne :1 bne :1
iny iny
@ -189,8 +177,7 @@ AUTO 6
.EM .EM
*-------------------------------------- *--------------------------------------
.MA LDYA.G .MA LDYA.G
ldy #]1 >LDA.G ]1
lda (pData),y
pha pha
iny iny
lda (pData),y lda (pData),y

27
SBIN/SHELL.S.HIS.txt
View File

@ -25,16 +25,15 @@ HIS.Add >LDA.G HIS.hBuf
.10 lda #$ff .10 lda #$ff
jsr HIS.GetA Y=ending 0 jsr HIS.GetA Y=ending 0
phy
tya tya
sec add len+1 sec add len+1
adc CmdBuflen CmdBuffer length >ADC.G CmdBuflen CmdBuffer length
pla
bcc .2 enough room bcc .2 enough room
>DEC.G HIS.Count we must remove oldest ldy #$ff we must remove oldest
ldy #$ff
.12 iny .12 iny
lda (ZPPTR1),y get len of oldest string lda (ZPPTR1),y get len of oldest string
@ -60,16 +59,16 @@ HIS.Add >LDA.G HIS.hBuf
sta (ZPPTR1),y sta (ZPPTR1),y
bne .1 bne .1
>DEC.G HIS.Count
bra .10 retry.... bra .10 retry....
.2 tya Y=Array Ending 0 .2 clc A = ending O offset
sec
adc ZPPTR1 adc ZPPTR1
sta ZPPTR2 sta ZPPTR1
lda ZPPTR1+1 bcc .3
adc #0 inc ZPPTR1+1
sta ZPPTR2+1
.3 ldy #$ff .3 ldy #$ff
.4 iny .4 iny
@ -92,6 +91,8 @@ HIS.GetPrev >LDA.G HIS.hBuf
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>STYA ZPPTR1 >STYA ZPPTR1
>DEBUG
>LDA.G HIS.Count >LDA.G HIS.Count
beq HISTORY.RTS empty history,nothing to do beq HISTORY.RTS empty history,nothing to do
@ -114,6 +115,8 @@ HIS.GetNext >LDA.G HIS.hBuf
>SYSCALL GetMemPtr.A >SYSCALL GetMemPtr.A
>STYA ZPPTR1 >STYA ZPPTR1
>DEBUG
>LDA.G HIS.Count >LDA.G HIS.Count
beq HISTORY.RTS empty history,nothing to do beq HISTORY.RTS empty history,nothing to do