VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 1 1 .TITLE VTPARS - VTM TABLE PARSER 2 .IDENT /03.8/ 3 .ENABL LC 4 ;+ 5 ; 6 ; Free software BY 7 ; Project Software & Development, Inc. 8 ; 9 ; This software is furnished for free and may be used and copied as 10 ; desired. This software or any other copies thereof may be provided or 11 ; otherwise made available to any other person. No title to and 12 ; ownership of the software is hereby transferred or allowed. 13 ; 14 ; The information in this software is subject to change without notice 15 ; and should not be construed as a commitment by PROJECT SOFTWARE 16 ; AND DEVELOPMENT, INC. 17 ; 18 ; PROJECT SOFTWARE assumes no responsibility for the use or reliability 19 ; of this software on any equipment whatsoever. 20 ; 21 ; Project Software & Development, Inc. 22 ; 14 Story St. 23 ; Cambridge, Ma. 02138 24 ; 617-661-1444 25 ; 26 ; 27 ; Title: VTPARS.MAC 28 ; Author: Robin Miller 29 ; Date: June 16, 1982 30 ; 31 ; Description: 32 ; 33 ; Table parser for VTM program. 34 ; 35 ; 36 ; Modification History: 37 ; 38 ;- 39 .ENABL AMA 40 .NLIST BEX 41 42 .MCALL DIR$, ISTAT$, STATE$, TRAN$ VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 2 44 ;+ 45 ; 46 ; 47 ; Description: 48 ; 49 ; VTM is a program used to format messages for a VT100 terminal. 50 ; Various options are available and are listed below. If no options are 51 ; specified, the default is to clear the screen and and write the message 52 ; in double height characters centered in the middle of the screen. 53 ; 54 ; There are three methods of starting VTM; they are: 55 ; 56 ; 1. $ VTM 57 ; VTM> 58 ; 59 ; This is the interactive mode. VTM continues to prompt for 60 ; input until you type CTRL/Z to exit. 61 ; 62 ; 2. $ VTM message_text 63 ; 64 ; Clears the screen, writes the message in the middle of the 65 ; screen, and then exits. 66 ; 67 ; 3. $ VTM @command_file 68 ; 69 ; Using this method, command lines are read from the specified 70 ; command file. The length of the command lines can be up to a 71 ; maximum of 132 characters. The continuation character "-" is 72 ; allowed at the end of a line. If the extension isn't specified 73 ; the default is .VTM. 74 ; 75 ; Command lines are of the form: 76 ; 77 ; {option, option, ...} message_text {option, option, ...} etc. 78 ; 79 ; Where options are: 80 ; 81 ; ALL 82 ; Turns on all attributes except underscore. 83 ; The attributes turned on are BOLD, BLINK, and REVERSE. 84 ; 85 ; ACSET 86 ; Selects the alternate character set. Our terminals do not 87 ; have alternate character sets but they are useful for special 88 ; affects such a boxing a message. 89 ; 90 ; AGSET 91 ; Selects the alternate graphics character set. 92 ; *** Currently disabled. *** 93 ; 94 ; ANSI 95 ; Sets the ANSI mode. The VT100 MUST be in this mode for VTM 96 ; to work properly. 97 ; 98 ; BLINE=n 99 ; Specifies the bottom line number. This is the line number 100 ; where wraparound to the top line occurs. The default bottom VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 2-1 101 ; line number is 24. 102 ; BELL 103 ; Inserts a bell in the message. Multiply bells can be inserted 104 ; in each message by using the command: {BELL, BELL} 105 ; 106 ; BLINK 107 ; Turns on the blink attribute. 108 ; 109 ; BOLD 110 ; Turns on the bold attribute. 111 ; 112 ; BOX=top_line:bottom_line[:left_column:right_column] 113 ; Draws a box on the screen using special graphics. The 114 ; default line and column numbers are {BOX=1:22:1:80} for 115 ; VAX/VMS and {BOX=1:23:1:80} for RSX-11M. If just {BOX} 116 ; is specified, the previous parameters are used. 117 ; 118 ; [-] CLEAR 119 ; Clears the entire screen. On the first message output by 120 ; VTM, the screen is cleared unless {-CLEAR} is specified. 121 ; 122 ; COLUMN=n 123 ; Use column number 'n' for the next message. 124 ; 125 ; [-] CENTER 126 ; Centers messages in the middle of the screen. This is 127 ; the default when VTM is started. 128 ; 129 ; CBOL 130 ; Clear to the beginning of the line. 131 ; 132 ; CEOL 133 ; Clear to the end of the line. 134 ; 135 ; CLIN 136 ; Clear the entire line. 137 ; 138 ; CBOS 139 ; Clear to the beginning of the screen 140 ; 141 ; CEOS 142 ; Clear to the end of the screen. 143 ; 144 ; CSCR 145 ; Clear the entire screen (cursor doesn't move). 146 ; *** Currently disabled. *** 147 ; 148 ; DELAY=n 149 ; Delays for 'n' seconds. The delay is immediate. If it 150 ; is specified on a line with a message, the message is 151 ; displayed after the delay. The delay has no effect on 152 ; output to a file. It's useful only in VTM command files. 153 ; 154 ; DATE 155 ; Output the current date in the format DD-MMM-YY. 156 ; 157 ; [-] DHEIGHT VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 2-2 158 ; Write the next and subsequent message in double height. 159 ; 160 ; [-] DWIDTH 161 ; Write the next and subsequent messages in double width. 162 ; 163 ; JUMP 164 ; Sets the jump scroll mode. 165 ; 166 ; HOME 167 ; Writes the message starting in the top left corner of the 168 ; This is equivalent to command {L=1, C=1}. The screen is 169 ; not cleared, 170 ; 171 ; ITERATION=n 172 ; Specifies an iteration count for the next or current command 173 ; line. If you specify a count of 65535, you will loop infinitly 174 ; and you must type CTRL/C to exit from VTM. 175 ; 176 ; KEYPAD=ON 177 ; The ON state is known as the application mode. In this 178 ; mode, the keys on the keypad transmit an escape sequence. 179 ; 180 ; KEYPAD=OFF 181 ; The OFF state is known as the numeric mode. In this mode, 182 ; the keys on the keypad transmit the number on the key. Your 183 ; keypad is normally in the numeric mode. 184 ; 185 ; LINE=nn 186 ; Specifies the line number for the next message. On startup, 187 ; the default line number is 12. 188 ; 189 ; [-] LED=n 190 ; Turns on the specified LED (L1 - L4) on the terminal. The 191 ; The range of 'n' is 1-4. If 'n' isn't specified, all the 192 ; the LEDs are turned on. A {-LED} command turns all LEDS off. 193 ; 194 ; LJUSTIFY 195 ; Left justify the next message. Same as the command {C=1}. 196 ; 197 ; LMARGIN=n 198 ; Sets the left margin to 'n'. The default is 1. 199 ; 200 ; NARROW 201 ; Sets the screen to 80 column mode. The VT100 automatically 202 ; clears the screen when changing column modes. 203 ; 204 ; OUTPUT=file.ext 205 ; Outputs to the specified file. If running interactive, 206 ; messages are output to both the terminal and the file. 207 ; The -TTY command will inhibit output to the terminal. If 208 ; no output file is specified (i.e., {OUT=}), the default 209 ; file name of VTM.DAT is used. If a second {OUT=...} is 210 ; specified, the current file is closed and the new file 211 ; is openned. 212 ; 213 ; OFF 214 ; Turns off all the attributes (BLINK/BOLD/REVERSE/UNDERSCORE). VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 2-3 215 ; All attributes are turned off because the VT100 does not have 216 ; the capability to turn off a single attribute. This command 217 ; is executed automatically at the end of each message output 218 ; if you havn't turned the attributes off. 219 ; 220 ; PLINE=n or .+n 221 ; Specifies the prompt line number. The default prompt line 222 ; is 24 for RSX-11M and line 23 for VAX/VMS. This is also 223 ; the last line output to a file when the file is closed. 224 ; The ".+n" format allows you to position the VTM prompt 'n' 225 ; lines after the last line displayed on the screen. 226 ; 227 ; REVERSE 228 ; Turns on the reverse video attribute. 229 ; 230 ; [-] REGION=top_line:bottom_line 231 ; Specifies the scrolling region. The top line must be 232 ; greater than the bottom line. To disable the scroll 233 ; region, use {-REGION} or {REGION=1:24}. 234 ; 235 ; RESET 236 ; This does a power-up reset. It is useful in command files 237 ; being aborted by CTRL/C or CTRL/Y when the state of the 238 ; VT100 is unknown. 239 ; 240 ; RJUSTIFY 241 ; Right justify the next message. The message will be output 242 ; so the last character lines up with right margin. 243 ; 244 ; RMARGIN=n 245 ; Sets the right margin to 'n'. The default is 80. 246 ; 247 ; RULER=n 248 ; Write a ruler on the VT100 to aid in message formatting. 249 ; The default line number (n) is 1. 250 ; 251 ; TLINE=n 252 ; Specifies the top line number. This is the line started at 253 ; after wrapping around from the bottom. The default top line 254 ; number is 1. 255 ; 256 ; SKIP=n 257 ; Skips 'n' lines on the screen. After displaying a message, 258 ; VTM automatically adjusts the line number to the next line. 259 ; This option is used for additional spacing. 260 ; 261 ; SCREEN=BLACK or WHITE 262 ; The BLACK state causes the screen to be black with white 263 ; characters. The WHITE state causes the screen to be white 264 ; with black characters. 265 ; 266 ; SGRAPHICS 267 ; Turns on special graphics. In this mode, the lowercase 268 ; character set is used to display special graphic characters. 269 ; Use either {UKSET} or {USSET} to exit special graphics mode. 270 ; 271 ; SMOOTH VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 2-4 272 ; Sets smooth scroll mode. 273 ; 274 ; [-] TTY 275 ; Enable or disable output to the local terminal. The default 276 ; is to always output to the local terminal. On RSX-11M, the 277 ; output device is TI0:. On VAX/VMS, the output device is 278 ; wherever SYS$OUTPUT is directed (normally the terminal). 279 ; 280 ; TIME 281 ; Output the current time in the format HH:MM:SS. 282 ; 283 ; TEST 284 ; Fills the screen with "Es". 285 ; 286 ; TERMINAL=ddnn: 287 ; Specifies the terminal to write the message to. On VAX/VMS, 288 ; you can only write to terminals which are not logged on. 289 ; Logical names are permitted of the form ddnn: (RSX standard). 290 ; 291 ; UNDERSCORE 292 ; Turns the underscore attribute on. 293 ; 294 ; UKSET 295 ; Selects the United Kingdom character set. 296 ; 297 ; USSET 298 ; Selects the USASCII character set. 299 ; 300 ; WIDE 301 ; Sets the screen to 132 column mode. The VT100 automatically 302 ; clears the screen when changing column modes. 303 ; 304 ; *********************************************************** 305 ; * The braces MUST be specified around the options. * 306 ; * Multiple options must be separated with commas. * 307 ; * * 308 ; * The [-] means the option can be negated. For example, * 309 ; * -DHeight outputs the message in single width. * 310 ; *********************************************************** 311 ; 312 ; and, 313 ; message_text is the text to display. If contained in a command 314 ; file, upper and lowercase characters are accepted. The command 315 ; line interpreters (MCR and DCL) convert lowercase to uppercase. 316 ; The message is truncated if the length is too long. 317 ; 318 ; The order of the options listed above is the order in which they are 319 ; parsed. This means if you specify a single character for an option, 320 ; i.e., {R}, the first option listed {REVERSE} is matched. 321 ; 322 ; A CTRL/C can be typed to abort VTM when it is delaying or outputting. 323 ; 324 ;- VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 3 326 327 ; Define start of state and keyword tables. 328 329 000000 ISTAT$ STATE, KEYWRD 330 331 ; Now define the actual state table. 332 333 .GLOBL START 334 335 ; Next is a possible option or text of the message. 336 337 000000 STATE$ START 338 000000 TRAN$ '{,SOPT,IBLANK 339 000000 TRAN$ $ANY,START,SCHAR 340 000000 TRAN$ $EOS,$EXIT 341 342 ;********************************************************************** 343 ; Found the start of an option. Table count = 63. 344 345 000000 STATE$ SOPT 346 000000 TRAN$ '-,NOPT 347 000000 TRAN$ "ALL",EOPT,ALLATT,B.ATTR,STATUS 348 000000 TRAN$ "ACSET",EOPT,ACSET 349 ; TRAN$ "AGSET",EOPT,AGSET 350 000000 TRAN$ "ANSI",EOPT,ANSI 351 000000 TRAN$ "BLINE",BOTTOM 352 000000 TRAN$ "BELL",EOPT,MBELL 353 000000 TRAN$ "BLINK",EOPT,BLINK,B.ATTR,STATUS 354 000000 TRAN$ "BOLD",EOPT,BOLD,B.ATTR,STATUS 355 000000 TRAN$ "BOX",BOXS 356 000000 TRAN$ "COLUMN",COL 357 000000 TRAN$ "CLEAR",EOPT,,B.CLR,STATUS 358 000000 TRAN$ "CENTER",EOPT,,B.CENT,STATUS 359 000000 TRAN$ "CBOL",EOPT,CBOL,B.DOIT,STATUS 360 000000 TRAN$ "CEOL",EOPT,CEOL,B.DOIT,STATUS 361 000000 TRAN$ "CLIN",EOPT,CLIN,B.DOIT,STATUS 362 000000 TRAN$ "CBOS",EOPT,CBOS,B.DOIT,STATUS 363 000000 TRAN$ "CEOS",EOPT,CEOS,B.DOIT,STATUS 364 ; TRAN$ "CSCR",EOPT,CSCR,B.DOIT,STATUS 365 000000 TRAN$ "DELAY",DCNT 366 000000 TRAN$ "DATE",EOPT,DATE 367 000000 TRAN$ "DHEIGHT",EOPT,NODW,B.DBLH,STATUS 368 000000 TRAN$ "DWIDTH",EOPT,NODH,B.DBLW,STATUS 369 000000 TRAN$ "JUMP",EOPT,JUMP 370 000000 TRAN$ "HOME",EOPT,HOME,B.COL,STATUS 371 000000 TRAN$ "ITERATION",ITER 372 000000 TRAN$ "KEYPAD",KEYPAD 373 000000 TRAN$ "LINE",LIN 374 000000 TRAN$ "LJUSTIFY",EOPT,,B.LJUS,STATUS 375 000000 TRAN$ "LMARGIN",LMARG 376 000000 TRAN$ "LEDS",LED 377 000000 TRAN$ "NARROW",EOPT,NARROW 378 000000 TRAN$ "OUTPUT",FILE 379 000000 TRAN$ "OFF",EOPT,ATTOFF 380 000000 TRAN$ "PLINE",PLIN 381 000000 TRAN$ "REVERSE",EOPT,REVERSE,B.ATTR,STATUS 382 000000 TRAN$ "REGION",SCREG VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 3-1 383 000000 TRAN$ "RESET",EOPT,VRESET 384 000000 TRAN$ "RJUSTIFY",EOPT,,B.RJUS,STATUS 385 000000 TRAN$ "RMARGIN",RMARG 386 000000 TRAN$ "RULER",RULERS 387 000000 TRAN$ "SKIP",SCNT 388 000000 TRAN$ "SCREEN",SCREEN 389 000000 TRAN$ "SGRAPHICS",EOPT,SGRAPH 390 000000 TRAN$ "SMOOTH",EOPT,SMOOTH 391 000000 TRAN$ "SWIDTH",EOPT,SWIDTH 392 000000 TRAN$ "TLINE",TOP 393 000000 TRAN$ "TEST",EOPT,TEST 394 000000 TRAN$ "TIME",EOPT,TIME 395 000000 TRAN$ "TTY",EOPT,TTYON 396 000000 TRAN$ "TERMINAL",TTY 397 000000 TRAN$ "UNDERSCORE",EOPT,UNDER,B.ATTR,STATUS 398 000000 TRAN$ "UKSET",EOPT,UKSET 399 000000 TRAN$ "USSET",EOPT,USSET 400 ; TRAN$ "VT52",EOPT,VT52 401 000000 TRAN$ "WIDE",EOPT,WIDE,B.WIDE,STATUS 402 403 ;********************************************************************** 404 ; Check for next "," or end "}" of options. 405 406 000000 STATE$ EOPT 407 000000 TRAN$ <',>,SOPT,IBLANK 408 000000 TRAN$ '},START,PBLANK 409 410 ;********************************************************************** 411 ; Negation of an option. 412 413 000000 STATE$ NOPT 414 000000 TRAN$ "CLEAR",EOPT,NOCLR 415 000000 TRAN$ "CENTER",EOPT,NOCENT 416 000000 TRAN$ "DHEIGHT",EOPT,NODH 417 000000 TRAN$ "DWIDTH",EOPT,NODW 418 000000 TRAN$ "LEDS",EOPT,LED0 419 000000 TRAN$ "REGION",EOPT,NOREG 420 000000 TRAN$ "TTY",EOPT,NOTTY 421 422 ;********************************************************************** 423 ; Specifying a box. 424 425 000000 STATE$ BOXS 426 000000 TRAN$ '=,BOXN 427 000000 TRAN$ $LAMDA,EOPT,BOX 428 429 000000 STATE$ BOXN 430 000000 TRAN$ $DNUMB,,BOXT 431 432 000000 STATE$ 433 000000 TRAN$ ': 434 435 000000 STATE$ 436 000000 TRAN$ $DNUMB,,BOXB 437 438 000000 STATE$ 439 000000 TRAN$ ':,BOXLR VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 3-2 440 000000 TRAN$ $LAMDA,EOPT,BOX 441 442 000000 STATE$ BOXLR 443 000000 TRAN$ $DNUMB,,BOXL 444 445 000000 STATE$ 446 000000 TRAN$ ': 447 448 000000 STATE$ 449 000000 TRAN$ $DNUMB,EOPT,BOXR 450 451 ;********************************************************************** 452 ; Specifing the starting column number. 453 ; If not and equals sign, presume Clear wanted. 454 455 000000 STATE$ COL 456 000000 TRAN$ '=,COLN 457 000000 TRAN$ $LAMDA,EOPT,,B.CLR,STATUS 458 459 000000 STATE$ COLN 460 000000 TRAN$ $DNUMB,EOPT,SCOL,B.COL,STATUS 461 462 ;********************************************************************** 463 ; Specifying a delay count. 464 465 000000 STATE$ DCNT 466 000000 TRAN$ '= 467 468 000000 STATE$ 469 000000 TRAN$ $DNUMB,EOPT,SDELAY 470 471 ;********************************************************************** 472 ; Turn the keypad ON (application) or OFF (numeric). 473 474 000000 STATE$ KEYPAD 475 000000 TRAN$ '= 476 477 000000 STATE$ 478 000000 TRAN$ "ON",EOPT,APPKEY 479 ; TRAN$ "APPLICATION",EOPT,APPKEY 480 000000 TRAN$ "OFF",EOPT,NUMKEY 481 ; TRAN$ "NUMERIC",EOPT,NUMKEY 482 483 ;********************************************************************** 484 ; Specifying an iteration count. 485 486 000000 STATE$ ITER 487 000000 TRAN$ '= 488 489 000000 STATE$ 490 000000 TRAN$ $DNUMB,EOPT,SITER 491 492 ;********************************************************************** 493 ; Specifying the starting line number. 494 495 000000 STATE$ LIN 496 000000 TRAN$ '= VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 3-3 497 498 000000 STATE$ 499 000000 TRAN$ $DNUMB,EOPT,SLINE 500 501 ;********************************************************************** 502 ; Specifying the left margin. 503 504 000000 STATE$ LMARG 505 000000 TRAN$ '= 506 507 000000 STATE$ 508 000000 TRAN$ $DNUMB,EOPT,SLMARG 509 510 ; Specifying the right margin. 511 512 000000 STATE$ RMARG 513 000000 TRAN$ '= 514 515 000000 STATE$ 516 000000 TRAN$ $DNUMB,EOPT,SRMARG 517 518 ;********************************************************************** 519 ; Specifying all or a single LED. 520 521 000000 STATE$ LED 522 000000 TRAN$ '=,NLED 523 000000 TRAN$ $LAMDA,EOPT,LEDS 524 525 000000 STATE$ NLED 526 000000 TRAN$ '0,EOPT,LED0 527 000000 TRAN$ '1,EOPT,LED1 528 000000 TRAN$ '2,EOPT,LED2 529 000000 TRAN$ '3,EOPT,LED3 530 000000 TRAN$ '4,EOPT,LED4 531 000000 TRAN$ $LAMDA,EOPT,LEDS 532 533 ;********************************************************************** 534 ; Specify the top line number. 535 536 000000 STATE$ TOP 537 000000 TRAN$ '= 538 539 000000 STATE$ 540 000000 TRAN$ $DNUMB,EOPT,TLINE 541 542 ;********************************************************************** 543 ; Specify the bottom line number. 544 545 000000 STATE$ BOTTOM 546 000000 TRAN$ '= 547 548 000000 STATE$ 549 000000 TRAN$ $DNUMB,EOPT,BLINE 550 551 ;********************************************************************** 552 ; Specify a new prompt line. 553 VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 3-4 554 000000 STATE$ PLIN 555 000000 TRAN$ '= 556 557 000000 STATE$ 558 000000 TRAN$ '.,RPLIN,,B.REL,STAT1 559 000000 TRAN$ $LAMDA,PLINC 560 561 000000 STATE$ RPLIN 562 000000 TRAN$ '+,PLINC,PPLIN 563 000000 TRAN$ '-,PLINC,NPLIN 564 000000 TRAN$ $LAMDA,,PPLIN 565 566 000000 STATE$ PLINC 567 000000 TRAN$ $DNUMB,EOPT,PLINE 568 569 ;********************************************************************** 570 ; Specifying a ruler, check for optional line number. 571 572 000000 STATE$ RULERS 573 000000 TRAN$ '=,RULERN 574 000000 TRAN$ $LAMDA,EOPT,RULER 575 576 000000 STATE$ RULERN 577 000000 TRAN$ $DNUMB,EOPT,RULLIN 578 579 ;********************************************************************** 580 ; Specifying the number of lines to skip. 581 582 000000 STATE$ SCNT 583 000000 TRAN$ '= 584 585 000000 STATE$ 586 000000 TRAN$ $DNUMB,EOPT,SKIP 587 588 ;********************************************************************** 589 ; Specifying an output file. 590 591 000000 STATE$ FILE 592 000000 TRAN$ '= 593 594 000000 STATE$ FLOOP 595 000000 TRAN$ <',>,SOPT,OFILE 596 000000 TRAN$ '},START,OFILE 597 000000 TRAN$ $ANY,FLOOP,SFILE 598 000000 TRAN$ $EOS,$EXIT 599 600 ;********************************************************************** 601 ; Change the screen to BLACK or WHITE. 602 603 000000 STATE$ SCREEN 604 000000 TRAN$ '= 605 606 000000 STATE$ 607 000000 TRAN$ "BLACK",EOPT,BLACK 608 000000 TRAN$ "WHITE",EOPT,WHITE 609 610 ;********************************************************************** VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 3-5 611 ; Specify the scrolling region. 612 613 000000 STATE$ SCREG 614 000000 TRAN$ '= 615 616 000000 STATE$ 617 000000 TRAN$ $DNUMB,,REGT 618 619 000000 STATE$ 620 000000 TRAN$ ': 621 622 000000 STATE$ 623 000000 TRAN$ $DNUMB,EOPT,REGB 624 625 ;********************************************************************** 626 ; Specifying a terminal name to send the message to. 627 628 000000 STATE$ TTY 629 000000 TRAN$ '= 630 631 ; Skip underscore characters... for VAX/VMS. 632 633 000000 STATE$ TTY1 634 000000 TRAN$ '_,TTY1 635 000000 TRAN$ $LAMDA 636 637 000000 STATE$ 638 000000 TRAN$ $ALPHA,,STTY1 639 640 000000 STATE$ 641 000000 TRAN$ $ALPHA,,STTY2 642 643 ; Check for VAX/VMS controller letter. 644 645 000000 STATE$ 646 000000 TRAN$ $ALPHA,TTYN,STTYC 647 000000 TRAN$ $LAMDA 648 649 000000 STATE$ TTYN 650 000000 TRAN$ $NUMBR,ETTY,STTYN 651 000000 TRAN$ $LAMDA 652 653 000000 STATE$ ETTY 654 000000 TRAN$ ':,EOPT,TTYA 655 000000 TRAN$ $LAMDA,EOPT,TTYA 656 657 ; The next STATE$ is needed for the end of the table. 658 659 000000 STATE$ 660 661 000001 .END VTPARS - VTM TABLE PARSER MACRO M1200 29-SEP-82 17:42 PAGE 3-6 SYMBOL TABLE ACSET = ****** GX B.WIDE= ****** GX LMARG 001004R 002 SCHAR = ****** GX TTY 001302R 002 ALLATT= ****** GX CBOL = ****** GX MBELL = ****** GX SCNT 001206R 002 TTYA = ****** GX ANSI = ****** GX CBOS = ****** GX NARROW= ****** GX SCOL = ****** GX TTYN 001332R 002 APPKEY= ****** GX CEOL = ****** GX NLED 001036R 002 SCREEN 001246R 002 TTYON = ****** GX ATTOFF= ****** GX CEOS = ****** GX NOCENT= ****** GX SCREG 001264R 002 TTY1 001304R 002 BLACK = ****** GX CLIN = ****** GX NOCLR = ****** GX SDELAY= ****** GX UKSET = ****** GX BLINE = ****** GX COL 000710R 002 NODH = ****** GX SFILE = ****** GX UNDER = ****** GX BLINK = ****** GX COLN 000724R 002 NODW = ****** GX SGRAPH= ****** GX USSET = ****** GX BOLD = ****** GX DATE = ****** GX NOPT 000564R 002 SITER = ****** GX VRESET= ****** GX BOTTOM 001112R 002 DCNT 000736R 002 NOREG = ****** GX SKIP = ****** GX WHITE = ****** GX BOX = ****** GX EOPT 000550R 002 NOTTY = ****** GX SLINE = ****** GX WIDE = ****** GX BOXB = ****** GX ETTY 001342R 002 NPLIN = ****** GX SLMARG= ****** GX $ALPHA= 000322 BOXL = ****** GX FILE 001216R 002 NUMKEY= ****** GX SMOOTH= ****** GX $ANY = 000320 BOXLR 000674R 002 FLOOP 001220R 002 OFILE = ****** GX SOPT 000020R 002 $BLANK= 000306 BOXN 000650R 002 HOME = ****** GX PBLANK= ****** GX SRMARG= ****** GX $DIGIT= 000324 BOXR = ****** GX IBLANK= ****** GX PLIN 001122R 002 START 000000RG 002 $DNUMB= 000314 BOXS 000636R 002 ITER 000764R 002 PLINC 001160R 002 STATE 000000RG 002 $EOS = 000312 BOXT = ****** GX JUMP = ****** GX PLINE = ****** GX STATUS= ****** GX $EXIT = 000000 B.ATTR= ****** GX KEYPAD 000746R 002 PPLIN = ****** GX STAT1 = ****** GX $LAMDA= 000300 B.CENT= ****** GX KEYWRD 000000RG 003 REGB = ****** GX STTYC = ****** GX $NUMBR= 000302 B.CLR = ****** GX LED 001024R 002 REGT = ****** GX STTYN = ****** GX $RAD50= 000316 B.COL = ****** GX LEDS = ****** GX REVERS= ****** GX STTY1 = ****** GX $STRNG= 000304 B.DBLH= ****** GX LED0 = ****** GX RMARG 001014R 002 STTY2 = ****** GX $SUBXP= 000310 B.DBLW= ****** GX LED1 = ****** GX RPLIN 001140R 002 SWIDTH= ****** GX $$$FLG= 177777 B.DOIT= ****** GX LED2 = ****** GX RULER = ****** GX TEST = ****** GX $$$KEY= 000076 B.LJUS= ****** GX LED3 = ****** GX RULERN 001200R 002 TIME = ****** GX $$$STA= 000550R 002 B.REL = ****** GX LED4 = ****** GX RULERS 001166R 002 TLINE = ****** GX $$$TMP= 000600R 004 B.RJUS= ****** GX LIN 000774R 002 RULLIN= ****** GX TOP 001102R 002 . ABS. 000000 000 000000 001 $STATE 001356 002 $KTAB 000176 003 $KSTR 000606 004 ERRORS DETECTED: 0 VIRTUAL MEMORY USED: 9485 WORDS ( 38 PAGES) DYNAMIC MEMORY: 11258 WORDS ( 43 PAGES) ELAPSED TIME: 00:05:15 VTPARS,VTPARS/-SP=VTPARS