/ A.N.A.L.O.G. Magazine 1989 August / 89_aug.atr / pictperf.m65

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe 04 0a e8 03 22 58 | 3b 20 50 49 43 54 55 52 |......"X|; PICTUR|
|00000010| 45 20 50 45 52 46 45 43 | 54 20 43 6f 70 79 20 52 |E PERFEC|T Copy R|
|00000020| 6f 75 74 69 6e 65 f2 03 | 16 58 3b 20 41 73 73 65 |outine..|.X; Asse|
|00000030| 6d 62 6c 79 20 4c 69 73 | 74 69 6e 67 fc 03 20 58 |mbly Lis|ting.. X|
|00000040| 3b 20 57 72 69 74 74 65 | 6e 20 62 79 20 4a 6f 65 |; Writte|n by Joe|
|00000050| 20 44 2e 20 42 72 7a 75 | 73 7a 65 6b 06 04 05 58 | D. Brzu|szek...X|
|00000060| 3b 10 04 1a 58 3b 20 43 | 61 6c 6c 20 66 72 6f 6d |;...X; C|all from|
|00000070| 20 42 41 53 49 43 20 77 | 69 74 68 1a 04 2e 58 3b | BASIC w|ith...X;|
|00000080| 20 41 3d 55 53 52 28 32 | 33 32 35 33 2c 53 31 2c | A=USR(2|3253,S1,|
|00000090| 58 31 2c 59 31 2c 58 32 | 2c 59 32 2c 53 32 2c 58 |X1,Y1,X2|,Y2,S2,X|
|000000a0| 33 2c 59 33 2c 43 45 4c | 29 24 04 05 58 3b 2e 04 |3,Y3,CEL|)$..X;..|
|000000b0| 15 58 3b 20 70 72 6f 67 | 72 61 6d 20 65 71 75 61 |.X; prog|ram equa|
|000000c0| 74 65 73 38 04 09 82 58 | 31 1e 06 cf 42 04 09 82 |tes8...X|1...B...|
|000000d0| 58 33 1e 06 d0 4c 04 0d | 86 47 52 41 42 49 54 1e |X3...L..|.GRABIT.|
|000000e0| 06 d1 56 04 05 58 3b 60 | 04 17 1d 05 d5 5a 3b 3b |..V..X;`|.....Z;;|
|000000f0| 3d 32 33 32 35 33 20 64 | 65 63 69 6d 61 6c 6a 04 |=23253 d|ecimalj.|
|00000100| 05 58 3b 74 04 21 37 3b | 3b 70 75 6c 6c 20 61 63 |.X;t.!7;|;pull ac|
|00000110| 63 75 6d 75 6c 61 74 6f | 72 20 66 72 6f 6d 20 73 |cumulato|r from s|
|00000120| 74 61 63 6b 7e 04 04 37 | 88 04 1a 50 06 cc 3b 3b |tack~..7|...P..;;|
|00000130| 68 69 20 62 79 74 65 2c | 20 63 6f 70 79 20 66 72 |hi byte,| copy fr|
|00000140| 6f 6d 92 04 04 37 9c 04 | 1a 50 06 cb 3b 3b 6c 6f |om...7..|.P..;;lo|
|00000150| 20 62 79 74 65 2c 20 63 | 6f 70 79 20 66 72 6f 6d | byte, c|opy from|
|00000160| a6 04 04 37 b0 04 04 37 | ba 04 07 50 82 58 31 c4 |...7...7|...P.X1.|
|00000170| 04 1b 50 83 41 58 31 12 | 08 01 3b 3b 62 61 63 6b |..P.AX1.|..;;back|
|00000180| 75 70 20 73 74 6f 72 61 | 67 65 ce 04 04 37 d8 04 |up stora|ge...7..|
|00000190| 04 37 e2 04 0a 50 82 59 | 31 12 08 01 ec 04 04 37 |.7...P.Y|1......7|
|000001a0| f6 04 04 37 00 05 0a 50 | 82 58 32 12 08 01 0a 05 |...7...P|.X2.....|
|000001b0| 04 37 14 05 04 37 1e 05 | 0a 50 82 59 32 12 08 01 |.7...7..|.P.Y2...|
|000001c0| 28 05 0a 23 82 59 32 12 | 08 01 32 05 04 37 3c 05 |(..#.Y2.|..2..7<.|
|000001d0| 18 50 06 ce 3b 3b 68 69 | 20 62 79 74 65 2c 20 63 |.P..;;hi| byte, c|
|000001e0| 6f 70 79 20 74 6f 46 05 | 04 37 50 05 18 50 06 cd |opy toF.|.7P..P..|
|000001f0| 3b 3b 6c 6f 20 62 79 74 | 65 2c 20 63 6f 70 79 20 |;;lo byt|e, copy |
|00000200| 74 6f 5a 05 04 37 64 05 | 04 37 6e 05 07 50 82 58 |toZ..7d.|.7n..P.X|
|00000210| 33 78 05 1b 50 83 41 58 | 33 12 08 01 3b 3b 62 61 |3x..P.AX|3...;;ba|
|00000220| 63 6b 75 70 20 73 74 6f | 72 61 67 65 82 05 04 37 |ckup sto|rage...7|
|00000230| 8c 05 04 37 96 05 0a 50 | 82 59 33 12 08 01 a0 05 |...7...P|.Y3.....|
|00000240| 04 37 aa 05 04 37 b4 05 | 28 50 83 43 45 4c 12 08 |.7...7..|(P.CEL..|
|00000250| 01 3b 3b 69 6e 64 69 63 | 61 74 65 73 20 74 72 61 |.;;indic|ates tra|
|00000260| 6e 73 70 61 72 65 6e 74 | 20 63 6f 6c 6f 72 be 05 |nsparent| color..|
|00000270| 05 58 3b c8 05 1a 58 3b | 66 69 6e 64 20 72 6f 77 |.X;...X;|find row|
|00000280| 20 74 6f 20 63 6f 70 79 | 20 66 72 6f 6d d2 05 0a | to copy| from...|
|00000290| 24 82 59 31 12 08 01 dc | 05 2b 46 86 4e 4f 50 4c |$.Y1....|.+F.NOPL|
|000002a0| 55 53 3b 3b 69 66 20 59 | 31 3d 30 2c 20 6e 6f 20 |US;;if Y|1=0, no |
|000002b0| 61 64 64 69 74 69 6f 6e | 20 69 73 20 6e 65 65 64 |addition| is need|
|000002c0| 65 64 e6 05 0a 83 44 57 | 31 51 06 cb f0 05 04 2c |ed....DW|1Q.....,|
|000002d0| fa 05 2b 4f 3e 08 28 3b | 3b 65 61 63 68 20 6d 6f |..+O>.(;|;each mo|
|000002e0| 64 65 20 31 34 20 6c 69 | 6e 65 20 69 73 20 34 30 |de 14 li|ne is 40|
|000002f0| 20 62 79 74 65 73 20 77 | 69 64 65 04 06 06 50 06 | bytes w|ide...P.|
|00000300| cb 0e 06 08 44 83 4e 58 | 31 18 06 06 23 06 cc 22 |....D.NX|1...#.."|
|00000310| 06 08 83 4e 58 31 30 2c | 06 08 48 83 44 57 31 36 |...NX10,|..H.DW16|
|00000320| 06 05 58 3b 40 06 18 58 | 3b 66 69 6e 64 20 72 6f |..X;@..X|;find ro|
|00000330| 77 20 74 6f 20 63 6f 70 | 79 20 74 6f 4a 06 31 86 |w to cop|y toJ.1.|
|00000340| 4e 4f 50 4c 55 53 24 82 | 59 33 12 08 01 3b 3b 69 |NOPLUS$.|Y3...;;i|
|00000350| 66 20 59 33 3d 30 2c 20 | 6e 6f 20 61 64 64 69 74 |f Y3=0, |no addit|
|00000360| 69 6f 6e 20 69 73 20 6e | 65 65 64 65 64 54 06 0b |ion is n|eededT..|
|00000370| 46 86 4e 4f 50 4c 55 5a | 5e 06 0a 83 44 57 32 51 |F.NOPLUZ|^...DW2Q|
|00000380| 06 cd 68 06 04 2c 72 06 | 2b 4f 3e 08 28 3b 3b 65 |..h..,r.|+O>.(;;e|
|00000390| 61 63 68 20 6d 6f 64 65 | 20 31 34 20 6c 69 6e 65 |ach mode| 14 line|
|000003a0| 20 69 73 20 34 30 20 62 | 79 74 65 73 20 77 69 64 | is 40 b|ytes wid|
|000003b0| 65 7c 06 06 50 06 cd 86 | 06 08 44 83 4e 58 32 90 |e|..P...|..D.NX2.|
|000003c0| 06 06 23 06 ce 9a 06 08 | 83 4e 58 32 30 a4 06 08 |..#.....|.NX20...|
|000003d0| 48 83 44 57 32 ae 06 12 | 86 4e 4f 50 4c 55 5a 51 |H.DW2...|.NOPLUZQ|
|000003e0| 83 43 45 4c 12 08 01 b8 | 06 07 52 3e 08 03 c2 06 |.CEL....|..R>....|
|000003f0| 0c 48 87 4e 45 57 50 4c | 4f 54 cc 06 17 21 87 46 |.H.NEWPL|OT...!.F|
|00000400| 53 54 43 4f 50 59 3b 3b | 66 61 73 74 20 63 6f 70 |STCOPY;;|fast cop|
|00000410| 79 d6 06 05 58 3b e0 06 | 22 58 3b 62 65 67 69 6e |y...X;..|"X;begin|
|00000420| 20 63 6f 70 79 69 6e 67 | 20 74 68 65 20 69 6d 61 | copying| the ima|
|00000430| 67 65 20 70 69 78 65 6c | ea 06 10 58 3b 62 79 20 |ge pixel|...X;by |
|00000440| 70 69 78 65 6c 2e 2e 2e | f4 06 1d 58 3b 66 69 6e |pixel...|...X;fin|
|00000450| 64 20 63 6f 6c 75 6d 6e | 20 74 6f 20 63 6f 70 79 |d column| to copy|
|00000460| 20 66 72 6f 6d fe 06 0f | 87 4e 45 57 50 4c 4f 54 | from...|.NEWPLOT|
|00000470| 51 82 58 31 08 07 12 56 | 3f 3b 3b 64 69 76 69 64 |Q.X1...V|?;;divid|
|00000480| 65 20 62 79 20 34 12 07 | 05 56 3f 1c 07 1b 3f 3b |e by 4..|.V?...?;|
|00000490| 3b 59 20 3d 20 68 6f 72 | 69 7a 6f 6e 74 61 6c 20 |;Y = hor|izontal |
|000004a0| 6f 66 66 73 65 74 26 07 | 07 51 82 58 31 30 07 07 |offset&.|.Q.X10..|
|000004b0| 4d 3e 08 03 3a 07 04 3e | 44 07 04 32 4e 07 05 58 |M>..:..>|D..2N..X|
|000004c0| 3b 58 07 19 58 3b 6c 6f | 63 61 74 65 20 70 69 78 |;X..X;lo|cate pix|
|000004d0| 65 6c 20 74 6f 20 63 6f | 70 79 62 07 08 51 40 06 |el to co|pyb..Q@.|
|000004e0| cb 37 6c 07 0a 85 53 48 | 49 46 54 30 76 07 0a 46 |.7l...SH|IFT0v..F|
|000004f0| 85 41 4e 44 49 54 80 07 | 05 54 3f 8a 07 05 54 3f |.ANDIT..|.T?...T?|
|00000500| 94 07 0a 21 85 53 48 49 | 46 54 9e 07 0d 85 41 4e |...!.SHI|FT....AN|
|00000510| 44 49 54 4d 3e 08 c0 a8 | 07 27 50 86 47 52 41 42 |DITM>...|.'P.GRAB|
|00000520| 49 54 3b 3b 73 74 6f 72 | 65 20 62 69 74 20 70 61 |IT;;stor|e bit pa|
|00000530| 74 74 65 72 6e 20 6f 66 | 20 70 69 78 65 6c b2 07 |ttern of| pixel..|
|00000540| 05 58 3b bc 07 22 58 3b | 6d 61 6b 65 20 70 69 78 |.X;.."X;|make pix|
|00000550| 65 6c 20 63 6f 6c 6f 72 | 20 74 72 61 6e 73 70 61 |el color| transpa|
|00000560| 72 65 6e 74 3f c6 07 0b | 83 43 45 4c 52 3e 08 ff |rent?...|.CELR>..|
|00000570| d0 07 0b 46 86 4e 4f 50 | 4c 4f 54 da 07 05 58 3b |...F.NOP|LOT...X;|
|00000580| e4 07 26 58 3b 66 69 6e | 64 20 68 6f 72 69 7a 6f |..&X;fin|d horizo|
|00000590| 6e 74 61 6c 20 63 6f 6c | 75 6d 6e 20 74 6f 20 63 |ntal col|umn to c|
|000005a0| 6f 70 79 20 74 6f ee 07 | 07 51 82 58 33 f8 07 12 |opy to..|.Q.X3...|
|000005b0| 56 3f 3b 3b 64 69 76 69 | 64 65 20 62 79 20 34 02 |V?;;divi|de by 4.|
|000005c0| 08 05 56 3f 0c 08 1b 3f | 3b 3b 59 20 3d 20 68 6f |..V?...?|;;Y = ho|
|000005d0| 72 69 7a 6f 6e 74 61 6c | 20 6f 66 66 73 65 74 16 |rizontal| offset.|
|000005e0| 08 26 29 3e 08 28 3b 3b | 73 63 72 65 65 6e 20 69 |.&)>.(;;|screen i|
|000005f0| 73 20 6f 6e 6c 79 20 34 | 30 20 62 79 74 65 73 20 |s only 4|0 bytes |
|00000600| 77 69 64 65 21 20 08 19 | 45 87 45 4e 44 4c 49 4e |wide! ..|E.ENDLIN|
|00000610| 45 3b 3b 6f 66 66 20 73 | 63 72 65 65 6e 3f 2a 08 |E;;off s|creen?*.|
|00000620| 0c 51 82 58 33 3b 3b 6e | 6f 2e 34 08 07 4d 3e 08 |.Q.X3;;n|o.4..M>.|
|00000630| 03 3e 08 04 3e 48 08 04 | 32 52 08 05 58 3b 5c 08 |.>..>H..|2R..X;\.|
|00000640| 15 58 3b 61 64 6a 75 73 | 74 20 63 6f 70 79 20 64 |.X;adjus|t copy d|
|00000650| 61 74 61 66 08 0e 51 85 | 48 42 49 54 53 13 08 01 |ataf..Q.|HBITS...|
|00000660| 39 70 08 0a 85 52 49 47 | 48 54 30 7a 08 0c 46 87 |9p...RIG|HT0z..F.|
|00000670| 53 54 4f 52 45 49 54 84 | 08 0b 56 86 47 52 41 42 |STOREIT.|..V.GRAB|
|00000680| 49 54 8e 08 0b 56 86 47 | 52 41 42 49 54 98 08 0a |IT...V.G|RABIT...|
|00000690| 21 85 52 49 47 48 54 a2 | 08 0f 87 53 54 4f 52 45 |!.RIGHT.|...STORE|
|000006a0| 49 54 4e 3e 08 ff ac 08 | 08 4d 40 06 cd 37 b6 08 |ITN>....|.M@..7..|
|000006b0| 0b 4c 86 47 52 41 42 49 | 54 c0 08 19 50 40 06 cd |.L.GRABI|T...P@..|
|000006c0| 37 3b 3b 70 69 78 65 6c | 20 69 73 20 73 74 6f 72 |7;;pixel| is stor|
|000006d0| 65 64 ca 08 0e 86 4e 4f | 50 4c 4f 54 51 82 58 31 |ed....NO|PLOTQ.X1|
|000006e0| d4 08 0a 82 58 32 52 3e | 08 00 de 08 0c 46 87 45 |....X2R>|.....F.E|
|000006f0| 4e 44 4c 49 4e 45 e8 08 | 07 23 82 58 33 f2 08 07 |NDLINE..|.#.X3...|
|00000700| 23 82 58 31 fc 08 0b 51 | 83 43 45 4c 12 08 01 06 |#.X1...Q|.CEL....|
|00000710| 09 07 52 3e 08 03 10 09 | 0c 48 87 4e 45 57 50 4c |..R>....|.H.NEWPL|
|00000720| 4f 54 1a 09 0c 46 87 5a | 49 50 43 4f 50 59 24 09 |OT...F.Z|IPCOPY$.|
|00000730| 27 87 45 4e 44 4c 49 4e | 45 23 82 59 31 12 08 01 |'.ENDLIN|E#.Y1...|
|00000740| 3b 3b 65 6e 64 20 6f 66 | 20 6c 69 6e 65 20 72 65 |;;end of| line re|
|00000750| 61 63 68 65 64 2e 09 0a | 82 59 31 51 3e 08 00 38 |ached...|.Y1Q>..8|
|00000760| 09 0a 82 59 32 52 3e 08 | 00 42 09 0a 48 85 42 45 |...Y2R>.|.B..H.BE|
|00000770| 4c 4f 57 4c 09 1a 84 45 | 58 49 54 3a 3b 3b 72 65 |LOWL...E|XIT:;;re|
|00000780| 74 75 72 6e 20 74 6f 20 | 42 41 53 49 43 56 09 10 |turn to |BASICV..|
|00000790| 85 42 45 4c 4f 57 23 82 | 59 33 12 08 01 60 09 0a |.BELOW#.|Y3...`..|
|000007a0| 82 59 33 51 3e 08 00 6a | 09 1e 52 3e 08 c0 3b 3b |.Y3Q>..j|..R>..;;|
|000007b0| 6f 66 66 20 62 6f 74 74 | 6f 6d 20 6f 66 20 73 63 |off bott|om of sc|
|000007c0| 72 65 65 6e 3f 74 09 09 | 45 84 45 58 49 54 7e 09 |reen?t..|E.EXIT~.|
|000007d0| 21 83 41 58 31 51 3e 08 | 00 3b 3b 4e 6f 2c 20 63 |!.AX1Q>.|.;;No, c|
|000007e0| 61 72 72 69 61 67 65 20 | 72 65 74 75 72 6e 2e 88 |arriage |return..|
|000007f0| 09 07 50 82 58 31 92 09 | 0b 83 41 58 33 51 3e 08 |..P.X1..|..AX3Q>.|
|00000800| 00 9c 09 07 50 82 58 33 | a6 09 16 51 3e 08 28 3b |....P.X3|...Q>.(;|
|00000810| 3b 34 30 20 62 79 74 65 | 73 20 77 69 64 65 b0 09 |;40 byte|s wide..|
|00000820| 1c 2c 3b 3b 6e 65 78 74 | 20 6c 69 6e 65 20 74 6f |.,;;next| line to|
|00000830| 20 63 6f 70 79 20 66 72 | 6f 6d ba 09 06 4f 06 cb | copy fr|om...O..|
|00000840| c4 09 06 50 06 cb ce 09 | 09 44 84 46 52 4f 4d d8 |...P....|.D.FROM.|
|00000850| 09 06 23 06 cc e2 09 2b | 84 46 52 4f 4d 51 3e 08 |..#....+|.FROMQ>.|
|00000860| 28 3b 3b 6d 6f 64 65 20 | 31 34 20 6c 69 6e 65 20 |(;;mode |14 line |
|00000870| 69 73 20 34 30 20 62 79 | 74 65 73 20 77 69 64 65 |is 40 by|tes wide|
|00000880| ec 09 1a 2c 3b 3b 6e 65 | 78 74 20 6c 69 6e 65 20 |...,;;ne|xt line |
|00000890| 74 6f 20 63 6f 70 79 20 | 74 6f f6 09 06 4f 06 cd |to copy |to...O..|
|000008a0| 00 0a 06 50 06 cd 0a 0a | 09 44 84 4a 55 4d 50 14 |...P....|.D.JUMP.|
|000008b0| 0a 06 23 06 ce 1e 0a 10 | 84 4a 55 4d 50 51 83 43 |..#.....|.JUMPQ.C|
|000008c0| 45 4c 12 08 01 28 0a 07 | 52 3e 08 03 32 0a 0c 46 |EL...(..|R>..2..F|
|000008d0| 87 5a 49 50 43 4f 50 59 | 3c 0a 0c 21 87 4e 45 57 |.ZIPCOPY|<..!.NEW|
|000008e0| 50 4c 4f 54 46 0a 22 87 | 46 53 54 43 4f 50 59 51 |PLOTF.".|FSTCOPYQ|
|000008f0| 82 58 31 3b 3b 66 61 73 | 74 20 63 6f 70 79 20 72 |.X1;;fas|t copy r|
|00000900| 6f 75 74 69 6e 65 50 0a | 1f 56 3f 3b 3b 64 69 76 |outineP.|.V?;;div|
|00000910| 69 64 65 20 61 6c 6c 20 | 58 20 76 61 6c 75 65 73 |ide all |X values|
|00000920| 20 62 79 20 34 5a 0a 05 | 56 3f 64 0a 07 50 82 58 | by 4Z..|V?d..P.X|
|00000930| 31 6e 0a 0b 50 83 41 58 | 31 12 08 01 78 0a 0a 51 |1n..P.AX|1...x..Q|
|00000940| 82 58 32 12 08 01 82 0a | 05 56 3f 8c 0a 05 56 3f |.X2.....|.V?...V?|
|00000950| 96 0a 0a 50 82 58 32 12 | 08 01 a0 0a 07 51 82 58 |...P.X2.|.....Q.X|
|00000960| 33 aa 0a 05 56 3f b4 0a | 05 56 3f be 0a 07 50 82 |3...V?..|.V?...P.|
|00000970| 58 33 c8 0a 0b 50 83 41 | 58 33 12 08 01 d2 0a 0f |X3...P.A|X3......|
|00000980| 87 5a 49 50 43 4f 50 59 | 25 82 58 31 dc 0a 18 51 |.ZIPCOPY|%.X1...Q|
|00000990| 40 06 cb 37 3b 3b 20 6c | 6f 61 64 20 34 20 70 69 |@..7;; l|oad 4 pi|
|000009a0| 78 65 6c 73 e6 0a 07 25 | 82 58 33 f0 0a 19 50 40 |xels...%|.X3...P@|
|000009b0| 06 cd 37 3b 3b 20 73 74 | 6f 72 65 20 34 20 70 69 |..7;; st|ore 4 pi|
|000009c0| 78 65 6c 73 fa 0a 2f 21 | 86 4e 4f 50 4c 4f 54 3b |xels../!|.NOPLOT;|
|000009d0| 3b 69 6e 63 72 65 6d 65 | 6e 74 20 61 6e 64 20 63 |;increme|nt and c|
|000009e0| 68 65 63 6b 20 58 20 61 | 6e 64 20 59 20 76 61 6c |heck X a|nd Y val|
|000009f0| 75 65 73 04 0b 15 85 48 | 42 49 54 53 0b 08 c0 3d |ues....H|BITS...=|
|00000a00| 08 30 3d 08 0c 3d 08 03 |                         |.0=..=..|        |
+--------+-------------------------+-------------------------+--------+--------+