MAG-IOL, I$MA

* ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 PAGE 1

0001 * ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 0002 * 0003 * 0004 * 0005 * COMPUTER: H316, DDP-516 0006 * 0007 * 0008 * PROGRAM CATEGORY: INPUT/OUTPUT 0009 * 0010 * 0011 * PROGRAM TITLE: MAG-IOL 0012 * MAGNETIC TAPE FORTRAN AND STANDARD INPUT/OUTPUT 0013 * 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 MAGNETIC TAPE FORTRAN AND STANDARD INPUT/OUTPUT 0048 * LIBRARY USING IOBUS 0049 * 0050 *
* ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 PAGE 2

0051 * RESTRICTIONS 0052 * 0053 * THIS LIBRARY WILL OPERATE ON AN H316 OR A DDP-516 WITH THE MAGNETIC 0054 * TAPE OPTION 316/516-4100 0055 * 0056 * 0057 * STORAGE 0058 * 0059 * SEE CONTENTS 0060 * 0061 * 0062 * CONTENTS 0063 * 0064 * MODULE MODULE STORAGE PAGE 0065 * NAME DEFINITION OCTAL DECIMAL 0066 * 0067 * I$MA READ SOURCE RECORD 4 4 0068 * 0069 * I$MB READ BINARY 2 CHARS PER WORD RECORD 4 4 0070 * 0071 * I$MC READ BINARY 3 CHARS PER WORD RECORD 4 4 0072 * 0073 * O$MA WRITE SOURCE RECORD 4 4 0074 * 0075 * O$MB WRITE BINARY 2 CHARS PER WORD RECORD 4 4 0076 * 0077 * O$MC WRITE BINARY 3 CHARS PER WORD RECORD 4 4 0078 * 0079 * C$FR SPACE FORWARD ONE RECORD 4 4 0080 * 0081 * C$FF SPACE FORWARD ONE FILE 4 4 0082 * 0083 * C$MR REWIND 4 4 0084 * 0085 * C$FR SPACE BACKWARD ONE RECORD 4 4 0086 * 0087 * C$FF SPACE BACKWARD ONE FILE 4 4 0088 * 0089 * I$MAGT GENERAL READ RECORD 105 69 0090 * 0091 * O$MAGT GENERAL WRITE RECORD 101 65 0092 * 0093 * C$MAGT GENERAL CONTROL ROUTINE 35 29 0094 * 0095 * M$SETU UPDATE I/O INSTRUCTIONS WITH MTU NO. 22 18 0096 * 0097 * M$NBRW WAIT UNTIL NOT BUSY OR REWINDING 0098 * M$NBR1 (ADDRESS OF I/O INSTRUCTION) 0099 * M$NBR2 (ADDRESS OF I/O INSTRUCTION) 6 6 0100 *
* ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 PAGE 3

0101 * M$UNIT MAP LOGICAL TO PHYSICAL UNIT NUMBER * 2 2 0102 * 0103 * * - DEFAULT MODULE 0104 * 0105 * 0106 * USE 0107 * 0108 * INTERNAL MODULES 0109 * 0110 * NAME CALLING SEQUENCE CALLS ERRORS 0111 * 0112 * I$MA CALL I$MA I$MAGT NONE 0113 * DAC BUFFER ADDRESS 0114 * OCT BUFFER SIZE, IN WORDS 0115 * OCT LOGICAL MTU NUMBER 0116 * (ERROR RETURN) 0117 * (END OF TAPE RETURN) 0118 * (END OF FILE RETURN) 0119 * (NORMAL RETURN) 0120 * (SIMILARLY FOR I$MB AND I$MC) 0121 * 0122 * O$MA CALL O$MA O$MAGT NONE 0123 * DAC BUFFER ADDRESS 0124 * OCT BUFFER SIZE, IN WORDS 0125 * OCT LOGICAL MTU NUMBER 0126 * (ERROR RETURN) 0127 * (END OF TAPE RETURN) 0128 * (NORMAL RETURN) 0129 * (SIMILARLY FOR O$MB AND O$MC) 0130 * 0131 * C$FR CALL C$FR C$MAGT NONE 0132 * OCT LOGICAL MTU NUMBER 0133 * (END OF FILE RETURN) 0134 * (NORMAL RETURN) 0135 * (SIMILARLY FOR C$BR) 0136 * 0137 * C$FF CALL C$FF C$MAGT NONE 0138 * OCT LOGICAL MTU NUMBER 0139 * (NORMAL RETURN) 0140 * (SIMILARLY FOR C$BF AND C$MR) 0141 * 0142 * I$MAGT LDX I$MX RETURN ADDRESS M$SETU NONE 0143 * CALL I$MAGT M$NBRW 0144 * OCP 'XX10 0145 * (DOES NOT RETURN HERE!) 0146 * 0147 * O$MAGT LDX O$MX RETURN ADDRESS M$SETU NONE 0148 * CALL O$MAGT M$NBRW 0149 * OCP 'XX10 0150 * (DOES NOT RETURN HERE!)
* ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 PAGE 4

0151 * 0152 * C$MAGT LDX C$MX RETURN ADDRESS M$SETU NONE 0153 * CALL C$MAGT M$NBRW 0154 * OCP 'XX10 0155 * (DOES NOT RETURN HERE!) 0156 * 0157 * M$SETU LDX TABLE OF I/O INSTR. ADDR. 0158 * LDA LOGICAL UNIT NUMBER M$UNIT NONE 0159 * CALL M$SETU 0160 * (RETURN) 0161 * (TABLE OF I/O INSTRUCTION ADDRESSES 0162 * IS TERMINATED BY A ZERO WORD.) 0163 * (IF THE CALLER ALSO CALLS M$NBRW THEN 0164 * IN THE TABLE OF I/O INSTRUCTIONS 0165 * INCLUDE: 0166 * XAC M$NBR1 0167 * XAC M$NBR2 0168 * ) 0169 * 0170 * M$NBRW CALL M$NBRW NONE 0171 * (RETURN) 0172 * (M$NBR1 AND M$NBR2 SHOULD BE INCLUDED 0173 * IN THE TABLE OF I/O INSTR. ADDRESSES 0174 * PASSED TO M$SETU) 0175 * 0176 * M$UNIT LDA LOGICAL UNIT NUMBER NONE 0177 * CALL M$UNIT 0178 * (RETURN) 0179 * (PHYISCAL UNIT NO. RETURNED IN A REG.) 0180 * (DEFAULT MODULE) 0181 * 0182 * 0183 * EXTERNAL MODULES 0184 * 0185 * NONE 0186 * 0187 * ERRORS 0188 * 0189 * NONE, ALL ERRORS ARE REPORTED BY DEDICATED RETURN LOCATIONS. 0190 * 0191 * 0192 * METHOD 0193 * 0194 * THE MAJORITY OF THE WORK IS DONE IN THE ROUTINES I$MAGT, O$MAGT, 0195 * AND C$MAGT WHICH ARE GENERAL ROUTINES PEFrORMING INPUT, OUTPUT AND 0196 * CONTROL FUNCTIONS RESPECTIVELY. 0197 * 0198 * EACH OF I$MAGT, O$MAGT, AND C$MAGT INCLUDES A NUMBER OF I/O 0199 * INSTRUCTIONS (INA, OTA, SKS AND OCP) WHERE THE LOW ORDER THREE 0200 * BITS INDICATE THE (PHYSICAL) MTU NUMBER. THESE INSTRUCTIONS ARE
* ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 PAGE 5

