MSGID: 2:221/360.0 5e49a242   
   REPLY: 2:221/360.0 5e48573e   
   PID: Sylpheed 3.7.0 (GTK+ 2.24.30; i686-pc-mingw32)   
   CHRS: IBMPC 2   
   TZUTC: 0200   
   I wrote:   
      
   > Here  is a fixed version, without redundant opera-   
   > tions and with single-byte write:   
   >   
   > procedure AtoB(a: byte; var b: byte);   
   > begin asm   
   >    MOV   ES,  [BP+2]  { store segment of b in ES }   
   >    MOV   DI,  [BP+4]  { store offset  of b in DI }   
   >    MOV   AX,  [BP+8]  { store a in AX            }   
   >    MOV  [DI],  AL     { assign AX to a           }   
   > end end;   
      
   Problem solved.  Here is the correct code in TP  as-   
   sembly:   
      
   procedure AtoBRef(a: byte; var b: byte);   
   begin asm   
      MOV   DI,     [BP+4]  { store offset  of b in DI }   
      MOV   ES,     [BP+6]  { store segment of b in ES }   
      MOV   AX,     [BP+8]  { store a in AX            }   
      MOV  [ES:DI],  AL     { assign AX to a           }   
   end end;   
      
   It works as advertised.   
      
   ---   
    * Origin: nntps://fidonews.mine.nu - Lake Ylo - Finland (2:221/360.0)   
   SEEN-BY: 1/123 90/1 103/705 154/10 203/0 221/1 6 242 360 226/16 227/114   
   SEEN-BY: 229/426 452 616 1014 240/5832 249/206 317 400 280/464 5003   
   SEEN-BY: 317/3 322/757 342/200 396/45 423/81 120 633/280   
   PATH: 221/1 280/464 229/426