ASMB,A,B,L * * OVERLAY SUBROUTINE TO LINK THE MAG. TAPE SCRATCH AREA * TO THE ALGOL COMPILER. * * USE S.A.=2 ON MTS. * ORG 2 JMP 3,I THIS IS AN ABORT DEF ABORT IF ALGOL IS NOT LOADED. DEF POS ADDRESS OF FILE SEARCH ORG 100B JMP 4,I GO TO FILE 3 DEF ENTER ADDRESS OF M.T. PATCH * * OVERLAY IN PHOTO-READR AREA * ORG 37236B POS LDA D2 CLB JSB 107B,I BEGINNING OF OCT 4 NOP FILE # 2 HLT 66B JMP 424B,I RETURN TO ALGOL (#24044A) USE JMP * USE JMP 423B,I FOR ALGOL # 20109D * ENTER NOP JSB 107B,I SET UP OCT 0 NOP M.T. READ COMMAND HLT 66B JMP ENTER,I ABORT NOP CLA JSB 106B,I RETURN TO .IPL. * D2 OCT 2 * END