skip to main |
skip to sidebar
Anime | Cartoon | Internet Marketing
Asm 86 Millionere Qz
Tuesday, June 19, 2012 5:53 PM
Arsip
include > pisahkan ke notepad dengan ekstensi mcr
include Pustaka.mcr
.MODEL SMALL
.CODE
ORG 100h
TData: JMP Proses
T_Enter EQU 0Dh
Kal0 DB 13,10,9,9 DUP (176),4 DUP (32),8 DUP (176),4 DUP (32),176,176,4 DUP (32),176,4 DUP (32),9 DUP (176),4 DUP (32),3 DUP (176),6 DUP (32),3 dup (176), '$'
KAL3 DB 13,10,9,176,7 DUP (32),176,4 DUP (32),176,176,5 DUP (32),176,4 DUP (32),176,176,3 DUP (32),176,5 DUP (32),176,7 DUP (32),176,4 DUP (32),176,176,32,176,4 DUP (32),176,32,176,176, '$'
KAL4 DB 13,10,9,176,7 DUP (32),176,4 DUP (32),176,176,5 DUP (32),176,4 DUP (32),176,176,32,32,176,6 DUP (32),176,7 DUP (32),176,4 DUP (32),176,176,32,32,176,32,32,176,32,32,176,176, '$'
KAL5 DB 13,10,9,177,7 DUP (32),177,4 DUP (32),8 DUP (177),4 DUP (32),4 DUP (177),7 DUP (32),177,7 DUP (32),177,4 DUP (32),177,177,32,32,32,177,177,32,32,32,177,177,'$'
KAL6 DB 13,10,9,177,7 DUP (32),177,4 DUP (32),4 DUP (177),8 DUP
(32),177,177,32,32,177,6 DUP (32),177,7 DUP (32),177,4 DUP (32),177,177,32,32,32,177,177,32,32,32,177,177,'$'
KAL7 DB 13,10,9,178,7 DUP (32),178,4 DUP (32),178,178,32,178,178,7 DUP (32),178,178,32,32,32,178,5 DUP (32),178,7 DUP (32),178,4 DUP (32),178,178,8 DUP (32),178,178,'$'
KAL8 DB 13,10,9,178,7 DUP (32),178,4 DUP (32),178,178,32,32,178,178,6 DUP (32),178,178,4 DUP (32),178,4 DUP (32),178,7 DUP (32),178,4 DUP (32),178,178,8 DUP (32),178,178, '$'
KAL9 DB 13,10,9,9 DUP (178),4 DUP (32),178,178,3 DUP (32),3 DUP (178),4 DUP (32),178,178,4 DUP (32),178,178,3 DUP (32), 9 DUP (178),4 DUP (32),178,178,8 DUP (32),178,178, '$'
KAL10 DB 13,10,13,10,9,40 DUP (178),12 DUP (177),9 DUP (176), '$'
KAL11 DB 13,10,13,10,9,9,' >> AHMAD DESRAYEN - J3D111070 <<$'
KAL12 DB 13,10,13,10, ' Disclaimer [!]$'
KAL13 DB 13,10,13,10, ' "Program ini dibuat untuk menyelesaikan Proyek Akhir $'
KAL14 DB 13,10, ' Mata Kuliah Orkom,segala sesuatu yang ada didalam program ini $'
KAL15 DB 13,10, ' merupakan simulasi dan contoh sederhana dalam program assembly" $'
KAL16 DB 13,10,13,10,9,40 DUP (178),12 DUP (177),9 DUP (176), '$'
KAL26 DB 13,10,13,10, ' Lanjutkan (ya/tidak) ? $'
KAL17 DB 5 DUP (13),5 DUP (10), ' Selamat Datang di "KUIS MINIONERE !!" ,Ayo maain..$'
KAL18 DB 13,10,13,10, ' ATURAN MAIN $'
KAL19 DB 13,10,13,10,9,9,4, ' Jawab semua pertanyaan dari nomor 1 - 7 $'
KAL20 DB 13,10,13,10,9,9,4, ' Ingat ! , Ada dua titik aman $'
KAL21 DB 13,10,13,10,9,9,4, ' Titik aman itu berada di nomor 2 dan 4 $'
KAL22 DB 13,10,13,10,9,9,4, ' Apabila anda salah dalam menjawab soal $'
KAL23 DB 13,10,9,9, ' maka hadiah yang akan anda bawa pulang $'
KAL24 DB 13,10,9,9, ' adalah hadiah di nomor terakhir yang $'
KAL25 DB 13,10,9,9, ' anda jawab. Enjoy!! $'
KAL28 DB 7 DUP (13),7 DUP (10),9,9, '$'
KAL27 DB 13,10,13,10,9,9,' Ayo main dan jadi jutawan (ok/no)!! $'
KAL29 DB 13,10,13,10,9, ' 1.Berapakah kode ASCII(desimal) untuk sebuah kata "AKU" ? $'
kal30 DB 13,10,9,9,' a.65,76,88 c.65,75,85 $'
kal31 DB 13,10,9,9,' b.66,78,90 d.75,77,89 $'
kal32 DB 13,10,13,10,9,9, ' Jawaban Anda = $'
KAL40 DB 13,10,13,10,9, ' 2.DD dan DF termasuk jenis apakah dalam program ? $'
kal41 DB 13,10,9,9,' a.Register c.Pointer $'
kal42 DB 13,10,9,9,' b.Integer d.Tipe Data $'
kal43 DB 13,10,13,10,9,9, ' Jawaban Anda = $'
KAL46 DB 13,10,13,10,9, 'Nomor 3 adalah titik aman, yakin ingin lanjut (y/n)? $'
KAL47 DB 13,10,9, 'Oke anda menyerah, hanya Rp.300.000 yang anda bawa pulang$'
KAL48 DB 13,10,9,9,9, 'Mau main lagi nggak (y/n)?$'
KAL49 DB 13,10,13,10,9, ' 3.Apakah Sifat Dari Stack $'
kal50 DB 13,10,9,9,' a.LIFO c.PIFO $'
kal51 DB 13,10,9,9,' b.LIPO d.FIFO $'
kal52 DB 13,10,13,10,9,9, ' Jawaban Anda = $'
KAL53 DB ' Anda Mendapatkan Rp.500.000 $'
KAL54 DB 13,10,9,9,' Anda Salah, Rp.300.000 untuk anda $'
KAL55 DB 13,10,13,10,9, ' 4.Apakah ekstensi file macro dalam assembly ? $'
kaL56 DB 13,10,9,9,' a.mrc c.mro $'
kal57 DB 13,10,9,9,' b.mcr d.mac $'
kal58 DB 13,10,13,10,9,9, ' Jawaban Anda = $'
KAL59 DB ' Anda Mendapatkan Rp.1.000.000 $'
KAL60 DB 13,10,9,9,' Anda Salah, Rp.500.000 untuk anda $'
KAL61 DB 13,10,13,10,9, 'Nomor 5 adalah titik aman akhir, yakin ingin lanjut (y/n)? $'
KAL62 DB 13,10,9, 'Selamat, Uang sebesar Rp.1.000.000 yang anda bawa pulang$'
KAL63 DB 13,10,13,10,9, ' 5.Perintah apa yang digunakan ketika ada dua operand tidak sama ? $'
kaL64 DB 13,10,9,9,' a.JNE c.JL $'
kal65 DB 13,10,9,9,' b.JE d.JBE $'
kal66 DB 13,10,13,10,9,9, ' Jawaban Anda = $'
KAL67 DB ' Anda Mendapatkan Rp.2.000.000 $'
KAL68 DB 13,10,9,9,' Anda Salah, Rp.1.000.000 untuk anda $'
KAL69 DB 13,10,13,10,9, ' 6.Contoh dari tombol extended adalah ? $'
kaL70 DB 13,10,9,9,' a.Tab c.Beep $'
kal71 DB 13,10,9,9,' b.A,C d.Home $'
kal72 DB 13,10,13,10,9,9, ' Jawaban Anda = $'
KAL73 DB ' Anda Mendapatkan Rp.4.000.000 $'
KAL74 DB 13,10,9,9,' Anda Salah, Rp 2.000.000 untuk anda $'
KAL75 DB 13,10,13,10,9, ' 7.Diantara Dosen dibawah ini, mana yang paling ganteng? $'
kaL76 DB 13,10,9,9,' a.Pak Bayu c.Pak Asep Suheri $'
kal77 DB 13,10,9,9,' b.Pak Ardian d.Pak Budi $'
kal78 DB 13,10,13,10,9,9, ' Jawaban Anda = $'
KAL79 DB ' Anda Mendapatkan Rp.10.000.000 $'
KAL80 DB 13,10,9,9,' Anda Salah, Rp 4.000.000 untuk anda $'
KAL81 DB 25 DUP (13),25 DUP (10),9,9, ' Selamat !! $'
KAL82 DB 13,10,13,10,9,9, 'Anda mendapatkan uang tunai RP.10.000.000$'
KAL83 DB 13,10,9,9, 'anda sangat hebat telah menamatkan kuis ini $'
KAL84 DB 13,10,9,9, ',jangan lupa belajar orkom tiap hari biar $'
KAL85 DB 13,10,9,9, 'bisa jawab soal selanjutnya. Bye :D $'
KAL86 DB 13 DUP (13),13 DUP (10),9,9, '$'
Kal1 DB 13,10,13,10,9,9,9,32,5 DUP (219),32,'$'
KAL33 DB 'Anda Benar !!! $'
KAL34 DB 5 DUP (219), '$'
KAL35 DB 13,10,9,9,32,41 DUP (249), '$'
KAL36 DB ' Anda Mendapatkan Rp.100.000 $'
KAL37 DB 13,10,9,9,4 DUP (32),3 DUP (219), '$'
KAL38 DB 3 DUP (219), '$'
KAL39 DB 13,10,9,9,32,41 DUP (249), '$'
Kal2 DB 13,10,9,9,9,' Anda Salah, Rp.0 untuk anda $'
KAL44 DB ' Anda Mendapatkan Rp.300.000 $'
KAL45 DB 13,10,9,9,' Anda Salah, Rp.100.000 untuk anda $'
Buffer DB 23,?,23 DUP(?)
Proses:
cetak_klm kal0
cetak_klm kal3
cetak_klm kal4
cetak_klm kal5
cetak_klm kal6
cetak_klm kal7
cetak_klm kal8
cetak_klm kal9
cetak_klm kal10
cetak_klm kal11
cetak_klm kal12
cetak_klm kal13
cetak_klm kal14
cetak_klm kal15
cetak_klm kal16
Masuk:
cetak_klm kal26
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'y'
JNE EXIT
CMP Byte PTR [BX]+1,'a'
JNE EXIT
JE Proses2
Proses2:
cetak_klm kal17
cetak_klm kal18
cetak_klm kal19
cetak_klm kal20
cetak_klm kal21
cetak_klm kal22
cetak_klm kal23
cetak_klm kal24
cetak_klm kal25
cetak_klm kal28
JMP Proses3
Proses3:
cetak_klm kal27
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'o'
JNE EXIT
CMP Byte PTR [BX]+1,'k'
JNE EXIT
JE Proses4
Proses4:
cetak_klm kal29
cetak_klm kal30
cetak_klm kal31
cetak_klm kal32
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'c'
JNE wrong
JE right
wrong:
cetak_klm kal39
cetak_klm kal2
cetak_klm kal39
JMP exit
right:
cetak_klm kal1
cetak_klm kal33
cetak_klm kal34
cetak_klm kal35
cetak_klm kal37
cetak_klm kal36
cetak_klm kal38
Proses5:
cetak_klm kal40
cetak_klm kal41
cetak_klm kal42
cetak_klm kal43
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx], 'd'
JNE wrong1
JE right1
wrong1:
cetak_klm kal39
cetak_klm kal45
cetak_klm kal39
JMP exit
right1:
cetak_klm kal1
cetak_klm kal33
cetak_klm kal34
cetak_klm kal35
cetak_klm kal37
cetak_klm kal44
cetak_klm kal38
jmp proses6
Proses6:
cetak_klm kal46
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'y'
JNE proses7
JE Proses8
Proses7:
cetak_klm kal39
cetak_klm kal47
cetak_klm kal39
cetak_klm kal48
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'y'
JNE exit
JE Proses
Proses8:
cetak_klm kal49
cetak_klm kal50
cetak_klm kal51
cetak_klm kal52
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'a'
JNE wrong2
JE right2
wrong2:
cetak_klm kal39
cetak_klm kal54
cetak_klm kal39
jmp exit
right2:
cetak_klm kal1
cetak_klm kal33
cetak_klm kal34
cetak_klm kal35
cetak_klm kal37
cetak_klm kal53
cetak_klm kal38
Proses9:
cetak_klm kal55
cetak_klm kal56
cetak_klm kal57
cetak_klm kal58
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'b'
JNE wrong3
JE right3
wrong3:
cetak_klm kal39
cetak_klm kal60
cetak_klm kal39
jmp exit
right3:
cetak_klm kal1
cetak_klm kal33
cetak_klm kal34
cetak_klm kal35
cetak_klm kal37
cetak_klm kal59
cetak_klm kal38
Proses10:
cetak_klm kal61
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'y'
JNE proses11
JE proses12
Proses11:
cetak_klm kal39
cetak_klm kal62
cetak_klm kal39
cetak_klm kal48
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'y'
JNE EXIT
JE Proses
Proses12:
cetak_klm kal63
cetak_klm kal64
cetak_klm kal65
cetak_klm kal66
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'a'
JNE wrong4
JE right4
wrong4:
cetak_klm kal39
cetak_klm kal68
cetak_klm kal39
JMP exit
right4:
cetak_klm kal1
cetak_klm kal33
cetak_klm kal34
cetak_klm kal35
cetak_klm kal37
cetak_klm kal67
cetak_klm kal38
Proses13:
cetak_klm kal69
cetak_klm kal70
cetak_klm kal71
cetak_klm kal72
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'d'
JNE wrong5
JE right5
wrong5:
cetak_klm kal39
cetak_klm kal74
cetak_klm kal39
JMP exit
right5:
cetak_klm kal1
cetak_klm kal33
cetak_klm kal34
cetak_klm kal35
cetak_klm kal37
cetak_klm kal73
cetak_klm kal38
Proses14:
cetak_klm kal75
cetak_klm kal76
cetak_klm kal77
cetak_klm kal78
MOV AH,0ah
LEA DX,buffer
INT 21h
LEA BX,buffer+2
CMP BYTE PTR [bx],'c'
JNE wrong6
JE right6
wrong6:
cetak_klm kal39
cetak_klm kal80
cetak_klm kal39
JMP exit
right6:
cetak_klm kal1
cetak_klm kal33
cetak_klm kal34
cetak_klm kal35
cetak_klm kal37
cetak_klm kal79
cetak_klm kal38
cetak_klm kal81
cetak_klm kal82
cetak_klm kal83
cetak_klm kal84
cetak_klm kal85
cetak_klm kal86
EXIT: INT 20h
END TData
untuk file include mcr :
CETAK_Klm macro klm
LOCAL ULANG
MOV AH,09
LEA DX,klm
INT 21H
ENDM
Posisi MACRO baris,kolom
MOV AH,02h
MOV DH,baris
MOV DL,kolom
MOV BH,00h
INT 10h
ENDM
note sahabat :
silahkan dikonsumsi untuk yang membutuhkan, hanya sebagai arsip saya saja
Rating: 4.5
Subscribe to:
Post Comments (Atom)
June 20, 2012 at 8:52 PM
Ini apa bos?
June 21, 2012 at 5:05 AM
@cuma pengingat ane aja sob biar kalau lupa bisa dilihat disini, itu pemrograman assembly, pemebentuk otak dan pikiran dari hardware :)