VDC ERW.TOPASS

FILE INFORMATION

FILENAME(S): VDC ERW.TOPASS

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 01:12:59

APPEARS ON: 2 disk(s)

FILE HASH

3fee8f08041262e76b16fe1665459037b55964817cfc242cedc046f5e1dc30b1

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10205	VDC ERW.TOPASS	PRG	C64er	6	6	DOWNLOAD FILE
MAANDDISK SEPT	VDC ERW.TOPASS	PRG	earthshaker	6	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0F 62 27 62 64 00 20 2E  90 24 31 33 30 30 3B 53  |.b'bd. ..$1300;S|
00000010: 54 41 52 54 2D 41 44 52  2E 00 2D 62 69 00 3B 00  |TART-ADR..-bi.;.|
00000020: 50 62 6E 00 49 4E 49 20  84 23 33 32 3B 56 45 52  |Pbn.INI .#32;VER|
00000030: 42 49 45 47 54 20 44 49  45 20 52 4F 55 54 49 4E  |BIEGT DIE ROUTIN|
00000040: 45 4E 00 7E 62 73 00 49  4E 49 31 20 81 42 59 2D  |EN.~bs.INI1 .BY-|
00000050: 31 2C 59 3B 46 45 54 43  48 2C 20 53 54 41 53 48  |1,Y;FETCH, STASH|
00000060: 20 20 55 4E 44 20 43 4D  50 41 52 45 20 44 45 53  |  UND CMPARE DES|
00000070: 00 AA 62 78 00 20 82 24  32 41 32 2D 31 2C 59 3B  |..bx. .$2A2-1,Y;|
00000080: C3 31 32 38 20 41 42 20  24 32 41 32 20 41 55 46  |.128 AB $2A2 AUF|
00000090: 20 44 49 45 20 45 49 47  45 4E 45 4E 00 BA 62 7D  | DIE EIGENEN..b}|
000000A0: 00 20 A3 3B 52 4F 55 54  49 4E 45 4E 00 C5 62 82  |. .;ROUTINEN..b.|
000000B0: 00 20 B7 49 4E 49 31 00  CC 62 87 00 20 A4 00 FF  |. .INI1..b.. ...|
000000C0: 62 8C 00 42 59 20 2E 91  24 34 43 2C 3C 28 46 45  |b..BY ..$4C,<(FE|
000000D0: 54 43 48 29 2C 3E 28 46  45 54 43 48 29 2C 24 38  |TCH),>(FETCH),$8|
000000E0: 45 2C 24 30 30 2C 24 46  46 2C 24 41 41 2C 24 42  |E,$00,$FF,$AA,$B|
000000F0: 31 00 29 63 91 00 20 2E  91 24 46 46 2C 24 38 45  |1.)c.. ..$FF,$8E|
00000100: 2C 30 2C 24 46 46 2C 24  36 30 2C 24 34 38 2C 24  |,0,$FF,$60,$48,$|
00000110: 34 43 2C 3C 28 53 54 41  53 48 29 00 5A 63 96 00  |4C,<(STASH).Zc..|
00000120: 20 2E 91 3E 28 53 54 41  53 48 29 2C 24 38 45 2C  | ..>(STASH),$8E,|
00000130: 30 2C 24 46 46 2C 24 41  41 2C 24 36 38 2C 24 39  |0,$FF,$AA,$68,$9|
00000140: 31 2C 24 46 46 2C 24 38  45 2C 24 30 00 85 63 9B  |1,$FF,$8E,$0..c.|
00000150: 00 20 2E 91 24 46 46 2C  24 36 30 2C 24 34 38 2C  |. ..$FF,$60,$48,|
00000160: 24 34 43 2C 3C 28 43 4D  50 41 52 45 29 2C 3E 28  |$4C,<(CMPARE),>(|
00000170: 43 4D 50 41 52 45 29 00  8B 63 A0 00 3B 00 A3 63  |CMPARE)..c..;..c|
00000180: A5 00 46 45 54 43 48 20  8B 23 24 46 46 3B 42 41  |..FETCH .#$FF;BA|
00000190: 4E 4B 20 33 3F 00 AC 63  AA 00 20 B8 41 31 00 B8  |NK 3?..c.. .A1..|
000001A0: 63 AF 00 20 81 24 46 46  30 30 00 D7 63 B4 00 20  |c.. .$FF00..c.. |
000001B0: 96 24 32 41 35 3B 4E 45  49 4E 2C 20 4F 52 47 49  |.$2A5;NEIN, ORGI|
000001C0: 4E 41 4C 20 46 45 54 43  48 00 FA 63 B9 00 41 31  |NAL FETCH..c..A1|
000001D0: 20 83 24 32 41 41 3B 53  4F 4E 53 54 20 41 44 52  | .$2AA;SONST ADR|
000001E0: 2E 20 49 4D 20 56 44 43  2D 52 41 4D 00 0C 64 BE  |. IM VDC-RAM..d.|
000001F0: 00 20 97 58 58 58 3B 53  45 54 5A 45 4E 2C 00 23  |. .XXX;SETZEN,.#|
00000200: 64 C3 00 20 97 24 43 44  44 38 3B 42 59 54 45 20  |d.. .$CDD8;BYTE |
00000210: 4C 45 53 45 4E 00 3C 64  C8 00 20 83 38 3B 55 4E  |LESEN.<d.. .8;UN|
00000220: 44 20 41 4C 54 45 20 4B  4F 4E 46 49 47 2E 00 58  |D ALTE KONFIG..X|
00000230: 64 CD 00 20 96 24 32 42  41 3B 57 49 45 44 45 52  |d.. .$2BA;WIEDER|
00000240: 48 45 52 53 54 45 4C 4C  45 4E 00 5E 64 D2 00 3B  |HERSTELLEN.^d..;|
00000250: 00 76 64 D7 00 53 54 41  53 48 20 8B 23 24 46 46  |.vd..STASH .#$FF|
00000260: 3B 42 41 4E 4B 20 33 3F  00 7F 64 DC 00 20 B8 41  |;BANK 3?..d.. .A|
00000270: 32 00 8B 64 E1 00 20 81  24 46 46 30 30 00 AA 64  |2..d.. .$FF00..d|
00000280: E6 00 20 96 24 32 42 33  3B 4E 45 49 4E 2C 20 4F  |.. .$2B3;NEIN, O|
00000290: 52 47 49 4E 41 4C 20 53  54 41 53 48 00 C5 64 EB  |RGINAL STASH..d.|
000002A0: 00 41 32 20 83 24 32 42  39 3B 53 4F 4E 53 54 20  |.A2 .$2B9;SONST |
000002B0: 41 44 52 2E 20 49 4D 00  DF 64 F0 00 20 97 58 58  |ADR. IM..d.. .XX|
000002C0: 58 3B 56 44 43 2D 52 41  4D 20 53 45 54 5A 45 4E  |X;VDC-RAM SETZEN|
000002D0: 2C 00 E6 64 F5 00 20 A1  00 01 65 FA 00 20 97 24  |,..d.. ...e.. .$|
000002E0: 43 44 43 41 3B 42 59 54  45 20 53 50 45 49 43 48  |CDCA;BYTE SPEICH|
000002F0: 45 52 4E 00 1A 65 FF 00  20 83 38 3B 55 4E 44 20  |ERN..e.. .8;UND |
00000300: 41 4C 54 45 20 4B 4F 4E  46 49 47 2E 00 36 65 04  |ALTE KONFIG..6e.|
00000310: 01 20 96 24 32 42 41 3B  57 49 45 44 45 52 48 45  |. .$2BA;WIEDERHE|
00000320: 52 53 54 45 4C 4C 45 4E  00 3C 65 09 01 3B 00 55  |RSTELLEN.<e..;.U|
00000330: 65 0E 01 43 4D 50 41 52  45 20 8B 23 24 46 46 3B  |e..CMPARE .#$FF;|
00000340: 42 41 4E 4B 20 33 3F 00  5E 65 13 01 20 B8 41 33  |BANK 3?.^e.. .A3|
00000350: 00 6A 65 18 01 20 81 24  46 46 30 30 00 8A 65 1D  |.je.. .$FF00..e.|
00000360: 01 20 96 24 32 43 32 3B  4E 45 49 4E 2C 20 4F 52  |. .$2C2;NEIN, OR|
00000370: 47 49 4E 41 4C 20 43 4D  50 41 52 45 00 AD 65 22  |GINAL CMPARE..e"|
00000380: 01 41 33 20 83 24 32 43  38 3B 53 4F 4E 53 54 20  |.A3 .$2C8;SONST |
00000390: 41 44 52 2E 20 49 4D 20  56 44 43 2D 52 41 4D 00  |ADR. IM VDC-RAM.|
000003A0: BE 65 27 01 20 97 58 58  58 3B 53 45 54 5A 45 4E  |.e'. .XXX;SETZEN|
000003B0: 00 D9 65 2C 01 20 97 24  43 44 44 38 3B 55 4E 44  |..e,. .$CDD8;UND|
000003C0: 20 42 59 54 45 20 4C 45  53 45 4E 00 F3 65 31 01  | BYTE LESEN..e1.|
000003D0: 20 82 37 3B 5A 57 49 53  43 48 45 4E 53 50 45 49  | .7;ZWISCHENSPEI|
000003E0: 43 48 45 52 4E 00 0E 66  36 01 20 83 38 3B 41 4C  |CHERN..f6. .8;AL|
000003F0: 54 45 20 4B 4F 4E 46 49  47 2E 20 4C 41 44 45 4E  |TE KONFIG. LADEN|
00000400: 00 15 66 3B 01 20 A1 00  29 66 40 01 20 85 37 3B  |..f;. ..)f@. .7;|
00000410: 56 45 52 47 4C 45 49 43  48 45 4E 00 48 66 45 01  |VERGLEICHEN.HfE.|
00000420: 20 96 24 32 42 41 3B 41  4C 54 45 20 4B 4F 4E 46  | .$2BA;ALTE KONF|
00000430: 49 47 2E 20 53 45 54 5A  45 4E 00 4E 66 4A 01 3B  |IG. SETZEN.NfJ.;|
00000440: 00 6D 66 4F 01 58 58 58  20 89 36 3B 59 20 5A 57  |.mfO.XXX .6;Y ZW|
00000450: 49 53 43 48 45 4E 53 50  45 49 43 48 45 52 4E 00  |ISCHENSPEICHERN.|
00000460: 8D 66 54 01 20 81 24 46  46 30 30 3B 4B 4F 4E 46  |.fT. .$FF00;KONF|
00000470: 49 47 2E 20 5A 57 49 53  43 48 45 4E 53 50 2E 00  |IG. ZWISCHENSP..|
00000480: 95 66 59 01 20 82 38 00  9E 66 5E 01 20 81 23 30  |.fY. .8..f^. .#0|
00000490: 00 BB 66 63 01 20 82 24  46 46 30 30 3B 42 41 4E  |..fc. .$FF00;BAN|
000004A0: 4B 30 20 52 4F 4D 20 53  45 54 5A 45 4E 00 C5 66  |K0 ROM SETZEN..f|
000004B0: 68 01 20 81 30 2C 58 00  CC 66 6D 01 20 A6 00 D4  |h. .0,X..fm. ...|
000004C0: 66 72 01 20 86 36 00 DC  66 77 01 20 82 37 00 F8  |fr. .6..fw. .7..|
000004D0: 66 7C 01 20 A2 3B 41 44  52 2E 20 41 4E 20 56 44  |f|. .;ADR. AN VD|
000004E0: 43 20 41 4E 50 41 53 53  45 4E 00 02 67 81 01 20  |C ANPASSEN..g.. |
000004F0: 81 30 2C 58 00 0B 67 86  01 20 86 23 30 00 15 67  |.0,X..g.. .#0..g|
00000500: 8B 01 20 83 23 31 38 00  2C 67 90 01 20 97 24 43  |.. .#18.,g.. .$C|
00000510: 44 43 43 3B 55 4E 44 20  53 45 54 5A 45 4E 00 35  |DCC;UND SETZEN.5|
00000520: 67 95 01 20 81 24 37 00  3F 67 9A 01 20 83 23 31  |g.. .$7.?g.. .#1|
00000530: 39 00 4B 67 9F 01 20 96  24 43 44 43 43 00 51 67  |9.Kg.. .$CDCC.Qg|
00000540: A4 01 3B 00 69 67 A9 01  44 45 56 20 85 23 24 31  |..;.ig..DEV .#$1|
00000550: 30 3B 42 41 4E 4B 20 3E  3D 31 36 00 7D 67 AE 01  |0;BANK >=16.}g..|
00000560: 20 B6 44 31 3B 4A 41 2C  20 46 45 48 4C 45 52 00  | .D1;JA, FEHLER.|
00000570: 86 67 B3 01 20 83 23 30  00 9A 67 B8 01 20 88 24  |.g.. .#0..g.. .$|
00000580: 46 46 30 30 3B 52 4F 4D  20 45 49 4E 00 A1 67 BD  |FF00;ROM EIN..g.|
00000590: 01 20 99 00 BC 67 C2 01  20 81 24 46 37 46 30 2C  |. ...g.. .$F7F0,|
000005A0: 58 3B 55 4E 44 20 41 4B  54 55 45 4C 4C 45 00 E1  |X;UND AKTUELLE..|
000005B0: 67 C7 01 20 82 46 45 54  43 48 2B 31 3B 42 41 4E  |g.. .FETCH+1;BAN|
000005C0: 4B 20 4E 41 43 48 20 46  45 54 43 48 2C 20 53 54  |K NACH FETCH, ST|
000005D0: 41 53 48 00 FA 67 CC 01  20 82 53 54 41 53 48 2B  |ASH..g.. .STASH+|
000005E0: 31 3B 55 4E 44 20 43 4D  50 41 52 45 00 09 68 D1  |1;UND CMPARE..h.|
000005F0: 01 20 82 43 4D 50 41 52  45 2B 31 00 10 68 D6 01  |. .CMPARE+1..h..|
00000600: 20 A4 00 38 68 DB 01 44  31 20 96 24 37 44 32 38  | ..8h..D1 .$7D28|
00000610: 3B 46 45 48 4C 45 52 20  2D 3E 49 4C 4C 45 47 41  |;FEHLER ->ILLEGA|
00000620: 4C 20 51 55 41 4E 54 49  54 59 00 00 00           |L QUANTITY...   |

