mlu4.s 427 B

123456789101112131415161718192021222324252627282930
  1. .define Mlu4
  2. .sect .text
  3. .sect .rom
  4. .sect .data
  5. .sect .bss
  6. .sect .text
  7. ! This subroutine multiplies two fourbyte unsigned integers.
  8. ! For more details see mli.s
  9. ! The only difference is that zeropage locations are twice as big.
  10. Mlu4:
  11. ldy #0
  12. sty UNSIGN
  13. jsr Pop
  14. stx ARTH
  15. sta ARTH+1
  16. jsr Pop
  17. stx ARTH+2
  18. sta ARTH+3 ! multiplier
  19. jsr Pop
  20. stx ARTH+4
  21. sta ARTH+5
  22. jsr Pop
  23. stx ARTH+6
  24. sta ARTH+7 ! multiplicand
  25. jmp Mul4