ZBasic Forum

Code: Select all

'	option ConsoleSpeed 0
	option TargetDevice ZX24x
Private devId(1 to 10) as Byte
Private devName as String
Private Com1InQ(1 to 20) as Byte
Private Com1OutQ(1 to 20) as Byte
Private Com9InQ(1 to 20) as Byte
Private Com9OutQ(1 to 20) as Byte
Private Const crlf as string = chr(13) & chr(10)
Private	say(1) as string

Public Sub Main()
'	Call OpenQueue(Com1InQ, SizeOf(Com1InQ))
'	Call OpenQueue(Com1OutQ, SizeOf(Com1OutQ))
'	Call OpenCom(1, 19200, Com1InQ, Com1OutQ) 
	
	Call OpenQueue(Com9InQ, SizeOf(Com9InQ))
	Call OpenQueue(Com9OutQ, SizeOf(Com9OutQ))
	Call OpenCom(9, 9600, Com9InQ, Com9OutQ)
	
	' get device name
	System.DeviceID(devID)
	devName = MakeString(devId.DataAddress, SizeOf(devID))
	Dim i as byte
	i = StrFind(devName, Chr(0))
	If &#40;i <> 0&#41; Then
		devName = Left&#40;devName, i-1&#41;
	End If

	say&#40;0&#41; = devName & " says..."
	say&#40;1&#41; = "   Hello, world!"

	Do	' endless
		' alernate LEDs, say hello
		Call Hello&#40;0&#41;
		Call Hello&#40;1&#41;
	Loop
End Sub

Private sub Hello&#40;ByVal i as byte&#41;
	Debug.Print say&#40;i&#41;
'	Call PutQueueStr&#40;Com1OutQ, say&#40;i&#41; & crlf&#41;
	Call PutQueueStr&#40;Com9OutQ, say&#40;i&#41; & crlf&#41;
	Call PutPin&#40;Pin.RedLED, 0&#41;
	Call Delay&#40;0.5&#41;
	Call PutPin&#40;Pin.RedLED, 1&#41;
	Call PutPin&#40;Pin.GreenLED, 0&#41;
	Call Delay&#40;0.5&#41;
	Call PutPin&#40;Pin.GreenLED, 1&#41;	
End Sub

Code: Select all

   option TargetDevice ZX24x
   option SignOn On
Private Com1InQ(1 to 30) as Byte
Private Com1OutQ(1 to 30) as Byte

Public Sub Main()

   call delay(0.002)

   Call OpenQueue(Com1InQ, SizeOf(Com1InQ))
   Call OpenQueue(Com1OutQ, SizeOf(Com1OutQ))

   Call OpenCom(1, 19200, Com1InQ, Com1OutQ)

   Call PutQueueStr(Com1OutQ, "via PutQueue")
End Sub

Code: Select all

Do While &#40;&#40;StatusCom&#40;1&#41; And &H04&#41; <> 0&#41;
Loop

Code: Select all

    option ConsoleSpeed 0
   option TargetDevice ZX24x
   option SignOn Off
Private Com1OutQ(1 to 30) as Byte

Public Sub Main()
   Call OpenQueue(Com1OutQ, SizeOf(Com1OutQ))
   Call OpenCom(1, 19200, 0, Com1OutQ)
   Call PutPin(Pin.RedLED, 0)
   
   Call PutQueueStr(Com1OutQ, "via PutQueue")
   Call PutPin(Pin.RedLED, 1)
   Call PutPin(Pin.GreenLED, 0)
End Sub

Code: Select all

#c
   ZB_REQUEST_SYM(zb_com1_ISR);
#endc

Code: Select all

Option TargetDevice ATMega328P
Option DeviceParameter package "PDIP-28"
Option DeviceParameter clockFrequency 14745600
Option ConsoleSpeed 57600
Option DeviceParameter rtcFrequency 512
Option DeviceParameter rtcScale 2
Option DeviceParameter swUartDivisor 64
Option DeviceParameter swUartMinSpeed 300
Option DeviceParameter swUartMaxSpeed 19200
Option DeviceParameter swUartBaseSpeed 0
Option DeviceParameter timerSpeed1Divisor 1
Option DeviceParameter timerSpeed2Divisor 8
Option DeviceParameter ZBasicBootloader true
Option SignOn Off

#define RedLed = D.2
#define GreenLed = D.3

Private msg as StringVectorData({ " says...", "    Hello, world" })
Private device as String

Private Const cmdChar as Byte = &H04

Private Const stackSize as Integer = 200

Private taskStack(1 to stackSize) as Byte

Sub Main()
    Dim j as Integer

    ' launch the ATN detection task
    CallTask cmdTask, taskStack

    ' get the device identification string
    device = getDeviceID()

    ' loop forever displaying the hello world message
    j = 1
    Do
        Call Hello(j)
    Loop

End Sub

'
'' Hello
'
' This subroutine displays one of two strings depending on the
' passed index (of which only the least significant bit is used).
'
Private Sub Hello(ByRef idx as Integer)
    ' advance the string index and limit its value
    idx = (idx + 1) And 1

    ' display the indexed string, for string 0, add the device identifier prefix
    If (idx = 0) Then
        Debug.Print device;
    End if
    Debug.Print msg(idx + 1)

#if defined(RedLED) And defined(GreenLED)
    ' for devices with LEDs, flash the red and green LEDs for a half second each
    Call PutPin(RedLED, zxOutputLow)
    Call Delay(0.25)
    Call PutPin(RedLED, zxOutputHigh)
    Call PutPin(GreenLED, zxOutputLow)
    Call Delay(0.25)
    Call PutPin(GreenLED, zxOutputHigh)
#else
    ' for devices without LEDs, simply delay for a second
    Call Delay(1.0)
#endif
End Sub

'
'' getDeviceID
'
' Retrieve the device identifer and return it as a string.
'
Private Function getDeviceID() as String
    Dim idLen as Integer
    Dim i as Integer
    Dim id(1 to 10) as Byte

    ' note that the 'id' array will be null terminated
    Call System.DeviceID(id)

    ' determine the length of the identification string
    idLen = 0
    For i = 1 to UBound(id)
        If (id(i) = 0) Then
            Exit For
        End If
        idLen = idLen + 1
    Next i

    ' create a string containing the identification string
    getDeviceID = MakeString(id.DataAddress, idLen)
End Function

'
'' cmdTask
'
' The sole purpose of this task is to check the input queue for the ATN
' character and, when found, invoke the ZX command mode.
'
Sub cmdTask()
    Do
        If (StatusQueue(CByteArray(Register.RxQueue))) Then
            Dim c as Byte
            Call GetQueue(CByteArray(Register.RxQueue), c, 1)
            If (c = cmdChar) Then
                Call ZXCmdMode()  ' 
            End If
        End If
        Call Sleep(0)
    Loop
End Sub