yang menggunakan PROSEDURE

org 100h

call nama
call ttl
call tempat
call kelas
call fakultas
call universitas
call kota
call tanda

nama proc
mulai1:  mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg1end - offset msg1 ; calculate message size.
        mov dl, 70
        mov dh, 00
     
        push cs
        pop es
        mov bp, offset msg1
        mov ah, 13h
        int 10h
        jmp msg1end
        msg1 db "meutia"
        msg1end:
        jmp mulai2

ttl proc
mulai2:  mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg2end - offset msg2 ; calculate message size.
        mov dl, 70
        mov dh, 05
        push cs
        pop es
        mov bp, offset msg2
        mov ah, 13h
        int 10h
        jmp msg2end
        msg2 db "27-02-1992"
        msg2end:
        jmp mulai3

tempat proc
mulai3:  mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg3end - offset msg3 ; calculate message size.
        mov dl, 70
        mov dh, 08
        push cs
        pop es
        mov bp, offset msg3
        mov ah, 13h
        int 10h
        jmp msg3end
        msg3 db "aceh"
        msg3end:
        jmp mulai4
       
kelas proc           
mulai4:  mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg4end - offset msg4 ; calculate message size.
        mov dl, 70
        mov dh, 10
        push cs
        pop es
        mov bp, offset msg4
        mov ah, 13h
        int 10h
        jmp msg4end
        msg4 db "tk4"
        msg4end:
        jmp mulai5

       
fakultas proc           
mulai5:  mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg5end - offset msg5 ; calculate message size.
        mov dl, 70
        mov dh, 15
        push cs
        pop es
        mov bp, offset msg5
        mov ah, 13h
        int 10h
        jmp msg5end
        msg5 db "teknik"
        msg5end:
        jmp mulai6
       
universitas proc           
mulai6:  mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg6end - offset msg6 ; calculate message size.
        mov dl, 70
        mov dh, 20
        push cs
        pop es
        mov bp, offset msg6
        mov ah, 13h
        int 10h
        jmp msg6end
        msg6 db "UNSRI"
        msg6end:
        jmp mulai7                
                
       
kota proc           
mulai7:  mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg7end - offset msg7 ; calculate message size.
        mov dl, 70
        mov dh, 24
        push cs
        pop es
        mov bp, offset msg7
        mov ah, 13h
        int 10h
        jmp msg7end
        msg7 db "Palembang"
        msg7end:
        jmp mulai8
       
       
tanda proc
mulai8:    mov al, 1
        mov bh, 0
        mov bl, 0100_1011b
        mov cx, msg8end - offset msg8 ; calculate message size.
        mov dl, 00
        mov dh, 00
        push cs
        pop es
        mov bp, offset msg8
        mov ah, 13h
        int 10h
        jmp msg8end
        msg8 db "?"
        msg8end:
        jmp tanda
        


        tanda endp 
       
end