VDC-POKE.HYP

FILE INFORMATION

FILENAME(S): VDC-POKE.HYP

FILE TYPE(S): PRG

FILE SIZE: 1.9K

FIRST SEEN: 2025-11-30 01:13:03

APPEARS ON: 1 disk(s)

FILE HASH

1da6a638f24d9a29deccb94f4c025df92ec986e3478e0f44d2629947bcee8ff6

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10305 SEITE B	VDC-POKE.HYP	PRG	C64er	17	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 01 1C 0D 1C 64 00 20 2E  53 59 31 2C 33 00 28 1C  |....d. .SY1,3.(.|
00000010: 6E 00 20 2E 4F 42 22 56  44 43 20 4F 42 4A 20 33  |n. .OB"VDC OBJ 3|
00000020: 30 2E 38 2C 50 2C 57 22  00 37 1C 78 00 3B 33 30  |0.8,P,W".7.x.;30|
00000030: 2E 38 2E 31 39 39 31 00  4B 1C 82 00 20 2E 45 51  |.8.1991.K... .EQ|
00000040: 4C 30 30 36 36 3D 24 30  30 36 36 00 6C 1C 8C 00  |L0066=$0066.l...|
00000050: 20 2E 45 51 4C 30 30 36  37 3D 24 30 30 36 37 3B  | .EQL0067=$0067;|
00000060: 42 4C 41 4E 43 4F 56 45  43 54 4F 52 00 8E 1C 96  |BLANCOVECTOR....|
00000070: 00 20 2E 45 51 4C 30 32  41 32 3D 24 30 32 41 32  |. .EQL02A2=$02A2|
00000080: 3B C6 45 54 43 48 20 D2  4F 55 54 49 4E 45 00 A2  |;.ETCH .OUTINE..|
00000090: 1C A0 00 20 2E 45 51 4C  30 32 41 33 3D 24 30 32  |... .EQL02A3=$02|
000000A0: 41 33 00 B6 1C AA 00 20  2E 45 51 4C 30 32 41 34  |A3..... .EQL02A4|
000000B0: 3D 24 30 32 41 34 00 D4  1C B4 00 20 2E 45 51 4C  |=$02A4..... .EQL|
000000C0: 30 32 41 35 3D 24 30 32  41 35 3B C5 49 4E 53 50  |02A5=$02A5;.INSP|
000000D0: 52 55 4E 47 00 EF 1C BE  00 20 2E 45 51 4C 30 32  |RUNG..... .EQL02|
000000E0: 41 41 3D 24 30 32 41 41  3B C6 C5 D4 D6 C5 C3 00  |AA=$02AA;.......|
000000F0: 11 1D C8 00 20 2E 45 51  4C 30 32 41 46 3D 24 30  |.... .EQL02AF=$0|
00000100: 32 41 46 3B D3 54 41 53  48 20 D2 4F 55 54 49 4E  |2AF;.TASH .OUTIN|
00000110: 45 00 25 1D D2 00 20 2E  45 51 4C 30 32 42 30 3D  |E.%... .EQL02B0=|
00000120: 24 30 32 42 30 00 39 1D  DC 00 20 2E 45 51 4C 30  |$02B0.9... .EQL0|
00000130: 32 42 31 3D 24 30 32 42  31 00 57 1D E6 00 20 2E  |2B1=$02B1.W... .|
00000140: 45 51 4C 30 32 42 33 3D  24 30 32 42 33 3B C5 49  |EQL02B3=$02B3;.I|
00000150: 4E 53 50 52 55 4E 47 00  72 1D F0 00 20 2E 45 51  |NSPRUNG.r... .EQ|
00000160: 4C 30 32 42 39 3D 24 30  32 42 39 3B D3 D4 C1 D6  |L02B9=$02B9;....|
00000170: C5 C3 00 97 1D FA 00 20  2E 45 51 4C 41 38 34 35  |....... .EQLA845|
00000180: 3D 24 41 38 34 35 3B D2  CF CD 53 20 45 49 4E 53  |=$A845;...S EINS|
00000190: 43 48 41 4C 54 45 4E 00  C2 1D 04 01 20 2E 45 51  |CHALTEN..... .EQ|
000001A0: 4C 41 42 55 46 3D 24 30  37 46 30 3B DA 57 49 53  |LABUF=$07F0;.WIS|
000001B0: 43 48 45 4E 53 50 45 49  43 48 45 52 20 33 C2 59  |CHENSPEICHER 3.Y|
000001C0: 54 45 00 EB 1D 0E 01 20  2E 45 51 4C 43 44 43 43  |TE..... .EQLCDCC|
000001D0: 3D 24 43 44 43 43 3B D7  45 52 54 20 49 4E 20 D6  |=$CDCC;.ERT IN .|
000001E0: C4 C3 2D D2 45 47 49 53  54 45 52 00 15 1E 18 01  |..-.EGISTER.....|
000001F0: 20 2E 45 51 4C 43 44 44  41 3D 24 43 44 44 41 3B  | .EQLCDDA=$CDDA;|
00000200: D7 45 52 54 20 41 55 53  20 D6 C4 C3 2D D2 45 47  |.ERT AUS ...-.EG|
00000210: 49 53 54 45 52 00 30 1E  22 01 20 2E 45 51 4C 46  |ISTER.0.". .EQLF|
00000220: 37 45 43 3D 24 46 37 45  43 3B C7 45 54 43 46 47  |7EC=$F7EC;.ETCFG|
00000230: 00 4C 1E 2C 01 20 2E 45  51 4C 46 37 46 30 3D 24  |.L.,. .EQLF7F0=$|
00000240: 46 37 46 30 3B D4 41 42  45 4C 4C 45 00 63 1E 36  |F7F0;.ABELLE.c.6|
00000250: 01 20 2E 45 51 4C 46 46  30 30 3D 24 46 46 30 30  |. .EQLFF00=$FF00|
00000260: 3B C3 D2 00 69 1E 40 01  3B 00 77 1E 4A 01 20 2E  |;...i.@.;.w.J. .|
00000270: 42 41 24 30 43 30 30 00  8C 1E 54 01 3B D6 45 43  |BA$0C00...T.;.EC|
00000280: 54 4F 52 45 4E 20 53 45  54 5A 45 4E 00 AE 1E 5E  |TOREN SETZEN...^|
00000290: 01 4C 42 4F 4F 54 20 4C  44 41 23 24 34 43 3B CF  |.LBOOT LDA#$4C;.|
000002A0: 50 43 4F 44 45 20 46 BD  52 20 CA 55 4D 50 00 C2  |PCODE F.R .UMP..|
000002B0: 1E 68 01 20 4C 44 58 23  3C 28 4C 4C 44 41 46 45  |.h. LDX#<(LLDAFE|
000002C0: 43 29 00 D6 1E 72 01 20  4C 44 59 23 3E 28 4C 4C  |C)...r. LDY#>(LL|
000002D0: 44 41 46 45 43 29 00 E4  1E 7C 01 20 53 54 41 4C  |DAFEC)...|. STAL|
000002E0: 30 32 41 32 00 F2 1E 86  01 20 53 54 41 4C 30 32  |02A2..... STAL02|
000002F0: 41 46 00 00 1F 90 01 20  53 54 58 4C 30 32 41 33  |AF..... STXL02A3|
00000300: 00 0E 1F 9A 01 20 53 54  59 4C 30 32 41 34 00 22  |..... STYL02A4."|
00000310: 1F A4 01 20 4C 44 58 23  3C 28 4C 53 54 41 46 45  |... LDX#<(LSTAFE|
00000320: 43 29 00 36 1F AE 01 20  4C 44 59 23 3E 28 4C 53  |C).6... LDY#>(LS|
00000330: 54 41 46 45 43 29 00 44  1F B8 01 20 53 54 58 4C  |TAFEC).D... STXL|
00000340: 30 32 42 30 00 52 1F C2  01 20 53 54 59 4C 30 32  |02B0.R... STYL02|
00000350: 42 31 00 5B 1F CC 01 20  52 54 53 00 65 1F D6 01  |B1.[... RTS.e...|
00000360: 3B 50 45 45 4B 00 79 1F  E0 01 4C 4C 44 41 46 45  |;PEEK.y...LLDAFE|
00000370: 43 20 43 50 58 23 24 30  30 00 87 1F EA 01 20 42  |C CPX#$00..... B|
00000380: 45 51 4C 30 43 30 46 00  9A 1F F4 01 4C 30 43 30  |EQL0C0F.....L0C0|
00000390: 35 20 4C 44 41 4C 46 46  30 30 00 A8 1F FE 01 20  |5 LDALFF00..... |
000003A0: 4A 4D 50 4C 30 32 41 35  00 AE 1F 08 02 3B 00 CF  |JMPL02A5.....;..|
000003B0: 1F 12 02 4C 30 43 30 46  20 4C 44 41 4C 30 32 41  |...L0C0F LDAL02A|
000003C0: 41 3B 41 44 52 45 53 53  45 20 48 4F 4C 45 4E 00  |A;ADRESSE HOLEN.|
000003D0: F9 1F 1C 02 20 4A 53 52  53 45 54 3B 52 45 47 49  |.... JSRSET;REGI|
000003E0: 53 54 45 52 20 42 45 52  45 43 48 4E 45 4E 20 55  |STER BERECHNEN U|
000003F0: 4E 44 20 50 52 BD 46 45  4E 00 17 20 26 02 20 42  |ND PR.FEN.. &. B|
00000400: 4E 45 4C 30 43 30 35 3B  46 41 4C 53 43 48 45 20  |NEL0C05;FALSCHE |
00000410: 41 44 52 45 53 53 45 00  25 20 30 02 20 4C 44 41  |ADRESSE.% 0. LDA|
00000420: 4C 46 46 30 30 00 2E 20  3A 02 20 50 48 41 00 45  |LFF00.. :. PHA.E|
00000430: 20 44 02 20 4A 53 52 4C  41 38 34 35 3B D2 CF CD  | D. JSRLA845;...|
00000440: 53 20 45 49 4E 00 60 20  4E 02 20 4C 44 58 4C 41  |S EIN.` N. LDXLA|
00000450: 42 55 46 3B 4F 46 46 53  45 54 20 48 4F 4C 45 4E  |BUF;OFFSET HOLEN|
00000460: 00 81 20 58 02 20 4A 53  52 4C 43 44 44 41 3B D7  |.. X. JSRLCDDA;.|
00000470: 45 52 54 20 56 4F 4E 20  D6 C4 C3 20 48 4F 4C 45  |ERT VON ... HOLE|
00000480: 4E 00 8A 20 62 02 20 54  41 58 00 93 20 6C 02 20  |N.. b. TAX.. l. |
00000490: 50 4C 41 00 A1 20 76 02  20 53 54 41 4C 46 46 30  |PLA.. v. STALFF0|
000004A0: 30 00 AA 20 80 02 20 54  58 41 00 B3 20 8A 02 20  |0.. .. TXA.. .. |
000004B0: 52 54 53 00 B9 20 94 02  3B 00 DF 20 9E 02 53 45  |RTS.. ..;.. ..SE|
000004C0: 54 20 53 54 41 4C 30 43  31 38 2B 31 3B D2 45 47  |T STAL0C18+1;.EG|
000004D0: 49 53 54 45 52 20 42 45  52 45 43 48 4E 45 4E 00  |ISTER BERECHNEN.|
000004E0: 02 21 A8 02 20 49 4E 43  4C 30 43 31 38 2B 31 3B  |.!.. INCL0C18+1;|
000004F0: 55 4E 44 20 C2 45 52 45  49 43 48 20 50 52 BD 46  |UND .EREICH PR.F|
00000500: 45 4E 00 12 21 B2 02 20  53 54 41 4C 30 43 32 31  |EN..!.. STAL0C21|
00000510: 2B 31 00 25 21 BC 02 4C  30 43 31 38 20 4C 44 41  |+1.%!..L0C18 LDA|
00000520: 4C 30 30 36 37 00 35 21  C6 02 20 53 54 41 4C 41  |L0067.5!.. STALA|
00000530: 42 55 46 2B 31 00 48 21  D0 02 4C 30 43 32 31 20  |BUF+1.H!..L0C21 |
00000540: 4C 44 41 4C 30 30 36 36  00 56 21 DA 02 20 53 54  |LDAL0066.V!.. ST|
00000550: 41 4C 41 42 55 46 00 77  21 E4 02 20 54 59 41 3B  |ALABUF.w!.. TYA;|
00000560: 45 56 54 4C 2E 20 CF 46  46 53 45 54 20 44 41 5A  |EVTL. .FFSET DAZ|
00000570: 55 5A BB 48 4C 45 4E 00  80 21 EE 02 20 43 4C 43  |UZ.HLEN..!.. CLC|
00000580: 00 8E 21 F8 02 20 41 44  43 4C 41 42 55 46 00 B3  |..!.. ADCLABUF..|
00000590: 21 02 03 20 53 54 41 4C  41 42 55 46 3B 57 45 52  |!.. STALABUF;WER|
000005A0: 54 45 20 49 4E 20 4C 41  42 55 46 20 53 49 43 48  |TE IN LABUF SICH|
000005B0: 45 52 4E 00 C1 21 0C 03  20 42 43 43 4C 30 43 32  |ERN..!.. BCCL0C2|
000005C0: 36 00 D1 21 16 03 20 49  4E 43 4C 41 42 55 46 2B  |6..!.. INCLABUF+|
000005D0: 31 00 E6 21 20 03 4C 30  43 32 36 20 4C 44 41 4C  |1..! .L0C26 LDAL|
000005E0: 41 42 55 46 2B 31 00 F3  21 2A 03 20 43 4D 50 23  |ABUF+1..!*. CMP#|
000005F0: 24 44 37 00 FC 21 34 03  20 52 54 53 00 06 22 3E  |$D7..!4. RTS..">|
00000600: 03 3B 50 4F 4B 45 00 23  22 48 03 4C 53 54 41 46  |.;POKE.#"H.LSTAF|
00000610: 45 43 20 43 50 58 23 24  30 30 3B 42 41 4E 4B 20  |EC CPX#$00;BANK |
00000620: 31 35 3F 00 3A 22 52 03  20 42 45 51 4C 30 44 30  |15?.:"R. BEQL0D0|
00000630: 46 3B 4A 41 2C 20 4A 55  4D 50 00 48 22 5C 03 4C  |F;JA, JUMP.H"\.L|
00000640: 30 44 30 35 20 50 48 41  00 6C 22 66 03 20 4C 44  |0D05 PHA.l"f. LD|
00000650: 41 4C 46 46 30 30 3B 4F  52 49 47 49 4E 41 4C 20  |ALFF00;ORIGINAL |
00000660: 57 45 49 54 45 52 4D 41  43 48 45 4E 00 7A 22 70  |WEITERMACHEN.z"p|
00000670: 03 20 4A 4D 50 4C 30 32  42 33 00 80 22 7A 03 3B  |. JMPL02B3.."z.;|
00000680: 00 A2 22 84 03 4C 30 44  30 46 20 53 54 41 4C 41  |.."..L0D0F STALA|
00000690: 42 55 46 2B 32 3B 57 45  52 54 20 53 49 43 48 45  |BUF+2;WERT SICHE|
000006A0: 52 4E 00 BE 22 8E 03 20  4C 44 41 4C 30 32 42 39  |RN..".. LDAL02B9|
000006B0: 3B 41 44 52 45 53 53 45  20 48 4F 4C 45 4E 00 E5  |;ADRESSE HOLEN..|
000006C0: 22 98 03 20 4A 53 52 53  45 54 3B 52 45 47 49 53  |".. JSRSET;REGIS|
000006D0: 54 45 52 20 50 52 BD 46  45 4E 20 55 4E 44 20 53  |TER PR.FEN UND S|
000006E0: 45 54 5A 45 4E 00 04 23  A2 03 20 42 4E 45 4C 30  |ETZEN..#.. BNEL0|
000006F0: 44 30 35 3B 46 41 4C 53  43 48 45 20 41 44 52 45  |D05;FALSCHE ADRE|
00000700: 53 53 45 4E 00 12 23 AC  03 20 4C 44 41 4C 46 46  |SSEN..#.. LDALFF|
00000710: 30 30 00 1B 23 B6 03 20  50 48 41 00 32 23 C0 03  |00..#.. PHA.2#..|
00000720: 20 4A 53 52 4C 41 38 34  35 3B D2 CF CD 53 20 45  | JSRLA845;...S E|
00000730: 49 4E 00 51 23 CA 03 20  4C 44 41 4C 41 42 55 46  |IN.Q#.. LDALABUF|
00000740: 2B 32 3B D0 4F 4B 45 57  45 52 54 20 48 4F 4C 45  |+2;.OKEWERT HOLE|
00000750: 4E 00 6C 23 D4 03 20 4C  44 58 4C 41 42 55 46 3B  |N.l#.. LDXLABUF;|
00000760: 4F 46 46 53 45 54 20 48  4F 4C 45 4E 00 86 23 DE  |OFFSET HOLEN..#.|
00000770: 03 20 4A 53 52 4C 43 44  43 43 3B C1 4B 4B 55 20  |. JSRLCDCC;.KKU |
00000780: 49 4E 20 D6 C4 C3 00 8F  23 E8 03 20 50 4C 41 00  |IN .....#.. PLA.|
00000790: 9D 23 F2 03 20 53 54 41  4C 46 46 30 30 00 A6 23  |.#.. STALFF00..#|
000007A0: FC 03 20 52 54 53 00 AC  23 06 04 3B 00 B4 23 10  |.. RTS..#..;..#.|
000007B0: 04 2E 45 4E 00 00 00                              |..EN...         |

....D. .SY1,3.(.N. .OB"VDC OBJ 30.8,P,W"
.7.X.;30.8.1991.K... .EQL0066=$0066.L...
 .EQL0067=$0067;BLANCOVECTOR..... .EQL02
A2=$02A2;FETCH ROUTINE... . .EQL02A3=$02
A3..... .EQL02A4=$02A4.T... .EQL02A5=$02
A5;EINSPRUNG..... .EQL02AA=$02AA;FETVEC.
..H. .EQL02AF=$02AF;STASH ROUTINE.%.R. .
EQL02B0=$02B0.9... .EQL02B1=$02B1.W... .
EQL02B3=$02B3;EINSPRUNG.R... .EQL02B9=$0
2B9;STAVEC..... .EQLA845=$A845;ROMS EINS
CHALTEN.B... .EQLABUF=$07F0;ZWISCHENSPEI
CHER 3BYTE..... .EQLCDCC=$CDCC;WERT IN V
DC-REGISTER..... .EQLCDDA=$CDDA;WERT AUS
 VDC-REGISTER.0.". .EQLF7EC=$F7EC;GETCFG
.L.,. .EQLF7F0=$F7F0;TABELLE.C.6. .EQLFF
00=$FF00;CR.I.@.;.W.J. .BA$0C00...T.;VEC
TOREN SETZEN...^.LBOOT LDA#$4C;OPCODE F.
R JUMP.B.H. LDX#<(LLDAFEC).V.R. LDY#>(LL
DAFEC)...|. STAL02A2..... STAL02AF..... 
STXL02A3..... STYL02A4."... LDX#<(LSTAFE
C).6... LDY#>(LSTAFEC).D... STXL02B0.R.B
. STYL02B1.[.L. RTS.E.V.;PEEK.Y...LLDAFE
C CPX#$00..... BEQL0C0F.....L0C05 LDALFF
00..... JMPL02A5.....;.O...L0C0F LDAL02A
A;ADRESSE HOLEN..... JSRSET;REGISTER BER
ECHNEN UND PR.FEN.. &. BNEL0C05;FALSCHE 
ADRESSE.% 0. LDALFF00.. :. PHA.E D. JSRL
A845;ROMS EIN.` N. LDXLABUF;OFFSET HOLEN
.. X. JSRLCDDA;WERT VON VDC HOLEN.. B. T
AX.. L. PLA.. V. STALFF00.. .. TXA.. .. 
RTS.. ..;.. ..SET STAL0C18+1;REGISTER BE
RECHNEN..!.. INCL0C18+1;UND BEREICH PR.F
EN..!.. STAL0C21+1.%!..L0C18 LDAL0067.5!
F. STALABUF+1.H!P.L0C21 LDAL0066.V!Z. ST
ALABUF.W!.. TYA;EVTL. OFFSET DAZUZ.HLEN.
.!.. CLC..!.. ADCLABUF..!.. STALABUF;WER
TE IN LABUF SICHERN.A!.. BCCL0C26.Q!.. I
NCLABUF+1..! .L0C26 LDALABUF+1..!*. CMP#
$D7..!4. RTS..">.;POKE.#"H.LSTAFEC CPX#$
00;BANK 15?.:"R. BEQL0D0F;JA, JUMP.H"\.L
0D05 PHA.L"F. LDALFF00;ORIGINAL WEITERMA
CHEN.Z"P. JMPL02B3.."Z.;.."..L0D0F STALA
BUF+2;WERT SICHERN..".. LDAL02B9;ADRESSE
 HOLEN..".. JSRSET;REGISTER PR.FEN UND S
ETZEN..#.. BNEL0D05;FALSCHE ADRESSEN..#.
. LDALFF00..#.. PHA.2#.. JSRLA845;ROMS E
IN.Q#J. LDALABUF+2;POKEWERT HOLEN.L#T. L
DXLABUF;OFFSET HOLEN..#.. JSRLCDCC;AKKU 
IN VDC..#.. PLA..#.. STALFF00..#.. RTS..
#..;..#...EN...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL