<Toc> <Ind>
<7. I/O Communications >
7-15
IM 34M6H28-01E
1st Edition : Feb.01,1999-00
500
ENTER LDSLOT,25+I NOFORMAT;DSTS (I)
510 IF DLIST (I) <> DSTS (I) THEN LOOP1@
: ! Compare with scan list (Wait
till it matches)
520 NEXT I
530 !
540 !
600 ! ****Valid data****
610 OFF TIMER #1
: ! 20 second timer interrupt off
620 !
630 GOSUB MESSEGE@
: ! Message Communication request
640 !
650 LOOP2@
660 STS=0
670 STATUS LDSLOT,101;STS
: ! Confirm that X
9 is ON
680 SCANON=BIT (STS,8)
690 IF SCANON=0 THEN ERROR@
700 !
720 GOSUB DREAD@
: ! Read input data
730 GOSUB DWRITE@
: ! Write output data
740 GOTO LOOP2@
: ! Repeat the execution during
scanning
750 !
800 ! ****Error processing****
: ! Error processing
810 ERROR@
820 ENTER LDSLOT,17 NOFORMAT;ERCODE1
830 ENTER LDSLOT,18 NOFORMAT;ERCODE2
840 ENTER LDSLOT,29 NOFORMAT;ERCODE1
: ! ead the node address in error
850 ENTER LDSLOT,30 NOFORMAT;ERCODE2
860 ENTER LDSLOT,31 NOFORMAT;ERCODE3
870 ENTER LDSLOT,32 NOFORMAT;ERCODE4
880 DP "ERCODE1=",HEX$ (ERCODE1)
: ! Error code 1(hexadecimal
display)
890 DP "ERCODE2=",HEX$ (ERCODE2)
: ! Error code 2(hexadecimal
display)
900 DP "ERCODE1=",HEX$ (ERCODE1)
: ! Display error node
(hexadecimaldisplay)
910 DP "ERCODE2=",HEX$ (ERCODE2)
920 DP "ERCODE3=",HEX$ (ERCODE3)
930 DP "ERCODE4=",HEX$ (ERCODE4)
940 CONTROL LDSLOT, 101;$0000,$FFFF
: ! Request to stop scanning
950 STOP
3000
END
Содержание FA-M3 Vitesse
Страница 2: ...Blank Page...
Страница 28: ...Blank Page...
Страница 40: ...Blank Page...
Страница 94: ...Blank Page...
Страница 116: ...Blank Page...
Страница 118: ...Blank Page...