قسم الميكروكنترولر والروبوت ودوائر الاتصال بالحاسب الالي قسم المتحكمات الـ microcontroller و المعالجات microprocessor و التحكم الرقمي بالكمبيوتر CNC والانظمة الآلية والروبوت Robots

   

walid el masry
:: مهندس ::
تاريخ التسجيل: Nov 2006
المشاركات: 42
نشاط [ walid el masry ]
قوة السمعة:
قديم 24-09-2008, 03:42 AM المشاركة 17   
افتراضي



مجهود رائع

اعلانات

الصورة الرمزية Abdulla Mohamme
Abdulla Mohamme
:: مهندس متواجد ::
تاريخ التسجيل: Jul 2007
الدولة: Iraq
المشاركات: 50
نشاط [ Abdulla Mohamme ]
قوة السمعة:
قديم 25-09-2008, 09:48 PM المشاركة 18   
افتراضي


اخي العزيز اتمنى لو لديك البرنامج بلغة الاسيمبلي, واذا كان لديك ارجوا ان ترفعه لنا
شكرا

عبدالله

اعلانات اضافية ( قم بتسجيل الدخول لاخفائها )

الصورة الرمزية wleed antar
wleed antar
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: القاهرة - مصر
المشاركات: 1,484
نشاط [ wleed antar ]
قوة السمعة:
قديم 06-10-2008, 11:28 AM المشاركة 19   
Exclamation


كيف أرفع لك ملف الأسمبلى ؟
إذا نسخت الكتابة ولصقتها هنا لاتظهر مرتبة ولا يوجد امكانية اضافة ملف ؟


زكي شاكر
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: المغرب
المشاركات: 2,945
نشاط [ زكي شاكر ]
قوة السمعة:
قديم 06-10-2008, 11:34 AM المشاركة 20   
افتراضي


السلام عليكم
تضغط على أيقونة ادراج CODE التي تحمل هذه العلامة: #
ثم تضع البرنامج بين العلامات التي ستظهر لك:


الصورة الرمزية wleed antar
wleed antar
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: القاهرة - مصر
المشاركات: 1,484
نشاط [ wleed antar ]
قوة السمعة:
قديم 06-10-2008, 11:40 AM المشاركة 21   
Post


تفضل ملف الأسمبلى
----------------------

