PARALEL İLETİŞİM ARABİRİMİ [7 Sayfa]


İTÜ ELEKTRİK-ELEKTRONİK FAKÜLTESİ BİLGİSAYAR MÜHENDİSLİĞİ BÖLÜMÜ MİKROBİLGİSAYAR LABORATUVARI DENEYİN ADI : PARALEL İLETİŞİM ARABİRİMİ DENEY NO : 6 DENEY TARİHİ : 15 EKİM 2001 DENEY GRUBU : PERŞEMBE GRUP – 2 DENEYİ YAPANLAR : 498 607 HÜSEYİN HASÇELİK 498 669 SERKAN DEMİRÖREN 495 650 ONUR İPEKBOYAYAN DENEYİ YAPTIRAN : Deney 1 OKU LDAA $8303 ; DDRB Seçimi ANDA #$FD STAA $8303 LDAA #$00 ; Yönlendir (Alıcı) STAA $8302 LDAA $8303 ; PB Seçimi ORA #$02 STAA $8303 LDAA $8302 ; PByi Oku ve Yaz STAA $0000 SWI Deney 2 * Kullandığımız Gösterge Ortak Katotlu Pia idi. Bu Yüzden İlgili ledi yakmak için Girişine lojik 1 verdik. * Deneye ait donanım müteakip sayfadadır. PIABYÖN LDAA $8303 ; DDRB Seçimi ANDA #$FD STAA $8303 LDAA #$FF ; Yönlendir (Verici) STAA $8302 LDAA $8303 ; PB Seçimi ORA #$02 STAA $8303 RTS KRKTRTAB LDAA #$3F STAA $0000 LDAA #$06 STAA $0001 LDAA #$5B STAA $0002 LDAA #$4F STAA $0003 LDAA #$66 STAA $0004 LDAA #$6D STAA $0005 LDAA #$7D STAA $0006 LDAA #$07 STAA $0007 LDAA #$7F STAA $0008 LDAA #$6F STAA $0009 LDAA #$77 STAA $000A LDAA #$7C STAA $000B LDAA #$35 STAA $000C LDAA #$5E STAA $000D LDAA #$79 STAA $000E LDAA #$71 STAA $000F RTS GECİK LDX #$F423 ; Gecik 1s lik bir geckme yaratır. DLY DEX ; 3 + ($F423) * (4 + 2 + 2 + 2 + 2 + 4) + 5 = 1000000 NOP NOP NOP NOP BNE DLY RTS BASLA JSR PIABYÖN ; Pia Byi Yazmak için yönlendir JSR KRKTRTAB ; Karakter Tablosunu oluştur LDX #$0000 ; Xi yükle KONTROL CPX #$0010 ; Bütün karakterler basıldı mı BEQ SON ; Basıldı ise sona dallan LDAA 00h, X ; Basılmadıysa, Aya X teki adresin içeriğini (karakter kodudu) yükle STAA $0030 ; Disbufa yaz JSR $YAZ ; göstergeye basmak için Dallan INX ; arttır X BRA KONTROL ; Dallan KONTROL SON SWI YAZ LDAA $0030 ; Disbufı al STAA $8302 ; B iskelesine yaz LDX $0100 ; gecikme programında değişecek olan X i $0100 adresinde koru JSR GECİK ; 1 saniye gecik STX $0100 ; koruduğun Xi geri al RTS ; Dön Deney 3 * Bellekte daha önceden 0000 – 000f arasında 1 verildiğinde yakmak için karakter tablosunu oluşturmuştuk PIABYÖN LDAA $8303 ; DDRB Seçimi ANDA #$FD STAA $8303 LDAA #$00 ; Yönlendir (Alıcı) STAA $8302 LDAA $8303 ; PB Seçimi ORA #$02 STAA $8303 RTS Etiket Adres İçerik BELLEK1 4600 00 BELLEK2 4601 PIAAYÖN LDAA $8301 ; DDRA Seçimi ANDA #$FD STAA $8301 LDAA #$FF ; Yönlendir (Verici) STAA $8300 LDAA $8301 ; PA Seçimi ORA #$02 STAA $8301 RTS BASLA LDAA #$00 STAA $4600 DEVAM LDAA $8302 ; İSKELE Bden Okuma yap ANDA #$0F ; ikilik düzendeki içerik : 0 – 0 – 0 – 0 – S3 – S2 – S1 – S0 STAA $BELLEK2 ; Bellek2ye yaz LDX $BELLEK1 ; Artık okunan karakterin, karakter tablosundaki yerini gösteriyor LDAA 00h, X ; indexed adressing ve karakter kodu Ada STAA $8300 ; A iskelesine yaz BRA BASLA ; dallan BASLA [Ödev İndir]