PicBasicPro Kodları Hex Derleyici Çok Acil Yardım !!

Başlatan -esd-, 30 Nisan 2012, 19:35:19

-esd-

Merhaba Arkadaşlar
Bir konuda çok acil yardımınıza ihtiyacım var elimde PicBasicPro ile yazılmış kodlar var ben bu kodları PİC16f628 entegresine atmak için hex koduda derlemem gerek biraz araştırdım ama yapamadım zamanımda az benim için bu kodları hex e derleyebilecek bi abimiz bi arkadaşımız konudan anlayan bi kardeşimiz varmı kodları yazıyorum buraya yardımlarınızı bekliyorum .



'
'-----------------------------------------------------------------------------------
'---------------------
INCLUDE "MODEDEFS.BAS"
TRISB=%00000010
TRISA=%00000000
'-----Degiskenler-----
b0 VAR BYTE
b01 VAR BYTE
'-----Define----------
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 20h
DEFINE HSER_BAUD 2400
DEFINE HSER_CLROERR 1
'-----Program---------
loop:
HSerin [wait ("CKG"), b0,b01]
IF b01="," Then
select case b0
case "i"
Toggle PORTB.4
Toggle PORTB.5
PORTB.3=0
PORTB.6=0
case "g"
Toggle PORTB.3
Toggle PORTB.6
PORTB.4=0
PORTB.5=0
case "r"
Toggle PORTB.4
PORTB.3=0
PORTB.5=0
PORTB.6=0
case "l"
Toggle PORTB.5
PORTB.3=0
PORTB.4=0
PORTB.6=0
case "k"
Toggle PORTB.7
PORTA.6=0
case "j"
Toggle PORTA.6
PORTB.7=0
case "a"
Toggle PORTA.2
case "b"
Toggle PORTA.3
case "c"
Toggle PORTB.0
case "d"
Toggle PORTA.7
case "e"
Toggle PORTA.0
case "f"
Toggle PORTA.1
case "x"
PORTA.0=0
PORTA.1=0
PORTA.2=0
PORTA.3=0
PORTA.6=0
PORTA.7=0
PORTB.0=0
PORTB.3=0
PORTB.4=0
PORTB.5=0
PORTB.6=0
PORTB.7=0
End select
Else
GoTo loop
EndIF
Pause 250
GoTo loop
End
'--------------------------------------------------------------------------------------


Son Durak , Kara Toprak ..

OG

LOOP isminde etiket kullanma DO-LOOP döngüsü sanıyor.

:020000040000FA
:10000000312898181812181664008C1E04281A0833
:1000100003142C28A301A200FF30A207031CA3078E
:10002000031C2C280330A100DF3018200C28A1016C
:10003000E83EA000A109FC30031C2128A0070318FA
:100040001E28A0076400A10F1E2820182728A01C26
:100050002B2800002B28080083130313831264004D
:1000600008008316193099002030980083129030D0
:100070009800831602308600850183120120433CDC
:10008000031D3E2801204B3C031D3E280120473C18
:10009000031D3E280120B8000120B9006400390882
:1000A0002C3C031DFF2864003808693C031D6528AB
:1000B00010308606831606122030831286068316B9
:1000C0008612831286110613FE2864003808673CE6
:1000D000031D772808308606831686114030831268
:1000E000860683160613831206128612FE28640003
:1000F0003808723C031D85281030860683160612C8
:100100008312861186120613FE28640038086C3CA0
:10011000031D9328203086068316861283128611CB
:1001200006120613FE28640038086B3C031D9F2846
:10013000803086068316861383120513FE2864001A
:1001400038086A3C031DAB2840308506831605132A
:1001500083128613FE2864003808613C031DB6280C
:1001600004308506831605118312FE2864003808C2
:10017000623C031DC1280830850683168511831251
:10018000FE2864003808633C031DCC280130860635
:10019000831606108312FE2864003808643C031D91
:1001A000D72880308506831685138312FE286400C5
:1001B0003808653C031DE2280130850683160510CA
:1001C0008312FE2864003808663C031DED280230C7
:1001D0008506831685108312FE2864003808783C53
:1001E000031DFE28051085100511851105138513C3
:1001F00006108611061286120613861300293E2861
:0A020000FA300A203E2863000329AB
:02400E006D3F04
:00000001FF
FORUMU İLGİLENDİREN KONULARA ÖM İLE CEVAP VERİLMEZ.

ibrsel


-esd-

OG Moderatörüm ve ibrsel Sizlere çok teşekkür ediyorum yardımlarınız için ..
Son Durak , Kara Toprak ..