Разработка устройства, позволяющего в лабораторных условиях проверять реальную стойкость автомобильной охраны к взлому

call wiwodim

movlw h'04'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x08, 0x14, 0x22, 0x41 К

_AL11

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'22'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x20, 0x41, 0x3F, 0x01, 0x7F Л

_AL12

movlw h'20'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'3f'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x02, 0x0C, 0x02, 0x7F М

_AL13

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'02'

movwf wibrosreg

call wiwodim

movlw h'0c'

movwf wibrosreg

call wiwodim

movlw h'02'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x08, 0x08, 0x08, 0x7F Н

_AL14

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x3E, 0x41, 0x41, 0x41, 0x3E О

_AL15

movlw h'3e'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'3e'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x01, 0x01, 0x01, 0x7F П

_AL16

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x09, 0x09, 0x09, 0x06 Р

_AL17

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'06'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x3E, 0x41, 0x41, 0x41, 0x22 С

_AL18

movlw h'3e'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'22'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x01, 0x01, 0x7F, 0x01, 0x01 Т

_AL19

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x47, 0x28, 0x10, 0x08, 0x07 У

_AL20

movlw h'47'

movwf wibrosreg

call wiwodim

movlw h'28'

movwf wibrosreg

call wiwodim

movlw h'10'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'07'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x1E, 0x21, 0x7F, 0x21, 0x1E ф

_AL21

movlw h'1e'

movwf wibrosreg

call wiwodim

movlw h'21'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'21'

movwf wibrosreg

call wiwodim

movlw h'1e'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x63, 0x14, 0x08, 0x14, 0x63 Х

_AL22

movlw h'63'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'63'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x3F, 0x20, 0x20, 0x20, 0x5F Ц

_AL23

movlw h'3f'

movwf wibrosreg

call wiwodim

movlw h'20'

movwf wibrosreg

call wiwodim

movlw h'20'

movwf wibrosreg

call wiwodim

movlw h'20'

movwf wibrosreg

call wiwodim

movlw h'5f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x07, 0x08, 0x08, 0x08, 0x7F Ч

_AL24

movlw h'07'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x40, 0x7F, 0x40, 0x7F Ш

_AL25

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x3F, 0x20, 0x3F, 0x20, 0x5F Щ

_AL26

movlw h'3f'

movwf wibrosreg

call wiwodim

movlw h'20'

movwf wibrosreg

call wiwodim

movlw h'3f'

movwf wibrosreg

call wiwodim

movlw h'20'

movwf wibrosreg

call wiwodim

movlw h'5f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x01, 0x7F, 0x48, 0x48, 0x30 Ъ

_AL27

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'48'

movwf wibrosreg

call wiwodim

movlw h'48'

movwf wibrosreg

call wiwodim

movlw h'30'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x48, 0x30, 0x00, 0x7F Ы

_AL28

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'48'

movwf wibrosreg

call wiwodim

movlw h'30'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x00, 0x7F, 0x48, 0x48, 0x30 Ь

_AL29

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'48'

movwf wibrosreg

call wiwodim

movlw h'48'

movwf wibrosreg

call wiwodim

movlw h'30'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x41, 0x41, 0x41, 0x49, 0x3E Э

_AL30

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'3e'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x7F, 0x08, 0x3E, 0x41, 0x3E Ю

_AL31

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'3e'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'3e'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************0x46, 0x29, 0x19, 0x09, 0x7F Я

_AL32

movlw h'46'

movwf wibrosreg

call wiwodim

movlw h'29'

movwf wibrosreg

call wiwodim

movlw h'19'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************000000

_AL33

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************000000

_AL34

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************

;***********************************************************************************************

;**********************************************{0x14, 0x7F, 0x14, 0x7F, 0x14},// 23 #

_AL35

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x14, 0x7F, 0x14, 0x7F, 0x14},// 23 #

_AL36

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x14, 0x7F, 0x14, 0x7F, 0x14},// 23 #

_AL37

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x14, 0x7F, 0x14, 0x7F, 0x14},// 23 #

_AL38

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'22'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x14, 0x7F, 0x14, 0x7F, 0x14},// 23 #

_AL39

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'01'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x08, 0x14, 0x22, 0x41, 0x00},// 3c <

_AL38_1

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'22'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

call prabel

return

; ЦИФРЫ

;**********************************************{0x3E, 0x51, 0x49, 0x45, 0x3E},// 30 0

_AL40

movlw h'3e'

movwf wibrosreg

call wiwodim

movlw h'51'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'45'

movwf wibrosreg

call wiwodim

movlw h'3e'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x00, 0x42, 0x7F, 0x40, 0x00},// 31 1

_AL41

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'42'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x42, 0x61, 0x51, 0x49, 0x46},// 32 2

_AL42

movlw h'42'

movwf wibrosreg

call wiwodim

movlw h'61'

movwf wibrosreg

call wiwodim

movlw h'51'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'46'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x21, 0x41, 0x45, 0x4B, 0x31},// 33 3

_AL43

movlw h'21'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

movlw h'45'

movwf wibrosreg

call wiwodim

movlw h'4b'

movwf wibrosreg

call wiwodim

movlw h'31'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x18, 0x14, 0x12, 0x7F, 0x10},// 34 4

