Реферат Кодовий замок

9 @ 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, 3...