BASIC-16A

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

1029 * JOB COMMAND PROCESSOR 1030 * 1031 * 1032 * THE JOB COMMAND CLEARS ALL TABLES INCLUDING THE 1033 * PROGRAM STORAGE AREA. 1034 * 1035 * 1036 * 1037 01045 0 02 00020 JOB LDA PTB CLEAR THE PROGRAM TEXT TABLE 1038 01046 0 04 00021 STA PTH X 1039 01047 0 02 00033 LDA SIT DELETE ALL ENTRIES IN THE 1040 01050 141206 AOA STATEMENT INDEX 1041 01051 0 04 00032 STA SIB X 1042 * 1043 * FALL THROUGH TO 'CLEAR' PR0CESSOR 1044 * 1045 * 1046 * 1047 * 1048 EJCT