HSRP-IOL, F$R2

* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 11

0484 * 0485 * 0486 SUBR F$R2 FORTRAN READ FROM HSR 0487 * 0488 * 0489 CF5 H316 AND DDP-516 0490 REL RELOCATABLE 0491 * 0492 * 0493 00000 -0 000000 F$R2 DAC* ** RETURN PARAMETER 0494 00001 0 10 00000 CALL F$IO FORTRAN SCANNER AND CONVERSIONS 0495 00002 0 000000 RETN DAC ** RETURN ADDRESS 0496 00003 0 02 00000 RSTR LDA F$R2 RETURN PARAMETER 0497 00004 140100 SSP DELETE FLAG 0498 00005 0 04 00000 STA 0 INDEX 0499 00006 1 02 00000 LDA 0,1 GET FORMAT ADDRESS 0500 00007 100040 SZE TEST FOR NO FORMAT 0501 00010 0 01 00015 JMP FRED FORMATTED READ 0502 * 0503 * UNFORMATTED READ 0504 00011 -0 02 00002 LDA* RETN BUFFER 0505 00012 0 10 00000 CALL I$PO HSR INPUT OBJECT 0506 00013 0 01 00024 JMP ERR ERROR - ETX READ 0507 00014 0 01 00022 JMP EXIT EXIT 0508 * 0509 * FORMATTED READ 0510 00015 -0 02 00002 FRED LDA* RETN BUFFER ADDRESS 0511 00016 0 04 00020 STA BUFF STORE INTO CALL SEQUENCE 0512 00017 0 10 00000 CALL I$PA HSP INPUT SOURCE RECORD 0513 00020 0 000000 BUFF DAC ** BUFFER ADDRESS 0514 00021 0 01 00024 JMP ERR ERROR - ETX READ 0515 * 0516 00022 0 12 00002 EXIT IRS RETN TALLY RETURN ADDRESS 0517 00023 -0 01 00002 JMP* RETN RETURN TO F$IO 0518 * 0519 * END OF FILE ERROR 0520 00024 0 10 00000 ERR CALL F$ER FORTRAN ERROR ROUTINE 0521 00025 0 000027 DAC MESS ERROR MESSAGE ADDRESS 0522 00026 0 01 00003 JMP RSTR RESTART 0523 * 0524 * 0525 * ERROR MNEMONIC 0526 * 0527 00027 142706 MESS BCI 1,EF END OF FILE MESSAGE 0528 * 0529 * 0530 END END OF F$R2 07.MAY.70 G.S.LITTLE BUFF 000020 ERR 000024 EXIT 000022 F$R2 000000 FRED 000015 MESS 000027 RETN 000002 RSTR 000003