
/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