كود:
; ADDRESS OPCODE ASM
; ----------------------------------------------
$0000 $28D9   GOTO _main
$0004 $ _delay_22us:
;delays.pbas,13 ::   sub procedure Delay_22us()
;delays.pbas,14 ::   Delay_us(22)
$0004 $3007   MOVLW 7
$0005 $1303   BCF STATUS, RP1
$0006 $1283   BCF STATUS, RP0
$0007 $00FA   MOVWF STACK_10
$0008 $0BFA   DECFSZ STACK_10, F
$0009 $2808   GOTO $-1
$000A $ delays_L_2:
$000A $0008   RETURN
$000B $ _mul_32x32_u:
$000B $1303   BCF STATUS, RP1
$000C $1283   BCF STATUS, RP0
;Math.ppas,1570 ::   
;Math.ppas,1578 ::   
$000D $3022   MOVLW 34
;Math.ppas,1579 ::   
$000E $00FC   MOVWF STACK_12
;Math.ppas,1580 ::   
$000F $01F8   CLRF STACK_8
;Math.ppas,1581 ::   
$0010 $01F9   CLRF STACK_9
;Math.ppas,1582 ::   
$0011 $01FA   CLRF STACK_10
;Math.ppas,1584 ::   
$0012 $01FB   CLRF STACK_11
;Math.ppas,1588 ::   
$0013 $ _NEXT:
;Math.ppas,1589 ::   
$0013 $03FC   DECF STACK_12, F
;Math.ppas,1590 ::   
$0014 $1903   BTFSC STATUS, Z
;Math.ppas,1591 ::   
$0015 $2841   GOTO _EXIT2
;Math.ppas,1593 ::   
$0016 $1003   BCF STATUS, C
;Math.ppas,1602 ::   
$0017 $ _LOOP:
;Math.ppas,1603 ::   
$0017 $0CFB   RRF STACK_11, F
;Math.ppas,1604 ::   
$0018 $0CFA   RRF STACK_10, F
;Math.ppas,1605 ::   
$0019 $0CF9   RRF STACK_9, F
;Math.ppas,1606 ::   
$001A $0CF8   RRF STACK_8, F
;Math.ppas,1607 ::   
$001B $0CF3   RRF STACK_3, F
;Math.ppas,1608 ::   
$001C $0CF2   RRF STACK_2, F
;Math.ppas,1609 ::   
$001D $0CF1   RRF STACK_1, F
;Math.ppas,1614 ::   
$001E $0CF0   RRF STACK_0, F
;Math.ppas,1615 ::   
$001F $1C03   BTFSS STATUS, C
;Math.ppas,1616 ::   
$0020 $2813   GOTO _NEXT
;Math.ppas,1617 ::   
$0021 $03FC   DECF STACK_12, F
;Math.ppas,1618 ::   
$0022 $1903   BTFSC STATUS, Z
;Math.ppas,1625 ::   
$0023 $2833   GOTO _EXIT1
;Math.ppas,1626 ::   
$0024 $0874   MOVF STACK_4, W
;Math.ppas,1627 ::   
$0025 $07F8   ADDWF STACK_8, F
;Math.ppas,1628 ::   
$0026 $0875   MOVF STACK_5, W
;Math.ppas,1629 ::   
$0027 $1803   BTFSC STATUS, C
;Math.ppas,1630 ::   
$0028 $0F75   INCFSZ STACK_5, W
;Math.ppas,1631 ::   
$0029 $07F9   ADDWF STACK_9, F
;Math.ppas,1632 ::   
$002A $0876   MOVF STACK_6, W
;Math.ppas,1633 ::   
$002B $1803   BTFSC STATUS, C
;Math.ppas,1634 ::   
$002C $0F76   INCFSZ STACK_6, W
;Math.ppas,1635 ::   
$002D $07FA   ADDWF STACK_10, F
;Math.ppas,1636 ::   
$002E $0877   MOVF STACK_7, W
;Math.ppas,1637 ::   
$002F $1803   BTFSC STATUS, C
;Math.ppas,1638 ::   
$0030 $0F77   INCFSZ STACK_7, W
;Math.ppas,1640 ::   
$0031 $07FB   ADDWF STACK_11, F
;Math.ppas,1642 ::   
$0032 $2817   GOTO _LOOP
;Math.ppas,1647 ::   
$0033 $ _EXIT1:
;Math.ppas,1648 ::   
$0033 $0874   MOVF STACK_4, W
;Math.ppas,1649 ::   
$0034 $07F8   ADDWF STACK_8, F
;Math.ppas,1650 ::   
$0035 $0875   MOVF STACK_5, W
;Math.ppas,1651 ::   
$0036 $1803   BTFSC STATUS, C
;Math.ppas,1652 ::   
$0037 $0F75   INCFSZ STACK_5, W
;Math.ppas,1653 ::   
$0038 $07F9   ADDWF STACK_9, F
;Math.ppas,1654 ::   
$0039 $0876   MOVF STACK_6, W
;Math.ppas,1655 ::   
$003A $1803   BTFSC STATUS, C
;Math.ppas,1656 ::   
$003B $0F76   INCFSZ STACK_6, W
;Math.ppas,1657 ::   
$003C $07FA   ADDWF STACK_10, F
;Math.ppas,1658 ::   
$003D $0877   MOVF STACK_7, W
;Math.ppas,1659 ::   
$003E $1803   BTFSC STATUS, C
;Math.ppas,1660 ::   
$003F $0F77   INCFSZ STACK_7, W
;Math.ppas,1663 ::   
$0040 $07FB   ADDWF STACK_11, F
;Math.ppas,1664 ::   
$0041 $ _EXIT2:
;Math.ppas,1665 ::   
$0041 $ Math_L_13:
;Math.ppas,1666 ::   
$0041 $0008   RETURN
$0042 $ _adc_read:
;ADClib_A_C.ppas,12 ::   
;ADClib_A_C.ppas,13 ::   
$0042 $1303   BCF STATUS, RP1
$0043 $1283   BCF STATUS, RP0
$0044 $019F   CLRF ADCON0, 1
;ADClib_A_C.ppas,14 ::   
$0045 $30C0   MOVLW 192
$0046 $049F   IORWF ADCON0, 1
;ADClib_A_C.ppas,15 ::   
$0047 $3040   MOVLW 64
$0048 $1683   BSF STATUS, RP0
$0049 $041F   IORWF ADCON1, 0
$004A $00F0   MOVWF STACK_0
$004B $0870   MOVF STACK_0, 0
$004C $009F   MOVWF ADCON1
;ADClib_A_C.ppas,17 ::   
$004D $3080   MOVLW 128
$004E $0470   IORWF STACK_0, 0
$004F $009F   MOVWF ADCON1
;ADClib_A_C.ppas,18 ::   
$0050 $1283   BCF STATUS, RP0
$0051 $082C   MOVF FARG_ADC_read, 0
$0052 $00F0   MOVWF STACK_0
$0053 $0DF0   RLF STACK_0, 1
$0054 $1070   BCF STACK_0, 0
$0055 $0DF0   RLF STACK_0, 1
$0056 $1070   BCF STACK_0, 0
$0057 $0DF0   RLF STACK_0, 1
$0058 $1070   BCF STACK_0, 0
$0059 $0870   MOVF STACK_0, 0
$005A $049F   IORWF ADCON0, 1
;ADClib_A_C.ppas,19 ::   
$005B $141F   BSF ADCON0, 0
;ADClib_A_C.ppas,20 ::   
$005C $2004   CALL _delay_22us
;ADClib_A_C.ppas,21 ::   
$005D $151F   BSF ADCON0, 2
;ADClib_A_C.ppas,22 ::   
$005E $ ADClib_A_C_L_2:
$005E $3000   MOVLW 0
$005F $191F   BTFSC ADCON0, 2
$0060 $3001   MOVLW 1
$0061 $00F2   MOVWF STACK_2
$0062 $0872   MOVF STACK_2, 0
$0063 $3A01   XORLW 1
$0064 $1D03   BTFSS STATUS, Z
$0065 $2868   GOTO ADClib_A_C_L_3
;ADClib_A_C.ppas,23 ::   
$0066 $0000   NOP
$0067 $285E   GOTO ADClib_A_C_L_2
$0068 $ ADClib_A_C_L_3:
;ADClib_A_C.ppas,24 ::   
$0068 $081E   MOVF ADRESH, 0
$0069 $00F2   MOVWF STACK_2
$006A $01F3   CLRF STACK_2+1
$006B $0872   MOVF STACK_2, 0
$006C $00F3   MOVWF STACK_2+1
$006D $01F2   CLRF STACK_2
$006E $0872   MOVF STACK_2, 0
$006F $00AD   MOVWF _adc_read_local_result
$0070 $0873   MOVF STACK_2+1, 0
$0071 $00AE   MOVWF _adc_read_local_result+1
;ADClib_A_C.ppas,25 ::   
$0072 $1683   BSF STATUS, RP0
$0073 $081E   MOVF ADRESL, 0
$0074 $0472   IORWF STACK_2, 0
$0075 $1283   BCF STATUS, RP0
$0076 $00AD   MOVWF _adc_read_local_result
$0077 $0873   MOVF STACK_2+1, 0
$0078 $00AE   MOVWF _adc_read_local_result+1
$0079 $3000   MOVLW 0
$007A $04AE   IORWF _adc_read_local_result+1, 1
;ADClib_A_C.ppas,26 ::   
$007B $101F   BCF ADCON0, 0
$007C $ ADClib_A_C_L_0:
;ADClib_A_C.ppas,27 ::   
$007C $082D   MOVF _adc_read_local_result, 0
$007D $00F0   MOVWF STACK_0
$007E $082E   MOVF _adc_read_local_result+1, 0
$007F $00F1   MOVWF STACK_0+1
$0080 $0008   RETURN
$0081 $ _mul_32x32_s:
$0081 $1303   BCF STATUS, RP1
$0082 $1283   BCF STATUS, RP0
;Math.ppas,1675 ::   
;Math.ppas,1680 ::   
$0083 $01FD   CLRF STACK_13
;Math.ppas,1683 ::   
$0084 $ _IF_FIRST:
;Math.ppas,1684 ::   
$0084 $1FF3   BTFSS STACK_3, 7
;Math.ppas,1686 ::   
$0085 $2893   GOTO _IF_SECOND
;Math.ppas,1691 ::   
$0086 $ _INVERCE_FIRST:
;Math.ppas,1692 ::   
$0086 $09F0   COMF STACK_0, F
;Math.ppas,1693 ::   
$0087 $09F1   COMF STACK_1, F
;Math.ppas,1694 ::   
$0088 $09F2   COMF STACK_2, F
;Math.ppas,1701 ::   
$0089 $09F3   COMF STACK_3, F
;Math.ppas,1702 ::   
$008A $0AF0   INCF STACK_0, F
;Math.ppas,1703 ::   
$008B $1903   BTFSC STATUS, Z
;Math.ppas,1704 ::   
$008C $0AF1   INCF STACK_1, F
;Math.ppas,1705 ::   
$008D $1903   BTFSC STATUS, Z
;Math.ppas,1706 ::   
$008E $0AF2   INCF STACK_2, F
;Math.ppas,1707 ::   
$008F $1903   BTFSC STATUS, Z
;Math.ppas,1708 ::   
$0090 $0AF3   INCF STACK_3, F
;Math.ppas,1709 ::   
$0091 $3081   MOVLW 129
;Math.ppas,1711 ::   
$0092 $07FD   ADDWF STACK_13, F
;Math.ppas,1714 ::   
$0093 $ _IF_SECOND:
;Math.ppas,1715 ::   
$0093 $1FF7   BTFSS STACK_7, 7
;Math.ppas,1717 ::   
$0094 $28A1   GOTO _MULT
;Math.ppas,1722 ::   
$0095 $ _INBERSE_SECOND:
;Math.ppas,1723 ::   
$0095 $09F4   COMF STACK_4, F
;Math.ppas,1724 ::   
$0096 $09F5   COMF STACK_5, F
;Math.ppas,1725 ::   
$0097 $09F6   COMF STACK_6, F
;Math.ppas,1732 ::   
$0098 $09F7   COMF STACK_7, F
;Math.ppas,1733 ::   
$0099 $0AF4   INCF STACK_4, F
;Math.ppas,1734 ::   
$009A $1903   BTFSC STATUS, Z
;Math.ppas,1735 ::   
$009B $0AF5   INCF STACK_5, F
;Math.ppas,1736 ::   
$009C $1903   BTFSC STATUS, Z
;Math.ppas,1737 ::   
$009D $0AF6   INCF STACK_6, F
;Math.ppas,1738 ::   
$009E $1903   BTFSC STATUS, Z
;Math.ppas,1739 ::   
$009F $0AF7   INCF STACK_7, F
;Math.ppas,1741 ::   
$00A0 $0AFD   INCF STACK_13, F
;Math.ppas,1742 ::   
$00A1 $ _MULT:
;Math.ppas,1744 ::   
$00A1 $200B   CALL _mul_32x32_u
;Math.ppas,1748 ::   
$00A2 $1C7D   BTFSS STACK_13, 0
;Math.ppas,1754 ::   
$00A3 $28BB   GOTO _EXIT
;Math.ppas,1755 ::   
$00A4 $09F0   COMF STACK_0, F
;Math.ppas,1756 ::   
$00A5 $09F1   COMF STACK_1, F
;Math.ppas,1757 ::   
$00A6 $09F2   COMF STACK_2, F
;Math.ppas,1763 ::   
$00A7 $09F3   COMF STACK_3, F
;Math.ppas,1764 ::   
$00A8 $09F8   COMF STACK_8, F
;Math.ppas,1765 ::   
$00A9 $09F9   COMF STACK_9, F
;Math.ppas,1766 ::   
$00AA $09FA   COMF STACK_10, F
;Math.ppas,1776 ::   
$00AB $09FB   COMF STACK_11, F
;Math.ppas,1777 ::   
$00AC $0AF0   INCF STACK_0, F
;Math.ppas,1778 ::   
$00AD $1903   BTFSC STATUS, Z
;Math.ppas,1779 ::   
$00AE $0AF1   INCF STACK_1, F
;Math.ppas,1780 ::   
$00AF $1903   BTFSC STATUS, Z
;Math.ppas,1781 ::   
$00B0 $0AF2   INCF STACK_2, F
;Math.ppas,1782 ::   
$00B1 $1903   BTFSC STATUS, Z
;Math.ppas,1783 ::   
$00B2 $0AF3   INCF STACK_3, F
;Math.ppas,1784 ::   
$00B3 $1903   BTFSC STATUS, Z
;Math.ppas,1785 ::   
$00B4 $0AF8   INCF STACK_8, F
;Math.ppas,1786 ::   
$00B5 $1903   BTFSC STATUS, Z
;Math.ppas,1787 ::   
$00B6 $0AF9   INCF STACK_9, F
;Math.ppas,1788 ::   
$00B7 $1903   BTFSC STATUS, Z
;Math.ppas,1789 ::   
$00B8 $0AFA   INCF STACK_10, F
;Math.ppas,1790 ::   
$00B9 $1903   BTFSC STATUS, Z
;Math.ppas,1791 ::   
$00BA $0AFB   INCF STACK_11, F
;Math.ppas,1792 ::   
$00BB $ _EXIT:
;Math.ppas,1793 ::   
$00BB $ Math_L_14:
;Math.ppas,1794 ::   
$00BB $0008   RETURN
$00BC $ _div_16x16_u:
$00BC $1303   BCF STATUS, RP1
$00BD $1283   BCF STATUS, RP0
;Math.ppas,108 ::   
;Math.ppas,110 ::   
$00BE $01F8   CLRF STACK_8
;Math.ppas,111 ::   
$00BF $01F9   CLRF STACK_9
;Math.ppas,112 ::   
$00C0 $3010   MOVLW 16
;Math.ppas,113 ::   
$00C1 $00FC   MOVWF STACK_12
;Math.ppas,114 ::   
$00C2 $0D71   RLF STACK_1, W
;Math.ppas,115 ::


