L 0
T DB10.DBW 28
CALL #STAT0
IN0 :=P#DB10.DBX 0.0 BYTE 6
OUT1:=DB10.DBW6
L 8
T DB10.DBW 24
CALL #STAT516
REQ :=DB10.DBX20.0
R :=DB10.DBX20.1
LADDR :=W#16#3FF
DONE :=DB10.DBX20.3
ERROR :=DB10.DBX20.2
STATUS:=DB10.DBW22
SD_1 :=P#DB10.DBX 0.0 BYTE 8
LEN :=DB10.DBW24
CALL #STAT599
EN_R :=TRUE
R :=DB10.DBX26.1
LADDR :=W#16#3FF
NDR :=DB10.DBX26.0
ERROR :=DB10.DBX26.2
STATUS:=DB10.DBW28
RD_1 :=P#DB10.DBX 8.0 BYTE 12
LEN :=DB10.DBW30
A DB10.DBX 20.3
R DB10.DBX 20.0
CALL #STAT0
IN0 :=P#DB10.DBX 8.0 BYTE 9
OUT1:=#TEMP684
L DB10.DBW 17
T #TEMP685