זהו קוד שאני כתבתי הקוד כתוב עבור: אסמבלר 8 ביט, 4 מגה הרץ, בשביל מיקרוצ'יפ מדגם PIC16F876 הסקריפט מודד את כמות הזרם, ומציג אותה ב4 לדים לפי כמות המתח, כמה שיותר מתח, יותר נורות דולקות.
; FUKCING INCLUDE !!!
#include <p16f876.inc>
; Set MicroShit read from 0x000
org 0x000
; Setting some fucking variables
cblock 0x20 ; start C
ADBIT
ADBITF
endc ; end C
MAIN
banksel ADCON0
movlw b' ; Set ADCON0 FOSC/8 .
movwf ADCON0
banksel ADCON1
movlw b' ; Set ADCON1 left justify .
movfw ADCON1
banksel ADCON0
bsf ADCON0,GO ; Start A/D Conversion .
ADWAIT
btfss PIR1,ADIF ; Discard next line when A/D conversion is done .
goto ADWAIT ; Are you stupid ?
movf ADRESH,0 ; move ADRESH -> W
movwf ADBIT ; move W -> ADBIT
; move Last ADBIT bits to ADBITF .
rrf ADBIT,1
rrf ADBIT,1
rrf ADBIT,1
rrf ADBIT,1
movf ADBIT,0 ; Move ADBIT -> W
movwf ADBITF ; Move W -> ADBITF
; OUTPUT ->B<-.
banksel TRISB ; Auto Bank Select ( Select Register B )
movlw 0x00 ; W = 00000000
movwf TRISB ; Move W to TRISB.
; Light those Fucking Leds .
banksel PORTB ; Auto Bank Select ( Select Register Port B )
movf ADBIT,0 ; Move To W
movwf PORTB ; Light 2 First Leds
goto MAIN
end
*הקוד עובד .
אתם מוזמנים להשאיר שאלות ואני אענה בהקדם והסביר שורה שורה במקרה הצורך.
יום טוב,
גיל.