TITLE  Program by Peter Abel;           1
;-------------------------------------- 2
STACKSG SEGMENT PARA STACK 'Stack';     3
        DW      128  DUP (?)      ;     4
                                  ;     5
STACKSG ENDS                      ;     6
;-------------------------------------- 7
DATASG  SEGMENT PARA 'Data'
B1      DB      0
B2      DB      255                    ;10
W1      DW      0
W2      DW      65535

DATASG  ENDS
;--------------------------------------15
CODESG  SEGMENT PARA 'Code'
BEGIN   PROC    FAR
        ASSUME  CS:CODESG,DS:DATASG,SS:STACKSG,ES:NOTHING

        PUSH    DS
        SUB     AX,AX
        PUSH    AX
        MOV     AX,DATASG
        MOV     DS,AX
;--------------------------------------25
        MOV     AL,B1
        RET
BEGIN   ENDP
CODESG  ENDS
        END     BEGIN                  ;30