|
|
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.