BASIC-16A

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

3749 * RESTORE STATEMENT PROCESSOR 3750 * 3751 * 3752 * STATEMENT SYNTAX: 3753 * 3754 * <RESTORE STATEMENT>:=RESTORE[:|C/R] 3755 * 3756 * 3757 * 3758 04177 0 10 03116 RSTR JST GDLM MAKE SURE : OR C/R IS NEXT 3759 04200 0 10 04202 JST REST INITIALIZE DATA STMT POINTERS 3760 04201 0 01 04574 JMP SEX GO PROCESS NEXT STATEMENT 3761 * 3762 * 3763 * REST - RESET DATA STATEMENT POINTERS 3764 * 3765 * 3766 04202 0 000000 REST DAC ** 3767 04203 0 02 00032 LDA SIB SET DATA STMT POINTER TO JUST BELOW START 3768 04204 0 07 00376 SUB C2 OF STMT INDEX, SO THAT THE FIRST DATA 3769 04205 0 04 04152 STA RSIP STMT WILL BE FOUND DURING THE NEXT READ 3770 04206 140040 CRA SET RSBP TO INDICATE THAT A SEARCH 3771 04207 0 04 04153 STA RSBP FOR A DATA STMT WILL HAVE TO BE PERFORMED 3772 04210 -0 01 04202 JMP* REST RETURN 3773 * 3774 * 3775 * 3776 EJCT