الصورة الرمزية wleed antar
wleed antar
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: القاهرة - مصر
المشاركات: 1,484
نشاط [ wleed antar ]
قوة السمعة:
قديم 06-10-2008, 11:43 AM المشاركة 22   
Post


تكمــلة
__________
كود:
$00C3 $0DF8   RLF STACK_8, F
;Math.ppas,116 ::   
$00C4 $0DF9   RLF STACK_9, F
;Math.ppas,117 ::   
$00C5 $0874   MOVF STACK_4, W
;Math.ppas,118 ::   
$00C6 $02F8   SUBWF STACK_8, F
;Math.ppas,119 ::   
$00C7 $0875   MOVF STACK_5, W
;Math.ppas,120 ::   
$00C8 $1C03   BTFSS STATUS, C
;Math.ppas,121 ::   
$00C9 $0F75   INCFSZ STACK_5, W
;Math.ppas,122 ::   
$00CA $02F9   SUBWF STACK_9, F
;Math.ppas,123 ::   
$00CB $1803   BTFSC STATUS, C
;Math.ppas,124 ::   
$00CC $28D4   GOTO $+8
;Math.ppas,125 ::   
$00CD $0874   MOVF STACK_4, W
;Math.ppas,126 ::   
$00CE $07F8   ADDWF STACK_8, F
;Math.ppas,127 ::   
$00CF $0875   MOVF STACK_5, W
;Math.ppas,128 ::   
$00D0 $1803   BTFSC STATUS, C
;Math.ppas,129 ::   
$00D1 $0F75   INCFSZ STACK_5, W
;Math.ppas,130 ::   
$00D2 $07F9   ADDWF STACK_9, F
;Math.ppas,131 ::   
$00D3 $1003   BCF STATUS, C
;Math.ppas,132 ::   
$00D4 $0DF0   RLF STACK_0, F
;Math.ppas,133 ::   
$00D5 $0DF1   RLF STACK_1, F
;Math.ppas,134 ::   
$00D6 $0BFC   DECFSZ STACK_12, F
;Math.ppas,135 ::   
$00D7 $28C2   GOTO $-21
;Math.ppas,136 ::   
$00D8 $ Math_L_3:
;Math.ppas,137 ::   
$00D8 $0008   RETURN
$00D9 $ _main:
;voltametr.pbas,5 ::   main:
$00D9 $ _main_main:
;voltametr.pbas,6 ::   trisB = 00
$00D9 $1303   BCF STATUS, RP1
$00DA $1683   BSF STATUS, RP0
$00DB $0186   CLRF TRISB, 1
;voltametr.pbas,7 ::   trise = 00
$00DC $0189   CLRF TRISE, 1
;voltametr.pbas,8 ::   portb = 00
$00DD $1283   BCF STATUS, RP0
$00DE $0186   CLRF PORTB, 1
;voltametr.pbas,9 ::   option_reg = $80
$00DF $3080   MOVLW 128
$00E0 $1683   BSF STATUS, RP0
$00E1 $0081   MOVWF OPTION_REG
;voltametr.pbas,10 ::   ADCON1 = $82
$00E2 $3082   MOVLW 130
$00E3 $009F   MOVWF ADCON1
;voltametr.pbas,11 ::   trisa  = $ff
$00E4 $30FF   MOVLW 255
$00E5 $0085   MOVWF TRISA
;voltametr.pbas,12 ::   lop1:
$00E6 $ _main_lop1:
;voltametr.pbas,13 ::   while true
$00E6 $ voltametr_L_2:
;voltametr.pbas,14 ::   T3 = adc_read(1)   ' read from RA.1
$00E6 $3001   MOVLW 1
$00E7 $1283   BCF STATUS, RP0
$00E8 $00AC   MOVWF FARG_ADC_read
$00E9 $2042   CALL _adc_read
$00EA $0870   MOVF STACK_0, 0
$00EB $00A0   MOVWF _t3
$00EC $0871   MOVF STACK_0+1, 0
$00ED $00A1   MOVWF _t3+1
;voltametr.pbas,15 ::   T2 = T3 * 241     ' 241 for 24 volt  for show as 24.1
$00EE $3000   MOVLW 0
$00EF $00F2   MOVWF STACK_0+2
$00F0 $00F3   MOVWF STACK_0+3
$00F1 $30F1   MOVLW 241
$00F2 $00F4   MOVWF STACK_4
$00F3 $01F5   CLRF STACK_4+1
$00F4 $01F6   CLRF STACK_4+2
$00F5 $01F7   CLRF STACK_4+3
$00F6 $2081   CALL _mul_32x32_s
$00F7 $0870   MOVF STACK_0, 0
$00F8 $00A2   MOVWF _t2
$00F9 $0871   MOVF STACK_0+1, 0
$00FA $00A3   MOVWF _t2+1
$00FB $0872   MOVF STACK_0+2, 0
$00FC $00A4   MOVWF _t2+2
$00FD $0873   MOVF STACK_0+3, 0
$00FE $00A5   MOVWF _t2+3
;voltametr.pbas,16 ::   T3 = T2  >> 10
$00FF $300A   MOVLW 10
$0100 $00F4   MOVWF STACK_4
$0101 $0870   MOVF STACK_0, 0
$0102 $00A8   MOVWF FLOC_main+0
$0103 $0871   MOVF STACK_0+1, 0
$0104 $00A9   MOVWF FLOC_main+1
$0105 $0872   MOVF STACK_0+2, 0
$0106 $00AA   MOVWF FLOC_main+2
$0107 $0873   MOVF STACK_0+3, 0
$0108 $00AB   MOVWF FLOC_main+3
$0109 $0874   MOVF STACK_4, 0
$010A $ L_main_0:
$010A $1903   BTFSC STATUS, Z
$010B $2915   GOTO L_main_1
$010C $0CAB   RRF FLOC_main+3, 1
$010D $0CAA   RRF FLOC_main+2, 1
$010E $0CA9   RRF FLOC_main+1, 1
$010F $0CA8   RRF FLOC_main+0, 1
$0110 $13AB   BCF FLOC_main+3, 7
$0111 $1B2B   BTFSC FLOC_main+3, 6
$0112 $17AB   BSF FLOC_main+3, 7
$0113 $3FFF   ADDLW 255
$0114 $290A   GOTO L_main_0
$0115 $ L_main_1:
$0115 $0828   MOVF FLOC_main+0, 0
$0116 $00A0   MOVWF _t3
$0117 $0829   MOVF FLOC_main+1, 0
$0118 $00A1   MOVWF _t3+1
;voltametr.pbas,17 ::   T = ( T3 div 100 ) mod 10
$0119 $3064   MOVLW 100
$011A $00F4   MOVWF STACK_4
$011B $01F5   CLRF STACK_4+1
$011C $0828   MOVF FLOC_main+0, 0
$011D $00F0   MOVWF STACK_0
$011E $0829   MOVF FLOC_main+1, 0
$011F $00F1   MOVWF STACK_0+1
$0120 $20BC   CALL _div_16x16_u
$0121 $300A   MOVLW 10
$0122 $00F4   MOVWF STACK_4
$0123 $01F5   CLRF STACK_4+1
$0124 $20BC   CALL _div_16x16_u
$0125 $0878   MOVF STACK_8, 0
$0126 $00F0   MOVWF STACK_0
$0127 $0879   MOVF STACK_9, 0
$0128 $00F1   MOVWF STACK_1
$0129 $0870   MOVF STACK_0, 0
$012A $00A6   MOVWF _t
$012B $0871   MOVF STACK_0+1, 0
$012C $00A7   MOVWF _t+1
;voltametr.pbas,18 ::   portE = 0
$012D $0189   CLRF PORTE, 1
;voltametr.pbas,19 ::   PORTB = T
$012E $0870   MOVF STACK_0, 0
$012F $0086   MOVWF PORTB
;voltametr.pbas,20 ::   portE = 3
$0130 $3003   MOVLW 3
$0131 $0089   MOVWF PORTE
;voltametr.pbas,21 ::   delay_ms(3)
$0132 $3004   MOVLW 4
$0133 $00FB   MOVWF STACK_11
$0134 $30FF   MOVLW 255
$0135 $00FA   MOVWF STACK_10
$0136 $0BFB   DECFSZ STACK_11, F
$0137 $2939   GOTO $+2
$0138 $293C   GOTO $+4
$0139 $0BFA   DECFSZ STACK_10, F
$013A $2939   GOTO $-1
$013B $2936   GOTO $-5
$013C $30E2   MOVLW 226
$013D $00FA   MOVWF STACK_10
$013E $0BFA   DECFSZ STACK_10, F
$013F $293E   GOTO $-1
;voltametr.pbas,22 ::   T = ( T3 div 10 ) mod 10
$0140 $300A   MOVLW 10
$0141 $00F4   MOVWF STACK_4
$0142 $01F5   CLRF STACK_4+1
$0143 $0828   MOVF FLOC_main+0, 0
$0144 $00F0   MOVWF STACK_0
$0145 $0829   MOVF FLOC_main+1, 0
$0146 $00F1   MOVWF STACK_0+1
$0147 $20BC   CALL _div_16x16_u
$0148 $300A   MOVLW 10
$0149 $00F4   MOVWF STACK_4
$014A $01F5   CLRF STACK_4+1
$014B $20BC   CALL _div_16x16_u
$014C $0878   MOVF STACK_8, 0
$014D $00F0   MOVWF STACK_0
$014E $0879   MOVF STACK_9, 0
$014F $00F1   MOVWF STACK_1
$0150 $0870   MOVF STACK_0, 0
$0151 $00A6   MOVWF _t
$0152 $0871   MOVF STACK_0+1, 0
$0153 $00A7   MOVWF _t+1
;voltametr.pbas,23 ::   portE = 0
$0154 $0189   CLRF PORTE, 1
;voltametr.pbas,24 ::   portB = T
$0155 $0870   MOVF STACK_0, 0
$0156 $0086   MOVWF PORTB
;voltametr.pbas,25 ::   portE = 5
$0157 $3005   MOVLW 5
$0158 $0089   MOVWF PORTE
;voltametr.pbas,26 ::   delay_ms(3)
$0159 $3004   MOVLW 4
$015A $00FB   MOVWF STACK_11
$015B $30FF   MOVLW 255
$015C $00FA   MOVWF STACK_10
$015D $0BFB   DECFSZ STACK_11, F
$015E $2960   GOTO $+2
$015F $2963   GOTO $+4
$0160 $0BFA   DECFSZ STACK_10, F
$0161 $2960   GOTO $-1
$0162 $295D   GOTO $-5
$0163 $30E2   MOVLW 226
$0164 $00FA   MOVWF STACK_10
$0165 $0BFA   DECFSZ STACK_10, F
$0166 $2965   GOTO $-1
;voltametr.pbas,27 ::   T = T3 mod 10
$0167 $300A   MOVLW 10
$0168 $00F4   MOVWF STACK_4
$0169 $01F5   CLRF STACK_4+1
$016A $0828   MOVF FLOC_main+0, 0
$016B $00F0   MOVWF STACK_0
$016C $0829   MOVF FLOC_main+1, 0
$016D $00F1   MOVWF STACK_0+1
$016E $20BC   CALL _div_16x16_u
$016F $0878   MOVF STACK_8, 0
$0170 $00F0   MOVWF STACK_0
$0171 $0879   MOVF STACK_9, 0
$0172 $00F1   MOVWF STACK_1
$0173 $0870   MOVF STACK_0, 0
$0174 $00A6   MOVWF _t
$0175 $0871   MOVF STACK_0+1, 0
$0176 $00A7   MOVWF _t+1
;voltametr.pbas,28 ::   portE = 0
$0177 $0189   CLRF PORTE, 1
;voltametr.pbas,29 ::   portB = T
$0178 $0870   MOVF STACK_0, 0
$0179 $0086   MOVWF PORTB
;voltametr.pbas,30 ::   portE = 6
$017A $3006   MOVLW 6
$017B $0089   MOVWF PORTE
;voltametr.pbas,31 ::   delay_us(2700)
$017C $3004   MOVLW 4
$017D $00FB   MOVWF STACK_11
$017E $30FF   MOVLW 255
$017F $00FA   MOVWF STACK_10
$0180 $0BFB   DECFSZ STACK_11, F
$0181 $2983   GOTO $+2
$0182 $2986   GOTO $+4
$0183 $0BFA   DECFSZ STACK_10, F
$0184 $2983   GOTO $-1
$0185 $2980   GOTO $-5
$0186 $307E   MOVLW 126
$0187 $00FA   MOVWF STACK_10
$0188 $0BFA   DECFSZ STACK_10, F
$0189 $2988   GOTO $-1
$018A $28E6   GOTO voltametr_L_2
;voltametr.pbas,32 ::   wend
$018B $298B   GOTO $


