From: admin@nospicedham.127.0.0.1   
      
   On Fri, 30 Jun 2017 12:37:36 -0000, Kerr Mudd-John   
    wrote:   
      
   > n Fri, 30 Jun 2017 10:16:19 +0100, wolfgang kern    
   > wrote:   
   >   
   >>   
   >> btw: you posted something to the other 'too long' thread,   
   >> I see the header but can't open it.   
   >   
   > Not that exciting: saved a jmp, cost a lodsb:   
   >   
   > On Fri, 26 May 2017 08:24:38 +0100, Kerr Mudd-John   
   >  wrote:   
   >   
   > ll63 bytes 252   
   >   
   >   
   > Saved a few more! (OK just 1 in the 2:1 stage2 decoder)   
   > ll64 bytes 249   
   >   
   > ZRPRhF0XPR5F1PRRjF4gPa5LU1GI1GKRX+G=1GdSVG8+r6238wat083t+RUZ=rY=   
   > 662202Zffffff0222F6====MJ=20=17===eeee+++slOBI9UnoAlpinMIupasbaA   
   > NE9E7jelperHQE9sAWKsuH8lpssMIG7asA9babaRKi8A99Wh8G7w7d8v7h8WKh8f   
   > 7I8sCoAlpadITw7YoH9f7=tAm6CAHNIcNIZWxsbyB3b3JsZCEk=   
   >   
   ll64 bytes 246 (sadly need to set cl=0 cost 3)   
      
   ZRPRhp0XPR5p1PRRjL4hPa5LU1GJ1GLRX+G=1GeRSVG8+r6238wbt083t+RU=rY=   
   66Z2202Zffffff0222F6====MJ=20=17===eeee+++slOBI9UnEdoAasbaANE9E7   
   jelperHQE9sAjesuH8lpssMIG7asA9babaaGv7h8A7IdH9RKi8A9EGI8sCoAlpin   
   MIT9lpadITt7YoH9f7=tAm6CAHNIcNIZWxsbyB3b3JsZCEk=   
      
   >   
      
   > 1622:0100 AC             lodsb   
   > 1622:0101 3C 2B          cmp          al,2B   
   > 1622:0103 72 25          jb           012A   
      
   (getnum)   
   > 1622:0105 2C 41          sub          al,41   
   > 1622:0107 73 0A          jnb          0113   
   > 1622:0109 04 45          add          al,45   
   > 1622:010B 3C 33          cmp          al,33   
   > 1622:010D 77 0A          ja           0119   
   > 1622:010F B0 86          mov          al,86   
   > 1622:0111 1C 00          sbb          al,00   
   > 1622:0113 3C 1A          cmp          al,1A   
   > 1622:0115 72 02          jb           0119   
   > 1622:0117 2C 06          sub          al,06   
      
   (put3)   
   > 1622:0119 41             inc          cx   
   > 1622:011A 41             inc          cx   
   > 1622:011B 83 E1 06       and          cx,0006   
   > 1622:011E D2 EC          shr          ah,cl   
   > 1622:0120 C0 E0 02       shl          al,02   
   > 1622:0123 D3 E0          shl          ax,cl   
   > 1622:0125 86 E0          xchg         ah,al   
   > 1622:0127 E3 01          jcxzw        012A   
   > 1622:0129 AA             stosb   
      
   Improved store part:   
                   ;put3:   ; need cl=*0* on 1st run   
   41                               inc cx   
   41                               inc cx              ; req cl=8 for last   
   shift, then 0   
   98                               cbw                 ; clr ah   
   D3E0                             shl ax,cl           ; 2,4,6,8   
   0865FF                           or [di-1],ah        ; or on top bits to   
   prev char   
   80E106                           and cl,0x06         ; 8->0. 2,4,6 ok   
   7401                             jz nosave           ; jz not jcxz   
   AA                               stosb               ; store these bits   
                   nosave:   
   (gnc)   
   > 1622:012A AC             lodsb   
   > 1622:012B 3C 3D          cmp          al,3D   
   > 1622:012D 75 D2          jnz          0101   
      
      
      
      
   --   
   Bah, and indeed, Humbug   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)