HSRP-IOL, F$R2

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

0001 * 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 0002 * 0003 * 0004 * 0005 * COMPUTER: H316, DDP-516 0006 * 0007 * 0008 * PROGRAM CATEGORY: INPUT/OUTPUT 0009 * 0010 * 0011 * PROGRAM TITLE: HSRP-IOL 0012 * HIGH SPEED READER AND HIGH SPEED PUNCH FORTRAN AND 0013 * STANDARD INPUT/OUTPUT LIBRARY USING IOBUS 0014 * 0015 * 0016 * 0017 * 0018 * 0019 * 0020 * 0021 * 0022 * 0023 * 0024 * APPROVAL DATE 0025 * 0026 * 0027 * 0028 * PROG---------------------- ------------ 0029 * 0030 * 0031 * SUPR---------------------- ------------ 0032 * 0033 * 0034 * QUAL---------------------- ------------ 0035 * 0036 * 0037 * NO. OF PAGES ------------ 0038 * 0039 * 0040 * AUTHOR 0041 * 0042 * HONEYWELL - COMPUTER CONTROL DIVISION (EUROPE) 0043 * 0044 * 0045 * PURPOSE 0046 * 0047 * TO PROVIDE A HIGH SPEED READER AND HIGH SPEED PUNCH FORTRAN AND 0048 * STANDARD INPUT/OUTPUT LIBRARY USING IOBUS 0049 * 0050 *
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 2

0051 * RESTRICTIONS 0052 * 0053 * THIS LIBRARY WILL OPERATE ON AN H316 OR A DDP-516 WITH THE HIGH 0054 * SPEED READER OPTION 316/516-505X OR 316/516-508X AND THE HIGH SPEED 0055 * PUNCH OPTION 316/516-507X OR 316/516-508X 0056 * 0057 * 0058 * STORAGE 0059 * 0060 * SEE CONTENTS 0061 * 0062 * 0063 * CONTENTS 0064 * 0065 * MODULE MODULE STORAGE PAGE 0066 * NAME DEFINITION OCTAL DECIMAL 0067 * 0068 * F$R2 FORTRAN READ FROM HSR 30 24 0069 * 0070 * F$W2 FORTRAN OUTPUT ON HSP 0071 * F$PL FORTRAN HSP LINES/PAGE 74 60 0072 * 0073 * F$B1 FORTRAN REWIND HSR/HSP 0074 * F$F1 FORTRAN BACKSPACE HSR/HSP 6 6 0075 * 0076 * O$PH HSP LIST HEADING 4 4 0077 * 0078 * O$GHAP GENERAL HEADING ASR/HSP 0079 * O$ALHB ASR LIST HEADING BUFFER 0080 * O$PLHB HSP LIST HEADING BUFFER 0081 * O$ALPB ASR LIST PAGE NUMBER BUFFER 0082 * O$PLPB HSP LIST PAGE NUMBER BUFFER 0083 * O$ALPN ASR LIST PAGE NUMBER 0084 * O$PLPN HSP LIST PAGE NUMBER 0085 * O$ALLC ASR LIST LINE COUNT/PAGE 0086 * O$PLLC HSP LIST LINE COUNT/PAGE 0087 * O$ALLN ASR LIST LINE NUMBER 0088 * O$PLLN HSP LIST LINE NUMBER 70 56 0089 * 0090 * O$PE HSP LIST EJECT PAGE 44 36 0091 * 0092 * O$PL HSP LIST 26 22 0093 * 0094 * O$PE HSP LIST EJECT PAGE * 2 2 0095 * 0096 * O$PLHB HSP LIST HEADING BUFFER * 0097 * O$PDHB HSP DEFAULT HEADING BUFFER * 0098 * O$PLPB HSP LIST PAGE NUMBER BUFFER * 44 29 0099 * 0100 * O$PLLC HSP LIST LINE COUNT/PAGE *
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 3

0101 * O$PDLC HSP DEFAULT LINE COUNT/PAGE * 0102 * O$PLLN HSP LIST LINE NUMBER * 0103 * O$PDLN HSP DEFAULT LINE NUMBER * 2 31 0104 * 0105 * O$PLPN HSP LIST PAGE NUMBER * 0106 * O$PDPN HSP DEFAULT PAGE NUMBER * 2 31 0107 * 0108 * O$PP HSP PRINT LINE 0109 * O$PPE HSP PRINT LINE 12 10 0110 * 0111 * O$PLL HSP LIST LINE 24 20 0112 * 0113 * O$PC HSP OUTPUT CARRIAGE RETURN 10 8 0114 * 0115 * O$PF HSP OUTPUT LINE FEED 6 6 0116 * 0117 * I$PA HSR INPUT SOURCE RECORD 0118 * I$PAE HSR INPUT SOURCE RECORD 46 38 0119 * 0120 * O$PA HSP OUTPUT SOURCE RECORD 0121 * O$PAE HSP OUTPUT SOURCE RECORD 30 24 0122 * 0123 * O$PS HSP OUTPUT END OF TEXT 0124 * O$PSS HSP OUTPUT SOURCE END OF TEXT 0125 * O$PSE HSP OUTPUT SOURCE END OF TEXT 0126 * F$D2 FORTRAN WRITE FILE MARK HSP 14 12 0127 * 0128 * I$PB HSR INPUT OBJECT LINK 14 12 0129 * 0130 * O$PB HSP OUTPUT OBJECT LINK 12 10 0131 * 0132 * O$PSO HSP OUTPUT OBJECT END OF TEXT 14 12 0133 * 0134 * I$PO HSR INPUT OBJECT 72 58 0135 * 0136 * O$PO HSP OUTPUT OBJECT 34 28 0137 * 0138 * O$PLDR HSP PUNCH LEADER 12 10 0139 * 0140 * O$PKP HSP OUTPUT CHARACTER WITH PARITY 6 6 0141 * 0142 * I$PK HSR INPUT CHARACTER 6 6 0143 * 0144 * O$PK HSP OUTPUT CHARACTER 6 6 0145 * 0146 * O$POFF HSP OFF 6 6 0147 * 0148 * 0149 * * - DEFAULT MODULE 0150 *
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 4

0151 * 0152 * USE 0153 * 0154 * INTERNAL MODULES 0155 * 0156 * NAME CALLING SEQUENCE CALLS ERRORS 0157 * 0158 * F$R2 CALL F$R2 F$IO EF END OF FILE 0159 * DAC FORMAT DESCRIPTOR LIST I$PO 0160 * (RETURN) I$PA 0161 * F$ER 0162 * 0163 * F$W2 CALL F$W2 F$IO NONE 0164 * DAC FORMAT DESCRIPTOR LIST C$SW 0165 * (RETURN) O$PO 0166 * O$PKP 0167 * O$PP 0168 * (LINKED WITH F$PL) 0169 * 0170 * F$PL XAC F$PL NONE 0171 * (LINKED WITH FSW2) 0172 * 0173 * F$B1 CALL F$B1 F$ER ID ILLEGAL DEVICE 0174 * (RETURN) 0175 * (SIMILARLY FOR F$F1) 0176 * 0177 * O$PH CALL O$PH O$GHAP NONE 0178 * DAC HEADING BUFFER O$PE 0179 * (RETURN) 0180 * 0181 * O$GHAP LDX RETURN ADDRESS NONE 0182 * CALL O$GHAP 0183 * (LINKED WITH O$ALHB, O$PLHB, O$ALPB, O$PLPB, O$ALPN, O$PLPN, 0184 * O$ALLC, O$PLLC, O$ALLN, O$PLLN) 0185 * 0186 * O$PLHB XAC O$PLHB NONE 0187 * (SIMILARLY FOR O$ALHB, O$ALPB, O$PLPB, O$ALPN, O$PLPN, 0188 * O$ALLC, O$PLLC, O$ALLN, O$PLLN) 0189 * (ALL LINKED HITH O$GHAP) 0190 * 0191 * O$PE CALL O$PE O$PKP NONE 0192 * (RETURN) C$BB 0193 * O$PLPB 0194 * O$PLL 0195 * O$PLHB 0196 * O$PLLN 0197 * O$PLLC 0198 * O$PLPN 0199 * 0200 * O$PL CALL O$PL O$PE NONE
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 5

0201 * DAC BUFFER ADDRESS O$PKP 0202 * (RETURN) O$PLL 0203 * O$PLLC 0204 * O$PLLN 0205 * 0206 * OS$PE CALL O$PE NONE 0207 * (RETURN) 0208 * (DEFAULT MODULE) 0209 * 0210 * O$PLHB XAC O$PLHB NONE 0211 * (O$POHB IS IDENTICAL TO O$PLHB) 0212 * (SIMILARLY FOR O$PLPB) 0213 * (BOTH LINKED IN ONE DEFAULT MODULE) 0214 * 0215 * O$PLLC XAC O$PLLC NONE 0216 * (SIMILARLY FOR O$PLLN) 0217 * (O$PDLC AND O$PDLN ARE IDENTICAL TO O$PLLC AND O$PLLN 0218 * RESPECTIVELY) 0219 * (BOTH LINKED IN ONE DEFAULT MODULE) 0220 * 0221 * O$PLPN XAC O$PLPN NONE 0222 * (O$PDPN IS IDENTICAL TO O$PLPN) 0223 * (DEFAULT MODULE) 0224 * 0225 * O$PP CALL O$PP O$PLL NONE 0226 * DAC BUFFER ADDRESS 0227 * (RETURN) 0228 * (IDENTICAL WITH O$PPE) 0229 * 0230 * O$PLL LDX MINUS NO. OF BUFFER WORDS C$SW NONE 0231 * CALL O$PLL O$PKP 0232 * DAC BUFFER ADDRESS 0233 * (RETURN) 0234 * 0235 * O$PC CALL O$PC O$PKP NONE 0236 * (RETURN) 0237 * 0238 * O$PF CALL O$PF O$PK NONE 0239 * (RETURN) 0240 * 0241 * I$PA CALL I$PA C$II PE PARITY ERROR 0242 * DAC BUFFER ADDRESS I$PK 0243 * (END OF TEXT RETURN) C$IP 0244 * (NORMAL RETURN) C$ER 0245 * C$TF 0246 * C$IF 0247 * C$IT 0248 * (IDENTICAL WITH I$PAE) 0249 * 0250 * O$PA CALL O$PA C$OI NONE
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 6

0251 * DAC BUFFER ADDRESS C$OP 0252 * (RETURN) O$PK 0253 * C$OE 0254 * (IDENTICAL WITH O$PAE) 0255 * 0256 * O$PS CALL O$PS C$OP NONE 0257 * (RETURN) O$PK 0258 * (IDENTICAL WITH O$PSS, O$PSE AND F$D2) 0259 * 0260 * I$PB CALL I$PB I$PO CK CHECKSUM ERROR 0261 * DAC BUFFER ADDRESS C$ER 0262 * (END OF TEXT RETURN) 0263 * (NORMAL RETURN) 0264 * 0265 * O$PB CALL O$PB O$PO NONE 0266 * DAC BUFFER ADDRESS 0267 * (RETURN) 0268 * 0269 * FIRST WORD OF BUFFER MUST 0270 * CONTAIN NUMBER OF DATA WORDS 0271 * FOLLOWING 0272 * 0273 * O$PSO CALL O$PSO O$PK NONE 0274 * (RETURN) 0275 * 0276 * I$PO LDA BUFFER ADDRESS I$PK BL BLOCK LENGTH 0277 * CALL I$PO C$ER ERROR 0278 * (END OF TEXT RETURN) C$IS 0279 * (NORMAL RETURN) 0280 * 0281 * A-REG. ON RETURN: 0282 * ZERO - CHECKSUM AGREEMENT 0283 * NON-ZERO - CHECKSUM DISCREPANCY 0284 * 0285 * O$PO LDA BUFFER ADDRESS O$PK NONE 0286 * LDX MINUS NO. OF DATA WORDS C$SI 0287 * CALL O$PO 0288 * (RETURN) 0289 * 0290 * O$PLDR CALL O$PLDR O$PK NONE 0291 * (RETURN) O$POFF 0292 * 0293 * O$PKP LDA W O$PK NONE 0294 * CALL O$PKP 0295 * (RETURN) 0296 * 0297 * W IS A WORD WHICH INCLUDES THE 0298 * CHARACTER TO BE PUNCHED IN BITS 0299 * 1-8. ON RETURN. W IS PRESERVED 0300 * EXCEPT FOR BITS 1-8 PARITY
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 7

0301 * AMENDMENT. 0302 * 0303 * I$PK CALL I$PK NONE 0304 * (RETURN) 0305 * CHARACTER IN A-REG. ON RETURN 0306 * 0307 * O$PK LDA CHARACTER NONE 0308 * CALL O$PK 0309 * (RETURN) 0310 * 0311 * O$POFF CALL O$POFF NONE 0312 * (RETURN) 0313 * 0314 * 0315 * EXTERNAL MODULES 0316 * 0317 * NAME DEFINITION 0318 * 0319 * C$BB CONVERT BINARY TO BCI 0320 * 0321 * C$ER CONTROL ERROR ROUTINE 0322 * 0323 * C$IF CHARACTER INPUT FILL 0324 * 0325 * C$II CHARACTER INPUT INITIALISE 0326 * 0327 * C$IP INPUT PARITY 0328 * 0329 * C$IS CONVERT FROM INVISIBLE TO 6 BIT CODE 0330 * 0331 * C$IT CHARACTER INPUT TAB 0332 * 0333 * C$OE CHARACTER OUTPUT EXTRACT 0334 * 0335 * C$OI CHARACTER OUTPUT INITIALISE 0336 * 0337 * C$OP OUTPUT PARITY 0338 * 0339 * C$SI CONVERT FROM 6 BIT TO INVISIBLE CODE 0340 * 0341 * C$SW STRIP TRAILING WORDS 0342 * 0343 * C$TF TEST FRAME 0344 * 0345 * F$ER FORTRAN ERROR ROUTINE 0346 * 0347 * F$IO FORTRAN SCANNER AND CONVERSIONS 0348 * 0349 * 0350 * ERRORS
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 8

