ZEICHENSATZ

FILE INFORMATION

FILENAME(S): ZEICHENSATZ

FILE TYPE(S): PRG

FILE SIZE: 1009b

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

APPEARS ON: 2 disk(s)

FILE HASH

ce6a5cceaa86a8f1af3c93d46e758590083d5449a48398347001e04163df23b1

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SONDERHEFT 2 86	ZEICHENSATZ	PRG	C64er	11	0	DOWNLOAD FILE
SONDER 2 86 1	ZEICHENSATZ	PRG	DuncanTwain	24	4	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F F3 1F 0A 00 2E 45  51 20 56 4F 4E 20 3D 20  |.......EQ VON = |
00000010: 35 33 32 34 38 20 3B 24  44 30 30 30 00 0F 20 14  |53248 ;$D000.. .|
00000020: 00 2E 45 51 20 4E 41 43  48 20 3D 20 35 37 33 34  |..EQ NACH = 5734|
00000030: 34 20 3B 24 45 30 30 30  00 20 20 1E 00 2E 45 51  |4 ;$E000.  ...EQ|
00000040: 20 58 20 3D 20 34 30 39  36 00 44 20 28 00 2E 42  | X = 4096.D (..B|
00000050: 41 20 24 43 30 30 30 20  3B 53 54 41 52 54 41 44  |A $C000 ;STARTAD|
00000060: 52 45 53 53 45 20 3D 20  34 39 31 35 32 00 63 20  |RESSE = 49152.c |
00000070: 29 00 20 53 45 49 3B 49  4E 54 45 52 52 55 50 54  |). SEI;INTERRUPT|
00000080: 20 46 4C 41 47 20 53 45  54 5A 45 4E 00 95 20 32  | FLAG SETZEN.. 2|
00000090: 00 20 4C 44 41 23 3C 28  56 4F 4E 29 3B 3E 3E 56  |. LDA#<(VON);>>V|
000000A0: 4F 4E 3C 3C 20 57 49 52  44 20 49 4D 20 48 49 2F  |ON<< WIRD IM HI/|
000000B0: 4C 4F 2D 42 59 54 45 20  46 4F 52 4D 41 54 00 A5  |LO-BYTE FORMAT..|
000000C0: 20 3C 00 20 4C 44 58 23  3E 28 56 4F 4E 29 00 CA  | <. LDX#>(VON)..|
000000D0: 20 46 00 20 53 54 41 24  46 41 3B 4E 41 43 48 20  | F. STA$FA;NACH |
000000E0: 24 46 41 2F 24 46 42 20  47 45 53 50 45 49 43 48  |$FA/$FB GESPEICH|
000000F0: 45 52 54 00 D6 20 50 00  20 53 54 58 24 46 42 00  |ERT.. P. STX$FB.|
00000100: 01 21 5A 00 20 4C 44 41  23 3C 28 4E 41 43 48 29  |.!Z. LDA#<(NACH)|
00000110: 3B 44 41 53 20 47 4C 45  49 43 48 45 20 46 55 45  |;DAS GLEICHE FUE|
00000120: 52 20 3E 3E 4E 41 43 48  3C 3C 00 12 21 64 00 20  |R >>NACH<<..!d. |
00000130: 4C 44 58 23 3E 28 4E 41  43 48 29 00 1E 21 6E 00  |LDX#>(NACH)..!n.|
00000140: 20 53 54 41 24 46 43 00  2A 21 78 00 20 53 54 58  | STA$FC.*!x. STX|
00000150: 24 46 44 00 51 21 82 00  20 4C 44 59 23 30 3B 5A  |$FD.Q!.. LDY#0;Z|
00000160: 41 45 48 4C 45 52 20 4D  49 54 20 4E 55 4C 4C 20  |AEHLER MIT NULL |
00000170: 56 4F 52 42 45 4C 45 47  45 4E 00 5D 21 8C 00 20  |VORBELEGEN.]!.. |
00000180: 53 54 59 24 46 45 00 69  21 96 00 20 53 54 59 24  |STY$FE.i!.. STY$|
00000190: 46 46 00 73 21 A0 00 20  4C 44 41 31 00 9B 21 AA  |FF.s!.. LDA1..!.|
000001A0: 00 20 41 4E 44 23 32 35  31 3B 45 4E 54 53 50 52  |. AND#251;ENTSPR|
000001B0: 49 43 48 54 20 42 49 4E  41 45 52 20 31 31 31 31  |ICHT BINAER 1111|
000001C0: 31 30 31 31 00 BB 21 B4  00 20 53 54 41 31 3B 41  |1011..!.. STA1;A|
000001D0: 4C 53 4F 20 42 49 54 20  32 20 41 55 53 42 4C 45  |LSO BIT 2 AUSBLE|
000001E0: 4E 44 45 4E 00 EA 21 BE  00 4C 4F 4F 50 20 4C 44  |NDEN..!..LOOP LD|
000001F0: 41 28 24 46 41 29 2C 59  3B 44 45 4E 20 41 4B 4B  |A($FA),Y;DEN AKK|
00000200: 55 20 4D 49 54 20 3E 3E  56 4F 4E 3C 3C 20 4C 41  |U MIT >>VON<< LA|
00000210: 44 45 4E 00 16 22 C8 00  20 53 54 41 28 24 46 43  |DEN..".. STA($FC|
00000220: 29 2C 59 3B 55 4E 44 20  4E 41 43 48 20 3E 3E 4E  |),Y;UND NACH >>N|
00000230: 41 43 48 3C 3C 20 53 50  45 49 43 48 45 52 4E 00  |ACH<< SPEICHERN.|
00000240: 38 22 D2 00 20 49 4E 43  24 46 41 3B 3E 3E 56 4F  |8".. INC$FA;>>VO|
00000250: 4E 3C 3C 20 55 4D 20 31  20 45 52 48 4F 45 48 45  |N<< UM 1 ERHOEHE|
00000260: 4E 00 43 22 DC 00 20 42  4E 45 57 45 00 4F 22 E6  |N.C".. BNEWE.O".|
00000270: 00 20 49 4E 43 24 46 42  00 74 22 F0 00 57 45 20  |. INC$FB.t"..WE |
00000280: 49 4E 43 24 46 43 3B 3E  3E 4E 41 43 48 3C 3C 20  |INC$FC;>>NACH<< |
00000290: 55 4D 20 31 20 45 52 48  4F 45 48 45 4E 00 80 22  |UM 1 ERHOEHEN.."|
000002A0: FA 00 20 42 4E 45 57 45  31 00 8C 22 04 01 20 49  |.. BNEWE1..".. I|
000002B0: 4E 43 24 46 44 00 B1 22  0E 01 57 45 31 20 49 4E  |NC$FD.."..WE1 IN|
000002C0: 43 24 46 45 3B 5A 41 45  48 4C 45 52 20 55 4D 20  |C$FE;ZAEHLER UM |
000002D0: 31 20 45 52 48 4F 45 48  45 4E 00 BD 22 18 01 20  |1 ERHOEHEN..".. |
000002E0: 42 4E 45 57 45 32 00 C9  22 22 01 20 49 4E 43 24  |BNEWE2.."". INC$|
000002F0: 46 46 00 F6 22 2C 01 57  45 32 20 4C 44 41 24 46  |FF..",.WE2 LDA$F|
00000300: 45 3B 5A 41 45 48 4C 45  52 20 4D 49 54 20 3E 3E  |E;ZAEHLER MIT >>|
00000310: 58 3C 3C 20 56 45 52 47  4C 45 49 43 48 45 4E 00  |X<< VERGLEICHEN.|
00000320: FF 22 36 01 20 53 45 43  00 0D 23 40 01 20 53 42  |."6. SEC..#@. SB|
00000330: 43 23 3C 28 58 29 00 19  23 4A 01 20 4C 44 41 24  |C#<(X)..#J. LDA$|
00000340: 46 46 00 27 23 54 01 20  53 42 43 23 3E 28 58 29  |FF.'#T. SBC#>(X)|
00000350: 00 5C 23 5E 01 20 42 43  43 4C 4F 4F 50 3B 49 53  |.\#^. BCCLOOP;IS|
00000360: 54 20 44 41 53 20 45 52  47 45 42 4E 49 53 20 4E  |T DAS ERGEBNIS N|
00000370: 45 47 41 54 49 56 20 44  41 4E 4E 20 4E 41 43 48  |EGATIV DANN NACH|
00000380: 20 4C 4F 4F 50 00 88 23  68 01 20 4C 44 41 31 3B  | LOOP..#h. LDA1;|
00000390: 41 4E 53 4F 4E 53 54 45  4E 20 42 49 54 20 32 20  |ANSONSTEN BIT 2 |
000003A0: 57 49 45 44 45 52 20 45  49 4E 42 4C 45 4E 44 45  |WIEDER EINBLENDE|
000003B0: 4E 00 93 23 72 01 20 4F  52 41 23 34 00 9D 23 7C  |N..#r. ORA#4..#||
000003C0: 01 20 53 54 41 31 00 A6  23 7D 01 20 43 4C 49 00  |. STA1..#}. CLI.|
000003D0: C5 23 86 01 20 52 54 53  3B 55 4E 44 20 5A 55 52  |.#.. RTS;UND ZUR|
000003E0: 55 45 43 4B 20 49 4E 53  20 42 41 53 49 43 00 00  |UECK INS BASIC..|
000003F0: 00                                                |.               |

