LATIHAN XIX

SLAMAT MALAM ......
wadduuuhhh waduuuhhh mudah"n belum telat ...
gini nie klo koneksi lambat bikin ngantuk dan akhirnya ketiduran ...
y langsung aja kita  sekarang mw posting hasil dari latihan XIX ..
nah ini dy koding'a

cls macro
    mov ax,0600h
    xor cx,cx
    mov dx,184fh
    mov bh,10
    int 10h
endm

gotoxy macro x,y
    mov ah,02
    xor bx,bx
    mov dh,y
    mov dl,x
    int 10h
endm

simpanL macro
    local ulang
    mov ax,0b800h
    mov es,ax
    mov cx,4000
    xor bx,bx
    ulang :
    mov al,es :[bx]
    mov layar [bx],al
    inc bx
    loop ulang
endm

balikl macro      
local ulang
mov cx,4000
xor bx,bx
ulang :
mov al, layar [bx]
mov es :[bx],al
inc bx
loop ulang
endm

sorot macro x,y
    local ulang
    mov bl,y
    mov al,160
    mul bl
    mov bx, ax
    mov al,x
    mov ah,2
    add bx,ax
    inc bx
    mov cx,25
    ulang:            
    mov byte ptr es :[bx],4fh
    add bx,2
    loop ulang
endm
readkey macro
    mov ah, 00
    int 16h
endm
menuL macro string
    mov ah,09  
    lea dx,string
    int 21h          
endm


.model small
.code
org 100h
tdata: jmp proses
Layar DB 4000 DUP  (?)
menu db 9,4, '+=======================+',13,10,07
db 9,4,  '|_____ADEI HERIYANTO____|',13,10,07
db 9,4,  '|                  (11429003)               |',13,10,07
db 9,4,  '|               SEMESTER V            |',13,10,07
db 9,4,  '|     TEKNIK INFORMATIKA   |',13,10,07
db 9,4,  '|          STMIK CIKARANG       |',13,10,07
db 9,4,  '+=======================+$'
posx db 22
posy db 12
panah_atas equ 72
panah_bawah equ 80
tenter equ 0dh
proses:  
menul menu
simpanl
ulang:
balikl
sorot posx,posy
masukan:
readkey
cmp ah,panah_bawah
je bawah
cmp ah,panah_atas
je ceky
cmp al,tenter
jne masukan

ceky:
cmp posy,12
je maxy
dec posy
jmp ulang
maxy:
mov posy,15
jmp ulang
bawah:
cmp posy,15
je noly
inc posy
jmp ulang
noly:
mov posy,12
jmp ulang
int 20h
end tdata                                        


nah itu kodingannya...

dan ini hasil outputnya

dan bila kita tekan enter , maka outputnya ,,

bila d tekan lagi enter ,,

naahh klo d tekan enter lagi maka hasil akhirnya seperti ini

alhamdulillah akhirnya selesai juga ..
:D

latihan XVIII

waduuhh gak kerasa udah mau pagi nie broo..
waktu'a posting latihan XVIII ,, di cicil dulu mumpung Ibu negara lagi dinas kluar jadi kita manfaatkan malam ini buat posting tugas :D hahaha

nah ini nie koding nya
   
    tulis_kar MACRO    X,Y Kar,attr
    mov ax, 0b800h
    mov es,ax
   
    mov ah,y
    mov al,160
    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 15 7 'A' 96
tulis_kar 16 7 'D' 96
tulis_kar 17 7 'I' 96
tulis_kar 18 7 ' ' 96
tulis_kar 19 7 'H' 96
tulis_kar 20 7 'E' 96
tulis_kar 21 7 'R' 96
tulis_kar 22 7 'I' 96
tulis_kar 23 7 'Y' 96
tulis_kar 24 7 'A' 96
tulis_kar 25 7 'N' 96
tulis_kar 26 7 'T' 96
tulis_kar 27 7 'O' 96
tulis_kar 28 7 '(' 9
tulis_kar 29 7 '1' 8
tulis_kar 30 7 '1' 8
tulis_kar 31 7 '4' 8
tulis_kar 32 7 '2' 8
tulis_kar 33 7 '9' 8
tulis_kar 34 7 '0' 8
tulis_kar 35 7 '0' 8
tulis_kar 36 7 '3' 8
tulis_kar 37 7 ')' 9
int 20h
end proses



dari koding tersebut maka kita akan mendapatkan output seperti berikut

 

nah cukup 

sekian untuk latihan kali ini terimakasih :)

LATIHAN ASSEMBLER "XII"

Asslamualaikum ...
jiaaahh kite balik lagi dengan pembahasan assembler ...
mudah" belum telat bkin postingan'a ,,

.MODEL SMALL 
.CODE
ORG 100h       ; meminta memory kosong sebanyak 100h
TData : JMP Proses          ; lompat ke proses
Kal DB 07,'LANG LING LUNG $'        ; menampilkan 14 karakter (LANG LING LUNG)
Ganti DB 13,10,'$'         ;meminta baris baru atau enter
Stacks DW ?          ; menyimpan nilai sementara
Proses:
LEA DX,Kal            ; alamat dari register DX
PUSH DX
MOV AH,09           ; nilai Servis untuk cetak karakter
INT 21h            ; Cetak karakter
LEA DX,Ganti             ; alamat dari register DX, DX = Ganti
INT 21h              ; Cetak karakter
POP DX
INT 21h             ;Cetak karakter
Exit : INT 20h         ; kembali ke DOS
END TData



gmn bener gk ???
klo masih belum bener tolong d bantu kasih yg bener'a y :D 
by email (adeisize@gmail.com) aja klo by phone nnti ada yang cemburu hhehhehhe ..

wassalam..