1 .global ___udivhi3 2 3___udivhi3: 4 stz <r0 5 ldy #1 6 ldx <r4 7 lda <r5 8 9div1: 10 asl a 11 bcs div2 12 iny 13 cpy #17 14 bne div1 15 16div2: ror a 17 18div4: pha 19 txa 20 sec 21 sbc 1,s 22 bcc div3 23 tax 24 25div3: rol <r0 26 pla 27 lsr a 28 dey 29 bne div4 30 rtl 31