انا بدءت احول الكود للغة باسكوم
يا جماعة محتاج اى مساعدة خصوصا فى حجات فى الكود صعبة شوية
دا الى وصلتلو لغاية دلوقتي
كود:
'--------------------------------------
'----------------------
$regfile = "m32def.dat"
$crystal = 8000000
'--------------------------------------
'--------------------
Ddrb = &B11101110
Ddrd = &B00000000
'--------------------------------------
'----------------
Portd = &B00000000
Pinb.7 = 0
'--------------------------------------
'-----
Data Alias Pinb.0
Command Alias Portb.0
Clock Alias Portb.2
Att Alias Portb.3
Ack Alias Pinb.4
'---------------------------------------
'--------------------
Att = 1
Clock = 1
Command = 1
'----------------------------------------
'----------------
Do
Gosub Psinit
Loop
'----------------------------------------
Psinit:
Dim X As Byte
Att = 0
Command = 1
Gosub Ps_clock
For X = 0 To 7 Step 1
Command = 0
Gosub Ps_clock
Next X
Return
'---------------------------------------
Ps_clock:
Clock = 0
Waitus 10
Clock = 1
Waitms 10
Return
مساعدة في تحويل كود من لغة C الى BASCOM
