ASR33IOL, F$R1

* O070-001-H001 (ASR33IOL) DRAWING NO. 41286032-001-01 PAGE 11

0492 * 0493 * 0494 SUBR F$R1 FORTRAN READ FROM ASR 0495 * 0496 * 0497 CF5 H316 AND DDP-516 0498 REL RELOCATABLE 0499 * 0500 * 0501 00000 -0 000000 F$R1 DAC* ** RETURN PARAMETER 0502 00001 0 10 00000 CALL F$IO FORTRAN SCANNER AND CONVERSIONS 0503 00002 0 000000 RETN DAC ** RETURN 0504 00003 -0 02 00002 RSTR LDA* RETN RETURN 0505 00004 0 04 00021 STA BUFF BUFFER 0506 00005 0 02 00000 LDA F$R1 RETURN PARAMETER 0507 00006 140100 SSP ADDRESS OF FORMAT 0508 00007 0 04 00000 STA 0 INDEX 0509 00010 -0 02 00000 LDA* 0 FORMAT 0510 00011 100040 SZE TEST FOR FORMAT 0511 00012 0 01 00020 JMP FRED FORMATTED READ 0512 * 0513 * UNFORMATTED READ 0514 00013 0 02 00021 LDA BUFF BUFFER 0515 00014 0 10 00000 CALL I$AO ASR INPUT OBJECT 0516 00015 0 01 00024 JMP EROR ERROR 0517 00016 0 12 00002 EXIT IRS RETN RETURN 0518 00017 -0 01 00002 JMP* RETN RETURN 0519 * 0520 * FORMATTED READ 0521 00020 0 10 00000 FRED CALL I$AA ASR INPUT SOURCE RECORD 0522 00021 000000 BUFF BSZ 1 BUFFER 0523 00022 0 01 00024 JMP EROR ERROR 0524 00023 0 01 00016 JMP EXIT EXIT 0525 * 0526 * ERROR 0527 00024 0 10 00000 EROR CALL F$ER FORTRAN ERROR ROUTINE 0528 00025 0 000027 DAC EFMG END OF FILE MESSAGE 0529 00026 0 01 00003 JMP RSTR RESTART 0530 * 0531 * 0532 * ERROR MNEMONIC 0533 * 0534 00027 142706 EFMG BCI 1,EF END OF FILE MESSAGE 0535 * 0536 * 0537 END END OF F$R1 16.MAR.70 P.J.VYSE BUFF 000021 EFMG 000027 EROR 000024 EXIT 000016 F$R1 000000 FRED 000020 RETN 000002 RSTR 000003