زكي شاكر
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: المغرب
المشاركات: 2,945
نشاط [ زكي شاكر ]
قوة السمعة:
قديم 06-10-2008, 11:50 AM المشاركة 23   
افتراضي


شكرا أخي الكريم ..
من يشتغل بالاسمبلي سيعرف كيف يلائم البرنامج مع متطلبات MPASM ..
او يسأل عن ذلك .
تحياتي


الصورة الرمزية wleed antar
wleed antar
:: عضو ماسي ::
تاريخ التسجيل: May 2006
الدولة: القاهرة - مصر
المشاركات: 1,484
نشاط [ wleed antar ]
قوة السمعة:
قديم 06-10-2008, 08:45 PM المشاركة 24   
Post


بصراحة أنا لا أستخدم لغة الأسمبلى وأراها بالغة التعقيد وتحتاج إلى كثيرا من الكلمات لكن قد تكون مفيدة لمن اعتادها
وبالتوفيق للجميع



الساعة معتمدة بتوقيت جرينتش +3 الساعة الآن: 05:57 PM
موقع القرية الالكترونية غير مسؤول عن أي اتفاق تجاري أو تعاوني بين الأعضاء
فعلى كل شخص تحمل مسئولية نفسه إتجاه مايقوم به من بيع وشراء وإتفاق وأعطاء معلومات موقعه
التعليقات المنشورة لا تعبر عن رأي موقع القرية الالكترونية ولايتحمل الموقع أي مسؤولية قانونية حيال ذلك (ويتحمل كاتبها مسؤولية النشر)