| 1368 | * SAVE AND UNSAVE THE CLOSRD SUBROUTINES THAT CONTROL | 1369 | * THE PUBLIC PUSH DOWN LIST. THE CALLING SEQUENCES ARE ... | 1370 | * | 1371 | * TSX $SAVE,4 | 1372 | * TXL $ENDN,,END OF BLOCK TO BE SAVED + 2 | 1373 | * RETURN | 1374 | * WHERE N IN $ENDN IS THE NUMBER OF ITEMS TO BE SAVED | 1375 | * | 1376 | * TSX UNSAVE,4 | 1377 | * RETURN | 1378 | * THE SAVED ITEMS MUST BE IN A CONTIGOUS BLOCK WITH THE | 1379 | * THE FIRST ITEM PZE ATOMIC NAME OF SUBR,,IR 4 | 1380 | * THE SAVE PARAMETER WORD IS ADDED AS THE LAST ITEM ON THE | 1381 | * BLOCK TO BE SAVED BUT IS NOT UNSAVED. | 1382 | * |
| 02312 | 0634 00 2 02405 | 1383 | SAVE | SXA | SAVY,2 SAVE INDEX 2 AND 1 |
| 04357 | 0074 00 4 02312 | 2522 | C1 | TSX | $SAVE,4 | |
| 04401 | 0074 00 4 02312 | 2546 | TSX | $SAVE,4 | ||
| 04507 | 0074 00 4 02312 | 2626 | TSX | $SAVE,4 SAVE CALL | ||
| 04636 | 0074 00 4 02312 | 2735 | TSX | $SAVE,4 | ||
| 05764 | 0074 00 4 02312 | 3393 | TSX | $SAVE,4 | ||
| 07353 | 0074 00 4 02312 | 4201 | TSX | $SAVE,4 | ||
| 07404 | 0074 00 4 02312 | 4234 | TSX | $SAVE,4 | ||
| 07477 | 0074 00 4 02312 | 4296 | SU3 | TSX | $SAVE,4 | |
| 07545 | 0074 00 4 02312 | 4337 | TSX | $SAVE,4 | ||
| 07622 | 0074 00 4 02312 | 4396 | TSX | $SAVE,4 | ||
| 07647 | 0074 00 4 02312 | 4420 | TSX | $SAVE,4 | ||
| 11561 | 0074 00 4 02312 | 5553 | TSX | $SAVE,4 | ||
| 12666 | 0074 00 4 02312 | 6153 | TSX | $SAVE,4 | ||
| 12702 | 0074 00 4 02312 | 6166 | TSX | $SAVE,4 | ||
| 12716 | 0074 00 4 02312 | 6179 | TSX | $SAVE,4 | ||
| 14156 | 0074 00 4 02312 | 6971 | TSX | $SAVE,4 OTHER 3 FUNCTIONS ENTER AT *-1 | ||
| 14705 | 0074 00 4 02312 | 7398 | TSX | $SAVE,4 | ||
| 15061 | 0074 00 4 02312 | 7524 | TSX | $SAVE,4 | ||
| 15111 | 0074 00 4 02312 | 7550 | APTXP | TSX | $SAVE,4 TRACE EXPR | |
| 15131 | 0074 00 4 02312 | 7569 | APTSB | TSX | $SAVE,4 TRACE SUBR | |
| 15156 | 0074 00 4 02312 | 7594 | TSX | $SAVE,4 | ||
| 15312 | 0074 00 4 02312 | 7705 | TSX | $SAVE,4 | ||
| 15374 | 0074 00 4 02312 | 7759 | TSX | $SAVE,4 | ||
| 15422 | 0074 00 4 02312 | 7782 | TSX | $SAVE,4 | ||
| 15622 | 0074 00 4 02312 | 7926 | TSX | $SAVE,4 | ||
| 15744 | 0074 00 4 02312 | 8018 | TSX | $SAVE,4 | ||
| 15777 | 0074 00 4 02312 | 8050 | TSX | $SAVE,4 SAVE EVAL STORAGE | ||
| 16035 | 0074 00 4 02312 | 8083 | TSX | $SAVE,4 SAVE THERETURN IX | ||
| 16131 | 0074 00 4 02312 | 8158 | TSX | $SAVE,4 SAVE PROTECTED TEMPORARY STORAGE | ||
| 16310 | 0074 00 4 02312 | 8283 | TSX | $SAVE,4 SAVE LINK IR | ||
| 17146 | 0074 00 4 02312 | 8778 | TSX | $SAVE,4 SAVE NAME AND RETRN |