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..

TUGAS PEMROGRAMAN ASSEMBLER

slamat malam menjelang soreeee :D.. 
nah pada postingan kali ini sya ngposting soal" UTS Assembly saya
sekaligus jawabannya .. y mudah"n isi'a emang bener .. tpi klo salah y mohon d kasih tau jawaban yang bener'a  hhehhehe,, 
yupz langsung aja cekidot .. 


I. jawab singkat dan jelas 
1. apa yang di maksud dengan register, memory, interrupt dan sebutkan 8 general purpose register !!

jawab : 
yang di maksud REGISTER ialah memori berukuran sangat kecil dengan kecepatan akses sangat tinggi.


MEMORY ialah tempat penyimpanan data sementara

INTERRUPT ialah suatu kejadian atau peristiwa yang menyebabkan mikrokontroler berhenti sejenak untuk melayani interrupt tersebut.

2. gambarkan arsitekur komputer dan jelaskan tiap - tiap bagiannya !

jawab : 




     Suatu sistem komputer terdiri dari lima unit struktur dasar, yaitu:
   -  Unit masukan (Input Unit)
   -  Unit kontrol (Control Unit)
   -  Unit logika dan aritmatika (Arithmetic & Logical Unit / ALU)
   -  Unit memori/penyimpanan (Memory / Storage Unit)
   -  Unit keluaran (Output Unit)  

3. apayang dimaksud  OpCode, bahasa Assembly dan bahasa mesin, beri alasan mengapa kita mempelajari bahasa assembly ?

jawab  :
Kode operasi (operation code atau sering disingkat sebagai OpCode) merupakan bagian perintah yang harus dikerjakan. khususnya untuk mengatur kinaerja mikrokontroler / microprosesor

bahasa assembly adalah bahasa pemrograman tingkat rendah yang digunakan dalam pemrograman komputer, mikroprosesor, pengendali mikro, dan perangkat lainnya yang dapat diprogram.

Bahasa mesin atau kode mesin merupakan seperangkat instruksi serta data yang dapat dieksekusi secara langsung oleh prosesor komputer.


 mengapa kita mempelajari bahasa assembly ialah karena sebelum kita mempelajarai bahasa- bahasa pemrograman lain kita haru mengerti dulu dasar dari kinerja komputer sebenarnya.


4. konveksikan bilangan berikut ke binary :
a. 125      b. 47(h)     c. 33(o)    d. 0AAA(h)    e. 68

jawab :

a. 125          =  000100100101 atau 100100101
b. 47(h)       =  01000111  atau 1000111
c. 33(o)       =  00110011 atau 110011
d. 0AAA(h)  =  101010101010
e. 68           =  1101000

5. buatlah sebuah program untuk menampilkan  : P Q R S T U V

jawab  :

.model small
.code
org 100h
prose :
mov ah, 02h  
mov dl, 'P'
mov cx, 6h
ulang:
int 21h 
inc dl
loop ulang
int 21h
end proses


II. Uraikan dengan Jelas !
Jelaskan script program dan hasil Output dibawah berikut :

.Model  Small
.Code
Org 100h
text : JMP Mulai    ; lompat ke mulai
Tulis  DB 'STMIK CIKARANG TEKNIK INFORMATIKA'  ; menampilkan 33 karakter
Mulai :
XOR BX, BX    ; BX=0 untuk oenunjuk offset
MOV CX, 33     ; banyaknya jumlah karakter yang akan di tampilkan
Ulang :
MOV DL, TULIS [BX] ; ambil karakter yang ke BX
MOV AH, 02     ; nilai servis untk cetak karakter
INT 21h            ; cetak karakter
INC BX            ; BX: BX=BX+1
LOOP ULANG      ; lompat ke ulang sampai cx=0
INT 20h    ; kembali ke DOS
END TEXT



hasil output     STMIK CIKARANG TEKNIK INFORMATIKA


Alhamdulillah akhirnya selesai juga ..
:D nah temen" ini hasil jawaban menurut saya ..
gmn pendapatnya ?? jika masih banyak yang salah tolong bantu untuk memperbaikinya :)

terimakasih udah mampir d blog saya ..


Adi heriyanto

Ekspedisi G. Slamet 3428mdpl.

 Assalamualaikum Wr. Wb.

Salam Rimba & Salam Lestari untuk sahabat sahabat para penjelajah alam semuanya :)

terimakasih sudah berkenan mampir ke blog kami ..

kami mw menceritakan salah satu perjalanan kami d gunung Slamet, Bambangan purbalingga jawa tengah..

Sebelum masuk k awal cerita alangkah baiknya klo kami memperkenalkan bberapa tokoh dalam perjalan kami ini, ada bung apde, andri,om dodi,indra, joko,uchil, dan saya sendiri 

Pendakian kami sebenarnya di mulai tanggal desember 29, 2013 dari pos bambangan.. namun karena tiket untuk ke tujuan purbalingga sudah hampir terjual habis maka dengan terpaksa kami pun berangkat dengan 2 kloter .. kloter pertama berangkat 5 orang yaitu joko, om dodi, andri & uchi di desember 27 2013.. dan kloter kedua di desember 28, 2013 indra , apde dan saya ..

4 orang pertama menunggku kami d pos bambangan selama satu malam dsna .. dan saat sampainya saya indra dan apde d pos bambangan maka kami pun langsung packing ulang untuk merapikan barang bawa'n yang akan d bawa untuk mendaki k puncak ..

setelah mengisi bahan bakar untuk perut masing" dan selesai packing maka siap d mulai sudah pendakian kami d desember 29, 2013 ..