home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 August / 64er_Magazin_92-08_1992_Markt__Technik_de_Side_A.d64 / par-senden.seq < prev    next >
Text File  |  2022-10-26  |  1KB  |  48 lines
  1. ;---------------------------------------
  2. ;-- parallele uebertragung (w)92 pit  --
  3. ;---------------------------------------
  4.          *= $1000
  5.  
  6.          sei         ;irq sperren
  7.          lda $dd03   ;datenrichtungsreg
  8.          ora #$ff    ;fuer port b auf
  9.          sta $dd03   ;ausgabe legen
  10.          lda $dd02   ;datenrichtungsreg
  11.          ora #$04    ;fuer port a (bit2)
  12.          sta $dd02   ;auf ausgabe setzen
  13.  
  14.          ldx #$ff
  15. send2    ldy #$00    ;
  16.          lda $c000,y ;byte holen und in
  17.          sta $dd01   ;port schreiben
  18.          jsr gueltig ;trigger gueltig
  19.          jsr wait    ;hauptdaten werden
  20.          jsr unguelt ;uebertragen
  21.          jsr wait    ;warten
  22.          dex
  23.          cpx #$ff
  24.          bne send2
  25.  
  26. eot      jsr unguelt ;wenn alle daten
  27.          jsr wait    ;dann trigger=ungue
  28.          cli         ;warten und
  29.          rts         ;beenden
  30. ;---------------------------------------
  31. wait     lda #$00
  32.          clc         ;warteschleife
  33. w1       adc #$01    ;(je laenger,
  34.          cmp #$04    ;desto zuverlaessig
  35.          bcc w1      ;
  36.          rts
  37. ;---------------------------------------
  38. gueltig  lda $dd00   ;trigger
  39.          ora #$04    ;gueltig
  40.          sta $dd00   ;setzen
  41.          rts
  42. unguelt  lda $dd00   ;trigger
  43.          and #$fb    ;ungueltig
  44.          sta $dd00   ;setzen
  45.          rts
  46. ;---------------------------------------
  47.  
  48.