SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0 SC /SEND READ COMMAND RDLP1, RDSD /WAIT FOR COMMAND TO COMPLETE SKP JMP RDLP2 /DONE - NOW DO THE TRANSFER JMP RDLP1 RDLP2, RDSE /SKIP IF ERROR SKP JMP VBLERR STL /READ INDICATOR TAD K25 /NOW SEND EMPTY BUFFER COMMAND WRTLOP, RDSC /EITHER EMPTY BUFFER (25) OR FILL BUFFER (2) USRCDF, HLT /CHANGED TO CDF_BUFFER_FIELD JMS XFER JMP VBLERR /ERROR EXIT CDF 0