QUELLTEXT
FILE INFORMATION
FILENAME(S): QUELLTEXT
FILE TYPE(S): SEQ
FILE SIZE: 11.4K
FIRST SEEN: 2025-11-30 01:13:02
APPEARS ON: 1 disk(s)
FILE HASH
1a1b211507b5bff0dbc2a37ac238d41c4cc9f63c9a9e391d87efbb31fee38735
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10101 SEITE A | QUELLTEXT | SEQ | C64er | 14 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 50 48 43 0D 0D 54 49 54 2E 54 53 45 2D 46 4F |.PHC..TIT.TSE-FO| 00000010: 52 4D 41 54 20 CA 2E CB 4C 4F 45 48 4E 2C 20 C8 |RMAT ...LOEHN, .| 00000020: 2E 2D C4 55 4E 43 4B 45 52 2D D3 54 52 2E 38 33 |.-.UNCKER-.TR.83| 00000030: 2C 20 C4 C4 D2 2D 31 31 35 37 20 C2 45 52 4C 49 |, ...-1157 .ERLI| 00000040: 4E 2C 20 D4 45 4C 2E 28 30 30 33 37 32 29 35 30 |N, .EL.(00372)50| 00000050: 38 32 37 34 34 0D 0D 3A 53 54 41 52 4F 4B 20 3D |82744..:STAROK =| 00000060: 20 31 0D 0D 3B 2A 2A 2A 20 4C 41 42 45 4C 44 45 | 1..;*** LABELDE| 00000070: 46 20 2A 2A 2A 0D 0D 3A 43 48 52 49 4E 20 20 3D |F ***..:CHRIN =| 00000080: 20 24 46 46 43 46 0D 3A 47 45 54 49 4E 20 20 3D | $FFCF.:GETIN =| 00000090: 20 24 46 46 45 34 0D 0D 3B 2A 2A 2A 20 4D 41 4B | $FFE4..;*** MAK| 000000A0: 52 4F 53 20 2A 2A 2A 0D 0D 3A 53 54 52 4F 55 54 |ROS ***..:STROUT| 000000B0: 20 4D 20 31 0D 0D 20 20 20 20 20 20 20 20 4C 44 | M 1.. LD| 000000C0: 41 20 23 3C 40 30 0D 20 20 20 20 20 20 20 20 4C |A #<@0. L| 000000D0: 44 59 20 23 3E 40 30 0D 20 20 20 20 20 20 20 20 |DY #>@0. | 000000E0: 4A 53 52 20 24 41 42 31 45 0D 2F 0D 0D 3A 49 4E |JSR $AB1E./..:IN| 000000F0: 50 55 54 20 4D 46 20 33 0D 0D 20 20 20 20 20 20 |PUT MF 3.. | 00000100: 20 20 53 54 52 4F 55 54 20 40 30 0D 20 20 20 20 | STROUT @0. | 00000110: 20 20 20 20 4C 44 59 20 23 30 0D 3A 49 4E 50 55 | LDY #0.:INPU| 00000120: 54 31 20 4A 53 52 20 43 48 52 49 4E 0D 20 20 20 |T1 JSR CHRIN. | 00000130: 20 20 20 20 20 53 54 41 20 24 30 32 30 30 2C 59 | STA $0200,Y| 00000140: 0D 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 |. INY. | 00000150: 20 20 20 20 20 43 4D 50 20 23 31 33 0D 20 20 20 | CMP #13. | 00000160: 20 20 20 20 20 42 4E 45 20 49 4E 50 55 54 31 0D | BNE INPUT1.| 00000170: 0D 20 20 20 20 20 20 20 20 4C 44 59 20 23 30 0D |. LDY #0.| 00000180: 20 20 20 20 20 20 20 20 4C 44 58 20 23 30 0D 3A | LDX #0.:| 00000190: 49 4E 50 55 54 33 20 4C 44 41 20 24 30 32 30 30 |INPUT3 LDA $0200| 000001A0: 2C 58 0D 20 20 20 20 20 20 20 20 43 4D 50 20 23 |,X. CMP #| 000001B0: 31 33 0D 20 20 20 20 20 20 20 20 42 4E 45 20 49 |13. BNE I| 000001C0: 4E 50 55 54 32 0D 20 20 20 20 20 20 20 20 4C 44 |NPUT2. LD| 000001D0: 41 20 23 24 41 30 0D 20 20 20 20 20 20 20 20 42 |A #$A0. B| 000001E0: 20 24 32 34 0D 3A 49 4E 50 55 54 32 20 49 4E 58 | $24.:INPUT2 INX| 000001F0: 0D 20 20 20 20 20 20 20 20 53 54 41 20 40 31 2C |. STA @1,| 00000200: 59 0D 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 |Y. INY. | 00000210: 20 20 20 20 20 20 43 50 59 20 23 40 32 0D 20 20 | CPY #@2. | 00000220: 20 20 20 20 20 20 42 4E 45 20 49 4E 50 55 54 33 | BNE INPUT3| 00000230: 0D 2F 0D 0D 3A 46 4C 4F 50 50 59 20 4D 20 34 0D |./..:FLOPPY M 4.| 00000240: 0D 3B 52 41 4D 41 20 20 20 3D 20 40 30 0D 3B 52 |.;RAMA = @0.;R| 00000250: 41 4D 45 20 20 20 3D 20 40 31 0D 3B 44 41 54 41 |AME = @1.;DATA| 00000260: 44 52 20 3D 20 40 32 0D 3B 53 54 52 41 44 52 20 |DR = @2.;STRADR | 00000270: 3D 20 40 33 0D 0D 20 20 20 20 20 20 20 20 4C 44 |= @3.. LD| 00000280: 59 20 23 40 31 2D 40 30 2F 33 32 2B 31 0D 20 20 |Y #@1-@0/32+1. | 00000290: 20 20 20 20 20 20 4C 44 58 20 23 40 31 2D 40 30 | LDX #@1-@0| 000002A0: 26 33 31 0D 20 20 20 20 20 20 20 20 4C 44 41 20 |&31. LDA | 000002B0: 23 3C 40 30 0D 20 20 20 20 20 20 20 20 53 54 41 |#<@0. STA| 000002C0: 20 24 46 42 0D 20 20 20 20 20 20 20 20 4C 44 41 | $FB. LDA| 000002D0: 20 23 3E 40 30 0D 20 20 20 20 20 20 20 20 53 54 | #>@0. ST| 000002E0: 41 20 24 46 43 0D 20 20 20 20 20 20 20 20 4C 44 |A $FC. LD| 000002F0: 41 20 23 3C 40 32 0D 20 20 20 20 20 20 20 20 53 |A #<@2. S| 00000300: 54 41 20 41 44 44 52 0D 20 20 20 20 20 20 20 20 |TA ADDR. | 00000310: 4C 44 41 20 23 3E 40 32 0D 20 20 20 20 20 20 20 |LDA #>@2. | 00000320: 20 53 54 41 20 41 44 44 52 2B 31 0D 20 20 20 20 | STA ADDR+1. | 00000330: 20 20 20 20 4A 53 52 20 46 4C 4F 50 50 31 20 20 | JSR FLOPP1 | 00000340: 20 20 3B 4D 2D 57 0D 49 46 20 40 33 0D 20 20 20 | ;M-W.IF @3. | 00000350: 20 20 20 20 20 4C 44 59 20 23 3E 40 33 0D 20 20 | LDY #>@3. | 00000360: 20 20 20 20 20 20 4C 44 41 20 23 3C 40 33 0D 20 | LDA #<@3. | 00000370: 20 20 20 20 20 20 20 4A 53 52 20 46 4C 4F 50 50 | JSR FLOPP| 00000380: 35 20 20 20 20 3B 4D 2D 45 0D 45 49 0D 0D 2F 0D |5 ;M-E.EI../.| 00000390: 0D 3B 2A 2A 2A 20 42 41 53 49 43 53 54 41 52 54 |.;*** BASICSTART| 000003A0: 20 2A 2A 2A 0D 0D 0D 49 46 20 53 54 41 52 4F 4B | ***...IF STAROK| 000003B0: 0D 0D 4F 52 47 20 24 30 38 30 31 0D 0D 3A 42 41 |..ORG $0801..:BA| 000003C0: 53 49 43 20 20 57 20 32 35 36 2C 30 0D 20 20 20 |SIC W 256,0. | 000003D0: 20 20 20 20 20 42 20 31 35 38 2C 22 32 31 31 31 | B 158,"2111| 000003E0: 3A 22 2C 31 34 33 0D 20 20 20 20 20 20 20 20 42 |:",143. B| 000003F0: 20 33 34 2C 31 34 31 2C 31 34 35 2C 38 2C 31 34 | 34,141,145,8,14| 00000400: 32 2C 31 35 34 0D 20 20 20 20 20 20 20 20 42 20 |2,154. B | 00000410: 22 54 53 45 2D 46 4F 52 4D 41 54 20 56 31 2E 31 |"TSE-FORMAT V1.1| 00000420: 20 20 42 59 20 22 0D 20 20 20 20 20 20 20 20 42 | BY ". B| 00000430: 20 35 2C 22 3F 53 41 56 45 20 45 52 52 4F 52 22 | 5,"?SAVE ERROR"| 00000440: 0D 20 20 20 20 20 20 20 20 42 20 31 35 34 2C 22 |. B 154,"| 00000450: 20 49 4E 20 31 39 38 39 20 22 0D 20 20 20 20 20 | IN 1989 ". | 00000460: 20 20 20 53 20 33 0D 0D 45 4C 0D 0D 4F 52 47 20 | S 3..EL..ORG | 00000470: 24 43 30 30 30 0D 0D 45 49 0D 0D 20 20 20 20 20 |$C000..EI.. | 00000480: 20 20 20 4C 44 41 20 23 30 0D 20 20 20 20 20 20 | LDA #0. | 00000490: 20 20 53 54 41 20 24 44 30 32 30 0D 20 20 20 20 | STA $D020. | 000004A0: 20 20 20 20 53 54 41 20 24 44 30 32 31 0D 0D 20 | STA $D021.. | 000004B0: 20 20 20 20 20 20 20 49 4E 50 55 54 20 54 45 58 | INPUT TEX| 000004C0: 54 31 2C 4E 41 4D 45 2D 46 53 54 41 52 54 2B 53 |T1,NAME-FSTART+S| 000004D0: 54 41 52 54 2C 31 36 0D 20 20 20 20 20 20 20 20 |TART,16. | 000004E0: 49 4E 50 55 54 20 54 45 58 54 32 2C 49 44 2D 46 |INPUT TEXT2,ID-F| 000004F0: 53 54 41 52 54 2B 53 54 41 52 54 2C 32 0D 20 20 |START+START,2. | 00000500: 20 20 20 20 20 20 49 4E 50 55 54 20 54 45 58 54 | INPUT TEXT| 00000510: 33 2C 49 44 46 4C 41 47 2D 46 53 54 41 52 54 2B |3,IDFLAG-FSTART+| 00000520: 53 54 41 52 54 2C 31 0D 0D 20 20 20 20 20 20 20 |START,1.. | 00000530: 20 53 54 52 4F 55 54 20 54 45 58 54 34 0D 3A 48 | STROUT TEXT4.:H| 00000540: 50 54 50 52 31 20 4A 53 52 20 47 45 54 49 4E 0D |PTPR1 JSR GETIN.| 00000550: 20 20 20 20 20 20 20 20 42 45 51 20 48 50 54 50 | BEQ HPTP| 00000560: 52 31 0D 0D 20 20 20 20 20 20 20 20 46 4C 4F 50 |R1.. FLOP| 00000570: 50 59 20 53 54 41 52 54 2C 46 45 4E 44 2D 46 53 |PY START,FEND-FS| 00000580: 54 41 52 54 2B 53 54 41 52 54 2C 46 53 54 41 52 |TART+START,FSTAR| 00000590: 54 2C 46 53 54 41 52 54 0D 20 20 20 20 20 20 20 |T,FSTART. | 000005A0: 20 53 54 52 4F 55 54 20 54 45 58 54 35 0D 0D 20 | STROUT TEXT5.. | 000005B0: 20 20 20 20 20 20 20 50 4C 41 20 20 20 20 20 20 | PLA | 000005C0: 20 3B 52 55 45 43 4B 53 50 52 55 4E 47 41 44 44 | ;RUECKSPRUNGADD| 000005D0: 52 0D 20 20 20 20 20 20 20 20 50 4C 41 20 20 20 |R. PLA | 000005E0: 20 20 20 20 3B 56 4F 4D 20 53 54 41 43 4B 20 48 | ;VOM STACK H| 000005F0: 4F 4C 45 4E 0D 20 20 20 20 20 20 20 20 4A 4D 50 |OLEN. JMP| 00000600: 20 24 41 34 37 34 20 3B 45 49 4E 47 41 42 45 2D | $A474 ;EINGABE-| 00000610: 57 41 52 54 45 53 43 48 4C 45 49 46 45 0D 0D 3B |WARTESCHLEIFE..;| 00000620: 2A 2A 2A 20 44 41 54 45 4E 20 2A 2A 2A 2A 0D 0D |*** DATEN ****..| 00000630: 3A 54 45 58 54 31 20 20 42 20 31 34 37 2C 33 30 |:TEXT1 B 147,30| 00000640: 2C 31 34 2C 22 20 20 20 20 20 20 20 20 20 20 20 |,14," | 00000650: D4 D3 C5 2D C6 4F 52 4D 41 54 20 D6 31 2E 31 22 |...-.ORMAT .1.1"| 00000660: 2C 31 33 0D 20 20 20 20 20 20 20 20 42 20 22 20 |,13. B " | 00000670: 20 20 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D | ------| 00000680: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 2C 31 33 2C 31 33 |---------",13,13| 00000690: 0D 20 20 20 20 20 20 20 20 42 20 22 20 28 43 29 |. B " (C)| 000006A0: 20 31 39 39 30 20 CD 41 52 4B 54 20 26 20 D4 45 | 1990 .ARKT & .E| 000006B0: 43 48 4E 49 4B 20 D6 45 52 4C 41 47 20 C1 C7 22 |CHNIK .ERLAG .."| 000006C0: 2C 31 33 0D 20 20 20 20 20 20 20 20 42 20 22 20 |,13. B " | 000006D0: 20 20 20 20 20 20 20 20 20 28 57 29 20 CA 55 45 | (W) .UE| 000006E0: 52 47 45 4E 20 CB 4C 4F 45 48 4E 22 2C 31 33 2C |RGEN .LOEHN",13,| 000006F0: 31 33 2C 31 33 2C 31 33 2C 31 33 0D 20 20 20 20 |13,13,13,13. | 00000700: 20 20 20 20 42 20 22 C4 49 53 4B 45 54 54 45 4E | B ".ISKETTEN| 00000710: 4E 41 4D 45 3A 20 22 2C 30 0D 3A 54 45 58 54 32 |NAME: ",0.:TEXT2| 00000720: 20 20 42 20 31 33 2C 31 33 2C 22 C9 C4 3A 20 22 | B 13,13,"..: "| 00000730: 2C 30 0D 3A 54 45 58 54 33 20 20 42 20 31 33 2C |,0.:TEXT3 B 13,| 00000740: 31 33 2C 22 C9 C4 20 46 4F 52 54 4C 41 55 46 45 |13,".. FORTLAUFE| 00000750: 4E 44 20 45 52 48 4F 45 48 45 4E 20 28 4A 2F 4E |ND ERHOEHEN (J/N| 00000760: 29 20 3F 20 22 2C 30 0D 3A 54 45 58 54 34 20 20 |) ? ",0.:TEXT4 | 00000770: 42 20 31 33 2C 31 33 2C 31 33 2C 22 C2 49 54 54 |B 13,13,13,".ITT| 00000780: 45 20 31 2E C4 49 53 4B 20 5A 55 4D 20 46 4F 52 |E 1..ISK ZUM FOR| 00000790: 4D 41 54 49 45 52 45 4E 20 45 49 4E 4C 45 47 45 |MATIEREN EINLEGE| 000007A0: 4E 21 22 2C 30 0D 3A 54 45 58 54 35 20 20 42 20 |N!",0.:TEXT5 B | 000007B0: 31 33 2C 31 33 0D 20 20 20 20 20 20 20 20 42 20 |13,13. B | 000007C0: 22 C4 49 53 4B 45 54 54 45 4E 20 57 45 52 44 45 |".ISKETTEN WERDE| 000007D0: 4E 20 46 4F 52 4D 41 54 49 45 52 54 21 22 2C 31 |N FORMATIERT!",1| 000007E0: 33 0D 20 20 20 20 20 20 20 20 42 20 22 C5 4E 44 |3. B ".ND| 000007F0: 45 20 4D 49 54 20 42 45 4C 49 45 42 49 47 45 52 |E MIT BELIEBIGER| 00000800: 20 CF 50 45 52 41 54 49 4F 4E 20 46 55 45 52 20 | .PERATION FUER | 00000810: C4 49 53 4B 22 2C 31 33 2C 30 0D 0D 0D 3B 2A 2A |.ISK",13,0...;**| 00000820: 2A 20 54 45 49 4C 20 56 4F 4E 20 4D 41 4B 52 4F |* TEIL VON MAKRO| 00000830: 20 46 4C 4F 50 50 59 20 2A 2A 2A 0D 0D 3A 46 4C | FLOPPY ***..:FL| 00000840: 4F 50 50 31 20 53 54 58 20 41 4E 5A 20 20 20 20 |OPP1 STX ANZ | 00000850: 20 20 20 3B 49 4E 4E 20 53 43 48 4C 45 49 46 0D | ;INN SCHLEIF.| 00000860: 20 20 20 20 20 20 20 20 53 54 59 20 41 4E 5A 2B | STY ANZ+| 00000870: 31 20 20 20 20 20 3B 41 55 53 53 20 20 22 0D 0D |1 ;AUSS "..| 00000880: 3A 46 4C 4F 50 50 34 20 4C 44 41 20 24 42 41 20 |:FLOPP4 LDA $BA | 00000890: 20 20 20 20 20 20 3B 47 45 52 41 45 54 20 38 0D | ;GERAET 8.| 000008A0: 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 42 | JSR $FFB| 000008B0: 31 20 20 20 20 20 3B 4C 49 53 54 45 4E 20 53 45 |1 ;LISTEN SE| 000008C0: 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 4C 44 41 |NDEN. LDA| 000008D0: 20 23 24 36 46 20 20 20 20 20 20 3B 53 45 4B 20 | #$6F ;SEK | 000008E0: 31 35 0D 20 20 20 20 20 20 20 20 4A 53 52 20 24 |15. JSR $| 000008F0: 46 46 39 33 20 20 20 20 20 3B 53 45 4E 44 45 4E |FF93 ;SENDEN| 00000900: 0D 0D 20 20 20 20 20 20 20 20 4A 53 52 20 4B 4F |.. JSR KO| 00000910: 50 46 20 20 20 20 20 20 3B 4D 2D 57 20 53 45 4E |PF ;M-W SEN| 00000920: 44 45 4E 0D 20 20 20 20 20 20 20 20 4C 44 58 20 |DEN. LDX | 00000930: 41 4E 5A 20 20 20 20 20 20 20 3B 49 4E 4E 20 53 |ANZ ;INN S| 00000940: 43 48 4C 2E 5A 41 45 48 4C 0D 20 20 20 20 20 20 |CHL.ZAEHL. | 00000950: 20 20 42 45 51 20 46 4C 4F 50 50 37 0D 0D 20 20 | BEQ FLOPP7.. | 00000960: 20 20 20 20 20 20 4C 44 59 20 23 30 20 20 20 20 | LDY #0 | 00000970: 20 20 20 20 3B 58 20 42 59 54 45 53 20 53 45 4E | ;X BYTES SEN| 00000980: 44 45 4E 0D 3A 46 4C 4F 50 50 33 20 4C 44 41 20 |DEN.:FLOPP3 LDA | 00000990: 28 24 46 42 29 2C 59 0D 20 20 20 20 20 20 20 20 |($FB),Y. | 000009A0: 4A 53 52 20 24 46 46 41 38 0D 20 20 20 20 20 20 |JSR $FFA8. | 000009B0: 20 20 49 4E 43 20 24 46 42 0D 20 20 20 20 20 20 | INC $FB. | 000009C0: 20 20 42 4E 45 20 46 4C 4F 50 50 32 0D 20 20 20 | BNE FLOPP2. | 000009D0: 20 20 20 20 20 49 4E 43 20 24 46 43 0D 3A 46 4C | INC $FC.:FL| 000009E0: 4F 50 50 32 20 44 45 58 0D 20 20 20 20 20 20 20 |OPP2 DEX. | 000009F0: 20 42 4E 45 20 46 4C 4F 50 50 33 0D 0D 3A 46 4C | BNE FLOPP3..:FL| 00000A00: 4F 50 50 37 20 4A 53 52 20 24 46 46 41 45 20 20 |OPP7 JSR $FFAE | 00000A10: 20 20 20 3B 55 4E 4C 49 53 54 45 4E 0D 0D 20 20 | ;UNLISTEN.. | 00000A20: 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 20 20 | CLC | 00000A30: 20 20 20 20 3B 46 4C 4F 50 50 41 44 44 52 0D 20 | ;FLOPPADDR. | 00000A40: 20 20 20 20 20 20 20 4C 44 41 20 41 44 44 52 20 | LDA ADDR | 00000A50: 20 20 20 20 20 3B 2B 20 41 4E 5A 20 44 45 52 20 | ;+ ANZ DER | 00000A60: 47 45 53 45 4E 44 2E 0D 20 20 20 20 20 20 20 20 |GESEND.. | 00000A70: 41 44 43 20 41 4E 5A 20 20 20 20 20 20 20 3B 42 |ADC ANZ ;B| 00000A80: 59 54 45 53 0D 20 20 20 20 20 20 20 20 53 54 41 |YTES. STA| 00000A90: 20 41 44 44 52 0D 20 20 20 20 20 20 20 20 4C 44 | ADDR. LD| 00000AA0: 41 20 41 44 44 52 2B 31 0D 20 20 20 20 20 20 20 |A ADDR+1. | 00000AB0: 20 41 44 43 20 23 30 0D 20 20 20 20 20 20 20 20 | ADC #0. | 00000AC0: 53 54 41 20 41 44 44 52 2B 31 0D 0D 20 20 20 20 |STA ADDR+1.. | 00000AD0: 20 20 20 20 4C 44 58 20 23 33 32 20 20 20 20 20 | LDX #32 | 00000AE0: 20 20 3B 49 4E 4E 20 53 43 48 4C 2E 20 4D 49 54 | ;INN SCHL. MIT| 00000AF0: 20 33 32 0D 20 20 20 20 20 20 20 20 53 54 58 20 | 32. STX | 00000B00: 41 4E 5A 0D 0D 20 20 20 20 20 20 20 20 44 45 43 |ANZ.. DEC| 00000B10: 20 41 4E 5A 2B 31 20 20 20 20 20 3B 41 55 53 53 | ANZ+1 ;AUSS| 00000B20: 20 53 43 48 4C 45 49 46 45 0D 20 20 20 20 20 20 | SCHLEIFE. | 00000B30: 20 20 42 4E 45 20 46 4C 4F 50 50 34 20 20 20 20 | BNE FLOPP4 | 00000B40: 3B 45 49 4E 53 43 48 4C 2E 20 30 0D 0D 20 20 20 |;EINSCHL. 0.. | 00000B50: 20 20 20 20 20 52 54 53 0D 0D 3A 4B 4F 50 46 20 | RTS..:KOPF | 00000B60: 20 20 4C 44 59 20 23 30 20 20 20 20 20 20 20 20 | LDY #0 | 00000B70: 3B 53 45 4E 44 45 54 20 4D 2D 57 0D 3A 4B 4F 50 |;SENDET M-W.:KOP| 00000B80: 46 31 20 20 4C 44 41 20 44 41 54 2C 59 0D 20 20 |F1 LDA DAT,Y. | 00000B90: 20 20 20 20 20 20 4A 53 52 20 24 46 46 41 38 0D | JSR $FFA8.| 00000BA0: 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 20 20 | INY. | 00000BB0: 20 20 20 20 43 50 59 20 23 36 0D 20 20 20 20 20 | CPY #6. | 00000BC0: 20 20 20 42 4E 45 20 4B 4F 50 46 31 0D 20 20 20 | BNE KOPF1. | 00000BD0: 20 20 20 20 20 52 54 53 0D 0D 3A 44 41 54 20 20 | RTS..:DAT | 00000BE0: 20 20 42 20 22 4D 2D 57 22 0D 3A 41 44 44 52 20 | B "M-W".:ADDR | 00000BF0: 20 20 57 20 30 0D 3A 41 4E 5A 20 20 20 20 42 20 | W 0.:ANZ B | 00000C00: 30 0D 20 20 20 20 20 20 20 20 42 20 30 20 20 20 |0. B 0 | 00000C10: 20 20 20 20 20 20 20 20 3B 41 4E 5A 20 48 49 20 | ;ANZ HI | 00000C20: 5A 57 49 53 43 48 45 4E 53 50 0D 0D 3A 46 4C 4F |ZWISCHENSP..:FLO| 00000C30: 50 50 35 20 53 54 41 20 41 44 44 52 32 0D 20 20 |PP5 STA ADDR2. | 00000C40: 20 20 20 20 20 20 53 54 59 20 41 44 44 52 32 2B | STY ADDR2+| 00000C50: 31 0D 0D 20 20 20 20 20 20 20 20 4C 44 41 20 24 |1.. LDA $| 00000C60: 42 41 20 20 20 20 20 20 20 3B 47 45 52 41 45 54 |BA ;GERAET| 00000C70: 20 38 0D 20 20 20 20 20 20 20 20 4A 53 52 20 24 | 8. JSR $| 00000C80: 45 44 30 43 20 20 20 20 20 3B 4C 49 53 54 45 4E |ED0C ;LISTEN| 00000C90: 20 53 45 4E 44 45 4E 0D 20 20 20 20 20 20 20 20 | SENDEN. | 00000CA0: 4C 44 41 20 23 24 36 46 20 20 20 20 20 20 3B 53 |LDA #$6F ;S| 00000CB0: 45 4B 20 31 35 0D 20 20 20 20 20 20 20 20 4A 53 |EK 15. JS| 00000CC0: 52 20 24 45 44 42 39 20 20 20 20 20 3B 53 45 4E |R $EDB9 ;SEN| 00000CD0: 44 45 4E 0D 0D 20 20 20 20 20 20 20 20 4C 44 59 |DEN.. LDY| 00000CE0: 20 23 30 20 20 20 20 20 20 20 20 3B 4D 2D 45 20 | #0 ;M-E | 00000CF0: 53 45 4E 44 45 4E 0D 3A 46 4C 4F 50 50 36 20 4C |SENDEN.:FLOPP6 L| 00000D00: 44 41 20 44 41 54 32 2C 59 0D 20 20 20 20 20 20 |DA DAT2,Y. | 00000D10: 20 20 4A 53 52 20 24 46 46 41 38 0D 20 20 20 20 | JSR $FFA8. | 00000D20: 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 | INY. | 00000D30: 43 50 59 20 23 35 0D 20 20 20 20 20 20 20 20 42 |CPY #5. B| 00000D40: 4E 45 20 46 4C 4F 50 50 36 0D 0D 20 20 20 20 20 |NE FLOPP6.. | 00000D50: 20 20 20 4A 4D 50 20 24 45 44 46 45 20 20 20 20 | JMP $EDFE | 00000D60: 20 3B 55 4E 4C 49 53 54 45 4E 0D 0D 3A 44 41 54 | ;UNLISTEN..:DAT| 00000D70: 32 20 20 20 42 20 22 4D 2D 45 22 0D 3A 41 44 44 |2 B "M-E".:ADD| 00000D80: 52 32 20 20 57 20 30 0D 0D 0D 0D 3B 2A 2A 2A 20 |R2 W 0....;*** | 00000D90: 46 4C 4F 50 50 59 50 52 4F 47 52 41 4D 4D 20 2A |FLOPPYPROGRAMM *| 00000DA0: 2A 2A 0D 0D 3A 53 54 41 52 54 0D 0D 20 20 20 20 |**..:START.. | 00000DB0: 20 20 20 20 4F 52 47 20 24 30 34 30 30 0D 0D 0D | ORG $0400...| 00000DC0: 3A 46 53 54 41 52 54 20 4A 53 52 20 24 43 31 30 |:FSTART JSR $C10| 00000DD0: 30 20 20 20 20 3B 4C 41 4D 50 45 20 41 4E 0D 0D |0 ;LAMPE AN..| 00000DE0: 20 20 20 20 20 20 20 20 53 45 49 0D 20 20 20 20 | SEI. | 00000DF0: 20 20 20 20 4C 44 41 20 24 31 43 30 30 20 20 20 | LDA $1C00 | 00000E00: 20 3B 4D 4F 54 4F 52 20 41 4E 0D 20 20 20 20 20 | ;MOTOR AN. | 00000E10: 20 20 20 4F 52 41 20 23 24 30 34 0D 20 20 20 20 | ORA #$04. | 00000E20: 20 20 20 20 53 54 41 20 24 31 43 30 30 0D 0D 20 | STA $1C00.. | 00000E30: 20 20 20 20 20 20 20 4C 44 41 20 24 32 32 20 20 | LDA $22 | 00000E40: 20 20 20 20 3B 41 4B 54 20 54 52 41 43 4B 0D 20 | ;AKT TRACK. | 00000E50: 20 20 20 20 20 20 20 42 4E 45 20 4E 45 57 31 20 | BNE NEW1 | 00000E60: 20 20 20 20 3B 3D 30 20 28 4E 41 43 48 20 55 4A | ;=0 (NACH UJ| 00000E70: 29 0D 20 20 20 20 20 20 20 20 4C 44 41 20 23 34 |). LDA #4| 00000E80: 36 20 20 20 20 20 20 3B 34 36 20 54 52 41 43 4B |6 ;46 TRACK| 00000E90: 53 0D 20 20 20 20 20 20 20 20 53 54 41 20 24 32 |S. STA $2| 00000EA0: 32 20 20 20 20 20 20 3B 4E 41 43 48 20 41 55 53 |2 ;NACH AUS| 00000EB0: 53 45 4E 0D 0D 3A 4E 45 57 31 20 20 20 44 45 43 |SEN..:NEW1 DEC| 00000EC0: 20 24 32 32 20 20 20 20 20 20 3B 31 2E 20 54 52 | $22 ;1. TR| 00000ED0: 41 43 4B 20 41 4E 46 41 48 52 45 4E 0D 20 20 20 |ACK ANFAHREN. | 00000EE0: 20 20 20 20 20 42 45 51 20 4E 45 57 31 39 0D 20 | BEQ NEW19. | 00000EF0: 20 20 20 20 20 20 20 4A 53 52 20 53 54 45 50 41 | JSR STEPA| 00000F00: 20 20 20 20 3B 31 20 54 52 41 43 4B 20 4E 41 43 | ;1 TRACK NAC| 00000F10: 48 20 41 55 53 53 45 4E 0D 20 20 20 20 20 20 20 |H AUSSEN. | 00000F20: 20 42 45 51 20 4E 45 57 31 20 20 20 20 20 3B 41 | BEQ NEW1 ;A| 00000F30: 42 53 4F 4C 55 54 0D 0D 3A 4E 45 57 31 39 20 20 |BSOLUT..:NEW19 | 00000F40: 4C 44 41 20 23 31 20 20 20 20 20 20 20 3B 54 52 |LDA #1 ;TR| 00000F50: 41 43 4B 31 0D 20 20 20 20 20 20 20 20 53 54 41 |ACK1. STA| 00000F60: 20 24 32 32 20 20 20 20 20 20 3B 53 45 54 5A 45 | $22 ;SETZE| 00000F70: 4E 0D 0D 20 20 20 20 20 20 20 20 4C 44 41 20 49 |N.. LDA I| 00000F80: 44 20 20 20 20 20 20 20 3B 49 44 20 53 45 54 5A |D ;ID SETZ| 00000F90: 45 4E 0D 20 20 20 20 20 20 20 20 53 54 41 20 24 |EN. STA $| 00000FA0: 31 32 0D 20 20 20 20 20 20 20 20 4C 44 41 20 49 |12. LDA I| 00000FB0: 44 2B 31 0D 20 20 20 20 20 20 20 20 53 54 41 20 |D+1. STA | 00000FC0: 24 31 33 0D 0D 20 20 20 20 20 20 20 20 4C 44 58 |$13.. LDX| 00000FD0: 20 23 30 20 20 20 20 20 20 20 3B 53 54 45 50 4D | #0 ;STEPM| 00000FE0: 4F 54 4F 52 0D 20 20 20 20 20 20 20 20 4A 53 52 |OTOR. JSR| 00000FF0: 20 53 54 45 50 20 20 20 20 20 3B 52 45 53 45 54 | STEP ;RESET| 00001000: 0D 0D 20 20 20 20 20 20 20 20 4A 53 52 20 53 50 |.. JSR SP| 00001010: 45 45 44 20 20 20 20 3B 53 50 45 45 44 46 4C 41 |EED ;SPEEDFLA| 00001020: 47 53 20 53 45 54 5A 45 4E 0D 0D 20 20 20 20 20 |GS SETZEN.. | 00001030: 20 20 20 4C 44 41 20 23 24 32 30 20 20 20 20 20 | LDA #$20 | 00001040: 3B 4D 4F 54 4F 52 20 41 4E 0D 20 20 20 20 20 20 |;MOTOR AN. | 00001050: 20 20 53 54 41 20 24 32 30 20 20 20 20 20 20 3B | STA $20 ;| 00001060: 46 55 45 52 20 4C 57 20 53 54 41 54 55 53 0D 3A |FUER LW STATUS.:| 00001070: 4E 45 57 32 32 20 20 43 4C 49 0D 20 20 20 20 20 |NEW22 CLI. | 00001080: 20 20 20 4C 44 41 20 24 37 43 20 20 20 20 20 20 | LDA $7C | 00001090: 3B 41 54 4E 20 3F 0D 20 20 20 20 20 20 20 20 42 |;ATN ?. B| 000010A0: 45 51 20 4E 45 57 32 39 0D 20 20 20 20 20 20 20 |EQ NEW29. | 000010B0: 20 4A 4D 50 20 46 45 52 54 49 47 0D 0D 3A 4E 45 | JMP FERTIG..:NE| 000010C0: 57 32 39 20 20 53 45 49 0D 0D 20 20 20 20 20 20 |W29 SEI.. | 000010D0: 20 20 4C 44 41 20 23 31 20 20 20 20 20 20 20 3B | LDA #1 ;| 000010E0: 45 4E 44 54 52 41 43 4B 20 46 55 45 52 20 54 45 |ENDTRACK FUER TE| 000010F0: 53 54 0D 20 20 20 20 20 20 20 20 42 20 24 32 43 |ST. B $2C| 00001100: 0D 3A 4E 45 57 32 33 20 20 4C 44 41 20 23 33 35 |.:NEW23 LDA #35| 00001110: 20 20 20 20 20 20 3B 53 4F 4E 53 54 20 46 4F 52 | ;SONST FOR| 00001120: 4D 41 54 0D 20 20 20 20 20 20 20 20 53 54 41 20 |MAT. STA | 00001130: 24 31 42 0D 0D 20 20 20 20 20 20 20 20 4A 53 52 |$1B.. JSR| 00001140: 20 53 45 54 57 52 0D 0D 20 20 20 20 20 20 20 20 | SETWR.. | 00001150: 4A 53 52 20 46 4F 52 4D 20 20 20 20 20 3B 44 49 |JSR FORM ;DI| 00001160: 53 4B 20 46 4F 52 4D 41 54 49 45 52 45 4E 0D 0D |SK FORMATIEREN..| 00001170: 20 20 20 20 20 20 20 20 43 4D 50 20 23 33 35 20 | CMP #35 | 00001180: 20 20 20 20 20 3B 4C 45 54 5A 45 52 20 54 52 41 | ;LETZER TRA| 00001190: 43 4B 0D 20 20 20 20 20 20 20 20 42 45 51 20 4E |CK. BEQ N| 000011A0: 45 57 32 30 0D 0D 20 20 20 20 20 20 20 20 4A 53 |EW20.. JS| 000011B0: 52 20 53 59 4E 43 20 20 20 20 20 3B 54 45 53 54 |R SYNC ;TEST| 000011C0: 20 41 55 46 20 44 49 53 43 20 49 4D 20 4C 41 55 | AUF DISC IM LAU| 000011D0: 46 57 45 52 4B 0D 20 20 20 20 20 20 20 20 42 43 |FWERK. BC| 000011E0: 53 20 4E 45 57 32 32 20 20 20 20 3B 46 4F 52 4D |S NEW22 ;FORM| 000011F0: 41 54 20 54 52 41 43 4B 31 0D 0D 20 20 20 20 20 |AT TRACK1.. | 00001200: 20 20 20 4C 44 41 20 24 31 43 30 30 20 20 20 20 | LDA $1C00 | 00001210: 3B 53 43 48 52 45 49 42 53 43 48 55 54 5A 20 41 |;SCHREIBSCHUTZ A| 00001220: 42 46 52 41 47 45 4E 0D 20 20 20 20 20 20 20 20 |BFRAGEN. | 00001230: 41 4E 44 20 23 24 31 30 0D 20 20 20 20 20 20 20 |AND #$10. | 00001240: 20 42 45 51 20 4E 45 57 32 32 20 20 20 20 3B 4A | BEQ NEW22 ;J| 00001250: 41 2C 20 44 41 4E 4E 20 57 45 49 54 45 52 20 57 |A, DANN WEITER W| 00001260: 41 52 54 45 4E 0D 20 20 20 20 20 20 20 20 4C 44 |ARTEN. LD| 00001270: 41 20 23 24 31 30 20 20 20 20 20 3B 46 4C 41 47 |A #$10 ;FLAG| 00001280: 20 27 4B 45 49 4E 20 53 43 48 52 45 49 42 53 43 | 'KEIN SCHREIBSC| 00001290: 48 55 54 5A 27 0D 20 20 20 20 20 20 20 20 53 54 |HUTZ'. ST| 000012A0: 41 20 24 31 45 20 20 20 20 20 20 3B 53 45 54 5A |A $1E ;SETZ| 000012B0: 54 45 4E 0D 0D 20 20 20 20 20 20 20 20 4C 44 59 |TEN.. LDY| 000012C0: 20 23 30 20 20 20 20 20 20 20 3B 57 41 52 54 45 | #0 ;WARTE| 000012D0: 4E 20 42 49 53 0D 3A 57 41 49 54 20 20 20 49 4E |N BIS.:WAIT IN| 000012E0: 58 20 20 20 20 20 20 20 20 20 20 3B 44 49 53 43 |X ;DISC| 000012F0: 48 45 42 45 4C 0D 20 20 20 20 20 20 20 20 42 4E |HEBEL. BN| 00001300: 45 20 57 41 49 54 20 20 20 20 20 3B 47 45 53 43 |E WAIT ;GESC| 00001310: 48 4C 4F 53 53 45 4E 0D 20 20 20 20 20 20 20 20 |HLOSSEN. | 00001320: 49 4E 59 0D 20 20 20 20 20 20 20 20 42 4E 45 20 |INY. BNE | 00001330: 57 41 49 54 0D 20 20 20 20 20 20 20 20 42 45 51 |WAIT. BEQ| 00001340: 20 4E 45 57 32 33 20 20 20 20 3B 46 4F 52 4D 41 | NEW23 ;FORMA| 00001350: 54 20 41 4C 4C 0D 0D 3A 4E 45 57 32 30 20 20 4C |T ALL..:NEW20 L| 00001360: 44 41 20 23 24 32 30 20 20 20 20 20 3B 4D 4F 54 |DA #$20 ;MOT| 00001370: 4F 52 20 41 4E 0D 20 20 20 20 20 20 20 20 53 54 |OR AN. ST| 00001380: 41 20 24 32 30 20 20 20 20 20 20 3B 46 55 45 52 |A $20 ;FUER| 00001390: 20 4C 41 55 46 57 2E 53 54 41 54 55 53 0D 20 20 | LAUFW.STATUS. | 000013A0: 20 20 20 20 20 20 4C 44 41 20 24 31 43 30 30 20 | LDA $1C00 | 000013B0: 20 20 20 3B 4C 41 4D 50 45 20 41 55 53 0D 20 20 | ;LAMPE AUS. | 000013C0: 20 20 20 20 20 20 41 4E 44 20 23 24 46 37 0D 20 | AND #$F7. | 000013D0: 20 20 20 20 20 20 20 53 54 41 20 24 31 43 30 30 | STA $1C00| 000013E0: 0D 0D 3A 4E 45 57 32 34 20 20 43 4C 49 0D 20 20 |..:NEW24 CLI. | 000013F0: 20 20 20 20 20 20 4C 44 41 20 24 37 43 20 20 20 | LDA $7C | 00001400: 20 20 20 3B 41 54 4E 20 3F 0D 20 20 20 20 20 20 | ;ATN ?. | 00001410: 20 20 42 45 51 20 4E 45 57 32 38 0D 3A 46 45 52 | BEQ NEW28.:FER| 00001420: 54 49 47 20 4C 44 41 20 23 24 31 30 20 20 20 20 |TIG LDA #$10 | 00001430: 20 3B 4D 4F 54 4F 52 20 53 4F 4C 4C 0D 20 20 20 | ;MOTOR SOLL. | 00001440: 20 20 20 20 20 53 54 41 20 24 32 30 20 20 20 20 | STA $20 | 00001450: 20 20 3B 4E 41 43 48 4C 41 55 46 45 4E 0D 20 20 | ;NACHLAUFEN. | 00001460: 20 20 20 20 20 20 4A 4D 50 20 24 44 30 34 32 20 | JMP $D042 | 00001470: 20 20 20 3B 49 4E 49 54 20 2B 20 53 43 48 4C 55 | ;INIT + SCHLU| 00001480: 53 53 0D 0D 3A 4E 45 57 32 38 20 20 53 45 49 0D |SS..:NEW28 SEI.| 00001490: 20 20 20 20 20 20 20 20 4A 53 52 20 53 59 4E 43 | JSR SYNC| 000014A0: 20 20 20 20 20 3B 44 49 53 43 20 4E 4F 43 48 20 | ;DISC NOCH | 000014B0: 44 52 49 4E 4E 0D 20 20 20 20 20 20 20 20 42 43 |DRINN. BC| 000014C0: 43 20 4E 45 57 32 34 0D 0D 20 20 20 20 20 20 20 |C NEW24.. | 000014D0: 20 4C 44 41 20 49 44 46 4C 41 47 20 20 20 3B 49 | LDA IDFLAG ;I| 000014E0: 44 20 45 52 48 4F 45 48 45 4E 20 3F 0D 20 20 20 |D ERHOEHEN ?. | 000014F0: 20 20 20 20 20 43 4D 50 20 23 27 4A 0D 20 20 20 | CMP #'J. | 00001500: 20 20 20 20 20 42 4E 45 20 4E 45 57 32 37 0D 0D | BNE NEW27..| 00001510: 20 20 20 20 20 20 20 20 4C 44 58 20 23 31 20 20 | LDX #1 | 00001520: 20 20 20 20 20 3B 49 44 3D 49 44 2B 31 0D 3A 4E | ;ID=ID+1.:N| 00001530: 45 57 32 36 20 20 49 4E 43 20 49 44 2C 58 0D 20 |EW26 INC ID,X. | 00001540: 20 20 20 20 20 20 20 4C 44 41 20 49 44 2C 58 0D | LDA ID,X.| 00001550: 20 20 20 20 20 20 20 20 43 4D 50 20 23 27 3A 0D | CMP #':.| 00001560: 20 20 20 20 20 20 20 20 42 4E 45 20 4E 45 57 32 | BNE NEW2| 00001570: 35 0D 20 20 20 20 20 20 20 20 41 44 43 20 23 36 |5. ADC #6| 00001580: 0D 20 20 20 20 20 20 20 20 53 54 41 20 49 44 2C |. STA ID,| 00001590: 58 0D 3A 4E 45 57 32 35 20 20 43 4D 50 20 23 27 |X.:NEW25 CMP #'| 000015A0: 5B 0D 20 20 20 20 20 20 20 20 42 4E 45 20 4E 45 |[. BNE NE| 000015B0: 57 32 37 0D 20 20 20 20 20 20 20 20 4C 44 41 20 |W27. LDA | 000015C0: 23 27 30 0D 20 20 20 20 20 20 20 20 53 54 41 20 |#'0. STA | 000015D0: 49 44 2C 58 0D 20 20 20 20 20 20 20 20 44 45 58 |ID,X. DEX| 000015E0: 0D 20 20 20 20 20 20 20 20 42 45 51 20 4E 45 57 |. BEQ NEW| 000015F0: 32 36 0D 0D 3A 4E 45 57 32 37 20 20 4A 4D 50 20 |26..:NEW27 JMP | 00001600: 46 53 54 41 52 54 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D |FSTART..;-------| 00001610: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 54 |-------------.;T| 00001620: 52 41 43 4B 20 4E 41 43 48 20 49 4E 4E 45 4E 20 |RACK NACH INNEN | 00001630: 46 41 48 52 45 4E 20 55 4E 44 0D 3B 53 50 45 45 |FAHREN UND.;SPEE| 00001640: 44 20 53 45 54 5A 45 4E 0D 3A 53 54 45 50 49 20 |D SETZEN.:STEPI | 00001650: 20 4C 44 59 20 23 24 30 32 20 20 20 20 20 3B 32 | LDY #$02 ;2| 00001660: 20 48 41 4C 42 53 50 55 52 45 4E 0D 3A 4E 45 57 | HALBSPUREN.:NEW| 00001670: 32 20 20 20 4C 44 58 20 24 31 43 30 30 20 20 20 |2 LDX $1C00 | 00001680: 20 3B 53 54 45 50 4D 4F 54 4F 52 0D 20 20 20 20 | ;STEPMOTOR. | 00001690: 20 20 20 20 49 4E 58 20 20 20 20 20 20 20 20 20 | INX | 000016A0: 20 3B 4E 41 43 48 20 41 55 53 53 45 4E 0D 20 20 | ;NACH AUSSEN. | 000016B0: 20 20 20 20 20 20 4A 53 52 20 53 54 45 50 0D 20 | JSR STEP. | 000016C0: 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 | DEY. | 000016D0: 20 20 20 42 4E 45 20 4E 45 57 32 0D 20 20 20 20 | BNE NEW2. | 000016E0: 20 20 20 20 49 4E 43 20 24 32 32 20 20 20 20 20 | INC $22 | 000016F0: 20 3B 54 52 41 43 4B 5A 41 45 48 4C 45 52 20 45 | ;TRACKZAEHLER E| 00001700: 52 48 4F 45 48 45 4E 0D 20 20 20 20 20 20 20 20 |RHOEHEN. | 00001710: 4A 4D 50 20 53 50 45 45 44 20 20 20 20 3B 53 50 |JMP SPEED ;SP| 00001720: 45 45 44 46 4C 41 47 53 20 53 45 54 5A 45 4E 0D |EEDFLAGS SETZEN.| 00001730: 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..;-------------| 00001740: 2D 2D 2D 2D 2D 2D 2D 0D 3B 4E 53 54 45 50 20 55 |-------.;NSTEP U| 00001750: 4D 20 31 20 54 52 41 43 4B 20 4E 41 43 48 20 41 |M 1 TRACK NACH A| 00001760: 55 53 53 45 4E 0D 3A 53 54 45 50 41 20 20 4C 44 |USSEN.:STEPA LD| 00001770: 59 20 23 24 30 32 20 20 20 20 20 3B 32 20 48 41 |Y #$02 ;2 HA| 00001780: 4C 42 53 50 55 52 45 4E 0D 3A 4E 45 57 33 20 20 |LBSPUREN.:NEW3 | 00001790: 20 4C 44 58 20 24 31 43 30 30 20 20 20 20 3B 53 | LDX $1C00 ;S| 000017A0: 54 45 50 4D 4F 54 4F 52 0D 20 20 20 20 20 20 20 |TEPMOTOR. | 000017B0: 20 44 45 58 20 20 20 20 20 20 20 20 20 20 3B 4E | DEX ;N| 000017C0: 41 43 48 20 41 55 53 53 45 4E 0D 20 20 20 20 20 |ACH AUSSEN. | 000017D0: 20 20 20 4A 53 52 20 53 54 45 50 0D 20 20 20 20 | JSR STEP. | 000017E0: 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 | DEY. | 000017F0: 42 4E 45 20 4E 45 57 33 0D 20 20 20 20 20 20 20 |BNE NEW3. | 00001800: 20 52 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D | RTS..;---------| 00001810: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B 53 54 45 |-----------.;STE| 00001820: 50 4D 4F 54 4F 52 20 41 4E 53 54 45 55 45 52 4E |PMOTOR ANSTEUERN| 00001830: 0D 3B 57 45 52 54 20 49 4E 20 58 0D 3A 53 54 45 |.;WERT IN X.:STE| 00001840: 50 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 |P TXA. | 00001850: 41 4E 44 20 23 24 30 33 0D 20 20 20 20 20 20 20 |AND #$03. | 00001860: 20 53 54 41 20 24 42 42 0D 0D 20 20 20 20 20 20 | STA $BB.. | 00001870: 20 20 4C 44 41 20 24 31 43 30 30 0D 20 20 20 20 | LDA $1C00. | 00001880: 20 20 20 20 41 4E 44 20 23 24 46 43 20 20 20 20 | AND #$FC | 00001890: 20 3B 53 54 45 50 4D 4F 54 0D 20 20 20 20 20 20 | ;STEPMOT. | 000018A0: 20 20 4F 52 41 20 24 42 42 20 20 20 20 20 20 3B | ORA $BB ;| 000018B0: 53 45 54 5A 45 4E 0D 20 20 20 20 20 20 20 20 53 |SETZEN. S| 000018C0: 54 41 20 24 31 43 30 30 0D 0D 20 20 20 20 20 20 |TA $1C00.. | 000018D0: 20 20 4C 44 41 20 23 24 30 34 20 20 20 20 20 3B | LDA #$04 ;| 000018E0: 57 41 52 54 45 4E 0D 20 20 20 20 20 20 20 20 53 |WARTEN. S| 000018F0: 54 41 20 24 42 42 0D 20 20 20 20 20 20 20 20 4C |TA $BB. L| 00001900: 44 58 20 23 30 0D 3A 4E 45 57 34 20 20 20 44 45 |DX #0.:NEW4 DE| 00001910: 58 0D 20 20 20 20 20 20 20 20 42 4E 45 20 4E 45 |X. BNE NE| 00001920: 57 34 0D 20 20 20 20 20 20 20 20 44 45 43 20 24 |W4. DEC $| 00001930: 42 42 0D 20 20 20 20 20 20 20 20 42 4E 45 20 4E |BB. BNE N| 00001940: 45 57 34 0D 0D 20 20 20 20 20 20 20 20 52 54 53 |EW4.. RTS| 00001950: 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.;--------------| 00001960: 2D 2D 2D 2D 2D 2D 0D 3B 53 50 45 45 44 46 4C 41 |------.;SPEEDFLA| 00001970: 47 53 20 53 45 54 5A 45 4E 0D 3A 53 50 45 45 44 |GS SETZEN.:SPEED| 00001980: 20 20 4C 44 41 20 24 32 32 20 20 20 20 20 20 3B | LDA $22 ;| 00001990: 53 50 55 52 4E 55 4D 4D 45 52 0D 20 20 20 20 20 |SPURNUMMER. | 000019A0: 20 20 20 4A 53 52 20 24 46 32 34 42 20 20 20 20 | JSR $F24B | 000019B0: 3B 41 4E 5A 20 44 45 52 20 53 45 4B 20 48 4F 4C |;ANZ DER SEK HOL| 000019C0: 45 4E 0D 20 20 20 20 20 20 20 20 54 58 41 20 20 |EN. TXA | 000019D0: 20 20 20 20 20 20 20 20 3B 53 50 45 45 44 4E 45 | ;SPEEDNE| 000019E0: 57 41 47 53 20 53 45 54 5A 45 4E 0D 20 20 20 20 |WAGS SETZEN. | 000019F0: 20 20 20 20 41 53 4C 0D 20 20 20 20 20 20 20 20 | ASL. | 00001A00: 41 53 4C 0D 20 20 20 20 20 20 20 20 41 53 4C 0D |ASL. ASL.| 00001A10: 20 20 20 20 20 20 20 20 41 53 4C 0D 20 20 20 20 | ASL. | 00001A20: 20 20 20 20 41 53 4C 0D 20 20 20 20 20 20 20 20 | ASL. | 00001A30: 53 54 41 20 24 34 34 0D 20 20 20 20 20 20 20 20 |STA $44. | 00001A40: 4C 44 41 20 24 31 43 30 30 0D 20 20 20 20 20 20 |LDA $1C00. | 00001A50: 20 20 41 4E 44 20 23 24 39 46 0D 20 20 20 20 20 | AND #$9F. | 00001A60: 20 20 20 4F 52 41 20 24 34 34 0D 20 20 20 20 20 | ORA $44. | 00001A70: 20 20 20 53 54 41 20 24 31 43 30 30 0D 20 20 20 | STA $1C00. | 00001A80: 20 20 20 20 20 52 54 53 0D 3B 2D 2D 2D 2D 2D 2D | RTS.;------| 00001A90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B |--------------.;| 00001AA0: 4B 4F 50 46 45 4C 45 4B 54 52 4F 4E 49 4B 20 41 |KOPFELEKTRONIK A| 00001AB0: 55 46 20 53 43 48 52 45 49 42 45 4E 20 53 43 48 |UF SCHREIBEN SCH| 00001AC0: 41 4C 54 45 4E 0D 3A 53 45 54 57 52 20 20 4C 44 |ALTEN.:SETWR LD| 00001AD0: 41 20 24 31 43 30 43 0D 20 20 20 20 20 20 20 20 |A $1C0C. | 00001AE0: 41 4E 44 20 23 24 31 46 0D 20 20 20 20 20 20 20 |AND #$1F. | 00001AF0: 20 4F 52 41 20 23 24 43 30 0D 20 20 20 20 20 20 | ORA #$C0. | 00001B00: 20 20 53 54 41 20 24 31 43 30 43 0D 20 20 20 20 | STA $1C0C. | 00001B10: 20 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 20 | LDA #$FF. | 00001B20: 20 20 20 20 20 53 54 41 20 24 31 43 30 33 0D 20 | STA $1C03. | 00001B30: 20 20 20 20 20 20 20 53 54 41 20 24 31 43 30 31 | STA $1C01| 00001B40: 20 20 20 20 3B 24 46 46 20 53 43 48 52 45 49 42 | ;$FF SCHREIB| 00001B50: 45 4E 0D 20 20 20 20 20 20 20 20 52 54 53 0D 3B |EN. RTS.;| 00001B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00001B70: 2D 2D 2D 2D 0D 3B 41 55 46 20 53 59 4E 43 20 57 |----.;AUF SYNC W| 00001B80: 41 52 54 45 4E 0D 3B 46 4C 4F 50 50 59 2D 42 55 |ARTEN.;FLOPPY-BU| 00001B90: 43 48 20 D3 2E 33 37 33 0D 3A 53 59 4E 43 20 20 |CH ..373.:SYNC | 00001BA0: 20 4A 53 52 20 24 46 45 30 30 0D 20 20 20 20 20 | JSR $FE00. | 00001BB0: 20 20 20 4C 44 41 20 23 24 46 46 0D 20 20 20 20 | LDA #$FF. | 00001BC0: 20 20 20 20 53 54 41 20 24 31 38 30 35 0D 3A 53 | STA $1805.:S| 00001BD0: 59 4E 43 32 20 20 42 49 54 20 24 31 38 30 35 0D |YNC2 BIT $1805.| 00001BE0: 20 20 20 20 20 20 20 20 42 50 4C 20 53 59 4E 43 | BPL SYNC| 00001BF0: 31 0D 20 20 20 20 20 20 20 20 42 49 54 20 24 31 |1. BIT $1| 00001C00: 43 30 30 0D 20 20 20 20 20 20 20 20 42 4D 49 20 |C00. BMI | 00001C10: 53 59 4E 43 32 0D 20 20 20 20 20 20 20 20 4C 44 |SYNC2. LD| 00001C20: 41 20 24 31 43 30 31 0D 20 20 20 20 20 20 20 20 |A $1C01. | 00001C30: 43 4C 56 0D 20 20 20 20 20 20 20 20 43 4C 43 0D |CLV. CLC.| 00001C40: 20 20 20 20 20 20 20 20 42 20 24 32 34 0D 3A 53 | B $24.:S| 00001C50: 59 4E 43 31 20 20 53 45 43 0D 20 20 20 20 20 20 |YNC1 SEC. | 00001C60: 20 20 52 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D | RTS..;--------| 00001C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3A 46 4F |------------.:FO| 00001C80: 52 4D 20 20 20 4C 44 41 20 23 24 45 45 20 20 20 |RM LDA #$EE | 00001C90: 20 20 3B 42 59 54 45 2D 52 45 41 44 59 2D 4C 45 | ;BYTE-READY-LE| 00001CA0: 49 54 55 4E 47 0D 20 20 20 20 20 20 20 20 53 54 |ITUNG. ST| 00001CB0: 41 20 24 31 43 30 43 20 20 20 20 3B 46 52 45 49 |A $1C0C ;FREI| 00001CC0: 47 45 42 45 4E 0D 20 20 20 20 20 20 20 20 4C 44 |GEBEN. LD| 00001CD0: 41 20 23 34 20 20 20 20 20 20 20 3B 44 41 54 45 |A #4 ;DATE| 00001CE0: 4E 50 55 46 46 45 52 0D 20 20 20 20 20 20 20 20 |NPUFFER. | 00001CF0: 53 54 41 20 24 46 39 0D 0D 20 20 20 20 20 20 20 |STA $F9.. | 00001D00: 20 4C 44 41 20 24 32 32 20 20 20 20 20 20 3B 53 | LDA $22 ;S| 00001D10: 50 55 52 4E 52 0D 20 20 20 20 20 20 20 20 4A 53 |PURNR. JS| 00001D20: 52 20 24 46 32 34 42 20 20 20 20 3B 4D 41 58 20 |R $F24B ;MAX | 00001D30: 53 45 4B 54 41 4E 5A 20 48 4F 4C 45 4E 0D 20 20 |SEKTANZ HOLEN. | 00001D40: 20 20 20 20 20 20 53 54 41 20 24 34 33 20 20 20 | STA $43 | 00001D50: 20 20 20 3B 4D 45 52 4B 45 4E 0D 0D 20 20 20 20 | ;MERKEN.. | 00001D60: 20 20 20 20 4A 53 52 20 53 45 54 57 52 20 20 20 | JSR SETWR | 00001D70: 20 3B 41 55 46 20 53 43 48 52 45 49 42 45 4E 20 | ;AUF SCHREIBEN | 00001D80: 53 43 48 41 4C 54 45 4E 0D 0D 20 20 20 20 20 20 |SCHALTEN.. | 00001D90: 20 20 4C 44 41 20 23 24 46 46 20 20 20 20 20 3B | LDA #$FF ;| 00001DA0: 24 46 46 20 53 43 48 52 45 49 42 45 4E 0D 20 20 |$FF SCHREIBEN. | 00001DB0: 20 20 20 20 20 20 53 54 41 20 24 31 43 30 31 0D | STA $1C01.| 00001DC0: 0D 3B 2B 2B 2B 20 48 45 41 44 45 52 44 41 54 45 |.;+++ HEADERDATE| 00001DD0: 4E 20 42 45 52 45 49 54 53 54 45 4C 4C 45 4E 20 |N BEREITSTELLEN | 00001DE0: 2B 2B 2B 0D 20 20 20 20 20 20 20 20 4C 44 41 20 |+++. LDA | 00001DF0: 23 30 20 20 20 20 20 20 20 3B 53 45 4B 54 4E 52 |#0 ;SEKTNR| 00001E00: 0D 20 20 20 20 20 20 20 20 53 54 41 20 24 42 43 |. STA $BC| 00001E10: 20 20 20 20 20 20 3B 4D 45 52 4B 45 4E 0D 20 20 | ;MERKEN. | 00001E20: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00001E30: 20 20 54 41 59 0D 0D 3A 4E 45 57 35 20 20 20 4C | TAY..:NEW5 L| 00001E40: 44 41 20 24 33 39 20 20 20 20 20 20 3B 4B 45 4E |DA $39 ;KEN| 00001E50: 4E 5A 45 49 43 48 45 4E 20 46 55 45 52 20 44 41 |NZEICHEN FUER DA| 00001E60: 54 45 4E 42 4C 4F 43 4B 20 28 38 29 0D 20 20 20 |TENBLOCK (8). | 00001E70: 20 20 20 20 20 53 54 41 20 24 30 33 30 30 2C 59 | STA $0300,Y| 00001E80: 0D 20 20 20 20 20 20 20 20 4C 44 41 20 24 42 43 |. LDA $BC| 00001E90: 20 20 20 20 20 20 3B 53 45 4B 54 4E 52 0D 20 20 | ;SEKTNR. | 00001EA0: 20 20 20 20 20 20 53 54 41 20 24 30 33 30 32 2C | STA $0302,| 00001EB0: 59 0D 20 20 20 20 20 20 20 20 4C 44 41 20 24 32 |Y. LDA $2| 00001EC0: 32 20 20 20 20 20 20 3B 54 52 41 43 4B 4E 52 0D |2 ;TRACKNR.| 00001ED0: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 33 30 | STA $030| 00001EE0: 33 2C 59 0D 20 20 20 20 20 20 20 20 4C 44 41 20 |3,Y. LDA | 00001EF0: 24 31 33 20 20 20 20 20 20 3B 49 44 32 0D 20 20 |$13 ;ID2. | 00001F00: 20 20 20 20 20 20 53 54 41 20 24 30 33 30 34 2C | STA $0304,| 00001F10: 59 0D 20 20 20 20 20 20 20 20 4C 44 41 20 24 31 |Y. LDA $1| 00001F20: 32 20 20 20 20 20 20 3B 49 44 31 0D 20 20 20 20 |2 ;ID1. | 00001F30: 20 20 20 20 53 54 41 20 24 30 33 30 35 2C 59 0D | STA $0305,Y.| 00001F40: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 30 46 | LDA #$0F| 00001F50: 20 20 20 20 20 3B 41 42 53 43 48 4C 55 53 53 42 | ;ABSCHLUSSB| 00001F60: 59 54 45 53 0D 20 20 20 20 20 20 20 20 53 54 41 |YTES. STA| 00001F70: 20 24 30 33 30 36 2C 59 0D 20 20 20 20 20 20 20 | $0306,Y. | 00001F80: 20 53 54 41 20 24 30 33 30 37 2C 59 0D 0D 20 20 | STA $0307,Y.. | 00001F90: 20 20 20 20 20 20 4C 44 41 20 23 30 20 20 20 20 | LDA #0 | 00001FA0: 20 20 20 3B 50 52 55 45 46 53 55 4D 4D 45 0D 20 | ;PRUEFSUMME. | 00001FB0: 20 20 20 20 20 20 20 45 4F 52 20 24 30 33 30 32 | EOR $0302| 00001FC0: 2C 59 20 20 3B 42 45 52 45 43 48 4E 45 4E 0D 20 |,Y ;BERECHNEN. | 00001FD0: 20 20 20 20 20 20 20 45 4F 52 20 24 30 33 30 33 | EOR $0303| 00001FE0: 2C 59 0D 20 20 20 20 20 20 20 20 45 4F 52 20 24 |,Y. EOR $| 00001FF0: 30 33 30 34 2C 59 0D 20 20 20 20 20 20 20 20 45 |0304,Y. E| 00002000: 4F 52 20 24 30 33 30 35 2C 59 0D 20 20 20 20 20 |OR $0305,Y. | 00002010: 20 20 20 53 54 41 20 24 30 33 30 31 2C 59 20 20 | STA $0301,Y | 00002020: 3B 55 4E 44 20 53 50 45 49 43 48 45 52 4E 0D 0D |;UND SPEICHERN..| 00002030: 20 20 20 20 20 20 20 20 43 4C 43 20 20 20 20 20 | CLC | 00002040: 20 20 20 20 20 3B 38 20 42 59 54 45 53 20 57 45 | ;8 BYTES WE| 00002050: 49 54 45 52 0D 20 20 20 20 20 20 20 20 54 59 41 |ITER. TYA| 00002060: 0D 20 20 20 20 20 20 20 20 41 44 43 20 23 24 30 |. ADC #$0| 00002070: 38 0D 20 20 20 20 20 20 20 20 54 41 59 0D 0D 20 |8. TAY.. | 00002080: 20 20 20 20 20 20 20 49 4E 43 20 24 42 43 20 20 | INC $BC | 00002090: 20 20 20 20 3B 53 45 4B 54 4E 52 20 45 52 48 4F | ;SEKTNR ERHO| 000020A0: 45 48 45 4E 0D 20 20 20 20 20 20 20 20 4C 44 41 |EHEN. LDA| 000020B0: 20 24 42 43 0D 20 20 20 20 20 20 20 20 43 4D 50 | $BC. CMP| 000020C0: 20 24 34 33 20 20 20 20 20 20 3B 3C 4D 41 58 53 | $43 ;<MAXS| 000020D0: 45 4B 54 3F 0D 20 20 20 20 20 20 20 20 42 43 43 |EKT?. BCC| 000020E0: 20 4E 45 57 35 0D 0D 20 20 20 20 20 20 20 20 54 | NEW5.. T| 000020F0: 59 41 20 20 20 20 20 20 20 20 20 20 3B 42 59 54 |YA ;BYT| 00002100: 45 41 4E 5A 20 28 53 45 4B 54 41 4E 5A 2A 38 29 |EANZ (SEKTANZ*8)| 00002110: 0D 20 20 20 20 20 20 20 20 50 48 41 0D 0D 20 20 |. PHA.. | 00002120: 20 20 20 20 20 20 4C 44 41 20 23 24 30 33 20 20 | LDA #$03 | 00002130: 20 20 20 3B 50 55 46 46 45 52 4E 52 20 53 45 54 | ;PUFFERNR SET| 00002140: 5A 45 4E 0D 20 20 20 20 20 20 20 20 53 54 41 20 |ZEN. STA | 00002150: 24 33 31 20 20 20 20 20 20 3B 46 55 45 52 20 52 |$31 ;FUER R| 00002160: 4F 55 54 49 4E 45 0D 20 20 20 20 20 20 20 20 4A |OUTINE. J| 00002170: 53 52 20 24 46 45 33 30 20 20 20 20 3B 42 4C 4F |SR $FE30 ;BLO| 00002180: 43 4B 48 45 41 44 45 52 20 4E 41 43 48 20 47 43 |CKHEADER NACH GC| 00002190: 52 0D 0D 20 20 20 20 20 20 20 20 50 4C 41 0D 20 |R.. PLA. | 000021A0: 20 20 20 20 20 20 20 54 41 59 20 20 20 20 20 20 | TAY | 000021B0: 20 20 20 20 3B 42 59 54 45 41 4E 5A 0D 20 20 20 | ;BYTEANZ. | 000021C0: 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 | DEY. | 000021D0: 20 4A 53 52 20 24 46 44 45 35 20 20 20 20 3B 42 | JSR $FDE5 ;B| 000021E0: 59 54 45 53 20 4E 41 43 48 20 4F 42 45 4E 20 4B |YTES NACH OBEN K| 000021F0: 4F 50 49 45 52 45 4E 0D 20 20 20 20 20 20 20 20 |OPIEREN. | 00002200: 4A 53 52 20 24 46 44 46 35 20 20 20 20 3B 5A 55 |JSR $FDF5 ;ZU| 00002210: 53 41 54 5A 50 55 46 46 45 52 20 4E 41 43 48 20 |SATZPUFFER NACH | 00002220: 24 30 33 30 30 0D 0D 3B 2B 2B 2B 20 44 41 54 45 |$0300..;+++ DATE| 00002230: 4E 20 42 45 52 45 49 54 53 54 45 4C 4C 45 4E 20 |N BEREITSTELLEN | 00002240: 2B 2B 2B 2B 0D 20 20 20 20 20 20 20 20 4A 53 52 |++++. JSR| 00002250: 20 24 45 46 34 31 20 20 20 20 3B 50 55 46 46 45 | $EF41 ;PUFFE| 00002260: 52 5A 45 49 47 45 52 20 53 45 54 5A 45 4E 0D 20 |RZEIGER SETZEN. | 00002270: 20 20 20 20 20 20 20 4A 53 52 20 24 46 30 30 38 | JSR $F008| 00002280: 20 20 20 20 3B 44 41 54 45 4E 50 55 46 46 45 52 | ;DATENPUFFER| 00002290: 20 4C 4F 45 53 43 48 45 4E 0D 20 20 20 20 20 20 | LOESCHEN. | 000022A0: 20 20 4C 44 41 20 23 24 46 46 20 20 20 20 20 3B | LDA #$FF ;| 000022B0: 32 2E 42 59 54 45 20 46 55 45 52 20 31 38 2C 30 |2.BYTE FUER 18,0| 000022C0: 31 0D 20 20 20 20 20 20 20 20 53 54 41 20 24 30 |1. STA $0| 000022D0: 37 30 31 20 20 20 20 3B 53 4F 4E 53 54 20 45 47 |701 ;SONST EG| 000022E0: 41 4C 0D 0D 20 20 20 20 20 20 20 20 4C 44 41 20 |AL.. LDA | 000022F0: 23 24 30 37 20 20 20 20 20 3B 44 41 54 45 4E 50 |#$07 ;DATENP| 00002300: 55 46 46 45 52 0D 20 20 20 20 20 20 20 20 53 54 |UFFER. ST| 00002310: 41 20 24 33 31 0D 20 20 20 20 20 20 20 20 4A 53 |A $31. JS| 00002320: 52 20 24 46 35 45 39 20 20 20 20 3B 50 52 55 45 |R $F5E9 ;PRUE| 00002330: 46 53 55 4D 4D 45 20 42 45 52 2E 0D 20 20 20 20 |FSUMME BER.. | 00002340: 20 20 20 20 53 54 41 20 24 33 41 20 20 20 20 20 | STA $3A | 00002350: 20 3B 4D 45 52 4B 45 4E 0D 0D 20 20 20 20 20 20 | ;MERKEN.. | 00002360: 20 20 4A 53 52 20 24 46 37 38 46 20 20 20 20 3B | JSR $F78F ;| 00002370: 44 41 54 45 4E 20 4E 41 43 48 20 47 43 52 0D 0D |DATEN NACH GCR..| 00002380: 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 20 20 | LDA #0 | 00002390: 20 20 20 20 20 3B 5A 45 49 47 45 52 20 41 55 46 | ;ZEIGER AUF| 000023A0: 20 41 4B 54 20 53 45 4B 54 48 45 41 44 45 52 0D | AKT SEKTHEADER.| 000023B0: 20 20 20 20 20 20 20 20 53 54 41 20 24 33 32 0D | STA $32.| 000023C0: 0D 3B 2B 2B 2B 20 45 49 4E 45 4E 20 53 45 4B 54 |.;+++ EINEN SEKT| 000023D0: 4F 52 20 53 43 48 52 45 49 42 45 4E 20 28 28 24 |OR SCHREIBEN (($| 000023E0: 42 43 29 20 4D 41 4C 29 2B 2B 2B 0D 3A 4E 45 57 |BC) MAL)+++.:NEW| 000023F0: 31 34 20 20 4C 44 41 20 23 24 46 46 20 20 20 20 |14 LDA #$FF | 00002400: 20 3B 53 59 4E 43 20 53 43 48 52 45 49 42 45 4E | ;SYNC SCHREIBEN| 00002410: 0D 20 20 20 20 20 20 20 20 53 54 41 20 24 31 43 |. STA $1C| 00002420: 30 31 0D 20 20 20 20 20 20 20 20 4C 44 58 20 23 |01. LDX #| 00002430: 24 30 35 20 20 20 20 20 3B 35 20 4D 41 4C 0D 3A |$05 ;5 MAL.:| 00002440: 4E 45 57 37 20 20 20 42 56 43 20 4E 45 57 37 0D |NEW7 BVC NEW7.| 00002450: 20 20 20 20 20 20 20 20 43 4C 56 0D 20 20 20 20 | CLV. | 00002460: 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 | DEX. | 00002470: 42 4E 45 20 4E 45 57 37 0D 0D 20 20 20 20 20 20 |BNE NEW7.. | 00002480: 20 20 4C 44 58 20 23 24 30 41 20 20 20 20 20 3B | LDX #$0A ;| 00002490: 31 30 20 48 45 41 44 45 52 44 41 54 45 4E 28 47 |10 HEADERDATEN(G| 000024A0: 43 52 29 0D 20 20 20 20 20 20 20 20 4C 44 59 20 |CR). LDY | 000024B0: 24 33 32 0D 3A 4E 45 57 38 20 20 20 42 56 43 20 |$32.:NEW8 BVC | 000024C0: 4E 45 57 38 0D 20 20 20 20 20 20 20 20 43 4C 56 |NEW8. CLV| 000024D0: 0D 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 33 |. LDA $03| 000024E0: 30 30 2C 59 20 20 3B 53 43 48 52 45 49 42 45 4E |00,Y ;SCHREIBEN| 000024F0: 0D 20 20 20 20 20 20 20 20 53 54 41 20 24 31 43 |. STA $1C| 00002500: 30 31 0D 20 20 20 20 20 20 20 20 49 4E 59 0D 20 |01. INY. | 00002510: 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 | DEX. | 00002520: 20 20 20 42 4E 45 20 4E 45 57 38 0D 0D 20 20 20 | BNE NEW8.. | 00002530: 20 20 20 20 20 53 54 59 20 24 33 32 20 20 20 20 | STY $32 | 00002540: 20 20 3B 5A 45 49 47 45 52 20 41 55 46 20 4E 41 | ;ZEIGER AUF NA| 00002550: 45 43 48 2E 0D 20 20 20 20 20 20 20 20 20 20 20 |ECH.. | 00002560: 20 20 20 20 20 20 20 20 20 20 3B 48 45 41 44 45 | ;HEADE| 00002570: 52 20 53 45 54 5A 45 4E 0D 0D 20 20 20 20 20 20 |R SETZEN.. | 00002580: 20 20 4C 44 58 20 23 24 30 38 20 20 20 20 20 3B | LDX #$08 ;| 00002590: 24 35 35 20 53 43 48 52 45 49 42 45 4E 0D 3A 4E |$55 SCHREIBEN.:N| 000025A0: 45 57 39 20 20 20 42 56 43 20 4E 45 57 39 20 20 |EW9 BVC NEW9 | 000025B0: 20 20 20 3B 38 20 4D 41 4C 0D 20 20 20 20 20 20 | ;8 MAL. | 000025C0: 20 20 43 4C 56 20 20 20 20 20 20 20 20 20 20 3B | CLV ;| 000025D0: 41 4C 53 20 4C 55 45 43 4B 45 0D 20 20 20 20 20 |ALS LUECKE. | 000025E0: 20 20 20 4C 44 41 20 23 24 35 35 0D 20 20 20 20 | LDA #$55. | 000025F0: 20 20 20 20 53 54 41 20 24 31 43 30 31 0D 20 20 | STA $1C01. | 00002600: 20 20 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 | DEX. | 00002610: 20 20 42 4E 45 20 4E 45 57 39 0D 0D 20 20 20 20 | BNE NEW9.. | 00002620: 20 20 20 20 4C 44 41 20 23 24 46 46 20 20 20 20 | LDA #$FF | 00002630: 20 3B 53 59 4E 43 20 53 43 48 52 45 49 42 45 4E | ;SYNC SCHREIBEN| 00002640: 0D 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 30 |. LDX #$0| 00002650: 35 0D 3A 4E 45 57 31 30 20 20 42 56 43 20 4E 45 |5.:NEW10 BVC NE| 00002660: 57 31 30 0D 20 20 20 20 20 20 20 20 43 4C 56 0D |W10. CLV.| 00002670: 20 20 20 20 20 20 20 20 53 54 41 20 24 31 43 30 | STA $1C0| 00002680: 31 0D 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 |1. DEX. | 00002690: 20 20 20 20 20 20 42 4E 45 20 4E 45 57 31 30 0D | BNE NEW10.| 000026A0: 0D 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 42 |. LDX #$B| 000026B0: 42 20 20 20 20 20 3B 44 41 54 45 4E 20 28 47 43 |B ;DATEN (GC| 000026C0: 52 29 20 53 43 48 52 45 49 42 45 4E 0D 3A 4E 45 |R) SCHREIBEN.:NE| 000026D0: 57 31 31 20 20 42 56 43 20 4E 45 57 31 31 20 20 |W11 BVC NEW11 | 000026E0: 20 20 3B 45 52 53 54 20 41 55 53 20 5A 55 53 41 | ;ERST AUS ZUSA| 000026F0: 54 5A 50 55 46 46 45 52 0D 20 20 20 20 20 20 20 |TZPUFFER. | 00002700: 20 43 4C 56 0D 20 20 20 20 20 20 20 20 4C 44 41 | CLV. LDA| 00002710: 20 24 30 31 30 30 2C 58 0D 20 20 20 20 20 20 20 | $0100,X. | 00002720: 20 53 54 41 20 24 31 43 30 31 0D 20 20 20 20 20 | STA $1C01. | 00002730: 20 20 20 49 4E 58 0D 20 20 20 20 20 20 20 20 42 | INX. B| 00002740: 4E 45 20 4E 45 57 31 31 0D 0D 20 20 20 20 20 20 |NE NEW11.. | 00002750: 20 20 4C 44 59 20 23 24 30 30 20 20 20 20 20 3B | LDY #$00 ;| 00002760: 44 41 4E 4E 20 41 55 53 20 4E 4F 52 4D 41 4C 45 |DANN AUS NORMALE| 00002770: 4E 20 50 55 46 46 45 52 0D 3A 4E 45 57 31 32 20 |N PUFFER.:NEW12 | 00002780: 20 42 56 43 20 4E 45 57 31 32 0D 20 20 20 20 20 | BVC NEW12. | 00002790: 20 20 20 43 4C 56 0D 20 20 20 20 20 20 20 20 4C | CLV. L| 000027A0: 44 41 20 28 24 33 30 29 2C 59 0D 20 20 20 20 20 |DA ($30),Y. | 000027B0: 20 20 20 53 54 41 20 24 31 43 30 31 0D 20 20 20 | STA $1C01. | 000027C0: 20 20 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 | INY. | 000027D0: 20 42 4E 45 20 4E 45 57 31 32 0D 0D 20 20 20 20 | BNE NEW12.. | 000027E0: 20 20 20 20 4C 44 41 20 23 24 35 35 20 20 20 20 | LDA #$55 | 000027F0: 20 3B 24 35 35 20 41 4C 53 20 4C 55 45 43 4B 45 | ;$55 ALS LUECKE| 00002800: 20 53 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 | SCHREIBEN. | 00002810: 20 20 20 4C 44 58 20 23 24 30 38 0D 3A 4E 45 57 | LDX #$08.:NEW| 00002820: 31 33 20 20 42 56 43 20 4E 45 57 31 33 0D 20 20 |13 BVC NEW13. | 00002830: 20 20 20 20 20 20 43 4C 56 0D 20 20 20 20 20 20 | CLV. | 00002840: 20 20 53 54 41 20 24 31 43 30 31 0D 20 20 20 20 | STA $1C01. | 00002850: 20 20 20 20 44 45 58 0D 20 20 20 20 20 20 20 20 | DEX. | 00002860: 42 4E 45 20 4E 45 57 31 33 0D 0D 20 20 20 20 20 |BNE NEW13.. | 00002870: 20 20 20 44 45 43 20 24 42 43 20 20 20 20 20 20 | DEC $BC | 00002880: 3B 53 45 4B 54 41 4E 5A 0D 20 20 20 20 20 20 20 |;SEKTANZ. | 00002890: 20 42 4E 45 20 4E 45 57 31 34 0D 0D 3A 4E 45 57 | BNE NEW14..:NEW| 000028A0: 31 35 20 20 42 56 43 20 4E 45 57 31 35 20 20 20 |15 BVC NEW15 | 000028B0: 20 3B 57 41 52 54 45 4E 0D 20 20 20 20 20 20 20 | ;WARTEN. | 000028C0: 20 43 4C 56 0D 3A 4E 45 57 31 36 20 20 42 56 43 | CLV.:NEW16 BVC| 000028D0: 20 4E 45 57 31 36 0D 20 20 20 20 20 20 20 20 43 | NEW16. C| 000028E0: 4C 56 0D 0D 20 20 20 20 20 20 20 20 4A 53 52 20 |LV.. JSR | 000028F0: 24 46 45 30 30 20 20 20 20 3B 41 55 46 20 4C 45 |$FE00 ;AUF LE| 00002900: 53 45 4E 20 53 43 48 41 4C 54 45 4E 0D 0D 3B 2B |SEN SCHALTEN..;+| 00002910: 2B 2B 20 54 52 41 43 4B 20 31 38 20 42 45 53 43 |++ TRACK 18 BESC| 00002920: 48 52 45 49 42 45 4E 20 2B 2B 2B 0D 20 20 20 20 |HREIBEN +++. | 00002930: 20 20 20 20 4C 44 41 20 24 32 32 20 20 20 20 20 | LDA $22 | 00002940: 20 3B 53 50 55 52 20 3D 20 31 38 0D 20 20 20 20 | ;SPUR = 18. | 00002950: 20 20 20 20 43 4D 50 20 23 31 38 0D 20 20 20 20 | CMP #18. | 00002960: 20 20 20 20 42 4E 45 20 4E 45 57 33 30 20 20 20 | BNE NEW30 | 00002970: 20 3B 4E 45 49 4E 0D 0D 20 20 20 20 20 20 20 20 | ;NEIN.. | 00002980: 50 48 41 20 20 20 20 20 20 20 20 20 20 3B 53 50 |PHA ;SP| 00002990: 55 52 20 4D 45 52 4B 45 4E 0D 20 20 20 20 20 20 |UR MERKEN. | 000029A0: 20 20 4C 44 41 20 23 24 38 34 20 20 20 20 20 3B | LDA #$84 ;| 000029B0: CB 41 4E 41 4C 2D D0 55 46 46 45 52 2D DA 55 4F |.ANAL-.UFFER-.UO| 000029C0: 52 44 4E 55 4E 47 0D 20 20 20 20 20 20 20 20 53 |RDNUNG. S| 000029D0: 54 41 20 24 42 34 0D 20 20 20 20 20 20 20 20 4A |TA $B4. J| 000029E0: 53 52 20 24 45 46 34 31 20 20 20 20 3B 50 55 46 |SR $EF41 ;PUF| 000029F0: 46 45 52 5A 45 49 47 45 52 20 53 45 54 5A 45 4E |FERZEIGER SETZEN| 00002A00: 0D 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 30 |. JSR $F0| 00002A10: 30 38 20 20 20 20 3B 50 55 46 46 45 52 20 4C 4F |08 ;PUFFER LO| 00002A20: 45 53 43 48 45 4E 0D 20 20 20 20 20 20 20 20 4A |ESCHEN. J| 00002A30: 53 52 20 24 45 45 42 37 20 20 20 20 3B 42 41 4D |SR $EEB7 ;BAM| 00002A40: 20 45 52 5A 45 55 47 45 4E 0D 20 20 20 20 20 20 | ERZEUGEN. | 00002A50: 20 20 4C 44 41 20 23 24 31 31 20 20 20 20 20 3B | LDA #$11 ;| 00002A60: 54 52 41 43 4B 20 31 38 0D 20 20 20 20 20 20 20 |TRACK 18. | 00002A70: 20 53 54 41 20 24 30 37 34 38 20 20 20 20 3B 41 | STA $0748 ;A| 00002A80: 4C 53 20 42 45 4C 45 47 54 0D 20 20 20 20 20 20 |LS BELEGT. | 00002A90: 20 20 4C 44 41 20 23 24 46 43 20 20 20 20 20 3B | LDA #$FC ;| 00002AA0: 4B 45 4E 4E 5A 45 49 43 48 4E 45 4E 0D 20 20 20 |KENNZEICHNEN. | 00002AB0: 20 20 20 20 20 53 54 41 20 24 30 37 34 39 0D 0D | STA $0749..| 00002AC0: 20 20 20 20 20 20 20 20 4C 44 59 20 23 49 44 46 | LDY #IDF| 00002AD0: 4C 41 47 2D 4E 41 4D 45 2D 31 0D 3A 4E 45 57 36 |LAG-NAME-1.:NEW6| 00002AE0: 20 20 20 4C 44 41 20 4E 41 4D 45 2C 59 20 20 20 | LDA NAME,Y | 00002AF0: 3B 4E 41 4D 45 2C 49 44 0D 20 20 20 20 20 20 20 |;NAME,ID. | 00002B00: 20 53 54 41 20 24 30 37 39 30 2C 59 20 20 3B 4B | STA $0790,Y ;K| 00002B10: 4F 50 49 45 52 45 4E 0D 20 20 20 20 20 20 20 20 |OPIEREN. | 00002B20: 44 45 59 0D 20 20 20 20 20 20 20 20 42 50 4C 20 |DEY. BPL | 00002B30: 4E 45 57 36 0D 0D 20 20 20 20 20 20 20 20 4C 44 |NEW6.. LD| 00002B40: 41 20 23 24 34 31 20 20 20 20 20 3B 46 4F 52 4D |A #$41 ;FORM| 00002B50: 41 54 4B 45 4E 4E 5A 45 49 43 48 45 4E 0D 20 20 |ATKENNZEICHEN. | 00002B60: 20 20 20 20 20 20 53 54 41 20 24 30 37 30 32 0D | STA $0702.| 00002B70: 0D 20 20 20 20 20 20 20 20 4C 44 41 20 23 31 38 |. LDA #18| 00002B80: 20 20 20 20 20 20 3B 54 52 41 43 4B 20 31 38 0D | ;TRACK 18.| 00002B90: 20 20 20 20 20 20 20 20 53 54 41 20 24 30 45 0D | STA $0E.| 00002BA0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 30 20 20 | LDA #0 | 00002BB0: 20 20 20 20 20 3B 53 45 4B 54 20 30 0D 20 20 20 | ;SEKT 0. | 00002BC0: 20 20 20 20 20 53 54 41 20 24 30 46 0D 20 20 20 | STA $0F. | 00002BD0: 20 20 20 20 20 43 4C 49 0D 20 20 20 20 20 20 20 | CLI. | 00002BE0: 20 4A 53 52 20 24 44 35 38 41 20 20 20 20 3B 53 | JSR $D58A ;S| 00002BF0: 43 48 52 45 49 42 45 4E 0D 20 20 20 20 20 20 20 |CHREIBEN. | 00002C00: 20 53 45 49 0D 20 20 20 20 20 20 20 20 50 4C 41 | SEI. PLA| 00002C10: 20 20 20 20 20 20 20 20 20 20 3B 53 50 55 52 4E | ;SPURN| 00002C20: 52 0D 0D 3A 4E 45 57 33 30 20 20 43 4D 50 20 24 |R..:NEW30 CMP $| 00002C30: 31 42 20 20 20 20 20 20 3B 41 4C 4C 45 20 54 52 |1B ;ALLE TR| 00002C40: 41 43 4B 53 20 3F 0D 20 20 20 20 20 20 20 20 42 |ACKS ?. B| 00002C50: 45 51 20 4E 45 57 31 37 20 20 20 20 3B 4A 41 2C |EQ NEW17 ;JA,| 00002C60: 20 44 41 4E 4E 20 46 45 52 54 49 47 0D 0D 20 20 | DANN FERTIG.. | 00002C70: 20 20 20 20 20 20 4A 53 52 20 53 54 45 50 49 20 | JSR STEPI | 00002C80: 20 20 20 3B 54 52 41 43 4B 20 4E 41 43 48 20 49 | ;TRACK NACH I| 00002C90: 4E 4E 45 4E 0D 0D 20 20 20 20 20 20 20 20 4A 4D |NNEN.. JM| 00002CA0: 50 20 46 4F 52 4D 20 20 20 20 20 3B 4E 41 45 43 |P FORM ;NAEC| 00002CB0: 48 53 54 45 4E 20 54 52 41 43 4B 20 46 4F 52 4D |HSTEN TRACK FORM| 00002CC0: 41 54 49 45 52 45 4E 0D 0D 3A 4E 45 57 31 37 20 |ATIEREN..:NEW17 | 00002CD0: 20 52 54 53 0D 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D | RTS..;---------| 00002CE0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 0D 3A 4E 41 |-----------..:NA| 00002CF0: 4D 45 20 20 20 42 20 22 20 20 20 20 20 20 20 20 |ME B " | 00002D00: 20 20 20 20 20 20 20 20 22 0D 20 20 20 20 20 20 | ". | 00002D10: 20 20 42 20 24 41 30 2C 24 41 30 0D 3A 49 44 20 | B $A0,$A0.:ID | 00002D20: 20 20 20 20 42 20 22 20 20 22 0D 20 20 20 20 20 | B " ". | 00002D30: 20 20 20 42 20 24 41 30 2C 22 32 41 22 2C 24 41 | B $A0,"2A",$A| 00002D40: 30 2C 24 41 30 2C 24 41 30 2C 24 41 30 0D 3A 49 |0,$A0,$A0,$A0.:I| 00002D50: 44 46 4C 41 47 20 42 20 30 0D 3A 46 45 4E 44 0D |DFLAG B 0.:FEND.| 00002D60: 0D 0D 0D 3B 20 20 C5 CE C4 C5 0D |...; ..... |
.PHC..TIT.TSE-FORMAT J.KLOEHN, H.-DUNCKE
R-STR.83, DDR-1157 BERLIN, TEL.(00372)50
82744..:STAROK = 1..;*** LABELDEF ***..:
CHRIN = $FFCF.:GETIN = $FFE4..;*** MAK
ROS ***..:STROUT M 1.. LDA #<@0.
LDY #>@0. JSR $AB1E./..:IN
PUT MF 3.. STROUT @0. LDY
#0.:INPUT1 JSR CHRIN. STA $0200,Y
. INY. CMP #13. BNE
INPUT1.. LDY #0. LDX #0.:
INPUT3 LDA $0200,X. CMP #13.
BNE INPUT2. LDA #$A0. B
$24.:INPUT2 INX. STA @1,Y.
INY. CPY #@2. BNE INPUT3
./..:FLOPPY M 4..;RAMA = @0.;RAME =
@1.;DATADR = @2.;STRADR = @3.. LD
Y #@1-@0/32+1. LDX #@1-@0&31.
LDA #<@0. STA $FB. LDA
#>@0. STA $FC. LDA #<@2.
STA ADDR. LDA #>@2.
STA ADDR+1. JSR FLOPP1 ;M-W.I
F @3. LDY #>@3. LDA #<@3.
JSR FLOPP5 ;M-E.EI../..;*** BA
SICSTART ***...IF STAROK..ORG $0801..:BA
SIC W 256,0. B 158,"2111:",143.
B 34,141,145,8,142,154. B
"TSE-FORMAT V1.1 BY ". B 5,"?SAV
E ERROR". B 154," IN 1989 ".
S 3..EL..ORG $C000..EI.. LDA #
0. STA $D020. STA $D021..
INPUT TEXT1,NAME-FSTART+START,16.
INPUT TEXT2,ID-FSTART+START,2.
INPUT TEXT3,IDFLAG-FSTART+START,1.
. STROUT TEXT4.:HPTPR1 JSR GETIN.
BEQ HPTPR1.. FLOPPY START
,FEND-FSTART+START,FSTART,FSTART.
STROUT TEXT5.. PLA ;RUECKS
PRUNGADDR. PLA ;VOM STACK H
OLEN. JMP $A474 ;EINGABE-WARTESCH
LEIFE..;*** DATEN ****..:TEXT1 B 147,30
,14," TSE-FORMAT V1.1",13.
B " ---------------",13,13
. B " (C) 1990 MARKT & TECHNIK VE
RLAG AG",13. B " (W) JUE
RGEN KLOEHN",13,13,13,13,13. B "D
ISKETTENNAME: ",0.:TEXT2 B 13,13,"ID: "
,0.:TEXT3 B 13,13,"ID FORTLAUFEND ERHOE
HEN (J/N) ? ",0.:TEXT4 B 13,13,13,"BITT
E 1.DISK ZUM FORMATIEREN EINLEGEN!",0.:T
EXT5 B 13,13. B "DISKETTEN WERDE
N FORMATIERT!",13. B "ENDE MIT BE
LIEBIGER OPERATION FUER DISK",13,0...;**
* TEIL VON MAKRO FLOPPY ***..:FLOPP1 STX
ANZ ;INN SCHLEIF. STY ANZ+
1 ;AUSS "..:FLOPP4 LDA $BA ;G
ERAET 8. JSR $FFB1 ;LISTEN SE
NDEN. LDA #$6F ;SEK 15.
JSR $FF93 ;SENDEN.. JSR KO
PF ;M-W SENDEN. LDX ANZ
;INN SCHL.ZAEHL. BEQ FLOPP7..
LDY #0 ;X BYTES SENDEN.:FLO
PP3 LDA ($FB),Y. JSR $FFA8.
INC $FB. BNE FLOPP2. INC
$FC.:FLOPP2 DEX. BNE FLOPP3..:FL
OPP7 JSR $FFAE ;UNLISTEN.. CL
C ;FLOPPADDR. LDA ADDR
;+ ANZ DER GESEND.. ADC ANZ
;BYTES. STA ADDR. LD
A ADDR+1. ADC #0. STA ADDR
+1.. LDX #32 ;INN SCHL. MIT
32. STX ANZ.. DEC ANZ+1
;AUSS SCHLEIFE. BNE FLOPP4
;EINSCHL. 0.. RTS..:KOPF LDY #0
;SENDET M-W.:KOPF1 LDA DAT,Y.
JSR $FFA8. INY. CPY
#6. BNE KOPF1. RTS..:DAT
B "M-W".:ADDR W 0.:ANZ B 0.
B 0 ;ANZ HI ZWISCHENSP..:FLO
PP5 STA ADDR2. STY ADDR2+1..
LDA $BA ;GERAET 8. JSR $
ED0C ;LISTEN SENDEN. LDA #$6F
;SEK 15. JSR $EDB9 ;SEN
DEN.. LDY #0 ;M-E SENDEN.:
FLOPP6 LDA DAT2,Y. JSR $FFA8.
INY. CPY #5. BNE FLOPP
6.. JMP $EDFE ;UNLISTEN..:DAT
2 B "M-E".:ADDR2 W 0....;*** FLOPPYPR
OGRAMM ***..:START.. ORG $0400...
:FSTART JSR $C100 ;LAMPE AN..
SEI. LDA $1C00 ;MOTOR AN.
ORA #$04. STA $1C00.. L
DA $22 ;AKT TRACK. BNE NEW1
;=0 (NACH UJ). LDA #46 ;
46 TRACKS. STA $22 ;NACH AUS
SEN..:NEW1 DEC $22 ;1. TRACK ANFA
HREN. BEQ NEW19. JSR STEPA
;1 TRACK NACH AUSSEN. BEQ NEW
1 ;ABSOLUT..:NEW19 LDA #1 ;TR
ACK1. STA $22 ;SETZEN..
LDA ID ;ID SETZEN. STA $
12. LDA ID+1. STA $13..
LDX #0 ;STEPMOTOR. JSR
STEP ;RESET.. JSR SPEED ;
SPEEDFLAGS SETZEN.. LDA #$20
;MOTOR AN. STA $20 ;FUER LW
STATUS.:NEW22 CLI. LDA $7C
;ATN ?. BEQ NEW29. JMP FER
TIG..:NEW29 SEI.. LDA #1 ;
ENDTRACK FUER TEST. B $2C.:NEW23
LDA #35 ;SONST FORMAT. STA
$1B.. JSR SETWR.. JSR FORM
;DISK FORMATIEREN.. CMP #35
;LETZER TRACK. BEQ NEW20..
JSR SYNC ;TEST AUF DISC IM LAU
FWERK. BCS NEW22 ;FORMAT TRACK
1.. LDA $1C00 ;SCHREIBSCHUTZ A
BFRAGEN. AND #$10. BEQ NEW
22 ;JA, DANN WEITER WARTEN. LD
A #$10 ;FLAG 'KEIN SCHREIBSCHUTZ'.
STA $1E ;SETZTEN.. LDY
#0 ;WARTEN BIS.:WAIT INX
;DISCHEBEL. BNE WAIT ;GESC
HLOSSEN. INY. BNE WAIT.
BEQ NEW23 ;FORMAT ALL..:NEW20 L
DA #$20 ;MOTOR AN. STA $20
;FUER LAUFW.STATUS. LDA $1C00
;LAMPE AUS. AND #$F7. S
TA $1C00..:NEW24 CLI. LDA $7C
;ATN ?. BEQ NEW28.:FERTIG LDA
#$10 ;MOTOR SOLL. STA $20
;NACHLAUFEN. JMP $D042 ;INIT
+ SCHLUSS..:NEW28 SEI. JSR SYNC
;DISC NOCH DRINN. BCC NEW24.
. LDA IDFLAG ;ID ERHOEHEN ?.
CMP #'J. BNE NEW27..
LDX #1 ;ID=ID+1.:NEW26 INC ID,X.
LDA ID,X. CMP #':.
BNE NEW25. ADC #6. STA ID,
X.:NEW25 CMP #'[. BNE NEW27.
LDA #'0. STA ID,X. DEX
. BEQ NEW26..:NEW27 JMP FSTART..
;--------------------.;TRACK NACH INNEN
FAHREN UND.;SPEED SETZEN.:STEPI LDY #$0
2 ;2 HALBSPUREN.:NEW2 LDX $1C00
;STEPMOTOR. INX ;NACH A
USSEN. JSR STEP. DEY.
BNE NEW2. INC $22 ;TRACKZ
AEHLER ERHOEHEN. JMP SPEED ;SP
EEDFLAGS SETZEN...;--------------------.
;NSTEP UM 1 TRACK NACH AUSSEN.:STEPA LD
Y #$02 ;2 HALBSPUREN.:NEW3 LDX $1C
00 ;STEPMOTOR. DEX ;N
ACH AUSSEN. JSR STEP. DEY.
BNE NEW3. RTS..;---------
-----------.;STEPMOTOR ANSTEUERN.;WERT I
N X.:STEP TXA. AND #$03.
STA $BB.. LDA $1C00. AND
#$FC ;STEPMOT. ORA $BB ;
SETZEN. STA $1C00.. LDA #$
04 ;WARTEN. STA $BB. L
DX #0.:NEW4 DEX. BNE NEW4.
DEC $BB. BNE NEW4.. RTS
.;--------------------.;SPEEDFLAGS SETZE
N.:SPEED LDA $22 ;SPURNUMMER.
JSR $F24B ;ANZ DER SEK HOLEN.
TXA ;SPEEDNEWAGS SETZEN.
ASL. ASL. ASL.
ASL. ASL. STA $44.
LDA $1C00. AND #$9F. ORA $
44. STA $1C00. RTS.;------
--------------.;KOPFELEKTRONIK AUF SCHRE
IBEN SCHALTEN.:SETWR LDA $1C0C.
AND #$1F. ORA #$C0. STA $1
C0C. LDA #$FF. STA $1C03.
STA $1C01 ;$FF SCHREIBEN.
RTS.;--------------------.;AUF SYNC W
ARTEN.;FLOPPY-BUCH S.373.:SYNC JSR $FE
00. LDA #$FF. STA $1805.:S
YNC2 BIT $1805. BPL SYNC1.
BIT $1C00. BMI SYNC2. LD
A $1C01. CLV. CLC.
B $24.:SYNC1 SEC. RTS..;--------
------------.:FORM LDA #$EE ;BYTE-
READY-LEITUNG. STA $1C0C ;FREI
GEBEN. LDA #4 ;DATENPUFFER.
STA $F9.. LDA $22 ;S
PURNR. JSR $F24B ;MAX SEKTANZ
HOLEN. STA $43 ;MERKEN..
JSR SETWR ;AUF SCHREIBEN SCHALTEN
.. LDA #$FF ;$FF SCHREIBEN.
STA $1C01..;+++ HEADERDATEN BEREIT
STELLEN +++. LDA #0 ;SEKTNR
. STA $BC ;MERKEN. TA
X. TAY..:NEW5 LDA $39 ;KEN
NZEICHEN FUER DATENBLOCK (8). STA
$0300,Y. LDA $BC ;SEKTNR.
STA $0302,Y. LDA $22 ;
TRACKNR. STA $0303,Y. LDA
$13 ;ID2. STA $0304,Y.
LDA $12 ;ID1. STA $0305,Y.
LDA #$0F ;ABSCHLUSSBYTES.
STA $0306,Y. STA $0307,Y..
LDA #0 ;PRUEFSUMME. E
OR $0302,Y ;BERECHNEN. EOR $0303
,Y. EOR $0304,Y. EOR $0305
,Y. STA $0301,Y ;UND SPEICHERN..
CLC ;8 BYTES WEITER.
TYA. ADC #$08. TAY..
INC $BC ;SEKTNR ERHOEHEN.
LDA $BC. CMP $43 ;<MAXS
EKT?. BCC NEW5.. TYA
;BYTEANZ (SEKTANZ*8). PHA..
LDA #$03 ;PUFFERNR SETZEN.
STA $31 ;FUER ROUTINE. J
SR $FE30 ;BLOCKHEADER NACH GCR..
PLA. TAY ;BYTEANZ.
DEY. JSR $FDE5 ;BYTES NAC
H OBEN KOPIEREN. JSR $FDF5 ;ZU
SATZPUFFER NACH $0300..;+++ DATEN BEREIT
STELLEN ++++. JSR $EF41 ;PUFFE
RZEIGER SETZEN. JSR $F008 ;DAT
ENPUFFER LOESCHEN. LDA #$FF ;
2.BYTE FUER 18,01. STA $0701 ;
SONST EGAL.. LDA #$07 ;DATENP
UFFER. STA $31. JSR $F5E9
;PRUEFSUMME BER.. STA $3A
;MERKEN.. JSR $F78F ;DATEN NA
CH GCR.. LDA #0 ;ZEIGER AUF
AKT SEKTHEADER. STA $32..;+++ EI
NEN SEKTOR SCHREIBEN (($BC) MAL)+++.:NEW
14 LDA #$FF ;SYNC SCHREIBEN.
STA $1C01. LDX #$05 ;5 MAL.:
NEW7 BVC NEW7. CLV. DEX.
BNE NEW7.. LDX #$0A ;
10 HEADERDATEN(GCR). LDY $32.:NEW
8 BVC NEW8. CLV. LDA $03
00,Y ;SCHREIBEN. STA $1C01.
INY. DEX. BNE NEW8..
STY $32 ;ZEIGER AUF NAECH..
;HEADER SETZEN..
LDX #$08 ;$55 SCHREIBEN.:NEW9 BV
C NEW9 ;8 MAL. CLV ;
ALS LUECKE. LDA #$55. STA
$1C01. DEX. BNE NEW9..
LDA #$FF ;SYNC SCHREIBEN.
LDX #$05.:NEW10 BVC NEW10. CLV.
STA $1C01. DEX. BN
E NEW10.. LDX #$BB ;DATEN (GC
R) SCHREIBEN.:NEW11 BVC NEW11 ;ERST
AUS ZUSATZPUFFER. CLV. LDA
$0100,X. STA $1C01. INX.
BNE NEW11.. LDY #$00 ;
DANN AUS NORMALEN PUFFER.:NEW12 BVC NEW
12. CLV. LDA ($30),Y.
STA $1C01. INY. BNE NEW
12.. LDA #$55 ;$55 ALS LUECKE
SCHREIBEN. LDX #$08.:NEW13 BVC
NEW13. CLV. STA $1C01.
DEX. BNE NEW13.. DEC $
BC ;SEKTANZ. BNE NEW14..:NEW
15 BVC NEW15 ;WARTEN. CLV.:NE
W16 BVC NEW16. CLV.. JSR
$FE00 ;AUF LESEN SCHALTEN..;+++ TRACK
18 BESCHREIBEN +++. LDA $22
;SPUR = 18. CMP #18. BNE
NEW30 ;NEIN.. PHA ;SP
UR MERKEN. LDA #$84 ;KANAL-PU
FFER-ZUORDNUNG. STA $B4. J
SR $EF41 ;PUFFERZEIGER SETZEN.
JSR $F008 ;PUFFER LOESCHEN. J
SR $EEB7 ;BAM ERZEUGEN. LDA #$
11 ;TRACK 18. STA $0748 ;A
LS BELEGT. LDA #$FC ;KENNZEIC
HNEN. STA $0749.. LDY #IDF
LAG-NAME-1.:NEW6 LDA NAME,Y ;NAME,ID
. STA $0790,Y ;KOPIEREN.
DEY. BPL NEW6.. LDA #$41
;FORMATKENNZEICHEN. STA $0702.
. LDA #18 ;TRACK 18.
STA $0E. LDA #0 ;SEKT 0.
STA $0F. CLI. JSR $D5
8A ;SCHREIBEN. SEI. PLA
;SPURNR..:NEW30 CMP $1B
;ALLE TRACKS ?. BEQ NEW17 ;JA,
DANN FERTIG.. JSR STEPI ;TRAC
K NACH INNEN.. JMP FORM ;NAEC
HSTEN TRACK FORMATIEREN..:NEW17 RTS..;-
-------------------..:NAME B "
". B $A0,$A0.:ID B "
". B $A0,"2A",$A0,$A0,$A0,$A0.:I
DFLAG B 0.:FEND....; ENDE.
> CLICK IMAGE PREVIEW FOR FULL MODAL