BASIC-16A

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

3073 * ASSIGNNENT STATEMENT PROCESSOR 3074 * 3075 * 3076 * STATEMENT SYNTAX: 3077 * 3078 * <ASSIGNMENT STATEMENT>:=[LET<VARIABLE>=<EXPRESSION>| 3079 * <VARIABLE>=<EXPRESSION>][:|C/R] 3080 * 3081 * 3082 * 3083 03274 140040 ASNM CRA PUT EOL MARK ON THE STACK 3084 03275 0 10 03022 JST PUSH X 3085 03276 0 10 04632 ASN2 JST PVN INPUT/CLASSIFY VARIABLE NAME 3086 03277 0 10 04751 JST ADV LOCATE/ASSIGN DIMENSIONED VARIABLE 3087 03300 0 10 04671 JST ASV LOCATE/ASSIGN SIMPLE VARIABLE 3088 03301 0 02 00000 LDA 0 PUT VARIABLE ADDRESS ON THE STACK 3089 03302 0 10 03022 JST PUSH X 3090 03303 0 10 03047 JST GCHR HAS ASSIGNMENT LIST BEEN PROCESSED ? 3091 03304 0 11 00414 CAS C254 (COMMA MEANS NO) 3092 03305 100000 SKP X 3093 03306 0 01 03276 JMP ASN2 NO ... GO PROCESS NEXT NAME 3094 03307 0 10 03065 JST UCHR NOT COMMA, SO IT MUST BE '=' OR ELSE 3095 03310 0 02 00424 LDA C275 X 3096 03311 0 10 03104 JST GCCK X 3097 03312 0 10 02443 JST EXPA EVALUATE THE EXPRE$SION 3098 03313 0 10 03116 JST GDLM MAKE SURE IT END WITH A C/R OR : 3099 03314 0 10 03031 ASN3 JST POP GET VARIABLE ADDRESS FROM THE STACK 3100 03315 101040 SNZ IS IT END OF STACK MARKER ? 3101 03316 0 01 04574 JMP SEX .....YES..... PROCEED TO NEXT STATEMENT 3102 03317 0 04 03322 STA ASN1 SET ADDRESS IN STORE CALLING SEQUENCE 3103 03320 0 10 03203 JST LCVL GET VALUE OF THE EXPRESSION 3104 03321 0 10 00000 JST H$22 ASSIGN THE VALUE TO LIST VARIABLE 3105 03322 0 000000 ASN1 DAC ** X 3106 03323 0 01 03314 JMP ASN3 GO TRY FOR ANOTHER LIST ELEMENT 3107 * 3108 * 3109 * 3110 EJCT