A #Dequeue
JCN exit // 为0时跳转
L #DB_NO //装载表所在数据块号
T #dbnr
OPN DB 【#dbnr】 //打开装载数据块

L P#8.0 //初始读指针
T #Run_Point
L P#0.0 //初始读指针
T #Standby_Point

L #Run_Point
LAR1
L 16
+AR1
L DBW 【AR1,P#0.0】

next: T #CNTR
L #Run_Point
LAR1
L 16
+AR1
L DBW 【AR1,P#0.0】
L 0
<>I
= #Exit
JCN exit

CALL "FIFO"
TABLE :=DB111.DBW8
RET_VAL:=#data

CALL "ATT"
DATA :=#data
TABLE:=DB111.DBW0


L #CNTR
LOOP next
exit: NOP 1
L #DB_NO
T #dbnr
OPN DB 【#dbnr】