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】