123456789101112131415161718192021222324252627282930313233343536 |
- .define Dvu4
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! This subroutine performs an unsigned division on fourbyte
- ! integers. For more details see dvi.s
- ! The only difference is that zeropage locations are twice as big.
- Dvu4:
- ldy #0
- sty UNSIGN ! it is unsigned
- jsr Pop
- stx ARTH
- sta ARTH+1
- jsr Pop
- stx ARTH+2
- sta ARTH+3 ! divisor in ARTH - ARTH+3
- jsr Pop
- stx ARTH+4
- sta ARTH+5
- jsr Pop
- stx ARTH+6
- sta ARTH+7 ! dividend in ARTH+4 - ARTH+7
- jsr Duv4
- lda ARTH+7
- ldx ARTH+6
- jsr Push
- lda ARTH+5
- ldx ARTH+4
- jmp Push ! store result
|