0351 * 0352 * BL BLOCK LENGTH ERROR 0353 * CK CHECKSUM ERROR 0354 * PE PARITY ERROR 0355 * 0356 * THESE ERRORS ARE REPORTED THROUGH C$ER (CONTROL ERROR 0357 * ROUTINE). 0358 * 0359 * EF END OF FILE ERROR 0360 * ID ILLEGAL DEVICE 0361 * 0362 * THESE ERRORS ARE REPORTED THROUGH F$ER (FORTRAN ERROR 0363 * ROUTINE). 0364 * 0365 * IF CONTINUATION IS ATTEMPTED AFTER ERRORS BL, CK, PE OR EF, 0366 * THE NEXT RECORD WILL BE PROCESSED. CONTINUATION AFTER ERROR 0367 * ID CAUSES A RETURN TO THE CALLING PROGRAM. 0368 * 0369 * 0370 * METHOD 0371 * 0372 * THE MODULES ARE ORDERED SO THAT HIGHER LEVEL MODULES PRECEDE LOWER 0373 * LEVEL MODULES. HOWEVER, THE HEADING BUFFER-(IN O$GHAP) PRECEDES 0374 * THE PAGE EJECTION MODULE. AND IF THE USER WISHES TO EJECT PAGES 0375 * WITHOUT INITIALISING A HEADING, A DEFAULT HEADING BUFFER, SET TO 0376 * SPACES, WILL BE LOADED. LIKEWISE, THE PAGE EJECTION MODULE 0377 * PRECEDES THE LISTING MODULE. AND IF THE USER WISHES TO LIST LINES 0378 * WITHOUT EVER INITIALISING A HEADING OR EJECTING A PAGE. A DUMMY 0379 * PAGE EJECTION MODULE WILL BE LOADED. AND LISTING WILL APPEAR ON 0380 * CONSECUTIVE LINES WITH NO PAGINATION. 0381 * 0382 * IF LISTINGS ARE TO BE OUTPUT SIMULTANEOUSLY TO ASR AND HSP. 0383 * THE ROUTINE O$PH MUST NOT BE CALLED TO INITIALISE THE LISTING. 0384 * AS THIS WILL CAUSE THE O$GHAP MODULE, COMMON TO BOTH ASR AND 0385 * PUNCH, TO BE LOADED. INSTEAD, IF PAGINATION AND HEADING ARE 0386 * REQUIRED, THE USER MUST TRANSFER THE HEADING INTO THE DEFAULT 0387 * HEADING BUFFER AND SET THE LINE AND PAGE NUMBER TO ZERO BEFORE- 0388 * HAND. THESE LOCATIONS SHOULD BE ADDRESSED BY THEIR DEFAULT 0389 * NAMES (O$PDHB, O$PDLN, O$PDPN RESPECTIVELY) TO AVOID LOADING THE 0390 * O$GHAP ROUTINE. THE USER'S PROGRAM SHOULD CONTAIN A CALL ON 0391 * O$PE TO ENSURE THAT THE 'LIVE' PAGE EJECTION ROUTINE IS LOADED. 0392 * 0393 * THE LIST LINE COUNT/PAGE IS SET INITIALLY TO 72. BUT MAY BE 0394 * EXTERNALLY REFERENCED FOR MODIFICATION. 15 OF THESE LINES ARE 0395 * USED FOR THE HEADING AND INTER-PAGE GAP. SO THE STANDARD NUMBER OF 0396 * LINES PER PAGE AVAILABLE FOR LISTING IS 57. 0397 * 0398 * UNDER FORTRAN CONTROL. PAGE LENGTH IS ALSO 72 LINES. SUBJECT TO 0399 * MODIFICATION UNDER PROGRAM CONTROL. 0400 *
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 9

