9.LINE DEMO
FILE INFORMATION
FILENAME(S): 9.LINE DEMO
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-12-02 00:14:46
APPEARS ON: 1 disk(s)
FILE HASH
dcdc958e1377fec11ee3e16d27d86e71912f57a4127c82ac8b982da7b53bf400
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRIUMWYRATSPREAD | 9.LINE DEMO | PRG | Maestro | 9 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 00 10 02 00 2A 24 36 30 30 30 00 02 00 41 43 43 |....*$6000...ACC| 00000010: 55 3D 24 35 37 00 41 43 43 55 32 3D 24 35 39 00 |U=$57.ACCU2=$59.| 00000020: 00 53 58 30 3D 24 35 42 20 20 3B 20 20 53 54 41 |.SX0=$5B ; STA| 00000030: 52 54 00 53 58 48 30 3D 24 35 43 20 3B 20 20 50 |RT.SXH0=$5C ; P| 00000040: 4F 49 4E 54 00 53 59 30 3D 24 35 44 20 20 3B 00 |OINT.SY0=$5D ;.| 00000050: 00 44 58 30 3D 24 35 45 20 20 3B 20 20 45 4E 44 |.DX0=$5E ; END| 00000060: 00 44 58 48 30 3D 24 35 46 20 3B 20 20 50 4F 49 |.DXH0=$5F ; POI| 00000070: 4E 54 00 44 59 30 3D 24 36 30 20 20 3B 00 00 58 |NT.DY0=$60 ;..X| 00000080: 30 3D 24 36 31 00 58 48 30 3D 24 36 32 00 59 30 |0=$61.XH0=$62.Y0| 00000090: 3D 24 36 33 00 00 58 52 45 47 3D 24 46 41 00 58 |=$63..XREG=$FA.X| 000000A0: 48 52 45 47 3D 24 46 42 00 59 52 45 47 3D 24 46 |HREG=$FB.YREG=$F| 000000B0: 43 00 00 02 00 5B 43 4F 4D 50 20 4F 4E 45 2C 54 |C....[COMP ONE,T| 000000C0: 57 4F 00 CC 44 41 20 4F 4E 45 00 C3 4D 50 20 54 |WO..DA ONE..MP T| 000000D0: 57 4F 00 CC 44 41 20 4F 4E 45 2B 31 00 D3 42 43 |WO..DA ONE+1..BC| 000000E0: 20 54 57 4F 2B 31 00 D4 41 58 00 5D 43 4F 4D 50 | TWO+1..AX.]COMP| 000000F0: 00 02 00 5B 46 49 4C 4C 20 43 49 4D 2C 44 41 54 |...[FILL CIM,DAT| 00000100: 41 00 CC 44 41 20 23 3C 44 41 54 41 00 D3 54 41 |A..DA #<DATA..TA| 00000110: 20 43 49 4D 00 CC 44 41 20 23 3E 44 41 54 41 00 | CIM..DA #>DATA.| 00000120: D3 54 41 20 43 49 4D 2B 31 00 5D 46 49 4C 4C 00 |.TA CIM+1.]FILL.| 00000130: 02 00 5B 49 4E 43 52 45 4D 45 4E 54 20 43 49 4D |..[INCREMENT CIM| 00000140: 00 C9 4E 43 20 43 49 4D 00 C2 4E 45 20 58 58 00 |..NC CIM..NE XX.| 00000150: C9 4E 43 20 43 49 4D 2B 31 00 58 58 2F 00 5D 49 |.NC CIM+1.XX/.]I| 00000160: 4E 43 52 45 4D 45 4E 54 00 02 00 5B 41 44 44 20 |NCREMENT...[ADD | 00000170: 43 49 4D 2C 43 49 4D 32 2C 42 49 54 53 00 5B 42 |CIM,CIM2,BITS.[B| 00000180: 49 54 53 31 36 00 CC 44 41 20 43 49 4D 2B 31 00 |ITS16..DA CIM+1.| 00000190: C1 44 43 20 43 49 4D 32 2B 31 00 D3 54 41 20 43 |.DC CIM2+1..TA C| 000001A0: 49 4D 2B 31 00 5D 42 49 54 53 31 36 00 CC 44 41 |IM+1.]BITS16..DA| 000001B0: 20 43 49 4D 00 C3 4C 43 00 C1 44 43 20 43 49 4D | CIM..LC..DC CIM| 000001C0: 32 00 D3 54 41 20 43 49 4D 00 2E 49 20 42 49 54 |2..TA CIM..I BIT| 000001D0: 53 2D 38 2C 20 42 43 43 20 58 43 3A 49 4E 43 20 |S-8, BCC XC:INC | 000001E0: 43 49 4D 2B 31 3A 58 43 2F 00 2E 49 20 42 49 54 |CIM+1:XC/..I BIT| 000001F0: 53 2D 31 36 2C 42 49 54 53 31 36 00 5D 41 44 44 |S-16,BITS16.]ADD| 00000200: 00 02 00 5B 45 51 55 41 4C 20 4F 4E 45 2C 54 57 |...[EQUAL ONE,TW| 00000210: 4F 00 CC 44 41 20 4F 4E 45 00 C3 4D 50 20 54 57 |O..DA ONE..MP TW| 00000220: 4F 00 C2 4E 45 20 4F 56 45 52 00 CC 44 41 20 4F |O..NE OVER..DA O| 00000230: 4E 45 2B 31 00 C3 4D 50 20 54 57 4F 2B 31 00 4F |NE+1..MP TWO+1.O| 00000240: 56 45 52 2F 00 5D 45 51 55 41 4C 00 02 00 5B 50 |VER/.]EQUAL...[P| 00000250: 4F 4B 45 20 43 49 4D 2C 44 41 54 41 00 CC 44 41 |OKE CIM,DATA..DA| 00000260: 20 23 44 41 54 41 00 D3 54 41 20 43 49 4D 00 5D | #DATA..TA CIM.]| 00000270: 50 4F 4B 45 00 02 00 5B 53 57 41 50 20 4F 4E 45 |POKE...[SWAP ONE| 00000280: 2C 54 57 4F 00 CC 44 41 20 4F 4E 45 00 CC 44 59 |,TWO..DA ONE..DY| 00000290: 20 54 57 4F 00 D3 54 41 20 54 57 4F 00 D3 54 59 | TWO..TA TWO..TY| 000002A0: 20 4F 4E 45 00 5D 53 57 41 50 00 02 00 5B 53 55 | ONE.]SWAP...[SU| 000002B0: 42 20 4F 4E 45 2C 54 57 4F 2C 52 45 53 55 4C 54 |B ONE,TWO,RESULT| 000002C0: 00 D3 45 43 00 CC 44 41 20 4F 4E 45 00 D3 42 43 |..EC..DA ONE..BC| 000002D0: 20 54 57 4F 00 D3 54 41 20 52 45 53 55 4C 54 00 | TWO..TA RESULT.| 000002E0: CC 44 41 20 4F 4E 45 2B 31 00 D3 42 43 20 54 57 |.DA ONE+1..BC TW| 000002F0: 4F 2B 31 00 D3 54 41 20 52 45 53 55 4C 54 2B 31 |O+1..TA RESULT+1| 00000300: 00 5D 53 55 42 00 02 00 5B 4D 4F 56 45 20 4F 4E |.]SUB...[MOVE ON| 00000310: 45 2C 54 57 4F 00 CC 44 41 20 4F 4E 45 00 D3 54 |E,TWO..DA ONE..T| 00000320: 41 20 54 57 4F 00 CC 44 41 20 4F 4E 45 2B 31 00 |A TWO..DA ONE+1.| 00000330: D3 54 41 20 54 57 4F 2B 31 00 5D 4D 4F 56 45 00 |.TA TWO+1.]MOVE.| 00000340: 00 00 00 02 00 53 54 41 52 54 2F 00 CA 53 52 20 |.....START/..SR | 00000350: 43 4C 52 49 4E 49 54 00 C6 49 4C 4C 20 53 58 30 |CLRINIT..ILL SX0| 00000360: 2C 31 35 30 00 D0 4F 4B 45 20 53 59 30 2C 31 30 |,150..OKE SY0,10| 00000370: 30 00 C6 49 4C 4C 20 44 58 30 2C 35 30 00 D0 4F |0..ILL DX0,50..O| 00000380: 4B 45 20 44 59 30 2C 31 39 38 00 4C 4F 4F 50 31 |KE DY0,198.LOOP1| 00000390: 2F 00 CA 53 52 20 4C 49 4E 45 00 00 C4 45 43 20 |/..SR LINE...EC | 000003A0: 44 59 30 00 C2 4E 45 20 4C 4F 4F 50 31 00 4C 4F |DY0..NE LOOP1.LO| 000003B0: 4F 50 32 2F 00 CA 53 52 20 4C 49 4E 45 00 C9 4E |OP2/..SR LINE..N| 000003C0: 43 52 45 4D 45 4E 54 20 53 58 30 00 CC 44 41 20 |CREMENT SX0..DA | 000003D0: 53 58 30 00 C2 4E 45 20 4C 4F 4F 50 32 00 4C 4F |SX0..NE LOOP2.LO| 000003E0: 4F 50 33 2F 00 CA 53 52 20 4C 49 4E 45 00 C9 4E |OP3/..SR LINE..N| 000003F0: 43 20 44 59 30 00 CC 44 59 20 44 59 30 00 C3 50 |C DY0..DY DY0..P| 00000400: 59 20 23 32 30 30 00 C2 4E 45 20 4C 4F 4F 50 33 |Y #200..NE LOOP3| 00000410: 00 00 45 4E 44 4C 45 53 53 2F 00 C9 4E 43 20 24 |..ENDLESS/..NC $| 00000420: 44 30 32 30 00 CA 4D 50 20 45 4E 44 4C 45 53 53 |D020..MP ENDLESS| 00000430: 00 00 D2 54 53 00 02 00 4C 49 4E 45 2F 00 D3 45 |...TS...LINE/..E| 00000440: 49 00 C3 4F 4D 50 20 53 58 30 2C 44 58 30 00 D0 |I..OMP SX0,DX0..| 00000450: 48 50 00 C2 43 43 20 41 57 41 59 00 00 D3 57 41 |HP..CC AWAY...WA| 00000460: 50 20 53 58 30 2C 44 58 30 00 D3 57 41 50 20 53 |P SX0,DX0..WAP S| 00000470: 58 48 30 2C 44 58 48 30 00 D3 57 41 50 20 53 59 |XH0,DXH0..WAP SY| 00000480: 30 2C 44 59 30 00 41 57 41 59 2F 00 D3 55 42 20 |0,DY0.AWAY/..UB | 00000490: 44 58 30 2C 53 58 30 2C 58 30 00 00 CC 44 41 20 |DX0,SX0,X0...DA | 000004A0: 44 59 30 00 D3 45 43 00 D3 42 43 20 53 59 30 00 |DY0..EC..BC SY0.| 000004B0: C2 43 43 20 55 50 58 4D 4F 52 45 59 00 00 D3 54 |.CC UPXMOREY...T| 000004C0: 41 20 59 30 00 CC 44 41 20 49 4E 43 45 52 00 D3 |A Y0..DA INCER..| 000004D0: 54 41 20 50 4C 41 43 45 31 00 D3 54 41 20 50 4C |TA PLACE1..TA PL| 000004E0: 41 43 45 32 00 C2 4E 45 20 53 55 4D 4D 41 00 55 |ACE2..NE SUMMA.U| 000004F0: 50 58 4D 4F 52 45 59 2F 00 C5 4F 52 20 23 24 46 |PXMOREY/..OR #$F| 00000500: 46 00 D4 41 59 00 C9 4E 59 00 D3 54 59 20 59 30 |F..AY..NY..TY Y0| 00000510: 00 CC 44 41 20 44 45 43 45 52 00 D3 54 41 20 50 |..DA DECER..TA P| 00000520: 4C 41 43 45 31 00 D3 54 41 20 50 4C 41 43 45 32 |LACE1..TA PLACE2| 00000530: 00 53 55 4D 4D 41 2F 00 CC 44 41 20 58 48 30 00 |.SUMMA/..DA XH0.| 00000540: C2 4E 45 20 4C 49 4E 45 52 31 00 CC 44 41 20 58 |.NE LINER1..DA X| 00000550: 30 00 C3 4D 50 20 59 30 00 C2 43 53 20 4C 49 4E |0..MP Y0..CS LIN| 00000560: 45 52 31 00 02 00 4C 49 4E 45 52 32 2F 00 C6 49 |ER1...LINER2/..I| 00000570: 4C 4C 20 41 43 43 55 2C 30 00 CC 44 41 20 23 30 |LL ACCU,0..DA #0| 00000580: 00 D3 54 41 20 41 43 43 55 32 2B 31 00 CC 44 41 |..TA ACCU2+1..DA| 00000590: 20 59 30 00 CC 53 52 00 D3 54 41 20 41 43 43 55 | Y0..SR..TA ACCU| 000005A0: 32 00 00 CD 4F 56 45 20 53 58 30 2C 58 52 45 47 |2...OVE SX0,XREG| 000005B0: 00 CC 44 41 20 53 59 30 00 D3 54 41 20 59 52 45 |..DA SY0..TA YRE| 000005C0: 47 00 58 32 32 2F 00 CA 53 52 20 50 4C 4F 54 00 |G.X22/..SR PLOT.| 000005D0: 50 4C 41 43 45 32 2F 00 C9 4E 43 20 59 52 45 47 |PLACE2/..NC YREG| 000005E0: 00 C1 44 44 20 41 43 43 55 2C 58 30 2C 31 36 00 |..DD ACCU,X0,16.| 000005F0: C3 4F 4D 50 20 41 43 43 55 2C 41 43 43 55 32 00 |.OMP ACCU,ACCU2.| 00000600: C2 43 43 20 58 31 32 00 C9 4E 43 52 45 4D 45 4E |.CC X12..NCREMEN| 00000610: 54 20 58 52 45 47 00 C1 44 44 20 41 43 43 55 32 |T XREG..DD ACCU2| 00000620: 2C 59 30 2C 38 00 58 31 32 2F 00 CA 53 52 20 57 |,Y0,8.X12/..SR W| 00000630: 41 49 54 00 CC 44 41 20 59 52 45 47 00 C3 4D 50 |AIT..DA YREG..MP| 00000640: 20 44 59 30 00 C2 4E 45 20 58 32 32 00 00 CA 53 | DY0..NE X22...S| 00000650: 52 20 50 4C 4F 54 00 CA 4D 50 20 4F 56 45 52 00 |R PLOT..MP OVER.| 00000660: 02 00 4C 49 4E 45 52 31 2F 00 C6 49 4C 4C 20 41 |..LINER1/..ILL A| 00000670: 43 43 55 2C 30 00 CC 44 41 20 58 48 30 00 CC 53 |CCU,0..DA XH0..S| 00000680: 52 00 D3 54 41 20 41 43 43 55 32 2B 31 00 CC 44 |R..TA ACCU2+1..D| 00000690: 41 20 58 30 00 D2 4F 52 00 D3 54 41 20 41 43 43 |A X0..OR..TA ACC| 000006A0: 55 32 00 00 CD 4F 56 45 20 53 58 30 2C 58 52 45 |U2...OVE SX0,XRE| 000006B0: 47 00 CC 44 41 20 53 59 30 00 D3 54 41 20 59 52 |G..DA SY0..TA YR| 000006C0: 45 47 00 58 32 31 2F 00 CA 53 52 20 50 4C 4F 54 |EG.X21/..SR PLOT| 000006D0: 00 C9 4E 43 52 45 4D 45 4E 54 20 58 52 45 47 00 |..NCREMENT XREG.| 000006E0: C1 44 44 20 41 43 43 55 2C 59 30 2C 38 00 C3 4F |.DD ACCU,Y0,8..O| 000006F0: 4D 50 20 41 43 43 55 2C 41 43 43 55 32 00 C2 43 |MP ACCU,ACCU2..C| 00000700: 43 20 58 31 31 00 50 4C 41 43 45 31 2F 00 C9 4E |C X11.PLACE1/..N| 00000710: 43 20 59 52 45 47 00 C1 44 44 20 41 43 43 55 32 |C YREG..DD ACCU2| 00000720: 2C 58 30 2C 31 36 00 58 31 31 2F 00 CA 53 52 20 |,X0,16.X11/..SR | 00000730: 57 41 49 54 00 C5 51 55 41 4C 20 58 52 45 47 2C |WAIT..QUAL XREG,| 00000740: 44 58 30 00 C2 4E 45 20 58 32 31 00 00 CA 53 52 |DX0..NE X21...SR| 00000750: 20 50 4C 4F 54 00 CA 4D 50 20 4F 56 45 52 00 02 | PLOT..MP OVER..| 00000760: 00 50 4C 4F 54 2F 00 CC 44 41 20 59 52 45 47 00 |.PLOT/..DA YREG.| 00000770: AE 42 20 24 34 42 2C 24 46 38 00 CC 53 52 00 D4 |.B $4B,$F8..SR..| 00000780: 41 58 00 CC 44 41 20 58 52 45 47 00 C1 4E 44 20 |AX..DA XREG..ND | 00000790: 23 37 00 D4 41 59 00 C5 4F 52 20 58 52 45 47 00 |#7..AY..OR XREG.| 000007A0: C1 44 43 20 43 49 4D 2B 31 2C 58 00 D3 54 41 20 |.DC CIM+1,X..TA | 000007B0: 24 46 45 00 CC 44 41 20 43 49 4D 2C 58 00 C1 44 |$FE..DA CIM,X..D| 000007C0: 43 20 58 48 52 45 47 00 D3 54 41 20 24 46 46 00 |C XHREG..TA $FF.| 000007D0: CC 44 58 20 43 49 4D 32 2C 59 00 CC 44 41 20 59 |.DX CIM2,Y..DA Y| 000007E0: 52 45 47 00 C1 4E 44 20 23 37 00 D4 41 59 00 D4 |REG..ND #7..AY..| 000007F0: 58 41 00 C5 4F 52 20 28 24 46 45 29 2C 59 00 D3 |XA..OR ($FE),Y..| 00000800: 54 41 20 28 24 46 45 29 2C 59 00 D2 54 53 00 02 |TA ($FE),Y..TS..| 00000810: 00 43 49 4D 2F 00 2E 42 20 24 32 30 2C 30 2C 24 |.CIM/..B $20,0,$| 00000820: 32 31 2C 36 34 2C 24 32 32 2C 24 38 30 2C 24 32 |21,64,$22,$80,$2| 00000830: 33 2C 24 43 30 00 2E 42 20 24 32 35 2C 30 2C 24 |3,$C0..B $25,0,$| 00000840: 32 36 2C 36 34 2C 24 32 37 2C 24 38 30 2C 24 32 |26,64,$27,$80,$2| 00000850: 38 2C 24 43 30 00 2E 42 20 24 32 41 2C 30 2C 24 |8,$C0..B $2A,0,$| 00000860: 32 42 2C 36 34 2C 24 32 43 2C 24 38 30 2C 24 32 |2B,64,$2C,$80,$2| 00000870: 44 2C 24 43 30 00 2E 42 20 24 32 46 2C 30 2C 24 |D,$C0..B $2F,0,$| 00000880: 33 30 2C 36 34 2C 24 33 31 2C 24 38 30 2C 24 33 |30,64,$31,$80,$3| 00000890: 32 2C 24 43 30 00 2E 42 20 24 33 34 2C 30 2C 24 |2,$C0..B $34,0,$| 000008A0: 33 35 2C 36 34 2C 24 33 36 2C 24 38 30 2C 24 33 |35,64,$36,$80,$3| 000008B0: 37 2C 24 43 30 00 2E 42 20 24 33 39 2C 30 2C 24 |7,$C0..B $39,0,$| 000008C0: 33 41 2C 36 34 2C 24 33 42 2C 24 38 30 2C 24 33 |3A,64,$3B,$80,$3| 000008D0: 43 2C 24 43 30 2C 24 33 45 2C 30 00 02 00 43 49 |C,$C0,$3E,0...CI| 000008E0: 4D 32 2F 00 2E 42 20 31 32 38 2C 36 34 2C 33 32 |M2/..B 128,64,32| 000008F0: 2C 31 36 2C 38 2C 34 2C 32 2C 31 00 02 00 43 4C |,16,8,4,2,1...CL| 00000900: 52 49 4E 49 54 2F 00 CC 44 41 20 23 30 00 D3 54 |RINIT/..DA #0..T| 00000910: 41 20 24 46 41 00 CC 44 58 20 23 33 32 00 D3 54 |A $FA..DX #32..T| 00000920: 58 20 24 46 42 00 D4 41 59 00 43 4C 31 2F 00 D3 |X $FB..AY.CL1/..| 00000930: 54 41 20 28 24 46 41 29 2C 59 00 C4 45 59 00 C2 |TA ($FA),Y..EY..| 00000940: 4E 45 20 43 4C 31 00 C9 4E 43 20 24 46 42 00 C9 |NE CL1..NC $FB..| 00000950: 4E 58 00 C3 50 58 20 23 36 34 00 C2 4E 45 20 43 |NX..PX #64..NE C| 00000960: 4C 31 00 00 CA 53 52 20 24 45 35 34 34 00 CC 44 |L1...SR $E544..D| 00000970: 41 20 23 35 39 00 D3 54 41 20 35 33 32 36 35 00 |A #59..TA 53265.| 00000980: CC 44 41 20 23 32 34 00 D3 54 41 20 35 33 32 37 |.DA #24..TA 5327| 00000990: 32 00 00 CC 44 41 20 23 31 00 CC 44 59 20 23 30 |2...DA #1..DY #0| 000009A0: 00 42 41 43 4B 2F 00 D3 54 41 20 24 34 30 30 2C |.BACK/..TA $400,| 000009B0: 59 00 D3 54 41 20 24 35 30 30 2C 59 00 D3 54 41 |Y..TA $500,Y..TA| 000009C0: 20 24 36 30 30 2C 59 00 D3 54 41 20 24 37 30 30 | $600,Y..TA $700| 000009D0: 2D 32 34 2C 59 00 C4 45 59 00 C2 4E 45 20 42 41 |-24,Y..EY..NE BA| 000009E0: 43 4B 00 00 D2 54 53 00 02 00 57 41 49 54 2F 20 |CK...TS...WAIT/ | 000009F0: 20 20 20 20 52 54 53 00 CC 44 41 20 31 39 38 00 | RTS..DA 198.| 00000A00: C2 45 51 20 57 41 49 54 00 CC 44 41 20 23 30 00 |.EQ WAIT..DA #0.| 00000A10: D3 54 41 20 31 39 38 00 D2 54 53 00 02 00 4F 56 |.TA 198..TS...OV| 00000A20: 45 52 2F 00 D0 4C 41 00 C1 4E 44 20 23 24 31 00 |ER/..LA..ND #$1.| 00000A30: C2 45 51 20 4C 41 53 54 00 00 D3 57 41 50 20 53 |.EQ LAST...WAP S| 00000A40: 58 30 2C 44 58 30 00 D3 57 41 50 20 53 58 48 30 |X0,DX0..WAP SXH0| 00000A50: 2C 44 58 48 30 00 D3 57 41 50 20 53 59 30 2C 44 |,DXH0..WAP SY0,D| 00000A60: 59 30 00 4C 41 53 54 2F 00 C3 4C 49 00 D2 54 53 |Y0.LAST/..LI..TS| 00000A70: 00 02 00 49 4E 43 45 52 2F 00 C9 4E 43 20 59 52 |...INCER/..NC YR| 00000A80: 45 47 00 44 45 43 45 52 2F 00 C4 45 43 20 59 52 |EG.DECER/..EC YR| 00000A90: 45 47 00 5D 2E 24 38 30 30 30 00 01 |EG.].$8000.. |
....*$6000...ACCU=$57.ACCU2=$59..SX0=$5B ; START.SXH0=$5C ; POINT.SY0=$5D ;. .DX0=$5E ; END.DXH0=$5F ; POINT.DY0=$ 60 ;..X0=$61.XH0=$62.Y0=$63..XREG=$FA.X HREG=$FB.YREG=$FC....[COMP ONE,TWO.LDA O NE.CMP TWO.LDA ONE+1.SBC TWO+1.TAX.]COMP ...[FILL CIM,DATA.LDA #<DATA.STA CIM.LDA #>DATA.STA CIM+1.]FILL...[INCREMENT CIM .INC CIM.BNE XX.INC CIM+1.XX/.]INCREMENT ...[ADD CIM,CIM2,BITS.[BITS16.LDA CIM+1. ADC CIM2+1.STA CIM+1.]BITS16.LDA CIM.CLC .ADC CIM2.STA CIM..I BITS-8, BCC XC:INC CIM+1:XC/..I BITS-16,BITS16.]ADD...[EQUA L ONE,TWO.LDA ONE.CMP TWO.BNE OVER.LDA O NE+1.CMP TWO+1.OVER/.]EQUAL...[POKE CIM, DATA.LDA #DATA.STA CIM.]POKE...[SWAP ONE ,TWO.LDA ONE.LDY TWO.STA TWO.STY ONE.]SW AP...[SUB ONE,TWO,RESULT.SEC.LDA ONE.SBC TWO.STA RESULT.LDA ONE+1.SBC TWO+1.STA RESULT+1.]SUB...[MOVE ONE,TWO.LDA ONE.ST A TWO.LDA ONE+1.STA TWO+1.]MOVE......STA RT/.JSR CLRINIT.FILL SX0,150.POKE SY0,10 0.FILL DX0,50.POKE DY0,198.LOOP1/.JSR LI NE..DEC DY0.BNE LOOP1.LOOP2/.JSR LINE.IN CREMENT SX0.LDA SX0.BNE LOOP2.LOOP3/.JSR LINE.INC DY0.LDY DY0.CPY #200.BNE LOOP3 ..ENDLESS/.INC $D020.JMP ENDLESS..RTS... LINE/.SEI.COMP SX0,DX0.PHP.BCC AWAY..SWA P SX0,DX0.SWAP SXH0,DXH0.SWAP SY0,DY0.AW AY/.SUB DX0,SX0,X0..LDA DY0.SEC.SBC SY0. BCC UPXMOREY..STA Y0.LDA INCER.STA PLACE 1.STA PLACE2.BNE SUMMA.UPXMOREY/.EOR #$F F.TAY.INY.STY Y0.LDA DECER.STA PLACE1.ST A PLACE2.SUMMA/.LDA XH0.BNE LINER1.LDA X 0.CMP Y0.BCS LINER1...LINER2/.FILL ACCU, 0.LDA #0.STA ACCU2+1.LDA Y0.LSR.STA ACCU 2..MOVE SX0,XREG.LDA SY0.STA YREG.X22/.J SR PLOT.PLACE2/.INC YREG.ADD ACCU,X0,16. COMP ACCU,ACCU2.BCC X12.INCREMENT XREG.A DD ACCU2,Y0,8.X12/.JSR WAIT.LDA YREG.CMP DY0.BNE X22..JSR PLOT.JMP OVER...LINER1 /.FILL ACCU,0.LDA XH0.LSR.STA ACCU2+1.LD A X0.ROR.STA ACCU2..MOVE SX0,XREG.LDA SY 0.STA YREG.X21/.JSR PLOT.INCREMENT XREG. ADD ACCU,Y0,8.COMP ACCU,ACCU2.BCC X11.PL ACE1/.INC YREG.ADD ACCU2,X0,16.X11/.JSR WAIT.EQUAL XREG,DX0.BNE X21..JSR PLOT.JM P OVER...PLOT/.LDA YREG..B $4B,$F8.LSR.T AX.LDA XREG.AND #7.TAY.EOR XREG.ADC CIM+ 1,X.STA $FE.LDA CIM,X.ADC XHREG.STA $FF. LDX CIM2,Y.LDA YREG.AND #7.TAY.TXA.EOR ( $FE),Y.STA ($FE),Y.RTS...CIM/..B $20,0,$ 21,64,$22,$80,$23,$C0..B $25,0,$26,64,$2 7,$80,$28,$C0..B $2A,0,$2B,64,$2C,$80,$2 D,$C0..B $2F,0,$30,64,$31,$80,$32,$C0..B $34,0,$35,64,$36,$80,$37,$C0..B $39,0,$ 3A,64,$3B,$80,$3C,$C0,$3E,0...CIM2/..B 1 28,64,32,16,8,4,2,1...CLRINIT/.LDA #0.ST A $FA.LDX #32.STX $FB.TAY.CL1/.STA ($FA) ,Y.DEY.BNE CL1.INC $FB.INX.CPX #64.BNE C L1..JSR $E544.LDA #59.STA 53265.LDA #24. STA 53272..LDA #1.LDY #0.BACK/.STA $400, Y.STA $500,Y.STA $600,Y.STA $700-24,Y.DE Y.BNE BACK..RTS...WAIT/ RTS.LDA 198. BEQ WAIT.LDA #0.STA 198.RTS...OVER/.PLA. AND #$1.BEQ LAST..SWAP SX0,DX0.SWAP SXH0 ,DXH0.SWAP SY0,DY0.LAST/.CLI.RTS...INCER /.INC YREG.DECER/.DEC YREG.].$8000..
> CLICK IMAGE PREVIEW FOR FULL MODAL