93329737
級別: 探索解密
|
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】 |
---|---|
|