VORHANG.ASE

FILE INFORMATION

FILENAME(S): VORHANG.ASE

FILE TYPE(S): PRG

FILE SIZE: 1.7K

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

APPEARS ON: 4 disk(s)

FILE HASH

8740e15fc24abcb66a493c4214832304149c4c7248597b7753fe9b72f6f17fb7

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
10710 10 87	VORHANG.ASE	PRG	C64er	15	11	DOWNLOAD FILE
15829 SEITE B	VORHANG.ASE	PRG	C64er, DuncanTwain	8	4	DOWNLOAD FILE
64 ER 10 87 A	VORHANG.ASE	PRG	DuncanTwain	15	11	DOWNLOAD FILE
10710 10 87	VORHANG.ASE	PRG	earthshaker	15	11	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 0F 62 37 62 0A 00 3B 56  4F 52 48 41 4E 47 20 56  |.b7b..;VORHANG V|
00000010: 31 2E 30 20 28 43 29 20  31 39 38 37 20 42 59 20  |1.0 (C) 1987 BY |
00000020: 4D 2E 47 2E 2D 53 4F 46  54 00 5F 62 14 00 3B 2D  |M.G.-SOFT._b..;-|
00000030: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000040: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000050: 2D 00 7C 62 1E 00 20 2E  90 24 30 42 30 30 3B 4B  |-.|b.. ..$0B00;K|
00000060: 41 53 53 45 54 54 45 4E  50 55 46 46 45 52 00 8D  |ASSETTENPUFFER..|
00000070: 62 28 00 20 2E 8F 4D 4F  44 55 53 3D 24 46 41 00  |b(. ..MODUS=$FA.|
00000080: 9B 62 32 00 20 2E 8F 58  31 3D 24 46 42 00 A9 62  |.b2. ..X1=$FB..b|
00000090: 3C 00 20 2E 8F 58 32 3D  24 46 43 00 BC 62 46 00  |<. ..X2=$FC..bF.|
000000A0: 20 2E 8F 5A 41 45 48 4C  45 52 3D 24 46 44 00 CD  | ..ZAEHLER=$FD..|
000000B0: 62 50 00 20 2E 8F 54 45  4D 50 4F 3D 24 46 45 00  |bP. ..TEMPO=$FE.|
000000C0: DE 62 5A 00 20 2E 8F 56  44 43 3D 24 43 44 43 43  |.bZ. ..VDC=$CDCC|
000000D0: 00 EA 62 64 00 20 88 54  45 4D 50 4F 00 06 63 6E  |..bd. .TEMPO..cn|
000000E0: 00 20 82 4D 4F 44 55 53  3B 31 20 3D 20 41 55 46  |. .MODUS;1 = AUF|
000000F0: 2C 20 32 20 3D 20 5A 55  00 19 63 78 00 20 85 23  |, 2 = ZU..cx. .#|
00000100: 30 31 3B 4D 4F 44 55 53  20 31 3F 00 3B 63 82 00  |01;MODUS 1?.;c..|
00000110: 20 B7 5A 55 3B 4E 45 49  4E 2C 20 44 41 4E 4E 20  | .ZU;NEIN, DANN |
00000120: 5A 55 20 56 4F 52 48 41  4E 47 20 5A 55 00 5E 63  |ZU VORHANG ZU.^c|
00000130: 8C 00 20 81 23 34 36 3B  41 4E 46 41 4E 47 53 57  |.. .#46;ANFANGSW|
00000140: 45 52 54 45 20 53 45 54  5A 45 4E 20 46 55 45 52  |ERTE SETZEN FUER|
00000150: 00 6E 63 96 00 20 82 58  31 3B 58 31 20 55 4E 44  |.nc.. .X1;X1 UND|
00000160: 00 7A 63 A0 00 20 82 58  32 3B 58 32 00 95 63 AA  |.zc.. .X2;X2..c.|
00000170: 00 20 83 23 30 30 3B 5A  41 45 48 4C 45 52 20 41  |. .#00;ZAEHLER A|
00000180: 55 46 20 4E 55 4C 4C 00  BC 63 B4 00 4C 4F 4F 50  |UF NULL..c..LOOP|
00000190: 31 20 88 5A 41 45 48 4C  45 52 3B 5A 41 45 48 4C  |1 .ZAEHLER;ZAEHL|
000001A0: 45 52 20 41 42 53 50 45  49 43 48 45 52 4E 00 CC  |ER ABSPEICHERN..|
000001B0: 63 BE 00 20 81 58 31 3B  57 45 52 54 20 31 00 E5  |c.. .X1;WERT 1..|
000001C0: 63 C8 00 20 83 23 33 34  3B 49 4E 20 52 45 47 49  |c.. .#34;IN REGI|
000001D0: 53 54 45 52 20 33 34 00  F6 63 D2 00 20 97 56 44  |STER 34..c.. .VD|
000001E0: 43 3B 53 45 54 5A 45 4E  00 06 64 DC 00 20 81 58  |C;SETZEN..d.. .X|
000001F0: 32 3B 57 45 52 54 20 32  00 1F 64 E6 00 20 83 23  |2;WERT 2..d.. .#|
00000200: 33 35 3B 49 4E 20 52 45  47 49 53 54 45 52 20 33  |35;IN REGISTER 3|
00000210: 35 00 30 64 F0 00 20 97  56 44 43 3B 53 45 54 5A  |5.0d.. .VDC;SETZ|
00000220: 45 4E 00 41 64 FA 00 20  83 58 31 3B 4C 41 44 45  |EN.Ad.. .X1;LADE|
00000230: 20 58 31 00 58 64 04 01  20 AF 3B 45 52 4E 49 45  | X1.Xd.. .;ERNIE|
00000240: 44 52 49 47 45 20 55 4D  20 31 00 79 64 0E 01 20  |DRIGE UM 1.yd.. |
00000250: 88 58 31 3B 55 4E 44 20  53 50 45 49 43 48 45 52  |.X1;UND SPEICHER|
00000260: 45 20 57 49 45 44 45 52  20 41 42 00 8A 64 18 01  |E WIEDER AB..d..|
00000270: 20 84 58 32 3B 4C 41 44  45 20 58 32 00 9E 64 22  | .X2;LADE X2..d"|
00000280: 01 20 9E 3B 45 52 48 4F  45 48 45 20 55 4D 20 31  |. .;ERHOEHE UM 1|
00000290: 00 BF 64 2C 01 20 89 58  32 3B 55 4E 44 20 53 50  |..d,. .X2;UND SP|
000002A0: 45 49 43 48 45 52 45 20  57 49 45 44 45 52 20 41  |EICHERE WIEDER A|
000002B0: 42 00 E7 64 36 01 3B 2D  2D 2D 2D 2D 2D 2D 2D 2D  |B..d6.;---------|
000002C0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000002D0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 00 F3 64 40 01 20 84  |---------..d@. .|
000002E0: 54 45 4D 50 4F 00 04 65  4A 01 4C 4F 4F 50 32 20  |TEMPO..eJ.LOOP2 |
000002F0: 83 54 45 4D 50 4F 00 27  65 54 01 4C 4F 4F 50 33  |.TEMPO.'eT.LOOP3|
00000300: 20 AF 3B 20 56 45 52 5A  4F 45 47 45 52 55 4E 47  | .; VERZOEGERUNG|
00000310: 53 53 43 48 4C 45 49 46  45 00 33 65 5E 01 20 B7  |SSCHLEIFE.3e^. .|
00000320: 4C 4F 4F 50 33 00 3A 65  68 01 20 A3 00 46 65 72  |LOOP3.:eh. ..Fer|
00000330: 01 20 B7 4C 4F 4F 50 32  00 6E 65 7C 01 3B 2D 2D  |. .LOOP2.ne|.;--|
00000340: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000350: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000360: 00 89 65 86 01 20 83 5A  41 45 48 4C 45 52 3B 4C  |..e.. .ZAEHLER;L|
00000370: 41 44 45 20 5A 41 45 48  4C 45 52 00 A5 65 90 01  |ADE ZAEHLER..e..|
00000380: 20 A2 3B 45 52 48 4F 45  48 45 20 5A 41 45 48 4C  | .;ERHOEHE ZAEHL|
00000390: 45 52 20 55 4D 20 31 00  BC 65 9A 01 20 8B 23 34  |ER UM 1..e.. .#4|
000003A0: 31 3B 5A 41 45 48 4C 45  52 20 3D 20 34 31 00 DB  |1;ZAEHLER = 41..|
000003B0: 65 A4 01 20 B7 4C 4F 4F  50 31 3B 4E 45 49 4E 2C  |e.. .LOOP1;NEIN,|
000003C0: 20 44 41 4E 4E 20 4E 4F  43 48 4D 41 4C 00 FC 65  | DANN NOCHMAL..e|
000003D0: AE 01 20 A4 3B 4A 41 2C  20 44 41 4E 4E 20 5A 55  |.. .;JA, DANN ZU|
000003E0: 52 55 45 43 4B 20 5A 55  20 42 41 53 49 43 00 11  |RUECK ZU BASIC..|
000003F0: 66 B8 01 5A 55 20 85 23  30 32 3B 4D 4F 44 55 53  |f..ZU .#02;MODUS|
00000400: 20 32 3F 00 38 66 C2 01  20 B7 45 4E 44 45 3B 4E  | 2?.8f.. .ENDE;N|
00000410: 45 49 4E 2C 20 44 41 4E  4E 20 5A 55 52 55 45 43  |EIN, DANN ZURUEC|
00000420: 4B 20 5A 55 20 42 41 53  49 43 00 53 66 CC 01 20  |K ZU BASIC.Sf.. |
00000430: 81 23 30 36 3B 41 4E 46  41 4E 47 53 57 45 52 54  |.#06;ANFANGSWERT|
00000440: 20 46 55 45 52 00 66 66  D6 01 20 82 58 31 3B 58  | FUER.ff.. .X1;X|
00000450: 31 20 53 45 54 5A 45 4E  00 81 66 E0 01 20 81 23  |1 SETZEN..f.. .#|
00000460: 38 36 3B 41 4E 46 41 4E  47 53 57 45 52 54 20 46  |86;ANFANGSWERT F|
00000470: 55 45 52 00 94 66 EA 01  20 82 58 32 3B 58 32 20  |UER..f.. .X2;X2 |
00000480: 53 45 54 5A 45 4E 00 B2  66 F4 01 20 83 23 34 31  |SETZEN..f.. .#41|
00000490: 3B 41 4E 46 41 4E 47 53  57 45 52 54 20 5A 41 45  |;ANFANGSWERT ZAE|
000004A0: 48 4C 45 52 00 D4 66 FE  01 4C 4F 4F 50 34 20 88  |HLER..f..LOOP4 .|
000004B0: 5A 41 45 48 4C 45 52 3B  5A 41 45 48 4C 45 52 20  |ZAEHLER;ZAEHLER |
000004C0: 53 45 54 5A 45 4E 00 E4  66 08 02 20 81 58 31 3B  |SETZEN..f.. .X1;|
000004D0: 57 45 52 54 20 31 00 FD  66 12 02 20 83 23 33 34  |WERT 1..f.. .#34|
000004E0: 3B 49 4E 20 52 45 47 49  53 54 45 52 20 33 34 00  |;IN REGISTER 34.|
000004F0: 0E 67 1C 02 20 97 56 44  43 3B 53 45 54 5A 45 4E  |.g.. .VDC;SETZEN|
00000500: 00 1E 67 26 02 20 81 58  32 3B 57 45 52 54 20 32  |..g&. .X2;WERT 2|
00000510: 00 37 67 30 02 20 83 23  33 35 3B 49 4E 20 52 45  |.7g0. .#35;IN RE|
00000520: 47 49 53 54 45 52 20 33  35 00 48 67 3A 02 20 97  |GISTER 35.Hg:. .|
00000530: 56 44 43 3B 53 45 54 5A  45 4E 00 59 67 44 02 20  |VDC;SETZEN.YgD. |
00000540: 83 58 31 3B 4C 41 44 45  20 58 31 00 6B 67 4E 02  |.X1;LADE X1.kgN.|
00000550: 20 A2 3B 45 52 48 4F 45  48 45 20 58 31 00 8C 67  | .;ERHOEHE X1..g|
00000560: 58 02 20 88 58 31 3B 55  4E 44 20 53 50 45 49 43  |X. .X1;UND SPEIC|
00000570: 48 45 52 45 20 57 49 45  44 45 52 20 41 42 00 9D  |HERE WIEDER AB..|
00000580: 67 62 02 20 84 58 32 3B  4C 41 44 45 20 58 32 00  |gb. .X2;LADE X2.|
00000590: AF 67 6C 02 20 A3 3B 45  52 4E 49 45 44 52 49 47  |.gl. .;ERNIEDRIG|
000005A0: 45 00 D0 67 76 02 20 89  58 32 3B 55 4E 44 20 53  |E..gv. .X2;UND S|
000005B0: 50 45 49 43 48 45 52 45  20 57 49 45 44 45 52 20  |PEICHERE WIEDER |
000005C0: 41 42 00 F8 67 80 02 3B  2D 2D 2D 2D 2D 2D 2D 2D  |AB..g..;--------|
000005D0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000005E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 00 04 68 8A 02 20  |----------..h.. |
000005F0: 84 54 45 4D 50 4F 00 15  68 94 02 4C 4F 4F 50 35  |.TEMPO..h..LOOP5|
00000600: 20 83 54 45 4D 50 4F 00  37 68 9E 02 4C 4F 4F 50  | .TEMPO.7h..LOOP|
00000610: 36 20 AF 3B 56 45 52 5A  4F 45 47 45 52 55 4E 47  |6 .;VERZOEGERUNG|
00000620: 53 53 43 48 4C 45 49 46  45 00 43 68 A8 02 20 B7  |SSCHLEIFE.Ch.. .|
00000630: 4C 4F 4F 50 36 00 4A 68  B2 02 20 A3 00 56 68 BC  |LOOP6.Jh.. ..Vh.|
00000640: 02 20 B7 4C 4F 4F 50 35  00 7E 68 C6 02 3B 2D 2D  |. .LOOP5.~h..;--|
00000650: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000660: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000670: 00 99 68 D0 02 20 83 5A  41 45 48 4C 45 52 3B 4C  |..h.. .ZAEHLER;L|
00000680: 41 44 45 20 5A 41 45 48  4C 45 52 00 B8 68 DA 02  |ADE ZAEHLER..h..|
00000690: 20 AF 3B 45 52 4E 49 45  44 52 49 47 45 20 5A 41  | .;ERNIEDRIGE ZA|
000006A0: 45 48 4C 45 52 20 55 4D  20 31 00 DA 68 E4 02 20  |EHLER UM 1..h.. |
000006B0: B7 4C 4F 4F 50 34 3B 46  41 4C 4C 53 20 3E 30 20  |.LOOP4;FALLS >0 |
000006C0: 44 41 4E 4E 20 4E 4F 43  48 4D 41 4C 00 E1 68 EE  |DANN NOCHMAL..h.|
000006D0: 02 20 A4 00 EC 68 F8 02  45 4E 44 45 20 A4 00 00  |. ...h..ENDE ...|
000006E0: 00                                                |.               |

.B7B..;VORHANG V1.0 (C) 1987 BY M.G.-SOF
T._B..;---------------------------------
-.|B.. ..$0B00;KASSETTENPUFFER..B(. ..MO
DUS=$FA..B2. ..X1=$FB..B<. ..X2=$FC..BF.
 ..ZAEHLER=$FD.MBP. ..TEMPO=$FE..BZ. ..V
DC=$CDCC..BD. .TEMPO..CN. .MODUS;1 = AUF
, 2 = ZU..CX. .#01;MODUS 1?.;C.. .ZU;NEI
N, DANN ZU VORHANG ZU.^C.. .#46;ANFANGSW
ERTE SETZEN FUER.NC.. .X1;X1 UND.ZC . .X
2;X2..C.. .#00;ZAEHLER AUF NULL..C..LOOP
1 .ZAEHLER;ZAEHLER ABSPEICHERN.LC.. .X1;
WERT 1..CH. .#34;IN REGISTER 34..CR. .VD
C;SETZEN..D.. .X2;WERT 2..D.. .#35;IN RE
GISTER 35.0D.. .VDC;SETZEN.AD.. .X1;LADE
 X1.XD.. .;ERNIEDRIGE UM 1.YD.. .X1;UND 
SPEICHERE WIEDER AB..D.. .X2;LADE X2..D"
. .;ERHOEHE UM 1..D,. .X2;UND SPEICHERE 
WIEDER AB..D6.;-------------------------
---------..D@. .TEMPO..EJ.LOOP2 .TEMPO.'
ET.LOOP3 .; VERZOEGERUNGSSCHLEIFE.3E^. .
LOOP3.:EH. ..FER. .LOOP2.NE|.;----------
------------------------..E.. .ZAEHLER;L
ADE ZAEHLER..E.. .;ERHOEHE ZAEHLER UM 1.
.E.. .#41;ZAEHLER = 41..E.. .LOOP1;NEIN,
 DANN NOCHMAL..E.. .;JA, DANN ZURUECK ZU
 BASIC..F..ZU .#02;MODUS 2?.8FB. .ENDE;N
EIN, DANN ZURUECK ZU BASIC.SFL. .#06;ANF
ANGSWERT FUER.FFV. .X1;X1 SETZEN..F.. .#
86;ANFANGSWERT FUER..F.. .X2;X2 SETZEN..
F.. .#41;ANFANGSWERT ZAEHLER.TF..LOOP4 .
ZAEHLER;ZAEHLER SETZEN..F.. .X1;WERT 1..
F.. .#34;IN REGISTER 34..G.. .VDC;SETZEN
..G&. .X2;WERT 2.7G0. .#35;IN REGISTER 3
5.HG:. .VDC;SETZEN.YGD. .X1;LADE X1.KGN.
 .;ERHOEHE X1..GX. .X1;UND SPEICHERE WIE
DER AB..GB. .X2;LADE X2..GL. .;ERNIEDRIG
E.PGV. .X2;UND SPEICHERE WIEDER AB..G..;
----------------------------------..H.. 
.TEMPO..H..LOOP5 .TEMPO.7H..LOOP6 .;VERZ
OEGERUNGSSCHLEIFE.CH.. .LOOP6.JH.. ..VH.
. .LOOP5.~HF.;--------------------------
--------..HP. .ZAEHLER;LADE ZAEHLER..HZ.
 .;ERNIEDRIGE ZAEHLER UM 1.ZH.. .LOOP4;F
ALLS >0 DANN NOCHMAL..H.. ...H..ENDE ...
.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL