/MAG - DRUM XSFER ROUTINE / TO XSFER 510 256WD BLKS. / AND PREFOR ERROR CHECKING VIA STATUS. / MTCL=707302 MTLC=707304 MTGO=707344 MTRS=707352 DRSF=707001 DRDA=707004 / .ABS .LOC 100 INIT DZM BLK ISZ BLK LAC (-776 DAC TST / BEGIN MTCL LAC WC DAC 17762 DAC 17764 LAC BFAD DAC 17763 DAC 17765 LAC MTCOM MTLC MTGO NOP NOP TLOOP MTRS SMA JMP EX AND RDMSK SZA JMP TLOOP HLT EX AND RDMSK SNA JMP TLOOP LAC BLK DRDA DRSF JMP .-1 ADD (200 DAC BLK ISZ TST JMP BEGIN REW MTLC HLT WC -1000 RDMSK 2000 REW 4000 MTCOM 100 BLK 0 TST 0 BFAD .+1 .BLOCK 401 .END