home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / b / krtsho.min < prev    next >
Text File  |  2020-01-01  |  12KB  |  831 lines
  1.     .title    KRTSHO.MIN  The SHOW command
  2.     .ident    "V03.62"
  3.  
  4. ; /62/    31-May-93  Billy Youdelman
  5.  
  6.     .include "IN:KRTMAC.MIN"
  7.     .iif ndf  KRTINC  .error    <; .include for IN:KRTMAC.MIN failed>
  8.     .include "IN:KRTCDF.MIN"
  9.     .iif ndf  KRTCDF  .error     <; .include for IN:KRTCDF.MIN failed>
  10.  
  11.     .mcall    .PURGE
  12.  
  13.  
  14.     .psect    $code
  15.     .sbttl    SHOW command processor
  16.     .enabl    lsb
  17.  
  18. c$show::tstb    @argbuf
  19.     beq    103$
  20.     upcase    argbuf
  21.     calls    getcm0    ,<argbuf,#sholst>
  22.     tst    r0
  23.     bmi    110$
  24.     tst    wasnul
  25.     bne    199$
  26.     jsr    pc    ,@r1
  27. 199$:    clr    r0
  28.     return
  29.  
  30. 103$:    call    sho$df
  31.     br    199$
  32.  
  33. 110$:    cmp    r0    ,#cmd$un
  34.     bne    189$
  35.     mov    #er$tam    ,r0
  36.     br    190$
  37. 189$:    mov    #er$tun    ,r0
  38. 190$:    direrr    r0
  39.     return
  40.  
  41.     .dsabl    lsb
  42.  
  43.     $CMGLOB    = 1
  44.  
  45. command    sholst    ,ALL        ,2   ,sho$al
  46. command    sholst    ,ASSIGNS    ,2   ,sho$df
  47. command    sholst    ,ATTRIBUTES    ,2   ,sho$at
  48. command    sholst    ,BINARY_TYPE    ,2   ,sho$bt
  49. command    sholst    ,BLOCK_CHECK_TYPE ,2 ,sho$bl
  50. command    sholst    ,DEBUG        ,3   ,sho$de
  51. command    sholst    ,DEFAULT    ,3   ,sho$df
  52. command    sholst    ,DELAY        ,3   ,sho$dl
  53. command    sholst    ,FILE_TYPE    ,1   ,sho$fi
  54. command    sholst    ,INCOMPLETE_FILE_DISPOSITION ,1 ,sho$in
  55. command    sholst    ,LINE        ,1   ,sho$li
  56. command    sholst    ,PACKET        ,3   ,sho$pk
  57. command    sholst    ,PARAMETERS    ,3   ,sho$pa
  58. command    sholst    ,PARITY        ,3   ,sho$pr
  59. command    sholst    ,PAUSE        ,3   ,sho$ps
  60. command    sholst    ,REPEAT_QUOTING    ,3   ,sho$rp
  61. command    sholst    ,RETRY        ,3   ,sho$rt
  62. command    sholst    ,SERVER        ,2   ,sho$sv
  63. command    sholst    ,SL        ,2   ,sho$sl
  64. command    sholst    ,START_OF_PACKET,2   ,sho$so
  65. command    sholst    ,TERMINAL    ,1   ,sho$tt
  66. command    sholst    ,TIME_OUT    ,2   ,sho$to
  67. command    sholst    ,TT:        ,2   ,sho$tt
  68. command    sholst    ,VERSION    ,2   ,sho$ve
  69. command    sholst
  70.  
  71.  
  72.     .sbttl    SHOW ALL
  73.  
  74. sho$al:    call    sho$ve
  75.     call    sho$li
  76.     call    sho$tt
  77.     call    sho$at
  78.     call    sho$bt
  79.     call    sho$de
  80.     call    sho$fi
  81.     call    sho$in
  82.     call    sho$bl
  83.     call    sho$pa
  84.     jmp    sho$yy
  85.  
  86.  
  87.     .sbttl    SHOW DEBUG
  88.     .enabl    lsb
  89.  
  90. sho$de:    tst    trace
  91.     bne    10$
  92.     message    <No debugging or logging is active>,cr
  93.     br    100$
  94.  
  95. 10$:    clr    r0
  96. 20$:    tst    200$(r0)
  97.     beq    70$
  98.     wrtall    205$(r0)
  99.     bit    200$(r0),trace
  100.     beq    30$
  101.     message    < ENABLED>
  102.     br    40$
  103. 30$:    message    < disabled>
  104. 40$:    .newline
  105.     tst    (r0)+
  106.     br    20$
  107.  
  108. 70$:    bit    #log$op    ,trace
  109.     beq    73$
  110.     message    <Logfile is >
  111.     wrtall    #logfil
  112.     message    <, cur/max blk: >
  113.     mov    #lun.lo    ,r1
  114.     asl    r1
  115.     mov    blknum(r1),r0
  116.     call    L10266
  117.     message    </>
  118.     mov    sizof(r1),r0
  119.     call    L10266
  120.     br    79$
  121. 73$:    message    <No LOGFILE is open>
  122. 79$:    .newline
  123. 100$:    return
  124.  
  125.     .save
  126.     .psect    $pdata
  127. 200$:    .word    log$pa    ,log$io    ,0
  128. 205$:    .word    220$    ,230$
  129. 220$:    .asciz    "Packet logging to logfile:"
  130. 230$:    .asciz    "Raw  Binary  I/O  logging:"
  131.     .even
  132.     .restore
  133.  
  134.     .dsabl    lsb
  135.  
  136.  
  137.     .sbttl    SHOW DEFAULT, SHOW HOME
  138.     .enabl    lsb
  139.  
  140. c$pwd::
  141. sho$df::call    sho$xx
  142.     br    sho$yy
  143.  
  144. sho$xx:    wrtall    #hoslug
  145.     wrtall    #dkname
  146.     .newline
  147.     br    1$
  148.  
  149. c$home::strcpy    #defdir    ,#dkname
  150. sho$yy::wrtall    #dkslug
  151.     wrtall    #defdir
  152.     .newline
  153. 1$:    clr    r0
  154.     return
  155.  
  156.     .save
  157.     .psect    $pdata
  158. hoslug:    .asciz    "HOME--> "
  159. dkslug:    .asciz    "DK  --> "
  160.     .even
  161.     .restore
  162.  
  163.     .dsabl    lsb
  164.  
  165.  
  166.     .sbttl    SHOW VERSION
  167.     .enabl    lsb
  168.  
  169. sho$ve::wrtall    #100$
  170.     wrtall    #sho.ve
  171.     .newline
  172.     return
  173.  
  174.     .save
  175.     .psect    $pdata
  176. 100$:    .ascii    "Kermit-11 for RX-based nonEIS RT-11SB,SJ,FB  "
  177.     .even
  178.     .restore
  179.  
  180.     .dsabl    lsb
  181.  
  182.  
  183.     .sbttl    SHOW FILE_TYPE
  184.     .enabl    lsb
  185.  
  186. sho$fi:    wrtall    #210$
  187.     tst    doauto
  188.     beq    1$
  189.     mov    #220$    ,r0
  190.     br    20$
  191. 1$:    mov    $image    ,r0
  192.     asl    r0
  193.     mov    200$(r0),r0
  194. 20$:    wrtall    r0
  195.     .newline
  196.     wrtall    #260$
  197.     tst    filprot
  198.     beq    26$
  199.     mov    #270$    ,r0
  200.     br    27$
  201. 26$:    mov    #300$    ,r0
  202. 27$:    wrtall    r0
  203.     .newline
  204.     wrtall    #350$
  205.     tst    rtvol
  206.     beq    130$
  207.     mov    #330$    ,r0
  208.     br    139$
  209. 130$:    mov    #320$    ,r0
  210. 139$:    wrtall    r0
  211.     .newline
  212.     wrtall    #360$
  213.     tst    csi.fake
  214.     beq    140$
  215.     mov    #400$    ,r0
  216.     br    199$
  217. 140$:    mov    #370$    ,r0
  218. 199$:    wrtall    r0
  219.     .newline
  220.     wrtall    #410$
  221.     mov    en$siz    ,r0
  222.     call    L10266
  223.     .newline
  224.     wrtall    #420$
  225.     wrtall    #ininam
  226.     .newline
  227.     return
  228.  
  229.     .save
  230.     .psect    $pdata
  231. 200$:    .word    230$ ,240$ ,250$
  232. 210$:    .asciz    "FILE_TYPE set to "
  233. 220$:    .asciz    "Auto ASCII/Binary"
  234. 230$:    .asciz    "ASCII"
  235. 240$:    .asciz    "BINARY (fixed 512, no carriage control)"
  236. 250$:    .asciz    "DEC_Multinational (8-bit text)"
  237. 260$:    .asciz    "Existing file protection: "
  238. 270$:    .asciz    "ENABLED"
  239. 300$:    .asciz    "disabled"
  240. 320$:    .asciz    "DISABLED"
  241. 330$:    .asciz    "enabled"
  242. 350$:    .asciz    "Volume  verification  is: "
  243. 360$:    .asciz    "Local comma CSI_Parsing:  "
  244. 370$:    .asciz    "real"
  245. 400$:    .asciz    "EMULATED"
  246. 410$:    .asciz    "File create_size blocks:  "
  247. 420$:    .asciz    "Init file: "
  248.     .even
  249.     .restore
  250.  
  251.     .dsabl    lsb
  252.  
  253.  
  254.     .sbttl     SHOW BLOCK_CHECK_TYPE
  255.     .enabl    lsb
  256.  
  257. sho$bl:    wrtall    #105$
  258.     movb    setchkt    ,r0
  259.     sub    #'1    ,r0
  260.     asl    r0
  261.     wrtall    100$(r0)
  262.     .newline
  263.     return
  264.  
  265.     .save
  266.     .psect    $pdata
  267. 100$:    .word    110$ ,120$ ,130$
  268. 105$:    .asciz    "Block_check_type: "
  269. 110$:    .asciz    "1_Byte_Checksum"
  270. 120$:    .asciz    "2_Byte_Checksum"
  271. 130$:    .asciz    "3_Byte_CRC_CCITT"
  272.     .even
  273.     .restore
  274.  
  275.     .dsabl    lsb
  276.  
  277.  
  278.     .sbttl    SHOW INCOMPLETE_FILE_DISPOSITION
  279.     .enabl    lsb
  280.  
  281. sho$in:    message    <Incomplete_file_disposition: >
  282.     tst    incfile
  283.     bne    1$
  284.     message    <KEEP>
  285.     br    3$
  286. 1$:    message    <discard>
  287. 3$:    .newline
  288.     return
  289.  
  290.     .dsabl    lsb
  291.  
  292.  
  293.     .sbttl    SHOW PARAMETERS
  294.  
  295. sho$pa:    call    sho$pk
  296.     call    sho$dl
  297.     call    sho$ps
  298.     call    sho$to
  299.     jmp    sho$rt
  300.  
  301.  
  302.     .sbttl    SHOW PACKET
  303.     .enabl    lsb
  304.  
  305. sho$pk:    call    sho$so
  306.     message    <RECEIVE  conpar+p.eol   EOL  >
  307.     clr    -(sp)
  308.     bisb    conpar+p.eol,@sp
  309.     mov    sp    ,r0
  310.     call    unfmts
  311.     wrtall    r0
  312.     call    tag.it
  313.     clr    (sp)
  314.     bisb    senpar+p.eol,@sp
  315.     message    <SEND     senpar+p.eol   EOL  >
  316.     mov    sp    ,r0
  317.     call    unfmts
  318.     wrtall    r0
  319.     call    tag.it
  320.     tst    (sp)+
  321.     message    <RECEIVE nominal packet  LEN>
  322.     movb    conpar+p.spsiz,r0
  323.     decout    r0
  324.     .newline
  325.     message    <SEND    nominal packet  LEN>
  326.     movb    senpar+p.spsiz,r0
  327.     decout    r0
  328.     .newline
  329.     message    <SEND  set packet limit  LEN>
  330.     decout    senlen
  331.     .newline
  332.     message    <LONG_PACKETS set locally to>
  333.     tst    dolong
  334.     bne    1$
  335.     message    <   OFF>
  336.     br    2$
  337. 1$:    decout    reclng
  338. 2$:    .newline
  339.     message    <LONG_PACKETS _received_ LEN>
  340.     decout    senlng
  341.     .newline
  342.     message    <LONG_PACKETS max avail buff>
  343.     decout    #maxlng
  344.     .newline
  345.     return
  346.  
  347.  
  348.     .sbttl    SHOW TIME_OUT
  349.  
  350. sho$to:    message    <TIME_OUT  REC  seconds wait>
  351.     decout    rectim
  352.     .newline
  353.     message    <TIME_OUT  SEND seconds wait>
  354.     decout    sentim
  355.     .newline
  356.     message    <TIME_OUT _received_ seconds>
  357.     movb    conpar+p.time,r0
  358.     decout    r0
  359.     .newline
  360.     return
  361.  
  362.  
  363.     .sbttl    SHOW RETRY
  364.  
  365. sho$rt:    message    <RETRY initial_connect limit>
  366.     decout    initry
  367.     .newline
  368.     message    <RETRY max for other packets>
  369.     decout    maxtry
  370.     .newline
  371.     return
  372.  
  373.     .dsabl    lsb
  374.  
  375.  
  376.     .sbttl    Display a control char in "^n" notation
  377.  
  378. tag.it:    message    <  ^>
  379.     mov    2(sp)    ,r0
  380.     movb    lis.ct(r0),r0
  381.     call    writ1char
  382.     .newline
  383.     return
  384.  
  385.     .save
  386.     .psect    $pdata
  387. lis.ct:    .ascii    "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]~?"
  388.     .even
  389.     .restore
  390.  
  391.  
  392.     .sbttl    STATUS
  393.     .enabl    lsb
  394.  
  395. c$stat::sub    #120    ,sp
  396.     wrtall    #300$
  397.     clr    r3
  398.     mov    #27.    ,r4
  399.     mov    sp    ,r5
  400.     br    15$
  401.  
  402. 10$:    mov    sp    ,r5
  403.     tst    pcnt.r+2(r3)
  404.     bne    15$
  405.     tst    pcnt.s+2(r3)
  406.     bne    15$
  407.     mov    totp.s    ,r1
  408.     add    r3    ,r1
  409.     tst    2(r1)
  410.     bne    15$
  411.     mov    totp.r    ,r1
  412.     add    r3    ,r1
  413.     tst    2(r1)
  414.     beq    90$
  415. 15$:    mov    r5    ,r1
  416.     mov    #110    ,r2
  417. 20$:    movb    #space    ,(r1)+
  418.     sob    r2    ,20$
  419.     mov    r3    ,r1
  420.     beq    30$
  421.     asr    r1
  422.     asr    r1
  423.     add    #100    ,r1
  424.     movb    r1    ,(r5)+
  425.     br    40$
  426. 30$:    movb    #'A&137    ,(r5)+
  427.     movb    #'L&137    ,(r5)
  428.     movb    #'L&137    ,1(r5)
  429. 40$:    add    #5    ,r5
  430.     mov    #pcnt.s    ,r1
  431.     call    200$
  432.     mov    #pcnt.r    ,r1
  433.     call    200$
  434.     mov    totp.s    ,r1
  435.     call    200$
  436.     mov    totp.r    ,r1
  437.     call    200$
  438.     movb    #cr    ,(r0)+
  439.     movb    #lf    ,(r0)+
  440.     clrb    @r0
  441.     mov    sp    ,r0
  442.     wrtall    r0
  443. 90$:    add    #4    ,r3
  444.     dec    r4
  445.     beq    99$
  446.     jmp    10$
  447.  
  448. 99$:    clr    txflag
  449.     wrtall    #310$
  450.     mov    sp    ,r4
  451.     message    <Bytes >
  452.     tst    charout
  453.     bne    70$
  454.     tst    charout+2
  455.     beq    77$
  456. 70$:    message    <sent:    >
  457.     mov    #charout,r1
  458.     mov    sp    ,txflag
  459.     br    79$
  460. 77$:    message    <received:>
  461.     mov    #charin    ,r1
  462. 79$:    call    190$
  463.  
  464.     message    <For data bytes:>
  465.     tst    txflag
  466.     bne    83$
  467.     mov    #filein    ,r1
  468.     br    85$
  469. 83$:    mov    #fileout,r1
  470. 85$:    call    190$
  471. 100$:    add    #120    ,sp
  472.     clr    r0
  473.     return
  474.  
  475. 190$:    clr    r2
  476.     mov    r4    ,r0
  477.     call    $cddmg
  478.     movb    #cr    ,(r0)+
  479.     movb    #lf    ,(r0)+
  480.     clrb    @r0
  481.     sub    r4    ,r0
  482.     sub    #15    ,r0
  483.     neg    r0
  484.     mov    r0    ,r2
  485.     mov    #space    ,r0
  486. 193$:    call    writ1ch
  487.     sob    r2    ,193$
  488.     wrtall    r4
  489.     return
  490.  
  491. 200$:    add    r3    ,r1
  492.     clr    r2
  493.     mov    r5    ,r0
  494.     call    $cddmg
  495.     add    #14    ,r5
  496.     return
  497.  
  498.     .save
  499.     .psect    $rwdata    ,rw,d,lcl,rel,con
  500. txflag:    .word    0
  501.  
  502.     .psect    $pdata
  503. 300$:    .ascii    " ----------------- Packet Stats -----------------"<cr><lf>
  504.     .asciz    "Type  Last Sent   Last Rec    Prev Sent   Prev Rec"<cr><lf>
  505. 310$:    .asciz    " --- Last Transaction ---"<cr><lf>
  506.     .even
  507.     .restore
  508.  
  509.     .dsabl    lsb
  510.  
  511.  
  512.     .sbttl    SHOW DELAY, SHOW PAUSE
  513.  
  514. sho$ps:    message    <PAUSE secs before send_pack>
  515.     decout    pauset
  516.     .newline
  517.     return
  518.  
  519. sho$dl:    message    <DELAY secs before send_init>
  520.     decout    sendly
  521.     .newline
  522.     return
  523.  
  524.  
  525.     .sbttl    SHOW PARITY
  526.  
  527. sho$pr:    message    <S/W Parity is set >
  528.     mov    parity    ,r0
  529.     asl    r0
  530.     wrtall    parlst(r0)
  531.     .newline
  532.     return
  533.  
  534.     .save
  535.     .psect    $pdata
  536. parlst:    .word    5$ ,10$ ,20$ ,30$ ,40$
  537. 5$:    .asciz    "NONE"
  538. 10$:    .asciz    "ODD"
  539. 20$:    .asciz    "EVEN"
  540. 30$:    .asciz    "MARK"
  541. 40$:    .asciz    "SPACE"
  542.     .even
  543.     .restore
  544.  
  545.  
  546.     .sbttl    SHOW TERMINAL, SHOW ATTRIBUTES
  547.     .enabl    lsb
  548.  
  549. sho$tt:    mov    vttype    ,r0
  550.     message    <Terminal is set >
  551.     asl    r0
  552.     wrtall    ttlst(r0)
  553.     message    <, >
  554.     tst    infomsg
  555.     beq    10$
  556.     message    <NO>
  557. 10$:    message    <QUIET, >
  558.     call    sho$sl
  559.     return
  560.  
  561. sho$at:    message    <Attribute packet transmission is >
  562.     tst    doattr
  563.     bne    39$
  564.     message    <DISABLED>
  565.     br    40$
  566. 39$:    message    <ENABLED>
  567. 40$:    .newline
  568.     return
  569.  
  570.     .save
  571.     .psect    $pdata
  572. ttlst:    .word    1$ ,2$ ,3$ ,4$
  573. 1$:    .asciz    "NOSCOPE"
  574. 2$:    .asciz    "TTY"
  575. 3$:    .asciz    "VT100"
  576. 4$:    .asciz    "VT200"
  577.     .even
  578.     .restore
  579.  
  580.     .dsabl    lsb
  581.  
  582.  
  583.     .sbttl    SHOW START_OF_PACKET
  584.  
  585. sho$so:    message    <RECEIVE start of packet SOH  >
  586.     mov    recsop    ,-(sp)
  587.     bic    #^c177    ,@sp
  588.     mov    sp    ,r0
  589.     call    unfmts
  590.     wrtall    r0
  591.     call    tag.it
  592.     message    <SEND    start of packet SOH  >
  593.     mov    sensop    ,@sp
  594.     bic    #^c177    ,@sp
  595.     mov    sp    ,r0
  596.     call    unfmts
  597.     wrtall    r0
  598.     call    tag.it
  599.     tst    (sp)+
  600.     return
  601.  
  602.  
  603.     .sbttl    SHOW BINARY_TYPE
  604.     .enabl    lsb
  605.  
  606.     HOWIDE    =    10.
  607.  
  608. sho$bt:    message    <BINARY_TYPE file extents: >
  609.     mov    bintyp    ,r1
  610. 20$:    mov    #howide    ,r2
  611.     .newline
  612. 30$:    tstb    @r1
  613.     beq    40$
  614.     message    < *>
  615.     mov    #4    ,r3
  616. 33$:    movb    (r1)+    ,r0
  617.     call    writ1char
  618.     sob    r3    ,33$
  619.     sob    r2    ,30$
  620.     br    20$
  621. 40$:    cmp    #howide    ,r2
  622.     beq    100$
  623.     .newline
  624. 100$:    return
  625.  
  626.     .dsabl    lsb
  627.  
  628.  
  629.     .sbttl    SHOW SL
  630.     .enabl    lsb
  631.  
  632. sho$sl::message    <SL status: >
  633.     tst    sl.on
  634.     bne    1$
  635.     message    <OFF>
  636.     br    2$
  637. 1$:    message    <ON>
  638. 2$:    mov    #comma    ,r0
  639.     call    writ1char
  640.     tst    sl.ked
  641.     bne    3$
  642.     message    <NO>
  643. 3$:    message    <KED>
  644.     .newline
  645.     return
  646.  
  647.     .dsabl    lsb
  648.  
  649.  
  650.     .sbttl    SHOW SERVER
  651.  
  652. sho$sv:    message    <Server time_out: >
  653.     mov    serwait    ,r0
  654.     call    L10266
  655.     message    < seconds>,cr
  656.     return
  657.  
  658.  
  659.     .sbttl    SHOW REPEAT_QUOTING
  660.     .enabl    lsb
  661.  
  662. sho$rp:    message    <Repeated character quoting: >
  663.     tst    setrpt
  664.     bne    10$
  665.     message    <DISABLED>
  666.     br    100$
  667. 10$:    message    <enabled>
  668. 100$:    .newline
  669.     return
  670.  
  671.     .dsabl    lsb
  672.  
  673.  
  674.     .sbttl    The RENAME command
  675.     .enabl    lsb
  676.  
  677. c$rena::upcase    argbuf
  678.     call    gettwo
  679.     tst    r0
  680.     bne    100$
  681.     upcase    argbuf
  682.     calls    rename    ,<cmdbuf,argbuf>
  683.     tst    r0
  684.     bne    90$
  685.     tst    infomsg
  686.     beq    100$
  687.     wrtall    #srcnam
  688.     wrtall    #290$
  689.     wrtall    #filnam
  690.     .newline
  691.     br    100$
  692. 90$:    direrr    r0
  693. 100$:    return
  694.  
  695.     .save
  696.     .psect    $pdata
  697. 290$:    .asciz    " renamed to "
  698.     .even
  699.     .restore
  700.  
  701.     .dsabl    lsb
  702.  
  703.  
  704.     .sbttl    The DELETE command
  705.     .enabl    lsb
  706.  
  707. c$del::    upcase    argbuf
  708.     calls    delete    ,<argbuf>
  709.     tst    r0
  710.     bne    90$
  711.     tst    infomsg
  712.     beq    100$
  713.     wrtall    #srcnam
  714.     wrtall    #290$
  715.     br    100$
  716. 90$:    direrr    r0
  717. 100$:    return
  718.  
  719.     .save
  720.     .psect    $pdata
  721. 290$:    .asciz    " deleted"<cr><lf>
  722.     .even
  723.     .restore
  724.  
  725.     .dsabl    lsb
  726.  
  727.  
  728.     .sbttl    PRINT, COPY commands
  729.     .enabl    lsb
  730.  
  731. c$prin::upcase    argbuf
  732.     strcpy    cmdbuf    ,argbuf
  733.     scan    #'.    ,cmdbuf
  734.     tst    r0
  735.     bne    2$
  736.     strcat    cmdbuf    ,#typdef
  737. 2$:    strcpy    argbuf    ,#200$
  738.     br    c.print
  739.  
  740. c$copy::upcase    argbuf
  741.     call    gettwo
  742.     tst    r0
  743.     bne    100$
  744.     upcase    argbuf
  745.  
  746. c.print:mov    argbuf    ,r2
  747.     calls    namcvt    ,<r2,#spare1>
  748.     tstb    spare1
  749.     bne    19$
  750.     calls    namcvt    ,<cmdbuf,#spare1>
  751.     strcat    r2    ,#spare1
  752. 19$:    calls    fparse    ,<cmdbuf,#srcnam>
  753.     clr    index
  754.     calls   lookup  ,<#srcnam,#spare1>
  755.     .purge    #lun.sr
  756.     calls    copy    ,<cmdbuf,r2>
  757.     tst    r0
  758.     bne    40$
  759.     tst    infomsg
  760.     beq    100$
  761.     mov    r1    ,r0
  762.     call    L10266
  763.     wrtall    #210$
  764.     dec    r1
  765.     beq    30$
  766.     mov    #'s!40    ,r0
  767.     call    writ1char
  768. 30$:    wrtall    #220$
  769.     wrtall    #filnam
  770.     .newline
  771.     clr    r0
  772.     br    100$
  773. 40$:    direrr    r0
  774. 100$:    return
  775.  
  776.     .save
  777.     .psect    $pdata
  778. 200$:    .asciz    "LP:"
  779. 210$:    .asciz    " block"
  780. 220$:    .asciz    " copied to "
  781. typdef:    .asciz    ".LST"
  782.     .even
  783.     .restore
  784.  
  785.     .dsabl    lsb
  786.  
  787.  
  788.     .sbttl    Get second argument for a command
  789.     .enabl    lsb
  790.  
  791.     CVTARG    = C.CRLF ! C.LSPA ! C.SSPA ! C.TSPA
  792.  
  793. gettwo::save    <r1,r2>
  794.     mov    argbuf    ,r2
  795.     tstb    @r2
  796.     beq    100$
  797.     dec    r2
  798. 10$:    inc    r2
  799.     tstb    @r2
  800.     beq    20$
  801.     cmpb    @r2    ,#space
  802.     bne    10$
  803.     clrb    (r2)+
  804.     strcpy    cmdbuf    ,argbuf
  805.     strcpy    argbuf    ,r2
  806.     br    30$
  807.  
  808. 20$:    mov    argbuf    ,r2
  809.     strcpy    cmdbuf    ,r2
  810.     calls    readcmd    ,<r2,#200$>
  811.     tst    r0
  812.     bne    100$
  813.     calls    cvt$$    ,<r2,r1,#cvtarg>
  814.     tst    r0
  815.     beq    20$
  816.     add    r2    ,r0
  817.     clrb    @r0
  818. 30$:    clr    r0
  819. 100$:    unsave    <r2,r1>
  820.     return
  821.  
  822.     .save
  823.     .psect    $pdata
  824. 200$:    .asciz    "To: "
  825.     .even
  826.     .restore
  827.  
  828.     .dsabl    lsb
  829.  
  830.     .end
  831.