RECHNEN OP/SRC
FILE INFORMATION
FILENAME(S): RECHNEN OP/SRC
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-10-20 14:31:12
APPEARS ON: 1 disk(s)
FILE HASH
fdfb74168011d56c3bdbf4c90b3cf4365a75f6c05dd75cc5773088f5e3efcb2b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GRUNDWERKSDISK 2 | RECHNEN OP/SRC | PRG | Treasure Chest - Klaus Der Suhler | 13 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 62 1E 3B 3B 3B D1 55 45 4C 4C 44 41 54 45 49 20 |b.;;;.UELLDATEI | 00000010: 52 45 43 48 4E 45 4E 20 4F 50 2F 53 52 43 00 20 |RECHNEN OP/SRC. | 00000020: 00 2E 42 41 35 31 37 36 33 00 2E 57 41 00 2E 4F |..BA51763..WA..O| 00000030: 55 22 52 45 43 48 4E 45 4E 20 4F 50 22 00 20 00 |U"RECHNEN OP". .| 00000040: 45 52 47 53 54 52 31 3A 2E 45 51 24 46 37 3B DA |ERGSTR1:.EQ$F7;.| 00000050: 45 49 47 45 52 20 41 55 46 20 C5 52 47 45 42 4E |EIGER AUF .RGEBN| 00000060: 49 53 53 54 52 49 4E 47 20 31 2E 20 C4 2E 00 45 |ISSTRING 1. ...E| 00000070: 52 47 53 54 52 32 3A 2E 45 51 24 46 38 3B 44 49 |RGSTR2:.EQ$F8;DI| 00000080: 54 4F 20 32 2E 20 C4 49 4D 45 4E 53 49 4F 4E 00 |TO 2. .IMENSION.| 00000090: 53 54 52 49 4E 47 3A 2E 45 51 24 42 37 42 44 3B |STRING:.EQ$B7BD;| 000000A0: DA 49 46 46 45 52 4E 53 54 52 49 4E 47 20 49 4E |.IFFERNSTRING IN| 000000B0: 20 C6 4C 49 45 53 53 4B 4F 4D 4D 41 00 41 52 52 | .LIESSKOMMA.ARR| 000000C0: 54 41 42 3A 2E 45 51 24 32 46 3B C2 45 47 49 4E |TAB:.EQ$2F;.EGIN| 000000D0: 4E 20 C1 52 52 41 59 54 41 42 45 4C 4C 45 00 54 |N .RRAYTABELLE.T| 000000E0: 45 4D 50 3A 2E 45 51 24 41 37 3B C1 4B 54 55 45 |EMP:.EQ$A7;.KTUE| 000000F0: 4C 4C 45 52 20 DA 45 49 47 45 52 20 41 55 46 20 |LLER .EIGER AUF | 00000100: C1 52 52 41 59 45 4C 45 4D 45 4E 54 00 41 52 52 |.RRAYELEMENT.ARR| 00000110: 45 4E 44 3A 2E 45 51 24 33 32 3B 20 C5 4E 44 45 |END:.EQ$32; .NDE| 00000120: 20 C1 52 52 41 59 2D D4 41 42 45 4C 4C 45 00 46 | .RRAY-.ABELLE.F| 00000130: 45 4E 44 3A 2E 45 51 24 41 39 3B C5 4E 44 45 20 |END:.EQ$A9;.NDE | 00000140: 44 45 52 20 D4 41 42 45 4C 4C 45 20 46 55 45 52 |DER .ABELLE FUER| 00000150: 20 46 24 28 2E 29 00 4C 41 4E 47 3A 2E 45 51 24 | F$(.).LANG:.EQ$| 00000160: 41 42 3B CC 41 45 4E 47 45 20 44 45 53 20 D3 54 |AB;.AENGE DES .T| 00000170: 52 49 4E 47 53 2F DA 45 49 43 48 45 4E 4B 45 54 |RINGS/.EICHENKET| 00000180: 54 45 00 47 45 54 41 44 52 3A 2E 45 51 24 42 37 |TE.GETADR:.EQ$B7| 00000190: 46 37 3B C6 41 43 20 49 4E 20 31 36 2D C2 49 54 |F7;.AC IN 16-.IT| 000001A0: 20 DA 41 48 4C 00 45 4C 45 31 3A 2E 45 51 24 41 | .AHL.ELE1:.EQ$A| 000001B0: 45 3B 31 2E 20 C4 49 4D 45 4E 53 49 4F 4E 53 57 |E;1. .IMENSIONSW| 000001C0: 45 52 54 00 45 4C 45 32 3A 2E 45 51 24 41 46 3B |ERT.ELE2:.EQ$AF;| 000001D0: 32 2E 20 C4 49 4D 45 4E 53 49 4F 4E 53 57 45 52 |2. .IMENSIONSWER| 000001E0: 54 00 50 4F 53 3A 2E 45 51 24 42 35 3B D0 4F 53 |T.POS:.EQ$B5;.OS| 000001F0: 49 54 49 4F 4E 20 49 4E 4E 45 52 48 41 4C 42 20 |ITION INNERHALB | 00000200: C6 55 4E 4B 54 49 4F 4E 53 53 54 52 49 4E 47 00 |.UNKTIONSSTRING.| 00000210: 41 31 54 4F 41 32 3A 2E 45 51 24 42 43 30 43 3B |A1TOA2:.EQ$BC0C;| 00000220: C6 C1 C3 20 4E 41 43 48 20 C1 D2 C7 00 46 55 4E |... NACH ....FUN| 00000230: 4B 54 3A 2E 45 51 24 41 36 3B C6 55 4E 4B 54 49 |KT:.EQ$A6;.UNKTI| 00000240: 4F 4E 53 4B 4F 44 45 00 5A 45 4C 4C 45 3A 2E 45 |ONSKODE.ZELLE:.E| 00000250: 51 24 46 39 3B DA 45 49 47 45 52 20 41 55 46 20 |Q$F9;.EIGER AUF | 00000260: 41 4B 54 2E 20 C1 52 52 41 59 45 4C 45 4D 2E 20 |AKT. .RRAYELEM. | 00000270: 44 45 52 20 DA 45 4C 4C 45 4E 53 54 52 49 4E 47 |DER .ELLENSTRING| 00000280: 53 00 5A 45 4C 4C 45 41 55 3A 2E 45 51 24 42 32 |S.ZELLEAU:.EQ$B2| 00000290: 3B 44 49 54 4F 20 31 2E 20 C1 52 52 41 59 45 4C |;DITO 1. .RRAYEL| 000002A0: 45 4D 45 4E 54 00 56 41 52 3A 2E 45 51 24 34 37 |EMENT.VAR:.EQ$47| 000002B0: 3B C1 44 52 45 53 53 45 20 DA 45 4C 4C 45 4E 56 |;.DRESSE .ELLENV| 000002C0: 41 52 49 41 42 4C 45 00 46 41 43 54 4F 41 53 43 |ARIABLE.FACTOASC| 000002D0: 3A 2E 45 51 24 42 44 44 44 3B C6 C1 C3 20 4E 41 |:.EQ$BDDD;... NA| 000002E0: 43 48 20 C1 D3 C3 C9 C9 00 46 4F 52 4D 41 44 3A |CH ......FORMAD:| 000002F0: 2E 45 51 24 42 42 00 52 45 53 45 52 56 3A 2E 45 |.EQ$BB.RESERV:.E| 00000300: 51 24 42 34 46 34 3B D2 45 53 45 52 56 49 45 52 |Q$B4F4;.ESERVIER| 00000310: 54 20 D0 4C 41 54 5A 20 46 55 45 52 20 D3 54 52 |T .LATZ FUER .TR| 00000320: 49 4E 47 00 50 4C 55 53 3A 2E 45 51 24 42 38 36 |ING.PLUS:.EQ$B86| 00000330: 46 00 4D 49 4E 55 53 3A 2E 45 51 24 42 38 35 33 |F.MINUS:.EQ$B853| 00000340: 00 4D 55 4C 54 3A 2E 45 51 24 42 41 33 30 00 44 |.MULT:.EQ$BA30.D| 00000350: 49 56 3A 2E 45 51 24 42 42 31 37 00 57 55 52 5A |IV:.EQ$BB17.WURZ| 00000360: 45 4C 3A 2E 45 51 24 42 46 37 31 00 45 58 50 4F |EL:.EQ$BF71.EXPO| 00000370: 3A 2E 45 51 24 42 46 37 44 00 53 49 4E 3A 2E 45 |:.EQ$BF7D.SIN:.E| 00000380: 51 24 45 32 36 42 00 53 50 3A 2E 45 51 24 34 30 |Q$E26B.SP:.EQ$40| 00000390: 00 43 4F 53 3A 2E 45 51 24 45 32 36 34 00 5A 45 |.COS:.EQ$E264.ZE| 000003A0: 3A 2E 45 51 24 33 46 00 54 41 4E 3A 2E 45 51 24 |:.EQ$3F.TAN:.EQ$| 000003B0: 45 32 42 34 00 56 4F 4E 3A 2E 45 51 24 34 31 00 |E2B4.VON:.EQ$41.| 000003C0: 42 49 53 3A 2E 45 51 24 34 32 00 53 54 41 43 4B |BIS:.EQ$42.STACK| 000003D0: 3A 2E 45 51 24 39 45 00 53 54 41 43 4B 46 55 4E |:.EQ$9E.STACKFUN| 000003E0: 4B 54 3A 2E 45 51 24 39 36 00 4B 4C 41 4D 46 4C |KT:.EQ$96.KLAMFL| 000003F0: 41 47 3A 2E 45 51 24 41 35 00 46 45 48 4C 45 52 |AG:.EQ$A5.FEHLER| 00000400: 3A 2E 45 51 24 33 35 34 00 5A 57 53 54 41 4E 44 |:.EQ$354.ZWSTAND| 00000410: 3A 2E 45 51 24 33 34 45 00 20 00 4C 44 41 41 52 |:.EQ$34E. .LDAAR| 00000420: 52 54 41 42 2B 31 3B DA 47 2E 20 41 55 46 20 31 |RTAB+1;.G. AUF 1| 00000430: 2E C1 52 52 41 59 45 4C 45 4D 2E 20 4D 45 52 4B |..RRAYELEM. MERK| 00000440: 45 4E 00 53 54 41 5A 45 4C 4C 45 41 55 2B 31 00 |EN.STAZELLEAU+1.| 00000450: 4C 44 41 41 52 52 54 41 42 00 43 4C 43 00 41 44 |LDAARRTAB.CLC.AD| 00000460: 43 23 39 00 53 54 41 5A 45 4C 4C 45 41 55 00 42 |C#9.STAZELLEAU.B| 00000470: 43 43 58 33 32 00 49 4E 43 5A 45 4C 4C 45 41 55 |CCX32.INCZELLEAU| 00000480: 2B 31 00 58 33 32 3A 4C 44 41 24 37 41 3B CC 41 |+1.X32:LDA$7A;.A| 00000490: 44 45 41 44 52 20 44 45 52 20 C3 C8 D2 C7 C5 D4 |DEADR DER ......| 000004A0: 2D D2 4F 55 54 49 4E 45 00 50 48 41 3B 52 45 54 |-.OUTINE.PHA;RET| 000004B0: 54 45 4E 00 4C 44 41 24 37 42 00 50 48 41 00 4C |TEN.LDA$7B.PHA.L| 000004C0: 44 41 23 24 33 43 3B 55 4E 44 20 41 45 4E 44 45 |DA#$3C;UND AENDE| 000004D0: 52 4E 00 53 54 41 53 54 41 43 4B 00 4C 44 41 23 |RN.STASTACK.LDA#| 000004E0: 24 30 33 00 53 54 41 53 54 41 43 4B 2B 31 00 4C |$03.STASTACK+1.L| 000004F0: 44 58 41 52 52 54 41 42 00 4C 44 41 41 52 52 54 |DXARRTAB.LDAARRT| 00000500: 41 42 2B 31 00 58 31 3A 53 54 58 54 45 4D 50 00 |AB+1.X1:STXTEMP.| 00000510: 53 54 41 54 45 4D 50 2B 31 00 4C 44 59 23 30 00 |STATEMP+1.LDY#0.| 00000520: 4C 44 41 28 54 45 4D 50 29 2C 59 00 49 4E 59 00 |LDA(TEMP),Y.INY.| 00000530: 43 4D 50 23 27 46 3B C1 52 52 41 59 54 41 42 2E |CMP#'F;.RRAYTAB.| 00000540: 20 46 55 45 52 20 C6 24 28 2E 29 20 53 55 43 48 | FUER .$(.) SUCH| 00000550: 45 4E 00 42 45 51 58 33 00 58 32 3A 49 4E 59 00 |EN.BEQX3.X2:INY.| 00000560: 4C 44 41 28 54 45 4D 50 29 2C 59 00 43 4C 43 00 |LDA(TEMP),Y.CLC.| 00000570: 41 44 43 54 45 4D 50 00 54 41 58 00 49 4E 59 00 |ADCTEMP.TAX.INY.| 00000580: 4C 44 41 28 54 45 4D 50 29 2C 59 00 41 44 43 54 |LDA(TEMP),Y.ADCT| 00000590: 45 4D 50 2B 31 00 42 43 43 58 31 00 58 33 3A 49 |EMP+1.BCCX1.X3:I| 000005A0: 4E 59 3B 47 45 46 55 4E 44 45 4E 00 4C 44 41 28 |NY;GEFUNDEN.LDA(| 000005B0: 54 45 4D 50 29 2C 59 00 43 4C 43 00 41 44 43 54 |TEMP),Y.CLC.ADCT| 000005C0: 45 4D 50 00 53 54 41 46 45 4E 44 3B 45 4E 44 45 |EMP.STAFEND;ENDE| 000005D0: 20 44 45 52 20 C1 52 52 41 59 54 41 42 45 4C 4C | DER .RRAYTABELL| 000005E0: 45 00 49 4E 59 00 4C 44 41 28 54 45 4D 50 29 2C |E.INY.LDA(TEMP),| 000005F0: 59 00 41 44 43 54 45 4D 50 2B 31 00 53 54 41 46 |Y.ADCTEMP+1.STAF| 00000600: 45 4E 44 2B 31 00 4C 44 41 54 45 4D 50 00 43 4C |END+1.LDATEMP.CL| 00000610: 43 00 41 44 43 23 37 3B CF 46 46 53 45 54 20 31 |C.ADC#7;.FFSET 1| 00000620: 2E 20 C1 52 52 41 59 45 4C 45 4D 45 4E 54 00 53 |. .RRAYELEMENT.S| 00000630: 54 41 54 45 4D 50 00 42 43 43 58 34 00 49 4E 43 |TATEMP.BCCX4.INC| 00000640: 54 45 4D 50 2B 31 00 58 34 3A 4C 44 59 23 30 00 |TEMP+1.X4:LDY#0.| 00000650: 4C 44 41 28 54 45 4D 50 29 2C 59 00 43 4D 50 23 |LDA(TEMP),Y.CMP#| 00000660: 30 00 42 4E 45 58 37 30 00 4A 4D 50 4F 46 46 00 |0.BNEX70.JMPOFF.| 00000670: 58 37 30 3A 49 4E 59 00 4C 44 41 28 54 45 4D 50 |X70:INY.LDA(TEMP| 00000680: 29 2C 59 00 53 54 41 46 4F 52 4D 41 44 00 49 4E |),Y.STAFORMAD.IN| 00000690: 59 00 4C 44 41 28 54 45 4D 50 29 2C 59 00 53 54 |Y.LDA(TEMP),Y.ST| 000006A0: 41 46 4F 52 4D 41 44 2B 31 00 4C 44 59 23 30 00 |AFORMAD+1.LDY#0.| 000006B0: 4C 44 41 28 46 4F 52 4D 41 44 29 2C 59 00 53 54 |LDA(FORMAD),Y.ST| 000006C0: 41 24 32 30 32 00 54 41 58 00 49 4E 59 00 4C 44 |A$202.TAX.INY.LD| 000006D0: 41 28 46 4F 52 4D 41 44 29 2C 59 3B 31 2E 20 C4 |A(FORMAD),Y;1. .| 000006E0: 49 4D 2E 57 45 52 54 20 C2 41 53 49 53 53 54 52 |IM.WERT .ASISSTR| 000006F0: 2E 20 49 4E 20 C2 59 54 45 2D 57 45 52 54 20 57 |. IN .YTE-WERT W| 00000700: 41 4E 44 45 4C 4E 00 53 54 41 24 32 30 33 00 4C |ANDELN.STA$203.L| 00000710: 44 41 23 27 3A 00 53 54 41 24 32 30 34 00 4C 44 |DA#':.STA$204.LD| 00000720: 41 23 32 00 53 54 41 24 32 32 00 53 54 41 24 32 |A#2.STA$22.STA$2| 00000730: 33 00 54 58 41 00 43 4C 43 00 4A 53 52 53 54 52 |3.TXA.CLC.JSRSTR| 00000740: 49 4E 47 00 4A 53 52 47 45 54 41 44 52 00 4C 44 |ING.JSRGETADR.LD| 00000750: 41 24 31 34 00 53 54 41 45 52 47 53 54 52 31 00 |A$14.STAERGSTR1.| 00000760: 4C 44 59 23 32 00 4C 44 41 28 46 4F 52 4D 41 44 |LDY#2.LDA(FORMAD| 00000770: 29 2C 59 3B 44 49 54 4F 20 32 2E 20 C4 49 4D 2E |),Y;DITO 2. .IM.| 00000780: 57 45 52 54 00 53 54 41 24 32 30 34 00 54 41 58 |WERT.STA$204.TAX| 00000790: 00 49 4E 59 00 4C 44 41 28 46 4F 52 4D 41 44 29 |.INY.LDA(FORMAD)| 000007A0: 2C 59 00 53 54 41 24 32 30 35 00 4C 44 41 23 27 |,Y.STA$205.LDA#'| 000007B0: 3A 00 53 54 41 24 32 30 36 00 4C 44 41 23 24 30 |:.STA$206.LDA#$0| 000007C0: 34 00 53 54 41 24 32 32 00 4C 44 41 23 32 00 53 |4.STA$22.LDA#2.S| 000007D0: 54 41 24 32 33 00 54 58 41 00 43 4C 43 00 4A 53 |TA$23.TXA.CLC.JS| 000007E0: 52 53 54 52 49 4E 47 00 4A 53 52 47 45 54 41 44 |RSTRING.JSRGETAD| 000007F0: 52 00 4C 44 41 24 31 34 00 53 54 41 45 52 47 53 |R.LDA$14.STAERGS| 00000800: 54 52 32 00 4C 44 59 23 34 00 53 54 59 50 4F 53 |TR2.LDY#4.STYPOS| 00000810: 3B D0 4F 53 49 54 49 4F 4E 20 49 4E 20 C6 4F 52 |;.OSITION IN .OR| 00000820: 4D 45 4C 53 54 52 49 4E 47 00 4C 44 59 23 32 30 |MELSTRING.LDY#20| 00000830: 00 4C 44 41 23 24 30 30 00 58 33 36 3A 53 54 41 |.LDA#$00.X36:STA| 00000840: 24 33 33 43 2C 59 00 44 45 59 00 42 50 4C 58 33 |$33C,Y.DEY.BPLX3| 00000850: 36 00 58 35 3A 4C 44 59 50 4F 53 00 4C 44 41 28 |6.X5:LDYPOS.LDA(| 00000860: 46 4F 52 4D 41 44 29 2C 59 3B C6 55 4E 4B 54 49 |FORMAD),Y;.UNKTI| 00000870: 4F 4E 53 4B 4F 44 45 00 43 4D 50 23 27 5E 00 42 |ONSKODE.CMP#'^.B| 00000880: 4E 45 58 33 33 00 4A 4D 50 58 32 32 00 58 33 33 |NEX33.JMPX22.X33| 00000890: 3A 43 4D 50 23 27 29 00 42 4E 45 58 38 31 00 4A |:CMP#').BNEX81.J| 000008A0: 4D 50 4B 4C 41 4D 4D 45 52 00 58 38 31 3A 53 54 |MPKLAMMER.X81:ST| 000008B0: 41 46 55 4E 4B 54 00 4A 4D 50 41 55 53 57 45 52 |AFUNKT.JMPAUSWER| 000008C0: 54 45 4E 00 57 45 52 54 5A 45 49 47 3A 49 4E 43 |TEN.WERTZEIG:INC| 000008D0: 50 4F 53 3B D3 43 48 4C 45 49 46 45 20 DA 45 49 |POS;.CHLEIFE .EI| 000008E0: 47 45 52 20 41 55 46 20 D7 45 52 54 56 41 52 49 |GER AUF .ERTVARI| 000008F0: 41 42 4C 45 00 4C 44 41 23 32 3B C3 C8 D2 C7 C5 |ABLE.LDA#2;.....| 00000900: D4 20 5A 55 52 55 45 43 4B 53 45 54 5A 45 4E 00 |. ZURUECKSETZEN.| 00000910: 53 54 41 24 32 32 00 53 54 41 24 32 33 00 53 54 |STA$22.STA$23.ST| 00000920: 41 4C 41 4E 47 00 53 54 41 4B 4C 41 4D 46 4C 41 |ALANG.STAKLAMFLA| 00000930: 47 00 49 4E 59 00 4C 44 41 28 46 4F 52 4D 41 44 |G.INY.LDA(FORMAD| 00000940: 29 2C 59 00 43 4D 50 23 27 28 3B 4B 4C 41 4D 4D |),Y.CMP#'(;KLAMM| 00000950: 45 52 20 41 55 46 20 D0 52 49 4E 54 00 42 4E 45 |ER AUF .RINT.BNE| 00000960: 58 38 30 00 49 4E 43 50 4F 53 00 49 4E 59 00 4C |X80.INCPOS.INY.L| 00000970: 44 41 46 55 4E 4B 54 00 53 54 41 53 54 41 43 4B |DAFUNKT.STASTACK| 00000980: 46 55 4E 4B 54 00 4C 44 41 23 24 34 32 00 53 54 |FUNKT.LDA#$42.ST| 00000990: 41 53 54 41 43 4B 00 4C 44 41 23 30 00 53 54 41 |ASTACK.LDA#0.STA| 000009A0: 4B 4C 41 4D 46 4C 41 47 00 52 54 53 00 58 38 30 |KLAMFLAG.RTS.X80| 000009B0: 3A 43 4D 50 23 27 5B 00 42 4E 45 58 33 31 00 4A |:CMP#'[.BNEX31.J| 000009C0: 4D 50 4B 4F 4E 53 54 00 58 33 31 3A 53 54 41 24 |MPKONST.X31:STA$| 000009D0: 32 30 32 00 54 41 58 00 49 4E 59 00 4C 44 41 28 |202.TAX.INY.LDA(| 000009E0: 46 4F 52 4D 41 44 29 2C 59 3B 31 2E 20 C4 49 4D |FORMAD),Y;1. .IM| 000009F0: 2E 57 45 52 54 20 46 55 45 52 20 D6 41 52 49 41 |.WERT FUER .ARIA| 00000A00: 42 4C 45 20 4D 45 52 4B 45 4E 00 53 54 41 24 32 |BLE MERKEN.STA$2| 00000A10: 30 33 00 4C 44 41 23 27 3A 00 53 54 41 24 32 30 |03.LDA#':.STA$20| 00000A20: 34 00 49 4E 59 00 54 59 41 00 50 48 41 00 54 58 |4.INY.TYA.PHA.TX| 00000A30: 41 00 43 4C 43 00 4A 53 52 53 54 52 49 4E 47 00 |A.CLC.JSRSTRING.| 00000A40: 4A 53 52 47 45 54 41 44 52 00 4C 44 41 24 31 34 |JSRGETADR.LDA$14| 00000A50: 00 53 54 41 45 4C 45 31 00 44 45 43 45 4C 45 31 |.STAELE1.DECELE1| 00000A60: 00 50 4C 41 00 54 41 59 00 4C 44 41 28 46 4F 52 |.PLA.TAY.LDA(FOR| 00000A70: 4D 41 44 29 2C 59 00 53 54 41 24 32 30 34 00 54 |MAD),Y.STA$204.T| 00000A80: 41 58 00 49 4E 59 00 4C 44 41 28 46 4F 52 4D 41 |AX.INY.LDA(FORMA| 00000A90: 44 29 2C 59 3B 44 49 54 4F 20 32 2E 20 C4 49 4D |D),Y;DITO 2. .IM| 00000AA0: 2E 57 45 52 54 00 53 54 41 24 32 30 35 00 4C 44 |.WERT.STA$205.LD| 00000AB0: 41 23 27 3A 00 53 54 41 24 32 30 36 00 4C 44 41 |A#':.STA$206.LDA| 00000AC0: 23 24 30 34 00 53 54 41 24 32 32 00 4C 44 41 23 |#$04.STA$22.LDA#| 00000AD0: 32 00 53 54 41 24 32 33 00 54 58 41 00 43 4C 43 |2.STA$23.TXA.CLC| 00000AE0: 00 4A 53 52 53 54 52 49 4E 47 00 4A 53 52 47 45 |.JSRSTRING.JSRGE| 00000AF0: 54 41 44 52 00 4C 44 41 24 31 34 00 53 54 41 45 |TADR.LDA$14.STAE| 00000B00: 4C 45 32 00 44 45 43 45 4C 45 32 00 52 54 53 00 |LE2.DECELE2.RTS.| 00000B10: 56 41 52 48 4F 4C 3A 4C 44 41 5A 45 4C 4C 45 41 |VARHOL:LDAZELLEA| 00000B20: 55 3B D3 43 48 4C 45 49 46 45 20 D6 41 52 49 41 |U;.CHLEIFE .ARIA| 00000B30: 42 4C 45 20 49 4E 20 C6 41 43 00 53 54 41 5A 45 |BLE IN .AC.STAZE| 00000B40: 4C 4C 45 3B 55 4E 44 20 DA D7 2D C5 52 47 45 42 |LLE;UND ..-.RGEB| 00000B50: 4E 49 53 20 4E 41 43 48 20 C1 D2 C7 00 4C 44 41 |NIS NACH ....LDA| 00000B60: 5A 45 4C 4C 45 41 55 2B 31 00 53 54 41 5A 45 4C |ZELLEAU+1.STAZEL| 00000B70: 4C 45 2B 31 00 4C 44 58 45 4C 45 32 3B DA 45 49 |LE+1.LDXELE2;.EI| 00000B80: 47 45 52 20 41 55 46 20 D6 41 52 49 41 42 4C 45 |GER AUF .ARIABLE| 00000B90: 00 43 50 58 23 30 00 42 45 51 58 38 39 00 58 37 |.CPX#0.BEQX89.X7| 00000BA0: 3A 4C 44 41 5A 45 4C 4C 45 00 43 4C 43 00 41 44 |:LDAZELLE.CLC.AD| 00000BB0: 43 23 32 34 30 3B CF 46 46 53 45 54 20 4E 41 45 |C#240;.FFSET NAE| 00000BC0: 43 48 53 54 45 53 20 C5 4C 45 4D 45 4E 54 00 53 |CHSTES .LEMENT.S| 00000BD0: 54 41 5A 45 4C 4C 45 00 42 43 43 58 36 00 49 4E |TAZELLE.BCCX6.IN| 00000BE0: 43 5A 45 4C 4C 45 2B 31 00 58 36 3A 44 45 58 00 |CZELLE+1.X6:DEX.| 00000BF0: 42 4E 45 58 37 00 58 38 39 3A 4C 44 58 45 4C 45 |BNEX7.X89:LDXELE| 00000C00: 31 00 43 50 58 23 30 00 42 45 51 58 39 30 00 58 |1.CPX#0.BEQX90.X| 00000C10: 31 30 3A 4C 44 41 5A 45 4C 4C 45 00 43 4C 43 00 |10:LDAZELLE.CLC.| 00000C20: 41 44 43 23 33 00 53 54 41 5A 45 4C 4C 45 00 42 |ADC#3.STAZELLE.B| 00000C30: 43 43 58 39 00 49 4E 43 5A 45 4C 4C 45 2B 31 00 |CCX9.INCZELLE+1.| 00000C40: 58 39 3A 44 45 58 00 42 4E 45 58 31 30 00 58 39 |X9:DEX.BNEX10.X9| 00000C50: 30 3A 4C 44 59 23 30 3B CC 41 45 4E 47 45 20 44 |0:LDY#0;.AENGE D| 00000C60: 45 53 20 D3 54 52 49 4E 47 53 00 4C 44 41 28 5A |ES .TRINGS.LDA(Z| 00000C70: 45 4C 4C 45 29 2C 59 00 53 54 41 4C 41 4E 47 00 |ELLE),Y.STALANG.| 00000C80: 49 4E 59 00 4C 44 41 28 5A 45 4C 4C 45 29 2C 59 |INY.LDA(ZELLE),Y| 00000C90: 3B C1 44 52 45 53 53 45 00 53 54 41 56 41 52 00 |;.DRESSE.STAVAR.| 00000CA0: 49 4E 59 00 4C 44 41 28 5A 45 4C 4C 45 29 2C 59 |INY.LDA(ZELLE),Y| 00000CB0: 00 53 54 41 56 41 52 2B 31 00 4C 44 58 23 30 00 |.STAVAR+1.LDX#0.| 00000CC0: 4C 44 59 23 30 00 58 31 31 3A 4C 44 41 23 32 00 |LDY#0.X11:LDA#2.| 00000CD0: 53 54 41 24 32 32 00 53 54 41 24 32 33 00 4C 44 |STA$22.STA$23.LD| 00000CE0: 41 28 56 41 52 29 2C 59 3B D6 41 52 49 41 42 4C |A(VAR),Y;.ARIABL| 00000CF0: 45 4E 53 54 52 49 4E 47 20 49 4E 20 C2 41 53 49 |ENSTRING IN .ASI| 00000D00: 43 2D D0 55 46 46 45 52 00 53 54 41 24 32 30 32 |C-.UFFER.STA$202| 00000D10: 2C 58 00 49 4E 59 00 49 4E 58 00 43 50 58 4C 41 |,X.INY.INX.CPXLA| 00000D20: 4E 47 00 42 43 43 58 31 31 00 4C 44 41 23 27 3A |NG.BCCX11.LDA#':| 00000D30: 00 53 54 41 24 32 30 32 2C 58 00 4C 44 59 23 30 |.STA$202,X.LDY#0| 00000D40: 00 4C 44 41 28 56 41 52 29 2C 59 00 58 34 33 3A |.LDA(VAR),Y.X43:| 00000D50: 43 4C 43 00 4A 53 52 24 42 37 42 44 3B D3 54 52 |CLC.JSR$B7BD;.TR| 00000D60: 49 4E 47 20 49 4E 20 C7 4C 45 49 54 4B 4F 4D 4D |ING IN .LEITKOMM| 00000D70: 41 20 4E 41 43 48 20 C6 C1 C3 00 4C 44 59 23 35 |A NACH ....LDY#5| 00000D80: 00 58 33 34 3A 4C 44 41 28 53 54 41 43 4B 29 2C |.X34:LDA(STACK),| 00000D90: 59 00 53 54 41 24 36 39 2C 59 00 44 45 59 00 42 |Y.STA$69,Y.DEY.B| 00000DA0: 50 4C 58 33 34 00 4C 44 41 24 36 36 00 45 4F 52 |PLX34.LDA$66.EOR| 00000DB0: 24 36 45 00 53 54 41 24 36 46 00 52 54 53 00 4B |$6E.STA$6F.RTS.K| 00000DC0: 4C 41 4D 4D 45 52 3A 4C 44 59 23 35 3B CB 4C 41 |LAMMER:LDY#5;.LA| 00000DD0: 4D 4D 45 52 20 5A 55 20 2D 20 42 45 52 45 43 48 |MMER ZU - BERECH| 00000DE0: 4E 45 4E 00 58 38 33 3A 4C 44 41 24 33 34 32 2C |NEN.X83:LDA$342,| 00000DF0: 59 00 53 54 41 24 36 31 2C 59 00 4C 44 41 24 33 |Y.STA$61,Y.LDA$3| 00000E00: 33 43 2C 59 00 53 54 41 24 36 39 2C 59 00 44 45 |3C,Y.STA$69,Y.DE| 00000E10: 59 00 42 50 4C 58 38 33 00 4C 44 41 53 54 41 43 |Y.BPLX83.LDASTAC| 00000E20: 4B 46 55 4E 4B 54 00 53 54 41 46 55 4E 4B 54 00 |KFUNKT.STAFUNKT.| 00000E30: 4C 44 41 50 4F 53 00 53 45 43 3B CF 46 46 53 45 |LDAPOS.SEC;.FFSE| 00000E40: 54 20 46 55 45 52 20 D0 4F 53 49 54 49 4F 4E 00 |T FUER .OSITION.| 00000E50: 53 42 43 23 33 00 53 54 41 50 4F 53 00 4C 44 41 |SBC#3.STAPOS.LDA| 00000E60: 23 24 33 43 3B DA 57 49 53 43 48 45 4E 45 52 47 |#$3C;.WISCHENERG| 00000E70: 2E 20 57 49 45 44 45 52 20 41 55 46 20 24 33 33 |. WIEDER AUF $33| 00000E80: 43 00 53 54 41 53 54 41 43 4B 00 4C 44 59 23 37 |C.STASTACK.LDY#7| 00000E90: 3B D3 54 41 43 4B 20 41 42 20 24 33 34 32 20 4C |;.TACK AB $342 L| 00000EA0: 4F 45 53 43 48 45 4E 00 4C 44 41 23 30 00 58 38 |OESCHEN.LDA#0.X8| 00000EB0: 34 3A 53 54 41 24 33 34 32 2C 59 00 44 45 59 00 |4:STA$342,Y.DEY.| 00000EC0: 42 50 4C 58 38 34 00 4A 4D 50 58 36 31 00 58 32 |BPLX84.JMPX61.X2| 00000ED0: 31 3A 4C 44 41 50 4F 53 3B CF 46 46 53 45 54 20 |1:LDAPOS;.FFSET | 00000EE0: 46 55 45 52 20 D0 4F 53 49 54 49 4F 4E 00 43 4C |FUER .OSITION.CL| 00000EF0: 43 00 41 44 43 23 34 00 53 54 41 50 4F 53 00 4C |C.ADC#4.STAPOS.L| 00000F00: 44 41 23 32 00 53 54 41 24 32 32 00 53 54 41 24 |DA#2.STA$22.STA$| 00000F10: 32 33 00 4A 53 52 41 31 54 4F 41 32 00 4C 44 59 |23.JSRA1TOA2.LDY| 00000F20: 23 35 00 58 33 35 3A 4C 44 41 24 36 39 2C 59 00 |#5.X35:LDA$69,Y.| 00000F30: 53 54 41 28 53 54 41 43 4B 29 2C 59 00 44 45 59 |STA(STACK),Y.DEY| 00000F40: 00 42 50 4C 58 33 35 00 52 54 53 3B DA 55 52 55 |.BPLX35.RTS;.URU| 00000F50: 45 43 4B 20 5A 55 52 20 D3 43 48 4C 45 49 46 45 |ECK ZUR .CHLEIFE| 00000F60: 00 58 32 32 3A 4A 53 52 46 41 43 54 4F 41 53 43 |.X22:JSRFACTOASC| 00000F70: 00 4C 44 59 23 30 00 58 32 33 3A 4C 44 41 24 31 |.LDY#0.X23:LDA$1| 00000F80: 30 30 2C 59 00 49 4E 59 00 43 4D 50 23 30 00 42 |00,Y.INY.CMP#0.B| 00000F90: 4E 45 58 32 33 00 44 45 59 00 53 54 59 4C 41 4E |NEX23.DEY.STYLAN| 00000FA0: 47 00 54 59 41 00 4A 53 52 52 45 53 45 52 56 3B |G.TYA.JSRRESERV;| 00000FB0: D0 4C 41 54 5A 20 46 55 45 52 20 D3 54 52 49 4E |.LATZ FUER .TRIN| 00000FC0: 47 20 52 45 53 45 52 56 49 45 52 45 4E 00 4C 44 |G RESERVIEREN.LD| 00000FD0: 41 5A 45 4C 4C 45 41 55 00 53 54 41 5A 45 4C 4C |AZELLEAU.STAZELL| 00000FE0: 45 00 4C 44 41 5A 45 4C 4C 45 41 55 2B 31 00 53 |E.LDAZELLEAU+1.S| 00000FF0: 54 41 5A 45 4C 4C 45 2B 31 00 4C 44 58 45 52 47 |TAZELLE+1.LDXERG| 00001000: 53 54 52 32 3B CF 46 46 53 45 54 20 41 55 46 20 |STR2;.FFSET AUF | 00001010: C5 52 47 45 42 4E 49 53 53 54 52 2E 00 43 50 58 |.RGEBNISSTR..CPX| 00001020: 23 30 00 42 45 51 58 38 37 00 58 32 35 3A 4C 44 |#0.BEQX87.X25:LD| 00001030: 41 5A 45 4C 4C 45 00 43 4C 43 00 41 44 43 23 32 |AZELLE.CLC.ADC#2| 00001040: 34 30 00 53 54 41 5A 45 4C 4C 45 00 42 43 43 58 |40.STAZELLE.BCCX| 00001050: 32 34 00 49 4E 43 5A 45 4C 4C 45 2B 31 00 58 32 |24.INCZELLE+1.X2| 00001060: 34 3A 44 45 58 00 42 4E 45 58 32 35 00 58 38 37 |4:DEX.BNEX25.X87| 00001070: 3A 4C 44 58 45 52 47 53 54 52 31 00 43 50 58 23 |:LDXERGSTR1.CPX#| 00001080: 30 00 42 45 51 58 38 38 00 58 32 38 3A 4C 44 41 |0.BEQX88.X28:LDA| 00001090: 5A 45 4C 4C 45 00 43 4C 43 00 41 44 43 23 33 00 |ZELLE.CLC.ADC#3.| 000010A0: 53 54 41 5A 45 4C 4C 45 00 42 43 43 58 32 37 00 |STAZELLE.BCCX27.| 000010B0: 49 4E 43 5A 45 4C 4C 45 2B 31 00 58 32 37 3A 44 |INCZELLE+1.X27:D| 000010C0: 45 58 00 42 4E 45 58 32 38 00 58 38 38 3A 4C 44 |EX.BNEX28.X88:LD| 000010D0: 59 23 30 3B CC 41 45 4E 47 45 20 55 4E 44 20 C1 |Y#0;.AENGE UND .| 000010E0: 44 52 45 53 53 45 20 44 45 52 20 C5 52 47 2E 53 |DRESSE DER .RG.S| 000010F0: 54 52 49 4E 47 53 00 4C 44 41 4C 41 4E 47 3B 49 |TRINGS.LDALANG;I| 00001100: 4E 20 C1 2D D4 41 42 45 4C 4C 45 00 53 54 41 28 |N .-.ABELLE.STA(| 00001110: 5A 45 4C 4C 45 29 2C 59 00 4C 44 41 24 33 33 00 |ZELLE),Y.LDA$33.| 00001120: 49 4E 59 00 53 54 41 28 5A 45 4C 4C 45 29 2C 59 |INY.STA(ZELLE),Y| 00001130: 00 49 4E 59 00 4C 44 41 24 33 34 00 53 54 41 28 |.INY.LDA$34.STA(| 00001140: 5A 45 4C 4C 45 29 2C 59 00 4C 44 59 23 30 3B D3 |ZELLE),Y.LDY#0;.| 00001150: 54 52 49 4E 47 20 49 4E 20 D3 54 52 49 4E 47 42 |TRING IN .TRINGB| 00001160: 45 52 45 49 43 48 20 53 43 48 52 45 49 42 45 4E |EREICH SCHREIBEN| 00001170: 00 4C 44 58 23 30 00 58 32 39 3A 4C 44 41 24 31 |.LDX#0.X29:LDA$1| 00001180: 30 30 2C 58 00 53 54 41 28 24 33 33 29 2C 59 00 |00,X.STA($33),Y.| 00001190: 49 4E 59 00 49 4E 58 00 43 50 59 4C 41 4E 47 00 |INY.INX.CPYLANG.| 000011A0: 42 4E 45 58 32 39 00 4F 46 46 3A 4C 44 41 54 45 |BNEX29.OFF:LDATE| 000011B0: 4D 50 3B CF 46 46 53 45 54 20 46 4F 4C 47 45 4E |MP;.FFSET FOLGEN| 000011C0: 44 45 53 20 C1 52 52 41 59 45 4C 45 4D 45 4E 54 |DES .RRAYELEMENT| 000011D0: 00 43 4C 43 3B C6 4F 52 4D 45 4C 53 54 52 49 4E |.CLC;.ORMELSTRIN| 000011E0: 47 00 41 44 43 23 33 00 53 54 41 54 45 4D 50 00 |G.ADC#3.STATEMP.| 000011F0: 42 43 43 58 35 30 00 49 4E 43 54 45 4D 50 2B 31 |BCCX50.INCTEMP+1| 00001200: 00 58 35 30 3A 4C 44 41 54 45 4D 50 2B 31 00 43 |.X50:LDATEMP+1.C| 00001210: 4D 50 46 45 4E 44 2B 31 00 42 43 43 58 35 31 00 |MPFEND+1.BCCX51.| 00001220: 42 4E 45 58 58 31 30 00 4C 44 41 54 45 4D 50 00 |BNEXX10.LDATEMP.| 00001230: 43 4D 50 46 45 4E 44 00 42 43 43 58 35 31 00 50 |CMPFEND.BCCX51.P| 00001240: 4C 41 00 53 54 41 24 37 42 00 50 4C 41 00 53 54 |LA.STA$7B.PLA.ST| 00001250: 41 24 37 41 00 58 58 31 30 3A 52 54 53 00 58 35 |A$7A.XX10:RTS.X5| 00001260: 31 3A 4A 4D 50 58 34 3B DA 55 52 55 45 43 4B 20 |1:JMPX4;.URUECK | 00001270: 3E 20 DA 45 49 47 45 52 20 41 55 46 20 46 4F 4C |> .EIGER AUF FOL| 00001280: 47 45 4E 44 45 20 C6 4F 52 4D 45 4C 00 53 55 4D |GENDE .ORMEL.SUM| 00001290: 4D 45 3A 4C 44 58 5A 45 3B D3 55 4D 4D 45 4E 46 |ME:LDXZE;.UMMENF| 000012A0: 55 4E 4B 54 49 4F 4E 00 43 50 58 23 24 46 46 00 |UNKTION.CPX#$FF.| 000012B0: 42 45 51 53 50 41 4C 54 45 00 53 54 58 45 4C 45 |BEQSPALTE.STXELE| 000012C0: 31 00 58 34 35 3A 4C 44 41 56 4F 4E 00 43 4D 50 |1.X45:LDAVON.CMP| 000012D0: 42 49 53 00 42 45 51 58 34 34 00 42 43 53 58 34 |BIS.BEQX44.BCSX4| 000012E0: 37 00 58 34 34 3A 53 54 41 45 4C 45 32 00 4A 53 |7.X44:STAELE2.JS| 000012F0: 52 56 41 52 48 4F 4C 00 4A 53 52 52 45 43 48 4E |RVARHOL.JSRRECHN| 00001300: 45 4E 00 49 4E 43 56 4F 4E 00 4A 4D 50 58 34 35 |EN.INCVON.JMPX45| 00001310: 00 53 50 41 4C 54 45 3A 4C 44 41 53 50 00 53 54 |.SPALTE:LDASP.ST| 00001320: 41 45 4C 45 32 00 58 34 34 41 3A 4C 44 41 56 4F |AELE2.X44A:LDAVO| 00001330: 4E 00 43 4D 50 42 49 53 00 42 45 51 58 34 36 00 |N.CMPBIS.BEQX46.| 00001340: 42 43 53 58 34 37 00 58 34 36 3A 53 54 41 45 4C |BCSX47.X46:STAEL| 00001350: 45 31 00 4A 53 52 56 41 52 48 4F 4C 00 4A 53 52 |E1.JSRVARHOL.JSR| 00001360: 52 45 43 48 4E 45 4E 00 49 4E 43 56 4F 4E 00 4A |RECHNEN.INCVON.J| 00001370: 4D 50 58 34 34 41 00 58 34 37 3A 52 54 53 00 52 |MPX44A.X47:RTS.R| 00001380: 45 43 48 4E 45 4E 3A 4C 44 41 24 36 36 00 45 4F |ECHNEN:LDA$66.EO| 00001390: 52 24 36 45 00 53 54 41 24 36 46 00 4A 53 52 50 |R$6E.STA$6F.JSRP| 000013A0: 4C 55 53 00 4A 53 52 41 31 54 4F 41 32 00 4C 44 |LUS.JSRA1TOA2.LD| 000013B0: 59 23 35 00 58 34 38 3A 4C 44 41 24 36 39 2C 59 |Y#5.X48:LDA$69,Y| 000013C0: 00 53 54 41 28 53 54 41 43 4B 29 2C 59 00 44 45 |.STA(STACK),Y.DE| 000013D0: 59 00 42 50 4C 58 34 38 00 52 54 53 00 4B 4F 4E |Y.BPLX48.RTS.KON| 000013E0: 53 54 3A 4C 44 58 23 30 3B CB 4F 4E 53 54 41 4E |ST:LDX#0;.ONSTAN| 000013F0: 54 45 20 41 55 53 57 45 52 54 45 4E 00 53 54 58 |TE AUSWERTEN.STX| 00001400: 24 32 30 32 00 49 4E 59 00 53 54 59 4C 41 4E 47 |$202.INY.STYLANG| 00001410: 3B D0 4F 53 2E 20 31 2E 20 DA 45 49 43 48 45 4E |;.OS. 1. .EICHEN| 00001420: 20 4D 45 52 4B 45 4E 00 58 34 31 3A 4C 44 41 28 | MERKEN.X41:LDA(| 00001430: 46 4F 52 4D 41 44 29 2C 59 00 43 4D 50 23 39 33 |FORMAD),Y.CMP#93| 00001440: 00 42 45 51 58 34 32 00 53 54 41 24 32 30 32 2C |.BEQX42.STA$202,| 00001450: 58 3B 49 4E 20 C2 41 53 49 43 2D D0 55 46 46 45 |X;IN .ASIC-.UFFE| 00001460: 52 20 53 43 48 52 45 49 42 45 4E 00 49 4E 59 00 |R SCHREIBEN.INY.| 00001470: 49 4E 58 00 4A 4D 50 58 34 31 00 58 34 32 3A 4C |INX.JMPX41.X42:L| 00001480: 44 41 23 27 3A 00 53 54 41 24 32 30 32 2C 58 00 |DA#':.STA$202,X.| 00001490: 4C 44 41 23 32 3B D0 52 4F 47 52 41 4D 4D 5A 45 |LDA#2;.ROGRAMMZE| 000014A0: 49 47 45 52 20 52 55 45 43 4B 53 45 54 5A 45 4E |IGER RUECKSETZEN| 000014B0: 00 53 54 41 24 32 32 00 53 54 41 24 32 33 00 49 |.STA$22.STA$23.I| 000014C0: 4E 58 00 54 58 41 00 53 45 43 00 53 42 43 23 33 |NX.TXA.SEC.SBC#3| 000014D0: 00 53 54 41 56 41 52 00 43 4C 43 00 4C 44 41 50 |.STAVAR.CLC.LDAP| 000014E0: 4F 53 00 41 44 43 56 41 52 00 53 54 41 50 4F 53 |OS.ADCVAR.STAPOS| 000014F0: 00 4C 44 59 4C 41 4E 47 00 4C 44 41 28 46 4F 52 |.LDYLANG.LDA(FOR| 00001500: 4D 41 44 29 2C 59 00 4A 53 52 58 34 33 00 4C 44 |MAD),Y.JSRX43.LD| 00001510: 41 23 24 46 46 3B C6 4C 41 47 20 46 55 45 52 20 |A#$FF;.LAG FUER | 00001520: 27 CB 4F 4E 53 54 41 4E 54 27 20 53 45 54 5A 45 |'.ONSTANT' SETZE| 00001530: 4E 00 53 54 41 4C 41 4E 47 00 52 54 53 00 41 55 |N.STALANG.RTS.AU| 00001540: 53 57 45 52 54 45 4E 3A 43 4D 50 23 27 23 00 42 |SWERTEN:CMP#'#.B| 00001550: 4E 45 58 31 32 00 4C 44 59 50 4F 53 00 4A 53 52 |NEX12.LDYPOS.JSR| 00001560: 57 45 52 54 5A 45 49 47 00 4C 44 41 45 4C 45 31 |WERTZEIG.LDAELE1| 00001570: 00 53 54 41 5A 45 00 4C 44 41 45 4C 45 32 00 53 |.STAZE.LDAELE2.S| 00001580: 54 41 53 50 00 4C 44 41 23 33 00 43 4C 43 00 41 |TASP.LDA#3.CLC.A| 00001590: 44 43 50 4F 53 00 53 54 41 50 4F 53 00 54 41 59 |DCPOS.STAPOS.TAY| 000015A0: 00 4A 53 52 57 45 52 54 5A 45 49 47 00 4C 44 41 |.JSRWERTZEIG.LDA| 000015B0: 45 4C 45 31 00 53 54 41 56 4F 4E 00 4C 44 41 45 |ELE1.STAVON.LDAE| 000015C0: 4C 45 32 00 53 54 41 42 49 53 00 4A 53 52 53 55 |LE2.STABIS.JSRSU| 000015D0: 4D 4D 45 00 4C 44 41 23 34 00 43 4C 43 00 41 44 |MME.LDA#4.CLC.AD| 000015E0: 43 50 4F 53 00 53 54 41 50 4F 53 00 4A 4D 50 58 |CPOS.STAPOS.JMPX| 000015F0: 35 00 58 31 32 3A 43 4D 50 23 27 25 00 42 4E 45 |5.X12:CMP#'%.BNE| 00001600: 58 31 33 00 4A 53 52 57 45 52 54 5A 45 49 47 00 |X13.JSRWERTZEIG.| 00001610: 4C 44 41 4C 41 4E 47 00 43 4D 50 23 24 46 46 00 |LDALANG.CMP#$FF.| 00001620: 42 45 51 58 39 32 00 4A 53 52 56 41 52 48 4F 4C |BEQX92.JSRVARHOL| 00001630: 00 58 39 32 3A 4A 53 52 41 31 54 4F 41 32 00 4C |.X92:JSRA1TOA2.L| 00001640: 44 59 23 31 30 30 3B 23 31 30 30 20 4E 41 43 48 |DY#100;#100 NACH| 00001650: 20 C6 C1 C3 00 4A 53 52 24 42 33 41 32 00 4C 44 | ....JSR$B3A2.LD| 00001660: 41 24 36 36 00 45 4F 52 24 36 45 00 53 54 41 24 |A$66.EOR$6E.STA$| 00001670: 36 46 00 4A 53 52 4D 55 4C 54 3B CD 55 4C 54 49 |6F.JSRMULT;.ULTI| 00001680: 50 4C 2E 20 4D 49 54 20 25 2D D7 45 52 54 00 4A |PL. MIT %-.ERT.J| 00001690: 53 52 58 32 31 00 44 45 43 50 4F 53 00 4C 44 59 |SRX21.DECPOS.LDY| 000016A0: 50 4F 53 00 4A 53 52 57 45 52 54 5A 45 49 47 00 |POS.JSRWERTZEIG.| 000016B0: 4C 44 41 4C 41 4E 47 00 43 4D 50 23 24 46 46 00 |LDALANG.CMP#$FF.| 000016C0: 42 45 51 58 39 33 00 4A 53 52 56 41 52 48 4F 4C |BEQX93.JSRVARHOL| 000016D0: 00 58 39 33 3A 4A 53 52 44 49 56 00 4A 53 52 58 |.X93:JSRDIV.JSRX| 000016E0: 32 31 00 4A 4D 50 58 35 00 58 31 33 3A 43 4D 50 |21.JMPX5.X13:CMP| 000016F0: 23 24 43 44 00 42 4E 45 58 31 38 00 4A 53 52 58 |#$CD.BNEX18.JSRX| 00001700: 31 30 31 00 4A 4D 50 58 35 00 58 31 30 31 3A 4C |101.JMPX5.X101:L| 00001710: 44 59 50 4F 53 00 4A 53 52 57 45 52 54 5A 45 49 |DYPOS.JSRWERTZEI| 00001720: 47 00 4C 44 41 45 4C 45 31 00 53 54 41 5A 45 00 |G.LDAELE1.STAZE.| 00001730: 4C 44 41 45 4C 45 32 00 53 54 41 53 50 00 4C 44 |LDAELE2.STASP.LD| 00001740: 41 23 33 00 43 4C 43 00 41 44 43 50 4F 53 00 53 |A#3.CLC.ADCPOS.S| 00001750: 54 41 50 4F 53 00 54 41 59 00 4A 53 52 57 45 52 |TAPOS.TAY.JSRWER| 00001760: 54 5A 45 49 47 00 4C 44 41 45 4C 45 31 3B C1 4E |TZEIG.LDAELE1;.N| 00001770: 46 41 4E 47 53 57 45 52 54 20 52 45 54 54 45 4E |FANGSWERT RETTEN| 00001780: 00 53 54 41 56 4F 4E 00 53 54 41 4B 4C 41 4D 46 |.STAVON.STAKLAMF| 00001790: 4C 41 47 00 4C 44 41 45 4C 45 32 00 53 54 41 42 |LAG.LDAELE2.STAB| 000017A0: 49 53 00 4A 53 52 53 55 4D 4D 45 00 4C 44 41 23 |IS.JSRSUMME.LDA#| 000017B0: 34 00 43 4C 43 00 41 44 43 50 4F 53 00 53 54 41 |4.CLC.ADCPOS.STA| 000017C0: 50 4F 53 00 4A 53 52 41 31 54 4F 41 32 3B D3 55 |POS.JSRA1TOA2;.U| 000017D0: 4D 4D 45 20 4E 41 43 48 20 C1 D2 C7 00 4C 44 41 |MME NACH ....LDA| 000017E0: 42 49 53 3B C1 4E 5A 41 41 48 4C 20 44 45 52 20 |BIS;.NZAAHL DER | 000017F0: C5 4C 45 4D 45 4E 54 45 00 53 45 43 00 53 42 43 |.LEMENTE.SEC.SBC| 00001800: 4B 4C 41 4D 46 4C 41 47 00 54 41 59 00 49 4E 59 |KLAMFLAG.TAY.INY| 00001810: 00 4A 53 52 24 42 33 41 32 3B D7 45 52 54 20 4E |.JSR$B3A2;.ERT N| 00001820: 41 43 48 20 C6 C1 C3 00 4C 44 41 24 36 36 00 45 |ACH ....LDA$66.E| 00001830: 4F 52 24 36 45 00 53 54 41 24 36 46 00 4A 53 52 |OR$6E.STA$6F.JSR| 00001840: 44 49 56 00 4A 53 52 41 31 54 4F 41 32 00 4C 44 |DIV.JSRA1TOA2.LD| 00001850: 59 23 35 00 58 39 31 3A 4C 44 41 24 36 39 2C 59 |Y#5.X91:LDA$69,Y| 00001860: 00 53 54 41 28 53 54 41 43 4B 29 2C 59 00 44 45 |.STA(STACK),Y.DE| 00001870: 59 00 42 50 4C 58 39 31 00 52 54 53 00 58 31 38 |Y.BPLX91.RTS.X18| 00001880: 3A 43 4D 50 23 27 53 00 42 45 51 58 58 36 00 4A |:CMP#'S.BEQXX6.J| 00001890: 4D 50 58 36 30 00 4C 44 59 23 35 00 4C 44 41 23 |MPX60.LDY#5.LDA#| 000018A0: 30 00 58 58 37 3A 53 54 41 24 33 34 45 2C 59 00 |0.XX7:STA$34E,Y.| 000018B0: 44 45 59 00 42 50 4C 58 58 37 00 58 58 36 3A 4A |DEY.BPLXX7.XX6:J| 000018C0: 53 52 58 31 30 31 3B CD 49 54 54 45 4C 57 45 52 |SRX101;.ITTELWER| 000018D0: 54 00 4C 44 41 4B 4C 41 4D 46 4C 41 47 00 53 54 |T.LDAKLAMFLAG.ST| 000018E0: 41 56 4F 4E 00 4C 44 59 23 35 00 58 31 34 3A 4C |AVON.LDY#5.X14:L| 000018F0: 44 41 24 36 31 2C 59 00 53 54 41 24 33 34 38 2C |DA$61,Y.STA$348,| 00001900: 59 00 44 45 59 00 42 50 4C 58 31 34 00 4C 44 41 |Y.DEY.BPLX14.LDA| 00001910: 5A 45 00 53 54 41 45 4C 45 31 00 43 4D 50 23 24 |ZE.STAELE1.CMP#$| 00001920: 46 46 00 42 45 51 53 54 41 4E 44 53 50 00 58 58 |FF.BEQSTANDSP.XX| 00001930: 34 35 3A 4C 44 41 56 4F 4E 00 43 4D 50 42 49 53 |45:LDAVON.CMPBIS| 00001940: 00 42 45 51 58 58 34 34 00 42 43 53 58 58 34 37 |.BEQXX44.BCSXX47| 00001950: 00 58 58 34 34 3A 53 54 41 45 4C 45 32 00 4A 53 |.XX44:STAELE2.JS| 00001960: 52 56 41 52 48 4F 4C 00 4A 53 52 58 58 33 00 49 |RVARHOL.JSRXX3.I| 00001970: 4E 43 56 4F 4E 00 4A 4D 50 58 58 34 35 00 53 54 |NCVON.JMPXX45.ST| 00001980: 41 4E 44 53 50 3A 4C 44 41 53 50 00 53 54 41 45 |ANDSP:LDASP.STAE| 00001990: 4C 45 32 00 58 58 34 34 41 3A 4C 44 41 56 4F 4E |LE2.XX44A:LDAVON| 000019A0: 00 43 4D 50 42 49 53 00 42 45 51 58 58 34 36 00 |.CMPBIS.BEQXX46.| 000019B0: 42 43 53 58 58 34 37 00 58 58 34 36 3A 53 54 41 |BCSXX47.XX46:STA| 000019C0: 45 4C 45 31 00 4A 53 52 56 41 52 48 4F 4C 00 4A |ELE1.JSRVARHOL.J| 000019D0: 53 52 58 58 33 00 49 4E 43 56 4F 4E 00 4A 4D 50 |SRXX3.INCVON.JMP| 000019E0: 58 58 34 34 41 00 58 58 34 37 3A 4A 4D 50 57 45 |XX44A.XX47:JMPWE| 000019F0: 49 54 45 52 00 58 58 33 3A 4A 53 52 41 31 54 4F |ITER.XX3:JSRA1TO| 00001A00: 41 32 3B D6 41 52 49 41 42 4C 45 20 49 4E 20 C1 |A2;.ARIABLE IN .| 00001A10: D2 C7 00 4C 44 59 23 35 00 58 58 31 3A 4C 44 41 |...LDY#5.XX1:LDA| 00001A20: 24 33 34 38 2C 59 3B CD 49 54 54 45 4C 57 45 52 |$348,Y;.ITTELWER| 00001A30: 54 20 49 4E 20 C6 C1 C3 00 53 54 41 24 36 31 2C |T IN ....STA$61,| 00001A40: 59 00 44 45 59 00 42 50 4C 58 58 31 00 4C 44 41 |Y.DEY.BPLXX1.LDA| 00001A50: 24 36 36 3B D8 C9 20 2D 20 D8 CD 00 45 4F 52 24 |$66;.. - ...EOR$| 00001A60: 36 45 00 53 54 41 24 36 46 00 4A 53 52 4D 49 4E |6E.STA$6F.JSRMIN| 00001A70: 55 53 00 4A 53 52 41 31 54 4F 41 32 3B C8 4F 43 |US.JSRA1TOA2;.OC| 00001A80: 48 20 32 00 4C 44 59 23 32 00 4A 53 52 24 42 33 |H 2.LDY#2.JSR$B3| 00001A90: 41 32 00 4C 44 41 24 36 36 00 45 4F 52 24 36 45 |A2.LDA$66.EOR$6E| 00001AA0: 00 53 54 41 24 36 46 00 4A 53 52 45 58 50 4F 00 |.STA$6F.JSREXPO.| 00001AB0: 4C 44 59 23 35 00 58 58 32 3A 4C 44 41 5A 57 53 |LDY#5.XX2:LDAZWS| 00001AC0: 54 41 4E 44 2C 59 3B DA 57 49 53 43 48 45 4E 53 |TAND,Y;.WISCHENS| 00001AD0: 55 4D 4D 45 20 49 4E 20 C1 D2 C7 00 53 54 41 24 |UMME IN ....STA$| 00001AE0: 36 39 2C 59 00 44 45 59 00 42 50 4C 58 58 32 00 |69,Y.DEY.BPLXX2.| 00001AF0: 4C 44 41 24 36 36 00 45 4F 52 24 36 45 00 53 54 |LDA$66.EOR$6E.ST| 00001B00: 41 24 36 46 00 4A 53 52 50 4C 55 53 00 4C 44 59 |A$6F.JSRPLUS.LDY| 00001B10: 23 35 00 58 58 34 3A 4C 44 41 24 36 31 2C 59 00 |#5.XX4:LDA$61,Y.| 00001B20: 53 54 41 5A 57 53 54 41 4E 44 2C 59 00 44 45 59 |STAZWSTAND,Y.DEY| 00001B30: 00 42 50 4C 58 58 34 00 52 54 53 00 57 45 49 54 |.BPLXX4.RTS.WEIT| 00001B40: 45 52 3A 4A 53 52 41 31 54 4F 41 32 00 4C 44 41 |ER:JSRA1TOA2.LDA| 00001B50: 42 49 53 00 53 45 43 00 53 42 43 4B 4C 41 4D 46 |BIS.SEC.SBCKLAMF| 00001B60: 4C 41 47 00 54 41 59 00 49 4E 59 00 4A 53 52 24 |LAG.TAY.INY.JSR$| 00001B70: 42 33 41 32 00 4C 44 41 24 36 36 00 45 4F 52 24 |B3A2.LDA$66.EOR$| 00001B80: 36 45 00 53 54 41 24 36 46 00 4A 53 52 44 49 56 |6E.STA$6F.JSRDIV| 00001B90: 00 4C 44 41 24 36 36 00 45 4F 52 24 36 45 00 53 |.LDA$66.EOR$6E.S| 00001BA0: 54 41 24 36 46 00 4A 53 52 57 55 52 5A 45 4C 00 |TA$6F.JSRWURZEL.| 00001BB0: 4C 44 59 23 35 00 58 31 37 3A 4C 44 41 24 36 31 |LDY#5.X17:LDA$61| 00001BC0: 2C 59 00 53 54 41 28 53 54 41 43 4B 29 2C 59 00 |,Y.STA(STACK),Y.| 00001BD0: 44 45 59 00 42 50 4C 58 31 37 00 4C 44 59 23 35 |DEY.BPLX17.LDY#5| 00001BE0: 00 58 58 35 3A 4C 44 41 23 30 00 53 54 41 5A 57 |.XX5:LDA#0.STAZW| 00001BF0: 53 54 41 4E 44 2C 59 00 44 45 59 00 42 50 4C 58 |STAND,Y.DEY.BPLX| 00001C00: 58 35 00 4A 4D 50 58 35 00 58 36 30 3A 4A 53 52 |X5.JMPX5.X60:JSR| 00001C10: 57 45 52 54 5A 45 49 47 00 4C 44 58 4B 4C 41 4D |WERTZEIG.LDXKLAM| 00001C20: 46 4C 41 47 3B CB 4C 41 4D 4D 45 52 20 41 55 46 |FLAG;.LAMMER AUF| 00001C30: 20 2D 20 47 45 4C 45 53 45 4E 00 43 50 58 23 30 | - GELESEN.CPX#0| 00001C40: 00 42 4E 45 58 39 37 00 4A 4D 50 58 38 36 00 58 |.BNEX97.JMPX86.X| 00001C50: 39 37 3A 4C 44 41 4C 41 4E 47 00 43 4D 50 23 24 |97:LDALANG.CMP#$| 00001C60: 46 46 00 42 45 51 58 36 31 00 4A 53 52 56 41 52 |FF.BEQX61.JSRVAR| 00001C70: 48 4F 4C 00 58 36 31 3A 4C 44 41 46 55 4E 4B 54 |HOL.X61:LDAFUNKT| 00001C80: 00 43 4D 50 23 27 2B 00 42 4E 45 58 36 32 00 4A |.CMP#'+.BNEX62.J| 00001C90: 53 52 50 4C 55 53 00 4A 4D 50 58 36 37 00 58 36 |SRPLUS.JMPX67.X6| 00001CA0: 32 3A 43 4D 50 23 27 2D 00 42 4E 45 58 36 33 00 |2:CMP#'-.BNEX63.| 00001CB0: 4A 53 52 4D 49 4E 55 53 00 4A 4D 50 58 36 37 00 |JSRMINUS.JMPX67.| 00001CC0: 58 36 33 3A 43 4D 50 23 27 2A 00 42 4E 45 58 36 |X63:CMP#'*.BNEX6| 00001CD0: 34 00 4A 53 52 4D 55 4C 54 00 4A 4D 50 58 36 37 |4.JSRMULT.JMPX67| 00001CE0: 00 58 36 34 3A 43 4D 50 23 27 2F 00 42 4E 45 58 |.X64:CMP#'/.BNEX| 00001CF0: 36 35 00 4C 44 41 24 36 31 00 43 4D 50 23 30 00 |65.LDA$61.CMP#0.| 00001D00: 42 4E 45 58 39 35 00 4C 44 41 23 32 00 53 54 41 |BNEX95.LDA#2.STA| 00001D10: 46 45 48 4C 45 52 00 4C 44 41 24 46 37 00 53 54 |FEHLER.LDA$F7.ST| 00001D20: 41 46 45 48 4C 45 52 2B 31 00 4C 44 41 24 46 38 |AFEHLER+1.LDA$F8| 00001D30: 00 53 54 41 46 45 48 4C 45 52 2B 32 00 4A 4D 50 |.STAFEHLER+2.JMP| 00001D40: 58 36 37 00 58 39 35 3A 4A 53 52 44 49 56 00 4A |X67.X95:JSRDIV.J| 00001D50: 4D 50 58 36 37 00 58 36 35 3A 43 4D 50 23 24 44 |MPX67.X65:CMP#$D| 00001D60: 37 00 42 4E 45 58 36 36 00 4C 44 41 24 36 36 00 |7.BNEX66.LDA$66.| 00001D70: 43 4D 50 23 24 46 46 00 42 4E 45 58 39 34 00 4C |CMP#$FF.BNEX94.L| 00001D80: 44 41 23 31 00 53 54 41 46 45 48 4C 45 52 00 4C |DA#1.STAFEHLER.L| 00001D90: 44 41 24 46 37 00 53 54 41 46 45 48 4C 45 52 2B |DA$F7.STAFEHLER+| 00001DA0: 31 00 4C 44 41 24 46 38 00 53 54 41 46 45 48 4C |1.LDA$F8.STAFEHL| 00001DB0: 45 52 2B 32 00 4A 4D 50 58 36 37 00 58 39 34 3A |ER+2.JMPX67.X94:| 00001DC0: 4A 53 52 57 55 52 5A 45 4C 00 4A 4D 50 58 36 37 |JSRWURZEL.JMPX67| 00001DD0: 00 58 36 36 3A 43 4D 50 23 24 43 35 00 42 4E 45 |.X66:CMP#$C5.BNE| 00001DE0: 58 39 36 00 4A 53 52 45 58 50 4F 00 58 39 36 3A |X96.JSREXPO.X96:| 00001DF0: 43 4D 50 23 24 44 33 00 42 4E 45 58 39 38 00 4A |CMP#$D3.BNEX98.J| 00001E00: 53 52 53 49 4E 00 4A 4D 50 58 36 37 00 58 39 38 |SRSIN.JMPX67.X98| 00001E10: 3A 43 4D 50 23 24 43 33 00 42 4E 45 58 39 39 00 |:CMP#$C3.BNEX99.| 00001E20: 4A 53 52 43 4F 53 00 4A 4D 50 58 36 37 00 58 39 |JSRCOS.JMPX67.X9| 00001E30: 39 3A 43 4D 50 23 24 44 34 00 42 4E 45 58 36 37 |9:CMP#$D4.BNEX67| 00001E40: 00 4A 53 52 54 41 4E 00 4A 4D 50 58 36 37 00 58 |.JSRTAN.JMPX67.X| 00001E50: 36 37 3A 4A 53 52 58 32 31 00 58 38 36 3A 4A 4D |67:JSRX21.X86:JM| 00001E60: 50 58 35 00 00 53 52 |PX5..SR |
B.;;;QUELLDATEI RECHNEN OP/SRC. ..BA5176 3..WA..OU"RECHNEN OP". .ERGSTR1:.EQ$F7;Z EIGER AUF ERGEBNISSTRING 1. D..ERGSTR2:. EQ$F8;DITO 2. DIMENSION.STRING:.EQ$B7BD; ZIFFERNSTRING IN FLIESSKOMMA.ARRTAB:.EQ$ 2F;BEGINN ARRAYTABELLE.TEMP:.EQ$A7;AKTUE LLER ZEIGER AUF ARRAYELEMENT.ARREND:.EQ$ 32; ENDE ARRAY-TABELLE.FEND:.EQ$A9;ENDE DER TABELLE FUER F$(.).LANG:.EQ$AB;LAENG E DES STRINGS/ZEICHENKETTE.GETADR:.EQ$B7 F7;FAC IN 16-BIT ZAHL.ELE1:.EQ$AE;1. DIM ENSIONSWERT.ELE2:.EQ$AF;2. DIMENSIONSWER T.POS:.EQ$B5;POSITION INNERHALB FUNKTION SSTRING.A1TOA2:.EQ$BC0C;FAC NACH ARG.FUN KT:.EQ$A6;FUNKTIONSKODE.ZELLE:.EQ$F9;ZEI GER AUF AKT. ARRAYELEM. DER ZELLENSTRING S.ZELLEAU:.EQ$B2;DITO 1. ARRAYELEMENT.VA R:.EQ$47;ADRESSE ZELLENVARIABLE.FACTOASC :.EQ$BDDD;FAC NACH ASCII.FORMAD:.EQ$BB.R ESERV:.EQ$B4F4;RESERVIERT PLATZ FUER STR ING.PLUS:.EQ$B86F.MINUS:.EQ$B853.MULT:.E Q$BA30.DIV:.EQ$BB17.WURZEL:.EQ$BF71.EXPO :.EQ$BF7D.SIN:.EQ$E26B.SP:.EQ$40.COS:.EQ $E264.ZE:.EQ$3F.TAN:.EQ$E2B4.VON:.EQ$41. BIS:.EQ$42.STACK:.EQ$9E.STACKFUNKT:.EQ$9 6.KLAMFLAG:.EQ$A5.FEHLER:.EQ$354.ZWSTAND :.EQ$34E. .LDAARRTAB+1;ZG. AUF 1.ARRAYEL EM. MERKEN.STAZELLEAU+1.LDAARRTAB.CLC.AD C#9.STAZELLEAU.BCCX32.INCZELLEAU+1.X32:L DA$7A;LADEADR DER CHRGET-ROUTINE.PHA;RET TEN.LDA$7B.PHA.LDA#$3C;UND AENDERN.STAST ACK.LDA#$03.STASTACK+1.LDXARRTAB.LDAARRT AB+1.X1:STXTEMP.STATEMP+1.LDY#0.LDA(TEMP ),Y.INY.CMP#'F;ARRAYTAB. FUER F$(.) SUCH EN.BEQX3.X2:INY.LDA(TEMP),Y.CLC.ADCTEMP. TAX.INY.LDA(TEMP),Y.ADCTEMP+1.BCCX1.X3:I NY;GEFUNDEN.LDA(TEMP),Y.CLC.ADCTEMP.STAF END;ENDE DER ARRAYTABELLE.INY.LDA(TEMP), Y.ADCTEMP+1.STAFEND+1.LDATEMP.CLC.ADC#7; OFFSET 1. ARRAYELEMENT.STATEMP.BCCX4.INC TEMP+1.X4:LDY#0.LDA(TEMP),Y.CMP#0.BNEX70 .JMPOFF.X70:INY.LDA(TEMP),Y.STAFORMAD.IN Y.LDA(TEMP),Y.STAFORMAD+1.LDY#0.LDA(FORM AD),Y.STA$202.TAX.INY.LDA(FORMAD),Y;1. D IM.WERT BASISSTR. IN BYTE-WERT WANDELN.S TA$203.LDA#':.STA$204.LDA#2.STA$22.STA$2 3.TXA.CLC.JSRSTRING.JSRGETADR.LDA$14.STA ERGSTR1.LDY#2.LDA(FORMAD),Y;DITO 2. DIM. WERT.STA$204.TAX.INY.LDA(FORMAD),Y.STA$2 05.LDA#':.STA$206.LDA#$04.STA$22.LDA#2.S TA$23.TXA.CLC.JSRSTRING.JSRGETADR.LDA$14 .STAERGSTR2.LDY#4.STYPOS;POSITION IN FOR MELSTRING.LDY#20.LDA#$00.X36:STA$33C,Y.D EY.BPLX36.X5:LDYPOS.LDA(FORMAD),Y;FUNKTI ONSKODE.CMP#'^.BNEX33.JMPX22.X33:CMP#'). BNEX81.JMPKLAMMER.X81:STAFUNKT.JMPAUSWER TEN.WERTZEIG:INCPOS;SCHLEIFE ZEIGER AUF WERTVARIABLE.LDA#2;CHRGET ZURUECKSETZEN. STA$22.STA$23.STALANG.STAKLAMFLAG.INY.LD A(FORMAD),Y.CMP#'(;KLAMMER AUF PRINT.BNE X80.INCPOS.INY.LDAFUNKT.STASTACKFUNKT.LD A#$42.STASTACK.LDA#0.STAKLAMFLAG.RTS.X80 :CMP#'[.BNEX31.JMPKONST.X31:STA$202.TAX. INY.LDA(FORMAD),Y;1. DIM.WERT FUER VARIA BLE MERKEN.STA$203.LDA#':.STA$204.INY.TY A.PHA.TXA.CLC.JSRSTRING.JSRGETADR.LDA$14 .STAELE1.DECELE1.PLA.TAY.LDA(FORMAD),Y.S TA$204.TAX.INY.LDA(FORMAD),Y;DITO 2. DIM .WERT.STA$205.LDA#':.STA$206.LDA#$04.STA $22.LDA#2.STA$23.TXA.CLC.JSRSTRING.JSRGE TADR.LDA$14.STAELE2.DECELE2.RTS.VARHOL:L DAZELLEAU;SCHLEIFE VARIABLE IN FAC.STAZE LLE;UND ZW-ERGEBNIS NACH ARG.LDAZELLEAU+ 1.STAZELLE+1.LDXELE2;ZEIGER AUF VARIABLE .CPX#0.BEQX89.X7:LDAZELLE.CLC.ADC#240;OF FSET NAECHSTES ELEMENT.STAZELLE.BCCX6.IN CZELLE+1.X6:DEX.BNEX7.X89:LDXELE1.CPX#0. BEQX90.X10:LDAZELLE.CLC.ADC#3.STAZELLE.B CCX9.INCZELLE+1.X9:DEX.BNEX10.X90:LDY#0; LAENGE DES STRINGS.LDA(ZELLE),Y.STALANG. INY.LDA(ZELLE),Y;ADRESSE.STAVAR.INY.LDA( ZELLE),Y.STAVAR+1.LDX#0.LDY#0.X11:LDA#2. STA$22.STA$23.LDA(VAR),Y;VARIABLENSTRING IN BASIC-PUFFER.STA$202,X.INY.INX.CPXLA NG.BCCX11.LDA#':.STA$202,X.LDY#0.LDA(VAR ),Y.X43:CLC.JSR$B7BD;STRING IN GLEITKOMM A NACH FAC.LDY#5.X34:LDA(STACK),Y.STA$69 ,Y.DEY.BPLX34.LDA$66.EOR$6E.STA$6F.RTS.K LAMMER:LDY#5;KLAMMER ZU - BERECHNEN.X83: LDA$342,Y.STA$61,Y.LDA$33C,Y.STA$69,Y.DE Y.BPLX83.LDASTACKFUNKT.STAFUNKT.LDAPOS.S EC;OFFSET FUER POSITION.SBC#3.STAPOS.LDA #$3C;ZWISCHENERG. WIEDER AUF $33C.STASTA CK.LDY#7;STACK AB $342 LOESCHEN.LDA#0.X8 4:STA$342,Y.DEY.BPLX84.JMPX61.X21:LDAPOS ;OFFSET FUER POSITION.CLC.ADC#4.STAPOS.L DA#2.STA$22.STA$23.JSRA1TOA2.LDY#5.X35:L DA$69,Y.STA(STACK),Y.DEY.BPLX35.RTS;ZURU ECK ZUR SCHLEIFE.X22:JSRFACTOASC.LDY#0.X 23:LDA$100,Y.INY.CMP#0.BNEX23.DEY.STYLAN G.TYA.JSRRESERV;PLATZ FUER STRING RESERV IEREN.LDAZELLEAU.STAZELLE.LDAZELLEAU+1.S TAZELLE+1.LDXERGSTR2;OFFSET AUF ERGEBNIS STR..CPX#0.BEQX87.X25:LDAZELLE.CLC.ADC#2 40.STAZELLE.BCCX24.INCZELLE+1.X24:DEX.BN EX25.X87:LDXERGSTR1.CPX#0.BEQX88.X28:LDA ZELLE.CLC.ADC#3.STAZELLE.BCCX27.INCZELLE +1.X27:DEX.BNEX28.X88:LDY#0;LAENGE UND A DRESSE DER ERG.STRINGS.LDALANG;IN A-TABE LLE.STA(ZELLE),Y.LDA$33.INY.STA(ZELLE),Y .INY.LDA$34.STA(ZELLE),Y.LDY#0;STRING IN STRINGBEREICH SCHREIBEN.LDX#0.X29:LDA$1 00,X.STA($33),Y.INY.INX.CPYLANG.BNEX29.O FF:LDATEMP;OFFSET FOLGENDES ARRAYELEMENT .CLC;FORMELSTRING.ADC#3.STATEMP.BCCX50.I NCTEMP+1.X50:LDATEMP+1.CMPFEND+1.BCCX51. BNEXX10.LDATEMP.CMPFEND.BCCX51.PLA.STA$7 B.PLA.STA$7A.XX10:RTS.X51:JMPX4;ZURUECK > ZEIGER AUF FOLGENDE FORMEL.SUMME:LDXZE ;SUMMENFUNKTION.CPX#$FF.BEQSPALTE.STXELE 1.X45:LDAVON.CMPBIS.BEQX44.BCSX47.X44:ST AELE2.JSRVARHOL.JSRRECHNEN.INCVON.JMPX45 .SPALTE:LDASP.STAELE2.X44A:LDAVON.CMPBIS .BEQX46.BCSX47.X46:STAELE1.JSRVARHOL.JSR RECHNEN.INCVON.JMPX44A.X47:RTS.RECHNEN:L DA$66.EOR$6E.STA$6F.JSRPLUS.JSRA1TOA2.LD Y#5.X48:LDA$69,Y.STA(STACK),Y.DEY.BPLX48 .RTS.KONST:LDX#0;KONSTANTE AUSWERTEN.STX $202.INY.STYLANG;POS. 1. ZEICHEN MERKEN. X41:LDA(FORMAD),Y.CMP#93.BEQX42.STA$202, X;IN BASIC-PUFFER SCHREIBEN.INY.INX.JMPX 41.X42:LDA#':.STA$202,X.LDA#2;PROGRAMMZE IGER RUECKSETZEN.STA$22.STA$23.INX.TXA.S EC.SBC#3.STAVAR.CLC.LDAPOS.ADCVAR.STAPOS .LDYLANG.LDA(FORMAD),Y.JSRX43.LDA#$FF;FL AG FUER 'KONSTANT' SETZEN.STALANG.RTS.AU SWERTEN:CMP#'#.BNEX12.LDYPOS.JSRWERTZEIG .LDAELE1.STAZE.LDAELE2.STASP.LDA#3.CLC.A DCPOS.STAPOS.TAY.JSRWERTZEIG.LDAELE1.STA VON.LDAELE2.STABIS.JSRSUMME.LDA#4.CLC.AD CPOS.STAPOS.JMPX5.X12:CMP#'%.BNEX13.JSRW ERTZEIG.LDALANG.CMP#$FF.BEQX92.JSRVARHOL .X92:JSRA1TOA2.LDY#100;#100 NACH FAC.JSR $B3A2.LDA$66.EOR$6E.STA$6F.JSRMULT;MULTI PL. MIT %-WERT.JSRX21.DECPOS.LDYPOS.JSRW ERTZEIG.LDALANG.CMP#$FF.BEQX93.JSRVARHOL .X93:JSRDIV.JSRX21.JMPX5.X13:CMP#$CD.BNE X18.JSRX101.JMPX5.X101:LDYPOS.JSRWERTZEI G.LDAELE1.STAZE.LDAELE2.STASP.LDA#3.CLC. ADCPOS.STAPOS.TAY.JSRWERTZEIG.LDAELE1;AN FANGSWERT RETTEN.STAVON.STAKLAMFLAG.LDAE LE2.STABIS.JSRSUMME.LDA#4.CLC.ADCPOS.STA POS.JSRA1TOA2;SUMME NACH ARG.LDABIS;ANZA AHL DER ELEMENTE.SEC.SBCKLAMFLAG.TAY.INY .JSR$B3A2;WERT NACH FAC.LDA$66.EOR$6E.ST A$6F.JSRDIV.JSRA1TOA2.LDY#5.X91:LDA$69,Y .STA(STACK),Y.DEY.BPLX91.RTS.X18:CMP#'S. BEQXX6.JMPX60.LDY#5.LDA#0.XX7:STA$34E,Y. DEY.BPLXX7.XX6:JSRX101;MITTELWERT.LDAKLA MFLAG.STAVON.LDY#5.X14:LDA$61,Y.STA$348, Y.DEY.BPLX14.LDAZE.STAELE1.CMP#$FF.BEQST ANDSP.XX45:LDAVON.CMPBIS.BEQXX44.BCSXX47 .XX44:STAELE2.JSRVARHOL.JSRXX3.INCVON.JM PXX45.STANDSP:LDASP.STAELE2.XX44A:LDAVON .CMPBIS.BEQXX46.BCSXX47.XX46:STAELE1.JSR VARHOL.JSRXX3.INCVON.JMPXX44A.XX47:JMPWE ITER.XX3:JSRA1TOA2;VARIABLE IN ARG.LDY#5 .XX1:LDA$348,Y;MITTELWERT IN FAC.STA$61, Y.DEY.BPLXX1.LDA$66;XI - XM.EOR$6E.STA$6 F.JSRMINUS.JSRA1TOA2;HOCH 2.LDY#2.JSR$B3 A2.LDA$66.EOR$6E.STA$6F.JSREXPO.LDY#5.XX 2:LDAZWSTAND,Y;ZWISCHENSUMME IN ARG.STA$ 69,Y.DEY.BPLXX2.LDA$66.EOR$6E.STA$6F.JSR PLUS.LDY#5.XX4:LDA$61,Y.STAZWSTAND,Y.DEY .BPLXX4.RTS.WEITER:JSRA1TOA2.LDABIS.SEC. SBCKLAMFLAG.TAY.INY.JSR$B3A2.LDA$66.EOR$ 6E.STA$6F.JSRDIV.LDA$66.EOR$6E.STA$6F.JS RWURZEL.LDY#5.X17:LDA$61,Y.STA(STACK),Y. DEY.BPLX17.LDY#5.XX5:LDA#0.STAZWSTAND,Y. DEY.BPLXX5.JMPX5.X60:JSRWERTZEIG.LDXKLAM FLAG;KLAMMER AUF - GELESEN.CPX#0.BNEX97. JMPX86.X97:LDALANG.CMP#$FF.BEQX61.JSRVAR HOL.X61:LDAFUNKT.CMP#'+.BNEX62.JSRPLUS.J MPX67.X62:CMP#'-.BNEX63.JSRMINUS.JMPX67. X63:CMP#'*.BNEX64.JSRMULT.JMPX67.X64:CMP #'/.BNEX65.LDA$61.CMP#0.BNEX95.LDA#2.STA FEHLER.LDA$F7.STAFEHLER+1.LDA$F8.STAFEHL ER+2.JMPX67.X95:JSRDIV.JMPX67.X65:CMP#$D 7.BNEX66.LDA$66.CMP#$FF.BNEX94.LDA#1.STA FEHLER.LDA$F7.STAFEHLER+1.LDA$F8.STAFEHL ER+2.JMPX67.X94:JSRWURZEL.JMPX67.X66:CMP #$C5.BNEX96.JSREXPO.X96:CMP#$D3.BNEX98.J SRSIN.JMPX67.X98:CMP#$C3.BNEX99.JSRCOS.J MPX67.X99:CMP#$D4.BNEX67.JSRTAN.JMPX67.X 67:JSRX21.X86:JMPX5..SR
> CLICK IMAGE PREVIEW FOR FULL MODAL