PAR-SENDEN.SEQ
FILE INFORMATION
FILENAME(S): PAR-SENDEN.SEQ
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-11-30 01:13:00
APPEARS ON: 1 disk(s)
FILE HASH
5a6e9f59ed5b58ff036ead8ace58ffa61ebc68fbc92c50c33d311dd8266a95ad
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10208 SEITE A | PAR-SENDEN.SEQ | SEQ | C64er | 6 | 9 | 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 53 45 49 20 20 20 20 20 20 | SEI | 000000A0: 20 20 20 3B 49 52 51 20 53 50 45 52 52 45 4E 0D | ;IRQ SPERREN.| 000000B0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 44 44 | LDA $DD| 000000C0: 30 33 20 20 20 3B 44 41 54 45 4E 52 49 43 48 54 |03 ;DATENRICHT| 000000D0: 55 4E 47 53 52 45 47 0D 20 20 20 20 20 20 20 20 |UNGSREG. | 000000E0: 20 4F 52 41 20 23 24 46 46 20 20 20 20 3B 46 55 | ORA #$FF ;FU| 000000F0: 45 52 20 50 4F 52 54 20 42 20 41 55 46 0D 20 20 |ER PORT B AUF. | 00000100: 20 20 20 20 20 20 20 53 54 41 20 24 44 44 30 33 | STA $DD03| 00000110: 20 20 20 3B 41 55 53 47 41 42 45 20 4C 45 47 45 | ;AUSGABE LEGE| 00000120: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |N. LDA $| 00000130: 44 44 30 32 20 20 20 3B 44 41 54 45 4E 52 49 43 |DD02 ;DATENRIC| 00000140: 48 54 55 4E 47 53 52 45 47 0D 20 20 20 20 20 20 |HTUNGSREG. | 00000150: 20 20 20 4F 52 41 20 23 24 30 34 20 20 20 20 3B | ORA #$04 ;| 00000160: 46 55 45 52 20 50 4F 52 54 20 41 20 28 42 49 54 |FUER PORT A (BIT| 00000170: 32 29 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |2). STA | 00000180: 24 44 44 30 32 20 20 20 3B 41 55 46 20 41 55 53 |$DD02 ;AUF AUS| 00000190: 47 41 42 45 20 53 45 54 5A 45 4E 0D 0D 20 20 20 |GABE SETZEN.. | 000001A0: 20 20 20 20 20 20 4C 44 58 20 23 24 46 46 0D 53 | LDX #$FF.S| 000001B0: 45 4E 44 32 20 20 20 20 4C 44 59 20 23 24 30 30 |END2 LDY #$00| 000001C0: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 4C | ;. L| 000001D0: 44 41 20 24 43 30 30 30 2C 59 20 3B 42 59 54 45 |DA $C000,Y ;BYTE| 000001E0: 20 48 4F 4C 45 4E 20 55 4E 44 20 49 4E 0D 20 20 | HOLEN UND IN. | 000001F0: 20 20 20 20 20 20 20 53 54 41 20 24 44 44 30 31 | STA $DD01| 00000200: 20 20 20 3B 50 4F 52 54 20 53 43 48 52 45 49 42 | ;PORT SCHREIB| 00000210: 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |EN. JSR | 00000220: 47 55 45 4C 54 49 47 20 3B 54 52 49 47 47 45 52 |GUELTIG ;TRIGGER| 00000230: 20 47 55 45 4C 54 49 47 0D 20 20 20 20 20 20 20 | GUELTIG. | 00000240: 20 20 4A 53 52 20 57 41 49 54 20 20 20 20 3B 48 | JSR WAIT ;H| 00000250: 41 55 50 54 44 41 54 45 4E 20 57 45 52 44 45 4E |AUPTDATEN WERDEN| 00000260: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 55 4E |. JSR UN| 00000270: 47 55 45 4C 54 20 3B 55 45 42 45 52 54 52 41 47 |GUELT ;UEBERTRAG| 00000280: 45 4E 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 |EN. JSR | 00000290: 57 41 49 54 20 20 20 20 3B 57 41 52 54 45 4E 0D |WAIT ;WARTEN.| 000002A0: 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 | DEX. | 000002B0: 20 20 20 20 20 20 43 50 58 20 23 24 46 46 0D 20 | CPX #$FF. | 000002C0: 20 20 20 20 20 20 20 20 42 4E 45 20 53 45 4E 44 | BNE SEND| 000002D0: 32 0D 0D 45 4F 54 20 20 20 20 20 20 4A 53 52 20 |2..EOT JSR | 000002E0: 55 4E 47 55 45 4C 54 20 3B 57 45 4E 4E 20 41 4C |UNGUELT ;WENN AL| 000002F0: 4C 45 20 44 41 54 45 4E 0D 20 20 20 20 20 20 20 |LE DATEN. | 00000300: 20 20 4A 53 52 20 57 41 49 54 20 20 20 20 3B 44 | JSR WAIT ;D| 00000310: 41 4E 4E 20 54 52 49 47 47 45 52 3D 55 4E 47 55 |ANN TRIGGER=UNGU| 00000320: 45 0D 20 20 20 20 20 20 20 20 20 43 4C 49 20 20 |E. CLI | 00000330: 20 20 20 20 20 20 20 3B 57 41 52 54 45 4E 20 55 | ;WARTEN U| 00000340: 4E 44 0D 20 20 20 20 20 20 20 20 20 52 54 53 20 |ND. RTS | 00000350: 20 20 20 20 20 20 20 20 3B 42 45 45 4E 44 45 4E | ;BEENDEN| 00000360: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00000370: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000380: 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 57 41 49 54 20 20 |---------.WAIT | 00000390: 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 20 | LDA #$00. | 000003A0: 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 20 | CLC | 000003B0: 20 3B 57 41 52 54 45 53 43 48 4C 45 49 46 45 0D | ;WARTESCHLEIFE.| 000003C0: 57 31 20 20 20 20 20 20 20 41 44 43 20 23 24 30 |W1 ADC #$0| 000003D0: 31 20 20 20 20 3B 28 4A 45 20 4C 41 45 4E 47 45 |1 ;(JE LAENGE| 000003E0: 52 2C 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 |R,. CMP | 000003F0: 23 24 30 34 20 20 20 20 3B 44 45 53 54 4F 20 5A |#$04 ;DESTO Z| 00000400: 55 56 45 52 4C 41 45 53 53 49 47 0D 20 20 20 20 |UVERLAESSIG. | 00000410: 20 20 20 20 20 42 43 43 20 57 31 20 20 20 20 20 | BCC W1 | 00000420: 20 3B 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D | ;. RTS.| 00000430: 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |;---------------| 00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000450: 2D 2D 2D 2D 2D 2D 2D 2D 0D 47 55 45 4C 54 49 47 |--------.GUELTIG| 00000460: 20 20 4C 44 41 20 24 44 44 30 30 20 20 20 3B 54 | LDA $DD00 ;T| 00000470: 52 49 47 47 45 52 0D 20 20 20 20 20 20 20 20 20 |RIGGER. | 00000480: 4F 52 41 20 23 24 30 34 20 20 20 20 3B 47 55 45 |ORA #$04 ;GUE| 00000490: 4C 54 49 47 0D 20 20 20 20 20 20 20 20 20 53 54 |LTIG. ST| 000004A0: 41 20 24 44 44 30 30 20 20 20 3B 53 45 54 5A 45 |A $DD00 ;SETZE| 000004B0: 4E 0D 20 20 20 20 20 20 20 20 20 52 54 53 0D 55 |N. RTS.U| 000004C0: 4E 47 55 45 4C 54 20 20 4C 44 41 20 24 44 44 30 |NGUELT LDA $DD0| 000004D0: 30 20 20 20 3B 54 52 49 47 47 45 52 0D 20 20 20 |0 ;TRIGGER. | 000004E0: 20 20 20 20 20 20 41 4E 44 20 23 24 46 42 20 20 | AND #$FB | 000004F0: 20 20 3B 55 4E 47 55 45 4C 54 49 47 0D 20 20 20 | ;UNGUELTIG. | 00000500: 20 20 20 20 20 20 53 54 41 20 24 44 44 30 30 20 | STA $DD00 | 00000510: 20 20 3B 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 | ;SETZEN. | 00000520: 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D | RTS.;--------| 00000530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000540: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D |---------------.| 00000550: 0D |. |
;---------------------------------------
.;-- PARALLELE UEBERTRAGUNG (W)92 PIT -
-.;-------------------------------------
--. *= $1000.. SEI
;IRQ SPERREN. LDA $DD03 ;DA
TENRICHTUNGSREG. ORA #$FF ;FU
ER PORT B AUF. STA $DD03 ;AUSG
ABE LEGEN. LDA $DD02 ;DATENRIC
HTUNGSREG. ORA #$04 ;FUER POR
T A (BIT2). STA $DD02 ;AUF AUS
GABE SETZEN.. LDX #$FF.SEND2
LDY #$00 ;. LDA $C000,Y ;BYTE
HOLEN UND IN. STA $DD01 ;PORT
SCHREIBEN. JSR GUELTIG ;TRIGGER
GUELTIG. JSR WAIT ;HAUPTDATE
N WERDEN. JSR UNGUELT ;UEBERTRAG
EN. JSR WAIT ;WARTEN.
DEX. CPX #$FF. BNE SEND
2..EOT JSR UNGUELT ;WENN ALLE DATEN
. JSR WAIT ;DANN TRIGGER=UNGU
E. CLI ;WARTEN UND.
RTS ;BEENDEN.;--------------
-------------------------.WAIT LDA #
$00. CLC ;WARTESCHLEIFE.
W1 ADC #$01 ;(JE LAENGER,.
CMP #$04 ;DESTO ZUVERLAESSIG.
BCC W1 ;. RTS.;-------
--------------------------------.GUELTIG
LDA $DD00 ;TRIGGER. ORA #$04
;GUELTIG. STA $DD00 ;SETZE
N. RTS.UNGUELT LDA $DD00 ;TRI
GGER. AND #$FB ;UNGUELTIG.
STA $DD00 ;SETZEN. RTS.;
---------------------------------------.
.
> CLICK IMAGE PREVIEW FOR FULL MODAL