.NLIST .ENABL LC ;+ ; ; Free software BY ; Project Software & Development, Inc. ; ; This software is furnished for free and may be used and copied as ; desired. This software or any other copies thereof may be provided or ; otherwise made available to any other person. No title to and ; ownership of the software is hereby transferred or allowed. ; ; The information in this software is subject to change without notice ; and should not be construed as a commitment by PROJECT SOFTWARE ; AND DEVELOPMENT, INC. ; ; PROJECT SOFTWARE assumes no responsibility for the use or reliability ; of this software on any equipment whatsoever. ; ; Project Software & Development, Inc. ; 14 Story St. ; Cambridge, Ma. 02138 ; 617-661-1444 ; ; ; Title: VTLPRE.MAC ; Author: Robin Miller ; Date: June 30, 1983 ; ; Description: ; ; Prefix file for the VTL program. ; ; Modification History: ; ;- ; RSX11M = 0 ; Define for RSX-11M. Reassmble: ; VTL, VTLFCS, VTLSPN, VTLSUB, VTLVMS. ; T$SKIP = 0 ; Define for total skips count. ; VTL, VTLBUF, VTLPAR, VTLPOS, VTLSHO. ; Local Equates: NULL = 0 ; ASCII for null. CTRLC = 3 ; ASCII for control/C. BELL = 7 ; ASCII for bell. BS = 8. ; ASCII for backspace. HT = 9. ; ASCII for horizontal tab. LF = 10. ; ASCII for line feed. VT = 11. ; ASCII for vertical tab. FF = 12. ; ASCII for form feed. CR = 13. ; ASCII for carriage return. CTRLU = 21. ; ASCII for control/U. ESC = 27. ; ASCII for escape. SPACE = 32. ; ASCII for space. COMMA = 44. ; ASCII for comma. DEL = 127. ; ASCII for delete. .IF DF RSX11M FILSIZ = 32. ; Maximum size for file names. TMPSIZ = FILSIZ ; Size of the temporary buffer. .IFF FILSIZ = 128. ; Maximum size for file names. TMPSIZ = FILSIZ ; Size of the temporary buffer. .ENDC MRKENT = 3. ; Size if each mark entry. BLKSIZ = 512. ; Size of block buffer (1 sector). CMDSIZ = 256. ; Size of command line buffer. DATSIZ = 32. ; Size of the date/time buffer. ERRSIZ = 80. ; Size of the error message buffer. FNDSIZ = 132. ; Size of the search string buffer. MRKLEN = 1000. ; Size of the mark buffer. RECSIZ = 512. ; Size of the input record buffer. DEFMOD = 50. ; The default modulo count. DEFTAB = 8. ; The default tab count size. ; Local equates for the input files. INLUN = 1 ; Input file logical unit number. INEFN = 1 ; Input file event flag number. IN2LUN = 2 ; Input file logical unit number. IN2EFN = 2 ; Input file event flag number. ; Local equates for the output file. OUTLUN = 3 ; Output file logical unit number. OUTEFN = 3 ; Output file event flag number. ; Local equates for the terminal. TILUN = 4 ; Terminal input logical unit number. TIEFN = 4 ; Terminal input event flag number. TOLUN = 5 ; Terminal output logical unit number. TOEFN = 5 ; Terminal output event flag number. ; Local equates for the help file. HLPLUN = 6 ; Help file logical unit number. HLPEFN = 6 ; Help file event flag number. ; Event flag for mark time. MRKEFN = 8. ; Mark time event flag. ; Event flag for spawning. SPNEFN = 9. ; Spawn event flag. ; Time units for mark time. TICKS = 1 ; SECNDS = 2 ; MINUTE = 3 ; HOURS = 4 ; ; Macro to generate error message. .MACRO ERRMSG LABEL,MSG .NCHR $$$, .PSECT $ERMSG,RO,D,REL,CON LABEL: .ASCIZ \MSG\ .EVEN .PSECT MOV #LABEL,R1 MOV #$$$,R2 CALL OUTMSG .ENDM ; ; Switch definitions (SWMASK): ; ; Bits to be manipulated by the user go here. ; B.NAR = 1 ; List file on narrow screen. B.WIDE = 2 ; List file on wide screen. B.BELL = 4 ; Ring the bell on messages. B.FE = 10 ; Force user to exit at EOF. B.FF = 20 ; Pass form feeds to terminal. B.AVO = 40 ; VT100 without advanced video. B.HDR = 100 ; Display the file header. B.WAIT = 200 ; Wait for user after errors. B.GBL = 400 ; Do global search for string. B.XACT = 1000 ; Do exact search (0 = general). B.PROT = 2000 ; Protect file on deletion. B.SCRB = 4000 ; Scroll both files in split screen. ; = 10000 ; B.CTIM = 20000 ; The timer has been canceled. B.NATV = 40000 ; Use VMS native mode routine. B.STUP = 100000 ; Executing the startup code. ; The default switch mask: DEFSWM = B.NATV!B.PROT!B.STUP!B.WAIT!B.AVO!B.FE ; ; Status bit definitions (STATUS): ; ; Bits to be manipulated by the program go here: ; B.CMNT = 1 ; Comment line encountered. B.IFIL = 2 ; An input file was specified. B.OFIL = 4 ; An output file was specified. B.132 = 10 ; Screen put in 132 column mode. B.EXIT = 20 ; The user wants to exit. B.NEXT = 40 ; Display the next file. ; = 100 ; B.AUX = 200 ; Auxillary input file to display. B.SRCH = 400 ; Search string being processed. B.ATTR = 1000 ; The video attributes are on. B.DOPR = 2000 ; Set to reprompt the user. B.BACK = 4000 ; Backing up partial page. B.2FIL = 10000 ; Two files are being displayed. B.MSG = 20000 ; A message has been displayed. B.FERR = 40000 ; There has been a file error. B.CTRC = 100000 ; Control/C was typed to abort. ; Table entry status bit definitions: S.SRCH = 1 ; A search string is active. ; = 2 ; S.FORW = 4 ; Scrolling forward (0=backward). ; = 10 ; S.STOP = 20 ; Setup the top of page record. S.CONT = 40 ; Processing a continuation record. S.SEL = 100 ; A select range is active. S.EOF = 200 ; End of file has been reached. ; Put bits not to be cleared at EOF in the high byte. S.NAME = 400 ; Display the file name. S.SEE = 1000 ; Display data in see-all mode. S.NUMB = 2000 ; Display the record number. S.RULR = 4000 ; Display a ruler. S.WRAP = 10000 ; Wrap line around if too long. S.BIN = 20000 ; Displaying a binary file. S.TECO = 40000 ; Display TECO see-all mode. S.RSX = 100000 ; Use RSX open for next file name. .LIST