home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pdp11 / k11def.mac < prev    next >
Text File  |  2020-01-01  |  3KB  |  88 lines
  1.     .sbttl    PACKET types (edited from VMS Kermit)
  2.  
  3.  
  4. ;     Note that the use of the '=:' direct assignment will
  5. ;    ensure that these rather long names are unique in the
  6. ;    first 6 characters.
  7.  
  8.  
  9. ; Protocol version 1.0 message types
  10.  
  11.     MSG$DATA    =: 'D & 137    ; Data packet
  12.     MSG$ACK        =: 'Y & 137    ; Acknowledgement
  13.     MSG$NAK        =: 'N & 137    ; Negative acknowledgement
  14.     MSG$SND        =: 'S & 137    ; Send initiate
  15.     MSG$BREAK    =: 'B & 137    ; Break transmission
  16.     MSG$FILE    =: 'F & 137    ; File header
  17.     MSG$EOF        =: 'Z & 137    ; End of file (EOF)
  18.     MSG$ERROR    =: 'E & 137    ; Error
  19.  
  20. ; Protocol version 2.0 message types
  21.  
  22.     MSG$RCV        =: 'R & 137    ; Receive initiate
  23.     MSG$COMMAND    =: 'C & 137    ; Host command
  24.     MSG$GENERIC    =: 'G & 137    ; Generic KERMIT command.
  25.     MSG$KERMIT    =: 'K & 137    ; Perform KERMIT command (text)
  26.  
  27. ; Protocol version 4.0 message types
  28.  
  29.     MSG$SER        =: 'I & 137    ; Server initialization
  30.     MSG$TEXT    =: 'X & 137    ; Text header message
  31.     MSG$ATR        =: 'A & 137    ; Attribute packet
  32.  
  33. ;++
  34. ; Generic KERMIT commands
  35. ;--
  36.  
  37.     GN$LOGIN    =: 'I & 137    ; Login
  38.     GN$EXIT        =: 'F & 137    ; Finish (exit to OS)
  39.     GN$CONNECT    =: 'C & 137    ; Connect to a directory
  40.     GN$BYE        =: 'L & 137    ; Logout
  41.     GN$DIRECTORY    =: 'D & 137    ; Directory
  42.     GN$DISK        =: 'U & 137    ; Disk usage
  43.     GN$DELETE    =: 'E & 137    ; Delete a file
  44.     GN$TYPE        =: 'T & 137    ; Type a file specification
  45.     GN$SUBMIT    =: 'S & 137    ; Submit
  46.     GN$PRINT    =: 'P & 137    ; Print
  47.     GN$WHO        =: 'W & 137    ; Who's logged in
  48.     GN$SEND        =: 'M & 137    ; Send a message to a user
  49.     GN$HELP        =: 'H & 137    ; Help
  50.     GN$QUERY    =: 'Q & 137    ; Query status
  51.     GN$RENAME    =: 'R & 137    ; Rename file
  52.     GN$COPY        =: 'K & 137    ; Copy file
  53.     GN$PROGRAM    =: 'P & 137    ; Run program and pass data
  54.     GN$JOURNAL    =: 'J & 137    ; Perform journal functions
  55.     GN$VARIABLE    =: 'V & 137    ; Return/set variable state
  56.  
  57. ;
  58. ; Acknowledgement modifiers (protocol 4.0)
  59. ;
  60.  
  61.     ABT$ERROR    =: 'E & 137
  62.     ABT$CUR        =: 'X & 137    ; Abort current file
  63.     ABT$ALL        =: 'Z & 137    ; Abort entire stream of files
  64.  
  65. ;
  66. ; End of file packet modifier
  67. ;
  68.  
  69.     EOF$DISCARD    =: 'D & 137    ; Discard data from previous file
  70.  
  71.  
  72.  
  73.  
  74.     STA.ABO    =:    'A&137        ; state is 'abort'
  75.     STA.ATR    =:    'H&137        ; state is 'send attributes'
  76.     STA.BRK    =:    'B&137        ; state is 'break link'
  77.     STA.CCA    =:    100        ; into control C abort
  78.     STA.COM    =:    'C&137        ; state is 'transaction complete'
  79.     STA.DAT    =:    'D&137        ; state is 'data'
  80.     STA.EOF    =:    'Z&137        ; state is 'end of file/reply'
  81.     STA.FIL    =:    'F&137        ; state is 'filename header'
  82.     STA.INI    =:    'I&137        ; state is 'init'
  83.     STA.RIN    =:    'R&137        ; state is 'receive init'
  84.     STA.SIN    =:    'S&137        ; state is 'send    init'
  85.     STA.TYP    =:    'X&137        ; state is 'extended reply'
  86.  
  87.  
  88.