0201 * MODIFIED TO INCLUDE THE APPROPRIATE MTU NUMBER BY CALLING M$SETU, 0202 * PASSING A ZERO-TERMINATED TABLE OF ADDRESSES OF THE I/O 0203 * INSTRUCTIONS TO BE MODIFIED. M$SETU IS PASSED THE LOGICAL UNIT 0204 * NUMBER AND CALLS M$UNIT TO MAP THIS TO THE APPROPRIATE PHYSICAL 0205 * UNIT NUMBER. 0206 * 0207 * I$MAGT IS NOT INTENDED TO BE CALLED DIRECTLY, INSTEAD RECORDS ARE 0208 * READ BY CALLING ONE OF I$MA, I$MB, OR I$MC. THE RETURN ADDRESS OF 0209 * THE CALL TO THIS (I$MX) ROUTINE IS PASSED TO I$MAGT IN THE INDEX 0210 * REGISTER, ALLOWING THE BUFFER ADDRESS, BUFFER SIZE, AND LOGICAL 0211 * UNIT NUMBER PARAMETERS TO BE LOCATED, AND THE APPROPRIATE RETURN 0212 * ADDRESS TO BE COMPUTED. THE CALL TO I$MAGT (FROM I$MX) IS FOLLOWED 0213 * BY AN OCP INSTRUCTION THAT INDICATES THE TYPE OF RECORD TO BE 0214 * READ. I$MAGT DOES NOT RETURN TO ITS (I$MX) CALLER BUT INSTEAD 0215 * RETURNS DIRECTLY TO THE APPOPRIATE RETURN LOCATION IN THE I$MX 0216 * CALL SEQUENCE. 0217 * 0218 * SIMILARLY, RECORDS ARE WRITTEN BY CALLING ONE OF O$MA, O$MB, OR 0219 * O$MC WHICH IN TURN CALLS O$MAGT. 0220 * 0221 * CONTROL OPERATIONS (C$FR, C$FF, C$BR, C$BF, AND C$MR) CALL 0222 * C$MAGT, WITH THE CALL TO C$MAGT BEING FOLLOWED BY THE OCP 0223 * INDICATING THE REQUIRED CONTROL OPERATION. IN THE CASE OF 0224 * SPACING BY A RECORD A RETURN LOCATION IS USED THAT INDICATES 0225 * END-OF-FILE BEING REACED. THOSE OPERATIONS THAT ALWAYS MOVE 0226 * TO THE START OR END OF A FILE (C$FF, C$BF, AND C$MR) DO NOT 0227 * HAVE THE EOF RETURN LOCATION. 0228 * 0229 * EACH OF THE GENERAL ROUTINES (I$MAGT, O$MAGT, AND C$MAGT) CALL 0230 * M$NBRW TO ENSURE THAT THE MTU IS NOT BUSY AND THE TAPE IS NOT 0231 * WINDING. THE ADDRESSES OF TWO SKS INSTRUCTIONS IN THAT ROUTINE 0232 * NEED TO BE INCLUDED IN THE TABLE OF I/O ISNTRUCTION ADDRESSES 0233 * PASSED TO M$SETU. M$NBR1 AND M$NBR2 ARE SYMBOLS PROVIDED FOR 0234 * THIS PURPOSE. 0235 * 0236 * A DEFAULT M$UNIT IS INCLUDED IN THE LIBRARY THAT USES THE 0237 * LOGICAL UNIT NUMBER DIRECTLY AS THE PHYSICAL NUMBER. IT MAY 0238 * BE REPLACED BY A ROUTINE THAT DOES ACTUALLY MAP UNIT NUMBERS. 0239 * THIS ROUTINE MAY MODIFY THE INDEX REGISTER. 0240 * 0241 EJCT
* ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 PAGE 6

0242 * 0243 * NOTES ON RECOVERY FROM DISASSEMBLY 0244 * 0245 * THIS CODE WAS DEVELOPED BY DISASSEMBLING THE LIBRARY ROUTINES 0246 * CALLED BY DAP-16M2. THIS CALLS I$MA, O$MA, O$MC, AND C$MR. SO 0247 * THESE ROUTINES ARE KNOWN TO BE CORRECT. 0248 * 0249 * THE REMAINDER OF THE ROUTINES (I$MB, I$MC, O$MB, C$FR, C$FF, 0250 * C$BR, AND C$BF) ARE SOMETHING OF A GUESS, BUT THE OPERATION OF 0251 * I$MAGT, O$MAGT, AND C$MAGT MEAN THAT THEY ARE LIKELY TO BE 0252 * CORRECT. 0253 * 0254 * THE NAMES OF THE ROUTINES EXPECTED TO BE CALLED BY APPLICATIONS 0255 * (I$MA, I$MB, I$MC, O$MA, O$MB, O$MC, C$FR, C$FF, C$BR, C$BF, 0256 * AND C$MR) ARE KNOWN TO BE CORRECT BECAUSE THE ARE PROVIDED BY 0257 * THE DUMMY I/O MODULES (E.G. DUMY-X16). SIMILARLY, M$UNIT IS 0258 * DISCUSSED IN DOCUMENTATION. 0259 * 0260 * THE NAMES I$MAGT, O$MAGT, C$MAGT, M$SETU, M$NBRW, M$NBR1, AND 0261 * M$NBR2 ARE NOT KNOWN TO BE CORRECT AND WERE PROBABLY DIFFERENT 0262 * IN THE ORIGINAL. 0263 * 0264 * THE DRAWING NUMBER (41285823-001-01) IS TAKEN FROM THE ORDER 0265 * FORM OF THE "NEW AND UPDATED STANDARD SOFTWARE" NOTE OF JUNE 1971 0266 * THOUGH THAT REVISION NUMBER MAY WELL NOT CORRESPOND TO THIS 0267 * CODE. 0268 * 0269 EJCT
* ????-???-???? (MAG-IOL) DRAWING NO. 41285823-001-01 PAGE 7

0270 * 0271 * 0272 CF5 H316 AND DDP-516 0273 REL 0274 * 0275 * 0276 SUBR I$MA 0277 * 0278 * 0279 00000 0 000000 I$MA DAC ** 0280 00001 0 35 00000 LDX I$MA PICK UP RETURN ADDRESS 0281 00002 0 10 00000 CALL I$MAGT 0282 00003 14 0010 OCP '0010 READ BCD, 2 CHARACTERS PER WORD 0283 * 0284 * 0285 END I$MA 000000 0000 WARNING OR ERROR FLAGS DAP-16 MOD 2 REV. C 01-26-71