Rockwell Automation 57C570 AutoMax PC3000 User Manual User Manual
Page 275

GĆ3
BASIC Program Examples
1070 COMMON
BT1_XFR_INITIATE@
\! AB–RIO REG 832, BIT 0
1080 COMMON
BT1_XFR_ERR@
\! AB–RIO REG 832, BIT 8
1090 COMMON
BT1_XFR_COMP@
\! AB–RIO REG 832, BIT 9
1100 COMMON
BT1_DEST%
\! AB–RIO REG 833
1110 COMMON
BT1_LENGTH%
\! AB–RIO REG 834
1120 COMMON
BT1_UPDATE%
\! AB–RIO REG 835
1130 COMMON
BT1_DATA_OUT%
\! AB–RIO REG 1024
8050 ! Set up block transfer 1, write to Rack 7, Slot 0, Grp 3
\&
Reg 833
\&
Bit 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1 0
\&
0 x x x 0 1 1 0 x x x 0 0 1 1 1 = 607 Hex
\&
for a block transfer read bit 15 is set to a 1 = 8607 Hex
\&
8060 BT1_DEST% = 1543
8070 BT1_UPDATE% = 0 \ ! Hand-shaked block transfer
8071 BT1_LENGTH = 1
10000
!
10010
BT1_DATA_OUT% = 0 \ ! Zero output
10020
BT1_XFR_INITIATE@ = 1
10030
IF BT1_XFR_ERR@ OR BT1_XFR_COMP@ THEN
GOTO 10040
ELSE
DELAY 1 TICKS \ GOTO 10030
END_IF
10040
! IF BT1_XFR_ERR@ THEN (Handle Block Transfer Error)
32767
END