;Copyright (C) widzo 1997-2000
;All right reserved
;[e-mail]
;PODOROGRAM, KTóRY ZAMIENIA 4 BAJTOWÅ„ LICZB¨ HEX NA LICZB¨
;DZIESI¨TNÅ„
;********** !!! Z WYWIETLANIEM WARTOCI !!! ***********
;WE - DPTR
;WY - 60H,61H,62H



WYN1 EQU 62H
WYN2 EQU 61H
WYN3 EQU 60H
HI_D EQU 63H
LO_D EQU 64H
BITY EQU R3
D1 EQU 67H
D2 EQU 66H
D3 EQU 65H


ORG 0F000H

START:
LCALL CLS

MOV BLINKS,#0F0H
MOV B,#5
LCALL GETDPTR

LCALL H_D
RT:
LCALL CLS
MOV B,#5
LCALL DPTR4HEX

MOV A,WYN3
MOV B,#3
LCALL A2HEX

MOV A,WYN2
MOV B,#5
LCALL A2HEX

MOV A,WYN1
MOV B,#7
LCALL A2HEX
WAIT:
LCALL CONIN
CJNE A,#KL_OK,WAIT
SJMP START

;***********************************************************
H_D:
MOV WYN1,#0
MOV WYN2,#0
MOV WYN3,#0

MOV D1,#0
MOV D2,#0
MOV D3,#0

MOV HI_D,DPH
MOV LO_D,DPL

MOV R4,HI_D
MOV BITY,#128
MOV R5,#16
MOV DPTR,#TABL
TU:
CJNE R5,#8,TAM
MOV BITY,#128
MOV R4,LO_D
TAM:
MOV A,R4
ANL A,BITY
JNZ WER
ROT:
MOV A,BITY
RR A
MOV BITY,A
DJNZ R5,TU
RET

WER:
MOV B,#3
MOV A,R5
MUL AB
DEC A
MOV R6,A

MOVC A,@A+DPTR
MOV D1,A
MOV A,R6
DEC A
MOV R6,A


MOVC A,@A+DPTR
MOV D2,A
MOV A,R6
DEC A
MOV R6,A

MOVC A,@A+DPTR
MOV D3,A


MOV R2,#3
MOV R0,#WYN1
MOV R1,#D1
LCALL AD

SJMP ROT

AD:
CLR C
AD1:
MOV A,@R0
ADDC A,@R1
DA A
MOV @R0,A
DEC R0
DEC R1
DJNZ R2,AD1
RET


TABL DB 00H,00H,01H ;2 DO 0
DB 00H,00H,02H ;2 DO 1
DB 00H,00H,04H ;2 DO 2
DB 00H,00H,08H ;2 DO 3
DB 00H,00H,16H ;2 DO 4
DB 00H,00H,32H ;2 DO 5
DB 00H,00H,64H ;2 DO 6
DB 00H,01H,28H ;2 DO 7
DB 00H,02H,56H ;2 DO 8
DB 00H,05H,12H ;2 DO 9
DB 00H,10H,24H ;2 DO 10
DB 00H,20H,48H ;2 DO 11
DB 00H,40H,96H ;2 DO 12
DB 00H,81H,92H ;2 DO 13
DB 01H,63H,84H ;2 DO 14
DB 03H,27H,68H ;2 DO 15

INCLUDE 'ADRESY.INC'

END