BASIC-16A

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

4487 05002 0 01 05133 JMP AD08 NO...REPORT ERROR 4488 05003 141206 AOA SET TO LIMIT + 1 4489 05004 0 10 03022 JST PUSH LEAVE IT ON THE STACK 4490 05005 0 10 00000 JST M$11 UPDATE THE ARRAY SIZE COUNTER 4491 05006 0 000066 DAC ADT6 X 4492 05007 0 04 00066 STA ADT6 X 4493 05010 0 12 00064 IRS ADT4 UPDATE DIMENSION COUNT 4494 05011 000201 IAB TEST FOR GROSS SIZE ERROR 4495 05012 100040 SZE X 4496 05013 0 01 03027 JMP MEMO NO MACHINE WE SELL CAN HOLD THIS SIZE ARRAY 4497 05014 0 10 03047 JST GCHR TEST FOR END OF SUBSCRIRT LIST 4498 05015 0 11 00414 CAS C254 X 4499 05016 100000 SKP X 4500 05017 0 01 04767 JMP AD01 NO...GO PROCESS NEXT SUBSCRIPT 4501 05020 0 05 00411 ERA C251 NOT COMMA, MUST BE ')' 4502 05021 100040 SZE X 4503 05022 0 01 05133 JMP AD08 IT'S NOT...REPORT ERROR 4504 05023 0 02 00066 LDA ADT6 CALCULATE SIZE OF TABLE ENTRY 4505 05024 0414 77 LGL 1 2 WORDS PER ARRAY ELEMENT 4506 05025 0 06 00064 ADD ADT4 1 WORD PER DIMENSION 4507 05026 0 06 00426 ADD C3 3 WORDS FOR GENERAL OVERHEAD 4508 05027 0 04 00067 STA ADT7 SAVE FOR LATER REFERENCE 4509 05030 0 10 03041 JST UFSC MAKE SURE THERE IS ENOUGH FREE SPACE 4510 05031 0 02 00026 LDA SVB IS SIMPLE VARIABLE TABLE EMPTY | 4511 05032 101040 SNZ X 4512 05033 0 01 05053 JMP AD02 YES...NO TABLE MOVE NEEDED 4513 05034 0 04 00061 STA ADT1 ADDRESS OF FIRST WORD TO BE MOVED 4514 05035 0 07 00067 SUB ADT7 GET NEW TABLE BASE 4515 05036 0 04 00026 STA SVB SET SIMPLE VARIABLE BASE POINTER 4516 05037 0 04 00062 STA ADT2 SET DESTINATION POINTER FOR MOVE 4517 05040 -0 02 00061 AD03 LDA* ADT1 MOVE ONE WORD 4518 05041 -0 04 00062 STA* ADT2 X 4519 05042 0 12 00061 IRS ADT1 BUMP THE SOURCE AND DESTINATION POINTERS 4520 05043 0 12 00062 IRS ADT2 X 4521 05044 0 02 00027 LDA SVT TEST FOR MOVE COMPLETE 4522 05045 0 07 00061 SUB ADT1 X 4523 05046 101400 SMI X 4524 05047 0 01 05040 JMP AD03 NO...GO MOVE ANOTHER WORD 4525 05050 0 02 00062 LDA ADT2 UPDATE SIMPLE VARIABLE TABLE 4526 05051 0 07 00371 SUB C1 TOP POINTER 4527 05052 0 04 00027 STA SVT X 4528 05053 0 02 00031 AD02 LDA DVT IS THIS FIRST ENTRY IN DIMENSIONED 4529 05054 100040 SZE VARIABLE TABLE | 4530 05055 0 01 05126 JMP AD04 NO....LINK IN LAST ENTRY MUST BE THREADED 4531 05056 0 02 00032 LDA SIB START DIMENSIONED VARIABLE TABLE 4532 05057 0 07 00371 SUB C1 JUST BELOW THE BASE OF THE 4533 05060 0 04 00031 STA DVT STATEMENT INDEX 4534 05061 0 07 00067 AD05 SUB ADT7 GET NEW TABLE BASE ADDRESS 4535 05062 141206 AOA X 4536 05063 0 04 00030 STA DVB X