APLAN 2.5/SRC

FILE INFORMATION

FILENAME(S): APLAN 2.5/SRC

FILE TYPE(S): PRG

FILE SIZE: 1.7K

FIRST SEEN: 2025-10-20 14:31:12

APPEARS ON: 1 disk(s)

FILE HASH

770aa82f2ce2c70c45dcde8096eb8b4a0cd00ad845e61f651a4b8a6aa72a6487

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
GRUNDWERKSDISK 2	APLAN 2.5/SRC	PRG	Treasure Chest - Klaus Der Suhler	22	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: EE 06 3B 3B 3B D1 55 45  4C 4C 44 41 54 45 49 20  |..;;;.UELLDATEI |
00000010: 41 50 4C 41 4E 20 32 2E  35 2F 53 52 43 00 20 00  |APLAN 2.5/SRC. .|
00000020: 2E 42 41 35 31 34 36 30  00 2E 57 41 00 2E 4F 55  |.BA51460..WA..OU|
00000030: 22 41 50 4C 41 4E 20 32  2E 35 22 00 20 00 3B C2  |"APLAN 2.5". .;.|
00000040: 49 4C 44 53 43 48 49 52  4D 20 41 55 46 42 41 55  |ILDSCHIRM AUFBAU|
00000050: 45 4E 00 20 00 54 45 4D  50 3A 2E 45 51 24 46 37  |EN. .TEMP:.EQ$F7|
00000060: 00 41 52 52 45 4E 44 3A  2E 45 51 24 33 31 3B C1  |.ARREND:.EQ$31;.|
00000070: 52 52 41 59 20 C5 4E 44  45 00 53 54 4F 52 45 3A  |RRAY .NDE.STORE:|
00000080: 2E 45 51 24 33 34 39 00  53 45 54 41 44 52 3A 2E  |.EQ$349.SETADR:.|
00000090: 45 51 24 42 31 39 36 3B  31 2E 20 C1 52 52 41 59  |EQ$B196;1. .RRAY|
000000A0: 45 4C 45 4D 45 4E 54 20  53 55 43 48 45 4E 00 5A  |ELEMENT SUCHEN.Z|
000000B0: 5A 4C 3A 2E 45 51 24 33  33 43 3B DA 45 49 4C 45  |ZL:.EQ$33C;.EILE|
000000C0: 20 4C 4F 57 00 5A 5A 48  3A 2E 45 51 24 33 33 44  | LOW.ZZH:.EQ$33D|
000000D0: 3B DA 45 49 4C 45 20 48  49 47 48 00 56 41 45 4C  |;.EILE HIGH.VAEL|
000000E0: 3A 2E 45 51 24 33 33 45  3B 56 4F 4E 20 C1 52 52  |:.EQ$33E;VON .RR|
000000F0: 41 59 20 C5 4C 45 4D 45  4E 54 20 4C 4F 57 00 56  |AY .LEMENT LOW.V|
00000100: 41 45 48 3A 2E 45 51 24  33 33 46 3B 20 20 20 20  |AEH:.EQ$33F;    |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 48 49  |              HI|
00000120: 47 48 00 42 41 45 4C 3A  2E 45 51 24 33 34 30 3B  |GH.BAEL:.EQ$340;|
00000130: 42 49 53 20 C1 52 52 41  59 20 C5 4C 45 4D 45 4E  |BIS .RRAY .LEMEN|
00000140: 54 20 4C 4F 57 00 42 41  45 48 3A 2E 45 51 24 33  |T LOW.BAEH:.EQ$3|
00000150: 34 31 3B 20 20 20 20 20  20 20 20 20 20 20 20 20  |41;             |
00000160: 20 20 20 20 20 48 49 47  48 00 41 4E 5A 3A 2E 45  |     HIGH.ANZ:.E|
00000170: 51 24 33 34 32 3B C1 4E  5A 41 48 4C 20 C5 4C 45  |Q$342;.NZAHL .LE|
00000180: 4D 45 4E 54 45 00 41 44  52 3A 2E 45 51 24 46 39  |MENTE.ADR:.EQ$F9|
00000190: 00 53 50 3A 2E 45 51 24  38 44 3B D3 50 41 4C 54  |.SP:.EQ$8D;.PALT|
000001A0: 45 00 5A 45 3A 2E 45 51  24 38 45 3B DA 45 49 4C  |E.ZE:.EQ$8E;.EIL|
000001B0: 45 00 43 55 52 53 4F 52  3A 2E 45 51 24 45 35 36  |E.CURSOR:.EQ$E56|
000001C0: 43 3B C3 55 52 53 4F 52  20 53 45 54 5A 45 4E 00  |C;.URSOR SETZEN.|
000001D0: 42 53 4F 55 54 3A 2E 45  51 24 46 46 44 32 3B DA  |BSOUT:.EQ$FFD2;.|
000001E0: 45 49 43 48 45 4E 20 41  55 53 47 45 42 45 4E 00  |EICHEN AUSGEBEN.|
000001F0: 4D 41 54 52 49 58 3A 2E  45 51 24 42 42 00 55 53  |MATRIX:.EQ$BB.US|
00000200: 49 4E 47 3A 2E 45 51 24  43 34 31 44 3B D3 54 41  |ING:.EQ$C41D;.TA|
00000210: 52 54 41 44 52 45 53 53  45 20 46 55 45 52 20 D0  |RTADRESSE FUER .|
00000220: 52 49 4E 54 2D D5 53 49  4E 47 00 44 45 5A 3A 2E  |RINT-.SING.DEZ:.|
00000230: 45 51 35 30 31 35 35 2B  32 30 31 00 4F 55 54 3A  |EQ50155+201.OUT:|
00000240: 2E 45 51 24 41 42 31 45  00 20 00 4C 44 41 24 32  |.EQ$AB1E. .LDA$2|
00000250: 46 00 53 54 41 54 45 4D  50 00 4C 44 41 24 33 30  |F.STATEMP.LDA$30|
00000260: 00 53 54 41 54 45 4D 50  2B 31 00 4C 44 41 23 24  |.STATEMP+1.LDA#$|
00000270: 33 30 00 53 54 41 4D 41  54 52 49 58 00 4C 44 41  |30.STAMATRIX.LDA|
00000280: 23 24 39 38 00 53 54 41  4D 41 54 52 49 58 2B 31  |#$98.STAMATRIX+1|
00000290: 00 4C 44 41 23 24 30 30  00 53 54 41 41 44 52 00  |.LDA#$00.STAADR.|
000002A0: 53 54 41 41 44 52 2B 31  00 53 54 41 5A 5A 4C 00  |STAADR+1.STAZZL.|
000002B0: 53 54 41 5A 5A 48 00 4E  4F 50 00 49 4E 43 42 41  |STAZZH.NOP.INCBA|
000002C0: 45 48 3B C1 55 53 5A 55  47 45 42 45 4E 44 45 52  |EH;.USZUGEBENDER|
000002D0: 20 C1 52 52 41 59 2D C2  45 52 45 49 43 48 00 49  | .RRAY-.EREICH.I|
000002E0: 4E 43 42 41 45 4C 00 4C  44 41 54 45 4D 50 00 43  |NCBAEL.LDATEMP.C|
000002F0: 4C 43 00 41 44 43 23 39  00 53 54 41 54 45 4D 50  |LC.ADC#9.STATEMP|
00000300: 00 42 43 43 58 31 00 49  4E 43 54 45 4D 50 2B 31  |.BCCX1.INCTEMP+1|
00000310: 00 58 31 3A 4C 44 58 5A  5A 48 00 43 50 58 56 41  |.X1:LDXZZH.CPXVA|
00000320: 45 48 00 42 43 53 5A 31  00 4A 4D 50 58 58 33 00  |EH.BCSZ1.JMPXX3.|
00000330: 5A 31 3A 42 4E 45 5A 32  00 4C 44 58 5A 5A 4C 00  |Z1:BNEZ2.LDXZZL.|
00000340: 43 50 58 56 41 45 4C 00  42 43 53 5A 32 00 4A 4D  |CPXVAEL.BCSZ2.JM|
00000350: 50 58 58 33 00 5A 32 3A  4C 44 58 5A 5A 48 00 43  |PXX3.Z2:LDXZZH.C|
00000360: 50 58 42 41 45 48 00 42  45 51 5A 33 00 42 43 53  |PXBAEH.BEQZ3.BCS|
00000370: 45 4E 44 45 00 4A 4D 50  58 32 00 5A 33 3A 4C 44  |ENDE.JMPX2.Z3:LD|
00000380: 58 5A 5A 4C 00 43 50 58  42 41 45 4C 00 42 43 53  |XZZL.CPXBAEL.BCS|
00000390: 45 4E 44 45 00 4A 4D 50  58 32 3B 47 45 46 55 4E  |ENDE.JMPX2;GEFUN|
000003A0: 44 45 4E 00 58 58 33 3A  49 4E 43 5A 5A 4C 3B DA  |DEN.XX3:INCZZL;.|
000003B0: 45 49 47 45 52 20 41 55  46 20 4E 41 45 43 48 53  |EIGER AUF NAECHS|
000003C0: 54 45 53 20 C5 4C 45 4D  45 4E 54 00 42 4E 45 58  |TES .LEMENT.BNEX|
000003D0: 58 30 00 49 4E 43 5A 5A  48 00 58 58 30 3A 49 4E  |X0.INCZZH.XX0:IN|
000003E0: 43 4D 41 54 52 49 58 00  42 4E 45 58 32 30 00 49  |CMATRIX.BNEX20.I|
000003F0: 4E 43 4D 41 54 52 49 58  2B 31 00 58 32 30 3A 43  |NCMATRIX+1.X20:C|
00000400: 4C 43 00 4C 44 41 54 45  4D 50 00 41 44 43 23 33  |LC.LDATEMP.ADC#3|
00000410: 00 53 54 41 54 45 4D 50  00 42 43 43 58 33 00 49  |.STATEMP.BCCX3.I|
00000420: 4E 43 54 45 4D 50 2B 31  00 58 33 3A 4A 4D 50 58  |NCTEMP+1.X3:JMPX|
00000430: 31 00 58 32 3A 4C 44 59  23 30 00 49 4E 43 5A 45  |1.X2:LDY#0.INCZE|
00000440: 3B 4C 45 54 5A 54 45 53  20 C5 4C 45 4D 45 4E 54  |;LETZTES .LEMENT|
00000450: 3F 00 4C 44 41 23 32 31  00 43 4D 50 5A 45 00 42  |?.LDA#21.CMPZE.B|
00000460: 45 51 45 4E 44 45 00 4C  44 41 28 54 45 4D 50 29  |EQENDE.LDA(TEMP)|
00000470: 2C 59 00 43 4D 50 23 30  00 42 45 51 58 58 33 00  |,Y.CMP#0.BEQXX3.|
00000480: 53 54 41 41 4E 5A 00 49  4E 59 00 4C 44 41 28 54  |STAANZ.INY.LDA(T|
00000490: 45 4D 50 29 2C 59 00 53  54 41 41 44 52 00 49 4E  |EMP),Y.STAADR.IN|
000004A0: 59 00 4C 44 41 28 54 45  4D 50 29 2C 59 00 53 54  |Y.LDA(TEMP),Y.ST|
000004B0: 41 41 44 52 2B 31 00 58  34 3A 4C 44 58 5A 45 00  |AADR+1.X4:LDXZE.|
000004C0: 53 54 58 24 44 36 00 4C  44 58 53 50 00 53 54 58  |STX$D6.LDXSP.STX|
000004D0: 24 44 33 00 4A 53 52 43  55 52 53 4F 52 3B C3 55  |$D3.JSRCURSOR;.U|
000004E0: 52 53 4F 52 20 53 45 54  5A 45 4E 00 4A 4D 50 58  |RSOR SETZEN.JMPX|
000004F0: 31 30 00 58 31 38 3A 4C  44 59 23 30 00 58 35 3A  |10.X18:LDY#0.X5:|
00000500: 4C 44 41 28 41 44 52 29  2C 59 00 4A 53 52 42 53  |LDA(ADR),Y.JSRBS|
00000510: 4F 55 54 3B DA 45 49 43  48 45 4E 20 41 55 53 47  |OUT;.EICHEN AUSG|
00000520: 45 42 45 4E 00 49 4E 59  00 43 50 59 35 30 31 35  |EBEN.INY.CPY5015|
00000530: 35 2B 32 30 32 00 42 43  43 58 35 00 42 45 51 58  |5+202.BCCX5.BEQX|
00000540: 35 00 4A 4D 50 58 58 33  00 45 4E 44 45 3A 52 54  |5.JMPXX3.ENDE:RT|
00000550: 53 00 58 31 30 3A 4C 44  59 23 30 3B DA 45 4C 4C  |S.X10:LDY#0;.ELL|
00000560: 2D CD 41 54 52 49 58 20  41 42 46 52 41 47 45 4E  |-.ATRIX ABFRAGEN|
00000570: 00 4C 44 41 28 4D 41 54  52 49 58 29 2C 59 00 43  |.LDA(MATRIX),Y.C|
00000580: 4D 50 23 31 00 42 45 51  58 31 38 00 43 4D 50 23  |MP#1.BEQX18.CMP#|
00000590: 32 00 42 45 51 59 33 00  4A 4D 50 58 31 31 00 59  |2.BEQY3.JMPX11.Y|
000005A0: 33 3A 4C 44 41 23 30 3B  C1 55 53 47 41 42 45 20  |3:LDA#0;.USGABE |
000005B0: 4D 49 54 20 D0 52 49 4E  54 2D D5 53 49 4E 47 00  |MIT .RINT-.SING.|
000005C0: 53 54 41 44 45 5A 00 58  31 31 3A 4C 44 41 23 27  |STADEZ.X11:LDA#'|
000005D0: 30 00 4C 44 59 23 31 32  00 58 58 31 31 3A 53 54  |0.LDY#12.XX11:ST|
000005E0: 41 24 31 30 32 2C 59 00  44 45 59 00 42 50 4C 58  |A$102,Y.DEY.BPLX|
000005F0: 58 31 31 00 58 58 31 32  3A 4C 44 59 23 30 00 58  |X11.XX12:LDY#0.X|
00000600: 31 32 3A 4C 44 41 28 41  44 52 29 2C 59 00 53 54  |12:LDA(ADR),Y.ST|
00000610: 41 24 31 30 30 2C 59 00  49 4E 59 00 43 50 59 41  |A$100,Y.INY.CPYA|
00000620: 4E 5A 00 42 43 53 58 31  33 00 4A 4D 50 58 31 32  |NZ.BCSX13.JMPX12|
00000630: 00 58 31 33 3A 4C 44 41  23 30 00 53 54 41 24 31  |.X13:LDA#0.STA$1|
00000640: 30 30 2C 59 00 4A 53 52  55 53 49 4E 47 00 4A 53  |00,Y.JSRUSING.JS|
00000650: 52 4F 55 54 00 4C 44 41  23 31 00 53 54 41 44 45  |ROUT.LDA#1.STADE|
00000660: 5A 00 4A 4D 50 58 58 33  00 3B DA 45 4C 4C 2D CD  |Z.JMPXX3.;.ELL-.|
00000670: 41 54 52 49 58 20 4C 4F  45 53 43 48 45 4E 00 4C  |ATRIX LOESCHEN.L|
00000680: 44 41 23 24 33 30 00 53  54 41 53 50 00 4C 44 41  |DA#$30.STASP.LDA|
00000690: 23 24 39 38 00 53 54 41  5A 45 00 58 31 36 3A 4C  |#$98.STAZE.X16:L|
000006A0: 44 41 23 30 00 4C 44 59  23 30 00 58 31 35 3A 53  |DA#0.LDY#0.X15:S|
000006B0: 54 41 28 53 50 29 2C 59  00 49 4E 43 53 50 00 42  |TA(SP),Y.INCSP.B|
000006C0: 4E 45 58 31 35 00 49 4E  43 5A 45 00 4C 44 59 5A  |NEX15.INCZE.LDYZ|
000006D0: 45 00 43 50 59 23 24 41  30 00 42 43 53 58 31 37  |E.CPY#$A0.BCSX17|
000006E0: 00 4A 4D 50 58 31 36 00  58 31 37 3A 52 54 53 00  |.JMPX16.X17:RTS.|
000006F0: 00 F0 3A                                          |..:             |

..;;;QUELLDATEI APLAN 2.5/SRC. ..BA51460
..WA..OU"APLAN 2.5". .;BILDSCHIRM AUFBAU
EN. .TEMP:.EQ$F7.ARREND:.EQ$31;ARRAY END
E.STORE:.EQ$349.SETADR:.EQ$B196;1. ARRAY
ELEMENT SUCHEN.ZZL:.EQ$33C;ZEILE LOW.ZZH
:.EQ$33D;ZEILE HIGH.VAEL:.EQ$33E;VON ARR
AY ELEMENT LOW.VAEH:.EQ$33F;            
      HIGH.BAEL:.EQ$340;BIS ARRAY ELEMEN
T LOW.BAEH:.EQ$341;                  HIG
H.ANZ:.EQ$342;ANZAHL ELEMENTE.ADR:.EQ$F9
.SP:.EQ$8D;SPALTE.ZE:.EQ$8E;ZEILE.CURSOR
:.EQ$E56C;CURSOR SETZEN.BSOUT:.EQ$FFD2;Z
EICHEN AUSGEBEN.MATRIX:.EQ$BB.USING:.EQ$
C41D;STARTADRESSE FUER PRINT-USING.DEZ:.
EQ50155+201.OUT:.EQ$AB1E. .LDA$2F.STATEM
P.LDA$30.STATEMP+1.LDA#$30.STAMATRIX.LDA
#$98.STAMATRIX+1.LDA#$00.STAADR.STAADR+1
.STAZZL.STAZZH.NOP.INCBAEH;AUSZUGEBENDER
 ARRAY-BEREICH.INCBAEL.LDATEMP.CLC.ADC#9
.STATEMP.BCCX1.INCTEMP+1.X1:LDXZZH.CPXVA
EH.BCSZ1.JMPXX3.Z1:BNEZ2.LDXZZL.CPXVAEL.
BCSZ2.JMPXX3.Z2:LDXZZH.CPXBAEH.BEQZ3.BCS
ENDE.JMPX2.Z3:LDXZZL.CPXBAEL.BCSENDE.JMP
X2;GEFUNDEN.XX3:INCZZL;ZEIGER AUF NAECHS
TES ELEMENT.BNEXX0.INCZZH.XX0:INCMATRIX.
BNEX20.INCMATRIX+1.X20:CLC.LDATEMP.ADC#3
.STATEMP.BCCX3.INCTEMP+1.X3:JMPX1.X2:LDY
#0.INCZE;LETZTES ELEMENT?.LDA#21.CMPZE.B
EQENDE.LDA(TEMP),Y.CMP#0.BEQXX3.STAANZ.I
NY.LDA(TEMP),Y.STAADR.INY.LDA(TEMP),Y.ST
AADR+1.X4:LDXZE.STX$D6.LDXSP.STX$D3.JSRC
URSOR;CURSOR SETZEN.JMPX10.X18:LDY#0.X5:
LDA(ADR),Y.JSRBSOUT;ZEICHEN AUSGEBEN.INY
.CPY50155+202.BCCX5.BEQX5.JMPXX3.ENDE:RT
S.X10:LDY#0;ZELL-MATRIX ABFRAGEN.LDA(MAT
RIX),Y.CMP#1.BEQX18.CMP#2.BEQY3.JMPX11.Y
3:LDA#0;AUSGABE MIT PRINT-USING.STADEZ.X
11:LDA#'0.LDY#12.XX11:STA$102,Y.DEY.BPLX
X11.XX12:LDY#0.X12:LDA(ADR),Y.STA$100,Y.
INY.CPYANZ.BCSX13.JMPX12.X13:LDA#0.STA$1
00,Y.JSRUSING.JSROUT.LDA#1.STADEZ.JMPXX3
.;ZELL-MATRIX LOESCHEN.LDA#$30.STASP.LDA
#$98.STAZE.X16:LDA#0.LDY#0.X15:STA(SP),Y
.INCSP.BNEX15.INCZE.LDYZE.CPY#$A0.BCSX17
.JMPX16.X17:RTS...:

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL