; 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