00000000: 01 1C 21 1C 0A 00 8F 3A 2A 2A 2A 20 46 5A 2D 4D |..!....:*** FZ-M|
00000010: 45 53 53 20 2A 2A 2A 20 4A 2E 20 44 45 48 4C 45 |ESS *** J. DEHLE|
00000020: 52 00 27 1C 14 00 3A 00 4C 1C 1E 00 8F 3A 20 4B |R.'...:.L....: K|
00000030: 55 52 5A 5A 45 49 54 2D 20 55 4E 44 20 46 52 45 |URZZEIT- UND FRE|
00000040: 51 55 45 4E 5A 4D 45 53 53 55 4E 47 00 71 1C 28 |QUENZMESSUNG.q.(|
00000050: 00 8F 3A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |..: ------------|
00000060: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000070: 2D 00 95 1C 32 00 8F 3A 20 20 4D 49 54 20 44 45 |-...2..: MIT DE|
00000080: 4E 20 43 4F 4D 4D 4F 44 4F 52 45 2D 43 4F 4D 50 |N COMMODORE-COMP|
00000090: 55 54 45 52 4E 00 B9 1C 3C 00 8F 3A 20 20 2D 2D |UTERN...<..: --|
000000A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000000B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 D9 1C 46 00 8F 3A |---------...F..:|
000000C0: 20 20 20 43 36 34 2C 20 20 43 31 32 38 20 20 55 | C64, C128 U|
000000D0: 4E 44 20 20 43 31 32 38 44 00 F9 1C 50 00 8F 3A |ND C128D...P..:|
000000E0: 20 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | -------------|
000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 1B 1D 5A 00 8F 3A |---------...Z..:|
00000100: 20 20 4D 49 54 20 42 45 49 44 45 4E 20 47 52 53 | MIT BEIDEN GRS|
00000110: 2D 49 4E 54 45 52 46 41 43 45 53 00 3C 1D 64 00 |-INTERFACES.<.d.|
00000120: 8F 3A 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.: -------------|
00000130: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 42 1D 6E |------------.B.n|
00000140: 00 3A 00 5B 1D 78 00 8F 3A 20 52 45 47 49 53 54 |.:.[.x..: REGIST|
00000150: 45 52 41 44 52 45 53 53 45 4E 3A 00 74 1D 82 00 |ERADRESSEN:.t...|
00000160: 8F 3A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |.: =============|
00000170: 3D 3D 3D 3D 00 90 1D 8C 00 8F 3A 20 42 41 20 3D |====......: BA =|
00000180: 20 42 41 53 49 53 41 44 52 45 53 53 45 21 21 21 | BASISADRESSE!!!|
00000190: 00 B5 1D 96 00 8F 3A 20 52 41 20 3D 20 52 49 43 |......: RA = RIC|
000001A0: 48 54 55 4E 47 20 41 2C 20 44 41 20 3D 20 44 41 |HTUNG A, DA = DA|
000001B0: 54 45 4E 20 41 00 DA 1D A0 00 8F 3A 20 52 42 20 |TEN A......: RB |
000001C0: 3D 20 52 49 43 48 54 55 4E 47 20 42 2C 20 44 42 |= RICHTUNG B, DB|
000001D0: 20 3D 20 44 41 54 45 4E 20 42 00 E0 1D AA 00 3A | = DATEN B.....:|
000001E0: 00 01 1E B4 00 42 41 B2 35 36 35 37 36 3A 43 4C |.....BA.56576:CL|
000001F0: B2 31 34 37 3A 8F 3A 43 4C 45 41 52 20 48 4F 4D |.147:.:CLEAR HOM|
00000200: 45 00 25 1E BE 00 44 41 20 B2 20 42 41 20 3A 20 |E.%...DA . BA : |
00000210: 44 42 20 B2 20 42 41 AA 31 20 3A 20 52 42 20 B2 |DB . BA.1 : RB .|
00000220: 20 42 41 AA 33 00 2B 1E FA 00 3A 00 4E 1E 04 01 | BA.3.+...:.N...|
00000230: 8F 3A 20 53 50 45 5A 49 45 4C 4C 45 20 52 45 47 |.: SPEZIELLE REG|
00000240: 49 53 54 45 52 41 44 52 45 53 53 45 4E 3A 00 71 |ISTERADRESSEN:.q|
00000250: 1E 0E 01 8F 3A 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |....: ==========|
00000260: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000270: 3D 00 90 1E 18 01 4C 31 54 20 B2 20 42 41 AA 34 |=.....L1T . BA.4|
00000280: 20 3A 8F 3A 54 49 4D 45 52 20 41 2C 20 4C 4F 57 | :.:TIMER A, LOW|
00000290: 00 B0 1E 22 01 48 31 54 20 B2 20 42 41 AA 35 20 |...".H1T . BA.5 |
000002A0: 3A 8F 3A 54 49 4D 45 52 20 41 2C 20 48 49 47 48 |:.:TIMER A, HIGH|
000002B0: 00 CF 1E 2C 01 4C 32 54 20 B2 20 42 41 AA 36 20 |...,.L2T . BA.6 |
000002C0: 3A 8F 3A 54 49 4D 45 52 20 42 2C 20 4C 4F 57 00 |:.:TIMER B, LOW.|
000002D0: EF 1E 36 01 48 32 54 20 B2 20 42 41 AA 37 20 3A |..6.H2T . BA.7 :|
000002E0: 8F 3A 54 49 4D 45 52 20 42 2C 20 48 49 47 48 00 |.:TIMER B, HIGH.|
000002F0: 0F 1F 40 01 43 41 20 B2 20 42 41 AA 31 34 3A 8F |..@.CA . BA.14:.|
00000300: 3A 4B 4F 4E 54 52 4F 4C 4C 52 45 47 2E 20 41 00 |:KONTROLLREG. A.|
00000310: 2F 1F 4A 01 43 42 20 B2 20 42 41 AA 31 35 3A 8F |/.J.CB . BA.15:.|
00000320: 3A 4B 4F 4E 54 52 4F 4C 4C 52 45 47 2E 20 42 00 |:KONTROLLREG. B.|
00000330: 56 1F 54 01 8F 3A 20 20 43 49 20 3D 20 42 41 2B |V.T..: CI = BA+|
00000340: 31 33 3A 52 45 4D 3A 49 4E 54 45 52 52 55 50 54 |13:REM:INTERRUPT|
00000350: 2D 4B 2E 2D 52 2E 00 5C 1F 5E 01 3A 00 82 1F 68 |-K.-R..\.^.:...h|
00000360: 01 8F 3A 20 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |..: ++++++++++++|
00000370: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B |++++++++++++++++|
00000380: 2B 2B 00 88 1F 72 01 3A 00 9D 1F F4 01 8F 3A 20 |++...r.:......: |
00000390: 48 41 55 50 54 50 52 4F 47 52 41 4D 4D 00 B2 1F |HAUPTPROGRAMM...|
000003A0: FE 01 8F 3A 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...: ***********|
000003B0: 2A 2A 00 B8 1F 08 02 3A 00 CA 1F 0D 02 99 20 C7 |**.....:...... .|
000003C0: 28 43 4C 29 3A 99 3A 99 3A 99 00 EF 1F 12 02 99 |(CL):.:.:.......|
000003D0: 20 22 20 20 20 20 20 20 20 2A 2A 20 46 52 45 51 | " ** FREQ|
000003E0: 55 45 4E 5A 4D 45 53 53 55 4E 47 20 2A 2A 22 00 |UENZMESSUNG **".|
000003F0: 12 20 17 02 8F 3A 20 20 53 49 47 4E 41 4C 45 49 |. ...: SIGNALEI|
00000400: 4E 47 41 4E 47 20 49 53 54 20 43 4E 54 32 20 21 |NGANG IST CNT2 !|
00000410: 21 21 00 3A 20 1C 02 99 3A 99 3A 99 20 22 20 20 |!!.: ...:.:. " |
00000420: 45 49 4E 47 41 42 45 20 44 45 52 20 5A 45 49 54 |EINGABE DER ZEIT|
00000430: 42 41 53 49 53 20 21 22 3A 99 00 67 20 21 02 99 |BASIS !":..g !..|
00000440: 20 22 20 20 39 34 37 20 28 43 36 34 29 20 2D 2D | " 947 (C64) --|
00000450: 2D 20 36 34 37 20 28 43 31 32 38 28 44 29 29 22 |- 647 (C128(D))"|
00000460: 3A 99 3A 85 20 5A 42 00 73 20 26 02 97 20 43 41 |:.:. ZB.s &.. CA|
00000470: 2C 31 36 00 95 20 2B 02 8F 3A 20 54 49 4D 45 52 |,16.. +..: TIMER|
00000480: 20 41 20 4D 49 54 20 4A 45 20 32 35 35 20 46 55 | A MIT JE 255 FU|
00000490: 45 4C 4C 45 4E 00 A1 20 30 02 97 20 43 42 2C 38 |ELLEN.. 0.. CB,8|
000004A0: 31 00 C4 20 35 02 8F 3A 20 54 49 4D 45 52 20 42 |1.. 5..: TIMER B|
000004B0: 20 4D 49 54 20 54 49 4D 45 52 20 41 20 4B 4F 50 | MIT TIMER A KOP|
000004C0: 50 45 4C 4E 00 E9 20 3A 02 8F 3A 20 55 4E 44 20 |PELN.. :..: UND |
000004D0: 45 42 45 4E 53 4F 20 4D 49 54 20 4A 45 20 32 35 |EBENSO MIT JE 25|
000004E0: 35 20 46 55 45 4C 4C 45 4E 00 10 21 3F 02 8F 3A |5 FUELLEN..!?..:|
000004F0: 20 49 4D 50 55 4C 53 5A 41 45 48 4C 55 4E 47 20 | IMPULSZAEHLUNG |
00000500: 42 45 47 49 4E 4E 54 20 49 4E 20 5A 2E 35 38 30 |BEGINNT IN Z.580|
00000510: 00 24 21 44 02 97 20 43 41 2C C2 28 43 41 29 20 |.$!D.. CA,.(CA) |
00000520: B0 20 33 33 00 35 21 4E 02 81 20 4B B2 31 20 A4 |. 33.5!N.. K.1 .|
00000530: 20 5A 42 3A 82 00 4A 21 58 02 97 20 43 41 2C C2 | ZB:..J!X.. CA,.|
00000540: 28 43 41 29 20 AF 20 32 35 34 00 71 21 5D 02 8F |(CA) . 254.q!]..|
00000550: 3A 20 49 4D 50 55 4C 53 5A 41 45 48 4C 55 4E 47 |: IMPULSZAEHLUNG|
00000560: 20 42 45 45 4E 44 45 54 20 49 4E 20 5A 2E 36 30 | BEENDET IN Z.60|
00000570: 30 00 8B 21 9E 02 8F 3A 20 41 55 53 4C 45 53 45 |0..!...: AUSLESE|
00000580: 4E 20 44 45 52 20 54 49 4D 45 52 00 B3 21 A8 02 |N DER TIMER..!..|
00000590: 41 B2 C2 28 4C 31 54 29 3A 42 B2 C2 28 48 31 54 |A..(L1T):B..(H1T|
000005A0: 29 3A 43 B2 C2 28 4C 32 54 29 3A 44 B2 C2 28 48 |):C..(L2T):D..(H|
000005B0: 32 54 29 00 D0 21 B2 02 8F 3A 20 46 52 45 51 55 |2T)..!...: FREQU|
000005C0: 45 4E 5A 20 46 5A 20 42 45 52 45 43 48 4E 45 4E |ENZ FZ BERECHNEN|
000005D0: 00 09 22 BC 02 46 5A B2 28 28 32 35 35 AB 41 29 |.."..FZ.((255.A)|
000005E0: AA 28 32 35 35 AB 42 29 AC 32 35 36 AA 28 32 35 |.(255.B).256.(25|
000005F0: 35 AB 43 29 AC 32 35 36 AE 32 AA 28 32 35 35 AB |5.C).256.2.(255.|
00000600: 44 29 AC 32 35 36 AE 33 29 00 2F 22 C6 02 8F 3A |D).256.3)./"...:|
00000610: 20 46 5A 3D 49 4E 54 28 46 5A 2F 31 30 2B 30 2E | FZ=INT(FZ/10+0.|
00000620: 35 29 2F 31 30 30 3A 52 45 4D 3A 20 4B 48 5A 00 |5)/100:REM: KHZ.|
00000630: 39 22 D0 02 99 3A 99 3A 99 00 5E 22 DA 02 99 20 |9"...:.:..^"... |
00000640: 22 20 2A 2A 20 46 52 45 51 55 45 4E 5A 20 46 5A |" ** FREQUENZ FZ|
00000650: 3D 22 3B 46 5A 3B 22 48 5A 20 2A 2A 20 22 00 68 |=";FZ;"HZ ** ".h|
00000660: 22 E4 02 99 3A 99 3A 99 00 78 22 E9 02 8F 3A 20 |"...:.:..x"...: |
00000670: 47 4F 54 4F 20 35 35 30 00 98 22 EE 02 99 20 22 |GOTO 550.."... "|
00000680: 20 20 4E 4F 43 48 20 45 49 4E 45 20 4D 45 53 53 | NOCH EINE MESS|
00000690: 55 4E 47 20 3F 22 3A 99 00 B8 22 F8 02 99 20 22 |UNG ?":..."... "|
000006A0: 20 20 20 20 28 4A 29 41 20 20 4F 44 45 52 20 28 | (J)A ODER (|
000006B0: 4E 29 45 49 4E 22 3A 99 00 DD 22 02 03 99 20 22 |N)EIN":..."... "|
000006C0: 20 20 20 4A 2D 20 4F 44 45 52 20 4E 2D 54 41 53 | J- ODER N-TAS|
000006D0: 54 45 20 44 52 55 45 43 4B 45 4E 21 22 00 F5 22 |TE DRUECKEN!".."|
000006E0: 0C 03 A1 20 41 24 3A 20 8B 20 41 24 B2 22 22 20 |... A$: . A$."" |
000006F0: A7 20 37 38 30 00 10 23 16 03 8B 20 41 24 B2 22 |. 780..#... A$."|
00000700: 4A 22 A7 20 99 20 C7 28 43 4C 29 3A 89 35 35 30 |J". . .(CL):.550|
00000710: 00 2D 23 20 03 99 3A 99 3A 99 20 22 20 20 50 52 |.-# ..:.:. " PR|
00000720: 4F 47 52 41 4D 4D 45 4E 44 45 20 21 22 00 35 23 |OGRAMMENDE !".5#|
00000730: 2A 03 99 3A 80 00 00 00 |*..:.... |
..!....:*** FZ-MESS *** J. DEHLER.'...:.
L....: KURZZEIT- UND FREQUENZMESSUNG.Q.(
..: -----------------------------...2..:
MIT DEN COMMODORE-COMPUTERN...<..: --
-------------------------.Y.F..: C64,
C128 UND C128D...P..: -------------
---------...Z..: MIT BEIDEN GRS-INTERFA
CES.<.D..: -------------------------.B.N
.:.[.X..: REGISTERADRESSEN:.T....: =====
============......: BA = BASISADRESSE!!!
......: RA = RICHTUNG A, DA = DATEN A.Z.
..: RB = RICHTUNG B, DB = DATEN B.....:
.....BA.56576:CL.147:.:CLEAR HOME.%...DA
. BA : DB . BA.1 : RB . BA.3.+...:.N...
.: SPEZIELLE REGISTERADRESSEN:.Q....: ==
=========================.....L1T . BA.4
:.:TIMER A, LOW...".H1T . BA.5 :.:TIMER
A, HIGH.O.,.L2T . BA.6 :.:TIMER B, LOW.
..6.H2T . BA.7 :.:TIMER B, HIGH...@.CA .
BA.14:.:KONTROLLREG. A./.J.CB . BA.15:.
:KONTROLLREG. B.V.T..: CI = BA+13:REM:I
NTERRUPT-K.-R..\.^.:...H..: ++++++++++++
++++++++++++++++++...R.:......: HAUPTPRO
GRAMM......: *************.....:.J.... G
(CL):.:.:....... " ** FREQUENZMESS
UNG **".. ...: SIGNALEINGANG IST CNT2 !
!!.: ...:.:. " EINGABE DER ZEITBASIS !"
:..G !.. " 947 (C64) --- 647 (C128(D))"
:.:. ZB.S &.. CA,16.. +..: TIMER A MIT J
E 255 FUELLEN.. 0.. CB,81.D 5..: TIMER B
MIT TIMER A KOPPELN.. :..: UND EBENSO M
IT JE 255 FUELLEN..!?..: IMPULSZAEHLUNG
BEGINNT IN Z.580.$!D.. CA,B(CA) . 33.5!N
.. K.1 . ZB:..J!X.. CA,B(CA) . 254.Q!]..
: IMPULSZAEHLUNG BEENDET IN Z.600..!...:
AUSLESEN DER TIMER..!..A.B(L1T):B.B(H1T
):C.B(L2T):D.B(H2T).P!...: FREQUENZ FZ B
ERECHNEN.."..FZ.((255.A).(255.B).256.(25
5.C).256.2.(255.D).256.3)./"F..: FZ=INT(
FZ/10+0.5)/100:REM: KHZ.9"P..:.:..^"Z..
" ** FREQUENZ FZ=";FZ;"HZ ** ".H"...:.:.
.X"...: GOTO 550.."... " NOCH EINE MESS
UNG ?":..."... " (J)A ODER (N)EIN":.
.."... " J- ODER N-TASTE DRUECKEN!".."
... A$: . A$."" . 780..#... A$."J". . G(
CL):.550.-# ..:.:. " PROGRAMMENDE !".5#
*..:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL