BASIC-MTHPAK

* NAME BASIC-MTHPAK DOC. 70181832000 REV. A PAGE 9

0255 * 0256 * 0257 * DOUBLE LOAD ROUTINE 0258 * 0259 * CALLING SEQUENCE: 0260 * 0261 * JST L$22 0262 * DAC ARG FLAG AND TAG MAY BE SET 0263 * ......RETURN ARGUMENT IN A AND B REGISTERS 0264 * 0265 * 0266 * THIS ROUTINE LOADS THE ADDRESS OF THE DAC TO THE ARGUMENT, 0267 * AND THEN CALLS LARG TO LOAD THE DOUBLE WORD ARGUMENT. THE RETURN 0268 * IS MADE THROUGH RETURN ADDRESS CALCULATED BY ADDR. 0269 * 0270 * 0271 00100 0 000000 L$22 DAC ** DOUBLE LOAD ENTRY 0272 00101 0 02 00100 LDA L$22 LOAD DAC OF ARGUMENT ADDRESS 0273 00102 0 10 00070 JST LARG LOAD ARGUMENT ROUTINE 0274 00103 -0 01 00120 JMP* LHTS+1 RETURN 0275 EJCT