DIALOGBOX.SRC

FILE INFORMATION

FILENAME(S): DIALOGBOX.SRC

FILE TYPE(S): PRG

FILE SIZE: 1.2K

FIRST SEEN: 2025-10-20 00:40:16

APPEARS ON: 2 disk(s)

FILE HASH

29adfa30e79bbe35959bd9118f9cdae4671791d2153542309fabb3f74ff6f6e6

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MT90570 S B	DIALOGBOX.SRC	PRG	Treasure Chest - Joker79	29	16	DOWNLOAD FILE
90461 SEITE2	DIALOGBOX.SRC	PRG	DuncanTwain	4	6	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F DE 1F 64 00 3B 00  FA 1F 6E 00 20 2E 42 41  |....d.;...n. .BA|
00000010: 24 30 34 30 32 3B 20 53  54 41 52 54 41 44 52 45  |$0402; STARTADRE|
00000020: 53 53 45 00 00 20 78 00  3B 00 40 20 82 00 2E 47  |SSE.. x.;.@ ...G|
00000030: 4C 20 44 45 53 4B 54 4F  50 20 3D 20 24 43 32 32  |L DESKTOP = $C22|
00000040: 43 20 3B 20 47 45 4F 53  2D 52 4F 55 54 49 4E 45  |C ; GEOS-ROUTINE|
00000050: 3A 20 44 45 53 4B 54 4F  50 20 4C 41 44 45 4E 20  |: DESKTOP LADEN |
00000060: 26 20 53 54 41 52 54 45  4E 00 7D 20 8C 00 2E 47  |& STARTEN.} ...G|
00000070: 4C 20 44 49 41 4C 42 4F  58 20 3D 20 24 43 32 35  |L DIALBOX = $C25|
00000080: 36 20 3B 20 47 45 4F 53  2D 52 4F 55 54 49 4E 45  |6 ; GEOS-ROUTINE|
00000090: 3A 20 44 49 41 4C 4F 47  42 4F 58 20 44 41 52 53  |: DIALOGBOX DARS|
000000A0: 54 45 4C 4C 45 4E 00 B1  20 96 00 2E 47 4C 20 54  |TELLEN.. ...GL T|
000000B0: 45 58 54 42 55 46 20 3D  20 24 32 30 30 30 20 3B  |EXTBUF = $2000 ;|
000000C0: 20 53 50 45 49 43 48 45  52 42 45 52 45 49 43 48  | SPEICHERBEREICH|
000000D0: 20 46 55 45 52 20 54 45  58 54 00 B7 20 A0 00 3B  | FUER TEXT.. ..;|
000000E0: 00 C2 20 AA 00 20 4C 44  41 23 30 00 D2 20 B4 00  |.. .. LDA#0.. ..|
000000F0: 20 53 54 41 54 45 58 54  42 55 46 00 D8 20 BE 00  | STATEXTBUF.. ..|
00000100: 3B 00 EC 20 C8 00 20 4C  44 41 23 3C 28 54 45 58  |;.. .. LDA#<(TEX|
00000110: 54 42 55 46 29 00 F8 20  D2 00 20 53 54 41 24 30  |TBUF).. .. STA$0|
00000120: 46 00 0C 21 DC 00 20 4C  44 41 23 3E 28 54 45 58  |F..!.. LDA#>(TEX|
00000130: 54 42 55 46 29 00 18 21  E6 00 20 53 54 41 24 31  |TBUF)..!.. STA$1|
00000140: 30 00 1E 21 F0 00 3B 00  3F 21 FA 00 20 4C 44 41  |0..!..;.?!.. LDA|
00000150: 23 3C 28 50 41 52 41 4D  45 54 45 52 31 29 3B 20  |#<(PARAMETER1); |
00000160: 4C 4F 57 2D 42 59 54 45  00 5E 21 04 01 20 53 54  |LOW-BYTE.^!.. ST|
00000170: 41 24 30 32 3B 20 49 4E  20 24 30 32 20 55 45 42  |A$02; IN $02 UEB|
00000180: 45 52 47 45 42 45 4E 00  80 21 0E 01 20 4C 44 41  |ERGEBEN..!.. LDA|
00000190: 23 3E 28 50 41 52 41 4D  45 54 45 52 31 29 3B 20  |#>(PARAMETER1); |
000001A0: 48 49 47 48 2D 42 59 54  45 00 9F 21 18 01 20 53  |HIGH-BYTE..!.. S|
000001B0: 54 41 24 30 33 3B 20 49  4E 20 24 30 33 20 55 45  |TA$03; IN $03 UE|
000001C0: 42 45 52 47 45 42 45 4E  00 A5 21 22 01 3B 00 D1  |BERGEBEN..!".;..|
000001D0: 21 2C 01 20 4A 53 52 44  49 41 4C 42 4F 58 3B 20  |!,. JSRDIALBOX; |
000001E0: 44 49 41 4C 4F 47 42 4F  58 2D 52 4F 55 54 49 4E  |DIALOGBOX-ROUTIN|
000001F0: 45 20 41 55 46 52 55 46  45 4E 00 D7 21 36 01 3B  |E AUFRUFEN..!6.;|
00000200: 00 DD 21 40 01 3B 00 EA  21 4A 01 20 4A 53 52 57  |..!@.;..!J. JSRW|
00000210: 41 49 54 00 F0 21 54 01  3B 00 F6 21 5E 01 3B 00  |AIT..!T.;..!^.;.|
00000220: 0D 22 68 01 20 4C 44 41  23 3C 28 50 41 52 41 4D  |."h. LDA#<(PARAM|
00000230: 45 54 45 52 32 29 00 19  22 72 01 20 53 54 41 24  |ETER2).."r. STA$|
00000240: 30 32 00 30 22 7C 01 20  4C 44 41 23 3E 28 50 41  |02.0"|. LDA#>(PA|
00000250: 52 41 4D 45 54 45 52 32  29 00 3C 22 86 01 20 53  |RAMETER2).<".. S|
00000260: 54 41 24 30 33 00 42 22  90 01 3B 00 52 22 9A 01  |TA$03.B"..;.R"..|
00000270: 20 4A 53 52 44 49 41 4C  42 4F 58 00 58 22 A4 01  | JSRDIALBOX.X"..|
00000280: 3B 00 65 22 AE 01 20 4A  53 52 57 41 49 54 00 75  |;.e".. JSRWAIT.u|
00000290: 22 B8 01 20 4A 4D 50 44  45 53 4B 54 4F 50 00 7B  |".. JMPDESKTOP.{|
000002A0: 22 C2 01 3B 00 81 22 CC  01 3B 00 87 22 D6 01 3B  |"..;.."..;.."..;|
000002B0: 00 8D 22 E0 01 3B 00 B5  22 EA 01 3B 20 45 53 20  |.."..;.."..; ES |
000002C0: 46 4F 4C 47 54 20 45 49  4E 45 20 4B 55 52 5A 45  |FOLGT EINE KURZE|
000002D0: 20 57 41 52 54 45 53 43  48 4C 45 49 46 45 00 BB  | WARTESCHLEIFE..|
000002E0: 22 F4 01 3B 00 DB 22 FE  01 57 41 49 54 20 4C 44  |"..;.."..WAIT LD|
000002F0: 41 23 24 31 46 3B 20 55  4E 54 45 52 52 4F 55 54  |A#$1F; UNTERROUT|
00000300: 49 4E 45 3A 00 FC 22 08  02 4C 4F 4F 50 30 20 4C  |INE:.."..LOOP0 L|
00000310: 44 58 23 24 46 46 3B 20  57 41 52 54 45 53 43 48  |DX#$FF; WARTESCH|
00000320: 4C 45 49 46 45 00 0E 23  12 02 4C 4F 4F 50 31 20  |LEIFE..#..LOOP1 |
00000330: 4C 44 59 23 24 46 46 00  1C 23 1C 02 4C 4F 4F 50  |LDY#$FF..#..LOOP|
00000340: 32 20 44 45 59 00 2A 23  26 02 20 42 4E 45 4C 4F  |2 DEY.*#&. BNELO|
00000350: 4F 50 32 00 33 23 30 02  20 44 45 58 00 41 23 3A  |OP2.3#0. DEX.A#:|
00000360: 02 20 42 4E 45 4C 4F 4F  50 31 00 4A 23 44 02 20  |. BNELOOP1.J#D. |
00000370: 53 45 43 00 55 23 4E 02  20 53 42 43 23 31 00 6C  |SEC.U#N. SBC#1.l|
00000380: 23 58 02 20 4E 4F 50 3B  20 5A 55 53 41 45 54 5A  |#X. NOP; ZUSAETZ|
00000390: 4C 49 43 48 45 00 81 23  62 02 20 4E 4F 50 3B 20  |LICHE..#b. NOP; |
000003A0: 54 41 4B 54 5A 59 4B 4C  45 4E 00 99 23 6C 02 20  |TAKTZYKLEN..#l. |
000003B0: 4E 4F 50 3B 20 22 56 45  52 54 52 4F 45 44 45 4C  |NOP; "VERTROEDEL|
000003C0: 4E 22 00 A7 23 76 02 20  42 4E 45 4C 4F 4F 50 30  |N"..#v. BNELOOP0|
000003D0: 00 AD 23 80 02 3B 00 C6  23 8A 02 20 52 54 53 3B  |..#..;..#.. RTS;|
000003E0: 20 5A 55 52 55 45 43 4B  20 56 4F 4E 20 55 50 00  | ZURUECK VON UP.|
000003F0: CC 23 94 02 3B 00 D2 23  9E 02 3B 00 D8 23 A8 02  |.#..;..#..;..#..|
00000400: 3B 00 EE 23 B2 02 50 41  52 41 4D 45 54 45 52 31  |;..#..PARAMETER1|
00000410: 20 2E 42 59 24 38 30 00  06 24 BC 02 20 2E 42 59  | .BY$80..$.. .BY|
00000420: 31 33 2C 31 30 2C 31 30  2C 24 30 46 2C 32 30 00  |13,10,10,$0F,20.|
00000430: 10 24 C6 02 20 2E 42 59  30 00 16 24 D0 02 3B 00  |.$.. .BY0..$..;.|
00000440: 1C 24 DA 02 3B 00 22 24  E4 02 3B 00 38 24 EE 02  |.$..;."$..;.8$..|
00000450: 50 41 52 41 4D 45 54 45  52 32 20 2E 42 59 24 38  |PARAMETER2 .BY$8|
00000460: 30 00 49 24 F8 02 20 2E  42 59 31 31 2C 31 30 2C  |0.I$.. .BY11,10,|
00000470: 31 30 00 59 24 02 03 20  2E 57 4F 54 45 58 54 42  |10.Y$.. .WOTEXTB|
00000480: 55 46 00 69 24 0C 03 20  2E 42 59 31 2C 31 38 2C  |UF.i$.. .BY1,18,|
00000490: 35 35 00 73 24 16 03 20  2E 42 59 30 00 7A 24 20  |55.s$.. .BY0.z$ |
000004A0: 03 20 3B 00 00 00                                 |. ;...          |

X...D.;...N. .BA$0402; STARTADRESSE.. X.
;.@ ...GL DESKTOP = $C22C ; GEOS-ROUTINE
: DESKTOP LADEN & STARTEN.} ...GL DIALBO
X = $C256 ; GEOS-ROUTINE: DIALOGBOX DARS
TELLEN.. ...GL TEXTBUF = $2000 ; SPEICHE
RBEREICH FUER TEXT..  .;.B .. LDA#0.R ..
 STATEXTBUF.X ..;.. H. LDA#<(TEXTBUF).. 
R. STA$0F..!.. LDA#>(TEXTBUF)..!.. STA$1
0..!..;.?!.. LDA#<(PARAMETER1); LOW-BYTE
.^!.. STA$02; IN $02 UEBERGEBEN..!.. LDA
#>(PARAMETER1); HIGH-BYTE..!.. STA$03; I
N $03 UEBERGEBEN..!".;.Q!,. JSRDIALBOX; 
DIALOGBOX-ROUTINE AUFRUFEN.W!6.;..!@.;..
!J. JSRWAIT..!T.;..!^.;.."H. LDA#<(PARAM
ETER2).."R. STA$02.0"|. LDA#>(PARAMETER2
).<".. STA$03.B"..;.R".. JSRDIALBOX.X"..
;.E".. JSRWAIT.U".. JMPDESKTOP.{"B.;.."L
.;.."V.;.."..;.."..; ES FOLGT EINE KURZE
 WARTESCHLEIFE.."..;.."..WAIT LDA#$1F; U
NTERROUTINE:.."..LOOP0 LDX#$FF; WARTESCH
LEIFE..#..LOOP1 LDY#$FF..#..LOOP2 DEY.*#
&. BNELOOP2.3#0. DEX.A#:. BNELOOP1.J#D. 
SEC.U#N. SBC#1.L#X. NOP; ZUSAETZLICHE..#
B. NOP; TAKTZYKLEN..#L. NOP; "VERTROEDEL
N"..#V. BNELOOP0..#..;.F#.. RTS; ZURUECK
 VON UP.L#..;.R#..;.X#..;..#..PARAMETER1
 .BY$80..$.. .BY13,10,10,$0F,20..$F. .BY
0..$P.;..$Z.;."$..;.8$..PARAMETER2 .BY$8
0.I$.. .BY11,10,10.Y$.. .WOTEXTBUF.I$.. 
.BY1,18,55.S$.. .BY0.Z$ . ;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL