00000000: 00 80 5E 55 3A 5A 45 52 4F 0D 20 20 20 20 20 C2 |..^U:ZERO. .|
00000010: C9 D4 D3 3A 20 C1 20 C8 49 2D D2 45 53 20 CD C9 |...: . .I-.ES ..|
00000020: D3 D4 20 D2 4F 55 54 49 4E 45 0D 0D 20 20 20 20 |.. .OUTINE.. |
00000030: 20 20 20 20 20 20 42 59 20 D3 43 4F 54 54 20 C5 | BY .COTT .|
00000040: 2E 20 D2 45 53 48 0D 0D 20 20 20 20 CD 59 20 47 |. .ESH.. .Y G|
00000050: 4F 41 4C 20 57 41 53 20 54 4F 20 57 52 49 54 45 |OAL WAS TO WRITE|
00000060: 20 41 4E 20 41 53 53 45 4D 42 4C 59 0D 4C 41 4E | AN ASSEMBLY.LAN|
00000070: 47 55 41 47 45 20 50 52 4F 47 52 41 4D 20 54 48 |GUAGE PROGRAM TH|
00000080: 41 54 20 57 4F 55 4C 44 20 4C 4F 41 44 20 41 0D |AT WOULD LOAD A.|
00000090: 48 49 2D 52 45 53 4F 4C 55 54 49 4F 4E 20 53 43 |HI-RESOLUTION SC|
000000A0: 52 45 45 4E 20 41 4E 44 20 22 4D 49 53 54 22 20 |REEN AND "MIST" |
000000B0: 49 54 0D 49 4E 54 4F 20 56 49 45 57 2E 20 20 22 |IT.INTO VIEW. "|
000000C0: CD 49 53 54 49 4E 47 22 20 49 53 20 41 20 50 52 |.ISTING" IS A PR|
000000D0: 4F 43 45 53 53 0D 57 48 45 52 45 20 41 20 53 43 |OCESS.WHERE A SC|
000000E0: 52 45 45 4E 20 47 52 41 44 55 41 4C 4C 59 20 43 |REEN GRADUALLY C|
000000F0: 48 41 4E 47 45 53 20 46 52 4F 4D 0D C2 CC C1 CE |HANGES FROM.....|
00000100: CB 20 54 4F 20 41 20 C3 CF CD D0 CC C5 D4 C5 20 |. TO A ........ |
00000110: 49 4D 41 47 45 2E 20 20 CD 59 0D 52 4F 55 54 49 |IMAGE. .Y.ROUTI|
00000120: 4E 45 20 57 49 4C 4C 20 47 4F 20 46 52 4F 4D 20 |NE WILL GO FROM |
00000130: 41 20 42 4C 41 4E 4B 20 53 43 52 45 45 4E 0D 54 |A BLANK SCREEN.T|
00000140: 4F 20 54 48 45 20 46 49 4E 41 4C 20 49 4D 41 47 |O THE FINAL IMAG|
00000150: 45 20 49 4E 20 37 20 50 41 53 53 45 53 20 4F 46 |E IN 7 PASSES OF|
00000160: 20 54 48 45 0D 4D 49 53 54 20 41 4C 47 4F 52 49 | THE.MIST ALGORI|
00000170: 54 48 4D 2E 20 20 C1 46 54 45 52 20 54 48 45 20 |THM. .FTER THE |
00000180: 53 45 56 45 4E 54 48 0D 50 41 53 53 2C 20 54 48 |SEVENTH.PASS, TH|
00000190: 45 20 4C 4F 41 44 45 44 20 53 43 52 45 45 4E 20 |E LOADED SCREEN |
000001A0: 49 53 0D 54 52 41 4E 53 46 45 52 52 45 44 20 54 |IS.TRANSFERRED T|
000001B0: 4F 20 54 48 45 20 22 56 49 45 57 45 44 22 20 53 |O THE "VIEWED" S|
000001C0: 43 52 45 45 4E 2E 0D 0D 0D 0D 0D 20 20 20 20 C4 |CREEN...... .|
000001D0: 55 52 49 4E 47 20 50 41 53 53 20 4F 4E 45 2C 20 |URING PASS ONE, |
000001E0: 4F 4E 4C 59 20 31 20 50 49 58 45 4C 20 46 52 4F |ONLY 1 PIXEL FRO|
000001F0: 4D 0D 54 48 45 20 4C 4F 41 44 45 44 20 53 43 52 |M.THE LOADED SCR|
00000200: 45 45 4E 20 49 53 20 54 52 41 4E 53 46 45 52 52 |EEN IS TRANSFERR|
00000210: 45 44 20 54 4F 0D 54 48 45 20 56 49 45 57 45 44 |ED TO.THE VIEWED|
00000220: 20 53 43 52 45 45 4E 2E 20 20 D0 41 53 53 20 54 | SCREEN. .ASS T|
00000230: 57 4F 2C 20 54 57 4F 0D 50 49 58 45 4C 53 3B 20 |WO, TWO.PIXELS; |
00000240: 50 41 53 53 20 54 48 52 45 45 2C 20 54 48 52 45 |PASS THREE, THRE|
00000250: 45 20 50 49 58 45 4C 53 2C 20 45 54 43 2E 0D 0D |E PIXELS, ETC...|
00000260: 20 20 20 20 D4 48 45 20 53 4F 55 52 43 45 20 4C | .HE SOURCE L|
00000270: 49 53 54 49 4E 47 2C 20 49 4E 20 D0 C1 CC 20 46 |ISTING, IN ... F|
00000280: 4F 52 4D 41 54 2C 0D 49 53 20 43 4F 4D 4D 45 4E |ORMAT,.IS COMMEN|
00000290: 54 45 44 20 41 4E 44 20 53 54 52 41 49 47 48 54 |TED AND STRAIGHT|
000002A0: 46 4F 52 57 41 52 44 2E 0D 0D 20 20 20 20 D4 48 |FORWARD... .H|
000002B0: 49 53 20 22 4D 49 53 54 22 20 45 46 46 45 43 54 |IS "MIST" EFFECT|
000002C0: 20 45 58 41 4D 50 4C 45 20 49 53 0D 49 4E 54 45 | EXAMPLE IS.INTE|
000002D0: 4E 44 45 44 20 41 53 20 22 46 4F 4F 44 20 46 4F |NDED AS "FOOD FO|
000002E0: 52 20 54 48 4F 55 47 48 54 2E 22 0D C1 53 53 45 |R THOUGHT."..SSE|
000002F0: 4D 42 4C 59 20 4C 41 4E 47 55 41 47 45 20 50 52 |MBLY LANGUAGE PR|
00000300: 4F 47 52 41 4D 4D 45 52 53 20 41 52 45 0D 45 4E |OGRAMMERS ARE.EN|
00000310: 43 4F 55 52 41 47 45 44 20 54 4F 20 47 4F 20 46 |COURAGED TO GO F|
00000320: 41 52 54 48 45 52 2E 20 20 C5 58 41 4D 50 4C 45 |ARTHER. .XAMPLE|
00000330: 53 3A 0D 41 20 4D 55 4C 54 49 2D 43 4F 4C 4F 52 |S:.A MULTI-COLOR|
00000340: 20 56 45 52 53 49 4F 4E 2C 20 42 41 43 4B 57 41 | VERSION, BACKWA|
00000350: 52 44 53 20 4D 49 53 54 0D 28 4D 49 53 54 20 46 |RDS MIST.(MIST F|
00000360: 52 4F 4D 20 43 4F 4D 50 4C 45 54 45 20 53 43 52 |ROM COMPLETE SCR|
00000370: 45 45 4E 20 54 4F 20 41 20 42 4C 41 4E 4B 0D 53 |EEN TO A BLANK.S|
00000380: 43 52 45 45 4E 29 2C 20 53 4D 4F 4F 54 48 20 45 |CREEN), SMOOTH E|
00000390: 58 49 54 20 54 4F 20 C2 C1 D3 C9 C3 2C 20 45 54 |XIT TO ....., ET|
000003A0: 43 2E 0D 0D 20 20 20 20 C6 4F 52 20 41 20 44 45 |C... .OR A DE|
000003B0: 4D 4F 4E 53 54 52 41 54 49 4F 4E 20 4F 46 20 54 |MONSTRATION OF T|
000003C0: 48 45 20 4D 49 53 54 0D 45 46 46 45 43 54 2C 20 |HE MIST.EFFECT, |
000003D0: 43 48 4F 4F 53 45 20 D2 55 4E 20 C9 54 20 46 52 |CHOOSE .UN .T FR|
000003E0: 4F 4D 20 54 48 45 20 4D 45 4E 55 2C 0D 4F 52 20 |OM THE MENU,.OR |
000003F0: 4A 55 53 54 20 50 52 45 53 53 20 C3 CD C4 D2 2D |JUST PRESS ....-|
00000400: D2 20 46 52 4F 4D 20 54 48 49 53 20 46 49 4C 45 |. FROM THIS FILE|
00000410: 2E 0D 0D 20 20 20 20 D4 48 45 20 52 4F 55 54 49 |... .HE ROUTI|
00000420: 4E 45 20 57 49 4C 4C 20 57 4F 52 4B 20 57 49 54 |NE WILL WORK WIT|
00000430: 48 20 41 54 0D 4C 45 41 53 54 20 54 48 52 45 45 |H AT.LEAST THREE|
00000440: 20 46 4F 52 4D 41 54 53 2C 20 C4 CF CF C4 CC C5 | FORMATS, ......|
00000450: 21 2C 0D C6 4C 45 58 49 44 52 41 57 20 41 4E 44 |!,..LEXIDRAW AND|
00000460: 20 CF C3 D0 20 C1 52 54 20 D3 54 55 44 49 4F 2E | ... .RT .TUDIO.|
00000470: 20 20 C1 0D C4 CF CF C4 CC C5 21 20 50 49 43 20 | ........! PIC |
00000480: 4D 55 53 54 20 48 41 56 45 20 54 48 45 20 55 53 |MUST HAVE THE US|
00000490: 55 41 4C 20 22 C4 C4 22 0D 50 52 45 46 49 58 3B |UAL "..".PREFIX;|
000004A0: 20 54 48 45 20 4F 54 48 45 52 20 54 57 4F 20 43 | THE OTHER TWO C|
000004B0: 41 4E 20 48 41 56 45 20 41 4E 59 0D 46 49 4C 45 |AN HAVE ANY.FILE|
000004C0: 4E 41 4D 45 2E 0D 0D 20 20 20 20 D3 49 4E 43 45 |NAME... .INCE|
000004D0: 20 54 48 49 53 20 49 53 20 41 20 48 49 2D 52 45 | THIS IS A HI-RE|
000004E0: 53 20 4D 49 53 54 0D 52 4F 55 54 49 4E 45 20 41 |S MIST.ROUTINE A|
000004F0: 4E 44 20 4E 4F 54 20 41 20 4D 55 4C 54 49 2D 43 |ND NOT A MULTI-C|
00000500: 4F 4C 4F 52 20 52 4F 55 54 49 4E 45 0D 49 54 20 |OLOR ROUTINE.IT |
00000510: 57 4F 4E 27 54 20 57 4F 52 4B 20 57 49 54 48 20 |WON'T WORK WITH |
00000520: CB CF C1 CC C1 20 50 49 43 54 55 52 45 53 2E 0D |..... PICTURES..|
00000530: 0D 20 20 20 20 D4 48 45 20 44 45 4D 4F 20 44 4F |. .HE DEMO DO|
00000540: 45 53 4E 27 54 20 52 45 41 4C 4C 59 20 53 48 4F |ESN'T REALLY SHO|
00000550: 57 20 4F 46 46 0D 54 48 45 20 45 46 46 45 43 54 |W OFF.THE EFFECT|
00000560: 20 41 53 20 57 45 4C 4C 20 41 53 20 49 54 20 43 | AS WELL AS IT C|
00000570: 4F 55 4C 44 0D 42 45 43 41 55 53 45 20 54 48 45 |OULD.BECAUSE THE|
00000580: 20 50 49 43 20 57 45 20 48 41 56 45 20 4F 4E 20 | PIC WE HAVE ON |
00000590: 54 48 45 20 44 49 53 4B 0D 49 53 20 53 4D 41 4C |THE DISK.IS SMAL|
000005A0: 4C 20 41 4E 44 20 4F 4E 4C 59 20 55 53 45 53 20 |L AND ONLY USES |
000005B0: 54 48 45 20 54 4F 50 20 4F 46 20 54 48 45 0D 53 |THE TOP OF THE.S|
000005C0: 43 52 45 45 4E 2E 20 20 C6 4F 52 20 42 45 53 54 |CREEN. .OR BEST|
000005D0: 20 52 45 53 55 4C 54 53 20 55 53 45 20 54 48 45 | RESULTS USE THE|
000005E0: 0D 52 4F 55 54 49 4E 45 20 57 49 54 48 20 41 20 |.ROUTINE WITH A |
000005F0: 46 55 4C 4C 20 53 43 52 45 45 4E 20 50 49 43 54 |FULL SCREEN PICT|
00000600: 55 52 45 2E 0D 0D 20 20 20 20 D4 48 45 20 52 45 |URE... .HE RE|
00000610: 41 53 4F 4E 20 46 4F 52 20 54 48 45 20 53 4D 41 |ASON FOR THE SMA|
00000620: 4C 4C 20 50 49 43 54 55 52 45 0D 49 53 20 54 48 |LL PICTURE.IS TH|
00000630: 41 54 20 D3 49 44 45 20 CF 4E 45 20 49 53 20 52 |AT .IDE .NE IS R|
00000640: 55 4E 4E 49 4E 47 20 53 48 4F 52 54 20 4F 46 0D |UNNING SHORT OF.|
00000650: 44 49 53 4B 20 53 50 41 43 45 20 41 4E 44 20 C6 |DISK SPACE AND .|
00000660: 45 4E 44 45 52 20 53 41 59 53 20 54 48 41 54 20 |ENDER SAYS THAT |
00000670: 48 45 0D 46 45 45 4C 53 20 45 53 50 45 43 49 41 |HE.FEELS ESPECIA|
00000680: 4C 4C 59 20 56 45 52 42 4F 53 45 20 54 48 49 53 |LLY VERBOSE THIS|
00000690: 20 4D 4F 4E 54 48 0D 41 4E 44 20 4E 45 45 44 53 | MONTH.AND NEEDS|
000006A0: 20 53 4F 4D 45 20 52 4F 4F 4D 20 46 4F 52 20 C4 | SOME ROOM FOR .|
000006B0: 49 53 4B 4F 56 45 52 59 2E 0D 0D 20 20 20 20 C1 |ISKOVERY... .|
000006C0: 46 54 45 52 20 59 4F 55 20 53 45 45 20 54 48 45 |FTER YOU SEE THE|
000006D0: 20 4D 49 53 54 20 45 46 46 45 43 54 2C 0D 4A 55 | MIST EFFECT,.JU|
000006E0: 53 54 20 50 52 45 53 53 20 41 20 4B 45 59 20 41 |ST PRESS A KEY A|
000006F0: 4E 44 20 59 4F 55 20 43 41 4E 20 53 45 45 20 49 |ND YOU CAN SEE I|
00000700: 54 0D 41 47 41 49 4E 20 4F 52 20 52 45 54 55 52 |T.AGAIN OR RETUR|
00000710: 4E 20 54 4F 20 CC CF C1 C4 D3 D4 C1 D2 2E 20 20 |N TO ......... |
00000720: C2 45 43 41 55 53 45 0D 41 20 53 43 52 45 45 4E |.ECAUSE.A SCREEN|
00000730: 20 43 4C 45 41 52 20 49 4E 20 C2 C1 D3 C9 C3 20 | CLEAR IN ..... |
00000740: 46 49 4C 4C 53 20 54 48 45 0D 53 43 52 45 45 4E |FILLS THE.SCREEN|
00000750: 20 57 49 54 48 20 53 50 41 43 45 53 2C 20 59 4F | WITH SPACES, YO|
00000760: 55 20 57 49 4C 4C 20 41 4C 57 41 59 53 0D 53 45 |U WILL ALWAYS.SE|
00000770: 45 20 52 45 44 20 4F 4E 20 42 4C 41 43 4B 20 57 |E RED ON BLACK W|
00000780: 48 45 4E 20 59 4F 55 20 52 55 4E 20 54 48 45 0D |HEN YOU RUN THE.|
00000790: 52 4F 55 54 49 4E 45 20 41 47 41 49 4E 2E 20 20 |ROUTINE AGAIN. |
000007A0: D7 48 59 20 52 45 44 20 4F 4E 20 42 4C 41 43 4B |.HY RED ON BLACK|
000007B0: 3F 0D D7 45 4C 4C 2C 20 52 45 44 20 49 53 20 32 |?..ELL, RED IS 2|
000007C0: 20 41 4E 44 20 42 4C 41 43 4B 20 49 53 20 30 2C | AND BLACK IS 0,|
000007D0: 20 52 49 47 48 54 3F 0D C1 20 53 50 41 43 45 20 | RIGHT?.. SPACE |
000007E0: 49 4E 20 48 45 58 20 49 53 20 32 30 2E 20 20 D4 |IN HEX IS 20. .|
000007F0: 48 45 20 46 4F 52 45 47 52 4F 55 4E 44 0D 54 41 |HE FOREGROUND.TA|
00000800: 4B 45 53 20 54 48 45 20 46 49 52 53 54 20 4E 49 |KES THE FIRST NI|
00000810: 42 42 4C 45 20 41 4E 44 20 54 48 45 0D 42 41 43 |BBLE AND THE.BAC|
00000820: 4B 47 52 4F 55 4E 44 20 54 41 4B 45 53 20 54 48 |KGROUND TAKES TH|
00000830: 45 20 53 45 43 4F 4E 44 20 4E 49 42 42 4C 45 2E |E SECOND NIBBLE.|
00000840: 0D C7 45 4E 45 52 41 4C 4C 59 2C 20 4F 54 48 45 |..ENERALLY, OTHE|
00000850: 52 20 54 48 41 4E 20 46 4F 52 20 41 20 44 45 4D |R THAN FOR A DEM|
00000860: 4F 2C 20 59 4F 55 0D 57 4F 4E 27 54 20 42 45 20 |O, YOU.WON'T BE |
00000870: 52 45 2D 4D 49 53 54 49 4E 47 20 41 20 50 49 43 |RE-MISTING A PIC|
00000880: 54 55 52 45 2E 0D 0D 20 20 20 20 C9 54 27 53 20 |TURE... .T'S |
00000890: 45 41 53 59 20 54 4F 20 55 53 45 20 54 48 49 53 |EASY TO USE THIS|
000008A0: 20 52 4F 55 54 49 4E 45 20 49 4E 0D 59 4F 55 52 | ROUTINE IN.YOUR|
000008B0: 20 4F 57 4E 20 C2 C1 D3 C9 C3 20 50 52 4F 47 52 | OWN ..... PROGR|
000008C0: 41 4D 2E 20 20 CA 55 53 54 20 44 4F 20 54 48 45 |AM. .UST DO THE|
000008D0: 0D 46 4F 4C 4C 4F 57 49 4E 47 20 54 48 52 45 45 |.FOLLOWING THREE|
000008E0: 20 54 48 49 4E 47 53 3A 0D 0D 20 20 31 2E 20 CC | THINGS:.. 1. .|
000008F0: CF C1 C4 20 22 CD C9 D3 D4 2E CF 22 2C 38 2C 31 |... "......",8,1|
00000900: 20 4F 52 20 42 45 54 54 45 52 20 59 45 54 2C 0D | OR BETTER YET,.|
00000910: 20 20 20 20 20 55 53 45 20 D0 CF CB C5 31 34 37 | USE ....147|
00000920: 2C 30 3A D3 D9 D3 35 37 38 31 32 22 CD C9 D3 D4 |,0:...57812"....|
00000930: 2E CF 22 0D 20 20 20 20 20 2C 38 2C 31 3A D3 D9 |..". ,8,1:..|
00000940: D3 36 32 36 33 31 0D 0D 20 20 32 2E 20 D0 55 54 |.62631.. 2. .UT|
00000950: 20 54 48 45 20 53 43 52 45 45 4E 20 4E 41 4D 45 | THE SCREEN NAME|
00000960: 20 49 4E 20 41 20 53 54 52 49 4E 47 0D 20 20 20 | IN A STRING. |
00000970: 20 20 53 55 43 48 20 41 53 2C 20 C1 24 3D 22 53 | SUCH AS, .$="S|
00000980: 43 52 45 45 4E 20 4E 41 4D 45 22 0D 0D 20 20 33 |CREEN NAME".. 3|
00000990: 2E 20 D4 48 45 4E 20 53 49 4D 50 4C 59 2C 20 D3 |. .HEN SIMPLY, .|
000009A0: D9 D3 34 39 31 35 32 2C C1 24 0D 0D 20 20 20 20 |..49152,.$.. |
000009B0: C9 4E 20 54 48 45 20 43 4F 4D 49 4E 47 20 4D 4F |.N THE COMING MO|
000009C0: 4E 54 48 53 20 C9 27 4D 20 4C 4F 4F 4B 49 4E 47 |NTHS .'M LOOKING|
000009D0: 0D 46 4F 52 57 41 52 44 20 54 4F 20 53 48 4F 57 |.FORWARD TO SHOW|
000009E0: 49 4E 47 20 59 4F 55 20 53 4F 4D 45 20 4D 4F 52 |ING YOU SOME MOR|
000009F0: 45 0D 45 46 46 45 43 54 53 20 54 48 41 54 20 41 |E.EFFECTS THAT A|
00000A00: 52 45 20 50 4F 53 53 49 42 4C 45 20 55 53 49 4E |RE POSSIBLE USIN|
00000A10: 47 20 54 48 45 0D 53 50 45 45 44 20 4F 46 20 4D |G THE.SPEED OF M|
00000A20: 41 43 48 49 4E 45 20 4C 41 4E 47 55 41 47 45 2E |ACHINE LANGUAGE.|
00000A30: 0D 0D 0D C4 C9 D3 CB 20 C6 C9 CC C5 D3 20 D4 C8 |....... ..... ..|
00000A40: C9 D3 20 D0 D2 CF C7 D2 C1 CD 20 D5 D3 C5 D3 0D |.. ....... .....|
00000A50: 0D C2 C9 D4 D3 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000A60: 20 20 20 20 CD C9 D3 D4 2E D3 C3 D2 C5 C5 CE 0D | ............|
00000A70: CD C9 D3 D4 2E CF 20 20 20 20 20 20 20 20 20 20 |...... |
00000A80: 20 20 20 CD C9 D3 D4 2E D3 0D D4 2E C2 C9 D4 D3 | .............|
00000A90: 0D 0D 20 20 20 20 20 20 20 20 2A 2A 2A 2A 20 C5 |.. **** .|
00000AA0: 4E 44 20 4F 46 20 D4 45 58 54 20 2A 2A 2A 2A 0D |ND OF .EXT ****.|
..^U:ZERO. BITS: A HI-RES MIST ROUTI
NE.. BY SCOTT E. RESH.. MY G
OAL WAS TO WRITE AN ASSEMBLY.LANGUAGE PR
OGRAM THAT WOULD LOAD A.HI-RESOLUTION SC
REEN AND "MIST" IT.INTO VIEW. "MISTING"
IS A PROCESS.WHERE A SCREEN GRADUALLY C
HANGES FROM.BLANK TO A COMPLETE IMAGE.
MY.ROUTINE WILL GO FROM A BLANK SCREEN.T
O THE FINAL IMAGE IN 7 PASSES OF THE.MIS
T ALGORITHM. AFTER THE SEVENTH.PASS, TH
E LOADED SCREEN IS.TRANSFERRED TO THE "V
IEWED" SCREEN...... DURING PASS ONE,
ONLY 1 PIXEL FROM.THE LOADED SCREEN IS T
RANSFERRED TO.THE VIEWED SCREEN. PASS T
WO, TWO.PIXELS; PASS THREE, THREE PIXELS
, ETC... THE SOURCE LISTING, IN PAL F
ORMAT,.IS COMMENTED AND STRAIGHTFORWARD.
.. THIS "MIST" EFFECT EXAMPLE IS.INTE
NDED AS "FOOD FOR THOUGHT.".ASSEMBLY LAN
GUAGE PROGRAMMERS ARE.ENCOURAGED TO GO F
ARTHER. EXAMPLES:.A MULTI-COLOR VERSION
, BACKWARDS MIST.(MIST FROM COMPLETE SCR
EEN TO A BLANK.SCREEN), SMOOTH EXIT TO B
ASIC, ETC... FOR A DEMONSTRATION OF T
HE MIST.EFFECT, CHOOSE RUN IT FROM THE M
ENU,.OR JUST PRESS CMDR-R FROM THIS FILE
... THE ROUTINE WILL WORK WITH AT.LEA
ST THREE FORMATS, DOODLE!,.FLEXIDRAW AND
OCP ART STUDIO. A.DOODLE! PIC MUST HAV
E THE USUAL "DD".PREFIX; THE OTHER TWO C
AN HAVE ANY.FILENAME... SINCE THIS IS
A HI-RES MIST.ROUTINE AND NOT A MULTI-C
OLOR ROUTINE.IT WON'T WORK WITH KOALA PI
CTURES... THE DEMO DOESN'T REALLY SHO
W OFF.THE EFFECT AS WELL AS IT COULD.BEC
AUSE THE PIC WE HAVE ON THE DISK.IS SMAL
L AND ONLY USES THE TOP OF THE.SCREEN.
FOR BEST RESULTS USE THE.ROUTINE WITH A
FULL SCREEN PICTURE... THE REASON FOR
THE SMALL PICTURE.IS THAT SIDE ONE IS R
UNNING SHORT OF.DISK SPACE AND FENDER SA
YS THAT HE.FEELS ESPECIALLY VERBOSE THIS
MONTH.AND NEEDS SOME ROOM FOR DISKOVERY
... AFTER YOU SEE THE MIST EFFECT,.JU
ST PRESS A KEY AND YOU CAN SEE IT.AGAIN
OR RETURN TO LOADSTAR. BECAUSE.A SCREEN
CLEAR IN BASIC FILLS THE.SCREEN WITH SP
ACES, YOU WILL ALWAYS.SEE RED ON BLACK W
HEN YOU RUN THE.ROUTINE AGAIN. WHY RED
ON BLACK?.WELL, RED IS 2 AND BLACK IS 0,
RIGHT?.A SPACE IN HEX IS 20. THE FOREG
ROUND.TAKES THE FIRST NIBBLE AND THE.BAC
KGROUND TAKES THE SECOND NIBBLE..GENERAL
LY, OTHER THAN FOR A DEMO, YOU.WON'T BE
RE-MISTING A PICTURE... IT'S EASY TO
USE THIS ROUTINE IN.YOUR OWN BASIC PROGR
AM. JUST DO THE.FOLLOWING THREE THINGS:
.. 1. LOAD "MIST.O",8,1 OR BETTER YET,.
USE POKE147,0:SYS57812"MIST.O".
,8,1:SYS62631.. 2. PUT THE SCREEN NAME
IN A STRING. SUCH AS, A$="SCREEN NA
ME".. 3. THEN SIMPLY, SYS49152,A$..
IN THE COMING MONTHS I'M LOOKING.FORWARD
TO SHOWING YOU SOME MORE.EFFECTS THAT A
RE POSSIBLE USING THE.SPEED OF MACHINE L
ANGUAGE....DISK FILES THIS PROGRAM USES.
.BITS MIST.SCREEN.MIST.O
MIST.S.T.BITS.. **** E
ND OF TEXT ****.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL