Results 1 to 6 of 6

Thread: IT

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335

    IT

    2 , , .,
    .


    - . .
    - . . ,
    - . - . 22.05.2006÷22.05.2009


    11.05.2005 07.06.2005
    14.07.2005 01.10.2005 Ĕ
    01.06.2007 01.08.2007 .


    Longman II, .
    - , , .
    :
    : DOS, WINDOWS, MS-Office, Internet, AutoCAD, Proteus, MatLab, Photoshop, Power BASIC.
    : - , , CRT LCD , , , , , , , , (PIC/ATMEL/Motorola), .
    , B.

    - -.
    / . PIC16F877A, EPROM 27512 BASIC/Java, , LCD, , LED . - . COM . , .


    , .

    ICQ, e-mail, Skype .

    - :

    1) Dell Latitude C510/610
    http://hardwarebg.com/forum/showthre...EC%E5%F2%FA%F0
    " "
    "hardwareBG.com > > "
    2) LCD LCD
    http://hardwarebg.com/forum/showthre...E9#post1966932
    " Dell Latitude C610"
    hardwareBG.com > >
    http://hardwarebg.com/forum/showthre...E9#post1950616
    " Dell Latitude C610/C510"
    "hardwareBG.com > > "
    3)
    http://hardwarebg.com/forum/showthre...CD#post1949535
    " Dell C610 - " BaiGrozdan
    hardwareBG.com > >
    4)
    http://hardwarebg.com/forum/showthre...ED%E2%E0%ED%E5
    " Nokia6230"
    "hardwareBG.com > > "
    , .

    , -.
    Last edited by PET3; 6th August 2009 at 10:37.
    , ,
    .

  2. #2
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    3 180 22 -, - 222.
    :
    -40 .
    -6 3 .
    -22 -
    -30
    98.
    180-98=82.
    82/30 =2,73 - :
    -0,90
    -0,40 .
    -1,00
    20 .
    . .

    .
    PCB - , , Proteus, , Red Top (Blue Bottom ):

    .
    Last edited by PET3; 23rd November 2009 at 12:07.
    , ,
    .

  3. #3
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    , .
    CM601 MC6800 Motorola.
    . , LCD 300x200. " " . , 10MHz, , . 4MHz, . 10MHz . . , .

    Code:
              EEPROM
    
      :
    	INDEX_CHANEL         
    	RG1 1      INDEX_CHANEL     
    	ACP           
    	MAX       
    	DANGER       
    
    
    
      :
    	BYTE_ZERO      ,   
    	CHANEL(0-:-7)    
    	READ_EEPROM    PROM  
    
    
    
    
    
    
    ALGORITM1:	movf	INDEX_CHANEL,0	;    =>w
    		xorlw	D0			;  w  0 => w
    		call	BYTE_ZERO		; 
    		btfss	RG1,1			;  1  1  1
    		goto	CHANEL0		;     0
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D1
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	CHANEL1
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D2
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	CHANEL2
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D3
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	CHANEL3
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D4
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	CHANEL4
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D5
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	CHANEL5
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D6
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	CHANEL6
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D7
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	CHANEL7
    
    
    
    
    
    BYTE_ZERO:	bcf	RG1,1			;   1   1
    		
    		btfsc	w,1			;   1  w  0
    		bsf	RG1,1			;    1   1
    		
    		btfsc	w,2
    		bsf	RG1,1
    		
    		btfsc	w,3
    		bsf	RG1,1
    		
    		btfsc	w,4
    		bsf	RG1,1
    		
    		btfsc	w,5
    		bsf	RG1,1
    		
    		btfsc	w,6
    		bsf	RG1,1
    		
    		btfsc	w,7
    		bsf	RG1,1
    		
    		btfsc	w,8
    		bsf	RG1,1
    		
    		return
    
    
    
    
    
    
    CHANEL0:	movlw	0x81			;     
    		movwf	ADCON		;  
    		movf	ADCBUFF		;   
    		movwf	ACP			; 
    		
    movlw	H00			;    PROM  w
    		call	READ_EEPROM	;  PROM
    		movf	EEDATA,MAX1	;   
    		
    		movlw	H01
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H02
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H03
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2
    		
    		
    CHANEL1:	movlw	0x89
    		movwf	ADCON
    		movf	ADCBUFF
    		movwf	ACP
    		
    		movlw	H04
    		call	READ_EEPROM
    		movf	EEDATA,MAX1
    		
    		movlw	H05
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H06
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H07
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2
    		
    
    
    
    
    CHANEL2:	movlw	0x91
    		movwf	ADCON
    		movf	ADCBUFF
    		movwf	ACP
    		
    		movlw	H08
    		call	READ_EEPROM
    		movf	EEDATA,MAX1
    		
    		movlw	H09
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H0A
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H0B
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2
    		
    		
    CHANEL3:	movlw	0x99
    		movwf	ADCON
    		movf	ADCBUFF
    		movwf	ACP
    		
    		movlw	H0C
    		call	READ_EEPROM
    		movf	EEDATA,MAX1
    		
    		movlw	H0D
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H0E
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H0F
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2		
    		
    
    
    
    
    
    
    
    CHANEL4:	movlw	0xA1
    		movwf	ADCON
    		movf	ADCBUFF
    		movwf	ACP
    		
    		movlw	H10
    		call	READ_EEPROM
    		movf	EEDATA,MAX1
    		
    		movlw	H11
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H12
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H13
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2	
    
    		
    CHANEL5:	movlw	0xA9
    		movwf	ADCON
    		movf	ADCBUFF
    		movwf	ACP
    		
    		movlw	H14
    		call	READ_EEPROM
    		movf	EEDATA,MAX1
    		
    		movlw	H15
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H16
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H17
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2		
    		
    
    
    
    
    
    
    CHANEL6:	movlw	0xB1
    		movwf	ADCON
    		movf	ADCBUFF
    		movwf	ACP
    		
    		movlw	H18
    		call	READ_EEPROM
    		movf	EEDATA,MAX1
    		
    		movlw	H19
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H1A
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H1B
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2
    		
    		
    CHANEL7:	movlw	0xB9
    		movwf	ADCON
    		movf	ADCBUFF
    		movwf	ACP
    		
    		movlw	H1C
    		call	READ_EEPROM
    		movf	EEDATA,MAX1
    		
    		movlw	H1D
    		call	READ_EEPROM
    		movf	EEDATA,DANGER1
    		
    		movlw	H1E
    		call	READ_EEPROM
    		movf	EEDATA,DANGER2
    		
    		movlw	H1F
    		call	READ_EEPROM
    		movf	EEDATA,MAX2
    		goto	ALGORITM2
    
    
    
      
    
    :
    	MAX    
    	DANGER    
    	ACP   
    	RG1   
    	RG2    
    	RG3       C  Z  STATUS
    
    :
    	STATUS_W    C  Z  STATUS  w
    	2BIT_ZERO    C  Z
    	DAMAGE         
    	DANG         
    	COMP1   w < MAX1 ( )
    	COMP2   MAX1 < w < DANGER1 ( )
    	COMP3   DANGER2 > w > MAX2
    	COMP4   w > MAX2
    
    ALGORITM2:	nop
    
    COMP1 :	movf	MAX1,0		;  MAX1  w
    		subwf	ACP,0			; ACP  w = w
    		call	STATUS_W		;   STATUS
    		xorlw	B0000 0010		;   STATUS
    		call	2BIT_ZERO		; 
    		btfss	RG1,2			;  1 ()
    		goto	COMP2		;   
    		
    		movf	MAX1,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0000
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DAMAGE1
    		
    		movf	MAX1,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0011
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DAMAGE1
    		
    		
    		
    		
    
    
    
    
    		
    COMP2 :	movf	DANGER1,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0010
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	COMP3
    		
    		movf	DANGER1,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0000
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DANG1
    		
    		movf	DANGER1,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0011
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DANG1
    		
    		
    COMP3 :	movf	DANGER2,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0010
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DANG2
    		
    		movf	DANGER2,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0011
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DANG2
    		
    		movf	DANGER2,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0000
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	COMP4
    		
    COMP4 :	movf	MAX2,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0010
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DAMAGE2
    		
    		movf	MAX2,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0011
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	DAMAGE2
    		
    		movf	MAX2,0
    		subwf	ACP,0
    		call	STATUS_W
    		xorlw	B0000 0000
    		call	2BIT_ZERO
    		btfss	RG1,2
    		clrf	RG2
    		goto	ALGORITM3
    		
    		
    		
    STATUS_W:	clrf	RG3			;    
    		btfsc	STATUS,C		;  C = 0  STATUS
    		bsf	RG3,1			;  1  RG3   1
    		btfsc	STATUS,Z		;  Z = 0  STATUS
    		bsf	RG3,2			;  2  RG3   1
    		movf	RG3,0			;  w  RG3
    		return
    		
    		
    		
    2BIT_ZERO:	bcf	RG1,2			;   2   1
    		
    		btfsc	w,1			;   1  w  0
    		bsf	RG1,2			;    2   1
    		
    		btfsc	w,2
    		bsf	RG1,2
    		
    		return
    		
    		
    
    
    		
    DAMAGE1:	clrf	RG2			;    
    		bsf	RG2,1			;0
    		bsf	RG2,2			;1   1  2
    		bcf	RG2,3			;0    
    		bsf	RG2,4			;1     
    		goto	ALGORITM3		;    
    		
    		
    		
    DANG1:	clrf	RG2
    		bsf	RG2,1
    		bsf	RG2,2
    		bsf	RG2,3
    		bcf	RG2,4
    		goto	ALGORITM3
    		
    		
    		
    DANG2:	clrf	RG2
    		bsf	RG2,1
    		bcf	RG2,2
    		bsf	RG2,3
    		bcf	RG2,4
    		goto	ALGORITM3
    		
    		
    		
    DAMAGE2:	clrf	RG2
    		bsf	RG2,1
    		bcf	RG2,2
    		bcf	RG2,3
    		bsf	RG2,4
    		goto	ALGORITM3
    
    
    
       
    
    :
    	RG5         
    	RG6    
    	ST#_CH# -   
    
    :
    	BYTE_ZERO       
    	STEP#_CHANEL# -    
    	CENTRUM1     
    
    ALGORITM3:	movf	RG5,0			;     
    		xorlw	D0			;   0
    		call	BYTE_ZERO		; 
    		btfss	RG1,1			;  1 ()
    		goto	STEP1_CHANEL0	
    		
    		movf	RG5,0
    		xorlw	D1
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP1_CHANEL1
    		
    movf	RG5,0
    		xorlw	D2
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP1_CHANEL2
    		
    		movf	RG5,0
    		xorlw	D3
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP1_CHANEL3
    		
    movf	RG5,0
    		xorlw	D4
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP1_CHANEL4
    		
    		movf	RG5,0
    		xorlw	D5
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP1_CHANEL5
    		
    movf	RG5,0
    		xorlw	D6
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP1_CHANEL6
    				
    		movf	RG5,0
    		xorlw	D7
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP1_CHANEL7
    		
    movf	RG5,0
    		xorlw	D8
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL0
    		
    		movf	RG5,0
    		xorlw	D9
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL1
    
    movf	RG5,0
    		xorlw	D10
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL2
    		
    		movf	RG5,0
    		xorlw	D11
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL3
    		
    movf	RG5,0
    		xorlw	D12
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL4
    		
    		movf	RG5,0
    		xorlw	D13
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL5
    
    movf	RG5,0
    		xorlw	D14
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL6
    		
    		
    		
    		
    		movf	RG5,0
    		xorlw	D15
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP2_CHANEL7
    		
    		movf	RG5,0
    		xorlw	D16
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL0
    		
    		movf	RG5,0
    		xorlw	D17
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL1
    		
    		movf	RG5,0
    		xorlw	D18
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL2
    		
    		movf	RG5,0
    		xorlw	D19
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL3
    		
    		movf	RG5,0
    		xorlw	D20
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL4
    		
    		movf	RG5,0
    		xorlw	D21
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL5
    		
    		movf	RG5,0
    		xorlw	D22
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL6
    		
    		
    		
    		
    		movf	RG5,0
    		xorlw	D23
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	STEP3_CHANEL7
    		
    		movf	RG5,0
    		xorlw	D24
    		call	BYTE_ZERO
    		btfss	RG1,1
    		incf	RG5,1
    		clrf	RG5
    goto	ALGORITM7		;     (LED)
    
    		
    		
    		
    		
    		
    STEP[1 or 2]_
    CHANEL[#]:	movf	ACP,0			;     w
    xorwf	RG6,0			;    					;  
    call	BYTE_ZERO		; 
    btfss	RG1,1			;  1 ()
    goto	CENTRUM1		;    ()
    movf	ACP,0
    movf	ST1_CH0		;    
    movf	RG6			;      					;
    goto	ALGORITM7		;     (LED)
    
    
    
    STEP3_
    CHANEL[#]:	movf	ACP,0			;     w
    xorwf	RG6,0			;    					;  
    call	BYTE_ZERO		; 
    btfss	RG1,1			;  1 ()
    goto	CENTRUM1		;    ()
    movf	ACP,0
    movf	ST1_CH0		;    
    movf	RG6			;      					;
    bsf	RG1,3			; NEXT    
    goto	ALGORITM7		;     (LED)
    		
    
    
    
           
    
    :
    	RG1   
    	RG7      
    	RG(8,9,10)                      
    	RG(11,12,13)          
    	RG14      X_RG   Y_RG
    	RG15       
    	RG16     
    	X_RG,Y_RG                (DEC_ADD)
    	FLAG_RG       DEC_ADD
    	RESULT_RG     DEC_ADD
    :
    	BIT# -    
    	READ_EEPROM    EEPROM
    	DEC_NUM          
    	DEC_ADD         
    	STATUS_W    C  Z  STATUS  w
    	2BIT_ZERO    C  Z
    	DEC     DEC_ADD
    	CHANGE_XY     X_RG  Y_RG
    	SUB_ONE     1
    	SUB_AB      
    	SUB_Z        ,   
    
    ALGORITM4:	btfsc	RG7,1			;  0
    		call	BIT1			;     DEC_NUM
    		
    		btfsc	RG7,2
    		call	BIT2
    		
    		btfsc	RG7,3
    		call	BIT2
    		
    		btfsc	RG7,4
    		call	BIT2
    		
    		btfsc	RG7,5
    		call	BIT2
    		
    		btfsc	RG7,6
    		call	BIT2
    		
    		btfsc	RG7,7
    		call	BIT2
    		
    		btfsc	RG7,8
    		call	BIT2
    		
    		
    		
    BIT1:		movf	H20			;    EEPROM  w
    		call	READ_EEPROM	;  EEPROM
    		movf	EEDATA,RG8		;   
    		call	DEC_NUM		;  
    		return
    		
    BIT2:		movf	H21
    		call	READ_EEPROM
    		movf	EEDATA,RG8
    		call	DEC_NUM
    		return
    		
    BIT3:		movf	H22
    		call	READ_EEPROM
    		movf	EEDATA,RG8
    		call	DEC_NUM
    		return
    
    BIT4:		movf	H23
    		call	READ_EEPROM
    		movf	EEDATA,RG8
    		call	DEC_NUM
    		return
    
    BIT5:		movf	H24
    		call	READ_EEPROM
    		movf	EEDATA,RG8
    		
    movf	H25
    		call	READ_EEPROM
    		movf	EEDATA,RG9
    call	DEC_NUM
    		return
    		
    BIT6:		movf	H26
    		call	READ_EEPROM
    		movf	EEDATA,RG8
    		
    movf	H27
    		call	READ_EEPROM
    		movf	EEDATA,RG9
    call	DEC_NUM
    		return
    		
    BIT7:		movf	H28
    		call	READ_EEPROM
    		movf	EEDATA,RG8
    		
    movf	H29
    		call	READ_EEPROM
    		movf	EEDATA,RG9
    call	DEC_NUM
    		return
    	
    BIT8:		movf	H2A
    		call	READ_EEPROM
    		movf	EEDATA,RG8
    		
    movf	H2B
    		call	READ_EEPROM
    		movf	EEDATA,RG9
    
    movf	H2C
    		call	READ_EEPROM
    		movf	EEDATA,RG10
    call	DEC_NUM
    		return
    		
    DEC_NUM:	clrf	FLAG_RG		;   
    		clrf	RESULT_RG		;   
    		clrf	X_RG			;    
    		clrf	Y_RG			;    Y
    		
    		movf	RG8,0			;  1   
    		movwf	X_RG			;   
    		
    		movf	FLAG_RG,0		;    
    		movwf	Y_RG			;   Y
    		
    		call	DEC_ADD		;  
    		
    		movf	RG11,0			;  1   
    		movwf	X_RG			;   
    		
    		movf	RESULT_RG,0		;   
    		movwf	Y_RG			;   Y
    		
    		call	DEC_ADD		;  
    		
    		movf	RESULT_RG,0		;   
    		movwf	RG11			;  
    		
    		
    		
    		
    		
    		
    		movf	RG9,0
    		movwf	X_RG
    		
    		movf	FLAG_RG,0
    		movwf	Y_RG
    		
    		call	DEC_ADD
    		
    		movf	RG12,0
    		movwf	X_RG
    		
    		movf	RESULT_RG,0
    		movwf	Y_RG
    		
    		call	DEC_ADD
    		
    		movf	RESULT_RG,0
    		movwf	RG12
    		
    		
    		
    		movf	RG10,0
    		movwf	X_RG
    		
    		movf	FLAG_RG,0
    		movwf	Y_RG
    		
    		call	DEC_ADD
    		
    		movf	RG13,0
    		movwf	X_RG
    		
    		movf	RESULT_RG,0
    		movwf	Y_RG
    		
    		call	DEC_ADD
    		
    		movf	RESULT_RG,0
    		movwf	RG13
    		return
    		
    		
    		
    DEC_ADD:	movf	Y_RG,0		;  w    Y
    		subwf	X_RG,0		; X  Y = X
    		call	STATUS_W		;   STATUS
    		xorlw	B0000 0010		;   STATUS
    		call	2BIT_ZERO		; 
    		btfsc	RG1,2			;  0 ()
    		goto	DEC			;    
    		
    		movf	Y_RG,0
    		subwf	X_RG,0
    		call	STATUS_W
    		xorlw	B0000 0000
    		call	2BIT_ZERO
    		bffsc	RG1,2
    		goto	CHANGE_XY
    		
    		movf	Y_RG,0
    		subwf	X_RG,0
    		call	STATUS_W
    		xorlw	B0000 0011
    		call	2BIT_ZERO
    		bffsc	RG1,2
    		goto	CHANGE_XY
    		
    		
    		
    CHANGE_XY:	movf	X_RG			;    X
    		movwf	RG14			;     X  Y
    		
    		movf	Y_RG,0		;    X
    		movwf	X_RG			;  Y
    		
    		movf	RG14,0			;  a  
    		movwf	Y_RG			;   X
    		
    		
    		
    DEC:		movf	X_RG			;  X_RG  w
    		addwf	Y_RG,0		;  + Y = Y
    		sublw	D9			; 9  w
    		call	STATUS_W		;   STATUS
    		xorlw	B0000 0000		;   STATUS [9 < w]
    		call	2BIT_ZERO		; 
    		btfss	RG1,2			;  1 ()
    		goto	SUB_ONE		;  1
    		
    		movf	X_RG
    		addwf	Y_RG,0
    		sublw	D9
    		call	STATUS_W
    		xorlw	B0000 0011		;[9 = w]
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	SUB_AB
    		
    		movf	X_RG
    		addwf	Y_RG,0
    		sublw	D9
    		call	STATUS_W
    		xorlw	B0000 0010		;[9 > w]
    		call	2BIT_ZERO
    		btfss	RG1,2
    		goto	SUB_Z
    		
    		
    		
    SUB_ONE:	movf	X_RG,0		;    X
    		movwf	RG15			;  RG15
    		
    		decf	X_RG,1		;  1      
    		goto	DEC
    		
    SUB_AB:	movf	X_RG,0		;    w
    		subwf	RG15,0			; A  X = B
    		movwf	RG16			;    w
    		decf	RG16,1			;  1  B    B
    		bsf	FLAG_RG,1		;    
    		movf	RG16,0			;  
    		movwf	RESULT_RG		;  
    		movf	RG15,0			; 
    		movwf	X_RG			;X_RG
    		return
    		
    SUB_Z:	bcf	FLAG_RG,1		;    
    		movf	X_RG,0		;    w
    		addwf	Y_RG,0		;  + Y = X
    		movwf	RESULT_RG		;  
    		movf	RG15,0			; 
    		movwf	X_RG			;X_RG
    		return
    
    
    
    
    
           
    
    :
    	RG1   
    	 3     100
    	 4     10
    	RG(17,18,19)      - 
    	RG20    
    	RG21     
    
    :
    	BY_10    10
    	PART_# -    
    
    
    ALGORITM5:	clrf	RG1,3			;   3   
    		clrf	RG1,4			;   4   
    		clrf	RG20
    		clrf	RG21
    		
    		movf	RG19,0			;  w
    PART_1:	call	BY_10			;  10
    		btfsc	RG1,3			;  0
    		goto	PART_2		;      
    		bsf	RG1,3			;   3   
    		goto	PART_1		;      
    		
    PART_2	btfsc	RG1,4			;  0
    		goto	PART_3		;      
    		bsf	RG1,4			;   4   
    		movwf	RG20			;     1
    		movf	RG18,0			;  w
    		goto	PART_1		;      
    		
    PART_3:	movwf	RG20
    		movf	RG21,0
    		addwf	RG20,1			; RG21 + RG20 = RG20
    		movf	RG20,0
    		addwf	RG17,0			; RG17 + RG20 = w
    		movwf	RG20			; 
    		return
    		
    
    
    
         
    
    :
    	RG22      
    	RG(23,24,25)     B-BD ,    BD-B 
    	RG27   
    	RG28    
    	NEXT      BD-B       
    
    :
    	NUM_CHEK                    LCD 
    	ENTER_CHEK, DELETE_CHEK, ESCAPE_CHEK     
    	INDEX_# -              
    	NUL_NUM# -     - 
    	DEC_INDEX      1     
    	NUL_BUFFER    - 
    	NUL_INDEX        
    
    
    
    ALGORITM6:	movf	RG22,0
    			xorlw	D0
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	INDEX_NUL
    			
    NUM_CHEK:		movf	RG22,0
    			xorlw	D1
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	INDEX_NUM1
    			
    			movf	RG22,0
    			xorlw	D2
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	INDEX_NUM2
    			
    			movf	RG22,0
    			xorlw	D3
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	INDEX_NUM3
    			
    ENTER_CHEK:	movf	RG27,0
    			xorlw	D11
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	INDEX_ENTER
    			
    DELETE_CHEK:	movf	RG27,0
    			xorlw	D12
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	INDEX_DELETE
    			
    
    
    
    ESCAPE_CHEK:	movf	RG27,0
    			xorlw	D13
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	INDEX_NUM3
    			return
    			
    			
    			
    INDEX_NUL:		clrf	RG22
    			movlw	D6
    			movwf	RG28
    			incf	RG22,1
    			goto NUM_CHEK
    			
    INDEX_NUM1:	movf	RG22,0
    			movwf	RG23
    			goto	ENTER_CHEK
    			
    INDEX_NUM2:	movf	RG22,0
    			movwf	RG24
    			goto	ENTER_CHEK
    			
    INDEX_NUM3:	movf	RG22,0
    			movwf	RG25
    			goto	ENTER_CHEK
    			
    INDEX_ENTER:	incf	RG28,1
    			incf	RG22,1
    			movf	RG22,0
    			xorlw	D4
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	END_CHEK
    			movlw	D64
    			movwf	NEXT
    			goto	NUL_INDEX
    			
    INDEX_DELETE:	movf	RG22,0
    			xorlw	D1
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	NUL_NUM1
    			
    			movf	RG22,0
    			xorlw	D2
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	NUL_NUM2
    			
    			movf	RG22,0
    			xorlw	D3
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	NUL_NUM3
    			
    NUL_NUM1:		clrf	RG23
    			goto	DEC_INDEX
    			
    NUL_NUM2:		clrf	RG24
    			goto	DEC_INDEX
    			
    NUL_NUM3:		clrf	RG25
    						
    DEC_INDEX		decf	RG22,1
    			movf	RG22,0
    			xorlw	D0
    			call	BYTE_ZERO
    			btfss	RG1,1
    			goto	NUL_BUFFER
    			goto	END_CHEK
    			
    NUL_BUFFER:	clrf	RG23
    			clrf	RG24
    			clrf	RG25
    			
    NUL_INDEX:		clrf	RG22
    			
    END_CHEK:		return
    
    		
    		
    		
    BY_10:		movwf	RG20			;   w  RG20
    		rlf	RG20,1			;  RG20  1 
    		movwf	RG21			;   w  RG21
    		rlf	RG21,1			;  RG21  3 
    		rlf	RG21,1
    		rlf	RG21,1
    		movf	RG20,0			;  w
    		addwf	RG21,0			; RG20 + RG21 = w
    		clrf	RG20			;   
    		clrf	RG21
    		return
    
    
    
    
       
    
    :
    	INDEX_CHANEL    
    	RG1,5      
    	RG2    
    	RG(29,30,31,32,33,34,35,36)    
    	RG37     
    	RG38     
    
    :
    	DANG8     
    	FREQ     
    	DEVICE        
    	ND_FREQ      
    	DAM_CHANGE       
    	DAM_CHAN# -       
    	DAN_CHANGE    
    
    ALGORITM7:	movf	RG2,0
    		xorlw	B0000 1101		; 1
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHANGE
    		
    		movf	RG2,0
    		xorlw	B0000 1001		; 2
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHANGE
    		
    DANG8:	movf	RG2,0
    		xorlw	B0000 1110		; 1
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAN_CHANGE
    
    		movf	RG2,0
    		xorlw	B0000 1010		; 2
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAN_CHANGE
    		movlw	D1			;CS   
    		movwf	RG37
    		
    FREQ:		btfss	RG1,5
    		goto	END_FREQ
    		incf	RG38,1
    		movf	RG38,1
    		xorlw	D128			;      
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DEVICE
    		goto	END_FREQ
    		
    DEVICE:	clrf	RG38
    		movlw	D3			;CS  
    		movwf	RG37
    		
    END_FREQ:	goto ALGORITM8
    		
    DAM_
    CHANGE:	movf	INDEX_CHANEL,0
    		xorlw	D0
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN0
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D1
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN1
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D2
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN2
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D3
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN3
    		
    		
    		
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D4
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN4
    				
    		movf	INDEX_CHANEL,0
    		xorlw	D5
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN5
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D6
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN6
    		
    		movf	INDEX_CHANEL,0
    		xorlw	D7
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	DAM_CHAN7
    		
    DAM_CHAN0:	movf	RG29,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG29,0
    		addwf	RG2,0
    		movwf	RG29
    		goto	FREQ
    		
    DAM_CHAN1:	movf	RG30,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG30,0
    		addwf	RG2,0
    		movwf	RG30
    		goto	FREQ
    		
    		
    		
    		
    DAM_CHAN2:	movf	RG31,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG31,0
    		addwf	RG2,0
    		movwf	RG31
    		goto	FREQ
    		
    DAM_CHAN3:	movf	RG32,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG32,0
    		addwf	RG2,0
    		movwf	RG32
    		goto	FREQ
    		
    DAM_CHAN4:	movf	RG33,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG33,0
    		addwf	RG2,0
    		movwf	RG33
    		goto	FREQ
    		
    DAM_CHAN5:	movf	RG34,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG34,0
    		addwf	RG2,0
    		movwf	RG34
    		goto	FREQ
    		
    DAM_CHAN6:	movf	RG35,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG35,0
    		addwf	RG2,0
    		movwf	RG35
    		goto	FREQ
    		
    DAM_CHAN7:	movf	RG36,0
    		btfsc	RG2,5
    		goto	DANG8
    		movlw	B0001 0000
    		addwf	RG36,0
    		addwf	RG2,0
    		movwf	RG36
    		goto	FREQ
    		
    DAN_
    CHANGE:	movlw	D2			;CS  
    		movwf	RG37
    		goto	FREQ
    
    
    
    
      
    :
    	RG1,1   
    	RG27   
    	RG(29,30,31,32,33,34,35,36)    
    :
    	BYTE_ZERO   
    	NUL_FLAG# -   
    	CENTRUM1     
    ALGORITM8:	movf	RG27,0
    		xorlw	D;12
    		call	BYTE_ZERO
    		btfsc	RG1,1
    		goto	CENTRUM1
    		movf	RG29,0			;RG29 -:- RG36
    		xorlw	D7
    		call	BYTE_ZERO
    		btfss	RG1,1
    		goto	NUL_FLAG1		;NUL_FLAG1 -:- NUL_FLAG64
    						;8     0  7
    NUL_FLAG1:	bcf	RG29,4			; RG29 -:- RG36
    		goto CENTRUM1		;    ()
    
      /  EEPROM
    READ_
    EEPROM:	movwf	EEADR		;      w
    		bsf	STATUS,RP0		;   1
    		bsf	EECON1,RD		;   
    		bcf	STATUS,RP0		;   0
    		return
    WRITE_
    EEPROM:	movwf	EEADR		;      w
    		movwf	EEDATA		;  
    bsf	STATUS,RP0		;   1
    		bsf	EECON1,WREN	; 
    		bcf	STATUS,RP0		;   0
    		return
    
      
    BSF	STATUS,	PR0	;  1
    BSF	PIE1,	ADIE	;     
    BCF	STATUS,	PR0	;  0
    BCF	PIR1,	ADIF	;       
    BSF	INTCON,	GIE	;    
    , . 2 1 .

    :

    hardwareBG.com > > , -> BASIC - BASIC developers meeting
    http://hardwarebg.com/forum/showthre...ighlight=BASIC
    hardwareBG.com > > , -> BASIC
    http://hardwarebg.com/forum/showthre...ighlight=BASIC
    hardwareBG.com > > , -> " Pentium- "
    http://hardwarebg.com/forum/showthre...ighlight=BASIC
    Last edited by PET3; 7th February 2010 at 10:50.
    , ,
    .

  4. #4
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    .
    .
    :
    1)
    http://hardwarebg.com/forum/showthread.php?t=173609
    "hardwareBG.com > > > ".
    , ,
    .

  5. #5
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    , ,
    .

  6. #6
    Registered User
    Join Date: Aug:2007
    Location:
    Posts: 1,335
    3)
    http://www.hardwarebg.com/forum/show...21#post2733821
    "hardwareBG.com > > > Wi-Fi + "

    . , .

    24.05.2011
    4) . - ?
    http://hardwarebg.com/forum/showthre...8A%D0%B4%D0%B5
    " > > > . - ?"

    . . .
    Last edited by PET3; 24th May 2011 at 21:01.
    , ,
    .

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |