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

[-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
'--------------------------------------------------------------------------------------

[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

[ibrsel]

http://www.dosyaupload.net/870Untitled1.rar

OG hocam yardımcı olmuş ben linki yüklerken.Yinede paylaşayım dedim.

[-esd-]

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