_AL44

movlw h'18'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'12'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'10'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x27, 0x45, 0x45, 0x45, 0x39},// 35 5

_AL45

movlw h'27'

movwf wibrosreg

call wiwodim

movlw h'45'

movwf wibrosreg

call wiwodim

movlw h'45'

movwf wibrosreg

call wiwodim

movlw h'25'

movwf wibrosreg

call wiwodim

movlw h'39'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x3C, 0x4A, 0x49, 0x49, 0x30},// 36 6

_AL46

movlw h'3c'

movwf wibrosreg

call wiwodim

movlw h'4a'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'30'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x01, 0x71, 0x09, 0x05, 0x03},// 37 7

_AL47

movlw h'01'

movwf wibrosreg

call wiwodim

movlw h'71'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'05'

movwf wibrosreg

call wiwodim

movlw h'03'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x36, 0x49, 0x49, 0x49, 0x36},// 38 8

_AL48

movlw h'36'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'36'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x06, 0x49, 0x49, 0x29, 0x1E},// 39 9

_AL49

movlw h'06'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'29'

movwf wibrosreg

call wiwodim

movlw h'1e'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x00, 0x60, 0x60, 0x00, 0x00},// 2e .

_AL50

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'60'

movwf wibrosreg

call wiwodim

movlw h'60'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x3F, 0x40, 0x38, 0x40, 0x3F},// 57 W

_ALW

movlw h'3f'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'38'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'3f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x7F, 0x09, 0x09, 0x09, 0x06},// 50 P

_ALP

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'06'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x7F, 0x08, 0x08, 0x08, 0x7F}

_ALH

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'7f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x7F, 0x09, 0x19, 0x29, 0x46}.

_ALR

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'09'

movwf wibrosreg

call wiwodim

movlw h'19'

movwf wibrosreg

call wiwodim

movlw h'29'

movwf wibrosreg

call wiwodim

movlw h'46'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x7F, 0x49, 0x49, 0x49, 0x41},// 45 E

_ALE

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x7E, 0x11, 0x11, 0x11, 0x7E},// 41 A

_ALA

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'11'

movwf wibrosreg

call wiwodim

movlw h'11'

movwf wibrosreg

call wiwodim

movlw h'11'

movwf wibrosreg

call wiwodim

movlw h'7e'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x7F, 0x08, 0x14, 0x22, 0x41},// 4b K

_ALK

movlw h'7f'

movwf wibrosreg

call wiwodim

movlw h'08'

movwf wibrosreg

call wiwodim

movlw h'14'

movwf wibrosreg

call wiwodim

movlw h'22'

movwf wibrosreg

call wiwodim

movlw h'41'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x3F, 0x40, 0x40, 0x40, 0x3F},// 55 U

_ALU

movlw h'3f'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'40'

movwf wibrosreg

call wiwodim

movlw h'3f'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x46, 0x49, 0x49, 0x49, 0x31},// 53 S

_ALS

movlw h'46'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'49'

movwf wibrosreg

call wiwodim

movlw h'31'

movwf wibrosreg

call wiwodim

call prabel

return

;**********************************************{0x46, 0x49, 0x49, 0x49, 0x31},// 53 S

_ALT

movlw h'00'

movwf wibrosreg

call wiwodim

movlw h'60'

movwf wibrosreg

call wiwodim

movlw h'00'

movwf wibrosreg

call wiwodim

return

; ПОДПРОГРАММА ВЫБРОСА И ПРОБЕЛА

;**********************************************

prabel

movlw h'00'

movwf wibrosreg

call wiwodim

return

;**********************************************

wiwodim

bcf LATC,3 ;ЛД

btfsc wibrosreg,7

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

;**********************************************

bcf LATC,3 ;ЛД

btfsc wibrosreg,6

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

;**********************************************

bcf LATC,3 ;ЛД

btfsc wibrosreg,5

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

;**********************************************

bcf LATC,3 ;ЛД

btfsc wibrosreg,4

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

;**********************************************

bcf LATC,3 ;ЛД

btfsc wibrosreg,3

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

;**********************************************

bcf LATC,3 ;ЛД

btfsc wibrosreg,2

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

;**********************************************

bcf LATC,3 ;ЛД

btfsc wibrosreg,1

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

;**********************************************

bcf LATC,3 ;ЛД

btfsc wibrosreg,0

bsf LATC,3 ;ЛД

bsf LATC,4 ;ЛТ

bcf LATC,4 ;ЛТ

return

;**********************************************

; ПОДПРОГРАММА ОТЧИСТКИ ДИСПЛЕЯ С НУЛЕВОЙ СТРОЧКИ

;********************************************************************************************

histim

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

movlw b'01000000' ;строчная адресация)))) 1-000 2-001 3-010 4-011 5-100 6-101

movwf wibrosreg

call wiwodim

bsf LATC,2 ;оброщяемся к LCD

movlw d'240'

movwf bank1

recet5

movlw d'34'

movwf bank0

recet3

bcf LATC,3 ;ЛД

bsf LATC,4

bcf LATC,4 ;ЛТ

decfsz bank0,f

bra recet3

decfsz bank1,f

bra recet5

return

;********************************************************************************************

