home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ibm370 / ikcker.upd < prev    next >
Text File  |  2020-01-01  |  56KB  |  830 lines
  1. :READ KERMIT CNTRL A1
  2.   TEXT MACS DMSSP CMSLIB TSOMAC OSMACRO
  3.   TEXT AUXOPT
  4.   TEXT AUXLCL
  5. :READ KERMCMS6 CNTRL A1
  6.   TEXT MACS DMSSP CMSLIB TSOMAC OSMACRO
  7.   TEXT AUXOPT
  8.   TEXT AUXSFS
  9.   TEXT AUXLCL
  10. :READ KERME370 CNTRL A1
  11.   TEXT MACS DMSOM DMSGPI OSMACRO
  12.   TEXT AUXOPT
  13.   TEXT AUXE370
  14.   TEXT AUXLCL
  15. :READ KERMIT AUXSFS A1
  16. SFS - Enable SFS support code (CMS)
  17. :READ KERMIT NOUPDTS A1
  18. ./ * No updates yet.
  19. ./ * (Invoked by null AUXLCL line: NOUPDTS YET)
  20. :READ KERMIT SFS A1
  21. ./ * SFS - Enable SFS support code (CMS)
  22. ./ R 01085700          $ 1085700 200                  03/16/92 11:54:06
  23. &CMSSFS  SETC  'YES'         CMS is equipped with SFS feature  @SFS@
  24. :READ KERMIT AUXE370 A
  25. SC97009 - Avoid clash between old assembler and DMSFINAE bug
  26. :READ KERMIT SC97009 A
  27. ./ * SC97009 - Avoid clash between old assembler and DMSFINAE bug
  28. ./ D 01023800 01023900                                01/09/97 18:57:37
  29. ./ D 05836060 05836070                                01/09/97 18:57:37
  30. :READ KERMY2K CNTRL A1
  31.   TEXT MACS DMSOM DMSGPI OSMACRO
  32.   TEXT AUXOPT
  33.   TEXT AUXY2K
  34.   TEXT AUXXA
  35.   TEXT AUXSFS
  36.   TEXT AUXLCL
  37. :READ KERMIT AUXY2K A1
  38. SC96338 - Full support for Y2000 (CMS)
  39. :READ KERMIT AUXLCL A1
  40. SC97164 - Update to level 4.3.2
  41. SC97028 - Clear 'Kermit command error' condition correctly
  42. SC96165 - Correct handling of dates in 2000's (CMS)
  43. SC96158 - Never skip sending an I-packet while in remote mode
  44. SC96151 - Add system ID to INIT packets
  45. SC96122 - Avoid endless double transmission from windowed Kermit
  46. SC95174 - Implement REGET subcommand
  47. SC95108 - Prevent error-free transfers from halting TAKE files
  48. SC95059 - Preserve transmitted time tag for RESENT file
  49. SC95048 - Close files in SFS properly (CMS)
  50. SC95033 - Update to level 4.3.1
  51. SC95032 - Allow Recovery into almost-full file system
  52. SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
  53. SC94262 - Leave room for table expansion (CMS)
  54. SC94245 - More accurate statistics after server transfers
  55. SC94181 - Implement level-1 restart/recovery mode (CMS)
  56. SC94174 - WHATAMI option for file type
  57. SC94074 - NAK bad data packet instead of re-ACKing previous
  58. SC93355 - Detect remote dedicated GRAF terminals (CMS)
  59. SC93342 - Use date transmitted with file (CMS)
  60. :READ KERMIT SC93342 A1
  61. ./ * SC93342 - Use date transmitted with file (CMS)
  62. ./ I 00994500          $ 994700 200                   12/08/93 18:01:27
  63. FABNDAT  DS    CL7           Intended date for output file     @SC93342
  64. ./ I 01008000          $ 1008500 500                  09/01/94 20:39:51
  65.          GBLC  &CMSSFS                                         @SC93342
  66. ./ I 01023700          $ 1023750 50                   09/01/94 18:10:17
  67. *
  68.          AIF   ('&CMSSFS' NE 'YES').CMSOD1                     @SC93342
  69. FINAEPL  DMSFINAE MF=L,MAXPARM=1 Reserve space for plist       @SC93342
  70. .CMSOD1  ANOP                                                  @SC93342
  71. ./ I 01100500          $ 1100700 200                  09/01/94 20:39:51
  72.          GBLC  &CMSSFS                                         @SC93342
  73. ./ I 01104500          $ 1104600 100                  09/01/94 18:10:17
  74.  MNOTE '--- (for SFS): DMSFINAE, DMSFINAT, DMSNADDR'           @SC93342
  75. ./ I 01110800          $ 1110820 20                   09/01/94 18:10:17
  76.          AIF   ('&CMSSFS' NE 'YES').CMSOD2                     @SC93342
  77.          DMSFINAT ,                                            @SC93342
  78.          DMSNADDR ,                                            @SC93342
  79. .CMSOD2  ANOP                                                  @SC93342
  80. ./ I 01416400          $ 1416500 100                  09/01/94 21:20:42
  81.          SSYMS ,                                               @SC93342
  82. ./ D 01416800                                         09/01/94 21:20:42
  83. ./ I 05820000          $ 5820200 200                  12/08/93 18:10:17
  84.          MVC   FABNDAT,FDATE Save date from other end          @SC93342
  85. ./ I 05836000          $ 5836010 10                   09/01/94 18:10:17
  86.          AIF   ('&CMSSFS' NE 'YES').CMSOD3                     @SC93342
  87.          CLC   F0,FABNDAT    Any date to fill in?              @SC93342
  88.          BE    DSKCLD3       No, just close normally           @SC93342
  89.          DMSKEY NUCLEUS                                        @SC93342
  90.          ENABLE INTTYPE=NONE                                   @SC93342
  91.          DMSFINAE FSCB=(3),SOURCE=EDF,DATEGEN=NO,              @SC93342+
  92.                DATETIM=FABNDAT+1,MF=(E,FINAEPL)                @SC93342
  93.          ENABLE INTTYPE=ALL                                    @SC93342
  94.          DMSKEY RESET                                          @SC93342
  95.          B     DSKCLOS2      All set                           @SC93342
  96. DSKCLD3  DS    0H                                              @SC93342
  97. .CMSOD3  ANOP                                                  @SC93342
  98. ./ I 05836500          $ 5836510 10                   12/08/93 18:10:17
  99.          AIF   ('&CMSSFS' EQ 'YES').CMSOD4                     @SC93342
  100.          CLC   F0,FABNDAT    Any date to fill in?              @SC93342
  101.          BE    DSKCLOS2      No, just close normally           @SC93342
  102.          DMSKEY NUCLEUS                                        @SC93342
  103.          LR    1,3           Point to disk plist               @SC93342
  104.          L     15,VCFSTLKW                                     @SC93342
  105.          BALR  14,15         Go get the FST address            @SC93342
  106.          LTR   15,15         Test return code                  @SC93342
  107.          BNZ   DSKCLDCL      Quit if none                      @SC93342
  108.          LR    8,1           Copy FST pointer                  @SC93342
  109.          LR    9,0           Copy ADT pointer                  @SC93342
  110.          USING FSTSECT,8                                       @SC90037
  111.          USING ADTSECT,9                                       @SC93342
  112.          L     15,ADTCHBA                                      @SC93342
  113.          USING DCHSECT,15                                      @SC93342
  114.          OI    DCHFLG1,DCHCHGD   Mark hyperblock changed       @SC93342
  115.          DROP  15                                              @SC93342
  116.          TM    ADTFLG4,ADTEDF    Test if output disk is EDF    @SC93342
  117.          BO    DSKCLD3                                         @SC93342
  118.          UNPK  TMPDW(3),FABNDAT+1(2) Unpack year               @SC93342
  119.          MVC   FSTYR,TMPDW   and copy to FST                   @SC93342
  120.          MVC   FSTD,FABNDAT+2 Copy date/time                   @SC93342
  121.          B     DSKCLD5                                         @SC93342
  122. DSKCLD3  MVC   FSTADATI,FABNDAT+1 Replace date/time            @SC93342
  123. DSKCLD5  LR    0,9           Get the ADT ptr again             @SC93342
  124.          XR    1,1                                             @SC93342
  125.          L     15,ATFINIS    Temporarily close files           @SC93342
  126.          BALR  14,15                                           @SC93342
  127.          L     15,AUPDISK                                      @SC93342
  128.          BALR  14,15         And rewrite the directory         @SC93342
  129. DSKCLDCL DMSKEY RESET        Return to user key                @SC93342
  130. .CMSOD4  ANOP                                                  @SC93342
  131. ./ I 05838500          $ 5838700 200                  12/08/93 18:10:17
  132.          XC    FDATE,FDATE   Clear date again                  @SC93342
  133. :READ KERMIT SC93355 A1
  134. ./ * SC93355 - Detect remote dedicated GRAF terminals (CMS)
  135. ./ R 05709500          $ 5709500 500                  12/21/93 21:14:45
  136.          CLM   3,8,=X'80'    Is it a terminal?                 @SC93355
  137. ./ R 05717000 05717500 $ 5717000 100                  12/21/93 21:14:45
  138.          CLM   4,8,=X'40'    Is it a GRAF dev?                 @SC93355
  139.          BE    STM5FS        Yes, figure out what kind         @SC93355
  140.          CLM   4,4,=X'04'    Maybe a remote dedicated 3277?    @SC93355
  141.          BE    STM5FS        Yes, ok                           @SC93355
  142.          CLM   4,4,=X'01'    Maybe a remote dedicated 3278?    @SC93355
  143.          BNE   RTRN0         No, assume TTY                    @SC93355
  144. STM5FS   DS    0H                                              @SC93355
  145. :READ KERMIT SC94074 A1
  146. ./ * SC94074 - NAK bad data packet instead of re-ACKing previous
  147. ./ I 01917000          $ 1917200 200                  03/15/94 16:25:11
  148.          CLI   STYPE,AY      See if sent a plain ACK           @SC94074
  149.          BNE   *+12          No, resend whatever it was        @SC94074
  150.           CLI  DATLSN,0      "plain" only if no data           @SC94074
  151.           BE   SENDNAK       Yes, send a NAK                   @SC94074
  152. ./ R 02579000          $ 2579000 1000                 03/15/94 16:25:11
  153. DATL     DS    F             Size of data in packet (S or R)   @SC94074
  154. ./ I 02617000          $ 2617200 200                  03/15/94 16:25:11
  155. DATLSN   DS    X             Data length in last packet sent   @SC94074
  156. ./ I 08466500          $ 8466600 100                  03/15/94 16:25:11
  157.          STC   9,DATLSN      Copy length of data sent, if any  @SC94074
  158. :READ KERMIT SC94174 A1
  159. ./ * SC94174 - WHATAMI option for file type
  160. ./ I 01424200          $ 1424300 100                  06/23/94 22:46:07
  161. AUND     EQU   95            ASCII underscore                  @SC94174
  162. ./ I 02082200          $ 2082300 100                  06/23/94 22:46:07
  163.          MVI   WHATRU,0      No valid value anymore            @SC94174
  164. ./ R 02492000          $ 2492000 500                  06/24/94 00:00:08
  165.          DC    AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL)         @SC94174
  166. ./ I 02680000          $ 2680500 500                  06/23/94 18:34:18
  167. WHATRU   DS    X             Mode info from other Kermit       @SC94174
  168. ./ R 02716000          $ 2716000 500                  06/24/94 00:00:08
  169.          DS    AL1(ABL,ABL,ABL,A0),3AL1(AUND),AL1(ABL)         @SC94174
  170. ./ D 08159500 08160000                                06/24/94 01:36:05
  171. ./ I 08167500          $ 8167600 100                  06/24/94 01:36:05
  172.          TM    RCAPA,LONGP   Test for long packet bit          @SC94174
  173.          BZ    SPARNX        No extended packets               @SC94174
  174. ./ I 08168500          $ 8168510 10                   06/23/94 18:26:14
  175.          BAL   14,SPARFTCH   Get checkpoint flag               @SC94174
  176. *        UNCHR 4,,SCKPNT     Save for later                    @SC94174
  177.          XR    1,1           Clear checkpoint length           @SC94174
  178.          LA    15,3                                            @SC94174
  179. SPARCKPL MH    1,XLFCT+2     Shift left                        @SC94174
  180.          BAL   14,SPARFTCH   Get next checkpoint length byte   @SC94174
  181.          UNCHR 4                                               @SC94174
  182.          AR    1,4                                             @SC94174
  183.          BCT   15,SPARCKPL                                     @SC94174
  184. *        ST    1,SCKINT                                        @SC94174
  185.          BAL   14,SPARFTCH   Get WHATAMI                       @SC94174
  186.          UNCHR 4,,WHATRU                                       @SC94174
  187.          TM    WHATRU,X'20'  Valid?                            @SC94174
  188.          BZ    SPARWHT       No, skip it                       @SC94174
  189.          TM    FL2,SRV       Acting as server?                 @SC94174
  190.          BZ    SPARWHT       No, skip it                       @SC94174
  191.          IC    0,FL1         Get my file-type flag             @SC94174
  192.          SRL   0,1           Shift BINF (4) to 2-bit           @SC94174
  193.          XR    0,4           Compare (client 2-bit is binary)  @SC94174
  194.          N     0,F2          Do they match?                    @SC94174
  195.          BZ    SPARWHT       Yes, all set                      @SC94174
  196.          XI    FL1,BINF      No, switch my setting             @SC94174
  197.          MVI   TYPFIL,C'T'   Also set the subflag              @SC94174
  198.          TM    FL1,BINF                                        @SC94174
  199.          BZ    SPARWHT                                         @SC94174
  200.          MVI   TYPFIL,C'B'                                     @SC94174
  201. SPARWHT  DS    0H                                              @SC94174
  202. ./ R 08219000          $ 8219000 100                  06/23/94 18:26:14
  203.          MVI   10(9),ABL     Window size is blank              @SC86295
  204. ./ R 08229500          $ 8229500 200                  06/23/94 18:26:14
  205.          BNH   RPARS1        KMAX >= RPSIZ                     @SC94174
  206. ./ R 08230500          $ 8230500 200                  06/23/94 18:26:14
  207.          SH    5,=H'7'       Allow for long header             @SC94174
  208. ./ D 08231500                                         06/24/94 00:00:08
  209. ./ R 08233500 08234000 $ 8233400 100                  06/23/94 18:26:14
  210.          MVC   13(4,9),DEFPARM+13 No ckpt support              @SC94174
  211.          LA    4,X'24'       Bits always on in WHATAMI         @SC94174
  212.          TM    FL1,BINF      Binary?                           @SC94174
  213.          BZ    *+8                                             @SC94174
  214.           LA   4,2(,4)       Yes                               @SC94174
  215.          TM    FL2,SRV       Server mode?                      @SC94174
  216.          BZ    *+8                                             @SC94174
  217.           LA   4,1(,4)       Yes                               @SC94174
  218.          TOCHR 4,,17(9)                                        @SC94174
  219.          LA    0,18          Size of data including WHATAMI    @SC94174
  220. :READ KERMIT SC94181 A1
  221. ./ * SC94181 - Implement level-1 restart/recovery mode (CMS)
  222. ./ I 00994140          $ 994150 10                    06/29/94 18:55:26
  223. FDBSIZEB DS    F             File size in bytes                @SC94181
  224. ./ I 01413600          $ 1413700 100                  09/14/94 15:49:04
  225.          GBLC  &AAARSND,&AUPDATE                               @SC94181
  226. ./ R 01415400 01415600 $ 1415400 200                  09/30/93 14:45:03
  227. &KDATE   SETC  '94/06/30'                                      @SC94181
  228. &KEDIT   SETC  '1 TEST'                                        @SC94181
  229. ./ I 01460400          $ 1460500 100                  06/28/94 18:25:34
  230. &AAARSND SETC 'RESEND'          cmd, m=3                       @SC94181
  231. ./ I 01475800          $ 1475900 100                  09/20/94 21:29:31
  232. &AUPDATE SETC 'UPDATE'          kwd->COLLISN                   @SC94181
  233. ./ I 02119000          $ 2119100 100                  09/21/94 15:17:19
  234.          CLI   ERRNUM,ERRTRC Canceled?                         @SC94181
  235.          BNE   LDERR2                                          @SC94181
  236.          CLI   REASON,STACNDAT Date too early?                 @SC94181
  237.          BER   14            Not an error                      @SC94181
  238.          CLI   REASON,STACNDSC Simply a duplicate?             @SC94181
  239.          BER   14            Not an error                      @SC94181
  240. LDERR2   DS    0H                                              @SC94181
  241. ./ R 02494000          $ 2494000 500                  06/28/94 18:25:34
  242.          DC    X'38'         Capabilities I have        SCAPA  @SC94181
  243. ./ R 03033000          $ 3033000 80                   06/28/94 18:25:34
  244.          KW    '&AAARSND',KRMSND,R,MIN=3                       @SC94181
  245. SNDKCMD  KW    '&AAASEND',KRMSND,MIN=3                         @SC94181
  246.          ORG   SNDKCMD+KWCODE                                  @SC94181
  247.          DC    X'0'          Normal send has no disp code      @SC94181
  248.          ORG   ,                                               @SC94181
  249. ./ R 03034500          $ 3034500 100                  10/15/94 18:25:34
  250. XTYKCMD  KW    '&AAXTYPE',KRMNPS,MIN=2                         @SC94181
  251.          ORG   XTYKCMD+KWCODE                                  @SC94181
  252.          DC    X'0'          Normal send has no disp code      @SC94181
  253.          ORG   ,                                               @SC94181
  254. ./ R 03081000          $ 3081000 200                  06/28/94 18:25:34
  255. KRMSND   MVC   USNCOD,KWCODE(1) Save send command abbrev       @SC94181
  256.          PTEXT '&SYSFSPC - ',AREG=1,LREG=0                     @SC94181
  257. ./ R 03094000 03095000 $ 3094000 90                   09/21/94 16:45:10
  258. KRMSNDBG SR    1,1                                             @SC94181
  259.          ICM   1,1,USNCOD    Get send command code             @SC94181
  260.          BZ    USNSND3       Fine, no special disposition      @SC94181
  261.          TM    SCAPA,8       Can we do attributes?             @SC94181
  262.          BZ    USNSNDX       No, give up right away            @SC94181
  263.          TM    ATFL2,ATFDSP  Disposition attribute enabled?    @SC94181
  264.          BZ    USNSNDX       No, can't do it                   @SC94181
  265.          TM    ATFLG,ATFTYP  Type attribute enabled?           @SC94181
  266.          BZ    USNSNDX       Can't do it                       @SC94181
  267.          TM    ATFL4,ATFEND  End-of-atts attribute enabled?    @SC94181
  268.          BZ    USNSNDX       Can't do it                       @SC94181
  269.          TM    FL1,BINF      Are we binary?                    @SC94181
  270.          BZ    USNSNDX1      No, can't do it                   @SC94181
  271. USNSND3  IC    1,ETOAD(1)    Use ASCII version of Disp code    @SC94181
  272.          XC    LEN,LEN       Clear length of Disp options      @SC94181
  273.          KCALL SEND                                            @SC94181
  274. KRMXFZ   BAL   14,LDERR      Get massaged error code           @SC94181
  275. ./ I 03096000          $ 3096080 80                   06/28/94 18:25:34
  276.          B     USNSNDZ                                         @SC94181
  277. USNSNDX  WTEXT '&ATTRIBU &AZDISAB'                             @SC94181
  278.          B     USNSNDZ                                         @SC94181
  279. USNSNDX1 WTEXT '&CANNOT.&AAARSND ->&AAAABIN'                   @SC94181
  280. USNSNDZ  DS    0H                                              @SC94181
  281. ./ I 03105000          $ 3105200 200                  06/28/94 18:25:34
  282.          MVI   USNCOD,0      No special disposition            @SC94181
  283. ./ I 03130500          $ 3130700 200                  06/28/94 18:25:34
  284. USNCOD   DS    X             Temporary flags for SEND/RESEND   @SC94181
  285. ./ I 03192000          $ 3192200 200                  09/20/94 21:29:31
  286.          KW    '&AUPDATE',SETCLSN,U                            @SC94181
  287. ./ R 03754000          $ 3754000 100                  09/20/94 21:29:31
  288. STACNTB  DC    C'-&ATTUNK.-&ATTLEN.-&ATTTYP'                   @SC94181
  289. STACNDAT EQU   (*-STACNTB)/8 Date reason code                  @SC94181
  290.          DC    C'-&ATTDAT.'                                    @SC94181
  291. ./ R 03756500          $ 3756500 100                  09/20/94 16:08:33
  292.          DC    (31-(*-STACNTB)/8)CL8'-??'                      @SC94181
  293. STACNDSC EQU   (*-STACNTB)/8 One extra reason (not in A-packet)@SC94181
  294.          DC    C'-&COLLIS.'                                    @SC94181
  295. ./ I 05828000          $ 5828050 50                   06/30/94 23:53:40
  296.          IC    1,FABFM       Get mode letter                   @SC94181
  297.          USING ADTSECT,9                                       @SC94181
  298.          LA    9,IADT-ADTPTR+ADTSECT 1st ADT                   @SC94181
  299. DSKOPO1  ICM   9,15,ADTPTR   Try next                          @SC94181
  300.          BZ    DSKER1        Disk not found!                   @SC94181
  301.          CLM   1,1,ADTM      Find right disk                   @SC94181
  302.          BNE   DSKOPO1                                         @SC94181
  303.          TM    ADTFLG1,ADTFRW Read/write?                      @SC94181
  304.          BZ    DSKER1                                          @SC94181
  305. ./ I 05831000          $ 5831200 200                  09/20/94 21:45:14
  306.          XC    FDBD(FDBINFO),FDBD  Clear it out                @SC94181
  307. ./ R 05992500          $ 5992500 200                  09/20/94 21:45:14
  308.          XC    FDBD(FDBINFO),FDBD  Clear it out                @SC94181
  309. ./ R 06014500          $ 6014500 100                  06/29/94 18:53:13
  310. DSKVEF   ST    1,FDBSIZEB    Save                              @SC94181
  311.          SRDA  0,10          Convert to kbytes                 @SC94181
  312. ./ I 06018500          $ 6018600 100                  06/29/94 18:53:13
  313.          CL    7,FDBSIZEB    Compare with upper limit          @SC94181
  314.          BNL   *+8                                             @SC94181
  315.           ST   7,FDBSIZEB    This one's smaller, use it        @SC94181
  316. ./ I 07683000          $ 7683100 100                  06/28/94 18:25:34
  317.          CLI   SNDDSP,AR     Trying to recover?                @SC94181
  318.          BNE   SNDFIL        No, fine                          @SC94181
  319.          TM    RCAPA,X'10'   Yes, can the other Kermit do it?  @SC94181
  320.          BZ    SNDCMDER      No.  Give up                      @SC94181
  321. ./ I 07685000          $ 7685200 200                  06/28/94 18:25:34
  322.          XC    SNDBLEN,SNDBLEN Clear "recovery" length         @SC94181
  323. ./ I 07757500          $ 7757530 30                   06/28/94 18:25:34
  324.          CLI   SNDDSP,AR     Trying to recover?                @SC94181
  325.          BNE   SNDPKLX       No                                @SC94181
  326.          CLC   DATL,F3       Any byte length?                  @SC94181
  327.          BL    SNDPKLX       No                                @SC94181
  328.          CLI   0(1),A1       Is this it?                       @SC94181
  329.          BNE   SNDPKLX       No                                @SC94181
  330.          UNCHR 7,1(1)        Yes, get length of number string  @SC94181
  331.          LA    6,2(,1)       Ptr to numeric string             @SC94181
  332.          LR    14,7                                            @SC94181
  333.          BCTR  14,0                                            @SC94181
  334.          EX    14,SNDTRAT                                      @SC94181
  335.          BAL   14,GETNUM     Get file length                   @SC94181
  336.           LA   0,0           Default is to send all            @SC94181
  337.          ST    0,SNDBLEN     Save expected size                @SC94181
  338. ./ I 07760500          $ 7760700 200                  06/28/94 18:25:34
  339. SNDTRAT  TR    0(,6),ATOED   Convert to EBCDIC for decoding    @SC94181
  340. ./ I 07765000          $ 7765050 50                   06/28/94 18:25:34
  341.          L     5,SNDBLEN     Length to skip                    @SC94181
  342. SNDRECL  LTR   5,5           Any more?                         @SC94181
  343.          BNP   SNDENC        No, start sending                 @SC94181
  344.          KCALL INBUF,E=SNDEND                                  @SC94181
  345.          S     5,RBUFL       Data length in RBUF               @SC94181
  346.          BNM   SNDRECL       Keep skipping                     @SC94181
  347.          A     5,RBUFL       Must use part of this buffer      @SC94181
  348.          ST    5,RBUFP       Index of next char in RBUF        @SC94181
  349. ./ I 07797000          $ 7797200 200                  12/19/94 15:58:18
  350. SNDEND   MVC   DATL,F0       End while restarting: do nothing  @SC94181
  351. ./ I 07809000          $ 7809060 60                   09/21/94 15:58:18
  352.          CLI   ERRNUM,ERRTRC Cancelled?                        @SC94181
  353.          BNE   SNDBRKA       No, it's a solid error            @SC94181
  354.          CLI   REASON,STACNDAT Refused as duplicate (date)?    @SC94181
  355.          BE    SNDBRKP       Yes, not really an error          @SC94181
  356.          CLI   REASON,STACNDSC Refused as duplicate?           @SC94181
  357.          BE    SNDBRKP       Yes, not really an error          @SC94181
  358. SNDBRKA  DS    0H                                              @SC94181
  359. ./ I 07833000          $ 7833200 200                  06/28/94 18:25:34
  360. SNDBLEN  DS    F             Length to skip in resending file  @SC94181
  361. ./ R 07864500 07875500 $ 7865500 500                  06/29/94 20:43:04
  362. RECOVR   XC    FILFLGS,FL3   Set flag for DISP                 @SC94181
  363.          NI    FILFLGS,255-APPN-SVATT                          @SC90033
  364.          XC    FILFLGS,FL3                                     @SC86295
  365.          TM    RCAPA,X'18'   Attributes, including End?        @SC94181
  366.          BNO   RECCOL        No, do collision test now         @SC94181
  367.          TM    SCAPA,X'08'   Am I expecting A-packets?         @SC94181
  368.          BNO   RECCOL        No, do collision test now         @SC94181
  369.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC94181
  370.          BO    RECOPN        Yes, defer collision test         @SC94181
  371. RECCOL   KCALL TCOLL,E=(RECOPN,Z)                              @SC94181
  372. ./ R 07879000 07883500 $ 7879000 1000                 06/29/94 20:43:04
  373. RECOPN   DS    0H                                              @SC94181
  374. ./ I 07892500          $ 7892560 60                   06/30/94 14:49:18
  375.          MVI   RECDISP,0     No disposition specified          @SC94181
  376.          TM    RCAPA,X'18'   Does he promise End attribute?    @SC94181
  377.          BNO   RECDAT        No, let it ride                   @SC94181
  378.          TM    SCAPA,X'08'   Am I expecting A-packets          @SC94181
  379.          BNO   RECDAT        No, but I'll accept them          @SC94181
  380.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC94181
  381.          BNO   RECDAT        No, let it ride                   @SC94181
  382.          LA    8,RECAST      Ok, accept only A-packets for now @SC94181
  383. ./ I 07896500          $ 7896600 100                  06/29/94 21:14:51
  384.          L     2,FSIZE       Default lrecl                     @SC94181
  385.          ICM   0,15,FILPTR   Already opened?                   @SC94181
  386.          BNZ   RECDATO       Yes, fine                         @SC94181
  387. ./ I 07899500          $ 7899700 200                  06/29/94 21:14:51
  388. RECDATO  DS    0H                                              @SC94181
  389. ./ R 07908000          $ 7908000 100                  06/30/94 14:49:18
  390. RECDAK   XC    DATL,DATL     Set length to zero                @SC94181
  391. RECDAKL  BAL   2,SENDACKL    Send an ack                       @SC94181
  392. ./ R 07927000          $ 7927000 200                  09/20/94 16:42:43
  393.          BNZ   RECADTX       Invalid, stop now                 @SC94181
  394. ./ R 07930500          $ 7930500 200                  09/20/94 16:42:43
  395.          BH    RECADTX       Too big, stop now                 @SC94181
  396. ./ R 07932000          $ 7932000 200                  09/20/94 16:42:43
  397.          BNE   RECADTX       No, illegal                       @SC94181
  398. ./ R 07940500          $ 7940500 200                  09/20/94 16:42:43
  399.           BNE  RECADTX       No, error                         @SC94181
  400. ./ I 07942500          $ 7942600 100                  09/20/94 16:42:43
  401. RECADTX  MVI   ERRNUM,ERRIPS Bad syntax                        @SC94181
  402.          B     RECABR        Quit                              @SC94181
  403. ./ I 07945000          $ 7945200 200                  06/30/94 16:32:21
  404.          XC    DATL,DATL     Normally no data on ACK           @SC94181
  405. ./ R 07946000          $ 7946000 200                  06/30/94 16:32:21
  406.          BNL   RECDAKL       No, done                          @SC94181
  407. ./ R 07947000          $ 7947000 200                  06/30/94 16:32:21
  408.          BO    RECDAKL       Yes, ignore further attributes    @SC94181
  409. ./ I 07951000          $ 7951100 100                  06/30/94 14:49:18
  410.          CLC   FILPTR,F0     End attribute already seen?       @SC94181
  411.          BNE   RECRJC        Yes, this is forbidden            @SC94181
  412. ./ R 07959000          $ 7959000 200                  06/28/94 18:25:34
  413. RECDSPCD DC    AL1(11),AL3(RECADI) + - Disposition             @SC94181
  414. ./ R 07994500          $ 7994500 200                  06/28/94 18:25:34
  415. RECADI   MVC   RECDISP,0(6)  Save disp code                    @SC94181
  416.          BAL   2,RECALKP                                       @SC94181
  417. ./ I 07996000          $ 7996300 300                  06/28/94 18:25:34
  418.          DC    AL1(AR),AL3(RECCKL) Recover                     @SC94181
  419. ./ R 08026000 08026500 $ 8025800 20                   06/30/94 14:49:18
  420. RECAZZ   DS    0H            End of attributes, must be last   @SC94181
  421.          CLI   RECDISP,AR    Recover?                          @SC94181
  422.          BNE   RECAZ2        No, fine                          @SC94181
  423.          TM    FL1,BINF      Yes, make sure binary             @SC94181
  424.          BZ    RECRJD        Oops, can't do it                 @SC94181
  425.          BAL   14,RDWSET     Decide which kind of binary       @SC94181
  426.          OI    FILFLGS,APPN  Yes, must append                  @SC94181
  427. RECAZ2   TM    RCAPA,X'18'   Did other Kermit promise End att? @SC94181
  428.          BNO   RECAZ3        No, already tested collision      @SC94181
  429.          KCALL TCOLL,E=RECRJC Do it now                        @SC94181
  430. RECAZ3   XC    DATL,DATL                                       @SC94181
  431.          CLI   RECDISP,AR    Recover?                          @SC94181
  432.          BNE   RECAZ4        No, fine                          @SC94181
  433.          SR    4,4           Ok, get exact length of file      @SC94181
  434.          OPENF T,FILNAM,E=RECBLCZ Does it exist?               @SC94181
  435.          CLI   TYPFIL,C'B'   Ordinary binary?                  @SC94181
  436.          BE    RECBLCA       Yes, try shortcut                 @SC94181
  437.          MVC   FDBSIZEB-FDBD(4,1),F0 No, can't trust n*lrecl   @SC94181
  438. RECBLCA  ICM   4,15,FDBSIZEB-FDBD(1) Yes, get length, if poss. @SC94181
  439.          BNZ   RECBLCZ       Ok, got it                        @SC94181
  440.          OPENF I,FILNAM,FILFDB,FILPTR,E=RECBLCZ                @SC94181
  441. RECBLCL  KCALL INBUF,E=RECBLCZ                                 @SC94181
  442.          A     4,RBUFL       (Doing it the hard way)           @SC94181
  443.          B     RECBLCL                                         @SC94181
  444. RECBLCZ  CLOSF FILPTR        Done, close file for input        @SC94181
  445.          NI    FL1,255-EOF   Clear eof condition               @SC94181
  446.          ST    4,RECBLEN     Got total length                  @SC94181
  447.          LTR   4,4           Any?                              @SC94181
  448.          BZ    RECAZ4        No, just process normally         @SC94181
  449.          LA    0,512                                           @SC94181
  450.          ALR   0,4           Round to nearest K                @SC94181
  451.          SRL   0,10                                            @SC94181
  452.          L     6,FILFSIZ     Size of promised file             @SC94181
  453.          SLR   6,0           Amount to be sent and appended    @SC94181
  454.          BC    3,*+6         Ok                                @SC94181
  455.           SLR  6,6           All received already!             @SC94181
  456.          ST    6,FILFSIZ     Corrected size for space check    @SC94181
  457.          L     6,ASDATA      Output buffer                     @SC94181
  458.          MVI   0(6),A1       Byte-length attribute code        @SC94181
  459.          LA    15,2(,6)                                        @SC94181
  460.          BAL   2,EDDEC       Format it (clobbers R8!)          @SC94181
  461.          TR    2(9,6),ETOAD  Convert plenty to ASCII           @SC94181
  462.          SR    15,6                                            @SC94181
  463.          ST    15,DATL       Length of data field              @SC94181
  464.          LA    4,ABL-2(,15)  Number of digits (printably)      @SC94181
  465.          STC   4,1(,6)                                         @SC94181
  466. RECAZ4   DS    0H                                              @SC94181
  467.          KCALL ACCTNM,FILNAM Insert revised name, if necessary @SC94181
  468.          OPENF O,FILNAM,FILFDB,FILPTR,E=RECRJA                 @SC94181
  469.          USING FDBD,1                                          @SC94181
  470.          MVC   FSIZE,FABLRTR Copy LRECL from effective length  @SC94181
  471.          MVC   FRECF,FDBRCF  Save info                         @SC94181
  472.          DROP  1                                               @SC94181
  473.          ICM   0,15,FILFSIZ  Expected size, if known           @SC94181
  474.          BZ    RECAZ5        Not known, proceed                @SC94181
  475.          OPENF S,FILNAM,FILFDB,FILPTR,E=RECRJLL Check disk spac@SC94181
  476.          XC    FILFSIZ,FILFSIZ  No need to repeat this test    @SC94181
  477. RECAZ5   DS    0H                                              @SC94181
  478.          LA    8,RECANST     Now accept D-packets              @SC94181
  479. ./ I 08027500          $ 8027550 50                   06/28/94 18:25:34
  480. RECRJD   MVC   REASON,RECDSPCD Because of disposition          @SC94181
  481.          B     RECRJC                                          @SC94181
  482. RECRJLL  MVC   REASON,RECLNCOD Because of length               @SC94181
  483.          B     RECRJC                                          @SC94181
  484. RECRJA   MVI   REASON,6      Because of "area" (couldn't open) @SC94181
  485.          B     RECRJC                                          @SC94181
  486. ./ I 08034500          $ 8034700 200                  06/30/94 17:17:14
  487.          LA    8,RECANST     Accept A, D, or Z now             @SC94181
  488. ./ R 08036000 08036500 $ 8036000 200                  06/30/94 16:32:21
  489.          B     RECDAKL       Acknowledge                       @SC94181
  490. ./ I 08041500          $ 8041700 200                  10/28/94 22:42:46
  491.          L     5,FILPTR                                        @SC94181
  492. ./ I 08042000          $ 8042100 100                  10/28/94 22:42:46
  493.          LTR   5,5           Was the file actually open?       @SC94181
  494.          BZ    RECKEP        No, don't worry about it          @SC94181
  495. ./ R 08058500          $ 8058500 70                   09/21/94 15:17:19
  496.          BZ    RECBRKA       No, that's fine                   @SC94181
  497.          CLI   REASON,STACNDAT Refused as duplicate (date)?    @SC94181
  498.          BE    RECBRKA       Yes, not really an error          @SC94181
  499.          CLI   REASON,STACNDSC Refused as duplicate?           @SC94181
  500.          BNE   RECERP        No, send an error packet          @SC94181
  501. RECBRKA  DS    0H                                              @SC94181
  502. ./ R 08079000          $ 8079000 200                  09/21/94 01:21:04
  503. *        DC    XL1'FF',AL3(RECABR)   Stop (same as unknown)    @SC94181
  504. ./ D 08081500                                         09/21/94 01:21:04
  505. ./ R 08084000          $ 8084000 200                  06/30/94 14:49:18
  506.          DC    AL1(00),AL3(RECABR)   Error return              @SC94181
  507. RECAST   DC    AL1(AA),AL3(RECCKA)   Micro sent A-packet       @SC94181
  508. ./ I 08089500          $ 8089600 100                  06/28/94 18:25:34
  509. RECBLEN  DS    F             Length of recovery file           @SC94181
  510. RECDISP  DS    X             Requested disposition             @SC94181
  511. ./ I 08113500          $ 8113540 40                   10/28/94 22:42:46
  512. *
  513. * Copy file name from (R1) to current file table entry, if any @SC94181
  514. ACCTNM   ENTER ALT                                             @SC94181
  515.          L     3,NSENT       Number of current file            @SC94181
  516.          C     3,NSENTAC     Off the end?                      @SC94181
  517.          BNE   RTRN0         Yes, quit now                     @SC94181
  518.          BCTR  3,0           Ok, get offset                    @SC94181
  519.          MH    3,FLFID1+2    Times length of items             @SC94181
  520.          A     3,TSENT       Loc in sent-table                 @SC94181
  521.          MVC   ACTFID,0(1)   Save filespec                     @SC94181
  522.          B     RTRN0                                           @SC94181
  523. ./ R 08985500          $ 8986000 500                  06/29/94 20:43:04
  524.          TITLE 'TCOLL Routine - test for collision (RECEIV)'   @SC94181
  525. * Exit: R15=0 if ok (use name in FILNAM), else reject          @SC94181
  526. TCOLL    ENTER ,                                               @SC94181
  527.          TM    FILFLGS,APPN  Appending to old file?            @SC94181
  528.          BO    RTRN0         Yes, just do it                   @SC94181
  529.          CLI   CLSNFL,C'U'                                     @SC94181
  530.          BE    *+12          Update option overrides "warn"    @SC94181
  531.           TM   FL1,REN                                         @SC94181
  532.           BZ   RTRN0         No, just do it                    @SC94181
  533.          LA    0,FFNEW                                         @SC86295
  534.          KCALL FSPEC,FILNAM,E=RTRN1  Check collisions          @SC94181
  535.          TM    FL4,NMCHNG                                      @SC90033
  536.          BZ    RTRN0                                           @SC90033
  537.          CLI   CLSNFL,C'B'                                     @SC90033
  538.          BNE   TCLTSTD                                         @SC90033
  539.          LA    2,FILNAM      Must back up original file        @SC90033
  540.          LA    0,15          Rename it to unique new name      @SC90033
  541.          KCALL DISKIO,XFILE,E=RTRN1  Give up if rename fails   @SC90264
  542.          CLI   TRMLIN,C' '   Alt. line?                        @SC90033
  543.          BE    TCLBZ         No, be quiet                      @SC90033
  544.          INITSTR '&BACKDUP',CMD,REG=7                          @SC92300
  545.          LA    1,FILNAM                                        @SC90033
  546.          BAL   2,STAFSP      Format backup name and show it    @SC90033
  547. TCLBZ    MVC   FILNAM,XFILE  Now, just use intended name       @SC90033
  548. TCLMSG   DS    0H                                              @SC90033
  549.          CLI   TRMLIN,C' '   Alt. line?                        @SC87300
  550.          BE    RTRN0         No, be quiet                      @SC94181
  551.          INITSTR '&RECVDAS',CMD,REG=7  Yes, display message    @SC92300
  552.          LA    1,FILNAM                                        @SC87300
  553.          BAL   2,STAFSP      Format name and show it           @SC87300
  554.          B     RTRN0                                           @SC94181
  555. TCLTSTD  CLI   CLSNFL,C'D'                                     @SC90033
  556.          BNE   TCLTSTU       See if UPDATE                     @SC94181
  557.          MVI   REASON,STACNDSC Reason is collision (DISCARD)   @SC94181
  558.          B     RTRN1                                           @SC94181
  559. TCLTSTU  CLI   CLSNFL,C'U'                                     @SC94181
  560.          BNE   TCLMSG        Other case is just "rename"       @SC94181
  561.          CLI   FDATE,0                                         @SC94181
  562.          BE    TCLOKU                                          @SC94181
  563.          OPENF T,XFILE,E=TCLOKU Look at existing file          @SC94181
  564.          USING FDBD,1                                          @SC94181
  565.          CLI   FDBDATE,0     Is there a time tag?              @SC94181
  566.          BE    TCLOKU        No, skip this test                @SC94181
  567.          CLC   FDATE,FDBDATE Is the incoming file newer?       @SC94181
  568.          BH    TCLOKU        Yes, overwrite the file           @SC94181
  569.          DROP  1                                               @SC94181
  570.          MVI   REASON,STACNDAT No, reason is date              @SC94181
  571.          B     RTRN1                                           @SC94181
  572. TCLOKU   MVC   FILNAM,XFILE  Restore original name             @SC94181
  573.          B     RTRN0                                           @SC94181
  574.          LOCALS ,                                              @SC94181
  575.          EXIT  ,                                               @SC94181
  576.          END   KERMIT
  577. :READ KERMIT SC94245 A1
  578. ./ * SC94245 - More accurate statistics after server transfers
  579. ./ R 02084000          $ 2084000 500                  05/29/92 ->4.3<-
  580.          LR    15,7          Get time supplied as "end"        @SC94245
  581. ./ I 07824500          $ 7824600 100                  05/29/92 ->4.3<-
  582.          KCALL SUPFNC,10     Get time of completion            @SC94245
  583.          LR    7,15          Save for statistics               @SC94245
  584. ./ I 08060500          $ 8060700 200                  05/29/92 ->4.3<-
  585.          KCALL SUPFNC,10     Say completion time is now        @SC94245
  586.          ST    15,RECTIMZ    Save                              @SC94245
  587. ./ R 08070000          $ 8070000 200                  05/29/92 ->4.3<-
  588. RECERP   KCALL SUPFNC,10     Say completion time is now        @SC94245
  589.          ST    15,RECTIMZ    Save                              @SC94245
  590.          KCALL ERPACK        Send error packet                 @SC94245
  591. ./ I 08070500          $ 8070700 200                  05/29/92 ->4.3<-
  592.          L     7,RECTIMZ                                       @SC94245
  593. ./ I 08089500          $ 8089550 50                   05/29/92 ->4.3<-
  594. RECTIMZ  DS    F             Ending time of transfer           @SC94245
  595. :READ KERMIT SC94262 A1
  596. ./ * SC94262 - Leave room for table expansion (CMS)
  597. ./ R 01415400          $ 1415400 200                  09/30/93 14:45:03
  598. &KDATE   SETC  '94/09/20'                                      @SC94262
  599. ./ R 01513000          $ 1513000 100                  09/20/94 17:56:54
  600.          L     3,PTATOED                                       @SC94262
  601.          MVC   ATOE,0(3)                                       @SC94262
  602. ./ R 01515000          $ 1515000 1000                 09/20/94 17:56:54
  603.          MVC   TATOE,0(3)                                      @SC94262
  604. ./ R 01893000          $ 1893000 300                  09/20/94 17:56:54
  605.          L     4,PTATOED                                       @SC94262
  606.          TR    0(LEMSG,1),0(4) Convert to EBCDIC               @SC94262
  607. ./ I 02453000          $ 2453200 200                  09/20/94 17:56:54
  608. PTATOED  DC    A(ATOED)      Address of ASCII-to-EBCDIC def.   @SC94262
  609. ./ I 02519000          $ 2519500 500                  09/20/94 17:56:54
  610. DEFTBLS  CSECT                                                 @SC94262
  611. ./ I 02536000          $ 2536500 500                  09/20/94 17:56:54
  612. COMMON   CSECT                                                 @SC94262
  613. ./ R 03354000          $ 3354000 200                  09/20/94 17:56:54
  614. SETTAT2  L     2,PTATOED     Address of original               @SC94262
  615. ./ R 03635000          $ 3635000 100                  09/20/94 17:56:54
  616.          L     8,PTATOED                                       @SC94262
  617.          TR    TMP,0(8)      Convert to EBCDIC                 @SC94262
  618. ./ R 03840000          $ 3840000 200                  09/20/94 17:56:54
  619. GIVA1    L     0,PTATOED                                       @SC94262
  620. ./ I 05047500          $ 5047700 200                  09/20/94 20:28:26
  621.          L     14,PTATOED                                      @SC94262
  622. ./ R 05049500          $ 5049500 200                  09/20/94 20:28:26
  623. FSPTRAE  TR    0(,5),0(14)                                     @SC94262
  624. ./ R 07610500          $ 7610500 200                  09/20/94 17:56:54
  625.           L    14,PTATOED    Use default if "transparent"      @SC94262
  626. ./ R 07690000          $ 7690000 100                  09/20/94 17:56:54
  627.          L     2,PTATOED                                       @SC94262
  628.          TR    0(250,15),0(2) Back to EBCDIC                   @SC94262
  629. ./ I 07757800          $ 7757810 10                   09/20/94 17:56:54
  630.          L     4,PTATOED                                       @SC94262
  631. ./ R 07760700          $ 7760700 100                  09/20/94 17:56:54
  632. SNDTRAT  TR    0(,6),0(4)    Convert to EBCDIC for decoding    @SC94262
  633. ./ R 07859000          $ 7859000 100                  09/20/94 17:56:54
  634.          L     14,PTATOED                                      @SC94262
  635.          TR    0(256,1),0(14) Convert to std EBCDIC            @SC94262
  636. ./ I 07925500          $ 7925700 200                  09/20/94 17:56:54
  637.          L     4,PTATOED                                       @SC94262
  638. ./ R 07973000          $ 7973000 100                  09/20/94 17:56:54
  639.          L     14,PTATOED                                      @SC94262
  640.          IC    4,0(4,14)     Ok, set file type as well         @SC94262
  641. ./ I 07978500          $ 7978700 200                  09/20/94 17:56:54
  642.          L     4,PTATOED                                       @SC94262
  643. ./ I 07984000          $ 7984200 200                  09/20/94 17:56:54
  644.          L     4,PTATOED                                       @SC94262
  645. ./ R 07987500          $ 7987500 200                  09/20/94 17:56:54
  646. RECTRAT  TR    0(,6),0(4)    Convert to EBCDIC for decoding    @SC94262
  647. ./ R 08013000          $ 8013000 100                  09/20/94 17:56:54
  648.          L     1,PTATOED                                       @SC94262
  649.          TR    0(94,4),0(1)  Convert to EBCDIC                 @SC94262
  650. ./ R 08397000          $ 8397000 100                  09/20/94 17:56:54
  651.          L     4,PTATOED                                       @SC94262
  652.          TR    0(5,6),0(4)   No, must be 5-byte ASCII prefix   @SC94262
  653. ./ R 08584000          $ 8584000 100                  09/20/94 17:56:54
  654.          L     4,PTATOED                                       @SC94262
  655.          TR    STOPBUF,0(4)                                    @SC94262
  656. :READ KERMIT SC95023 A1
  657. ./ * SC95023 - Fix RESEND for already-sent file, implement APC subcmd.
  658. ./ R 01415400          $ 1415400 200                  01/23/95 11:12:19
  659. &KDATE   SETC  '95/01/23'                                      @SC95023
  660. ./ I 01422200          $ 1422300 100                  01/23/95 11:12:19
  661. AESC     EQU   27            ASCII ESC                         @SC95023
  662. ./ I 01424000          $ 1424100 100                  01/23/95 11:12:19
  663. ABSL     EQU   92            ASCII backslash                   @SC95023
  664. ./ I 03028500          $ 3028700 200                  01/23/95 11:12:19
  665.          KW    'APC',USNAPC,MIN=3                              @SC95023
  666. ./ I 03103000          $ 3103030 30                   01/23/95 11:12:19
  667. *
  668. USNAPC   L     5,ADR         Pointer to rest of line           @SC95023
  669.          ICM   4,15,LEN      Remaining data length             @SC95023
  670.          BNP   KRMXPEH       Go if nothing specified           @SC95023
  671.          L     3,RBUF                                          @SC95023
  672.          ICM   0,2,ATOE+AESC Get special wrapper for APC       @SC95023
  673.          ICM   0,1,ATOE+AUND Must use current EBCDIC codes     @SC95023
  674.          STCM  0,3,0(3)                                        @SC95023
  675.          MVC   2(256,3),0(5) Copy to disk read buffer          @SC95023
  676.          AR    4,3           Get end                           @SC95023
  677.          ICM   0,1,ATOE+ABSL Closing wrapper                   @SC95023
  678.          STCM  0,3,2(4)                                        @SC95023
  679.          LA    4,4(4)        Account for wrapper               @SC95023
  680.          B     USNAPC1                                         @SC95023
  681. ./ D 03105200                                         01/23/95 11:12:19
  682. ./ I 03106500          $ 3106700 200                  01/23/95 11:12:19
  683. USNAPC1  MVI   USNCOD,0      No special disposition            @SC95023
  684. ./ R 07765100          $ 7765100 50                   01/23/95 19:14:24
  685.          LTR   5,5           Any?                              @SC95023
  686. ./ R 07765200          $ 7765200 50                   01/23/95 19:14:24
  687. SNDRECL  KCALL INBUF,E=SNDEND                                  @SC95023
  688. ./ R 07765300          $ 7765300 50                   01/23/95 19:14:24
  689.          BH    SNDRECL       Keep skipping                     @SC95023
  690. :READ KERMIT SC95032 A1
  691. ./ * SC95032 - Allow Recovery into almost-full file system
  692. ./ R 01415400          $ 1415400 200                  02/01/95 12:29:03
  693. &KDATE   SETC  '95/02/01'                                      @SC95032
  694. ./ I 07986000          $ 7986080 80                   02/01/95 16:54:31
  695.          TM    RCAPA,X'18'   Attributes, including End?        @SC95032
  696.          BNO   RECAL3        No, do space test now             @SC95032
  697.          TM    ATFL4,ATFEND  Will I honor the End attribute?   @SC95032
  698.          BO    RECCKL        Yes, defer space test             @SC95032
  699. RECAL3   DS    0H                                              @SC95032
  700. :READ KERMIT SC95033 A1
  701. ./ * SC95033 - Update to level 4.3.1
  702. ./ R 01415400 01415600 $ 1415400 200                  02/02/95 12:29:03
  703. &KDATE   SETC  '95/02/02'                                      @SC95033
  704. &KEDIT   SETC  '1'                                             @SC95033
  705. :READ KERMIT SC95048 A1
  706. ./ * SC95048 - Close files in SFS properly (CMS)
  707. ./ R 05836100          $ 5836100 10                   04/18/95 15:42:18
  708.          B     DSKCLD5       Now force directory update        @SC95048
  709. ./ R 05836820          $ 5836820 10                   04/18/95 15:42:18
  710.          AGO   .CMSOD4B                                        @SC95048
  711. .CMSOD4  ANOP                                                  @SC95048
  712. DSKCLD5  LR    5,15          Save return code from FINIS       @SC95048
  713.          LA    14,=CL8'DMSCOMM' Commit to disk                 @SC95048
  714.          LA    15,DSKRTC     Set up plist                      @SC95048
  715.          LA    0,DSKREAS                                       @SC95048
  716.          LA    1,F0                                            @SC95048
  717.          STM   14,1,DSKQPLST                                   @SC95048
  718.          OI    DSKQPLST+12,X'80'                               @SC95048
  719.          KCALL DMSCSL,DSKQPLST,EXT Call system, but ignore RC  @SC95048
  720.          LR    15,5                                            @SC95048
  721. .CMSOD4B ANOP                                                  @SC95048
  722. :READ KERMIT SC95059 A1
  723. ./ * SC95059 - Preserve transmitted time tag for RESENT file
  724. ./ I 08026040          $ 8026050 10                   02/28/95 19:49:43
  725.          MVC   RECBDAT,FDATE Save date for output file         @SC95059
  726. ./ I 08026280          $ 8026290 10                   02/28/95 19:49:43
  727.          MVC   FDATE,RECBDAT Restore date for output file      @SC95059
  728. ./ I 08089600          $ 8089650 50                   02/28/95 19:49:43
  729. RECBDAT  DS    XL7           Saved date for output file        @SC95059
  730. :READ KERMIT SC95108 A1
  731. ./ * SC95108 - Prevent error-free transfers from halting TAKE files
  732. ./ I 02116000          $ 2116500 500                  04/18/95 18:47:43
  733. * Set CC according to R15.                                     @SC95108
  734. ./ R 02120000          $ 2120490 490                  04/18/95 18:47:43
  735.          ICM   15,1,ERRNUM   Return status code                @SC95108
  736. :READ KERMIT SC95174 A1
  737. ./ * SC95174 - Implement REGET subcommand
  738. ./ R 01413700          $ 1413700 40                   06/23/95 21:21:34
  739.          GBLC  &AAARSND,&AUPDATE,&AAARGET                      @SC95174
  740. ./ I 01460400          $ 1460450 50                   06/23/95 21:21:34
  741. &AAARGET SETC 'REGET'           cmd, m=3                       @SC95174
  742. ./ R 03030500          $ 3030500 200                  06/23/95 21:13:35
  743.          KW    '&AAAAGET',KRMGET,R                             @SC95174
  744. ./ I 03032000          $ 3032200 200                  06/23/95 21:13:35
  745.          KW    '&AAARGET',KRMGET,J,MIN=3                       @SC95174
  746. ./ R 03034700          $ 3034700 40                   06/23/95 21:13:35
  747.          DC    X'0'          Normal type has no disp code      @SC95174
  748. ./ R 03052500          $ 3052500 100                  06/23/95 21:13:35
  749. KRMGET   MVC   USNCOD,KWCODE(1) Save send command abbrev       @SC95174
  750.          PTEXT '&FORFSPC - ',AREG=1,LREG=0                     @SC95174
  751. ./ R 03065000          $ 3065000 100                  06/23/95 21:13:35
  752.          MVC   STYPE,USNCOD  Type = receive initiate (R/J)     @SC95174
  753.          TR    STYPE,ETOAD                                     @SC95174
  754. ./ I 07508500          $ 7508700 200                  06/23/95 21:13:35
  755.          DC    AL1(AJ),AL3(SRVSND)  Micro wants to get a file  @SC95174
  756. ./ R 07530500          $ 7530500 100                  06/23/95 21:13:35
  757.          SR    1,1           Normal send is code 0             @SC95174
  758.          CLI   RTYPE,AJ      Is it a REGET?                    @SC95174
  759.          BNE   *+8                                             @SC95174
  760.           LA   1,AR          Yes, use the RESEND code          @SC95174
  761.          KCALL SEND                                            @SC95174
  762. :READ KERMIT SC96122 A1
  763. ./ * SC96122 - Avoid endless double transmission from windowed Kermit
  764. ./ R 01917400 01917800 $ 1917400 100                  05/02/96 20:09:53
  765.          BNE   SENDRTA       No, resend whatever it was        @SC96122
  766.          CLI   DATLSN,0      "plain" only if no data           @SC96122
  767.          BNE   SENDRTA       No, resend whatever it was        @SC96122
  768.          CLC   RSN,SSN       Yes, did we rereceive the prev?   @SC96122
  769.          BNE   SENDNAK       No, must be bad packet, send NAK  @SC96122
  770. SENDRTA  DS    0H                                              @SC96122
  771. ./ I 02619000          $ 2619100 100                  05/02/96 20:09:53
  772. SSN      DS    X             Last sent pkt number              @SC96122
  773. ./ I 08473000          $ 8473200 200                  05/02/96 20:09:53
  774.          MVC   SSN,SEQ       Save an extra copy                @SC96122
  775. :READ KERMIT SC96151 A1
  776. ./ * SC96151 - Add system ID to INIT packets
  777. ./ R 08234300          $ 8234250 50                   05/31/96 22:26:14
  778.          MVC   18(LSYSATR-1,9),SYSATR+1 Copy system ID         @SC96151
  779.          LA    0,18+LSYSATR-1   Size of data including ID      @SC96151
  780. :READ KERMIT SC96158 A1
  781. ./ * SC96158 - Never skip sending an I-packet while in remote mode
  782. ./ I 01934000          $ 1934300 300                  06/06/96 23:14:40
  783.          CLI   TRMLIN,C' '   Alt. line?                        @SC96158
  784.          BE    IPKGO         No, send I-packet regardless      @SC96158
  785. ./ I 01936000          $ 1936500 500                  06/06/96 23:14:40
  786. IPKGO    DS    0H                                              @SC96158
  787. :READ KERMIT SC96165 A1
  788. ./ * SC96165 - Correct handling of dates in 2000's (CMS)
  789. ./ R 01415400 01415600 $ 1415400 200                  06/13/96 15:55:30
  790. &KDATE   SETC  '96/06/13'                                      @SC96165
  791. &KEDIT   SETC  '2 Test'                                        @SC96165
  792. ./ I 05836670          $ 5836672 2                    06/13/96 15:55:30
  793.          NI    FSTFB,255-8   1900's                            @SC96165
  794.          CLI   FABNDAT,X'19' Which century?                    @SC96165
  795.          BNH   *+8                                             @SC96165
  796.           OI   FSTFB,8       2000's                            @SC96165
  797. ./ I 06024500          $ 6024600 100                  06/13/96 15:55:30
  798.          TM    FSTFB,8                                         @SC96165
  799.          BO    DSKVD21       No, 2000's                        @SC96165
  800. ./ R 06026000          $ 6026000 200                  06/13/96 15:55:30
  801. DSKVD21  MVI   FDBDATE,X'20' Must be 2000's                    @SC96165
  802. :READ KERMIT SC96338 A1
  803. ./ * SC96338 - Full support for Y2000 (CMS)
  804. ./ I 00994700          $ 994800 100                   12/04/96 00:14:33
  805. FABNCEN  DS    X             Century code for Y2000 support    @SC96338
  806. ./ R 01023850          $ 1023850 10                   12/04/96 00:14:33
  807. FINAEPL  DMSFINAE MF=L,MAXPARM=2 Reserve space for plist       @SC96338
  808. ./ I 05820200          $ 5820270 70                   12/04/96 00:14:33
  809.          IC    2,FABNDAT                                       @SC96338
  810.          SRL   2,2                                             @SC96338
  811.          STC   2,FABNCEN     Sets x'08' if 2000+               @SC96338
  812. ./ R 05836070          $ 5836070 5                    12/04/96 00:14:33
  813.                DATETIM=FABNDAT+1,CENT=FABNCEN,MF=(E,FINAEPL)   @SC96338
  814. ./ R 05836672 05836678 $ 5836674 2                    12/04/96 00:14:33
  815.          XC    FSTFB,FABNCEN Insert century bit                @SC96338
  816.          NI    FSTFB,255-8   (mask it for replacement)         @SC96338
  817.          XC    FSTFB,FABNCEN                                   @SC96338
  818. :READ KERMIT SC97028 A1
  819. ./ * SC97028 - Clear 'Kermit command error' condition correctly
  820. ./ I 02279000          $ 2279500 500                  01/28/97 20:49:24
  821. LUPWRT   WTEXT (3),(4)                                         @SC97028
  822. ./ R 02288000          $ 2288000 500                  01/28/97 20:49:24
  823.          WTEXT (3),(4)                                         @SC97028
  824. :READ KERMIT SC97164 A1
  825. ./ * SC97164 - Update to level 4.3.2
  826. ./ R 01415400 01415600 $ 1415400 200                  06/13/97 12:29:03
  827. &KDATE   SETC  '97/06/13'                                      @SC97164
  828. &KEDIT   SETC  '2'                                             @SC97164
  829. :READ ...
  830.