; PATA1.MAC NAB/1738/SLN 31-OCT-78/25-AUG-80. ; RT-11 SOFTWARE DISPATCH MARCH 1980 (FEBRUARY 1979) (JUNE 1978). ; BASIC-11/RT-11 V2 SEQ 35.1.2 M (SEQ 17 M) (SEQ 2 M). ; PRINT USING - PATCH A. .TITLE BSPR1 .IDENT \0012.1\ .PSECT BASXCD,RO,I .ENABL GBL .=.+122 JMP PATA1 PATA1A: .PSECT PATA1,RO,I PATA1: MOV T4(R5) ,PATA1B JSR PC ,EVAL MOV PATA1B ,T4(R5) JMP PATA1A PATA1B: .WORD 0 .END