home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / cmsoriginal / cmswild.dif < prev    next >
Text File  |  2020-01-01  |  2KB  |  56 lines
  1. The version of CMSWILD that was sent out on the Feb 11-17, 1983, DEC-20
  2. Kermit distribution tapes was wrong.  The current version of CMSWILD is
  3. correct.  Here are the differences:
  4.  
  5. Directly after the "WILD CSECT" statement, the -20 version is missing the 
  6. following 6 lines between lines 8 and 9 (all instructions must be in 
  7. upper case):
  8.   
  9. WILD    CSECT
  10.     USING    WILD,15            ADDRESSABILITY
  11.     STM    14,12,12(13)        SAVE REGS
  12.     LR    14,13            SAVE REG 14    
  13.     L    13,=V(WILDA)        DATA AREA
  14.     USING    WILDA,13        POINT TO DATA AREA
  15.     ST    14,4(13)        BACKCHAIN
  16.  
  17. After the comment "* FIRST SOME INITIALIZATION", the -20 version is missing
  18. the following 2 lines (between lines 24 and 25):
  19.  
  20. * FIRST SOME INITIALIZATION
  21.     SR    5,5
  22.     SR    7,7
  23.  
  24. The whole section between the labels "GOTLEN1" and "GOTARB" should be
  25. changed. Delete lines 72/78 and insert instead to read:
  26.  
  27. GOTLEN1    EQU    *
  28.     LA    4,1(4)            INCREMENT PATTEN ADDR
  29.     BCTR    5,0            DECREMENT PATTERN LEN
  30.     LA    6,1(6)            INCREMENT SOURCE ADDR
  31.     BCTR    7,0            DECREMENT SOURCE LEN
  32.     LA    0,0(,7)            GET LENGTH W/O PAD CHAR
  33.     LTR    0,0            ANY MORE SOURCE LEFT?
  34.     BNZ    COMPRE            AND KEEP TRYING
  35.     LTR    5,5            NO DATA LEFT HERE EITHER?
  36.     BZ    SUCCESS            SAME LENGTH - A MATCH
  37.     CLC    0(1,4),ARB        IS IT THE WILD CHAR?
  38.     BE    COMPRE            IT'S OK
  39.     B    BOMB            ELSE, WE FAIL
  40. GOTARB    EQU    *    
  41.  
  42. After "GOTARB" follows two comments.  There should be 7 lines of
  43. code after that before the label "SUCCESS".  Replace lines 81
  44. (starting with the "MVI" instruction) through 86 with the following:
  45.  
  46. * IF PATTERN.......
  47. * GOTARB SHOULD........
  48.     MVI    STARFLG,X'FF'        REMEMBER WE SAW ONE
  49.     LA    4,1(4)            PASS THE START
  50.     BCTR    5,0            DECREMENT ITS LENGTH
  51.     LTR    5,5
  52.     BZ    SUCCESS            WE HAVE A MATCH
  53.     STM    4,7,PATADDR        SAVE WHERE THEY WERE
  54.     B    COMPRE
  55. SUCCESS    EQU    *
  56.