| 6255 | * | 6256 | * | 6257 | * ARYGET THE FUNCTION THAT GETS AND SETS THE VALUES OF ARRAYS | 6258 | * USED IN LISP AS FOLLOWS ... | 6259 | * TO GET A VALUE (NAME,D1,D2,D3) | 6260 | * TO SET A VLUAE (NAME,SET,VALUE,D1,D2,D3) | 6261 | * | 6262 | * THE CALLING SEQUENCE IS AS FOLLOWS | 6263 | * SXA ARYGTX,4 | 6264 | * TSX ARYGET,4 | 6265 | * PZE LOCATION OF TABLE 1,,NUMBER OF DIMENSIONS | 6266 | * |
| 13005 | 0634 00 2 13044 | 6267 | ARYGET | SXA | ARYY,2 SAVE INDEX REGISTER |
| 13331 | 0074 00 4 13005 | 6513 | TSX | ARYGET,4 |