MAG-IOL, I$MA

* ????-???-???? (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!)