FAC1 FACTS.PAL
FILE INFORMATION
FILENAME(S): FAC1 FACTS.PAL
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
cbecb256548ff1b616dbfc35ee2e02784cac0a279a9bc4a69c0cb52aa846aa19
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | FAC1 FACTS.PAL | PRG | DuncanTwain | 28 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 64 00 8F 20 2A 2A 2A 20 20 20 20 46 |.. .d.. *** F| 00000010: 41 43 31 20 46 41 43 54 53 20 20 20 20 2A 2A 2A |AC1 FACTS ***| 00000020: 00 3F 08 6E 00 8F 20 2A 2A 2A 20 42 59 20 4A 4F |.?.n.. *** BY JO| 00000030: 48 4E 20 48 4F 55 47 48 54 4F 4E 20 2A 2A 2A 00 |HN HOUGHTON ***.| 00000040: 5E 08 78 00 8F 20 2A 2A 2A 20 43 4F 4C 4C 49 4E |^.x.. *** COLLIN| 00000050: 47 57 4F 4F 44 20 20 4F 4E 54 20 2A 2A 2A 00 7D |GWOOD ONT ***.}| 00000060: 08 82 00 8F 20 2A 2A 2A 20 20 20 41 55 47 55 53 |.... *** AUGUS| 00000070: 54 20 20 31 39 38 36 20 20 20 2A 2A 2A 00 83 08 |T 1986 ***...| 00000080: 8C 00 8F 00 99 08 96 00 8F 20 50 41 4C 20 53 4F |......... PAL SO| 00000090: 55 52 43 45 20 43 4F 44 45 00 9F 08 A0 00 8F 00 |URCE CODE.......| 000000A0: A8 08 AA 00 9E 37 30 30 00 AE 08 B4 00 3B 00 BA |.....700.....;..| 000000B0: 08 BE 00 2E 4F 50 54 20 4F 4F 00 C0 08 C8 00 3B |....OPT OO.....;| 000000C0: 00 CD 08 D2 00 AC B2 20 24 43 30 30 30 00 D3 08 |....... $C000...| 000000D0: DC 00 3B 00 F7 08 E6 00 3B 41 20 52 4F 55 54 49 |..;.....;A ROUTI| 000000E0: 4E 45 20 A4 20 44 45 4D 91 53 54 52 41 54 45 20 |NE . DEM.STRATE | 000000F0: 54 48 45 20 55 53 45 00 19 09 F0 00 3B 4F 46 20 |THE USE.....;OF | 00000100: 46 4C 4F 41 54 49 4E 47 20 50 4F B5 20 4E 55 4D |FLOATING PO. NUM| 00000110: 42 45 52 53 2C 20 54 48 45 00 36 09 FA 00 3B 41 |BERS, THE.6...;A| 00000120: 53 53 4F 43 49 41 54 45 44 20 46 4C 4F 41 54 49 |SSOCIATED FLOATI| 00000130: 4E 47 20 50 4F B5 00 57 09 04 01 3B 41 43 43 55 |NG PO..W...;ACCU| 00000140: 4D 55 4C 41 A4 52 53 20 AF 20 52 4F 4D 20 52 4F |MULA.RS . ROM RO| 00000150: 55 54 49 4E 45 53 2E 00 5D 09 0E 01 3B 00 6A 09 |UTINES..]...;.j.| 00000160: 18 01 4C 44 41 20 23 24 30 30 00 8B 09 22 01 53 |..LDA #$00...".S| 00000170: 54 41 20 43 4F 55 4E 54 20 20 20 20 20 20 20 3B |TA COUNT ;| 00000180: 43 4C 45 41 52 20 B5 45 47 45 52 00 A7 09 2C 01 |CLEAR .EGER...,.| 00000190: 53 54 41 20 43 4F 55 4E 54 AA 31 20 20 20 20 20 |STA COUNT.1 | 000001A0: 3B 53 A4 52 41 47 45 00 C6 09 36 01 4C 44 41 20 |;S.RAGE...6.LDA | 000001B0: 24 37 41 20 20 20 20 20 20 20 20 20 3B 53 A4 52 |$7A ;S.R| 000001C0: 45 20 43 48 52 A1 00 E0 09 40 01 53 54 41 20 A1 |E CHR....@.STA .| 000001D0: 4C 4F 20 20 20 20 20 20 20 3B 50 4F B5 45 52 53 |LO ;PO.ERS| 000001E0: 00 EC 09 4A 01 4C 44 41 20 24 37 42 00 F8 09 54 |...J.LDA $7B...T| 000001F0: 01 53 54 41 20 A1 48 49 00 18 0A 5E 01 4C 44 41 |.STA .HI...^.LDA| 00000200: 20 23 B3 42 55 46 46 52 31 20 20 20 20 3B 50 4F | #.BUFFR1 ;PO| 00000210: B5 20 43 48 52 A1 20 A4 00 38 0A 68 01 53 54 41 |. CHR. ..8.h.STA| 00000220: 20 24 37 41 20 20 20 20 20 20 20 20 20 3B 31 53 | $7A ;1S| 00000230: 54 20 4E 55 4D 42 45 52 00 49 0A 72 01 4C 44 41 |T NUMBER.I.r.LDA| 00000240: 20 23 B1 42 55 46 46 52 31 00 55 0A 7C 01 53 54 | #.BUFFR1.U.|.ST| 00000250: 41 20 24 37 42 00 75 0A 86 01 4A 53 52 20 24 30 |A $7B.u...JSR $0| 00000260: 30 37 39 20 20 20 20 20 20 20 3B 43 41 4C 4C 20 |079 ;CALL | 00000270: 43 48 52 CB 54 00 95 0A 90 01 4A 53 52 20 24 42 |CHR.T.....JSR $B| 00000280: 43 46 33 20 20 20 20 20 20 20 3B C6 49 49 20 A4 |CF3 ;.II .| 00000290: 20 46 41 43 31 00 B9 0A 9A 01 4A 53 52 20 24 42 | FAC1.....JSR $B| 000002A0: 42 43 41 20 20 20 20 20 20 20 3B 46 41 43 31 20 |BCA ;FAC1 | 000002B0: A4 20 4D 45 4D 20 24 35 37 00 D9 0A A4 01 4C 44 |. MEM $57.....LD| 000002C0: 41 20 23 B3 42 55 46 46 52 32 20 20 20 20 3B 50 |A #.BUFFR2 ;P| 000002D0: 4F B5 20 43 48 52 A1 20 A4 00 F9 0A AE 01 53 54 |O. CHR. ......ST| 000002E0: 41 20 24 37 41 20 20 20 20 20 20 20 20 20 3B 32 |A $7A ;2| 000002F0: 4E 44 20 4E 55 4D 42 45 52 00 0A 0B B8 01 4C 44 |ND NUMBER.....LD| 00000300: 41 20 23 B1 42 55 46 46 52 32 00 16 0B C2 01 53 |A #.BUFFR2.....S| 00000310: 54 41 20 24 37 42 00 36 0B CC 01 4A 53 52 20 24 |TA $7B.6...JSR $| 00000320: 30 30 37 39 20 20 20 20 20 20 20 3B 43 41 4C 4C |0079 ;CALL| 00000330: 20 43 48 52 CB 54 00 56 0B D6 01 4A 53 52 20 24 | CHR.T.V...JSR $| 00000340: 42 43 46 33 20 20 20 20 20 20 20 3B C6 49 49 20 |BCF3 ;.II | 00000350: A4 20 46 41 43 31 00 7A 0B E0 01 4A 53 52 20 24 |. FAC1.z...JSR $| 00000360: 42 42 43 37 20 20 20 20 20 20 20 3B 46 41 43 31 |BBC7 ;FAC1| 00000370: 20 A4 20 4D 45 4D 20 24 35 43 00 87 0B EA 01 4C | . MEM $5C.....L| 00000380: 44 41 20 23 24 35 37 00 94 0B F4 01 4C 44 59 20 |DA #$57.....LDY | 00000390: 23 24 30 30 00 BB 0B FE 01 4A 53 52 20 24 42 41 |#$00.....JSR $BA| 000003A0: 32 38 20 20 20 20 20 20 20 3B 24 35 37 20 A4 20 |28 ;$57 . | 000003B0: 46 41 43 32 20 26 20 4D 55 4C 54 00 DE 0B 08 02 |FAC2 & MULT.....| 000003C0: 4A 53 52 20 24 42 42 43 41 20 20 20 20 20 20 20 |JSR $BBCA | 000003D0: 3B 50 52 4F 44 55 43 54 20 A4 20 24 35 37 00 E4 |;PRODUCT . $57..| 000003E0: 0B 12 02 3B 00 F0 0B 1C 02 41 44 44 20 B2 20 AC |...;.....ADD . .| 000003F0: 00 FD 0B 26 02 4C 44 41 20 23 24 35 43 00 0A 0C |...&.LDA #$5C...| 00000400: 30 02 4C 44 59 20 23 24 30 30 00 2A 0C 3A 02 4A |0.LDY #$00.*.:.J| 00000410: 53 52 20 24 42 42 41 32 20 20 20 20 20 20 20 3B |SR $BBA2 ;| 00000420: 24 35 43 20 A4 20 46 41 43 31 00 4A 0C 44 02 4C |$5C . FAC1.J.D.L| 00000430: 44 58 20 24 36 31 20 20 20 20 20 20 20 20 20 3B |DX $61 ;| 00000440: BD 91 45 4E 54 20 46 41 43 31 00 6F 0C 4E 02 4A |..ENT FAC1.o.N.J| 00000450: 53 52 20 24 42 38 36 41 20 20 20 20 20 20 20 3B |SR $B86A ;| 00000460: 41 44 44 20 46 41 43 32 20 A4 20 46 41 43 31 00 |ADD FAC2 . FAC1.| 00000470: 8F 0C 58 02 4A 53 52 20 24 42 43 30 46 20 20 20 |..X.JSR $BC0F | 00000480: 20 20 20 20 3B 53 55 4D 20 A4 20 46 41 43 32 00 | ;SUM . FAC2.| 00000490: B2 0C 62 02 49 4E 43 20 43 4F 55 4E 54 20 20 20 |..b.INC COUNT | 000004A0: 20 20 20 20 3B 49 4E 43 20 4E 55 4D 42 45 52 20 | ;INC NUMBER | 000004B0: 4F 46 00 D0 0C 6C 02 42 4E 45 20 4E 45 58 20 20 |OF...l.BNE NEX | 000004C0: 20 20 20 20 20 20 20 3B 41 44 44 49 54 49 91 53 | ;ADDITI.S| 000004D0: 00 E0 0C 76 02 49 4E 43 20 43 4F 55 4E 54 AA 31 |...v.INC COUNT.1| 000004E0: 00 E6 0C 80 02 3B 00 F2 0C 8A 02 4E 45 58 20 B2 |.....;.....NEX .| 000004F0: 20 AC 00 FF 0C 94 02 4C 44 41 20 23 24 35 37 00 | ......LDA #$57.| 00000500: 0C 0D 9E 02 4C 44 59 20 23 24 30 30 00 34 0D A8 |....LDY #$00.4..| 00000510: 02 4A 53 52 20 24 42 43 35 42 20 20 20 20 20 20 |.JSR $BC5B | 00000520: 20 3B 43 4F 4D 50 41 52 45 20 53 55 4D 20 26 20 | ;COMPARE SUM & | 00000530: 50 52 4F 44 00 54 0D B2 02 42 4D 49 20 41 44 44 |PROD.T...BMI ADD| 00000540: 20 20 20 20 20 20 20 20 20 3B 46 41 43 31 20 B3 | ;FAC1 .| 00000550: 20 24 35 37 00 74 0D BC 02 4A 53 52 20 24 42 44 | $57.t...JSR $BD| 00000560: 44 44 20 20 20 20 20 20 20 3B 46 41 43 31 20 A4 |DD ;FAC1 .| 00000570: 20 C6 49 49 00 8F 0D C6 02 4A 53 52 20 24 41 42 | .II.....JSR $AB| 00000580: 31 45 20 20 20 20 20 20 20 3B 99 20 53 55 4D 00 |1E ;. SUM.| 00000590: 9C 0D D0 02 4C 44 41 20 23 24 30 44 00 AA 0D DA |....LDA #$0D....| 000005A0: 02 4A 53 52 20 24 46 46 44 32 00 B7 0D E4 02 4C |.JSR $FFD2.....L| 000005B0: 44 41 20 23 24 35 37 00 C4 0D EE 02 4C 44 59 20 |DA #$57.....LDY | 000005C0: 23 24 30 30 00 E4 0D F8 02 4A 53 52 20 24 42 42 |#$00.....JSR $BB| 000005D0: 41 32 20 20 20 20 20 20 20 3B 24 35 37 20 A4 20 |A2 ;$57 . | 000005E0: 46 41 43 31 00 04 0E 02 03 4A 53 52 20 24 42 44 |FAC1.....JSR $BD| 000005F0: 44 44 20 20 20 20 20 20 20 3B 46 41 43 31 20 A4 |DD ;FAC1 .| 00000600: 20 C6 49 49 00 23 0E 0C 03 4A 53 52 20 24 41 42 | .II.#...JSR $AB| 00000610: 31 45 20 20 20 20 20 20 20 3B 99 20 50 52 4F 44 |1E ;. PROD| 00000620: 55 43 54 00 30 0E 16 03 4C 44 41 20 23 24 30 44 |UCT.0...LDA #$0D| 00000630: 00 3E 0E 20 03 4A 53 52 20 24 46 46 44 32 00 5E |.>. .JSR $FFD2.^| 00000640: 0E 2A 03 4C 44 41 20 43 4F 55 4E 54 AA 31 20 20 |.*.LDA COUNT.1 | 00000650: 20 20 20 3B A1 20 43 4F 55 4E 54 20 4F 46 00 83 | ;. COUNT OF..| 00000660: 0E 34 03 4C 44 58 20 43 4F 55 4E 54 20 20 20 20 |.4.LDX COUNT | 00000670: 20 20 20 3B 41 44 44 49 54 49 91 53 20 43 91 56 | ;ADDITI.S C.V| 00000680: 45 52 54 00 A0 0E 3E 03 4A 53 52 20 24 42 44 43 |ERT...>.JSR $BDC| 00000690: 44 20 20 20 20 20 20 20 3B B5 20 A4 20 C6 49 49 |D ;. . .II| 000006A0: 00 BD 0E 48 03 4A 53 52 20 24 41 42 31 45 20 20 |...H.JSR $AB1E | 000006B0: 20 20 20 20 20 3B 99 20 43 4F 55 4E 54 00 C9 0E | ;. COUNT...| 000006C0: 52 03 4C 44 41 20 A1 4C 4F 00 E5 0E 5C 03 53 54 |R.LDA .LO...\.ST| 000006D0: 41 20 24 37 41 20 20 20 20 20 20 20 20 20 3B 8C |A $7A ;.| 000006E0: 20 43 48 52 A1 00 F1 0E 66 03 4C 44 41 20 A1 48 | CHR....f.LDA .H| 000006F0: 49 00 FD 0E 70 03 53 54 41 20 24 37 42 00 05 0F |I...p.STA $7B...| 00000700: 7A 03 52 54 53 00 0B 0F 84 03 3B 00 1C 0F 8E 03 |z.RTS.....;.....| 00000710: 43 4F 55 4E 54 20 AC B2 20 AC AA 32 00 2B 0F 98 |COUNT .. ..2.+..| 00000720: 03 A1 4C 4F 20 AC B2 20 AC AA 31 00 3A 0F A2 03 |..LO .. ..1.:...| 00000730: A1 48 49 20 AC B2 20 AC AA 31 00 40 0F AC 03 3B |.HI .. ..1.@...;| 00000740: 00 57 0F B6 03 42 55 46 46 52 31 20 2E C6 20 22 |.W...BUFFR1 .. "| 00000750: 31 30 2E 31 32 35 22 00 65 0F C0 03 2E 42 59 54 |10.125".e....BYT| 00000760: 45 20 24 30 30 00 6B 0F CA 03 3B 00 81 0F D4 03 |E $00.k...;.....| 00000770: 42 55 46 46 52 32 20 2E C6 20 22 36 2E 33 37 35 |BUFFR2 .. "6.375| 00000780: 22 00 8F 0F DE 03 2E 42 59 54 45 20 24 30 30 00 |"......BYTE $00.| 00000790: 00 00 |.. |
.. .D.. *** FAC1 FACTS ***.?.N.. *
** BY JOHN HOUGHTON ***.^.X.. *** COLLIN
GWOOD ONT ***.}.... *** AUGUST 1986
***............ PAL SOURCE CODE... ...
.....700.....;......OPT OO...H.;.M.R...
$C000.S...;.....;A ROUTINE . DEM.STRATE
THE USE.....;OF FLOATING PO. NUMBERS, TH
E.6...;ASSOCIATED FLOATING PO..W...;ACCU
MULA.RS . ROM ROUTINES..]...;.J...LDA #$
00...".STA COUNT ;CLEAR .EGER...,.
STA COUNT.1 ;S.RAGE.F.6.LDA $7A
;S.RE CHR....@.STA .LO ;PO.ERS
...J.LDA $7B...T.STA .HI...^.LDA #.BUFFR
1 ;PO. CHR. ..8.H.STA $7A ;1S
T NUMBER.I.R.LDA #.BUFFR1.U.|.STA $7B.U.
..JSR $0079 ;CALL CHRKT.....JSR $B
CF3 ;FII . FAC1.....JSR $BBCA
;FAC1 . MEM $57.Y...LDA #.BUFFR2 ;P
O. CHR. ......STA $7A ;2ND NUMBE
R.....LDA #.BUFFR2...B.STA $7B.6.L.JSR $
0079 ;CALL CHRKT.V.V.JSR $BCF3
;FII . FAC1.Z...JSR $BBC7 ;FAC1
. MEM $5C.....LDA #$57.....LDY #$00....
.JSR $BA28 ;$57 . FAC2 & MULT.....
JSR $BBCA ;PRODUCT . $57.....;....
.ADD . ....&.LDA #$5C...0.LDY #$00.*.:.J
SR $BBA2 ;$5C . FAC1.J.D.LDX $61
;..ENT FAC1.O.N.JSR $B86A ;
ADD FAC2 . FAC1...X.JSR $BC0F ;SUM
. FAC2...B.INC COUNT ;INC NUMBER
OF.P.L.BNE NEX ;ADDITI.S...V.INC
COUNT.1.....;.....NEX . ......LDA #$57.
....LDY #$00.4...JSR $BC5B ;COMPAR
E SUM & PROD.T...BMI ADD ;FAC1 .
$57.T...JSR $BDDD ;FAC1 . FII...F
.JSR $AB1E ;. SUM...P.LDA #$0D...Z
.JSR $FFD2.....LDA #$57.D...LDY #$00....
.JSR $BBA2 ;$57 . FAC1.....JSR $BD
DD ;FAC1 . FII.#...JSR $AB1E
;. PRODUCT.0...LDA #$0D.>. .JSR $FFD2.^
.*.LDA COUNT.1 ;. COUNT OF...4.LDX C
OUNT ;ADDITI.S C.VERT. .>.JSR $BDC
D ;. . FII...H.JSR $AB1E ;.
COUNT.I.R.LDA .LO...\.STA $7A ;.
CHR....F.LDA .HI...P.STA $7B...Z.RTS...
..;.....COUNT .. ..2.+....LO .. ..1.:...
.HI .. ..1.@...;.W...BUFFR1 .F "10.125".
E....BYTE $00.K.J.;...T.BUFFR2 .F "6.375
"......BYTE $00...
> CLICK IMAGE PREVIEW FOR FULL MODAL