MATRIXEXPRESS V3
FILE INFORMATION
FILENAME(S): MATRIXEXPRESS V3
FILE TYPE(S): PRG
FILE SIZE: 14.6K
FIRST SEEN: 2025-11-02 16:39:36
APPEARS ON: 2 disk(s)
FILE HASH
76476fb66cf1d81f45c3d71212e3534d341b04061a7153f8ca3da611e423a854
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 15827 SEITE D | MATRIXEXPRESS V3 | PRG | Treasure Chest - Plattfuss | 19 | 0 | DOWNLOAD FILE |
| 15827 SEITE D | MATRIXEXPRESS V3 | PRG | C64er, Treasure Chest - ralf | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0D 08 0A 00 9E 20 33 32 37 36 38 00 1D 08 |....... 32768...|
00000010: 0C 00 2E 4F 50 54 20 50 2C 4D 2C 4F 4F 00 23 08 |...OPT P,M,OO.#.|
00000020: 0E 00 3B 00 4C 08 14 00 3B AB AB AB AB AB AB AB |..;.L...;.......|
00000030: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000040: AB AB AB AB AB AB AB AB AB AB AB AB 00 62 08 C8 |.............b..|
00000050: 00 4F 46 46 4D 41 43 20 2E 4D 41 43 20 41 2C 42 |.OFFMAC .MAC A,B|
00000060: 2C 43 00 6C 08 CA 00 4C 44 41 20 41 00 78 08 CC |,C.l...LDA A.x..|
00000070: 00 53 54 41 20 24 43 31 00 82 08 CE 00 4C 44 41 |.STA $C1.....LDA|
00000080: 20 42 00 8E 08 D0 00 53 54 41 20 24 43 32 00 98 | B.....STA $C2..|
00000090: 08 D2 00 4C 44 59 20 43 00 A7 08 D4 00 4A 53 52 |...LDY C.....JSR|
000000A0: 20 4F 46 46 53 45 54 00 B0 08 D6 00 2E 4D 45 4E | OFFSET......MEN|
000000B0: 00 D8 08 DA 00 3B AB AB AB AB AB AB AB AB AB AB |.....;..........|
000000C0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000000D0: AB AB AB AB AB AB AB AB 00 F4 08 2C 01 4D 41 54 |...........,.MAT|
000000E0: 46 55 4E 4B 20 2E 4D 41 43 20 53 50 52 5A 4C 2C |FUNK .MAC SPRZL,|
000000F0: 5A 41 48 4C 00 02 09 2E 01 4C 44 58 20 23 5A 41 |ZAHL.....LDX #ZA|
00000100: 48 4C 00 13 09 30 01 4C 4F 4F 50 20 49 4E 43 20 |HL...0.LOOP INC |
00000110: 24 37 41 00 22 09 32 01 42 4E 45 20 2E 4C 45 53 |$7A.".2.BNE .LES|
00000120: 53 31 00 2E 09 34 01 49 4E 43 20 24 37 42 00 3C |S1...4.INC $7B.<|
00000130: 09 36 01 4C 45 53 53 31 20 44 45 58 00 4A 09 38 |.6.LESS1 DEX.J.8|
00000140: 01 42 4E 45 20 2E 4C 4F 4F 50 00 58 09 54 01 4A |.BNE .LOOP.X.T.J|
00000150: 53 52 20 53 50 52 5A 4C 00 66 09 56 01 4A 4D 50 |SR SPRZL.f.V.JMP|
00000160: 20 24 41 37 41 45 00 6F 09 58 01 2E 4D 45 4E 00 | $A7AE.o.X..MEN.|
00000170: 97 09 5E 01 3B AB AB AB AB AB AB AB AB AB AB AB |..^.;...........|
00000180: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000190: AB AB AB AB AB AB AB 00 AB 09 60 01 54 45 58 54 |..........`.TEXT|
000001A0: 20 2E 4D 41 43 20 54 45 58 54 4E 00 BB 09 62 01 | .MAC TEXTN...b.|
000001B0: 4C 44 41 20 23 B3 54 45 58 54 4E 00 C7 09 63 01 |LDA #.TEXTN...c.|
000001C0: 53 54 41 20 24 32 32 00 D7 09 64 01 4C 44 59 20 |STA $22...d.LDY |
000001D0: 23 B1 54 45 58 54 4E 00 E3 09 65 01 53 54 59 20 |#.TEXTN...e.STY |
000001E0: 24 32 33 00 F2 09 67 01 4A 53 52 20 53 54 52 4F |$23...g.JSR STRO|
000001F0: 55 54 00 FB 09 68 01 2E 4D 45 4E 00 23 0A 6A 01 |UT...h..MEN.#.j.|
00000200: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00000210: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000220: AB AB AB 00 3F 0A 72 01 43 55 52 53 B0 20 2E 4D |....?.r.CURS. .M|
00000230: 41 43 20 5A 45 49 4C 45 2C 53 50 41 4C 54 45 00 |AC ZEILE,SPALTE.|
00000240: 4E 0A 74 01 4C 44 58 20 23 5A 45 49 4C 45 00 5E |N.t.LDX #ZEILE.^|
00000250: 0A 76 01 4C 44 59 20 23 53 50 41 4C 54 45 00 6A |.v.LDY #SPALTE.j|
00000260: 0A 78 01 53 54 58 20 24 44 36 00 76 0A 7A 01 53 |.x.STX $D6.v.z.S|
00000270: 54 59 20 24 44 33 00 85 0A 7C 01 4A 53 52 20 53 |TY $D3...|.JSR S|
00000280: 45 54 43 52 53 00 8E 0A 7E 01 2E 4D 45 4E 00 B6 |ETCRS...~..MEN..|
00000290: 0A 80 01 3B AB AB AB AB AB AB AB AB AB AB AB AB |...;............|
000002A0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000002B0: AB AB AB AB AB AB 00 BC 0A 24 03 3B 00 DD 0A 26 |.........$.;...&|
000002C0: 03 43 41 4C 43 20 20 20 B2 20 24 43 39 37 35 20 |.CALC . $C975 |
000002D0: 3B 20 43 41 4C 43 2E AB 42 41 53 49 53 00 F0 0A |; CALC..BASIS...|
000002E0: 28 03 4C 43 41 4C 43 20 20 B2 20 B3 43 41 4C 43 |(.LCALC . .CALC|
000002F0: 00 03 0B 2A 03 48 43 41 4C 43 20 20 B2 20 B1 43 |...*.HCALC . .C|
00000300: 41 4C 43 00 19 0B 2C 03 4C 43 38 20 20 20 20 B2 |ALC...,.LC8 .|
00000310: 20 B3 43 41 4C 43 AA 31 32 00 2F 0B 2E 03 48 43 | .CALC.12./...HC|
00000320: 38 20 20 20 20 B2 20 B1 43 41 4C 43 AA 31 32 00 |8 . .CALC.12.|
00000330: 45 0B 30 03 4C 43 31 33 20 20 20 B2 20 B3 43 41 |E.0.LC13 . .CA|
00000340: 4C 43 AA 31 37 00 5B 0B 32 03 48 43 31 33 20 20 |LC.17.[.2.HC13 |
00000350: 20 B2 20 B1 43 41 4C 43 AA 31 37 00 71 0B 34 03 | . .CALC.17.q.4.|
00000360: 4C 43 31 38 20 20 20 B2 20 B3 43 41 4C 43 AA 32 |LC18 . .CALC.2|
00000370: 32 00 87 0B 35 03 48 43 31 38 20 20 20 B2 20 B1 |2...5.HC18 . .|
00000380: 43 41 4C 43 AA 32 32 00 9D 0B 36 03 4C 43 32 33 |CALC.22...6.LC23|
00000390: 20 20 20 B2 20 B3 43 41 4C 43 AA 32 37 00 B3 0B | . .CALC.27...|
000003A0: 37 03 48 43 32 33 20 20 20 B2 20 B1 43 41 4C 43 |7.HC23 . .CALC|
000003B0: AA 32 37 00 C6 0B 38 03 4B 4F 4D 4D 41 20 20 B2 |.27...8.KOMMA .|
000003C0: 20 24 41 45 46 44 00 D9 0B 39 03 53 54 52 4F 55 | $AEFD...9.STROU|
000003D0: 54 20 B2 20 24 41 42 31 45 00 EA 0B 3A 03 43 48 |T . $AB1E...:.CH|
000003E0: 52 A1 20 B2 20 24 30 30 37 33 00 FC 0B 3C 03 43 |R. . $0073...<.C|
000003F0: 48 52 CB 54 20 B2 20 24 30 30 37 39 00 0D 0C 3E |HR.T . $0079...>|
00000400: 03 46 41 43 B6 20 B2 20 24 42 43 35 38 00 20 0C |.FAC. . $BC58. .|
00000410: 40 03 43 4D 50 46 41 43 20 B2 20 24 42 43 35 42 |@.CMPFAC . $BC5B|
00000420: 00 33 0C 42 03 4D 44 49 56 20 20 20 B2 20 24 42 |.3.B.MDIV . $B|
00000430: 42 30 46 00 44 0C 44 03 B5 4D 55 4C 20 B2 20 24 |B0F.D.D..MUL . $|
00000440: 42 33 34 43 00 57 0C 46 03 4D 45 4D 46 41 43 20 |B34C.W.F.MEMFAC |
00000450: B2 20 24 42 42 41 32 00 6A 0C 48 03 46 41 43 4D |. $BBA2.j.H.FACM|
00000460: 45 4D 20 B2 20 24 42 42 44 37 00 7D 0C 4A 03 50 |EM . $BBD7.}.J.P|
00000470: 54 52 56 41 52 20 B2 20 24 42 30 45 37 00 90 0C |TRVAR . $B0E7...|
00000480: 4C 03 4D 53 55 42 20 20 20 B2 20 24 42 38 35 30 |L.MSUB . $B850|
00000490: 00 A3 0C 4E 03 4D 41 44 44 20 20 20 B2 20 24 42 |...N.MADD . $B|
000004A0: 38 36 37 00 B6 0C 50 03 4D 4D 55 4C 54 20 20 B2 |867...P.MMULT .|
000004B0: 20 24 42 41 32 38 00 C6 0C 52 03 87 59 20 20 B2 | $BA28...R..Y .|
000004C0: 20 24 41 34 37 34 00 D7 0C 54 03 41 52 59 A1 20 | $A474...T.ARY. |
000004D0: B2 20 24 42 31 39 34 00 EA 0C 56 03 53 43 52 54 |. $B194...V.SCRT|
000004E0: 43 48 20 B2 20 24 41 36 34 34 00 FD 0C 58 03 43 |CH . $A644...X.C|
000004F0: 48 52 4F 55 54 20 B2 20 24 46 46 44 32 00 10 0D |HROUT . $FFD2...|
00000500: 5A 03 53 45 54 43 52 53 20 B2 20 24 45 35 36 43 |Z.SETCRS . $E56C|
00000510: 00 16 0D 7A 03 3B 00 23 0D 7C 03 AC B2 20 24 43 |...z.;.#.|... $C|
00000520: 30 30 30 00 29 0D 7E 03 3B 00 51 0D 80 03 3B AB |000.).~.;.Q...;.|
00000530: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000540: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000550: AB 00 5E 0D 84 03 4C 44 41 20 23 24 30 42 00 7A |..^...LDA #$0B.z|
00000560: 0D 86 03 53 54 41 20 24 30 33 30 38 20 20 20 20 |...STA $0308 |
00000570: 20 3B 20 49 CB 4E 45 20 4C 4F 00 87 0D 88 03 4C | ; I.NE LO.....L|
00000580: 44 41 20 23 24 43 30 00 A3 0D 8A 03 53 54 41 20 |DA #$C0.....STA |
00000590: 24 30 33 30 39 20 20 20 20 20 3B 20 49 CB 4E 45 |$0309 ; I.NE|
000005A0: 20 48 49 00 B1 0D 8B 03 4A 53 52 20 54 49 54 45 | HI.....JSR TITE|
000005B0: 4C 00 B9 0D 8C 03 52 54 53 00 BF 0D 8E 03 3B 00 |L.....RTS.....;.|
000005C0: CC 0D 90 03 4A 53 52 20 43 48 52 A1 00 EB 0D 92 |....JSR CHR.....|
000005D0: 03 43 4D 50 20 23 24 34 30 20 20 20 20 20 20 3B |.CMP #$40 ;|
000005E0: 20 C6 49 49 20 46 55 45 52 20 40 00 0C 0E 94 03 | .II FUER @.....|
000005F0: 42 45 51 20 4E 45 55 42 45 46 20 20 20 20 3B 20 |BEQ NEUBEF ; |
00000600: 4E 45 55 45 52 20 42 45 46 45 48 4C 00 32 0E 96 |NEUER BEFEHL.2..|
00000610: 03 4A 4D 50 20 24 41 37 45 37 20 20 20 20 20 3B |.JMP $A7E7 ;|
00000620: 20 4B 45 49 4E 20 4E 45 55 45 52 20 42 45 46 45 | KEIN NEUER BEFE|
00000630: 48 4C 00 46 0E 98 03 4E 45 55 42 45 46 20 4A 53 |HL.F...NEUBEF JS|
00000640: 52 20 43 48 52 A1 00 53 0E 9A 03 43 4D 50 20 23 |R CHR..S...CMP #|
00000650: 22 41 22 00 61 0E 9C 03 42 4E 45 20 46 55 4E 4B |"A".a...BNE FUNK|
00000660: 32 00 76 0E 9E 03 27 4D 41 54 46 55 4E 4B 20 41 |2.v...'MATFUNK A|
00000670: 44 44 2C 24 30 33 00 89 0E A0 03 46 55 4E 4B 32 |DD,$03.....FUNK2|
00000680: 20 43 4D 50 20 23 22 45 22 00 97 0E A2 03 42 4E | CMP #"E".....BN|
00000690: 45 20 46 55 4E 4B 33 00 AC 0E A4 03 27 4D 41 54 |E FUNK3.....'MAT|
000006A0: 46 55 4E 4B 20 45 51 55 2C 24 30 33 00 BF 0E A6 |FUNK EQU,$03....|
000006B0: 03 46 55 4E 4B 33 20 43 4D 50 20 23 22 4D 22 00 |.FUNK3 CMP #"M".|
000006C0: CD 0E A8 03 42 4E 45 20 46 55 4E 4B 34 00 E2 0E |....BNE FUNK4...|
000006D0: AA 03 27 4D 41 54 46 55 4E 4B 20 4D 55 4C 2C 24 |..'MATFUNK MUL,$|
000006E0: 30 33 00 F5 0E AC 03 46 55 4E 4B 34 20 43 4D 50 |03.....FUNK4 CMP|
000006F0: 20 23 22 44 22 00 03 0F AE 03 42 4E 45 20 46 55 | #"D".....BNE FU|
00000700: 4E 4B 35 00 18 0F B0 03 27 4D 41 54 46 55 4E 4B |NK5.....'MATFUNK|
00000710: 20 44 45 54 2C 24 30 33 00 2B 0F B2 03 46 55 4E | DET,$03.+...FUN|
00000720: 4B 35 20 43 4D 50 20 23 22 49 22 00 39 0F B4 03 |K5 CMP #"I".9...|
00000730: 42 4E 45 20 46 55 4E 4B 36 00 4E 0F B6 03 27 4D |BNE FUNK6.N...'M|
00000740: 41 54 46 55 4E 4B 20 49 4E 56 2C 24 30 33 00 61 |ATFUNK INV,$03.a|
00000750: 0F B8 03 46 55 4E 4B 36 20 43 4D 50 20 23 22 53 |...FUNK6 CMP #"S|
00000760: 22 00 6F 0F BA 03 42 4E 45 20 46 55 4E 4B 38 00 |".o...BNE FUNK8.|
00000770: 7C 0F C0 03 4A 53 52 20 43 48 52 A1 00 89 0F C2 ||...JSR CHR.....|
00000780: 03 43 4D 50 20 23 22 55 22 00 97 0F C4 03 42 4E |.CMP #"U".....BN|
00000790: 45 20 46 55 4E 4B 37 00 AC 0F C6 03 27 4D 41 54 |E FUNK7.....'MAT|
000007A0: 46 55 4E 4B 20 53 55 42 2C 24 30 32 00 C7 0F C8 |FUNK SUB,$02....|
000007B0: 03 46 55 4E 4B 37 20 27 4D 41 54 46 55 4E 4B 20 |.FUNK7 'MATFUNK |
000007C0: 53 4B 50 2C 24 30 32 00 D5 0F CA 03 46 55 4E 4B |SKP,$02.....FUNK|
000007D0: 38 20 52 54 53 00 FD 0F E7 03 3B AB AB AB AB AB |8 RTS.....;.....|
000007E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000007F0: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 14 10 |................|
00000800: E8 03 3B 20 45 51 55 49 C5 45 4E 5A 20 28 41 29 |..; EQUI.ENZ (A)|
00000810: B2 28 42 29 00 2D 10 EA 03 3B 20 AC AC AC AC AC |.(B).-...; .....|
00000820: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 3E 10 |..............>.|
00000830: EC 03 45 51 55 20 4C 44 41 20 23 24 30 38 00 4A |..EQU LDA #$08.J|
00000840: 10 EE 03 53 54 41 20 24 46 42 00 58 10 F0 03 4A |...STA $FB.X...J|
00000850: 53 52 20 41 52 59 A5 44 00 6A 10 F2 03 45 51 55 |SR ARY.D.j...EQU|
00000860: 49 56 20 4C 44 41 20 23 30 30 00 76 10 F4 03 53 |IV LDA #00.v...S|
00000870: 54 41 20 24 46 43 00 87 10 F6 03 46 4C 31 36 20 |TA $FC.....FL16 |
00000880: 4C 44 41 20 23 30 30 00 93 10 F8 03 53 54 41 20 |LDA #00.....STA |
00000890: 24 46 42 00 A5 10 FA 03 46 4C 31 35 20 4C 44 41 |$FB.....FL15 LDA|
000008A0: 20 43 41 4C 43 00 B4 10 FC 03 4C 44 59 20 43 41 | CALC.....LDY CA|
000008B0: 4C 43 AA 31 00 C3 10 FE 03 4A 53 52 20 4D 45 4D |LC.1.....JSR MEM|
000008C0: 46 41 43 00 D2 10 00 04 4C 44 58 20 43 41 4C 43 |FAC.....LDX CALC|
000008D0: AA 34 00 E1 10 02 04 4C 44 59 20 43 41 4C 43 AA |.4.....LDY CALC.|
000008E0: 35 00 F0 10 04 04 4A 53 52 20 46 41 43 4D 45 4D |5.....JSR FACMEM|
000008F0: 00 FE 10 06 04 4A 53 52 20 45 4C 41 44 44 00 0A |.....JSR ELADD..|
00000900: 11 08 04 49 4E 43 20 24 46 42 00 16 11 0A 04 4C |...INC $FB.....L|
00000910: 44 41 20 24 46 42 00 25 11 0C 04 43 4D 50 20 43 |DA $FB.%...CMP C|
00000920: 41 4C 43 AA 33 00 32 11 0E 04 42 4E 45 20 46 4C |ALC.3.2...BNE FL|
00000930: 31 35 00 3E 11 10 04 49 4E 43 20 24 46 43 00 4A |15.>...INC $FC.J|
00000940: 11 12 04 4C 44 41 20 24 46 43 00 59 11 14 04 43 |...LDA $FC.Y...C|
00000950: 4D 50 20 43 41 4C 43 AA 32 00 66 11 16 04 42 4E |MP CALC.2.f...BN|
00000960: 45 20 46 4C 31 36 00 6E 11 18 04 52 54 53 00 95 |E FL16.n...RTS..|
00000970: 11 1A 04 3B AB AB AB AB AB AB AB AB AB AB AB AB |...;............|
00000980: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000990: AB AB AB AB AB 00 AF 11 4C 04 3B 20 41 44 44 49 |........L.; ADDI|
000009A0: 54 49 91 20 28 41 29 AA 28 42 29 B2 28 43 29 00 |TI. (A).(B).(C).|
000009B0: CA 11 4E 04 3B 20 AC AC AC AC AC AC AC AC AC AC |..N.; ..........|
000009C0: AC AC AC AC AC AC AC AC AC AC 00 ED 11 50 04 41 |.............P.A|
000009D0: 44 44 20 4C 44 41 20 23 24 30 43 20 3B 20 50 41 |DD LDA #$0C ; PA|
000009E0: 52 41 4D 45 54 45 52 41 4E 5A 41 48 4C 00 F9 11 |RAMETERANZAHL...|
000009F0: 52 04 53 54 41 20 24 46 42 00 07 12 54 04 4A 53 |R.STA $FB...T.JS|
00000A00: 52 20 41 52 59 A5 44 00 13 12 56 04 4C 44 41 20 |R ARY.D...V.LDA |
00000A10: 23 30 30 00 1F 12 58 04 53 54 41 20 24 46 43 00 |#00...X.STA $FC.|
00000A20: 2F 12 5A 04 46 4C 36 20 4C 44 41 20 23 30 30 00 |/.Z.FL6 LDA #00.|
00000A30: 3B 12 5C 04 53 54 41 20 24 46 42 00 4C 12 5E 04 |;.\.STA $FB.L.^.|
00000A40: 46 4C 35 20 4C 44 41 20 43 41 4C 43 00 5B 12 60 |FL5 LDA CALC.[.`|
00000A50: 04 4C 44 59 20 43 41 4C 43 AA 31 00 6A 12 62 04 |.LDY CALC.1.j.b.|
00000A60: 4A 53 52 20 4D 45 4D 46 41 43 00 79 12 64 04 4C |JSR MEMFAC.y.d.L|
00000A70: 44 41 20 43 41 4C 43 AA 34 00 88 12 66 04 4C 44 |DA CALC.4...f.LD|
00000A80: 59 20 43 41 4C 43 AA 35 00 95 12 68 04 4A 53 52 |Y CALC.5...h.JSR|
00000A90: 20 4D 41 44 44 00 A5 12 6A 04 4C 44 58 20 43 41 | MADD...j.LDX CA|
00000AA0: 4C 43 AA 30 38 00 B5 12 6C 04 4C 44 59 20 43 41 |LC.08...l.LDY CA|
00000AB0: 4C 43 AA 30 39 00 C4 12 6E 04 4A 53 52 20 46 41 |LC.09...n.JSR FA|
00000AC0: 43 4D 45 4D 00 D2 12 70 04 4A 53 52 20 45 4C 41 |CMEM...p.JSR ELA|
00000AD0: 44 44 00 DE 12 72 04 49 4E 43 20 24 46 42 00 EA |DD...r.INC $FB..|
00000AE0: 12 74 04 4C 44 41 20 24 46 42 00 F9 12 76 04 43 |.t.LDA $FB...v.C|
00000AF0: 4D 50 20 43 41 4C 43 AA 33 00 05 13 78 04 42 4E |MP CALC.3...x.BN|
00000B00: 45 20 46 4C 35 00 11 13 7A 04 49 4E 43 20 24 46 |E FL5...z.INC $F|
00000B10: 43 00 1D 13 7C 04 4C 44 41 20 24 46 43 00 2C 13 |C...|.LDA $FC.,.|
00000B20: 7E 04 43 4D 50 20 43 41 4C 43 AA 32 00 38 13 80 |~.CMP CALC.2.8..|
00000B30: 04 42 4E 45 20 46 4C 36 00 40 13 82 04 52 54 53 |.BNE FL6.@...RTS|
00000B40: 00 67 13 84 04 3B AB AB AB AB AB AB AB AB AB AB |.g...;..........|
00000B50: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000B60: AB AB AB AB AB AB AB 00 84 13 DC 05 3B 20 53 55 |............; SU|
00000B70: 42 54 52 41 4B 54 49 91 20 28 41 29 AB 28 42 29 |BTRAKTI. (A).(B)|
00000B80: B2 28 43 29 00 A2 13 DE 05 3B 20 AC AC AC AC AC |.(C).....; .....|
00000B90: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000BA0: AC AC 00 B3 13 E0 05 53 55 42 20 4C 44 41 20 23 |.......SUB LDA #|
00000BB0: 24 30 43 00 BF 13 E2 05 53 54 41 20 24 46 42 00 |$0C.....STA $FB.|
00000BC0: CD 13 E4 05 4A 53 52 20 41 52 59 A5 44 00 D9 13 |....JSR ARY.D...|
00000BD0: E6 05 4C 44 41 20 23 30 30 00 E5 13 E8 05 53 54 |..LDA #00.....ST|
00000BE0: 41 20 24 46 43 00 F5 13 EA 05 46 4C 37 20 4C 44 |A $FC.....FL7 LD|
00000BF0: 41 20 23 30 30 00 01 14 EC 05 53 54 41 20 24 46 |A #00.....STA $F|
00000C00: 42 00 14 14 EE 05 46 4C 38 20 4C 44 41 20 43 41 |B.....FL8 LDA CA|
00000C10: 4C 43 AA 34 00 23 14 F0 05 4C 44 59 20 43 41 4C |LC.4.#...LDY CAL|
00000C20: 43 AA 35 00 32 14 F2 05 4A 53 52 20 4D 45 4D 46 |C.5.2...JSR MEMF|
00000C30: 41 43 00 3F 14 F4 05 4C 44 41 20 43 41 4C 43 00 |AC.?...LDA CALC.|
00000C40: 4E 14 F6 05 4C 44 59 20 43 41 4C 43 AA 31 00 5B |N...LDY CALC.1.[|
00000C50: 14 F8 05 4A 53 52 20 4D 53 55 42 00 6B 14 FA 05 |...JSR MSUB.k...|
00000C60: 4C 44 58 20 43 41 4C 43 AA 30 38 00 7B 14 FC 05 |LDX CALC.08.{...|
00000C70: 4C 44 59 20 43 41 4C 43 AA 30 39 00 8A 14 FE 05 |LDY CALC.09.....|
00000C80: 4A 53 52 20 46 41 43 4D 45 4D 00 98 14 00 06 4A |JSR FACMEM.....J|
00000C90: 53 52 20 45 4C 41 44 44 00 A4 14 02 06 49 4E 43 |SR ELADD.....INC|
00000CA0: 20 24 46 42 00 B0 14 04 06 4C 44 41 20 24 46 42 | $FB.....LDA $FB|
00000CB0: 00 BF 14 06 06 43 4D 50 20 43 41 4C 43 AA 33 00 |.....CMP CALC.3.|
00000CC0: CB 14 08 06 42 4E 45 20 46 4C 38 00 D7 14 0A 06 |....BNE FL8.....|
00000CD0: 49 4E 43 20 24 46 43 00 E3 14 0C 06 4C 44 41 20 |INC $FC.....LDA |
00000CE0: 24 46 43 00 F2 14 0E 06 43 4D 50 20 43 41 4C 43 |$FC.....CMP CALC|
00000CF0: AA 32 00 FE 14 10 06 42 4E 45 20 46 4C 37 00 06 |.2.....BNE FL7..|
00000D00: 15 12 06 52 54 53 00 2D 15 14 06 3B AB AB AB AB |...RTS.-...;....|
00000D10: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00000D20: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 4D 15 |..............M.|
00000D30: D0 07 3B 20 4D 55 4C 54 49 50 4C 49 4B 41 54 49 |..; MULTIPLIKATI|
00000D40: 91 20 28 41 29 AC 28 42 29 B2 28 43 29 00 6E 15 |. (A).(B).(C).n.|
00000D50: D2 07 3B 20 AC AC AC AC AC AC AC AC AC AC AC AC |..; ............|
00000D60: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 7F |................|
00000D70: 15 D4 07 4D 55 4C 20 4C 44 41 20 23 24 30 43 00 |...MUL LDA #$0C.|
00000D80: 8B 15 D6 07 53 54 41 20 24 46 42 00 99 15 D8 07 |....STA $FB.....|
00000D90: 4A 53 52 20 41 52 59 A5 44 00 A5 15 DA 07 4C 44 |JSR ARY.D.....LD|
00000DA0: 41 20 23 30 30 00 C5 15 DC 07 53 54 41 20 24 38 |A #00.....STA $8|
00000DB0: 42 20 20 20 20 20 20 20 20 20 3B 20 49 4E 44 45 |B ; INDE|
00000DC0: 58 20 49 B2 30 00 D7 15 DE 07 4D 52 4B 31 31 20 |X I.0.....MRK11 |
00000DD0: 4C 44 41 20 23 30 30 00 F7 15 E0 07 53 54 41 20 |LDA #00.....STA |
00000DE0: 24 38 43 20 20 20 20 20 20 20 20 20 3B 20 49 4E |$8C ; IN|
00000DF0: 44 45 58 20 4A B2 30 00 08 16 E2 07 4D 52 4B 38 |DEX J.0.....MRK8|
00000E00: 20 4C 44 41 20 23 30 30 00 28 16 E4 07 53 54 41 | LDA #00.(...STA|
00000E10: 20 24 38 44 20 20 20 20 20 20 20 20 20 3B 20 49 | $8D ; I|
00000E20: 4E 44 45 58 20 4B B2 30 00 34 16 E6 07 4C 44 41 |NDEX K.0.4...LDA|
00000E30: 20 24 38 42 00 40 16 E8 07 53 54 41 20 24 43 31 | $8B.@...STA $C1|
00000E40: 00 4C 16 EA 07 4C 44 41 20 24 38 43 00 58 16 EC |.L...LDA $8C.X..|
00000E50: 07 53 54 41 20 24 43 32 00 65 16 EE 07 4C 44 59 |.STA $C2.e...LDY|
00000E60: 20 23 24 30 38 00 74 16 F0 07 4A 53 52 20 4F 46 | #$08.t...JSR OF|
00000E70: 46 53 45 54 00 80 16 F2 07 53 54 41 20 24 32 34 |FSET.....STA $24|
00000E80: 00 8C 16 F4 07 53 54 59 20 24 32 35 00 98 16 F6 |.....STY $25....|
00000E90: 07 4C 44 41 20 23 30 30 00 A4 16 F8 07 4C 44 58 |.LDA #00.....LDX|
00000EA0: 20 23 30 30 00 C8 16 FA 07 53 54 41 20 28 24 32 | #00.....STA ($2|
00000EB0: 34 29 2C 58 20 20 20 3B 20 43 28 49 2C 4A 29 B2 |4),X ; C(I,J).|
00000EC0: 30 20 53 45 54 5A 45 4E 00 D9 16 FC 07 4D 52 4B |0 SETZEN.....MRK|
00000ED0: 36 20 4C 44 41 20 24 38 42 00 E5 16 FE 07 53 54 |6 LDA $8B.....ST|
00000EE0: 41 20 24 43 31 00 F1 16 00 08 4C 44 41 20 24 38 |A $C1.....LDA $8|
00000EF0: 44 00 FD 16 02 08 53 54 41 20 24 43 32 00 0A 17 |D.....STA $C2...|
00000F00: 04 08 4C 44 59 20 23 24 30 30 00 19 17 06 08 4A |..LDY #$00.....J|
00000F10: 53 52 20 4F 46 46 53 45 54 00 2A 17 08 08 53 54 |SR OFFSET.*...ST|
00000F20: 41 20 43 41 4C 43 AA 24 30 43 00 3B 17 0A 08 53 |A CALC.$0C.;...S|
00000F30: 54 59 20 43 41 4C 43 AA 24 30 44 00 60 17 0C 08 |TY CALC.$0D.`...|
00000F40: 4C 44 41 20 24 46 45 20 20 20 20 20 20 3B 20 5A |LDA $FE ; Z|
00000F50: 45 49 C3 20 44 45 52 20 41 AB 4D 41 54 52 49 58 |EI. DER A.MATRIX|
00000F60: 00 6C 17 0E 08 53 54 41 20 24 38 45 00 78 17 10 |.l...STA $8E.x..|
00000F70: 08 4C 44 41 20 24 38 44 00 84 17 12 08 53 54 41 |.LDA $8D.....STA|
00000F80: 20 24 43 31 00 90 17 14 08 4C 44 41 20 24 38 43 | $C1.....LDA $8C|
00000F90: 00 9C 17 16 08 53 54 41 20 24 43 32 00 A9 17 18 |.....STA $C2....|
00000FA0: 08 4C 44 59 20 23 24 30 34 00 B8 17 1A 08 4A 53 |.LDY #$04.....JS|
00000FB0: 52 20 4F 46 46 53 45 54 00 C7 17 1C 08 4A 53 52 |R OFFSET.....JSR|
00000FC0: 20 4D 45 4D 46 41 43 00 D8 17 1E 08 4C 44 41 20 | MEMFAC.....LDA |
00000FD0: 43 41 4C 43 AA 24 30 43 00 E9 17 20 08 4C 44 59 |CALC.$0C... .LDY|
00000FE0: 20 43 41 4C 43 AA 24 30 44 00 F7 17 22 08 4A 53 | CALC.$0D...".JS|
00000FF0: 52 20 4D 4D 55 4C 54 00 03 18 24 08 4C 44 41 20 |R MMULT...$.LDA |
00001000: 24 32 34 00 0F 18 26 08 4C 44 59 20 24 32 35 00 |$24...&.LDY $25.|
00001010: 1C 18 28 08 4A 53 52 20 4D 41 44 44 00 28 18 2A |..(.JSR MADD.(.*|
00001020: 08 4C 44 58 20 24 32 34 00 34 18 2C 08 4C 44 59 |.LDX $24.4.,.LDY|
00001030: 20 24 32 35 00 43 18 2E 08 4A 53 52 20 46 41 43 | $25.C...JSR FAC|
00001040: 4D 45 4D 00 68 18 30 08 4C 44 41 20 24 46 45 20 |MEM.h.0.LDA $FE |
00001050: 20 20 20 20 20 3B 20 5A 45 49 C3 20 44 45 52 20 | ; ZEI. DER |
00001060: 42 AB 4D 41 54 52 49 58 00 74 18 32 08 43 4D 50 |B.MATRIX.t.2.CMP|
00001070: 20 24 38 44 00 81 18 34 08 42 45 51 20 4D 52 4B | $8D...4.BEQ MRK|
00001080: 37 00 8D 18 36 08 49 4E 43 20 24 38 44 00 AA 18 |7...6.INC $8D...|
00001090: 38 08 4A 4D 50 20 4D 52 4B 36 20 20 20 20 20 3B |8.JMP MRK6 ;|
000010A0: 20 4B AB 53 43 48 4C 45 8B 45 00 D2 18 3A 08 4D | K.SCHLE.E...:.M|
000010B0: 52 4B 37 20 4C 44 41 20 24 46 44 20 3B 20 53 50 |RK7 LDA $FD ; SP|
000010C0: 41 4C 54 45 4E 20 44 45 52 20 42 AB 4D 41 54 52 |ALTEN DER B.MATR|
000010D0: 49 58 00 DE 18 3C 08 43 4D 50 20 24 38 43 00 EB |IX...<.CMP $8C..|
000010E0: 18 3E 08 42 45 51 20 4D 52 4B 39 00 F7 18 40 08 |.>.BEQ MRK9...@.|
000010F0: 49 4E 43 20 24 38 43 00 14 19 42 08 4A 4D 50 20 |INC $8C...B.JMP |
00001100: 4D 52 4B 38 20 20 20 20 20 3B 20 4A AB 53 43 48 |MRK8 ; J.SCH|
00001110: 4C 45 8B 45 00 39 19 44 08 4D 52 4B 39 20 4C 44 |LE.E.9.D.MRK9 LD|
00001120: 41 20 24 38 45 20 3B 20 5A 45 49 C3 20 44 45 52 |A $8E ; ZEI. DER|
00001130: 20 41 AB 4D 41 54 52 49 58 00 45 19 46 08 43 4D | A.MATRIX.E.F.CM|
00001140: 50 20 24 38 42 00 53 19 48 08 42 45 51 20 4D 52 |P $8B.S.H.BEQ MR|
00001150: 4B 31 30 00 5F 19 4A 08 49 4E 43 20 24 38 42 00 |K10._.J.INC $8B.|
00001160: 6D 19 4C 08 4A 4D 50 20 4D 52 4B 31 31 00 7B 19 |m.L.JMP MRK11.{.|
00001170: 4E 08 4D 52 4B 31 30 20 52 54 53 00 A2 19 50 08 |N.MRK10 RTS...P.|
00001180: 3B AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |;...............|
00001190: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000011A0: AB AB 00 BF 19 98 08 3B 53 4B 41 4C 41 52 50 52 |.......;SKALARPR|
000011B0: 4F 44 55 4B 54 20 28 41 29 AC 4B B2 28 41 29 00 |ODUKT (A).K.(A).|
000011C0: DC 19 9A 08 3B AC AC AC AC AC AC AC AC AC AC AC |....;...........|
000011D0: AC AC AC AC AC AC AC AC AC AC AC AC 00 ED 19 9C |................|
000011E0: 08 53 4B 50 20 4C 44 41 20 23 24 30 34 00 F9 19 |.SKP LDA #$04...|
000011F0: 9E 08 53 54 41 20 24 46 42 00 07 1A A0 08 4A 53 |..STA $FB.....JS|
00001200: 52 20 41 52 59 A5 44 00 17 1A A2 08 4A 53 52 20 |R ARY.D.....JSR |
00001210: 56 41 52 4E 41 4D 31 00 3B 1A A4 08 4A 53 52 20 |VARNAM1.;...JSR |
00001220: 50 54 52 56 41 52 20 20 20 3B 20 5A 45 49 47 45 |PTRVAR ; ZEIGE|
00001230: 52 20 41 55 46 20 4B 99 5B 5C 2E 08 4D 1A AC 08 |R AUF K.[\..M...|
00001240: 53 4B 50 44 54 20 4C 44 41 20 23 30 30 00 59 1A |SKPDT LDA #00.Y.|
00001250: AE 08 53 54 41 20 24 46 43 00 6A 1A B0 08 46 4C |..STA $FC.j...FL|
00001260: 32 36 20 4C 44 41 20 23 30 30 00 76 1A B2 08 53 |26 LDA #00.v...S|
00001270: 54 41 20 24 46 42 00 88 1A B4 08 46 4C 32 35 20 |TA $FB.....FL25 |
00001280: 4C 44 41 20 43 41 4C 43 00 97 1A B6 08 4C 44 59 |LDA CALC.....LDY|
00001290: 20 43 41 4C 43 AA 31 00 A6 1A B8 08 4A 53 52 20 | CALC.1.....JSR |
000012A0: 4D 45 4D 46 41 43 00 B2 1A BA 08 4C 44 41 20 24 |MEMFAC.....LDA $|
000012B0: 34 37 00 BE 1A BC 08 4C 44 59 20 24 34 38 00 CC |47.....LDY $48..|
000012C0: 1A BE 08 4A 53 52 20 4D 4D 55 4C 54 00 D9 1A C0 |...JSR MMULT....|
000012D0: 08 4C 44 58 20 43 41 4C 43 00 E8 1A C2 08 4C 44 |.LDX CALC.....LD|
000012E0: 59 20 43 41 4C 43 AA 31 00 F7 1A C4 08 4A 53 52 |Y CALC.1.....JSR|
000012F0: 20 46 41 43 4D 45 4D 00 05 1B C6 08 4A 53 52 20 | FACMEM.....JSR |
00001300: 45 4C 41 44 44 00 11 1B C8 08 49 4E 43 20 24 46 |ELADD.....INC $F|
00001310: 42 00 1D 1B CA 08 4C 44 41 20 24 46 42 00 2C 1B |B.....LDA $FB.,.|
00001320: CC 08 43 4D 50 20 43 41 4C 43 AA 33 00 39 1B CE |..CMP CALC.3.9..|
00001330: 08 42 4E 45 20 46 4C 32 35 00 45 1B D0 08 49 4E |.BNE FL25.E...IN|
00001340: 43 20 24 46 43 00 51 1B D2 08 4C 44 41 20 24 46 |C $FC.Q...LDA $F|
00001350: 43 00 60 1B D4 08 43 4D 50 20 43 41 4C 43 AA 32 |C.`...CMP CALC.2|
00001360: 00 6D 1B D6 08 42 4E 45 20 46 4C 32 36 00 75 1B |.m...BNE FL26.u.|
00001370: D8 08 52 54 53 00 9C 1B DA 08 3B AB AB AB AB AB |..RTS.....;.....|
00001380: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001390: AB AB AB AB AB AB AB AB AB AB AB AB 00 B7 1B C4 |................|
000013A0: 09 3B 44 45 54 45 52 4D 49 4E 41 4E 54 45 20 44 |.;DETERMINANTE D|
000013B0: 45 54 28 41 29 B2 44 00 D2 1B C6 09 3B AC AC AC |ET(A).D.....;...|
000013C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000013D0: AC AC 00 E3 1B C8 09 44 45 54 20 4C 44 41 20 23 |.......DET LDA #|
000013E0: 24 30 30 00 EF 1B C9 09 53 54 41 20 24 43 33 00 |$00.....STA $C3.|
000013F0: FC 1B CA 09 4C 44 41 20 23 24 30 34 00 08 1C CC |....LDA #$04....|
00001400: 09 53 54 41 20 24 46 42 00 16 1C CD 09 4A 53 52 |.STA $FB.....JSR|
00001410: 20 41 52 59 A5 44 00 2C 1C CE 09 48 50 54 44 45 | ARY.D.,...HPTDE|
00001420: 54 20 4C 44 58 20 43 41 4C 43 AA 32 00 34 1C CF |T LDX CALC.2.4..|
00001430: 09 44 45 58 00 40 1C D0 09 53 54 58 20 24 41 36 |.DEX.@...STX $A6|
00001440: 00 53 1C D1 09 44 45 54 45 52 4D 20 4C 44 41 20 |.S...DETERM LDA |
00001450: 23 30 30 00 6B 1C D2 09 53 54 41 20 24 38 45 20 |#00.k...STA $8E |
00001460: 20 20 20 20 20 3B 20 4E 31 B2 30 00 82 1C D4 09 | ; N1.0.....|
00001470: 53 54 41 20 24 38 42 20 20 20 20 20 20 3B 20 49 |STA $8B ; I|
00001480: B2 30 00 93 1C D6 09 53 43 48 31 20 4C 44 41 20 |.0.....SCH1 LDA |
00001490: 24 38 42 00 B0 1C D8 09 43 4D 50 20 24 41 36 20 |$8B.....CMP $A6 |
000014A0: 20 20 20 20 20 3B 20 56 45 52 47 4C 2E 49 B2 4E | ; VERGL.I.N|
000014B0: 00 BE 1C DA 09 42 4E 45 20 43 4E 44 31 41 00 CB |.....BNE CND1A..|
000014C0: 1C DC 09 4A 4D 50 20 43 4E 44 31 00 E9 1C DE 09 |...JMP CND1.....|
000014D0: 43 4E 44 31 41 20 27 4F 46 46 4D 41 43 20 24 38 |CND1A 'OFFMAC $8|
000014E0: 42 2C 24 38 42 2C 24 43 33 00 F8 1C E0 09 4A 53 |B,$8B,$C3.....JS|
000014F0: 52 20 4D 45 4D 46 41 43 00 18 1D E2 09 4A 53 52 |R MEMFAC.....JSR|
00001500: 20 46 41 43 B6 20 20 20 3B 20 42 45 54 52 41 47 | FAC. ; BETRAG|
00001510: 20 49 4E 20 46 41 43 31 00 25 1D E4 09 4C 44 58 | IN FAC1.%...LDX|
00001520: 20 23 4C 43 38 00 32 1D E6 09 4C 44 59 20 23 48 | #LC8.2...LDY #H|
00001530: 43 38 00 4F 1D E8 09 4A 53 52 20 46 41 43 4D 45 |C8.O...JSR FACME|
00001540: 4D 20 3B 20 41 B2 B6 28 41 28 49 2C 49 29 29 00 |M ; A..(A(I,I)).|
00001550: 5B 1D EA 09 4C 44 59 20 24 38 42 00 73 1D EC 09 |[...LDY $8B.s...|
00001560: 53 54 59 20 24 38 46 20 20 20 20 20 20 3B 20 5A |STY $8F ; Z|
00001570: 31 B2 49 00 7B 1D EE 09 49 4E 59 00 94 1D F0 09 |1.I.{...INY.....|
00001580: 53 54 59 20 24 38 44 20 20 20 20 20 20 3B 20 4B |STY $8D ; K|
00001590: B2 4B AA 31 00 B1 1D F2 09 53 43 48 32 20 27 4F |.K.1.....SCH2 'O|
000015A0: 46 46 4D 41 43 20 24 38 44 2C 24 38 42 2C 24 43 |FFMAC $8D,$8B,$C|
000015B0: 33 00 C0 1D F4 09 4A 53 52 20 4D 45 4D 46 41 43 |3.....JSR MEMFAC|
000015C0: 00 CD 1D F6 09 4C 44 41 20 23 4C 43 38 00 DA 1D |.....LDA #LC8...|
000015D0: F8 09 4C 44 59 20 23 48 43 38 00 FA 1D FA 09 4A |..LDY #HC8.....J|
000015E0: 53 52 20 43 4D 50 46 41 43 20 20 20 3B 20 B6 28 |SR CMPFAC ; .(|
000015F0: 41 28 4B 2C 4A 29 29 B3 B2 41 00 1B 1E FC 09 43 |A(K,J))..A.....C|
00001600: 4D 50 20 24 42 39 42 43 20 20 20 20 3B 20 56 45 |MP $B9BC ; VE|
00001610: 52 47 4C 2E 20 41 43 43 55 B2 31 00 29 1E FE 09 |RGL. ACCU.1.)...|
00001620: 42 45 51 20 43 4E 44 32 41 00 35 1E 00 0A 4C 44 |BEQ CND2A.5...LD|
00001630: 41 20 24 38 44 00 42 1E 02 0A 4A 4D 50 20 43 4E |A $8D.B...JMP CN|
00001640: 44 32 00 55 1E 04 0A 43 4E 44 32 41 20 4C 44 58 |D2.U...CND2A LDX|
00001650: 20 23 4C 43 38 00 62 1E 06 0A 4C 44 59 20 23 48 | #LC8.b...LDY #H|
00001660: 43 38 00 81 1E 08 0A 4A 53 52 20 46 41 43 4D 45 |C8.....JSR FACME|
00001670: 4D 20 20 20 3B 20 41 B2 B6 28 41 28 4B 2C 49 29 |M ; A..(A(K,I)|
00001680: 29 00 8D 1E 0A 0A 4C 44 41 20 24 38 44 00 A5 1E |).....LDA $8D...|
00001690: 0C 0A 53 54 41 20 24 38 46 20 20 20 20 20 20 3B |..STA $8F ;|
000016A0: 20 5A 31 B2 4B 00 C2 1E 0E 0A 43 4E 44 32 20 43 | Z1.K.....CND2 C|
000016B0: 4D 50 20 24 41 36 3B 20 56 45 52 47 4C 2E 20 4B |MP $A6; VERGL. K|
000016C0: B2 4E 00 D0 1E 10 0A 42 45 51 20 53 43 48 32 45 |.N.....BEQ SCH2E|
000016D0: 00 E9 1E 12 0A 49 4E 43 20 24 38 44 20 20 20 20 |.....INC $8D |
000016E0: 20 20 3B 20 4B B2 4B AA 31 00 06 1F 14 0A 4A 4D | ; K.K.1.....JM|
000016F0: 50 20 53 43 48 32 20 20 20 20 20 3B 20 4B AB 53 |P SCH2 ; K.S|
00001700: 43 48 4C 45 8B 45 00 18 1F 16 0A 53 43 48 32 45 |CHLE.E.....SCH2E|
00001710: 20 4C 44 41 20 24 38 46 00 24 1F 18 0A 43 4D 50 | LDA $8F.$...CMP|
00001720: 20 24 38 42 00 32 1F 1A 0A 42 4E 45 20 43 4E 44 | $8B.2...BNE CND|
00001730: 31 42 00 3F 1F 1C 0A 4A 4D 50 20 43 4E 44 31 00 |1B.?...JMP CND1.|
00001740: 51 1F 1E 0A 43 4E 44 31 42 20 4C 44 41 20 23 30 |Q...CND1B LDA #0|
00001750: 30 00 5D 1F 20 0A 53 54 41 20 24 38 43 00 7A 1F |0.]. .STA $8C.z.|
00001760: 22 0A 53 43 48 33 20 27 4F 46 46 4D 41 43 20 24 |".SCH3 'OFFMAC $|
00001770: 38 42 2C 24 38 43 2C 24 43 33 00 89 1F 24 0A 4A |8B,$8C,$C3...$.J|
00001780: 53 52 20 4D 45 4D 46 41 43 00 97 1F 26 0A 4C 44 |SR MEMFAC...&.LD|
00001790: 58 20 23 4C 43 31 33 00 A5 1F 28 0A 4C 44 59 20 |X #LC13...(.LDY |
000017A0: 23 48 43 31 33 00 BC 1F 2A 0A 53 54 41 20 24 38 |#HC13...*.STA $8|
000017B0: 43 20 20 20 20 20 20 3B 20 4A B2 30 00 D9 1F 2C |C ; J.0...,|
000017C0: 0A 4A 53 52 20 46 41 43 4D 45 4D 20 20 20 3B 20 |.JSR FACMEM ; |
000017D0: 42 20 41 42 4C 45 47 45 4E 00 F1 1F 2E 0A 27 4F |B ABLEGEN.....'O|
000017E0: 46 46 4D 41 43 20 24 38 46 2C 24 38 43 2C 24 43 |FFMAC $8F,$8C,$C|
000017F0: 33 00 FD 1F 30 0A 53 54 41 20 24 37 31 00 09 20 |3...0.STA $71.. |
00001800: 32 0A 53 54 59 20 24 37 32 00 2C 20 34 0A 4A 53 |2.STY $72., 4.JS|
00001810: 52 20 4D 45 4D 46 41 43 20 20 20 3B 20 41 28 5A |R MEMFAC ; A(Z|
00001820: 31 2C 4A 29 20 49 4E 20 46 41 43 31 00 44 20 36 |1,J) IN FAC1.D 6|
00001830: 0A 27 4F 46 46 4D 41 43 20 24 38 42 2C 24 38 43 |.'OFFMAC $8B,$8C|
00001840: 2C 24 43 33 00 4C 20 38 0A 54 41 58 00 6E 20 3A |,$C3.L 8.TAX.n :|
00001850: 0A 4A 53 52 20 46 41 43 4D 45 4D 20 20 20 3B 20 |.JSR FACMEM ; |
00001860: 41 28 49 2C 4A 29 B2 41 28 5A 31 2C 4A 29 00 7C |A(I,J).A(Z1,J).||
00001870: 20 3C 0A 4C 44 41 20 23 4C 43 31 33 00 8A 20 3E | <.LDA #LC13.. >|
00001880: 0A 4C 44 59 20 23 48 43 31 33 00 A9 20 40 0A 4A |.LDY #HC13.. @.J|
00001890: 53 52 20 4D 45 4D 46 41 43 20 20 20 3B 20 42 20 |SR MEMFAC ; B |
000018A0: 4E 41 43 48 20 46 41 43 31 00 B5 20 42 0A 4C 44 |NACH FAC1.. B.LD|
000018B0: 58 20 24 37 31 00 C1 20 44 0A 4C 44 59 20 24 37 |X $71.. D.LDY $7|
000018C0: 32 00 DE 20 46 0A 4A 53 52 20 46 41 43 4D 45 4D |2.. F.JSR FACMEM|
000018D0: 20 20 20 3B 20 41 28 5A 31 2C 4A 29 B2 42 00 EA | ; A(Z1,J).B..|
000018E0: 20 48 0A 4C 44 41 20 24 38 43 00 F6 20 4A 0A 43 | H.LDA $8C.. J.C|
000018F0: 4D 50 20 24 41 36 00 04 21 4C 0A 42 45 51 20 53 |MP $A6..!L.BEQ S|
00001900: 43 48 33 45 00 10 21 4E 0A 49 4E 43 20 24 38 43 |CH3E..!N.INC $8C|
00001910: 00 2D 21 50 0A 4A 4D 50 20 53 43 48 33 20 20 20 |.-!P.JMP SCH3 |
00001920: 20 20 3B 20 4A AB 53 43 48 4C 45 8B 45 00 4D 21 | ; J.SCHLE.E.M!|
00001930: 52 0A 53 43 48 33 45 20 4E 4F 50 20 20 20 20 3B |R.SCH3E NOP ;|
00001940: 20 80 45 20 4A AB 53 43 48 4C 45 8B 45 00 68 21 | .E J.SCHLE.E.h!|
00001950: 54 0A 49 4E 43 20 24 38 45 20 20 20 20 20 20 3B |T.INC $8E ;|
00001960: 20 4E 31 B2 4E 31 AA 31 00 79 21 56 0A 43 4E 44 | N1.N1.1.y!V.CND|
00001970: 31 20 4C 44 41 20 23 30 30 00 90 21 58 0A 53 54 |1 LDA #00..!X.ST|
00001980: 41 20 24 38 44 20 20 20 20 20 20 3B 20 4B B2 30 |A $8D ; K.0|
00001990: 00 A1 21 5A 0A 53 43 48 34 20 4C 44 41 20 24 38 |..!Z.SCH4 LDA $8|
000019A0: 44 00 AD 21 5C 0A 43 4D 50 20 24 38 42 00 C8 21 |D..!\.CMP $8B..!|
000019B0: 5E 0A 42 4E 45 20 43 4E 44 33 41 20 20 20 20 3B |^.BNE CND3A ;|
000019C0: 20 42 45 49 20 4B B2 49 00 D5 21 60 0A 4A 4D 50 | BEI K.I..!`.JMP|
000019D0: 20 43 4E 44 33 00 E7 21 62 0A 43 4E 44 33 41 20 | CND3..!b.CND3A |
000019E0: 4C 44 58 20 23 30 30 00 F8 21 64 0A 4E 55 4C 4C |LDX #00..!d.NULL|
000019F0: 20 4C 44 41 20 23 30 30 00 06 22 66 0A 53 54 41 | LDA #00.."f.STA|
00001A00: 20 24 36 31 2C 58 00 0E 22 68 0A 49 4E 58 00 2F | $61,X.."h.INX./|
00001A10: 22 6A 0A 43 50 58 20 23 24 30 36 20 20 20 20 20 |"j.CPX #$06 |
00001A20: 3B 20 46 41 43 31 B2 30 20 53 45 54 5A 45 4E 00 |; FAC1.0 SETZEN.|
00001A30: 3C 22 6C 0A 42 4E 45 20 4E 55 4C 4C 00 54 22 6E |<"l.BNE NULL.T"n|
00001A40: 0A 27 4F 46 46 4D 41 43 20 24 38 42 2C 24 38 42 |.'OFFMAC $8B,$8B|
00001A50: 2C 24 43 33 00 7B 22 70 0A 4A 53 52 20 43 4D 50 |,$C3.{"p.JSR CMP|
00001A60: 46 41 43 20 20 20 3B 56 45 52 47 4C 2E 46 41 43 |FAC ;VERGL.FAC|
00001A70: 31 28 30 29 B2 41 28 49 2C 49 29 00 87 22 72 0A |1(0).A(I,I).."r.|
00001A80: 43 4D 50 20 23 30 30 00 95 22 74 0A 42 4E 45 20 |CMP #00.."t.BNE |
00001A90: 43 4E 44 33 42 00 A2 22 76 0A 4A 4D 50 20 43 4E |CND3B.."v.JMP CN|
00001AA0: 44 33 00 C0 22 78 0A 43 4E 44 33 42 20 27 4F 46 |D3.."x.CND3B 'OF|
00001AB0: 46 4D 41 43 20 24 38 42 2C 24 38 42 2C 24 43 33 |FMAC $8B,$8B,$C3|
00001AC0: 00 E1 22 7A 0A 4A 53 52 20 4D 45 4D 46 41 43 20 |.."z.JSR MEMFAC |
00001AD0: 20 20 3B 20 41 28 49 2C 49 29 20 44 49 56 49 53 | ; A(I,I) DIVIS|
00001AE0: B0 00 F9 22 7C 0A 27 4F 46 46 4D 41 43 20 24 38 |..."|.'OFFMAC $8|
00001AF0: 44 2C 24 38 42 2C 24 43 33 00 1A 23 7E 0A 4A 53 |D,$8B,$C3..#~.JS|
00001B00: 52 20 4D 44 49 56 20 20 20 20 20 3B 20 41 28 4B |R MDIV ; A(K|
00001B10: 2C 49 29 AD 41 28 49 2C 49 29 00 28 23 80 0A 4C |,I).A(I,I).(#..L|
00001B20: 44 58 20 23 4C 43 31 38 00 36 23 82 0A 4C 44 59 |DX #LC18.6#..LDY|
00001B30: 20 23 48 43 31 38 00 45 23 84 0A 4A 53 52 20 46 | #HC18.E#..JSR F|
00001B40: 41 43 4D 45 4D 00 51 23 86 0A 4C 44 41 20 23 30 |ACMEM.Q#..LDA #0|
00001B50: 30 00 68 23 88 0A 53 54 41 20 24 38 43 20 20 20 |0.h#..STA $8C |
00001B60: 20 20 20 3B 20 4A B2 30 00 85 23 8A 0A 53 43 48 | ; J.0..#..SCH|
00001B70: 35 20 27 4F 46 46 4D 41 43 20 24 38 42 2C 24 38 |5 'OFFMAC $8B,$8|
00001B80: 43 2C 24 43 33 00 94 23 8C 0A 4A 53 52 20 4D 45 |C,$C3..#..JSR ME|
00001B90: 4D 46 41 43 00 A2 23 8E 0A 4C 44 41 20 23 4C 43 |MFAC..#..LDA #LC|
00001BA0: 31 38 00 B0 23 90 0A 4C 44 59 20 23 48 43 31 38 |18..#..LDY #HC18|
00001BB0: 00 BE 23 92 0A 4A 53 52 20 4D 4D 55 4C 54 00 D6 |..#..JSR MMULT..|
00001BC0: 23 94 0A 27 4F 46 46 4D 41 43 20 24 38 44 2C 24 |#..'OFFMAC $8D,$|
00001BD0: 38 43 2C 24 43 33 00 E2 23 96 0A 53 54 41 20 24 |8C,$C3..#..STA $|
00001BE0: 37 31 00 EE 23 98 0A 53 54 59 20 24 37 32 00 FB |71..#..STY $72..|
00001BF0: 23 9A 0A 4A 53 52 20 4D 53 55 42 00 07 24 9C 0A |#..JSR MSUB..$..|
00001C00: 4C 44 58 20 24 37 31 00 13 24 9E 0A 4C 44 59 20 |LDX $71..$..LDY |
00001C10: 24 37 32 00 2D 24 A0 0A 4A 53 52 20 46 41 43 4D |$72.-$..JSR FACM|
00001C20: 45 4D 20 20 20 3B 20 41 28 4B 2C 4A 29 00 39 24 |EM ; A(K,J).9$|
00001C30: A2 0A 4C 44 41 20 24 38 43 00 57 24 A4 0A 43 4D |..LDA $8C.W$..CM|
00001C40: 50 20 24 41 36 20 20 20 20 20 20 3B 20 56 45 52 |P $A6 ; VER|
00001C50: 47 4C 2E 20 4A B2 4E 00 65 24 A6 0A 42 45 51 20 |GL. J.N.e$..BEQ |
00001C60: 53 43 48 35 45 00 71 24 A8 0A 49 4E 43 20 24 38 |SCH5E.q$..INC $8|
00001C70: 43 00 7E 24 AA 0A 4A 4D 50 20 53 43 48 35 00 8C |C.~$..JMP SCH5..|
00001C80: 24 AC 0A 53 43 48 35 45 20 4E 4F 50 00 9D 24 AE |$..SCH5E NOP..$.|
00001C90: 0A 43 4E 44 33 20 4C 44 41 20 24 38 44 00 A9 24 |.CND3 LDA $8D..$|
00001CA0: B0 0A 43 4D 50 20 24 41 36 00 B7 24 B2 0A 42 45 |..CMP $A6..$..BE|
00001CB0: 51 20 53 43 48 34 45 00 C3 24 B4 0A 49 4E 43 20 |Q SCH4E..$..INC |
00001CC0: 24 38 44 00 E0 24 B6 0A 4A 4D 50 20 53 43 48 34 |$8D..$..JMP SCH4|
00001CD0: 20 20 20 20 20 3B 20 4B AB 53 43 48 4C 45 8B 45 | ; K.SCHLE.E|
00001CE0: 00 F2 24 B8 0A 53 43 48 34 45 20 4C 44 41 20 24 |..$..SCH4E LDA $|
00001CF0: 38 42 00 FE 24 BA 0A 43 4D 50 20 24 41 36 00 0C |8B..$..CMP $A6..|
00001D00: 25 BC 0A 42 45 51 20 53 43 48 31 45 00 18 25 BE |%..BEQ SCH1E..%.|
00001D10: 0A 49 4E 43 20 24 38 42 00 35 25 C0 0A 4A 4D 50 |.INC $8B.5%..JMP|
00001D20: 20 53 43 48 31 20 20 20 20 20 3B 20 49 AB 53 43 | SCH1 ; I.SC|
00001D30: 48 4C 45 8B 45 00 47 25 C2 0A 53 43 48 31 45 20 |HLE.E.G%..SCH1E |
00001D40: 4C 44 41 20 23 30 30 00 53 25 C4 0A 53 54 41 20 |LDA #00.S%..STA |
00001D50: 24 38 42 00 6B 25 C6 0A 27 4F 46 46 4D 41 43 20 |$8B.k%..'OFFMAC |
00001D60: 24 38 42 2C 24 38 42 2C 24 43 33 00 7A 25 C8 0A |$8B,$8B,$C3.z%..|
00001D70: 4A 53 52 20 4D 45 4D 46 41 43 00 87 25 CA 0A 4C |JSR MEMFAC..%..L|
00001D80: 44 58 20 23 4C 43 38 00 94 25 CC 0A 4C 44 59 20 |DX #LC8..%..LDY |
00001D90: 23 48 43 38 00 B0 25 CE 0A 4A 53 52 20 46 41 43 |#HC8..%..JSR FAC|
00001DA0: 4D 45 4D 20 20 20 3B 20 44 B2 41 28 31 2C 31 29 |MEM ; D.A(1,1)|
00001DB0: 00 BC 25 D0 0A 4C 44 41 20 23 30 31 00 C8 25 D2 |..%..LDA #01..%.|
00001DC0: 0A 53 54 41 20 24 38 42 00 E5 25 D4 0A 53 43 48 |.STA $8B..%..SCH|
00001DD0: 36 20 27 4F 46 46 4D 41 43 20 24 38 42 2C 24 38 |6 'OFFMAC $8B,$8|
00001DE0: 42 2C 24 43 33 00 F4 25 D6 0A 4A 53 52 20 4D 45 |B,$C3..%..JSR ME|
00001DF0: 4D 46 41 43 00 01 26 D8 0A 4C 44 41 20 23 4C 43 |MFAC..&..LDA #LC|
00001E00: 38 00 0E 26 DA 0A 4C 44 59 20 23 48 43 38 00 2A |8..&..LDY #HC8.*|
00001E10: 26 DC 0A 4A 53 52 20 4D 4D 55 4C 54 20 20 20 20 |&..JSR MMULT |
00001E20: 3B 20 44 AC 41 28 49 2C 49 29 00 37 26 DE 0A 4C |; D.A(I,I).7&..L|
00001E30: 44 58 20 23 4C 43 38 00 44 26 E0 0A 4C 44 59 20 |DX #LC8.D&..LDY |
00001E40: 23 48 43 38 00 53 26 E2 0A 4A 53 52 20 46 41 43 |#HC8.S&..JSR FAC|
00001E50: 4D 45 4D 00 5F 26 E4 0A 4C 44 41 20 24 38 42 00 |MEM._&..LDA $8B.|
00001E60: 6B 26 E6 0A 43 4D 50 20 24 41 36 00 79 26 E8 0A |k&..CMP $A6.y&..|
00001E70: 42 45 51 20 53 43 48 36 45 00 85 26 EA 0A 49 4E |BEQ SCH6E..&..IN|
00001E80: 43 20 24 38 42 00 92 26 EC 0A 4A 4D 50 20 53 43 |C $8B..&..JMP SC|
00001E90: 48 36 00 A0 26 EE 0A 53 43 48 36 45 20 4E 4F 50 |H6..&..SCH6E NOP|
00001EA0: 00 AB 26 EF 0A 52 B0 20 24 38 45 00 B8 26 F0 0A |..&..R. $8E..&..|
00001EB0: 42 43 43 20 43 4E 44 35 00 C4 26 F2 0A 4C 44 41 |BCC CND5..&..LDA|
00001EC0: 20 24 36 36 00 E7 26 F3 0A 43 4D 50 20 23 24 38 | $66..&..CMP #$8|
00001ED0: 30 20 20 20 20 20 3B 20 42 45 52 45 49 54 53 20 |0 ; BEREITS |
00001EE0: 4E 45 47 41 54 49 56 00 F4 26 F4 0A 4C 44 41 20 |NEGATIV..&..LDA |
00001EF0: 23 24 30 31 00 00 27 F5 0A 53 54 41 20 24 36 36 |#$01..'..STA $66|
00001F00: 00 0D 27 F6 0A 42 43 53 20 43 4E 44 35 00 1A 27 |..'..BCS CND5..'|
00001F10: F7 0A 4C 44 41 20 23 24 46 46 00 26 27 F8 0A 53 |..LDA #$FF.&'..S|
00001F20: 54 41 20 24 36 36 00 37 27 F9 0A 43 4E 44 35 20 |TA $66.7'..CND5 |
00001F30: 4C 44 41 20 24 43 33 00 44 27 FA 0A 43 4D 50 20 |LDA $C3.D'..CMP |
00001F40: 23 24 30 30 00 53 27 FB 0A 42 4E 45 20 44 45 54 |#$00.S'..BNE DET|
00001F50: 46 49 4E 00 63 27 FC 0A 4A 53 52 20 56 41 52 4E |FIN.c'..JSR VARN|
00001F60: 41 4D 31 00 8A 27 FD 0A 4A 53 52 20 50 54 52 56 |AM1..'..JSR PTRV|
00001F70: 41 52 20 20 20 3B 20 56 41 52 49 41 42 4C 45 20 |AR ; VARIABLE |
00001F80: 53 55 43 48 2E AD 41 4E 4C 2E 00 96 27 FE 0A 4C |SUCH..ANL...'..L|
00001F90: 44 58 20 24 34 37 00 A2 27 00 0B 4C 44 59 20 24 |DX $47..'..LDY $|
00001FA0: 34 38 00 B1 27 02 0B 4A 53 52 20 46 41 43 4D 45 |48..'..JSR FACME|
00001FB0: 4D 00 C0 27 04 0B 44 45 54 46 49 4E 20 52 54 53 |M..'..DETFIN RTS|
00001FC0: 00 E7 27 06 0B 3B AB AB AB AB AB AB AB AB AB AB |..'..;..........|
00001FD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00001FE0: AB AB AB AB AB AB AB 00 05 28 54 0B 3B 20 49 4E |.........(T.; IN|
00001FF0: 56 45 52 53 45 20 4D 41 54 52 49 58 20 49 4E 56 |VERSE MATRIX INV|
00002000: 28 41 29 B2 42 00 23 28 56 0B 3B 20 AC AC AC AC |(A).B.#(V.; ....|
00002010: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00002020: AC AC AC 00 34 28 58 0B 49 4E 56 20 4C 44 41 20 |....4(X.INV LDA |
00002030: 23 24 30 43 00 40 28 5C 0B 53 54 41 20 24 46 42 |#$0C.@(\.STA $FB|
00002040: 00 4E 28 5E 0B 4A 53 52 20 41 52 59 A5 44 00 5A |.N(^.JSR ARY.D.Z|
00002050: 28 68 0B 4C 44 59 20 23 30 30 00 6F 28 6A 0B 4C |(h.LDY #00.o(j.L|
00002060: 4F 4F 50 31 20 4C 44 41 20 43 41 4C 43 2C 59 00 |OOP1 LDA CALC,Y.|
00002070: 77 28 6C 0B 50 48 41 00 7F 28 6E 0B 49 4E 59 00 |w(l.PHA..(n.INY.|
00002080: 8B 28 70 0B 43 50 59 20 24 46 42 00 99 28 72 0B |.(p.CPY $FB..(r.|
00002090: 42 43 43 20 4C 4F 4F 50 31 00 A7 28 74 0B 42 45 |BCC LOOP1..(t.BE|
000020A0: 51 20 4C 4F 4F 50 31 00 B5 28 76 0B 4A 53 52 20 |Q LOOP1..(v.JSR |
000020B0: 45 51 55 49 56 00 C2 28 7B 0B 4C 44 59 20 23 24 |EQUIV..({.LDY #$|
000020C0: 30 43 00 D0 28 7C 0B 4C 4F 4F 50 32 20 50 4C 41 |0C..(|.LOOP2 PLA|
000020D0: 00 DF 28 7E 0B 53 54 41 20 43 41 4C 43 2C 59 00 |..(~.STA CALC,Y.|
000020E0: E7 28 80 0B 44 45 59 00 F5 28 84 0B 42 50 4C 20 |.(..DEY..(..BPL |
000020F0: 4C 4F 4F 50 32 00 02 29 86 0B 4C 44 41 20 23 24 |LOOP2..)..LDA #$|
00002100: 30 34 00 0E 29 88 0B 53 54 41 20 24 43 33 00 1D |04..)..STA $C3..|
00002110: 29 8A 0B 4A 53 52 20 48 50 54 44 45 54 00 43 29 |)..JSR HPTDET.C)|
00002120: 8B 0B 4A 53 52 20 50 52 55 45 46 20 20 20 20 3B |..JSR PRUEF ;|
00002130: 20 55 4D 4B 45 48 52 42 41 52 4B 45 49 54 20 50 | UMKEHRBARKEIT P|
00002140: 52 A5 2E 00 66 29 8C 0B 4C 44 41 20 23 24 42 43 |R...f)..LDA #$BC|
00002150: 20 20 20 20 20 3B 20 4C 4F 20 41 44 52 45 53 53 | ; LO ADRESS|
00002160: 45 20 56 91 20 31 00 81 29 8E 0B 4C 44 59 20 23 |E V. 1..)..LDY #|
00002170: 24 42 39 20 20 20 20 20 3B 20 48 49 20 20 20 20 |$B9 ; HI |
00002180: 22 00 8E 29 90 0B 4A 53 52 20 4D 44 49 56 00 9C |"..)..JSR MDIV..|
00002190: 29 92 0B 4C 44 58 20 23 4C 43 32 33 00 AA 29 94 |)..LDX #LC23..).|
000021A0: 0B 4C 44 59 20 23 48 43 32 33 00 B9 29 96 0B 4A |.LDY #HC23..)..J|
000021B0: 53 52 20 46 41 43 4D 45 4D 00 C8 29 C3 0B 4C 44 |SR FACMEM..)..LD|
000021C0: 58 20 43 41 4C 43 AA 32 00 D0 29 C4 0B 44 45 58 |X CALC.2..)..DEX|
000021D0: 00 D8 29 C6 0B 54 58 41 00 EE 29 C8 0B 53 54 41 |..)..TXA..)..STA|
000021E0: 20 24 46 44 20 20 20 20 20 20 20 3B 20 4E 00 FA | $FD ; N..|
000021F0: 29 CC 0B 53 54 41 20 24 38 46 00 12 2A D0 0B 44 |)..STA $8F..*..D|
00002200: 45 43 20 24 38 46 20 20 20 20 20 20 20 3B 20 4E |EC $8F ; N|
00002210: AB 31 00 1E 2A D4 0B 4C 44 41 20 23 30 30 00 3C |.1..*..LDA #00.<|
00002220: 2A D8 0B 5A 57 47 31 31 20 53 54 41 20 24 38 42 |*..ZWG11 STA $8B|
00002230: 20 3B 20 49 4E 44 45 58 20 49 B2 30 00 48 2A DC | ; INDEX I.0.H*.|
00002240: 0B 4C 44 41 20 23 30 30 00 66 2A E0 0B 5A 57 47 |.LDA #00.f*..ZWG|
00002250: 39 20 53 54 41 20 24 38 43 20 20 3B 20 49 4E 44 |9 STA $8C ; IND|
00002260: 45 58 20 4A B2 30 00 72 2A E4 0B 4C 44 41 20 23 |EX J.0.r*..LDA #|
00002270: 30 30 00 90 2A E8 0B 5A 57 47 36 20 53 54 41 20 |00..*..ZWG6 STA |
00002280: 24 38 44 20 20 3B 20 49 4E 44 45 58 20 4B B2 30 |$8D ; INDEX K.0|
00002290: 00 9C 2A EC 0B 4C 44 41 20 23 30 30 00 BA 2A F0 |..*..LDA #00..*.|
000022A0: 0B 5A 57 47 34 20 53 54 41 20 24 38 45 20 20 3B |.ZWG4 STA $8E ;|
000022B0: 20 49 4E 44 45 58 20 4C B2 30 00 C6 2A F4 0B 4C | INDEX L.0..*..L|
000022C0: 44 41 20 23 30 30 00 D2 2A F8 0B 53 54 41 20 24 |DA #00..*..STA $|
000022D0: 43 33 00 DE 2A FC 0B 4C 44 41 20 24 38 44 00 EA |C3..*..LDA $8D..|
000022E0: 2A 00 0C 53 54 41 20 24 43 31 00 0C 2B 04 0C 43 |*..STA $C1..+..C|
000022F0: 4D 50 20 24 38 43 20 20 20 20 20 20 20 3B 20 43 |MP $8C ; C|
00002300: AB 46 4C 41 47 20 42 45 49 20 B1 B2 00 19 2B 08 |.FLAG BEI ....+.|
00002310: 0C 42 43 43 20 5A 57 47 31 00 36 2B 0C 0C 49 4E |.BCC ZWG1.6+..IN|
00002320: 43 20 24 43 31 20 20 20 20 20 20 20 3B 20 4B AA |C $C1 ; K.|
00002330: 28 4B B1 B2 4A 29 00 47 2B 10 0C 5A 57 47 31 20 |(K..J).G+..ZWG1 |
00002340: 4C 44 41 20 24 38 45 00 53 2B 14 0C 53 54 41 20 |LDA $8E.S+..STA |
00002350: 24 43 32 00 5F 2B 18 0C 43 4D 50 20 24 38 42 00 |$C2._+..CMP $8B.|
00002360: 6C 2B 1C 0C 42 43 43 20 5A 57 47 32 00 89 2B 20 |l+..BCC ZWG2..+ |
00002370: 0C 49 4E 43 20 24 43 32 20 20 20 20 20 20 20 3B |.INC $C2 ;|
00002380: 20 4C AA 28 4C B1 B2 49 29 00 A6 2B 24 0C 5A 57 | L.(L..I)..+$.ZW|
00002390: 47 32 20 27 4F 46 46 4D 41 43 20 24 43 31 2C 24 |G2 'OFFMAC $C1,$|
000023A0: 43 32 2C 24 43 33 00 B5 2B 28 0C 4A 53 52 20 4D |C2,$C3..+(.JSR M|
000023B0: 45 4D 46 41 43 00 C1 2B 2C 0C 4C 44 41 20 24 38 |EMFAC..+,.LDA $8|
000023C0: 44 00 CD 2B 30 0C 53 54 41 20 24 43 31 00 D9 2B |D..+0.STA $C1..+|
000023D0: 34 0C 4C 44 41 20 24 38 45 00 E5 2B 38 0C 53 54 |4.LDA $8E..+8.ST|
000023E0: 41 20 24 43 32 00 F2 2B 3C 0C 4C 44 59 20 23 24 |A $C2..+<.LDY #$|
000023F0: 30 38 00 01 2C 40 0C 4A 53 52 20 4F 46 46 53 45 |08..,@.JSR OFFSE|
00002400: 54 00 24 2C 44 0C 4A 53 52 20 46 41 43 4D 45 4D |T.$,D.JSR FACMEM|
00002410: 20 20 20 20 3B 20 42 28 4B 2C 4C 29 20 41 42 4C | ; B(K,L) ABL|
00002420: 45 47 45 4E 00 30 2C 48 0C 4C 44 41 20 24 38 45 |EGEN.0,H.LDA $8E|
00002430: 00 3C 2C 4C 0C 43 4D 50 20 24 38 46 00 49 2C 50 |.<,L.CMP $8F.I,P|
00002440: 0C 42 45 51 20 5A 57 47 33 00 55 2C 54 0C 49 4E |.BEQ ZWG3.U,T.IN|
00002450: 43 20 24 38 45 00 61 2C 56 0C 4C 44 41 20 24 38 |C $8E.a,V.LDA $8|
00002460: 45 00 7F 2C 58 0C 4A 4D 50 20 5A 57 47 34 20 20 |E..,X.JMP ZWG4 |
00002470: 20 20 20 20 3B 20 4C AB 53 43 48 4C 45 8B 45 00 | ; L.SCHLE.E.|
00002480: 90 2C 5C 0C 5A 57 47 33 20 4C 44 41 20 24 38 44 |.,\.ZWG3 LDA $8D|
00002490: 00 9C 2C 60 0C 43 4D 50 20 24 38 46 00 A9 2C 64 |..,`.CMP $8F..,d|
000024A0: 0C 42 45 51 20 5A 57 47 35 00 B5 2C 68 0C 49 4E |.BEQ ZWG5..,h.IN|
000024B0: 43 20 24 38 44 00 C1 2C 6A 0C 4C 44 41 20 24 38 |C $8D..,j.LDA $8|
000024C0: 44 00 DF 2C 6C 0C 4A 4D 50 20 5A 57 47 36 20 20 |D..,l.JMP ZWG6 |
000024D0: 20 20 20 20 3B 20 4B AB 53 43 48 4C 45 8B 45 00 | ; K.SCHLE.E.|
000024E0: F0 2C 6E 0C 5A 57 47 35 20 4C 44 41 20 23 30 30 |.,n.ZWG5 LDA #00|
000024F0: 00 FC 2C 6F 0C 43 4D 50 20 24 38 46 00 1D 2D 70 |..,o.CMP $8F..-p|
00002500: 0C 42 4E 45 20 44 45 54 31 20 20 20 20 20 20 3B |.BNE DET1 ;|
00002510: 20 44 45 54 2E 49 4E 44 45 58 20 B1 31 00 2A 2D | DET.INDEX .1.*-|
00002520: 74 0C 4A 4D 50 20 44 45 54 32 00 3B 2D 76 0C 44 |t.JMP DET2.;-v.D|
00002530: 45 54 31 20 4C 44 59 20 23 30 30 00 4F 2D 78 0C |ET1 LDY #00.O-x.|
00002540: 4C 4F 4F 50 41 20 4C 44 41 20 24 38 42 2C 59 00 |LOOPA LDA $8B,Y.|
00002550: 57 2D 7A 0C 50 48 41 00 5F 2D 7C 0C 49 4E 59 00 |W-z.PHA._-|.INY.|
00002560: 6C 2D 7E 0C 43 50 59 20 23 24 30 35 00 7A 2D 80 |l-~.CPY #$05.z-.|
00002570: 0C 42 4E 45 20 4C 4F 4F 50 41 00 86 2D 8C 0C 4C |.BNE LOOPA..-..L|
00002580: 44 41 20 24 46 44 00 8E 2D 8E 0C 50 48 41 00 B3 |DA $FD..-..PHA..|
00002590: 2D 92 0C 4C 44 41 20 24 38 46 20 20 20 20 20 20 |-..LDA $8F |
000025A0: 20 3B 20 44 45 54 2E 49 4E 44 45 58 20 52 45 44 | ; DET.INDEX RED|
000025B0: 55 5A 2E 00 BF 2D 96 0C 53 54 41 20 24 41 36 00 |UZ...-..STA $A6.|
000025C0: CC 2D 9A 0C 4C 44 41 20 23 24 30 38 00 F3 2D 9E |.-..LDA #$08..-.|
000025D0: 0C 53 54 41 20 24 43 33 20 20 20 20 20 20 20 3B |.STA $C3 ;|
000025E0: 20 4F 46 46 53 45 54 20 46 2E 44 45 54 45 52 4D | OFFSET F.DETERM|
000025F0: 49 4E 2E 00 02 2E A2 0C 4A 53 52 20 44 45 54 45 |IN......JSR DETE|
00002600: 52 4D 00 27 2E B2 0C 50 4C 41 20 20 20 20 20 20 |RM.'...PLA |
00002610: 20 20 20 20 20 3B 20 49 4E 44 49 43 45 45 53 20 | ; INDICEES |
00002620: 5A 55 52 55 45 43 4B 00 33 2E B4 0C 53 54 41 20 |ZURUECK.3...STA |
00002630: 24 46 44 00 40 2E B6 0C 4C 44 59 20 23 24 30 34 |$FD.@...LDY #$04|
00002640: 00 4E 2E B8 0C 4C 4F 4F 50 42 20 50 4C 41 00 5C |.N...LOOPB PLA.\|
00002650: 2E BA 0C 53 54 41 20 24 38 42 2C 59 00 64 2E BC |...STA $8B,Y.d..|
00002660: 0C 44 45 59 00 72 2E BE 0C 42 50 4C 20 4C 4F 4F |.DEY.r...BPL LOO|
00002670: 50 42 00 7F 2E D4 0C 44 45 54 32 20 43 4C 43 00 |PB.....DET2 CLC.|
00002680: 8B 2E D5 0C 4C 44 41 20 24 38 42 00 97 2E D6 0C |....LDA $8B.....|
00002690: 41 44 43 20 24 38 43 00 9E 2E D8 0C 52 B0 00 AB |ADC $8C.....R...|
000026A0: 2E DC 0C 42 43 43 20 5A 57 47 37 00 B7 2E DE 0C |...BCC ZWG7.....|
000026B0: 4C 44 41 20 24 36 36 00 DC 2E DF 0C 43 4D 50 20 |LDA $66.....CMP |
000026C0: 23 24 38 30 20 20 20 20 20 20 3B 20 42 45 52 45 |#$80 ; BERE|
000026D0: 49 54 53 20 4E 45 47 41 54 49 56 2C 00 FB 2E E0 |ITS NEGATIV,....|
000026E0: 0C 4C 44 41 20 23 24 30 31 20 20 20 20 20 20 3B |.LDA #$01 ;|
000026F0: 20 44 41 4E 4E 20 B9 49 54 49 56 00 08 2F E1 0C | DANN .ITIV../..|
00002700: 4C 44 41 20 23 24 30 31 00 14 2F E2 0C 53 54 41 |LDA #$01../..STA|
00002710: 20 24 36 36 00 21 2F E3 0C 42 43 53 20 5A 57 47 | $66.!/..BCS ZWG|
00002720: 37 00 2E 2F E4 0C 4C 44 41 20 23 24 46 46 00 4E |7../..LDA #$FF.N|
00002730: 2F E8 0C 53 54 41 20 24 36 36 20 20 20 20 20 20 |/..STA $66 |
00002740: 20 3B 20 46 41 43 20 4E 45 47 41 54 49 56 00 5F | ; FAC NEGATIV._|
00002750: 2F EC 0C 5A 57 47 37 20 4C 44 41 20 24 38 42 00 |/..ZWG7 LDA $8B.|
00002760: 6B 2F F0 0C 53 54 41 20 24 43 31 00 77 2F F4 0C |k/..STA $C1.w/..|
00002770: 4C 44 41 20 24 38 43 00 83 2F F8 0C 53 54 41 20 |LDA $8C../..STA |
00002780: 24 43 32 00 90 2F FC 0C 4C 44 41 20 23 24 30 34 |$C2../..LDA #$04|
00002790: 00 9C 2F 00 0D 53 54 41 20 24 43 33 00 B4 2F 04 |../..STA $C3../.|
000027A0: 0D 27 4F 46 46 4D 41 43 20 24 43 31 2C 24 43 32 |.'OFFMAC $C1,$C2|
000027B0: 2C 24 43 33 00 C3 2F 08 0D 4A 53 52 20 46 41 43 |,$C3../..JSR FAC|
000027C0: 4D 45 4D 00 CF 2F 0C 0D 4C 44 41 20 24 38 43 00 |MEM../..LDA $8C.|
000027D0: DB 2F 10 0D 43 4D 50 20 24 46 44 00 E8 2F 14 0D |./..CMP $FD../..|
000027E0: 42 45 51 20 5A 57 47 38 00 F4 2F 18 0D 49 4E 43 |BEQ ZWG8../..INC|
000027F0: 20 24 38 43 00 00 30 1A 0D 4C 44 41 20 24 38 43 | $8C..0..LDA $8C|
00002800: 00 0D 30 1C 0D 4A 4D 50 20 5A 57 47 39 00 1E 30 |..0..JMP ZWG9..0|
00002810: 20 0D 5A 57 47 38 20 4C 44 41 20 24 38 42 00 2A | .ZWG8 LDA $8B.*|
00002820: 30 24 0D 43 4D 50 20 24 46 44 00 38 30 28 0D 42 |0$.CMP $FD.80(.B|
00002830: 45 51 20 5A 57 47 31 30 00 44 30 2C 0D 49 4E 43 |EQ ZWG10.D0,.INC|
00002840: 20 24 38 42 00 50 30 2E 0D 4C 44 41 20 24 38 42 | $8B.P0..LDA $8B|
00002850: 00 5E 30 30 0D 4A 4D 50 20 5A 57 47 31 31 00 6C |.^00.JMP ZWG11.l|
00002860: 30 34 0D 5A 57 47 31 30 20 4E 4F 50 00 79 30 35 |04.ZWG10 NOP.y05|
00002870: 0D 4C 44 41 20 23 24 30 43 00 85 30 36 0D 53 54 |.LDA #$0C..06.ST|
00002880: 41 20 24 46 42 00 91 30 37 0D 4C 44 59 20 23 30 |A $FB..07.LDY #0|
00002890: 30 00 A6 30 38 0D 4C 4F 4F 50 33 20 4C 44 41 20 |0..08.LOOP3 LDA |
000028A0: 43 41 4C 43 2C 59 00 AE 30 3A 0D 50 48 41 00 B6 |CALC,Y..0:.PHA..|
000028B0: 30 3C 0D 49 4E 59 00 C2 30 3E 0D 43 50 59 20 24 |0<.INY..0>.CPY $|
000028C0: 46 42 00 D0 30 40 0D 42 43 43 20 4C 4F 4F 50 33 |FB..0@.BCC LOOP3|
000028D0: 00 DE 30 42 0D 42 45 51 20 4C 4F 4F 50 33 00 EA |..0B.BEQ LOOP3..|
000028E0: 30 48 0D 4C 44 59 20 23 30 30 00 01 31 4A 0D 4C |0H.LDY #00..1J.L|
000028F0: 4F 4F 50 36 20 4C 44 41 20 43 41 4C 43 AA 34 2C |OOP6 LDA CALC.4,|
00002900: 59 00 10 31 4C 0D 53 54 41 20 43 41 4C 43 2C 59 |Y..1L.STA CALC,Y|
00002910: 00 21 31 4E 0D 4C 44 41 20 43 41 4C 43 AA 38 2C |.!1N.LDA CALC.8,|
00002920: 59 00 32 31 50 0D 53 54 41 20 43 41 4C 43 AA 34 |Y.21P.STA CALC.4|
00002930: 2C 59 00 3A 31 52 0D 49 4E 59 00 47 31 54 0D 43 |,Y.:1R.INY.G1T.C|
00002940: 50 59 20 23 24 30 34 00 55 31 56 0D 42 43 43 20 |PY #$04.U1V.BCC |
00002950: 4C 4F 4F 50 36 00 63 31 5C 0D 4A 53 52 20 45 51 |LOOP6.c1\.JSR EQ|
00002960: 55 49 56 00 70 31 60 0D 4C 44 59 20 23 24 30 43 |UIV.p1`.LDY #$0C|
00002970: 00 7E 31 62 0D 4C 4F 4F 50 34 20 50 4C 41 00 8D |.~1b.LOOP4 PLA..|
00002980: 31 64 0D 53 54 41 20 43 41 4C 43 2C 59 00 95 31 |1d.STA CALC,Y..1|
00002990: 66 0D 44 45 59 00 A3 31 68 0D 42 50 4C 20 4C 4F |f.DEY..1h.BPL LO|
000029A0: 4F 50 34 00 C8 31 70 0D 4C 44 41 20 23 4C 43 32 |OP4..1p.LDA #LC2|
000029B0: 33 20 20 20 20 20 3B 20 5A 45 49 47 45 52 20 41 |3 ; ZEIGER A|
000029C0: 55 46 20 31 AD 44 45 54 00 D4 31 72 0D 53 54 41 |UF 1.DET..1r.STA|
000029D0: 20 24 34 37 00 E2 31 74 0D 4C 44 41 20 23 48 43 | $47..1t.LDA #HC|
000029E0: 32 33 00 EE 31 76 0D 53 54 41 20 24 34 38 00 FA |23..1v.STA $48..|
000029F0: 31 7A 0D 4C 44 59 20 23 30 30 00 11 32 7C 0D 4C |1z.LDY #00..2|.L|
00002A00: 4F 4F 50 37 20 4C 44 41 20 43 41 4C 43 AA 38 2C |OOP7 LDA CALC.8,|
00002A10: 59 00 20 32 7E 0D 53 54 41 20 43 41 4C 43 2C 59 |Y. 2~.STA CALC,Y|
00002A20: 00 28 32 80 0D 49 4E 59 00 35 32 82 0D 43 50 59 |.(2..INY.52..CPY|
00002A30: 20 23 24 30 34 00 43 32 84 0D 42 43 43 20 4C 4F | #$04.C2..BCC LO|
00002A40: 4F 50 37 00 51 32 8C 0D 4A 53 52 20 53 4B 50 44 |OP7.Q2..JSR SKPD|
00002A50: 54 00 59 32 8E 0D 52 54 53 00 5F 32 90 0D 3B 00 |T.Y2..RTS._2..;.|
00002A60: 71 32 92 0D 50 52 55 45 46 20 4C 44 41 20 24 36 |q2..PRUEF LDA $6|
00002A70: 31 00 7E 32 94 0D 43 4D 50 20 23 24 30 41 00 8B |1.~2..CMP #$0A..|
00002A80: 32 96 0D 42 43 53 20 4F 4B 45 59 00 9B 32 98 0D |2..BCS OKEY..2..|
00002A90: 27 54 45 58 54 20 54 45 58 54 31 00 B6 32 9E 0D |'TEXT TEXT1..2..|
00002AA0: 4A 4D 50 20 87 59 20 20 20 20 20 20 3B 20 87 59 |JMP .Y ; .Y|
00002AB0: AB 4D 4F 44 55 53 00 C3 32 A0 0D 4F 4B 45 59 20 |.MODUS..2..OKEY |
00002AC0: 52 54 53 00 EA 32 AC 0D 3B AB AB AB AB AB AB AB |RTS..2..;.......|
00002AD0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002AE0: AB AB AB AB AB AB AB AB AB AB 00 03 33 EC 13 3B |............3..;|
00002AF0: 20 56 41 52 49 41 42 C3 4E 41 4D 45 4E 20 4C 45 | VARIAB.NAMEN LE|
00002B00: 53 45 4E 00 1E 33 EE 13 3B 20 AC AC AC AC AC AC |SEN..3..; ......|
00002B10: AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 32 |...............2|
00002B20: 33 F0 13 56 41 52 4E 41 4D 31 20 4C 44 41 20 23 |3..VARNAM1 LDA #|
00002B30: 30 30 00 3E 33 F2 13 53 54 41 20 24 41 35 00 44 |00.>3..STA $A5.D|
00002B40: 33 F4 13 3B 00 5A 33 F6 13 56 41 52 4E 41 4D 32 |3..;.Z3..VARNAM2|
00002B50: 20 4A 53 52 20 4B 4F 4D 4D 41 00 7B 33 F8 13 4A | JSR KOMMA.{3..J|
00002B60: 53 52 20 43 48 52 CB 54 20 20 20 20 3B 20 31 2E |SR CHR.T ; 1.|
00002B70: 5A 45 49 43 48 45 4E 20 48 4F C3 00 9A 33 FA 13 |ZEICHEN HO...3..|
00002B80: 53 54 41 20 24 34 35 20 20 20 20 20 20 20 3B 20 |STA $45 ; |
00002B90: 55 4E 44 20 4D 45 52 4B 45 4E 00 BA 33 FC 13 4A |UND MERKEN..3..J|
00002BA0: 53 52 20 43 48 52 A1 20 20 20 20 3B 20 32 2E 5A |SR CHR. ; 2.Z|
00002BB0: 45 49 43 48 45 4E 20 48 4F C3 00 D2 33 FE 13 42 |EICHEN HO...3..B|
00002BC0: 45 51 20 5A 80 20 20 20 20 20 3B 20 5A 45 49 C3 |EQ Z. ; ZEI.|
00002BD0: 80 45 00 F8 33 00 14 43 4D 50 20 23 24 32 43 20 |.E..3..CMP #$2C |
00002BE0: 20 20 20 20 20 3B 20 41 55 46 20 4B 4F 4D 4D 41 | ; AUF KOMMA|
00002BF0: 20 50 52 55 45 46 45 4E 00 1E 34 02 14 42 4E 45 | PRUEFEN..4..BNE|
00002C00: 20 53 50 52 31 20 20 20 20 20 3B 20 4E 45 49 4E | SPR1 ; NEIN|
00002C10: 2C 20 4E 41 45 43 48 53 54 45 53 20 5A 2E 00 2C |, NAECHSTES Z..,|
00002C20: 34 04 14 5A 80 20 4C 44 41 20 23 30 00 50 34 06 |4..Z. LDA #0.P4.|
00002C30: 14 53 54 41 20 24 34 36 20 20 20 20 20 20 20 3B |.STA $46 ;|
00002C40: 20 32 2E 20 5A 45 49 43 48 45 4E 20 4E 55 4C 4C | 2. ZEICHEN NULL|
00002C50: 00 5C 34 08 14 44 45 43 20 24 37 41 00 66 34 0A |.\4..DEC $7A.f4.|
00002C60: 14 4A 4D 50 20 80 00 8C 34 0C 14 53 50 52 31 20 |.JMP ...4..SPR1 |
00002C70: 53 54 41 20 24 34 36 20 20 3B 20 32 2E 20 5A 45 |STA $46 ; 2. ZE|
00002C80: 49 43 48 45 4E 20 4D 45 52 4B 45 4E 00 B0 34 0E |ICHEN MERKEN..4.|
00002C90: 14 80 20 49 4E 43 20 24 37 41 20 20 20 3B 20 50 |.. INC $7A ; P|
00002CA0: 52 4F 47 52 41 4D 4D 5A 45 49 47 45 52 20 AA 31 |ROGRAMMZEIGER .1|
00002CB0: 00 BD 34 10 14 42 4E 45 20 4C 45 53 53 00 C9 34 |..4..BNE LESS..4|
00002CC0: 12 14 49 4E 43 20 24 37 42 00 D6 34 14 14 4C 45 |..INC $7B..4..LE|
00002CD0: 53 53 20 52 54 53 00 FD 34 16 14 3B AB AB AB AB |SS RTS..4..;....|
00002CE0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00002CF0: AB AB AB AB AB AB AB AB AB AB AB AB AB 00 15 35 |...............5|
00002D00: 50 14 3B 20 41 52 52 41 59 AB 4B 4F 50 46 20 53 |P.; ARRAY.KOPF S|
00002D10: 55 43 48 45 4E 00 2D 35 52 14 3B 20 AC AC AC AC |UCHEN.-5R.; ....|
00002D20: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 43 35 |..............C5|
00002D30: 54 14 41 52 59 A5 44 20 4A 53 52 20 56 41 52 4E |T.ARY.D JSR VARN|
00002D40: 41 4D 31 00 50 35 56 14 4A 4D 50 20 56 43 4E 54 |AM1.P5V.JMP VCNT|
00002D50: 00 64 35 58 14 41 52 52 20 4A 53 52 20 56 41 52 |.d5X.ARR JSR VAR|
00002D60: 4E 41 4D 32 00 8C 35 5A 14 56 43 4E 54 20 4C 44 |NAM2..5Z.VCNT LD|
00002D70: 58 20 24 32 46 20 20 3B 20 5A 45 49 47 45 52 20 |X $2F ; ZEIGER |
00002D80: 41 52 52 41 59 54 41 42 45 4C 4C 45 00 98 35 5C |ARRAYTABELLE..5\|
00002D90: 14 4C 44 41 20 24 33 30 00 BA 35 5E 14 41 44 44 |.LDA $30..5^.ADD|
00002DA0: 52 34 20 53 54 58 20 24 35 46 20 3B 20 5A 45 49 |R4 STX $5F ; ZEI|
00002DB0: 47 45 52 20 4D 45 52 4B 45 4E 00 C6 35 60 14 53 |GER MERKEN..5`.S|
00002DC0: 54 41 20 24 36 30 00 D2 35 62 14 43 4D 50 20 24 |TA $60..5b.CMP $|
00002DD0: 33 32 00 DF 35 64 14 4C 44 59 20 23 24 30 30 00 |32..5d.LDY #$00.|
00002DE0: 05 36 66 14 4C 44 41 20 28 24 35 46 29 2C 59 20 |.6f.LDA ($5F),Y |
00002DF0: 20 20 3B 20 4E 41 4D 45 20 41 52 52 41 59 54 41 | ; NAME ARRAYTA|
00002E00: 42 45 4C 4C 45 00 0D 36 68 14 49 4E 59 00 34 36 |BELLE..6h.INY.46|
00002E10: 6A 14 43 4D 50 20 24 34 35 20 20 20 20 20 20 20 |j.CMP $45 |
00002E20: 3B 20 56 45 52 47 4C 45 49 43 48 20 4D 49 54 20 |; VERGLEICH MIT |
00002E30: 4E 41 4D 45 00 42 36 6C 14 42 4E 45 20 41 44 44 |NAME.B6l.BNE ADD|
00002E40: 52 32 00 4E 36 6E 14 4C 44 41 20 24 34 36 00 6F |R2.N6n.LDA $46.o|
00002E50: 36 70 14 43 4D 50 20 28 24 35 46 29 2C 59 20 20 |6p.CMP ($5F),Y |
00002E60: 20 3B 20 32 2E 20 42 55 43 48 53 54 41 42 45 00 | ; 2. BUCHSTABE.|
00002E70: 7D 36 72 14 42 45 51 20 41 44 44 52 33 00 8B 36 |}6r.BEQ ADDR3..6|
00002E80: 74 14 41 44 44 52 32 20 49 4E 59 00 9B 36 76 14 |t.ADDR2 INY..6v.|
00002E90: 4C 44 41 20 28 24 35 46 29 2C 59 00 A3 36 78 14 |LDA ($5F),Y..6x.|
00002EA0: 43 4C 43 00 AF 36 7A 14 41 44 43 20 24 35 46 00 |CLC..6z.ADC $5F.|
00002EB0: B7 36 7C 14 54 41 58 00 BF 36 7E 14 49 4E 59 00 |.6|.TAX..6~.INY.|
00002EC0: CF 36 80 14 4C 44 41 20 28 24 35 46 29 2C 59 00 |.6..LDA ($5F),Y.|
00002ED0: DB 36 82 14 41 44 43 20 24 36 30 00 EF 36 84 14 |.6..ADC $60..6..|
00002EE0: 41 44 44 52 33 20 42 43 43 20 41 44 44 52 34 00 |ADDR3 BCC ADDR4.|
00002EF0: F5 36 86 14 3B 00 18 37 88 14 3B 20 41 44 52 45 |.6..;..7..; ADRE|
00002F00: 53 53 45 4E 20 55 4E 44 20 49 4E 44 49 5A 45 53 |SSEN UND INDIZES|
00002F10: 20 41 42 4C 45 47 45 4E 00 3B 37 8A 14 3B 20 AC | ABLEGEN.;7..; .|
00002F20: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00002F30: AC AC AC AC AC AC AC AC AC AC AC 00 5E 37 8C 14 |............^7..|
00002F40: 4A 53 52 20 41 52 59 A1 20 20 20 3B 20 5A 45 49 |JSR ARY. ; ZEI|
00002F50: 47 45 52 20 4E 2E 20 45 4C 45 4D 45 4E 54 00 66 |GER N. ELEMENT.f|
00002F60: 37 8E 14 43 4C 43 00 71 37 90 14 41 44 43 20 23 |7..CLC.q7..ADC #|
00002F70: 34 00 7D 37 92 14 4C 44 58 20 24 41 35 00 A3 37 |4.}7..LDX $A5..7|
00002F80: 94 14 53 54 41 20 43 41 4C 43 2C 58 20 20 20 3B |..STA CALC,X ;|
00002F90: 20 4E 2E 41 52 52 41 59 20 41 44 52 45 53 53 45 | N.ARRAY ADRESSE|
00002FA0: 20 4C 4F 00 AB 37 96 14 49 4E 58 00 B7 37 98 14 | LO..7..INX..7..|
00002FB0: 4C 44 41 20 24 35 39 00 C3 37 9A 14 42 43 43 20 |LDA $59..7..BCC |
00002FC0: 46 4C 31 00 CF 37 9C 14 49 4E 43 20 24 35 39 00 |FL1..7..INC $59.|
00002FD0: DF 37 9E 14 46 4C 31 20 4C 44 41 20 24 35 39 00 |.7..FL1 LDA $59.|
00002FE0: 05 38 A0 14 53 54 41 20 43 41 4C 43 2C 58 20 20 |.8..STA CALC,X |
00002FF0: 20 3B 20 4E 2E 41 52 52 41 59 20 41 44 52 45 53 | ; N.ARRAY ADRES|
00003000: 53 45 20 48 49 00 11 38 A2 14 4C 44 59 20 23 30 |SE HI..8..LDY #0|
00003010: 31 00 37 38 A4 14 4C 44 41 20 28 24 35 38 29 2C |1.78..LDA ($58),|
00003020: 59 20 20 3B 20 41 4E 5A 41 48 4C 20 44 45 52 20 |Y ; ANZAHL DER |
00003030: 53 50 41 4C 54 45 4E 00 3F 38 A6 14 49 4E 58 00 |SPALTEN.?8..INX.|
00003040: 4E 38 A8 14 53 54 41 20 43 41 4C 43 2C 58 00 5A |N8..STA CALC,X.Z|
00003050: 38 AA 14 4C 44 59 20 23 30 33 00 7D 38 AC 14 4C |8..LDY #03.}8..L|
00003060: 44 41 20 28 24 35 38 29 2C 59 20 20 3B 20 41 4E |DA ($58),Y ; AN|
00003070: 5A 41 48 4C 20 44 45 52 20 5A 45 49 C3 00 85 38 |ZAHL DER ZEI...8|
00003080: AE 14 49 4E 58 00 94 38 B0 14 53 54 41 20 43 41 |..INX..8..STA CA|
00003090: 4C 43 2C 58 00 9C 38 B2 14 49 4E 58 00 A8 38 B4 |LC,X..8..INX..8.|
000030A0: 14 53 54 58 20 24 41 35 00 B0 38 B6 14 54 58 41 |.STX $A5..8..TXA|
000030B0: 00 BC 38 B8 14 43 4D 50 20 24 46 42 00 C8 38 BA |..8..CMP $FB..8.|
000030C0: 14 42 4E 45 20 41 52 52 00 D0 38 BC 14 52 54 53 |.BNE ARR..8..RTS|
000030D0: 00 F7 38 BE 14 3B AB AB AB AB AB AB AB AB AB AB |..8..;..........|
000030E0: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
000030F0: AB AB AB AB AB AB AB 00 FD 38 18 15 3B 00 20 39 |.........8..;. 9|
00003100: 1A 15 3B 20 49 4E 4B 8F 45 4E 54 49 45 52 54 20 |..; INK.ENTIERT |
00003110: 45 4C 45 4D 45 4E 54 2D 41 44 52 45 53 53 45 4E |ELEMENT-ADRESSEN|
00003120: 00 45 39 1C 15 3B 20 AC AC AC AC AC AC AC AC AC |.E9..; .........|
00003130: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00003140: AC AC AC AC AC 00 53 39 1E 15 45 4C 41 44 44 20 |......S9..ELADD |
00003150: 43 4C 43 00 60 39 20 15 4C 44 41 20 43 41 4C 43 |CLC.`9 .LDA CALC|
00003160: 00 6C 39 22 15 41 44 43 20 23 30 35 00 79 39 24 |.l9".ADC #05.y9$|
00003170: 15 53 54 41 20 43 41 4C 43 00 85 39 26 15 42 43 |.STA CALC..9&.BC|
00003180: 43 20 46 4C 32 00 94 39 28 15 49 4E 43 20 43 41 |C FL2..9(.INC CA|
00003190: 4C 43 AA 31 00 A0 39 2A 15 46 4C 32 20 43 4C 43 |LC.1..9*.FL2 CLC|
000031A0: 00 AF 39 2C 15 4C 44 41 20 43 41 4C 43 AA 34 00 |..9,.LDA CALC.4.|
000031B0: BB 39 2E 15 41 44 43 20 23 30 35 00 CA 39 30 15 |.9..ADC #05..90.|
000031C0: 53 54 41 20 43 41 4C 43 AA 34 00 D6 39 32 15 42 |STA CALC.4..92.B|
000031D0: 43 43 20 46 4C 33 00 E5 39 34 15 49 4E 43 20 43 |CC FL3..94.INC C|
000031E0: 41 4C 43 AA 35 00 F1 39 36 15 46 4C 33 20 43 4C |ALC.5..96.FL3 CL|
000031F0: 43 00 00 3A 38 15 4C 44 41 20 43 41 4C 43 AA 38 |C..:8.LDA CALC.8|
00003200: 00 0C 3A 3A 15 41 44 43 20 23 30 35 00 1B 3A 3C |..::.ADC #05..:<|
00003210: 15 53 54 41 20 43 41 4C 43 AA 38 00 27 3A 3E 15 |.STA CALC.8.':>.|
00003220: 42 43 43 20 46 4C 34 00 36 3A 40 15 49 4E 43 20 |BCC FL4.6:@.INC |
00003230: 43 41 4C 43 AA 39 00 42 3A 42 15 46 4C 34 20 52 |CALC.9.B:B.FL4 R|
00003240: 54 53 00 69 3A 46 15 3B AB AB AB AB AB AB AB AB |TS.i:F.;........|
00003250: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003260: AB AB AB AB AB AB AB AB AB 00 91 3A 70 17 3B 42 |...........:p.;B|
00003270: 45 52 45 43 48 4E 45 54 20 4F 46 46 53 45 54 20 |ERECHNET OFFSET |
00003280: 44 45 53 20 45 4C 45 4D 45 4E 54 45 53 20 4D 49 |DES ELEMENTES MI|
00003290: 54 00 B7 3A 72 17 3B 49 4E 44 45 58 20 24 43 31 |T..:r.;INDEX $C1|
000032A0: 2C 24 43 32 20 20 43 41 4C 43 B2 53 54 41 52 54 |,$C2 CALC.START|
000032B0: 41 44 52 45 53 53 45 00 DF 3A 74 17 3B AC AC AC |ADRESSE..:t.;...|
000032C0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000032D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC 00 |................|
000032E0: F7 3A 76 17 4F 46 46 53 45 54 20 4C 44 58 20 43 |.:v.OFFSET LDX C|
000032F0: 41 4C 43 AA 32 2C 59 00 FF 3A 78 17 44 45 58 00 |ALC.2,Y..:x.DEX.|
00003300: 0B 3B 7A 17 53 54 58 20 24 46 44 00 1C 3B 7C 17 |.;z.STX $FD..;|.|
00003310: 4C 44 58 20 43 41 4C 43 AA 33 2C 59 00 24 3B 7E |LDX CALC.3,Y.$;~|
00003320: 17 44 45 58 00 30 3B 80 17 53 54 58 20 24 46 45 |.DEX.0;..STX $FE|
00003330: 00 3C 3B 82 17 4C 44 41 20 23 30 30 00 48 3B 84 |.<;..LDA #00.H;.|
00003340: 17 53 54 41 20 24 46 42 00 6E 3B 86 17 53 54 41 |.STA $FB.n;..STA|
00003350: 20 24 41 35 20 20 20 20 20 20 20 20 20 3B 20 4F | $A5 ; O|
00003360: 46 46 53 45 54 AB 52 45 53 55 4C 54 41 54 00 7F |FFSET.RESULTAT..|
00003370: 3B 88 17 41 44 52 34 20 4C 44 41 20 23 30 30 00 |;..ADR4 LDA #00.|
00003380: 8B 3B 8A 17 53 54 41 20 24 46 43 00 9C 3B 8C 17 |.;..STA $FC..;..|
00003390: 41 44 52 32 20 4C 44 41 20 24 46 43 00 A8 3B 8E |ADR2 LDA $FC..;.|
000033A0: 17 43 4D 50 20 24 43 31 00 B5 3B 90 17 42 4E 45 |.CMP $C1..;..BNE|
000033B0: 20 41 44 52 35 00 C1 3B 92 17 4C 44 41 20 24 46 | ADR5..;..LDA $F|
000033C0: 42 00 CD 3B 94 17 43 4D 50 20 24 43 32 00 DA 3B |B..;..CMP $C2..;|
000033D0: 96 17 42 4E 45 20 41 44 52 35 00 E8 3B 98 17 4A |..BNE ADR5..;..J|
000033E0: 4D 50 20 46 4F 55 4E 44 00 F5 3B 9A 17 41 44 52 |MP FOUND..;..ADR|
000033F0: 35 20 43 4C 43 00 01 3C 9C 17 4C 44 41 20 24 41 |5 CLC..<..LDA $A|
00003400: 35 00 0C 3C 9E 17 41 44 43 20 23 35 00 18 3C A0 |5..<..ADC #5..<.|
00003410: 17 53 54 41 20 24 41 35 00 24 3C A2 17 4C 44 41 |.STA $A5.$<..LDA|
00003420: 20 24 46 43 00 30 3C A4 17 43 4D 50 20 24 46 45 | $FC.0<..CMP $FE|
00003430: 00 3D 3C A6 17 42 45 51 20 41 44 52 31 00 49 3C |.=<..BEQ ADR1.I<|
00003440: A8 17 49 4E 43 20 24 46 43 00 56 3C AA 17 4A 4D |..INC $FC.V<..JM|
00003450: 50 20 41 44 52 32 00 67 3C AC 17 41 44 52 31 20 |P ADR2.g<..ADR1 |
00003460: 4C 44 41 20 24 46 42 00 73 3C AE 17 43 4D 50 20 |LDA $FB.s<..CMP |
00003470: 24 46 44 00 80 3C B0 17 42 45 51 20 41 44 52 33 |$FD..<..BEQ ADR3|
00003480: 00 8C 3C B2 17 49 4E 43 20 24 46 42 00 99 3C B4 |..<..INC $FB..<.|
00003490: 17 4A 4D 50 20 41 44 52 34 00 BB 3C B6 17 41 44 |.JMP ADR4..<..AD|
000034A0: 52 33 20 4C 44 41 20 23 24 31 32 20 3B 20 42 41 |R3 LDA #$12 ; BA|
000034B0: 44 20 53 55 42 53 43 52 49 50 54 00 DD 3C B8 17 |D SUBSCRIPT..<..|
000034C0: 4A 4D 50 20 24 41 34 33 41 20 20 20 20 20 3B 20 |JMP $A43A ; |
000034D0: 46 45 48 4C 45 52 41 55 53 47 41 42 45 00 EB 3C |FEHLERAUSGABE..<|
000034E0: BA 17 46 4F 55 4E 44 20 43 4C 43 00 FA 3C BC 17 |..FOUND CLC..<..|
000034F0: 4C 44 41 20 43 41 4C 43 2C 59 00 06 3D BE 17 41 |LDA CALC,Y..=..A|
00003500: 44 43 20 24 41 35 00 17 3D C0 17 4C 44 58 20 43 |DC $A5..=..LDX C|
00003510: 41 4C 43 AA 31 2C 59 00 24 3D C2 17 42 43 43 20 |ALC.1,Y.$=..BCC |
00003520: 41 44 52 36 00 2C 3D C4 17 49 4E 58 00 3D 3D C6 |ADR6.,=..INX.==.|
00003530: 17 41 44 52 36 20 53 54 58 20 24 43 34 00 49 3D |.ADR6 STX $C4.I=|
00003540: C8 17 4C 44 59 20 24 43 34 00 51 3D C9 17 54 41 |..LDY $C4.Q=..TA|
00003550: 58 00 59 3D CA 17 52 54 53 00 80 3D CC 17 3B AB |X.Y=..RTS..=..;.|
00003560: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003570: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003580: 00 9C 3D 38 18 54 49 54 45 4C 20 4C 44 41 20 23 |..=8.TITEL LDA #|
00003590: 24 39 33 20 3B 20 9C 20 48 4F 4D 45 00 AB 3D 3A |$93 ; . HOME..=:|
000035A0: 18 4A 53 52 20 43 48 52 4F 55 54 00 BA 3D 3C 18 |.JSR CHROUT..=<.|
000035B0: 4A 53 52 20 53 43 52 54 43 48 00 C9 3D 3E 18 27 |JSR SCRTCH..=>.'|
000035C0: 43 55 52 53 B0 20 30 2C 30 00 DA 3D 40 18 27 54 |CURS. 0,0..=@.'T|
000035D0: 45 58 54 20 54 45 58 54 31 30 00 EB 3D 42 18 27 |EXT TEXT10..=B.'|
000035E0: 54 45 58 54 20 54 45 58 54 31 31 00 FC 3D 44 18 |TEXT TEXT11..=D.|
000035F0: 27 54 45 58 54 20 54 45 58 54 31 32 00 0D 3E 4A |'TEXT TEXT12..>J|
00003600: 18 27 54 45 58 54 20 54 45 58 54 31 33 00 1C 3E |.'TEXT TEXT13..>|
00003610: 4C 18 27 43 55 52 53 B0 20 35 2C 31 00 2D 3E 50 |L.'CURS. 5,1.->P|
00003620: 18 27 54 45 58 54 20 54 45 58 54 31 34 00 3C 3E |.'TEXT TEXT14.<>|
00003630: 52 18 27 43 55 52 53 B0 20 37 2C 31 00 4D 3E 54 |R.'CURS. 7,1.M>T|
00003640: 18 27 54 45 58 54 20 54 45 58 54 31 35 00 5C 3E |.'TEXT TEXT15.\>|
00003650: 56 18 27 43 55 52 53 B0 20 39 2C 31 00 6D 3E 58 |V.'CURS. 9,1.m>X|
00003660: 18 27 54 45 58 54 20 54 45 58 54 31 36 00 7D 3E |.'TEXT TEXT16.}>|
00003670: 5A 18 27 43 55 52 53 B0 20 31 31 2C 31 00 8E 3E |Z.'CURS. 11,1..>|
00003680: 5C 18 27 54 45 58 54 20 54 45 58 54 31 37 00 9E |\.'TEXT TEXT17..|
00003690: 3E 5E 18 27 43 55 52 53 B0 20 31 33 2C 31 00 AF |>^.'CURS. 13,1..|
000036A0: 3E 60 18 27 54 45 58 54 20 54 45 58 54 31 38 00 |>`.'TEXT TEXT18.|
000036B0: BF 3E 62 18 27 43 55 52 53 B0 20 31 35 2C 31 00 |.>b.'CURS. 15,1.|
000036C0: D0 3E 64 18 27 54 45 58 54 20 54 45 58 54 31 39 |.>d.'TEXT TEXT19|
000036D0: 00 E0 3E 66 18 27 43 55 52 53 B0 20 31 37 2C 31 |..>f.'CURS. 17,1|
000036E0: 00 F1 3E 68 18 27 54 45 58 54 20 54 45 58 54 32 |..>h.'TEXT TEXT2|
000036F0: 30 00 01 3F 6A 18 27 43 55 52 53 B0 20 31 39 2C |0..?j.'CURS. 19,|
00003700: 31 00 12 3F 6C 18 27 54 45 58 54 20 54 45 58 54 |1..?l.'TEXT TEXT|
00003710: 32 31 00 23 3F 6E 18 27 43 55 52 53 B0 20 32 31 |21.#?n.'CURS. 21|
00003720: 2C 31 37 00 34 3F 70 18 27 54 45 58 54 20 54 45 |,17.4?p.'TEXT TE|
00003730: 58 54 32 32 00 44 3F 86 18 27 43 55 52 53 B0 20 |XT22.D?..'CURS. |
00003740: 32 31 2C 31 00 4F 3F 88 18 4A 53 52 20 87 59 00 |21,1.O?..JSR .Y.|
00003750: 57 3F 8A 18 52 54 53 00 7E 3F 8C 18 3B AB AB AB |W?..RTS.~?..;...|
00003760: AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB AB |................|
00003770: AB AB AB AB AB AB AB AB AB AB AB AB AB AB 00 B0 |................|
00003780: 3F 58 1B 54 45 58 54 31 20 2E C6 20 22 4D 41 54 |?X.TEXT1 .. "MAT|
00003790: 52 49 58 20 49 53 54 20 4E 49 43 48 54 20 55 4D |RIX IST NICHT UM|
000037A0: 4B 45 48 52 42 41 52 22 3A 20 2E 42 59 54 20 30 |KEHRBAR": .BYT 0|
000037B0: 00 F1 3F 62 1B 54 45 58 54 31 30 20 2E C6 20 22 |..?b.TEXT10 .. "|
000037C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000037D0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000037E0: C3 C3 C3 C3 C3 C3 C3 C3 22 3A 20 2E 42 59 54 20 |........": .BYT |
000037F0: 30 00 32 40 64 1B 54 45 58 54 31 31 20 2E C6 20 |0.2@d.TEXT11 .. |
00003800: 22 20 4D 41 54 52 49 58 20 2D 20 45 58 50 52 45 |" MATRIX - EXPRE|
00003810: 53 53 2C 20 44 52 2E 2D 49 4E 47 2E 20 55 57 45 |SS, DR.-ING. UWE|
00003820: 20 43 48 52 49 53 54 20 20 22 3A 20 2E 42 59 54 | CHRIST ": .BYT|
00003830: 20 30 00 73 40 66 1B 54 45 58 54 31 32 20 2E C6 | 0.s@f.TEXT12 ..|
00003840: 20 22 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 | "..............|
00003850: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00003860: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 22 3A 20 2E 42 59 |..........": .BY|
00003870: 54 20 30 00 B3 40 68 1B 54 45 58 54 31 33 20 2E |T 0..@h.TEXT13 .|
00003880: C6 20 22 42 41 53 49 43 20 45 52 57 45 49 54 45 |. "BASIC ERWEITE|
00003890: 52 55 4E 47 20 46 55 45 52 20 4D 41 54 52 49 5A |RUNG FUER MATRIZ|
000038A0: 45 4E 52 45 43 48 4E 55 4E 47 22 3A 20 2E 42 59 |ENRECHNUNG": .BY|
000038B0: 54 20 30 00 E5 40 6A 1B 54 45 58 54 31 34 20 2E |T 0..@j.TEXT14 .|
000038C0: C6 20 22 53 59 4E 54 41 58 20 44 45 52 20 4E 45 |. "SYNTAX DER NE|
000038D0: 55 45 4E 20 42 45 46 45 48 4C 45 3A 22 3A 20 2E |UEN BEFEHLE:": .|
000038E0: 42 59 54 20 30 00 15 41 6C 1B 54 45 58 54 31 35 |BYT 0..Al.TEXT15|
000038F0: 20 2E C6 20 22 40 45 51 55 2C 58 2C 59 20 20 20 | .. "@EQU,X,Y |
00003900: 20 20 20 20 20 28 59 29 3D 28 58 29 22 3A 20 2E | (Y)=(X)": .|
00003910: 42 59 54 20 30 00 49 41 6E 1B 54 45 58 54 31 36 |BYT 0.IAn.TEXT16|
00003920: 20 2E C6 20 22 40 41 44 44 2C 58 2C 59 2C 5A 20 | .. "@ADD,X,Y,Z |
00003930: 20 20 20 20 20 28 5A 29 3D 28 58 29 2B 28 59 29 | (Z)=(X)+(Y)|
00003940: 22 3A 20 2E 42 59 54 20 30 00 7D 41 70 1B 54 45 |": .BYT 0.}Ap.TE|
00003950: 58 54 31 37 20 2E C6 20 22 40 53 55 42 2C 58 2C |XT17 .. "@SUB,X,|
00003960: 59 2C 5A 20 20 20 20 20 20 28 5A 29 3D 28 58 29 |Y,Z (Z)=(X)|
00003970: 2D 28 59 29 22 3A 20 2E 42 59 54 20 30 00 AF 41 |-(Y)": .BYT 0..A|
00003980: 72 1B 54 45 58 54 31 38 20 2E C6 20 22 40 53 4B |r.TEXT18 .. "@SK|
00003990: 50 2C 58 2C 4B 20 20 20 20 20 20 20 20 28 58 29 |P,X,K (X)|
000039A0: 3D 4B 2A 28 58 29 22 3A 20 2E 42 59 54 20 30 00 |=K*(X)": .BYT 0.|
000039B0: E3 41 74 1B 54 45 58 54 31 39 20 2E C6 20 22 40 |.At.TEXT19 .. "@|
000039C0: 4D 55 4C 2C 58 2C 59 2C 5A 20 20 20 20 20 20 28 |MUL,X,Y,Z (|
000039D0: 5A 29 3D 28 58 29 2A 28 59 29 22 3A 20 2E 42 59 |Z)=(X)*(Y)": .BY|
000039E0: 54 20 30 00 16 42 76 1B 54 45 58 54 32 30 20 2E |T 0..Bv.TEXT20 .|
000039F0: C6 20 22 40 44 45 54 2C 58 2C 44 20 20 20 20 20 |. "@DET,X,D |
00003A00: 20 20 20 20 44 20 3D 44 45 54 28 58 29 22 3A 20 | D =DET(X)": |
00003A10: 2E 42 59 54 20 30 00 49 42 78 1B 54 45 58 54 32 |.BYT 0.IBx.TEXT2|
00003A20: 31 20 2E C6 20 22 40 49 4E 56 2C 58 2C 59 2C 5A |1 .. "@INV,X,Y,Z|
00003A30: 20 20 20 20 20 20 28 5A 29 3D 28 58 29 5E 2D 31 | (Z)=(X)^-1|
00003A40: 22 3A 20 2E 42 59 54 20 30 00 6C 42 7A 1B 54 45 |": .BYT 0.lBz.TE|
00003A50: 58 54 32 32 20 2E C6 20 22 28 59 29 3D 41 44 4A |XT22 .. "(Y)=ADJ|
00003A60: 28 58 29 22 3A 20 2E 42 59 54 20 30 00 00 00 |(X)": .BYT 0... |
....... 32768......OPT P,M,OO.#...;.L...
;....................................B.H
.OFFMAC .MAC A,B,C.L.J.LDA A.X.L.STA $C1
...N.LDA B...P.STA $C2...R.LDY C...T.JSR
OFFSET...V..MEN.X.Z.;..................
...................,.MATFUNK .MAC SPRZL,
ZAHL.....LDX #ZAHL...0.LOOP INC $7A.".2.
BNE .LESS1...4.INC $7B.<.6.LESS1 DEX.J.8
.BNE .LOOP.X.T.JSR SPRZL.F.V.JMP $A7AE.O
.X..MEN...^.;...........................
..........`.TEXT .MAC TEXTN...B.LDA #.TE
XTN.G.C.STA $22.W.D.LDY #.TEXTN...E.STY
$23...G.JSR STROUT...H..MEN.#.J.;.......
............................?.R.CURS. .M
AC ZEILE,SPALTE.N.T.LDX #ZEILE.^.V.LDY #
SPALTE.J.X.STX $D6.V.Z.STY $D3...|.JSR S
ETCRS...~..MEN.....;....................
.................$.;...&.CALC . $C975
; CALC..BASIS...(.LCALC . .CALC...*.HCA
LC . .CALC...,.LC8 . .CALC.12./...HC
8 . .CALC.12.E.0.LC13 . .CALC.17.[.
2.HC13 . .CALC.17.Q.4.LC18 . .CALC.2
2...5.HC18 . .CALC.22...6.LC23 . .CA
LC.27...7.HC23 . .CALC.27.F.8.KOMMA .
$AEFD.Y.9.STROUT . $AB1E...:.CHR. . $00
73...<.CHRKT . $0079...>.FAC. . $BC58. .
@.CMPFAC . $BC5B.3.B.MDIV . $BB0F.D.D.
.MUL . $B34C.W.F.MEMFAC . $BBA2.J.H.FACM
EM . $BBD7.}.J.PTRVAR . $B0E7...L.MSUB
. $B850...N.MADD . $B867...P.MMULT .
$BA28.F.R..Y . $A474.W.T.ARY. . $B194.
..V.SCRTCH . $A644...X.CHROUT . $FFD2...
Z.SETCRS . $E56C...Z.;.#.|... $C000.).~.
;.Q...;.................................
..^...LDA #$0B.Z...STA $0308 ; IKNE
LO.....LDA #$C0.....STA $0309 ; IKNE
HI.....JSR TITEL.....RTS.....;.L...JSR
CHR......CMP #$40 ; FII FUER @.....
BEQ NEUBEF ; NEUER BEFEHL.2...JMP $A7
E7 ; KEIN NEUER BEFEHL.F...NEUBEF JS
R CHR..S...CMP #"A".A...BNE FUNK2.V...'M
ATFUNK ADD,$03... .FUNK2 CMP #"E".....BN
E FUNK3.....'MATFUNK EQU,$03.....FUNK3 C
MP #"M".M...BNE FUNK4.....'MATFUNK MUL,$
03.....FUNK4 CMP #"D".....BNE FUNK5.....
'MATFUNK DET,$03.+...FUNK5 CMP #"I".9...
BNE FUNK6.N...'MATFUNK INV,$03.A...FUNK6
CMP #"S".O...BNE FUNK8.|...JSR CHR....B
.CMP #"U"...D.BNE FUNK7...F.'MATFUNK SUB
,$02.G.H.FUNK7 'MATFUNK SKP,$02.U.J.FUNK
8 RTS.....;.............................
..........; EQUIEENZ (A).(B).-...; .....
..............>...EQU LDA #$08.J...STA $
FB.X...JSR ARY.D.J...EQUIV LDA #00.V...S
TA $FC.....FL16 LDA #00.....STA $FB.....
FL15 LDA CALC.....LDY CALC.1.C...JSR MEM
FAC.R...LDX CALC.4.....LDY CALC.5.....JS
R FACMEM.....JSR ELADD.....INC $FB.....L
DA $FB.%...CMP CALC.3.2...BNE FL15.>...I
NC $FC.J...LDA $FC.Y...CMP CALC.2.F...BN
E FL16.N...RTS.....;....................
................L.; ADDITI. (A).(B).(C).
J.N.; .......................P.ADD LDA #
$0C ; PARAMETERANZAHL...R.STA $FB...T.JS
R ARY.D...V.LDA #00...X.STA $FC./.Z.FL6
LDA #00.;.\.STA $FB.L.^.FL5 LDA CALC.[.`
.LDY CALC.1.J.B.JSR MEMFAC.Y.D.LDA CALC.
4...F.LDY CALC.5...H.JSR MADD...J.LDX CA
LC.08...L.LDY CALC.09.D.N.JSR FACMEM.R.P
.JSR ELADD...R.INC $FB...T.LDA $FB...V.C
MP CALC.3...X.BNE FL5...Z.INC $FC...|.LD
A $FC.,.~.CMP CALC.2.8...BNE FL6.@...RTS
.G...;..................................
....; SUBTRAKTI. (A).(B).(C).....; .....
.......................SUB LDA #$0C.....
STA $FB.M...JSR ARY.D.Y...LDA #00.....ST
A $FC.....FL7 LDA #00.....STA $FB.....FL
8 LDA CALC.4.#...LDY CALC.5.2...JSR MEMF
AC.?...LDA CALC.N...LDY CALC.1.[...JSR M
SUB.K...LDX CALC.08.{...LDY CALC.09.....
JSR FACMEM.....JSR ELADD.....INC $FB....
.LDA $FB.....CMP CALC.3.K...BNE FL8.W...
INC $FC.....LDA $FC.....CMP CALC.2.....B
NE FL7.....RTS.-...;....................
..............M.P.; MULTIPLIKATI. (A).(B
).(C).N.R.; ...........................
.T.MUL LDA #$0C...V.STA $FB...X.JSR ARY.
D...Z.LDA #00.E...STA $8B ; INDE
X I.0.W...MRK11 LDA #00.....STA $8C
; INDEX J.0.....MRK8 LDA #00.(...STA
$8D ; INDEX K.0.4...LDA $8B.@..
.STA $C1.L...LDA $8C.X...STA $C2.E...LDY
#$08.T...JSR OFFSET.....STA $24.....STY
$25.....LDA #00.....LDX #00.H...STA ($2
4),X ; C(I,J).0 SETZEN.Y...MRK6 LDA $8
B.....STA $C1.....LDA $8D.....STA $C2...
..LDY #$00.....JSR OFFSET.*...STA CALC.$
0C.;...STY CALC.$0D.`...LDA $FE ; Z
EIC DER A.MATRIX.L...STA $8E.X...LDA $8D
.....STA $C1.....LDA $8C.....STA $C2....
.LDY #$04.....JSR OFFSET.G...JSR MEMFAC.
X...LDA CALC.$0C... .LDY CALC.$0D...".JS
R MMULT...$.LDA $24...&.LDY $25...(.JSR
MADD.(.*.LDX $24.4.,.LDY $25.C...JSR FAC
MEM.H.0.LDA $FE ; ZEIC DER B.MATRIX
.T.2.CMP $8D...4.BEQ MRK7...6.INC $8D...
8.JMP MRK6 ; K.SCHLE.E.R.:.MRK7 LDA
$FD ; SPALTEN DER B.MATRIX...<.CMP $8C..
.>.BEQ MRK9...@.INC $8C...B.JMP MRK8
; J.SCHLE.E.9.D.MRK9 LDA $8E ; ZEIC DER
A.MATRIX.E.F.CMP $8B.S.H.BEQ MRK10._.J.
INC $8B.M.L.JMP MRK11.{.N.MRK10 RTS...P.
;......................................;
SKALARPRODUKT (A).K.(A).....;...........
.................SKP LDA #$04.....STA $F
B... .JSR ARY.D.....JSR VARNAM1.;...JSR
PTRVAR ; ZEIGER AUF K.[\..M...SKPDT LD
A #00.Y...STA $FC.J...FL26 LDA #00.V...S
TA $FB.....FL25 LDA CALC.....LDY CALC.1.
....JSR MEMFAC.....LDA $47.....LDY $48.L
...JSR MMULT.Y...LDX CALC...B.LDY CALC.1
...D.JSR FACMEM...F.JSR ELADD...H.INC $F
B...J.LDA $FB.,.L.CMP CALC.3.9.N.BNE FL2
5.E.P.INC $FC.Q.R.LDA $FC.`.T.CMP CALC.2
.M.V.BNE FL26.U.X.RTS...Z.;.............
.......................D.;DETERMINANTE D
ET(A).D.R.F.;........................H.D
ET LDA #$00...I.STA $C3...J.LDA #$04...L
.STA $FB...M.JSR ARY.D.,.N.HPTDET LDX CA
LC.2.4.O.DEX.@.P.STX $A6.S.Q.DETERM LDA
#00.K.R.STA $8E ; N1.0...T.STA $8B
; I.0...V.SCH1 LDA $8B...X.CMP $A6
; VERGL.I.N...Z.BNE CND1A.K...JMP C
ND1.....CND1A 'OFFMAC $8B,$8B,$C3.....JS
R MEMFAC.....JSR FAC. ; BETRAG IN FAC1
.%...LDX #LC8.2...LDY #HC8.O...JSR FACME
M ; A..(A(I,I)).[...LDY $8B.S...STY $8F
; Z1.I.{...INY.....STY $8D ; K
.K.1.....SCH2 'OFFMAC $8D,$8B,$C3.....JS
R MEMFAC.M...LDA #LC8.Z...LDY #HC8.....J
SR CMPFAC ; .(A(K,J))..A.....CMP $B9BC
; VERGL. ACCU.1.)...BEQ CND2A.5...LD
A $8D.B...JMP CND2.U...CND2A LDX #LC8.B.
..LDY #HC8.....JSR FACMEM ; A..(A(K,I)
).....LDA $8D.....STA $8F ; Z1.K.B.
..CND2 CMP $A6; VERGL. K.N.P...BEQ SCH2E
.....INC $8D ; K.K.1.....JMP SCH2
; K.SCHLE.E.....SCH2E LDA $8F.$...CMP
$8B.2...BNE CND1B.?...JMP CND1.Q...CND1
B LDA #00.]. .STA $8C.Z.".SCH3 'OFFMAC $
8B,$8C,$C3...$.JSR MEMFAC...&.LDX #LC13.
..(.LDY #HC13...*.STA $8C ; J.0.Y.,
.JSR FACMEM ; B ABLEGEN.....'OFFMAC $8
F,$8C,$C3...0.STA $71.. 2.STY $72., 4.JS
R MEMFAC ; A(Z1,J) IN FAC1.D 6.'OFFMAC
$8B,$8C,$C3.L 8.TAX.N :.JSR FACMEM ;
A(I,J).A(Z1,J).| <.LDA #LC13.. >.LDY #HC
13.. @.JSR MEMFAC ; B NACH FAC1.. B.LD
X $71.A D.LDY $72.. F.JSR FACMEM ; A(Z
1,J).B.. H.LDA $8C.. J.CMP $A6..!L.BEQ S
CH3E..!N.INC $8C.-!P.JMP SCH3 ; J.SC
HLE.E.M!R.SCH3E NOP ; .E J.SCHLE.E.H!
T.INC $8E ; N1.N1.1.Y!V.CND1 LDA #0
0..!X.STA $8D ; K.0..!Z.SCH4 LDA $8
D..!\.CMP $8B.H!^.BNE CND3A ; BEI K.I
.U!`.JMP CND3..!B.CND3A LDX #00..!D.NULL
LDA #00.."F.STA $61,X.."H.INX./"J.CPX #
$06 ; FAC1.0 SETZEN.<"L.BNE NULL.T"N
.'OFFMAC $8B,$8B,$C3.{"P.JSR CMPFAC ;V
ERGL.FAC1(0).A(I,I).."R.CMP #00.."T.BNE
CND3B.."V.JMP CND3.."X.CND3B 'OFFMAC $8B
,$8B,$C3.."Z.JSR MEMFAC ; A(I,I) DIVIS
..."|.'OFFMAC $8D,$8B,$C3..#~.JSR MDIV
; A(K,I).A(I,I).(#..LDX #LC18.6#..LDY
#HC18.E#..JSR FACMEM.Q#..LDA #00.H#..ST
A $8C ; J.0..#..SCH5 'OFFMAC $8B,$8
C,$C3..#..JSR MEMFAC..#..LDA #LC18..#..L
DY #HC18..#..JSR MMULT.V#..'OFFMAC $8D,$
8C,$C3..#..STA $71..#..STY $72..#..JSR M
SUB..$..LDX $71..$..LDY $72.-$ .JSR FACM
EM ; A(K,J).9$..LDA $8C.W$..CMP $A6
; VERGL. J.N.E$..BEQ SCH5E.Q$..INC $8
C.~$..JMP SCH5..$..SCH5E NOP..$..CND3 LD
A $8D..$..CMP $A6..$..BEQ SCH4E.C$..INC
$8D..$..JMP SCH4 ; K.SCHLE.E..$..SCH
4E LDA $8B..$..CMP $A6..%..BEQ SCH1E..%.
.INC $8B.5%..JMP SCH1 ; I.SCHLE.E.G%
B.SCH1E LDA #00.S%D.STA $8B.K%F.'OFFMAC
$8B,$8B,$C3.Z%H.JSR MEMFAC..%J.LDX #LC8.
.%L.LDY #HC8..%N.JSR FACMEM ; D.A(1,1)
..%P.LDA #01.H%R.STA $8B..%T.SCH6 'OFFMA
C $8B,$8B,$C3..%V.JSR MEMFAC..&X.LDA #LC
8..&Z.LDY #HC8.*&..JSR MMULT ; D.A(I,
I).7&..LDX #LC8.D&..LDY #HC8.S&..JSR FAC
MEM._&..LDA $8B.K&..CMP $A6.Y&..BEQ SCH6
E..&..INC $8B..&..JMP SCH6. &..SCH6E NOP
..&..R. $8E..&..BCC CND5.D&..LDA $66..&.
.CMP #$80 ; BEREITS NEGATIV..&..LDA
#$01..'..STA $66..'..BCS CND5..'..LDA #$
FF.&'..STA $66.7'..CND5 LDA $C3.D'..CMP
#$00.S'..BNE DETFIN.C'..JSR VARNAM1..'..
JSR PTRVAR ; VARIABLE SUCH..ANL...'..L
DX $47..'..LDY $48..'..JSR FACMEM..'..DE
TFIN RTS..'..;..........................
.........(T.; INVERSE MATRIX INV(A).B.#(
V.; ........................4(X.INV LDA
#$0C.@(\.STA $FB.N(^.JSR ARY.D.Z(H.LDY #
00.O(J.LOOP1 LDA CALC,Y.W(L.PHA.(N.INY.
.(P.CPY $FB..(R.BCC LOOP1..(T.BEQ LOOP1.
.(V.JSR EQUIV.B({.LDY #$0C.P(|.LOOP2 PLA
..(~.STA CALC,Y..(..DEY..(..BPL LOOP2..)
..LDA #$04..)..STA $C3..)..JSR HPTDET.C)
..JSR PRUEF ; UMKEHRBARKEIT PR...F)..
LDA #$BC ; LO ADRESSE V. 1..)..LDY #
$B9 ; HI "..)..JSR MDIV..)..LDX #
LC23..)..LDY #HC23..)..JSR FACMEM.H)C.LD
X CALC.2.P)D.DEX.X)F.TXA..)H.STA $FD
; N..)L.STA $8F..*P.DEC $8F ; N
.1..*T.LDA #00.<*X.ZWG11 STA $8B ; INDEX
I.0.H*..LDA #00.F*..ZWG9 STA $8C ; IND
EX J.0.R*..LDA #00..*..ZWG6 STA $8D ; I
NDEX K.0..*..LDA #00..*..ZWG4 STA $8E ;
INDEX L.0.F*..LDA #00.R*..STA $C3..*..L
DA $8D..*..STA $C1..+..CMP $8C ; C
.FLAG BEI ....+..BCC ZWG1.6+..INC $C1
; K.(K..J).G+..ZWG1 LDA $8E.S+..STA
$C2._+..CMP $8B.L+..BCC ZWG2..+ .INC $C2
; L.(L..I)..+$.ZWG2 'OFFMAC $C1,$
C2,$C3..+(.JSR MEMFAC.A+,.LDA $8D.M+0.ST
A $C1.Y+4.LDA $8E..+8.STA $C2..+<.LDY #$
08..,@.JSR OFFSET.$,D.JSR FACMEM ; B(
K,L) ABLEGEN.0,H.LDA $8E.<,L.CMP $8F.I,P
.BEQ ZWG3.U,T.INC $8E.A,V.LDA $8E.,X.JM
P ZWG4 ; L.SCHLE.E..,\.ZWG3 LDA $8D
..,`.CMP $8F..,D.BEQ ZWG5..,H.INC $8D.A,
J.LDA $8D..,L.JMP ZWG6 ; K.SCHLE.E.
.,N.ZWG5 LDA #00..,O.CMP $8F..-P.BNE DET
1 ; DET.INDEX .1.*-T.JMP DET2.;-V.D
ET1 LDY #00.O-X.LOOPA LDA $8B,Y.W-Z.PHA.
_-|.INY.L-~.CPY #$05.Z-..BNE LOOPA..-..L
DA $FD..-..PHA..-..LDA $8F ; DET.I
NDEX REDUZ...-..STA $A6.L-..LDA #$08..-.
.STA $C3 ; OFFSET F.DETERMIN......
JSR DETERM.'...PLA ; INDICEES
ZURUECK.3...STA $FD.@...LDY #$04.N...LOO
PB PLA.\...STA $8B,Y.D...DEY.R...BPL LOO
PB..T.DET2 CLC...U.LDA $8B...V.ADC $8C.
..X.R......BCC ZWG7.....LDA $66.....CMP
#$80 ; BEREITS NEGATIV,.....LDA #$0
1 ; DANN .ITIV../..LDA #$01../..STA
$66.!/..BCS ZWG7../..LDA #$FF.N/..STA $
66 ; FAC NEGATIV._/..ZWG7 LDA $8B.
K/..STA $C1.W/..LDA $8C../..STA $C2../..
LDA #$04../..STA $C3../..'OFFMAC $C1,$C2
,$C3.C/..JSR FACMEM.O/..LDA $8C../..CMP
$FD../..BEQ ZWG8../..INC $8C..0..LDA $8C
..0..JMP ZWG9..0 .ZWG8 LDA $8B.*0$.CMP $
FD.80(.BEQ ZWG10.D0,.INC $8B.P0..LDA $8B
.^00.JMP ZWG11.L04.ZWG10 NOP.Y05.LDA #$0
C..06.STA $FB..07.LDY #00..08.LOOP3 LDA
CALC,Y..0:.PHA..0<.INY.B0>.CPY $FB.P0@.B
CC LOOP3..0B.BEQ LOOP3..0H.LDY #00..1J.L
OOP6 LDA CALC.4,Y..1L.STA CALC,Y.!1N.LDA
CALC.8,Y.21P.STA CALC.4,Y.:1R.INY.G1T.C
PY #$04.U1V.BCC LOOP6.C1\.JSR EQUIV.P1`.
LDY #$0C.~1B.LOOP4 PLA..1D.STA CALC,Y..1
F.DEY..1H.BPL LOOP4.H1P.LDA #LC23 ;
ZEIGER AUF 1.DET.T1R.STA $47..1T.LDA #HC
23..1V.STA $48..1Z.LDY #00..2|.LOOP7 LDA
CALC.8,Y. 2~.STA CALC,Y.(2..INY.52..CPY
#$04.C2..BCC LOOP7.Q2..JSR SKPDT.Y2..RT
S._2..;.Q2..PRUEF LDA $61.~2..CMP #$0A..
2..BCS OKEY..2..'TEXT TEXT1..2..JMP .Y
; .Y.MODUS.C2 .OKEY RTS..2..;.......
............................3..; VARIABC
NAMEN LESEN..3..; .....................2
3..VARNAM1 LDA #00.>3..STA $A5.D3..;.Z3.
.VARNAM2 JSR KOMMA.{3..JSR CHRKT ; 1.
ZEICHEN HOC..3..STA $45 ; UND MERK
EN..3..JSR CHR. ; 2.ZEICHEN HOC.R3..B
EQ Z. ; ZEIC.E..3..CMP #$2C ; A
UF KOMMA PRUEFEN..4..BNE SPR1 ; NEIN
, NAECHSTES Z..,4..Z. LDA #0.P4..STA $46
; 2. ZEICHEN NULL.\4..DEC $7A.F4.
.JMP ...4..SPR1 STA $46 ; 2. ZEICHEN ME
RKEN..4... INC $7A ; PROGRAMMZEIGER .1
..4..BNE LESS.I4..INC $7B.V4..LESS RTS..
4..;...................................5
P.; ARRAY.KOPF SUCHEN.-5R.; ............
......C5T.ARY.D JSR VARNAM1.P5V.JMP VCNT
.D5X.ARR JSR VARNAM2..5Z.VCNT LDX $2F ;
ZEIGER ARRAYTABELLE..5\.LDA $30..5^.ADD
R4 STX $5F ; ZEIGER MERKEN.F5`.STA $60.R
5B.CMP $32..5D.LDY #$00..6F.LDA ($5F),Y
; NAME ARRAYTABELLE..6H.INY.46J.CMP $4
5 ; VERGLEICH MIT NAME.B6L.BNE ADD
R2.N6N.LDA $46.O6P.CMP ($5F),Y ; 2. BU
CHSTABE.}6R.BEQ ADDR3..6T.ADDR2 INY..6V.
LDA ($5F),Y..6X.CLC..6Z.ADC $5F..6|.TAX.
.6~.INY.O6..LDA ($5F),Y..6..ADC $60..6..
ADDR3 BCC ADDR4..6..;..7..; ADRESSEN UND
INDIZES ABLEGEN.;7..; .................
............^7..JSR ARY. ; ZEIGER N. E
LEMENT.F7..CLC.Q7..ADC #4.}7..LDX $A5..7
..STA CALC,X ; N.ARRAY ADRESSE LO..7..
INX..7..LDA $59.C7..BCC FL1.O7..INC $59.
.7..FL1 LDA $59..8 .STA CALC,X ; N.ARR
AY ADRESSE HI..8..LDY #01.78..LDA ($58),
Y ; ANZAHL DER SPALTEN.?8..INX.N8..STA
CALC,X.Z8..LDY #03.}8..LDA ($58),Y ; AN
ZAHL DER ZEIC..8..INX..8..STA CALC,X..8.
.INX..8..STX $A5..8..TXA..8..CMP $FB.H8.
.BNE ARR.P8..RTS..8..;..................
.................8..;. 9..; INK.ENTIERT
ELEMENT-ADRESSEN.E9..; .................
..............S9..ELADD CLC.`9 .LDA CALC
.L9".ADC #05.Y9$.STA CALC..9&.BCC FL2..9
(.INC CALC.1. 9*.FL2 CLC..9,.LDA CALC.4.
.9..ADC #05.J90.STA CALC.4.V92.BCC FL3..
94.INC CALC.5..96.FL3 CLC..:8.LDA CALC.8
..::.ADC #05..:<.STA CALC.8.':>.BCC FL4.
6:@.INC CALC.9.B:B.FL4 RTS.I:F.;........
...........................:P.;BERECHNET
OFFSET DES ELEMENTES MIT..:R.;INDEX $C1
,$C2 CALC.STARTADRESSE..:T.;...........
.........................:V.OFFSET LDX C
ALC.2,Y..:X.DEX..;Z.STX $FD..;|.LDX CALC
.3,Y.$;~.DEX.0;..STX $FE.<;..LDA #00.H;.
.STA $FB.N;..STA $A5 ; OFFSET.RE
SULTAT.;..ADR4 LDA #00..;..STA $FC..;..
ADR2 LDA $FC..;..CMP $C1..;..BNE ADR5.A;
..LDA $FB.M;..CMP $C2.Z;..BNE ADR5..;..J
MP FOUND..;..ADR5 CLC..<..LDA $A5..<..AD
C #5..< .STA $A5.$<..LDA $FC.0<..CMP $FE
.=<..BEQ ADR1.I<..INC $FC.V<..JMP ADR2.G
<..ADR1 LDA $FB.S<..CMP $FD..<..BEQ ADR3
..<..INC $FB..<..JMP ADR4..<..ADR3 LDA #
$12 ; BAD SUBSCRIPT..<..JMP $A43A ;
FEHLERAUSGABE..<..FOUND CLC..<..LDA CALC
,Y..=..ADC $A5..=..LDX CALC.1,Y.$=B.BCC
ADR6.,=D.INX.==F.ADR6 STX $C4.I=H.LDY $C
4.Q=I.TAX.Y=J.RTS..=L.;.................
..................=8.TITEL LDA #$93 ; .
HOME..=:.JSR CHROUT..=<.JSR SCRTCH.I=>.'
CURS. 0,0.Z=@.'TEXT TEXT10..=B.'TEXT TEX
T11..=D.'TEXT TEXT12..>J.'TEXT TEXT13..>
L.'CURS. 5,1.->P.'TEXT TEXT14.<>R.'CURS.
7,1.M>T.'TEXT TEXT15.\>V.'CURS. 9,1.M>X
.'TEXT TEXT16.}>Z.'CURS. 11,1..>\.'TEXT
TEXT17..>^.'CURS. 13,1..>`.'TEXT TEXT18.
.>B.'CURS. 15,1.P>D.'TEXT TEXT19..>F.'CU
RS. 17,1..>H.'TEXT TEXT20..?J.'CURS. 19,
1..?L.'TEXT TEXT21.#?N.'CURS. 21,17.4?P.
'TEXT TEXT22.D?..'CURS. 21,1.O?..JSR .Y.
W?..RTS.~?..;...........................
........?X.TEXT1 .F "MATRIX IST NICHT UM
KEHRBAR": .BYT 0..?B.TEXT10 .F "CCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC": .BYT
0.2@D.TEXT11 .F " MATRIX - EXPRESS, DR.-
ING. UWE CHRIST ": .BYT 0.S@F.TEXT12 .F
"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CC": .BYT 0..@H.TEXT13 .F "BASIC ERWEITE
RUNG FUER MATRIZENRECHNUNG": .BYT 0..@J.
TEXT14 .F "SYNTAX DER NEUEN BEFEHLE:": .
BYT 0..AL.TEXT15 .F "@EQU,X,Y (Y)
=(X)": .BYT 0.IAN.TEXT16 .F "@ADD,X,Y,Z
(Z)=(X)+(Y)": .BYT 0.}AP.TEXT17 .F
"@SUB,X,Y,Z (Z)=(X)-(Y)": .BYT 0..A
R.TEXT18 .F "@SKP,X,K (X)=K*(X)":
.BYT 0..AT.TEXT19 .F "@MUL,X,Y,Z (
Z)=(X)*(Y)": .BYT 0..BV.TEXT20 .F "@DET,
X,D D =DET(X)": .BYT 0.IBX.TEXT2
1 .F "@INV,X,Y,Z (Z)=(X)^-1": .BYT
0.LBZ.TEXT22 .F "(Y)=ADJ(X)": .BYT 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL