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 43 4F 4D 50 2E |>COMPUTER (COMP.|
00000020: 52 4F 55 54 49 4E 45 29 0D 0D 20 20 20 4C 44 58 |ROUTINE).. LDX|
00000030: 20 23 24 30 42 0D 20 20 20 53 54 58 20 24 44 44 | #$0B. STX $DD|
00000040: 30 30 0D 20 20 20 4C 44 58 20 23 24 30 33 0D 4C |00. LDX #$03.L|
00000050: 31 20 4C 44 41 20 24 44 44 30 30 0D 20 20 20 42 |1 LDA $DD00. B|
00000060: 50 4C 20 4C 31 0D 20 20 20 53 54 58 20 24 44 44 |PL L1. STX $DD|
00000070: 30 30 0D 4C 32 20 4E 4F 50 0D 20 20 20 4E 4F 50 |00.L2 NOP. NOP|
00000080: 0D 20 20 20 4C 44 41 20 23 24 30 42 0D 20 20 20 |. LDA #$0B. |
00000090: 53 54 41 20 24 44 44 30 30 0D 20 20 20 4E 4F 50 |STA $DD00. NOP|
000000A0: 0D 20 20 20 4E 4F 50 0D 20 20 20 4C 44 58 20 23 |. NOP. LDX #|
000000B0: 24 30 33 0D 20 20 20 53 54 58 20 24 44 44 30 30 |$03. STX $DD00|
000000C0: 0D 20 20 20 4C 44 58 20 24 44 44 30 30 20 20 20 |. LDX $DD00 |
000000D0: 20 20 3B 42 49 54 53 20 35 20 55 4E 44 20 37 0D | ;BITS 5 UND 7.|
000000E0: 20 20 20 4C 44 41 20 54 41 42 35 37 2C 58 20 20 | LDA TAB57,X |
000000F0: 20 3B 48 4F 4C 45 4E 0D 20 20 20 4C 44 58 20 24 | ;HOLEN. LDX $|
00000100: 44 44 30 30 20 20 20 20 20 3B 0D 20 20 20 4F 52 |DD00 ;. OR|
00000110: 41 20 54 41 42 31 33 2C 58 20 20 20 3B 42 49 54 |A TAB13,X ;BIT|
00000120: 53 20 31 20 55 4E 44 20 33 0D 20 20 20 4C 44 58 |S 1 UND 3. LDX|
00000130: 20 24 44 44 30 30 20 20 20 20 20 3B 0D 20 20 20 | $DD00 ;. |
00000140: 4F 52 41 20 54 41 42 30 32 2C 58 20 20 20 3B 42 |ORA TAB02,X ;B|
00000150: 49 54 53 20 30 20 55 4E 44 20 32 0D 20 20 20 53 |ITS 0 UND 2. S|
00000160: 54 41 20 50 55 46 46 45 52 2C 59 20 20 3B 55 4E |TA PUFFER,Y ;UN|
00000170: 44 20 53 43 48 52 45 49 42 45 4E 0D 20 20 20 49 |D SCHREIBEN. I|
00000180: 4E 59 20 20 20 20 20 20 20 20 20 20 20 3B 4E 41 |NY ;NA|
00000190: 45 43 48 53 54 45 53 20 42 59 54 45 0D 20 20 20 |ECHSTES BYTE. |
000001A0: 42 4E 45 20 4C 32 0D 20 20 20 52 54 53 0D 0D 20 |BNE L2. RTS.. |
000001B0: 20 20 2E 42 59 54 45 20 24 30 30 2C 24 30 30 2C | .BYTE $00,$00,|
000001C0: 24 30 30 2C 24 30 35 2C 24 30 30 2C 24 30 30 2C |$00,$05,$00,$00,|
000001D0: 24 30 30 2C 24 30 30 0D 20 20 20 2E 42 59 54 45 |$00,$00. .BYTE|
000001E0: 20 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 41 | $00,$00,$00,$0A|
000001F0: 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 |,$00,$00,$00,$00|
00000200: 0D 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 30 |. .BYTE $00,$0|
00000210: 30 2C 24 30 30 2C 24 35 30 2C 24 30 30 2C 24 30 |0,$00,$50,$00,$0|
00000220: 30 2C 24 30 30 2C 24 30 30 0D 20 20 20 2E 42 59 |0,$00,$00. .BY|
00000230: 54 45 20 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |TE $00,$00,$00,$|
00000240: 41 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |A0,$00,$00,$00,$|
00000250: 30 30 0D 20 20 20 2E 42 59 54 45 20 30 2C 30 2C |00. .BYTE 0,0,|
00000260: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000270: 30 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 20 2E |0,0,0,0,0,0. .|
00000280: 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 |BYTE 0,0,0,0,0,0|
00000290: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
000002A0: 2C 30 2C 30 0D 20 20 20 2E 42 59 54 45 20 24 30 |,0,0. .BYTE $0|
000002B0: 30 2C 24 30 30 2C 24 30 30 2C 24 30 31 2C 24 30 |0,$00,$00,$01,$0|
000002C0: 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 0D 20 20 |0,$00,$00,$00. |
000002D0: 20 2E 42 59 54 45 20 24 30 30 2C 24 30 30 2C 24 | .BYTE $00,$00,$|
000002E0: 30 30 2C 24 30 32 2C 24 30 30 2C 24 30 30 2C 24 |00,$02,$00,$00,$|
000002F0: 30 30 2C 24 30 30 0D 20 20 20 2E 42 59 54 45 20 |00,$00. .BYTE |
00000300: 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 31 30 2C |$00,$00,$00,$10,|
00000310: 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 0D |$00,$00,$00,$00.|
00000320: 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 30 30 | .BYTE $00,$00|
00000330: 2C 24 30 30 2C 24 32 30 2C 24 30 30 2C 24 30 30 |,$00,$20,$00,$00|
00000340: 2C 24 30 30 2C 24 30 30 0D 20 20 20 2E 42 59 54 |,$00,$00. .BYT|
00000350: 45 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |E 0,0,0,0,0,0,0,|
00000360: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000370: 30 0D 20 20 20 2E 42 59 54 45 20 30 2C 30 2C 30 |0. .BYTE 0,0,0|
00000380: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000390: 2C 30 2C 30 2C 30 2C 30 2C 30 0D 20 20 20 2E 42 |,0,0,0,0,0. .B|
000003A0: 59 54 45 20 24 30 30 2C 24 30 30 2C 24 30 30 2C |YTE $00,$00,$00,|
000003B0: 24 30 34 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C |$04,$00,$00,$00,|
000003C0: 24 30 30 0D 20 20 20 2E 42 59 54 45 20 24 30 30 |$00. .BYTE $00|
000003D0: 2C 24 30 30 2C 24 30 30 2C 24 30 38 2C 24 30 30 |,$00,$00,$08,$00|
000003E0: 2C 24 30 30 2C 24 30 30 2C 24 30 30 0D 20 20 20 |,$00,$00,$00. |
000003F0: 2E 42 59 54 45 20 24 30 30 2C 24 30 30 2C 24 30 |.BYTE $00,$00,$0|
00000400: 30 2C 24 34 30 2C 24 30 30 2C 24 30 30 2C 24 30 |0,$40,$00,$00,$0|
00000410: 30 2C 24 30 30 0D 20 20 20 2E 42 59 54 45 20 24 |0,$00. .BYTE $|
00000420: 30 30 2C 24 30 30 2C 24 30 30 2C 24 38 30 2C 24 |00,$00,$00,$80,$|
00000430: 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 0D 20 |00,$00,$00,$00. |
00000440: 20 20 2E 42 59 54 45 20 30 2C 30 2C 30 2C 30 2C | .BYTE 0,0,0,0,|
00000450: 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C |0,0,0,0,0,0,0,0,|
00000460: 30 2C 30 2C 30 2C 30 0D 20 20 20 2E 42 59 54 45 |0,0,0,0. .BYTE|
00000470: 20 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 | 0,0,0,0,0,0,0,0|
00000480: 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 2C 30 |,0,0,0,0,0,0,0,0|
00000490: 0D 20 20 20 2E 42 59 54 45 20 24 30 30 2C 24 30 |. .BYTE $00,$0|
000004A0: 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 |0,$00,$00,$00,$0|
000004B0: 30 2C 24 30 30 2C 24 30 30 0D 20 20 20 2E 42 59 |0,$00,$00. .BY|
000004C0: 54 45 20 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |TE $00,$00,$00,$|
000004D0: 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 |00,$00,$00,$00,$|
000004E0: 30 30 0D 20 20 20 2E 42 59 54 45 20 24 30 30 2C |00. .BYTE $00,|
000004F0: 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C |$00,$00,$00,$00,|
00000500: 24 30 30 2C 24 30 30 2C 24 30 30 0D 20 20 20 2E |$00,$00,$00. .|
00000510: 42 59 54 45 20 24 30 30 2C 24 30 30 2C 24 30 30 |BYTE $00,$00,$00|
00000520: 2C 24 30 30 2C 24 30 30 2C 24 30 30 2C 24 30 30 |,$00,$00,$00,$00|
00000530: 2C 24 30 30 0D 0D |,$00.. |
;SPEEDER FLOPPY->COMPUTER (COMP.ROUTINE)
.. LDX #$0B. STX $DD00. LDX #$03.L
1 LDA $DD00. BPL L1. STX $DD00.L2 NO
P. NOP. LDA #$0B. STA $DD00. NOP
. NOP. LDX #$03. STX $DD00. LDX
$DD00 ;BITS 5 UND 7. LDA TAB57,X
;HOLEN. LDX $DD00 ;. ORA TAB13,
X ;BITS 1 UND 3. LDX $DD00 ;.
ORA TAB02,X ;BITS 0 UND 2. STA PUFFE
R,Y ;UND SCHREIBEN. INY ;NA
ECHSTES BYTE. BNE L2. RTS.. .BYTE
$00,$00,$00,$05,$00,$00,$00,$00. .BYTE
$00,$00,$00,$0A,$00,$00,$00,$00. .BYT
E $00,$00,$00,$50,$00,$00,$00,$00. .BY
TE $00,$00,$00,$A0,$00,$00,$00,$00. .B
YTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0. .
BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.
.BYTE $00,$00,$00,$01,$00,$00,$00,$00.
.BYTE $00,$00,$00,$02,$00,$00,$00,$00.
.BYTE $00,$00,$00,$10,$00,$00,$00,$00.
.BYTE $00,$00,$00,$20,$00,$00,$00,$00
. .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0. .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0. .BYTE $00,$00,$00,$04,$00,$00,$00,
$00. .BYTE $00,$00,$00,$08,$00,$00,$00
,$00. .BYTE $00,$00,$00,$40,$00,$00,$0
0,$00. .BYTE $00,$00,$00,$80,$00,$00,$
00,$00. .BYTE 0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0. .BYTE 0,0,0,0,0,0,0,0,0,0,0,0
,0,0,0,0. .BYTE $00,$00,$00,$00,$00,$0
0,$00,$00. .BYTE $00,$00,$00,$00,$00,$
00,$00,$00. .BYTE $00,$00,$00,$00,$00,
$00,$00,$00. .BYTE $00,$00,$00,$00,$00
,$00,$00,$00..