EFX-TEK AP-8 Manuel - Page 7

Parcourez en ligne ou téléchargez le pdf Manuel pour {nom_de_la_catégorie} EFX-TEK AP-8. EFX-TEK AP-8 8 pages.

Imprimer la page
SYMBOL
Baud
SYMBOL
Addr
' -----[ Variables ]-------------------------------------------------------
SYMBOL
id0
SYMBOL
id1
SYMBOL
id2
SYMBOL
segment
SYMBOL
switches
SYMBOL
ctrlChar
' -----[ Initialization ]--------------------------------------------------
Reset:
DEBUG CLS
ctrlChar = 1
' -----[ Program Code ]----------------------------------------------------
Main:
SEROUT Sio, Baud, ("!AP8", Addr, "V")
SERIN
Sio, Baud, id0, id1, id2
DEBUG "AP-8 Version ", #@id0, #@id1, #@id2
PAUSE 2000
DEBUG CLS
FOR segment = 0 TO 7
SEROUT Sio, Baud, ("!AP8", Addr, "P", segment)
SERIN
Sio, Baud, id0
Get_Status:
SEROUT Sio, Baud, ("!AP8", Addr, "G")
SERIN
Sio, Baud, id0
IF BIT4 = 1 THEN Mode_Error
switches = id0 & %00000111
IF switches <> %111 THEN Switch_Error
Show_Status:
DEBUG #@ctrlChar
DEBUG "Segment #", #segment, CR
DEBUG CR
DEBUG "Playing / Idle... ", #BIT7, CR
DEBUG "Single / Loop.... ", #BIT5, CR
DEBUG "Record / Play.... ", #BIT4, CR
DEBUG "Segment Sw2...... ", #BIT2, CR
DEBUG "Segment Sw1...... ", #BIT1, CR
DEBUG "Segment Sw0...... ", #BIT0, CR
IF BIT7 = 1 THEN Get_Status
PAUSE 1000
NEXT
DEBUG CLS, "Demo complete."
END
Switch_Error:
DEBUG CLS
EFX-TEK  (916) 616-1658  www.efx-tek.com  [email protected]
= OT2400
= %11
= B0
= B1
= B2
= B3
= B4
= B5
' also used to status
' loop control
' board switch settings
' used for Debug Home
' home
' get version
' receive ID string
' display it
' clear auto status byte
' get status
' AP-8 in record mode
' isolate switch bits
' error if any closed
' home cursor
' show board status
' allow to finish
7 of 8