list p=18f452
include "p18f452.inc"

A_1 equ 0x60
A_2 equ 0x61
B_L equ 0x70

Rst_vect
org 0x0000
goto Start

Start
org 0x0040


movwf 	A_1,0 		;W=A_1
subwf 	A_2,0 		;W=A_1-A_2
btfsc 	STATUS,2 	;zérusjelző-bit
goto 	EGYENLO 	;Z=1, ha A_1=A_2
btfsc 	STATUS,0 	;a C túlcsordulás jelzőbit vizsgálata
goto 	NAGYOBB 	;C=1, ha A_1<A_2
goto	KISEBB		;C=0, ha A_1>A_2



EGYENLO
movlw 	0x00 	;W=0
movwf 	B_L 	;w-->B_L=0
goto START

NAGYOBB
movlw 	0x02 	;W=2
movwf 	B_L 	;w-->B_L=2
goto START

KISEBB
movlw 	0x01 	;W=1
movwf 	B_L 	;w-->B_L=1
goto START

end