_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

FAC-FKT-BEISPIEL

FILE INFORMATION

FILENAME(S): FAC-FKT-BEISPIEL

FILE TYPE(S): PRG

FILE SIZE: 482b

FIRST SEEN: 2025-11-30 01:13:10

APPEARS ON: 1 disk(s)

FILE HASH

e13c288f025fc5070f12037aed26a50bb18c49816f5ff9688f93797bc4b90ef2

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
10907 SEITE A FAC-FKT-BEISPIEL PRG C64er, DuncanTwain 28 12 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 21 08 0A 00 8F 20  2A 2A 2A 20 46 55 4E 43  |..!.... *** FUNC|
00000010: 54 49 4F 4E 2D 42 45 49  53 50 49 45 4C 20 2A 2A  |TION-BEISPIEL **|
00000020: 2A 00 41 08 0B 00 8F 20  20 22 46 41 43 28 58 29  |*.A....  "FAC(X)|
00000030: 22 20 47 49 42 54 20 44  49 45 20 41 4E 20 44 45  |" GIBT DIE AN DE|
00000040: 52 00 5C 08 0C 00 8F 20  20 41 44 52 45 53 53 45  |R.\....  ADRESSE|
00000050: 20 58 20 41 42 47 45 4C  45 47 54 45 00 77 08 0D  | X ABGELEGTE.w..|
00000060: 00 8F 20 20 46 4C 49 45  53 53 4B 4F 4D 4D 41 5A  |..  FLIESSKOMMAZ|
00000070: 41 48 4C 20 41 55 53 00  92 08 14 00 9E 20 39 AC  |AHL AUS...... 9.|
00000080: 34 30 39 36 3A 2E 4F 50  54 20 4F 4F 3A AC B2 38  |4096:.OPT OO:..8|
00000090: 32 38 00 A4 08 16 00 2E  C6 20 22 50 52 4F 47 52  |28....... "PROGR|
000000A0: 41 4D 3A 22 00 B0 08 18  00 2E 57 B0 44 20 80 45  |AM:"......W.D .E|
000000B0: 00 C9 08 19 00 3B 20 41  52 47 55 4D 45 4E 54 20  |.....; ARGUMENT |
000000C0: 4C 49 45 47 54 20 5A 55  4D 00 EB 08 1A 00 3B 20  |LIEGT ZUM.....; |
000000D0: 46 55 4E 4B 54 49 91 53  41 55 46 52 55 46 20 49  |FUNKTI.SAUFRUF I|
000000E0: 4D 20 46 2E 41 2E 43 2E  20 56 B0 00 12 09 1E 00  |M F.A.C. V......|
000000F0: 4A 53 52 20 24 42 43 39  42 3B 20 46 2E 41 2E 43  |JSR $BC9B; F.A.C|
00000100: 2E 20 AB B1 20 B5 45 47  45 52 20 24 36 34 AD 24  |. .. .EGER $64.$|
00000110: 36 35 00 38 09 28 00 4C  44 41 20 24 36 35 3A 4C  |65.8.(.LDA $65:L|
00000120: 44 59 20 24 36 34 3B 20  41 44 52 45 53 53 45 20  |DY $64; ADRESSE |
00000130: 4E 41 43 48 20 41 AD 59  00 61 09 32 00 4A 53 52  |NACH A.Y.a.2.JSR|
00000140: 20 24 42 42 41 32 3B 4B  91 53 C0 54 45 20 41 55  | $BBA2;K.S.TE AU|
00000150: 53 20 41 AD 59 20 4E 41  43 48 20 46 2E 41 2E 43  |S A.Y NACH F.A.C|
00000160: 2E 00 69 09 3C 00 52 54  53 00 74 09 41 00 80 45  |..i.<.RTS.t.A..E|
00000170: 20 4E 4F 50 00 7D 09 46  00 2E 80 3A 80 00 90 09  | NOP.}.F...:....|
00000180: 50 00 D0 3A CD 22 46 41  43 22 2C 31 2C 38 32 38  |P..:."FAC",1,828|
00000190: 00 B1 09 64 00 8F 20 2A  2A 2A 20 49 4E 20 34 34  |...d.. *** IN 44|
000001A0: 37 31 32 3D 24 41 45 41  38 20 49 53 54 20 2A 2A  |712=$AEA8 IST **|
000001B0: 2A 00 CD 09 65 00 8F 20  2A 2A 2A 20 20 20 50 49  |*...e.. ***   PI|
000001C0: 20 41 42 47 45 4C 45 47  54 20 2A 2A 2A 00 DD 09  | ABGELEGT ***...|
000001D0: 6E 00 99 20 FE 20 28 34  34 37 31 32 29 00 00 00  |n.. . (44712)...|
000001E0: 4C 03                                             |L.              |
..!.... *** FUNCTION-BEISPIEL ***.A.... 
 "FAC(X)" GIBT DIE AN DER.\....  ADRESSE
 X ABGELEGTE.W....  FLIESSKOMMAZAHL AUS.
..... 9.4096:.OPT OO:..828......F "PROGR
AM:"......W.D .E.I...; ARGUMENT LIEGT ZU
M.....; FUNKTI.SAUFRUF IM F.A.C. V......
JSR $BC9B; F.A.C. .. .EGER $64.$65.8.(.L
DA $65:LDY $64; ADRESSE NACH A.Y.A.2.JSR
 $BBA2;K.S.TE AUS A.Y NACH F.A.C..I.<.RT
S.T.A..E NOP.}.F...:....P.P:M"FAC",1,828
...D.. *** IN 44712=$AEA8 IST ***.M.E.. 
***   PI ABGELEGT ***...N.. . (44712)...
L.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL