BASIC-16A

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

3441 03672 0 01 03213 JMP ESMT NO..GO EXECUTE NEXT STMT ON SAME LINE 3442 * 3443 03673 0 10 03702 NX02 JST DFSE DELETE USED UP FOR STACK ENTRY 3444 03674 0 01 04574 JMP SEX PROCEED TO THE NEXT STATEMENT 3445 * 3446 * 3447 03675 0 10 03702 NX03 JST DFSE ABORT HIGHEST 'FOR' 3448 03676 0 35 03643 LDX NXT1 RESTORE X TO AVOID TROUBLE 3449 03677 0 01 03627 JMP NX04 GO TEST THIS FOR LEVEL FOR A MATCH 3450 * 3451 * 3452 03700 0 10 05243 NX01 JST ERR REPORT 'NEXT' ERROR 3453 03701 147330 BCI 1,NX X 3454 * 3455 * 3456 * DFSE - DELETE HIGHEST FOR STACK ENTRY 3457 * 3458 * 3459 03702 0 000000 DFSE DAC ** 3460 03703 0 02 03711 LDA M11 RETURN 9 WORDS TO FREE STORAGE 3461 03704 0 10 03041 JST UFSC X 3462 03705 0 02 00025 LDA FNT DECREMENT FOR STACK HIGH POINTER 3463 03706 0 07 00373 SUB C11 X 3464 03707 0 11 00024 CAS FNB IS THE STACK NOW EMPTY ? 3465 03710 0 01 03713 JMP *+3 ........NO........ 3466 03711 177767 M11 OCT -11 NEVER CAN EXECUTE THIS WORD 3467 03712 140040 CRA YES ... POINTERS MUST BE CLEARED 3468 03713 0 04 00025 STA FNT SET STACK HIGH POINTER 3469 03714 101040 SNZ IF STACK NOW EMPTY, CLEAR STACK 3470 03715 0 04 00024 STA FNB LOW POINTER 3471 03716 0 10 03011 JST IPDS RE-INITIALIZE THE PUSH DOWN STACK 3472 03717 -0 01 03702 JMP* DFSE RETURN FROM WHENCE WE CAME 3473 * 3474 * 3475 * 3476 EJCT