home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Interactive Guide / c-cplusplus-interactive-guide.iso / c_ref / csource3 / 122_01 / copy.rit < prev    next >
Encoding:
Text File  |  1984-03-07  |  2.5 KB  |  71 lines
  1.  
  2. *********************************************************
  3. *                            *
  4. * PISTOL-Portably Implemented Stack Oriented Language    *
  5. *            Version 2.0            *
  6. * (C) 1983 by    Ernest E. Bergmann            *
  7. *        Physics, Building #16            *
  8. *        Lehigh Univerisity            *
  9. *        Bethlehem, Pa. 18015            *
  10. *                            *
  11. * Permission is hereby granted for all reproduction and *
  12. * distribution of this material provided this notice is *
  13. * included.                        *
  14. *                            *
  15. *********************************************************
  16.  
  17. αñB    (*********************************************************)
  18. (*                             *)
  19. (* PISTOL-Portably Implemented Stack Oriented Language     *)
  20. (*            Version 2.0             *)
  21. (* (C) 1983 by    Ernest E. Bergmann             *)
  22. (*        Physics, Building #16             *)
  23. (*        Lehigh Univerisity             *)
  24. (*        Bethlehem, Pa. 18015             *)
  25. (*                             *)
  26. (* Permission is hereby granted for all reproduction and *)
  27. (* distribution of this material provided this notice is *)
  28. (* included.                         *)
  29. (*                             *)
  30. (*********************************************************)
  31.  
  32. PROGRAM PISTOL(INPUT:/);
  33. (*SEP 7, 1982: DOTDOT *)
  34. (* SEP 4:CRDMP,INIT,MININT *)
  35. (* AUG 30:FIX OF TTYI FOR LINE ORIENTATION *)
  36. (*$C- JULY 19.., 1982 -> VER2.0;USER->USR *)
  37. (* JULY 13: CHANGED MOVE,FENTER;DEFINED NEWLINE *)
  38. (* JULY 12: REMOVED SCRATCH -10..-8;DEFINED FNAME *)
  39. (* JULY 8: VFIND MADE PRIMITIVE;PREV -.>USR+W*6 *)
  40. (*JULY 5,82:FIND,VFIND REDEFINED*)
  41. (*JUNE 28,82: POP ADDED*)
  42. (*JUNE 17,82: KRNQ->PRMQ ; KERNEL?->PRIMITIVE? *)
  43.  
  44. (*DECEMBER 22, 1981 --FOR BEST PERFORMANCE IN PASCAL,
  45.     THIS PROGRAM SHOULD BE EDITED TO MAKE FULL USE
  46.     OF THE OPTIONS, USR=0,W=1,S=1,CSTEP=1,L=1,R=1
  47.     AND STRINGSMIN=-1 *)
  48.  
  49. LABEL 99;
  50. CONST
  51. VERSION=20;(*10* THE VERSION NUMBER,READABLE BY USER*)
  52. USR=0;(*DISPLACEMENT FOR USER'S RAM AREA; IT SHOULD
  53.     BE CHANGED TO SIMPLIFY ADDRESS CALCULATION IN
  54.     ASSEMBLY CODE IMPLEMENTATIONS*)
  55. W=1;(*RAM ADDRESS INCREMENT SIZE; TYPICALLY WOULD BE
  56.     2 OR 4 FOR 8-BIT MICROS AND OTHER BYTE ADDRESSABLE
  57.     MACHINES*)
  58. R=1;(*INCREMENT SIZE FOR RSTACK,HIDDEN FROM USER*)
  59. S=1;(*INCREMENT SIZE FOR (PARAMETER) STACK,HIDDEN*)
  60. STACKMIN=0;(*WHATEVER IS CONVENIENT,HIDDEN FROM USER*)
  61. MSTACKMIN=-3;(*STACKMIN-S*3*)
  62. PSTACKMAX=203;(*STACKMAX+S*3*)
  63. STACKMAX=200;(*STACKMIN+SSIZE*S*)
  64. LSTACKMIN=0;(*WHATEVER IS CONVENIENT,HIDDEN FROM USER*)
  65. L=1;(*LSTACK INCREMENT,HIDDEN FROM USER*)
  66. LSTACKMAX=30;(*LSTACKMIN+LSIZE*L*)
  67. CSTACKMIN=0;(*WHATEVER IS CONVENIENT*)
  68. CSTEP=1;(*CSTACK INCREMENT*)
  69. CSTACKMAX=30;(*CSTACKMIN+CSIZE*CSTEP*)
  70. NUMINSTR=73;
  71. RAMMIN=-21(*USR-W*21,OR LOWER,READABLE*);