; ПОДПРОГРАММА АДРЕСА СТРОЧКИ

;********************************************************************************************

STROKA_0

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

movlw b'01000000' ;строчная адресация)))) 1-000 2-001 3-010 4-011 5-100 6-101

movwf wibrosreg

call wiwodim

bsf LATC,2 ;оброщяемся к LCD

return

;********************************************************************************************

STROKA_1

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

movlw b'01000001' ;строчная адресация)))) 1-000 2-001 3-010 4-011 5-100 6-101

movwf wibrosreg

call wiwodim

bsf LATC,2 ;оброщяемся к LCD

return

;********************************************************************************************

STROKA_2

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

movlw b'01000010' ;строчная адресация)))) 1-000 2-001 3-010 4-011 5-100 6-101

movwf wibrosreg

call wiwodim

bsf LATC,2 ;оброщяемся к LCD

return

;********************************************************************************************

STROKA_3

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

movlw b'01000011' ;строчная адресация)))) 1-000 2-001 3-010 4-011 5-100 6-101

movwf wibrosreg

call wiwodim

bsf LATC,2 ;оброщяемся к LCD

return

;********************************************************************************************

STROKA_4

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

movlw b'01000100' ;строчная адресация)))) 1-000 2-001 3-010 4-011 5-100 6-101

movwf wibrosreg

call wiwodim

bsf LATC,2 ;оброщяемся к LCD

return

;********************************************************************************************

STROKA_5

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

movlw b'01000101' ;строчная адресация)))) 1-000 2-001 3-010 4-011 5-100 6-101

movwf wibrosreg

call wiwodim

bsf LATC,2 ;оброщяемся к LCD

return

;********************************************************************************************

; ПОДПРОГРАММА ПОЗИЦИИ В СТРОЧКЕ

;********************************************************************************************

POZIZ_1

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000000' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_2

bcf LATC,2 ;оброщяемся к LCD

movlw b'10000110' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_3

bcf LATC,2 ;оброщяемся к LCD

movlw b'10001100' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_4

bcf LATC,2 ;оброщяемся к LCD

movlw b'10010010' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_5

bcf LATC,2 ;оброщяемся к LCD

movlw b'10011000' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_6

bcf LATC,2 ;оброщяемся к LCD

movlw b'10011110' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_7

bcf LATC,2 ;оброщяемся к LCD

movlw b'10100100' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_8

bcf LATC,2 ;оброщяемся к LCD

movlw b'10101010' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_9

bcf LATC,2 ;оброщяемся к LCD

movlw b'10110000' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_10

bcf LATC,2 ;оброщяемся к LCD

movlw b'10110110' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_11

bcf LATC,2 ;оброщяемся к LCD

movlw b'10111100' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_12

bcf LATC,2 ;оброщяемся к LCD

movlw b'11000010' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_13

bcf LATC,2 ;оброщяемся к LCD

movlw b'11001000' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_14

bcf LATC,2 ;оброщяемся к LCD

movlw b'11001110' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

POZIZ_15

bcf LATC,2 ;оброщяемся к LCD

movlw b'11010100' ;адрес в строке

movwf wibrosreg

call wiwodim

bsf LATC,2

return

;********************************************************************************************

; ПОДПРОГРАММА ЗАДЕРЖКИ КНОПКИ

;********************************************************************************************

zaderjka

movlw d'155'

movwf bank0

metka

movlw d'255'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank0,f

bra metka

return

;********************************************************************************************

; ПОДПРОГРАММА ЗАДЕРЖКИ КНОПКИ

;********************************************************************************************

zaderjka2

movlw d'80'

movwf bank0

metka2

movlw d'255'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank0,f

bra metka2

return

;********************************************************************************************

zaderjka3

movlw d'5'

movwf bank0

metka3

movlw d'255'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank0,f

bra metka3

return

;********************************************************************************************

zaderjka4

movlw d'15'

movwf bank3

metka7

movlw d'255'

movwf bank0

movlw d'255'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank0,f

bra metka6

decfsz bank3,f

bra metka7

return

;********************************************************************************************

;********************************************************************************************

binarim ;ПРИНЯТ ПАКЕТ СТАРЛАЙН

call histim

call STROKA_0

call _AL33

call _AL16

call _AL17

call _AL9

call _AL14

call _AL32

call _AL19

call _AL33

call _AL16

call _AL1

call _AL11

call _AL6

call _AL19

;ВЫВОД ХЕКС ВИДА

call STROKA_2

call _AL33

swapf registr1

movff registr1,bufer

call hexx

swapf registr1

movff registr1,bufer

call hexx

swapf registr2

movff registr2,bufer

call hexx

swapf registr2

movff registr2,bufer

call hexx

swapf registr3

movff registr3,bufer

call hexx

swapf registr3

movff registr3,bufer

call hexx

swapf registr4

movff registr4,bufer

call hexx

swapf registr4

movff registr4,bufer

call hexx

return

;************************************

binarim2

call STROKA_3

call _AL33

swapf registr11

movff registr11,bufer

call hexx

swapf registr11

movff registr11,bufer

call hexx

swapf registr12

movff registr12,bufer

call hexx

swapf registr12

movff registr12,bufer

call hexx

