1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| data segment
s db 'bonjour$'
data ends
spile segment stack
db 256 dup(?)
bpile EQU this word
spile ends
assume ds: data , cs: code , ss: spile
code segment
modetext proc near
mov al, 3
int 10h
Ret
modetext EndP
gotodos proc near
mov ah, 4ch
int 21
Ret
gotodos EndP
writes proc near
mov ah, 09
int 21h
Ret
writes EndP
; ---- Bloc principal ----
main:
call modetext
mov ax, data
mov ds, ax
mov ax, spile
mov ss, ax
mov sp, bpile
mov dx, offset s
call writes
call gotodos
code ends
end main |
Partager