mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-31 09:29:37 +00:00
36 lines
364 B
ArmAsm
Executable File
36 lines
364 B
ArmAsm
Executable File
.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
|