_B#VR1 = 52= 53= 54
_I = 55
#DEFINE RAW1 PORTA,0
#DEFINE RAW2 PORTA,1
#DEFINE RAW3 PORTA,2
#DEFINE RAW4 PORTA,3
#DEFINE COL1 PORTA,4
#DEFINE COL2 PORTA,5
#DEFINE COL3 PORTC,0
#DEFINE LED1 PORTC,4
#DEFINE LED2 PORTC,5
#DEFINE LEDPOD PORTC,3
#DEFINE FLAG _B#VR1,0
#DEFINE FLAG1 _B#VR1,1#CODE#START0PROTON#MAIN#START@GTB38@GTW40@GT391@ST3540,W38,W$ + 339,W37,W41235,W1I@NT@RD3,5155@RD@W3,5156,PP_RD154,W155,FI@NT@WR@WR@W3,5154156,PP_WREN85157170157156,PP_WR156,PP_WR$ - 1156,PP_WREN155,FI@NT@MS40@W39@P25539,F40,FI@NT338223DLUS@WDLY@P@US38@W2323738,F252$ + 437,F$ - 237,F38,F$ - 637,0$ + 137,1$ + 3$ + 1@NT3,7@NT23,53,6#MAIN#START_SOF EQU $ ; ZAM_676.PRP_EOF EQU $ ; ZAM_676.PRP_SOF EQU $ ; ZAM_676.BAS_000009 EQU $ ; IN [ZAM_676.BAS] ALL_DIGITAL = TRUE7CMCONSTATUS,5_BANK = 1ANSEL_000010 EQU $ ; IN [ZAM_676.BAS] INPUT PORTA.0: INPUT PORTA.1: INPUT PORTA.2: INPUT PORTA.3TRISA,0TRISA,1TRISA,2TRISA,3_000011 EQU $ ; IN [ZAM_676.BAS] OUTPUT PORTA.4: OUTPUT PORTA.5: OUTPUT PORTA.6: OUTPUT PORTCTRISA,4TRISA,5TRISA,6TRISC_000029 EQU $ ; IN [ZAM_676.BAS] KEY = 0STATUS,5_BANK = 0KEY_000030 EQU $ ; IN [ZAM_676.BAS] FLAG = 1_B#VR1,0_000031 EQU $ ; IN [ZAM_676.BAS] FLAG1 = 0_B#VR1,1_000032 EQU $ ; IN [ZAM_676.BAS] KEYPASS[0] = EREAD 00EE@RDPBP#VAR0PBP#VAR0,WKEYPASS#0_000033 EQU $ ; IN [ZAM_676.BAS] KEYPASS[1] = EREAD 11EE@RDPBP#VAR0PBP#VAR0,WKEYPASS#1_000034 EQU $ ; IN [ZAM_676.BAS] KEYPASS[2] = EREAD 22EE@RDPBP#VAR0PBP#VAR0,WKEYPASS#2_000035 EQU $ ; IN [ZAM_676.BAS] MKEY[0] =1: MKEY[1] =7: MKEY[2] =81MKEY#07MKEY#18MKEY#2_000038 EQU $ ; IN [ZAM_676.BAS] GOSUB KLAVAKLAVA_000039 EQU $ ; IN [ZAM_676.BAS] IF KEY = 35 THEN35KEY,WSTATUS,2BC@LL2_000040 EQU $ ; IN [ZAM_676.BAS] GOTO USTKEYUSTKEYBC@LL3@LL2_000041 EQU $ ; IN [ZAM_676.BAS] ELSE_000042 EQU $ ; IN [ZAM_676.BAS] FLAG = 1_B#VR1,0_000043 EQU $ ; IN [ZAM_676.BAS] GOSUB PROVERKAPROVERKA_000044 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL3_000045 EQU $ ; IN [ZAM_676.BAS] GOTO MAINMAIN_000048 EQU $ ; IN [ZAM_676.BAS] HIGH LEDPOD: HIGH LED2:KEY=0STATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3STATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5KEY_000049 EQU $ ; IN [ZAM_676.BAS] DELAYMS 3000:LOW LED2:DELAYMS 1000: HIGH LED211PP1H184DLY@WSTATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,53PP1H232DLY@WSTATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5_000050 EQU $ ; IN [ZAM_676.BAS] IF FLAG = 1 THEN_B#VR1,0BC@LL5_000051 EQU $ ; IN [ZAM_676.BAS] FOR I=0 TO 2_I@LB73_I,WSTATUS,0NX@LB8_000052 EQU $ ; IN [ZAM_676.BAS] WHILE KEY = 0@LL8KEY,FSTATUS,2BC@LL9_000053 EQU $ ; IN [ZAM_676.BAS] GOSUB KLAVAKLAVA_000054 EQU $ ; IN [ZAM_676.BAS] DELAYMS 200200DL@MS_000055 EQU $ ; IN [ZAM_676.BAS] WENDBC@LL8@LL9_000056 EQU $ ; IN [ZAM_676.BAS] EWRITE I ,[ KEY ]_I,WSTATUS,5_BANK = 1EEADRSTATUS,5_BANK = 0KEY,WEE@WR_000057 EQU $ ; IN [ZAM_676.BAS] LOW LED2: DELAYMS 100: HIGH LED2STATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5100DL@MSSTATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5_000058 EQU $ ; IN [ZAM_676.BAS] KEYPASS[I] = KEY_I,WKEYPASSFSRKEY,WINDF_000059 EQU $ ; IN [ZAM_676.BAS] KEY = 0KEY_000060 EQU $ ; IN [ZAM_676.BAS] NEXT I_I,FSTATUS,2FR@LB7@LB8_000061 EQU $ ; IN [ZAM_676.BAS] DELAYMS 10003PP1H232DLY@W_000062 EQU $ ; IN [ZAM_676.BAS] FLAG = 0_B#VR1,0_000063 EQU $ ; IN [ZAM_676.BAS] LOW LED2: LOW LEDPODSTATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5STATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000064 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL5_000065 EQU $ ; IN [ZAM_676.BAS] GOTO MAINMAIN_000068 EQU $ ; IN [ZAM_676.BAS] FLAG1 = 0: SEC=0:I = 0_B#VR1,1SEC_I_000069 EQU $ ; IN [ZAM_676.BAS] FOR I=0 TO 2_I@LB113_I,WSTATUS,0NX@LB12_000070 EQU $ ; IN [ZAM_676.BAS] WHILE KEY = 0@LL12KEY,FSTATUS,2BC@LL13_000071 EQU $ ; IN [ZAM_676.BAS] GOSUB KLAVAKLAVA_000072 EQU $ ; IN [ZAM_676.BAS] DELAYMS 200200DL@MS_000073 EQU $ ; IN [ZAM_676.BAS] SEC=SEC+1SEC,F_000074 EQU $ ; IN [ZAM_676.BAS] IF I>0 AND SEC>30 THEN_I,WPP00T@GTBSP#P9SEC,WPP030T@GTBSP#P9,FSTATUS,2BC@LL15_000075 EQU $ ; IN [ZAM_676.BAS] HIGH LED2: DELAYMS 100: LOW LED2: LOW LEDPOD :I = 0STATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5100DL@MSSTATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5STATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_I_000076 EQU $ ; IN [ZAM_676.BAS] GOTO MAINMAIN_000077 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL15_000078 EQU $ ; IN [ZAM_676.BAS] WENDBC@LL12@LL13_000080 EQU $ ; IN [ZAM_676.BAS] HIGH LEDPODSTATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000081 EQU $ ; IN [ZAM_676.BAS] IF FLAG1 = 0 THEN_B#VR1,1BC@LL17_000082 EQU $ ; IN [ZAM_676.BAS] IF KEYPASS[I] <> KEY AND MKEY[I]<>KEY THEN_I,WKEYPASSFSRINDF,WPBP#VAR0PBP#VAR0,WKEY,WSTATUS,21SP#P9_I,WMKEYFSRINDF,WPBP#VAR0PBP#VAR0,WKEY,WSTATUS,21SP#P9,FSTATUS,2BC@LL19_000083 EQU $ ; IN [ZAM_676.BAS] FLAG1 = 1_B#VR1,1_000084 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL19_000085 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL17_000086 EQU $ ; IN [ZAM_676.BAS] KEY = 0KEY_000087 EQU $ ; IN [ZAM_676.BAS] HIGH LED2: DELAYMS 100: LOW LED2STATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5100DL@MSSTATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5_000088 EQU $ ; IN [ZAM_676.BAS] NEXT I_I,FSTATUS,2FR@LB11@LB12_000089 EQU $ ; IN [ZAM_676.BAS] IF FLAG1 = 0 THEN_B#VR1,1BC@LL21_000090 EQU $ ; IN [ZAM_676.BAS] LOW LEDPODSTATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000091 EQU $ ; IN [ZAM_676.BAS] HIGH LED1STATUS,5_BANK = 1TRISC,4STATUS,5_BANK = 0PORTC,4_000092 EQU $ ; IN [ZAM_676.BAS] DELAYMS 20007PP1H208DLY@W_000093 EQU $ ; IN [ZAM_676.BAS] LOW LED1STATUS,5_BANK = 1TRISC,4STATUS,5_BANK = 0PORTC,4_000095 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL21_000096 EQU $ ; IN [ZAM_676.BAS] LOW LEDPODSTATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000097 EQU $ ; IN [ZAM_676.BAS] RETURN_000100 EQU $ ; IN [ZAM_676.BAS] KEY = 0KEY_000101 EQU $ ; IN [ZAM_676.BAS] COL1 = 1PORTA,4_000102 EQU $ ; IN [ZAM_676.BAS] IF RAW1 = 1 THENPORTA,0BC@LL23_000103 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000104 EQU $ ; IN [ZAM_676.BAS] KEY = 11KEY_000105 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL23_000106 EQU $ ; IN [ZAM_676.BAS] IF RAW2 = 1 THENPORTA,1BC@LL25_000107 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000108 EQU $ ; IN [ZAM_676.BAS] KEY = 44KEY_000109 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL25_000110 EQU $ ; IN [ZAM_676.BAS] IF RAW3 = 1 THENPORTA,2BC@LL27_000111 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000112 EQU $ ; IN [ZAM_676.BAS] KEY = 77KEY_000113 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL27_000114 EQU $ ; IN [ZAM_676.BAS] IF RAW4 = 1 THENPORTA,3BC@LL29_000115 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000116 EQU $ ; IN [ZAM_676.BAS] KEY = 4242KEY_000117 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL29_000118 EQU $ ; IN [ZAM_676.BAS] COL1 = 0PORTA,4_000119 EQU $ ; IN [ZAM_676.BAS] COL2 = 1PORTA,5_000120 EQU $ ; IN [ZAM_676.BAS] IF RAW1 = 1 THENPORTA,0BC@LL31_000121 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000122 EQU $ ; IN [ZAM_676.BAS] KEY = 22KEY_000123 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL31_000124 EQU $ ; IN [ZAM_676.BAS] IF RAW2 = 1 THENPORTA,1BC@LL33_000125 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000126 EQU $ ; IN [ZAM_676.BAS] KEY = 55KEY_000127 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL33_000128 EQU $ ; IN [ZAM_676.BAS] IF RAW3 = 1 THENPORTA,2BC@LL35_000129 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000130 EQU $ ; IN [ZAM_676.BAS] KEY = 88KEY_000131 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL35_000132 EQU $ ; IN [ZAM_676.BAS] IF RAW4 = 1 THENPORTA,3BC@LL37_000133 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000134 EQU $ ; IN [ZAM_676.BAS] KEY = 1010KEY_000135 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL37_000136 EQU $ ; IN [ZAM_676.BAS] COL2 = 0PORTA,5_000137 EQU $ ; IN [ZAM_676.BAS] COL3 = 1PORTC,0_000138 EQU $ ; IN [ZAM_676.BAS] IF RAW1 = 1 THENPORTA,0BC@LL39_000139 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000140 EQU $ ; IN [ZAM_676.BAS] KEY = 33KEY_000141 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL39_000142 EQU $ ; IN [ZAM_676.BAS] IF RAW2 = 1 THENPORTA,1BC@LL41_000143 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000144 EQU $ ; IN [ZAM_676.BAS] KEY = 66KEY_000145 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL41_000146 EQU $ ; IN [ZAM_676.BAS] IF RAW3 = 1 THENPORTA,2BC@LL43_000147 EQU $ ; IN [ZAM_676.BAS] DELAYMS 100100DL@MS_000148 EQU $ ; IN [ZAM_676.BAS] KEY = 99KEY_000149 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL43_000150 EQU $ ; IN [ZAM_676.BAS] IF RAW4 = 1 THENPORTA,3BC@LL45_000151 EQU $ ; IN [ZAM_676.BAS] DELAYMS 200200DL@MS_000152 EQU $ ; IN [ZAM_676.BAS] IF RAW4 = 1 THENPORTA,3BC@LL47_000153 EQU $ ; IN [ZAM_676.BAS] DELAYMS 5001PP1H244DLY@W_000154 EQU $ ; IN [ZAM_676.BAS] KEY = 3535KEY_000155 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL47_000156 EQU $ ; IN [ZAM_676.BAS] ENDIF@LL45_000157 EQU $ ; IN [ZAM_676.BAS] COL3 = 0PORTC,0_000158 EQU $ ; IN [ZAM_676.BAS] RETURN_EOF EQU $ ; ZAM_676.BAS@LB49PB@LB49
Самое читаемое:
Генератор управляющих импульсов
генератор импульс ток напряжение
1. Импульсная
техника, как самостоятельная отрасль знаний, была вызвана к жизни бурным
развитием радиотехники, разработкой импульсных методов исследований, широким
внедрением в производстве автоматизации. Трудно указать область техники, где не
использовались бы импульсные процессы. Они играют сущ ...