90 ; DIVIDE ROUTINE
100 DLOOP = *
110 ASL M2+1
120 ROL M2
130 ROL R2+1
140 ROL R2
150 SEC
160 LDA R2+1
170 SBC M1+1
180 TAX               ;SAVE LOW BYTE
190 LDA R2
200 SBC M1
210 TAY               ;SAVE HIGH BYTE
220 BCC SKIPSAVE
230 STX R2+1          ;STORE SAVED BYTES
240 STY R2            ;IN R2
250 SKIPSAVE = *
260 ROL R1+1          ;SHIFT CARRY FROM
270 ROL R1            ;SUBTRACT INTO R1
280 LDA M2+1
290 BNE DLOOP
300 LDA M2
310 BNE DLOOP
320 RTS
330 M1    .WORD $0005
340 M2    .WORD $002B
350 R1    .WORD $0000
360 R2    .WORD $0000