MSGID: 2:221/360.0 5e48573e
REPLY: 2:221/360.0 5e483984
PID: Sylpheed 3.7.0 (GTK+ 2.24.30; i686-pc-mingw32)
CHRS: IBMPC 2
TZUTC: 0200
I wrote:

> procedure AtoB(a: byte; var b: byte);
> begin asm
>     PUSH  AX           { store AX                 }
>     MOV   DI,  [BP+4]  { store offset  of b in DI }
>     MOV   ES,  [BP+2]  { store segment of b in ES }
>     MOV   AX,  [BP+8]  { store a in AX            }
>     MOV  [DI],  AX     { assign AX to a           }
>     POP   AX           { restore AX               }
> end end;

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 AL to a           }
end end;

---
 * Origin: nntps://fidonews.mine.nu - Lake Ylo - Finland (2:221/360.0)
SEEN-BY: 1/123 90/1 221/1 6 242 360 226/16 227/114 229/426 452 616
SEEN-BY: 229/1014 240/5832 249/206 317 400 280/464 5003 317/3 320/219
SEEN-BY: 322/757 342/200 423/81 633/0 267 280 281 412 414 640/1138
SEEN-BY: 640/1321 1384 712/620 848 770/1
PATH: 221/1 640/1384 712/848 633/280 229/426