home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / test / pdp11 / krtstd.mac < prev    next >
Text File  |  1996-10-17  |  4KB  |  135 lines
  1.     .title    KRTSTD    SET command list overlay
  2.     .ident    "V04.64"
  3.  
  4. ; /E64/    05-May-96  John Santos
  5. ;
  6. ;    Conditionalize for RSTS/E
  7.  
  8. ; /63/    23-Dec-94  Billy Youdelman
  9. ;
  10. ;    consolidate local data..
  11. ;    add SET WILDCARDS
  12.  
  13. ; /62/    27-Jul-93  Billy Youdelman  V03.62
  14. ;
  15. ;    move BREAK to SET CONSOLE, CREATE-SIZE and VOLUME to SET FILE
  16. ;    move SETTLE-TIME to SET DIAL ..
  17.  
  18. ; /BBS/     1-Dec-91  Billy Youdelman  V03.61
  19.  
  20. ;    23-Oct-85  09:44:20  BDN  Creation, removed from KRTCOM
  21. ;
  22. ;    Copyright 1985 Change Software, Inc.
  23. ;
  24. ;    Call LOASET to get the overlay loaded and
  25. ;    return the command list address in r0
  26.  
  27.  
  28.     .include "IN:KRTMAC.MAC"
  29.     .iif ndf  KRTINC  .error    <; .include for IN:KRTMAC.MAC failed>
  30.     .include "IN:KRTCDF.MAC"
  31.     .iif ndf  KRTCDF  .error    <; .include for IN:KRTCDF.MAC failed>
  32.  
  33.  
  34.     .psect    $pdata
  35.     .sbttl    Local data        ; /63/ consolidate data here..
  36.  
  37. std.01:    .asciz    "On, Off? "
  38. std.02:    .asciz    "Value: "
  39. std.03:    .asciz    "File type: "
  40. std.04:    .asciz    "1, 2 or 3? "
  41. .if df    RT11                ; /E64/
  42. std.05:    .asciz    "Line, Ports or Units? "
  43. .endc    ;RT11                ; /E64/
  44. std.06:    .asciz    "Option: "
  45. std.07:    .asciz    "Unprefix or Prefix? "
  46. std.08:    .asciz    "Mode: "
  47. std.09:    .asciz    "Directory: "
  48. std.10:    .asciz    "Seconds: "
  49. std.11:    .asciz    "Half or Full? "
  50. std.12:    .asciz    "Octal 1-36: "
  51. std.13:    .asciz    "Exit, Noexit? "
  52. std.14:    .asciz    "ASCII, Auto or Binary? "
  53. std.15:    .asciz    "RTS/CTS or XOFF? "
  54. std.16:    .asciz    "Type? "
  55. std.17:    .asciz    "Keep or Discard? "
  56. std.18:    .asciz    "Device name: "
  57. std.19:    .asciz    "Modem name: "
  58. std.20:    .asciz    "Odd, Even, Mark, Space or None? "
  59. std.21:    .asciz    "New prompt: "
  60. std.22:    .asciz    "Initial or Packet? "
  61. std.23:    .asciz    "Random-number seed: "
  62. std.24:    .asciz    "On or Off, KED or NOKED? "
  63. std.25:    .asciz    "Interval: "
  64. .if df    RT11                ; /E64/
  65. std.26:    .asciz    "Local or Remote? "
  66. .endc    ;RT11                ; /E64/
  67.     .even
  68.  
  69.  
  70.     .psect    $code
  71.     .sbttl    Define the SET commands
  72.  
  73. loaset::mov    #setcmd    ,r0        ; calling this also loads this overlay
  74.     return
  75.  
  76.     command    setcmd    ,ATTRIBUTES    ,1    ,set$at    ,std.01
  77.     command setcmd    ,BAUD        ,2    ,set$sp    ,std.02
  78.     command    setcmd    ,BINARY-TYPE    ,2    ,set$bi    ,std.03
  79.     command    setcmd    ,BLOCK-CHECK-TYPE,2    ,set$bl    ,std.04
  80. .if df    RT11                ; /E64/
  81.     command setcmd    ,CL:        ,2    ,set$cl    ,std.05
  82. .endc    ;RT11                ; /E64/
  83.     command setcmd    ,CONSOLE    ,2    ,set$co    ,std.06
  84.     command setcmd    ,CONTROL-CHARACTER,4    ,set$ct    ,std.07
  85.     command setcmd    ,DEBUG        ,3    ,set$de    ,std.08
  86.     command setcmd    ,DEFAULT    ,3    ,c$cwd    ,std.09
  87.     command    setcmd    ,DELAY        ,3    ,set$dl    ,std.10
  88.     command setcmd    ,DIAL        ,2    ,set$di    ,std.06
  89.     command setcmd    ,DTR        ,2    ,set$dt
  90.     command setcmd    ,DUPLEX        ,2    ,set$du    ,std.11
  91.     command    setcmd    ,END-OF-LINE    ,2    ,set$eo    ,std.12
  92.     command setcmd    ,EOF        ,2    ,set$ef    ,std.13
  93.     command setcmd    ,ESCAPE        ,2    ,set$es    ,std.12
  94.     command    setcmd    ,FILE-TYPE    ,2    ,set$fi    ,std.14
  95.     command setcmd    ,FLOW-CONTROL    ,2    ,set$km    ,std.15
  96.     command setcmd    ,HANDSHAKE    ,2    ,set$ha    ,std.16
  97.     command setcmd    ,HOME        ,2    ,set$ho    ,std.09
  98.     command setcmd    ,INCOMPLETE-FILE-DISPOSITION ,1    ,set$in    ,std.17
  99. .if df    RT11                ; /E64/
  100.     command setcmd    ,LD:        ,2    ,set$ld    ,std.06
  101. .endc    ;RT11                ; /E64/
  102.     command setcmd    ,LINE        ,2    ,set$li    ,std.18
  103.     command setcmd    ,LOCAL-ECHO    ,3    ,set$lc    ,std.01
  104.     command setcmd    ,LOGFILE    ,3    ,set$lo
  105.     command setcmd    ,LONG-PACKETS    ,3    ,set$lp    ,std.01
  106.     command setcmd    ,MODEM-TYPE    ,1    ,set$mo    ,std.19
  107.     command    setcmd    ,NOATTRIBUTES    ,3    ,st$nat
  108.     command setcmd    ,NODEBUG    ,3    ,sd$off
  109.     command    setcmd    ,NOLONG-PACKETS    ,3    ,st$nlp
  110.     command setcmd    ,NOREPEAT-QUOTING,3    ,rep$of
  111.     command setcmd    ,NOUPDATE    ,3    ,set$nu
  112.     command    setcmd    ,PARITY        ,3    ,set$pa    ,std.20
  113.     command    setcmd    ,PAUSE        ,3    ,set$ps    ,std.10
  114.     command setcmd    ,PHONE        ,2    ,set$ph    ,std.06
  115.     command setcmd    ,PROMPT        ,2    ,set$pr    ,std.21
  116.     command setcmd    ,RANDOM        ,2    ,set$ra    ,std.01
  117.     command setcmd    ,RECEIVE    ,3    ,set$rc    ,std.06
  118.     command setcmd    ,REPEAT-QUOTING    ,3    ,set$rp    ,std.01
  119.     command    setcmd    ,RETRY        ,3    ,set$re    ,std.22
  120.     command setcmd    ,SEED        ,3    ,set$se    ,std.23
  121.     command    setcmd    ,SEND        ,3    ,set$sn    ,std.06
  122.     command setcmd    ,SERVER        ,3    ,set$sv    ,std.06
  123.     command setcmd    ,SL        ,2    ,set$sl    ,std.24
  124.     command setcmd    ,SPEED        ,2    ,set$sp    ,std.02
  125.     command    setcmd    ,START-OF-PACKET,2    ,set$so    ,std.12
  126.     command setcmd    ,TERMINAL    ,2    ,set$tt    ,std.16
  127.     command setcmd    ,TT:        ,2    ,set$tt    ,std.16
  128.     command setcmd    ,UPDATE        ,1    ,set$up    ,std.25
  129. .if df    RT11                ; /E64/
  130.     command    setcmd    ,VLSWCH        ,1    ,set$vl    ,std.26
  131. .endc    ;RT11                ; /E64/
  132.     command    setcmd
  133.  
  134.     .end
  135.