Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 136

5957 JMP* IP 5958 ENDC 5959 ****************************************************************** 5960 * 5961 * STACKS AND BUFFERS 5962 * 5963 ****************************************************************** 5964 * 5965 * 'XTIB', 'XR0', AND 'XUP' ARE ONLY USED IN BOOT-UP TABLE; 5966 * THEREFORE THE AREAS DEFINED HERE CAN BE MOVED AT RUN TIME. 5967 05762 XTIB BSS 42 TERMINAL INPUT BUFFER 5968 06116 XR0 BES 50 FOR RETURN STACK 5969 06116 XUP BSS '100 ROOM FOR '100 USER VARIABLES 5970 * 5971 * NOTE - 'UP', 'OPENF', 'INTERM', AND DISK BUFFERS ARE 5972 * INITIALIZED AT COLD START, OR AT FIRST TIME THROUGH. 5973 * 5974 * 5975 IFN DISK 5976 * 5977 * ROOM FOR 3 1K DISK BUFFERS 5978 * 5979 * INITIALIZE BUFFERS' UPDATE BITS, AND TERMINATING NULLS, TO ZERO. 5980 * NOTE - THESE BUFFERS ARE CLEARED AT COLD START, ANYWAY, 5981 * BECAUSE A STAND-ALONE BOOT MAY NOT INITIALIZE HIGH MEMORY; 5982 * AND ALSO SO THAT THE NUMBER OR LOCATION OF BUFFERS CAN BE 5983 * CHANGED AT RUN TIME. 5984 DSKB OCT 0 5985 BSS 512 5986 OCT 0 5987 OCT 0 5988 BSS 512 5989 OCT 0 5990 OCT 0 5991 BSS 512 5992 OCT 0 5993 ENDB EQU * CAUTION - 'ENDB' - 'DSKB' MUST BE EXACT MULTIPLE 5994 * OF THE BUFFER LENGTH PLUS 4. 5995 * 5996 ENDC 5997 * 5998 * DICTIONARY STARTS HERE 5999 06216 XDP BSS 128 FOR DICTIONARY AND COMP. STACK 6000 * THIS IS JUST NOMINAL - SEE MSZ, BELOW 6001 06416 XS0 BSS 2 START OF COMPUTATION STACK 6002 * 2 WORDS IN CASE OF EMPTY STACK 6003 * 6004 ****************************************************************** 6005 * 6006 * START-UP CODE - CALCULATE TOP OF MEMORY
  Previous Page Single Page Next Page