_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

PAR-EMPFANG.SEQ

FILE INFORMATION

FILENAME(S): PAR-EMPFANG.SEQ

FILE TYPE(S): SEQ

FILE SIZE: 952b

FIRST SEEN: 2025-11-30 01:13:00

APPEARS ON: 1 disk(s)

FILE HASH

c7c4ef5c35df6ea53d7cca0d47a6cb8f9c8bb90b100c5797cde7a6209279cacb

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10208 SEITE A PAR-EMPFANG.SEQ SEQ C64er 29 16 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 3B 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |;---------------|
00000010: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000020: 2D 2D 2D 2D 2D 2D 2D 2D  0D 3B 2D 2D 20 50 41 52  |--------.;-- PAR|
00000030: 41 4C 4C 45 4C 45 20 55  45 42 45 52 54 52 41 47  |ALLELE UEBERTRAG|
00000040: 55 4E 47 20 28 57 29 39  32 20 50 49 54 20 20 2D  |UNG (W)92 PIT  -|
00000050: 2D 0D 3B 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |-.;-------------|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000070: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 0D 20 20 20 20 20  |----------.     |
00000080: 20 20 20 20 2A 3D 20 24  31 30 30 30 0D 0D 20 20  |    *= $1000..  |
00000090: 20 20 20 20 20 20 20 4C  44 58 20 23 24 46 46 0D  |       LDX #$FF.|
000000A0: 0D 57 41 49 54 20 20 20  20 20 4C 44 41 20 24 44  |.WAIT     LDA $D|
000000B0: 44 30 31 20 20 20 3B 41  55 46 20 44 41 53 20 45  |D01   ;AUF DAS E|
000000C0: 52 53 54 45 0D 20 20 20  20 20 20 20 20 20 43 4D  |RSTE.         CM|
000000D0: 50 20 23 24 46 46 20 20  20 20 3B 41 4E 4B 4F 4D  |P #$FF    ;ANKOM|
000000E0: 4D 45 4E 44 45 20 42 59  54 45 0D 20 20 20 20 20  |MENDE BYTE.     |
000000F0: 20 20 20 20 42 45 51 20  57 41 49 54 20 20 20 20  |    BEQ WAIT    |
00000100: 3B 57 41 52 54 45 4E 0D  0D 20 20 20 20 20 20 20  |;WARTEN..       |
00000110: 20 20 53 45 49 20 20 20  20 20 20 20 20 20 3B 49  |  SEI         ;I|
00000120: 52 51 20 53 50 45 52 52  45 4E 0D 20 20 20 20 20  |RQ SPERREN.     |
00000130: 20 20 20 20 4C 44 59 20  23 24 30 30 20 20 20 20  |    LDY #$00    |
00000140: 3B A0 0D 41 47 41 49 4E  33 20 20 20 4C 44 41 20  |;..AGAIN3   LDA |
00000150: 24 44 44 30 30 20 20 20  3B 54 52 49 47 47 45 52  |$DD00   ;TRIGGER|
00000160: 4C 45 49 54 55 4E 47 0D  20 20 20 20 20 20 20 20  |LEITUNG.        |
00000170: 20 43 4C 43 20 20 20 20  20 20 20 20 20 3B 50 52  | CLC         ;PR|
00000180: 55 45 46 45 4E 0D 20 20  20 20 20 20 20 20 20 4C  |UEFEN.         L|
00000190: 53 52 20 41 20 20 20 20  20 20 20 3B 0D 20 20 20  |SR A       ;.   |
000001A0: 20 20 20 20 20 20 4C 53  52 20 41 20 20 20 20 20  |      LSR A     |
000001B0: 20 20 3B 0D 20 20 20 20  20 20 20 20 20 4C 53 52  |  ;.         LSR|
000001C0: 20 41 20 20 20 20 20 20  20 3B 4B 4F 4D 4D 45 4E  | A       ;KOMMEN|
000001D0: 20 42 45 52 45 49 54 53  0D 20 20 20 20 20 20 20  | BEREITS.       |
000001E0: 20 20 42 43 43 20 41 47  41 49 4E 33 20 20 3B 44  |  BCC AGAIN3  ;D|
000001F0: 41 54 45 4E 20 41 4E 3F  0D 20 20 20 20 20 20 20  |ATEN AN?.       |
00000200: 20 20 4C 44 41 20 24 44  44 30 31 20 20 20 3B 4A  |  LDA $DD01   ;J|
00000210: 41 3F 20 42 59 54 45 20  56 4F 4D 20 50 4F 52 54  |A? BYTE VOM PORT|
00000220: 0D 20 20 20 20 20 20 20  20 20 53 54 41 20 24 43  |.         STA $C|
00000230: 30 30 30 2C 59 20 3B 48  4F 4C 45 4E 20 26 20 53  |000,Y ;HOLEN & S|
00000240: 43 48 52 45 49 42 45 4E  0D 0D 41 47 41 49 4E 34  |CHREIBEN..AGAIN4|
00000250: 20 20 20 4C 44 41 20 24  44 44 30 30 20 20 20 3B  |   LDA $DD00   ;|
00000260: 54 52 49 47 47 45 52 4C  45 49 54 55 4E 47 0D 20  |TRIGGERLEITUNG. |
00000270: 20 20 20 20 20 20 20 20  43 4C 43 20 20 20 20 20  |        CLC     |
00000280: 20 20 20 20 3B 50 52 55  45 46 45 4E 0D 20 20 20  |    ;PRUEFEN.   |
00000290: 20 20 20 20 20 20 4C 53  52 20 41 20 20 20 20 20  |      LSR A     |
000002A0: 20 20 3B 0D 20 20 20 20  20 20 20 20 20 4C 53 52  |  ;.         LSR|
000002B0: 20 41 20 20 20 20 20 20  20 3B 4B 4F 4D 4D 45 4E  | A       ;KOMMEN|
000002C0: 20 4E 4F 43 48 20 44 41  54 45 4E 0D 20 20 20 20  | NOCH DATEN.    |
000002D0: 20 20 20 20 20 4C 53 52  20 41 20 20 20 20 20 20  |     LSR A      |
000002E0: 20 3B 41 4E 3F 0D 20 20  20 20 20 20 20 20 20 42  | ;AN?.         B|
000002F0: 43 53 20 41 47 41 49 4E  34 20 20 3B 4A 41 20 44  |CS AGAIN4  ;JA D|
00000300: 41 4E 4E 20 57 45 49 54  45 52 0D 20 20 20 20 20  |ANN WEITER.     |
00000310: 20 20 20 20 44 45 58 20  20 20 20 20 20 20 20 20  |    DEX         |
00000320: 3B 4E 45 49 4E 2C 20 44  41 4E 4E 0D 20 20 20 20  |;NEIN, DANN.    |
00000330: 20 20 20 20 20 43 50 58  20 23 24 46 46 20 20 20  |     CPX #$FF   |
00000340: 20 3B 4E 41 45 43 48 53  54 45 53 20 42 59 54 45  | ;NAECHSTES BYTE|
00000350: 0D 20 20 20 20 20 20 20  20 20 42 4E 45 20 41 47  |.         BNE AG|
00000360: 41 49 4E 33 20 20 3B 48  4F 4C 45 4E 0D 0D 45 4F  |AIN3  ;HOLEN..EO|
00000370: 54 20 20 20 20 20 20 43  4C 49 20 20 20 20 20 20  |T      CLI      |
00000380: 20 20 20 3B 4B 4F 4D 50  4C 45 54 54 2C 20 41 4C  |   ;KOMPLETT, AL|
00000390: 53 4F 0D 20 20 20 20 20  20 20 20 20 52 54 53 20  |SO.         RTS |
000003A0: 20 20 20 20 20 20 20 20  3B 49 52 51 20 46 52 45  |        ;IRQ FRE|
000003B0: 49 47 45 42 45 4E 0D 0D                           |IGEBEN..        |
;---------------------------------------
.;-- PARALLELE UEBERTRAGUNG (W)92 PIT  -
-.;-------------------------------------
--.         *= $1000..         LDX #$FF.
.WAIT     LDA $DD01   ;AUF DAS ERSTE.   
      CMP #$FF    ;ANKOMMENDE BYTE.     
    BEQ WAIT    ;WARTEN..         SEI   
      ;IRQ SPERREN.         LDY #$00    
; .AGAIN3   LDA $DD00   ;TRIGGERLEITUNG.
         CLC         ;PRUEFEN.         L
SR A       ;.         LSR A       ;.    
     LSR A       ;KOMMEN BEREITS.       
  BCC AGAIN3  ;DATEN AN?.         LDA $D
D01   ;JA? BYTE VOM PORT.         STA $C
000,Y ;HOLEN & SCHREIBEN..AGAIN4   LDA $
DD00   ;TRIGGERLEITUNG.         CLC     
    ;PRUEFEN.         LSR A       ;.    
     LSR A       ;KOMMEN NOCH DATEN.    
     LSR A       ;AN?.         BCS AGAIN
4  ;JA DANN WEITER.         DEX         
;NEIN, DANN.         CPX #$FF    ;NAECHS
TES BYTE.         BNE AGAIN3  ;HOLEN..EO
T      CLI         ;KOMPLETT, ALSO.     
    RTS         ;IRQ FREIGEBEN..
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL