listing program lampu berjalan

;LAMPU BERJALAN MELALUI PORT 378H  BY kel6
LJAL  segment
     assume cs:LJAL    

     org 100h
    
start: jmp mulai

pembuka db ,13,10,' PROGRAM LAMPU BERJALAN PADA PORT378H PC'
    db ,13,10,' Creaty by kel6'
    db ,13,10,,13,10,'Program ini baru untuk satu lampu'
    db ,13,10,' port 378H!'
    db ,13,10,'ayooo'
    db ,13,10,'ayooo'
    db ,13,10,'lampu akan berjalan kembang kempis hanya sebelah..!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
    db ,13,10,'cobalah segera,,,, segera.... ayoooo,,!!!!', ,13,10,,13,10,'$'
      
delay   proc near                    ; prosedur delay
    push cx                              ; Simpan nilai cx ke stack
    push bp
    mov bp,1200
terus:  mov cx,9999h               ; Isi cx sekarang dg bp+9999h

hitung:  loop hitung                   ;ulang sampai cx=0
     dec bp
     jnz terus                             ; ulang sampai bp=0
     pop bp                               ; keluarkan kembali nilai bp
     pop cx
     ret                                     ; return (kembali ke program induk)
delay    endp                           ;  Akhir prosedur delay

mulai:  mov ah,0h                 
    mov al,3h                            ; Bersih layar
    int 10h                

    Mov ah,9h
    mov dx, offset pembuka       ; Tampilkan kata pembuka
    int 21h
    mov dx,378h
    

lagi       :   mov cx,5 
lagi2     :  mov al,11110001b        ;1
               out dx,al               
               call delay
   
              mov al,11110001b        ;2
             out dx,al                   
             call delay

             mov al,11110010b        ;3
            out dx,al
            call delay
    
            mov al,11110100b        ;4
            out dx,al
            call delay
    
            mov al,11111000b        ;5     
            out dx,al       
            call delay
    
            mov al,11110100b        ;6
            out dx,al                   
            call delay

            mov al,11110010b        ;7
            out dx,al                  
           call delay
    
            mov al,11110001b        ;8
            out dx,al
            call delay


            mov ah,0bh
            int 21h
           cmp al,11111111b
          je selesai
          LOOP LAGI2
  

          jmp lagi      

           selesai: int 20h

           LJAL ends
          end  start