BASIC-MTHPAK

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

0276 * 0277 * 0278 * DOUBLE STORE ROUTINE 0279 * 0280 * CALLING SEQUENCE: 0281 * 0282 * JST H$22 ARGUMENT IN A AND B REGISTERS 0283 * DAC ARG FLAG AND TAG MAY BE SET 0284 * ......RETURN 0285 * 0286 * 0287 * THE ADDRESS OF THE DAC OF THE ARGUMENT IS LOADED IN THE A 0288 * REGISTER, AND THEN ADDR IS CALLED TO OBTAIN THE EFFECTIVE ADDRESS. 0289 * THE ORIGINAL CONTENTS OF THE A REGISTER ARE STORED IN THE LOCATION 0290 * SPECIFIED BY THE EFFECTIVE ADDRESS, AND THE CONTENTS OF THE B 0291 * REGISTER ARE STORED IN THE NEXT SEQUENTIAL LOCATION. 0292 * 0293 * 0294 00104 0 000000 H$22 DAC ** FLOATING POINT STORE ENTRY 0295 00105 0 04 00121 STA LHTS+2 SAVE HIGH 0296 00106 0 02 00104 LDA H$22 LOAD ADDRESS OF DAC 0297 00107 0 10 00046 JST ADDR EFFECTIVE ADDRESS ROUTINE 0298 00110 0 02 00121 LDA LHTS+2 LOAD HIGH 0299 00111 -0 04 00117 STA* LHTS STORE HIGH 0300 00112 000201 IAB 0301 00113 0 12 00117 IRS LHTS INCREMENT FOR ADDRESS OF LOW 0302 00114 -0 04 00117 STA* LHTS STORE LOW 0303 00115 000201 IAB REPOSITION 0304 00116 -0 01 00120 JMP* LHTS+1 RETURN 0305 * 0306 * 0307 00117 000000 LHTS BSZ 3 0308 EJCT