;---------------------------------------------------------
STATUS EQU 03H
C EQU 00H
X EQU 20H
Y EQU 21H
Z EQU 22H
;--------------------------------------------------------
MAIN MOVF 30H,0
MOVWF X
MOVF 21H,0
MOVWF Y
CALL SUB
MOVF Z,0
MOVWF X
MOVF 32H,0
MOVWF Y
CALL SUB
MOVF Z,0
MOVWF 40H
STOP GOTO STOP
;--------------------------------------------------------