home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9208a.d64 / par-senden.seq < prev    next >
Text File  |  1995-03-30  |  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.