home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 August / 64er_Magazin_92-08_1992_Markt__Technik_de_Side_A.d64 / par-empfang.seq < prev    next >
Text File  |  2022-10-26  |  952b  |  36 lines
  1. ;---------------------------------------
  2. ;-- parallele uebertragung (w)92 pit  --
  3. ;---------------------------------------
  4.          *= $1000
  5.  
  6.          ldx #$ff
  7.  
  8. wait     lda $dd01   ;auf das erste
  9.          cmp #$ff    ;ankommende byte
  10.          beq wait    ;warten
  11.  
  12.          sei         ;irq sperren
  13.          ldy #$00    ; 
  14. again3   lda $dd00   ;triggerleitung
  15.          clc         ;pruefen
  16.          lsr a       ;
  17.          lsr a       ;
  18.          lsr a       ;kommen bereits
  19.          bcc again3  ;daten an?
  20.          lda $dd01   ;ja? byte vom port
  21.          sta $c000,y ;holen & schreiben
  22.  
  23. again4   lda $dd00   ;triggerleitung
  24.          clc         ;pruefen
  25.          lsr a       ;
  26.          lsr a       ;kommen noch daten
  27.          lsr a       ;an?
  28.          bcs again4  ;ja dann weiter
  29.          dex         ;nein, dann
  30.          cpx #$ff    ;naechstes byte
  31.          bne again3  ;holen
  32.  
  33. eot      cli         ;komplett, also
  34.          rts         ;irq freigeben
  35.  
  36.