;ASAGIDA MESAJ_1_KAR ICINDE DT KARSISINA YAZILAN IFADEYI LCD DE GOSTERIR
;CALL MESAJ_1 SEKLINDE BU ALTPROGRAM CAGRILIR
;DT KOMUTUNA MPLAP>WIEV>DISSAMBLY LISTING ILE BAKILIRSA
;KARSISINA YAZILAN IFADEYI TEK TEK RETLW SEKLINE CEVIRDIGI GORULEBILIR
MESAJ_1 NOP
CLRF MESAJ_SYC
MESAJ_1_LOOP NOP
CALL MESAJ_1_KAR
CLRF TEMP
SUBWF TEMP,F
BTFSC STATUS,Z ;KARAKTER = 0 MI? YANİ MESAJ BİTTİMİ?
RETURN ;EVET SON KARAKTERMİŞ
CALL VERIYAZ ;HAYIR GOSTER VE SIRADAKİ DEĞERİ ALMAYA GİT
INCF MESAJ_SYC,F
GOTO MESAJ_1_LOOP
MESAJ_1_KAR MOVF MESAJ_SYC,W
ADDWF PCL,F
DT " RaMuTeK ",0x00 " RaMuTek " YERINE MESAJINIZI YAZABİLİRSİNİZ
;MESAJ SONUNDA 00H OLMAK ZORUNDADIR