a equ 10 x equ 11 count equ 14 status equ 03 fa equ 15 fb equ 16 y equ 17 hexa equ 19 hexb equ 1a deza equ 1b dezb equ 1c dezc equ 1d dezd equ 1e deze equ 1f clrf deza clrf dezb clrf dezc clrf dezd clrf deze movf hexa,0 andlw 0f movwf deza swapf hexa,0 andlw 0f movwf fa movlw 6 movwf fb call mlp movf y,0 addwf deza,1 movf deza,0 movwf a call div movf a,0 movwf deza movf x,0 movwf dezb swapf hexa,0 andlw 0f addwf dezb,1 movf hexb,0 andlw 0f movwf fa movlw 6 movwf fb call mlp movf y,0 addwf deza,1 movf hexb,0 andlw 0f movwf fa movlw 5 movwf fb call mlp movf y,0 addwf dezb,1 bcf status,0 rlf hexb,0 andlw 1e movwf dezc swapf hexb,0 andlw 0f movwf fa movlw 6 movwf fb call mlp movf y,0 addwf deza,1 swapf hexb,0 andlw 0f movwf fa movlw 9 movwf fb call mlp movf y,0 addwf dezb,1 bcf status,0 rrf hexb,1 bcf status,0 rrf hexb,0 andlw 3c movwf dezd movf deza,0 movwf a call div movf x,0 addwf dezb,1 movf a,0 movwf deza movf dezb,0 movwf a call div movf x,0 addwf dezc,1 movf a,0 movwf dezb movf dezc,0 movwf a call div movf x,0 addwf dezd,1 movf a,0 movwf dezc movf dezd,0 movwf a call div movf x,0 addwf deze,1 movf a,0 movwf dezd goto ende div movlw 5 movwf count clrf x bsf 13,4 movlw 0a0 start movwf 12 subwf a,0 btfss status,0 goto jump movwf a movf 13,0 addwf x,1 jump rrf 13,1 rrf 12,0 decfsz count,1 goto start retlw 0 mlp bcf status,0 clrf y movlw 8 movwf count back btfss fa,0 goto over movf fb,0 addwf y,1 over rrf fa,1 bcf status,0 rlf fb,1 bcf status,0 decfsz count,1 goto back retlw 0 ende end