Kenwood DCS-8200 Instruction Manual page 114

350
360 ' Send message
370 '
380 WRT$ = "STOR1 :HOLD1:WREAD1.1.1,0, 20:"
390 CALL IBWRT ( DCSX,WRT$ )
400 FOR 1=0 TO 500 : NEXT I
410 RD$ = SPACES ( 80 )
420 CALL IBRD ( DCSX, RD$)
430 MASKX = 8H4800
440 CALL IBWAIT ( DCSX, MASKX )
450 FOR 1=0 TO 500 : NEXT I
460 I F ( IBSTAX AND &H800 ) <> 0 GOTO 520
470 PRINT "DATA", RD$
480 GOTO 570
490 ;
500 ' R e c e i v e d e v i c e s t a t u s
510 '
520 CALL IBRSP ( DCSX.SPRX )
530 PRINT "CS-UNIT STATUS = ";HEX$ ( SPRX )
540 '
550 ' End p r o c e s s
560 '
570 CALL IBLOC ( DCSX )
580 END
590 '
600 PRINT "IBFIND E R R O R "
610 END
Note : "IBM* i s a t r a d e m a r k o f I n t e r n a t i o n a l B u s i n e s s M a c h i n e s
" N a t i o n a l I n s t r u m e n t s "
108
' DCS command
' R e c e i v e DCS d a t a
' Timeout o r SRO
' On SRO go t o " D e v i c e
' P r i n t DCS d a t a
' P r i n t DCS-UNIT STATUS
' Send d e v i c e
i s a t r a d e m a r k o f N a t i o n a l
S t a t u s "
l o c a l
C o r p .
I n s t r u m e n t s Corp.