F.I.G. Forth

* FIG FORTH FOR SERIES-16 MACHINES PAGE 19

0712 ****************************************************************** 0713 * 0714 * START-UP TABLE 0715 * 0716 ****************************************************************** 0717 * 0718 * AT STARTUP, MOST OF THESE VALUES ARE MOVED INTO THE USER AREA 0719 * (STARTING AT 'XDP:'); THEY ARE NORMALLY ACCESSED THERE. THE 0720 * VALUES HERE ARE NOT USUALLY CHANGED, BUT THEY MAY BE CHANGED 0721 * E.G. TO CONTROL WHAT HAPPENS AT COLD START. THIS TABLE COULD 0722 * BE MOVED OUT OF LOW MEMORY IF NECESSARY FOR ROM SYSTEMS. 0723 * 0724 * LOCATED AT '1000 BECAUSE THAT'S THE TRADITIONAL STARTING 0725 * POINT FOR SERIES-16 PROGRAMS 0726 * 0727 ORG '1000 0728 01000 0 01 01025 ORGN JMP CENT COLD START ENTRY POINT 0729 01001 0 01 01057 JMP WENT WARM START ENTRY ADDRESS 0730 * 0731 * NOTE - COLD START WIPES OUT ANY NEW DICTIONARY DEFINITIONS, AND 0732 * THEN DOES A WARM START. WARM START CLEANS UP STACKS, TERMINAL 0733 * BUFFER, ETC. 0734 * 0735 01002 000020 DEC 16 CPU 0736 01003 000000 DEC 0 REVISION 0737 01004 0 005657 OTSK DAC XTSK '00 - POINTER TO LATEST WORD DEFINED 0738 01005 000010 OCT 10 '01 - BACKSPACE CHARACTER 0739 01006 0 006116 OUP DAC XUP '02 - POINTER TO USER AREA 0740 * NOTE - THE USER AREA IS A HOOK IN THIS SYSTEM TO ALLOW 0741 * MULTITASKING TO BE ADDED LATER. 0742 01007 0 006416 OXS0 DAC XS0 '03 - POINTER TO BEGINNING OF THE STACK 0743 01010 0 006116 DAC XR0 '04 - POINTER TO BEGINNING OF RETURN STACK 0744 01011 0 005762 OXTB DAC XTIB '05 - POINTER TO TERMINAL INPUT BUFFER 0745 01012 000037 DEC 31 '06 - MAXIMUM NAME-FIELD WIDTH, NORMALLY 31 0746 01013 000000 DEC 0 '07 - WARNING MODE; 0=ERROR, 1=DISK MESSAGE 0747 * NOTE - WARNING MODE INITIALIZED TO ZERO, IN CASE DISK ISN'T UP. 0748 01014 0 006216 DAC XDP '10 - FENCE TO PROTECT AGAINST ACCIDENTAL 0749 * 'FORGET' OF THE SYSTEM. 0750 01015 0 006216 DAC XDP '11 - POINTER TO NEXT AVAILABLE DICTIONARY 0751 * LOCATION (RETURNED BY 'HERE'). 0752 01016 0 005656 DAC XXVC '12 - POINTER TO INITIAL VOCABULARY LINK 0753 IFN DISK 0754 O1ST DAC DSKB '13 - INITIALIZE 'FIRST' 0755 OLMT DAC ENDB '14 - INITIALIZE 'LIMIT' 0756 ELSE 0757 01017 000000 O1ST DEC 0 '13 - INITIALIZE 'FIRST' 0758 01020 000000 OLMT DEC 0 '14 - INITIALIZE 'LIMIT' 0759 ENDC 0760 01021 000000 DEC 0 '15 - AVAILABLE 0761 01022 000000 DEC 0 '16 - AVAILABLE