; Program P12.asm
.MODEL small
.STACK 100h
; gen_header: Rd=1 Wr=1
EXTRN readint:PROC
EXTRN bin2dec:PROC
; gen_header: # of identifiers=2
.DATA
a DW 0
y DW 0
dTv0 DW 0
; gen_header: generate I/O-text
Sisse DB 'Input the variable ','$'
Trykk DB 'Variable ','$'
a_S DB 'a=','$'
y_S DB 'y=','$'
; gen_header: code segment'll start
.CODE
ProgramStart:
mov ax,@data
mov ds,ax
;compiling the operator READ a
mov ah,9h
mov bx,1
mov cx,17
mov dx,OFFSET Sisse
int 21h
mov ah,9h
mov bx,1
mov cx,2
mov dx,OFFSET a_S
int 21h
call readint
mov a,ax
;compiling the operator (1+2)
mov ax,1
add ax,2
mov dTv0,ax
;compiling the operator ((1+2)+3)
mov ax,dTv0
add ax,3
mov dTv0,ax
;compiling the operator (((1+2)+3)+a)
mov ax,dTv0
add ax,a
mov dTv0,ax
;compiling the operator y:=(((1+2)+3)+a)
mov ax,dTv0
mov y,ax
;compiling the operator WRITE y
mov ah,9h
mov bx,1
mov cx,8
mov dx,OFFSET Trykk
int 21h
mov ah,9h
mov bx,1
mov cx,2
mov dx,OFFSET y_S
int 21h
mov ax,y
mov dx,0
cmp ax,0
jg s1h2o3w
mov dx,1
s1h2o3w:
mov ch,1
call bin2dec
mov ah,4ch
int 21h
END ProgramStart
programm P12.asm is compiled
I'll start compiler from assembler, and linker
tasm P12 >>P12c.htm
Turbo Assembler Version 3.1 Copyright (c) 1988, 1992 Borland International
Assembling file: P12.ASM
Error messages: None
Warning messages: None
Passes: 1
Remaining memory: 460k
tlink P12+teek >>P12c.htm
Turbo Link Version 2.0 Copyright (c) 1987, 1988 Borland International
Compiler ended at
Fri Jun 01 15:29:53 2001