![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to spitv43.ini CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / spitbol / 4.3|
Return to spitv43.ini CVS log | Up to [Research Unix] / researchv10no / cmd / spitbol / 4.3 |
1.1 root 1: .TITLE SPITBOL - VAX MACRO SPITBOL INTERPRETER
2: .LIBRARY "SPITMACS"
3: ;
4: ; COPYRIGHT (c) 1981 under BERNE and UNIVERSAL COPYRIGHT
5: ; LAW by DEWAR INFORMATION SYSTEMS CORPORATION.
6: ;
7: ; The software described in this document is proprietary
8: ; to DEWAR INFORMATION SYSTEMS CORPORATION and furnished
9: ; to the purchaser under a license for use on a single
10: ; computer system and can be copied (with the inclusion
11: ; of DEWAR INFORMATION SYSTEMS CORPORATIONS's copyright
12: ; notice) only for use in such system.
13: ;
14: ; This software is the property of:
15: ;
16: ; Steven G. Duff
17: ; c/o Dewar Information Systems Corp.
18: ; 221 West Lake Street
19: ; Oak Park, Illinois 60302
20: ; (312) 524-1644
21: ;
22: ; and may not be used without permission.
23: ; Copyright 1982 - Steven G. Duff
24: ;
25: .PAGE
26: .SBTTL SPITBOL - Revision History
27: IDENT SPITBOL,D,1
28: ;
29: ; V42-D1 31-DEC-1983 [SGD]:
30: ; o Revise conditional symbols for V4.2 SPITBOL/MINIMAL
31: ;
32: ; V36-C2 10-SEP-1983 [SGD]:
33: ; o Change version to reflect new translation of MVW
34: ;
35: ; V36-C1 02-MAY-1983 [SGD]:
36: ; o Set for V3.6 - add following definitions
37: ;
38: ; .CNBT - no batch initializing code (fouls initial -CASE)
39: ; .CULC - define
40: ; .CUCF - no define
41: ; .CUST - no define
42: ; .CUEJ - define
43: ;
44: ; V35-B2 17-APR-1982 [SGD]:
45: ; o Added CHAR function and fixed some bugs (see interpreter)
46: ;
47: ; V35-B1 11-MAR-1982 [SGD]:
48: ; o Use version of interpreter containing BUFFERs
49: ;
50: ; V35-A5 10-MAR-1982 [SGD]:
51: ; o Patch SGD13 (fix access violation on RETURN-type tracing) in SPITV35
52: ; o CHK macro translation changed.
53: ;
54: ; V35-A4 17-AUG-1981 [SGD]:
55: ; o Patch SGD12 in SPITV35
56: ;
57: ; V35-A3 08-AUG-1981 [SGD]:
58: ; o Patch SGD11 in SPITV35
59: ;
60: ; V35-A2 01-AUG-1981 [SGD]:
61: ; o Patch SGD10 in SPITV35
62: ;
63: .PAGE
64: ;
65: ; CONDITIONAL ASSEMBLY SYMBOLS
66: ; ----------------------------
67: ;
68: ; Note that ALL conditional assembly symbols must be defined globally.
69: ; a zero is equivalent to a Minimal .UNDEF, any other value is
70: ; a .DEF .
71: ;
72: CASL== 1 ;DEFINE LOWER CASE LETTERS
73: CAHT== 1 ;DEFINE HORIZONTAL TAB
74: CAVT== 1 ;DEFINE VERTICAL TAB
75: CEPP== 0 ;NO ADDRESS PARITY FOR ENTRIES (SISSY MACHINES)
76: CNBF== 0 ;DONT OMIT BUFFER TYPE
77: CNBT== 1 ;TAKE OUT BATCH INITIALIZING CODE
78: CNEX== 0 ;EXIT() CODE
79: CNFN== 0 ;FENCE() CODE
80: CNLD== 0 ;LOAD() CODE
81: CNPF== 0 ;&PROFILE CODE
82: CNRA== 0 ;LEAVE IN REAL ARITHMETIC
83: CNSR== 0 ;LEAVE IN SORT CODE
84: CPLC== 0 ;REAL MEN PREFER UPPER CASE
85: CRPP== 0 ;NO ODD PARITY RETURN POINTS (MICROS ONLY)
86: CS16== 0 ;NO 16 BIT STUFF
87: CSAX== 1 ;CALL SYSAX (CAN'T HURT)
88: CSCI== 0 ;NO REMOTE INT-STR CONVERSION (SYSCI) IT'S SLOWER!
89: CSCV== 0 ;NO CUL CLU CASE CONVERSION
90: CSIG= 1 ;IGNORE CASE OF LETTERS
91: CSN6== 0 ;PAD STMT NOS. NOT TO 6 CHARACTERS...
92: CSN8== 1 ;...BUT EIGHT.
93: CTMD== 0 ;TIME UNITS ARE MILLISECONDS, NOT DECISECS.
94: CUCF== 0 ;CFP$U - don't need
95: CUEJ== 1 ;Suppress needless ejects
96: CULC== 1 ;Case folding
97: CUST== 1 ;SET() code
98: ;
99: ; Here are the Register Mappings from Minimal to VAX...
100: ;
101: ; RA R2 (Real Accumulator)
102: ; CP R3 (Code Pointer Register)
103: ; IA2 R4 (For Remaindering of IA)
104: ; IA R5 (Integer Accumulator)
105: ; WA R6 (Minimal Work Register A)
106: ; WB R7 (Minimal Work Register B)
107: ; WC R8 (Minimal Work Register C)
108: ; XR R9 (Minimal Index Register R)
109: ; XL/XT R10 (Minimal Index Register L)
110: ; SR R11 (Intra-instruction Scratch Register)
111: ; XS SP (Minimal/Vax Stack Pointer)
112: ;
113: .PAGE
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.