mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-28 05:51:04 +00:00
36 lines
364 B
ArmAsm
36 lines
364 B
ArmAsm
|
.global ___sdivhi3
|
||
|
|
|
||
|
|
___sdivhi3:
|
||
|
|
lda <r4
|
||
|
|
ldx <r5
|
||
|
|
|
||
|
|
ldy #0 !flag positive result
|
||
|
|
rol a
|
||
|
|
ror a
|
||
|
|
bpl L10
|
||
|
|
|
||
|
|
iny !flag negative result
|
||
|
|
eor #0xFFFF
|
||
|
|
inc a
|
||
|
|
|
||
|
|
L10: pha
|
||
|
|
txa
|
||
|
|
bpl L20
|
||
|
|
|
||
|
|
dey !flag negative/positive result
|
||
|
|
eor #0xFFFF
|
||
|
|
inc a
|
||
|
|
tax
|
||
|
|
|
||
|
|
L20: pla
|
||
|
|
phy
|
||
|
|
jsr >udv
|
||
|
|
ply
|
||
|
|
beq Lend !if positive result
|
||
|
|
|
||
|
|
eor #0xFFFF !negate result
|
||
|
|
inc a
|
||
|
|
|
||
|
|
Lend: sta <r0
|
||
|
|
rtl
|