to $ + 1
A1 1409 00313 bsf Clk
A2 29A3 00314 goto $ + 1
A3 29A4 00315 goto $ + 103.20 Released KURS.ASM 12-16-2004 15:59:48 PAGE 7OBJECT CODE LINE SOURCE TEXT
A4 29A5 00316 goto $ + 1
A5 1009 00317 bcf Clk
A6 2 163 00 319 call Del1
; movlw .200; витримка для драйвера 500 мкС
; movwf Delay
; Init2
; decfsz Delay, 1
; goto Init2
A7 +1586 00325 bsf CS
A8 +3001 00327 movlw 1
A9 00A5 00328 movwf TEMP1
00329
AA 0008 00330 RETURN
; МАКРОС ПЕРЕКЛАДУ ІЗ 16 - gt; 10
00337
HexToDec macro
clrf Z100
clrf Z10
LOOP1
MOVLW .100
SUBWF TEMP2,0
BTFSS STATUS, C; 0
GOTO LOOP2
INCF Z100,1
MOVWF TEMP2
GOTO LOOP1
LOOP2
MOVF TEMP2,0
LOOP3
MOVLW .10
SUBWF TEMP2,0
BTFSS STATUS, C
GOTO LOOP4
INCF Z10,1
MOVWF TEMP2
GOTO LOOP3
LOOP4
MOVF TEMP2,0
BCF STATUS, C
RLF Z10,1
RLF Z10,103.20 Released KURS.ASM 12-16-2004 15:59:48 PAGE 8OBJECT CODE LINE SOURCE TEXT
RLF Z10,1
RLF Z10,1
ADDWF Z10,1
00372
endm
; Підпрограма виводу на індикатори
00378
AB 00379 Data_7
HexToDec
AB 01A7 M clrf Z100
AC 01A8 M clrf Z10
AD M LOOP1
AD +3064 M MOVLW .100
AE 0226 M SUBWF TEMP2,0
AF 1C03 M BTFSS STATUS, C; 0
B0 29B4 M GOTO LOOP2
B1 0AA7 M INCF Z100,1
B2 00A6 M MOVWF TEMP2
B3 29AD M GOTO LOOP1
B4 M LOOP2
B4 0826 M MOVF TEMP2,0
B5 M LOOP3
B5 300A M MOVLW .10
B6 0226 M SUBWF TEMP2,0
B7 1C03 M BTFSS STATUS, C
B8 29BC M GOTO LOOP4
B9 0AA8 M INCF Z10,1
BA 00A6 M MOVWF TEMP2
BB 29B5 M GOTO LOOP3
BC M LOOP4
BC 0826 M MOVF TEMP2,0
BD +1003 M BCF STATUS, C
BE 0DA8 M RLF Z10,1
BF 0DA8 M RLF Z10,1
C0 0DA8 M RLF Z10,1
C1 0DA8 M RLF Z10,1
C2 07A8 M ADDWF Z10,1
C3 1186 00381 bcf CS
C4 3008 00383 movlw 8
C5 00A1 00384 movwf WW
C6 00385 Data_7_1
C6 29C7 00386 goto $ + 1
C7 29C8 00387 goto $ + 103.20 Released KURS.ASM 12-16-2004 15:59:48 PAGE 9OBJECT CODE LINE SOURCE TEXT
C8 29C9 00388 goto $ + 1
C9 1409 00389 bsf Clk
CA 29CB 00390 goto $ + 1; Порожній п'ятого індикатор
CB 29CC 00391 goto $ + 1
CC 29CD 00392 goto $ + 1
CD 1009 00393 bcf Clk
CE 0BA1 00394 decfsz WW, ??1
CF 29C6 00395 goto Data_7_1
D0 3008 00398 movlw 8
D1 00A1 00399 movwf WW
D2 00401 Data_7_2
D2 0DA7 00402 rlf Z100,1
D3 1 089 00403 bcf Data
D4 +1803 00404 btfsc STATUS, C
D5 1489 00405 bsf Data
D6 29D7 00406 goto $ + 1