0401 * NO REGISTER PRESERVATION IS ATTEMPTED. IT IS ASSUMED THAT THE 0402 * MODULES C$IS, C$OP, C$SI, I$PK, O$PK AND O$PKP WILL PRESERVE THE 0403 * CONTENT OF THE X-REGISTER, AND, IN ADDITION, THAT C$SI WILL 0404 * PRESERVE THE CONTENT OF THE B-REGISTER. 0405 * THE FOLLOWING RECORD FORMATS ARE USED AND ASSUMED: 0406 * 0407 * SOURCE (EXCEPT FOR LISTING): 0408 * 0409 * LF, TEXT, CR, DC3, DEL 0410 * 0411 * DC3 AND DEL ARE ESSENTIAL ONLY FOR SUBSEQUENT ASR INPUT. 0412 * 0413 * SOURCE (LISTING): 0414 * 0415 * CR, LF (ONE OR MORE), TEXT 0416 * 0417 * OBJECT: 0418 * 0419 * SOH ('201), DATA WORDS (UP TO 60), DC3, DEL 0420 * 0421 * THE DATA WORDS ARE IN INVISIBLE FORMAT. 0422 * 0423 * END OF TEXT: 0424 * 0425 * ETX ('003 OR '203), DC3, DEL 0426 * 0427 * PARITY, AS DETERMINED BY THE APPROPRIATE INPUT (C$IP) AND OUTPUT 0428 * (C$OP) PARITY ROUTINES BEING USED. IS ALWAYS ADDED WHEN PUNCHING 0429 * SOURCE AND ALWAYS CHECKED WHEN READING SOURCE. EXCEPT THAT LEADER 0430 * IS ALWAYS PUNCHED AS '000 AND THE CHARACTER '000 (BLANK TAPE) IS 0431 * ACCEPTED BY THE STANDARD FORCED-EIGHT VERSION OF C$OP AS LEGAL. 0432 * PARITY IS NEVER ADDED OR CHECKED WHEN HANDLING OBJECT. 0433 * 0434 * THE FOLLOWING CHARACTERS RECEIVE SPECIAL TREATMENT ON SOURCE INPUT: 0435 * 0436 * NUL ('000 OR '200), LF ('015 OR '215) AND DEL ('177 OR '377) ARE 0437 * IGNORED. 0438 * 0439 * BACKSLASH ('134 OR '334) IS INTERPRETED AS A TAB CHARACTER. AND 0440 * CAUSES SPACES ('240) TO BE INSERTED INTO THE INPUT BUFFER FROM 0441 * THE CURRENT CHARACTER POSITION TO THE NEXT CHARACTER POSITION 0442 * DETERMINED IN THE TAB TABLE (C$TT). EXCESS TAB CHARACTERS ARE 0443 * INSERTED AS SINGLE SPACES. 0444 * 0445 * BS ('010 OR '310). I.E. CONTROL 'H' CAUSES THE PREVIOUS CHARACTER 0446 * TO BE DELETED. 0447 * 0448 * LEFT ARROW ('137 OR '337) CAUSES THE CURRENT RECORD TO BE DELETED 0449 * IN ITS ENTIRETY AND THE NEXT RECORD TO BE PROCESSED. 0450 *
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 10

0451 * DC3 ('023 OR '223) CAUSES ALL CHARACTERS READ SO FAR TO BE 0452 * DELETED. 0453 * 0454 * ETX ('003 OR '203) CAUSES READING TO BE TERMINATED. THE REMAINDER 0455 * OF THE BUFFER TO BE FILLED WITH SPACES. AND THE END OF TEXT 0456 * RETURN TO BE TAKEN. 0457 * 0458 * CR ('015 OR '215) CAUSES READING TO BE TERMINATED. THE REMAINDER 0459 * OF THE BUFFER TO BE FILLED WITH SPACES. AND THE NORMAL RETURN TO 0460 * BE TAKEN. UNLESS LEFT ARROW HAS BEEN READ. IN WHICH CASE THE NEXT 0461 * RECORD IS READ. 0462 * 0463 * NONE OF THESE CONTROL CHARACTERS IS EVER ITSELF INSERTED INTO THE 0464 * BUFFER. 0465 * 0466 * TRAILING SPACES ARE ALWAYS STRIPPED ON SOURCE OUTPUT. WHEN 0467 * OUTPUTTING STANDARD SOURCE RECORDS USING O$PA. TAB CHARACTERS 0468 * (BACKSLASH. '134 OR '334) ARE SUBSTITUTED FOR STRINGS OF SPACES 0469 * WHEREVER POSSIBLE. 0470 * 0471 * THE FOLLOWING CHARACTERS RECEIVE SPECIAL TREATMENT ON OBJECT INPUT: 0472 * 0473 * SOH ('001 OR '201): ANY CHARACTERS READ BEFORE SOH IS ENCOUNTERED 0474 * ARE DISCARDED, WITH THE EXCEPTION OF ETX. 0475 * 0476 * BUFFER TO BE CLEARED AND THE END OF TEXT RETURN TO BE TAKEN. 0477 * 0478 * DC3 ('223 ONLY) CAUSES THE REMAINDER OF THE BUFFER TO BE CLEARED 0479 * AND THE NORMAL RETURN TAKEN. IF SOH HAS PREVIOUSLY BEEN READ. 0480 * 0481 * 0482 * 0483 EJCT
* 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
* 0071-001-H001 (HSRP-IOL) DRAWING NO. 41286165-001-01 PAGE 12

0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71