*20 ///SUBROUTINE DISKY8E /DRIVES RK8E IN READ AND WRITE BLOCK /CALLS: DRDE DWRI (AS FOR TAPE) / QN\BN QN\BN /WRITE ROUTINE. DWRI=JMP . LDA 3 /SAVE BETA 3 STC SAVE3 SET 3 0 LDA I 4001 JMP DSKGO /READ ROUTINE. DRDE=JMP . LDA 3 /SAVE BETA 3 STC SAVE3 SET 3 0 LDA I 0001 / DSKGO, STC DSKCOM /COMMAND REG ADD 3 BCL I 6000 STC 3 / RETRY, LDA 3 BCL I 4777 ROR 1 STC CA /QUARTERS LDA 3 APO JMP .+5 /USE INSTRUCTION FIELD CLR IOB 6224 /RIF JMP .+4 /USE DATA FIELD CLR IOB 6214 /RDF SCR 3 /SAVE CA PART ROL 3 BCL I 7707 /EXT MEM BSE I DSKCOM, 0 IOB 6746 /COMMAND REG QAC ROL 1 /HIGH ORDER CA BCL I 1777 BSE I CA, 0 IOB 6744 /CA LDA 3 BCL I 7600 /DISK BLOCK IOB 6743 /GO / /WAIT FOR COMPLETION DWAIT, IOB 6741 JMP DWAIT IOB 6745 /STATUS AZE JMP DERR /ERROR /RETURN TO CALLER ADD 3 ADA I 6001 STC LV SET I 3 SAVE3, 0 LV, JMP / / DERR, LDA I 2 IOB 6742 /RECAL JMP RETRY //END SUBROUTINE DISKY8E