TAKTZYKLEN.SRC
FILE INFORMATION
FILENAME(S): TAKTZYKLEN.SRC
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 01:12:34
APPEARS ON: 2 disk(s)
FILE HASH
59c530f638752caddf843254c46cf732f4751104d26417e06ce07c9e6a9580de
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| AUSGABE 4 86 | TAKTZYKLEN.SRC | PRG | C64er | 23 | 1 | DOWNLOAD FILE |
| 64 ER 4 86 | TAKTZYKLEN.SRC | PRG | DuncanTwain | 29 | 12 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 64 00 9E 39 AC 34 30 39 36 00 19 08 |....d..9.4096...| 00000010: 6E 00 2E 4F 50 54 20 4F 4F 00 1F 08 78 00 3B 00 |n..OPT OO...x.;.| 00000020: 25 08 82 00 3B 00 3A 08 8C 00 3B 20 54 41 4B 54 |%...;.:...; TAKT| 00000030: 5A 59 4B C3 20 45 49 4E 45 53 00 58 08 96 00 3B |ZYK. EINES.X...;| 00000040: 20 4D C6 48 49 4E 45 4E 50 52 4F 47 52 41 4D 4D | M.HINENPROGRAMM| 00000050: 53 20 4D 45 53 53 45 4E 00 5E 08 A0 00 3B 00 64 |S MESSEN.^...;.d| 00000060: 08 AA 00 3B 00 7C 08 B4 00 3B 20 56 91 20 20 4D |...;.|...; V. M| 00000070: 41 52 4B 20 52 49 43 48 54 45 52 53 00 92 08 BE |ARK RICHTERS....| 00000080: 00 3B 20 20 20 20 20 20 41 4C 4C 45 52 53 54 52 |.; ALLERSTR| 00000090: 2E 34 00 A8 08 C8 00 3B 20 20 20 20 20 20 32 38 |.4.....; 28| 000000A0: 30 36 20 4F 59 54 45 4E 00 C3 08 D2 00 3B 20 20 |06 OYTEN.....; | 000000B0: 20 20 20 20 54 45 4C 2E 20 30 34 32 30 37 AD 31 | TEL. 04207.1| 000000C0: 38 37 30 00 C9 08 DC 00 3B 00 CF 08 E6 00 3B 00 |870.....;.....;.| 000000D0: DB 08 F0 00 AC B2 24 43 30 30 30 00 E1 08 FA 00 |......$C000.....| 000000E0: 3B 00 07 09 04 01 46 41 43 20 20 20 20 20 20 B2 |;.....FAC .| 000000F0: 24 36 32 20 20 20 3B 46 4C 49 45 53 53 4B 4F 4D |$62 ;FLIESSKOM| 00000100: 4D 41 AB 41 4B 4B 55 00 29 09 0E 01 46 52 4D 4E |MA.AKKU.)...FRMN| 00000110: 55 4D 20 20 20 B2 24 41 44 38 41 20 3B 41 55 53 |UM .$AD8A ;AUS| 00000120: 44 52 55 43 4B 20 48 4F C3 00 50 09 18 01 43 48 |DRUCK HO..P...CH| 00000130: 4B 43 4F 4D 20 20 20 B2 24 41 45 46 44 20 3B 41 |KCOM .$AEFD ;A| 00000140: 55 46 20 4B 4F 4D 4D 41 20 50 52 55 45 46 45 4E |UF KOMMA PRUEFEN| 00000150: 00 70 09 22 01 A1 41 44 52 20 20 20 B2 24 42 37 |.p."..ADR .$B7| 00000160: 46 37 20 3B 32 AB 42 59 54 45 20 B5 45 47 45 52 |F7 ;2.BYTE .EGER| 00000170: 00 96 09 2C 01 56 49 43 43 54 52 4C 20 20 B2 24 |...,.VICCTRL .$| 00000180: 44 30 31 31 20 3B 52 45 47 2E 20 46 55 45 52 20 |D011 ;REG. FUER | 00000190: 42 53 20 41 55 53 00 B8 09 36 01 52 41 53 54 45 |BS AUS...6.RASTE| 000001A0: 52 20 20 20 B2 24 44 30 31 32 20 3B 52 41 53 54 |R .$D012 ;RAST| 000001B0: 45 52 AB 5A 45 49 4C 45 00 DD 09 40 01 54 49 4D |ER.ZEILE...@.TIM| 000001C0: 45 52 20 20 20 20 B2 24 44 44 30 34 20 3B 54 49 |ER .$DD04 ;TI| 000001D0: 4D 45 52 20 41 20 4C 4F AB 42 59 54 45 00 FF 09 |MER A LO.BYTE...| 000001E0: 4A 01 43 52 41 20 20 20 20 20 20 B2 24 44 44 30 |J.CRA .$DD0| 000001F0: 45 20 3B 54 49 4D 45 52 20 41 20 9A 52 4F 4C 00 |E ;TIMER A .ROL.| 00000200: 21 0A 54 01 43 52 42 20 20 20 20 20 20 B2 24 44 |!.T.CRB .$D| 00000210: 44 30 46 20 3B 54 49 4D 45 52 20 42 20 9A 52 4F |D0F ;TIMER B .RO| 00000220: 4C 00 36 0A 5E 01 3B AB AB AB AB AB AB AB AB AB |L.6.^.;.........| 00000230: AB AB AB AB AB AB 00 5C 0A 68 01 4A 53 52 20 43 |.......\.h.JSR C| 00000240: 48 4B 43 4F 4D 20 20 20 20 20 20 3B 53 54 41 52 |HKCOM ;STAR| 00000250: 54 41 44 52 45 53 53 45 20 44 45 52 00 7C 0A 72 |TADRESSE DER.|.r| 00000260: 01 4A 53 52 20 46 52 4D 4E 55 4D 20 20 20 20 20 |.JSR FRMNUM | 00000270: 20 3B 5A 55 20 4D 45 53 53 80 45 4E 00 9B 0A 7C | ;ZU MESS.EN...|| 00000280: 01 4A 53 52 20 A1 41 44 52 20 20 20 20 20 20 3B |.JSR .ADR ;| 00000290: 52 4F 55 54 49 4E 45 20 48 4F C3 00 BE 0A 86 01 |ROUTINE HO......| 000002A0: 53 54 59 20 4A 53 55 42 52 AA 31 20 20 20 20 20 |STY JSUBR.1 | 000002B0: 3B 55 4E 44 20 41 4C 53 20 53 50 8A 47 AB 00 E5 |;UND ALS SP.G...| 000002C0: 0A 90 01 53 54 41 20 4A 53 55 42 52 AA 32 20 20 |...STA JSUBR.2 | 000002D0: 20 20 20 3B 41 44 52 45 53 53 45 20 53 50 45 49 | ;ADRESSE SPEI| 000002E0: 43 48 45 52 4E 00 EB 0A 9A 01 3B 00 0C 0B A4 01 |CHERN.....;.....| 000002F0: 53 45 49 20 20 20 20 20 20 20 20 20 20 20 20 20 |SEI | 00000300: 3B 49 52 51 20 53 50 45 52 52 45 4E 00 30 0B AE |;IRQ SPERREN.0..| 00000310: 01 4C 44 41 20 23 25 30 30 30 30 31 30 31 31 20 |.LDA #%00001011 | 00000320: 20 3B 42 49 4C 44 53 43 48 49 52 4D 20 41 55 53 | ;BILDSCHIRM AUS| 00000330: 00 40 0B B8 01 53 54 41 20 56 49 43 43 54 52 4C |.@...STA VICCTRL| 00000340: 00 63 0B C2 01 92 20 4C 44 41 20 52 41 53 54 45 |.c.... LDA RASTE| 00000350: 52 20 3B 57 41 52 54 45 4E 20 42 49 53 20 42 49 |R ;WARTEN BIS BI| 00000360: 4C 44 AB 00 85 0B CC 01 42 4E 45 20 92 20 20 20 |LD......BNE . | 00000370: 20 20 20 20 20 3B 53 43 48 49 52 4D 20 47 41 4E | ;SCHIRM GAN| 00000380: 5A 20 41 55 53 00 8B 0B D6 01 3B 00 B0 0B E0 01 |Z AUS.....;.....| 00000390: 4C 44 58 20 23 33 20 20 20 20 20 20 20 20 20 20 |LDX #3 | 000003A0: 3B 42 45 49 44 45 20 54 49 4D 45 52 20 41 55 46 |;BEIDE TIMER AUF| 000003B0: 00 D1 0B EA 01 4C 44 41 20 23 24 46 46 20 20 20 |.....LDA #$FF | 000003C0: 20 20 20 20 20 3B 4D 41 58 49 4D 41 4C 57 45 52 | ;MAXIMALWER| 000003D0: 54 00 EA 0B F4 01 53 45 54 54 49 4D 45 52 20 53 |T.....SETTIMER S| 000003E0: 54 41 20 54 49 4D 45 52 2C 58 00 F2 0B FE 01 44 |TA TIMER,X.....D| 000003F0: 45 58 00 03 0C 08 02 42 50 4C 20 53 45 54 54 49 |EX.....BPL SETTI| 00000400: 4D 45 52 00 09 0C 12 02 3B 00 2D 0C 1C 02 4C 44 |MER.....;.-...LD| 00000410: 41 20 23 25 30 30 30 31 30 30 30 31 20 20 3B 54 |A #%00010001 ;T| 00000420: 49 4D 45 52 20 4B 4F 50 50 45 4C 4E 2C 00 54 0C |IMER KOPPELN,.T.| 00000430: 26 02 4C 44 58 20 23 25 30 31 30 31 30 30 30 31 |&.LDX #%01010001| 00000440: 20 20 3B 4C 41 44 45 4E 20 55 4E 44 20 53 54 41 | ;LADEN UND STA| 00000450: 52 54 45 4E 00 60 0C 30 02 53 54 58 20 43 52 42 |RTEN.`.0.STX CRB| 00000460: 00 6C 0C 3A 02 53 54 41 20 43 52 41 00 81 0C 44 |.l.:.STA CRA...D| 00000470: 02 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB |.;..............| 00000480: AB 00 A7 0C 4E 02 4A 53 55 42 52 20 4A 53 52 20 |....N.JSUBR JSR | 00000490: 24 46 46 46 46 20 3B 53 50 8A 47 20 41 55 46 20 |$FFFF ;SP.G AUF | 000004A0: 52 4F 55 54 49 4E 45 00 BC 0C 58 02 3B AB AB AB |ROUTINE...X.;...| 000004B0: AB AB AB AB AB AB AB AB AB AB AB AB 00 DF 0C 62 |...............b| 000004C0: 02 4C 44 59 20 23 30 20 20 20 20 20 20 20 20 20 |.LDY #0 | 000004D0: 20 3B 42 45 49 44 45 20 54 49 4D 45 52 20 90 00 | ;BEIDE TIMER ..| 000004E0: EB 0C 6C 02 53 54 59 20 43 52 41 00 F7 0C 76 02 |..l.STY CRA...v.| 000004F0: 53 54 59 20 43 52 42 00 1E 0D 80 02 4C 44 41 20 |STY CRB.....LDA | 00000500: 23 25 30 30 30 31 31 30 31 31 20 20 3B 42 49 4C |#%00011011 ;BIL| 00000510: 44 53 43 48 49 52 4D 20 57 49 45 44 45 52 00 36 |DSCHIRM WIEDER.6| 00000520: 0D 8A 02 53 54 41 20 56 49 43 43 54 52 4C 20 20 |...STA VICCTRL | 00000530: 20 20 20 3B 41 4E 00 5A 0D 94 02 43 4C 49 20 20 | ;AN.Z...CLI | 00000540: 20 20 20 20 20 20 20 20 20 20 20 3B 49 52 51 20 | ;IRQ | 00000550: 57 49 45 44 45 52 20 B8 49 AB 00 60 0D 9E 02 3B |WIEDER .I..`...;| 00000560: 00 83 0D A8 02 53 45 43 20 20 20 20 20 20 20 20 |.....SEC | 00000570: 20 20 20 20 20 3B 34 20 54 49 4D 45 52 AB 42 59 | ;4 TIMER.BY| 00000580: 54 45 53 00 A2 0D B2 02 4C 44 41 20 54 49 4D 45 |TES.....LDA TIME| 00000590: 52 20 20 20 20 20 20 20 3B 55 4D 52 45 43 48 4E |R ;UMRECHN| 000005A0: 45 4E 00 C6 0D BC 02 45 B0 20 23 24 46 46 20 20 |EN.....E. #$FF | 000005B0: 20 20 20 20 20 20 3B 46 55 45 52 20 41 55 46 52 | ;FUER AUFR| 000005C0: 55 46 20 42 45 AB 00 E9 0D C6 02 53 42 43 20 23 |UF BE......SBC #| 000005D0: 31 31 20 20 20 20 20 20 20 20 20 3B 4E 4F 45 54 |11 ;NOET| 000005E0: 49 47 54 45 20 5A 59 4B C3 00 07 0E D0 02 53 54 |IGTE ZYK......ST| 000005F0: 41 20 46 41 43 AA 33 20 20 20 20 20 20 20 3B 41 |A FAC.3 ;A| 00000600: 42 5A 49 45 48 45 4E 00 2F 0E DA 02 4C 44 58 20 |BZIEHEN./...LDX | 00000610: 23 33 20 20 20 20 20 20 20 20 20 20 3B 55 4E 44 |#3 ;UND| 00000620: 20 44 49 45 20 52 45 53 54 4C 49 43 48 45 4E 00 | DIE RESTLICHEN.| 00000630: 35 0E E4 02 3B 00 58 0E EE 02 4C 31 20 4C 44 41 |5...;.X...L1 LDA| 00000640: 20 54 49 4D 45 52 AA 31 2C 59 3B 33 20 54 49 4D | TIMER.1,Y;3 TIM| 00000650: 45 52 AB 57 45 52 54 45 00 75 0E F8 02 45 B0 20 |ER.WERTE.u...E. | 00000660: 23 24 46 46 20 20 20 20 20 20 20 20 3B 41 4E 50 |#$FF ;ANP| 00000670: 41 53 53 45 4E 00 80 0E 02 03 53 42 43 20 23 30 |ASSEN.....SBC #0| 00000680: 00 90 0E 0C 03 53 54 41 20 46 41 43 AB 31 2C 58 |.....STA FAC.1,X| 00000690: 00 98 0E 16 03 49 4E 59 00 A0 0E 20 03 44 45 58 |.....INY... .DEX| 000006A0: 00 AB 0E 2A 03 42 4E 45 20 4C 31 00 B1 0E 34 03 |...*.BNE L1...4.| 000006B0: 3B 00 B9 0E 3E 03 53 45 43 00 DC 0E 48 03 54 58 |;...>.SEC...H.TX| 000006C0: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 34 |A ;4| 000006D0: 20 42 59 54 45 20 57 45 52 54 45 4E 00 00 0F 52 | BYTE WERTEN...R| 000006E0: 03 4C 44 58 20 23 24 41 30 20 20 20 20 20 20 20 |.LDX #$A0 | 000006F0: 20 3B 4F 48 4E 45 20 56 B0 5A 45 49 43 48 45 4E | ;OHNE V.ZEICHEN| 00000700: 00 28 0F 5C 03 4A 53 52 20 24 42 43 34 46 20 20 |.(.\.JSR $BC4F | 00000710: 20 20 20 20 20 3B 49 4E 20 46 4C 49 45 53 53 4B | ;IN FLIESSK| 00000720: 4F 4D 4D 41 5A 41 48 4C 00 4E 0F 66 03 4A 4D 50 |OMMAZAHL.N.f.JMP| 00000730: 20 24 42 44 44 37 20 20 20 20 20 20 20 3B 46 41 | $BDD7 ;FA| 00000740: 43 20 41 55 53 47 45 42 45 4E AD 52 54 53 00 00 |C AUSGEBEN.RTS..| 00000750: 00 |. |
....D..9.4096...N..OPT OO...X.;.%...;.:.
..; TAKTZYKC EINES.X...; MFHINENPROGRAMM
S MESSEN.^. .;.D...;.|...; V. MARK RICH
TERS.....; ALLERSTR.4...H.; 28
06 OYTEN.C.R.; TEL. 04207.1870.I...
;.O...;.......$C000.....;.....FAC .
$62 ;FLIESSKOMMA.AKKU.)...FRMNUM .$A
D8A ;AUSDRUCK HOC.P...CHKCOM .$AEFD ;A
UF KOMMA PRUEFEN.P."..ADR .$B7F7 ;2.BY
TE .EGER...,.VICCTRL .$D011 ;REG. FUER
BS AUS...6.RASTER .$D012 ;RASTER.ZEILE
...@.TIMER .$DD04 ;TIMER A LO.BYTE...
J.CRA .$DD0E ;TIMER A .ROL.!.T.CRB
.$DD0F ;TIMER B .ROL.6.^.;.........
.......\.H.JSR CHKCOM ;STARTADRESSE
DER.|.R.JSR FRMNUM ;ZU MESS.EN...|
.JSR .ADR ;ROUTINE HOC.....STY JSUB
R.1 ;UND ALS SP.G......STA JSUBR.2
;ADRESSE SPEICHERN.....;.....SEI
;IRQ SPERREN.0...LDA #%00001011
;BILDSCHIRM AUS.@...STA VICCTRL.C.B.. L
DA RASTER ;WARTEN BIS BILD....L.BNE .
;SCHIRM GANZ AUS...V.;.....LDX #3
;BEIDE TIMER AUF.Q...LDA #$FF
;MAXIMALWERT.....SETTIMER STA TIMER
,X.....DEX.....BPL SETTIMER.....;.-...LD
A #%00010001 ;TIMER KOPPELN,.T.&.LDX #%
01010001 ;LADEN UND STARTEN.`.0.STX CRB
.L.:.STA CRA...D.;..................N.JS
UBR JSR $FFFF ;SP.G AUF ROUTINE...X.;...
...............B.LDY #0 ;BEIDE
TIMER ....L.STY CRA...V.STY CRB.....LDA
#%00011011 ;BILDSCHIRM WIEDER.6...STA V
ICCTRL ;AN.Z...CLI ;IRQ
WIEDER .I..`...;.....SEC ;4
TIMER.BYTES.....LDA TIMER ;UMRECHN
EN.F...E. #$FF ;FUER AUFRUF BE...
.F.SBC #11 ;NOETIGTE ZYKC...P.ST
A FAC.3 ;ABZIEHEN./.Z.LDX #3
;UND DIE RESTLICHEN.5...;.X...L1 LDA
TIMER.1,Y;3 TIMER.WERTE.U...E. #$FF
;ANPASSEN.....SBC #0.....STA FAC.1,X
.....INY. . .DEX...*.BNE L1...4.;...>.SE
C...H.TXA ;4 BYTE WERTEN...R
.LDX #$A0 ;OHNE V.ZEICHEN.(.\.JSR
$BC4F ;IN FLIESSKOMMAZAHL.N.F.JMP
$BDD7 ;FAC AUSGEBEN.RTS...
> CLICK IMAGE PREVIEW FOR FULL MODAL