FAKUL.SRC
FILE INFORMATION
FILENAME(S): FAKUL.SRC
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:23:14
APPEARS ON: 1 disk(s)
FILE HASH
d96819d3df64acba0d8b3d40cb44de4062d1d5ff042c70cc596356df15bb0285
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 1 1 | FAKUL.SRC | PRG | DuncanTwain | 23 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0E 08 5A 00 9E 20 38 AC 34 30 39 36 00 1C |....Z.. 8.4096..| 00000010: 08 64 00 2E 4F 50 54 20 50 2C 4F 4F 00 3E 08 6E |.d..OPT P,OO.>.n| 00000020: 00 53 54 41 52 54 20 B2 20 38 32 38 20 3B 20 4B |.START . 828 ; K| 00000030: 41 53 53 45 54 54 45 4E 50 55 46 46 45 52 00 63 |ASSETTENPUFFER.c| 00000040: 08 78 00 4F 56 45 52 46 4C 4F 57 20 B2 20 24 42 |.x.OVERFLOW . $B| 00000050: 39 37 45 20 3B 20 4F 56 45 52 46 4C 4F 57 20 45 |97E ; OVERFLOW E| 00000060: 52 52 B0 00 8A 08 82 00 49 4C 4C 51 55 41 4E 20 |RR......ILLQUAN | 00000070: B2 20 24 42 32 34 38 20 3B 20 49 4C 4C 45 47 41 |. $B248 ; ILLEGA| 00000080: 4C 20 51 55 41 4E 54 49 54 59 00 90 08 8C 00 3B |L QUANTITY.....;| 00000090: 00 B3 08 96 00 46 41 43 4D 45 4D 20 B2 20 24 42 |.....FACMEM . $B| 000000A0: 42 44 34 20 3B 20 46 41 43 20 B6 50 45 49 43 48 |BD4 ; FAC .PEICH| 000000B0: 45 52 4E 00 D2 08 A0 00 4D 45 4D 46 41 43 20 B2 |ERN.....MEMFAC .| 000000C0: 20 24 42 42 41 32 20 3B 20 46 41 43 20 4C 41 44 | $BBA2 ; FAC LAD| 000000D0: 45 4E 00 03 09 AA 00 56 45 52 47 4C 43 48 20 B2 |EN.....VERGLCH .| 000000E0: 20 24 42 43 35 42 20 3B 20 4B 91 53 C0 54 45 20 | $BC5B ; K.S.TE | 000000F0: 4D 49 54 20 46 41 43 20 56 45 52 47 4C 45 49 43 |MIT FAC VERGLEIC| 00000100: 48 45 4E 00 29 09 B4 00 4D 45 4D 50 4C 55 53 20 |HEN.)...MEMPLUS | 00000110: B2 20 24 42 38 36 37 20 3B 20 4B 91 53 C0 54 45 |. $B867 ; K.S.TE| 00000120: 20 50 4C 55 53 20 46 41 43 00 4E 09 BE 00 4D 45 | PLUS FAC.N...ME| 00000130: 4D 4D 55 4C 54 20 B2 20 24 42 41 32 38 20 3B 20 |MMULT . $BA28 ; | 00000140: 4B 91 53 C0 54 45 20 4D 41 4C 20 46 41 43 00 76 |K.S.TE MAL FAC.v| 00000150: 09 C8 00 50 4F 4C 59 4E 4F 4D 20 B2 20 24 45 30 |...POLYNOM . $E0| 00000160: 35 39 20 3B 20 50 4F 4C 59 4E 4F 4D 42 45 52 45 |59 ; POLYNOMBERE| 00000170: 43 48 4E 55 4E 47 00 91 09 D2 00 53 49 47 4E 20 |CHNUNG.....SIGN | 00000180: B2 20 24 36 36 20 3B 20 56 B0 5A 45 49 43 48 45 |. $66 ; V.ZEICHE| 00000190: 4E 00 A5 09 DC 00 BD 20 B2 20 24 36 31 20 3B 20 |N...... . $61 ; | 000001A0: BD 91 45 4E 54 00 AB 09 E6 00 3B 00 B8 09 F0 00 |..ENT.....;.....| 000001B0: AC B2 20 53 54 41 52 54 00 C8 09 FA 00 4C 44 58 |.. START.....LDX| 000001C0: 20 23 B3 20 54 45 4D 50 00 D8 09 04 01 4C 44 59 | #. TEMP.....LDY| 000001D0: 20 23 B1 20 54 45 4D 50 00 01 0A 0E 01 4A 53 52 | #. TEMP.....JSR| 000001E0: 20 46 41 43 4D 45 4D 20 3B 20 46 41 43 20 4E 41 | FACMEM ; FAC NA| 000001F0: 43 48 20 54 45 4D 50 20 53 50 45 49 43 48 45 52 |CH TEMP SPEICHER| 00000200: 4E 00 07 0A 18 01 3B 00 27 0A 22 01 42 49 54 20 |N.....;.'.".BIT | 00000210: 53 49 47 4E 20 3B 20 56 B0 5A 45 49 43 48 45 4E |SIGN ; V.ZEICHEN| 00000220: 20 54 45 53 54 45 4E 00 3B 0A 2C 01 42 50 4C 20 | TESTEN.;.,.BPL | 00000230: 4F 4B 31 20 3B 20 B9 49 54 49 56 00 4B 0A 36 01 |OK1 ; .ITIV.K.6.| 00000240: 4A 4D 50 20 49 4C 4C 51 55 41 4E 00 5E 0A 40 01 |JMP ILLQUAN.^.@.| 00000250: 4F 4B 31 20 4C 44 41 20 23 B3 20 4D 41 58 00 84 |OK1 LDA #. MAX..| 00000260: 0A 4A 01 4C 44 59 20 23 B1 20 4D 41 58 20 3B 20 |.J.LDY #. MAX ; | 00000270: 5A 45 49 47 45 52 20 41 55 46 20 4B 91 53 C0 54 |ZEIGER AUF K.S.T| 00000280: 45 20 33 34 00 94 0A 54 01 4A 53 52 20 56 45 52 |E 34...T.JSR VER| 00000290: 47 4C 43 48 00 AA 0A 5E 01 42 4D 49 20 4F 4B 32 |GLCH...^.BMI OK2| 000002A0: 20 3B 20 4B 4C 45 49 4E 45 52 00 BB 0A 68 01 4A | ; KLEINER...h.J| 000002B0: 4D 50 20 4F 56 45 52 46 4C 4F 57 00 D3 0A 72 01 |MP OVERFLOW...r.| 000002C0: 4F 4B 32 20 4C 44 41 20 BD 20 3B 20 46 41 43 20 |OK2 LDA . ; FAC | 000002D0: B2 20 30 00 ED 0A 7C 01 42 45 51 20 47 4C 43 48 |. 0...|.BEQ GLCH| 000002E0: 45 49 4E 53 20 3B 20 44 41 4E 4E 20 31 00 FD 0A |EINS ; DANN 1...| 000002F0: 86 01 4C 44 41 20 23 B3 20 45 49 4E 53 00 0D 0B |..LDA #. EINS...| 00000300: 90 01 4C 44 59 20 23 B1 20 45 49 4E 53 00 34 0B |..LDY #. EINS.4.| 00000310: 9A 01 4A 53 52 20 56 45 52 47 4C 43 48 20 3B 20 |..JSR VERGLCH ; | 00000320: 4D 49 54 20 45 49 4E 53 20 56 45 52 47 4C 45 49 |MIT EINS VERGLEI| 00000330: 43 48 45 4E 00 44 0B A4 01 42 4D 49 20 4B 4C 45 |CHEN.D...BMI KLE| 00000340: 49 4E 45 52 00 5E 0B AE 01 53 43 48 4C 45 8B 45 |INER.^...SCHLE.E| 00000350: 20 4C 44 41 20 23 B3 20 4D 49 4E 55 53 31 00 70 | LDA #. MINUS1.p| 00000360: 0B B8 01 4C 44 59 20 23 B1 20 4D 49 4E 55 53 31 |...LDY #. MINUS1| 00000370: 00 80 0B C2 01 4A 53 52 20 4D 45 4D 50 4C 55 53 |.....JSR MEMPLUS| 00000380: 00 90 0B CC 01 4C 44 41 20 23 B3 20 45 49 4E 53 |.....LDA #. EINS| 00000390: 00 A0 0B D6 01 4C 44 59 20 23 B1 20 45 49 4E 53 |.....LDY #. EINS| 000003A0: 00 C7 0B E0 01 4A 53 52 20 56 45 52 47 4C 43 48 |.....JSR VERGLCH| 000003B0: 20 3B 20 4D 49 54 20 45 49 4E 53 20 56 45 52 47 | ; MIT EINS VERG| 000003C0: 4C 45 49 43 48 45 4E 00 E7 0B EA 01 42 4D 49 20 |LEICHEN.....BMI | 000003D0: 82 20 3B 20 4E 49 43 48 54 20 4D 45 48 52 20 47 |. ; NICHT MEHR G| 000003E0: 52 4F 45 53 53 45 52 00 F8 0B F4 01 4C 44 58 20 |ROESSER.....LDX | 000003F0: 23 B3 20 54 45 4D 50 32 00 09 0C FE 01 4C 44 59 |#. TEMP2.....LDY| 00000400: 20 23 B1 20 54 45 4D 50 32 00 30 0C 08 02 4A 53 | #. TEMP2.0...JS| 00000410: 52 20 46 41 43 4D 45 4D 20 3B 20 46 41 43 20 5A |R FACMEM ; FAC Z| 00000420: 57 49 53 43 48 45 4E 53 50 45 49 43 48 45 52 4E |WISCHENSPEICHERN| 00000430: 00 40 0C 12 02 4C 44 41 20 23 B3 20 54 45 4D 50 |.@...LDA #. TEMP| 00000440: 00 50 0C 1C 02 4C 44 59 20 23 B1 20 54 45 4D 50 |.P...LDY #. TEMP| 00000450: 00 6D 0C 26 02 4A 53 52 20 4D 45 4D 4D 55 4C 54 |.m.&.JSR MEMMULT| 00000460: 20 3B 20 46 41 43 20 AC 20 54 45 4D 50 00 7D 0C | ; FAC . TEMP.}.| 00000470: 30 02 4C 44 58 20 23 B3 20 54 45 4D 50 00 8D 0C |0.LDX #. TEMP...| 00000480: 3A 02 4C 44 59 20 23 B1 20 54 45 4D 50 00 B8 0C |:.LDY #. TEMP...| 00000490: 44 02 4A 53 52 20 46 41 43 4D 45 4D 20 3B 20 45 |D.JSR FACMEM ; E| 000004A0: 52 47 45 42 4E 49 53 20 57 49 45 44 45 52 20 4E |RGEBNIS WIEDER N| 000004B0: 41 43 48 20 54 45 4D 50 00 C9 0C 4E 02 4C 44 41 |ACH TEMP...N.LDA| 000004C0: 20 23 B3 20 54 45 4D 50 32 00 DA 0C 58 02 4C 44 | #. TEMP2...X.LD| 000004D0: 59 20 23 B1 20 54 45 4D 50 32 00 F9 0C 62 02 4A |Y #. TEMP2...b.J| 000004E0: 53 52 20 4D 45 4D 46 41 43 20 3B 20 46 41 43 20 |SR MEMFAC ; FAC | 000004F0: 57 49 45 44 45 52 48 4F C3 00 09 0D 6C 02 4A 4D |WIEDERHO....l.JM| 00000500: 50 20 53 43 48 4C 45 8B 45 00 0F 0D 76 02 3B 00 |P SCHLE.E...v.;.| 00000510: 21 0D 80 02 82 20 4C 44 41 20 23 B3 20 45 49 4E |!.... LDA #. EIN| 00000520: 53 00 31 0D 8A 02 4C 44 59 20 23 B1 20 45 49 4E |S.1...LDY #. EIN| 00000530: 53 00 4F 0D 94 02 4A 53 52 20 56 45 52 47 4C 43 |S.O...JSR VERGLC| 00000540: 48 20 3B 20 49 53 54 20 46 41 43 20 B2 20 31 00 |H ; IST FAC . 1.| 00000550: 5E 0D 9E 02 42 4E 45 20 57 45 49 54 45 52 00 64 |^...BNE WEITER.d| 00000560: 0D A8 02 3B 00 74 0D B2 02 4C 44 41 20 23 B3 20 |...;.t...LDA #. | 00000570: 54 45 4D 50 00 84 0D BC 02 4C 44 59 20 23 B1 20 |TEMP.....LDY #. | 00000580: 54 45 4D 50 00 A2 0D C6 02 4A 4D 50 20 4D 45 4D |TEMP.....JMP MEM| 00000590: 46 41 43 20 3B 20 4E 41 43 48 20 46 41 43 20 48 |FAC ; NACH FAC H| 000005A0: 4F C3 00 A8 0D D0 02 3B 00 D0 0D DA 02 57 45 49 |O......;.....WEI| 000005B0: 54 45 52 20 4A 53 52 20 50 4F 4C 59 20 3B 20 50 |TER JSR POLY ; P| 000005C0: 4F 4C 59 4E 4F 4D 20 42 45 52 45 43 48 4E 45 4E |OLYNOM BERECHNEN| 000005D0: 00 E0 0D E4 02 4C 44 41 20 23 B3 20 54 45 4D 50 |.....LDA #. TEMP| 000005E0: 00 F0 0D EE 02 4C 44 59 20 23 B1 20 54 45 4D 50 |.....LDY #. TEMP| 000005F0: 00 00 0E F8 02 4A 4D 50 20 4D 45 4D 4D 55 4C 54 |.....JMP MEMMULT| 00000600: 00 06 0E 02 03 3B 00 1F 0E 0C 03 47 4C 43 48 45 |.....;.....GLCHE| 00000610: 49 4E 53 20 4C 44 41 20 23 B3 20 45 49 4E 53 00 |INS LDA #. EINS.| 00000620: 2F 0E 16 03 4C 44 59 20 23 B1 20 45 49 4E 53 00 |/...LDY #. EINS.| 00000630: 49 0E 20 03 4A 4D 50 20 4D 45 4D 46 41 43 20 3B |I. .JMP MEMFAC ;| 00000640: 20 31 20 49 4E 20 46 41 43 00 4F 0E 2A 03 3B 00 | 1 IN FAC.O.*.;.| 00000650: 76 0E 34 03 4B 4C 45 49 4E 45 52 20 4A 4D 50 20 |v.4.KLEINER JMP | 00000660: 50 4F 4C 59 20 3B 20 46 41 43 20 B2 20 50 4F 4C |POLY ; FAC . POL| 00000670: 59 28 46 41 43 29 00 7C 0E 3E 03 3B 00 A3 0E 48 |Y(FAC).|.>.;...H| 00000680: 03 3B 20 50 4F 4C 59 4E 4F 4D 20 5A 55 52 20 46 |.; POLYNOM ZUR F| 00000690: 41 4B 55 4C 54 41 45 54 AB 42 45 52 45 43 48 4E |AKULTAET.BERECHN| 000006A0: 55 4E 47 00 A9 0E 52 03 3B 00 BF 0E 5C 03 50 4F |UNG...R.;...\.PO| 000006B0: 4C 59 20 4C 44 41 20 23 B3 20 4B 4F 45 46 46 00 |LY LDA #. KOEFF.| 000006C0: D0 0E 66 03 4C 44 59 20 23 B1 20 4B 4F 45 46 46 |..f.LDY #. KOEFF| 000006D0: 00 E0 0E 70 03 4A 4D 50 20 50 4F 4C 59 4E 4F 4D |...p.JMP POLYNOM| 000006E0: 00 E6 0E 7A 03 3B 00 0A 0F 84 03 4B 4F 45 46 46 |...z.;.....KOEFF| 000006F0: 20 2E 42 59 54 20 38 20 3B 20 50 4F 4C 59 4E 4F | .BYT 8 ; POLYNO| 00000700: 4D 20 38 2E 47 52 41 44 45 53 00 1E 0F 8E 03 2E |M 8.GRADES......| 00000710: 46 4C 50 20 2E 30 33 35 38 36 38 33 34 33 00 33 |FLP .035868343.3| 00000720: 0F 98 03 2E 46 4C 50 20 AB 2E 31 39 33 35 32 37 |....FLP ..193527| 00000730: 38 31 38 00 47 0F A2 03 2E 46 4C 50 20 2E 34 38 |818.G....FLP .48| 00000740: 32 31 39 39 33 39 34 00 5C 0F AC 03 2E 46 4C 50 |2199394.\....FLP| 00000750: 20 AB 2E 37 35 36 37 30 34 30 37 38 00 70 0F B6 | ..756704078.p..| 00000760: 03 2E 46 4C 50 20 2E 39 31 38 32 30 36 38 35 37 |..FLP .918206857| 00000770: 00 85 0F C0 03 2E 46 4C 50 20 AB 2E 38 39 37 30 |......FLP ..8970| 00000780: 35 36 39 33 37 00 99 0F CA 03 2E 46 4C 50 20 2E |56937......FLP .| 00000790: 39 38 38 32 30 36 38 39 31 00 AE 0F D4 03 2E 46 |988206891......F| 000007A0: 4C 50 20 AB 2E 35 37 37 31 39 31 36 35 32 00 B4 |LP ..577191652..| 000007B0: 0F DE 03 3B 00 D5 0F E8 03 3B 20 57 45 49 54 45 |...;.....; WEITE| 000007C0: 52 45 20 46 4C 49 45 53 53 4B 4F 4D 4D 41 4B 91 |RE FLIESSKOMMAK.| 000007D0: 53 C0 54 45 4E 00 E5 0F F2 03 45 49 4E 53 20 2E |S.TEN.....EINS .| 000007E0: 46 4C 50 20 31 00 F8 0F FC 03 4D 49 4E 55 53 31 |FLP 1.....MINUS1| 000007F0: 20 2E 46 4C 50 20 AB 31 00 08 10 06 04 4D 41 58 | .FLP .1.....MAX| 00000800: 20 2E 46 4C 50 20 33 34 00 0E 10 10 04 3B 00 3A | .FLP 34.....;.:| 00000810: 10 1A 04 3B 20 53 50 45 49 43 48 45 52 50 4C 41 |...; SPEICHERPLA| 00000820: 54 5A 20 46 55 45 52 20 54 45 4D 50 B0 41 45 52 |TZ FUER TEMP.AER| 00000830: 45 20 56 41 52 49 41 42 4C 45 00 4A 10 24 04 54 |E VARIABLE.J.$.T| 00000840: 45 4D 50 20 AC B2 20 AC AA 35 00 5B 10 2E 04 54 |EMP .. ..5.[...T| 00000850: 45 4D 50 32 20 AC B2 20 AC AA 35 00 00 00 |EMP2 .. ..5... |
....Z.. 8.4096...D..OPT P,OO.>.N.START . 828 ; KASSETTENPUFFER.C.X.OVERFLOW . $B 97E ; OVERFLOW ERR......ILLQUAN . $B248 ; ILLEGAL QUANTITY.....;.....FACMEM . $B BD4 ; FAC .PEICHERN.R. .MEMFAC . $BBA2 ; FAC LADEN.....VERGLCH . $BC5B ; K.S.TE MIT FAC VERGLEICHEN.)...MEMPLUS . $B867 ; K.S.TE PLUS FAC.N...MEMMULT . $BA28 ; K.S.TE MAL FAC.V.H.POLYNOM . $E059 ; POL YNOMBERECHNUNG...R.SIGN . $66 ; V.ZEICHE N...... . $61 ; ..ENT.....;....... START .H...LDX #. TEMP.X...LDY #. TEMP.....JSR FACMEM ; FAC NACH TEMP SPEICHERN.....;. '.".BIT SIGN ; V.ZEICHEN TESTEN.;.,.BPL OK1 ; .ITIV.K.6.JMP ILLQUAN.^.@.OK1 LDA #. MAX...J.LDY #. MAX ; ZEIGER AUF K.S.T E 34...T.JSR VERGLCH...^.BMI OK2 ; KLEIN ER...H.JMP OVERFLOW.S.R.OK2 LDA . ; FAC . 0...|.BEQ GLCHEINS ; DANN 1.....LDA #. EINS.....LDY #. EINS.4...JSR VERGLCH ; MIT EINS VERGLEICHEN.D...BMI KLEINER.^.. .SCHLE.E LDA #. MINUS1.P...LDY #. MINUS1 ...B.JSR MEMPLUS...L.LDA #. EINS. .V.LDY #. EINS.G...JSR VERGLCH ; MIT EINS VERG LEICHEN.....BMI . ; NICHT MEHR GROESSER. ....LDX #. TEMP2.....LDY #. TEMP2.0...JS R FACMEM ; FAC ZWISCHENSPEICHERN.@...LDA #. TEMP.P...LDY #. TEMP.M.&.JSR MEMMULT ; FAC . TEMP.}.0.LDX #. TEMP...:.LDY #. TEMP...D.JSR FACMEM ; ERGEBNIS WIEDER N ACH TEMP.I.N.LDA #. TEMP2.Z.X.LDY #. TEM P2...B.JSR MEMFAC ; FAC WIEDERHOC...L.JM P SCHLE.E...V.;.!.... LDA #. EINS.1...LD Y #. EINS.O...JSR VERGLCH ; IST FAC . 1. ^...BNE WEITER.D...;.T...LDA #. TEMP.... .LDY #. TEMP...F.JMP MEMFAC ; NACH FAC H OC...P.;.P.Z.WEITER JSR POLY ; POLYNOM B ERECHNEN.....LDA #. TEMP.....LDY #. TEMP .....JMP MEMMULT.....;.....GLCHEINS LDA #. EINS./...LDY #. EINS.I. .JMP MEMFAC ; 1 IN FAC.O.*.;.V.4.KLEINER JMP POLY ; F AC . POLY(FAC).|.>.;...H.; POLYNOM ZUR F AKULTAET.BERECHNUNG...R.;...\.POLY LDA # . KOEFF.P.F.LDY #. KOEFF...P.JMP POLYNOM ...Z.;.....KOEFF .BYT 8 ; POLYNOM 8.GRAD ES......FLP .035868343.3....FLP ..193527 818.G....FLP .482199394.\....FLP ..75670 4078.P....FLP .918206857......FLP ..8970 56937...J..FLP .988206891...T..FLP ..577 191652.....;.U...; WEITERE FLIESSKOMMAK. S.TEN.....EINS .FLP 1.....MINUS1 .FLP .1 .....MAX .FLP 34.....;.:...; SPEICHERPLA TZ FUER TEMP.AERE VARIABLE.J.$.TEMP .. . .5.[...TEMP2 .. ..5...
> CLICK IMAGE PREVIEW FOR FULL MODAL