=e 2000  01 00   02 00   03 00   04 00   05 00   06 00   07 00   08 00   09 00
=e 2012  10 00   19 00   24 00   31 00   40 00   51 00   64 00   79 00   90 00
=e 2500  12 00
=e 0000:0184  00 45   77 1b
=a 1b77:4500
1B77:4500 push ax
1B77:4501 push cx
1B77:4502 push dx
1B77:4503 mov  ax,bx
1B77:4505 mov  cx,c8
1B77:4508 sub  dx,dx
1B77:450A div  cx
1B77:450C add  ax,2
1B77:450F mov  cx,ax
1B77:4511 mov  ax,bx
1B77:4513 sub  dx,dx
1B77:4515 div  cx
1B77:4517 add  ax,cx
1B77:4519 shr  ax,1
1B77:451B cmp  ax,cx
1B77:451D je   452B
1B77:451F sub  cx,ax
1B77:4521 cmp  cx,1
1B77:4524 je   452B
1B77:4526 cmp  cx,-1
1B77:4529 jne  450f
1B77:452B mov  bx,ax
1B77:452D pop  dx
1B77:452E pop  cx
1B77:452F pop  ax
1B77:4530 iret
1B77:4531 
=a 1500
1AD1:1500 mov cl,[2500]
1AD1:1504 mov si,2000
1AD1:1507 mov di,3000
1AD1:150A mov bx,[si]
1AD1:150C int 61
1AD1:150E add bx,3
1AD1:1511 mov [di],bx
1AD1:1513 add si,2
1AD1:1516 add di,2
1AD1:1519 dec cl
1AD1:151B jnz 150a
1AD1:151D int 20
1AD1:151F 
=g =1500 151d
AX=0000  BX=000F  CX=0000  DX=0000  SP=FFFE  BP=0000  SI=2024  DI=3024
DS=1AD1  ES=1AD1  SS=1AD1  CS=1AD1  IP=151D   NV UP DI PL ZR NA PE NC
1AD1:151D CD20          INT     20
=e 3000
1AD1:3000  04.     00.     04.     00.     04.     00.     05.     00.
1AD1:3008  05.     00.     05.     00.     05.     00.     06.     00.
1AD1:3010  06.     00.     07.     00.     08.     00.     09.     00.
1AD1:3018  0A.     00.     0B.     00.     0C.     00.     0D.     00.
1AD1:3020  0E.     00.     0F.     00.
=t
AX=2523  BX=1AD1  CX=0001  DX=001C  SP=4E88  BP=0000  SI=4A82  DI=4B80
DS=9F2B  ES=15DF  SS=15DF  CS=15DF  IP=3BE7   NV DN DI NG ZR AC PE CY
15DF:3BE7 2EC7067A019407
                        MOV     WORD PTR CS:[017A],0794            CS:017A=074D
=q