YOKOGAWA F3RS22-0N, Руководство пользователя

Страница: 53 / 65

4-22
IM 34M6H21-01E 2nd Edition : Aug, 2001-00
1000 ENTSTS@ :! Interrupt handling subroutine
1010 STATUS SLOT,PORT,2;IREC :! Interrupt request status
1020 IF IREC=0THEN :! Normal receive?
1030 GOTO ENTDAT@ :! Goto Receive Data
1040 ELSE
1050 DP“Error or break received.”
1060 GOTO RTN@
1070 ENDIF
1080 ENTDAT@
1090 ENTER SLOT,PORT;RCVDAT$
1100 RCVMNUM$=MID$(RCVDAT$,3,2) :! Extract device no.
1110 IF RCVMNUM$ <> MNUMBER$ THEN GOTO RTN@ :! Do not process error device no.
1120 RCVCMD$= MID$(RCVDAT$,7,2) :! Extract command
1130 IF RCVCMD$=“DS”THEN
1140 RCVSTS$=MID$(RCVDAT$,9,1) :! Extract status
1150 RST=VAL(RCVST$) :! Check “send data exists” flag
1160 RST=BINAND(RST,$04) :!
1170 IF RST=4 THEN :!
1180 COMMAND$=“RD” :! “RD”; Read Device Data command
1190 GOSUB SND@
1200 ENDIF
1210 ENDIF
1220 RTN@
1230 ENABLE INTR SLOT,PORT;“111”SND@
1240 RETURN
2000 SND@ : ! Send routine
2010 SNDDAT$=CHR$(01)+MCHR$(02)+COMMAND$:! Create text ”SOH”
+ ”Device no.” + ”STX” + ”Command”
2020 OUTPUT SLOT,PORT;SNDDAT$
2030 RETURN
3000 END