; VERSION LONGUE DU CODE POUR LES SEGMENTS
           PAGE    80,132
;===================================================================
;               PROGRAM LISTING 1.1
;
; PROGRAM TO PRINT NUMBER SYSTEM TRANSLATION TABLES
;===================================================================
                                       ;PROCEDURES TO
           EXTRN   CLEAR:FAR           ;CLEAR SCREEN
           EXTRN   GETDEC:FAR          ;CLEAR SCREEN
           EXTRN   NEWLINE:FAR         ;DISPLAY NEWLINE CHARACTER
           EXTRN   PUTBIN:FAR          ;DISPLAY BINARY (BYTE OR WORD)
           EXTRN   PUTDEC:FAR          ;DISPLAY 16-BIT DECIMAL INT.
           EXTRN   PUTHEX:FAR          ;DISPLAY HEX   (BYTE OR WORD)
           EXTRN   PUTOCT:FAR          ;DISPLAY OCTAL (BYTE OR WORD)
           EXTRN   PUTSTRNG:FAR        ;DISPLAY CHARACTER STRING
;===================================================================
;S T A C K   S E G M E N T   D E F I N I T I O N
;
STACK      SEGMENT STACK
           DB      256 DUP(?)
STACK      ENDS
;===================================================================
;D A T A   S E G M E N T   D E F I N I T I O N
;
DATA       SEGMENT
AVANT	   DB	   'AAAAAAAAAAAAAAAAA'
NOM	   DB      'JULIEN CHIASSON'
APRES	   DB	   'BBBBBBBBBBBBBBBBB'

DATA       ENDS
;===================================================================
;C O D E   S E G M E N T   D E F I N I T I O N
;
CODE       SEGMENT 'CODE'
           ASSUME  CS:CODE,DS:NOTHING,ES:DATA,SS:STACK
EX_1_1:
                MOV     AX,SEG DATA     ;SET ES-REGISTER TO POINT 
                MOV     ES,AX           ;TO DATA SEGMENT

                CALL    CLEAR           ;   CLEAR SCREEN
                LEA     DI,NOM          ;   DISPLAY HEADERS
                MOV     CX,30
                CALL    PUTSTRNG
                CALL    GETDEC


                MOV     AX,4C00H        ;RETURN TO OS					
                INT     21H

CODE            ENDS
                END     EX_1_1