ARCFUNCTIONS
FILE INFORMATION
FILENAME(S): ARCFUNCTIONS
FILE TYPE(S): PRG
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
fc74caaa739c136015f5db44a059bf7c9cc28d4f0df9722ed9fcfeb6e7add700
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | ARCFUNCTIONS | PRG | DuncanTwain | 26 | 6 | DOWNLOAD FILE |
| RANS ISK2 | ARCFUNCTIONS | PRG | DuncanTwain | 9 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 41 52 43 46 55 4E 43 54 |..).... ARCFUNCT| 00000010: 49 4F 4E 53 20 28 43 2E 20 4B 4C 55 45 50 46 45 |IONS (C. KLUEPFE| 00000020: 4C 20 33 2F 38 35 29 20 3A 00 2F 08 01 00 3A 00 |L 3/85) :./...:.| 00000030: 4F 08 02 00 8F 20 30 20 53 54 41 54 45 4D 45 4E |O.... 0 STATEMEN| 00000040: 54 53 2C 20 32 20 46 55 4E 43 54 49 4F 4E 53 00 |TS, 2 FUNCTIONS.| 00000050: 55 08 03 00 3A 00 6C 08 04 00 8F 20 4B 45 59 57 |U...:.l.... KEYW| 00000060: 4F 52 44 20 43 48 41 52 53 3A 20 38 00 72 08 05 |ORD CHARS: 8.r..| 00000070: 00 3A 00 96 08 06 00 8F 20 4B 45 59 57 4F 52 44 |.:...... KEYWORD| 00000080: 20 20 20 52 4F 55 54 49 4E 45 20 4C 49 4E 45 20 | ROUTINE LINE | 00000090: 20 20 53 45 52 23 00 B9 08 07 00 8F 20 46 2F 41 | SER#...... F/A| 000000A0: 53 4E 28 20 20 20 20 41 53 49 4E 20 20 20 20 36 |SN( ASIN 6| 000000B0: 35 34 38 20 20 20 30 38 32 00 DC 08 08 00 8F 20 |548 082...... | 000000C0: 46 2F 41 43 53 28 20 20 20 20 41 43 4F 53 20 20 |F/ACS( ACOS | 000000D0: 20 20 36 36 37 30 20 20 20 30 38 33 00 E2 08 09 | 6670 083....| 000000E0: 00 3A 00 09 09 0A 00 8F 20 3D 3D 3D 3D 3D 3D 3D |.:...... =======| 000000F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================| 00000100: 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 0F 09 0B 00 3A 00 |=========.....:.| 00000110: 27 09 67 02 2E C6 20 22 41 53 4E 22 3A 20 2E 42 |'.g... "ASN": .B| 00000120: 59 54 45 20 24 41 38 00 3E 09 68 02 2E C6 20 22 |YTE $A8.>.h... "| 00000130: 41 43 53 22 3A 2E 42 59 54 45 20 24 41 38 00 4C |ACS":.BYTE $A8.L| 00000140: 09 4F 06 2E 57 B0 44 20 41 BF AB 31 00 5A 09 50 |.O..W.D A..1.Z.P| 00000150: 06 2E 57 B0 44 20 41 BE AB 31 00 6C 09 94 19 41 |..W.D A..1.l...A| 00000160: BF 20 4C 44 41 20 23 32 20 20 20 20 00 7A 09 96 |. LDA #2 .z..| 00000170: 19 4A 53 52 20 24 41 33 46 42 00 8E 09 98 19 4A |.JSR $A3FB.....J| 00000180: 53 52 20 24 37 39 20 20 20 20 20 20 20 20 00 A2 |SR $79 ..| 00000190: 09 9A 19 4A 53 52 20 24 41 45 46 34 20 20 20 20 |...JSR $AEF4 | 000001A0: 20 20 00 B6 09 9C 19 4A 53 52 20 24 41 44 38 44 | .....JSR $AD8D| 000001B0: 20 20 20 20 20 20 00 CA 09 9E 19 4C 44 41 20 24 | .....LDA $| 000001C0: 36 36 20 20 20 20 20 20 20 20 00 D2 09 A0 19 50 |66 .....P| 000001D0: 48 41 00 E6 09 A2 19 4C 44 41 20 23 30 20 20 20 |HA.....LDA #0 | 000001E0: 20 20 20 20 20 20 00 F2 09 A4 19 53 54 41 20 24 | .....STA $| 000001F0: 36 36 00 06 0A A6 19 4C 44 41 20 23 B3 24 42 39 |66.....LDA #.$B9| 00000200: 42 43 20 20 20 20 00 16 0A A8 19 4C 44 59 20 23 |BC .....LDY #| 00000210: B1 24 42 39 42 43 00 2A 0A AA 19 4A 53 52 20 24 |.$B9BC.*...JSR $| 00000220: 42 43 35 42 20 20 20 20 20 20 00 3E 0A AC 19 42 |BC5B .>...B| 00000230: 45 51 20 41 53 49 31 20 20 20 20 20 20 20 00 52 |EQ ASI1 .R| 00000240: 0A AE 19 42 4D 49 20 41 53 49 33 20 20 20 20 20 |...BMI ASI3 | 00000250: 20 20 00 66 0A B0 19 4C 44 41 20 23 30 20 20 20 | .f...LDA #0 | 00000260: 20 20 20 20 20 20 00 7A 0A B2 19 53 54 41 20 24 | .z...STA $| 00000270: 36 35 20 20 20 20 20 20 20 20 00 8E 0A B4 19 53 |65 .....S| 00000280: 54 41 20 24 37 30 20 20 20 20 20 20 20 20 00 A2 |TA $70 ..| 00000290: 0A B6 19 4C 44 41 20 23 B3 24 42 39 42 43 20 20 |...LDA #.$B9BC | 000002A0: 20 20 00 B2 0A B8 19 4C 44 59 20 23 B1 24 42 39 | .....LDY #.$B9| 000002B0: 42 43 00 C0 0A BA 19 4A 53 52 20 24 42 43 35 42 |BC.....JSR $BC5B| 000002C0: 00 CD 0A BC 19 42 45 51 20 41 53 49 31 00 DA 0A |.....BEQ ASI1...| 000002D0: BE 19 42 4D 49 20 41 53 49 33 00 EE 0A C0 19 4A |..BMI ASI3.....J| 000002E0: 4D 50 20 24 42 32 34 38 20 20 20 20 20 20 00 04 |MP $B248 ..| 000002F0: 0B C2 19 41 53 49 31 20 4C 44 41 20 23 B3 24 45 |...ASI1 LDA #.$E| 00000300: 32 45 30 20 00 14 0B C4 19 4C 44 59 20 23 B1 24 |2E0 .....LDY #.$| 00000310: 45 32 45 30 00 28 0B C6 19 4A 53 52 20 24 42 42 |E2E0.(...JSR $BB| 00000320: 41 32 20 20 20 20 20 20 00 3C 0B C8 19 50 4C 41 |A2 .<...PLA| 00000330: 20 20 20 20 20 20 20 20 20 20 20 20 00 50 0B CA | .P..| 00000340: 19 53 54 41 20 24 36 36 20 20 20 20 20 20 20 20 |.STA $66 | 00000350: 00 5D 0B CC 19 41 53 49 32 20 52 54 53 00 71 0B |.]...ASI2 RTS.q.| 00000360: CE 19 41 53 49 33 20 50 4C 41 20 20 20 20 20 20 |..ASI3 PLA | 00000370: 20 00 7D 0B D0 19 53 54 41 20 24 36 36 00 91 0B | .}...STA $66...| 00000380: D2 19 4C 44 41 20 24 36 31 20 20 20 20 20 20 20 |..LDA $61 | 00000390: 20 00 A5 0B D4 19 42 45 51 20 41 53 49 32 20 20 | .....BEQ ASI2 | 000003A0: 20 20 20 20 20 00 B9 0B D6 19 4A 53 52 20 24 42 | .....JSR $B| 000003B0: 43 31 42 20 20 20 20 20 20 00 CD 0B D8 19 4C 44 |C1B .....LD| 000003C0: 41 20 23 33 20 20 20 20 20 20 20 20 20 00 DB 0B |A #3 ...| 000003D0: DA 19 4A 53 52 20 24 41 33 46 42 00 EF 0B DC 19 |..JSR $A3FB.....| 000003E0: 4C 44 58 20 23 35 20 20 20 20 20 20 20 20 20 00 |LDX #5 .| 000003F0: 02 0C DE 19 41 53 49 34 20 4C 44 41 20 24 36 31 |....ASI4 LDA $61| 00000400: 2C 58 00 0A 0C E0 19 50 48 41 00 12 0C E2 19 44 |,X.....PHA.....D| 00000410: 45 58 00 1F 0C E4 19 42 50 4C 20 41 53 49 34 00 |EX.....BPL ASI4.| 00000420: 33 0C E6 19 4A 53 52 20 24 42 43 30 43 20 20 20 |3...JSR $BC0C | 00000430: 20 20 20 00 47 0C E8 19 4A 53 52 20 46 4C 4D 55 | .G...JSR FLMU| 00000440: 4C 54 20 20 20 20 20 00 5B 0C EA 19 4C 44 41 20 |LT .[...LDA | 00000450: 23 B3 24 42 39 42 43 20 20 20 20 00 6B 0C EC 19 |#.$B9BC .k...| 00000460: 4C 44 59 20 23 B1 24 42 39 42 43 00 7F 0C EE 19 |LDY #.$B9BC.....| 00000470: 4A 53 52 20 24 42 38 35 30 20 20 20 20 20 20 00 |JSR $B850 .| 00000480: 93 0C F0 19 4A 53 52 20 24 42 46 37 31 20 20 20 |....JSR $BF71 | 00000490: 20 20 20 00 9E 0C F2 19 4C 44 58 20 23 30 00 B2 | .....LDX #0..| 000004A0: 0C F4 19 41 53 49 35 20 50 4C 41 20 20 20 20 20 |...ASI5 PLA | 000004B0: 20 20 00 C0 0C F6 19 53 54 41 20 24 36 39 2C 58 | .....STA $69,X| 000004C0: 00 C8 0C F8 19 49 4E 58 00 D3 0C FA 19 43 50 58 |.....INX.....CPX| 000004D0: 20 23 36 00 E0 0C FC 19 42 4E 45 20 41 53 49 35 | #6.....BNE ASI5| 000004E0: 00 F4 0C FE 19 50 48 41 20 20 20 20 20 20 20 20 |.....PHA | 000004F0: 20 20 20 20 00 08 0D 00 1A 4C 44 41 20 24 36 31 | .....LDA $61| 00000500: 20 20 20 20 20 20 20 20 00 1C 0D 02 1A 42 45 51 | .....BEQ| 00000510: 20 41 53 49 31 20 20 20 20 20 20 20 00 24 0D 04 | ASI1 .$..| 00000520: 1A 50 4C 41 00 38 0D 06 1A 4C 44 41 20 24 36 31 |.PLA.8...LDA $61| 00000530: 20 20 20 20 20 20 20 20 00 46 0D 08 1A 4A 53 52 | .F...JSR| 00000540: 20 46 4C 44 49 56 00 5A 0D 0A 1A 4A 4D 50 20 24 | FLDIV.Z...JMP $| 00000550: 45 33 30 45 20 20 20 20 20 20 00 60 0D 0C 1A 3B |E30E .`...;| 00000560: 00 70 0D 0E 1A 41 BE 20 4A 53 52 20 41 BF 20 20 |.p...A. JSR A. | 00000570: 00 84 0D 10 1A 4C 44 41 20 23 B3 24 45 32 45 30 |.....LDA #.$E2E0| 00000580: 20 20 20 20 00 94 0D 12 1A 4C 44 59 20 23 B1 24 | .....LDY #.$| 00000590: 45 32 45 30 00 A8 0D 14 1A 4A 4D 50 20 24 42 38 |E2E0.....JMP $B8| 000005A0: 35 30 20 20 20 20 20 20 00 AE 0D 16 1A 3B 00 C4 |50 .....;..| 000005B0: 0D 18 1A 46 4C 4D 55 4C 54 20 4A 53 52 20 43 91 |...FLMULT JSR C.| 000005C0: 44 53 47 20 00 DB 0D 1A 1A 4A 4D 50 20 24 42 41 |DSG .....JMP $BA| 000005D0: 32 42 20 20 20 20 20 20 20 20 20 00 E1 0D 1C 1A |2B .....| 000005E0: 3B 00 F7 0D 1E 1A 46 4C 44 49 56 20 4A 53 52 20 |;.....FLDIV JSR | 000005F0: 43 91 44 53 47 20 20 00 0E 0E 20 1A 4A 4D 50 20 |C.DSG ... .JMP | 00000600: 24 42 42 31 32 20 20 20 20 20 20 20 20 20 00 14 |$BB12 ..| 00000610: 0E 22 1A 3B 00 27 0E 24 1A 43 91 44 53 47 20 4C |.".;.'.$.C.DSG L| 00000620: 44 41 20 24 36 36 20 00 32 0E 26 1A 45 B0 20 24 |DA $66 .2.&.E. $| 00000630: 36 45 00 3E 0E 28 1A 53 54 41 20 24 36 46 00 4A |6E.>.(.STA $6F.J| 00000640: 0E 2A 1A 4C 44 41 20 24 36 31 00 52 0E 2C 1A 52 |.*.LDA $61.R.,.R| 00000650: 54 53 00 58 0E 2E 1A 3B 00 00 00 |TS.X...;... |
..).... ARCFUNCTIONS (C. KLUEPFEL 3/85)
:./...:.O.... 0 STATEMENTS, 2 FUNCTIONS.
U...:.L.... KEYWORD CHARS: 8.R...:......
KEYWORD ROUTINE LINE SER#...... F/A
SN( ASIN 6548 082...... F/ACS(
ACOS 6670 083.....:...... =======
=========================.....:.'.G..F "
ASN": .BYTE $A8.>.H..F "ACS":.BYTE $A8.L
.O..W.D A..1.Z.P..W.D A..1.L...A. LDA #2
.Z...JSR $A3FB.....JSR $79 ..
...JSR $AEF4 .....JSR $AD8D .J
...LDA $66 .R. .PHA.....LDA #0
.....STA $66.....LDA #.$B9BC ..
...LDY #.$B9BC.*...JSR $BC5B .>...B
EQ ASI1 .R...BMI ASI3 .F...L
DA #0 .Z...STA $65 .....S
TA $70 .....LDA #.$B9BC .....L
DY #.$B9BC.....JSR $BC5B.M...BEQ ASI1.Z.
..BMI ASI3.....JMP $B248 ...B.ASI1
LDA #.$E2E0 ...D.LDY #.$E2E0.(.F.JSR $BB
A2 .<.H.PLA .P.J.STA $66
.].L.ASI2 RTS.Q.N.ASI3 PLA
.}.P.STA $66...R.LDA $61 ...T.BE
Q ASI2 ...V.JSR $BC1B .M.X.LD
A #3 ...Z.JSR $A3FB.....LDX #5
.....ASI4 LDA $61,X.....PHA.....D
EX.....BPL ASI4.3...JSR $BC0C .G...
JSR FLMULT .[...LDA #.$B9BC .K...
LDY #.$B9BC....JSR $B850 .....JSR
$BF71 .....LDX #0.....ASI5 PLA
.....STA $69,X.H...INX.S...CPX #6.....
BNE ASI5.....PHA .....LDA $61
.....BEQ ASI1 .$...PLA.8..
.LDA $61 .F...JSR FLDIV.Z...JMP $
E30E .`...;.P...A. JSR A. .....LDA
#.$E2E0 .....LDY #.$E2E0.....JMP $B8
50 .....;.D...FLMULT JSR C.DSG ....
.JMP $BA2B .....;.....FLDIV JSR
C.DSG ... .JMP $BB12 ...".;.'.$
.C.DSG LDA $66 .2.&.E. $6E.>.(.STA $6F.J
.*.LDA $61.R.,.RTS.X...;...
> CLICK IMAGE PREVIEW FOR FULL MODAL