FLOP V1.1-ASCII
FILE INFORMATION
FILENAME(S): FLOP V1.1-ASCII
FILE TYPE(S): PRG
FILE SIZE: 17K
FIRST SEEN: 2025-11-30 18:06:39
APPEARS ON: 1 disk(s)
FILE HASH
4392b48567dfab72ae425b913c9c8a99d05e4e86f4c4bd3afc37b4fbb3b1f000
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PUBLICATION 19 | FLOP V1.1-ASCII | PRG | Xii | 19 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 2B 43 42 4D 53 54 41 52 54 20 3D 24 43 30 30 30 |+CBMSTART =$C000| 00000010: 0D 2B 52 45 41 44 50 55 46 20 20 3D 24 30 34 30 |.+READPUF =$040| 00000020: 30 0D 2B 44 49 52 50 55 46 20 20 20 3D 24 30 35 |0.+DIRPUF =$05| 00000030: 30 30 0D B0 60 60 60 60 60 60 60 60 60 60 60 60 |00..````````````| 00000040: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000050: 60 60 60 60 60 60 60 60 60 AE 0D 7D 43 42 4D 53 |`````````..}CBMS| 00000060: 54 41 52 54 3A 53 54 41 52 54 41 44 52 45 53 53 |TART:STARTADRESS| 00000070: 45 20 49 4D 20 36 34 45 52 20 20 20 20 20 20 20 |E IM 64ER | 00000080: 20 7D 0D 7D 20 20 20 20 20 20 20 20 20 20 20 20 | }.} | 00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000000A0: 20 20 20 20 20 20 20 20 20 7D 0D 7D 52 45 41 44 | }.}READ| 000000B0: 50 55 46 20 3A 53 50 45 49 43 48 45 52 20 46 55 |PUF :SPEICHER FU| 000000C0: 45 52 20 45 4D 50 46 41 4E 47 45 4E 45 4E 20 20 |ER EMPFANGENEN | 000000D0: 20 7D 0D 7D 20 20 20 20 20 20 20 20 20 53 45 4B | }.} SEK| 000000E0: 54 4F 52 20 20 20 20 20 20 20 20 20 20 20 20 20 |TOR | 000000F0: 20 20 20 20 20 20 20 20 20 7D 0D 7D 44 49 52 50 | }.}DIRP| 00000100: 55 46 20 20 3A 53 50 45 49 43 48 45 52 20 46 55 |UF :SPEICHER FU| 00000110: 45 52 20 44 49 52 45 43 54 4F 52 59 20 20 20 20 |ER DIRECTORY | 00000120: 20 7D 0D AD 60 60 60 60 60 60 60 60 60 60 60 60 | }..````````````| 00000130: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000140: 60 60 60 60 60 60 60 60 60 BD 0D 20 20 20 20 20 |`````````.. | 00000150: 20 20 20 20 2E 47 4F 54 4F 20 57 45 49 54 45 52 | .GOTO WEITER| 00000160: 0D 5F 47 42 59 0D 20 20 20 20 20 20 20 20 20 20 |._GBY. | 00000170: 42 56 43 20 2A 20 20 20 20 20 20 20 20 3B 45 49 |BVC * ;EI| 00000180: 4E 20 42 59 54 45 20 56 4F 4D 0D 20 20 20 20 20 |N BYTE VOM. | 00000190: 20 20 20 20 20 43 4C 56 20 20 20 20 20 20 20 20 | CLV | 000001A0: 20 20 3B 52 57 2D 4B 4F 50 46 20 48 4F 4C 45 4E | ;RW-KOPF HOLEN| 000001B0: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |. LDA $| 000001C0: 31 43 30 31 0D 20 20 20 20 20 20 20 20 20 2E 45 |1C01. .E| 000001D0: 4E 44 4D 41 43 52 4F 0D 5F 54 52 41 0D 20 20 20 |NDMACRO._TRA. | 000001E0: 20 20 20 20 20 20 20 42 49 54 20 24 31 38 30 30 | BIT $1800| 000001F0: 20 20 20 20 3B 41 55 46 20 41 54 4E 20 57 41 52 | ;AUF ATN WAR| 00000200: 54 45 4E 0D 20 20 20 20 20 20 20 20 20 20 42 50 |TEN. BP| 00000210: 4C 20 2A 2D 33 20 20 20 20 20 20 3B 24 38 46 20 |L *-3 ;$8F | 00000220: 49 53 54 20 45 49 4E 0D 20 20 20 20 20 20 20 20 |IST EIN. | 00000230: 20 2E 42 20 24 38 46 2C 24 30 30 2C 24 31 38 3B | .B $8F,$00,$18;| 00000240: 49 4C 4C 45 47 41 4C 45 52 2C 20 44 45 52 0D 20 |ILLEGALER, DER. | 00000250: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000260: 20 20 20 20 20 20 3B 28 41 4B 4B 55 20 41 4E 44 | ;(AKKU AND| 00000270: 20 58 29 0D 20 20 20 20 20 20 20 20 20 20 20 20 | X). | 00000280: 20 20 20 20 20 20 20 20 20 20 20 3B 41 42 4C 45 | ;ABLE| 00000290: 47 54 0D 20 20 20 20 20 20 20 20 20 20 42 49 54 |GT. BIT| 000002A0: 20 24 31 38 30 30 20 20 20 20 3B 41 55 46 20 41 | $1800 ;AUF A| 000002B0: 54 4E 20 43 4C 45 41 52 0D 20 20 20 20 20 20 20 |TN CLEAR. | 000002C0: 20 20 20 42 4D 49 20 2A 2D 33 20 20 20 20 20 20 | BMI *-3 | 000002D0: 3B 57 41 52 54 45 4E 0D 20 20 20 20 20 20 20 20 |;WARTEN. | 000002E0: 20 2E 45 4E 44 4D 41 43 52 4F 0D 5F 57 45 49 54 | .ENDMACRO._WEIT| 000002F0: 45 52 0D B0 60 60 60 60 60 60 60 60 60 60 60 60 |ER..````````````| 00000300: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000310: 60 60 60 60 60 60 60 60 60 AE 0D 7D 43 4F 4D 50 |`````````..}COMP| 00000320: 55 54 45 52 2D 54 45 49 4C 20 20 20 20 20 20 20 |UTER-TEIL | 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000340: 20 7D 0D AD 60 60 60 60 60 60 60 60 60 60 60 60 | }..````````````| 00000350: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00000360: 60 60 60 60 60 60 60 60 60 BD 0D 20 20 20 20 20 |`````````.. | 00000370: 20 20 20 20 2E 53 45 54 50 43 20 43 42 4D 53 54 | .SETPC CBMST| 00000380: 41 52 54 0D 0D 2B 4C 49 53 54 45 4E 20 20 20 3D |ART..+LISTEN =| 00000390: 24 46 46 42 31 0D 2B 53 45 43 4C 53 54 20 20 20 |$FFB1.+SECLST | 000003A0: 3D 24 46 46 39 33 0D 2B 49 45 43 4F 55 54 20 20 |=$FF93.+IECOUT | 000003B0: 20 3D 24 46 46 41 38 0D 2B 55 4E 4C 49 53 54 20 | =$FFA8.+UNLIST | 000003C0: 20 20 3D 24 46 46 41 45 0D 2B 46 4C 4F 50 53 54 | =$FFAE.+FLOPST| 000003D0: 41 52 54 3D 24 30 35 30 30 0D 0D 20 20 20 20 20 |ART=$0500.. | 000003E0: 20 20 20 20 2E 42 45 47 49 4E 0D 20 20 20 20 20 | .BEGIN. | 000003F0: 20 20 20 20 20 4A 4D 50 20 49 4E 53 54 41 4C 4C | JMP INSTALL| 00000400: 0D 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 4C |. JMP L| 00000410: 4F 41 44 0D 20 20 20 20 20 20 20 20 20 20 4A 4D |OAD. JM| 00000420: 50 20 4D 4F 54 4F 52 4F 46 46 0D 20 20 20 20 20 |P MOTOROFF. | 00000430: 20 20 20 20 20 4A 4D 50 20 52 45 53 45 54 0D 20 | JMP RESET. | 00000440: 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 45 54 | JMP SET| 00000450: 54 52 53 0D 20 20 20 20 20 20 20 20 20 20 4A 4D |TRS. JM| 00000460: 50 20 52 45 41 44 0D 20 20 20 20 20 20 20 20 20 |P READ. | 00000470: 20 4A 4D 50 20 54 52 41 43 4B 50 4F 53 0D 20 20 | JMP TRACKPOS. | 00000480: 20 20 20 20 20 20 20 20 4A 4D 50 20 54 45 53 54 | JMP TEST| 00000490: 0D 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 43 |. JMP C| 000004A0: 41 43 48 45 44 49 52 0D 20 20 20 20 20 20 20 20 |ACHEDIR. | 000004B0: 20 20 4A 4D 50 20 46 49 4E 44 44 49 52 0D 0D 2D | JMP FINDDIR..-| 000004C0: 45 52 52 4F 52 20 20 20 20 53 45 43 0D 20 20 20 |ERROR SEC. | 000004D0: 20 20 20 20 20 20 20 52 54 53 0D 3B 41 4C 4C 45 | RTS.;ALLE| 000004E0: 20 36 34 20 42 59 54 45 20 46 49 4E 44 45 54 20 | 64 BYTE FINDET | 000004F0: 53 49 43 48 20 57 41 53 20 56 4F 4E 20 44 45 52 |SICH WAS VON DER| 00000500: 20 20 0D 3B 52 44 54 41 42 2E 20 45 54 57 41 53 | .;RDTAB. ETWAS| 00000510: 20 55 4E 55 45 42 45 52 53 49 43 48 54 4C 49 43 | UNUEBERSICHTLIC| 00000520: 48 2E 2E 20 20 20 20 20 20 20 0D 2B 52 44 54 41 |H.. .+RDTA| 00000530: 42 20 20 20 2E 42 20 32 35 35 2C 32 35 35 2C 32 |B .B 255,255,2| 00000540: 35 35 2C 32 35 35 0D 0D 3B 60 60 60 60 20 53 45 |55,255..;```` SE| 00000550: 4E 44 45 54 20 58 52 45 47 20 5A 55 52 20 46 4C |NDET XREG ZUR FL| 00000560: 4F 50 50 59 20 60 60 60 60 60 60 60 60 60 60 0D |OPPY ``````````.| 00000570: 3B 60 60 60 60 20 45 52 47 3A 20 43 3D 30 2C 5A |;```` ERG: C=0,Z| 00000580: 3D 30 2C 41 3D 30 2C 59 3D 38 2C 58 3D 55 4E 56 |=0,A=0,Y=8,X=UNV| 00000590: 2E 20 20 20 20 20 20 0D 2B 53 45 4E 44 0D 20 20 |. .+SEND. | 000005A0: 20 20 20 20 20 20 20 20 42 49 54 20 24 44 44 30 | BIT $DD0| 000005B0: 30 0D 20 20 20 20 20 20 20 20 20 20 42 4D 49 20 |0. BMI | 000005C0: 53 45 4E 44 20 20 3B 20 4F 44 45 52 20 42 4D 49 |SEND ; ODER BMI| 000005D0: 20 45 52 52 4F 52 0D 20 20 20 20 20 20 20 20 20 | ERROR. | 000005E0: 20 42 56 53 20 53 45 4E 44 20 20 3B 20 20 20 20 | BVS SEND ; | 000005F0: 20 20 42 56 53 20 45 52 52 4F 52 0D 0D 20 20 20 | BVS ERROR.. | 00000600: 20 20 20 20 20 20 20 4C 44 59 23 38 0D 20 20 20 | LDY#8. | 00000610: 20 20 20 20 20 20 20 53 54 59 20 24 44 44 30 30 | STY $DD00| 00000620: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 53 |. LDA S| 00000630: 45 4E 44 54 41 42 2C 58 0D 20 20 20 20 20 20 20 |ENDTAB,X. | 00000640: 20 20 20 41 4E 44 23 32 34 30 0D 20 20 20 20 20 | AND#240. | 00000650: 20 20 20 20 20 53 54 41 20 24 44 44 30 30 0D 20 | STA $DD00. | 00000660: 20 20 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 | LSR. | 00000670: 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 | LSR. | 00000680: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 00000690: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. | 000006A0: 20 41 4E 44 23 32 34 30 0D 20 20 20 20 20 20 20 | AND#240. | 000006B0: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. | 000006C0: 20 53 54 59 20 24 44 44 30 30 0D 20 20 20 20 20 | STY $DD00. | 000006D0: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 000006E0: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. | 000006F0: 20 53 54 41 20 24 44 44 30 30 0D 20 20 20 20 20 | STA $DD00. | 00000700: 20 20 20 20 20 4C 44 41 20 53 45 4E 44 54 41 42 | LDA SENDTAB| 00000710: 2C 58 0D 20 20 20 20 20 20 20 20 20 20 41 53 4C |,X. ASL| 00000720: 0D 20 20 20 20 20 20 20 20 20 20 41 53 4C 0D 20 |. ASL. | 00000730: 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 | NOP. | 00000740: 20 20 20 20 20 20 20 53 54 59 20 24 44 44 30 30 | STY $DD00| 00000750: 0D 20 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 |. NOP. | 00000760: 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 | NOP. | 00000770: 20 20 20 20 20 20 20 53 54 41 20 24 44 44 30 30 | STA $DD00| 00000780: 0D 20 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 |. CLC. | 00000790: 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 | NOP. | 000007A0: 20 20 20 20 20 20 20 4C 44 41 23 30 0D 20 20 20 | LDA#0. | 000007B0: 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 | NOP. | 000007C0: 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 | NOP. | 000007D0: 20 20 20 53 54 41 20 24 44 44 30 30 0D 20 20 20 | STA $DD00. | 000007E0: 20 20 20 20 20 20 20 52 54 53 0D 0D 20 20 20 20 | RTS.. | 000007F0: 20 20 20 20 20 2E 46 49 4C 4C 20 28 52 44 54 41 | .FILL (RDTA| 00000800: 42 2B 36 34 2D 2A 2C 30 29 0D 2D 52 44 54 41 42 |B+64-*,0).-RDTAB| 00000810: 32 20 20 2E 42 20 31 39 31 2C 31 39 31 2C 31 39 |2 .B 191,191,19| 00000820: 31 2C 31 39 31 0D 0D 3B 60 60 60 60 20 48 49 4C |1,191..;```` HIL| 00000830: 46 54 20 42 45 49 4D 20 54 45 53 54 45 4E 20 44 |FT BEIM TESTEN D| 00000840: 45 53 20 49 4E 54 45 52 4C 45 41 56 45 53 0D 3B |ES INTERLEAVES.;| 00000850: 20 20 20 20 46 55 45 52 20 42 45 52 45 49 43 48 | FUER BEREICH| 00000860: 20 58 52 45 47 20 55 4E 44 20 49 4C 56 20 59 52 | XREG UND ILV YR| 00000870: 45 47 20 20 20 20 0D 2B 54 45 53 54 20 20 20 20 |EG .+TEST | 00000880: 20 4C 44 41 20 54 52 54 41 42 2C 58 0D 20 20 20 | LDA TRTAB,X. | 00000890: 20 20 20 20 20 20 20 53 54 41 20 54 53 32 2B 31 | STA TS2+1| 000008A0: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 4D |. LDA M| 000008B0: 58 54 41 42 2C 58 0D 20 20 20 20 20 20 20 20 20 |XTAB,X. | 000008C0: 20 53 54 41 20 4D 58 0D 20 20 20 20 20 20 20 20 | STA MX. | 000008D0: 20 20 53 54 59 20 49 4C 56 2B 31 0D 20 20 20 20 | STY ILV+1. | 000008E0: 20 20 20 20 20 20 4C 44 41 23 30 0D 20 20 20 20 | LDA#0. | 000008F0: 20 20 20 20 20 20 53 54 41 20 53 45 43 54 0D 2D | STA SECT.-| 00000900: 54 53 32 20 20 20 20 20 20 4C 44 58 23 31 32 33 |TS2 LDX#123| 00000910: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 53 |. LDY S| 00000920: 45 43 54 0D 20 20 20 20 20 20 20 20 20 20 4A 53 |ECT. JS| 00000930: 52 20 53 45 54 54 52 53 0D 2D 49 4C 56 20 20 20 |R SETTRS.-ILV | 00000940: 20 20 20 4C 44 41 23 34 20 20 20 20 20 3B 49 4E | LDA#4 ;IN| 00000950: 54 45 52 4C 45 41 56 45 0D 20 20 20 20 20 20 20 |TERLEAVE. | 00000960: 20 20 20 41 44 43 20 53 45 43 54 0D 2D 54 53 33 | ADC SECT.-TS3| 00000970: 20 20 20 20 20 20 43 4D 50 20 4D 58 20 20 20 20 | CMP MX | 00000980: 3B 41 4E 5A 41 48 4C 20 53 45 4B 54 4F 52 45 4E |;ANZAHL SEKTOREN| 00000990: 0D 20 20 20 20 20 20 20 20 20 20 42 43 43 20 54 |. BCC T| 000009A0: 53 34 0D 20 20 20 20 20 20 20 20 20 20 53 42 43 |S4. SBC| 000009B0: 20 4D 58 0D 2D 54 53 34 20 20 20 20 20 20 53 54 | MX.-TS4 ST| 000009C0: 41 20 53 45 43 54 0D 20 20 20 20 20 20 20 20 20 |A SECT. | 000009D0: 20 4A 53 52 20 52 45 41 44 0D 20 20 20 20 20 20 | JSR READ. | 000009E0: 20 20 20 20 49 4E 43 20 35 33 32 38 30 0D 20 20 | INC 53280. | 000009F0: 20 20 20 20 20 20 20 20 49 4E 43 20 32 30 32 33 | INC 2023| 00000A00: 0D 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 54 |. BNE T| 00000A10: 53 32 0D 20 20 20 20 20 20 20 20 20 20 52 54 53 |S2. RTS| 00000A20: 0D 2D 54 52 54 41 42 20 20 20 2E 42 20 33 31 2C |.-TRTAB .B 31,| 00000A30: 32 35 2C 31 38 2C 31 37 0D 20 20 20 20 20 20 20 |25,18,17. | 00000A40: 20 20 2E 46 49 4C 4C 20 28 52 44 54 41 42 2B 31 | .FILL (RDTAB+1| 00000A50: 32 38 2D 2A 2C 30 29 0D 2D 52 44 54 41 42 33 20 |28-*,0).-RDTAB3 | 00000A60: 20 2E 42 20 31 32 37 2C 31 32 37 2C 31 32 37 2C | .B 127,127,127,| 00000A70: 31 32 37 0D 2D 4D 58 54 41 42 20 20 20 2E 42 20 |127.-MXTAB .B | 00000A80: 31 37 2C 31 38 2C 31 39 2C 32 31 0D 2D 53 45 43 |17,18,19,21.-SEC| 00000A90: 54 20 20 20 20 2E 42 20 30 0D 2D 4D 58 20 20 20 |T .B 0.-MX | 00000AA0: 20 20 20 2E 42 20 30 0D 0D 60 60 60 60 60 20 4C | .B 0..````` L| 00000AB0: 41 44 45 52 20 41 55 53 53 43 48 41 4C 54 45 4E |ADER AUSSCHALTEN| 00000AC0: 20 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 | ```````````````| 00000AD0: 0D 2B 52 45 53 45 54 20 20 20 20 4C 44 58 23 30 |.+RESET LDX#0| 00000AE0: 0D 20 20 20 20 20 20 20 20 20 20 4A 4D 50 20 53 |. JMP S| 00000AF0: 45 4E 44 0D 2B 47 45 54 42 59 54 45 0D 20 20 20 |END.+GETBYTE. | 00000B00: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 00000B10: 20 20 20 20 20 4C 44 41 20 52 45 41 44 50 55 46 | LDA READPUF| 00000B20: 2C 58 0D 20 20 20 20 20 20 20 20 20 20 43 50 58 |,X. CPX| 00000B30: 20 42 4C 4F 43 4B 4D 41 58 0D 20 20 20 20 20 20 | BLOCKMAX. | 00000B40: 20 20 20 20 42 45 51 20 47 42 32 0D 20 20 20 20 | BEQ GB2. | 00000B50: 20 20 20 20 20 20 52 54 53 0D 2D 47 42 32 20 20 | RTS.-GB2 | 00000B60: 20 20 20 20 4C 44 41 20 46 45 52 54 49 47 0D 20 | LDA FERTIG. | 00000B70: 20 20 20 20 20 20 20 20 20 42 45 51 20 47 42 32 | BEQ GB2| 00000B80: 2D 31 0D 20 20 20 20 20 20 20 20 20 20 53 54 59 |-1. STY| 00000B90: 20 49 4E 44 45 58 4D 45 52 4B 0D 20 20 20 20 20 | INDEXMERK. | 00000BA0: 20 20 20 20 20 4A 53 52 20 52 45 41 44 0D 20 20 | JSR READ. | 00000BB0: 20 20 20 20 20 20 20 20 4C 44 59 20 52 45 41 44 | LDY READ| 00000BC0: 50 55 46 2B 31 0D 20 20 20 20 20 20 20 20 20 20 |PUF+1. | 00000BD0: 4C 44 58 20 52 45 41 44 50 55 46 0D 20 20 20 20 |LDX READPUF. | 00000BE0: 20 20 20 20 20 20 42 4E 45 20 4D 45 48 52 42 4C | BNE MEHRBL| 00000BF0: 4F 43 4B 0D 20 20 20 20 20 20 20 20 20 20 49 4E |OCK. IN| 00000C00: 59 0D 20 20 20 20 20 20 20 20 20 20 53 54 59 20 |Y. STY | 00000C10: 42 4C 4F 43 4B 4D 41 58 0D 20 20 20 20 20 20 20 |BLOCKMAX. | 00000C20: 20 20 20 53 54 58 20 46 45 52 54 49 47 0D 20 20 | STX FERTIG. | 00000C30: 20 20 20 20 20 20 20 20 4C 44 59 20 49 4E 44 45 | LDY INDE| 00000C40: 58 4D 45 52 4B 0D 20 20 20 20 20 20 20 20 20 20 |XMERK. | 00000C50: 49 4E 58 0D 20 20 20 20 20 20 20 20 20 20 42 4E |INX. BN| 00000C60: 45 20 47 45 54 42 59 54 45 0D 0D 20 20 20 20 20 |E GETBYTE.. | 00000C70: 20 20 20 20 2E 46 49 4C 4C 20 28 52 44 54 41 42 | .FILL (RDTAB| 00000C80: 2B 31 39 32 2D 2A 2C 30 29 0D 2D 52 44 54 41 42 |+192-*,0).-RDTAB| 00000C90: 34 20 20 2E 42 20 36 33 2C 36 33 2C 36 33 2C 36 |4 .B 63,63,63,6| 00000CA0: 33 0D 0D 2D 4D 45 48 52 42 4C 4F 43 4B 0D 20 20 |3..-MEHRBLOCK. | 00000CB0: 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 54 54 | JSR SETT| 00000CC0: 52 53 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 |RS. LDY| 00000CD0: 20 49 4E 44 45 58 4D 45 52 4B 0D 20 20 20 20 20 | INDEXMERK. | 00000CE0: 20 20 20 20 20 4C 44 58 23 31 0D 20 20 20 20 20 | LDX#1. | 00000CF0: 20 20 20 20 20 42 4E 45 20 47 45 54 42 59 54 45 | BNE GETBYTE| 00000D00: 0D 0D 2D 46 45 52 54 49 47 20 20 20 20 2E 42 20 |..-FERTIG .B | 00000D10: 30 0D 2D 42 4C 4F 43 4B 4D 41 58 20 20 2E 42 20 |0.-BLOCKMAX .B | 00000D20: 30 0D 2D 49 4E 44 45 58 4D 45 52 4B 20 2E 42 20 |0.-INDEXMERK .B | 00000D30: 30 0D 60 60 60 60 60 20 4C 41 45 44 54 20 45 49 |0.````` LAEDT EI| 00000D40: 4E 45 20 44 41 54 45 49 20 41 42 20 54 52 41 43 |NE DATEI AB TRAC| 00000D50: 4B 20 28 58 52 45 47 29 20 0D 20 20 20 20 20 20 |K (XREG) . | 00000D60: 55 4E 44 20 53 45 4B 54 4F 52 20 28 59 52 45 47 |UND SEKTOR (YREG| 00000D70: 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |) | 00000D80: 20 0D 2B 4C 4F 41 44 0D 20 20 20 20 20 20 20 20 | .+LOAD. | 00000D90: 20 20 4A 53 52 20 53 45 54 54 52 53 0D 20 20 20 | JSR SETTRS. | 00000DA0: 20 20 20 20 20 20 20 4C 44 58 23 31 0D 20 20 20 | LDX#1. | 00000DB0: 20 20 20 20 20 20 20 53 54 58 20 46 45 52 54 49 | STX FERTI| 00000DC0: 47 0D 20 20 20 20 20 20 20 20 20 20 44 45 58 0D |G. DEX.| 00000DD0: 20 20 20 20 20 20 20 20 20 20 53 54 58 20 42 4C | STX BL| 00000DE0: 4F 43 4B 4D 41 58 0D 20 20 20 20 20 20 20 20 20 |OCKMAX. | 00000DF0: 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 20 4A | DEX. J| 00000E00: 53 52 20 47 45 54 42 59 54 45 0D 20 20 20 20 20 |SR GETBYTE. | 00000E10: 20 20 20 20 20 53 54 41 20 34 35 0D 20 20 20 20 | STA 45. | 00000E20: 20 20 20 20 20 20 4A 53 52 20 47 45 54 42 59 54 | JSR GETBYT| 00000E30: 45 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |E. STA | 00000E40: 34 36 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 |46. LDY| 00000E50: 23 30 0D 2D 4C 4F 41 44 31 20 20 20 20 4A 53 52 |#0.-LOAD1 JSR| 00000E60: 20 47 45 54 42 59 54 45 0D 20 20 20 20 20 20 20 | GETBYTE. | 00000E70: 20 20 20 42 45 51 20 4C 4F 41 44 32 0D 20 20 20 | BEQ LOAD2. | 00000E80: 20 20 20 20 20 20 20 53 54 41 20 28 34 35 29 2C | STA (45),| 00000E90: 59 0D 20 20 20 20 20 20 20 20 20 20 49 4E 59 0D |Y. INY.| 00000EA0: 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 4C 4F | BNE LO| 00000EB0: 41 44 31 0D 20 20 20 20 20 20 20 20 20 20 49 4E |AD1. IN| 00000EC0: 43 20 34 36 0D 20 20 20 20 20 20 20 20 20 20 42 |C 46. B| 00000ED0: 4E 45 20 4C 4F 41 44 31 0D 2D 4C 4F 41 44 32 0D |NE LOAD1.-LOAD2.| 00000EE0: 20 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 20 | INY. | 00000EF0: 20 20 20 20 20 20 20 20 42 4E 45 20 4C 44 33 0D | BNE LD3.| 00000F00: 20 20 20 20 20 20 20 20 20 20 49 4E 43 20 34 36 | INC 46| 00000F10: 0D 2D 4C 44 33 20 20 20 20 20 20 53 54 59 20 34 |.-LD3 STY 4| 00000F20: 35 0D 20 20 20 20 20 20 20 20 20 20 52 54 53 0D |5. RTS.| 00000F30: 60 60 60 60 60 20 4D 4F 54 4F 52 20 41 55 53 53 |````` MOTOR AUSS| 00000F40: 43 48 41 4C 54 45 4E 20 60 60 60 60 60 60 60 60 |CHALTEN ````````| 00000F50: 60 60 60 60 60 60 60 0D 2B 4D 4F 54 4F 52 4F 46 |```````.+MOTOROF| 00000F60: 46 20 4C 44 58 23 36 32 0D 20 20 20 20 20 20 20 |F LDX#62. | 00000F70: 20 20 20 4A 4D 50 20 53 45 4E 44 0D 0D 60 60 60 | JMP SEND..```| 00000F80: 60 60 20 4D 4F 54 4F 52 20 45 49 4E 53 43 48 41 |`` MOTOR EINSCHA| 00000F90: 4C 54 45 4E 2C 20 50 4F 53 49 54 49 4F 4E 49 45 |LTEN, POSITIONIE| 00000FA0: 52 45 4E 20 0D 20 20 20 20 20 20 58 52 45 47 3D |REN . XREG=| 00000FB0: 54 52 41 43 4B 4E 55 4D 4D 45 52 20 20 20 20 20 |TRACKNUMMER | 00000FC0: 20 20 20 20 20 20 20 20 20 20 20 20 0D 2B 54 52 | .+TR| 00000FD0: 41 43 4B 50 4F 53 20 53 54 58 20 4C 41 44 45 32 |ACKPOS STX LADE2| 00000FE0: 2B 31 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 |+1. LDA| 00000FF0: 23 36 33 0D 20 20 20 20 20 20 20 20 20 20 4A 4D |#63. JM| 00001000: 50 20 4C 41 44 45 33 0D 3B 60 60 60 60 20 55 45 |P LADE3.;```` UE| 00001010: 42 45 52 4D 49 54 54 45 4C 54 20 54 52 41 43 4B |BERMITTELT TRACK| 00001020: 20 28 58 52 45 47 29 20 55 4E 44 20 20 20 20 0D | (XREG) UND .| 00001030: 3B 20 20 20 20 20 53 45 4B 54 4F 52 20 28 59 52 |; SEKTOR (YR| 00001040: 45 47 29 20 20 20 20 20 20 20 20 20 20 20 20 20 |EG) | 00001050: 20 20 20 20 20 20 20 0D 2B 53 45 54 54 52 53 20 | .+SETTRS | 00001060: 20 20 53 54 59 20 4C 41 44 45 32 2B 31 0D 2D 4C | STY LADE2+1.-L| 00001070: 41 44 45 33 20 20 20 20 4A 53 52 20 53 45 4E 44 |ADE3 JSR SEND| 00001080: 0D 2D 4C 41 44 45 32 20 20 20 20 4C 44 58 23 30 |.-LADE2 LDX#0| 00001090: 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 |. JSR S| 000010A0: 45 4E 44 0D 20 20 20 20 20 20 20 20 20 20 52 54 |END. RT| 000010B0: 53 0D 0D 2B 53 45 4E 44 54 41 42 0D 20 20 20 20 |S..+SENDTAB. | 000010C0: 20 20 20 20 20 2E 42 20 25 30 30 30 30 30 30 30 | .B %0000000| 000010D0: 30 2C 25 30 30 30 30 31 30 30 30 0D 20 20 20 20 |0,%00001000. | 000010E0: 20 20 20 20 20 2E 42 20 25 31 30 30 30 30 30 30 | .B %1000000| 000010F0: 30 2C 25 31 30 30 30 31 30 30 30 0D 20 20 20 20 |0,%10001000. | 00001100: 20 20 20 20 20 2E 42 20 25 30 30 30 30 30 31 30 | .B %0000010| 00001110: 30 2C 25 30 30 30 30 31 31 30 30 0D 20 20 20 20 |0,%00001100. | 00001120: 20 20 20 20 20 2E 42 20 25 31 30 30 30 30 31 30 | .B %1000010| 00001130: 30 2C 25 31 30 30 30 31 31 30 30 0D 20 20 20 20 |0,%10001100. | 00001140: 20 20 20 20 20 2E 42 20 25 30 30 31 30 30 30 30 | .B %0010000| 00001150: 30 2C 25 30 30 31 30 31 30 30 30 0D 20 20 20 20 |0,%00101000. | 00001160: 20 20 20 20 20 2E 42 20 25 31 30 31 30 30 30 30 | .B %1010000| 00001170: 30 2C 25 31 30 31 30 31 30 30 30 0D 20 20 20 20 |0,%10101000. | 00001180: 20 20 20 20 20 2E 42 20 25 30 30 31 30 30 31 30 | .B %0010010| 00001190: 30 2C 25 30 30 31 30 31 31 30 30 0D 20 20 20 20 |0,%00101100. | 000011A0: 20 20 20 20 20 2E 42 20 25 31 30 31 30 30 31 30 | .B %1010010| 000011B0: 30 2C 25 31 30 31 30 31 31 30 30 0D 0D 20 20 20 |0,%10101100.. | 000011C0: 20 20 20 20 20 20 2E 42 20 25 30 31 30 30 30 30 | .B %010000| 000011D0: 30 30 2C 25 30 31 30 30 31 30 30 30 0D 20 20 20 |00,%01001000. | 000011E0: 20 20 20 20 20 20 2E 42 20 25 31 31 30 30 30 30 | .B %110000| 000011F0: 30 30 2C 25 31 31 30 30 31 30 30 30 0D 20 20 20 |00,%11001000. | 00001200: 20 20 20 20 20 20 2E 42 20 25 30 31 30 30 30 31 | .B %010001| 00001210: 30 30 2C 25 30 31 30 30 31 31 30 30 0D 20 20 20 |00,%01001100. | 00001220: 20 20 20 20 20 20 2E 42 20 25 31 31 30 30 30 31 | .B %110001| 00001230: 30 30 2C 25 31 31 30 30 31 31 30 30 0D 20 20 20 |00,%11001100. | 00001240: 20 20 20 20 20 20 2E 42 20 25 30 31 31 30 30 30 | .B %011000| 00001250: 30 30 2C 25 30 31 31 30 31 30 30 30 0D 20 20 20 |00,%01101000. | 00001260: 20 20 20 20 20 20 2E 42 20 25 31 31 31 30 30 30 | .B %111000| 00001270: 30 30 2C 25 31 31 31 30 31 30 30 30 0D 20 20 20 |00,%11101000. | 00001280: 20 20 20 20 20 20 2E 42 20 25 30 31 31 30 30 31 | .B %011001| 00001290: 30 30 2C 25 30 31 31 30 31 31 30 30 0D 20 20 20 |00,%01101100. | 000012A0: 20 20 20 20 20 20 2E 42 20 25 31 31 31 30 30 31 | .B %111001| 000012B0: 30 30 2C 25 31 31 31 30 31 31 30 30 0D 0D 20 20 |00,%11101100.. | 000012C0: 20 20 20 20 20 20 20 2E 42 20 25 30 30 30 31 30 | .B %00010| 000012D0: 30 30 30 2C 25 30 30 30 31 31 30 30 30 0D 20 20 |000,%00011000. | 000012E0: 20 20 20 20 20 20 20 2E 42 20 25 31 30 30 31 30 | .B %10010| 000012F0: 30 30 30 2C 25 31 30 30 31 31 30 30 30 0D 20 20 |000,%10011000. | 00001300: 20 20 20 20 20 20 20 2E 42 20 25 30 30 30 31 30 | .B %00010| 00001310: 31 30 30 2C 25 30 30 30 31 31 31 30 30 0D 20 20 |100,%00011100. | 00001320: 20 20 20 20 20 20 20 2E 42 20 25 31 30 30 31 30 | .B %10010| 00001330: 31 30 30 2C 25 31 30 30 31 31 31 30 30 0D 20 20 |100,%10011100. | 00001340: 20 20 20 20 20 20 20 2E 42 20 25 30 30 31 31 30 | .B %00110| 00001350: 30 30 30 2C 25 30 30 31 31 31 30 30 30 0D 20 20 |000,%00111000. | 00001360: 20 20 20 20 20 20 20 2E 42 20 25 31 30 31 31 30 | .B %10110| 00001370: 30 30 30 2C 25 31 30 31 31 31 30 30 30 0D 20 20 |000,%10111000. | 00001380: 20 20 20 20 20 20 20 2E 42 20 25 30 30 31 31 30 | .B %00110| 00001390: 31 30 30 2C 25 30 30 31 31 31 31 30 30 0D 20 20 |100,%00111100. | 000013A0: 20 20 20 20 20 20 20 2E 42 20 25 31 30 31 31 30 | .B %10110| 000013B0: 31 30 30 2C 25 31 30 31 31 31 31 30 30 0D 0D 20 |100,%10111100.. | 000013C0: 20 20 20 20 20 20 20 20 2E 42 20 25 30 31 30 31 | .B %0101| 000013D0: 30 30 30 30 2C 25 30 31 30 31 31 30 30 30 0D 20 |0000,%01011000. | 000013E0: 20 20 20 20 20 20 20 20 2E 42 20 25 31 31 30 31 | .B %1101| 000013F0: 30 30 30 30 2C 25 31 31 30 31 31 30 30 30 0D 20 |0000,%11011000. | 00001400: 20 20 20 20 20 20 20 20 2E 42 20 25 30 31 30 31 | .B %0101| 00001410: 30 31 30 30 2C 25 30 31 30 31 31 31 30 30 0D 20 |0100,%01011100. | 00001420: 20 20 20 20 20 20 20 20 2E 42 20 25 31 31 30 31 | .B %1101| 00001430: 30 31 30 30 2C 25 31 31 30 31 31 31 30 30 0D 20 |0100,%11011100. | 00001440: 20 20 20 20 20 20 20 20 2E 42 20 25 30 31 31 31 | .B %0111| 00001450: 30 30 30 30 2C 25 30 31 31 31 31 30 30 30 0D 20 |0000,%01111000. | 00001460: 20 20 20 20 20 20 20 20 2E 42 20 25 31 31 31 31 | .B %1111| 00001470: 30 30 30 30 2C 25 31 31 31 31 31 30 30 30 0D 20 |0000,%11111000. | 00001480: 20 20 20 20 20 20 20 20 2E 42 20 25 30 31 31 31 | .B %0111| 00001490: 30 31 30 30 2C 25 30 31 31 31 31 31 30 30 0D 20 |0100,%01111100. | 000014A0: 20 20 20 20 20 20 20 20 2E 42 20 25 31 31 31 31 | .B %1111| 000014B0: 30 31 30 30 2C 25 31 31 31 31 31 31 30 30 0D 0D |0100,%11111100..| 000014C0: 2D 52 45 52 52 4F 52 20 20 20 53 45 43 0D 20 20 |-RERROR SEC. | 000014D0: 20 20 20 20 20 20 20 20 52 54 53 0D 60 60 60 60 | RTS.````| 000014E0: 60 20 4C 49 45 53 54 20 45 49 4E 45 4E 20 42 4C |` LIEST EINEN BL| 000014F0: 4F 43 4B 20 49 4E 20 44 45 4E 20 50 55 46 46 45 |OCK IN DEN PUFFE| 00001500: 52 20 20 0D 20 20 20 20 20 20 52 45 41 44 50 55 |R . READPU| 00001510: 46 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |F1 | 00001520: 20 20 20 20 20 20 20 20 20 20 20 0D 60 60 60 60 | .````| 00001530: 60 20 45 52 47 3A 20 43 3D 30 2C 5A 3D 30 2C 58 |` ERG: C=0,Z=0,X| 00001540: 3D 30 2C 41 3D 30 2C 59 3D 38 20 20 20 20 20 20 |=0,A=0,Y=8 | 00001550: 20 20 20 0D 2B 52 45 41 44 20 20 20 20 20 42 49 | .+READ BI| 00001560: 54 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 20 |T $DD00. | 00001570: 20 20 42 4D 49 20 52 45 41 44 20 20 3B 20 4F 44 | BMI READ ; OD| 00001580: 45 52 20 42 4D 49 20 52 45 52 52 4F 52 0D 20 20 |ER BMI RERROR. | 00001590: 20 20 20 20 20 20 20 20 42 56 43 20 52 45 41 44 | BVC READ| 000015A0: 20 20 3B 20 4F 44 45 52 20 42 56 43 20 52 45 52 | ; ODER BVC RER| 000015B0: 52 4F 52 0D 0D 20 20 20 20 20 20 20 20 20 20 4C |ROR.. L| 000015C0: 44 58 23 30 20 20 20 20 20 20 20 20 3B 57 45 52 |DX#0 ;WER| 000015D0: 54 20 46 55 45 52 20 41 54 4E 3D 30 0D 20 20 20 |T FUER ATN=0. | 000015E0: 20 20 20 20 20 20 20 4C 44 59 23 31 32 38 0D 20 | LDY#128. | 000015F0: 20 20 20 20 20 20 20 20 20 53 54 59 20 49 4E 43 | STY INC| 00001600: 52 2B 31 0D 0D 20 20 20 20 20 20 20 20 20 20 4C |R+1.. L| 00001610: 44 59 23 38 20 20 20 20 20 20 20 20 3B 57 45 52 |DY#8 ;WER| 00001620: 54 20 46 55 45 52 20 41 54 4E 3D 31 0D 20 20 20 |T FUER ATN=1. | 00001630: 20 20 20 20 20 20 20 53 54 59 20 24 44 44 30 30 | STY $DD00| 00001640: 0D 20 20 20 20 20 20 20 20 20 20 53 54 58 20 49 |. STX I| 00001650: 4E 43 52 2B 31 0D 2D 52 45 31 20 20 20 20 20 20 |NCR+1.-RE1 | 00001660: 53 54 58 20 24 44 44 30 30 0D 20 20 20 20 20 20 |STX $DD00. | 00001670: 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 | NOP. | 00001680: 20 20 4C 44 41 20 24 44 44 30 30 20 20 20 20 3B | LDA $DD00 ;| 00001690: 45 4F 52 20 24 44 44 30 30 20 41 55 53 2E 0D 0D |EOR $DD00 AUS...| 000016A0: 20 20 20 20 20 20 20 20 20 20 53 54 59 20 24 44 | STY $D| 000016B0: 44 30 30 0D 20 20 20 20 20 20 20 20 20 20 49 4E |D00. IN| 000016C0: 43 20 49 4E 43 52 2B 31 0D 20 20 20 20 20 20 20 |C INCR+1. | 000016D0: 20 20 20 53 54 58 20 24 44 44 30 30 0D 20 20 20 | STX $DD00. | 000016E0: 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 | LSR. | 000016F0: 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 20 20 | LSR. | 00001700: 20 20 20 45 4F 52 20 24 44 44 30 30 0D 0D 20 20 | EOR $DD00.. | 00001710: 20 20 20 20 20 20 20 20 53 54 59 20 24 44 44 30 | STY $DD0| 00001720: 30 0D 20 20 20 20 20 20 20 20 20 20 4C 53 52 0D |0. LSR.| 00001730: 20 20 20 20 20 20 20 20 20 20 4C 53 52 0D 20 20 | LSR. | 00001740: 20 20 20 20 20 20 20 20 53 54 58 20 24 44 44 30 | STX $DD0| 00001750: 30 0D 20 20 20 20 20 20 20 20 20 20 4E 4F 50 0D |0. NOP.| 00001760: 20 20 20 20 20 20 20 20 20 20 45 4F 52 20 24 44 | EOR $D| 00001770: 44 30 30 0D 0D 20 20 20 20 20 20 20 20 20 20 53 |D00.. S| 00001780: 54 59 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 |TY $DD00. | 00001790: 20 20 20 4C 53 52 0D 20 20 20 20 20 20 20 20 20 | LSR. | 000017A0: 20 4C 53 52 0D 20 20 20 20 20 20 20 20 20 20 53 | LSR. S| 000017B0: 54 58 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 |TX $DD00. | 000017C0: 20 20 20 4E 4F 50 0D 20 20 20 20 20 20 20 20 20 | NOP. | 000017D0: 20 4C 44 58 20 24 44 44 30 30 0D 20 20 20 20 20 | LDX $DD00. | 000017E0: 20 20 20 20 20 45 4F 52 20 52 44 54 41 42 2C 58 | EOR RDTAB,X| 000017F0: 20 20 3B 44 49 45 20 32 20 55 4E 54 45 52 45 4E | ;DIE 2 UNTEREN| 00001800: 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. | 00001810: 20 20 20 20 20 20 20 20 3B 42 49 54 53 20 56 4F | ;BITS VO| 00001820: 4E 20 24 44 44 30 30 0D 20 20 20 20 20 20 20 20 |N $DD00. | 00001830: 20 20 53 54 59 20 24 44 44 30 30 20 20 20 20 3B | STY $DD00 ;| 00001840: 45 4E 54 48 41 4C 54 45 4E 20 4D 55 45 4C 4C 0D |ENTHALTEN MUELL.| 00001850: 2B 49 4E 43 52 20 20 20 20 20 53 54 41 20 52 45 |+INCR STA RE| 00001860: 41 44 50 55 46 20 20 3B 41 55 53 20 24 44 44 30 |ADPUF ;AUS $DD0| 00001870: 32 2C 20 44 45 52 0D 20 20 20 20 20 20 20 20 20 |2, DER. | 00001880: 20 4C 44 58 23 30 20 20 20 20 20 20 20 20 3B 55 | LDX#0 ;U| 00001890: 4E 42 45 4B 41 4E 4E 54 20 49 53 54 2C 0D 20 20 |NBEKANNT IST,. | 000018A0: 20 20 20 20 20 20 20 20 4C 44 41 20 49 4E 43 52 | LDA INCR| 000018B0: 2B 31 20 20 20 3B 44 41 48 45 52 20 53 43 48 45 |+1 ;DAHER SCHE| 000018C0: 49 44 45 54 0D 20 20 20 20 20 20 20 20 20 20 42 |IDET. B| 000018D0: 4E 45 20 52 45 31 20 20 20 20 20 20 3B 45 49 4E |NE RE1 ;EIN| 000018E0: 20 53 49 4D 50 4C 45 53 0D 20 20 20 20 20 20 20 | SIMPLES. | 000018F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001900: 3B 45 4F 52 20 24 44 44 30 30 20 41 55 53 0D 20 |;EOR $DD00 AUS. | 00001910: 20 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 | NOP. | 00001920: 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 20 | NOP. | 00001930: 20 20 20 20 20 53 54 58 20 24 44 44 30 30 0D 20 | STX $DD00. | 00001940: 20 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 | CLC. | 00001950: 20 20 20 20 20 20 20 52 54 53 0D 0D 60 60 60 60 | RTS..````| 00001960: 60 20 49 4E 53 54 41 4C 4C 49 45 52 54 20 44 41 |` INSTALLIERT DA| 00001970: 53 20 53 59 53 54 45 4D 20 20 20 20 20 20 20 20 |S SYSTEM | 00001980: 20 20 20 0D 2B 49 4E 53 54 41 4C 4C 20 20 4C 44 | .+INSTALL LD| 00001990: 41 23 3E 50 55 46 46 45 52 0D 20 20 20 20 20 20 |A#>PUFFER. | 000019A0: 20 20 20 20 4C 44 58 23 3E 46 4C 4F 50 53 54 41 | LDX#>FLOPSTA| 000019B0: 52 54 0D 20 20 20 20 20 20 20 20 20 20 53 54 58 |RT. STX| 000019C0: 20 48 49 2B 31 0D 20 20 20 20 20 20 20 20 20 20 | HI+1. | 000019D0: 53 54 41 20 54 52 31 2B 32 0D 20 20 20 20 20 20 |STA TR1+2. | 000019E0: 20 20 20 20 4C 44 59 23 30 0D 2B 53 59 53 54 45 | LDY#0.+SYSTE| 000019F0: 4D 20 20 20 53 45 49 0D 20 20 20 20 20 20 20 20 |M SEI. | 00001A00: 20 20 4C 44 41 23 38 0D 20 20 20 20 20 20 20 20 | LDA#8. | 00001A10: 20 20 4A 53 52 20 4C 49 53 54 45 4E 0D 20 20 20 | JSR LISTEN. | 00001A20: 20 20 20 20 20 20 20 4C 44 41 23 24 36 46 0D 20 | LDA#$6F. | 00001A30: 20 20 20 20 20 20 20 20 20 4A 53 52 20 53 45 43 | JSR SEC| 00001A40: 4C 53 54 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |LST. LD| 00001A50: 41 23 22 4D 22 0D 20 20 20 20 20 20 20 20 20 20 |A#"M". | 00001A60: 4A 53 52 20 49 45 43 4F 55 54 0D 20 20 20 20 20 |JSR IECOUT. | 00001A70: 20 20 20 20 20 4C 44 41 23 22 2D 22 0D 20 20 20 | LDA#"-". | 00001A80: 20 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 | JSR IECOU| 00001A90: 54 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 |T. LDA#| 00001AA0: 22 57 22 0D 20 20 20 20 20 20 20 20 20 20 4A 53 |"W". JS| 00001AB0: 52 20 49 45 43 4F 55 54 0D 20 20 20 20 20 20 20 |R IECOUT. | 00001AC0: 20 20 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 | TYA. | 00001AD0: 20 4A 53 52 20 49 45 43 4F 55 54 0D 2D 48 49 20 | JSR IECOUT.-HI | 00001AE0: 20 20 20 20 20 20 4C 44 41 23 30 0D 20 20 20 20 | LDA#0. | 00001AF0: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT| 00001B00: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 31 |. LDA#1| 00001B10: 36 0D 20 20 20 20 20 20 20 20 20 20 54 41 58 0D |6. TAX.| 00001B20: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 49 45 | JSR IE| 00001B30: 43 4F 55 54 0D 2D 54 52 31 20 20 20 20 20 20 4C |COUT.-TR1 L| 00001B40: 44 41 20 50 55 46 46 45 52 2C 59 0D 20 20 20 20 |DA PUFFER,Y. | 00001B50: 20 20 20 20 20 20 4A 53 52 20 49 45 43 4F 55 54 | JSR IECOUT| 00001B60: 0D 20 20 20 20 20 20 20 20 20 20 49 4E 59 0D 20 |. INY. | 00001B70: 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 | DEX. | 00001B80: 20 20 20 20 20 20 20 42 4E 45 20 54 52 31 0D 20 | BNE TR1. | 00001B90: 20 20 20 20 20 20 20 20 20 4C 44 41 23 38 0D 20 | LDA#8. | 00001BA0: 20 20 20 20 20 20 20 20 20 4A 53 52 20 55 4E 4C | JSR UNL| 00001BB0: 49 53 54 0D 20 20 20 20 20 20 20 20 20 20 43 50 |IST. CP| 00001BC0: 59 23 30 0D 20 20 20 20 20 20 20 20 20 20 42 4E |Y#0. BN| 00001BD0: 45 20 53 59 53 54 45 4D 0D 20 20 20 20 20 20 20 |E SYSTEM. | 00001BE0: 20 20 20 49 4E 43 20 54 52 31 2B 32 0D 20 20 20 | INC TR1+2. | 00001BF0: 20 20 20 20 20 20 20 49 4E 43 20 48 49 2B 31 0D | INC HI+1.| 00001C00: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 48 49 | LDA HI| 00001C10: 2B 31 0D 20 20 20 20 20 20 20 20 20 20 43 4D 50 |+1. CMP| 00001C20: 23 3E 28 46 4C 4F 50 53 54 41 52 54 29 2B 33 0D |#>(FLOPSTART)+3.| 00001C30: 20 20 20 20 20 20 20 20 20 20 42 43 43 20 53 59 | BCC SY| 00001C40: 53 54 45 4D 0D 20 20 20 20 20 20 20 20 20 20 4C |STEM. L| 00001C50: 44 41 23 38 0D 20 20 20 20 20 20 20 20 20 20 4A |DA#8. J| 00001C60: 53 52 20 4C 49 53 54 45 4E 0D 20 20 20 20 20 20 |SR LISTEN. | 00001C70: 20 20 20 20 4C 44 41 23 24 36 46 0D 20 20 20 20 | LDA#$6F. | 00001C80: 20 20 20 20 20 20 4A 53 52 20 53 45 43 4C 53 54 | JSR SECLST| 00001C90: 0D 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 |.. LDA#| 00001CA0: 22 55 22 20 20 20 20 20 20 20 3B 53 54 41 52 54 |"U" ;START| 00001CB0: 20 42 45 49 0D 20 20 20 20 20 20 20 20 20 20 4A | BEI. J| 00001CC0: 53 52 20 49 45 43 4F 55 54 20 20 20 20 3B 24 30 |SR IECOUT ;$0| 00001CD0: 35 30 30 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |500. LD| 00001CE0: 41 23 22 33 22 0D 20 20 20 20 20 20 20 20 20 20 |A#"3". | 00001CF0: 4A 53 52 20 49 45 43 4F 55 54 0D 20 20 20 20 20 |JSR IECOUT. | 00001D00: 20 20 20 20 20 4A 53 52 20 55 4E 4C 49 53 54 0D | JSR UNLIST.| 00001D10: 20 20 20 20 20 20 20 20 20 20 43 4C 49 0D 20 20 | CLI. | 00001D20: 20 20 20 20 20 20 20 20 4C 44 59 23 30 0D 20 20 | LDY#0. | 00001D30: 20 20 20 20 20 20 20 20 4E 4F 50 0D 20 20 20 20 | NOP. | 00001D40: 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 20 | DEY. | 00001D50: 20 20 20 20 42 4E 45 20 2A 2D 32 0D 0D 20 20 20 | BNE *-2.. | 00001D60: 20 20 20 20 20 20 20 4C 44 41 20 24 44 44 30 30 | LDA $DD00| 00001D70: 20 20 20 20 20 3B 49 4E 49 54 20 24 44 44 30 32 | ;INIT $DD02| 00001D80: 0D 20 20 20 20 20 20 20 20 20 20 41 4E 44 23 33 |. AND#3| 00001D90: 0D 20 20 20 20 20 20 20 20 20 20 45 4F 52 23 36 |. EOR#6| 00001DA0: 33 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |3. STA | 00001DB0: 24 44 44 30 32 0D 20 20 20 20 20 20 20 20 20 20 |$DD02. | 00001DC0: 4C 44 41 23 30 0D 20 20 20 20 20 20 20 20 20 20 |LDA#0. | 00001DD0: 53 54 41 20 24 44 44 30 30 0D 20 20 20 20 20 20 |STA $DD00. | 00001DE0: 20 20 20 20 52 54 53 0D 0D 60 60 60 60 60 20 4C | RTS..````` L| 00001DF0: 49 45 53 54 20 32 20 5A 45 49 43 48 45 4E 20 44 |IEST 2 ZEICHEN D| 00001E00: 45 52 20 45 52 53 54 45 4E 20 36 34 20 20 20 20 |ER ERSTEN 64 | 00001E10: 0D 20 20 20 20 20 20 46 49 4C 45 53 20 55 4E 44 |. FILES UND| 00001E20: 20 44 49 45 20 54 52 2F 53 45 43 2D 41 44 52 45 | DIE TR/SEC-ADRE| 00001E30: 53 53 45 20 20 20 20 20 0D 20 20 20 20 20 20 45 |SSE . E| 00001E40: 52 47 3A 20 43 3D 30 20 3A 20 4F 4B 20 20 20 20 |RG: C=0 : OK | 00001E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001E60: 0D 20 20 20 20 20 20 20 20 20 20 20 43 3D 31 20 |. C=1 | 00001E70: 3E 3D 20 36 34 20 46 49 4C 45 53 20 47 45 4C 45 |>= 64 FILES GELE| 00001E80: 53 45 4E 20 20 20 20 20 0D 2B 43 41 43 48 45 44 |SEN .+CACHED| 00001E90: 49 52 0D 20 20 20 20 20 20 20 20 20 20 4C 44 58 |IR. LDX| 00001EA0: 23 31 38 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |#18. LD| 00001EB0: 59 23 30 0D 20 20 20 20 20 20 20 20 20 20 54 59 |Y#0. TY| 00001EC0: 41 0D 2D 43 44 41 20 20 20 20 20 20 53 54 41 20 |A.-CDA STA | 00001ED0: 44 49 52 50 55 46 2C 59 0D 20 20 20 20 20 20 20 |DIRPUF,Y. | 00001EE0: 20 20 20 49 4E 59 0D 20 20 20 20 20 20 20 20 20 | INY. | 00001EF0: 20 42 4E 45 20 43 44 41 0D 20 20 20 20 20 20 20 | BNE CDA. | 00001F00: 20 20 20 4C 44 59 23 36 33 0D 20 20 20 20 20 20 | LDY#63. | 00001F10: 20 20 20 20 53 54 59 20 49 4E 44 45 58 4D 45 52 | STY INDEXMER| 00001F20: 4B 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 23 |K. LDY#| 00001F30: 31 0D 2D 43 44 30 0D 20 20 20 20 20 20 20 20 20 |1.-CD0. | 00001F40: 20 4A 53 52 20 53 45 54 54 52 53 0D 20 20 20 20 | JSR SETTRS. | 00001F50: 20 20 20 20 20 20 4A 53 52 20 52 45 41 44 0D 20 | JSR READ. | 00001F60: 20 20 20 20 20 20 20 20 20 4C 44 59 23 30 0D 20 | LDY#0. | 00001F70: 20 20 20 20 20 20 20 20 20 4C 44 58 20 49 4E 44 | LDX IND| 00001F80: 45 58 4D 45 52 4B 0D 2D 43 44 31 0D 20 20 20 20 |EXMERK.-CD1. | 00001F90: 20 20 20 20 20 20 4C 44 41 20 52 45 41 44 50 55 | LDA READPU| 00001FA0: 46 2B 32 2C 59 0D 20 20 20 20 20 20 20 20 20 20 |F+2,Y. | 00001FB0: 42 50 4C 20 43 44 32 0D 20 20 20 20 20 20 20 20 |BPL CD2. | 00001FC0: 20 20 4C 44 41 20 52 45 41 44 50 55 46 2B 33 2C | LDA READPUF+3,| 00001FD0: 59 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |Y. STA | 00001FE0: 44 49 52 50 55 46 2C 58 0D 20 20 20 20 20 20 20 |DIRPUF,X. | 00001FF0: 20 20 20 4C 44 41 20 52 45 41 44 50 55 46 2B 34 | LDA READPUF+4| 00002000: 2C 59 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 |,Y. STA| 00002010: 20 44 49 52 50 55 46 2B 36 34 2C 58 0D 20 20 20 | DIRPUF+64,X. | 00002020: 20 20 20 20 20 20 20 4C 44 41 20 52 45 41 44 50 | LDA READP| 00002030: 55 46 2B 35 2C 59 0D 20 20 20 20 20 20 20 20 20 |UF+5,Y. | 00002040: 20 53 54 41 20 44 49 52 50 55 46 2B 31 32 38 2C | STA DIRPUF+128,| 00002050: 58 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |X. LDA | 00002060: 52 45 41 44 50 55 46 2B 36 2C 59 0D 20 20 20 20 |READPUF+6,Y. | 00002070: 20 20 20 20 20 20 53 54 41 20 44 49 52 50 55 46 | STA DIRPUF| 00002080: 2B 31 39 32 2C 58 0D 20 20 20 20 20 20 20 20 20 |+192,X. | 00002090: 20 44 45 58 0D 20 20 20 20 20 20 20 20 20 20 42 | DEX. B| 000020A0: 4D 49 20 43 44 33 0D 2D 43 44 32 20 20 20 20 20 |MI CD3.-CD2 | 000020B0: 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 20 43 | TYA. C| 000020C0: 4C 43 0D 20 20 20 20 20 20 20 20 20 20 41 44 43 |LC. ADC| 000020D0: 23 24 32 30 0D 20 20 20 20 20 20 20 20 20 20 54 |#$20. T| 000020E0: 41 59 0D 20 20 20 20 20 20 20 20 20 20 42 43 43 |AY. BCC| 000020F0: 20 43 44 31 0D 0D 20 20 20 20 20 20 20 20 20 20 | CD1.. | 00002100: 53 54 58 20 49 4E 44 45 58 4D 45 52 4B 0D 20 20 |STX INDEXMERK. | 00002110: 20 20 20 20 20 20 20 20 4C 44 59 20 52 45 41 44 | LDY READ| 00002120: 50 55 46 2B 31 0D 20 20 20 20 20 20 20 20 20 20 |PUF+1. | 00002130: 4C 44 58 20 52 45 41 44 50 55 46 0D 20 20 20 20 |LDX READPUF. | 00002140: 20 20 20 20 20 20 42 4E 45 20 43 44 30 0D 20 20 | BNE CD0. | 00002150: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 00002160: 20 20 20 20 20 20 52 54 53 0D 2D 43 44 33 20 20 | RTS.-CD3 | 00002170: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 | SEC. | 00002180: 20 20 52 54 53 0D 60 60 60 60 60 20 52 45 43 48 | RTS.````` RECH| 00002190: 4E 45 54 20 44 45 4E 20 32 2D 5A 45 49 43 48 45 |NET DEN 2-ZEICHE| 000021A0: 4E 2D 46 49 4C 45 4E 41 4D 45 4E 20 20 0D 20 20 |N-FILENAMEN . | 000021B0: 20 20 20 20 49 4E 20 54 52 2F 53 45 43 20 55 4D | IN TR/SEC UM| 000021C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000021D0: 20 20 20 20 20 0D 20 20 20 20 20 20 45 52 47 3A | . ERG:| 000021E0: 20 43 3D 30 20 3A 20 4F 4B 20 20 20 20 20 20 20 | C=0 : OK | 000021F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 20 20 | . | 00002200: 20 20 20 20 20 20 20 20 20 43 3D 31 20 3A 20 4E | C=1 : N| 00002210: 49 43 48 54 20 47 45 46 55 4E 44 45 4E 20 20 20 |ICHT GEFUNDEN | 00002220: 20 20 20 20 20 0D 20 20 20 20 20 20 20 20 20 20 | . | 00002230: 20 58 2F 59 20 3A 20 54 52 2F 53 45 43 20 20 20 | X/Y : TR/SEC | 00002240: 20 20 20 20 20 20 20 20 20 20 20 20 20 0D 2B 46 | .+F| 00002250: 49 4E 44 44 49 52 0D 20 20 20 20 20 20 20 20 20 |INDDIR. | 00002260: 20 53 54 59 20 49 4E 44 45 58 4D 45 52 4B 0D 20 | STY INDEXMERK. | 00002270: 20 20 20 20 20 20 20 20 20 4C 44 59 23 36 33 0D | LDY#63.| 00002280: 2D 46 4E 31 0D 20 20 20 20 20 20 20 20 20 20 4C |-FN1. L| 00002290: 44 41 20 49 4E 44 45 58 4D 45 52 4B 0D 20 20 20 |DA INDEXMERK. | 000022A0: 20 20 20 20 20 20 20 43 4D 50 20 44 49 52 50 55 | CMP DIRPU| 000022B0: 46 2B 31 39 32 2C 59 0D 20 20 20 20 20 20 20 20 |F+192,Y. | 000022C0: 20 20 42 4E 45 20 46 4E 32 0D 20 20 20 20 20 20 | BNE FN2. | 000022D0: 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 20 | TXA. | 000022E0: 20 20 43 4D 50 20 44 49 52 50 55 46 2B 31 32 38 | CMP DIRPUF+128| 000022F0: 2C 59 0D 20 20 20 20 20 20 20 20 20 20 42 4E 45 |,Y. BNE| 00002300: 20 46 4E 32 0D 20 20 20 20 20 20 20 20 20 20 4C | FN2. L| 00002310: 44 41 20 44 49 52 50 55 46 2C 59 0D 20 20 20 20 |DA DIRPUF,Y. | 00002320: 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 20 20 | TAX. | 00002330: 20 20 20 20 4C 44 41 20 44 49 52 50 55 46 2B 36 | LDA DIRPUF+6| 00002340: 34 2C 59 0D 20 20 20 20 20 20 20 20 20 20 54 41 |4,Y. TA| 00002350: 59 0D 20 20 20 20 20 20 20 20 20 20 43 4C 43 0D |Y. CLC.| 00002360: 20 20 20 20 20 20 20 20 20 20 52 54 53 0D 2D 46 | RTS.-F| 00002370: 4E 32 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 |N2 DEY. | 00002380: 20 20 20 20 20 20 42 50 4C 20 46 4E 31 0D 20 20 | BPL FN1. | 00002390: 20 20 20 20 20 20 20 20 53 45 43 0D 20 20 20 20 | SEC. | 000023A0: 20 20 20 20 20 20 52 54 53 0D 0D 20 20 20 20 20 | RTS.. | 000023B0: 20 20 20 20 2E 45 4E 44 0D 20 20 20 20 20 20 20 | .END. | 000023C0: 20 20 2E 46 49 4C 4C 20 28 32 35 36 2D 3C 2A 2C | .FILL (256-<*,| 000023D0: 30 29 0D 2B 50 55 46 46 45 52 20 20 20 3D 2A 0D |0).+PUFFER =*.| 000023E0: 0D B0 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |..``````````````| 000023F0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00002400: 60 60 60 60 60 60 60 AE 0D 7D 46 4C 4F 50 50 59 |```````..}FLOPPY| 00002410: 2D 54 45 49 4C 20 20 20 20 20 20 20 20 20 20 20 |-TEIL | 00002420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D | }| 00002430: 0D 7D 55 4E 42 45 4E 55 54 5A 54 45 20 53 50 45 |.}UNBENUTZTE SPE| 00002440: 49 43 48 45 52 42 45 52 45 49 43 48 45 3A 20 20 |ICHERBEREICHE: | 00002450: 20 20 20 20 20 20 20 7D 0D 7D 24 30 33 34 30 2D | }.}$0340-| 00002460: 24 30 34 46 46 20 20 20 20 20 20 20 20 20 20 20 |$04FF | 00002470: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 7D | }| 00002480: 0D 7D 24 32 30 2D 24 33 46 20 20 20 20 20 20 20 |.}$20-$3F | 00002490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000024A0: 20 20 20 20 20 20 20 7D 0D AD 60 60 60 60 60 60 | }..``````| 000024B0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 000024C0: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 BD |```````````````.| 000024D0: 0D 20 20 20 20 20 20 20 20 20 2E 53 45 54 50 43 |. .SETPC| 000024E0: 20 46 4C 4F 50 53 54 41 52 54 0D 20 20 20 20 20 | FLOPSTART. | 000024F0: 20 20 20 20 2E 42 55 46 46 45 52 20 28 50 55 46 | .BUFFER (PUF| 00002500: 46 45 52 2C 50 55 46 46 45 52 2B 24 32 46 46 29 |FER,PUFFER+$2FF)| 00002510: 0D 20 20 20 20 20 20 20 20 20 2E 42 45 47 49 4E |. .BEGIN| 00002520: 0D 60 60 60 60 60 20 54 41 42 45 4C 4C 45 4E 20 |.````` TABELLEN | 00002530: 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |````````````````| 00002540: 60 60 60 60 60 60 60 60 0D 2B 54 31 20 20 20 20 |````````.+T1 | 00002550: 20 20 20 3D 24 30 34 30 0D 2B 54 32 20 20 20 20 | =$040.+T2 | 00002560: 20 20 20 3D 24 30 38 30 0D 2B 54 34 20 20 20 20 | =$080.+T4 | 00002570: 20 20 20 3D 24 30 43 30 0D 2B 54 33 20 20 20 20 | =$0C0.+T3 | 00002580: 20 20 20 3D 24 32 30 30 0D 2B 54 35 20 20 20 20 | =$200.+T5 | 00002590: 20 20 20 3D 24 32 34 30 0D 2B 54 36 20 20 20 20 | =$240.+T6 | 000025A0: 20 20 20 3D 24 32 38 30 0D 2B 54 37 20 20 20 20 | =$280.+T7 | 000025B0: 20 20 20 3D 24 32 43 30 0D 2B 54 38 20 20 20 20 | =$2C0.+T8 | 000025C0: 20 20 20 3D 24 33 30 30 0D 2B 54 41 42 4C 4F 4F | =$300.+TABLOO| 000025D0: 52 47 20 20 20 20 20 20 3D 24 46 38 43 30 0D 2B |RG =$F8C0.+| 000025E0: 54 41 42 48 49 4F 52 47 20 20 20 20 20 20 3D 24 |TABHIORG =$| 000025F0: 46 38 41 30 0D 60 60 60 60 60 20 56 41 52 49 41 |F8A0.````` VARIA| 00002600: 42 4C 45 4E 20 60 60 60 60 60 60 60 60 60 60 60 |BLEN ```````````| 00002610: 60 60 60 60 60 60 60 60 60 60 60 60 0D 2B 57 55 |````````````.+WU| 00002620: 4E 53 43 48 54 52 41 43 4B 20 20 20 3D 24 30 30 |NSCHTRACK =$00| 00002630: 0D 2B 57 55 4E 53 43 48 53 45 4B 54 4F 52 20 20 |.+WUNSCHSEKTOR | 00002640: 3D 24 30 31 0D 2B 4C 41 53 54 42 59 54 45 20 20 |=$01.+LASTBYTE | 00002650: 20 20 20 20 3D 24 30 32 0D 2B 4D 4F 54 4F 52 46 | =$02.+MOTORF| 00002660: 4C 41 47 20 20 20 20 20 3D 24 30 33 0D 2B 46 4D |LAG =$03.+FM| 00002670: 45 4D 20 20 20 20 20 20 20 20 20 20 3D 24 30 34 |EM =$04| 00002680: 0D 60 60 60 60 60 20 4B 4F 4E 53 54 41 4E 54 45 |.````` KONSTANTE| 00002690: 4E 20 60 60 60 60 60 60 60 60 60 60 60 60 60 60 |N ``````````````| 000026A0: 60 60 60 60 60 60 60 60 0D 2B 53 45 4E 44 56 41 |````````.+SENDVA| 000026B0: 4C 55 45 20 20 20 20 20 3D 24 30 32 0D 2B 52 45 |LUE =$02.+RE| 000026C0: 43 45 49 56 45 56 41 4C 55 45 20 20 3D 24 30 41 |CEIVEVALUE =$0A| 000026D0: 0D 2B 42 55 53 59 56 41 4C 55 45 20 20 20 20 20 |.+BUSYVALUE | 000026E0: 3D 24 30 38 0D 2B 46 52 45 45 56 41 4C 55 45 20 |=$08.+FREEVALUE | 000026F0: 20 20 20 20 3D 24 30 30 0D 20 20 20 20 20 20 20 | =$00. | 00002700: 20 20 20 53 45 49 20 20 20 20 20 20 20 20 20 20 | SEI | 00002710: 3B 44 45 43 4F 44 45 54 41 42 45 4C 4C 45 0D 20 |;DECODETABELLE. | 00002720: 20 20 20 20 20 20 20 20 20 4C 44 58 23 32 33 20 | LDX#23 | 00002730: 20 20 20 20 20 20 3B 4B 4F 50 49 45 52 45 4E 2C | ;KOPIEREN,| 00002740: 20 5A 2E 42 2E 0D 2D 41 53 41 31 20 20 20 20 20 | Z.B..-ASA1 | 00002750: 4C 44 41 20 54 41 42 48 49 2C 58 20 20 3B 45 4E |LDA TABHI,X ;EN| 00002760: 54 48 41 45 4C 54 20 5A 50 32 33 0D 20 20 20 20 |THAELT ZP23. | 00002770: 20 20 20 20 20 20 53 54 41 20 38 2C 58 20 20 20 | STA 8,X | 00002780: 20 20 20 3B 44 45 4E 20 44 45 43 4F 44 45 57 45 | ;DEN DECODEWE| 00002790: 52 54 0D 20 20 20 20 20 20 20 20 20 20 44 45 58 |RT. DEX| 000027A0: 20 20 20 20 20 20 20 20 20 20 3B 46 55 45 52 20 | ;FUER | 000027B0: 35 42 49 54 2D 0D 20 20 20 20 20 20 20 20 20 20 |5BIT-. | 000027C0: 42 50 4C 20 41 53 41 31 20 20 20 20 20 3B 4E 49 |BPL ASA1 ;NI| 000027D0: 42 42 4C 45 20 32 33 2E 0D 2D 4D 41 49 4E 32 20 |BBLE 23..-MAIN2 | 000027E0: 20 20 20 4C 44 41 23 30 0D 20 20 20 20 20 20 20 | LDA#0. | 000027F0: 20 20 20 53 54 41 20 4D 4F 54 4F 52 46 4C 41 47 | STA MOTORFLAG| 00002800: 0D 2B 4D 41 49 4E 0D 20 20 20 20 20 20 20 20 20 |.+MAIN. | 00002810: 20 4C 44 58 23 32 35 35 0D 20 20 20 20 20 20 20 | LDX#255. | 00002820: 20 20 20 54 58 53 0D 20 20 20 20 20 20 20 20 20 | TXS. | 00002830: 20 4A 53 52 20 49 4E 50 55 54 0D 20 20 20 20 20 | JSR INPUT. | 00002840: 20 20 20 20 20 42 45 51 20 45 4E 44 45 20 20 20 | BEQ ENDE | 00002850: 20 20 3B 42 3D 30 3A 45 4E 44 45 0D 20 20 20 20 | ;B=0:ENDE. | 00002860: 20 20 20 20 20 20 43 4D 50 23 34 32 0D 20 20 20 | CMP#42. | 00002870: 20 20 20 20 20 20 20 42 43 43 20 54 52 41 43 4B | BCC TRACK| 00002880: 53 45 43 0D 20 20 20 20 20 20 20 20 20 20 20 20 |SEC. | 00002890: 20 20 20 20 20 20 20 20 20 20 20 3B 42 3C 34 32 | ;B<42| 000028A0: 3A 54 52 2F 53 45 43 0D 20 20 20 20 20 20 20 20 |:TR/SEC. | 000028B0: 20 20 43 4D 50 23 36 33 20 20 20 20 20 20 20 3B | CMP#63 ;| 000028C0: 42 3D 36 33 3A 53 45 54 54 52 53 0D 20 20 20 20 |B=63:SETTRS. | 000028D0: 20 20 20 20 20 20 42 43 43 20 4D 41 55 53 20 20 | BCC MAUS | 000028E0: 20 20 20 3B 52 45 53 54 3A 4D 4F 54 4F 52 41 55 | ;REST:MOTORAU| 000028F0: 53 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |S. JSR | 00002900: 49 4E 50 55 54 0D 20 20 20 20 20 20 20 20 20 20 |INPUT. | 00002910: 53 54 41 20 57 55 4E 53 43 48 54 52 41 43 4B 0D |STA WUNSCHTRACK.| 00002920: 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 52 45 | JSR RE| 00002930: 41 44 48 45 41 44 45 52 0D 20 20 20 20 20 20 20 |ADHEADER. | 00002940: 20 20 20 4A 4D 50 20 4D 41 49 4E 0D 2D 4D 41 55 | JMP MAIN.-MAU| 00002950: 53 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 |S. LDA#| 00002960: 32 35 35 2D 34 0D 20 20 20 20 20 20 20 20 20 20 |255-4. | 00002970: 41 4E 44 20 24 31 43 30 30 0D 20 20 20 20 20 20 |AND $1C00. | 00002980: 20 20 20 20 53 54 41 20 24 31 43 30 30 0D 20 20 | STA $1C00. | 00002990: 20 20 20 20 20 20 20 20 42 43 43 20 4D 41 49 4E | BCC MAIN| 000029A0: 32 0D 2B 45 4E 44 45 20 20 20 20 20 4A 4D 50 20 |2.+ENDE JMP | 000029B0: 28 24 46 46 46 43 29 0D 2D 54 52 41 43 4B 53 45 |($FFFC).-TRACKSE| 000029C0: 43 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |C. STA | 000029D0: 57 55 4E 53 43 48 54 52 41 43 4B 0D 20 20 20 20 |WUNSCHTRACK. | 000029E0: 20 20 20 20 20 20 4A 53 52 20 49 4E 50 55 54 0D | JSR INPUT.| 000029F0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 57 55 | STA WU| 00002A00: 4E 53 43 48 53 45 4B 54 4F 52 0D 0D 2D 54 52 53 |NSCHSEKTOR..-TRS| 00002A10: 45 31 20 20 20 20 4A 53 52 20 52 45 41 44 48 45 |E1 JSR READHE| 00002A20: 41 44 45 52 0D 20 20 20 20 20 20 20 20 20 20 43 |ADER. C| 00002A30: 4D 50 20 57 55 4E 53 43 48 53 45 4B 54 4F 52 0D |MP WUNSCHSEKTOR.| 00002A40: 20 20 20 20 20 20 20 20 20 20 42 4E 45 20 54 52 | BNE TR| 00002A50: 53 45 31 0D 2D 57 53 34 0D 20 20 20 20 20 20 20 |SE1.-WS4. | 00002A60: 20 20 20 4C 44 41 20 24 31 43 30 30 20 20 20 20 | LDA $1C00 | 00002A70: 3B 53 59 4E 43 20 41 42 57 41 52 54 45 4E 2C 0D |;SYNC ABWARTEN,.| 00002A80: 20 20 20 20 20 20 20 20 20 20 42 4D 49 20 57 53 | BMI WS| 00002A90: 34 20 20 20 20 20 20 3B 4A 45 54 5A 54 20 4C 49 |4 ;JETZT LI| 00002AA0: 45 47 54 20 44 45 52 0D 20 20 20 20 20 20 20 20 |EGT DER. | 00002AB0: 20 20 4C 44 41 20 24 31 43 30 31 20 20 20 20 3B | LDA $1C01 ;| 00002AC0: 44 41 54 45 4E 42 4C 4F 43 4B 20 41 4E 0D 20 20 |DATENBLOCK AN. | 00002AD0: 20 20 20 20 20 20 20 20 43 4C 56 0D 20 20 20 20 | CLV. | 00002AE0: 20 20 20 20 20 20 4C 44 58 23 36 33 20 20 20 20 | LDX#63 | 00002AF0: 20 20 20 3B 44 41 54 45 4E 42 4C 4F 43 4B 3A 0D | ;DATENBLOCK:.| 00002B00: 2D 4C 31 20 20 20 20 20 20 20 20 20 20 20 20 20 |-L1 | 00002B10: 20 20 20 20 20 20 20 3B 36 34 2A 35 20 42 59 54 | ;64*5 BYT| 00002B20: 45 53 0D 20 20 20 20 20 20 20 20 20 2A 47 42 59 |ES. *GBY| 00002B30: 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 54 |. STA T| 00002B40: 38 2C 58 20 20 20 20 20 3B 33 32 30 20 42 59 54 |8,X ;320 BYT| 00002B50: 45 53 0D 20 20 20 20 20 20 20 20 20 20 41 4E 44 |ES. AND| 00002B60: 23 37 20 20 20 20 20 20 20 20 3B 4C 45 53 45 4E |#7 ;LESEN| 00002B70: 20 55 4E 44 0D 20 20 20 20 20 20 20 20 20 20 53 | UND. S| 00002B80: 54 41 20 54 31 2C 58 20 20 20 20 20 3B 44 45 43 |TA T1,X ;DEC| 00002B90: 4F 44 49 45 52 55 4E 47 0D 20 20 20 20 20 20 20 |ODIERUNG. | 00002BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00002BB0: 3B 56 4F 52 42 45 52 45 49 54 45 4E 0D 20 20 20 |;VORBEREITEN. | 00002BC0: 20 20 20 20 20 20 2A 47 42 59 0D 20 20 20 20 20 | *GBY. | 00002BD0: 20 20 20 20 20 41 53 4C 0D 20 20 20 20 20 20 20 | ASL. | 00002BE0: 20 20 20 52 4F 4C 20 54 31 2C 58 0D 20 20 20 20 | ROL T1,X. | 00002BF0: 20 20 20 20 20 20 41 53 4C 0D 20 20 20 20 20 20 | ASL. | 00002C00: 20 20 20 20 52 4F 4C 20 54 31 2C 58 0D 20 20 20 | ROL T1,X. | 00002C10: 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 | LSR. | 00002C20: 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 20 20 | LSR. | 00002C30: 20 20 20 4C 53 52 0D 20 20 20 20 20 20 20 20 20 | LSR. | 00002C40: 20 53 54 41 20 54 37 2C 58 0D 0D 20 20 20 20 20 | STA T7,X.. | 00002C50: 20 20 20 20 2A 47 42 59 0D 20 20 20 20 20 20 20 | *GBY. | 00002C60: 20 20 20 53 54 41 20 54 32 2C 58 0D 20 20 20 20 | STA T2,X. | 00002C70: 20 20 20 20 20 20 52 4F 52 0D 20 20 20 20 20 20 | ROR. | 00002C80: 20 20 20 20 4C 53 52 0D 20 20 20 20 20 20 20 20 | LSR. | 00002C90: 20 20 4C 53 52 0D 20 20 20 20 20 20 20 20 20 20 | LSR. | 00002CA0: 4C 53 52 0D 20 20 20 20 20 20 20 20 20 20 53 54 |LSR. ST| 00002CB0: 41 20 54 33 2C 58 0D 0D 20 20 20 20 20 20 20 20 |A T3,X.. | 00002CC0: 20 2A 47 42 59 0D 20 20 20 20 20 20 20 20 20 20 | *GBY. | 00002CD0: 41 53 4C 0D 20 20 20 20 20 20 20 20 20 20 52 4F |ASL. RO| 00002CE0: 4C 20 54 32 2C 58 0D 20 20 20 20 20 20 20 20 20 |L T2,X. | 00002CF0: 20 4C 53 52 0D 20 20 20 20 20 20 20 20 20 20 53 | LSR. S| 00002D00: 54 41 20 54 34 2C 58 0D 0D 20 20 20 20 20 20 20 |TA T4,X.. | 00002D10: 20 20 2A 47 42 59 0D 20 20 20 20 20 20 20 20 20 | *GBY. | 00002D20: 20 53 54 41 20 54 36 2C 58 0D 20 20 20 20 20 20 | STA T6,X. | 00002D30: 20 20 20 20 41 4E 44 23 33 31 0D 20 20 20 20 20 | AND#31. | 00002D40: 20 20 20 20 20 53 54 41 20 54 35 2C 58 0D 0D 20 | STA T5,X.. | 00002D50: 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 | DEX. | 00002D60: 20 20 20 20 20 20 20 42 50 4C 20 4C 31 0D 0D 20 | BPL L1.. | 00002D70: 20 20 20 20 20 20 20 20 20 42 56 43 20 2A 20 20 | BVC * | 00002D80: 20 20 20 20 20 20 3B 49 4E 20 44 45 4E 20 33 32 | ;IN DEN 32| 00002D90: 30 0D 20 20 20 20 20 20 20 20 20 20 43 4C 56 20 |0. CLV | 00002DA0: 20 20 20 20 20 20 20 20 20 3B 42 59 54 45 53 20 | ;BYTES | 00002DB0: 53 54 45 43 4B 54 0D 20 20 20 20 20 20 20 20 20 |STECKT. | 00002DC0: 20 4C 44 41 20 24 31 43 30 31 20 20 20 20 3B 44 | LDA $1C01 ;D| 00002DD0: 41 53 20 44 41 54 45 4E 42 4C 4F 43 4B 2D 0D 20 |AS DATENBLOCK-. | 00002DE0: 20 20 20 20 20 20 20 20 20 54 41 59 20 20 20 20 | TAY | 00002DF0: 20 20 20 20 20 20 3B 4B 45 4E 4E 5A 45 49 43 48 | ;KENNZEICH| 00002E00: 45 4E 2C 0D 20 20 20 20 20 20 20 20 20 20 4C 53 |EN,. LS| 00002E10: 52 20 20 20 20 20 20 20 20 20 20 3B 48 49 45 52 |R ;HIER| 00002E20: 20 44 41 53 20 4C 45 54 5A 54 45 0D 20 20 20 20 | DAS LETZTE. | 00002E30: 20 20 20 20 20 20 4C 53 52 20 20 20 20 20 20 20 | LSR | 00002E40: 20 20 20 3B 42 59 54 45 20 44 45 52 20 44 41 54 | ;BYTE DER DAT| 00002E50: 45 4E 0D 20 20 20 20 20 20 20 20 20 20 4C 53 52 |EN. LSR| 00002E60: 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 44 |. STA D| 00002E70: 43 35 2B 31 0D 20 20 20 20 20 20 20 20 20 20 42 |C5+1. B| 00002E80: 56 43 20 2A 0D 20 20 20 20 20 20 20 20 20 20 43 |VC *. C| 00002E90: 4C 56 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 |LV. LDA| 00002EA0: 20 24 31 43 30 31 0D 20 20 20 20 20 20 20 20 20 | $1C01. | 00002EB0: 20 53 54 41 20 4C 41 53 54 42 59 54 45 0D 0D 20 | STA LASTBYTE.. | 00002EC0: 20 20 20 20 20 20 20 20 20 54 59 41 0D 20 20 20 | TYA. | 00002ED0: 20 20 20 20 20 20 20 41 53 4C 20 4C 41 53 54 42 | ASL LASTB| 00002EE0: 59 54 45 0D 20 20 20 20 20 20 20 20 20 20 52 4F |YTE. RO| 00002EF0: 4C 0D 20 20 20 20 20 20 20 20 20 20 41 53 4C 20 |L. ASL | 00002F00: 4C 41 53 54 42 59 54 45 0D 20 20 20 20 20 20 20 |LASTBYTE. | 00002F10: 20 20 20 52 4F 4C 0D 20 20 20 20 20 20 20 20 20 | ROL. | 00002F20: 20 41 4E 44 23 33 31 0D 20 20 20 20 20 20 20 20 | AND#31. | 00002F30: 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 20 20 | TAY. | 00002F40: 4C 44 41 20 54 41 42 4C 4F 2D 38 2C 59 0D 2D 44 |LDA TABLO-8,Y.-D| 00002F50: 43 35 20 20 20 20 20 20 4F 52 41 20 31 32 33 0D |C5 ORA 123.| 00002F60: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 4C 41 | STA LA| 00002F70: 53 54 42 59 54 45 0D 2D 44 45 43 4F 44 45 20 20 |STBYTE.-DECODE | 00002F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 33 | ;3| 00002F90: 32 30 20 42 59 54 45 20 57 45 52 44 45 4E 0D 20 |20 BYTE WERDEN. | 00002FA0: 20 20 20 20 20 20 20 20 20 49 4E 58 20 20 20 20 | INX | 00002FB0: 20 20 20 20 20 20 3B 44 45 43 4F 44 49 45 52 54 | ;DECODIERT| 00002FC0: 20 55 4E 44 0D 20 20 20 20 20 20 20 20 20 20 20 | UND. | 00002FD0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 41 55 46 | ;AUF| 00002FE0: 20 44 45 4E 20 53 54 41 50 45 4C 0D 20 20 20 20 | DEN STAPEL. | 00002FF0: 20 20 20 20 20 20 4C 44 59 20 54 35 2C 58 20 20 | LDY T5,X | 00003000: 20 20 20 3B 47 45 4C 45 47 54 2E 0D 20 20 20 20 | ;GELEGT.. | 00003010: 20 20 20 20 20 20 4C 44 41 20 54 36 2C 58 0D 20 | LDA T6,X. | 00003020: 20 20 20 20 20 20 20 20 20 4C 53 52 20 54 34 2C | LSR T4,| 00003030: 58 0D 20 20 20 20 20 20 20 20 20 20 52 4F 52 0D |X. ROR.| 00003040: 20 20 20 20 20 20 20 20 20 20 4C 53 52 20 54 34 | LSR T4| 00003050: 2C 58 0D 20 20 20 20 20 20 20 20 20 20 52 4F 52 |,X. ROR| 00003060: 0D 20 20 20 20 20 20 20 20 20 20 4C 53 52 0D 20 |. LSR. | 00003070: 20 20 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 | LSR. | 00003080: 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 | LSR. | 00003090: 20 20 20 20 20 53 54 41 20 44 43 30 2B 31 0D 20 | STA DC0+1. | 000030A0: 20 20 20 20 20 20 20 20 20 4C 44 41 20 54 41 42 | LDA TAB| 000030B0: 4C 4F 2D 38 2C 59 0D 2D 44 43 30 20 20 20 20 20 |LO-8,Y.-DC0 | 000030C0: 20 4F 52 41 20 31 32 33 0D 20 20 20 20 20 20 20 | ORA 123. | 000030D0: 20 20 20 50 48 41 0D 0D 20 20 20 20 20 20 20 20 | PHA.. | 000030E0: 20 20 4C 44 59 20 54 34 2C 58 0D 20 20 20 20 20 | LDY T4,X. | 000030F0: 20 20 20 20 20 4C 44 41 20 54 32 2C 58 0D 20 20 | LDA T2,X. | 00003100: 20 20 20 20 20 20 20 20 41 4E 44 23 33 31 0D 20 | AND#31. | 00003110: 20 20 20 20 20 20 20 20 20 53 54 41 20 44 43 31 | STA DC1| 00003120: 2B 31 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 |+1. LDA| 00003130: 20 54 41 42 4C 4F 2D 38 2C 59 0D 2D 44 43 31 20 | TABLO-8,Y.-DC1 | 00003140: 20 20 20 20 20 4F 52 41 20 31 32 33 0D 20 20 20 | ORA 123. | 00003150: 20 20 20 20 20 20 20 50 48 41 0D 0D 20 20 20 20 | PHA.. | 00003160: 20 20 20 20 20 20 4C 44 41 20 54 37 2C 58 0D 20 | LDA T7,X. | 00003170: 20 20 20 20 20 20 20 20 20 53 54 41 20 44 43 32 | STA DC2| 00003180: 2B 31 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 |+1. LDY| 00003190: 20 54 33 2C 58 0D 20 20 20 20 20 20 20 20 20 20 | T3,X. | 000031A0: 4C 44 41 20 54 41 42 4C 4F 2D 38 2C 59 0D 2D 44 |LDA TABLO-8,Y.-D| 000031B0: 43 32 20 20 20 20 20 20 4F 52 41 20 31 32 33 0D |C2 ORA 123.| 000031C0: 20 20 20 20 20 20 20 20 20 20 50 48 41 0D 0D 20 | PHA.. | 000031D0: 20 20 20 20 20 20 20 20 20 4C 44 59 20 54 31 2C | LDY T1,| 000031E0: 58 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |X. LDA | 000031F0: 54 38 2C 58 0D 20 20 20 20 20 20 20 20 20 20 4C |T8,X. L| 00003200: 53 52 0D 20 20 20 20 20 20 20 20 20 20 4C 53 52 |SR. LSR| 00003210: 0D 20 20 20 20 20 20 20 20 20 20 4C 53 52 0D 20 |. LSR. | 00003220: 20 20 20 20 20 20 20 20 20 53 54 41 20 44 43 33 | STA DC3| 00003230: 2B 31 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 |+1. LDA| 00003240: 20 54 41 42 4C 4F 2D 38 2C 59 0D 2D 44 43 33 20 | TABLO-8,Y.-DC3 | 00003250: 20 20 20 20 20 4F 52 41 20 31 32 33 0D 20 20 20 | ORA 123. | 00003260: 20 20 20 20 20 20 20 50 48 41 0D 0D 20 20 20 20 | PHA.. | 00003270: 20 20 20 20 20 20 43 50 58 23 36 33 0D 20 20 20 | CPX#63. | 00003280: 20 20 20 20 20 20 20 42 43 43 20 44 45 43 4F 44 | BCC DECOD| 00003290: 45 0D 20 20 20 20 20 20 20 20 20 20 50 4C 41 20 |E. PLA | 000032A0: 20 20 20 20 20 20 20 20 20 3B 44 41 54 45 4E 42 | ;DATENB| 000032B0: 4C 4F 43 4B 4B 5A 0D 20 20 20 20 20 20 20 20 20 |LOCKKZ. | 000032C0: 20 4C 44 41 20 4C 41 53 54 42 59 54 45 20 3B 44 | LDA LASTBYTE ;D| 000032D0: 55 52 43 48 20 4C 45 54 5A 54 45 53 0D 20 20 20 |URCH LETZTES. | 000032E0: 20 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 | PHA | 000032F0: 20 20 20 20 3B 44 41 54 45 4E 42 59 54 45 20 45 | ;DATENBYTE E| 00003300: 52 53 2E 0D 2D 54 52 41 4E 53 46 45 52 0D 20 20 |RS..-TRANSFER. | 00003310: 20 20 20 20 20 20 20 20 4C 44 58 23 31 0D 20 20 | LDX#1. | 00003320: 20 20 20 20 20 20 20 20 54 58 53 0D 20 20 20 20 | TXS. | 00003330: 20 20 20 20 20 20 4C 44 59 23 30 20 20 20 20 20 | LDY#0 | 00003340: 20 20 20 3B 32 2A 31 32 38 20 42 59 54 45 53 0D | ;2*128 BYTES.| 00003350: 20 20 20 20 20 20 20 20 20 20 4C 44 58 23 31 35 | LDX#15| 00003360: 20 20 20 20 20 20 20 3B 41 4E 44 2D 4D 41 53 4B | ;AND-MASK| 00003370: 45 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 |E. LDA#| 00003380: 53 45 4E 44 56 41 4C 55 45 0D 20 20 20 20 20 20 |SENDVALUE. | 00003390: 20 20 20 20 53 54 41 20 24 31 38 30 30 0D 2D 54 | STA $1800.-T| 000033A0: 52 31 0D 20 20 20 20 20 20 20 20 20 20 50 4C 41 |R1. PLA| 000033B0: 0D 20 20 20 20 20 20 20 20 20 20 41 53 4C 0D 20 |. ASL. | 000033C0: 20 20 20 20 20 20 20 20 2A 54 52 41 0D 20 20 20 | *TRA. | 000033D0: 20 20 20 20 20 20 20 52 4F 52 0D 20 20 20 20 20 | ROR. | 000033E0: 20 20 20 20 2A 54 52 41 0D 20 20 20 20 20 20 20 | *TRA. | 000033F0: 20 20 20 4C 53 52 0D 20 20 20 20 20 20 20 20 20 | LSR. | 00003400: 20 4C 53 52 0D 20 20 20 20 20 20 20 20 20 20 4C | LSR. L| 00003410: 53 52 0D 20 20 20 20 20 20 20 20 20 2A 54 52 41 |SR. *TRA| 00003420: 0D 20 20 20 20 20 20 20 20 20 20 4C 53 52 0D 20 |. LSR. | 00003430: 20 20 20 20 20 20 20 20 2A 54 52 41 0D 0D 20 20 | *TRA.. | 00003440: 20 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 | DEY. | 00003450: 20 20 20 20 20 20 42 4E 45 20 54 52 31 0D 20 20 | BNE TR1. | 00003460: 20 20 20 20 20 20 20 20 42 49 54 20 24 31 38 30 | BIT $180| 00003470: 30 0D 20 20 20 20 20 20 20 20 20 20 42 50 4C 20 |0. BPL | 00003480: 2A 2D 33 0D 20 20 20 20 20 20 20 20 20 20 42 49 |*-3. BI| 00003490: 54 20 24 31 38 30 30 0D 20 20 20 20 20 20 20 20 |T $1800. | 000034A0: 20 20 42 4D 49 20 2A 2D 33 0D 20 20 20 20 20 20 | BMI *-3. | 000034B0: 20 20 20 20 4A 4D 50 20 4D 41 49 4E 0D 0D 20 20 | JMP MAIN.. | 000034C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000034D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000034E0: 20 20 20 20 20 20 0D 2B 52 45 41 44 48 45 41 44 | .+READHEAD| 000034F0: 45 52 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 |ER. JSR| 00003500: 20 4D 4F 54 4F 52 45 49 4E 0D 20 20 20 20 20 20 | MOTOREIN. | 00003510: 20 20 20 20 4C 44 41 20 24 31 43 30 43 20 20 20 | LDA $1C0C | 00003520: 20 20 20 3B 49 4E 49 54 20 4C 45 53 45 4E 0D 20 | ;INIT LESEN. | 00003530: 20 20 20 20 20 20 20 20 20 4F 52 41 23 24 30 45 | ORA#$0E| 00003540: 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 |. STA $| 00003550: 31 43 30 43 0D 2D 57 41 49 54 48 45 41 44 45 52 |1C0C.-WAITHEADER| 00003560: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 |. LDA $| 00003570: 31 43 30 30 20 20 20 20 20 20 3B 53 59 4E 43 20 |1C00 ;SYNC | 00003580: 41 42 57 41 52 54 45 4E 0D 20 20 20 20 20 20 20 |ABWARTEN. | 00003590: 20 20 20 42 4D 49 20 57 41 49 54 48 45 41 44 45 | BMI WAITHEADE| 000035A0: 52 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 |R. LDA | 000035B0: 24 31 43 30 31 0D 20 20 20 20 20 20 20 20 20 20 |$1C01. | 000035C0: 43 4C 56 0D 20 20 20 20 20 20 20 20 20 2A 47 42 |CLV. *GB| 000035D0: 59 0D 20 20 20 20 20 20 20 20 20 20 43 4D 50 23 |Y. CMP#| 000035E0: 38 32 20 20 20 20 20 20 20 20 20 3B 54 45 49 4C |82 ;TEIL| 000035F0: 20 44 45 53 0D 20 20 20 20 20 20 20 20 20 20 42 | DES. B| 00003600: 4E 45 20 57 41 49 54 48 45 41 44 45 52 20 3B 48 |NE WAITHEADER ;H| 00003610: 45 41 44 45 52 4B 45 4E 4E 5A 2E 0D 20 20 20 20 |EADERKENNZ.. | 00003620: 20 20 20 20 20 20 4C 44 58 23 34 0D 2D 57 53 32 | LDX#4.-WS2| 00003630: 0D 20 20 20 20 20 20 20 20 20 20 53 54 41 20 46 |. STA F| 00003640: 4D 45 4D 20 20 20 20 20 20 20 3B 33 2E 42 59 54 |MEM ;3.BYT| 00003650: 45 3D 3E 46 4D 45 4D 0D 20 20 20 20 20 20 20 20 |E=>FMEM. | 00003660: 20 2A 47 42 59 20 20 20 20 20 20 20 20 20 20 20 | *GBY | 00003670: 20 3B 34 2E 42 59 54 45 3D 3E 41 4B 4B 55 0D 20 | ;4.BYTE=>AKKU. | 00003680: 20 20 20 20 20 20 20 20 20 44 45 58 0D 20 20 20 | DEX. | 00003690: 20 20 20 20 20 20 20 42 4E 45 20 57 53 32 0D 20 | BNE WS2. | 000036A0: 20 20 20 20 20 20 20 20 20 54 41 59 0D 20 20 20 | TAY. | 000036B0: 20 20 20 20 20 20 20 4C 53 52 20 46 4D 45 4D 0D | LSR FMEM.| 000036C0: 20 20 20 20 20 20 20 20 20 20 52 4F 52 0D 20 20 | ROR. | 000036D0: 20 20 20 20 20 20 20 20 4C 53 52 20 46 4D 45 4D | LSR FMEM| 000036E0: 0D 20 20 20 20 20 20 20 20 20 20 52 4F 52 0D 20 |. ROR. | 000036F0: 20 20 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 | LSR. | 00003700: 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 | LSR. | 00003710: 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 20 20 | LSR. | 00003720: 20 20 20 54 41 58 0D 20 20 20 20 20 20 20 20 20 | TAX. | 00003730: 20 54 59 41 0D 20 20 20 20 20 20 20 20 20 20 41 | TYA. A| 00003740: 4E 44 23 33 31 0D 20 20 20 20 20 20 20 20 20 20 |ND#31. | 00003750: 54 41 59 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |TAY. LD| 00003760: 41 20 54 41 42 4C 4F 4F 52 47 2C 59 0D 20 20 20 |A TABLOORG,Y. | 00003770: 20 20 20 20 20 20 20 4F 52 41 20 54 41 42 48 49 | ORA TABHI| 00003780: 4F 52 47 2C 58 20 3B 44 45 43 4F 44 49 45 52 45 |ORG,X ;DECODIERE| 00003790: 4E 0D 0D 20 20 20 20 20 20 20 20 20 20 43 4D 50 |N.. CMP| 000037A0: 20 57 55 4E 53 43 48 54 52 41 43 4B 0D 20 20 20 | WUNSCHTRACK. | 000037B0: 20 20 20 20 20 20 20 42 45 51 20 53 45 43 43 4D | BEQ SECCM| 000037C0: 50 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |P. JSR | 000037D0: 4B 4F 50 46 0D 20 20 20 20 20 20 20 20 20 20 4A |KOPF. J| 000037E0: 4D 50 20 52 45 41 44 48 45 41 44 45 52 2B 33 0D |MP READHEADER+3.| 000037F0: 2D 53 45 43 43 4D 50 0D 20 20 20 20 20 20 20 20 |-SECCMP. | 00003800: 20 20 4C 44 41 20 46 4D 45 4D 20 20 20 20 20 20 | LDA FMEM | 00003810: 20 3B 54 52 41 43 4B 20 57 41 52 0D 20 20 20 20 | ;TRACK WAR. | 00003820: 20 20 20 20 20 20 41 4E 44 23 33 31 20 20 20 20 | AND#31 | 00003830: 20 20 20 20 20 3B 52 49 43 48 54 49 47 2C 0D 20 | ;RICHTIG,. | 00003840: 20 20 20 20 20 20 20 20 20 20 54 41 58 20 20 20 | TAX | 00003850: 20 20 20 20 20 20 20 20 20 3B 53 45 4B 54 4F 52 | ;SEKTOR| 00003860: 4E 55 4D 4D 45 52 0D 20 20 20 20 20 20 20 20 20 |NUMMER. | 00003870: 20 45 4F 52 20 46 4D 45 4D 20 20 20 20 20 20 20 | EOR FMEM | 00003880: 3B 49 4E 20 44 45 4E 20 41 4B 4B 55 0D 20 20 20 |;IN DEN AKKU. | 00003890: 20 20 20 20 20 20 20 4C 53 52 0D 20 20 20 20 20 | LSR. | 000038A0: 20 20 20 20 20 4F 52 41 20 54 41 42 4C 4F 4F 52 | ORA TABLOOR| 000038B0: 47 2C 58 0D 20 20 20 20 20 20 20 20 20 20 52 54 |G,X. RT| 000038C0: 53 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |S. | 000038D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000038E0: 20 20 20 20 20 20 20 20 20 20 0D 2B 49 4E 50 55 | .+INPU| 000038F0: 54 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 |T. LDA#| 00003900: 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |8 | 00003910: 3B 4C 45 44 20 45 49 4E 0D 20 20 20 20 20 20 20 |;LED EIN. | 00003920: 20 20 20 4F 52 41 20 24 31 43 30 30 0D 20 20 20 | ORA $1C00. | 00003930: 20 20 20 20 20 20 20 53 54 41 20 24 31 43 30 30 | STA $1C00| 00003940: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 52 |. LDA#R| 00003950: 45 43 45 49 56 45 56 41 4C 55 45 0D 20 20 20 20 |ECEIVEVALUE. | 00003960: 20 20 20 20 20 20 53 54 41 20 24 31 38 30 30 0D | STA $1800.| 00003970: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 24 31 | LDY $1| 00003980: 38 30 30 3A 42 50 4C 20 2A 2D 33 0D 20 20 20 20 |800:BPL *-3. | 00003990: 20 20 20 20 20 20 4C 44 41 23 46 52 45 45 56 41 | LDA#FREEVA| 000039A0: 4C 55 45 20 20 20 20 20 20 20 3B 49 4E 49 54 0D |LUE ;INIT.| 000039B0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 31 | STA $1| 000039C0: 38 30 30 0D 20 20 20 20 20 20 20 20 20 20 4C 44 |800. LD| 000039D0: 59 20 24 31 38 30 30 3A 42 4D 49 20 2A 2D 33 0D |Y $1800:BMI *-3.| 000039E0: 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 31 | LDA $1| 000039F0: 38 30 30 0D 20 20 20 20 20 20 20 20 20 20 41 4E |800. AN| 00003A00: 44 23 35 0D 20 20 20 20 20 20 20 20 20 20 41 53 |D#5. AS| 00003A10: 4C 0D 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 |L. LDY | 00003A20: 24 31 38 30 30 3A 42 50 4C 20 2A 2D 33 0D 20 20 |$1800:BPL *-3. | 00003A30: 20 20 20 20 20 20 20 20 4C 44 59 20 24 31 38 30 | LDY $180| 00003A40: 30 3A 42 4D 49 20 2A 2D 33 0D 20 20 20 20 20 20 |0:BMI *-3. | 00003A50: 20 20 20 20 4F 52 41 20 24 31 38 30 30 0D 20 20 | ORA $1800. | 00003A60: 20 20 20 20 20 20 20 20 41 4E 44 23 31 35 0D 20 | AND#15. | 00003A70: 20 20 20 20 20 20 20 20 20 54 41 58 0D 20 20 20 | TAX. | 00003A80: 20 20 20 20 20 20 20 4C 44 59 20 24 31 38 30 30 | LDY $1800| 00003A90: 3A 42 50 4C 20 2A 2D 33 0D 20 20 20 20 20 20 20 |:BPL *-3. | 00003AA0: 20 20 20 4C 44 59 20 24 31 38 30 30 3A 42 4D 49 | LDY $1800:BMI| 00003AB0: 20 2A 2D 33 0D 20 20 20 20 20 20 20 20 20 20 4C | *-3. L| 00003AC0: 44 41 20 24 31 38 30 30 0D 20 20 20 20 20 20 20 |DA $1800. | 00003AD0: 20 20 20 41 4E 44 23 35 0D 20 20 20 20 20 20 20 | AND#5. | 00003AE0: 20 20 20 4F 52 41 20 49 4E 50 55 54 54 41 42 2C | ORA INPUTTAB,| 00003AF0: 58 0D 20 20 20 20 20 20 20 20 20 20 54 41 58 0D |X. TAX.| 00003B00: 20 20 20 20 20 20 20 20 20 20 4C 44 41 23 42 55 | LDA#BU| 00003B10: 53 59 56 41 4C 55 45 0D 20 20 20 20 20 20 20 20 |SYVALUE. | 00003B20: 20 20 53 54 41 20 24 31 38 30 30 0D 20 20 20 20 | STA $1800. | 00003B30: 20 20 20 20 20 20 4C 44 41 20 24 31 43 30 30 20 | LDA $1C00 | 00003B40: 20 20 20 20 20 20 20 20 20 20 3B 4C 45 44 20 41 | ;LED A| 00003B50: 55 53 0D 20 20 20 20 20 20 20 20 20 20 41 4E 44 |US. AND| 00003B60: 23 32 35 35 2D 38 0D 20 20 20 20 20 20 20 20 20 |#255-8. | 00003B70: 20 53 54 41 20 24 31 43 30 30 0D 20 20 20 20 20 | STA $1C00. | 00003B80: 20 20 20 20 20 54 58 41 0D 20 20 20 20 20 20 20 | TXA. | 00003B90: 20 20 20 52 54 53 0D 2B 49 4E 50 55 54 54 41 42 | RTS.+INPUTTAB| 00003BA0: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003BB0: 30 30 30 30 30 30 2C 25 30 30 30 30 30 30 31 30 |000000,%00000010| 00003BC0: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003BD0: 30 30 31 30 30 30 2C 25 30 30 30 30 31 30 31 30 |001000,%00001010| 00003BE0: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003BF0: 30 31 30 30 30 30 2C 25 30 30 30 31 30 30 31 30 |010000,%00010010| 00003C00: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003C10: 30 31 31 30 30 30 2C 25 30 30 30 31 31 30 31 30 |011000,%00011010| 00003C20: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003C30: 31 30 30 30 30 30 2C 25 30 30 31 30 30 30 31 30 |100000,%00100010| 00003C40: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003C50: 31 30 31 30 30 30 2C 25 30 30 31 30 31 30 31 30 |101000,%00101010| 00003C60: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003C70: 31 31 30 30 30 30 2C 25 30 30 31 31 30 30 31 30 |110000,%00110010| 00003C80: 0D 20 20 20 20 20 20 20 20 20 2E 42 20 25 30 30 |. .B %00| 00003C90: 31 31 31 30 30 30 2C 25 30 30 31 31 31 30 31 30 |111000,%00111010| 00003CA0: 0D 2B 4B 4F 50 46 0D 20 20 20 20 20 20 20 20 20 |.+KOPF. | 00003CB0: 20 4C 44 58 23 32 30 32 20 20 20 20 20 20 20 20 | LDX#202 | 00003CC0: 3B 44 45 58 0D 20 20 20 20 20 20 20 20 20 20 53 |;DEX. S| 00003CD0: 45 43 0D 20 20 20 20 20 20 20 20 20 20 53 42 43 |EC. SBC| 00003CE0: 20 57 55 4E 53 43 48 54 52 41 43 4B 0D 20 20 20 | WUNSCHTRACK. | 00003CF0: 20 20 20 20 20 20 20 42 43 53 20 4F 4B 20 20 20 | BCS OK | 00003D00: 20 20 20 20 20 20 3B 44 49 46 46 45 52 45 4E 5A | ;DIFFERENZ| 00003D10: 0D 20 20 20 20 20 20 20 20 20 20 4C 44 58 23 32 |. LDX#2| 00003D20: 33 32 20 20 20 20 20 20 20 20 3B 56 4F 4E 20 41 |32 ;VON A| 00003D30: 4B 54 55 45 4C 4C 45 4D 0D 20 20 20 20 20 20 20 |KTUELLEM. | 00003D40: 20 20 20 45 4F 52 23 32 35 35 20 20 20 20 20 20 | EOR#255 | 00003D50: 20 20 3B 55 4E 44 20 5A 49 45 4C 54 52 41 43 4B | ;UND ZIELTRACK| 00003D60: 0D 20 20 20 20 20 20 20 20 20 20 41 44 43 23 31 |. ADC#1| 00003D70: 0D 2D 4F 4B 20 20 20 20 20 20 20 53 54 58 20 57 |.-OK STX W| 00003D80: 45 52 54 0D 20 20 20 20 20 20 20 20 20 20 41 53 |ERT. AS| 00003D90: 4C 20 20 20 20 20 20 20 20 20 20 20 20 3B 42 45 |L ;BE| 00003DA0: 57 45 57 47 55 4E 47 20 49 4E 0D 20 20 20 20 20 |WEWGUNG IN. | 00003DB0: 20 20 20 20 20 54 41 59 20 20 20 20 20 20 20 20 | TAY | 00003DC0: 20 20 20 20 3B 48 41 4C 46 54 52 41 43 4B 53 0D | ;HALFTRACKS.| 00003DD0: 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 24 31 | LDX $1| 00003DE0: 43 30 30 20 20 20 20 20 20 3B 53 54 45 50 50 45 |C00 ;STEPPE| 00003DF0: 52 4D 4F 54 4F 52 0D 2D 57 45 52 54 20 20 20 20 |RMOTOR.-WERT | 00003E00: 20 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 20 | INX | 00003E10: 3B 49 4E 20 44 45 4E 20 55 4E 54 45 52 45 4E 0D |;IN DEN UNTEREN.| 00003E20: 20 20 20 20 20 20 20 20 20 20 54 58 41 20 20 20 | TXA | 00003E30: 20 20 20 20 20 20 20 20 20 3B 42 45 49 44 45 4E | ;BEIDEN| 00003E40: 20 42 49 54 53 0D 20 20 20 20 20 20 20 20 20 20 | BITS. | 00003E50: 4F 52 41 23 31 32 0D 20 20 20 20 20 20 20 20 20 |ORA#12. | 00003E60: 20 53 54 41 20 24 31 43 30 30 0D 20 20 20 20 20 | STA $1C00. | 00003E70: 20 20 20 20 20 4C 44 58 23 31 32 38 2B 31 38 20 | LDX#128+18 | 00003E80: 20 20 20 20 3B 31 38 20 49 53 54 20 44 45 52 0D | ;18 IST DER.| 00003E90: 20 20 20 20 20 20 20 20 20 20 53 54 58 20 24 31 | STX $1| 00003EA0: 38 30 35 20 20 20 20 20 20 3B 53 43 48 4C 45 43 |805 ;SCHLEC| 00003EB0: 48 54 45 53 54 45 0D 20 20 20 20 20 20 20 20 20 |HTESTE. | 00003EC0: 20 4C 44 58 20 24 31 38 30 35 20 20 20 20 20 20 | LDX $1805 | 00003ED0: 3B 4D 49 52 20 42 45 4B 41 4E 4E 54 45 0D 20 20 |;MIR BEKANNTE. | 00003EE0: 20 20 20 20 20 20 20 20 42 4D 49 20 2A 2D 33 20 | BMI *-3 | 00003EF0: 20 20 20 20 20 20 20 3B 57 45 52 54 20 46 55 45 | ;WERT FUE| 00003F00: 52 20 44 45 4E 0D 20 20 20 20 20 20 20 20 20 20 |R DEN. | 00003F10: 44 45 59 20 20 20 20 20 20 20 20 20 20 20 20 3B |DEY ;| 00003F20: 53 54 45 50 50 45 52 4D 4F 54 4F 52 0D 20 20 20 |STEPPERMOTOR. | 00003F30: 20 20 20 20 20 20 20 42 4E 45 20 57 45 52 54 2D | BNE WERT-| 00003F40: 33 0D 0D 20 20 20 20 20 20 20 20 20 20 41 4E 44 |3.. AND| 00003F50: 23 25 31 30 30 31 31 31 31 31 20 20 3B 53 50 45 |#%10011111 ;SPE| 00003F60: 45 44 20 49 4E 20 42 49 54 53 0D 20 20 20 20 20 |ED IN BITS. | 00003F70: 20 20 20 20 20 4C 44 58 23 30 20 20 20 20 20 20 | LDX#0 | 00003F80: 20 20 20 20 3B 35 20 55 4E 44 20 36 0D 20 20 20 | ;5 UND 6. | 00003F90: 20 20 20 20 20 20 2E 42 20 24 41 43 20 20 20 20 | .B $AC | 00003FA0: 20 20 20 20 20 20 3B 4C 44 59 20 41 42 53 0D 2D | ;LDY ABS.-| 00003FB0: 53 50 45 45 44 20 20 20 20 41 44 43 23 33 31 0D |SPEED ADC#31.| 00003FC0: 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 24 46 | LDY $F| 00003FD0: 45 44 38 2C 58 20 20 20 20 3B 54 52 41 43 4B 4C |ED8,X ;TRACKL| 00003FE0: 49 53 54 45 0D 20 20 20 20 20 20 20 20 20 20 44 |ISTE. D| 00003FF0: 45 59 0D 20 20 20 20 20 20 20 20 20 20 43 50 59 |EY. CPY| 00004000: 20 57 55 4E 53 43 48 54 52 41 43 4B 0D 20 20 20 | WUNSCHTRACK. | 00004010: 20 20 20 20 20 20 20 49 4E 58 0D 20 20 20 20 20 | INX. | 00004020: 20 20 20 20 20 42 43 53 20 53 50 45 45 44 0D 20 | BCS SPEED. | 00004030: 20 20 20 20 20 20 20 20 20 53 54 41 20 24 31 43 | STA $1C| 00004040: 30 30 0D 20 20 20 20 20 20 20 20 20 20 52 54 53 |00. RTS| 00004050: 0D 2B 4D 4F 54 4F 52 45 49 4E 0D 20 20 20 20 20 |.+MOTOREIN. | 00004060: 20 20 20 20 20 4C 44 41 20 4D 4F 54 4F 52 46 4C | LDA MOTORFL| 00004070: 41 47 0D 20 20 20 20 20 20 20 20 20 20 42 4E 45 |AG. BNE| 00004080: 20 4D 4F 54 4F 52 45 49 4E 2D 31 0D 20 20 20 20 | MOTOREIN-1. | 00004090: 20 20 20 20 20 20 4C 44 41 20 24 31 43 30 30 0D | LDA $1C00.| 000040A0: 20 20 20 20 20 20 20 20 20 20 4F 52 41 23 34 0D | ORA#4.| 000040B0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 24 31 | STA $1| 000040C0: 43 30 30 0D 20 20 20 20 20 20 20 20 20 20 53 54 |C00. ST| 000040D0: 41 20 4D 4F 54 4F 52 46 4C 41 47 0D 20 20 20 20 |A MOTORFLAG. | 000040E0: 20 20 20 20 20 20 4C 44 58 23 31 32 30 20 20 20 | LDX#120 | 000040F0: 20 20 20 20 20 3B 41 4E 4C 41 55 46 5A 45 49 54 | ;ANLAUFZEIT| 00004100: 0D 2D 4D 45 31 20 20 20 20 20 20 44 45 59 20 20 |.-ME1 DEY | 00004110: 20 20 20 20 20 20 20 20 20 20 3B 41 42 57 41 52 | ;ABWAR| 00004120: 54 45 4E 2E 20 49 53 54 0D 20 20 20 20 20 20 20 |TEN. IST. | 00004130: 20 20 20 42 4E 45 20 4D 45 31 20 20 20 20 20 20 | BNE ME1 | 00004140: 20 20 3B 4D 49 52 20 5A 57 41 52 20 55 4E 2D 0D | ;MIR ZWAR UN-.| 00004150: 20 20 20 20 20 20 20 20 20 20 44 45 58 20 20 20 | DEX | 00004160: 20 20 20 20 20 20 20 20 20 3B 4B 4C 41 52 2C 20 | ;KLAR, | 00004170: 57 41 52 55 4D 2C 0D 20 20 20 20 20 20 20 20 20 |WARUM,. | 00004180: 20 42 4E 45 20 4D 45 31 20 20 20 20 20 20 20 20 | BNE ME1 | 00004190: 3B 41 42 45 52 20 4F 48 4E 45 0D 20 20 20 20 20 |;ABER OHNE. | 000041A0: 20 20 20 20 20 52 54 53 20 20 20 20 20 20 20 20 | RTS | 000041B0: 20 20 20 20 3B 47 45 48 54 27 53 20 4E 49 43 48 | ;GEHT'S NICH| 000041C0: 54 0D 0D 3B 49 4E 20 44 49 45 53 45 4E 20 42 45 |T..;IN DIESEN BE| 000041D0: 49 44 45 4E 20 54 41 42 45 4C 4C 45 4E 20 53 49 |IDEN TABELLEN SI| 000041E0: 4E 44 20 44 49 45 0D 3B 42 49 54 53 20 44 55 52 |ND DIE.;BITS DUR| 000041F0: 43 48 45 49 4E 41 4E 44 45 52 47 45 57 55 45 52 |CHEINANDERGEWUER| 00004200: 46 45 4C 54 2C 20 4E 41 43 48 0D 3B 44 45 52 20 |FELT, NACH.;DER | 00004210: 55 45 42 45 52 54 52 41 47 55 4E 47 20 50 41 53 |UEBERTRAGUNG PAS| 00004220: 53 45 4E 20 44 49 45 20 44 41 4E 4E 0D 3B 57 49 |SEN DIE DANN.;WI| 00004230: 45 44 45 52 2E 0D 0D 2B 54 41 42 4C 4F 0D 20 2E |EDER...+TABLO. .| 00004240: 42 20 24 46 46 2C 25 30 30 30 30 30 30 31 30 2C |B $FF,%00000010,| 00004250: 25 30 30 30 30 30 30 30 30 2C 25 30 30 30 30 30 |%00000000,%00000| 00004260: 31 30 30 0D 20 2E 42 20 24 46 46 2C 25 30 30 30 |100. .B $FF,%000| 00004270: 30 31 30 31 30 2C 25 30 30 30 30 31 30 30 30 2C |01010,%00001000,| 00004280: 25 30 30 30 30 31 31 30 30 0D 20 2E 42 20 24 46 |%00001100. .B $F| 00004290: 46 2C 24 46 46 20 20 20 20 20 20 2C 25 30 30 30 |F,$FF ,%000| 000042A0: 30 30 30 30 31 2C 25 30 30 30 30 30 31 30 31 0D |00001,%00000101.| 000042B0: 20 2E 42 20 24 46 46 2C 25 30 30 30 30 31 31 31 | .B $FF,%0000111| 000042C0: 31 2C 25 30 30 30 30 31 30 30 31 2C 25 30 30 30 |1,%00001001,%000| 000042D0: 30 31 31 30 31 0D 20 2E 42 20 24 46 46 2C 25 30 |01101. .B $FF,%0| 000042E0: 30 30 30 30 31 31 30 2C 25 30 30 30 30 30 30 31 |0000110,%0000001| 000042F0: 31 2C 25 30 30 30 30 30 31 31 31 0D 20 2E 42 20 |1,%00000111. .B | 00004300: 24 46 46 2C 25 30 30 30 30 31 31 31 30 2C 25 30 |$FF,%00001110,%0| 00004310: 30 30 30 31 30 31 31 2C 24 46 46 0D 2B 54 41 42 |0001011,$FF.+TAB| 00004320: 48 49 0D 20 2E 42 20 24 46 46 2C 25 30 30 31 30 |HI. .B $FF,%0010| 00004330: 30 30 30 30 2C 25 30 30 30 30 30 30 30 30 2C 25 |0000,%00000000,%| 00004340: 30 31 30 30 30 30 30 30 0D 20 2E 42 20 24 46 46 |01000000. .B $FF| 00004350: 2C 25 31 30 31 30 30 30 30 30 2C 25 31 30 30 30 |,%10100000,%1000| 00004360: 30 30 30 30 2C 25 31 31 30 30 30 30 30 30 0D 20 |0000,%11000000. | 00004370: 2E 42 20 24 46 46 2C 24 46 46 20 20 20 20 20 20 |.B $FF,$FF | 00004380: 2C 25 30 30 30 31 30 30 30 30 2C 25 30 31 30 31 |,%00010000,%0101| 00004390: 30 30 30 30 0D 20 2E 42 20 24 46 46 2C 25 31 31 |0000. .B $FF,%11| 000043A0: 31 31 30 30 30 30 2C 25 31 30 30 31 30 30 30 30 |110000,%10010000| 000043B0: 2C 25 31 31 30 31 30 30 30 30 0D 20 2E 42 20 24 |,%11010000. .B $| 000043C0: 46 46 2C 25 30 31 31 30 30 30 30 30 2C 25 30 30 |FF,%01100000,%00| 000043D0: 31 31 30 30 30 30 2C 25 30 31 31 31 30 30 30 30 |110000,%01110000| 000043E0: 0D 20 2E 42 20 24 46 46 2C 25 31 31 31 30 30 30 |. .B $FF,%111000| 000043F0: 30 30 2C 25 31 30 31 31 30 30 30 30 2C 24 46 46 |00,%10110000,$FF| 00004400: 0D 20 20 20 20 20 20 20 20 20 2E 45 4E 44 0D |. .END. |
+CBMSTART =$C000.+READPUF =$0400.+DIRPU
F =$0500..````````````````````````````
`````````..}CBMSTART:STARTADRESSE IM 64E
R }.}
}.}READPUF :SPEICHER FUER EMPFA
NGENEN }.} SEKTOR
}.}DIRPUF :SPEICHER FUER DIREC
TORY }..````````````````````````````
`````````.. .GOTO WEITER._GBY.
BVC * ;EIN BYTE VOM.
CLV ;RW-KOPF HOLEN.
LDA $1C01. .ENDMACRO._TRA.
BIT $1800 ;AUF ATN WARTEN.
BPL *-3 ;$8F IST EIN.
.B $8F,$00,$18;ILLEGALER, DER.
;(AKKU AND X).
;ABLEGT. BIT $1800
;AUF ATN CLEAR. BMI *-3
;WARTEN. .ENDMACRO._WEITER..````
`````````````````````````````````..}COMP
UTER-TEIL }..````
`````````````````````````````````..
.SETPC CBMSTART..+LISTEN =$FFB1.+S
ECLST =$FF93.+IECOUT =$FFA8.+UNLIST
=$FFAE.+FLOPSTART=$0500.. .BEG
IN. JMP INSTALL. JMP L
OAD. JMP MOTOROFF. JMP
RESET. JMP SETTRS. JM
P READ. JMP TRACKPOS.
JMP TEST. JMP CACHEDIR.
JMP FINDDIR..-ERROR SEC. R
TS.;ALLE 64 BYTE FINDET SICH WAS VON DER
.;RDTAB. ETWAS UNUEBERSICHTLICH..
.+RDTAB .B 255,255,255,255..;```` SE
NDET XREG ZUR FLOPPY ``````````.;```` ER
G: C=0,Z=0,A=0,Y=8,X=UNV. .+SEND.
BIT $DD00. BMI SEND ;
ODER BMI ERROR. BVS SEND ;
BVS ERROR.. LDY#8. S
TY $DD00. LDA SENDTAB,X.
AND#240. STA $DD00.
LSR. LSR. NOP.
NOP. AND#240. NOP.
STY $DD00. NOP.
NOP. STA $DD00. LDA
SENDTAB,X. ASL. ASL.
NOP. STY $DD00.
NOP. NOP. STA $DD00
. CLC. NOP. L
DA#0. NOP. NOP.
STA $DD00. RTS.. .FI
LL (RDTAB+64-*,0).-RDTAB2 .B 191,191,19
1,191..;```` HILFT BEIM TESTEN DES INTER
LEAVES.; FUER BEREICH XREG UND ILV YR
EG .+TEST LDA TRTAB,X. S
TA TS2+1. LDA MXTAB,X.
STA MX. STY ILV+1. LD
A#0. STA SECT.-TS2 LDX#123
. LDY SECT. JSR SETTRS
.-ILV LDA#4 ;INTERLEAVE.
ADC SECT.-TS3 CMP MX ;ANZAHL
SEKTOREN. BCC TS4. SBC
MX.-TS4 STA SECT. JSR REA
D. INC 53280. INC 2023
. BNE TS2. RTS.-TRTAB
.B 31,25,18,17. .FILL (RDTAB+1
28-*,0).-RDTAB3 .B 127,127,127,127.-MXT
AB .B 17,18,19,21.-SECT .B 0.-MX
.B 0..````` LADER AUSSCHALTEN ```````
````````.+RESET LDX#0. JMP S
END.+GETBYTE. INX. LDA
READPUF,X. CPX BLOCKMAX.
BEQ GB2. RTS.-GB2 LDA
FERTIG. BEQ GB2-1. STY
INDEXMERK. JSR READ.
LDY READPUF+1. LDX READPUF.
BNE MEHRBLOCK. INY.
STY BLOCKMAX. STX FERTIG.
LDY INDEXMERK. INX.
BNE GETBYTE.. .FILL (RDTAB
+192-*,0).-RDTAB4 .B 63,63,63,63..-MEHR
BLOCK. JSR SETTRS. LDY
INDEXMERK. LDX#1. BNE
GETBYTE..-FERTIG .B 0.-BLOCKMAX .B
0.-INDEXMERK .B 0.````` LAEDT EINE DATEI
AB TRACK (XREG) . UND SEKTOR (YREG
) .+LOAD. JSR SE
TTRS. LDX#1. STX FERTI
G. DEX. STX BLOCKMAX.
DEX. JSR GETBYTE.
STA 45. JSR GETBYTE.
STA 46. LDY#0.-LOAD1 JSR
GETBYTE. BEQ LOAD2. S
TA (45),Y. INY. BNE LO
AD1. INC 46. BNE LOAD1
.-LOAD2. INY. BNE LD3.
INC 46.-LD3 STY 45.
RTS.````` MOTOR AUSSCHALTEN ````````
```````.+MOTOROFF LDX#62. JMP S
END..````` MOTOR EINSCHALTEN, POSITIONIE
REN . XREG=TRACKNUMMER
.+TRACKPOS STX LADE2+1. LDA
#63. JMP LADE3.;```` UEBERMITTE
LT TRACK (XREG) UND .; SEKTOR (YR
EG) .+SETTRS STY LA
DE2+1.-LADE3 JSR SEND.-LADE2 LDX#0
. JSR SEND. RTS..+SEND
TAB. .B %00000000,%00001000.
.B %10000000,%10001000. .B
%00000100,%00001100. .B %1000010
0,%10001100. .B %00100000,%00101
000. .B %10100000,%10101000.
.B %00100100,%00101100. .B
%10100100,%10101100.. .B %010000
00,%01001000. .B %11000000,%1100
1000. .B %01000100,%01001100.
.B %11000100,%11001100. .B
%01100000,%01101000. .B %111000
00,%11101000. .B %01100100,%0110
1100. .B %11100100,%11101100..
.B %00010000,%00011000. .
B %10010000,%10011000. .B %00010
100,%00011100. .B %10010100,%100
11100. .B %00110000,%00111000.
.B %10110000,%10111000. .
B %00110100,%00111100. .B %10110
100,%10111100.. .B %01010000,%01
011000. .B %11010000,%11011000.
.B %01010100,%01011100.
.B %11010100,%11011100. .B %0111
0000,%01111000. .B %11110000,%11
111000. .B %01110100,%01111100.
.B %11110100,%11111100..-RERROR
SEC. RTS.````` LIEST EINEN BL
OCK IN DEN PUFFER . READPUF1
.````` ERG: C=0,Z=0,X
=0,A=0,Y=8 .+READ BIT $DD00.
BMI READ ; ODER BMI RERROR.
BVC READ ; ODER BVC RERROR..
LDX#0 ;WERT FUER ATN=0.
LDY#128. STY INCR+1..
LDY#8 ;WERT FUER ATN=1.
STY $DD00. STX INCR+1.-R
E1 STX $DD00. NOP.
LDA $DD00 ;EOR $DD00 AUS...
STY $DD00. INC INCR+1.
STX $DD00. LSR. LSR
. EOR $DD00.. STY $DD0
0. LSR. LSR.
STX $DD00. NOP. EOR $D
D00.. STY $DD00. LSR.
LSR. STX $DD00.
NOP. LDX $DD00. EOR
RDTAB,X ;DIE 2 UNTEREN.
;BITS VON $DD00. STY $D
D00 ;ENTHALTEN MUELL.+INCR STA RE
ADPUF ;AUS $DD02, DER. LDX#0
;UNBEKANNT IST,. LDA INCR
+1 ;DAHER SCHEIDET. BNE RE1
;EIN SIMPLES.
;EOR $DD00 AUS. NOP. N
OP. STX $DD00. CLC.
RTS..````` INSTALLIERT DAS SYSTEM
.+INSTALL LDA#>PUFFER.
LDX#>FLOPSTART. STX HI+1.
STA TR1+2. LDY#0.+SYSTE
M SEI. LDA#8. JSR LI
STEN. LDA#$6F. JSR SEC
LST. LDA#"M". JSR IECO
UT. LDA#"-". JSR IECOU
T. LDA#"W". JSR IECOUT
. TYA. JSR IECOUT.-HI
LDA#0. JSR IECOUT.
LDA#16. TAX. JSR IE
COUT.-TR1 LDA PUFFER,Y. JS
R IECOUT. INY. DEX.
BNE TR1. LDA#8.
JSR UNLIST. CPY#0. BN
E SYSTEM. INC TR1+2. I
NC HI+1. LDA HI+1. CMP
#>(FLOPSTART)+3. BCC SYSTEM.
LDA#8. JSR LISTEN.
LDA#$6F. JSR SECLST..
LDA#"U" ;START BEI. J
SR IECOUT ;$0500. LDA#"3".
JSR IECOUT. JSR UNLIST.
CLI. LDY#0.
NOP. DEY. BNE *-2..
LDA $DD00 ;INIT $DD02.
AND#3. EOR#63. STA
$DD02. LDA#0. STA $DD0
0. RTS..````` LIEST 2 ZEICHEN D
ER ERSTEN 64 . FILES UND DIE TR/
SEC-ADRESSE . ERG: C=0 : OK
. C=1 >= 64 FI
LES GELESEN .+CACHEDIR. LDX
#18. LDY#0. TYA.-CDA
STA DIRPUF,Y. INY.
BNE CDA. LDY#63. STY
INDEXMERK. LDY#1.-CD0.
JSR SETTRS. JSR READ.
LDY#0. LDX INDEXMERK.-CD1.
LDA READPUF+2,Y. BPL CD2.
LDA READPUF+3,Y. STA
DIRPUF,X. LDA READPUF+4,Y.
STA DIRPUF+64,X. LDA READP
UF+5,Y. STA DIRPUF+128,X.
LDA READPUF+6,Y. STA DIRPUF
+192,X. DEX. BMI CD3.-
CD2 TYA. CLC. ADC
#$20. TAY. BCC CD1..
STX INDEXMERK. LDY READ
PUF+1. LDX READPUF. BN
E CD0. CLC. RTS.-CD3
SEC. RTS.````` RECHNET DEN
2-ZEICHEN-FILENAMEN . IN TR/SEC UM
. ERG: C=0 : O
K . C=1 : N
ICHT GEFUNDEN . X/Y : T
R/SEC .+FINDDIR.
STY INDEXMERK. LDY#63.-FN1.
LDA INDEXMERK. CMP DIRPU
F+192,Y. BNE FN2. TXA.
CMP DIRPUF+128,Y. BNE
FN2. LDA DIRPUF,Y. TA
X. LDA DIRPUF+64,Y. TA
Y. CLC. RTS.-FN2
DEY. BPL FN1. SEC.
RTS.. .END. .FILL
(256-<*,0).+PUFFER =*...``````````````
```````````````````````..}FLOPPY-TEIL
}.}UNBENUTZTE SPE
ICHERBEREICHE: }.}$0340-$04FF
}.}$20-$3F
}..``````````````
```````````````````````.. .SETPC
FLOPSTART. .BUFFER (PUFFER,PUFF
ER+$2FF). .BEGIN.````` TABELLEN
````````````````````````.+T1 =$040
.+T2 =$080.+T4 =$0C0.+T3
=$200.+T5 =$240.+T6 =$280
.+T7 =$2C0.+T8 =$300.+TABLOO
RG =$F8C0.+TABHIORG =$F8A0.```
`` VARIABLEN ```````````````````````.+WU
NSCHTRACK =$00.+WUNSCHSEKTOR =$01.+LA
STBYTE =$02.+MOTORFLAG =$03.+FM
EM =$04.````` KONSTANTEN ``````
````````````````.+SENDVALUE =$02.+RE
CEIVEVALUE =$0A.+BUSYVALUE =$08.+FR
EEVALUE =$00. SEI
;DECODETABELLE. LDX#23 ;K
OPIEREN, Z.B..-ASA1 LDA TABHI,X ;EN
THAELT ZP23. STA 8,X ;DEN
DECODEWERT. DEX ;FUER
5BIT-. BPL ASA1 ;NIBBLE 23.
.-MAIN2 LDA#0. STA MOTORFLAG
.+MAIN. LDX#255. TXS.
JSR INPUT. BEQ ENDE
;B=0:ENDE. CMP#42. B
CC TRACKSEC. ;B<42
:TR/SEC. CMP#63 ;B=63:SET
TRS. BCC MAUS ;REST:MOTORAU
S. JSR INPUT. STA WUNS
CHTRACK. JSR READHEADER.
JMP MAIN.-MAUS. LDA#255-4.
AND $1C00. STA $1C00.
BCC MAIN2.+ENDE JMP ($FFFC).
-TRACKSEC. STA WUNSCHTRACK.
JSR INPUT. STA WUNSCHSEKT
OR..-TRSE1 JSR READHEADER. C
MP WUNSCHSEKTOR. BNE TRSE1.-WS4
. LDA $1C00 ;SYNC ABWARTEN,.
BMI WS4 ;JETZT LIEGT DER.
LDA $1C01 ;DATENBLOCK AN.
CLV. LDX#63 ;DATE
NBLOCK:.-L1 ;64*5 BYT
ES. *GBY. STA T8,X
;320 BYTES. AND#7 ;LESEN
UND. STA T1,X ;DECODIERUNG
. ;VORBEREITEN.
*GBY. ASL. ROL T
1,X. ASL. ROL T1,X.
LSR. LSR. LSR.
STA T7,X.. *GBY.
STA T2,X. ROR. LSR.
LSR. LSR. ST
A T3,X.. *GBY. ASL.
ROL T2,X. LSR. S
TA T4,X.. *GBY. STA T6,
X. AND#31. STA T5,X..
DEX. BPL L1..
BVC * ;IN DEN 320. CLV
;BYTES STECKT. LDA $1C
01 ;DAS DATENBLOCK-. TAY
;KENNZEICHEN,. LSR
;HIER DAS LETZTE. LSR
;BYTE DER DATEN. LSR.
STA DC5+1. BVC *. C
LV. LDA $1C01. STA LAS
TBYTE.. TYA. ASL LASTB
YTE. ROL. ASL LASTBYTE
. ROL. AND#31.
TAY. LDA TABLO-8,Y.-DC5
ORA 123. STA LASTBYTE.-DECODE
;320 BYTE WERDEN.
INX ;DECODIERT UND.
;AUF DEN STAPEL. LD
Y T5,X ;GELEGT.. LDA T6,X.
LSR T4,X. ROR.
LSR T4,X. ROR. LSR.
LSR. LSR. STA
DC0+1. LDA TABLO-8,Y.-DC0
ORA 123. PHA.. LDY T4
,X. LDA T2,X. AND#31.
STA DC1+1. LDA TABLO-8
,Y.-DC1 ORA 123. PHA..
LDA T7,X. STA DC2+1.
LDY T3,X. LDA TABLO-8,Y.-D
C2 ORA 123. PHA..
LDY T1,X. LDA T8,X. L
SR. LSR. LSR.
STA DC3+1. LDA TABLO-8,Y.-DC3
ORA 123. PHA.. CP
X#63. BCC DECODE. PLA
;DATENBLOCKKZ. LDA LAS
TBYTE ;DURCH LETZTES. PHA
;DATENBYTE ERS..-TRANSFER.
LDX#1. TXS. LDY#0
;2*128 BYTES. LDX#15 ;
AND-MASKE. LDA#SENDVALUE.
STA $1800.-TR1. PLA.
ASL. *TRA. ROR.
*TRA. LSR. LSR.
LSR. *TRA. LSR.
*TRA.. DEY. BN
E TR1. BIT $1800. BPL
*-3. BIT $1800. BMI *-
3. JMP MAIN..
.+READHEADER.
JSR MOTOREIN. LDA $1C0C
;INIT LESEN. ORA#$0E.
STA $1C0C.-WAITHEADER. LDA $
1C00 ;SYNC ABWARTEN. BMI W
AITHEADER. LDA $1C01.
CLV. *GBY. CMP#82
;TEIL DES. BNE WAITHEADER ;H
EADERKENNZ.. LDX#4.-WS2.
STA FMEM ;3.BYTE=>FMEM.
*GBY ;4.BYTE=>AKKU.
DEX. BNE WS2. TAY.
LSR FMEM. ROR.
LSR FMEM. ROR. LSR.
LSR. LSR. TAX.
TYA. AND#31.
TAY. LDA TABLOORG,Y. O
RA TABHIORG,X ;DECODIEREN.. CMP
WUNSCHTRACK. BEQ SECCMP.
JSR KOPF. JMP READHEADER+3.
-SECCMP. LDA FMEM ;TRACK
WAR. AND#31 ;RICHTIG,.
TAX ;SEKTORNUMMER.
EOR FMEM ;IN DEN AKKU.
LSR. ORA TABLOORG,X.
RTS.
.+INPUT. LDA#8
;LED EIN. ORA $1C00.
STA $1C00. LDA#RECEIVEVA
LUE. STA $1800. LDY $1
800:BPL *-3. LDA#FREEVALUE
;INIT. STA $1800. LD
Y $1800:BMI *-3. LDA $1800.
AND#5. ASL. LDY
$1800:BPL *-3. LDY $1800:BMI *-
3. ORA $1800. AND#15.
TAX. LDY $1800:BPL *-3
. LDY $1800:BMI *-3. L
DA $1800. AND#5. ORA I
NPUTTAB,X. TAX. LDA#BU
SYVALUE. STA $1800. LD
A $1C00 ;LED AUS. AND
#255-8. STA $1C00. TXA
. RTS.+INPUTTAB. .B %00
000000,%00000010. .B %00001000,%
00001010. .B %00010000,%00010010
. .B %00011000,%00011010.
.B %00100000,%00100010. .B %00
101000,%00101010. .B %00110000,%
00110010. .B %00111000,%00111010
.+KOPF. LDX#202 ;DEX.
SEC. SBC WUNSCHTRACK.
BCS OK ;DIFFERENZ.
LDX#232 ;VON AKTUELLEM.
EOR#255 ;UND ZIELTRACK.
ADC#1.-OK STX WERT. AS
L ;BEWEWGUNG IN. TAY
;HALFTRACKS. LDX $1
C00 ;STEPPERMOTOR.-WERT INX
;IN DEN UNTEREN. TXA
;BEIDEN BITS. ORA#12.
STA $1C00. LDX#128+18
;18 IST DER. STX $1805
;SCHLECHTESTE. LDX $1805
;MIR BEKANNTE. BMI *-3 ;
WERT FUER DEN. DEY ;
STEPPERMOTOR. BNE WERT-3..
AND#%10011111 ;SPEED IN BITS.
LDX#0 ;5 UND 6. .B
$AC ;LDY ABS.-SPEED ADC#31.
LDY $FED8,X ;TRACKLISTE.
DEY. CPY WUNSCHTRACK.
INX. BCS SPEED.
STA $1C00. RTS.+MOTOREIN.
LDA MOTORFLAG. BNE MOTOREI
N-1. LDA $1C00. ORA#4.
STA $1C00. STA MOTORF
LAG. LDX#120 ;ANLAUFZEIT
.-ME1 DEY ;ABWARTEN. IST
. BNE ME1 ;MIR ZWAR UN-.
DEX ;KLAR, WARUM,.
BNE ME1 ;ABER OHNE.
RTS ;GEHT'S NICHT..;IN D
IESEN BEIDEN TABELLEN SIND DIE.;BITS DUR
CHEINANDERGEWUERFELT, NACH.;DER UEBERTRA
GUNG PASSEN DIE DANN.;WIEDER...+TABLO. .
B $FF,%00000010,%00000000,%00000100. .B
$FF,%00001010,%00001000,%00001100. .B $F
F,$FF ,%00000001,%00000101. .B $FF,
%00001111,%00001001,%00001101. .B $FF,%0
0000110,%00000011,%00000111. .B $FF,%000
01110,%00001011,$FF.+TABHI. .B $FF,%0010
0000,%00000000,%01000000. .B $FF,%101000
00,%10000000,%11000000. .B $FF,$FF
,%00010000,%01010000. .B $FF,%11110000,%
10010000,%11010000. .B $FF,%01100000,%00
110000,%01110000. .B $FF,%11100000,%1011
0000,$FF. .END.
> CLICK IMAGE PREVIEW FOR FULL MODAL