EISENBAHN.SRC
FILE INFORMATION
FILENAME(S): EISENBAHN.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:12:41
APPEARS ON: 1 disk(s)
FILE HASH
1d6a05cddfc757054a75ec4e630504a59ec98201655e96e8a44955b2c8ad6995
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 ER SONDERH 67 | EISENBAHN.SRC | PRG | C64er, DuncanTwain | 17 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 12 08 64 00 3B 49 52 51 AD 50 B0 54 2E 53 |....d.;IRQ.P.T.S| 00000010: 52 43 00 18 08 6E 00 3B 00 24 08 78 00 AC B2 24 |RC...n.;.$.x...$| 00000020: 43 30 30 30 00 2C 08 82 00 26 B2 AC 00 32 08 8C |C000.,...&...2..| 00000030: 00 3B 00 38 08 96 00 3B 00 55 08 A0 00 50 41 B2 |.;.8...;.U...PA.| 00000040: 35 36 35 37 36 20 20 20 20 20 3B 20 55 53 45 52 |56576 ; USER| 00000050: 50 B0 54 20 41 00 72 08 AA 00 50 42 B2 35 36 35 |P.T A.r...PB.565| 00000060: 37 37 20 20 20 20 20 3B 20 55 53 45 52 50 B0 54 |77 ; USERP.T| 00000070: 20 42 00 97 08 B4 00 44 31 B2 35 36 35 37 38 20 | B.....D1.56578 | 00000080: 20 20 20 20 3B 20 44 41 54 45 4E 52 49 43 48 54 | ; DATENRICHT| 00000090: 2E 20 50 B0 54 20 41 00 BC 08 BE 00 44 32 B2 35 |. P.T A.....D2.5| 000000A0: 36 35 37 39 20 20 20 20 20 3B 20 44 41 54 45 4E |6579 ; DATEN| 000000B0: 52 49 43 48 54 2E 20 50 B0 54 20 42 00 C2 08 C8 |RICHT. P.T B....| 000000C0: 00 3B 00 E4 08 D2 00 44 41 50 31 B2 38 33 30 20 |.;.....DAP1.830 | 000000D0: 20 20 20 20 3B 20 38 32 35 35 20 50 B0 54 20 41 | ; 8255 P.T A| 000000E0: AD 4F 55 54 00 06 09 DC 00 44 41 50 32 B2 38 33 |.OUT.....DAP2.83| 000000F0: 31 20 20 20 20 20 3B 20 38 32 35 35 20 50 B0 54 |1 ; 8255 P.T| 00000100: 20 43 AD 4F 55 54 00 27 09 E6 00 44 41 50 33 B2 | C.OUT.'...DAP3.| 00000110: 38 33 32 20 20 20 20 20 3B 20 38 32 35 35 20 50 |832 ; 8255 P| 00000120: B0 54 20 42 AD 49 4E 00 2D 09 F0 00 3B 00 33 09 |.T B.IN.-...;.3.| 00000130: FA 00 3B 00 41 09 04 01 4A 4D 50 20 52 45 53 45 |..;.A...JMP RESE| 00000140: 54 00 4D 09 0E 01 4A 4D 50 20 4F 55 54 00 53 09 |T.M...JMP OUT.S.| 00000150: 18 01 3B 00 59 09 22 01 3B 00 7C 09 2C 01 52 45 |..;.Y.".;.|.,.RE| 00000160: 53 45 54 20 20 20 20 20 20 20 20 20 3B 52 45 53 |SET ;RES| 00000170: 45 54 20 41 4C 4C 47 45 4D 45 49 4E 00 A1 09 36 |ET ALLGEMEIN...6| 00000180: 01 4C 44 41 20 23 25 31 30 30 30 30 30 31 30 3B |.LDA #%10000010;| 00000190: 53 54 45 55 45 52 42 45 46 45 48 4C 20 38 32 35 |STEUERBEFEHL 825| 000001A0: 35 00 C5 09 40 01 53 54 41 20 42 54 52 20 20 20 |5...@.STA BTR | 000001B0: 20 20 20 20 3B 50 B0 54 20 41 AD 43 B2 4F 55 54 | ;P.T A.C.OUT| 000001C0: 20 42 B2 49 4E 00 D0 09 4A 01 4C 44 41 20 23 30 | B.IN...J.LDA #0| 000001D0: 00 F5 09 54 01 53 54 41 20 44 41 50 31 20 20 20 |...T.STA DAP1 | 000001E0: 20 20 20 3B 48 49 4C 46 53 52 45 47 49 53 54 45 | ;HILFSREGISTE| 000001F0: 52 20 41 B2 30 00 1A 0A 5E 01 53 54 41 20 44 41 |R A.0...^.STA DA| 00000200: 50 32 20 20 20 20 20 20 3B 20 20 20 20 20 20 20 |P2 ; | 00000210: 20 20 20 20 20 20 20 43 B2 30 00 20 0A 68 01 3B | C.0. .h.;| 00000220: 00 42 0A 72 01 53 45 49 20 20 20 20 20 20 20 20 |.B.r.SEI | 00000230: 20 20 20 3B 49 52 51 20 56 45 52 48 49 4E 44 45 | ;IRQ VERHINDE| 00000240: 52 4E 00 67 0A 7C 01 4C 44 41 20 44 31 20 20 20 |RN.g.|.LDA D1 | 00000250: 20 20 20 20 20 3B 50 B0 54 41 2C 20 50 41 32 B2 | ;P.TA, PA2.| 00000260: 41 55 53 47 41 42 45 00 71 0A 86 01 B0 41 20 23 |AUSGABE.q....A #| 00000270: 34 00 7C 0A 90 01 53 54 41 20 44 31 00 82 0A 9A |4.|...STA D1....| 00000280: 01 3B 00 A2 0A A4 01 4C 44 41 20 23 32 35 35 20 |.;.....LDA #255 | 00000290: 20 20 20 20 20 3B 50 B0 54 42 B2 41 55 53 47 41 | ;P.TB.AUSGA| 000002A0: 42 45 00 AD 0A AE 01 53 54 41 20 44 32 00 B3 0A |BE.....STA D2...| 000002B0: B8 01 3B 00 BE 0A C2 01 4C 44 41 20 50 41 00 DD |..;.....LDA PA..| 000002C0: 0A CC 01 50 48 41 20 20 20 20 20 20 20 20 20 20 |...PHA | 000002D0: 20 3B 50 B0 54 41 20 4D 45 52 4B 45 4E 00 EF 0A | ;P.TA MERKEN...| 000002E0: D6 01 B0 41 20 23 25 30 30 30 30 30 31 30 30 00 |...A #%00000100.| 000002F0: 0D 0B E0 01 53 54 41 20 50 41 20 20 20 20 20 20 |....STA PA | 00000300: 20 20 3B 57 41 45 48 4C 54 34 30 34 32 00 2E 0B | ;WAEHLT4042...| 00000310: EA 01 4C 44 41 20 23 25 30 30 30 30 31 31 31 30 |..LDA #%00001110| 00000320: 3B 82 20 83 20 46 55 45 52 20 38 32 35 35 00 52 |;. . FUER 8255.R| 00000330: 0B F4 01 53 54 41 20 50 42 20 20 20 20 20 20 20 |...STA PB | 00000340: 20 3B 49 53 54 20 53 54 45 55 45 52 42 45 46 45 | ;IST STEUERBEFE| 00000350: 48 4C 00 5D 0B FE 01 4C 44 41 20 50 41 00 6E 0B |HL.]...LDA PA.n.| 00000360: 08 02 AF 20 23 25 31 31 31 31 31 30 31 31 00 8D |... #%11111011..| 00000370: 0B 12 02 53 54 41 20 50 41 20 20 20 20 20 20 20 |...STA PA | 00000380: 20 3B 57 41 45 48 4C 54 20 38 32 35 35 00 93 0B | ;WAEHLT 8255...| 00000390: 1C 02 3B 00 99 0B 26 02 3B 00 BE 0B 30 02 4C 44 |..;...&.;...0.LD| 000003A0: 41 20 42 54 52 20 20 20 20 20 20 20 3B 53 54 45 |A BTR ;STE| 000003B0: 55 45 52 42 45 46 45 48 4C 20 46 55 45 52 00 D8 |UERBEFEHL FUER..| 000003C0: 0B 3A 02 B0 41 20 23 25 31 30 30 30 30 30 30 30 |.:..A #%10000000| 000003D0: 3B 20 20 20 38 32 35 35 00 E3 0B 44 02 53 54 41 |; 8255...D.STA| 000003E0: 20 50 42 00 E9 0B 4E 02 3B 00 09 0C 58 02 4C 44 | PB...N.;...X.LD| 000003F0: 41 20 23 30 20 20 20 20 20 20 20 20 3B 50 B0 54 |A #0 ;P.T| 00000400: 42 B2 45 49 4E 47 41 42 45 00 14 0C 62 02 53 54 |B.EINGABE...b.ST| 00000410: 41 20 44 32 00 2C 0C 6C 02 50 4C 41 20 20 20 20 |A D2.,.l.PLA | 00000420: 20 20 20 20 20 20 20 3B 50 B0 54 41 00 4A 0C 76 | ;P.TA.J.v| 00000430: 02 53 54 41 20 50 41 20 20 20 20 20 20 20 20 3B |.STA PA ;| 00000440: 41 4C 54 45 52 20 57 45 52 54 00 58 0C 80 02 4C |ALTER WERT.X...L| 00000450: 44 41 20 23 B3 4F 55 54 00 66 0C 8A 02 4C 44 58 |DA #.OUT.f...LDX| 00000460: 20 23 B1 4F 55 54 00 74 0C 94 02 53 54 41 20 24 | #.OUT.t...STA $| 00000470: 30 33 31 34 00 82 0C 9E 02 53 54 58 20 24 30 33 |0314.....STX $03| 00000480: 31 35 00 8A 0C A8 02 43 4C 49 00 92 0C B2 02 52 |15.....CLI.....R| 00000490: 54 53 00 98 0C BC 02 3B 00 B8 0C C6 02 42 54 52 |TS.....;.....BTR| 000004A0: 20 2E 25 30 30 30 30 30 30 30 30 3B 53 54 45 55 | .%00000000;STEU| 000004B0: 45 52 42 45 46 45 48 4C 00 BE 0C D0 02 3B 00 DE |ERBEFEHL.....;..| 000004C0: 0C DA 02 BC 49 4B 4F 20 20 20 20 20 20 20 20 3B |....IKO ;| 000004D0: 41 55 53 47 41 42 45 42 45 46 45 48 4C 45 00 F7 |AUSGABEBEFEHLE..| 000004E0: 0C E4 02 2E 25 30 30 30 30 30 30 31 30 2C 25 30 |....%00000010,%0| 000004F0: 30 30 30 31 30 31 30 00 FD 0C EE 02 3B 00 18 0D |0001010.....;...| 00000500: F8 02 4F 55 54 20 20 20 20 20 20 20 20 20 20 20 |..OUT | 00000510: 3B 41 55 53 47 41 42 45 00 1E 0D 0C 03 3B 00 3C |;AUSGABE.....;.<| 00000520: 0D 16 03 4C 44 58 20 23 30 20 20 20 20 20 20 20 |...LDX #0 | 00000530: 20 3B 53 43 48 4C 45 8B 45 20 B2 30 00 5E 0D 20 | ;SCHLE.E .0.^. | 00000540: 03 4C 44 41 20 23 32 35 35 20 20 20 20 20 20 3B |.LDA #255 ;| 00000550: 50 B0 54 42 20 B2 20 41 55 53 47 41 42 45 00 69 |P.TB . AUSGABE.i| 00000560: 0D 2A 03 53 54 41 20 44 32 00 74 0D 34 03 4C 44 |.*.STA D2.t.4.LD| 00000570: 41 20 50 41 00 94 0D 3E 03 50 48 41 20 20 20 20 |A PA...>.PHA | 00000580: 20 20 20 20 20 20 20 3B 50 B0 54 20 41 20 4D 45 | ;P.T A ME| 00000590: 52 4B 45 4E 00 B6 0D 48 03 4C 4F 55 54 31 20 20 |RKEN...H.LOUT1 | 000005A0: 20 20 20 20 20 20 20 3B 42 45 47 49 4E 4E 20 53 | ;BEGINN S| 000005B0: 43 48 4C 45 8B 45 00 C1 0D 52 03 4C 44 41 20 50 |CHLE.E...R.LDA P| 000005C0: 41 00 D3 0D 5C 03 B0 41 20 23 25 30 30 30 30 30 |A...\..A #%00000| 000005D0: 31 30 30 00 F2 0D 66 03 53 54 41 20 50 41 20 20 |100...f.STA PA | 000005E0: 20 20 20 20 20 20 3B 57 41 45 48 4C 54 20 34 30 | ;WAEHLT 40| 000005F0: 34 32 00 15 0E 70 03 4C 44 41 20 BC 49 4B 4F 2C |42...p.LDA .IKO,| 00000600: 58 20 20 3B 44 41 54 45 4E 20 BF 44 20 41 55 53 |X ;DATEN .D AUS| 00000610: 47 41 42 45 4E 00 33 0E 7A 03 53 54 41 20 50 42 |GABEN.3.z.STA PB| 00000620: 20 20 20 20 20 20 20 20 3B 20 46 55 45 52 20 38 | ; FUER 8| 00000630: 32 35 35 00 3E 0E 84 03 4C 44 41 20 50 41 00 4F |255.>...LDA PA.O| 00000640: 0E 8E 03 AF 20 23 25 31 31 31 31 31 30 31 31 00 |.... #%11111011.| 00000650: 6E 0E 98 03 53 54 41 20 50 41 20 20 20 20 20 20 |n...STA PA | 00000660: 20 20 3B 57 41 45 48 4C 54 20 38 32 35 35 00 8F | ;WAEHLT 8255..| 00000670: 0E A2 03 4C 44 41 20 44 41 50 31 2C 58 20 20 20 |...LDA DAP1,X | 00000680: 20 3B 44 41 54 45 4E 20 41 4E 20 38 32 35 35 00 | ;DATEN AN 8255.| 00000690: 9A 0E AC 03 53 54 41 20 50 42 00 A2 0E B6 03 49 |....STA PB.....I| 000006A0: 4E 58 00 AD 0E C0 03 43 50 58 20 23 32 00 CB 0E |NX.....CPX #2...| 000006B0: CA 03 42 4E 45 20 4C 4F 55 54 31 20 20 20 20 20 |..BNE LOUT1 | 000006C0: 3B 53 43 48 4C 45 8B 45 4E 80 45 00 D6 0E D4 03 |;SCHLE.EN.E.....| 000006D0: 4C 44 41 20 23 30 00 F6 0E DE 03 53 54 41 20 44 |LDA #0.....STA D| 000006E0: 32 20 20 20 20 20 20 20 20 3B 50 42 20 B2 20 45 |2 ;PB . E| 000006F0: 49 4E 47 41 42 45 00 FC 0E E8 03 3B 00 20 0F F2 |INGABE.....;. ..| 00000700: 03 49 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 |.IN | 00000710: 3B 45 49 4E 53 50 8A 47 20 45 49 4E 47 41 42 45 |;EINSP.G EINGABE| 00000720: 00 2B 0F FC 03 4C 44 41 20 50 41 00 50 0F 06 04 |.+...LDA PA.P...| 00000730: B0 41 20 23 25 30 30 30 30 30 31 30 30 20 3B 53 |.A #%00000100 ;S| 00000740: 43 48 41 4C 54 45 54 20 41 55 46 20 34 30 34 32 |CHALTET AUF 4042| 00000750: 00 5B 0F 10 04 53 54 41 20 50 41 00 68 0F 1A 04 |.[...STA PA.h...| 00000760: 4C 44 41 20 23 32 35 35 00 87 0F 24 04 53 54 41 |LDA #255...$.STA| 00000770: 20 44 32 20 20 20 20 20 20 20 20 20 3B 50 42 B2 | D2 ;PB.| 00000780: 41 55 53 47 41 42 45 00 A7 0F 2E 04 4C 44 41 20 |AUSGABE.....LDA | 00000790: 23 25 30 30 30 30 30 31 30 31 20 3B 83 20 45 49 |#%00000101 ;. EI| 000007A0: 4E 47 41 42 45 2F 42 00 C5 0F 38 04 53 54 41 20 |NGABE/B...8.STA | 000007B0: 50 42 20 20 20 20 20 20 20 20 20 3B 46 55 45 52 |PB ;FUER| 000007C0: 20 38 32 35 35 00 D0 0F 42 04 4C 44 41 20 50 41 | 8255...B.LDA PA| 000007D0: 00 E1 0F 4C 04 AF 20 23 25 31 31 31 31 31 30 31 |...L.. #%1111101| 000007E0: 31 00 07 10 56 04 53 54 41 20 50 41 20 20 20 20 |1...V.STA PA | 000007F0: 20 20 20 20 20 3B 53 43 48 41 4C 54 45 54 20 41 | ;SCHALTET A| 00000800: 55 46 20 38 32 35 35 00 12 10 60 04 4C 44 41 20 |UF 8255...`.LDA | 00000810: 23 30 00 33 10 6A 04 53 54 41 20 44 32 20 20 20 |#0.3.j.STA D2 | 00000820: 20 20 20 20 20 20 3B 50 42 20 B2 20 45 49 4E 47 | ;PB . EING| 00000830: 41 42 45 00 52 10 74 04 4C 44 41 20 50 42 20 20 |ABE.R.t.LDA PB | 00000840: 20 20 20 20 20 20 20 3B 57 45 52 54 20 56 91 20 | ;WERT V. | 00000850: 50 42 00 6F 10 7E 04 53 54 41 20 44 41 50 33 20 |PB.o.~.STA DAP3 | 00000860: 20 20 20 20 20 20 3B 41 55 46 20 44 41 50 33 00 | ;AUF DAP3.| 00000870: 77 10 88 04 50 4C 41 00 9B 10 92 04 53 54 41 20 |w...PLA.....STA | 00000880: 50 41 20 20 20 20 20 20 20 20 20 3B 50 41 20 B2 |PA ;PA .| 00000890: 20 41 4C 54 45 52 20 57 45 52 54 00 A9 10 A6 04 | ALTER WERT.....| 000008A0: 4A 4D 50 20 24 45 41 33 31 00 AF 10 B0 04 3B 00 |JMP $EA31.....;.| 000008B0: B6 10 BA 04 80 45 00 00 00 |.....E... |
....D.;IRQ.P.T.SRC...N.;.$.X...$C000.,..
.&...2...;.8...;.U. .PA.56576 ; USER
P.T A.R...PB.56577 ; USERP.T B.....D
1.56578 ; DATENRICHT. P.T A.....D2.5
6579 ; DATENRICHT. P.T B.B.H.;...R.D
AP1.830 ; 8255 P.T A.OUT.....DAP2.83
1 ; 8255 P.T C.OUT.'...DAP3.832
; 8255 P.T B.IN.-...;.3...;.A...JMP RESE
T.M...JMP OUT.S...;.Y.".;.|.,.RESET
;RESET ALLGEMEIN...6.LDA #%10000010;
STEUERBEFEHL 8255.E.@.STA BTR ;P.T
A.C.OUT B.IN.P.J.LDA #0...T.STA DAP1
;HILFSREGISTER A.0...^.STA DAP2
; C.0. .H.;.B.R.SEI
;IRQ VERHINDERN.G.|.LDA D1 ;P.
TA, PA2.AUSGABE.Q....A #4.|...STA D1....
.;.....LDA #255 ;P.TB.AUSGABE.....S
TA D2.....;...B.LDA PA...L.PHA
;P.TA MERKEN...V..A #%00000100.....STA
PA ;WAEHLT4042.....LDA #%00001110
;. . FUER 8255.R...STA PB ;IST ST
EUERBEFEHL.]...LDA PA.N.... #%11111011..
...STA PA ;WAEHLT 8255.....;...&.
;...0.LDA BTR ;STEUERBEFEHL FUER.X
.:..A #%10000000; 8255...D.STA PB...N.
;...X.LDA #0 ;P.TB.EINGABE...B.ST
A D2.,.L.PLA ;P.TA.J.V.STA PA
;ALTER WERT.X...LDA #.OUT.F...LDX
#.OUT.T...STA $0314.....STX $0315.....C
LI.....RTS.....;...F.BTR .%00000000;STEU
ERBEFEHL...P.;...Z..IKO ;AUSGABEB
EFEHLE......%00000010,%00001010.....;...
..OUT ;AUSGABE.....;.<...LDX #
0 ;SCHLE.E .0.^. .LDA #255 ;
P.TB . AUSGABE.I.*.STA D2.T.4.LDA PA...>
.PHA ;P.T A MERKEN...H.LOUT1
;BEGINN SCHLE.E.A.R.LDA PA.S.\..A
#%00000100...F.STA PA ;WAEHLT 40
42...P.LDA .IKO,X ;DATEN .D AUSGABEN.3.
Z.STA PB ; FUER 8255.>...LDA PA.O
.... #%11111011.N...STA PA ;WAEHL
T 8255.....LDA DAP1,X ;DATEN AN 8255.
....STA PB.....INX.....CPX #2.K.J.BNE LO
UT1 ;SCHLE.EN.E.V.T.LDA #0.....STA D
2 ;PB . EINGABE.....;. ...IN
;EINSP.G EINGABE.+...LDA PA.P...
.A #%00000100 ;SCHALTET AUF 4042.[...STA
PA.H...LDA #255...$.STA D2 ;PB.
AUSGABE.....LDA #%00000101 ;. EINGABE/B.
E.8.STA PB ;FUER 8255.P.B.LDA PA
...L.. #%11111011...V.STA PA ;SC
HALTET AUF 8255...`.LDA #0.3.J.STA D2
;PB . EINGABE.R.T.LDA PB ;
WERT V. PB.O.~.STA DAP3 ;AUF DAP3.
W...PLA.....STA PA ;PA . ALTER W
ERT.....JMP $EA31.....;......E...
> CLICK IMAGE PREVIEW FOR FULL MODAL