praktikum 15 - 21

1.  PRAKTIKUM 15
    Sintak praktikum 15

.MODEL SMALL
.CODE
ORG 100h

TData: JMP Proses
Kar DB ?
Klm DB 'MUHAEMIN 12429110'

Proses:MOV CX,17
XOR BX,BX
Ulang:
MOV DL,Klm[BX]
MOV Kar,DL
CALL    Cetak_Kar
INC BX
LOOP    Ulang

INT 20h

Cetak_Kar   PROC  NEAR
PUSH    AX
PUSH    DX

MOV AH,02h
MOV DL,Kar
INT 21h

POP DX
POP AX
RET
Cetak_Kar   ENDP

END TData

  OUTPUT PRAKTIKUM 15






2. PRAKTIKUM 16
    Sintak Praktikum 16

1.       

Cetak_Kar   MACRO   Kar

LOCAL   Ulang

MOV CX,10

MOV AH,02

MOV DL,Kar

Ulang:

INT 21h

LOOP    Ulang

ENDM

.MODEL SMALL

.CODE

ORG   100h

Proses:

Cetak_Kar   'M'

Cetak_Kar   'H'

INT 20h

END Proses

  OUTPUT PRAKTIKUM 16







3. PRAKTIKUM 17
   Sintak Praktikum 17

.INCLUDE PUSTAKA.MCR

.MODEL SMALL
.CODE
ORG 100h

TData   :   JMP Prosess
Kal0    DB     'MACRO 12429110 $'

Prosess:
Cetak_Klm   Kal0
Cetak_Kar   'Y'
INT 20h
END TData


4. PRAKTIKUM 18
  Sintak praktikum 18

Tulis_Kar  MACRO   X,Y,Kar,Attr
MOV AX,0B800h
MOV ES,AX

MOV AH,Y
MOV AL,160
MUL AH
MOV BX,AX

MOV AH,X
MOV AL,2
MUL AH
ADD BX,AX

MOV AL,Kar
MOV AH,Attr
MOV ES:[BX],AL
MOV ES:[BX+1],AH
ENDM

.MODEL  SMALL
.CODE
ORG 100h
Proses  :
Tulis_Kar 40 12 '1' 95
Tulis_Kar 41 12 '2' 95
Tulis_Kar 42 12 '4' 95
Tulis_Kar 43 12 '2' 95
Tulis_Kar 44 12 '9' 95
Tulis_Kar 45 12 '1' 95
Tulis_Kar 46 12 '1' 95
Tulis_Kar 47 12 '0' 95

INT 20h
END Proses

OUTPUT PRAKTIKUM 18




5. PRAKTIKUM 19
  Sintak Praktikum 19

 









OUTPUT PRAKTIKUM 19





6. PRAKTIKUM 20
    Sintak praktikum 20



OUTPUT PRAKTIKUM 20





7. PRAKTIKUM 21
   Sintak Praktikum 21

Cetak_Klm MACRO kal
 mov ah,09  ;
 lea dx,kal  ;
 int 21h ;
endm

.model small
.code
org 100h

Tdata: JMP proses
cari DB 'mmuuhhaaeemmiinn' ;16 
ketemu DB ' karakter ''u''yang dicari ketemu ! $'    
tidak DB ' karakter ''u''yang dicari tidak ketemu ! $'
proses:
lea DI,cari
mov AL,'u'
mov CX,16
repne scasb 
jnz tdk_ada
cetak_Klm ketemu
jmp exit
tdk_ada:
cetak_Klm Tidak

exit: INT 20h
end Tdata


OUTPUT PRAKTIKUM 21