home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ibm370 / iktker.upd < prev    next >
Text File  |  2020-01-01  |  45KB  |  642 lines
  1. ./ *           Update summary:
  2. ./ * SC93342 - Use date transmitted with file (CMS only)
  3. ./ * SC94074 - NAK bad data packet instead of re-ACKing previous
  4. ./ * SC94174 - WHATAMI option for file type
  5. ./ * SC94181 - Implement level-1 restart/recovery mode (TSO)
  6. ./ * SC94245 - More accurate statistics after server transfers
  7. ./ * SC94262 - Leave room for table expansion (TSO)
  8. ./ * SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
  9. ./ * SC95032 - Allow Recovery into almost-full file system
  10. ./ * SC95033 - Update to level 4.3.1
  11. ./ * SC95059 - Preserve transmitted time tag for RESENT file
  12. ./ * SC95108 - Prevent error-free transfers from halting TAKE files
  13. ./ * SC95174 - Implement REGET subcommand
  14. ./ * SC95283 - Fix PDS "prefix" (TSO)
  15. ./ * SC96122 - Avoid endless double transmission from windowed Kermit
  16. ./ * SC96151 - Add system ID to INIT packets
  17. ./ * SC96158 - Never skip sending an I-packet while in remote mode
  18. ./ * SC96165 - Correct handling of dates in 2000's (TSO)
  19. ./ * SC97028 - Clear 'Kermit command error' condition correctly
  20. ./ * SC97164 - Update to level 4.3.2
  21. ./ * SC99043 - Insist on MOD date for non-ISPF PDS members (TSO): 4.3.3
  22. ./ *                  .....Updates.....
  23. ./ * SC93342 - Use date transmitted with file (CMS only)
  24. ./ I 01416400          $ 1416500 100                  09/01/94 21:20:42
  25.          SSYMS ,                                               @SC93342
  26. ./ D 01416800                                         09/01/94 21:20:42
  27. ./ * SC94074 - NAK bad data packet instead of re-ACKing previous
  28. ./ I 01917000          $ 1917200 200                  03/15/94 16:25:11
  29.          CLI   STYPE,AY      See if sent a plain ACK           @SC94074
  30.          BNE   *+12          No, resend whatever it was        @SC94074
  31.           CLI  DATLSN,0      "plain" only if no data           @SC94074
  32.           BE   SENDNAK       Yes, send a NAK                   @SC94074
  33. ./ R 02579000          $ 2579000 1000                 03/15/94 16:25:11
  34. DATL     DS    F             Size of data in packet (S or R)   @SC94074
  35. ./ I 02617000          $ 2617200 200                  03/15/94 16:25:11
  36. DATLSN   DS    X             Data length in last packet sent   @SC94074
  37. ./ I 08466500          $ 8466600 100                  03/15/94 16:25:11
  38.          STC   9,DATLSN      Copy length of data sent, if any  @SC94074
  39. ./ * SC94174 - WHATAMI option for file type
  40. ./ I 01424200          $ 1424300 100                  06/23/94 22:46:07
  41. AUND     EQU   95            ASCII underscore                  @SC94174
  42. ./ I 02082200          $ 2082300 100                  06/23/94 22:46:07
  43.          MVI   WHATRU,0      No valid value anymore            @SC94174
  44. ./ R 02492000          $ 2492000 500                  06/24/94 00:00:08
  45.          DC    AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL)         @SC94174
  46. ./ I 02680000          $ 2680500 500                  06/23/94 18:34:18
  47. WHATRU   DS    X             Mode info from other Kermit       @SC94174
  48. ./ R 02716000          $ 2716000 500                  06/24/94 00:00:08
  49.          DS    AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL)         @SC94174
  50. ./ D 08159500 08160000                                06/24/94 01:36:05
  51. ./ I 08167500          $ 8167600 100                  06/24/94 01:36:05
  52.          TM    RCAPA,LONGP   Test for long packet bit          @SC94174
  53.          BZ    SPARNX        No extended packets               @SC94174
  54. ./ I 08168500          $ 8168510 10                   06/23/94 18:26:14
  55.          BAL   14,SPARFTCH   Get checkpoint flag               @SC94174
  56. *        UNCHR 4,,SCKPNT     Save for later                    @SC94174
  57.          XR    1,1           Clear checkpoint length           @SC94174
  58.          LA    15,3                                            @SC94174
  59. SPARCKPL MH    1,XLFCT+2     Shift left                        @SC94174
  60.          BAL   14,SPARFTCH   Get next checkpoint length byte   @SC94174
  61.          UNCHR 4                                               @SC94174
  62.          AR    1,4                                             @SC94174
  63.          BCT   15,SPARCKPL                                     @SC94174
  64. *        ST    1,SCKINT                                        @SC94174
  65.          BAL   14,SPARFTCH   Get WHATAMI                       @SC94174
  66.          UNCHR 4,,WHATRU                                       @SC94174
  67.          TM    WHATRU,X'20'  Valid?                            @SC94174
  68.          BZ    SPARWHT       No, skip it                       @SC94174
  69.          TM    FL2,SRV       Acting as server?                 @SC94174
  70.          BZ    SPARWHT       No, skip it                       @SC94174
  71.          IC    0,FL1         Get my file-type flag             @SC94174
  72.          SRL   0,1           Shift BINF (4) to 2-bit           @SC94174
  73.          XR    0,4           Compare (client 2-bit is binary)  @SC94174
  74.          N     0,F2          Do they match?                    @SC94174
  75.          BZ    SPARWHT       Yes, all set                      @SC94174
  76.          XI    FL1,BINF      No, switch my setting             @SC94174
  77.          MVI   TYPFIL,C'T'   Also set the subflag              @SC94174
  78.          TM    FL1,BINF                                        @SC94174
  79.          BZ    SPARWHT                                         @SC94174
  80.          MVI   TYPFIL,C'B'                                     @SC94174
  81. SPARWHT  DS    0H                                              @SC94174
  82. ./ R 08219000          $ 8219000 100                  06/23/94 18:26:14
  83.          MVI   10(9),ABL     Window size is blank              @SC86295
  84. ./ R 08229500          $ 8229500 200                  06/23/94 18:26:14
  85.          BNH   RPARS1        KMAX >= RPSIZ                     @SC94174
  86. ./ R 08230500          $ 8230500 200                  06/23/94 18:26:14
  87.          SH    5,=H'7'       Allow for long header             @SC94174
  88. ./ D 08231500                                         06/24/94 00:00:08
  89. ./ R 08233500 08234000 $ 8233400 100                  06/23/94 18:26:14
  90.          MVC   13(4,9),DEFPARM+13 No ckpt support              @SC94174
  91.          LA    4,X'24'       Bits always on in WHATAMI         @SC94174
  92.          TM    FL1,BINF      Binary?                           @SC94174
  93.          BZ    *+8                                             @SC94174
  94.           LA   4,2(,4)       Yes                               @SC94174
  95.          TM    FL2,SRV       Server mode?                      @SC94174
  96.          BZ    *+8                                             @SC94174
  97.           LA   4,1(,4)       Yes                               @SC94174
  98.          TOCHR 4,,17(9)                                        @SC94174
  99.          LA    0,18          Size of data including WHATAMI    @SC94174
  100. ./ * SC94181 - Implement level-1 restart/recovery mode (TSO)
  101. ./ I 00937500          $ 937600 100                   06/29/94 18:55:26
  102. FDBSIZEB DS    F             File size in bytes                @SC94181
  103. ./ I 01413600          $ 1413700 100                  09/14/94 15:49:04
  104.          GBLC  &AAARSND,&AUPDATE                               @SC94181
  105. ./ I 01460400          $ 1460500 100                  06/28/94 18:25:34
  106. &AAARSND SETC 'RESEND'          cmd, m=3                       @SC94181
  107. ./ I 01475800          $ 1475900 100                  09/20/94 21:29:31
  108. &AUPDATE SETC 'UPDATE'          kwd->COLLISN                   @SC94181
  109. ./ I 02119000          $ 2119100 100                  09/21/94 15:17:19
  110.          CLI   ERRNUM,ERRTRC Canceled?                         @SC94181
  111.          BNE   LDERR2                                          @SC94181
  112.          CLI   REASON,STACNDAT Date too early?                 @SC94181
  113.          BER   14            Not an error                      @SC94181
  114.          CLI   REASON,STACNDSC Simply a duplicate?             @SC94181
  115.          BER   14            Not an error                      @SC94181
  116. LDERR2   DS    0H                                              @SC94181
  117. ./ R 02494000          $ 2494000 500                  06/28/94 18:25:34
  118.          DC    X'38'         Capabilities I have        SCAPA  @SC94181
  119. ./ R 03033000          $ 3033000 80                   06/28/94 18:25:34
  120.          KW    '&AAARSND',KRMSND,R,MIN=3                       @SC94181
  121. SNDKCMD  KW    '&AAASEND',KRMSND,MIN=3                         @SC94181
  122.          ORG   SNDKCMD+KWCODE                                  @SC94181
  123.          DC    X'0'          Normal send has no disp code      @SC94181
  124.          ORG   ,                                               @SC94181
  125. ./ R 03034500          $ 3034500 100                  10/15/94 18:25:34
  126. XTYKCMD  KW    '&AAXTYPE',KRMNPS,MIN=2                         @SC94181
  127.          ORG   XTYKCMD+KWCODE                                  @SC94181
  128.          DC    X'0'          Normal send has no disp code      @SC94181
  129.          ORG   ,                                               @SC94181
  130. ./ R 03081000          $ 3081000 200                  06/28/94 18:25:34
  131. KRMSND   MVC   USNCOD,KWCODE(1) Save send command abbrev       @SC94181
  132.          PTEXT '&SYSFSPC - ',AREG=1,LREG=0                     @SC94181
  133. ./ R 03094000 03095000 $ 3094000 90                   09/21/94 16:45:10
  134. KRMSNDBG SR    1,1                                             @SC94181
  135.          ICM   1,1,USNCOD    Get send command code             @SC94181
  136.          BZ    USNSND3       Fine, no special disposition      @SC94181
  137.          TM    SCAPA,8       Can we do attributes?             @SC94181
  138.          BZ    USNSNDX       No, give up right away            @SC94181
  139.          TM    ATFL2,ATFDSP  Disposition attribute enabled?    @SC94181
  140.          BZ    USNSNDX       No, can't do it                   @SC94181
  141.          TM    ATFLG,ATFTYP  Type attribute enabled?           @SC94181
  142.          BZ    USNSNDX       Can't do it                       @SC94181
  143.          TM    ATFL4,ATFEND  End-of-atts attribute enabled?    @SC94181
  144.          BZ    USNSNDX       Can't do it                       @SC94181
  145.          TM    FL1,BINF      Are we binary?                    @SC94181
  146.          BZ    USNSNDX1      No, can't do it                   @SC94181
  147. USNSND3  IC    1,ETOAD(1)    Use ASCII version of Disp code    @SC94181
  148.          XC    LEN,LEN       Clear length of Disp options      @SC94181
  149.          KCALL SEND                                            @SC94181
  150. KRMXFZ   BAL   14,LDERR      Get massaged error code           @SC94181
  151. ./ I 03096000          $ 3096080 80                   06/28/94 18:25:34
  152.          B     USNSNDZ                                         @SC94181
  153. USNSNDX  WTEXT '&ATTRIBU &AZDISAB'                             @SC94181
  154.          B     USNSNDZ                                         @SC94181
  155. USNSNDX1 WTEXT '&CANNOT.&AAARSND ->&AAAABIN'                   @SC94181
  156. USNSNDZ  DS    0H                                              @SC94181
  157. ./ I 03105000          $ 3105200 200                  06/28/94 18:25:34
  158.          MVI   USNCOD,0      No special disposition            @SC94181
  159. ./ I 03130500          $ 3130700 200                  06/28/94 18:25:34
  160. USNCOD   DS    X             Temporary flags for SEND/RESEND   @SC94181
  161. ./ I 03192000          $ 3192200 200                  09/20/94 21:29:31
  162.          KW    '&AUPDATE',SETCLSN,U                            @SC94181
  163. ./ R 03754000          $ 3754000 100                  09/20/94 21:29:31
  164. STACNTB  DC    C'-&ATTUNK.-&ATTLEN.-&ATTTYP'                   @SC94181
  165. STACNDAT EQU   (*-STACNTB)/8 Date reason code                  @SC94181
  166.          DC    C'-&ATTDAT.'                                    @SC94181
  167. ./ R 03756500          $ 3756500 100                  09/20/94 16:08:33
  168.          DC    (31-(*-STACNTB)/8)CL8'-??'                      @SC94181
  169. STACNDSC EQU   (*-STACNTB)/8 One extra reason (not in A-packet)@SC94181
  170.          DC    C'-&COLLIS.'                                    @SC94181
  171. ./ I 06180500          $ 6180600 100                  06/29/94 18:53:13
  172.          ST    7,FDBSIZEB    Save                              @SC94181
  173. ./ I 07683000          $ 7683100 100                  06/28/94 18:25:34
  174.          CLI   SNDDSP,AR     Trying to recover?                @SC94181
  175.          BNE   SNDFIL        No, fine                          @SC94181
  176.          TM    RCAPA,X'10'   Yes, can the other Kermit do it?  @SC94181
  177.          BZ    SNDCMDER      No.  Give up                      @SC94181
  178. ./ I 07685000          $ 7685200 200                  06/28/94 18:25:34
  179.          XC    SNDBLEN,SNDBLEN Clear "recovery" length         @SC94181
  180. ./ I 07757500          $ 7757530 30                   06/28/94 18:25:34
  181.          CLI   SNDDSP,AR     Trying to recover?                @SC94181
  182.          BNE   SNDPKLX       No                                @SC94181
  183.          CLC   DATL,F3       Any byte length?                  @SC94181
  184.          BL    SNDPKLX       No                                @SC94181
  185.          CLI   0(1),A1       Is this it?                       @SC94181
  186.          BNE   SNDPKLX       No                                @SC94181
  187.          UNCHR 7,1(1)        Yes, get length of number string  @SC94181
  188.          LA    6,2(,1)       Ptr to numeric string             @SC94181
  189.          LR    14,7                                            @SC94181
  190.          BCTR  14,0                                            @SC94181
  191.          EX    14,SNDTRAT                                      @SC94181
  192.          BAL   14,GETNUM     Get file length                   @SC94181
  193.           LA   0,0           Default is to send all            @SC94181
  194.          ST    0,SNDBLEN     Save expected size                @SC94181
  195. ./ I 07760500          $ 7760700 200                  06/28/94 18:25:34
  196. SNDTRAT  TR    0(,6),ATOED   Convert to EBCDIC for decoding    @SC94181
  197. ./ I 07765000          $ 7765050 50                   06/28/94 18:25:34
  198.          L     5,SNDBLEN     Length to skip                    @SC94181
  199. SNDRECL  LTR   5,5           Any more?                         @SC94181
  200.          BNP   SNDENC        No, start sending                 @SC94181
  201.          KCALL INBUF,E=SNDEND                                  @SC94181
  202.          S     5,RBUFL       Data length in RBUF               @SC94181
  203.          BNM   SNDRECL       Keep skipping                     @SC94181
  204.          A     5,RBUFL       Must use part of this buffer      @SC94181
  205.          ST    5,RBUFP       Index of next char in RBUF        @SC94181
  206. ./ I 07797000          $ 7797200 200                  12/19/94 15:58:18
  207. SNDEND   MVC   DATL,F0       End while restarting: do nothing  @SC94181
  208. ./ I 07809000          $ 7809060 60                   09/21/94 15:58:18
  209.          CLI   ERRNUM,ERRTRC Cancelled?                        @SC94181
  210.          BNE   SNDBRKA       No, it's a solid error            @SC94181
  211.          CLI   REASON,STACNDAT Refused as duplicate (date)?    @SC94181
  212.          BE    SNDBRKP       Yes, not really an error          @SC94181
  213.          CLI   REASON,STACNDSC Refused as duplicate?           @SC94181
  214.          BE    SNDBRKP       Yes, not really an error          @SC94181
  215. SNDBRKA  DS    0H                                              @SC94181
  216. ./ I 07833000          $ 7833200 200                  06/28/94 18:25:34
  217. SNDBLEN  DS    F             Length to skip in resending file  @SC94181
  218. ./ R 07864500 07875500 $ 7865500 500                  06/29/94 20:43:04
  219. RECOVR   XC    FILFLGS,FL3   Set flag for DISP                 @SC94181
  220.          NI    FILFLGS,255-APPN-SVATT                          @SC90033
  221.          XC    FILFLGS,FL3                                     @SC86295
  222.          TM    RCAPA,X'18'   Attributes, including End?        @SC94181
  223.          BNO   RECCOL        No, do collision test now         @SC94181
  224.          TM    SCAPA,X'08'   Am I expecting A-packets?         @SC94181
  225.          BNO   RECCOL        No, do collision test now         @SC94181
  226.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC94181
  227.          BO    RECOPN        Yes, defer collision test         @SC94181
  228. RECCOL   KCALL TCOLL,E=(RECOPN,Z)                              @SC94181
  229. ./ R 07879000 07883500 $ 7879000 1000                 06/29/94 20:43:04
  230. RECOPN   DS    0H                                              @SC94181
  231. ./ I 07892500          $ 7892560 60                   06/30/94 14:49:18
  232.          MVI   RECDISP,0     No disposition specified          @SC94181
  233.          TM    RCAPA,X'18'   Does he promise End attribute?    @SC94181
  234.          BNO   RECDAT        No, let it ride                   @SC94181
  235.          TM    SCAPA,X'08'   Am I expecting A-packets          @SC94181
  236.          BNO   RECDAT        No, but I'll accept them          @SC94181
  237.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC94181
  238.          BNO   RECDAT        No, let it ride                   @SC94181
  239.          LA    8,RECAST      Ok, accept only A-packets for now @SC94181
  240. ./ I 07896500          $ 7896600 100                  06/29/94 21:14:51
  241.          L     2,FSIZE       Default lrecl                     @SC94181
  242.          ICM   0,15,FILPTR   Already opened?                   @SC94181
  243.          BNZ   RECDATO       Yes, fine                         @SC94181
  244. ./ I 07899500          $ 7899700 200                  06/29/94 21:14:51
  245. RECDATO  DS    0H                                              @SC94181
  246. ./ R 07908000          $ 7908000 100                  06/30/94 14:49:18
  247. RECDAK   XC    DATL,DATL     Set length to zero                @SC94181
  248. RECDAKL  BAL   2,SENDACKL    Send an ack                       @SC94181
  249. ./ R 07927000          $ 7927000 200                  09/20/94 16:42:43
  250.          BNZ   RECADTX       Invalid, stop now                 @SC94181
  251. ./ R 07930500          $ 7930500 200                  09/20/94 16:42:43
  252.          BH    RECADTX       Too big, stop now                 @SC94181
  253. ./ R 07932000          $ 7932000 200                  09/20/94 16:42:43
  254.          BNE   RECADTX       No, illegal                       @SC94181
  255. ./ R 07940500          $ 7940500 200                  09/20/94 16:42:43
  256.           BNE  RECADTX       No, error                         @SC94181
  257. ./ I 07942500          $ 7942600 100                  09/20/94 16:42:43
  258. RECADTX  MVI   ERRNUM,ERRIPS Bad syntax                        @SC94181
  259.          B     RECABR        Quit                              @SC94181
  260. ./ I 07945000          $ 7945200 200                  06/30/94 16:32:21
  261.          XC    DATL,DATL     Normally no data on ACK           @SC94181
  262. ./ R 07946000          $ 7946000 200                  06/30/94 16:32:21
  263.          BNL   RECDAKL       No, done                          @SC94181
  264. ./ R 07947000          $ 7947000 200                  06/30/94 16:32:21
  265.          BO    RECDAKL       Yes, ignore further attributes    @SC94181
  266. ./ I 07951000          $ 7951100 100                  06/30/94 14:49:18
  267.          CLC   FILPTR,F0     End attribute already seen?       @SC94181
  268.          BNE   RECRJC        Yes, this is forbidden            @SC94181
  269. ./ R 07959000          $ 7959000 200                  06/28/94 18:25:34
  270. RECDSPCD DC    AL1(11),AL3(RECADI) + - Disposition             @SC94181
  271. ./ R 07994500          $ 7994500 200                  06/28/94 18:25:34
  272. RECADI   MVC   RECDISP,0(6)  Save disp code                    @SC94181
  273.          BAL   2,RECALKP                                       @SC94181
  274. ./ I 07996000          $ 7996300 300                  06/28/94 18:25:34
  275.          DC    AL1(AR),AL3(RECCKL) Recover                     @SC94181
  276. ./ R 08026000 08026500 $ 8025800 20                   06/30/94 14:49:18
  277. RECAZZ   DS    0H            End of attributes, must be last   @SC94181
  278.          CLI   RECDISP,AR    Recover?                          @SC94181
  279.          BNE   RECAZ2        No, fine                          @SC94181
  280.          TM    FL1,BINF      Yes, make sure binary             @SC94181
  281.          BZ    RECRJD        Oops, can't do it                 @SC94181
  282.          BAL   14,RDWSET     Decide which kind of binary       @SC94181
  283.          OI    FILFLGS,APPN  Yes, must append                  @SC94181
  284. RECAZ2   TM    RCAPA,X'18'   Did other Kermit promise End att? @SC94181
  285.          BNO   RECAZ3        No, already tested collision      @SC94181
  286.          KCALL TCOLL,E=RECRJC Do it now                        @SC94181
  287. RECAZ3   XC    DATL,DATL                                       @SC94181
  288.          CLI   RECDISP,AR    Recover?                          @SC94181
  289.          BNE   RECAZ4        No, fine                          @SC94181
  290.          SR    4,4           Ok, get exact length of file      @SC94181
  291.          OPENF T,FILNAM,E=RECBLCZ Does it exist?               @SC94181
  292.          CLI   TYPFIL,C'B'   Ordinary binary?                  @SC94181
  293.          BE    RECBLCA       Yes, try shortcut                 @SC94181
  294.          MVC   FDBSIZEB-FDBD(4,1),F0 No, can't trust n*lrecl   @SC94181
  295. RECBLCA  ICM   4,15,FDBSIZEB-FDBD(1) Yes, get length, if poss. @SC94181
  296.          BNZ   RECBLCZ       Ok, got it                        @SC94181
  297.          OPENF I,FILNAM,FILFDB,FILPTR,E=RECBLCZ                @SC94181
  298. RECBLCL  KCALL INBUF,E=RECBLCZ                                 @SC94181
  299.          A     4,RBUFL       (Doing it the hard way)           @SC94181
  300.          B     RECBLCL                                         @SC94181
  301. RECBLCZ  CLOSF FILPTR        Done, close file for input        @SC94181
  302.          NI    FL1,255-EOF   Clear eof condition               @SC94181
  303.          ST    4,RECBLEN     Got total length                  @SC94181
  304.          LTR   4,4           Any?                              @SC94181
  305.          BZ    RECAZ4        No, just process normally         @SC94181
  306.          LA    0,512                                           @SC94181
  307.          ALR   0,4           Round to nearest K                @SC94181
  308.          SRL   0,10                                            @SC94181
  309.          L     6,FILFSIZ     Size of promised file             @SC94181
  310.          SLR   6,0           Amount to be sent and appended    @SC94181
  311.          BC    3,*+6         Ok                                @SC94181
  312.           SLR  6,6           All received already!             @SC94181
  313.          ST    6,FILFSIZ     Corrected size for space check    @SC94181
  314.          L     6,ASDATA      Output buffer                     @SC94181
  315.          MVI   0(6),A1       Byte-length attribute code        @SC94181
  316.          LA    15,2(,6)                                        @SC94181
  317.          BAL   2,EDDEC       Format it (clobbers R8!)          @SC94181
  318.          TR    2(9,6),ETOAD  Convert plenty to ASCII           @SC94181
  319.          SR    15,6                                            @SC94181
  320.          ST    15,DATL       Length of data field              @SC94181
  321.          LA    4,ABL-2(,15)  Number of digits (printably)      @SC94181
  322.          STC   4,1(,6)                                         @SC94181
  323. RECAZ4   DS    0H                                              @SC94181
  324.          KCALL ACCTNM,FILNAM Insert revised name, if necessary @SC94181
  325.          OPENF O,FILNAM,FILFDB,FILPTR,E=RECRJA                 @SC94181
  326.          USING FDBD,1                                          @SC94181
  327.          MVC   FSIZE,FABLRTR Copy LRECL from effective length  @SC94181
  328.          MVC   FRECF,FDBRCF  Save info                         @SC94181
  329.          DROP  1                                               @SC94181
  330.          ICM   0,15,FILFSIZ  Expected size, if known           @SC94181
  331.          BZ    RECAZ5        Not known, proceed                @SC94181
  332.          OPENF S,FILNAM,FILFDB,FILPTR,E=RECRJLL Check disk spac@SC94181
  333.          XC    FILFSIZ,FILFSIZ  No need to repeat this test    @SC94181
  334. RECAZ5   DS    0H                                              @SC94181
  335.          LA    8,RECANST     Now accept D-packets              @SC94181
  336. ./ I 08027500          $ 8027550 50                   06/28/94 18:25:34
  337. RECRJD   MVC   REASON,RECDSPCD Because of disposition          @SC94181
  338.          B     RECRJC                                          @SC94181
  339. RECRJLL  MVC   REASON,RECLNCOD Because of length               @SC94181
  340.          B     RECRJC                                          @SC94181
  341. RECRJA   MVI   REASON,6      Because of "area" (couldn't open) @SC94181
  342.          B     RECRJC                                          @SC94181
  343. ./ I 08034500          $ 8034700 200                  06/30/94 17:17:14
  344.          LA    8,RECANST     Accept A, D, or Z now             @SC94181
  345. ./ R 08036000 08036500 $ 8036000 200                  06/30/94 16:32:21
  346.          B     RECDAKL       Acknowledge                       @SC94181
  347. ./ I 08041500          $ 8041700 200                  10/28/94 22:42:46
  348.          L     5,FILPTR                                        @SC94181
  349. ./ I 08042000          $ 8042100 100                  10/28/94 22:42:46
  350.          LTR   5,5           Was the file actually open?       @SC94181
  351.          BZ    RECKEP        No, don't worry about it          @SC94181
  352. ./ R 08058500          $ 8058500 70                   09/21/94 15:17:19
  353.          BZ    RECBRKA       No, that's fine                   @SC94181
  354.          CLI   REASON,STACNDAT Refused as duplicate (date)?    @SC94181
  355.          BE    RECBRKA       Yes, not really an error          @SC94181
  356.          CLI   REASON,STACNDSC Refused as duplicate?           @SC94181
  357.          BNE   RECERP        No, send an error packet          @SC94181
  358. RECBRKA  DS    0H                                              @SC94181
  359. ./ R 08079000          $ 8079000 200                  09/21/94 01:21:04
  360. *        DC    XL1'FF',AL3(RECABR)   Stop (same as unknown)    @SC94181
  361. ./ D 08081500                                         09/21/94 01:21:04
  362. ./ R 08084000          $ 8084000 200                  06/30/94 14:49:18
  363.          DC    AL1(00),AL3(RECABR)   Error return              @SC94181
  364. RECAST   DC    AL1(AA),AL3(RECCKA)   Micro sent A-packet       @SC94181
  365. ./ I 08089500          $ 8089600 100                  06/28/94 18:25:34
  366. RECBLEN  DS    F             Length of recovery file           @SC94181
  367. RECDISP  DS    X             Requested disposition             @SC94181
  368. ./ I 08113500          $ 8113540 40                   10/28/94 22:42:46
  369. *
  370. * Copy file name from (R1) to current file table entry, if any @SC94181
  371. ACCTNM   ENTER ALT                                             @SC94181
  372.          L     3,NSENT       Number of current file            @SC94181
  373.          C     3,NSENTAC     Off the end?                      @SC94181
  374.          BNE   RTRN0         Yes, quit now                     @SC94181
  375.          BCTR  3,0           Ok, get offset                    @SC94181
  376.          MH    3,FLFID1+2    Times length of items             @SC94181
  377.          A     3,TSENT       Loc in sent-table                 @SC94181
  378.          MVC   ACTFID,0(1)   Save filespec                     @SC94181
  379.          B     RTRN0                                           @SC94181
  380. ./ R 08985500          $ 8986000 500                  06/29/94 20:43:04
  381.          TITLE 'TCOLL Routine - test for collision (RECEIV)'   @SC94181
  382. * Exit: R15=0 if ok (use name in FILNAM), else reject          @SC94181
  383. TCOLL    ENTER ,                                               @SC94181
  384.          TM    FILFLGS,APPN  Appending to old file?            @SC94181
  385.          BO    RTRN0         Yes, just do it                   @SC94181
  386.          CLI   CLSNFL,C'U'                                     @SC94181
  387.          BE    *+12          Update option overrides "warn"    @SC94181
  388.           TM   FL1,REN                                         @SC94181
  389.           BZ   RTRN0         No, just do it                    @SC94181
  390.          LA    0,FFNEW                                         @SC86295
  391.          KCALL FSPEC,FILNAM,E=RTRN1  Check collisions          @SC94181
  392.          TM    FL4,NMCHNG                                      @SC90033
  393.          BZ    RTRN0                                           @SC90033
  394.          CLI   CLSNFL,C'B'                                     @SC90033
  395.          BNE   TCLTSTD                                         @SC90033
  396.          LA    2,FILNAM      Must back up original file        @SC90033
  397.          LA    0,15          Rename it to unique new name      @SC90033
  398.          KCALL DISKIO,XFILE,E=RTRN1  Give up if rename fails   @SC90264
  399.          CLI   TRMLIN,C' '   Alt. line?                        @SC90033
  400.          BE    TCLBZ         No, be quiet                      @SC90033
  401.          INITSTR '&BACKDUP',CMD,REG=7                          @SC92300
  402.          LA    1,FILNAM                                        @SC90033
  403.          BAL   2,STAFSP      Format backup name and show it    @SC90033
  404. TCLBZ    MVC   FILNAM,XFILE  Now, just use intended name       @SC90033
  405. TCLMSG   DS    0H                                              @SC90033
  406.          CLI   TRMLIN,C' '   Alt. line?                        @SC87300
  407.          BE    RTRN0         No, be quiet                      @SC94181
  408.          INITSTR '&RECVDAS',CMD,REG=7  Yes, display message    @SC92300
  409.          LA    1,FILNAM                                        @SC87300
  410.          BAL   2,STAFSP      Format name and show it           @SC87300
  411.          B     RTRN0                                           @SC94181
  412. TCLTSTD  CLI   CLSNFL,C'D'                                     @SC90033
  413.          BNE   TCLTSTU       See if UPDATE                     @SC94181
  414.          MVI   REASON,STACNDSC Reason is collision (DISCARD)   @SC94181
  415.          B     RTRN1                                           @SC94181
  416. TCLTSTU  CLI   CLSNFL,C'U'                                     @SC94181
  417.          BNE   TCLMSG        Other case is just "rename"       @SC94181
  418.          CLI   FDATE,0                                         @SC94181
  419.          BE    TCLOKU                                          @SC94181
  420.          OPENF T,XFILE,E=TCLOKU Look at existing file          @SC94181
  421.          USING FDBD,1                                          @SC94181
  422.          CLI   FDBDATE,0     Is there a time tag?              @SC94181
  423.          BE    TCLOKU        No, skip this test                @SC94181
  424.          CLC   FDATE,FDBDATE Is the incoming file newer?       @SC94181
  425.          BH    TCLOKU        Yes, overwrite the file           @SC94181
  426.          DROP  1                                               @SC94181
  427.          MVI   REASON,STACNDAT No, reason is date              @SC94181
  428.          B     RTRN1                                           @SC94181
  429. TCLOKU   MVC   FILNAM,XFILE  Restore original name             @SC94181
  430.          B     RTRN0                                           @SC94181
  431.          LOCALS ,                                              @SC94181
  432.          EXIT  ,                                               @SC94181
  433.          END   KERMIT
  434. ./ * SC94245 - More accurate statistics after server transfers
  435. ./ R 02084000          $ 2084000 500                  05/29/92 ->4.3<-
  436.          LR    15,7          Get time supplied as "end"        @SC94245
  437. ./ I 07824500          $ 7824600 100                  05/29/92 ->4.3<-
  438.          KCALL SUPFNC,10     Get time of completion            @SC94245
  439.          LR    7,15          Save for statistics               @SC94245
  440. ./ I 08060500          $ 8060700 200                  05/29/92 ->4.3<-
  441.          KCALL SUPFNC,10     Say completion time is now        @SC94245
  442.          ST    15,RECTIMZ    Save                              @SC94245
  443. ./ R 08070000          $ 8070000 200                  05/29/92 ->4.3<-
  444. RECERP   KCALL SUPFNC,10     Say completion time is now        @SC94245
  445.          ST    15,RECTIMZ    Save                              @SC94245
  446.          KCALL ERPACK        Send error packet                 @SC94245
  447. ./ I 08070500          $ 8070700 200                  05/29/92 ->4.3<-
  448.          L     7,RECTIMZ                                       @SC94245
  449. ./ I 08089500          $ 8089550 50                   05/29/92 ->4.3<-
  450. RECTIMZ  DS    F             Ending time of transfer           @SC94245
  451. ./ * SC94262 - Leave room for table expansion (TSO)
  452. ./ R 01415400          $ 1415400 200                  09/30/93 14:45:03
  453. &KDATE   SETC  '94/09/20'                                      @SC94262
  454. ./ R 01513000          $ 1513000 100                  09/20/94 17:56:54
  455.          L     3,PTATOED                                       @SC94262
  456.          MVC   ATOE,0(3)                                       @SC94262
  457. ./ R 01515000          $ 1515000 1000                 09/20/94 17:56:54
  458.          MVC   TATOE,0(3)                                      @SC94262
  459. ./ R 01893000          $ 1893000 300                  09/20/94 17:56:54
  460.          L     4,PTATOED                                       @SC94262
  461.          TR    0(LEMSG,1),0(4) Convert to EBCDIC               @SC94262
  462. ./ I 02453000          $ 2453200 200                  09/20/94 17:56:54
  463. PTATOED  DC    A(ATOED)      Address of ASCII-to-EBCDIC def.   @SC94262
  464. ./ I 02519000          $ 2519500 500                  09/20/94 17:56:54
  465. DEFTBLS  CSECT                                                 @SC94262
  466. ./ I 02536000          $ 2536500 500                  09/20/94 17:56:54
  467. COMMON   CSECT                                                 @SC94262
  468. ./ R 03354000          $ 3354000 200                  09/20/94 17:56:54
  469. SETTAT2  L     2,PTATOED     Address of original               @SC94262
  470. ./ R 03635000          $ 3635000 100                  09/20/94 17:56:54
  471.          L     8,PTATOED                                       @SC94262
  472.          TR    TMP,0(8)      Convert to EBCDIC                 @SC94262
  473. ./ R 03840000          $ 3840000 200                  09/20/94 17:56:54
  474. GIVA1    L     0,PTATOED                                       @SC94262
  475. ./ I 05050000          $ 5050200 200                  09/20/94 20:32:10
  476.          L     14,PTATOED                                      @SC94262
  477. ./ R 05052000          $ 5052000 200                  09/20/94 20:32:10
  478. FSPTRAE  TR    0(,5),0(14)                                     @SC94262
  479. ./ R 07610500          $ 7610500 200                  09/20/94 17:56:54
  480.           L    14,PTATOED    Use default if "transparent"      @SC94262
  481. ./ R 07690000          $ 7690000 100                  09/20/94 17:56:54
  482.          L     2,PTATOED                                       @SC94262
  483.          TR    0(250,15),0(2) Back to EBCDIC                   @SC94262
  484. ./ I 07757800          $ 7757810 10                   09/20/94 17:56:54
  485.          L     4,PTATOED                                       @SC94262
  486. ./ R 07760700          $ 7760700 100                  09/20/94 17:56:54
  487. SNDTRAT  TR    0(,6),0(4)    Convert to EBCDIC for decoding    @SC94262
  488. ./ R 07859000          $ 7859000 100                  09/20/94 17:56:54
  489.          L     14,PTATOED                                      @SC94262
  490.          TR    0(256,1),0(14) Convert to std EBCDIC            @SC94262
  491. ./ I 07925500          $ 7925700 200                  09/20/94 17:56:54
  492.          L     4,PTATOED                                       @SC94262
  493. ./ R 07973000          $ 7973000 100                  09/20/94 17:56:54
  494.          L     14,PTATOED                                      @SC94262
  495.          IC    4,0(4,14)     Ok, set file type as well         @SC94262
  496. ./ I 07978500          $ 7978700 200                  09/20/94 17:56:54
  497.          L     4,PTATOED                                       @SC94262
  498. ./ I 07984000          $ 7984200 200                  09/20/94 17:56:54
  499.          L     4,PTATOED                                       @SC94262
  500. ./ R 07987500          $ 7987500 200                  09/20/94 17:56:54
  501. RECTRAT  TR    0(,6),0(4)    Convert to EBCDIC for decoding    @SC94262
  502. ./ R 08013000          $ 8013000 100                  09/20/94 17:56:54
  503.          L     1,PTATOED                                       @SC94262
  504.          TR    0(94,4),0(1)  Convert to EBCDIC                 @SC94262
  505. ./ R 08397000          $ 8397000 100                  09/20/94 17:56:54
  506.          L     4,PTATOED                                       @SC94262
  507.          TR    0(5,6),0(4)   No, must be 5-byte ASCII prefix   @SC94262
  508. ./ R 08584000          $ 8584000 100                  09/20/94 17:56:54
  509.          L     4,PTATOED                                       @SC94262
  510.          TR    STOPBUF,0(4)                                    @SC94262
  511. ./ * SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
  512. ./ R 01415400          $ 1415400 200                  01/23/95 11:12:19
  513. &KDATE   SETC  '95/01/23'                                      @SC95023
  514. ./ I 01422200          $ 1422300 100                  01/23/95 11:12:19
  515. AESC     EQU   27            ASCII ESC                         @SC95023
  516. ./ I 01424000          $ 1424100 100                  01/23/95 11:12:19
  517. ABSL     EQU   92            ASCII backslash                   @SC95023
  518. ./ I 03028500          $ 3028700 200                  01/23/95 11:12:19
  519.          KW    'APC',USNAPC,MIN=3                              @SC95023
  520. ./ I 03103000          $ 3103030 30                   01/23/95 11:12:19
  521. *
  522. USNAPC   L     5,ADR         Pointer to rest of line           @SC95023
  523.          ICM   4,15,LEN      Remaining data length             @SC95023
  524.          BNP   KRMXPEH       Go if nothing specified           @SC95023
  525.          L     3,RBUF                                          @SC95023
  526.          ICM   0,2,ATOE+AESC Get special wrapper for APC       @SC95023
  527.          ICM   0,1,ATOE+AUND Must use current EBCDIC codes     @SC95023
  528.          STCM  0,3,0(3)                                        @SC95023
  529.          MVC   2(256,3),0(5) Copy to disk read buffer          @SC95023
  530.          AR    4,3           Get end                           @SC95023
  531.          ICM   0,1,ATOE+ABSL Closing wrapper                   @SC95023
  532.          STCM  0,3,2(4)                                        @SC95023
  533.          LA    4,4(4)        Account for wrapper               @SC95023
  534.          B     USNAPC1                                         @SC95023
  535. ./ D 03105200                                         01/23/95 11:12:19
  536. ./ I 03106500          $ 3106700 200                  01/23/95 11:12:19
  537. USNAPC1  MVI   USNCOD,0      No special disposition            @SC95023
  538. ./ R 07765100          $ 7765100 50                   01/23/95 19:14:24
  539.          LTR   5,5           Any?                              @SC95023
  540. ./ R 07765200          $ 7765200 50                   01/23/95 19:14:24
  541. SNDRECL  KCALL INBUF,E=SNDEND                                  @SC95023
  542. ./ R 07765300          $ 7765300 50                   01/23/95 19:14:24
  543.          BH    SNDRECL       Keep skipping                     @SC95023
  544. ./ * SC95032 - Allow Recovery into almost-full file system
  545. ./ R 01415400          $ 1415400 200                  02/01/95 12:29:03
  546. &KDATE   SETC  '95/02/01'                                      @SC95032
  547. ./ I 07986000          $ 7986080 80                   02/01/95 16:54:31
  548.          TM    RCAPA,X'18'   Attributes, including End?        @SC95032
  549.          BNO   RECAL3        No, do space test now             @SC95032
  550.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC95032
  551.          BO    RECCKL        Yes, defer space test             @SC95032
  552. RECAL3   DS    0H                                              @SC95032
  553. ./ * SC95033 - Update to level 4.3.1
  554. ./ R 01415400 01415600 $ 1415400 200                  02/02/95 12:29:03
  555. &KDATE   SETC  '95/02/02'                                      @SC95033
  556. &KEDIT   SETC  '1'                                             @SC95033
  557. ./ * SC95059 - Preserve transmitted time tag for RESENT file
  558. ./ I 08026040          $ 8026050 10                   02/28/95 19:49:43
  559.          MVC   RECBDAT,FDATE Save date for output file         @SC95059
  560. ./ I 08026280          $ 8026290 10                   02/28/95 19:49:43
  561.          MVC   FDATE,RECBDAT Restore date for output file      @SC95059
  562. ./ I 08089600          $ 8089650 50                   02/28/95 19:49:43
  563. RECBDAT  DS    XL7           Saved date for output file        @SC95059
  564. ./ * SC95108 - Prevent error-free transfers from halting TAKE files
  565. ./ I 02116000          $ 2116500 500                  04/18/95 18:47:43
  566. * Set CC according to R15.                                     @SC95108
  567. ./ R 02120000          $ 2120490 490                  04/18/95 18:47:43
  568.          ICM   15,1,ERRNUM   Return status code                @SC95108
  569. ./ * SC95174 - Implement REGET subcommand
  570. ./ R 01413700          $ 1413700 40                   06/23/95 21:21:34
  571.          GBLC  &AAARSND,&AUPDATE,&AAARGET                      @SC95174
  572. ./ I 01460400          $ 1460450 50                   06/23/95 21:21:34
  573. &AAARGET SETC 'REGET'           cmd, m=3                       @SC95174
  574. ./ R 03030500          $ 3030500 200                  06/23/95 21:13:35
  575.          KW    '&AAAAGET',KRMGET,R                             @SC95174
  576. ./ I 03032000          $ 3032200 200                  06/23/95 21:13:35
  577.          KW    '&AAARGET',KRMGET,J,MIN=3                       @SC95174
  578. ./ R 03034700          $ 3034700 40                   06/23/95 21:13:35
  579.          DC    X'0'          Normal type has no disp code      @SC95174
  580. ./ R 03052500          $ 3052500 100                  06/23/95 21:13:35
  581. KRMGET   MVC   USNCOD,KWCODE(1) Save send command abbrev       @SC95174
  582.          PTEXT '&FORFSPC - ',AREG=1,LREG=0                     @SC95174
  583. ./ R 03065000          $ 3065000 100                  06/23/95 21:13:35
  584.          MVC   STYPE,USNCOD  Type = receive initiate (R/J)     @SC95174
  585.          TR    STYPE,ETOAD                                     @SC95174
  586. ./ I 07508500          $ 7508700 200                  06/23/95 21:13:35
  587.          DC    AL1(AJ),AL3(SRVSND)  Micro wants to get a file  @SC95174
  588. ./ R 07530500          $ 7530500 100                  06/23/95 21:13:35
  589.          SR    1,1           Normal send is code 0             @SC95174
  590.          CLI   RTYPE,AJ      Is it a REGET?                    @SC95174
  591.          BNE   *+8                                             @SC95174
  592.           LA   1,AR          Yes, use the RESEND code          @SC95174
  593.          KCALL SEND                                            @SC95174
  594. ./ * SC95283 - Fix PDS "prefix" (TSO)
  595. ./ I 05085000          $ 5085100 100                  10/10/95 15:37:19
  596.          LA    5,FSPTAB      Use table for normal DSNAMEs      @SC95283
  597. ./ * SC96122 - Avoid endless double transmission from windowed Kermit
  598. ./ R 01917400 01917800 $ 1917400 100                  05/02/96 20:09:53
  599.          BNE   SENDRTA       No, resend whatever it was        @SC96122
  600.          CLI   DATLSN,0      "plain" only if no data           @SC96122
  601.          BNE   SENDRTA       No, resend whatever it was        @SC96122
  602.          CLC   RSN,SSN       Yes, did we rereceive the prev?   @SC96122
  603.          BNE   SENDNAK       No, must be bad packet, send NAK  @SC96122
  604. SENDRTA  DS    0H                                              @SC96122
  605. ./ I 02619000          $ 2619100 100                  05/02/96 20:09:53
  606. SSN      DS    X             Last sent pkt number              @SC96122
  607. ./ I 08473000          $ 8473200 200                  05/02/96 20:09:53
  608.          MVC   SSN,SEQ       Save an extra copy                @SC96122
  609. ./ * SC96151 - Add system ID to INIT packets
  610. ./ R 08234300          $ 8234250 50                   05/31/96 22:26:14
  611.          MVC   18(LSYSATR-1,9),SYSATR+1 Copy system ID         @SC96151
  612.          LA    0,18+LSYSATR-1   Size of data including ID      @SC96151
  613. ./ * SC96158 - Never skip sending an I-packet while in remote mode
  614. ./ I 01934000          $ 1934300 300                  06/06/96 23:14:40
  615.          CLI   TRMLIN,C' '   Alt. line?                        @SC96158
  616.          BE    IPKGO         No, send I-packet regardless      @SC96158
  617. ./ I 01936000          $ 1936500 500                  06/06/96 23:14:40
  618. IPKGO    DS    0H                                              @SC96158
  619. ./ * SC96165 - Correct handling of dates in 2000's (TSO)
  620. ./ R 06150500          $ 6150500 200                  06/13/96 15:55:21
  621.          CVB   6,TMPDW       Get 0YYYDDD in binary             @SC96165
  622. ./ D 06155000                                         06/13/96 15:55:21
  623. ./ I 06165500          $ 6165700 200                  06/13/96 15:55:21
  624.          LA    7,1900(,7)    Convert to calendar               @SC96165
  625. ./ R 06166500          $ 6166500 200                  06/13/96 15:55:21
  626.          MVO   FDBDATE(3),TMPDW Copy year                      @SC96165
  627. ./ D 06177000 06178500                                06/13/96 15:55:21
  628. ./ * SC97028 - Clear 'Kermit command error' condition correctly
  629. ./ I 02279000          $ 2279500 500                  01/28/97 20:49:24
  630. LUPWRT   WTEXT (3),(4)                                         @SC97028
  631. ./ R 02288000          $ 2288000 500                  01/28/97 20:49:24
  632.          WTEXT (3),(4)                                         @SC97028
  633. ./ * SC97164 - Update to level 4.3.2
  634. ./ R 01415400 01415600 $ 1415400 200                  06/13/97 12:29:03
  635. &KDATE   SETC  '97/06/13'                                      @SC97164
  636. &KEDIT   SETC  '2'                                             @SC97164
  637. ./ * SC99043 - Insist on MOD date for non-ISPF PDS members (TSO): 4.3.3
  638. ./ R 01415400 01415600 $ 1415400 200                  02/12/99 13:09:20
  639. &KDATE   SETC  '99/02/12'                                      @SC99043
  640. &KEDIT   SETC  '3'                                             @SC99043
  641. ./ D 06155500                                         02/12/99 13:09:20
  642.