BASIC-16A

* NAME: BASIC-16A DOC 70181826000 REV A PAGE 124

4651 05172 0 01 05175 JMP LD03 GO EVALUATE THE SUBSCRIPTS 4652 05173 0 02 00414 LD04 LDA C254 MAKE SURE ',' SEPERATES 4653 05174 0 10 03104 JST GCCK THE SUBSCRIPT EXPRESSIONS 4654 05175 140040 LD03 CRA EVALUATE THE NEXT SUBSCRIPT EXPRESSION 4655 05176 0 10 02443 JST EXPA X 4656 05177 0 10 03203 JST LCVL RESULT TO A+B 4657 05200 0 10 00000 JST IFLT MAKE IT AN INTEGER 4658 05201 0 01 05133 JMP AD08 ERROR...TOO LARGE 4659 05202 0 11 00462 CAS M1 MAKE SURE VALUE IS BETWEEN 4660 05203 -0 11 00071 CAS* DPTR ZERO AND LIMIT FOR THIS DIMENSION 4661 05204 0 01 05133 JMP AD08 ERROR...OUT OF RANGE 4662 05205 0 01 05133 JMP AD08 ERROR...OUT OF RANGE 4663 05206 0 10 03022 JST PUSH LEAVE THE SUBSCRIPT ON THE STACK 4664 05207 0 02 00071 LDA DPTR DECREMENT THE TABLE POINTER 4665 05210 0 07 00371 SUB C1 X 4666 05211 0 04 00071 STA DPTR X 4667 05212 0 12 00072 IRS DCT1 BUMP DIMENSION COUNT 4668 05213 0 01 05173 JMP LD04 GO PROCESS NEXT SUBSCRIPT 4669 05214 0 02 00411 LDA C251 MAKE SURE ')' ENDS SUBSCRIPT LIST 4670 05215 0 10 03104 JST GCCK X 4671 05216 0 12 00071 IRS DPTR BUMP TABLE POINTER TO LIMIT OF LAST DIM. 4672 05217 0 10 00000 LD06 JST M$11 PREVIOUS ACCUM. * LIMIT OF CURRENT DIM. 4673 05220 -0 000071 DAC* DPTR X 4674 05221 0 12 00071 IRS DPTR UPDATE ENTRY POINTER 4675 05222 0 04 00072 STA DCT1 SAVE PARTIAL RESULT 4676 05223 0 10 03031 JST POP GET SUBSCRIPT VALUE FOR THIS POSITION 4677 05224 0 06 00072 ADD DCT1 X 4678 05225 0 12 00073 IRS DCT2 HAVE ALL THE SUBSCRIPTS BEEN PROCESSED 4679 05226 0 01 05217 JMP LD06 NO...GO ENTER NEXT ONE 4680 05227 0414 77 LGL 1 *2 AS TWO WORDS PER ELEMENT 4681 05230 -0 06 00071 ADD* DPTR ADD TO BASE OF ARRAY STORAGE 4682 05231 0 04 00000 STA 0 LEAVE ELEMENT PNTR IN X FOR CALLER 4683 05232 0 10 03031 JST POP RESTORE THE TEMP. LOCATIONS 4684 05233 0 04 00073 STA DCT2 X 4685 05234 0 10 03031 JST POP X 4686 05235 0 04 00072 STA DCT1 X 4687 05236 0 10 03031 JST POP X 4688 05237 0 04 00071 STA DPTR X 4689 05240 0 10 03031 JST POP RETRIEVE THE RETURN ADDRESS 4690 05241 0 04 05135 STA LDV X 4691 05242 -0 01 05135 JMP* LDV AND EXIT 4692 * 4693 * 4694 EJCT