home *** CD-ROM | disk | FTP | other *** search
/ ftp.update.uu.se / ftp.update.uu.se.2014.03.zip / ftp.update.uu.se / pub / pdp8 / pdp-8 / fromnichols / os8v3f.exe / CCLTBL.MA < prev    next >
Text File  |  1995-07-27  |  10KB  |  572 lines
  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.  
  26. /VERSION=V3A (D.H.)
  27. /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.     .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. /    .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. /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.     .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. EXTEXE,    '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.     .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. YPIP,    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.  
  572.