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】
滬公網安備31010802001143號
