POLYGON.PAL
FILE INFORMATION
FILENAME(S): POLYGON.PAL
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 21:15:48
APPEARS ON: 1 disk(s)
FILE HASH
c425113bf60a3aed492f08446908680e25ba21090f59eb67ba446b686200115c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | POLYGON.PAL | PRG | DuncanTwain | 28 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 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 4C 59 47 | CIRCLE - POLYG|
00000020: 4F 4E 00 47 08 6E 00 8F 20 20 53 4F 55 52 43 45 |ON.G.n.. SOURCE|
00000030: 20 46 49 4C 45 20 42 59 20 41 4E 54 48 4F 4E 59 | FILE BY ANTHONY|
00000040: 20 42 52 59 41 4E 54 00 51 08 78 00 9E 20 37 30 | BRYANT.Q.x.. 70|
00000050: 30 00 5C 08 82 00 2E 4F 50 54 20 4E 00 62 08 8C |0.\....OPT N.b..|
00000060: 00 3B 00 68 08 96 00 3B 00 8B 08 A0 00 3B 22 48 |.;.h...;.....;"H|
00000070: 49 52 45 53 22 20 56 41 52 49 41 42 4C 45 53 20 |IRES" VARIABLES |
00000080: 42 59 20 47 2E 4B 49 5A 49 41 4B 00 AB 08 AA 00 |BY G.KIZIAK.....|
00000090: 58 31 20 20 20 B2 20 24 43 30 32 37 20 3B 43 55 |X1 . $C027 ;CU|
000000A0: 52 52 45 4E 54 20 B9 49 54 49 91 00 BC 08 B4 00 |RRENT .ITI......|
000000B0: 59 31 20 20 20 B2 20 24 43 30 32 39 00 D6 08 BE |Y1 . $C029....|
000000C0: 00 58 32 20 20 20 B2 20 24 43 30 32 42 20 3B A2 |.X2 . $C02B ;.|
000000D0: 20 B9 49 54 49 91 00 E7 08 C8 00 59 32 20 20 20 | .ITI......Y2 |
000000E0: B2 20 24 43 30 32 44 00 10 09 D2 00 58 43 20 20 |. $C02D.....XC |
000000F0: 20 B2 20 24 43 30 32 46 20 3B 43 49 52 43 20 43 | . $C02F ;CIRC C|
00000100: 45 4E 54 52 45 20 28 41 4C 53 4F 20 42 4F 58 29 |ENTRE (ALSO BOX)|
00000110: 00 21 09 DC 00 59 43 20 20 20 B2 20 24 43 30 33 |.!...YC . $C03|
00000120: 31 00 44 09 E6 00 48 4D 20 20 20 B2 20 24 43 30 |1.D...HM . $C0|
00000130: 33 35 20 3B 48 49 52 45 53 AD 4D 55 4C 54 49 20 |35 ;HIRES.MULTI |
00000140: 46 4C 41 47 00 4A 09 F0 00 3B 00 50 09 FA 00 3B |FLAG.J...;.P...;|
00000150: 00 70 09 04 01 3B 22 48 49 52 45 53 22 20 B5 45 |.p...;"HIRES" .E|
00000160: 52 4E 41 4C 20 53 55 42 52 4F 55 54 49 4E 45 53 |RNAL SUBROUTINES|
00000170: 00 8F 09 0E 01 49 A1 49 20 B2 24 43 31 37 43 20 |.....I.I .$C17C |
00000180: 3B B5 45 52 4E 41 4C 20 A1 20 B5 45 47 45 52 00 |;.ERNAL . .EGER.|
00000190: B2 09 18 01 49 45 A1 20 B2 24 43 31 38 37 20 3B |....IE. .$C187 ;|
000001A0: B5 45 52 4E 41 4C 20 45 41 54 20 26 20 A1 20 58 |.ERNAL EAT & . X|
000001B0: 2C 59 00 CF 09 22 01 4D 4F 56 45 20 20 B2 24 43 |,Y...".MOVE .$C|
000001C0: 32 36 45 20 3B 27 4D 4F 56 45 27 20 52 54 4E 00 |26E ;'MOVE' RTN.|
000001D0: F4 09 2C 01 49 4D 4F 56 20 20 B2 24 43 32 37 31 |..,.IMOV .$C271|
000001E0: 20 3B B5 45 52 4E 41 4C 20 4D 4F 56 45 A4 20 58 | ;.ERNAL MOVE. X|
000001F0: 31 2C 59 31 00 12 0A 36 01 49 50 4C 54 20 20 B2 |1,Y1...6.IPLT .|
00000200: 24 43 33 37 35 20 3B B5 45 52 4E 41 4C 20 50 4C |$C375 ;.ERNAL PL|
00000210: 4F 54 00 31 0A 40 01 49 44 52 57 20 20 B2 24 43 |OT.1.@.IDRW .$C|
00000220: 34 32 42 20 3B B5 45 52 4E 41 4C 20 44 52 41 57 |42B ;.ERNAL DRAW|
00000230: A4 00 37 0A 4A 01 3B 00 4D 0A 54 01 3B 5A 45 52 |..7.J.;.M.T.;ZER|
00000240: 4F 20 50 41 47 45 20 4C 41 42 45 4C 53 00 73 0A |O PAGE LABELS.s.|
00000250: 5E 01 54 48 45 54 41 20 B2 20 24 35 37 20 20 3B |^.THETA . $57 ;|
00000260: 54 48 45 20 41 4E 47 4C 45 20 28 30 AB 39 30 44 |THE ANGLE (0.90D|
00000270: 45 47 29 00 98 0A 68 01 59 53 49 47 4E 20 B2 20 |EG)...h.YSIGN . |
00000280: 24 35 38 20 20 3B 44 45 50 80 45 4E 54 20 91 20 |$58 ;DEP.ENT . |
00000290: 51 55 41 44 52 41 4E 54 00 BB 0A 72 01 58 53 49 |QUADRANT...r.XSI|
000002A0: 47 4E 20 B2 20 24 35 39 20 20 3B 20 20 20 20 22 |GN . $59 ; "|
000002B0: 20 20 20 20 20 20 20 20 20 20 22 00 C1 0A 7C 01 | "...|.|
000002C0: 3B 00 DD 0A 86 01 AC B2 24 38 30 30 30 20 20 20 |;.......$8000 |
000002D0: 20 20 20 3B 34 32 33 20 42 59 54 45 53 00 E3 0A | ;423 BYTES...|
000002E0: 90 01 3B 00 FF 0A 9A 01 58 52 20 20 20 20 20 2E |..;.....XR .|
000002F0: 57 B0 20 30 20 20 3B 58 20 52 41 44 49 55 53 00 |W. 0 ;X RADIUS.|
00000300: 1B 0B A4 01 59 52 20 20 20 20 20 2E 57 B0 20 30 |....YR .W. 0|
00000310: 20 20 3B 59 20 52 41 44 49 55 53 00 3E 0B AE 01 | ;Y RADIUS.>...|
00000320: 41 52 43 53 54 20 20 2E 57 B0 20 30 20 20 3B 41 |ARCST .W. 0 ;A|
00000330: 52 43 20 53 54 41 52 54 20 28 44 45 47 29 00 60 |RC START (DEG).`|
00000340: 0B B8 01 41 52 43 80 20 2E 57 B0 20 33 36 30 3B |...ARC. .W. 360;|
00000350: 41 52 43 20 80 20 41 4E 47 4C 20 28 44 45 47 29 |ARC . ANGL (DEG)|
00000360: 00 86 0B C2 01 44 45 4C 54 41 20 20 2E 42 59 54 |.....DELTA .BYT|
00000370: 20 35 20 20 3B 50 4F 4C 59 CB 4E 20 49 4E 43 52 | 5 ;POLY.N INCR|
00000380: 20 28 44 45 47 29 00 8C 0B CC 01 3B 00 B0 0B D6 | (DEG).....;....|
00000390: 01 3B 53 55 42 52 4F 55 54 49 4E 45 20 A1 20 41 |.;SUBROUTINE . A|
000003A0: 4E 47 4C 45 20 28 44 45 47 29 20 B5 45 47 45 52 |NGLE (DEG) .EGER|
000003B0: 00 D7 0B E0 01 3B 41 43 43 55 52 41 43 59 20 A4 |.....;ACCURACY .|
000003C0: 20 31 20 44 45 47 20 20 20 28 48 45 58 20 35 41 | 1 DEG (HEX 5A|
000003D0: B2 39 30 44 45 47 29 00 EB 0B EA 01 A1 41 4E 20 |.90DEG)......AN |
000003E0: 50 48 41 20 20 3B 94 20 41 43 43 00 F9 0B F4 01 |PHA ;. ACC.....|
000003F0: 4A 53 52 20 24 30 30 37 39 00 07 0C FE 01 42 45 |JSR $0079.....BE|
00000400: 51 20 4E 4F 4D B0 45 00 1F 0C 08 02 4A 53 52 20 |Q NOM.E.....JSR |
00000410: 24 41 45 46 44 20 20 3B 45 41 54 20 22 2C 22 00 |$AEFD ;EAT ",".|
00000420: 2C 0C 12 02 43 4D 50 20 23 22 2C 22 00 47 0C 1C |,...CMP #",".G..|
00000430: 02 42 45 51 20 4E 4F 4D B0 45 20 3B 41 A8 48 45 |.BEQ NOM.E ;A.HE|
00000440: 52 20 22 2C 22 20 21 00 66 0C 26 02 50 4C 41 20 |R "," !.f.&.PLA |
00000450: 20 20 20 20 20 20 20 3B 54 48 52 4F 57 20 41 57 | ;THROW AW|
00000460: 41 59 20 41 43 43 00 86 0C 30 02 4A 4D 50 20 49 |AY ACC...0.JMP I|
00000470: A1 49 20 20 3B A1 20 B5 45 47 45 52 20 A4 20 2E |.I ;. .EGER . .|
00000480: 41 20 26 20 2E 58 00 94 0C 3A 02 4E 4F 4D B0 45 |A & .X...:.NOM.E|
00000490: 20 50 4C 41 00 AF 0C 44 02 52 54 53 20 3B 52 45 | PLA...D.RTS ;RE|
000004A0: 53 55 4C 54 20 49 4E 20 2E 41 20 26 20 2E 58 00 |SULT IN .A & .X.|
000004B0: B5 0C 4E 02 3B 00 D1 0C 58 02 3B 53 55 42 52 4F |..N.;...X.;SUBRO|
000004C0: 55 54 49 4E 45 20 4D 4F 56 45 A4 20 58 43 2C 59 |UTINE MOVE. XC,Y|
000004D0: 43 00 E1 0C 62 02 4D 4F 56 43 20 4C 44 58 20 23 |C...b.MOVC LDX #|
000004E0: 33 00 EE 0C 6C 02 4C 44 41 20 58 32 2C 58 00 FB |3...l.LDA X2,X..|
000004F0: 0C 76 02 53 54 41 20 58 43 2C 58 00 03 0D 80 02 |.v.STA XC,X.....|
00000500: 44 45 58 00 12 0D 8A 02 42 50 4C 20 4D 4F 56 43 |DEX.....BPL MOVC|
00000510: AA 32 00 1A 0D 94 02 52 54 53 00 20 0D 9E 02 3B |.2.....RTS. ...;|
00000520: 00 3C 0D A8 02 3B 53 55 42 52 4F 55 54 49 4E 45 |.<...;SUBROUTINE|
00000530: 20 4D 4F 56 45 A4 20 58 52 2C 59 52 00 4C 0D B2 | MOVE. XR,YR.L..|
00000540: 02 4D 4F 56 52 20 4C 44 58 20 23 33 00 59 0D BC |.MOVR LDX #3.Y..|
00000550: 02 4C 44 41 20 58 32 2C 58 00 66 0D C6 02 53 54 |.LDA X2,X.f...ST|
00000560: 41 20 58 52 2C 58 00 6E 0D D0 02 44 45 58 00 7D |A XR,X.n...DEX.}|
00000570: 0D DA 02 42 50 4C 20 4D 4F 56 52 AA 32 00 85 0D |...BPL MOVR.2...|
00000580: E4 02 52 54 53 00 8B 0D EE 02 3B 00 B1 0D F8 02 |..RTS.....;.....|
00000590: 3B 9E 20 43 49 52 43 4C 45 2C 58 43 2C 59 43 2C |;. CIRCLE,XC,YC,|
000005A0: 58 52 2C 59 52 5B 2C 53 41 2C 45 41 2C 49 4E 43 |XR,YR[,SA,EA,INC|
000005B0: 5D 00 C0 0D 02 03 43 49 52 43 4C 45 20 B2 20 AC |].....CIRCLE . .|
000005C0: 00 CC 0D 0C 03 4A 53 52 20 49 45 A1 00 E8 0D 16 |.....JSR IE.....|
000005D0: 03 4A 53 52 20 4D 4F 56 43 20 20 20 3B 4D 4F 56 |.JSR MOVC ;MOV|
000005E0: 45 A4 20 58 43 2C 59 43 00 F4 0D 20 03 4A 53 52 |E. XC,YC... .JSR|
000005F0: 20 49 45 A1 00 10 0E 2A 03 4A 53 52 20 4D 4F 56 | IE....*.JSR MOV|
00000600: 52 20 20 20 3B 4D 4F 56 45 A4 20 58 52 2C 59 52 |R ;MOVE. XR,YR|
00000610: 00 1B 0E 34 03 4C 44 41 20 23 30 00 37 0E 3E 03 |...4.LDA #0.7.>.|
00000620: 4C 44 58 20 23 30 20 20 20 20 20 3B 96 41 55 4C |LDX #0 ;.AUL|
00000630: 54 20 41 52 43 53 54 00 54 0E 48 03 4A 53 52 20 |T ARCST.T.H.JSR |
00000640: A1 41 4E 20 20 3B A1 20 53 41 20 28 44 45 47 52 |.AN ;. SA (DEGR|
00000650: 45 45 53 29 00 62 0E 52 03 53 54 41 20 41 52 43 |EES).b.R.STA ARC|
00000660: 53 54 00 72 0E 5C 03 53 54 58 20 41 52 43 53 54 |ST.r.\.STX ARCST|
00000670: AA 31 00 80 0E 66 03 4C 44 41 20 23 B3 33 36 30 |.1...f.LDA #.360|
00000680: 00 99 0E 70 03 4C 44 58 20 23 B1 33 36 30 3B 96 |...p.LDX #.360;.|
00000690: 41 55 4C 54 20 41 52 43 80 00 B6 0E 7A 03 4A 53 |AULT ARC....z.JS|
000006A0: 52 20 A1 41 4E 20 20 3B A1 20 45 41 20 28 44 45 |R .AN ;. EA (DE|
000006B0: 47 52 45 45 53 29 00 C3 0E 84 03 53 54 41 20 41 |GREES).....STA A|
000006C0: 52 43 80 00 D2 0E 8E 03 53 54 58 20 41 52 43 80 |RC......STX ARC.|
000006D0: AA 31 00 F6 0E 98 03 4C 44 41 20 23 35 20 20 20 |.1.....LDA #5 |
000006E0: 20 20 20 20 20 20 20 20 20 20 3B 96 41 55 4C 54 | ;.AULT|
000006F0: 20 44 45 4C 54 41 00 14 0F A2 03 4A 53 52 20 A1 | DELTA.....JSR .|
00000700: 41 4E 20 20 3B A1 20 49 4E 43 20 28 44 45 47 52 |AN ;. INC (DEGR|
00000710: 45 45 53 29 00 1C 0F AC 03 54 41 58 00 29 0F B6 |EES).....TAX.)..|
00000720: 03 42 4E 45 20 43 52 43 31 00 40 0F C0 03 4C 44 |.BNE CRC1.@...LD|
00000730: 41 20 23 31 20 20 20 20 3B 4D 49 4E 49 4D 55 4D |A #1 ;MINIMUM|
00000740: 00 53 0F CA 03 43 52 43 31 20 53 54 41 20 44 45 |.S...CRC1 STA DE|
00000750: 4C 54 41 00 5E 0F D4 03 4C 44 41 20 23 30 00 6A |LTA.^...LDA #0.j|
00000760: 0F DE 03 53 54 41 20 24 35 42 00 76 0F E8 03 53 |...STA $5B.v...S|
00000770: 54 41 20 24 35 43 00 89 0F F2 03 4C 4F 4F 50 20 |TA $5C.....LOOP |
00000780: 4C 44 41 20 41 52 43 53 54 00 99 0F FC 03 4C 44 |LDA ARCST.....LD|
00000790: 58 20 41 52 43 53 54 AA 31 00 A6 0F 06 04 4C 44 |X ARCST.1.....LD|
000007A0: 59 20 23 24 46 46 00 C7 0F 10 04 3B 46 49 4E 44 |Y #$FF.....;FIND|
000007B0: 20 51 55 41 44 52 41 4E 54 20 AF 20 41 4E 47 4C | QUADRANT . ANGL|
000007C0: 45 20 54 48 45 54 41 00 D3 0F 1A 04 4C 50 32 20 |E THETA.....LP2 |
000007D0: 49 4E 59 00 DB 0F 24 04 53 45 43 00 E8 0F 2E 04 |INY...$.SEC.....|
000007E0: 53 42 43 20 23 24 35 41 00 F4 0F 38 04 42 43 53 |SBC #$5A...8.BCS|
000007F0: 20 4C 50 32 00 FC 0F 42 04 44 45 58 00 19 10 4C | LP2...B.DEX...L|
00000800: 04 42 50 4C 20 4C 50 32 20 20 3B 2E 59 B2 51 55 |.BPL LP2 ;.Y.QU|
00000810: 41 44 4E 20 28 30 AB 33 29 00 26 10 56 04 41 44 |ADN (0.3).&.V.AD|
00000820: 43 20 23 24 35 41 00 40 10 60 04 53 54 41 20 54 |C #$5A.@.`.STA T|
00000830: 48 45 54 41 20 20 3B 28 30 AB 39 30 44 45 47 29 |HETA ;(0.90DEG)|
00000840: 00 48 10 6A 04 54 59 41 00 50 10 74 04 4C 53 52 |.H.j.TYA.P.t.LSR|
00000850: 00 5C 10 7E 04 42 43 43 20 4C 50 33 00 69 10 88 |.\.~.BCC LP3.i..|
00000860: 04 4C 44 41 20 23 24 35 41 00 71 10 92 04 53 45 |.LDA #$5A.q...SE|
00000870: 43 00 7F 10 9C 04 53 42 43 20 54 48 45 54 41 00 |C.....SBC THETA.|
00000880: 8D 10 A6 04 53 54 41 20 54 48 45 54 41 00 99 10 |....STA THETA...|
00000890: B0 04 4C 50 33 20 54 59 41 00 A1 10 BA 04 4C 53 |..LP3 TYA.....LS|
000008A0: 52 00 A9 10 C4 04 4C 53 52 00 B0 10 CE 04 52 B0 |R.....LSR.....R.|
000008B0: 00 BE 10 D8 04 53 54 41 20 59 53 49 47 4E 00 C6 |.....STA YSIGN..|
000008C0: 10 E2 04 54 59 41 00 CF 10 EC 04 AF 20 23 33 00 |...TYA...... #3.|
000008D0: DB 10 F6 04 42 45 51 20 4C 50 34 00 E3 10 00 05 |....BEQ LP4.....|
000008E0: 53 45 43 00 EE 10 0A 05 53 42 43 20 23 33 00 00 |SEC.....SBC #3..|
000008F0: 11 14 05 4C 50 34 20 53 54 41 20 58 53 49 47 4E |...LP4 STA XSIGN|
00000900: 00 14 11 1E 05 3B 44 4F 20 59 52 AC BF 28 54 48 |.....;DO YR..(TH|
00000910: 45 54 41 29 00 1F 11 28 05 4C 44 41 20 59 52 00 |ETA)...(.LDA YR.|
00000920: 2C 11 32 05 4C 44 58 20 59 52 AA 31 00 3A 11 3C |,.2.LDX YR.1.:.<|
00000930: 05 4A 53 52 20 43 41 4C 43 BF 00 48 11 46 05 4C |.JSR CALC..H.F.L|
00000940: 44 59 20 59 53 49 47 4E 00 61 11 50 05 4A 53 52 |DY YSIGN.a.P.JSR|
00000950: 20 B6 56 20 3B 43 48 45 43 4B 20 59 20 53 49 47 | .V ;CHECK Y SIG|
00000960: 4E 00 69 11 5A 05 43 4C 43 00 74 11 64 05 41 44 |N.i.Z.CLC.t.d.AD|
00000970: 43 20 59 43 00 7F 11 6E 05 53 54 41 20 59 32 00 |C YC...n.STA Y2.|
00000980: 87 11 78 05 54 58 41 00 94 11 82 05 41 44 43 20 |..x.TXA.....ADC |
00000990: 59 43 AA 31 00 A1 11 8C 05 53 54 41 20 59 32 AA |YC.1.....STA Y2.|
000009A0: 31 00 B5 11 96 05 3B 44 4F 20 58 52 AC BE 28 54 |1.....;DO XR..(T|
000009B0: 48 45 54 41 29 00 C0 11 A0 05 4C 44 41 20 58 52 |HETA).....LDA XR|
000009C0: 00 CD 11 AA 05 4C 44 58 20 58 52 AA 31 00 DB 11 |.....LDX XR.1...|
000009D0: B4 05 4A 53 52 20 43 41 4C 43 BE 00 E9 11 BE 05 |..JSR CALC......|
000009E0: 4C 44 59 20 58 53 49 47 4E 00 02 12 C8 05 4A 53 |LDY XSIGN.....JS|
000009F0: 52 20 B6 56 20 3B 43 48 45 43 4B 20 58 20 53 49 |R .V ;CHECK X SI|
00000A00: 47 4E 00 0A 12 D2 05 43 4C 43 00 15 12 DC 05 41 |GN.....CLC.....A|
00000A10: 44 43 20 58 43 00 20 12 E6 05 53 54 41 20 58 32 |DC XC. ...STA X2|
00000A20: 00 28 12 F0 05 54 58 41 00 35 12 FA 05 41 44 43 |.(...TXA.5...ADC|
00000A30: 20 58 43 AA 31 00 42 12 04 06 53 54 41 20 58 32 | XC.1.B...STA X2|
00000A40: AA 31 00 4E 12 0E 06 4C 44 58 20 24 35 42 00 6B |.1.N...LDX $5B.k|
00000A50: 12 18 06 42 45 51 20 4C 50 35 20 20 20 20 3B 46 |...BEQ LP5 ;F|
00000A60: 4C 41 47 20 41 20 4D 4F 56 45 A4 00 81 12 22 06 |LAG A MOVE....".|
00000A70: 4A 53 52 20 49 44 52 57 20 20 20 3B 44 52 41 57 |JSR IDRW ;DRAW|
00000A80: A4 00 8D 12 2C 06 4C 44 58 20 24 35 43 00 99 12 |....,.LDX $5C...|
00000A90: 36 06 42 45 51 20 4C 50 36 00 A1 12 40 06 52 54 |6.BEQ LP6...@.RT|
00000AA0: 53 00 BF 12 4A 06 4C 50 35 20 44 45 43 20 24 35 |S...J.LP5 DEC $5|
00000AB0: 42 20 20 3B 43 41 4E 43 45 4C 20 46 4C 41 47 00 |B ;CANCEL FLAG.|
00000AC0: D7 12 54 06 4A 53 52 20 49 4D 4F 56 20 20 20 20 |..T.JSR IMOV |
00000AD0: 20 3B 4D 4F 56 45 A4 00 E9 12 5E 06 4C 50 36 20 | ;MOVE....^.LP6 |
00000AE0: 4C 44 41 20 44 45 4C 54 41 00 F1 12 68 06 43 4C |LDA DELTA...h.CL|
00000AF0: 43 00 FF 12 72 06 41 44 43 20 41 52 43 53 54 00 |C...r.ADC ARCST.|
00000B00: 0D 13 7C 06 53 54 41 20 41 52 43 53 54 00 19 13 |..|.STA ARCST...|
00000B10: 86 06 42 43 43 20 4C 50 37 00 29 13 90 06 49 4E |..BCC LP7.)...IN|
00000B20: 43 20 41 52 43 53 54 AA 31 00 3B 13 9A 06 4C 50 |C ARCST.1.;...LP|
00000B30: 37 20 4C 44 41 20 41 52 43 53 54 00 48 13 A4 06 |7 LDA ARCST.H...|
00000B40: 43 4D 50 20 41 52 43 80 00 58 13 AE 06 4C 44 41 |CMP ARC..X...LDA|
00000B50: 20 41 52 43 53 54 AA 31 00 67 13 B8 06 53 42 43 | ARCST.1.g...SBC|
00000B60: 20 41 52 43 80 AA 31 00 73 13 C2 06 42 43 43 20 | ARC..1.s...BCC |
00000B70: 4C 50 38 00 8D 13 CC 06 44 45 43 20 24 35 43 20 |LP8.....DEC $5C |
00000B80: 20 3B 43 41 4E 43 45 4C 20 46 4C 41 47 00 9E 13 | ;CANCEL FLAG...|
00000B90: D6 06 4C 50 38 20 4A 4D 50 20 4C 4F 4F 50 00 A4 |..LP8 JMP LOOP..|
00000BA0: 13 E0 06 3B 00 BF 13 EA 06 3B 53 55 42 52 4F 55 |...;.....;SUBROU|
00000BB0: 54 49 4E 45 20 B6 4F 4C 55 54 45 20 C5 55 45 00 |TINE .OLUTE .UE.|
00000BC0: CF 13 F4 06 B6 56 20 42 50 4C 20 41 42 4F 4B 00 |.....V BPL ABOK.|
00000BD0: D7 13 FE 06 43 4C 43 00 E3 13 08 07 45 B0 20 23 |....CLC.....E. #|
00000BE0: 24 46 46 00 EE 13 12 07 41 44 43 20 23 31 00 F6 |$FF.....ADC #1..|
00000BF0: 13 1C 07 50 48 41 00 FE 13 26 07 54 58 41 00 0A |...PHA...&.TXA..|
00000C00: 14 30 07 45 B0 20 23 24 46 46 00 15 14 3A 07 41 |.0.E. #$FF...:.A|
00000C10: 44 43 20 23 30 00 1D 14 44 07 54 41 58 00 25 14 |DC #0...D.TAX.%.|
00000C20: 4E 07 50 4C 41 00 45 14 58 07 41 42 4F 4B 20 52 |N.PLA.E.X.ABOK R|
00000C30: 54 53 20 3B 52 45 53 55 4C 54 20 49 4E 20 2E 41 |TS ;RESULT IN .A|
00000C40: 20 26 20 2E 58 00 4B 14 62 07 3B 00 6D 14 6C 07 | & .X.K.b.;.m.l.|
00000C50: 3B 53 55 42 52 4F 55 54 49 4E 45 20 43 41 4C 43 |;SUBROUTINE CALC|
00000C60: 55 4C 41 54 45 20 BF 45 20 46 55 4E 43 00 7B 14 |ULATE .E FUNC.{.|
00000C70: 76 07 43 41 4C 43 BE 20 50 48 41 00 88 14 80 07 |v.CALC. PHA.....|
00000C80: 4C 44 41 20 23 24 35 41 00 90 14 8A 07 53 45 43 |LDA #$5A.....SEC|
00000C90: 00 AA 14 94 07 53 42 43 20 54 48 45 54 41 20 3B |.....SBC THETA ;|
00000CA0: 28 39 30 AB 54 48 45 54 41 29 00 B2 14 9E 07 54 |(90.THETA).....T|
00000CB0: 41 59 00 BA 14 A8 07 50 4C 41 00 C7 14 B2 07 2E |AY.....PLA......|
00000CC0: 42 59 54 20 24 32 43 00 DB 14 BC 07 43 41 4C 43 |BYT $2C.....CALC|
00000CD0: BF 20 4C 44 59 20 54 48 45 54 41 00 EE 14 C6 07 |. LDY THETA.....|
00000CE0: 53 54 58 20 24 31 35 20 3B 48 49 42 59 54 00 FB |STX $15 ;HIBYT..|
00000CF0: 14 D0 07 4C 44 58 20 BF 45 2C 59 00 0C 15 DA 07 |...LDX .E,Y.....|
00000D00: 43 41 4C 43 20 53 54 58 20 24 32 32 00 1F 15 E4 |CALC STX $22....|
00000D10: 07 53 54 41 20 24 31 34 20 3B 4C 4F 42 59 54 00 |.STA $14 ;LOBYT.|
00000D20: 2A 15 EE 07 4C 44 41 20 23 30 00 36 15 F8 07 53 |*...LDA #0.6...S|
00000D30: 54 41 20 24 32 33 00 4E 15 02 08 4C 44 58 20 23 |TA $23.N...LDX #|
00000D40: 38 20 3B 31 36 42 49 54 AC 46 52 41 43 54 00 5F |8 ;16BIT.FRACT._|
00000D50: 15 0C 08 43 41 4C 32 20 4C 53 52 20 24 32 32 00 |...CAL2 LSR $22.|
00000D60: 6C 15 16 08 42 43 43 20 43 41 4C 33 00 74 15 20 |l...BCC CAL3.t. |
00000D70: 08 43 4C 43 00 80 15 2A 08 41 44 43 20 24 31 34 |.CLC...*.ADC $14|
00000D80: 00 88 15 34 08 50 48 41 00 94 15 3E 08 4C 44 41 |...4.PHA...>.LDA|
00000D90: 20 24 32 33 00 A0 15 48 08 41 44 43 20 24 31 35 | $23...H.ADC $15|
00000DA0: 00 AC 15 52 08 53 54 41 20 24 32 33 00 B4 15 5C |...R.STA $23...\|
00000DB0: 08 50 4C 41 00 C5 15 66 08 43 41 4C 33 20 4C 53 |.PLA...f.CAL3 LS|
00000DC0: 52 20 24 32 33 00 CC 15 70 08 52 B0 00 D4 15 7A |R $23...p.R....z|
00000DD0: 08 44 45 58 00 E1 15 84 08 42 4E 45 20 43 41 4C |.DEX.....BNE CAL|
00000DE0: 32 00 FA 15 8E 08 53 54 41 20 24 32 32 20 3B 52 |2.....STA $22 ;R|
00000DF0: 45 53 4C 4F 20 49 4E 20 2E 41 00 06 16 98 08 4C |ESLO IN .A.....L|
00000E00: 44 58 20 24 32 33 00 1B 16 A2 08 52 54 53 20 3B |DX $23.....RTS ;|
00000E10: 52 45 53 48 49 20 49 4E 20 2E 58 00 21 16 AC 08 |RESHI IN .X.!...|
00000E20: 3B 00 45 16 B6 08 BF 45 20 B2 20 AC 20 3B 54 41 |;.E....E . . ;TA|
00000E30: 42 4C 45 20 4F 46 20 BF 45 53 20 28 30 AB 39 30 |BLE OF .ES (0.90|
00000E40: 20 44 45 47 29 00 6E 16 C0 08 2E 42 59 54 20 24 | DEG).n....BYT $|
00000E50: 30 30 2C 24 30 34 2C 24 30 39 2C 24 30 44 2C 24 |00,$04,$09,$0D,$|
00000E60: 31 32 2C 24 31 36 2C 24 31 42 2C 24 31 46 00 97 |12,$16,$1B,$1F..|
00000E70: 16 CA 08 2E 42 59 54 20 24 32 34 2C 24 32 38 2C |....BYT $24,$28,|
00000E80: 24 32 43 2C 24 33 31 2C 24 33 35 2C 24 33 41 2C |$2C,$31,$35,$3A,|
00000E90: 24 33 45 2C 24 34 32 00 C0 16 D4 08 2E 42 59 54 |$3E,$42......BYT|
00000EA0: 20 24 34 37 2C 24 34 42 2C 24 34 46 2C 24 35 33 | $47,$4B,$4F,$53|
00000EB0: 2C 24 35 38 2C 24 35 43 2C 24 36 30 2C 24 36 34 |,$58,$5C,$60,$64|
00000EC0: 00 E9 16 DE 08 2E 42 59 54 20 24 36 38 2C 24 36 |......BYT $68,$6|
00000ED0: 43 2C 24 37 30 2C 24 37 34 2C 24 37 38 2C 24 37 |C,$70,$74,$78,$7|
00000EE0: 43 2C 24 38 30 2C 24 38 34 00 12 17 E8 08 2E 42 |C,$80,$84......B|
00000EF0: 59 54 20 24 38 38 2C 24 38 42 2C 24 38 46 2C 24 |YT $88,$8B,$8F,$|
00000F00: 39 33 2C 24 39 36 2C 24 39 41 2C 24 39 45 2C 24 |93,$96,$9A,$9E,$|
00000F10: 41 31 00 3B 17 F2 08 2E 42 59 54 20 24 41 35 2C |A1.;....BYT $A5,|
00000F20: 24 41 38 2C 24 41 42 2C 24 41 46 2C 24 42 32 2C |$A8,$AB,$AF,$B2,|
00000F30: 24 42 35 2C 24 42 38 2C 24 42 42 00 64 17 FC 08 |$B5,$B8,$BB.d...|
00000F40: 2E 42 59 54 20 24 42 45 2C 24 43 31 2C 24 43 34 |.BYT $BE,$C1,$C4|
00000F50: 2C 24 43 37 2C 24 43 41 2C 24 43 43 2C 24 43 46 |,$C7,$CA,$CC,$CF|
00000F60: 2C 24 44 32 00 8D 17 06 09 2E 42 59 54 20 24 44 |,$D2......BYT $D|
00000F70: 34 2C 24 44 37 2C 24 44 39 2C 24 44 42 2C 24 44 |4,$D7,$D9,$DB,$D|
00000F80: 45 2C 24 45 30 2C 24 45 32 2C 24 45 34 00 B6 17 |E,$E0,$E2,$E4...|
00000F90: 10 09 2E 42 59 54 20 24 45 36 2C 24 45 38 2C 24 |...BYT $E6,$E8,$|
00000FA0: 45 41 2C 24 45 43 2C 24 45 44 2C 24 45 46 2C 24 |EA,$EC,$ED,$EF,$|
00000FB0: 46 31 2C 24 46 32 00 DF 17 1A 09 2E 42 59 54 20 |F1,$F2......BYT |
00000FC0: 24 46 33 2C 24 46 35 2C 24 46 36 2C 24 46 37 2C |$F3,$F5,$F6,$F7,|
00000FD0: 24 46 38 2C 24 46 39 2C 24 46 41 2C 24 46 42 00 |$F8,$F9,$FA,$FB.|
00000FE0: 08 18 24 09 2E 42 59 54 20 24 46 43 2C 24 46 44 |..$..BYT $FC,$FD|
00000FF0: 2C 24 46 45 2C 24 46 45 2C 24 46 46 2C 24 46 46 |,$FE,$FE,$FF,$FF|
00001000: 2C 24 46 46 2C 24 46 46 00 1D 18 2E 09 2E 42 59 |,$FF,$FF......BY|
00001010: 54 20 24 46 46 2C 24 46 46 2C 24 46 46 00 23 18 |T $FF,$FF,$FF.#.|
00001020: 38 09 3B 00 2A 18 42 09 2E 80 00 00 00 |8.;.*.B...... |
..".D.. 'HIRES' CIRCLE - POLYGON.G.N..
SOURCE FILE BY ANTHONY BRYANT.Q.X.. 70
0.\....OPT N.B...;.H...;... .;"HIRES" VA
RIABLES BY G.KIZIAK.....X1 . $C027 ;CU
RRENT .ITI......Y1 . $C029.V...X2 .
$C02B ;. .ITI....H.Y2 . $C02D...R.XC
. $C02F ;CIRC CENTRE (ALSO BOX).!...YC
. $C031.D...HM . $C035 ;HIRES.MULTI
FLAG.J...;.P...;.P...;"HIRES" .ERNAL SUB
ROUTINES.....I.I .$C17C ;.ERNAL . .EGER.
....IE. .$C187 ;.ERNAL EAT & . X,Y.O.".M
OVE .$C26E ;'MOVE' RTN...,.IMOV .$C271
;.ERNAL MOVE. X1,Y1...6.IPLT .$C375 ;.
ERNAL PLOT.1.@.IDRW .$C42B ;.ERNAL DRAW
..7.J.;.M.T.;ZERO PAGE LABELS.S.^.THETA
. $57 ;THE ANGLE (0.90DEG)...H.YSIGN .
$58 ;DEP.ENT . QUADRANT...R.XSIGN . $59
; " ".A.|.;.......$8000
;423 BYTES.....;.....XR .W. 0 ;X
RADIUS.....YR .W. 0 ;Y RADIUS.>...
ARCST .W. 0 ;ARC START (DEG).`...ARC.
.W. 360;ARC . ANGL (DEG)...B.DELTA .BYT
5 ;POLYKN INCR (DEG)...L.;...V.;SUBROU
TINE . ANGLE (DEG) .EGER.W...;ACCURACY .
1 DEG (HEX 5A.90DEG)......AN PHA ;.
ACC.....JSR $0079.....BEQ NOM.E.....JSR
$AEFD ;EAT ",".,...CMP #",".G...BEQ NOM
.E ;A.HER "," !.F.&.PLA ;THROW AW
AY ACC...0.JMP I.I ;. .EGER . .A & .X..
.:.NOM.E PLA...D.RTS ;RESULT IN .A & .X.
..N.;.Q.X.;SUBROUTINE MOVE. XC,YC...B.MO
VC LDX #3...L.LDA X2,X...V.STA XC,X.....
DEX.....BPL MOVC.2.....RTS. ...;.<...;SU
BROUTINE MOVE. XR,YR.L...MOVR LDX #3.Y..
.LDA X2,X.F.F.STA XR,X.N.P.DEX.}.Z.BPL M
OVR.2.....RTS.....;.....;. CIRCLE,XC,YC,
XR,YR[,SA,EA,INC].....CIRCLE . ..L...JSR
IE......JSR MOVC ;MOVE. XC,YC... .JSR
IE....*.JSR MOVR ;MOVE. XR,YR...4.LDA
#0.7.>.LDX #0 ;.AULT ARCST.T.H.JSR
.AN ;. SA (DEGREES).B.R.STA ARCST.R.\.S
TX ARCST.1...F.LDA #.360...P.LDX #.360;.
AULT ARC....Z.JSR .AN ;. EA (DEGREES).C
...STA ARC..R...STX ARC..1.....LDA #5
;.AULT DELTA.....JSR .AN ;. I
NC (DEGREES).....TAX.)...BNE CRC1.@...LD
A #1 ;MINIMUM.S.J.CRC1 STA DELTA.^.T.
LDA #0.J...STA $5B.V...STA $5C.....LOOP
LDA ARCST.....LDX ARCST.1.....LDY #$FF.G
...;FIND QUADRANT . ANGLE THETA.S...LP2
INY...$.SEC.....SBC #$5A...8.BCS LP2...B
.DEX...L.BPL LP2 ;.Y.QUADN (0.3).&.V.AD
C #$5A.@.`.STA THETA ;(0.90DEG).H.J.TYA
.P.T.LSR.\.~.BCC LP3.I...LDA #$5A.Q...SE
C....SBC THETA.....STA THETA.....LP3 TY
A.....LSR...D.LSR...N.R....X.STA YSIGN.F
...TYA.O.... #3.....BEQ LP4.....SEC.....
SBC #3.....LP4 STA XSIGN.....;DO YR..(TH
ETA)...(.LDA YR.,.2.LDX YR.1.:.<.JSR CAL
C..H.F.LDY YSIGN.A.P.JSR .V ;CHECK Y SIG
N.I.Z.CLC.T.D.ADC YC..N.STA Y2...X.TXA.
....ADC YC.1.....STA Y2.1.....;DO XR..(T
HETA)... .LDA XR.M...LDX XR.1.....JSR CA
LC......LDY XSIGN...H.JSR .V ;CHECK X SI
GN...R.CLC.....ADC XC. ...STA X2.(...TXA
.5...ADC XC.1.B...STA X2.1.N...LDX $5B.K
...BEQ LP5 ;FLAG A MOVE....".JSR IDRW
;DRAW....,.LDX $5C...6.BEQ LP6...@.RT
S...J.LP5 DEC $5B ;CANCEL FLAG.W.T.JSR
IMOV ;MOVE....^.LP6 LDA DELTA...H.CL
C...R.ADC ARCST...|.STA ARCST.....BCC LP
7.)...INC ARCST.1.;...LP7 LDA ARCST.H...
CMP ARC..X...LDA ARCST.1.G...SBC ARC..1.
S.B.BCC LP8...L.DEC $5C ;CANCEL FLAG...
V.LP8 JMP LOOP.....;.....;SUBROUTINE .OL
UTE EUE.O....V BPL ABOK.W...CLC.....E. #
$FF.....ADC #1.....PHA...&.TXA...0.E. #$
FF...:.ADC #0...D.TAX.%.N.PLA.E.X.ABOK R
TS ;RESULT IN .A & .X.K.B.;.M.L.;SUBROUT
INE CALCULATE .E FUNC.{.V.CALC. PHA.....
LDA #$5A.....SEC.....SBC THETA ;(90.THET
A).....TAY.....PLA.G....BYT $2C.....CALC
. LDY THETA...F.STX $15 ;HIBYT...P.LDX .
E,Y...Z.CALC STX $22.....STA $14 ;LOBYT.
*...LDA #0.6...STA $23.N...LDX #8 ;16BIT
.FRACT._...CAL2 LSR $22.L...BCC CAL3.T.
.CLC...*.ADC $14...4.PHA...>.LDA $23. .H
.ADC $15...R.STA $23...\.PLA.E.F.CAL3 LS
R $23.L.P.R..T.Z.DEX.....BNE CAL2.....ST
A $22 ;RESLO IN .A.....LDX $23.....RTS ;
RESHI IN .X.!...;.E....E . . ;TABLE OF .
ES (0.90 DEG).N....BYT $00,$04,$09,$0D,$
12,$16,$1B,$1F...J..BYT $24,$28,$2C,$31,
$35,$3A,$3E,$42...T..BYT $47,$4B,$4F,$53
,$58,$5C,$60,$64......BYT $68,$6C,$70,$7
4,$78,$7C,$80,$84......BYT $88,$8B,$8F,$
93,$96,$9A,$9E,$A1.;....BYT $A5,$A8,$AB,
$AF,$B2,$B5,$B8,$BB.D....BYT $BE,$C1,$C4
,$C7,$CA,$CC,$CF,$D2......BYT $D4,$D7,$D
9,$DB,$DE,$E0,$E2,$E4......BYT $E6,$E8,$
EA,$EC,$ED,$EF,$F1,$F2......BYT $F3,$F5,
$F6,$F7,$F8,$F9,$FA,$FB...$..BYT $FC,$FD
,$FE,$FE,$FF,$FF,$FF,$FF......BYT $FF,$F
F,$FF.#.8.;.*.B......
> CLICK IMAGE PREVIEW FOR FULL MODAL