swapf registr13

movff registr13,bufer

call hexx

swapf registr13

movff registr13,bufer

call hexx

swapf registr14

movff registr14,bufer

call hexx

swapf registr14

movff registr14,bufer

call hexx

call STROKA_4

call _AL33

swapf registr15

movff registr15,bufer

call hexx

swapf registr15

movff registr15,bufer

call hexx

swapf registr16

movff registr16,bufer

call hexx

swapf registr16

movff registr16,bufer

call hexx

swapf registr17

movff registr17,bufer

call hexx

swapf registr17

movff registr17,bufer

call hexx

swapf registr18

movff registr18,bufer

call hexx

swapf registr18

movff registr18,bufer

call hexx

return

;********************************************************************************************

binarim3 ;ПРИНЯТ ПАКЕТ КЕЙЛОК

call histim

call STROKA_0

call _AL33

call _AL16

call _AL17

call _AL9

call _AL14

call _AL32

call _AL19

call _AL33

call _AL16

call _AL1

call _AL11

call _AL6

call _AL19

;ВЫВОД ХЕКС ВИДА

call STROKA_2

call _AL33

swapf registr35

movff registr35,bufer

call hexx

swapf registr35

movff registr35,bufer

call hexx

swapf registr34

movff registr34,bufer

call hexx

swapf registr34

movff registr34,bufer

call hexx

swapf registr33

movff registr33,bufer

call hexx

swapf registr33

movff registr33,bufer

call hexx

swapf registr32

movff registr32,bufer

call hexx

swapf registr32

movff registr32,bufer

call hexx

return

;************************************

binarim4

call STROKA_3

call _AL33

swapf registr48

movff registr48,bufer

call hexx

swapf registr48

movff registr48,bufer

call hexx

swapf registr47

movff registr47,bufer

call hexx

swapf registr47

movff registr47,bufer

call hexx

swapf registr46

movff registr46,bufer

call hexx

swapf registr46

movff registr46,bufer

call hexx

swapf registr45

movff registr45,bufer

call hexx

swapf registr45

movff registr45,bufer

call hexx

call STROKA_4

call _AL33

swapf registr44

movff registr44,bufer

call hexx

swapf registr44

movff registr44,bufer

call hexx

swapf registr43

movff registr43,bufer

call hexx

swapf registr43

movff registr43,bufer

call hexx

swapf registr42

movff registr42,bufer

call hexx

swapf registr42

movff registr42,bufer

call hexx

swapf registr41

movff registr41,bufer

call hexx

swapf registr41

movff registr41,bufer

call hexx

;********************** ПОДПРОГРАММА СОХРАНЕНИЯ ПАКЕТА

;**********************

return

;********************************************************************************************

werh

btfss PORTB,2

goto programma2

btfss PORTB,4

goto programma2

btfss PORTC,5

bra werh

movlw d'6'

movwf bank1

log1

btfss PORTC,5

bra werh

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra log1

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bra keeloq

;********************************************************************************************

btfsc PORTC,5

bra $-2

btfss PORTC,5

bra $-2

;**************************************

movlw b'00001101'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'5'

movwf bank0

preambula

movlw d'10'

movwf bank2

log_1

btfsc PIR1,TMR2IF

bra werh

btfss PORTC,5

bra werh

movlw d'25'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra log_1

clrf TMR2

;**************************************

taimer_0

btfsc PIR1,TMR2IF

bra werh

btfsc PORTC,5

bra taimer_0

;**************************************

movlw d'10'

movwf bank2

log_0

btfsc PIR1,TMR2IF

bra werh

btfsc PORTC,5

bra werh

movlw d'20'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra log_0

clrf TMR2

;**************************************

taimer_1

btfsc PIR1,TMR2IF

bra werh

btfss PORTC,5

bra taimer_1

;**************************************

decfsz bank0,f

bra preambula

;********************************************************************************************

movlw b'00011100'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'56'

movwf bank0

priem

;**************************************

movlw d'8'

movwf bank2

bit

btfsc PIR1,TMR2IF

bra werh

btfss PORTC,5

bra werh

movlw d'4'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra bit

;**************************************

clrf TMR2

movlw d'60'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bsf STATUS,C

btfsc PORTC,5

bcf STATUS,C

rlcf registr7

rlcf registr6

rlcf registr5

rlcf registr4

rlcf registr3

rlcf registr2

rlcf registr1

;**************************************

taimer_0_2

btfsc PIR1,TMR2IF

bra werh

btfsc PORTC,5

bra taimer_0_2

;**************************************

taimer_1_3

btfsc PIR1,TMR2IF

bra werh

btfss PORTC,5

bra taimer_1_3

;**************************************

clrf TMR2

decfsz bank0,f

bra priem

;********************************************************************************************

movlw d'255'

movwf bank1

pameha

bsf LATC,6

movlw d'255'

movwf bank2

nop

nop

nop

nop

decfsz bank2,f

bra $-10

;**************************************

bcf LATC,6

movlw d'255'

movwf bank2

nop

nop

nop

nop

decfsz bank2,f

bra $-10

decfsz bank1,f

bra pameha

;********************************************************************************************

call binarim

;********************************

movlw b'10000110'

movwf T0CON

clrf TMR0H

clrf TMR0L

bcf INTCON,T0IF

wert

movlw b'00001101'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

btfsc INTCON,T0IF

goto werh ;0x0000

movlw d'6'

movwf bank0

preambula2

movlw d'10'

movwf bank2

log_1_2

btfsc PIR1,TMR2IF

bra wert

btfss PORTC,5

bra wert

movlw d'25'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra log_1_2

clrf TMR2

;**************************************

taimer_0_4

btfsc PIR1,TMR2IF

bra wert

btfsc PORTC,5

bra taimer_0_4

;**************************************

movlw d'10'

movwf bank2

log_0_2

btfsc PIR1,TMR2IF

bra wert

btfsc PORTC,5

bra wert

movlw d'20'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra log_0_2

clrf TMR2

;**************************************

taimer_1_5

btfsc PIR1,TMR2IF

bra wert

btfss PORTC,5

bra taimer_1_5

;**************************************

decfsz bank0,f

bra preambula2

;********************************************************************************************

movlw b'00011100'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'64'

movwf bank0

priem2

;**************************************

taimer_1_7

btfsc PIR1,TMR2IF

bra wert

btfss PORTC,5

bra taimer_1_7

;**************************************

clrf TMR2

movlw d'8'

movwf bank2

bit2

btfsc PIR1,TMR2IF

bra wert

btfss PORTC,5

bra wert

movlw d'4'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra bit2

;**************************************

clrf TMR2

movlw d'60'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bsf STATUS,C

btfsc PORTC,5

bcf STATUS,C

rlcf registr18

rlcf registr17

rlcf registr16

rlcf registr15

rlcf registr14

rlcf registr13

rlcf registr12

rlcf registr11

;**************************************

taimer_0_6

btfsc PIR1,TMR2IF

bra wert

btfsc PORTC,5

bra taimer_0_6

;**************************************

decfsz bank0,f

bra priem2

;********************************************************************************************

movf registr15,w

xorwf registr5,w

btfss STATUS,Z

bra wert

bcf STATUS,Z

;**************************************

movf registr11,w

xorwf registr1,w

btfsc STATUS,Z

bra wert

bcf STATUS,Z

;**************************************

movf registr12,w

xorwf registr2,w

btfsc STATUS,Z

bra wert

bcf STATUS,Z

;**************************************

movlw d'155'

movwf registr60

xorwf registr18,w

btfss STATUS,Z

bra wert

bcf STATUS,Z

;********************************************************************************************

call binarim2 ;ОТПРАВЛЯЕМ НА ВЫВОД ХЕКС ВИД

;********************************

;********************************************************************************************

knopkaS

btfss PORTB,2

goto programma2

btfss PORTB,4

goto programma2

call skan

btfsc PORTB,0

bra knopkaS

;*********************************!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

call wiwidim_pac ;НАДПИСЬ ОТПРАВЛЯЕМ ПАКЕТ

call wiwidim_pacs1 ;НАДПИСЬ СТРЕЛКА

call wiwidim_pacs0 ;НАДПИСЬ СТРЕЛКА

movlw d'5'

movwf bank2

paket1

movlw d'6'

movwf bank0

wibros_pr

bsf LATC,6

movlw d'225'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'225'

movwf bank1

nop

decfsz bank1,f

bra $-4

decfsz bank0,f

bra wibros_pr

;********************************************************************************************

movlw d'64'

movwf bank0

wibros

btfss registr1,7

bcf STATUS,C

btfsc registr1,7

bsf STATUS,C

rlcf registr18

rlcf registr17

rlcf registr16

rlcf registr5

rlcf registr4

rlcf registr3

rlcf registr2

rlcf registr1

btfsc STATUS,C

bra LOG_1

;********************************************************************************************

bsf LATC,6

movlw d'120'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'120'

movwf bank1

nop

decfsz bank1,f

bra $-4

bra LOG_2

;********************************************************************************************

LOG_1

bsf LATC,6

movlw d'60'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'60'

movwf bank1

nop

decfsz bank1,f

bra $-4

LOG_2

decfsz bank0,f

bra wibros

decfsz bank2,f

bra paket1

;********************************************************************************************

call wiwidim_pacs3

call wiwidim_pacs2 ;НАДПИСЬ СТРЕЛКА

call wiwidim_pacs0

movlw d'5'

movwf bank2

paket2

movlw d'6'

movwf bank0

wibros_pr2

bsf LATC,6

movlw d'225'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'225'

movwf bank1

nop

decfsz bank1,f

bra $-4

decfsz bank0,f

bra wibros_pr2

;********************************************************************************************

movlw d'64'

movwf bank0

wibros2

btfss registr11,7

bcf STATUS,C

btfsc registr11,6

bsf STATUS,C

rlcf registr11

rlcf registr12

rlcf registr13

rlcf registr14

rlcf registr14

rlcf registr13

rlcf registr12

rlcf registr11

btfsc STATUS,C

bra LOG_1_2

;********************************************************************************************

bsf LATC,6

movlw d'120'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'120'

movwf bank1

nop

decfsz bank1,f

bra $-4

bra LOG_2_2

;********************************************************************************************

LOG_1_2

bsf LATC,6

movlw d'60'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'60'

movwf bank1

nop

decfsz bank1,f

bra $-4

LOG_2_2

decfsz bank0,f

bra wibros2

decfsz bank2,f

bra paket2

;********************************************************************************************

call STROKA_5

call belim

call wiwidim_pacs3

bra knopkaS

;********************************************************************************************

;********************************************************************************************

;********************************************************************************************

;********************************************************************************************

;********************************************************************************************

;********************************************************************************************

keeloq

clrf registr_STATUS

;**************************************

movlw b'00011110'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'8'

movwf bank0

preambula_keeloq

btfsc PIR1,TMR2IF

bra werh

btfss PORTC,5

bra preambula_keeloq

movlw d'6'

movwf bank1

log1_k

btfss PORTC,5

bra werh

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra log1_k

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfsc PORTC,5

bra werh

decfsz bank0,f

bra preambula_keeloq

clrf TMR2

;********************************************************************************************

hoder

movlw d'30'

movwf bank1

hod

btfsc PORTC,5

bra hoder

movlw d'27'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra hod

;********************************************************************************************

movlw d'40'

movwf bank0

priem_k

btfsc PORTC,5

bra $-2

btfsc PIR1,TMR2IF

bra werh

btfss PORTC,5

bra $-6

movlw d'6'

movwf bank1

TE

btfss PORTC,5

bra werh

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra TE

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bsf STATUS,C

btfsc PORTC,5

bcf STATUS,C

rlcf registr31

rlcf registr32

rlcf registr33

rlcf registr34

rlcf registr35

clrf TMR2

decfsz bank0,f

bra priem_k

;********************************************************************************************

movlw d'255'

movwf bank1

pameha_k

bsf LATC,6

movlw d'255'

movwf bank2

nop

nop

nop

nop

decfsz bank2,f

bra $-10

;**************************************

bcf LATC,6

movlw d'255'

movwf bank2

nop

nop

nop

nop

decfsz bank2,f

bra $-10

decfsz bank1,f

bra pameha_k

;********************************

call binarim3

;********************************************************************************************

;********************************************************************************************

movlw b'10000110'

movwf T0CON

clrf TMR0H

clrf TMR0L

bcf INTCON,T0IF

;**************************************

werh2_keeloq

;**************************************

btfsc INTCON,T0IF

goto werh ;0x0000

movlw b'00011110'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'8'

movwf bank0

preambula2_k

btfsc PIR1,TMR2IF

bra werh2_keeloq

btfss PORTC,5

bra preambula2_k

movlw d'6'

movwf bank1

log12

btfss PORTC,5

bra werh2_keeloq

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra log12

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfsc PORTC,5

bra werh2_keeloq

decfsz bank0,f

bra preambula2_k

clrf TMR2

;********************************************************************************************

hoder2

movlw d'30'

movwf bank1

hod2

btfsc PORTC,5

bra hoder2

movlw d'27'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra hod2

;********************************************************************************************

movlw d'64'

movwf bank0

priem2_k

btfsc PORTC,5

bra $-2

btfsc PIR1,TMR2IF

bra werh2_keeloq

btfss PORTC,5

bra $-6

movlw d'6'

movwf bank1

TE2

btfss PORTC,5

bra werh2_keeloq

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra TE2

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bsf STATUS,C

btfsc PORTC,5

bcf STATUS,C

rlcf registr41

rlcf registr42

rlcf registr43

rlcf registr44

rlcf registr45

rlcf registr46

rlcf registr47

rlcf registr48

clrf TMR2

decfsz bank0,f

bra priem2_k

movf registr44,w

xorwf registr31,w

btfss STATUS,Z

bra werh2_keeloq

bcf STATUS,Z

;********************************

call binarim4

;********************************************************************************************

knopkaS1

btfss PORTB,2

goto programma2

btfss PORTB,4

goto programma2

call STROKA_5

call belim

call skan

bcf registr_STATUS,2

btfss PORTB,0

bra paket_1

bra knopkaS1

;********************************************************************************************

paket_1

movff registr41,registr51

movff registr42,registr52

movff registr43,registr53

movff registr31,registr54

movff registr32,registr55

movff registr33,registr56

movff registr34,registr57

movff registr35,registr58

bcf registr_STATUS,4

call wiwidim_pacs1 ;НАДПИСЬ СТРЕЛКА

;**************************************

bra wibros_pak

;********************************************************************************************

paket_2

movff registr31,registr51

movff registr32,registr52

movff registr41,registr53

movff registr44,registr54

movff registr45,registr55

movff registr16,registr56

movff registr47,registr57

movff registr38,registr58

call wiwidim_pacs2 ;НАДПИСЬ СТРЕЛКА

bsf registr_STATUS,2

;**************************************

bra wibros_pak

;********************************************************************************************

wibros_pak

call wiwidim_pac ;НАДПИСЬ ОТПРАВЛЯЕМ ПАКЕТ

call wiwidim_pacs0

movlw d'3'

movwf bank6

powtor

movlw d'12'

movwf bank0

wibros_pre

bsf LATC,6

movlw d'100'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'100'

movwf bank1

nop

decfsz bank1,f

bra $-4

decfsz bank0,f

bra wibros_pre

