BASIC-16A

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

3277 * FOR STATEMENT PROCESSOR 3278 * 3279 * 3280 * STATEMENT SYNTAX: 3281 * 3282 * <FOR STATEMENT>:=<SIMPLE VARIABLE>=<EXPRESSION> 3283 * [TO|,]<EXPRESSION>[[STEP|,] 3284 * <EXPRESSION>](0,1) 3285 * 3286 * 3287 03472 0 02 00373 FOR LDA C11 MAKE SURE NINE WORDS ARE 3288 03473 0 10 03041 JST UFSC AVAILABLE FOR STACK ENTRY 3289 03474 0 02 00024 LDA FNB IS FOR STACK INITIALIZATION 3290 03475 100040 SZE REQUIRED? 3291 03476 0 01 03505 JMP FR01 NO...GO APPEND ENTRY 3292 03477 0 02 00023 LDA DFT START FOR STACK ABOVE LOW 3293 03500 101040 SNZ CORE TABLES 3294 03501 0 02 00021 LDA PTH X 3295 03502 141206 AOA X 3296 03503 0 04 00024 STA FNB X 3297 03504 0 01 03507 JMP FR06 X 3298 03505 0 02 00025 FR01 LDA FNT GET PREVIOUS STACK TOP 3299 03506 141206 AOA GET FIRST WORD FOR NEW ENTRY 3300 03507 0 04 03616 FR06 STA FRT1 SAVE IT 3301 03510 0 06 00372 ADD C10 GET NEW STACK TOP 3302 03511 0 04 00025 STA FNT SAVE IT 3303 03512 0 10 03011 JST IPDS SET UP THE PDS ABOVE NEW ENTRY 3304 03513 0 10 04632 JST PVN PROCESS INDEX VARIABLE NAME 3305 03514 0 01 03612 JMP FR07 CANNOT HAVE SUBSCRIPTED VARIABLE AS INDEX 3306 03515 0 10 04671 JST ASV LOCATE/ASSIGN THE VARIASLE 3307 03516 0 15 03530 STX FRT2 SAVE THE POINTER 3308 03517 0 02 00000 LDA 0 GET ITS DISPLACEMENT FROM SVT 3309 03520 0 07 00027 SUB SVT X 3310 03521 -0 04 03616 STA* FRT1 PUT IT IN FIRST WORD OF FN ENTRY 3311 03522 0 12 03616 IRS FRT1 X 3312 03523 0 02 00424 LDA C275 MAKE SURE '=' IS NEXT 3313 03524 0 10 03104 JST GCCK X 3314 03525 0 10 02443 JST EXPA EVALUATE THE FIRST EXPRESSION 3315 03526 0 10 03203 JST LCVL RESULT TO A 3316 03527 0 10 00000 JST H$22 ASSIGN THE VALUE TO THE VARIABLE 3317 03530 0 000000 FRT2 DAC ** 3318 03531 0 10 03047 JST GCHR NEXT CHARACTER MUST BE 3319 03532 0 11 00414 CAS C254 ',' OR 'TO' 3320 03533 100000 SKP X 3321 03534 0 01 03542 JMP FR02 IT'S A COMNA 3322 03535 0 11 00505 CAS TOC NOT COMMA, MAYBE 'TO' 3323 03536 100000 SKP NO 3324 03537 0 01 03542 JMP FR02 IT'S 'TO' 3325 03540 0 10 05243 JST ERR ERROR...FOR DELIMITER 3326 03541 143304 BCI 1,FD