CDSEG        SEGMENT
             ASSUME CS:CDSEG,DS:CDSEG
             ORG    100h

HP           PROC
             MOV    BL,2
             MOV    BH,0
             MOV    CX,1234h
             MOV    DX,CX
             MOV    CX,DX
             MOV    OPC,CX
             MOV    CX,OPC
             MOV    TABL[BX],CX
             MOV    CX,TABL[BX]
             MOV    OPC,1234h
             MOV    TABL[BX],1234h
             CALL   UP2
             INC    BX
             INC    BL
             INT    20h
HP           ENDP

UP1          PROC
             RET
UP1          ENDP

UP2          PROC
             CALL   UP1
             RET
UP2          ENDP

OPA          DW     ?
OPB          DB     ?
OPC          DW     ?
TABL         DW     10 DUP (?)

CDSEG        ENDS
             END HP