******************************************
* Naively divides CC:D by Y
* Returns D:division, X:remainder
******************************************
div    pshs   d,y
       ldx    #-1
       bcc    loop1
       bsr    loop2
       andcc  #254
loop1  bsr    loop2
       addd   2,s
       std    2,s
       stx    ,s
       puls   d,x,pc
loop2  leax   1,x
       subd   4,s
       bcc    loop2
       rts