10 ;›20 ;DIVISION.SRC ›30 ;›40  *=$0600 ›50 ;›60 DVDL=$C0 ;LOW PART OF DIVIDEND›70 DVDH=$C1 ;HIGH PART OF DIVIDEND ›80 QUOT=$C2 ;QUOTIENT›90 DIVS=$C3 DIVISOR›100 RMDR=$C4 ;REMAINDER ›110 ;›120  LDA #$1C ;JUST A SAMPLE VALUE ›130  STA DVDL›140  LDA #$02 ;THE DIVIDEND IS NOW $021C ›150  STA DVDH›160  LDA #$05 ;ANOTHER SAMPLE VALUE ›170  STA DIVS ;WE'RE DIVIDING BY 5›180  ;›190  LDA DVDH ;ACCUMULATOR WILL HOLD DVDH ›200  LDX #08 ;FOR AN 8-BIT DIVISOR ›210  SEC ›220  SBC DIVS ›230 DLOOP PHP ;THE LOOP THAT DIVIDES ›240  ROL QUOT ›250  ASL DVDL ›260  ROL A ›270  PLP ›280  BCC ADOIT ›290  SBC DIVS ›300  JMP NEXT ›310 ADDIT ADC DIVS ›320 NEXT DEX ›330  BNE DLOOP ›340  BCS FINI ›350  ADC DIVS ›360  CLC ›370 FINI ROL QUOT ›380 STA RMDR ›390 RTS ;ENDIT››