;********************************************************************************************

bcf LATC,6

movlw d'210'

movwf bank1

hoder_2

movlw d'4'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra hoder_2

;********************************************************************************************

movlw d'64'

movwf bank0

wibros_k

btfss registr58,7

bcf STATUS,C

btfsc registr58,7

bsf STATUS,C

rlcf registr51

rlcf registr52

rlcf registr53

rlcf registr54

rlcf registr55

rlcf registr56

rlcf registr57

rlcf registr58

btfsc STATUS,C

bra LOG_1_k

;********************************************************************************************

bsf LATC,6

movlw d'190'

movwf bank1

nop

decfsz bank1 ,f

bra $-4

bcf LATC,6

movlw d'120'

movwf bank1

decfsz bank1,f

bra $-2

bra LOG_2_k

;********************************************************************************************

LOG_1_k

bsf LATC,6

movlw d'120'

movwf bank1

decfsz bank1,f

bra $-2

bcf LATC,6

movlw d'190'

movwf bank1

nop

decfsz bank1,f

bra $-4

LOG_2_k

decfsz bank0,f

bra wibros_k

;********************************************************************************************

bsf LATC,6

movlw d'190'

movwf bank1

nop

decfsz bank1,f

bra $-4

bcf LATC,6

movlw d'120'

movwf bank1

decfsz bank1,f

bra $-2

;**************************************

bsf LATC,6

movlw d'120'

movwf bank1

decfsz bank1,f

bra $-2

bcf LATC,6

movlw d'190'

movwf bank1

nop

decfsz bank1,f

bra $-4

;**************************************

movlw d'19'

movwf bank1

ipauza

movlw d'255'

movwf bank0

decfsz bank0,f

bra $-2

decfsz bank1,f

bra ipauza

decfsz bank6,f

bra powtor

;**************************************

call wiwidim_pacs3

btfsc registr_STATUS,4

bra knopkaS1

movlw d'55'

movwf bank1

pauza

movlw d'255'

movwf bank0

nop

nop

nop

nop

nop

nop

nop

nop

nop

nop

decfsz bank0,f

bra $-22

decfsz bank1,f

bra pauza

bsf registr_STATUS,4

btfss registr_STATUS,2

bra paket_2

bra knopkaS1

;********************************************************************************************

skan ;ПРОЦЕДУРА СКАНИРОВАНИЯ ЭФИРА

movlw b'00011110'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

t2

btfsc PIR1,TMR2IF

bra retu

movlw d'55'

movwf bank2

wert2

btfss PORTC,5

bra t2

decfsz bank2,f

bra wert2

call STROKA_5

call POZIZ_1

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call _AL36

call zaderjka3

call zaderjka3

call zaderjka3

call zaderjka3

call zaderjka3

btfsc PORTC,5

bra $-2

call STROKA_5

call POZIZ_14

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_13

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_12

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_11

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_10

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_9

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_8

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_7

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_6

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_5

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_4

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_3

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_2

call _AL33

call zaderjka3

call STROKA_5

call POZIZ_1

call _AL33

retu

return

;********************************************************************************************

;********************************************************************************************

; ПОДПРОГРАММА ИНДИКАЦИИ ВЫБРАСА ПАКЕТА

wiwidim_pac

call STROKA_5

call _AL33

call _AL15

call _AL19

call _AL16

call _AL17

call _AL1

call _AL3

call _AL11

call _AL1

call _AL33

call _AL11

call _AL15

call _AL5

call _AL1

return

;********************************************************************************************

; ПОДПРОГРАММА ЗАБЕЛА СТРОКИ

belim

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

return

;********************************************************************************************

; ПОДПРОГРАММА СТРЕЛКИ

;********************************************************************************************

wiwidim_pacs0

call STROKA_4

call POZIZ_11

call _AL37

call _AL37

call _AL38

return

;********************************************************************************************

; ПОДПРОГРАММА СТРЕЛКИ

;********************************************************************************************

wiwidim_pacs1

call STROKA_2

call POZIZ_11

call _AL37

call _AL37

call _AL38

return

;********************************************************************************************

; ПОДПРОГРАММА СТРЕЛКИ

;********************************************************************************************

wiwidim_pacs2

call STROKA_3

call POZIZ_11

call _AL37

call _AL37

call _AL38

return

;********************************************************************************************

; ПОДПРОГРАММА ЧИСТИМ СТРЕЛКИ

;********************************************************************************************

wiwidim_pacs3

call STROKA_2

call POZIZ_11

call _AL33

call _AL33

call _AL33

call STROKA_3

call POZIZ_11

call _AL33

call _AL33

call _AL33

call STROKA_4

call POZIZ_11

call _AL33

call _AL33

call _AL33

return

;********************************************************************************************

; ПОДПРОГРАММА АНАЛИЗАТОРА

;********************************************************************************************

analizatorpac

call histim ;чистим поле

;ВВВ ФРИКЕР ЮС

call STROKA_5

call _ALW

call _ALW

call _ALW

call _ALT

call _ALP

call _ALH

call _ALR

call _ALE

call _ALA

call _ALK

call _ALE

call _ALR

call _ALT

call _ALU

call _ALS

call STROKA_0

call POZIZ_10

call cod

call zaderjka

call STROKA_1

call POZIZ_10

call hopping

call zaderjka

call STROKA_2

call POZIZ_10

call fixed

call zaderjka

call STROKA_3

call POZIZ_10

call button

call zaderjka

;********************************************************************************************

werh7

btfss PORTB,2

goto programma2

btfss PORTB,4

goto programma2

btfss PORTC,5

bra werh7

movlw d'6'

movwf bank1

log17

btfss PORTC,5

bra werh7

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra log17

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bra keeloq7

;********************************************************************************************

btfsc PORTC,5

bra $-2

btfss PORTC,5

bra $-2

;**************************************

movlw b'00001101'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'5'

movwf bank0

preambula7

movlw d'10'

movwf bank2

log_17

btfsc PIR1,TMR2IF

bra werh7

btfss PORTC,5

bra werh7

movlw d'25'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra log_17

clrf TMR2

;**************************************

taimer_07

btfsc PIR1,TMR2IF

bra werh7

btfsc PORTC,5

bra taimer_07

;**************************************

movlw d'10'

movwf bank2

log_07

btfsc PIR1,TMR2IF

bra werh7

btfsc PORTC,5

bra werh7

movlw d'20'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra log_07

clrf TMR2

;**************************************

taimer_17

btfsc PIR1,TMR2IF

bra werh7

btfss PORTC,5

bra taimer_17

;**************************************

decfsz bank0,f

bra preambula7

;***************************************************************************

movlw b'00011100'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'64'

movwf bank0

priem7

;**************************************

movlw d'8'

movwf bank2

bit7

btfsc PIR1,TMR2IF

bra werh7

btfss PORTC,5

bra werh7

movlw d'4'

movwf bank1

decfsz bank1,f

bra $-2

decfsz bank2,f

bra bit7

;**************************************

clrf TMR2

movlw d'60'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bsf STATUS,C

btfsc PORTC,5

bcf STATUS,C

rlcf registr8

rlcf registr7

rlcf registr6

rlcf registr5

rlcf registr4

rlcf registr3

rlcf registr2

rlcf registr1

;**************************************

taimer_0_27

btfsc PIR1,TMR2IF

bra werh7

btfsc PORTC,5

bra taimer_0_27

;**************************************

taimer_1_37

btfsc PIR1,TMR2IF

bra werh7

btfss PORTC,5

bra taimer_1_37

;**************************************

clrf TMR2

decfsz bank0,f

bra priem7

;**************************************************************************

;************************************

call STROKA_0

call starline_nad

call STROKA_1

swapf registr1

movff registr1,bufer

call hexx

swapf registr1

movff registr1,bufer

call hexx

swapf registr2

movff registr2,bufer

call hexx

swapf registr2

movff registr2,bufer

call hexx

swapf registr3

movff registr3,bufer

call hexx

swapf registr3

movff registr3,bufer

call hexx

swapf registr4

movff registr4,bufer

call hexx

swapf registr4

movff registr4,bufer

call hexx

call _AL33

call hopping

;************************************

call STROKA_2

swapf registr5

movff registr5,bufer

call hexx

swapf registr5

movff registr5,bufer

call hexx

swapf registr6

movff registr6,bufer

call hexx

swapf registr6

movff registr6,bufer

call hexx

swapf registr7

movff registr7,bufer

call hexx

swapf registr7

movff registr7,bufer

call hexx

call _AL33

call _AL33

call _AL33

call fixed

;************************************

call STROKA_3

swapf registr8

movff registr8,bufer

call hexx

swapf registr8

movff registr8,bufer

call hexx

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call _AL33

call button

;************************************

bra werh7

keeloq7

;**************************************

movlw b'00011110'

movwf T2CON

clrf TMR2

bcf PIR1,TMR2IF

;**************************************

movlw d'8'

movwf bank0

preambula_keeloq7

btfsc PIR1,TMR2IF

bra werh7

btfss PORTC,5

bra preambula_keeloq7

movlw d'6'

movwf bank1

log1_k7

btfss PORTC,5

bra werh7

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra log1_k7

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfsc PORTC,5

bra werh7

decfsz bank0,f

bra preambula_keeloq7

clrf TMR2

;********************************************************************************************

hoder7

movlw d'30'

movwf bank1

hod7

btfsc PORTC,5

bra hoder7

movlw d'27'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra hod7

;********************************************************************************************

movlw d'64'

movwf bank0

priem_k7

btfsc PORTC,5

bra $-2

btfsc PIR1,TMR2IF

bra werh7

btfss PORTC,5

bra $-6

movlw d'6'

movwf bank1

TE7

btfss PORTC,5

bra werh7

movlw d'15'

movwf bank2

decfsz bank2,f

bra $-2

decfsz bank1,f

bra TE7

;**************************************

movlw d'100'

movwf bank2

decfsz bank2,f

bra $-2

;**************************************

btfss PORTC,5

bsf STATUS,C

btfsc PORTC,5

bcf STATUS,C

rlcf registr8

rlcf registr7

rlcf registr6

rlcf registr5

rlcf registr4

rlcf registr3

rlcf registr2

rlcf registr1

clrf TMR2

decfsz bank0,f

bra priem_k7