//一个写数组的小程序，写100个数到数组ARRAY[1..100]
//DB1是一个1-100的整型数组

OPN DB 1 //打开DB1
L P#DBX 0.0 //DB1首地址到ACCU1
LAR1 // DB1首地址从ACCU1到AR1
L 100 //循环长度
next: T #LoopCounter //循环变量
T DBW [AR1,P#0.0] //写到DB1中
+AR1 P#2.0 //指针+2
LOOP next //循环变量-1转移