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