sw/os8/v3d/sources/devext/dectapes/dectape1/ccltbl.ma

   1 /
   2 /
   3 /
   4 /COPYRIGHT  (C)  1979 BY DIGITAL EQUIPMENT CORPORATION
   5 /
   6 /
   7 /
   8 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
   9 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  10 /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  11 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  12 /
  13 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  14 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  15 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  16 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  17 /
  18 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  19 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  20 /DIGITAL.
  21 /
  22 /
  23 /
  24
  25 \f
  26 /VERSION=V3A (D.H.)
  27 \f/10    CCL INTERNAL TABLES FOR OS/78
  28
  29         .NOLIST ME
  30         .GLOBAL EXTCM
  31         .GLOBAL YBATCH,YDATE,YTERMIN
  32         .GLOBAL F1,F2,LO1,LO2
  33         .EXTERNAL SETLPT,SETTTY,SETPTP,COLSET
  34         .EXTERNAL TECSUB,MAKSUB,MNGSUB
  35         .EXTERNAL YF4,YLOAD
  36         .EXTERNAL USRSUB,REQSUB,CANSUB
  37         .EXTERNAL MOVRT,KILRT,RENRT
  38         .EXTERNAL EXSUB
  39         .EXTERNAL TRMSUB,BASUB,MONRES,DETCOR,DATE,DEASSIGN,SQSUB,VERTN,ZERSUB
  40         .EXTERNAL YAT
  41         .EXTERNAL CRSUB,EDSUB
  42         .DSECT PTBL
  43         FIELD 0
  44         .ASECT SWS
  45         *7300
  46         .ASECT LONGS
  47         *5000
  48
  49         .MACRO .BOX COM,SPACES,STARS
  50         LEN=.NCHARS COM
  51         .PUSH .LISTWD
  52         L1=LEN+4
  53         L2=LEN+2
  54         ;.LIST ME
  55
  56 /       STARS[1:L1]
  57 /       *SPACES[1:L2]*
  58 /       * COM *
  59 /       *SPACES[1:L2]*
  60 /       STARS[1:L1]
  61         .POP .LISTWD
  62         EJECT CCL COMMANDS
  63         .ENDM .BOX
  64
  65         .MACRO .EXT
  66         .ENDM
  67         .MACRO .CMD COMAND,ABBREV,CODE,EXTEN,SWITCH,SUBR,PROGRM,LABEL
  68         .BOX    COMAND,"                ","****************"
  69         .SBTTL COMAND
  70         ..=.
  71         .DSECT PTBL
  72         ;..
  73         .SECT *
  74 X'ABBREV,       CODE
  75         IFNZRO CODE&4000 <
  76         ;EXTEN
  77         .IF NBL SWITCH[1]<
  78         XX="SWITCH[1]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
  79         QQ=1
  80         .REPT 12.-ZZ&17
  81         QQ=QQ^2
  82         .ENDR
  83         ;QQ>
  84         .IF NBL SWITCH[2]<
  85         XX="SWITCH[2]&77;YY=<XX-1>%12.;7643+YY;ZZ=XX-<YY^12.>
  86         QQ=1
  87         .REPT 12.-ZZ&17
  88         QQ=QQ^2
  89         .ENDR
  90         ;QQ>
  91         ;0
  92         .ASECT SWS
  93         ..=.
  94         .SECT *
  95         .IF BL LABEL <;.. >             /REMOVE IF DON'T WANT MULTIPLE CHARACTER SWITCHES
  96         .IF NB LABEL <;LABEL>
  97         ;SUBR
  98         .IF NB PROGRM<
  99         ;Y'PROGRM>
 100         .IF BL PROGRM<
 101         ;0>
 102         >
 103         IFZERO CODE&4000 <
 104         ;EXTEN
 105         .IF NB SWITCH<
 106         ;Y'SWITCH>
 107         .IF BL SWITCH<
 108         ;0>
 109         >
 110         .ENDM
 111         .MACRO .QUAL LONG,SHORT,NAME
 112         .ASECT LONGS
 113         ..=.
 114         ;TEXT   "LONG[1:6]";"SHORT
 115         .SECT *
 116         .ASECT SWS
 117         .IF NB NAME <NAME=.>
 118         ;..
 119         .SECT *
 120         .ENDM
 121         .MACRO .ENDQ
 122         .ASECT SWS
 123         ;0
 124         .SECT *
 125         EJECT CCL COMMANDS
 126         .ENDM
 127         .ASECT TABLES
 128         FIELD 0
 129         *6200
 130 \f       .CMD    EXECUTE,EX,5033,        EXTEXE, G,      EXSUB,  PAL8    /MUST BE FIRST FOR TECO EG
 131         .ENDQ
 132         .CMD    BACKSPACE,BA,0,                         TRMSUB, CAMP
 133         .ENDQ
 134         .CMD    BASIC,BAS,0,                            BASUB,  BASIC
 135         .ENDQ
 136         .CMD    DUPLIC,DU,4001, STAR,   ,               0,      RXCOP
 137         .QUAL   NOCOPY,M
 138         .QUAL   NOMATCH,N
 139         .QUAL   PAUSE,P
 140         .QUAL   READONLY,R
 141         .QUAL   VERSION,V
 142         .ENDQ
 143         .CMD    BOOT,BO,0,                              0,      BOOT
 144         .ENDQ
 145         .CMD    CCL,CCL,0,                              MONRES,
 146         .ENDQ
 147         .CMD    COMPARE,COMPA,4001,     EXTNUL, ,               SETTTY, SRCCOM
 148         .QUAL   NOCOMMENTS,C
 149         .QUAL   NOSPACES,S
 150         .QUAL   TABS,T
 151         .QUAL   BLANKS,B
 152         .QUAL   NOPRINTCOMMENTS,X
 153         .ENDQ
 154         .CMD    COM,COM,5033,   EXTCOM, ,               EXSUB,  PAL8
 155         .QUAL   NOISN,N
 156         .QUAL   OPTIMIZE,Q
 157         .QUAL   GO,G
 158         .ENDQ
 159         .CMD    COPY,COP,4001,  STAR,   L,      MOVRT,  FOTP
 160         .QUAL   NOCOPY,D
 161         .QUAL   NOPREDELETE,N
 162         .QUAL   RENAME,R
 163         .QUAL   FAILSAFE,F
 164         .QUAL   CURRENT,C,LSTOPT
 165         .QUAL   LOG,L
 166         .QUAL   OTHER,O
 167         .QUAL   QUERY,Q
 168         .QUAL   INQUIRE,Q
 169         .QUAL   INSPECT,Q
 170         .QUAL   TODAY,T
 171         .QUAL   UGLY,U
 172         .QUAL   INDEPENDENTLY,U
 173         .QUAL   INVERT,V
 174         .QUAL   EXCEPT,V
 175         .QUAL   VERSION,W
 176         .QUAL   V,V
 177         .ENDQ
 178         .CMD    MEMORY,MEM,0,                           DETCOR,
 179         .ENDQ
 180         .CMD    CREATE,CREA,4400,       EXTNUL, ,               CRSUB,  EDIT
 181         .QUAL   SPACES,B
 182         .ENDQ
 183         .CMD    CREF,CREF,4002, EXTCF,  C,      0,      PAL8
 184         .QUAL   NOLIST,P
 185         .QUAL   NOSYMTAB,U
 186         .QUAL   RALF,R
 187         .QUAL   SABR,S
 188         .QUAL   NOLITERALS,X
 189         .QUAL   KEEP,E
 190         .QUAL   MAMMOTH,M
 191         .QUAL   MOBY,M
 192         .ENDQ
 193         .CMD    DATE,DA,0,                              DATE,
 194         .ENDQ
 195         .CMD    DELETE,DEL,4001,        STAR,   LD,     KILRT,  FOTP,LSTOPT
 196         .CMD    DEASSIGN,DE,0,                          DEASSIG,
 197         .ENDQ
 198         .CMD    DIRECT,DIR,4001,        STAR,   ,COLSET,        DIRECT
 199         .QUAL   BLOCKS,B
 200         .QUAL   CURRENT,C
 201         .QUAL   EXTENDED,E
 202         .QUAL   FAST,F
 203         .QUAL   BRIEF,F
 204         .QUAL   ADDITIONAL,I
 205         .QUAL   EMPTIES,M
 206         .QUAL   FREE,M
 207 /       .QUAL   INDEPENDENTLY,U
 208         .QUAL   OTHER,O
 209         .QUAL   REMAINDER,R
 210         .QUAL   UGLY,U
 211         .QUAL   INVERT,V
 212         .QUAL   EXCEPT,V
 213         .QUAL   VERSION,W
 214         .QUAL   V,V
 215         .QUAL   COLUMNS,Z       /DUMMY
 216         .ENDQ
 217         .CMD    EDIT,ED,5220,   EXTNUL, ,               EDSUB,  EDIT
 218         .QUAL   SPACES,B
 219         .QUAL   PREDELETE,D
 220         .QUAL   DELETE,D
 221         .ENDQ
 222 \f/      .CMD    EOF,EO,0,                               0,      CAMP
 223 /       .ENDQ
 224         .CMD    HELP,HE,4001,   STAR,   T,      SETTTY, HELP
 225         .ENDQ
 226         .CMD    LINK,LIN,5033,  EXTLI,  ,               EXSUB,  LINK
 227         .QUAL   GO,G
 228         .QUAL   HALTS,H
 229         .QUAL   JUMPS,J
 230         .QUAL   JMPS,J
 231         .QUAL   CORE,K
 232         .QUAL   MEMORY,K
 233         .QUAL   VERSION,V
 234         .QUAL   START,S
 235         .QUAL   JSW,W
 236         .QUAL   M,M
 237         .ENDQ
 238         .CMD    MAC,MAC,5033,   EXTMA,  ,               EXSUB,  MACREL
 239         .QUAL   BLOCK,B
 240         .QUAL   HEADING,B
 241         .QUAL   HDR,B
 242         .QUAL   CREF,C
 243         .QUAL   KREF,C
 244         .QUAL   GO,G
 245         .QUAL   NOCONDITIONALS,J
 246         .QUAL   LINK,L
 247         .QUAL   PERM,M
 248         .QUAL   NOLIST,N
 249         .QUAL   OMIT,O
 250         .QUAL   NOMACROS,O
 251         .QUAL   RESET,P
 252         .QUAL   EAE,Q
 253         .QUAL   REMOVE,R
 254         .QUAL   REDUNDANT,R
 255         .QUAL   DESTROY,Z
 256         .QUAL   NOBATCH,Z
 257         .QUAL   EXTENDED,X
 258         .QUAL   K,K
 259         .QUAL   P,P
 260         .ENDQ
 261         .CMD    LIST,LI,4001,   STAR,   U,      SETLPT, FOTP,LSTOPT
 262         .CMD    LOAD,LO,5031,   EXTLO,  ,               EXSUB,  ABSLDR
 263         .QUAL   IMAGE,I
 264         .QUAL   MULTIPLE,S
 265         .QUAL   SLURP,S
 266         .QUAL   GO,G
 267 /       /8      /9      /START:N        /FIELD:F        /P
 268         .ENDQ
 269         .CMD    MAKE,MAK,0,                             MAKSUB, TECO
 270         .ENDQ
 271         .CMD    MAP,MAP,4001,   EXTBN,  ,               SETTTY, BITMAP
 272         .QUAL   MULTIPLE,S
 273         .QUAL   SLURP,S
 274         .QUAL   INVERT,T
 275 /       FIELD:N
 276         .ENDQ
 277         .CMD    MUNG,MUNG,0,                            MNGSUB, TECO
 278         .ENDQ
 279         .CMD    PAL,PAL,5033,   EXTPA,  ,               EXSUB,  PAL8
 280         .QUAL   SHIFT,B
 281         .QUAL   CREF,C
 282         .QUAL   DDT,D
 283         .QUAL   NOLINKS,E
 284         .QUAL   NOFILL,F
 285         .QUAL   GO,G
 286         .QUAL   NONPAGINATED,H
 287         .QUAL   NOCONDITIONALS,J
 288         .QUAL   LOAD,L
 289         .QUAL   NOLIST,N
 290         .QUAL   NOORIG,O
 291         .QUAL   NOSYMTAB,S
 292         .QUAL   NOREMEMBERLITERALS,W
 293         .QUAL   WIDE,7
 294         .QUAL   W,W
 295         .ENDQ
 296 /       /K      /T
 297         .CMD    PRINT,PRI,4000, STAR,   ,               SETLPT, LPTSPL
 298         .ENDQ
 299         .CMD    PUNCH,PU,4001,  EXTNUL, ,               SETPTP, PIP
 300 /       .QUAL   ASCII,A
 301 /       .QUAL   BINARY,B
 302 /       .QUAL   ELIMINATE,C
 303 /       .QUAL   PREDELETE,D
 304 /       .QUAL   DELETE,D
 305 /       .QUAL   IGNORE,G
 306 /       .QUAL   IMAGE,I
 307 /       .QUAL   TABS,T
 308 /       .QUAL   VERSION,V
 309 /       .QUAL   V,V
 310         .ENDQ
 311         .CMD    RENAME,REN,4001,        STAR,   LR,RENRT,FOTP,LSTOPT
 312         .CMD    RESOURCES,RES,4001,     EXTSY,  ,               SETTTY, RESORC
 313         .QUAL   DETAILED,E
 314         .QUAL   EXTENDED,E
 315         .QUAL   BRIEF,F
 316         .QUAL   FAST,F
 317         .ENDQ
 318 /       .CMD    REWIND,REW,0,                           0,      CAMP
 319 /       .ENDQ
 320         .CMD    CANCEL,CA,0,CANSUB,
 321         .ENDQ
 322         .CMD    SET,SET,0,                              0,      SET
 323         .ENDQ
 324         .CMD    SKIP,SK,0,                              0,      CAMP
 325         .ENDQ
 326         .CMD    SQUISH,SQ,4001, EXTNUL, S,      SQSUB,  PIP
 327         .QUAL   OK,O
 328         .QUAL   NOCONFIRM,O
 329         .ENDQ
 330         .CMD    SUBMIT,SU,4000, EXTBI,  ,               0,      BATCH
 331         .QUAL   CARDS,C
 332         .QUAL   NONFATAL,E
 333         .QUAL   PAPERTAPE,P
 334         .QUAL   QUIET,Q
 335         .QUAL   HUSH,H
 336         .QUAL   TERMINAL,T
 337         .QUAL   TTY,T
 338         .QUAL   UNATTENDED,U
 339         .QUAL   VERSION,V
 340         .QUAL   026,6
 341         .ENDQ
 342         .CMD    TECO,TE,10,                             TECSUB, TECO
 343         .ENDQ
 344         .CMD    TYPE,TY,4001,   STAR,   U,      SETTTY, FOTP,LSTOPT
 345 /       .CMD    UNLOAD,UN,0,                            0,      CAMP
 346 /       .ENDQ
 347         .CMD    REQUEST,REQ,4000,EXTSV,,REQSUB,
 348         .ENDQ
 349         .CMD    QUEUE,Q,4000,STAR,,0,QUEUE
 350         .QUAL   LIST,L
 351         .QUAL   KILL,K
 352         .QUAL   STOP,S
 353         .QUAL   GO,G
 354         .QUAL   START,G
 355         .QUAL   NOH,H
 356         .QUAL   DELETE,D
 357         .QUAL   COPIES,C
 358         .ENDQ
 359         .CMD    UA,UA,40,                               USRSUB,
 360         .ENDQ
 361         .CMD    UB,UB,50,                               USRSUB,
 362         .ENDQ
 363         .CMD    UC,UC,60,                               USRSUB,
 364         .ENDQ
 365         .CMD    VERSION,VE,0,                           VERTN,
 366         .ENDQ
 367         .CMD    ZERO,ZERO,4401, EXTNUL, Z,      ZERSUB, PIP
 368         .ENDQ
 369 /       .CMD    @,@,0,                          YAT,
 370 /       .ENDQ
 371         ..=.
 372         0;YAT;0
 373         .DSECT PTBL
 374         ..
 375         0;0
 376 \f/PTBL, XEXE
 377 /       XBAC
 378 /       XBAS
 379 /       XDUPL
 380 /       XBOO
 381 /       XCCL
 382 /       XCOMPA
 383 /       XCOMPI
 384 /       XCOP
 385 /       XCOR
 386 /       XCREA
 387 /       XCREF
 388 /       XDAT
 389 /       XDEL
 390 /       XDEA
 391 /       XDIR
 392 /       XEDI
 393 /       XEOF
 394 /       XHEL
 395 /       XLINK
 396 /       XMAC
 397 /       XLIS
 398 /       XLOA
 399 /       XMAK
 400 /       XMAP
 401 /       XMUN
 402 /       XPAL
 403 /       XPRI
 404 /       XPUN
 405 /       XREN
 406 /       XRES
 407 /       XREW
 408 /       XSET
 409 /       XSKI
 410 /       XSQU
 411 /       XSUB
 412 /       XTEC
 413 /       XTYP
 414 /       XUNL
 415 /       XUA
 416 /       XUB
 417 /       XUC
 418 /       XVER
 419 /       XZER
 420 /       XAT
 421         .EXT    ALG=AL
 422         .EXT    BAK=BK
 423         .EXT    BAS=BA
 424         .EXT    BIN=BN
 425         .EXT    BUG=BG
 426         .EXT    CMD=CM
 427         .EXT    COM=CM
 428         .EXT    CRF=CF
 429         .EXT    CTL=CM
 430         .EXT    DAT=DA
 431         .EXT    DIR=DI
 432         .EXT    DOC=DC
 433         .EXT    HLP=HL
 434         .EXT    INI=IN
 435         .EXT    LOG=LG
 436         .EXT    LPT=LP
 437         .EXT    LST=LS
 438         .EXT    MAC=MA
 439         .EXT    MAN=MN
 440         .EXT    MAP=MP
 441         .EXT    MEM=ME
 442         .EXT    OLD=OL
 443         .EXT    PAL=PA
 444         .EXT    REL=RL
 445         .EXT    RIM=RM
 446         .EXT    RNO=RO
 447         .EXT    SAV=SV
 448         .EXT    EXE=SV
 449         .EXT    SNO=SN
 450         .EXT    SRC=SR
 451         .EXT    SYS=SY
 452         .EXT    TEC=TE
 453         .EXT    TEM=TM
 454         .EXT    TMP=TM
 455         .EXT    TXT=TX
 456         .EXT    BAT=BI
 457         .EXT    FOR=FT
 458         .EXT    RLF=RA
 459         .EXT    OBJ=RB
 460         .EXT    SBR=SB
 461         .EXT    FTN=FT
 462 \f       .ASECT EXTNS
 463         FIELD 0
 464         *6600
 465 STAR,   5200;   0
 466         0;      0
 467
 468
 469 EXTSY,  'SY;    0
 470         0;      0
 471 EXTBI,  'BI;    0
 472         0;      0
 473 EXTCF,  'PA;    YPAL8
 474         0;      YPAL8
 475 EXTMA,  'MA;    YMACREL
 476         0;      YMACREL
 477 EXTPA,  'PA;    YPAL8
 478         0;      YPAL8
 479 EXTBN,  'BN;    0
 480         0;      YABSLDR
 481 EXTNUL, 0;      0
 482 EXTLO,  'BN;    YABSLDR
 483         'RL;    LO1,YLOAD       /****
 484 EXTLI,  'RB;    YLINK
 485         0;      0
 486 EXTCM,  'CM;    0
 487         0;      0
 488 EXTSV,  'SM;    0
 489         'SV;    0
 490         0;      0
 491 \fEXTEXE,        'PA;    YPAL8
 492         'FT;    F1,YF4  /****
 493         'BA;    YBCOMP
 494         'MA;    YMACREL
 495         'BN;    YABSLDR
 496         'RL;    LO2,YLOAD       /****
 497         'RA;    YRALF
 498         'SB;    YSABR
 499         'RB;    YLINK
 500         'LD;    YFRTS
 501         'BI;    YBATCH
 502         0;      0
 503         ZBLOCK 4
 504 EXTCOM, 'PA;    YPAL8
 505         'FT;    F2,YF4  /****
 506         'MA;    YMACREL
 507         'BA;    YBCOMP
 508         'RA;    YRALF
 509         'SB;    YSABR
 510         0;      0
 511         ZBLOCK 4
 512 \f       .ASECT FNAMES
 513         FIELD 0
 514         *7000
 515 YEDIT,  FILENAME EDIT.SV
 516         *.-1
 517 YBOOT,  FILENAME BOOT.SV
 518         *.-1
 519 YBITMAP,FILENAME BITMAP.SV
 520         *.-1
 521 YSRCCOM,FILENAME SRCCOM.SV
 522         *.-1
 523 YBCOMP, FILENAME BCOMP.SV
 524         *.-1
 525 YPAL8,  FILENAME PAL8.SV
 526         *.-1
 527 YFOTP,  FILENAME FOTP.SV
 528         *.-1
 529 YDIRECT,FILENAME DIRECT.SV
 530         *.-1
 531 \fYPIP,  FILENAME PIP.SV
 532         *.-1
 533 YABSLDR,FILENAME ABSLDR.SV
 534         *.-1
 535 YTECO,  FILENAME TECO.SV
 536         *.-1
 537 YLPTSPL,FILENAME LPTSPL.SV
 538         *.-1
 539 YCAMP,  FILENAME CAMP.SV
 540         *.-1
 541 YSET,   FILENAME SET.SV
 542         *.-1
 543 YBASIC, FILENAME BASIC.SV
 544         *.-1
 545 YRXCOP, FILENAME RXCOPY.SV
 546         *.-1
 547 YRESORC,FILENAME RESORC.SV
 548         *.-1
 549 YBATCH, FILENAME BATCH.SV
 550         *.-1
 551 YRALF,  FILENAME RALF.SV
 552         *.-1
 553 YSABR,  FILENAME SABR.SV
 554         *.-1
 555 YFRTS,  FILENAME FRTS.SV
 556         *.-1
 557 YHELP,  FILENAME HELP.SV
 558         *.-1
 559 YMACREL,FILENAME MACREL.SV
 560         *.-1
 561 YLINK,  FILENAME LINK.SV
 562         *.-1
 563 YDATE,  FILENAME DATE.SV
 564         *.-1
 565 YTERMIN,FILENAME TERMIN.SV
 566         *.-1
 567 YQUEUE, FILENAME QUEUE.SV
 568         *.-1
 569 YCANCEL,FILENAME CANCEL.SV
 570         *.-1
 571 \f