Itnewsrussia.ru

Анализ современных технологий

Разработка рабочей программы

_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 ALL_DIGITAL = TRUE7CMCONSTATUS,5_BANK = 1ANSEL_000010 EQU $ ; IN INPUT PORTA.0: INPUT PORTA.1: INPUT PORTA.2: INPUT PORTA.3TRISA,0TRISA,1TRISA,2TRISA,3_000011 EQU $ ; IN OUTPUT PORTA.4: OUTPUT PORTA.5: OUTPUT PORTA.6: OUTPUT PORTCTRISA,4TRISA,5TRISA,6TRISC_000029 EQU $ ; IN KEY = 0STATUS,5_BANK = 0KEY_000030 EQU $ ; IN FLAG = 1_B#VR1,0_000031 EQU $ ; IN FLAG1 = 0_B#VR1,1_000032 EQU $ ; IN KEYPASS = EREAD 00EE@RDPBP#VAR0PBP#VAR0,WKEYPASS#0_000033 EQU $ ; IN KEYPASS = EREAD 11EE@RDPBP#VAR0PBP#VAR0,WKEYPASS#1_000034 EQU $ ; IN KEYPASS = EREAD 22EE@RDPBP#VAR0PBP#VAR0,WKEYPASS#2_000035 EQU $ ; IN MKEY =1: MKEY =7: MKEY =81MKEY#07MKEY#18MKEY#2_000038 EQU $ ; IN GOSUB KLAVAKLAVA_000039 EQU $ ; IN IF KEY = 35 THEN35KEY,WSTATUS,2BC@LL2_000040 EQU $ ; IN GOTO USTKEYUSTKEYBC@LL3@LL2_000041 EQU $ ; IN ELSE_000042 EQU $ ; IN FLAG = 1_B#VR1,0_000043 EQU $ ; IN GOSUB PROVERKAPROVERKA_000044 EQU $ ; IN ENDIF@LL3_000045 EQU $ ; IN GOTO MAINMAIN_000048 EQU $ ; IN 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 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 IF FLAG = 1 THEN_B#VR1,0BC@LL5_000051 EQU $ ; IN FOR I=0 TO 2_I@LB73_I,WSTATUS,0NX@LB8_000052 EQU $ ; IN WHILE KEY = 0@LL8KEY,FSTATUS,2BC@LL9_000053 EQU $ ; IN GOSUB KLAVAKLAVA_000054 EQU $ ; IN DELAYMS 200200DL@MS_000055 EQU $ ; IN WENDBC@LL8@LL9_000056 EQU $ ; IN EWRITE I ,_I,WSTATUS,5_BANK = 1EEADRSTATUS,5_BANK = 0KEY,WEE@WR_000057 EQU $ ; IN 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 KEYPASS = KEY_I,WKEYPASSFSRKEY,WINDF_000059 EQU $ ; IN KEY = 0KEY_000060 EQU $ ; IN NEXT I_I,FSTATUS,2FR@LB7@LB8_000061 EQU $ ; IN DELAYMS 10003PP1H232DLY@W_000062 EQU $ ; IN FLAG = 0_B#VR1,0_000063 EQU $ ; IN LOW LED2: LOW LEDPODSTATUS,5_BANK = 1TRISC,5STATUS,5_BANK = 0PORTC,5STATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000064 EQU $ ; IN ENDIF@LL5_000065 EQU $ ; IN GOTO MAINMAIN_000068 EQU $ ; IN FLAG1 = 0: SEC=0:I = 0_B#VR1,1SEC_I_000069 EQU $ ; IN FOR I=0 TO 2_I@LB113_I,WSTATUS,0NX@LB12_000070 EQU $ ; IN WHILE KEY = 0@LL12KEY,FSTATUS,2BC@LL13_000071 EQU $ ; IN GOSUB KLAVAKLAVA_000072 EQU $ ; IN DELAYMS 200200DL@MS_000073 EQU $ ; IN SEC=SEC+1SEC,F_000074 EQU $ ; IN IF I>0 AND SEC>30 THEN_I,WPP00T@GTBSP#P9SEC,WPP030T@GTBSP#P9,FSTATUS,2BC@LL15_000075 EQU $ ; IN 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 GOTO MAINMAIN_000077 EQU $ ; IN ENDIF@LL15_000078 EQU $ ; IN WENDBC@LL12@LL13_000080 EQU $ ; IN HIGH LEDPODSTATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000081 EQU $ ; IN IF FLAG1 = 0 THEN_B#VR1,1BC@LL17_000082 EQU $ ; IN IF KEYPASS <> KEY AND MKEY<>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 FLAG1 = 1_B#VR1,1_000084 EQU $ ; IN ENDIF@LL19_000085 EQU $ ; IN ENDIF@LL17_000086 EQU $ ; IN KEY = 0KEY_000087 EQU $ ; IN 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 NEXT I_I,FSTATUS,2FR@LB11@LB12_000089 EQU $ ; IN IF FLAG1 = 0 THEN_B#VR1,1BC@LL21_000090 EQU $ ; IN LOW LEDPODSTATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000091 EQU $ ; IN HIGH LED1STATUS,5_BANK = 1TRISC,4STATUS,5_BANK = 0PORTC,4_000092 EQU $ ; IN DELAYMS 20007PP1H208DLY@W_000093 EQU $ ; IN LOW LED1STATUS,5_BANK = 1TRISC,4STATUS,5_BANK = 0PORTC,4_000095 EQU $ ; IN ENDIF@LL21_000096 EQU $ ; IN LOW LEDPODSTATUS,5_BANK = 1TRISC,3STATUS,5_BANK = 0PORTC,3_000097 EQU $ ; IN RETURN_000100 EQU $ ; IN KEY = 0KEY_000101 EQU $ ; IN COL1 = 1PORTA,4_000102 EQU $ ; IN IF RAW1 = 1 THENPORTA,0BC@LL23_000103 EQU $ ; IN DELAYMS 100100DL@MS_000104 EQU $ ; IN KEY = 11KEY_000105 EQU $ ; IN ENDIF@LL23_000106 EQU $ ; IN IF RAW2 = 1 THENPORTA,1BC@LL25_000107 EQU $ ; IN DELAYMS 100100DL@MS_000108 EQU $ ; IN KEY = 44KEY_000109 EQU $ ; IN ENDIF@LL25_000110 EQU $ ; IN IF RAW3 = 1 THENPORTA,2BC@LL27_000111 EQU $ ; IN DELAYMS 100100DL@MS_000112 EQU $ ; IN KEY = 77KEY_000113 EQU $ ; IN ENDIF@LL27_000114 EQU $ ; IN IF RAW4 = 1 THENPORTA,3BC@LL29_000115 EQU $ ; IN DELAYMS 100100DL@MS_000116 EQU $ ; IN KEY = 4242KEY_000117 EQU $ ; IN ENDIF@LL29_000118 EQU $ ; IN COL1 = 0PORTA,4_000119 EQU $ ; IN COL2 = 1PORTA,5_000120 EQU $ ; IN IF RAW1 = 1 THENPORTA,0BC@LL31_000121 EQU $ ; IN DELAYMS 100100DL@MS_000122 EQU $ ; IN KEY = 22KEY_000123 EQU $ ; IN ENDIF@LL31_000124 EQU $ ; IN IF RAW2 = 1 THENPORTA,1BC@LL33_000125 EQU $ ; IN DELAYMS 100100DL@MS_000126 EQU $ ; IN KEY = 55KEY_000127 EQU $ ; IN ENDIF@LL33_000128 EQU $ ; IN IF RAW3 = 1 THENPORTA,2BC@LL35_000129 EQU $ ; IN DELAYMS 100100DL@MS_000130 EQU $ ; IN KEY = 88KEY_000131 EQU $ ; IN ENDIF@LL35_000132 EQU $ ; IN IF RAW4 = 1 THENPORTA,3BC@LL37_000133 EQU $ ; IN DELAYMS 100100DL@MS_000134 EQU $ ; IN KEY = 1010KEY_000135 EQU $ ; IN ENDIF@LL37_000136 EQU $ ; IN COL2 = 0PORTA,5_000137 EQU $ ; IN COL3 = 1PORTC,0_000138 EQU $ ; IN IF RAW1 = 1 THENPORTA,0BC@LL39_000139 EQU $ ; IN DELAYMS 100100DL@MS_000140 EQU $ ; IN KEY = 33KEY_000141 EQU $ ; IN ENDIF@LL39_000142 EQU $ ; IN IF RAW2 = 1 THENPORTA,1BC@LL41_000143 EQU $ ; IN DELAYMS 100100DL@MS_000144 EQU $ ; IN KEY = 66KEY_000145 EQU $ ; IN ENDIF@LL41_000146 EQU $ ; IN IF RAW3 = 1 THENPORTA,2BC@LL43_000147 EQU $ ; IN DELAYMS 100100DL@MS_000148 EQU $ ; IN KEY = 99KEY_000149 EQU $ ; IN ENDIF@LL43_000150 EQU $ ; IN IF RAW4 = 1 THENPORTA,3BC@LL45_000151 EQU $ ; IN DELAYMS 200200DL@MS_000152 EQU $ ; IN IF RAW4 = 1 THENPORTA,3BC@LL47_000153 EQU $ ; IN DELAYMS 5001PP1H244DLY@W_000154 EQU $ ; IN KEY = 3535KEY_000155 EQU $ ; IN ENDIF@LL47_000156 EQU $ ; IN ENDIF@LL45_000157 EQU $ ; IN COL3 = 0PORTC,0_000158 EQU $ ; IN RETURN_EOF EQU $ ; ZAM_676.BAS@LB49PB@LB49 Перейти на страницу: 1 2 3

Популярное:

Исследование наноструктурированной поверхности на АСМ Solver HV Целью курсовой работы является изучение принципов сканирующей зондовой микроскопии, получение навыков работы на АСМ SOLVERHV. Преимущество АСМ SOLVER HV состоит в том, что система позволяет проводить параллельно с изучением топографии поверхности исследуемого образца физические, магнитные, электрические и электростатические хара ...