Prak orkom 7 ; extended

.MODEL SMALL
.CODE
ORG 100h

TData : JMP proses
T_ASCII DB 13, 10, ‘ini adalah tombol ASCII:$’
T_Extended DB 13, 10, ‘innni adalah tombol extended $’

Proses :
MOV AH,0
INT 16h
PUSH AX
CMP AL,00
JE Extended

ASCII:
LEA DX,T_ASCII ; Ambil alamat efektif T_AsCII
MOV AH,09 ; Servis cetak kalimat
INT 21h ; Cetak kalimay
POP AX; Ambil Ax pd stack
MOV DL,AL
MOV AH,2
INT 21h
CMP AL,’Q’
JE exit
CMP AL,’q’
JE exit
JMP Proses
Extended :
LEA DX,T_Extended
MOV AH,09
INT 21h
JMP Proses
exit : INT 20h
END TData

Prak 7 orkom : besar > kecil

.MODEL SMALL
.CODE
ORG 100h

TData: JMP Proses
BilA DB 67
BilB DB 66
Kal0 DB ‘Bilangan A < Bilangan B$’
Kal1 DB ‘Bilangan A = Bilangan B$’
Kal2 DB ‘Bilangan A > Bilangan B$’

Proses :
MOV Al,BilA
CMP AL,BilB
JB AKecil
JE Sama
JA ABesar

Akecil:
LEA DX,Kal0
JMP Cetak

Sama:
LEA DX,Kal2

ABesar:
LEA DX,Kal2

Cetak:
MOV AH,09
INT 21h
EXIT : INT 20h

END TData

Prak.7 Orkom : Kalimat

.MODEL SMALL
.CODE
ORG 100h

Tdata : JMP Proses
Kal0 DB ‘PROSES PENCETAKAN STRING’, 13, 07,’$’ ; 10& 13 karakter kontrol
Kal1 DB ‘DIBELAKANG TANDA $ TIDAK BISA DICETAK’

Proses :
MOV AH,09h ; servis ke 9
MOV DX, OFFSET Kal0 ;
INT 21h
LEA DX,Kal0 ; Ambil Alamat OFFSET
INT 21h ; cetak sampai $
LEA DX,Kal0+7 ; Ambil alamat offset Kal0+7
INT 21h ; cetak
LEA BX,Kal1 ;
INT 21h
INT 20h
END Tdata