00000000: 3B 53 50 45 45 44 45 52 20 46 4C 4F 50 50 59 2D |;SPEEDER FLOPPY-|
00000010: 3E 43 4F 4D 50 55 54 45 52 20 28 46 4C 4F 50 50 |>COMPUTER (FLOPP|
00000020: 59 20 52 4F 55 54 45 29 0D 0D 20 20 20 4C 44 58 |Y ROUTE).. LDX|
00000030: 20 23 24 31 30 20 20 20 20 20 3B 0D 4C 31 20 4C | #$10 ;.L1 L|
00000040: 44 41 20 24 31 38 30 30 20 20 20 20 3B 41 55 46 |DA $1800 ;AUF|
00000050: 20 41 54 4E 0D 20 20 20 42 50 4C 20 4C 31 20 20 | ATN. BPL L1 |
00000060: 20 20 20 20 20 3B 57 41 52 54 45 4E 0D 20 20 20 | ;WARTEN. |
00000070: 53 54 58 20 24 31 38 30 30 20 20 20 20 3B 44 41 |STX $1800 ;DA|
00000080: 54 41 20 53 45 54 5A 45 4E 0D 4C 32 20 4C 44 41 |TA SETZEN.L2 LDA|
00000090: 20 50 55 46 46 45 52 2C 59 20 3B 44 41 54 45 4E | PUFFER,Y ;DATEN|
000000A0: 42 59 59 54 45 20 48 4F 4C 45 4E 0D 20 20 20 53 |BYYTE HOLEN. S|
000000B0: 54 41 20 24 43 31 20 20 20 20 20 20 3B 55 4E 44 |TA $C1 ;UND|
000000C0: 20 53 49 43 48 45 52 4E 0D 20 20 20 4C 53 52 20 | SICHERN. LSR |
000000D0: 41 20 20 20 20 20 20 20 20 3B 48 49 47 48 4E 49 |A ;HIGHNI|
000000E0: 42 42 4C 45 0D 20 20 20 4C 53 52 20 41 20 20 20 |BBLE. LSR A |
000000F0: 20 20 20 20 20 3B 49 53 4F 4C 49 45 52 45 4E 0D | ;ISOLIEREN.|
00000100: 20 20 20 4C 53 52 20 41 20 20 20 20 20 20 20 20 | LSR A |
00000110: 3B 0D 20 20 20 4C 53 52 20 41 20 20 20 20 20 20 |;. LSR A |
00000120: 20 20 3B 0D 4C 33 20 4C 44 58 20 24 31 38 30 30 | ;.L3 LDX $1800|
00000130: 20 20 20 20 3B 57 49 45 44 45 52 20 41 55 46 20 | ;WIEDER AUF |
00000140: 41 54 4E 20 57 41 52 54 45 4E 0D 20 20 20 42 50 |ATN WARTEN. BP|
00000150: 4C 20 4C 33 20 20 20 20 20 20 20 3B 0D 20 20 20 |L L3 ;. |
00000160: 53 54 41 20 24 31 38 30 30 20 20 20 20 3B 42 49 |STA $1800 ;BI|
00000170: 54 53 20 35 20 55 4E 44 20 37 0D 20 20 20 41 53 |TS 5 UND 7. AS|
00000180: 4C 20 41 20 20 20 20 20 20 20 20 3B 55 45 42 45 |L A ;UEBE|
00000190: 52 54 52 41 47 45 4E 0D 20 20 20 41 4E 44 20 23 |RTRAGEN. AND #|
000001A0: 24 30 46 20 20 20 20 20 3B 42 49 54 53 20 34 20 |$0F ;BITS 4 |
000001B0: 55 4E 44 20 36 0D 20 20 20 53 54 41 20 24 31 38 |UND 6. STA $18|
000001C0: 30 30 20 20 20 20 3B 55 45 42 45 52 54 52 41 47 |00 ;UEBERTRAG|
000001D0: 45 4E 0D 20 20 20 4C 44 41 20 24 43 31 20 20 20 |EN. LDA $C1 |
000001E0: 20 20 20 3B 44 41 54 45 4E 42 59 54 45 20 48 4F | ;DATENBYTE HO|
000001F0: 4C 45 4E 0D 20 20 20 41 4E 44 20 23 24 30 46 20 |LEN. AND #$0F |
00000200: 20 20 20 20 3B 55 4E 44 20 42 49 54 53 20 31 20 | ;UND BITS 1 |
00000210: 55 4E 44 20 33 0D 20 20 20 53 54 41 20 24 31 38 |UND 3. STA $18|
00000220: 30 30 20 20 20 20 3B 55 45 42 45 52 54 52 41 47 |00 ;UEBERTRAG|
00000230: 45 4E 0D 20 20 20 41 53 4C 20 41 20 20 20 20 20 |EN. ASL A |
00000240: 20 20 20 3B 0D 20 20 20 41 4E 44 20 23 24 30 46 | ;. AND #$0F|
00000250: 20 20 20 20 20 3B 42 49 54 53 20 30 20 55 4E 44 | ;BITS 0 UND|
00000260: 20 32 0D 20 20 20 53 54 41 20 24 31 38 30 30 20 | 2. STA $1800 |
00000270: 20 20 20 3B 55 45 42 45 52 54 52 41 47 45 4E 0D | ;UEBERTRAGEN.|
00000280: 20 20 20 49 4E 59 20 20 20 20 20 20 20 20 20 20 | INY |
00000290: 3B 55 4E 44 0D 20 20 20 42 4E 45 20 4C 32 20 20 |;UND. BNE L2 |
000002A0: 20 20 20 20 20 3B 4E 41 45 43 48 53 54 45 53 20 | ;NAECHSTES |
000002B0: 42 59 54 45 0D 20 20 20 4C 44 58 20 23 24 30 46 |BYTE. LDX #$0F|
000002C0: 20 20 20 20 20 3B 41 54 4E 0D 20 20 20 53 54 58 | ;ATN. STX|
000002D0: 20 24 31 38 30 30 20 20 20 20 3B 5A 55 52 55 45 | $1800 ;ZURUE|
000002E0: 43 4B 53 45 54 5A 45 4E 0D 20 20 20 52 54 53 20 |CKSETZEN. RTS |
000002F0: 20 20 20 20 20 20 20 20 20 3B 55 4E 44 20 52 55 | ;UND RU|
00000300: 45 43 4B 4B 45 48 52 0D 0D |ECKKEHR.. |
;SPEEDER FLOPPY->COMPUTER (FLOPPY ROUTE)
.. LDX #$10 ;.L1 LDA $1800 ;AUF
ATN. BPL L1 ;WARTEN. STX $180
0 ;DATA SETZEN.L2 LDA PUFFER,Y ;DATEN
BYYTE HOLEN. STA $C1 ;UND SICHERN
. LSR A ;HIGHNIBBLE. LSR A
;ISOLIEREN. LSR A ;. LSR
A ;.L3 LDX $1800 ;WIEDER AUF
ATN WARTEN. BPL L3 ;. STA $180
0 ;BITS 5 UND 7. ASL A ;UEBE
RTRAGEN. AND #$0F ;BITS 4 UND 6.
STA $1800 ;UEBERTRAGEN. LDA $C1
;DATENBYTE HOLEN. AND #$0F ;UND
BITS 1 UND 3. STA $1800 ;UEBERTRAG
EN. ASL A ;. AND #$0F ;BI
TS 0 UND 2. STA $1800 ;UEBERTRAGEN.
INY ;UND. BNE L2 ;NA
ECHSTES BYTE. LDX #$0F ;ATN. STX
$1800 ;ZURUECKSETZEN. RTS
;UND RUECKKEHR..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL