GRAPHIC UTIL.SRC
FILE INFORMATION
FILENAME(S): GRAPHIC UTIL.SRC
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 21:12:52
APPEARS ON: 1 disk(s)
FILE HASH
2fa51c14a2278b35165df89c1bbacc9cc2b664db091712cc1e7d85613423ce9c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR 4 | GRAPHIC UTIL.SRC | PRG | DuncanTwain | 27 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 30 04 00 00 8F 20 54 48 45 20 54 52 41 4E |..0.... THE TRAN|
00000010: 53 41 43 54 4F 52 20 56 4F 4C 55 4D 45 20 34 20 |SACTOR VOLUME 4 |
00000020: 49 53 53 55 45 20 30 34 20 50 41 47 45 20 34 38 |ISSUE 04 PAGE 48|
00000030: 00 51 04 01 00 8F 20 4E 4F 54 45 20 4E 4F 54 20 |.Q.... NOTE NOT |
00000040: 53 48 4F 57 4E 20 49 4E 20 4D 41 47 41 5A 49 4E |SHOWN IN MAGAZIN|
00000050: 45 00 6B 04 0A 00 8F 22 53 3D 44 53 41 56 45 22 |E.k...."S=DSAVE"|
00000060: 40 47 52 4F 55 54 49 4E 45 53 22 00 82 04 14 00 |@GROUTINES".....|
00000070: 9F 32 2C 38 2C 31 2C 22 40 30 3A 47 52 4F 55 54 |.2,8,1,"@0:GROUT|
00000080: 32 22 00 8E 04 1E 00 9E 37 AC 34 30 39 36 00 9A |2"......7.4096..|
00000090: 04 28 00 2E 4F 50 54 20 4F 32 00 AF 04 32 00 2E |.(..OPT O2...2..|
000000A0: 4C 53 54 20 38 2C 34 2C 22 50 41 43 4B 53 54 00 |LST 8,4,"PACKST.|
000000B0: C6 04 3C 00 2E 4C 53 54 20 38 2C 34 2C 22 43 36 |..<..LST 8,4,"C6|
000000C0: 34 48 41 52 44 22 00 D7 04 46 00 4D 41 50 50 54 |4HARD"...F.MAPPT|
000000D0: 52 20 B2 20 24 31 39 00 EA 04 50 00 42 49 54 4D |R . $19...P.BITM|
000000E0: 41 50 20 B2 20 24 32 30 30 30 00 00 05 5A 00 43 |AP . $2000...Z.C|
000000F0: 4F 4C 50 54 52 20 B2 20 4D 41 50 50 54 52 AA 32 |OLPTR . MAPPTR.2|
00000100: 00 0B 05 64 00 AC B2 20 24 41 33 00 1B 05 6E 00 |...d... $A3...n.|
00000110: 54 45 4D 50 31 20 AC B2 AC AA 31 00 2B 05 78 00 |TEMP1 ....1.+.x.|
00000120: 54 45 4D 50 32 20 AC B2 AC AA 31 00 3B 05 82 00 |TEMP2 ....1.;...|
00000130: 4C 49 4E 45 59 20 AC B2 AC AA 32 00 4B 05 8C 00 |LINEY ....2.K...|
00000140: 4C 49 4E 45 58 20 AC B2 AC AA 32 00 5C 05 96 00 |LINEX ....2.\...|
00000150: 44 45 4C 54 41 58 20 AC B2 AC AA 33 00 6D 05 A0 |DELTAX ....3.m..|
00000160: 00 44 45 4C 54 41 59 20 AC B2 AC AA 33 00 7C 05 |.DELTAY ....3.|.|
00000170: AA 00 C3 47 54 48 20 AC B2 AC AA 31 00 8F 05 B4 |...GTH ....1....|
00000180: 00 4C 49 4E 45 43 4F 4C 52 20 AC B2 AC AA 31 00 |.LINECOLR ....1.|
00000190: A1 05 BE 00 50 52 49 4D 43 4F 4C 20 B2 20 24 46 |....PRIMCOL . $F|
000001A0: 42 00 B3 05 C8 00 52 4F 57 20 B2 20 50 52 49 4D |B.....ROW . PRIM|
000001B0: 43 4F 4C 00 CB 05 D2 00 53 45 4C 43 4F 4C 53 20 |COL.....SELCOLS |
000001C0: B2 20 50 52 49 4D 43 4F 4C AA 31 00 E0 05 DC 00 |. PRIMCOL.1.....|
000001D0: 43 4F 4C 55 4D 4E 20 B2 20 53 45 4C 43 4F 4C 53 |COLUMN . SELCOLS|
000001E0: 00 F1 05 E6 00 4D 41 58 43 4F 4C 20 B2 20 31 36 |.....MAXCOL . 16|
000001F0: 30 00 02 06 F0 00 4D 41 58 52 4F 57 20 B2 20 32 |0.....MAXROW . 2|
00000200: 30 30 00 20 06 04 01 3B 43 4F 4D 4D 45 4E 54 53 |00. ...;COMMENTS|
00000210: 20 91 20 48 4F 57 20 A4 20 55 53 45 20 54 48 45 | . HOW . USE THE|
00000220: 00 37 06 0E 01 3B 47 52 41 50 48 49 43 53 20 52 |.7...;GRAPHICS R|
00000230: 4F 55 54 49 4E 45 53 00 3D 06 18 01 3B 00 61 06 |OUTINES.=...;.a.|
00000240: 22 01 3B 54 48 45 20 46 49 52 53 54 20 42 59 54 |".;THE FIRST BYT|
00000250: 45 20 4F 46 20 54 48 49 53 20 50 41 43 4B 41 47 |E OF THIS PACKAG|
00000260: 45 00 7B 06 2C 01 3B 49 53 20 41 4E 20 52 54 53 |E.{.,.;IS AN RTS|
00000270: 20 81 20 54 48 45 20 4D 93 45 52 00 9F 06 36 01 | . THE M.ER...6.|
00000280: 3B 54 48 45 20 82 20 32 34 20 42 59 54 45 53 20 |;THE . 24 BYTES |
00000290: 41 52 45 20 4A 55 4D 50 20 56 45 43 A4 52 53 00 |ARE JUMP VEC.RS.|
000002A0: C2 06 40 01 3B 54 48 45 20 46 49 52 53 54 20 35 |..@.;THE FIRST 5|
000002B0: 20 4A 55 4D 50 20 56 45 43 A4 52 53 20 41 52 45 | JUMP VEC.RS ARE|
000002C0: 20 81 00 E4 06 4A 01 3B 55 53 45 20 46 52 4F 4D | ....J.;USE FROM|
000002D0: 20 42 41 53 49 43 2E 20 20 8B 20 54 48 49 53 20 | BASIC. . THIS |
000002E0: 43 4F 44 45 00 07 07 54 01 3B 49 53 20 93 45 44 |CODE...T.;IS .ED|
000002F0: 20 41 54 20 24 39 35 46 46 20 41 53 20 53 55 47 | AT $95FF AS SUG|
00000300: 47 45 53 54 45 44 2C 00 28 07 5E 01 3B 54 48 45 |GESTED,.(.^.;THE|
00000310: 53 45 20 56 45 43 A4 52 53 20 53 54 41 52 54 20 |SE VEC.RS START |
00000320: 41 54 20 33 38 34 30 30 00 50 07 68 01 3B 46 52 |AT 38400.P.h.;FR|
00000330: 4F 4D 20 42 41 53 49 43 2C 20 54 48 49 4E 47 53 |OM BASIC, THINGS|
00000340: 20 57 B0 4B 20 41 53 20 46 4F 4C 4C 4F 57 53 3A | W.K AS FOLLOWS:|
00000350: 00 56 07 72 01 3B 00 6D 07 7C 01 3B 49 4E 49 54 |.V.r.;.m.|.;INIT|
00000360: 49 41 4C 49 5A 45 20 9E 33 38 34 30 30 00 88 07 |IALIZE .38400...|
00000370: 86 01 3B 20 20 20 9E 33 38 34 30 30 2C 43 30 2C |..; .38400,C0,|
00000380: 43 31 2C 43 32 2C 43 33 00 AC 07 90 01 3B 57 49 |C1,C2,C3.....;WI|
00000390: 4C 4C 20 53 45 54 55 50 20 54 48 45 20 43 4F 4C |LL SETUP THE COL|
000003A0: 4F 55 52 20 47 52 41 50 48 49 43 53 00 CD 07 9A |OUR GRAPHICS....|
000003B0: 01 3B 53 43 52 45 45 4E 20 57 49 54 48 20 34 20 |.;SCREEN WITH 4 |
000003C0: 43 4F 4C 4F 55 52 53 20 43 30 AB 43 33 00 F0 07 |COLOURS C0.C3...|
000003D0: A4 01 3B 43 30 20 49 53 20 54 48 45 20 42 41 43 |..;C0 IS THE BAC|
000003E0: 4B 47 52 4F 55 4E 44 2C 20 20 43 33 20 CB 45 53 |KGROUND, C3 .ES|
000003F0: 00 12 08 AE 01 3B B5 4F 20 54 48 45 20 43 4F 4C |.....;.O THE COL|
00000400: 4F 55 52 20 4E 59 42 42 4C 45 53 2E 20 20 43 31 |OUR NYBBLES. C1|
00000410: 20 AF 00 30 08 B8 01 3B 43 32 20 CB 20 B5 4F 20 | ..0...;C2 . .O |
00000420: 54 48 45 20 54 45 58 54 20 53 43 52 45 45 4E 2E |THE TEXT SCREEN.|
00000430: 00 51 08 C2 01 3B 54 48 45 20 53 43 52 45 45 4E |.Q...;THE SCREEN|
00000440: 20 49 53 20 43 4C 45 41 52 45 44 20 A4 20 54 48 | IS CLEARED . TH|
00000450: 45 00 7B 08 CC 01 3B 42 41 43 4B 47 52 4F 55 4E |E.{...;BACKGROUN|
00000460: 44 20 43 4F 4C 4F 55 52 2E 20 20 59 4F 55 20 4D |D COLOUR. YOU M|
00000470: 55 53 54 20 53 45 54 20 54 48 45 00 8F 08 D6 01 |UST SET THE.....|
00000480: 3B 42 B0 44 45 52 20 59 4F 55 52 53 45 4C 46 00 |;B.DER YOURSELF.|
00000490: 95 08 E0 01 3B 00 B0 08 EA 01 3B 87 20 4C 4F 43 |....;.....;. LOC|
000004A0: 20 9E 33 38 34 30 33 20 28 42 41 53 45 AA 33 29 | .38403 (BASE.3)|
000004B0: 00 CA 08 F4 01 3B 20 20 20 9E 33 38 34 30 33 2C |.....; .38403,|
000004C0: 52 4F 57 2C 43 4F 4C 55 4D 4E 00 EF 08 FE 01 3B |ROW,COLUMN.....;|
000004D0: 87 53 20 54 48 45 20 47 49 56 45 4E 20 50 49 58 |.S THE GIVEN PIX|
000004E0: 45 4C 2E 20 20 52 4F 57 53 20 52 41 4E 47 45 00 |EL. ROWS RANGE.|
000004F0: 10 09 08 02 3B 46 52 4F 4D 20 30 20 A4 20 31 39 |....;FROM 0 . 19|
00000500: 39 2E 20 20 43 4F 4C 55 4D 4E 53 20 46 52 4F 4D |9. COLUMNS FROM|
00000510: 00 35 09 12 02 3B 30 20 A4 20 31 35 39 2E 20 20 |.5...;0 . 159. |
00000520: 54 48 45 20 43 4F 4C 4F 55 52 20 46 52 4F 4D 20 |THE COLOUR FROM |
00000530: 30 20 A4 20 33 00 5A 09 1C 02 3B 54 48 41 54 20 |0 . 3.Z...;THAT |
00000540: 49 53 20 49 4E 20 54 48 41 54 20 4C 4F 43 41 54 |IS IN THAT LOCAT|
00000550: 49 91 20 57 49 4C 4C 20 42 45 00 70 09 26 02 3B |I. WILL BE.p.&.;|
00000560: 53 A4 52 45 44 20 49 4E 20 4C 4F 43 41 54 49 91 |S.RED IN LOCATI.|
00000570: 00 83 09 30 02 3B 81 20 59 4F 55 20 A4 20 C2 20 |...0.;. YOU . . |
00000580: 41 54 2E 00 89 09 3A 02 3B 00 A7 09 44 02 3B 53 |AT....:.;...D.;S|
00000590: 45 54 20 50 4F B5 20 9E 20 33 38 34 30 36 20 28 |ET PO. . 38406 (|
000005A0: 42 41 53 45 AA 36 29 00 C6 09 4E 02 3B 20 20 20 |BASE.6)...N.; |
000005B0: 9E 33 38 34 30 36 2C 52 4F 57 2C 43 4F 4C 55 4D |.38406,ROW,COLUM|
000005C0: 4E 2C 54 59 50 45 00 E6 09 58 02 3B 53 45 54 53 |N,TYPE...X.;SETS|
000005D0: 20 54 48 45 20 47 49 56 45 4E 20 50 4F B5 20 91 | THE GIVEN PO. .|
000005E0: 2E 20 20 54 48 45 00 07 0A 62 02 3B 54 59 50 45 |. THE...b.;TYPE|
000005F0: 20 49 53 20 41 20 4E 55 4D 42 45 52 20 46 52 4F | IS A NUMBER FRO|
00000600: 4D 20 30 20 A4 20 33 00 28 0A 6C 02 3B AF 20 53 |M 0 . 3.(.l.;. S|
00000610: 48 4F 57 53 20 91 45 20 4F 46 20 54 48 45 20 34 |HOWS .E OF THE 4|
00000620: 20 43 4F 4C 4F 55 52 53 00 51 0A 76 02 3B 59 4F | COLOURS.Q.v.;YO|
00000630: 55 20 53 45 54 20 57 49 54 48 20 54 48 45 20 49 |U SET WITH THE I|
00000640: 4E 49 54 49 41 4C 49 5A 45 20 52 4F 55 54 49 4E |NITIALIZE ROUTIN|
00000650: 45 00 57 0A 80 02 3B 00 7A 0A 8A 02 3B 8C 20 A4 |E.W...;.z...;. .|
00000660: 20 54 45 58 54 20 4D 4F 44 45 20 9E 33 38 34 30 | TEXT MODE .3840|
00000670: 39 20 28 42 41 53 45 AA 39 29 00 89 0A 94 02 3B |9 (BASE.9).....;|
00000680: 20 20 20 9E 33 38 34 30 39 00 B0 0A 9E 02 3B 54 | .38409.....;T|
00000690: 48 49 53 20 47 49 56 45 53 20 59 4F 55 20 42 41 |HIS GIVES YOU BA|
000006A0: 43 4B 20 59 4F 55 52 20 4F 4C 44 20 54 45 58 54 |CK YOUR OLD TEXT|
000006B0: 00 D7 0A A8 02 3B 4D 4F 44 45 20 42 55 54 20 59 |.....;MODE BUT Y|
000006C0: 4F 55 52 20 53 43 52 45 45 4E 20 57 49 4C 4C 20 |OUR SCREEN WILL |
000006D0: 42 45 20 46 55 4C 4C 00 F9 0A BC 02 3B 4F 46 20 |BE FULL.....;OF |
000006E0: 47 41 52 42 41 47 45 20 53 4F 20 59 4F 55 20 48 |GARBAGE SO YOU H|
000006F0: 41 44 20 42 45 54 54 45 52 00 08 0B C6 02 3B 43 |AD BETTER.....;C|
00000700: 4C 45 41 52 20 49 54 2E 00 0E 0B D0 02 3B 00 2E |LEAR IT......;..|
00000710: 0B DA 02 3B 44 52 41 57 20 4C 49 4E 45 20 9E 33 |...;DRAW LINE .3|
00000720: 38 34 31 32 20 28 42 41 53 45 AA 31 32 29 00 56 |8412 (BASE.12).V|
00000730: 0B E4 02 3B 20 20 20 9E 33 38 34 31 32 2C 52 4F |...; .38412,RO|
00000740: 57 31 2C 43 4F 4C 31 2C 52 4F 57 32 2C 43 4F 4C |W1,COL1,ROW2,COL|
00000750: 32 2C 54 59 50 45 00 7A 0B EE 02 3B 54 48 49 53 |2,TYPE.z...;THIS|
00000760: 20 44 52 41 57 53 20 41 20 4C 49 4E 45 20 46 52 | DRAWS A LINE FR|
00000770: 4F 4D 20 54 48 45 20 50 4F B5 00 9C 0B F8 02 3B |OM THE PO......;|
00000780: 41 54 20 52 4F 57 31 2C 43 4F 4C 55 4D 4E 31 20 |AT ROW1,COLUMN1 |
00000790: A4 20 54 48 45 20 50 4F B5 20 41 54 00 AE 0B 02 |. THE PO. AT....|
000007A0: 03 3B 52 4F 57 32 2C 43 4F 4C 55 4D 4E 32 00 D4 |.;ROW2,COLUMN2..|
000007B0: 0B 0C 03 3B 54 48 45 20 54 59 50 45 2C 20 49 4E |...;THE TYPE, IN|
000007C0: 20 54 48 45 20 52 41 4E 47 45 20 30 AB 33 2C 20 | THE RANGE 0.3, |
000007D0: 57 49 4C 4C 00 F5 0B 16 03 3B 53 45 54 20 54 48 |WILL.....;SET TH|
000007E0: 45 20 43 4F 4C 4F 55 52 20 4F 46 20 54 48 45 20 |E COLOUR OF THE |
000007F0: 4C 49 4E 45 2E 00 19 0C 20 03 3B 41 20 53 49 4D |LINE.... .;A SIM|
00000800: 50 4C 45 20 44 44 41 20 41 4C CB 52 49 54 48 4D |PLE DDA AL.RITHM|
00000810: 20 49 53 20 55 53 45 44 2E 00 1F 0C 2A 03 3B 00 | IS USED....*.;.|
00000820: 33 0C 34 03 3B 48 41 50 50 59 20 47 52 41 50 48 |3.4.;HAPPY GRAPH|
00000830: 49 43 53 00 3F 0C B8 0B AC B2 24 43 30 30 30 00 |ICS.?.....$C000.|
00000840: 47 0C C2 0B 52 54 53 00 56 0C CC 0B 4A 4D 50 20 |G...RTS.V...JMP |
00000850: 42 C6 4C 45 41 52 00 63 0C D6 0B 4A 4D 50 20 42 |B.LEAR.c...JMP B|
00000860: 41 53 87 00 72 0C E0 0B 4A 4D 50 20 42 41 53 53 |AS..r...JMP BASS|
00000870: 45 54 00 82 0C EA 0B 4A 4D 50 20 42 41 53 54 45 |ET.....JMP BASTE|
00000880: 58 54 00 92 0C F4 0B 4A 4D 50 20 42 41 53 4C 49 |XT.....JMP BASLI|
00000890: 4E 45 00 A4 0C FE 0B 4A 4D 50 20 4C 43 48 45 43 |NE.....JMP LCHEC|
000008A0: 4B 4C 4F 43 00 B2 0C 08 0C 4A 4D 50 20 4C 87 4C |KLOC.....JMP L.L|
000008B0: 4F 43 00 C2 0C 12 0C 4A 4D 50 20 4C 53 45 54 50 |OC.....JMP LSETP|
000008C0: 4F B5 00 C8 0C 1C 0C 3B 00 DE 0C 26 0C 3B 43 4C |O......;...&.;CL|
000008D0: 45 41 52 20 54 48 45 20 42 49 54 4D 41 50 00 E4 |EAR THE BITMAP..|
000008E0: 0C 30 0C 3B 00 FD 0C 3A 0C 4C 43 4C 45 41 52 4D |.0.;...:.LCLEARM|
000008F0: 41 50 20 B2 20 AC 3B 47 4C 4F 42 41 4C 00 03 0D |AP . .;GLOBAL...|
00000900: 44 0C 3B 00 14 0D 4E 0C 4C 44 41 20 23 B3 42 49 |D.;...N.LDA #.BI|
00000910: 54 4D 41 50 00 23 0D 58 0C 53 54 41 20 4D 41 50 |TMAP.#.X.STA MAP|
00000920: 50 54 52 00 34 0D 62 0C 4C 44 41 20 23 B1 42 49 |PTR.4.b.LDA #.BI|
00000930: 54 4D 41 50 00 45 0D 6C 0C 53 54 41 20 4D 41 50 |TMAP.E.l.STA MAP|
00000940: 50 54 52 AA 31 00 4B 0D 76 0C 3B 00 56 0D 80 0C |PTR.1.K.v.;.V...|
00000950: 4C 44 41 20 23 30 00 5E 0D 8A 0C 54 41 59 00 81 |LDA #0.^...TAY..|
00000960: 0D 94 0C 4C 44 58 20 23 33 32 3B 4E 55 4D 42 45 |...LDX #32;NUMBE|
00000970: 52 20 4F 46 20 50 41 47 45 53 20 49 4E 20 4D 41 |R OF PAGES IN MA|
00000980: 50 00 9A 0D 9E 0C 42 54 9C 4C 50 20 53 54 41 20 |P.....BT.LP STA |
00000990: 28 4D 41 50 50 54 52 29 2C 59 00 A2 0D A8 0C 49 |(MAPPTR),Y.....I|
000009A0: 4E 59 00 B0 0D B2 0C 42 4E 45 20 42 54 9C 4C 50 |NY.....BNE BT.LP|
000009B0: 00 C1 0D BC 0C 49 4E 43 20 4D 41 50 50 54 52 AA |.....INC MAPPTR.|
000009C0: 31 00 C9 0D C6 0C 44 45 58 00 D7 0D D0 0C 42 4E |1.....DEX.....BN|
000009D0: 45 20 42 54 9C 4C 50 00 DD 0D DA 0C 3B 00 03 0E |E BT.LP.....;...|
000009E0: E4 0C 3B 4E 4F 57 20 43 4C 45 41 52 20 4F 55 54 |..;NOW CLEAR OUT|
000009F0: 20 54 48 45 20 43 4F 4C 4F 55 52 20 53 43 52 45 | THE COLOUR SCRE|
00000A00: 45 4E 53 00 09 0E EE 0C 3B 00 14 0E F8 0C 4C 44 |ENS.....;.....LD|
00000A10: 41 20 23 30 00 23 0E 02 0D 53 54 41 20 4D 41 50 |A #0.#...STA MAP|
00000A20: 50 54 52 00 32 0E 0C 0D 53 54 41 20 43 4F 4C 50 |PTR.2...STA COLP|
00000A30: 54 52 00 45 0E 16 0D 4C 44 41 20 23 B1 54 45 58 |TR.E...LDA #.TEX|
00000A40: 54 AA 39 39 39 00 56 0E 20 0D 53 54 41 20 4D 41 |T.999.V. .STA MA|
00000A50: 50 50 54 52 AA 31 00 69 0E 2A 0D 4C 44 59 20 23 |PPTR.1.i.*.LDY #|
00000A60: B3 54 45 58 54 AA 39 39 39 00 7F 0E 34 0D 4C 44 |.TEXT.999...4.LD|
00000A70: 41 20 23 B1 43 4F 4C 4F 55 52 53 AA 39 39 39 00 |A #.COLOURS.999.|
00000A80: 90 0E 3E 0D 53 54 41 20 43 4F 4C 50 54 52 AA 31 |..>.STA COLPTR.1|
00000A90: 00 B2 0E 48 0D 4C 44 58 20 23 34 3B 4E 55 4D 42 |...H.LDX #4;NUMB|
00000AA0: 45 52 20 4F 46 20 53 43 52 45 45 4E 20 50 41 47 |ER OF SCREEN PAG|
00000AB0: 45 53 00 C9 0E 52 0D 9C 43 4F 4C 4C 50 20 4C 44 |ES...R..COLLP LD|
00000AC0: 41 20 50 52 49 4D 43 4F 4C 00 DC 0E 5C 0D 53 54 |A PRIMCOL...\.ST|
00000AD0: 41 20 28 43 4F 4C 50 54 52 29 2C 59 00 EC 0E 66 |A (COLPTR),Y...f|
00000AE0: 0D 4C 44 41 20 53 45 4C 43 4F 4C 53 00 FF 0E 70 |.LDA SELCOLS...p|
00000AF0: 0D 53 54 41 20 28 4D 41 50 50 54 52 29 2C 59 00 |.STA (MAPPTR),Y.|
00000B00: 07 0F 7A 0D 44 45 59 00 13 0F 84 0D 43 50 59 20 |..z.DEY.....CPY |
00000B10: 23 AB 31 00 22 0F 8E 0D 42 4E 45 20 9C 43 4F 4C |#.1."...BNE .COL|
00000B20: 4C 50 00 33 0F 98 0D 44 45 43 20 4D 41 50 50 54 |LP.3...DEC MAPPT|
00000B30: 52 AA 31 00 44 0F A2 0D 44 45 43 20 43 4F 4C 50 |R.1.D...DEC COLP|
00000B40: 54 52 AA 31 00 4C 0F AC 0D 44 45 58 00 5B 0F B6 |TR.1.L...DEX.[..|
00000B50: 0D 42 4E 45 20 9C 43 4F 4C 4C 50 00 61 0F C0 0D |.BNE .COLLP.a...|
00000B60: 3B 00 69 0F CA 0D 52 54 53 00 6F 0F D4 0D 3B 00 |;.i...RTS.o...;.|
00000B70: 75 0F DE 0D 3B 00 7B 0F E8 0D 3B 00 8F 0F F2 0D |u...;.{...;.....|
00000B80: 4E 4F CB 4F 44 4C 43 20 4C 44 41 20 23 AB 31 00 |NO.ODLC LDA #.1.|
00000B90: 97 0F FC 0D 52 54 53 00 9D 0F 06 0E 3B 00 B6 0F |....RTS.....;...|
00000BA0: 10 0E 4C 43 48 45 43 4B 4C 4F 43 20 B2 20 AC 3B |..LCHECKLOC . .;|
00000BB0: 47 4C 4F 42 41 4C 00 C2 0F 1A 0E 4C 44 41 20 52 |GLOBAL.....LDA R|
00000BC0: 4F 57 00 D8 0F 24 0E 82 43 4F 4D 50 20 43 4D 50 |OW...$..COMP CMP|
00000BD0: 20 23 4D 41 58 52 4F 57 00 E8 0F 2E 0E 42 43 53 | #MAXROW.....BCS|
00000BE0: 20 4E 4F CB 4F 44 4C 43 00 F7 0F 38 0E 4C 44 41 | NO.ODLC...8.LDA|
00000BF0: 20 43 4F 4C 55 4D 4E 00 07 10 42 0E 43 4D 50 20 | COLUMN...B.CMP |
00000C00: 23 4D 41 58 43 4F 4C 00 17 10 4C 0E 42 43 53 20 |#MAXCOL...L.BCS |
00000C10: 4E 4F CB 4F 44 4C 43 00 1D 10 56 0E 3B 00 23 10 |NO.ODLC...V.;.#.|
00000C20: 60 0E 3B 00 29 10 6A 0E 3B 00 3E 10 74 0E 4C 87 |`.;.).j.;.>.t.L.|
00000C30: 4C 4F 43 20 B2 20 AC 3B 47 4C 4F 42 41 4C 00 46 |LOC . .;GLOBAL.F|
00000C40: 10 7E 0E 54 59 41 00 4E 10 88 0E 50 48 41 00 71 |.~.TYA.N...PHA.q|
00000C50: 10 92 0E 4A 53 52 20 53 45 54 4D 50 50 54 52 3B |...JSR SETMPPTR;|
00000C60: 53 45 54 20 54 48 45 20 4D 41 50 20 50 4F B5 45 |SET THE MAP PO.E|
00000C70: 52 00 7C 10 9C 0E 4C 44 59 20 23 30 00 8B 10 A6 |R.|...LDY #0....|
00000C80: 0E 4C 44 41 20 43 4F 4C 55 4D 4E 00 9C 10 B0 0E |.LDA COLUMN.....|
00000C90: 4C 53 52 3B A1 20 91 45 20 42 49 54 00 B2 10 BA |LSR;. .E BIT....|
00000CA0: 0E 50 48 50 3B 94 20 49 54 20 41 53 20 43 41 52 |.PHP;. IT AS CAR|
00000CB0: 52 59 00 C4 10 C4 0E 4C 53 52 3B A1 20 54 57 4F |RY.....LSR;. TWO|
00000CC0: 20 42 49 54 00 DA 10 CE 0E 3B 8B 20 43 4C 45 41 | BIT.....;. CLEA|
00000CD0: 52 2C 20 34 20 4C 53 52 20 53 00 ED 10 D8 0E 4C |R, 4 LSR S.....L|
00000CE0: 44 41 20 28 4D 41 50 50 54 52 29 2C 59 00 FC 10 |DA (MAPPTR),Y...|
00000CF0: E2 0E 42 43 53 20 4E 4F 34 52 4F 54 00 04 11 EC |..BCS NO4ROT....|
00000D00: 0E 4C 53 52 00 0C 11 F6 0E 4C 53 52 00 14 11 00 |.LSR.....LSR....|
00000D10: 0F 4C 53 52 00 1C 11 0A 0F 4C 53 52 00 2B 11 14 |.LSR.....LSR.+..|
00000D20: 0F 4E 4F 34 52 4F 54 20 B2 20 AC 00 4F 11 1E 0F |.NO4ROT . ..O...|
00000D30: 50 4C 50 3B 54 48 45 20 91 45 20 42 49 54 2C 20 |PLP;THE .E BIT, |
00000D40: 8B 20 43 4C 45 41 52 2C 20 32 20 4C 53 52 53 00 |. CLEAR, 2 LSRS.|
00000D50: 5E 11 28 0F 42 43 53 20 4E 4F 32 52 4F 54 00 66 |^.(.BCS NO2ROT.f|
00000D60: 11 32 0F 4C 53 52 00 6E 11 3C 0F 4C 53 52 00 7D |.2.LSR.n.<.LSR.}|
00000D70: 11 46 0F 4E 4F 32 52 4F 54 20 B2 20 AC 00 88 11 |.F.NO2ROT . ....|
00000D80: 50 0F AF 20 23 25 31 31 00 9E 11 5A 0F 50 4F 50 |P.. #%11...Z.POP|
00000D90: 59 4F 55 54 20 53 54 41 20 54 45 4D 50 31 00 A6 |YOUT STA TEMP1..|
00000DA0: 11 64 0F 50 4C 41 00 AE 11 6E 0F 54 41 59 00 BC |.d.PLA...n.TAY..|
00000DB0: 11 78 0F 4C 44 41 20 54 45 4D 50 31 00 C4 11 82 |.x.LDA TEMP1....|
00000DC0: 0F 52 54 53 00 CA 11 8C 0F 3B 00 DE 11 96 0F 3B |.RTS.....;.....;|
00000DD0: 20 53 45 54 20 4D 41 50 20 50 4F B5 45 52 00 EF | SET MAP PO.ER..|
00000DE0: 11 A0 0F 53 45 54 4D 50 50 54 52 20 B2 20 AC 00 |...SETMPPTR . ..|
00000DF0: FB 11 AA 0F 4C 44 41 20 52 4F 57 00 03 12 B4 0F |....LDA ROW.....|
00000E00: 4C 53 52 00 0B 12 BE 0F 4C 53 52 00 1C 12 C8 0F |LSR.....LSR.....|
00000E10: AF 20 23 25 31 31 31 31 31 31 31 30 00 24 12 D2 |. #%11111110.$..|
00000E20: 0F 54 41 59 00 37 12 DC 0F 4C 44 41 20 42 4C 4F |.TAY.7...LDA BLO|
00000E30: 43 4B 41 44 52 2C 59 00 46 12 E6 0F 53 54 41 20 |CKADR,Y.F...STA |
00000E40: 4D 41 50 50 54 52 00 5B 12 F0 0F 4C 44 41 20 42 |MAPPTR.[...LDA B|
00000E50: 4C 4F 43 4B 41 44 52 AA 31 2C 59 00 6C 12 FA 0F |LOCKADR.1,Y.l...|
00000E60: 53 54 41 20 4D 41 50 50 54 52 AA 31 00 7C 12 04 |STA MAPPTR.1.|..|
00000E70: 10 3B 4C 44 41 20 43 4F 4C 55 4D 4E 00 85 12 0E |.;LDA COLUMN....|
00000E80: 10 3B 4C 53 52 00 8E 12 18 10 3B 4C 53 52 00 97 |.;LSR.....;LSR..|
00000E90: 12 22 10 3B 43 4C 43 00 AA 12 2C 10 3B 41 44 43 |.".;CLC...,.;ADC|
00000EA0: 20 54 45 58 54 41 44 52 2C 59 00 BA 12 36 10 3B | TEXTADR,Y...6.;|
00000EB0: 53 54 41 20 43 4F 4C 50 54 52 00 CF 12 40 10 3B |STA COLPTR...@.;|
00000EC0: 4C 44 41 20 54 45 58 54 41 44 52 AA 31 2C 59 00 |LDA TEXTADR.1,Y.|
00000ED0: DB 12 4A 10 3B 41 44 43 20 23 30 00 ED 12 54 10 |..J.;ADC #0...T.|
00000EE0: 3B 53 54 41 20 43 4F 4C 50 54 52 AA 31 00 F9 12 |;STA COLPTR.1...|
00000EF0: 5E 10 4C 44 41 20 52 4F 57 00 05 13 68 10 AF 20 |^.LDA ROW...h.. |
00000F00: 23 25 31 31 31 00 13 13 72 10 53 54 41 20 54 45 |#%111...r.STA TE|
00000F10: 4D 50 31 00 22 13 7C 10 4C 44 41 20 43 4F 4C 55 |MP1.".|.LDA COLU|
00000F20: 4D 4E 00 48 13 86 10 3B AF 20 4F 55 54 20 4C 4F |MN.H...;. OUT LO|
00000F30: 57 45 52 20 54 57 4F 20 42 49 54 53 20 AF 20 4D |WER TWO BITS . M|
00000F40: 55 4C 54 20 42 59 20 32 00 59 13 90 10 AF 20 23 |ULT BY 2.Y.... #|
00000F50: 25 31 31 31 31 31 31 30 30 00 61 13 9A 10 41 53 |%11111100.a...AS|
00000F60: 4C 00 7E 13 A4 10 3B 43 41 52 52 59 20 4E 4F 57 |L.~...;CARRY NOW|
00000F70: 20 48 41 53 20 55 50 50 45 52 20 42 49 54 00 8E | HAS UPPER BIT..|
00000F80: 13 AE 10 42 43 43 20 44 4E 42 4D 50 48 49 00 9F |...BCC DNBMPHI..|
00000F90: 13 B8 10 49 4E 43 20 4D 41 50 50 54 52 AA 31 00 |...INC MAPPTR.1.|
00000FA0: AF 13 C2 10 44 4E 42 4D 50 48 49 20 43 4C 43 00 |....DNBMPHI CLC.|
00000FB0: BC 13 CC 10 B0 41 20 54 45 4D 50 31 00 CB 13 D6 |.....A TEMP1....|
00000FC0: 10 41 44 43 20 4D 41 50 50 54 52 00 DA 13 E0 10 |.ADC MAPPTR.....|
00000FD0: 53 54 41 20 4D 41 50 50 54 52 00 E9 13 EA 10 42 |STA MAPPTR.....B|
00000FE0: 43 43 20 44 4E 42 4D 50 32 00 FA 13 F4 10 49 4E |CC DNBMP2.....IN|
00000FF0: 43 20 4D 41 50 50 54 52 AA 31 00 09 14 FE 10 44 |C MAPPTR.1.....D|
00001000: 4E 42 4D 50 32 20 52 54 53 00 0F 14 08 11 3B 00 |NBMP2 RTS.....;.|
00001010: 15 14 12 11 3B 00 2E 14 1C 11 3B 42 4C 4F 43 4B |....;.....;BLOCK|
00001020: 20 41 44 44 52 45 53 53 20 54 41 42 4C 45 00 34 | ADDRESS TABLE.4|
00001030: 14 26 11 3B 00 45 14 30 11 42 4C 4F 43 4B 41 44 |.&.;.E.0.BLOCKAD|
00001040: 52 20 B2 20 AC 00 5B 14 3A 11 42 4C 4B 53 49 5A |R . ..[.:.BLKSIZ|
00001050: 45 20 B2 20 38 AC 4C 49 4E 45 C3 00 69 14 44 11 |E . 8.LINE..i.D.|
00001060: 43 4F 55 4E 54 20 5F 20 30 00 87 14 4E 11 2E 57 |COUNT _ 0...N..W|
00001070: B0 44 20 42 4C 4B 53 49 5A 45 AC 43 4F 55 4E 54 |.D BLKSIZE.COUNT|
00001080: AA 42 49 54 4D 41 50 00 9B 14 58 11 43 4F 55 4E |.BITMAP...X.COUN|
00001090: 54 20 5F 20 43 4F 55 4E 54 AA 31 00 B9 14 62 11 |T _ COUNT.1...b.|
000010A0: 2E 8B 20 43 4F 55 4E 54 AB 4E 55 4D 4C 49 4E 45 |.. COUNT.NUMLINE|
000010B0: 53 3A 2E 89 20 34 34 33 30 00 BF 14 6C 11 3B 00 |S:.. 4430...l.;.|
000010C0: D5 14 76 11 3B 54 45 58 54 20 4D 45 4D B0 59 20 |..v.;TEXT MEM.Y |
000010D0: 54 41 42 4C 45 00 E5 14 80 11 54 45 58 54 41 44 |TABLE.....TEXTAD|
000010E0: 52 20 B2 20 AC 00 F3 14 8A 11 43 4F 55 4E 54 20 |R . ......COUNT |
000010F0: 5F 20 30 00 0D 15 94 11 2E 57 B0 44 20 4C 49 4E |_ 0......W.D LIN|
00001100: 45 C3 AC 43 4F 55 4E 54 AA 54 45 58 54 00 21 15 |E..COUNT.TEXT.!.|
00001110: 9E 11 43 4F 55 4E 54 20 5F 20 43 4F 55 4E 54 AA |..COUNT _ COUNT.|
00001120: 31 00 3F 15 A8 11 2E 8B 20 43 4F 55 4E 54 AB 4E |1.?..... COUNT.N|
00001130: 55 4D 4C 49 4E 45 53 3A 2E 89 20 34 35 30 30 00 |UMLINES:.. 4500.|
00001140: 45 15 B2 11 3B 00 4B 15 BC 11 3B 00 5A 15 C6 11 |E...;.K...;.Z...|
00001150: 3B 53 45 54 20 41 20 50 4F B5 00 71 15 D0 11 4C |;SET A PO..q...L|
00001160: 53 45 54 50 4F B5 20 B2 20 AC 3B 47 4C 4F 42 41 |SETPO. . .;GLOBA|
00001170: 4C 00 7F 15 DA 11 53 54 41 20 54 45 4D 50 32 00 |L.....STA TEMP2.|
00001180: 87 15 E4 11 54 59 41 00 8F 15 EE 11 50 48 41 00 |....TYA.....PHA.|
00001190: A0 15 F8 11 4A 53 52 20 53 45 54 4D 50 50 54 52 |....JSR SETMPPTR|
000011A0: 00 AF 15 02 12 4C 44 41 20 43 4F 4C 55 4D 4E 00 |.....LDA COLUMN.|
000011B0: BA 15 0C 12 AF 20 23 25 31 31 00 C2 15 16 12 54 |..... #%11.....T|
000011C0: 41 59 00 E0 15 20 12 4C 44 41 20 AF 4D 41 53 4B |AY... .LDA .MASK|
000011D0: 53 2C 59 3B A4 20 AF 20 4F 55 54 20 42 49 54 53 |S,Y;. . OUT BITS|
000011E0: 00 E8 15 2A 12 50 48 41 00 F7 15 34 12 4C 44 41 |...*.PHA...4.LDA|
000011F0: 20 43 4F 4C 55 4D 4E 00 0C 16 3E 12 4C 53 52 3B | COLUMN...>.LSR;|
00001200: A1 20 54 48 45 20 91 45 20 42 49 54 00 19 16 48 |. THE .E BIT...H|
00001210: 12 50 48 50 3B 94 20 49 54 00 2F 16 52 12 4C 53 |.PHP;. IT./.R.LS|
00001220: 52 3B A1 20 54 48 45 20 54 57 4F 20 42 49 54 00 |R;. THE TWO BIT.|
00001230: 45 16 5C 12 3B 8B 20 43 4C 45 41 52 2C 20 34 20 |E.\.;. CLEAR, 4 |
00001240: 41 53 4C 20 53 00 53 16 66 12 4C 44 41 20 54 45 |ASL S.S.f.LDA TE|
00001250: 4D 50 32 00 63 16 70 12 42 43 53 20 4E 4F 34 52 |MP2.c.p.BCS NO4R|
00001260: 4F 54 32 00 6B 16 7A 12 41 53 4C 00 73 16 84 12 |OT2.k.z.ASL.s...|
00001270: 41 53 4C 00 7B 16 8E 12 41 53 4C 00 83 16 98 12 |ASL.{...ASL.....|
00001280: 41 53 4C 00 93 16 A2 12 4E 4F 34 52 4F 54 32 20 |ASL.....NO4ROT2 |
00001290: B2 20 AC 00 9B 16 AC 12 50 4C 50 00 AB 16 B6 12 |. ......PLP.....|
000012A0: 42 43 53 20 4E 4F 32 52 4F 54 32 00 B3 16 C0 12 |BCS NO2ROT2.....|
000012B0: 41 53 4C 00 BB 16 CA 12 41 53 4C 00 CB 16 D4 12 |ASL.....ASL.....|
000012C0: 4E 4F 32 52 4F 54 32 20 B2 20 AC 00 D9 16 DE 12 |NO2ROT2 . ......|
000012D0: 53 54 41 20 54 45 4D 50 32 00 EA 16 E8 12 50 4C |STA TEMP2.....PL|
000012E0: 41 3B 54 48 45 20 4D 41 53 4B 00 F5 16 F2 12 4C |A;THE MASK.....L|
000012F0: 44 59 20 23 30 00 06 17 FC 12 AF 20 28 4D 41 50 |DY #0...... (MAP|
00001300: 50 54 52 29 2C 59 00 13 17 06 13 B0 41 20 54 45 |PTR),Y......A TE|
00001310: 4D 50 32 00 26 17 10 13 53 54 41 20 28 4D 41 50 |MP2.&...STA (MAP|
00001320: 50 54 52 29 2C 59 00 42 17 1A 13 4A 4D 50 20 50 |PTR),Y.B...JMP P|
00001330: 4F 50 59 4F 55 54 3B 50 4F 50 20 59 20 AF 20 4F |OPYOUT;POP Y . O|
00001340: 55 54 00 48 17 24 13 3B 00 81 17 2E 13 AF 4D 41 |UT.H.$.;......MA|
00001350: 53 4B 53 20 2E 42 59 54 45 20 25 30 30 31 31 31 |SKS .BYTE %00111|
00001360: 31 31 31 2C 25 31 31 30 30 31 31 31 31 2C 25 31 |111,%11001111,%1|
00001370: 31 31 31 30 30 31 31 2C 25 31 31 31 31 31 31 30 |1110011,%1111110|
00001380: 30 00 87 17 38 13 3B 00 8D 17 42 13 3B 00 93 17 |0...8.;...B.;...|
00001390: 4C 13 3B 00 99 17 56 13 3B 00 9F 17 60 13 3B 00 |L.;...V.;...`.;.|
000013A0: B9 17 6A 13 3B 42 41 53 49 43 20 43 41 4C 4C 20 |..j.;BASIC CALL |
000013B0: 43 4C 45 41 52 20 4D 41 50 00 C8 17 74 13 42 C6 |CLEAR MAP...t.B.|
000013C0: 4C 45 41 52 20 B2 20 AC 00 D7 17 7E 13 4A 53 52 |LEAR . ....~.JSR|
000013D0: 20 43 48 4B 43 4F 4D 00 E3 17 88 13 4A 53 52 20 | CHKCOM.....JSR |
000013E0: A1 C5 32 00 F4 17 92 13 53 54 58 20 42 41 43 4B |..2.....STX BACK|
000013F0: 47 4E 44 30 00 03 18 9C 13 4A 53 52 20 43 48 4B |GND0.....JSR CHK|
00001400: 43 4F 4D 00 0F 18 A6 13 4A 53 52 20 A1 C5 32 00 |COM.....JSR ..2.|
00001410: 17 18 B0 13 54 58 41 00 1F 18 BA 13 41 53 4C 00 |....TXA.....ASL.|
00001420: 27 18 C4 13 41 53 4C 00 2F 18 CE 13 41 53 4C 00 |'...ASL./...ASL.|
00001430: 37 18 D8 13 41 53 4C 00 45 18 E2 13 53 54 41 20 |7...ASL.E...STA |
00001440: 54 45 4D 50 32 00 54 18 EC 13 4A 53 52 20 43 48 |TEMP2.T...JSR CH|
00001450: 4B 43 4F 4D 00 60 18 F6 13 4A 53 52 20 A1 C5 32 |KCOM.`...JSR ..2|
00001460: 00 68 18 00 14 54 58 41 00 72 18 0A 14 AF 20 23 |.h...TXA.r.... #|
00001470: 24 46 00 7F 18 14 14 B0 41 20 54 45 4D 50 32 00 |$F......A TEMP2.|
00001480: 8F 18 1E 14 53 54 41 20 53 45 4C 43 4F 4C 53 00 |....STA SELCOLS.|
00001490: 9E 18 28 14 4A 53 52 20 43 48 4B 43 4F 4D 00 AA |..(.JSR CHKCOM..|
000014A0: 18 32 14 4A 53 52 20 A1 C5 32 00 BA 18 3C 14 53 |.2.JSR ..2...<.S|
000014B0: 54 58 20 50 52 49 4D 43 4F 4C 00 C8 18 46 14 4C |TX PRIMCOL...F.L|
000014C0: 44 41 20 59 9A 52 4F 4C 00 D7 18 50 14 B0 41 20 |DA Y.ROL...P..A |
000014D0: 23 56 49 43 42 4D 4D 00 E5 18 5A 14 53 54 41 20 |#VICBMM...Z.STA |
000014E0: 59 9A 52 4F 4C 00 F3 18 64 14 4C 44 41 20 58 9A |Y.ROL...d.LDA X.|
000014F0: 52 4F 4C 00 02 19 6E 14 B0 41 20 23 56 49 43 4D |ROL...n..A #VICM|
00001500: 43 4D 00 10 19 78 14 53 54 41 20 58 9A 52 4F 4C |CM...x.STA X.ROL|
00001510: 00 1C 19 82 14 4C 44 41 20 23 32 38 00 2B 19 8C |.....LDA #28.+..|
00001520: 14 53 54 41 20 53 43 52 4D 45 4D 00 3D 19 96 14 |.STA SCRMEM.=...|
00001530: 4A 4D 50 20 4C 43 4C 45 41 52 4D 41 50 00 43 19 |JMP LCLEARMAP.C.|
00001540: A0 14 3B 00 50 19 AA 14 3B 53 45 54 20 50 4F B5 |..;.P...;SET PO.|
00001550: 00 5F 19 B4 14 42 41 53 53 45 54 20 B2 20 AC 00 |._...BASSET . ..|
00001560: 6E 19 BE 14 4A 53 52 20 43 48 4B 43 4F 4D 00 7A |n...JSR CHKCOM.z|
00001570: 19 C8 14 4A 53 52 20 A1 C5 32 00 86 19 D2 14 53 |...JSR ..2.....S|
00001580: 54 58 20 52 4F 57 00 95 19 DC 14 4A 53 52 20 43 |TX ROW.....JSR C|
00001590: 48 4B 43 4F 4D 00 A1 19 E6 14 4A 53 52 20 A1 C5 |HKCOM.....JSR ..|
000015A0: 32 00 B0 19 F0 14 53 54 58 20 43 4F 4C 55 4D 4E |2.....STX COLUMN|
000015B0: 00 BF 19 FA 14 4A 53 52 20 43 48 4B 43 4F 4D 00 |.....JSR CHKCOM.|
000015C0: CB 19 04 15 4A 53 52 20 A1 C5 32 00 D3 19 0E 15 |....JSR ..2.....|
000015D0: 54 58 41 00 E3 19 18 15 4A 4D 50 20 4C 53 45 54 |TXA.....JMP LSET|
000015E0: 50 4F B5 00 E9 19 22 15 3B 00 F6 19 2C 15 42 41 |PO....".;...,.BA|
000015F0: 53 87 20 B2 20 AC 00 05 1A 36 15 4A 53 52 20 43 |S. . ....6.JSR C|
00001600: 48 4B 43 4F 4D 00 11 1A 40 15 4A 53 52 20 A1 C5 |HKCOM...@.JSR ..|
00001610: 32 00 1D 1A 4A 15 53 54 58 20 52 4F 57 00 2C 1A |2...J.STX ROW.,.|
00001620: 54 15 4A 53 52 20 43 48 4B 43 4F 4D 00 38 1A 5E |T.JSR CHKCOM.8.^|
00001630: 15 4A 53 52 20 A1 C5 32 00 47 1A 68 15 53 54 58 |.JSR ..2.G.h.STX|
00001640: 20 43 4F 4C 55 4D 4E 00 59 1A 72 15 4A 53 52 20 | COLUMN.Y.r.JSR |
00001650: 4C 43 48 45 43 4B 4C 4F 43 00 66 1A 7C 15 53 54 |LCHECKLOC.f.|.ST|
00001660: 41 20 24 31 30 30 00 6E 1A 86 15 52 54 53 00 74 |A $100.n...RTS.t|
00001670: 1A 90 15 3B 00 85 1A 9A 15 42 41 53 54 45 58 54 |...;.....BASTEXT|
00001680: 20 20 B2 20 AC 00 93 1A A4 15 4C 44 41 20 59 9A | . ......LDA Y.|
00001690: 52 4F 4C 00 A5 1A AE 15 AF 20 23 B3 56 49 43 42 |ROL...... #.VICB|
000016A0: 4D 4D AE AB 31 00 B3 1A B8 15 53 54 41 20 59 9A |MM..1.....STA Y.|
000016B0: 52 4F 4C 00 C1 1A C2 15 4C 44 41 20 58 9A 52 4F |ROL.....LDA X.RO|
000016C0: 4C 00 D3 1A CC 15 AF 20 23 B3 56 49 43 4D 43 4D |L...... #.VICMCM|
000016D0: AE AB 31 00 E1 1A D6 15 53 54 41 20 58 9A 52 4F |..1.....STA X.RO|
000016E0: 4C 00 ED 1A E0 15 4C 44 41 20 23 32 30 00 FC 1A |L.....LDA #20...|
000016F0: EA 15 53 54 41 20 53 43 52 4D 45 4D 00 07 1B F4 |..STA SCRMEM....|
00001700: 15 4C 44 41 20 23 30 00 0F 1B FE 15 43 4C 43 00 |.LDA #0.....CLC.|
00001710: 17 1B 08 16 52 54 53 00 1D 1B 12 16 3B 00 2A 1B |....RTS.....;.*.|
00001720: 1C 16 3B 42 41 53 4C 49 4E 45 00 30 1B 26 16 3B |..;BASLINE.0.&.;|
00001730: 00 40 1B 30 16 42 41 53 4C 49 4E 45 20 B2 20 AC |.@.0.BASLINE . .|
00001740: 00 4B 1B 3A 16 4C 44 41 20 23 30 00 5C 1B 44 16 |.K.:.LDA #0.\.D.|
00001750: 53 54 41 20 44 45 4C 54 41 58 AA 32 00 72 1B 4E |STA DELTAX.2.r.N|
00001760: 16 53 54 41 20 44 45 4C 54 41 59 AA 32 3B 53 49 |.STA DELTAY.2;SI|
00001770: 47 4E 00 81 1B 58 16 4A 53 52 20 43 48 4B 43 4F |GN...X.JSR CHKCO|
00001780: 4D 00 8D 1B 62 16 4A 53 52 20 A1 C5 32 00 9D 1B |M...b.JSR ..2...|
00001790: 6C 16 53 54 58 20 4C 49 4E 45 59 AA 31 00 AC 1B |l.STX LINEY.1...|
000017A0: 76 16 4A 53 52 20 43 48 4B 43 4F 4D 00 B8 1B 80 |v.JSR CHKCOM....|
000017B0: 16 4A 53 52 20 A1 C5 32 00 C8 1B 8A 16 53 54 58 |.JSR ..2.....STX|
000017C0: 20 4C 49 4E 45 58 AA 31 00 D7 1B 94 16 4A 53 52 | LINEX.1.....JSR|
000017D0: 20 43 48 4B 43 4F 4D 00 E3 1B 9E 16 4A 53 52 20 | CHKCOM.....JSR |
000017E0: A1 C5 32 00 EB 1B A8 16 54 58 41 00 F3 1B B2 16 |..2.....TXA.....|
000017F0: 53 45 43 00 03 1C BC 16 53 42 43 20 4C 49 4E 45 |SEC.....SBC LINE|
00001800: 59 AA 31 00 13 1C C6 16 42 43 53 20 4E 58 54 41 |Y.1.....BCS NXTA|
00001810: 52 47 31 00 1E 1C D0 16 45 B0 20 23 AB 31 00 35 |RG1.....E. #.1.5|
00001820: 1C DA 16 41 44 43 20 23 31 3B 43 41 52 52 59 20 |...ADC #1;CARRY |
00001830: 43 4C 45 41 52 00 51 1C E4 16 44 45 43 20 44 45 |CLEAR.Q...DEC DE|
00001840: 4C 54 41 59 AA 32 3B 53 49 47 4E 20 20 42 59 54 |LTAY.2;SIGN BYT|
00001850: 45 00 61 1C EE 16 4E 58 54 41 52 47 31 20 B2 20 |E.a...NXTARG1 . |
00001860: AC 00 72 1C F8 16 53 54 41 20 44 45 4C 54 41 59 |..r...STA DELTAY|
00001870: AA 31 00 81 1C 02 17 4A 53 52 20 43 48 4B 43 4F |.1.....JSR CHKCO|
00001880: 4D 00 8D 1C 0C 17 4A 53 52 20 A1 C5 32 00 95 1C |M.....JSR ..2...|
00001890: 16 17 54 58 41 00 9D 1C 20 17 53 45 43 00 AD 1C |..TXA... .SEC...|
000018A0: 2A 17 53 42 43 20 4C 49 4E 45 58 AA 31 00 BD 1C |*.SBC LINEX.1...|
000018B0: 34 17 42 43 53 20 4E 58 54 41 52 47 32 00 C8 1C |4.BCS NXTARG2...|
000018C0: 3E 17 45 B0 20 23 AB 31 00 DF 1C 48 17 41 44 43 |>.E. #.1...H.ADC|
000018D0: 20 23 31 3B 43 41 52 52 59 20 43 4C 45 41 52 00 | #1;CARRY CLEAR.|
000018E0: F0 1C 52 17 44 45 43 20 44 45 4C 54 41 58 AA 32 |..R.DEC DELTAX.2|
000018F0: 00 00 1D 5C 17 4E 58 54 41 52 47 32 20 B2 20 AC |...\.NXTARG2 . .|
00001900: 00 11 1D 66 17 53 54 41 20 44 45 4C 54 41 58 AA |...f.STA DELTAX.|
00001910: 31 00 20 1D 70 17 4A 53 52 20 43 48 4B 43 4F 4D |1. .p.JSR CHKCOM|
00001920: 00 2C 1D 7A 17 4A 53 52 20 A1 C5 32 00 3D 1D 84 |.,.z.JSR ..2.=..|
00001930: 17 53 54 58 20 4C 49 4E 45 43 4F 4C 52 00 43 1D |.STX LINECOLR.C.|
00001940: 8E 17 3B 00 53 1D 98 17 3B 4E 4F 57 20 A1 20 C3 |..;.S...;NOW . .|
00001950: 47 54 48 00 64 1D A2 17 4C 44 41 20 44 45 4C 54 |GTH.d...LDA DELT|
00001960: 41 59 AA 31 00 75 1D AC 17 43 4D 50 20 44 45 4C |AY.1.u...CMP DEL|
00001970: 54 41 58 AA 31 00 83 1D B6 17 42 43 53 20 55 53 |TAX.1.....BCS US|
00001980: 45 44 59 00 94 1D C0 17 4C 44 41 20 44 45 4C 54 |EDY.....LDA DELT|
00001990: 41 58 AA 31 00 A7 1D CA 17 55 53 45 44 59 20 53 |AX.1.....USEDY S|
000019A0: 54 41 20 C3 47 54 48 00 B2 1D D4 17 4C 44 41 20 |TA .GTH.....LDA |
000019B0: 23 30 00 C0 1D DE 17 53 54 41 20 54 45 4D 50 31 |#0.....STA TEMP1|
000019C0: 00 D1 1D E8 17 4C 44 41 20 44 45 4C 54 41 58 AA |.....LDA DELTAX.|
000019D0: 31 00 DF 1D F2 17 53 54 41 20 54 45 4D 50 32 00 |1.....STA TEMP2.|
000019E0: EE 1D FC 17 4A 53 52 20 44 49 56 42 59 C3 00 FC |....JSR DIVBY...|
000019F0: 1D 06 18 4C 44 41 20 54 45 4D 50 31 00 0B 1E 10 |...LDA TEMP1....|
00001A00: 18 53 54 41 20 44 45 4C 54 41 58 00 19 1E 1A 18 |.STA DELTAX.....|
00001A10: 4C 44 41 20 54 45 4D 50 32 00 2A 1E 24 18 53 54 |LDA TEMP2.*.$.ST|
00001A20: 41 20 44 45 4C 54 41 58 AA 31 00 35 1E 2E 18 4C |A DELTAX.1.5...L|
00001A30: 44 41 20 23 30 00 43 1E 38 18 53 54 41 20 54 45 |DA #0.C.8.STA TE|
00001A40: 4D 50 31 00 54 1E 42 18 4C 44 41 20 44 45 4C 54 |MP1.T.B.LDA DELT|
00001A50: 41 59 AA 31 00 62 1E 4C 18 53 54 41 20 54 45 4D |AY.1.b.L.STA TEM|
00001A60: 50 32 00 71 1E 56 18 4A 53 52 20 44 49 56 42 59 |P2.q.V.JSR DIVBY|
00001A70: C3 00 7F 1E 60 18 4C 44 41 20 54 45 4D 50 31 00 |....`.LDA TEMP1.|
00001A80: 8E 1E 6A 18 53 54 41 20 44 45 4C 54 41 59 00 9C |..j.STA DELTAY..|
00001A90: 1E 74 18 4C 44 41 20 54 45 4D 50 32 00 AD 1E 7E |.t.LDA TEMP2...~|
00001AA0: 18 53 54 41 20 44 45 4C 54 41 59 AA 31 00 BA 1E |.STA DELTAY.1...|
00001AB0: 88 18 4C 44 41 20 23 24 38 30 00 C8 1E 92 18 53 |..LDA #$80.....S|
00001AC0: 54 41 20 4C 49 4E 45 58 00 E2 1E 9C 18 53 54 41 |TA LINEX.....STA|
00001AD0: 20 4C 49 4E 45 59 3B 41 44 44 20 91 45 20 48 41 | LINEY;ADD .E HA|
00001AE0: 4C 46 00 F2 1E A6 18 4C 44 58 20 23 44 45 4C 54 |LF.....LDX #DELT|
00001AF0: 41 58 00 0D 1F B0 18 4A 53 52 20 46 49 58 53 49 |AX.....JSR FIXSI|
00001B00: 47 4E 3B B0 49 45 4E 54 20 53 49 47 4E 00 1D 1F |GN;.IENT SIGN...|
00001B10: BA 18 4C 44 58 20 23 44 45 4C 54 41 59 00 38 1F |..LDX #DELTAY.8.|
00001B20: C4 18 4A 53 52 20 46 49 58 53 49 47 4E 3B B0 49 |..JSR FIXSIGN;.I|
00001B30: 45 4E 54 20 53 49 47 4E 00 46 1F CE 18 3B 54 48 |ENT SIGN.F...;TH|
00001B40: 45 20 4C 4F 4F 50 00 53 1F D8 18 4C 44 58 20 C3 |E LOOP.S...LDX .|
00001B50: 47 54 48 00 6C 1F E2 18 50 4C 4F 54 4C 4F 4F 50 |GTH.l...PLOTLOOP|
00001B60: 20 4C 44 41 20 4C 49 4E 45 58 AA 31 00 7B 1F EC | LDA LINEX.1.{..|
00001B70: 18 53 54 41 20 43 4F 4C 55 4D 4E 00 8B 1F F6 18 |.STA COLUMN.....|
00001B80: 4C 44 41 20 4C 49 4E 45 59 AA 31 00 97 1F 00 19 |LDA LINEY.1.....|
00001B90: 53 54 41 20 52 4F 57 00 A8 1F 0A 19 4C 44 41 20 |STA ROW.....LDA |
00001BA0: 4C 49 4E 45 43 4F 4C 52 00 B8 1F 14 19 4A 53 52 |LINECOLR.....JSR|
00001BB0: 20 4C 53 45 54 50 4F B5 00 C6 1F 1E 19 4C 44 41 | LSETPO......LDA|
00001BC0: 20 4C 49 4E 45 58 00 CE 1F 28 19 43 4C 43 00 DD | LINEX...(.CLC..|
00001BD0: 1F 32 19 41 44 43 20 44 45 4C 54 41 58 00 EB 1F |.2.ADC DELTAX...|
00001BE0: 3C 19 53 54 41 20 4C 49 4E 45 58 00 FB 1F 46 19 |<.STA LINEX...F.|
00001BF0: 4C 44 41 20 4C 49 4E 45 58 AA 31 00 0C 20 50 19 |LDA LINEX.1.. P.|
00001C00: 41 44 43 20 44 45 4C 54 41 58 AA 31 00 1C 20 5A |ADC DELTAX.1.. Z|
00001C10: 19 53 54 41 20 4C 49 4E 45 58 AA 31 00 2A 20 64 |.STA LINEX.1.* d|
00001C20: 19 4C 44 41 20 4C 49 4E 45 59 00 32 20 6E 19 43 |.LDA LINEY.2 n.C|
00001C30: 4C 43 00 41 20 78 19 41 44 43 20 44 45 4C 54 41 |LC.A x.ADC DELTA|
00001C40: 59 00 4F 20 82 19 53 54 41 20 4C 49 4E 45 59 00 |Y.O ..STA LINEY.|
00001C50: 5F 20 8C 19 4C 44 41 20 4C 49 4E 45 59 AA 31 00 |_ ..LDA LINEY.1.|
00001C60: 70 20 96 19 41 44 43 20 44 45 4C 54 41 59 AA 31 |p ..ADC DELTAY.1|
00001C70: 00 80 20 A0 19 53 54 41 20 4C 49 4E 45 59 AA 31 |.. ..STA LINEY.1|
00001C80: 00 88 20 AA 19 44 45 58 00 99 20 B4 19 42 4E 45 |.. ..DEX.. ..BNE|
00001C90: 20 50 4C 4F 54 4C 4F 4F 50 00 A1 20 BE 19 52 54 | PLOTLOOP.. ..RT|
00001CA0: 53 00 A7 20 C8 19 3B 00 AD 20 D2 19 3B 00 BD 20 |S.. ..;.. ..;.. |
00001CB0: DC 19 46 49 58 53 49 47 4E 20 B2 20 AC 00 C9 20 |..FIXSIGN . ... |
00001CC0: E6 19 4C 44 41 20 32 2C 58 00 D7 20 F0 19 42 50 |..LDA 2,X.. ..BP|
00001CD0: 4C 20 49 53 B9 52 54 00 E8 20 FA 19 53 45 43 3B |L IS.RT.. ..SEC;|
00001CE0: A4 20 41 44 44 20 91 45 00 F4 20 04 1A 4C 44 41 |. ADD .E.. ..LDA|
00001CF0: 20 30 2C 58 00 FF 20 0E 1A 45 B0 20 23 AB 31 00 | 0,X.. ..E. #.1.|
00001D00: 0A 21 18 1A 41 44 43 20 23 30 00 16 21 22 1A 53 |.!..ADC #0..!".S|
00001D10: 54 41 20 30 2C 58 00 22 21 2C 1A 4C 44 41 20 31 |TA 0,X."!,.LDA 1|
00001D20: 2C 58 00 2D 21 36 1A 45 B0 20 23 AB 31 00 38 21 |,X.-!6.E. #.1.8!|
00001D30: 40 1A 41 44 43 20 23 30 00 44 21 4A 1A 53 54 41 |@.ADC #0.D!J.STA|
00001D40: 20 31 2C 58 00 52 21 54 1A 49 53 B9 52 54 20 52 | 1,X.R!T.IS.RT R|
00001D50: 54 53 00 58 21 5E 1A 3B 00 77 21 68 1A 44 49 56 |TS.X!^.;.w!h.DIV|
00001D60: 42 59 C3 20 B2 20 AC 3B 44 49 56 49 44 45 20 20 |BY. . .;DIVIDE |
00001D70: 42 59 20 C3 47 54 48 00 92 21 72 1A 4C 44 58 20 |BY .GTH..!r.LDX |
00001D80: 23 31 36 3B 4E 55 4D 42 45 52 20 4F 46 20 42 49 |#16;NUMBER OF BI|
00001D90: 54 53 00 9D 21 7C 1A 4C 44 41 20 23 30 00 B8 21 |TS..!|.LDA #0..!|
00001DA0: 86 1A 41 53 4C 20 54 45 4D 50 32 3B 49 4E 49 54 |..ASL TEMP2;INIT|
00001DB0: 49 41 4C 20 53 48 8B 54 00 C7 21 90 1A 44 49 56 |IAL SH.T..!..DIV|
00001DC0: 45 4E 54 20 52 4F 4C 00 D6 21 91 1A 42 43 53 20 |ENT ROL..!..BCS |
00001DD0: 53 4F 4D 45 B5 49 00 E3 21 9A 1A 43 4D 50 20 C3 |SOME.I..!..CMP .|
00001DE0: 47 54 48 00 F2 21 A4 1A 42 43 43 20 50 53 54 53 |GTH..!..BCC PSTS|
00001DF0: 55 42 00 FF 21 AE 1A 53 42 43 20 C3 47 54 48 00 |UB..!..SBC .GTH.|
00001E00: 14 22 B8 1A 50 53 54 53 55 42 20 52 4F 4C 20 54 |."..PSTSUB ROL T|
00001E10: 45 4D 50 31 00 22 22 C2 1A 52 4F 4C 20 54 45 4D |EMP1.""..ROL TEM|
00001E20: 50 32 00 2A 22 CC 1A 44 45 58 00 39 22 D6 1A 42 |P2.*"..DEX.9"..B|
00001E30: 4E 45 20 44 49 56 45 4E 54 00 4D 22 E0 1A 52 54 |NE DIVENT.M"..RT|
00001E40: 53 3B 8F 41 49 4E 45 52 20 49 4E 20 41 00 61 22 |S;.AINER IN A.a"|
00001E50: EA 1A 53 4F 4D 45 B5 49 20 53 42 43 20 C3 47 54 |..SOME.I SBC .GT|
00001E60: 48 00 69 22 F4 1A 53 45 43 00 78 22 FE 1A 42 43 |H.i"..SEC.x"..BC|
00001E70: 53 20 50 53 54 53 55 42 00 00 00 |S PSTSUB... |
..0.... THE TRANSACTOR VOLUME 4 ISSUE 04
PAGE 48.Q.... NOTE NOT SHOWN IN MAGAZIN
E.K...."S=DSAVE"@GROUTINES"......2,8,1,"
@0:GROUT2"......7.4096...(..OPT O2...2..
LST 8,4,"PACKST.F.<..LST 8,4,"C64HARD".W
.F.MAPPTR . $19...P.BITMAP . $2000...Z.C
OLPTR . MAPPTR.2...D... $A3...N.TEMP1 ..
..1.+.X.TEMP2 ....1.;...LINEY ....2.K...
LINEX ....2.\...DELTAX ....3.M. .DELTAY
....3.|...CGTH ....1.....LINECOLR ....1.
....PRIMCOL . $FB...H.ROW . PRIMCOL.K.R.
SELCOLS . PRIMCOL.1.....COLUMN . SELCOLS
.....MAXCOL . 160.....MAXROW . 200. ...;
COMMENTS . HOW . USE THE.7...;GRAPHICS R
OUTINES.=...;.A.".;THE FIRST BYTE OF THI
S PACKAGE.{.,.;IS AN RTS . THE M.ER...6.
;THE . 24 BYTES ARE JUMP VEC.RS.B.@.;THE
FIRST 5 JUMP VEC.RS ARE ....J.;USE FROM
BASIC. . THIS CODE...T.;IS .ED AT $95F
F AS SUGGESTED,.(.^.;THESE VEC.RS START
AT 38400.P.H.;FROM BASIC, THINGS W.K AS
FOLLOWS:.V.R.;.M.|.;INITIALIZE .38400...
..; .38400,C0,C1,C2,C3.....;WILL SETUP
THE COLOUR GRAPHICS.M...;SCREEN WITH 4
COLOURS C0.C3.....;C0 IS THE BACKGROUND,
C3 KES.....;.O THE COLOUR NYBBLES. C1
..0...;C2 K .O THE TEXT SCREEN..Q.B.;TH
E SCREEN IS CLEARED . THE.{.L.;BACKGROUN
D COLOUR. YOU MUST SET THE...V.;B.DER Y
OURSELF.....;.....;. LOC .38403 (BASE.3)
.J...; .38403,ROW,COLUMN.....;.S THE G
IVEN PIXEL. ROWS RANGE.....;FROM 0 . 19
9. COLUMNS FROM.5...;0 . 159. THE COLO
UR FROM 0 . 3.Z...;THAT IS IN THAT LOCAT
I. WILL BE.P.&.;S.RED IN LOCATI....0.;.
YOU . B AT....:.;...D.;SET PO. . 38406 (
BASE.6).F.N.; .38406,ROW,COLUMN,TYPE..
.X.;SETS THE GIVEN PO. .. THE...B.;TYPE
IS A NUMBER FROM 0 . 3.(.L.;. SHOWS .E
OF THE 4 COLOURS.Q.V.;YOU SET WITH THE I
NITIALIZE ROUTINE.W...;.Z...;. . TEXT MO
DE .38409 (BASE.9).....; .38409.....;T
HIS GIVES YOU BACK YOUR OLD TEXT.W...;MO
DE BUT YOUR SCREEN WILL BE FULL.....;OF
GARBAGE SO YOU HAD BETTER...F.;CLEAR IT.
...P.;...Z.;DRAW LINE .38412 (BASE.12).V
...; .38412,ROW1,COL1,ROW2,COL2,TYPE.Z
...;THIS DRAWS A LINE FROM THE PO......;
AT ROW1,COLUMN1 . THE PO. AT.....;ROW2,C
OLUMN2.T...;THE TYPE, IN THE RANGE 0.3,
WILL.....;SET THE COLOUR OF THE LINE....
.;A SIMPLE DDA ALKRITHM IS USED....*.;.
3.4.;HAPPY GRAPHICS.?.....$C000.G.B.RTS.
V.L.JMP BFLEAR.C.V.JMP BAS..R...JMP BASS
ET.....JMP BASTEXT.....JMP BASLINE.....J
MP LCHECKLOC.....JMP L.LOC.B...JMP LSETP
O..H...;...&.;CLEAR THE BITMAP...0.;...:
.LCLEARMAP . .;GLOBAL...D.;...N.LDA #.BI
TMAP.#.X.STA MAPPTR.4.B.LDA #.BITMAP.E.L
.STA MAPPTR.1.K.V.;.V...LDA #0.^...TAY..
...LDX #32;NUMBER OF PAGES IN MAP.....BT
.LP STA (MAPPTR),Y.....INY.....BNE BT.LP
.A...INC MAPPTR.1.I.F.DEX.W.P.BNE BT.LP.
..Z.;.....;NOW CLEAR OUT THE COLOUR SCRE
ENS.....;.....LDA #0.#...STA MAPPTR.2...
STA COLPTR.E...LDA #.TEXT.999.V. .STA MA
PPTR.1.I.*.LDY #.TEXT.999..4.LDA #.COLO
URS.999...>.STA COLPTR.1...H.LDX #4;NUMB
ER OF SCREEN PAGES.I.R..COLLP LDA PRIMCO
L...\.STA (COLPTR),Y...F.LDA SELCOLS...P
.STA (MAPPTR),Y...Z.DEY.....CPY #.1."...
BNE .COLLP.3...DEC MAPPTR.1.D...DEC COLP
TR.1.L...DEX.[...BNE .COLLP.A...;.I.J.RT
S.O.T.;.U...;.{...;.....NOKODLC LDA #.1.
....RTS.....;.....LCHECKLOC . .;GLOBAL.B
...LDA ROW.X.$..COMP CMP #MAXROW.....BCS
NOKODLC...8.LDA COLUMN...B.CMP #MAXCOL.
..L.BCS NOKODLC...V.;.#.`.;.).J.;.>.T.L.
LOC . .;GLOBAL.F.~.TYA.N...PHA.Q...JSR S
ETMPPTR;SET THE MAP PO.ER.|...LDY #0....
.LDA COLUMN.....LSR;. .E BIT.....PHP;. I
T AS CARRY.D.D.LSR;. TWO BIT.Z.N.;. CLEA
R, 4 LSR S...X.LDA (MAPPTR),Y.....BCS NO
4ROT.....LSR.....LSR.....LSR.....LSR.+..
.NO4ROT . ..O...PLP;THE .E BIT, . CLEAR,
2 LSRS.^.(.BCS NO2ROT.F.2.LSR.N.<.LSR.}
.F.NO2ROT . ....P.. #%11...Z.POPYOUT STA
TEMP1...D.PLA...N.TAY...X.LDA TEMP1.D..
.RTS.J...;.....; SET MAP PO.ER... .SETMP
PTR . ......LDA ROW.....LSR.....LSR...H.
. #%11111110.$.R.TAY.7...LDA BLOCKADR,Y.
F...STA MAPPTR.[...LDA BLOCKADR.1,Y.L...
STA MAPPTR.1.|...;LDA COLUMN.....;LSR...
..;LSR...".;CLC...,.;ADC TEXTADR,Y...6.;
STA COLPTR.O.@.;LDA TEXTADR.1,Y...J.;ADC
#0...T.;STA COLPTR.1...^.LDA ROW...H..
#%111...R.STA TEMP1.".|.LDA COLUMN.H...;
. OUT LOWER TWO BITS . MULT BY 2.Y.... #
%11111100.A...ASL.~...;CARRY NOW HAS UPP
ER BIT.....BCC DNBMPHI.....INC MAPPTR.1.
..B.DNBMPHI CLC...L..A TEMP1.K.V.ADC MAP
PTR.Z...STA MAPPTR.....BCC DNBMP2.....IN
C MAPPTR.1.....DNBMP2 RTS.....;.....;...
..;BLOCK ADDRESS TABLE.4.&.;.E.0.BLOCKAD
R . ..[.:.BLKSIZE . 8.LINEC.I.D.COUNT _
0...N..W.D BLKSIZE.COUNT.BITMAP...X.COUN
T _ COUNT.1...B... COUNT.NUMLINES:.. 443
0...L.;.U.V.;TEXT MEM.Y TABLE.....TEXTAD
R . ......COUNT _ 0......W.D LINEC.COUNT
.TEXT.!...COUNT _ COUNT.1.?..... COUNT.N
UMLINES:.. 4500.E...;.K...;.Z.F.;SET A P
O..Q.P.LSETPO. . .;GLOBAL..Z.STA TEMP2.
....TYA.....PHA. ...JSR SETMPPTR.....LDA
COLUMN...... #%11.B...TAY... .LDA .MASK
S,Y;. . OUT BITS...*.PHA...4.LDA COLUMN.
..>.LSR;. THE .E BIT...H.PHP;. IT./.R.LS
R;. THE TWO BIT.E.\.;. CLEAR, 4 ASL S.S.
F.LDA TEMP2.C.P.BCS NO4ROT2.K.Z.ASL.S...
ASL.{...ASL.....ASL.....NO4ROT2 . ......
PLP.....BCS NO2ROT2.....ASL...J.ASL.K.T.
NO2ROT2 . ..Y...STA TEMP2.....PLA;THE MA
SK.....LDY #0...... (MAPPTR),Y......A TE
MP2.&...STA (MAPPTR),Y.B...JMP POPYOUT;P
OP Y . OUT.H.$.;......MASKS .BYTE %00111
111,%11001111,%11110011,%11111100...8.;.
..B.;...L.;...V.;...`.;...J.;BASIC CALL
CLEAR MAP.H.T.BFLEAR . ..W.~.JSR CHKCOM.
....JSR .E2.....STX BACKGND0.....JSR CHK
COM.....JSR .E2.....TXA.....ASL.'.D.ASL.
/.N.ASL.7.X.ASL.E...STA TEMP2.T...JSR CH
KCOM.`...JSR .E2.H...TXA.R.... #$F.....
A TEMP2.....STA SELCOLS...(.JSR CHKCOM..
.2.JSR .E2...<.STX PRIMCOL.H.F.LDA Y.ROL
.W.P..A #VICBMM...Z.STA Y.ROL...D.LDA X.
ROL...N..A #VICMCM...X.STA X.ROL.....LDA
#28.+...STA SCRMEM.=...JMP LCLEARMAP.C.
.;.P...;SET PO.._...BASSET . ..N...JSR
CHKCOM.Z.H.JSR .E2...R.STX ROW.....JSR C
HKCOM.....JSR .E2.....STX COLUMN.....JSR
CHKCOM.K...JSR .E2.S...TXA.....JMP LSET
PO....".;...,.BAS. . ....6.JSR CHKCOM...
@.JSR .E2...J.STX ROW.,.T.JSR CHKCOM.8.^
.JSR .E2.G.H.STX COLUMN.Y.R.JSR LCHECKLO
C.F.|.STA $100.N...RTS.T...;.....BASTEXT
. ......LDA Y.ROL...... #.VICBMM..1...
..STA Y.ROL.A.B.LDA X.ROL.S.L.. #.VICMCM
..1...V.STA X.ROL.....LDA #20.....STA SC
RMEM.....LDA #0.....CLC.....RTS.....;.*.
..;BASLINE.0.&.;.@.0.BASLINE . ..K.:.LDA
#0.\.D.STA DELTAX.2.R.N.STA DELTAY.2;SI
GN...X.JSR CHKCOM...B.JSR .E2...L.STX LI
NEY.1...V.JSR CHKCOM.....JSR .E2.H...STX
LINEX.1.W...JSR CHKCOM.....JSR .E2.....
TXA.....SEC.....SBC LINEY.1...F.BCS NXTA
RG1...P.E. #.1.5.Z.ADC #1;CARRY CLEAR.Q.
..DEC DELTAY.2;SIGN BYTE.A...NXTARG1 .
..R...STA DELTAY.1.....JSR CHKCOM.....JS
R .E2.....TXA... .SEC...*.SBC LINEX.1...
4.BCS NXTARG2.H.>.E. #.1...H.ADC #1;CARR
Y CLEAR...R.DEC DELTAX.2...\.NXTARG2 . .
...F.STA DELTAX.1. .P.JSR CHKCOM.,.Z.JSR
.E2.=...STX LINECOLR.C...;.S...;NOW . C
GTH.D...LDA DELTAY.1.U...CMP DELTAX.1...
..BCS USEDY.....LDA DELTAX.1...J.USEDY S
TA CGTH...T.LDA #0.....STA TEMP1.Q...LDA
DELTAX.1.....STA TEMP2.....JSR DIVBYC..
...LDA TEMP1.....STA DELTAX.....LDA TEMP
2.*.$.STA DELTAX.1.5...LDA #0.C.8.STA TE
MP1.T.B.LDA DELTAY.1.B.L.STA TEMP2.Q.V.J
SR DIVBYC..`.LDA TEMP1...J.STA DELTAY..
.T.LDA TEMP2...~.STA DELTAY.1.....LDA #$
80.H...STA LINEX.....STA LINEY;ADD .E HA
LF.....LDX #DELTAX.....JSR FIXSIGN;.IENT
SIGN.....LDX #DELTAY.8.D.JSR FIXSIGN;.I
ENT SIGN.F.N.;THE LOOP.S.X.LDX CGTH.L...
PLOTLOOP LDA LINEX.1.{...STA COLUMN.....
LDA LINEY.1.....STA ROW.....LDA LINECOLR
.....JSR LSETPO..F...LDA LINEX.N.(.CLC..
.2.ADC DELTAX...<.STA LINEX...F.LDA LINE
X.1.. P.ADC DELTAX.1.. Z.STA LINEX.1.* D
.LDA LINEY.2 N.CLC.A X.ADC DELTAY.O ..ST
A LINEY._ ..LDA LINEY.1.P ..ADC DELTAY.1
.. .STA LINEY.1.. ..DEX.. ..BNE PLOTLOO
P.. ..RTS.. H.;.. R.;.. ..FIXSIGN . ..I
..LDA 2,X.W ..BPL IS.RT.. ..SEC;. ADD .E
.. ..LDA 0,X.. ..E. #.1..!..ADC #0..!".S
TA 0,X."!,.LDA 1,X.-!6.E. #.1.8!@.ADC #0
.D!J.STA 1,X.R!T.IS.RT RTS.X!^.;.W!H.DIV
BYC . .;DIVIDE BY CGTH..!R.LDX #16;NUMB
ER OF BITS..!|.LDA #0..!..ASL TEMP2;INIT
IAL SH.T.G!..DIVENT ROL.V!..BCS SOME.I..
!..CMP CGTH..!..BCC PSTSUB..!..SBC CGTH.
."..PSTSUB ROL TEMP1.""B.ROL TEMP2.*"L.D
EX.9"V.BNE DIVENT.M"..RTS;.AINER IN A.A"
..SOME.I SBC CGTH.I"..SEC.X"..BCS PSTSUB
...
> CLICK IMAGE PREVIEW FOR FULL MODAL