.B'BD. ..$1300;START-ADR..-BI.;.PBN.INI 
.#32;VERBIEGT DIE ROUTINEN.~BS.INI1 .BY-
1,Y;FETCH, STASH  UND CMPARE DES..BX. .$
2A2-1,Y;C128 AB $2A2 AUF DIE EIGENEN..B}
. .;ROUTINEN.EB.. .INI1.LB.. ...B..BY ..
$4C,<(FETCH),>(FETCH),$8E,$00,$FF,$AA,$B
1.)C.. ..$FF,$8E,0,$FF,$60,$48,$4C,<(STA
SH).ZC.. ..>(STASH),$8E,0,$FF,$AA,$68,$9
1,$FF,$8E,$0..C.. ..$FF,$60,$48,$4C,<(CM
PARE),>(CMPARE)..C .;..C..FETCH .#$FF;BA
NK 3?..C.. .A1..C.. .$FF00.WC.. .$2A5;NE
IN, ORGINAL FETCH..C..A1 .$2AA;SONST ADR
. IM VDC-RAM..D.. .XXX;SETZEN,.#DC. .$CD
D8;BYTE LESEN.<DH. .8;UND ALTE KONFIG..X
DM. .$2BA;WIEDERHERSTELLEN.^DR.;.VDW.STA
SH .#$FF;BANK 3?.D.. .A2..D.. .$FF00..D
.. .$2B3;NEIN, ORGINAL STASH.ED..A2 .$2B
9;SONST ADR. IM..D.. .XXX;VDC-RAM SETZEN
,..D.. ...E.. .$CDCA;BYTE SPEICHERN..E..
 .8;UND ALTE KONFIG..6E.. .$2BA;WIEDERHE
RSTELLEN.<E..;.UE..CMPARE .#$FF;BANK 3?.
^E.. .A3.JE.. .$FF00..E.. .$2C2;NEIN, OR
GINAL CMPARE..E".A3 .$2C8;SONST ADR. IM 
VDC-RAM..E'. .XXX;SETZEN.YE,. .$CDD8;UND
 BYTE LESEN..E1. .7;ZWISCHENSPEICHERN..F
6. .8;ALTE KONFIG. LADEN..F;. ..)F@. .7;
VERGLEICHEN.HFE. .$2BA;ALTE KONFIG. SETZ
EN.NFJ.;.MFO.XXX .6;Y ZWISCHENSPEICHERN.
.FT. .$FF00;KONFIG. ZWISCHENSP...FY. .8.
.F^. .#0..FC. .$FF00;BANK0 ROM SETZEN.EF
H. .0,X.LFM. ..TFR. .6..FW. .7..F|. .;AD
R. AN VDC ANPASSEN..G.. .0,X..G.. .#0..G
.. .#18.,G.. .$CDCC;UND SETZEN.5G.. .$7.
?G.. .#19.KG.. .$CDCC.QG..;.IG..DEV .#$1
0;BANK >=16.}G.. .D1;JA, FEHLER..G.. .#0
..G.. .$FF00;ROM EIN..G.. ...GB. .$F7F0,
X;UND AKTUELLE..GG. .FETCH+1;BANK NACH F
ETCH, STASH..GL. .STASH+1;UND CMPARE..HQ
. .CMPARE+1..HV. ..8H..D1 .$7D28;FEHLER 
->ILLEGAL QUANTITY...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL