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