home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_18_1987_Transactor_Publishing.d64 / divide.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  527b  |  29 lines
  1. 90 ; divide routine
  2. 100 dloop = *
  3. 110 asl m2+1
  4. 120 rol m2
  5. 130 rol r2+1
  6. 140 rol r2
  7. 150 sec
  8. 160 lda r2+1
  9. 170 sbc m1+1
  10. 180 tax               ;save low byte
  11. 190 lda r2
  12. 200 sbc m1
  13. 210 tay               ;save high byte
  14. 220 bcc skipsave
  15. 230 stx r2+1          ;store saved bytes
  16. 240 sty r2            ;in r2
  17. 250 skipsave = *
  18. 260 rol r1+1          ;shift carry from
  19. 270 rol r1            ;subtract into r1
  20. 280 lda m2+1
  21. 290 bne dloop
  22. 300 lda m2
  23. 310 bne dloop
  24. 320 rts
  25. 330 m1    .word $0005
  26. 340 m2    .word $002b
  27. 350 r1    .word $0000
  28. 360 r2    .word $0000
  29.