C-F (COMP).SEQ
FILE INFORMATION
FILENAME(S): C-F (COMP).SEQ
FILE TYPE(S): SEQ
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 01:12:58
APPEARS ON: 1 disk(s)
FILE HASH
9a6cc777582dd742cf071c6f6656593f0f5f33187d0d83992d0e305f2fe2e8bc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10204 SEITE A | C-F (COMP).SEQ | SEQ | C64er | 32 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 3B 53 50 45 45 44 45 52 20 43 4F 4D 50 55 54 45 |;SPEEDER COMPUTE| 00000010: 52 2D 3E 46 4C 4F 50 50 59 20 28 43 4F 4D 50 2E |R->FLOPPY (COMP.| 00000020: 52 4F 55 54 49 4E 45 29 0D 0D 20 20 20 20 4C 44 |ROUTINE).. LD| 00000030: 41 20 23 24 30 42 20 20 20 20 3B 41 54 54 45 4E |A #$0B ;ATTEN| 00000040: 54 49 4F 4E 20 49 4E 20 43 49 41 20 32 0D 20 20 |TION IN CIA 2. | 00000050: 20 20 53 54 41 20 24 44 44 30 30 20 20 20 3B 53 | STA $DD00 ;S| 00000060: 45 54 5A 45 4E 0D 20 20 20 20 4C 44 58 20 23 24 |ETZEN. LDX #$| 00000070: 30 33 20 20 20 20 3B 41 55 46 20 44 41 54 41 2D |03 ;AUF DATA-| 00000080: 4C 45 49 54 55 4E 47 0D 4C 31 20 20 4C 44 41 20 |LEITUNG.L1 LDA | 00000090: 24 44 44 30 30 20 20 20 3B 57 41 52 54 45 4E 0D |$DD00 ;WARTEN.| 000000A0: 20 20 20 20 42 50 4C 20 4C 31 20 20 20 20 20 20 | BPL L1 | 000000B0: 3B 0D 20 20 20 20 53 54 58 20 24 44 44 30 30 20 |;. STX $DD00 | 000000C0: 20 20 3B 41 54 4E 20 52 55 45 43 4B 53 45 54 5A | ;ATN RUECKSETZ| 000000D0: 45 4E 0D 4C 32 20 20 4C 44 41 20 50 55 46 46 45 |EN.L2 LDA PUFFE| 000000E0: 52 2C 59 3B 44 41 54 45 4E 42 59 54 45 53 20 48 |R,Y;DATENBYTES H| 000000F0: 4F 4C 45 4E 0D 20 20 20 20 4C 44 58 20 23 24 30 |OLEN. LDX #$0| 00000100: 42 20 20 20 20 3B 41 54 4E 0D 20 20 20 20 53 54 |B ;ATN. ST| 00000110: 58 20 24 44 44 30 30 20 20 20 3B 53 45 54 5A 45 |X $DD00 ;SETZE| 00000120: 4E 0D 20 20 20 20 54 41 58 20 20 20 20 20 20 20 |N. TAX | 00000130: 20 20 3B 42 59 54 45 20 52 45 54 54 45 4E 0D 20 | ;BYTE RETTEN. | 00000140: 20 20 20 41 4E 44 20 23 24 46 30 20 20 20 20 3B | AND #$F0 ;| 00000150: 44 41 54 45 4E 42 49 54 53 20 34 20 55 4E 44 20 |DATENBITS 4 UND | 00000160: 35 0D 20 20 20 20 53 54 41 20 24 44 44 30 30 20 |5. STA $DD00 | 00000170: 20 20 3B 49 53 4F 4C 49 45 52 45 4E 20 26 20 55 | ;ISOLIEREN & U| 00000180: 45 42 45 52 54 52 41 47 45 4E 0D 20 20 20 20 4C |EBERTRAGEN. L| 00000190: 53 52 20 41 20 20 20 20 20 20 20 3B 52 45 43 48 |SR A ;RECH| 000001A0: 54 53 20 52 4F 54 49 45 52 45 4E 0D 20 20 20 20 |TS ROTIEREN. | 000001B0: 4C 53 52 20 41 20 20 20 20 20 20 20 3B 0D 20 20 |LSR A ;. | 000001C0: 20 20 41 4E 44 20 23 24 46 30 20 20 20 20 3B 55 | AND #$F0 ;U| 000001D0: 4E 44 20 42 49 54 53 20 36 20 55 4E 44 20 37 0D |ND BITS 6 UND 7.| 000001E0: 20 20 20 20 53 54 41 20 24 44 44 30 30 20 20 20 | STA $DD00 | 000001F0: 3B 55 45 42 45 52 54 52 41 47 45 4E 0D 20 20 20 |;UEBERTRAGEN. | 00000200: 20 54 58 41 20 20 20 20 20 20 20 20 20 3B 47 45 | TXA ;GE| 00000210: 52 45 54 54 45 52 20 57 45 52 54 20 49 4E 20 41 |RETTER WERT IN A| 00000220: 4B 4B 55 0D 20 20 20 20 41 4E 44 20 23 24 30 46 |KKU. AND #$0F| 00000230: 20 20 20 20 3B 41 55 53 20 4C 4F 57 4E 49 42 42 | ;AUS LOWNIBB| 00000240: 4C 45 20 42 49 54 53 0D 20 20 20 20 54 41 58 20 |LE BITS. TAX | 00000250: 20 20 20 20 20 20 20 20 3B 30 20 55 4E 44 20 31 | ;0 UND 1| 00000260: 20 49 53 4F 4C 49 45 52 45 4E 0D 20 20 20 20 4C | ISOLIEREN. L| 00000270: 44 41 20 54 41 42 2C 58 20 20 20 3B 57 45 52 54 |DA TAB,X ;WERT| 00000280: 20 41 55 53 20 54 41 42 45 4C 4C 45 20 4C 41 44 | AUS TABELLE LAD| 00000290: 45 4E 0D 20 20 20 20 53 54 41 20 24 44 44 30 30 |EN. STA $DD00| 000002A0: 20 20 20 3B 55 4E 44 20 55 45 42 45 52 54 52 41 | ;UND UEBERTRA| 000002B0: 47 45 4E 0D 20 20 20 20 4C 53 52 20 41 20 20 20 |GEN. LSR A | 000002C0: 20 20 20 20 3B 57 49 45 44 45 52 0D 20 20 20 20 | ;WIEDER. | 000002D0: 4C 53 52 20 41 20 20 20 20 20 20 20 3B 52 45 43 |LSR A ;REC| 000002E0: 48 54 53 20 52 4F 54 49 45 52 45 4E 0D 20 20 20 |HTS ROTIEREN. | 000002F0: 20 41 4E 44 20 23 24 46 30 20 20 20 20 3B 55 4E | AND #$F0 ;UN| 00000300: 44 20 42 49 54 53 20 32 20 55 4E 44 20 33 0D 20 |D BITS 2 UND 3. | 00000310: 20 20 20 53 54 41 20 24 44 44 30 30 20 20 20 3B | STA $DD00 ;| 00000320: 55 45 42 45 52 54 52 41 47 45 4E 0D 20 20 20 20 |UEBERTRAGEN. | 00000330: 4E 4F 50 20 20 20 20 20 20 20 20 20 3B 5A 59 4B |NOP ;ZYK| 00000340: 4C 45 4E 0D 20 20 20 20 4E 4F 50 20 20 20 20 20 |LEN. NOP | 00000350: 20 20 20 20 3B 41 55 53 47 4C 45 49 43 48 0D 20 | ;AUSGLEICH. | 00000360: 20 20 20 4E 4F 50 20 20 20 20 20 20 20 20 20 3B | NOP ;| 00000370: 0D 20 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 |. INY | 00000380: 20 3B 4E 41 45 43 48 53 54 45 53 20 42 59 54 45 | ;NAECHSTES BYTE| 00000390: 0D 20 20 20 20 42 4E 45 20 4C 32 20 20 20 20 20 |. BNE L2 | 000003A0: 20 3B 0D 20 20 20 20 4C 44 41 20 23 24 30 33 20 | ;. LDA #$03 | 000003B0: 20 20 20 3B 41 54 4E 0D 20 20 20 20 53 54 41 20 | ;ATN. STA | 000003C0: 24 44 44 30 30 20 20 20 3B 5A 55 52 55 45 43 4B |$DD00 ;ZURUECK| 000003D0: 53 45 54 5A 45 4E 0D 20 20 20 20 52 54 53 20 20 |SETZEN. RTS | 000003E0: 20 20 20 20 20 20 20 3B 55 4E 44 20 52 55 45 43 | ;UND RUEC| 000003F0: 4B 4B 45 48 52 0D 0D 54 41 42 20 2E 42 59 54 45 |KKEHR..TAB .BYTE| 00000400: 20 24 30 30 2C 24 31 30 2C 24 32 30 2C 24 33 30 | $00,$10,$20,$30| 00000410: 0D 20 20 20 20 2E 42 59 54 45 20 24 34 30 2C 24 |. .BYTE $40,$| 00000420: 35 30 2C 24 36 30 2C 24 37 30 0D 20 20 20 20 2E |50,$60,$70. .| 00000430: 42 59 54 45 20 24 38 30 2C 24 39 30 2C 24 41 30 |BYTE $80,$90,$A0| 00000440: 2C 24 42 30 0D 20 20 20 20 2E 42 59 54 45 20 24 |,$B0. .BYTE $| 00000450: 43 30 2C 24 44 30 2C 24 45 30 2C 24 46 30 0D 0D |C0,$D0,$E0,$F0..|
;SPEEDER COMPUTER->FLOPPY (COMP.ROUTINE)
.. LDA #$0B ;ATTENTION IN CIA 2.
STA $DD00 ;SETZEN. LDX #$03 ;A
UF DATA-LEITUNG.L1 LDA $DD00 ;WARTEN.
BPL L1 ;. STX $DD00 ;ATN R
UECKSETZEN.L2 LDA PUFFER,Y;DATENBYTES H
OLEN. LDX #$0B ;ATN. STX $DD00
;SETZEN. TAX ;BYTE RETTEN.
AND #$F0 ;DATENBITS 4 UND 5. ST
A $DD00 ;ISOLIEREN & UEBERTRAGEN. L
SR A ;RECHTS ROTIEREN. LSR A
;. AND #$F0 ;UND BITS 6 UND 7.
STA $DD00 ;UEBERTRAGEN. TXA
;GERETTER WERT IN AKKU. AND #$0F
;AUS LOWNIBBLE BITS. TAX
;0 UND 1 ISOLIEREN. LDA TAB,X ;WERT
AUS TABELLE LADEN. STA $DD00 ;UND
UEBERTRAGEN. LSR A ;WIEDER.
LSR A ;RECHTS ROTIEREN. AND #$F
0 ;UND BITS 2 UND 3. STA $DD00 ;
UEBERTRAGEN. NOP ;ZYKLEN.
NOP ;AUSGLEICH. NOP ;
. INY ;NAECHSTES BYTE. BNE
L2 ;. LDA #$03 ;ATN. STA
$DD00 ;ZURUECKSETZEN. RTS ;
UND RUECKKEHR..TAB .BYTE $00,$10,$20,$30
. .BYTE $40,$50,$60,$70. .BYTE $80
,$90,$A0,$B0. .BYTE $C0,$D0,$E0,$F0..
> CLICK IMAGE PREVIEW FOR FULL MODAL