123456789101112131415161718192021222324252627282930 |
- .define Mlu4
- .sect .text
- .sect .rom
- .sect .data
- .sect .bss
- .sect .text
- ! This subroutine multiplies two fourbyte unsigned integers.
- ! For more details see mli.s
- ! The only difference is that zeropage locations are twice as big.
- Mlu4:
- ldy #0
- sty UNSIGN
- jsr Pop
- stx ARTH
- sta ARTH+1
- jsr Pop
- stx ARTH+2
- sta ARTH+3 ! multiplier
- jsr Pop
- stx ARTH+4
- sta ARTH+5
- jsr Pop
- stx ARTH+6
- sta ARTH+7 ! multiplicand
- jmp Mul4
|