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

Kernel 0.92

Browse Source
This commit is contained in:
Rémy GIBERT 2018-11-23 23:40:33 +01:00
parent 3fb363ee6a
commit 954355d20a
3 changed files with 37 additions and 20 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.

5
BIN/SHELL.S.CMD.txt
View File

@ -827,6 +827,7 @@ Cmd.GetEXP >LDA.G CMD.ArgIndex
.1 >PUSHYA .1 >PUSHYA
>LDYA L.CMD.IF.TOKEN4 + - .... ? >LDYA L.CMD.IF.TOKEN4 + - .... ?
jsr Lookup jsr Lookup
bcs .90 bcs .90
txa txa
>STA.G CMD.Operator >STA.G CMD.Operator
@ -854,8 +855,8 @@ Cmd.GetEXP >LDA.G CMD.ArgIndex
>PUSHL.G M32.ACC >PUSHL.G M32.ACC
>PUSHBI 4 >PUSHBI 4
>PUSHEA.G M32.BUF >PUSHW L.M32.Printf
>LDYA L.M32.Printf >LEA.G M32.BUF
>SYSCALL sprintf >SYSCALL sprintf
bcs .9 bcs .9

52
X.M32.S.txt
View File

@ -8,32 +8,48 @@ AUTO 4,1
* M32.ARG .BS 4 * M32.ARG .BS 4
* M32.TMP .BS 4 * M32.TMP .BS 4
*-------------------------------------- *--------------------------------------
M32.Add ldx #0 ARG-ACC->ACC M32.Add ldy #M32.ARG+4 ARG+ACC->ACC
ldy #4
.1 dey
lda (pData),y
pha
cpy #M32.ARG
bne .1
ldy #M32.ACC
ldx #4
clc clc
.1 lda M32.ARG,x .2 pla
adc M32.ACC,x adc (pData),y
sta M32.ACC,x sta (pData),y
inx iny
dey dex
bne .1 bne .2
rts if CS, Overflow rts if CS, Overflow
*--------------------------------------- *---------------------------------------
M32.Sub ldx #0 ARG-ACC->ACC M32.Sub ldy #M32.ARG+4 ARG+ACC->ACC
ldy #4
.1 dey
sec lda (pData),y
pha
.1 lda M32.ARG,x cpy #M32.ARG
sbc M32.ACC,x
sta M32.ACC,x
inx
dey
bne .1 bne .1
ldy #M32.ACC
ldx #4
sec
.2 pla
sbc (pData),y
sta (pData),y
iny
dex
bne .2
bcs .8 if CC, Overflow bcs .8 if CC, Overflow
sec sec