Support multiple arrays in DIM

Author: willisblackburn

dim.s

@@ -15,7 +15,15 @@ exec_dim:
         ldax    array_name_table_ptr    ; Look for the name in the name table
         jsr     find_name
         bcc     @already_dimensioned
-        jmp     dimension_array         ; Go do it
+        jsr     dimension_array         ; Go do it
+        jsr     peek_byte               ; Check for comma (more arrays)
+        cmp     #','
+        bne     @done                   ; No more arrays
+        inc     line_pos                ; Skip ','
+        bne     exec_dim                ; Unconditional: loop for next array
+
+@done:
+        rts
 
 @invalid_variable:
         jmp     raise_invalid_variable

expect_tests/array.exp

@@ -49,3 +49,14 @@ PRINT M(1,1),M(2,2),M(4,3),M(5,5)
 } {
 1               4               12              25
 }
+
+# Multiple arrays in one DIM
+
+test {
+DIM P(10),Q(20)
+LET P(5)=50
+LET Q(15)=150
+PRINT P(5),Q(15)
+} {
+50              150
+}

parser.s

@@ -847,7 +847,7 @@ statement_name_table:
 :       name_table_entry "NEW"
 :       name_table_entry "CLR"
 :       name_table_entry "DIM"
-            JUMP pvm_var
+            JUMP pvm_var_list
 :       name_table_entry "REM"
             JUMP pvm_text
 :       name_table_entry "DATA"