X......EQ VON = 53248 ;$D000.. ...EQ NAC
H = 57344 ;$E000.  ...EQ X = 4096.D (..B
A $C000 ;STARTADRESSE = 49152.C ). SEI;I
NTERRUPT FLAG SETZEN.. 2. LDA#<(VON);>>V
ON<< WIRD IM HI/LO-BYTE FORMAT.. <. LDX#
>(VON).J F. STA$FA;NACH $FA/$FB GESPEICH
ERT.V P. STX$FB..!Z. LDA#<(NACH);DAS GLE
ICHE FUER >>NACH<<..!D. LDX#>(NACH)..!N.
 STA$FC.*!X. STX$FD.Q!.. LDY#0;ZAEHLER M
IT NULL VORBELEGEN.]!.. STY$FE.I!.. STY$
FF.S! . LDA1..!.. AND#251;ENTSPRICHT BIN
AER 11111011..!.. STA1;ALSO BIT 2 AUSBLE
NDEN..!..LOOP LDA($FA),Y;DEN AKKU MIT >>
VON<< LADEN.."H. STA($FC),Y;UND NACH >>N
ACH<< SPEICHERN.8"R. INC$FA;>>VON<< UM 1
 ERHOEHEN.C".. BNEWE.O".. INC$FB.T"..WE 
INC$FC;>>NACH<< UM 1 ERHOEHEN..".. BNEWE
1..".. INC$FD.."..WE1 INC$FE;ZAEHLER UM 
1 ERHOEHEN..".. BNEWE2.I"". INC$FF..",.W
E2 LDA$FE;ZAEHLER MIT >>X<< VERGLEICHEN.
."6. SEC..#@. SBC#<(X)..#J. LDA$FF.'#T. 
SBC#>(X).\#^. BCCLOOP;IST DAS ERGEBNIS N
EGATIV DANN NACH LOOP..#H. LDA1;ANSONSTE
N BIT 2 WIEDER EINBLENDEN..#R. ORA#4..#|
. STA1..#}. CLI.E#.. RTS;UND ZURUECK INS
 BASIC...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL