POTENTIAL.PAL
FILE INFORMATION
FILENAME(S): POTENTIAL.PAL
FILE TYPE(S): PRG
FILE SIZE: 4.4K
FIRST SEEN: 2025-11-30 21:15:48
APPEARS ON: 1 disk(s)
FILE HASH
ba02e5b961eba658121d463b0a463b6691b591dcecb75bd41cad53b12c3fc596
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | POTENTIAL.PAL | PRG | DuncanTwain | 27 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 24 08 64 00 8F 20 20 27 48 49 52 45 53 27 |..$.d.. 'HIRES'|
00000010: 20 20 43 49 52 43 4C 45 20 2D 20 50 4F 54 45 4E | CIRCLE - POTEN|
00000020: 54 49 41 4C 00 49 08 6E 00 8F 20 20 53 4F 55 52 |TIAL.I.n.. SOUR|
00000030: 43 45 20 46 49 4C 45 20 42 59 20 41 4E 54 48 4F |CE FILE BY ANTHO|
00000040: 4E 59 20 42 52 59 41 4E 54 00 53 08 78 00 9E 20 |NY BRYANT.S.x.. |
00000050: 37 30 30 00 5E 08 82 00 2E 4F 50 54 20 4E 00 64 |700.^....OPT N.d|
00000060: 08 8C 00 3B 00 6A 08 96 00 3B 00 8D 08 A0 00 3B |...;.j...;.....;|
00000070: 22 48 49 52 45 53 22 20 56 41 52 49 41 42 4C 45 |"HIRES" VARIABLE|
00000080: 53 20 42 59 20 47 2E 4B 49 5A 49 41 4B 00 AD 08 |S BY G.KIZIAK...|
00000090: AA 00 58 31 20 20 20 B2 20 24 43 30 32 37 20 3B |..X1 . $C027 ;|
000000A0: 43 55 52 52 45 4E 54 20 B9 49 54 49 91 00 BE 08 |CURRENT .ITI....|
000000B0: B4 00 59 31 20 20 20 B2 20 24 43 30 32 39 00 D8 |..Y1 . $C029..|
000000C0: 08 BE 00 58 32 20 20 20 B2 20 24 43 30 32 42 20 |...X2 . $C02B |
000000D0: 3B A2 20 B9 49 54 49 91 00 E9 08 C8 00 59 32 20 |;. .ITI......Y2 |
000000E0: 20 20 B2 20 24 43 30 32 44 00 12 09 D2 00 58 43 | . $C02D.....XC|
000000F0: 20 20 20 B2 20 24 43 30 32 46 20 3B 43 49 52 43 | . $C02F ;CIRC|
00000100: 20 43 45 4E 54 52 45 20 28 41 4C 53 4F 20 42 4F | CENTRE (ALSO BO|
00000110: 58 29 00 23 09 DC 00 59 43 20 20 20 B2 20 24 43 |X).#...YC . $C|
00000120: 30 33 31 00 46 09 E6 00 48 4D 20 20 20 B2 20 24 |031.F...HM . $|
00000130: 43 30 33 35 20 3B 48 49 52 45 53 AD 4D 55 4C 54 |C035 ;HIRES.MULT|
00000140: 49 20 46 4C 41 47 00 4C 09 F0 00 3B 00 52 09 FA |I FLAG.L...;.R..|
00000150: 00 3B 00 72 09 04 01 3B 22 48 49 52 45 53 22 20 |.;.r...;"HIRES" |
00000160: B5 45 52 4E 41 4C 20 53 55 42 52 4F 55 54 49 4E |.ERNAL SUBROUTIN|
00000170: 45 53 00 91 09 0E 01 49 A1 49 20 B2 24 43 31 37 |ES.....I.I .$C17|
00000180: 43 20 3B B5 45 52 4E 41 4C 20 A1 20 B5 45 47 45 |C ;.ERNAL . .EGE|
00000190: 52 00 B4 09 18 01 49 45 A1 20 B2 24 43 31 38 37 |R.....IE. .$C187|
000001A0: 20 3B B5 45 52 4E 41 4C 20 45 41 54 20 26 20 A1 | ;.ERNAL EAT & .|
000001B0: 20 58 2C 59 00 D1 09 22 01 4D 4F 56 45 20 20 B2 | X,Y...".MOVE .|
000001C0: 24 43 32 36 45 20 3B 27 4D 4F 56 45 27 20 52 54 |$C26E ;'MOVE' RT|
000001D0: 4E 00 F6 09 2C 01 49 4D 4F 56 20 20 B2 24 43 32 |N...,.IMOV .$C2|
000001E0: 37 31 20 3B B5 45 52 4E 41 4C 20 4D 4F 56 45 A4 |71 ;.ERNAL MOVE.|
000001F0: 20 58 31 2C 59 31 00 14 0A 36 01 49 50 4C 54 20 | X1,Y1...6.IPLT |
00000200: 20 B2 24 43 33 37 35 20 3B B5 45 52 4E 41 4C 20 | .$C375 ;.ERNAL |
00000210: 50 4C 4F 54 00 33 0A 40 01 49 44 52 57 20 20 B2 |PLOT.3.@.IDRW .|
00000220: 24 43 34 32 42 20 3B B5 45 52 4E 41 4C 20 44 52 |$C42B ;.ERNAL DR|
00000230: 41 57 A4 00 39 0A 4A 01 3B 00 4F 0A 54 01 3B 5A |AW..9.J.;.O.T.;Z|
00000240: 45 52 4F 20 50 41 47 45 20 4C 41 42 45 4C 53 00 |ERO PAGE LABELS.|
00000250: 5C 0A 5E 01 54 31 20 B2 20 24 32 32 00 69 0A 68 |\.^.T1 . $22.i.h|
00000260: 01 54 32 20 B2 20 24 32 34 00 78 0A 72 01 46 4C |.T2 . $24.x.r.FL|
00000270: 41 47 20 B2 20 24 32 36 00 85 0A 7C 01 58 20 20 |AG . $26...|.X |
00000280: B2 20 24 32 37 00 92 0A 86 01 59 20 20 B2 20 24 |. $27.....Y . $|
00000290: 32 39 00 A0 0A 90 01 50 48 49 20 B2 20 24 35 37 |29.....PHI . $57|
000002A0: 00 AF 0A 9A 01 50 48 49 59 20 B2 20 24 35 39 00 |.....PHIY . $59.|
000002B0: BF 0A A4 01 50 48 49 58 59 20 B2 20 24 35 42 00 |....PHIXY . $5B.|
000002C0: C5 0A AE 01 3B 00 DF 0A B8 01 AC B2 24 38 30 30 |....;.......$800|
000002D0: 30 20 20 20 20 3B 35 34 35 20 42 59 54 45 53 00 |0 ;545 BYTES.|
000002E0: E5 0A C2 01 3B 00 FE 0A CC 01 58 52 20 20 2E 57 |....;.....XR .W|
000002F0: B0 20 30 20 20 3B 58 20 52 41 44 49 55 53 00 17 |. 0 ;X RADIUS..|
00000300: 0B D6 01 59 52 20 20 2E 57 B0 20 30 20 20 3B 59 |...YR .W. 0 ;Y|
00000310: 20 52 41 44 49 55 53 00 33 0B E0 01 58 33 20 20 | RADIUS.3...X3 |
00000320: 2E 57 B0 20 30 20 20 3B 50 4F 54 45 4E 54 49 41 |.W. 0 ;POTENTIA|
00000330: 4C 20 59 00 4F 0B EA 01 59 33 20 20 2E 57 B0 20 |L Y.O...Y3 .W. |
00000340: 30 20 20 3B 50 4F 54 45 4E 54 49 41 4C 20 58 00 |0 ;POTENTIAL X.|
00000350: 55 0B F4 01 3B 00 71 0B FE 01 3B 53 55 42 52 4F |U...;.q...;SUBRO|
00000360: 55 54 49 4E 45 20 4D 4F 56 45 A4 20 58 43 2C 59 |UTINE MOVE. XC,Y|
00000370: 43 00 81 0B 08 02 4D 4F 56 43 20 4C 44 58 20 23 |C.....MOVC LDX #|
00000380: 33 00 8E 0B 12 02 4C 44 41 20 58 32 2C 58 00 9B |3.....LDA X2,X..|
00000390: 0B 1C 02 53 54 41 20 58 43 2C 58 00 A3 0B 26 02 |...STA XC,X...&.|
000003A0: 44 45 58 00 B2 0B 30 02 42 50 4C 20 4D 4F 56 43 |DEX...0.BPL MOVC|
000003B0: AA 32 00 BA 0B 3A 02 52 54 53 00 C0 0B 44 02 3B |.2...:.RTS...D.;|
000003C0: 00 DC 0B 4E 02 3B 53 55 42 52 4F 55 54 49 4E 45 |...N.;SUBROUTINE|
000003D0: 20 4D 4F 56 45 A4 20 58 52 2C 59 52 00 EC 0B 58 | MOVE. XR,YR...X|
000003E0: 02 4D 4F 56 52 20 4C 44 58 20 23 33 00 F9 0B 62 |.MOVR LDX #3...b|
000003F0: 02 4C 44 41 20 58 32 2C 58 00 06 0C 6C 02 53 54 |.LDA X2,X...l.ST|
00000400: 41 20 58 52 2C 58 00 0E 0C 76 02 44 45 58 00 1D |A XR,X...v.DEX..|
00000410: 0C 80 02 42 50 4C 20 4D 4F 56 52 AA 32 00 25 0C |...BPL MOVR.2.%.|
00000420: 8A 02 52 54 53 00 2B 0C 94 02 3B 00 45 0C 9E 02 |..RTS.+...;.E...|
00000430: 3B 9E 20 43 49 52 43 4C 45 2C 58 43 2C 59 43 2C |;. CIRCLE,XC,YC,|
00000440: 58 52 2C 59 52 00 54 0C A8 02 43 49 52 43 4C 45 |XR,YR.T...CIRCLE|
00000450: 20 B2 20 AC 00 60 0C B2 02 4A 53 52 20 49 45 A1 | . ..`...JSR IE.|
00000460: 00 7A 0C BC 02 4A 53 52 20 4D 4F 56 43 20 3B 4D |.z...JSR MOVC ;M|
00000470: 4F 56 45 A4 20 58 43 2C 59 43 00 86 0C C6 02 4A |OVE. XC,YC.....J|
00000480: 53 52 20 49 45 A1 00 A0 0C D0 02 4A 53 52 20 4D |SR IE......JSR M|
00000490: 4F 56 52 20 3B 4D 4F 56 45 A4 20 58 52 2C 59 52 |OVR ;MOVE. XR,YR|
000004A0: 00 AB 0C DA 02 4C 44 41 20 23 30 00 B8 0C E4 02 |.....LDA #0.....|
000004B0: 53 54 41 20 46 4C 41 47 00 C4 0C EE 02 53 54 41 |STA FLAG.....STA|
000004C0: 20 50 48 49 00 D2 0C F8 02 53 54 41 20 50 48 49 | PHI.....STA PHI|
000004D0: AA 31 00 DC 0C 02 03 53 54 41 20 59 00 E8 0C 0C |.1.....STA Y....|
000004E0: 03 53 54 41 20 59 AA 31 00 EE 0C 16 03 3B 00 FF |.STA Y.1.....;..|
000004F0: 0C 20 03 43 41 53 45 53 20 4C 44 41 20 58 52 00 |. .CASES LDA XR.|
00000500: 12 0D 2A 03 53 54 41 20 58 20 20 20 20 3B 58 B2 |..*.STA X ;X.|
00000510: 58 52 00 1D 0D 34 03 43 4D 50 20 59 52 00 2A 0D |XR...4.CMP YR.*.|
00000520: 3E 03 4C 44 41 20 58 52 AA 31 00 36 0D 48 03 53 |>.LDA XR.1.6.H.S|
00000530: 54 41 20 58 AA 31 00 43 0D 52 03 53 42 43 20 59 |TA X.1.C.R.SBC Y|
00000540: 52 AA 31 00 64 0D 5C 03 42 43 53 20 4C 4F 4F 50 |R.1.d.\.BCS LOOP|
00000550: 20 20 3B 42 52 41 4E 43 48 20 8B 20 58 52 20 B1 | ;BRANCH . XR .|
00000560: B2 20 59 52 00 77 0D 66 03 53 57 41 50 20 20 4C |. YR.w.f.SWAP L|
00000570: 44 41 20 23 24 46 46 00 84 0D 70 03 53 54 41 20 |DA #$FF...p.STA |
00000580: 46 4C 41 47 00 8F 0D 7A 03 4C 44 41 20 59 52 00 |FLAG...z.LDA YR.|
00000590: 99 0D 84 03 53 54 41 20 58 00 AC 0D 8E 03 54 41 |....STA X.....TA|
000005A0: 58 20 20 20 20 20 20 3B 58 B2 59 52 00 B9 0D 98 |X ;X.YR....|
000005B0: 03 4C 44 41 20 59 52 AA 31 00 C5 0D A2 03 53 54 |.LDA YR.1.....ST|
000005C0: 41 20 58 AA 31 00 DA 0D AC 03 54 41 59 20 20 20 |A X.1.....TAY |
000005D0: 20 20 20 3B AF 20 53 57 41 50 00 E5 0D B6 03 4C | ;. SWAP.....L|
000005E0: 44 41 20 58 52 00 F0 0D C0 03 53 54 41 20 59 52 |DA XR.....STA YR|
000005F0: 00 0A 0E CA 03 53 54 58 20 58 52 20 20 20 3B 20 |.....STX XR ; |
00000600: 58 52 20 57 49 54 48 20 59 52 00 17 0E D4 03 4C |XR WITH YR.....L|
00000610: 44 41 20 58 52 AA 31 00 24 0E DE 03 53 54 41 20 |DA XR.1.$...STA |
00000620: 59 52 AA 31 00 31 0E E8 03 53 54 59 20 58 52 AA |YR.1.1...STY XR.|
00000630: 31 00 37 0E F2 03 3B 00 55 0E FC 03 4C 4F 4F 50 |1.7...;.U...LOOP|
00000640: 20 B2 20 AC 20 3B 4D 41 49 4E 20 4C 4F 4F 50 20 | . . ;MAIN LOOP |
00000650: 53 54 41 52 54 00 61 0E 06 04 4C 44 58 20 59 AA |START.a...LDX Y.|
00000660: 31 00 70 0E 10 04 53 54 58 20 50 48 49 59 AA 31 |1.p...STX PHIY.1|
00000670: 00 7A 0E 1A 04 4C 44 41 20 59 00 97 0E 24 04 41 |.z...LDA Y...$.A|
00000680: 53 4C 20 20 20 20 20 20 3B 50 48 49 59 B2 50 48 |SL ;PHIY.PH|
00000690: 49 AA 59 AA 59 AA 31 00 A6 0E 2E 04 52 4F 4C 20 |I.Y.Y.1.....ROL |
000006A0: 50 48 49 59 AA 31 00 AE 0E 38 04 53 45 43 00 BA |PHIY.1...8.SEC..|
000006B0: 0E 42 04 41 44 43 20 50 48 49 00 C7 0E 4C 04 53 |.B.ADC PHI...L.S|
000006C0: 54 41 20 50 48 49 59 00 D6 0E 56 04 4C 44 41 20 |TA PHIY...V.LDA |
000006D0: 50 48 49 59 AA 31 00 E4 0E 60 04 41 44 43 20 50 |PHIY.1...`.ADC P|
000006E0: 48 49 AA 31 00 F3 0E 6A 04 53 54 41 20 50 48 49 |HI.1...j.STA PHI|
000006F0: 59 AA 31 00 FF 0E 74 04 4C 44 58 20 58 AA 31 00 |Y.1...t.LDX X.1.|
00000700: 0F 0F 7E 04 53 54 58 20 50 48 49 58 59 AA 31 00 |..~.STX PHIXY.1.|
00000710: 19 0F 88 04 4C 44 41 20 58 00 38 0F 92 04 41 53 |....LDA X.8...AS|
00000720: 4C 20 20 20 20 20 20 3B 50 48 49 58 59 B2 50 48 |L ;PHIXY.PH|
00000730: 49 59 AB 58 AB 58 AA 31 00 48 0F 9C 04 52 4F 4C |IY.X.X.1.H...ROL|
00000740: 20 50 48 49 58 59 AA 31 00 56 0F A6 04 53 54 41 | PHIXY.1.V...STA|
00000750: 20 50 48 49 58 59 00 5E 0F B0 04 43 4C 43 00 6B | PHIXY.^...CLC.k|
00000760: 0F BA 04 4C 44 41 20 50 48 49 59 00 79 0F C4 04 |...LDA PHIY.y...|
00000770: 53 42 43 20 50 48 49 58 59 00 87 0F CE 04 53 54 |SBC PHIXY.....ST|
00000780: 41 20 50 48 49 58 59 00 96 0F D8 04 4C 44 41 20 |A PHIXY.....LDA |
00000790: 50 48 49 59 AA 31 00 A6 0F E2 04 53 42 43 20 50 |PHIY.1.....SBC P|
000007A0: 48 49 58 59 AA 31 00 B6 0F EC 04 53 54 41 20 50 |HIXY.1.....STA P|
000007B0: 48 49 58 59 AA 31 00 BC 0F F6 04 3B 00 C6 0F 00 |HIXY.1.....;....|
000007C0: 05 4C 44 41 20 58 00 D2 0F 0A 05 4C 44 58 20 58 |.LDA X.....LDX X|
000007D0: AA 31 00 DF 0F 14 05 4C 44 59 20 46 4C 41 47 00 |.1.....LDY FLAG.|
000007E0: EC 0F 1E 05 42 4D 49 20 41 4C 54 4E 00 F7 0F 28 |....BMI ALTN...(|
000007F0: 05 53 54 41 20 58 32 00 04 10 32 05 53 54 58 20 |.STA X2...2.STX |
00000800: 58 32 AA 31 00 12 10 3C 05 4A 53 52 20 53 43 41 |X2.1...<.JSR SCA|
00000810: 4C 45 00 1D 10 46 05 53 54 41 20 59 33 00 2A 10 |LE...F.STA Y3.*.|
00000820: 50 05 53 54 58 20 59 33 AA 31 00 34 10 5A 05 4C |P.STX Y3.1.4.Z.L|
00000830: 44 41 20 59 00 40 10 64 05 4C 44 58 20 59 AA 31 |DA Y.@.d.LDX Y.1|
00000840: 00 4B 10 6E 05 53 54 41 20 58 33 00 58 10 78 05 |.K.n.STA X3.X.x.|
00000850: 53 54 58 20 58 33 AA 31 00 66 10 82 05 4A 53 52 |STX X3.1.f...JSR|
00000860: 20 53 43 41 4C 45 00 71 10 8C 05 53 54 41 20 59 | SCALE.q...STA Y|
00000870: 32 00 7E 10 96 05 53 54 58 20 59 32 AA 31 00 8C |2.~...STX Y2.1..|
00000880: 10 A0 05 4A 4D 50 20 44 4F 50 4C 54 00 9C 10 AA |...JMP DOPLT....|
00000890: 05 41 4C 54 4E 20 53 54 41 20 59 33 00 A9 10 B4 |.ALTN STA Y3....|
000008A0: 05 53 54 58 20 59 33 AA 31 00 B7 10 BE 05 4A 53 |.STX Y3.1.....JS|
000008B0: 52 20 53 43 41 4C 45 00 C2 10 C8 05 53 54 41 20 |R SCALE.....STA |
000008C0: 58 32 00 CF 10 D2 05 53 54 58 20 58 32 AA 31 00 |X2.....STX X2.1.|
000008D0: D9 10 DC 05 4C 44 41 20 59 00 E5 10 E6 05 4C 44 |....LDA Y.....LD|
000008E0: 58 20 59 AA 31 00 F0 10 F0 05 53 54 41 20 59 32 |X Y.1.....STA Y2|
000008F0: 00 FD 10 FA 05 53 54 58 20 59 32 AA 31 00 0B 11 |.....STX Y2.1...|
00000900: 04 06 4A 53 52 20 53 43 41 4C 45 00 16 11 0E 06 |..JSR SCALE.....|
00000910: 53 54 41 20 58 33 00 23 11 18 06 53 54 58 20 58 |STA X3.#...STX X|
00000920: 33 AA 31 00 29 11 22 06 3B 00 3D 11 2C 06 44 4F |3.1.).".;.=.,.DO|
00000930: 50 4C 54 20 4A 53 52 20 50 4C 4F 54 34 00 48 11 |PLT JSR PLOT4.H.|
00000940: 36 06 4C 44 41 20 58 33 00 55 11 40 06 4C 44 58 |6.LDA X3.U.@.LDX|
00000950: 20 58 33 AA 31 00 60 11 4A 06 53 54 41 20 58 32 | X3.1.`.J.STA X2|
00000960: 00 6D 11 54 06 53 54 58 20 58 32 AA 31 00 78 11 |.m.T.STX X2.1.x.|
00000970: 5E 06 4C 44 41 20 59 33 00 85 11 68 06 4C 44 58 |^.LDA Y3...h.LDX|
00000980: 20 59 33 AA 31 00 90 11 72 06 53 54 41 20 59 32 | Y3.1...r.STA Y2|
00000990: 00 9D 11 7C 06 53 54 58 20 59 32 AA 31 00 AB 11 |...|.STX Y2.1...|
000009A0: 86 06 4A 53 52 20 50 4C 4F 54 34 00 B1 11 90 06 |..JSR PLOT4.....|
000009B0: 3B 00 BB 11 9A 06 49 4E 43 20 59 00 C6 11 A4 06 |;.....INC Y.....|
000009C0: 42 4E 45 20 4A 31 00 DA 11 AE 06 49 4E 43 20 59 |BNE J1.....INC Y|
000009D0: AA 31 20 20 3B 59 B2 59 AA 31 00 EA 11 B8 06 4A |.1 ;Y.Y.1.....J|
000009E0: 31 20 4C 44 41 20 50 48 49 59 00 03 12 C2 06 4C |1 LDA PHIY.....L|
000009F0: 44 58 20 50 48 49 59 AA 31 20 3B 50 48 49 B2 50 |DX PHIY.1 ;PHI.P|
00000A00: 48 49 59 00 0F 12 CC 06 53 54 41 20 50 48 49 00 |HIY.....STA PHI.|
00000A10: 1D 12 D6 06 53 54 58 20 50 48 49 AA 31 00 3B 12 |....STX PHI.1.;.|
00000A20: E0 06 B6 31 20 4A 53 52 20 B6 56 20 20 20 3B 54 |...1 JSR .V ;T|
00000A30: 41 4B 45 20 B6 28 50 48 49 59 29 00 46 12 EA 06 |AKE .(PHIY).F...|
00000A40: 53 54 41 20 54 32 00 53 12 F4 06 53 54 58 20 54 |STA T2.S...STX T|
00000A50: 32 AA 31 00 61 12 FE 06 4C 44 41 20 50 48 49 58 |2.1.a...LDA PHIX|
00000A60: 59 00 71 12 08 07 4C 44 58 20 50 48 49 58 59 AA |Y.q...LDX PHIXY.|
00000A70: 31 00 90 12 12 07 B6 32 20 4A 53 52 20 B6 56 20 |1......2 JSR .V |
00000A80: 20 20 3B 54 41 4B 45 20 B6 28 50 48 49 58 59 29 | ;TAKE .(PHIXY)|
00000A90: 00 9B 12 1C 07 53 54 41 20 54 31 00 A8 12 26 07 |.....STA T1...&.|
00000AA0: 53 54 58 20 54 31 AA 31 00 AE 12 30 07 3B 00 CC |STX T1.1...0.;..|
00000AB0: 12 3A 07 44 4F 8B 20 4C 44 41 20 54 31 20 20 20 |.:.DO. LDA T1 |
00000AC0: 20 3B 8B 20 B6 28 50 48 49 58 59 29 00 E6 12 44 | ;. .(PHIXY)...D|
00000AD0: 07 43 4D 50 20 54 32 20 20 20 20 3B 20 B3 20 B6 |.CMP T2 ; . .|
00000AE0: 28 50 48 49 59 29 00 F3 12 4E 07 4C 44 41 20 54 |(PHIY)...N.LDA T|
00000AF0: 31 AA 31 00 08 13 58 07 53 42 43 20 54 32 AA 31 |1.1...X.SBC T2.1|
00000B00: 20 20 3B A7 20 2E 2E 2E 00 20 13 62 07 42 43 53 | ;. .... .b.BCS|
00000B10: 20 45 4C 53 45 20 20 3B 45 4C 53 45 20 2E 2E 2E | ELSE ;ELSE ...|
00000B20: 00 30 13 6C 07 A7 20 4C 44 41 20 50 48 49 58 59 |.0.l.. LDA PHIXY|
00000B30: 00 40 13 76 07 4C 44 58 20 50 48 49 58 59 AA 31 |.@.v.LDX PHIXY.1|
00000B40: 00 4C 13 80 07 53 54 41 20 50 48 49 00 65 13 8A |.L...STA PHI.e..|
00000B50: 07 53 54 58 20 50 48 49 AA 31 20 3B 50 48 49 B2 |.STX PHI.1 ;PHI.|
00000B60: 50 48 49 58 59 00 6F 13 94 07 4C 44 41 20 58 00 |PHIXY.o...LDA X.|
00000B70: 7A 13 9E 07 42 4E 45 20 4A 32 00 86 13 A8 07 44 |z...BNE J2.....D|
00000B80: 45 43 20 58 AA 31 00 9B 13 B2 07 4A 32 20 44 45 |EC X.1.....J2 DE|
00000B90: 43 20 58 20 20 3B 58 B2 58 AB 31 00 B7 13 BC 07 |C X ;X.X.1.....|
00000BA0: 45 4C 53 45 20 4C 44 41 20 58 20 20 20 20 3B 8B |ELSE LDA X ;.|
00000BB0: 20 58 20 B1 B2 20 59 00 CC 13 C6 07 43 4D 50 20 | X .. Y.....CMP |
00000BC0: 59 20 20 20 20 3B A7 20 4C 4F 4F 50 00 D8 13 D0 |Y ;. LOOP....|
00000BD0: 07 4C 44 41 20 58 AA 31 00 E4 13 DA 07 53 42 43 |.LDA X.1.....SBC|
00000BE0: 20 59 AA 31 00 F6 13 E4 07 42 43 43 20 90 20 3B | Y.1.....BCC . ;|
00000BF0: 45 4C 53 45 20 90 00 03 14 EE 07 4A 4D 50 20 4C |ELSE ......JMP L|
00000C00: 4F 4F 50 00 0D 14 F8 07 90 20 52 54 53 00 13 14 |OOP...... RTS...|
00000C10: 02 08 3B 00 38 14 0C 08 3B 53 55 42 52 4F 55 54 |..;.8...;SUBROUT|
00000C20: 49 4E 45 20 20 52 45 46 4C 45 43 54 20 50 4F B5 |INE REFLECT PO.|
00000C30: 53 20 26 20 50 4C 4F 54 00 46 14 16 08 50 4C 4F |S & PLOT.F...PLO|
00000C40: 54 34 20 B2 20 AC 00 51 14 20 08 4C 44 41 20 58 |T4 . ..Q. .LDA X|
00000C50: 43 00 59 14 2A 08 43 4C 43 00 64 14 34 08 41 44 |C.Y.*.CLC.d.4.AD|
00000C60: 43 20 58 32 00 6F 14 3E 08 53 54 41 20 58 31 00 |C X2.o.>.STA X1.|
00000C70: 77 14 48 08 50 48 41 00 84 14 52 08 4C 44 41 20 |w.H.PHA...R.LDA |
00000C80: 58 43 AA 31 00 91 14 5C 08 41 44 43 20 58 32 AA |XC.1...\.ADC X2.|
00000C90: 31 00 9E 14 66 08 53 54 41 20 58 31 AA 31 00 A6 |1...f.STA X1.1..|
00000CA0: 14 70 08 50 48 41 00 B1 14 7A 08 4C 44 41 20 59 |.p.PHA...z.LDA Y|
00000CB0: 43 00 B9 14 84 08 43 4C 43 00 C4 14 8E 08 41 44 |C.....CLC.....AD|
00000CC0: 43 20 59 32 00 CF 14 98 08 53 54 41 20 59 31 00 |C Y2.....STA Y1.|
00000CD0: DC 14 A2 08 4C 44 41 20 59 43 AA 31 00 E9 14 AC |....LDA YC.1....|
00000CE0: 08 41 44 43 20 59 32 AA 31 00 F6 14 B6 08 53 54 |.ADC Y2.1.....ST|
00000CF0: 41 20 59 31 AA 31 00 03 15 C0 08 4A 53 52 20 49 |A Y1.1.....JSR I|
00000D00: 50 4C 54 00 0E 15 CA 08 4C 44 41 20 58 43 00 16 |PLT.....LDA XC..|
00000D10: 15 D4 08 53 45 43 00 21 15 DE 08 53 42 43 20 58 |...SEC.!...SBC X|
00000D20: 32 00 2C 15 E8 08 53 54 41 20 58 31 00 39 15 F2 |2.,...STA X1.9..|
00000D30: 08 4C 44 41 20 58 43 AA 31 00 46 15 FC 08 53 42 |.LDA XC.1.F...SB|
00000D40: 43 20 58 32 AA 31 00 53 15 06 09 53 54 41 20 58 |C X2.1.S...STA X|
00000D50: 31 AA 31 00 60 15 10 09 4A 53 52 20 49 50 4C 54 |1.1.`...JSR IPLT|
00000D60: 00 6B 15 1A 09 4C 44 41 20 59 43 00 73 15 24 09 |.k...LDA YC.s.$.|
00000D70: 53 45 43 00 7E 15 2E 09 53 42 43 20 59 32 00 89 |SEC.~...SBC Y2..|
00000D80: 15 38 09 53 54 41 20 59 31 00 96 15 42 09 4C 44 |.8.STA Y1...B.LD|
00000D90: 41 20 59 43 AA 31 00 A3 15 4C 09 53 42 43 20 59 |A YC.1...L.SBC Y|
00000DA0: 32 AA 31 00 B0 15 56 09 53 54 41 20 59 31 AA 31 |2.1...V.STA Y1.1|
00000DB0: 00 BD 15 60 09 4A 53 52 20 49 50 4C 54 00 C5 15 |...`.JSR IPLT...|
00000DC0: 6A 09 50 4C 41 00 D2 15 74 09 53 54 41 20 58 31 |j.PLA...t.STA X1|
00000DD0: AA 31 00 DA 15 7E 09 50 4C 41 00 E5 15 88 09 53 |.1...~.PLA.....S|
00000DE0: 54 41 20 58 31 00 F2 15 92 09 4A 4D 50 20 49 50 |TA X1.....JMP IP|
00000DF0: 4C 54 00 F8 15 9C 09 3B 00 13 16 A6 09 3B 53 55 |LT.....;.....;SU|
00000E00: 42 52 4F 55 54 49 4E 45 20 B6 4F 4C 55 54 45 20 |BROUTINE .OLUTE |
00000E10: C5 55 45 00 23 16 B0 09 B6 56 20 42 50 4C 20 41 |.UE.#....V BPL A|
00000E20: 42 4F 4B 00 2B 16 BA 09 43 4C 43 00 37 16 C4 09 |BOK.+...CLC.7...|
00000E30: 45 B0 20 23 24 46 46 00 42 16 CE 09 41 44 43 20 |E. #$FF.B...ADC |
00000E40: 23 31 00 4A 16 D8 09 50 48 41 00 52 16 E2 09 54 |#1.J...PHA.R...T|
00000E50: 58 41 00 5E 16 EC 09 45 B0 20 23 24 46 46 00 69 |XA.^...E. #$FF.i|
00000E60: 16 F6 09 41 44 43 20 23 30 00 71 16 00 0A 54 41 |...ADC #0.q...TA|
00000E70: 58 00 79 16 0A 0A 50 4C 41 00 86 16 14 0A 41 42 |X.y...PLA.....AB|
00000E80: 4F 4B 20 52 54 53 00 8C 16 1E 0A 3B 00 AB 16 28 |OK RTS.....;...(|
00000E90: 0A 3B 53 55 42 52 4F 55 54 49 4E 45 20 A4 20 53 |.;SUBROUTINE . S|
00000EA0: 43 41 4C 45 20 4F 46 46 53 45 54 00 CA 16 32 0A |CALE OFFSET...2.|
00000EB0: 53 43 41 4C 45 20 B2 20 AC 20 20 20 20 20 3B 54 |SCALE . . ;T|
00000EC0: 31 B2 54 32 AC 59 52 AD 58 52 00 D5 16 3C 0A 53 |1.T2.YR.XR...<.S|
00000ED0: 54 41 20 54 32 00 E2 16 46 0A 53 54 58 20 54 32 |TA T2...F.STX T2|
00000EE0: AA 31 00 ED 16 50 0A 4C 44 41 20 23 30 00 F8 16 |.1...P.LDA #0...|
00000EF0: 5A 0A 53 54 41 20 54 31 00 05 17 64 0A 53 54 41 |Z.STA T1...d.STA|
00000F00: 20 54 31 AA 31 00 11 17 6E 0A 4C 44 58 20 23 31 | T1.1...n.LDX #1|
00000F10: 37 00 2D 17 78 0A 43 4C 43 20 20 3B 31 36 20 42 |7.-.x.CLC ;16 B|
00000F20: 49 54 20 B5 45 47 45 52 20 4D 41 54 48 00 3F 17 |IT .EGER MATH.?.|
00000F30: 82 0A 4D 55 4C 4C 50 20 52 B0 20 54 31 AA 31 00 |..MULLP R. T1.1.|
00000F40: 49 17 8C 0A 52 B0 20 54 31 00 55 17 96 0A 52 B0 |I...R. T1.U...R.|
00000F50: 20 54 32 AA 31 00 5F 17 A0 0A 52 B0 20 54 32 00 | T2.1._...R. T2.|
00000F60: 6D 17 AA 0A 42 43 43 20 44 45 43 4E 31 00 75 17 |m...BCC DECN1.u.|
00000F70: B4 0A 43 4C 43 00 80 17 BE 0A 4C 44 41 20 59 52 |..CLC.....LDA YR|
00000F80: 00 8B 17 C8 0A 41 44 43 20 54 31 00 96 17 D2 0A |.....ADC T1.....|
00000F90: 53 54 41 20 54 31 00 A3 17 DC 0A 4C 44 41 20 59 |STA T1.....LDA Y|
00000FA0: 52 AA 31 00 B0 17 E6 0A 41 44 43 20 54 31 AA 31 |R.1.....ADC T1.1|
00000FB0: 00 BD 17 F0 0A 53 54 41 20 54 31 AA 31 00 CC 17 |.....STA T1.1...|
00000FC0: FA 0A 44 45 43 4E 31 20 20 44 45 58 00 DA 17 04 |..DECN1 DEX....|
00000FD0: 0B 42 4E 45 20 4D 55 4C 4C 50 00 E5 17 0E 0B 4C |.BNE MULLP.....L|
00000FE0: 44 41 20 58 52 00 F1 17 18 0B B0 41 20 58 52 AA |DA XR......A XR.|
00000FF0: 31 00 FE 17 22 0B 42 45 51 20 45 52 52 B0 00 09 |1...".BEQ ERR...|
00001000: 18 2C 0B 4C 44 41 20 23 30 00 14 18 36 0B 53 54 |.,.LDA #0...6.ST|
00001010: 41 20 54 31 00 21 18 40 0B 53 54 41 20 54 31 AA |A T1.!.@.STA T1.|
00001020: 31 00 45 18 4A 0B 4C 44 58 20 23 31 36 20 20 20 |1.E.J.LDX #16 |
00001030: 20 20 20 3B 31 36 20 42 49 54 20 B5 45 47 45 52 | ;16 BIT .EGER|
00001040: 20 4D 41 54 48 00 56 18 54 0B 44 49 56 4C 50 20 | MATH.V.T.DIVLP |
00001050: 52 4F 4C 20 54 32 00 63 18 5E 0B 52 4F 4C 20 54 |ROL T2.c.^.ROL T|
00001060: 32 AA 31 00 6E 18 68 0B 52 4F 4C 20 54 31 00 7B |2.1.n.h.ROL T1.{|
00001070: 18 72 0B 52 4F 4C 20 54 31 AA 31 00 83 18 7C 0B |.r.ROL T1.1...|.|
00001080: 53 45 43 00 8E 18 86 0B 4C 44 41 20 54 31 00 99 |SEC.....LDA T1..|
00001090: 18 90 0B 53 42 43 20 58 52 00 A1 18 9A 0B 54 41 |...SBC XR.....TA|
000010A0: 59 00 AE 18 A4 0B 4C 44 41 20 54 31 AA 31 00 BB |Y.....LDA T1.1..|
000010B0: 18 AE 0B 53 42 43 20 58 52 AA 31 00 C9 18 B8 0B |...SBC XR.1.....|
000010C0: 42 43 43 20 44 45 43 4E 32 00 D4 18 C2 0B 53 54 |BCC DECN2.....ST|
000010D0: 59 20 54 31 00 E1 18 CC 0B 53 54 41 20 54 31 AA |Y T1.....STA T1.|
000010E0: 31 00 F0 18 D6 0B 44 45 43 4E 32 20 20 44 45 58 |1.....DECN2 DEX|
000010F0: 00 FE 18 E0 0B 42 4E 45 20 44 49 56 4C 50 00 09 |.....BNE DIVLP..|
00001100: 19 EA 0B 52 4F 4C 20 54 32 00 16 19 F4 0B 52 4F |...ROL T2.....RO|
00001110: 4C 20 54 32 AA 31 00 21 19 FE 0B 4C 44 41 20 54 |L T2.1.!...LDA T|
00001120: 32 00 2E 19 08 0C 4C 44 58 20 54 32 AA 31 00 36 |2.....LDX T2.1.6|
00001130: 19 12 0C 52 54 53 00 5D 19 1C 0C 45 52 52 B0 20 |...RTS.]...ERR. |
00001140: 4A 4D 50 20 24 42 42 38 41 20 3B 22 44 49 56 49 |JMP $BB8A ;"DIVI|
00001150: 53 49 4F 4E 20 42 59 20 5A 45 52 4F 22 00 63 19 |SION BY ZERO".c.|
00001160: 26 0C 3B 00 6A 19 30 0C 2E 80 00 00 00 |&.;.j.0...... |
..$.D.. 'HIRES' CIRCLE - POTENTIAL.I.N
.. SOURCE FILE BY ANTHONY BRYANT.S.X..
700.^....OPT N.D...;.J...;... .;"HIRES"
VARIABLES BY G.KIZIAK.....X1 . $C027 ;
CURRENT .ITI......Y1 . $C029.X...X2
. $C02B ;. .ITI....H.Y2 . $C02D...R.XC
. $C02F ;CIRC CENTRE (ALSO BOX).#...Y
C . $C031.F...HM . $C035 ;HIRES.MULT
I FLAG.L...;.R...;.R...;"HIRES" .ERNAL S
UBROUTINES.....I.I .$C17C ;.ERNAL . .EGE
R.....IE. .$C187 ;.ERNAL EAT & . X,Y.Q."
.MOVE .$C26E ;'MOVE' RTN...,.IMOV .$C2
71 ;.ERNAL MOVE. X1,Y1...6.IPLT .$C375
;.ERNAL PLOT.3.@.IDRW .$C42B ;.ERNAL DR
AW..9.J.;.O.T.;ZERO PAGE LABELS.\.^.T1 .
$22.I.H.T2 . $24.X.R.FLAG . $26...|.X
. $27.....Y . $29. ...PHI . $57.....PHI
Y . $59.....PHIXY . $5B.E...;.......$800
0 ;545 BYTES...B.;...L.XR .W. 0 ;X
RADIUS...V.YR .W. 0 ;Y RADIUS.3...X3
.W. 0 ;POTENTIAL Y.O...Y3 .W. 0 ;POTE
NTIAL X.U...;.Q...;SUBROUTINE MOVE. XC,Y
C.....MOVC LDX #3.....LDA X2,X.....STA X
C,X...&.DEX...0.BPL MOVC.2...:.RTS...D.;
...N.;SUBROUTINE MOVE. XR,YR...X.MOVR LD
X #3...B.LDA X2,X...L.STA XR,X...V.DEX..
...BPL MOVR.2.%...RTS.+...;.E...;. CIRCL
E,XC,YC,XR,YR.T...CIRCLE . ..`...JSR IE.
.Z...JSR MOVC ;MOVE. XC,YC...F.JSR IE..
.P.JSR MOVR ;MOVE. XR,YR...Z.LDA #0.....
STA FLAG.D...STA PHI.R...STA PHI.1.....S
TA Y.....STA Y.1.....;... .CASES LDA XR.
..*.STA X ;X.XR...4.CMP YR.*.>.LDA XR
.1.6.H.STA X.1.C.R.SBC YR.1.D.\.BCS LOOP
;BRANCH . XR .. YR.W.F.SWAP LDA #$FF.
..P.STA FLAG...Z.LDA YR.....STA X.....TA
X ;X.YR.....LDA YR.1.E...STA X.1.Z.
..TAY ;. SWAP.....LDA XR.....STA YR
...J.STX XR ; XR WITH YR...T.LDA XR.1.
$...STA YR.1.1...STY XR.1.7...;.U...LOOP
. . ;MAIN LOOP START.A...LDX Y.1.P...ST
X PHIY.1.Z...LDA Y...$.ASL ;PHIY.PH
I.Y.Y.1.....ROL PHIY.1...8.SEC...B.ADC P
HI.G.L.STA PHIY.V.V.LDA PHIY.1...`.ADC P
HI.1...J.STA PHIY.1...T.LDX X.1...~.STX
PHIXY.1.....LDA X.8...ASL ;PHIXY.PH
IY.X.X.1.H...ROL PHIXY.1.V...STA PHIXY.^
...CLC.K...LDA PHIY.Y.D.SBC PHIXY...N.ST
A PHIXY...X.LDA PHIY.1.....SBC PHIXY.1..
...STA PHIXY.1.....;.F...LDA X.R...LDX X
.1.....LDY FLAG.....BMI ALTN...(.STA X2.
..2.STX X2.1...<.JSR SCALE...F.STA Y3.*.
P.STX Y3.1.4.Z.LDA Y.@.D.LDX Y.1.K.N.STA
X3.X.X.STX X3.1.F...JSR SCALE.Q...STA Y
2.~...STX Y2.1... .JMP DOPLT.....ALTN ST
A Y3.....STX Y3.1.....JSR SCALE.B.H.STA
X2.O.R.STX X2.1.Y...LDA Y.....LDX Y.1...
..STA Y2.....STX Y2.1.....JSR SCALE.....
STA X3.#...STX X3.1.).".;.=.,.DOPLT JSR
PLOT4.H.6.LDA X3.U.@.LDX X3.1.`.J.STA X2
.M.T.STX X2.1.X.^.LDA Y3...H.LDX Y3.1...
R.STA Y2...|.STX Y2.1.....JSR PLOT4.....
;.....INC Y.F...BNE J1.Z...INC Y.1 ;Y.Y
.1.....J1 LDA PHIY...B.LDX PHIY.1 ;PHI.P
HIY...L.STA PHI...V.STX PHI.1.;....1 JSR
.V ;TAKE .(PHIY).F...STA T2.S...STX T
2.1.A...LDA PHIXY.Q...LDX PHIXY.1......2
JSR .V ;TAKE .(PHIXY).....STA T1...&.
STX T1.1...0.;.L.:.DO. LDA T1 ;. .(PH
IXY)...D.CMP T2 ; . .(PHIY)...N.LDA T
1.1...X.SBC T2.1 ;. .... .B.BCS ELSE ;
ELSE ....0.L.. LDA PHIXY.@.V.LDX PHIXY.1
.L...STA PHI.E...STX PHI.1 ;PHI.PHIXY.O.
..LDA X.Z...BNE J2.....DEC X.1.....J2 DE
C X ;X.X.1.....ELSE LDA X ;. X .. Y.
L.F.CMP Y ;. LOOP.X.P.LDA X.1...Z.SBC
Y.1.....BCC . ;ELSE ......JMP LOOP.....
. RTS.....;.8...;SUBROUTINE REFLECT PO.
S & PLOT.F...PLOT4 . ..Q. .LDA XC.Y.*.CL
C.D.4.ADC X2.O.>.STA X1.W.H.PHA...R.LDA
XC.1...\.ADC X2.1...F.STA X1.1...P.PHA..
.Z.LDA YC.....CLC.D...ADC Y2.O...STA Y1.
....LDA YC.1.....ADC Y2.1.....STA Y1.1..
...JSR IPLT...J.LDA XC...T.SEC.!...SBC X
2.,...STA X1.9...LDA XC.1.F...SBC X2.1.S
...STA X1.1.`...JSR IPLT.K...LDA YC.S.$.
SEC.~...SBC Y2...8.STA Y1...B.LDA YC.1..
.L.SBC Y2.1...V.STA Y1.1...`.JSR IPLT.E.
J.PLA.R.T.STA X1.1.Z.~.PLA.....STA X1...
..JMP IPLT.....;.....;SUBROUTINE .OLUTE
EUE.#....V BPL ABOK.+...CLC.7.D.E. #$FF.
B.N.ADC #1.J.X.PHA.R...TXA.^...E. #$FF.I
...ADC #0.Q...TAX.Y...PLA.....ABOK RTS..
...;...(.;SUBROUTINE . SCALE OFFSET.J.2.
SCALE . . ;T1.T2.YR.XR.U.<.STA T2...
F.STX T2.1...P.LDA #0...Z.STA T1...D.STA
T1.1...N.LDX #17.-.X.CLC ;16 BIT .EGER
MATH.?...MULLP R. T1.1.I...R. T1.U...R.
T2.1._. .R. T2.M...BCC DECN1.U...CLC...
..LDA YR...H.ADC T1...R.STA T1.....LDA Y
R.1.....ADC T1.1.....STA T1.1.L...DECN1
DEX.Z...BNE MULLP.....LDA XR......A XR.
1...".BEQ ERR....,.LDA #0...6.STA T1.!.@
.STA T1.1.E.J.LDX #16 ;16 BIT .EGER
MATH.V.T.DIVLP ROL T2.C.^.ROL T2.1.N.H.
ROL T1.{.R.ROL T1.1...|.SEC.....LDA T1..
...SBC XR.....TAY.....LDA T1.1.....SBC X
R.1.I...BCC DECN2.T.B.STY T1...L.STA T1.
1...V.DECN2 DEX.....BNE DIVLP.....ROL T
2.....ROL T2.1.!...LDA T2.....LDX T2.1.6
...RTS.]...ERR. JMP $BB8A ;"DIVISION BY
ZERO".C.&.;.J.0......
> CLICK IMAGE PREVIEW FOR FULL MODAL