Rockwell Automation 57C570 AutoMax PC3000 User Manual - 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