2020-03-12 16:44:11 +00:00
|
|
|
|
NEW
|
|
|
|
|
|
AUTO 3,1
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32 jmp (.1,x)
|
|
|
|
|
|
.1 .DA MATH32.ADD
|
|
|
|
|
|
.DA MATH32.SUB
|
|
|
|
|
|
.DA MATH32.UMUL
|
|
|
|
|
|
.DA MATH32.IMUL
|
|
|
|
|
|
.DA MATH32.UDIV
|
|
|
|
|
|
.DA MATH32.IDIV
|
|
|
|
|
|
.DA MATH32.UMOD
|
|
|
|
|
|
.DA MATH32.IMOD
|
|
|
|
|
|
.DA MATH32.UCMP
|
|
|
|
|
|
.DA MATH32.ICMP
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.ADD clc
|
|
|
|
|
|
.HS B0 BCS
|
|
|
|
|
|
MATH32.SUB sec
|
|
|
|
|
|
php
|
|
|
|
|
|
jsr MATH32.PopACC32
|
|
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
ldx #3
|
|
|
|
|
|
plp
|
|
|
|
|
|
bcs .1
|
|
|
|
|
|
|
|
|
|
|
|
lda #$79 ADC Absolute,Y
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
.1 lda #$F9 SBC Absolute,Y
|
|
|
|
|
|
sta .3
|
|
|
|
|
|
|
|
|
|
|
|
.2 lda (pStack),y
|
|
|
|
|
|
.3 adc ACC32,y SELF MODIFIED
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
iny
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .2
|
|
|
|
|
|
|
|
|
|
|
|
MATH32.SUB.RTS rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* Returns:
|
|
|
|
|
|
* ff X < Y
|
|
|
|
|
|
* 0 X = Y
|
|
|
|
|
|
* 1 X > Y
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.UCMP
|
|
|
|
|
|
MATH32.ICMP jsr MATH32.SUB
|
|
|
|
|
|
jsr MATH32.PopACC32 A = ACC32+3 (sign)
|
|
|
|
|
|
tay
|
|
|
|
|
|
bmi .2
|
|
|
|
|
|
|
|
|
|
|
|
.1 ora ACC32+2
|
|
|
|
|
|
ora ACC32+1
|
|
|
|
|
|
ora ACC32
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
lda #1
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.2 lda #$ff
|
|
|
|
|
|
.8 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.UMUL clc
|
|
|
|
|
|
.HS B0 BCS
|
|
|
|
|
|
MATH32.IMUL sec
|
|
|
|
|
|
|
|
|
|
|
|
php
|
|
|
|
|
|
jsr MATH32.MULDIVMOD.COMMON
|
|
|
|
|
|
jsr MATH32.MUL
|
|
|
|
|
|
|
|
|
|
|
|
plp
|
|
|
|
|
|
bcc MATH32.PutTMP32
|
|
|
|
|
|
MATH32.RETURN.ITMP
|
|
|
|
|
|
lda ACC32.Sign
|
|
|
|
|
|
eor ARG32.Sign
|
|
|
|
|
|
bpl MATH32.PutTMP32
|
|
|
|
|
|
bra MATH32.PutNotTMP32
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.UDIV clc
|
|
|
|
|
|
.HS B0 BCS
|
|
|
|
|
|
MATH32.IDIV sec
|
|
|
|
|
|
clv
|
|
|
|
|
|
bra MATH32.MOD
|
|
|
|
|
|
|
|
|
|
|
|
MATH32.UMOD clc
|
|
|
|
|
|
.HS B0 BCS
|
|
|
|
|
|
MATH32.IMOD sec
|
|
|
|
|
|
bit MATH32.SUB.RTS $60
|
|
|
|
|
|
|
|
|
|
|
|
MATH32.MOD php
|
|
|
|
|
|
jsr MATH32.MULDIVMOD.COMMON
|
|
|
|
|
|
jsr MATH32.DIVMOD
|
|
|
|
|
|
|
|
|
|
|
|
plp
|
|
|
|
|
|
bcc .3 unsigned
|
|
|
|
|
|
|
|
|
|
|
|
bvs MATH32.RETURN.ITMP IMOD
|
|
|
|
|
|
|
|
|
|
|
|
lda ACC32.Sign IDIV
|
|
|
|
|
|
eor ARG32.Sign
|
|
|
|
|
|
bpl MATH32.PutARG32
|
|
|
|
|
|
bra MATH32.PutNotARG32
|
|
|
|
|
|
|
|
|
|
|
|
.3 bvc MATH32.PutARG32 DIV
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.PutTMP32 lda #TMP32 MOD
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.PutARG32 lda #ARG32
|
|
|
|
|
|
sta .1+1
|
|
|
|
|
|
|
|
|
|
|
|
ldy #3
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda $ff,y SELF MODIFIED
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
dey
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.PutNotTMP32
|
|
|
|
|
|
lda #TMP32
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.PutNotARG32
|
|
|
|
|
|
lda #ARG32
|
|
|
|
|
|
sta .1+1
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
ldx #3
|
|
|
|
|
|
sec
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda $ff,y SELF MODIFIED
|
|
|
|
|
|
eor #$ff two's complement of X bytes
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta (pStack),y
|
|
|
|
|
|
iny
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.PopACC32 ldy #0
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda (pStack)
|
|
|
|
|
|
inc pStack
|
|
|
|
|
|
sta ACC32,y
|
|
|
|
|
|
iny
|
|
|
|
|
|
cpy #4
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
sta ACC32.Sign
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.GetARG32 ldy #0
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda (pStack),y
|
|
|
|
|
|
sta ARG32,y
|
|
|
|
|
|
iny
|
|
|
|
|
|
cpy #4
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
sta ARG32.Sign
|
|
|
|
|
|
|
|
|
|
|
|
MATH32.GetARG32.RTS
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.MULDIVMOD.COMMON
|
|
|
|
|
|
php
|
|
|
|
|
|
jsr MATH32.PopACC32
|
|
|
|
|
|
jsr MATH32.GetARG32
|
|
|
|
|
|
plp
|
|
|
|
|
|
bcc MATH32.GetARG32.RTS
|
2020-03-16 06:50:15 +00:00
|
|
|
|
jsr MATH32.ACC32ABS
|
|
|
|
|
|
jmp MATH32.ARG32ABS
|
2020-03-12 16:44:11 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* http://6502.org/source/integers/32muldiv.htm
|
|
|
|
|
|
* http://nparker.llx.com/a2/mult.html
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* ARG32*ACC32->TMP32
|
|
|
|
|
|
*--------------------------------------
|
2020-03-16 06:50:15 +00:00
|
|
|
|
MATH32.MUL jsr MATH32.TMP32ZERO
|
2020-03-12 16:44:11 +00:00
|
|
|
|
ldx #32
|
|
|
|
|
|
.1 lsr ARG32+3
|
|
|
|
|
|
ror ARG32+2
|
|
|
|
|
|
ror ARG32+1
|
|
|
|
|
|
ror ARG32
|
|
|
|
|
|
bcc .3
|
|
|
|
|
|
clc
|
|
|
|
|
|
|
|
|
|
|
|
ldy #0
|
|
|
|
|
|
.2 lda TMP32,y
|
|
|
|
|
|
adc ACC32,y
|
|
|
|
|
|
sta TMP32,y
|
|
|
|
|
|
|
|
|
|
|
|
iny
|
|
|
|
|
|
tya
|
|
|
|
|
|
eor #4
|
|
|
|
|
|
bne .2
|
2020-03-16 06:50:15 +00:00
|
|
|
|
.3 jsr MATH32.ACC32.T2
|
2020-03-12 16:44:11 +00:00
|
|
|
|
dex
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* ARG32 = ARG32 div ACC32
|
|
|
|
|
|
* TMP32 = ARG32 mod ACC32
|
|
|
|
|
|
*--------------------------------------
|
2020-03-16 06:50:15 +00:00
|
|
|
|
MATH32.DIVMOD jsr MATH32.TMP32ZERO
|
2020-03-12 16:44:11 +00:00
|
|
|
|
|
|
|
|
|
|
ldx #32
|
|
|
|
|
|
|
|
|
|
|
|
.1 asl ARG32
|
|
|
|
|
|
rol ARG32+1
|
|
|
|
|
|
rol ARG32+2
|
|
|
|
|
|
rol ARG32+3
|
|
|
|
|
|
rol TMP32
|
|
|
|
|
|
rol TMP32+1
|
|
|
|
|
|
rol TMP32+2
|
|
|
|
|
|
rol TMP32+3
|
|
|
|
|
|
sec
|
|
|
|
|
|
lda TMP32
|
|
|
|
|
|
sbc ACC32
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda TMP32+1
|
|
|
|
|
|
sbc ACC32+1
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda TMP32+2
|
|
|
|
|
|
sbc ACC32+2
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda TMP32+3
|
|
|
|
|
|
sbc ACC32+3
|
|
|
|
|
|
bcs .2
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
pla
|
|
|
|
|
|
pla
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.2 sta TMP32+3
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta TMP32+2
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta TMP32+1
|
|
|
|
|
|
pla
|
|
|
|
|
|
sta TMP32
|
|
|
|
|
|
inc ARG32 bit0 always 0 because of .1 asl
|
|
|
|
|
|
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-11-23 22:05:27 +00:00
|
|
|
|
*uint32_t lcg_parkmiller(uint32_t *state)
|
|
|
|
|
|
*{
|
|
|
|
|
|
* // Precomputed parameters for Schrage's method
|
|
|
|
|
|
* const uint32_t M = 0x7fffffff;
|
|
|
|
|
|
* const uint32_t A = 48271;
|
|
|
|
|
|
* const uint32_t Q = M / A; // 44488
|
|
|
|
|
|
* const uint32_t R = M % A; // 3399
|
|
|
|
|
|
*
|
|
|
|
|
|
* uint32_t div = *state / Q; // max: M / Q = A = 48,271
|
|
|
|
|
|
* uint32_t rem = *state % Q; // max: Q - 1 = 44,487
|
|
|
|
|
|
*
|
|
|
|
|
|
* int32_t s = rem * A; // max: 44,487 * 48,271 = 2,147,431,977 = 0x7fff3629
|
|
|
|
|
|
* int32_t t = div * R; // max: 48,271 * 3,399 = 164,073,129
|
|
|
|
|
|
* int32_t result = s - t;
|
|
|
|
|
|
*
|
|
|
|
|
|
* if (result < 0)
|
|
|
|
|
|
* result += M;
|
|
|
|
|
|
*
|
|
|
|
|
|
* return *state = result;
|
|
|
|
|
|
*}
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* MATH32.RND TODO
|
|
|
|
|
|
*--------------------------------------
|
2020-03-16 06:50:15 +00:00
|
|
|
|
MATH32.A2STR10NP ldx #3 3 digit max
|
|
|
|
|
|
ldy #0 Disable Padding
|
|
|
|
|
|
MATH32.A2STR10 jsr MATH32.A2ACC32
|
|
|
|
|
|
clc unsigned
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* CS = signed long
|
|
|
|
|
|
* CC = unsigned long
|
|
|
|
|
|
* X = Pad Len
|
|
|
|
|
|
* Y = Pad Char
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.ACC322STR10
|
|
|
|
|
|
stx .5+1 Pad Len
|
|
|
|
|
|
sty .81+1 Pad Char
|
|
|
|
|
|
|
|
|
|
|
|
stz A2osX.NumStrLen
|
|
|
|
|
|
bcc .1
|
|
|
|
|
|
|
|
|
|
|
|
clc
|
|
|
|
|
|
lda ACC32+3
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
|
|
jsr MATH32.ACC32NEG
|
|
|
|
|
|
|
|
|
|
|
|
sec
|
|
|
|
|
|
.1 ror ACC32.Sign Save sign
|
|
|
|
|
|
|
|
|
|
|
|
ldx #4
|
|
|
|
|
|
|
|
|
|
|
|
.2 stz RESULT,x Clear all 5 bytes
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .2
|
|
|
|
|
|
sed switch to BCD mode
|
|
|
|
|
|
|
|
|
|
|
|
ldx #32 let's roll 32 bits
|
|
|
|
|
|
.3 jsr MATH32.ACC32.T2
|
|
|
|
|
|
|
|
|
|
|
|
ldy #4
|
|
|
|
|
|
.4 lda RESULT,y
|
|
|
|
|
|
adc RESULT,y
|
|
|
|
|
|
sta RESULT,y
|
|
|
|
|
|
dey
|
|
|
|
|
|
bpl .4
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .3
|
|
|
|
|
|
cld
|
|
|
|
|
|
|
|
|
|
|
|
ldx .5+1 no padding
|
|
|
|
|
|
beq .6
|
|
|
|
|
|
lda #10 starts at 10-padlen
|
|
|
|
|
|
sec
|
|
|
|
|
|
.5 sbc #$ff SELF MODIFIED
|
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
|
|
.6 txa
|
|
|
|
|
|
lsr
|
|
|
|
|
|
tay
|
|
|
|
|
|
lda RESULT,y
|
|
|
|
|
|
bcs .7
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
|
|
|
|
|
|
.7 and #$0F
|
|
|
|
|
|
ora #$30
|
|
|
|
|
|
|
|
|
|
|
|
cmp #'0'
|
|
|
|
|
|
beq .80
|
|
|
|
|
|
ldy #'0' next 0s always printed
|
|
|
|
|
|
sty .81+1
|
|
|
|
|
|
bra .82
|
|
|
|
|
|
|
|
|
|
|
|
.80 cpx #9 last char, print always
|
|
|
|
|
|
beq .82
|
|
|
|
|
|
|
|
|
|
|
|
.81 lda #$ff SELF MODIFIED Get Padding char
|
|
|
|
|
|
beq .87
|
|
|
|
|
|
|
|
|
|
|
|
.82 bit ACC32.Sign "-" to print ?
|
|
|
|
|
|
bpl .86
|
|
|
|
|
|
|
|
|
|
|
|
pha
|
|
|
|
|
|
lda #'-'
|
|
|
|
|
|
jsr .88
|
|
|
|
|
|
stz ACC32.Sign
|
|
|
|
|
|
pla
|
|
|
|
|
|
.86 jsr .88
|
|
|
|
|
|
.87 inx
|
|
|
|
|
|
cpx #10
|
|
|
|
|
|
bne .6
|
|
|
|
|
|
lda #0
|
|
|
|
|
|
.88 ldy A2osX.NumStrLen
|
|
|
|
|
|
inc A2osX.NumStrLen
|
|
|
|
|
|
sta A2osX.NumStrBuf,y
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* Convert Hex int at ZPPtr2 to ACC32
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.Hex2ACC32
|
|
|
|
|
|
lda (ZPPtr2)
|
|
|
|
|
|
beq .9
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
jsr SHARED.IsHexDigit
|
|
|
|
|
|
bcs .9
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
jsr MATH32.A2ACC32
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
ldy #0
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
.1 iny
|
|
|
|
|
|
lda (ZPPtr2),y
|
|
|
|
|
|
beq .8
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
jsr SHARED.IsHexDigit
|
|
|
|
|
|
bcs .8
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
pha
|
|
|
|
|
|
ldx #4
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
.2 jsr MATH32.ACC32.T2
|
|
|
|
|
|
dex
|
|
|
|
|
|
bne .2
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
pla
|
|
|
|
|
|
ora ACC32
|
|
|
|
|
|
sta ACC32
|
|
|
|
|
|
bra .1
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
.8 clc
|
|
|
|
|
|
rts
|
2020-03-23 07:08:27 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
.9 sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* Convert A to 2 hex digits in AX
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.AToHexAX pha
|
|
|
|
|
|
and #$0F
|
|
|
|
|
|
jsr .8
|
|
|
|
|
|
tax
|
|
|
|
|
|
|
|
|
|
|
|
pla
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
lsr
|
|
|
|
|
|
.8 ora #$30
|
|
|
|
|
|
cmp #'9'+1
|
|
|
|
|
|
bcc .9
|
|
|
|
|
|
adc #6
|
|
|
|
|
|
.9 rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
* Convert Decimal int at ZPPtr2 to ACC32
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.Dec2ACC32
|
|
|
|
|
|
jsr MATH32.ACC32ZERO
|
|
|
|
|
|
clc
|
|
|
|
|
|
lda (ZPPtr2)
|
|
|
|
|
|
eor #'-'
|
|
|
|
|
|
bne .10
|
2020-12-23 14:54:57 +00:00
|
|
|
|
|
2020-03-16 06:50:15 +00:00
|
|
|
|
jsr SHARED.NextCharPtr2 skip '-'
|
|
|
|
|
|
sec
|
|
|
|
|
|
.10 ror .80+1 set pos/neg flag
|
|
|
|
|
|
|
|
|
|
|
|
ldy #$ff
|
|
|
|
|
|
|
|
|
|
|
|
.1 iny
|
|
|
|
|
|
lda (ZPPtr2),y
|
|
|
|
|
|
beq .8
|
|
|
|
|
|
jsr ZP.IsDigit
|
|
|
|
|
|
bcs .8
|
|
|
|
|
|
|
|
|
|
|
|
phy Save Y, pointing to next char
|
|
|
|
|
|
jsr MATH32.ACC32.T10
|
|
|
|
|
|
ply
|
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
|
|
lda (ZPPtr2),y
|
|
|
|
|
|
and #$0F
|
|
|
|
|
|
* clc
|
|
|
|
|
|
|
|
|
|
|
|
adc ACC32
|
|
|
|
|
|
sta ACC32
|
|
|
|
|
|
bcc .1
|
|
|
|
|
|
inc ACC32+1
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
inc ACC32+2
|
|
|
|
|
|
bne .1
|
|
|
|
|
|
inc ACC32+3
|
|
|
|
|
|
bne .1 if 0, overflow!!!
|
|
|
|
|
|
|
|
|
|
|
|
.9 lda #E.INUM
|
|
|
|
|
|
sec
|
|
|
|
|
|
rts
|
|
|
|
|
|
|
|
|
|
|
|
.8 tya no digit parsed...error
|
|
|
|
|
|
beq .9
|
|
|
|
|
|
|
|
|
|
|
|
.80 lda #$FF SELF MODIFIED
|
|
|
|
|
|
bpl .88
|
|
|
|
|
|
|
|
|
|
|
|
phy
|
|
|
|
|
|
jsr MATH32.ACC32NEG
|
|
|
|
|
|
ply
|
|
|
|
|
|
|
|
|
|
|
|
.88 clc
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.ACC32.T10
|
|
|
|
|
|
ldx #3
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda ACC32,x save ACC32 for 4+1
|
|
|
|
|
|
pha
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
|
|
|
|
|
|
jsr MATH32.ACC32.T2 ACC32 * 2 -> ACC32
|
|
|
|
|
|
jsr MATH32.ACC32.T2 ACC32 * 4 -> ACC32
|
|
|
|
|
|
|
|
|
|
|
|
ldx #0
|
|
|
|
|
|
ldy #4
|
|
|
|
|
|
* clc
|
|
|
|
|
|
|
|
|
|
|
|
.2 pla ACC32 * 4 + ACC32 -> ACC32
|
|
|
|
|
|
adc ACC32,x
|
|
|
|
|
|
sta ACC32,x
|
|
|
|
|
|
inx
|
|
|
|
|
|
dey
|
|
|
|
|
|
bne .2
|
|
|
|
|
|
|
|
|
|
|
|
MATH32.ACC32.T2 asl ACC32
|
|
|
|
|
|
rol ACC32+1
|
|
|
|
|
|
rol ACC32+2
|
|
|
|
|
|
rol ACC32+3
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.A2ACC32 sta ACC32
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
MATH32.ACC32ZERO
|
|
|
|
|
|
stz ACC32
|
|
|
|
|
|
stz ACC32+1
|
|
|
|
|
|
stz ACC32+2
|
|
|
|
|
|
stz ACC32+3
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.TMP32ZERO
|
|
|
|
|
|
stz TMP32
|
|
|
|
|
|
stz TMP32+1
|
|
|
|
|
|
stz TMP32+2
|
|
|
|
|
|
stz TMP32+3
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.ARG32ABS lda ARG32.Sign
|
|
|
|
|
|
bmi MATH32.ARG32NEG
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.ACC32ABS lda ACC32.Sign
|
|
|
|
|
|
bpl MATH32.ACC32NEG.RTS
|
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MATH32.ACC32NEG ldy #ACC32
|
|
|
|
|
|
.HS 2C BIT ABS
|
|
|
|
|
|
MATH32.ARG32NEG ldy #ARG32
|
|
|
|
|
|
|
|
|
|
|
|
ldx #3
|
|
|
|
|
|
sec
|
|
|
|
|
|
|
|
|
|
|
|
.1 lda $0,y two's complement of X bytes
|
|
|
|
|
|
eor #$ff
|
|
|
|
|
|
adc #0
|
|
|
|
|
|
sta $0,y
|
|
|
|
|
|
iny
|
|
|
|
|
|
dex
|
|
|
|
|
|
bpl .1
|
|
|
|
|
|
MATH32.ACC32NEG.RTS
|
|
|
|
|
|
rts
|
|
|
|
|
|
*--------------------------------------
|
2020-03-12 16:44:11 +00:00
|
|
|
|
MAN
|
2020-12-15 13:23:22 +00:00
|
|
|
|
SAVE usr/src/sys/kernel.s.math32
|
|
|
|
|
|
LOAD usr/src/sys/kernel.s
|
2020-03-12 16:44:11 +00:00
|
|
|
|
ASM
|
