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 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL