| .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 |