/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / bb_ext.dms / in.adf / LibsDev.lha / userlibsrc / RIFXLib.bb

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 72 69 66 78 6c 69 62 | 3d 36 36 00 00 3b 46 58 |;rifxlib|=66..;FX|
|00000010| 2d 6c 69 62 72 61 72 79 | 00 3b 42 79 20 53 74 65 |-library|.;By Ste|
|00000020| 70 68 65 6e 20 4d 63 4e | 61 6d 61 72 61 00 3b 28 |phen McN|amara.;(|
|00000030| 43 29 31 39 39 34 20 52 | 65 66 6c 65 63 74 69 76 |C)1994 R|eflectiv|
|00000040| 65 20 49 6d 61 67 65 73 | 00 00 3b 31 37 2f 37 2f |e Images|..;17/7/|
|00000050| 31 39 39 34 00 3b 20 41 | 73 20 66 72 6f 6d 20 74 |1994.; A|s from t|
|00000060| 68 69 73 20 64 61 74 65 | 2c 20 6f 6e 6c 79 20 74 |his date|, only t|
|00000070| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 6f 6e 6c |he follo|wing onl|
|00000080| 79 20 77 6f 72 6b 20 6f | 6e 20 6c 6f 72 65 7a 00 |y work o|n lorez.|
|00000090| 3b 20 20 62 69 74 6d 61 | 70 73 3a 20 5a 6f 6f 6d |;  bitma|ps: Zoom|
|000000a0| 58 38 2c 20 5a 6f 6f 6d | 58 59 2c 20 44 65 72 65 |X8, Zoom|XY, Dere|
|000000b0| 7a 00 3b 20 44 65 72 65 | 7a 20 68 61 73 20 62 65 |z.; Dere|z has be|
|000000c0| 65 6e 20 6f 70 74 69 6d | 69 73 65 64 20 66 6f 72 |en optim|ised for|
|000000d0| 20 61 6c 6c 20 64 65 72 | 65 7a 20 76 61 6c 75 65 | all der|ez value|
|000000e0| 73 20 75 6e 64 65 72 20 | 31 38 20 2d 20 69 74 20 |s under |18 - it |
|000000f0| 69 73 00 3b 20 20 6d 75 | 63 68 20 66 61 73 74 65 |is.;  mu|ch faste|
|00000100| 72 20 64 6f 69 6e 67 20 | 74 68 65 73 65 20 64 65 |r doing |these de|
|00000110| 72 65 7a 73 20 6e 6f 77 | 00 3b 20 43 6c 65 61 72 |rezs now|.; Clear|
|00000120| 42 69 74 6d 61 70 20 61 | 6e 64 20 46 61 64 65 49 |Bitmap a|nd FadeI|
|00000130| 6e 42 69 74 6d 61 70 20 | 68 61 76 65 20 68 61 64 |nBitmap |have had|
|00000140| 20 63 6f 6d 6d 65 6e 74 | 73 20 61 64 64 20 61 74 | comment|s add at|
|00000150| 20 6c 61 73 74 21 00 3b | 20 20 54 68 65 73 65 20 | last!.;|  These |
|00000160| 63 6f 6d 6d 61 6e 64 73 | 20 61 6c 73 6f 20 68 61 |commands| also ha|
|00000170| 76 65 20 62 65 65 6e 20 | 61 64 6a 75 73 74 65 64 |ve been |adjusted|
|00000180| 20 74 6f 20 77 6f 72 6b | 20 6f 6e 20 61 6e 79 20 | to work| on any |
|00000190| 73 69 7a 65 00 3b 20 20 | 62 69 74 6d 61 70 2e 20 |size.;  |bitmap. |
|000001a0| 20 41 74 20 74 68 65 20 | 6d 6f 6d 65 6e 74 2c 20 | At the |moment, |
|000001b0| 74 68 6f 75 67 68 2c 20 | 74 68 65 79 20 6f 70 65 |though, |they ope|
|000001c0| 72 61 74 65 20 6f 6e 20 | 74 68 65 20 77 68 6f 6c |rate on |the whol|
|000001d0| 65 00 3b 20 20 77 69 64 | 74 68 20 6f 66 20 74 68 |e.;  wid|th of th|
|000001e0| 65 20 62 69 74 6d 61 70 | 2e 00 3b 31 30 2f 37 2f |e bitmap|..;10/7/|
|000001f0| 31 39 39 34 00 3b 20 5a | 6f 6f 6d 58 32 20 61 6e |1994.; Z|oomX2 an|
|00000200| 64 20 5a 6f 6f 6d 58 34 | 20 6e 6f 77 20 77 6f 72 |d ZoomX4| now wor|
|00000210| 6b 20 6f 6e 20 61 6e 79 | 20 73 69 7a 65 20 62 69 |k on any| size bi|
|00000220| 74 6d 61 70 2e 00 3b 20 | 20 44 65 70 74 68 20 6f |tmap..; | Depth o|
|00000230| 66 20 7a 6f 6f 6d 20 69 | 73 20 74 61 6b 65 6e 20 |f zoom i|s taken |
|00000240| 66 72 6f 6d 20 73 6f 75 | 72 63 65 20 62 69 74 6d |from sou|rce bitm|
|00000250| 61 70 20 62 75 74 20 62 | 69 74 6d 61 70 73 20 63 |ap but b|itmaps c|
|00000260| 61 6e 20 62 65 00 3b 20 | 20 64 69 66 66 65 72 65 |an be.; | differe|
|00000270| 6e 74 20 68 65 69 67 68 | 74 73 20 61 6e 64 20 77 |nt heigh|ts and w|
|00000280| 69 64 74 68 73 00 3b 20 | 5a 4f 4f 4d 58 34 20 63 |idths.; |ZOOMX4 c|
|00000290| 6f 6d 6d 61 6e 64 20 69 | 73 20 63 68 61 6e 67 65 |ommand i|s change|
|000002a0| 64 20 74 6f 20 69 6e 63 | 6c 75 64 65 20 73 65 70 |d to inc|lude sep|
|000002b0| 61 72 61 74 65 20 58 20 | 61 6e 64 20 59 20 7a 6f |arate X |and Y zo|
|000002c0| 6f 6d 69 6e 67 2c 00 3b | 20 20 74 68 69 73 20 66 |oming,.;|  this f|
|000002d0| 65 61 74 75 72 65 20 6d | 61 79 20 62 65 20 61 64 |eature m|ay be ad|
|000002e0| 64 65 64 20 74 6f 20 58 | 32 20 61 6e 64 20 58 38 |ded to X|2 and X8|
|000002f0| 00 00 80 0d 20 62 6d 61 | 70 00 80 1c 20 60 30 3c |.... bma|p... `0<|
|00000300| 3e 32 00 20 20 80 20 20 | 22 4e 6f 74 20 65 6e 6f |>2.  .  |"Not eno|
|00000310| 75 67 68 20 70 61 72 61 | 6d 65 74 65 72 73 22 00 |ugh para|meters".|
|00000320| 80 1f 00 21 6c 69 62 73 | 20 7b 23 62 69 74 6d 61 |...!libs| {#bitma|
|00000330| 70 6c 69 62 2c 23 69 61 | 60 31 7c 23 70 64 60 32 |plib,#ia|`1|#pd`2|
|00000340| 7d 00 80 02 20 80 0d 00 | 00 21 6c 69 62 68 65 61 |}... ...|.!libhea|
|00000350| 64 65 72 20 7b 23 72 69 | 66 78 6c 69 62 2c 69 6e |der {#ri|fxlib,in|
|00000360| 69 74 2c 30 2c 66 69 6e | 69 74 2c 30 7d 00 00 21 |it,0,fin|it,0}..!|
|00000370| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|00000380| 20 7b 23 6c 6f 6e 67 2c | 23 6c 6f 6e 67 7d 00 21 | {#long,|#long}.!|
|00000390| 62 6d 61 70 20 7b 30 2c | 30 7d 00 21 73 75 62 73 |bmap {0,|0}.!subs|
|000003a0| 20 7b 5f 63 6c 65 61 72 | 62 69 74 6d 61 70 32 2c | {_clear|bitmap2,|
|000003b0| 30 2c 30 7d 00 21 61 72 | 67 73 20 7b 23 6c 6f 6e |0,0}.!ar|gs {#lon|
|000003c0| 67 2c 23 6c 6f 6e 67 2c | 23 77 6f 72 64 2c 23 77 |g,#long,|#word,#w|
|000003d0| 6f 72 64 7d 00 21 62 6d | 61 70 20 7b 30 2c 30 7d |ord}.!bm|ap {0,0}|
|000003e0| 00 21 73 75 62 73 20 7b | 5f 63 6c 65 61 72 62 69 |.!subs {|_clearbi|
|000003f0| 74 6d 61 70 2c 30 2c 30 | 7d 00 21 6e 61 6d 65 20 |tmap,0,0|}.!name |
|00000400| 7b 22 43 6c 65 61 72 42 | 69 74 6d 61 70 22 2c 22 |{"ClearB|itmap","|
|00000410| 62 69 74 6d 61 70 23 2c | 64 65 6c 61 79 5b 2c 68 |bitmap#,|delay[,h|
|00000420| 65 69 67 68 74 2c 6f 66 | 66 73 65 74 5d 22 7d 00 |eight,of|fset]"}.|
|00000430| 00 21 61 73 74 61 74 65 | 6d 65 6e 74 00 21 61 72 |.!astate|ment.!ar|
|00000440| 67 73 20 7b 23 6c 6f 6e | 67 2c 23 6c 6f 6e 67 2c |gs {#lon|g,#long,|
|00000450| 23 6c 6f 6e 67 7d 00 21 | 6c 69 62 73 20 7b 23 62 |#long}.!|libs {#b|
|00000460| 69 74 6d 61 70 6c 69 62 | 2c 23 69 61 30 7c 23 70 |itmaplib|,#ia0|#p|
|00000470| 64 30 2c 23 62 69 74 6d | 61 70 6c 69 62 2c 23 69 |d0,#bitm|aplib,#i|
|00000480| 61 31 7c 23 70 64 31 7d | 00 21 73 75 62 73 20 7b |a1|#pd1}|.!subs {|
|00000490| 5f 66 61 64 65 69 6e 62 | 69 74 6d 61 70 32 2c 30 |_fadeinb|itmap2,0|
|000004a0| 2c 30 7d 00 21 61 72 67 | 73 20 7b 23 6c 6f 6e 67 |,0}.!arg|s {#long|
|000004b0| 2c 23 6c 6f 6e 67 2c 23 | 6c 6f 6e 67 2c 23 77 6f |,#long,#|long,#wo|
|000004c0| 72 64 2c 23 77 6f 72 64 | 2c 23 77 6f 72 64 7d 00 |rd,#word|,#word}.|
|000004d0| 21 6c 69 62 73 20 7b 23 | 62 69 74 6d 61 70 6c 69 |!libs {#|bitmapli|
|000004e0| 62 2c 23 69 61 30 7c 23 | 70 64 30 2c 23 62 69 74 |b,#ia0|#|pd0,#bit|
|000004f0| 6d 61 70 6c 69 62 2c 23 | 69 61 31 7c 23 70 64 31 |maplib,#|ia1|#pd1|
|00000500| 7d 00 21 73 75 62 73 20 | 7b 5f 66 61 64 65 69 6e |}.!subs |{_fadein|
|00000510| 62 69 74 6d 61 70 2c 30 | 2c 30 7d 00 21 6e 61 6d |bitmap,0|,0}.!nam|
|00000520| 65 20 7b 22 46 61 64 65 | 49 6e 42 69 74 6d 61 70 |e {"Fade|InBitmap|
|00000530| 22 2c 22 62 69 74 6d 61 | 70 73 6f 75 72 63 65 23 |","bitma|psource#|
|00000540| 2c 62 69 74 6d 61 70 64 | 65 73 74 23 2c 64 65 6c |,bitmapd|est#,del|
|00000550| 61 79 5b 2c 68 65 69 67 | 68 74 2c 6f 66 66 73 65 |ay[,heig|ht,offse|
|00000560| 74 31 2c 6f 66 66 73 65 | 74 32 5d 22 7d 00 00 21 |t1,offse|t2]"}..!|
|00000570| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|00000580| 20 7b 23 62 79 74 65 2c | 23 62 79 74 65 2c 23 6c | {#byte,|#byte,#l|
|00000590| 6f 6e 67 2c 23 6c 6f 6e | 67 2c 23 77 6f 72 64 2c |ong,#lon|g,#word,|
|000005a0| 23 77 6f 72 64 7d 00 21 | 6c 69 62 73 20 7b 23 62 |#word}.!|libs {#b|
|000005b0| 69 74 6d 61 70 6c 69 62 | 2c 23 69 61 30 7c 23 70 |itmaplib|,#ia0|#p|
|000005c0| 64 30 2c 23 62 69 74 6d | 61 70 6c 69 62 2c 23 69 |d0,#bitm|aplib,#i|
|000005d0| 61 31 7c 23 70 64 31 7d | 00 21 73 75 62 73 20 7b |a1|#pd1}|.!subs {|
|000005e0| 5f 7a 6f 6f 6d 78 79 5f | 6e 6f 5f 78 79 2c 30 2c |_zoomxy_|no_xy,0,|
|000005f0| 30 7d 00 21 61 72 67 73 | 20 7b 23 62 79 74 65 2c |0}.!args| {#byte,|
|00000600| 23 62 79 74 65 2c 23 6c | 6f 6e 67 2c 23 6c 6f 6e |#byte,#l|ong,#lon|
|00000610| 67 2c 23 77 6f 72 64 2c | 23 77 6f 72 64 2c 23 62 |g,#word,|#word,#b|
|00000620| 79 74 65 7d 00 21 6c 69 | 62 73 20 7b 23 62 69 74 |yte}.!li|bs {#bit|
|00000630| 6d 61 70 6c 69 62 2c 23 | 69 61 30 7c 23 70 64 30 |maplib,#|ia0|#pd0|
|00000640| 2c 23 62 69 74 6d 61 70 | 6c 69 62 2c 23 69 61 31 |,#bitmap|lib,#ia1|
|00000650| 7c 23 70 64 31 7d 00 21 | 73 75 62 73 20 7b 5f 7a ||#pd1}.!|subs {_z|
|00000660| 6f 6f 6d 78 34 5f 78 79 | 2c 30 2c 30 7d 00 21 6e |oomx4_xy|,0,0}.!n|
|00000670| 61 6d 65 20 7b 22 5a 6f | 6f 6d 58 34 22 2c 22 73 |ame {"Zo|omX4","s|
|00000680| 6f 75 72 63 65 23 2c 64 | 65 73 74 23 2c 73 6f 75 |ource#,d|est#,sou|
|00000690| 72 63 65 61 64 64 2c 64 | 65 73 74 61 64 64 2c 77 |rceadd,d|estadd,w|
|000006a0| 69 64 74 68 2c 68 65 69 | 67 68 74 5b 2c 78 79 5f |idth,hei|ght[,xy_|
|000006b0| 73 65 6c 65 63 74 5d 22 | 7d 00 00 21 61 63 6f 6d |select]"|}..!acom|
|000006c0| 6d 61 6e 64 20 7b 23 6c | 6f 6e 67 7d 00 21 61 72 |mand {#l|ong}.!ar|
|000006d0| 67 73 20 7b 23 6c 6f 6e | 67 2c 23 6c 6f 6e 67 2c |gs {#lon|g,#long,|
|000006e0| 23 6c 6f 6e 67 2c 23 6c | 6f 6e 67 2c 23 77 6f 72 |#long,#l|ong,#wor|
|000006f0| 64 2c 23 77 6f 72 64 7d | 00 21 6c 69 62 73 20 7b |d,#word}|.!libs {|
|00000700| 23 62 69 74 6d 61 70 6c | 69 62 2c 23 69 61 30 7c |#bitmapl|ib,#ia0||
|00000710| 23 70 64 30 2c 23 62 69 | 74 6d 61 70 6c 69 62 2c |#pd0,#bi|tmaplib,|
|00000720| 23 69 61 31 7c 23 70 64 | 31 7d 00 21 73 75 62 73 |#ia1|#pd|1}.!subs|
|00000730| 20 7b 5f 61 73 6d 64 65 | 72 65 7a 2c 30 2c 30 7d | {_asmde|rez,0,0}|
|00000740| 00 21 6e 61 6d 65 20 7b | 22 44 65 72 65 7a 22 2c |.!name {|"Derez",|
|00000750| 22 73 6f 75 72 63 65 23 | 2c 64 65 73 74 23 2c 73 |"source#|,dest#,s|
|00000760| 6f 75 72 63 65 61 64 64 | 2c 64 65 73 74 61 64 64 |ourceadd|,destadd|
|00000770| 2c 64 65 72 65 7a 5f 76 | 61 6c 75 65 2c 68 65 69 |,derez_v|alue,hei|
|00000780| 67 68 74 22 7d 00 00 21 | 61 73 74 61 74 65 6d 65 |ght"}..!|astateme|
|00000790| 6e 74 00 21 61 72 67 73 | 20 7b 23 77 6f 72 64 2c |nt.!args| {#word,|
|000007a0| 23 77 6f 72 64 2c 23 77 | 6f 72 64 7d 00 21 6c 69 |#word,#w|ord}.!li|
|000007b0| 62 73 00 21 73 75 62 73 | 20 7b 5f 41 73 6d 5a 6f |bs.!subs| {_AsmZo|
|000007c0| 6f 6d 2c 30 2c 30 7d 00 | 21 6e 61 6d 65 20 7b 22 |om,0,0}.|!name {"|
|000007d0| 5a 6f 6f 6d 58 59 22 2c | 22 78 7a 6f 6f 6d 2c 79 |ZoomXY",|"xzoom,y|
|000007e0| 7a 6f 6f 6d 2c 68 65 69 | 67 68 74 22 7d 00 00 21 |zoom,hei|ght"}..!|
|000007f0| 61 73 74 61 74 65 6d 65 | 6e 74 00 21 61 72 67 73 |astateme|nt.!args|
|00000800| 20 7b 23 6c 6f 6e 67 2c | 23 6c 6f 6e 67 2c 23 6c | {#long,|#long,#l|
|00000810| 6f 6e 67 2c 23 6c 6f 6e | 67 7d 00 21 6c 69 62 73 |ong,#lon|g}.!libs|
|00000820| 20 7b 23 62 69 74 6d 61 | 70 6c 69 62 2c 23 69 61 | {#bitma|plib,#ia|
|00000830| 30 7c 23 70 64 30 2c 23 | 62 69 74 6d 61 70 6c 69 |0|#pd0,#|bitmapli|
|00000840| 62 2c 23 69 61 31 7c 23 | 70 64 31 7d 00 21 73 75 |b,#ia1|#|pd1}.!su|
|00000850| 62 73 20 7b 5f 49 6e 69 | 74 5a 6f 6f 6d 78 79 2c |bs {_Ini|tZoomxy,|
|00000860| 30 2c 30 7d 00 21 6e 61 | 6d 65 20 7b 22 49 6e 69 |0,0}.!na|me {"Ini|
|00000870| 74 5a 6f 6f 6d 58 59 22 | 2c 22 73 6f 75 72 63 65 |tZoomXY"|,"source|
|00000880| 23 2c 64 65 73 74 23 2c | 73 6f 75 72 63 65 61 64 |#,dest#,|sourcead|
|00000890| 64 2c 64 65 73 74 61 64 | 64 22 7d 00 00 21 61 73 |d,destad|d"}..!as|
|000008a0| 74 61 74 65 6d 65 6e 74 | 00 21 61 72 67 73 20 7b |tatement|.!args {|
|000008b0| 23 6c 6f 6e 67 2c 23 6c | 6f 6e 67 2c 23 6c 6f 6e |#long,#l|ong,#lon|
|000008c0| 67 2c 23 6c 6f 6e 67 2c | 23 77 6f 72 64 2c 23 77 |g,#long,|#word,#w|
|000008d0| 6f 72 64 7d 00 21 6c 69 | 62 73 20 7b 23 62 69 74 |ord}.!li|bs {#bit|
|000008e0| 6d 61 70 6c 69 62 2c 23 | 69 61 30 7c 23 70 64 30 |maplib,#|ia0|#pd0|
|000008f0| 2c 23 62 69 74 6d 61 70 | 6c 69 62 2c 23 69 61 31 |,#bitmap|lib,#ia1|
|00000900| 7c 23 70 64 31 7d 00 21 | 73 75 62 73 20 7b 5f 7a ||#pd1}.!|subs {_z|
|00000910| 6f 6f 6d 78 32 2c 30 2c | 30 7d 00 21 6e 61 6d 65 |oomx2,0,|0}.!name|
|00000920| 20 7b 22 5a 6f 6f 6d 58 | 32 22 2c 22 73 6f 75 72 | {"ZoomX|2","sour|
|00000930| 63 65 23 2c 64 65 73 74 | 23 2c 73 6f 75 72 63 65 |ce#,dest|#,source|
|00000940| 61 64 64 2c 64 65 73 74 | 61 64 64 2c 77 69 64 74 |add,dest|add,widt|
|00000950| 68 2c 68 65 69 67 68 74 | 22 7d 00 00 21 61 73 74 |h,height|"}..!ast|
|00000960| 61 74 65 6d 65 6e 74 00 | 21 61 72 67 73 20 7b 23 |atement.|!args {#|
|00000970| 6c 6f 6e 67 2c 23 6c 6f | 6e 67 2c 23 77 6f 72 64 |long,#lo|ng,#word|
|00000980| 2c 23 77 6f 72 64 2c 23 | 77 6f 72 64 7d 00 21 6c |,#word,#|word}.!l|
|00000990| 69 62 73 00 21 73 75 62 | 73 20 7b 5f 70 6c 61 6e |ibs.!sub|s {_plan|
|000009a0| 65 74 6f 63 68 75 6e 6b | 79 2c 30 2c 30 7d 00 21 |etochunk|y,0,0}.!|
|000009b0| 6e 61 6d 65 20 7b 22 50 | 6c 61 6e 61 72 54 6f 43 |name {"P|lanarToC|
|000009c0| 68 75 6e 6b 79 22 2c 22 | 62 69 74 6d 61 70 5f 61 |hunky","|bitmap_a|
|000009d0| 64 64 72 2c 64 65 73 74 | 5f 61 64 64 72 2c 77 69 |ddr,dest|_addr,wi|
|000009e0| 64 74 68 2c 68 65 69 67 | 68 74 2c 64 65 70 74 68 |dth,heig|ht,depth|
|000009f0| 22 7d 00 00 21 61 73 74 | 61 74 65 6d 65 6e 74 00 |"}..!ast|atement.|
|00000a00| 21 61 72 67 73 20 7b 23 | 6c 6f 6e 67 2c 23 6c 6f |!args {#|long,#lo|
|00000a10| 6e 67 2c 23 77 6f 72 64 | 2c 23 77 6f 72 64 2c 23 |ng,#word|,#word,#|
|00000a20| 77 6f 72 64 7d 00 21 6c | 69 62 73 00 21 73 75 62 |word}.!l|ibs.!sub|
|00000a30| 73 20 7b 5f 63 68 75 6e | 6b 79 74 6f 70 6c 61 6e |s {_chun|kytoplan|
|00000a40| 65 2c 30 2c 30 7d 00 21 | 6e 61 6d 65 20 7b 22 43 |e,0,0}.!|name {"C|
|00000a50| 68 75 6e 6b 79 54 6f 50 | 6c 61 6e 61 72 22 2c 22 |hunkyToP|lanar","|
|00000a60| 73 6f 75 72 63 65 5f 61 | 64 64 72 2c 62 69 74 6d |source_a|ddr,bitm|
|00000a70| 61 70 5f 61 64 64 72 2c | 77 69 64 74 68 2c 68 65 |ap_addr,|width,he|
|00000a80| 69 67 68 74 2c 64 65 70 | 74 68 22 7d 00 00 21 61 |ight,dep|th"}..!a|
|00000a90| 73 74 61 74 65 6d 65 6e | 74 00 21 61 72 67 73 20 |statemen|t.!args |
|00000aa0| 7b 23 62 79 74 65 2c 23 | 62 79 74 65 2c 23 6c 6f |{#byte,#|byte,#lo|
|00000ab0| 6e 67 2c 23 6c 6f 6e 67 | 2c 23 77 6f 72 64 2c 23 |ng,#long|,#word,#|
|00000ac0| 77 6f 72 64 7d 00 21 6c | 69 62 73 20 7b 23 62 69 |word}.!l|ibs {#bi|
|00000ad0| 74 6d 61 70 6c 69 62 2c | 23 69 61 30 7c 23 70 64 |tmaplib,|#ia0|#pd|
|00000ae0| 30 2c 23 62 69 74 6d 61 | 70 6c 69 62 2c 23 69 61 |0,#bitma|plib,#ia|
|00000af0| 31 7c 23 70 64 31 7d 00 | 21 73 75 62 73 20 7b 5f |1|#pd1}.|!subs {_|
|00000b00| 7a 6f 6f 6d 78 38 2c 30 | 2c 30 7d 00 21 6e 61 6d |zoomx8,0|,0}.!nam|
|00000b10| 65 20 7b 22 5a 6f 6f 6d | 58 38 22 2c 22 73 6f 75 |e {"Zoom|X8","sou|
|00000b20| 72 63 65 23 2c 64 65 73 | 74 23 2c 73 6f 75 72 63 |rce#,des|t#,sourc|
|00000b30| 65 61 64 64 2c 64 65 73 | 74 61 64 64 2c 77 69 64 |eadd,des|tadd,wid|
|00000b40| 74 68 2c 68 65 69 67 68 | 74 22 7d 00 00 21 61 66 |th,heigh|t"}..!af|
|00000b50| 75 6e 63 74 69 6f 6e 20 | 7b 23 6c 6f 6e 67 7d 00 |unction |{#long}.|
|00000b60| 21 61 72 67 73 20 7b 23 | 62 79 74 65 2c 23 77 6f |!args {#|byte,#wo|
|00000b70| 72 64 2c 23 77 6f 72 64 | 7d 00 21 62 6d 61 70 20 |rd,#word|}.!bmap |
|00000b80| 7b 30 2c 30 7d 00 21 73 | 75 62 73 20 7b 5f 41 44 |{0,0}.!s|ubs {_AD|
|00000b90| 44 56 61 6c 75 65 2c 30 | 2c 30 7d 00 21 6e 61 6d |DValue,0|,0}.!nam|
|00000ba0| 65 20 7b 22 41 44 44 56 | 61 6c 75 65 22 2c 22 28 |e {"ADDV|alue","(|
|00000bb0| 62 69 74 6d 61 70 23 2c | 78 2c 79 29 22 7d 00 00 |bitmap#,|x,y)"}..|
|00000bc0| 21 61 73 74 61 74 65 6d | 65 6e 74 00 21 61 72 67 |!astatem|ent.!arg|
|00000bd0| 73 20 7b 23 62 79 74 65 | 2c 23 62 79 74 65 2c 23 |s {#byte|,#byte,#|
|00000be0| 6c 6f 6e 67 2c 23 6c 6f | 6e 67 2c 23 77 6f 72 64 |long,#lo|ng,#word|
|00000bf0| 2c 23 77 6f 72 64 7d 00 | 21 6c 69 62 73 20 7b 23 |,#word}.|!libs {#|
|00000c00| 62 69 74 6d 61 70 6c 69 | 62 2c 23 69 61 30 7c 23 |bitmapli|b,#ia0|#|
|00000c10| 70 64 30 2c 23 62 69 74 | 6d 61 70 6c 69 62 2c 23 |pd0,#bit|maplib,#|
|00000c20| 69 61 31 7c 23 70 64 31 | 7d 00 21 73 75 62 73 20 |ia1|#pd1|}.!subs |
|00000c30| 7b 5f 52 65 64 75 63 65 | 58 32 2c 30 2c 30 7d 00 |{_Reduce|X2,0,0}.|
|00000c40| 21 6e 61 6d 65 20 7b 22 | 52 65 64 75 63 65 58 32 |!name {"|ReduceX2|
|00000c50| 22 2c 22 73 6f 75 72 63 | 65 23 2c 64 65 73 74 23 |","sourc|e#,dest#|
|00000c60| 2c 73 6f 75 72 63 65 61 | 64 64 2c 64 65 73 74 61 |,sourcea|dd,desta|
|00000c70| 64 64 2c 77 69 64 74 68 | 2c 68 65 69 67 68 74 22 |dd,width|,height"|
|00000c80| 7d 00 00 66 69 6e 69 74 | 3a 21 6e 75 6c 6c 73 75 |}..finit|:!nullsu|
|00000c90| 62 7b 5f 6c 69 62 66 69 | 6e 69 74 2c 30 2c 30 7d |b{_libfi|nit,0,0}|
|00000ca0| 00 69 6e 69 74 3a 20 21 | 6e 75 6c 6c 73 75 62 7b |.init: !|nullsub{|
|00000cb0| 5f 6c 69 62 69 6e 69 74 | 2c 30 2c 30 7d 00 00 21 |_libinit|,0,0}..!|
|00000cc0| 6c 69 62 66 69 6e 00 00 | 5f 6c 69 62 66 69 6e 69 |libfin..|_libfini|
|00000cd0| 74 3a 00 20 20 80 b0 2e | 6c 20 20 20 74 61 62 6c |t:.  ...|l   tabl|
|00000ce0| 65 61 64 64 72 65 73 73 | 00 20 20 80 50 20 20 20 |eaddress|.  .P   |
|00000cf0| 20 20 27 79 75 70 00 20 | 20 80 94 00 27 79 75 70 |  'yup. | ...'yup|
|00000d00| 00 20 20 80 7e 2e 6c 20 | 20 23 31 38 35 36 2c 64 |.  .~.l | #1856,d|
|00000d10| 30 00 20 20 80 7e 2e 6c | 20 20 74 61 62 6c 65 61 |0.  .~.l|  tablea|
|00000d20| 64 64 72 65 73 73 2c 61 | 31 00 20 20 80 38 20 24 |ddress,a|1.  .8 $|
|00000d30| 63 30 30 33 00 20 20 80 | 94 00 00 5f 6c 69 62 69 |c003.  .|..._libi|
|00000d40| 6e 69 74 3a 00 20 20 80 | 7e 2e 6c 20 20 23 31 38 |nit:.  .|~.l  #18|
|00000d50| 35 36 2c 64 30 20 20 20 | 20 20 20 20 20 20 20 20 |56,d0   |        |
|00000d60| 20 20 20 20 20 20 20 3b | 20 61 6d 6f 75 6e 74 20 |       ;| amount |
|00000d70| 6f 66 20 6d 65 6d 6f 72 | 75 20 66 6f 72 20 4c 55 |of memor|u for LU|
|00000d80| 54 73 00 20 20 80 81 2e | 6c 20 23 25 31 2c 64 31 |Ts.  ...|l #%1,d1|
|00000d90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000da0| 20 20 20 20 3b 20 61 6e | 79 20 6d 65 6d 6f 72 79 |    ; an|y memory|
|00000db0| 20 70 6c 65 61 73 65 00 | 20 20 80 81 2e 6c 20 23 | please.|  ...l #|
|00000dc0| 30 2c 64 32 00 20 20 80 | 38 20 24 63 30 30 32 20 |0,d2.  .|8 $c002 |
|00000dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000de0| 20 20 20 20 3b 20 63 61 | 6c 6c 20 42 6c 69 74 7a |    ; ca|ll Blitz|
|00000df0| 20 61 6c 6c 6f 63 6d 65 | 6d 00 00 20 20 80 b0 2e | allocme|m..  ...|
|00000e00| 6c 20 20 20 64 30 00 20 | 20 80 50 20 20 20 20 20 |l   d0. | .P     |
|00000e10| 27 67 6f 74 6d 65 6d 00 | 20 20 80 94 00 00 27 67 |'gotmem.|  ....'g|
|00000e20| 6f 74 6d 65 6d 3a 00 20 | 20 80 7e 2e 6c 20 20 64 |otmem:. | .~.l  d|
|00000e30| 30 2c 74 61 62 6c 65 61 | 64 64 72 65 73 73 00 20 |0,tablea|ddress. |
|00000e40| 20 80 7e 2e 6c 20 20 64 | 30 2c 61 30 00 43 72 65 | .~.l  d|0,a0.Cre|
|00000e50| 61 74 65 52 65 64 75 63 | 65 58 32 3a 00 20 20 80 |ateReduc|eX2:.  .|
|00000e60| 7e 2e 6c 20 20 61 30 2c | 72 65 64 75 63 65 78 32 |~.l  a0,|reducex2|
|00000e70| 74 61 62 6c 65 00 20 20 | 80 81 2e 6c 20 23 30 2c |table.  |...l #0,|
|00000e80| 64 30 00 27 6c 6f 6f 70 | 3a 00 20 20 80 81 2e 6c |d0.'loop|:.  ...l|
|00000e90| 20 23 30 2c 64 31 00 27 | 62 69 74 37 3a 00 20 20 | #0,d1.'|bit7:.  |
|00000ea0| 80 57 20 20 20 20 23 37 | 2c 64 30 00 20 20 80 48 |.W    #7|,d0.  .H|
|00000eb0| 20 20 20 20 20 27 62 69 | 74 35 00 20 20 80 56 20 |     'bi|t5.  .V |
|00000ec0| 20 20 20 23 33 2c 64 31 | 00 27 62 69 74 35 3a 00 |   #3,d1|.'bit5:.|
|00000ed0| 20 20 80 57 20 20 20 20 | 23 35 2c 64 30 00 20 20 |  .W    |#5,d0.  |
|00000ee0| 80 48 20 20 20 20 20 27 | 62 69 74 33 00 20 20 80 |.H     '|bit3.  .|
|00000ef0| 56 20 20 20 20 23 32 2c | 64 31 00 27 62 69 74 33 |V    #2,|d1.'bit3|
|00000f00| 3a 00 20 20 80 57 20 20 | 20 20 23 33 2c 64 30 00 |:.  .W  |  #3,d0.|
|00000f10| 20 20 80 48 20 20 20 20 | 20 27 62 69 74 31 00 20 |  .H    | 'bit1. |
|00000f20| 20 80 56 20 20 20 20 23 | 31 2c 64 31 00 27 62 69 | .V    #|1,d1.'bi|
|00000f30| 74 31 3a 00 20 20 80 57 | 20 20 20 20 23 31 2c 64 |t1:.  .W|    #1,d|
|00000f40| 30 00 20 20 80 48 20 20 | 20 20 20 27 65 6e 64 6c |0.  .H  |   'endl|
|00000f50| 6f 6f 70 00 20 20 80 56 | 20 20 20 20 23 30 2c 64 |oop.  .V|    #0,d|
|00000f60| 31 00 27 65 6e 64 6c 6f | 6f 70 3a 00 20 20 80 7e |1.'endlo|op:.  .~|
|00000f70| 2e 62 20 20 64 31 2c 28 | 61 30 29 2b 00 20 20 80 |.b  d1,(|a0)+.  .|
|00000f80| 40 2e 77 20 20 23 31 2c | 64 30 00 20 20 80 5d 2e |@.w  #1,|d0.  .].|
|00000f90| 77 20 20 23 32 35 36 2c | 64 30 00 20 20 80 50 20 |w  #256,|d0.  .P |
|00000fa0| 20 20 20 20 27 6c 6f 6f | 70 00 00 43 72 65 61 74 |    'loo|p..Creat|
|00000fb0| 65 5a 6f 6f 6d 58 32 3a | 00 20 20 80 7e 2e 6c 20 |eZoomX2:|.  .~.l |
|00000fc0| 20 61 30 2c 7a 6f 6f 6d | 78 32 74 61 62 6c 65 00 | a0,zoom|x2table.|
|00000fd0| 20 20 80 81 2e 6c 20 23 | 30 2c 64 30 00 27 6c 6f |  ...l #|0,d0.'lo|
|00000fe0| 6f 70 3a 00 20 20 80 81 | 2e 6c 20 23 30 2c 64 31 |op:.  ..|.l #0,d1|
|00000ff0| 00 27 62 69 74 37 3a 00 | 20 20 80 57 20 20 20 20 |.'bit7:.|  .W    |
|00001000| 23 37 2c 64 30 00 20 20 | 80 48 20 20 20 20 20 27 |#7,d0.  |.H     '|
|00001010| 62 69 74 36 00 20 20 80 | 3d 2e 77 20 20 20 23 25 |bit6.  .|=.w   #%|
|00001020| 31 31 30 30 30 30 30 30 | 30 30 30 30 30 30 30 30 |11000000|00000000|
|00001030| 2c 64 31 00 27 62 69 74 | 36 3a 00 20 20 80 57 20 |,d1.'bit|6:.  .W |
|00001040| 20 20 20 23 36 2c 64 30 | 00 20 20 80 48 20 20 20 |   #6,d0|.  .H   |
|00001050| 20 20 27 62 69 74 35 00 | 20 20 80 3d 2e 77 20 20 |  'bit5.|  .=.w  |
|00001060| 20 23 25 31 31 30 30 30 | 30 30 30 30 30 30 30 30 | #%11000|00000000|
|00001070| 30 2c 64 31 00 27 62 69 | 74 35 3a 00 20 20 80 57 |0,d1.'bi|t5:.  .W|
|00001080| 20 20 20 20 23 35 2c 64 | 30 00 20 20 80 48 20 20 |    #5,d|0.  .H  |
|00001090| 20 20 20 27 62 69 74 34 | 00 20 20 80 3d 2e 77 20 |   'bit4|.  .=.w |
|000010a0| 20 20 23 25 31 31 30 30 | 30 30 30 30 30 30 30 30 |  #%1100|00000000|
|000010b0| 2c 64 31 00 27 62 69 74 | 34 3a 00 20 20 80 57 20 |,d1.'bit|4:.  .W |
|000010c0| 20 20 20 23 34 2c 64 30 | 00 20 20 80 48 20 20 20 |   #4,d0|.  .H   |
|000010d0| 20 20 27 62 69 74 33 00 | 20 20 80 3d 2e 77 20 20 |  'bit3.|  .=.w  |
|000010e0| 20 23 25 31 31 30 30 30 | 30 30 30 30 30 2c 64 31 | #%11000|00000,d1|
|000010f0| 00 27 62 69 74 33 3a 00 | 20 20 80 57 20 20 20 20 |.'bit3:.|  .W    |
|00001100| 23 33 2c 64 30 00 20 20 | 80 48 20 20 20 20 20 27 |#3,d0.  |.H     '|
|00001110| 62 69 74 32 00 20 20 80 | 3d 2e 62 20 20 20 23 25 |bit2.  .|=.b   #%|
|00001120| 31 31 30 30 30 30 30 30 | 2c 64 31 00 27 62 69 74 |11000000|,d1.'bit|
|00001130| 32 3a 00 20 20 80 57 20 | 20 20 20 23 32 2c 64 30 |2:.  .W |   #2,d0|
|00001140| 00 20 20 80 48 20 20 20 | 20 20 27 62 69 74 31 00 |.  .H   |  'bit1.|
|00001150| 20 20 80 3d 2e 62 20 20 | 20 23 25 31 31 30 30 30 |  .=.b  | #%11000|
|00001160| 30 2c 64 31 00 27 62 69 | 74 31 3a 00 20 20 80 57 |0,d1.'bi|t1:.  .W|
|00001170| 20 20 20 20 23 31 2c 64 | 30 00 20 20 80 48 20 20 |    #1,d|0.  .H  |
|00001180| 20 20 20 27 62 69 74 30 | 00 20 20 80 3d 2e 62 20 |   'bit0|.  .=.b |
|00001190| 20 20 23 25 31 31 30 30 | 2c 64 31 00 27 62 69 74 |  #%1100|,d1.'bit|
|000011a0| 30 3a 00 20 20 80 57 20 | 20 20 20 23 30 2c 64 30 |0:.  .W |   #0,d0|
|000011b0| 00 20 20 80 48 20 20 20 | 20 20 27 65 6e 64 6c 6f |.  .H   |  'endlo|
|000011c0| 6f 70 00 20 20 80 3d 2e | 62 20 20 20 23 25 31 31 |op.  .=.|b   #%11|
|000011d0| 2c 64 31 00 27 65 6e 64 | 6c 6f 6f 70 3a 00 20 20 |,d1.'end|loop:.  |
|000011e0| 80 7e 2e 77 20 20 64 31 | 2c 28 61 30 29 2b 00 20 |.~.w  d1|,(a0)+. |
|000011f0| 20 80 40 2e 77 20 20 23 | 31 2c 64 30 00 20 20 80 | .@.w  #|1,d0.  .|
|00001200| 5d 2e 77 20 20 23 32 35 | 36 2c 64 30 00 20 20 80 |].w  #25|6,d0.  .|
|00001210| 50 20 20 20 20 20 27 6c | 6f 6f 70 00 00 43 72 65 |P     'l|oop..Cre|
|00001220| 61 74 65 5a 6f 6f 6d 58 | 34 3a 00 20 20 80 7e 2e |ateZoomX|4:.  .~.|
|00001230| 6c 20 20 61 30 2c 7a 6f | 6f 6d 78 34 74 61 62 6c |l  a0,zo|omx4tabl|
|00001240| 65 00 20 20 80 81 2e 6c | 20 23 30 2c 64 30 00 27 |e.  ...l| #0,d0.'|
|00001250| 6c 6f 6f 70 3a 00 20 20 | 80 81 2e 6c 20 23 30 2c |loop:.  |...l #0,|
|00001260| 64 31 00 27 62 69 74 37 | 3a 00 20 20 80 57 20 20 |d1.'bit7|:.  .W  |
|00001270| 20 20 23 37 2c 64 30 00 | 20 20 80 48 20 20 20 20 |  #7,d0.|  .H    |
|00001280| 20 27 62 69 74 36 00 20 | 20 80 3d 2e 6c 20 20 20 | 'bit6. | .=.l   |
|00001290| 23 24 66 30 30 30 30 30 | 30 30 2c 64 31 00 27 62 |#$f00000|00,d1.'b|
|000012a0| 69 74 36 3a 00 20 20 80 | 57 20 20 20 20 23 36 2c |it6:.  .|W    #6,|
|000012b0| 64 30 00 20 20 80 48 20 | 20 20 20 20 27 62 69 74 |d0.  .H |    'bit|
|000012c0| 35 00 20 20 80 3d 2e 6c | 20 20 20 23 24 66 30 30 |5.  .=.l|   #$f00|
|000012d0| 30 30 30 30 2c 64 31 00 | 27 62 69 74 35 3a 00 20 |0000,d1.|'bit5:. |
|000012e0| 20 80 57 20 20 20 20 23 | 35 2c 64 30 00 20 20 80 | .W    #|5,d0.  .|
|000012f0| 48 20 20 20 20 20 27 62 | 69 74 34 00 20 20 80 3d |H     'b|it4.  .=|
|00001300| 2e 6c 20 20 20 23 24 66 | 30 30 30 30 30 2c 64 31 |.l   #$f|00000,d1|
|00001310| 00 27 62 69 74 34 3a 00 | 20 20 80 57 20 20 20 20 |.'bit4:.|  .W    |
|00001320| 23 34 2c 64 30 00 20 20 | 80 48 20 20 20 20 20 27 |#4,d0.  |.H     '|
|00001330| 62 69 74 33 00 20 20 80 | 3d 2e 6c 20 20 20 23 24 |bit3.  .|=.l   #$|
|00001340| 66 30 30 30 30 2c 64 31 | 00 27 62 69 74 33 3a 00 |f0000,d1|.'bit3:.|
|00001350| 20 20 80 57 20 20 20 20 | 23 33 2c 64 30 00 20 20 |  .W    |#3,d0.  |
|00001360| 80 48 20 20 20 20 20 27 | 62 69 74 32 00 20 20 80 |.H     '|bit2.  .|
|00001370| 3d 2e 77 20 20 20 23 24 | 66 30 30 30 2c 64 31 00 |=.w   #$|f000,d1.|
|00001380| 27 62 69 74 32 3a 00 20 | 20 80 57 20 20 20 20 23 |'bit2:. | .W    #|
|00001390| 32 2c 64 30 00 20 20 80 | 48 20 20 20 20 20 27 62 |2,d0.  .|H     'b|
|000013a0| 69 74 31 00 20 20 80 3d | 2e 77 20 20 20 23 24 66 |it1.  .=|.w   #$f|
|000013b0| 30 30 2c 64 31 00 27 62 | 69 74 31 3a 00 20 20 80 |00,d1.'b|it1:.  .|
|000013c0| 57 20 20 20 20 23 31 2c | 64 30 00 20 20 80 48 20 |W    #1,|d0.  .H |
|000013d0| 20 20 20 20 27 62 69 74 | 30 00 20 20 80 3d 2e 62 |    'bit|0.  .=.b|
|000013e0| 20 20 20 23 24 66 30 2c | 64 31 00 27 62 69 74 30 |   #$f0,|d1.'bit0|
|000013f0| 3a 00 20 20 80 57 20 20 | 20 20 23 30 2c 64 30 00 |:.  .W  |  #0,d0.|
|00001400| 20 20 80 48 20 20 20 20 | 20 27 65 6e 64 6c 6f 6f |  .H    | 'endloo|
|00001410| 70 00 20 20 80 3d 2e 62 | 20 20 20 23 24 66 2c 64 |p.  .=.b|   #$f,d|
|00001420| 31 00 27 65 6e 64 6c 6f | 6f 70 3a 00 20 20 80 7e |1.'endlo|op:.  .~|
|00001430| 2e 6c 20 20 64 31 2c 28 | 61 30 29 2b 00 20 20 80 |.l  d1,(|a0)+.  .|
|00001440| 40 2e 77 20 20 23 31 2c | 64 30 00 20 20 80 5d 2e |@.w  #1,|d0.  .].|
|00001450| 77 20 20 23 32 35 36 2c | 64 30 00 20 20 80 50 20 |w  #256,|d0.  .P |
|00001460| 20 20 20 20 27 6c 6f 6f | 70 00 00 43 72 65 61 74 |    'loo|p..Creat|
|00001470| 65 5a 6f 6f 6d 58 38 3a | 00 20 20 80 7e 2e 6c 20 |eZoomX8:|.  .~.l |
|00001480| 20 61 30 2c 7a 6f 6f 6d | 78 38 74 61 62 6c 65 00 | a0,zoom|x8table.|
|00001490| 20 20 80 81 2e 6c 20 23 | 30 2c 64 30 00 27 6c 6f |  ...l #|0,d0.'lo|
|000014a0| 6f 70 3a 00 20 20 80 81 | 2e 6c 20 23 30 2c 64 31 |op:.  ..|.l #0,d1|
|000014b0| 00 27 62 69 74 33 3a 00 | 20 20 80 57 20 20 20 20 |.'bit3:.|  .W    |
|000014c0| 23 33 2c 64 30 00 20 20 | 80 48 20 20 20 20 20 27 |#3,d0.  |.H     '|
|000014d0| 62 69 74 32 00 20 20 80 | 3d 2e 6c 20 20 20 23 24 |bit2.  .|=.l   #$|
|000014e0| 66 66 30 30 30 30 30 30 | 2c 64 31 00 27 62 69 74 |ff000000|,d1.'bit|
|000014f0| 32 3a 00 20 20 80 57 20 | 20 20 20 23 32 2c 64 30 |2:.  .W |   #2,d0|
|00001500| 00 20 20 80 48 20 20 20 | 20 20 27 62 69 74 31 00 |.  .H   |  'bit1.|
|00001510| 20 20 80 3d 2e 6c 20 20 | 20 23 24 66 66 30 30 30 |  .=.l  | #$ff000|
|00001520| 30 2c 64 31 00 27 62 69 | 74 31 3a 00 20 20 80 57 |0,d1.'bi|t1:.  .W|
|00001530| 20 20 20 20 23 31 2c 64 | 30 00 20 20 80 48 20 20 |    #1,d|0.  .H  |
|00001540| 20 20 20 27 62 69 74 30 | 00 20 20 80 3d 2e 77 20 |   'bit0|.  .=.w |
|00001550| 20 20 23 24 66 66 30 30 | 2c 64 31 00 27 62 69 74 |  #$ff00|,d1.'bit|
|00001560| 30 3a 00 20 20 80 57 20 | 20 20 20 23 30 2c 64 30 |0:.  .W |   #0,d0|
|00001570| 00 20 20 80 48 20 20 20 | 20 20 27 65 6e 64 6c 6f |.  .H   |  'endlo|
|00001580| 6f 70 00 20 20 80 3d 2e | 62 20 20 20 23 24 66 66 |op.  .=.|b   #$ff|
|00001590| 2c 64 31 00 27 65 6e 64 | 6c 6f 6f 70 3a 00 20 20 |,d1.'end|loop:.  |
|000015a0| 80 7e 2e 6c 20 20 64 31 | 2c 28 61 30 29 2b 00 20 |.~.l  d1|,(a0)+. |
|000015b0| 20 80 40 2e 62 20 20 23 | 31 2c 64 30 00 20 20 80 | .@.b  #|1,d0.  .|
|000015c0| 5d 2e 62 20 20 23 31 36 | 2c 64 30 00 20 20 80 50 |].b  #16|,d0.  .P|
|000015d0| 20 20 20 20 20 27 6c 6f | 6f 70 00 00 20 20 80 94 |     'lo|op..  ..|
|000015e0| 00 00 00 2e 5f 70 6c 61 | 6e 65 74 6f 63 68 75 6e |...._pla|netochun|
|000015f0| 6b 79 00 20 20 80 82 2e | 6c 20 64 30 2d 64 37 2f |ky.  ...|l d0-d7/|
|00001600| 61 30 2d 61 36 2c 2d 28 | 61 37 29 00 20 20 80 7e |a0-a6,-(|a7).  .~|
|00001610| 2e 6c 20 20 64 30 2c 61 | 30 00 00 20 20 80 7e 2e |.l  d0,a|0..  .~.|
|00001620| 6c 20 20 64 31 2c 61 31 | 00 20 20 80 7e 2e 6c 20 |l  d1,a1|.  .~.l |
|00001630| 20 23 22 43 4b 50 4c 22 | 2c 28 61 31 29 2b 20 20 | #"CKPL"|,(a1)+  |
|00001640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001650| 20 20 20 3b 20 73 74 6f | 72 65 20 68 65 61 64 65 |   ; sto|re heade|
|00001660| 72 20 69 6e 20 70 6c 61 | 6e 65 00 20 20 80 7e 2e |r in pla|ne.  .~.|
|00001670| 77 20 20 64 32 2c 28 61 | 31 29 2b 20 20 20 20 20 |w  d2,(a|1)+     |
|00001680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001690| 20 20 20 20 20 3b 20 73 | 74 6f 72 65 20 77 69 64 |     ; s|tore wid|
|000016a0| 74 68 20 69 6e 20 70 6c | 61 6e 65 00 20 20 80 7e |th in pl|ane.  .~|
|000016b0| 2e 77 20 20 64 33 2c 28 | 61 31 29 2b 20 20 20 20 |.w  d3,(|a1)+    |
|000016c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000016d0| 20 20 20 20 20 20 3b 20 | 73 74 6f 72 65 20 68 65 |      ; |store he|
|000016e0| 69 67 68 74 20 69 6e 20 | 70 6c 61 6e 65 00 20 20 |ight in |plane.  |
|000016f0| 80 7e 2e 77 20 20 64 34 | 2c 28 61 31 29 2b 20 20 |.~.w  d4|,(a1)+  |
|00001700| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001710| 20 20 20 20 20 20 20 20 | 3b 20 73 74 6f 72 65 20 |        |; store |
|00001720| 64 65 70 74 68 20 69 6e | 20 70 6c 61 6e 65 00 00 |depth in| plane..|
|00001730| 20 20 80 7e 2e 62 20 20 | 64 34 2c 62 69 74 64 65 |  .~.b  |d4,bitde|
|00001740| 70 74 68 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |pth     |        |
|00001750| 20 20 20 20 20 20 20 20 | 20 20 3b 20 73 74 6f 72 |        |  ; stor|
|00001760| 65 20 64 65 70 74 68 00 | 00 20 20 80 45 2e 77 20 |e depth.|.  .E.w |
|00001770| 20 20 23 33 2c 64 32 20 | 20 20 20 20 20 20 20 20 |  #3,d2 |        |
|00001780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001790| 20 20 20 20 3b 20 67 65 | 74 20 77 69 64 74 68 20 |    ; ge|t width |
|000017a0| 69 6e 20 62 79 74 65 73 | 00 20 20 80 43 2e 6c 20 |in bytes|.  .C.l |
|000017b0| 20 23 24 66 66 2c 64 32 | 00 20 20 80 aa 2e 77 20 | #$ff,d2|.  ...w |
|000017c0| 20 23 31 2c 64 32 20 20 | 20 20 20 20 20 20 20 20 | #1,d2  |        |
|000017d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000017e0| 20 20 20 3b 20 61 64 6a | 75 73 74 20 66 6f 72 20 |   ; adj|ust for |
|000017f0| 64 62 72 61 00 20 20 80 | 7e 2e 77 20 20 64 32 2c |dbra.  .|~.w  d2,|
|00001800| 62 69 74 77 69 64 74 68 | 20 20 20 20 20 20 20 20 |bitwidth|        |
|00001810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00001820| 20 61 6e 64 20 73 74 6f | 72 65 00 00 20 20 80 aa | and sto|re..  ..|
|00001830| 2e 77 20 20 23 31 2c 64 | 33 20 20 20 20 20 20 20 |.w  #1,d|3       |
|00001840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001850| 20 20 20 20 20 20 3b 20 | 61 64 6a 75 73 74 20 68 |      ; |adjust h|
|00001860| 65 69 67 68 74 20 66 6f | 72 20 64 62 72 61 00 20 |eight fo|r dbra. |
|00001870| 20 80 7e 2e 77 20 20 64 | 33 2c 62 69 74 68 65 69 | .~.w  d|3,bithei|
|00001880| 67 68 74 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ght     |        |
|00001890| 20 20 20 20 20 20 20 20 | 20 3b 20 61 6e 64 20 73 |        | ; and s|
|000018a0| 74 6f 72 65 00 00 20 20 | 80 7e 2e 77 20 20 28 61 |tore..  |.~.w  (a|
|000018b0| 30 29 2c 62 69 74 6d 61 | 70 77 69 64 74 68 20 20 |0),bitma|pwidth  |
|000018c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000018d0| 3b 20 73 74 6f 72 65 20 | 62 69 74 6d 61 70 20 77 |; store |bitmap w|
|000018e0| 69 64 74 68 00 00 20 20 | 80 81 2e 6c 20 23 30 2c |idth..  |...l #0,|
|000018f0| 64 34 00 20 20 80 7e 2e | 62 20 20 35 28 61 30 29 |d4.  .~.|b  5(a0)|
|00001900| 2c 64 34 00 20 20 80 aa | 2e 77 20 20 23 31 2c 64 |,d4.  ..|.w  #1,d|
|00001910| 34 00 20 20 80 40 2e 6c | 20 20 23 38 2c 61 30 00 |4.  .@.l|  #8,a0.|
|00001920| 20 20 80 7e 2e 6c 20 20 | 28 61 30 29 2b 2c 54 42 |  .~.l  |(a0)+,TB|
|00001930| 50 4c 30 00 20 20 80 7e | 2e 6c 20 20 28 61 30 29 |PL0.  .~|.l  (a0)|
|00001940| 2b 2c 54 42 50 4c 31 00 | 20 20 80 7e 2e 6c 20 20 |+,TBPL1.|  .~.l  |
|00001950| 28 61 30 29 2b 2c 54 42 | 50 4c 32 00 20 20 80 7e |(a0)+,TB|PL2.  .~|
|00001960| 2e 6c 20 20 28 61 30 29 | 2b 2c 54 42 50 4c 33 00 |.l  (a0)|+,TBPL3.|
|00001970| 20 20 80 7e 2e 6c 20 20 | 28 61 30 29 2b 2c 54 42 |  .~.l  |(a0)+,TB|
|00001980| 50 4c 34 00 20 20 80 7e | 2e 6c 20 20 28 61 30 29 |PL4.  .~|.l  (a0)|
|00001990| 2b 2c 54 42 50 4c 35 00 | 20 20 80 7e 2e 6c 20 20 |+,TBPL5.|  .~.l  |
|000019a0| 28 61 30 29 2b 2c 54 42 | 50 4c 36 00 20 20 80 7e |(a0)+,TB|PL6.  .~|
|000019b0| 2e 6c 20 20 28 61 30 29 | 2b 2c 54 42 50 4c 37 00 |.l  (a0)|+,TBPL7.|
|000019c0| 00 20 20 80 7e 2e 77 20 | 20 62 69 74 68 65 69 67 |.  .~.w | bitheig|
|000019d0| 68 74 2c 64 37 20 20 20 | 20 20 20 20 20 20 20 20 |ht,d7   |        |
|000019e0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 64 37 3d |        |   ; d7=|
|000019f0| 6c 69 6e 65 20 63 6f 75 | 6e 74 65 72 00 20 20 80 |line cou|nter.  .|
|00001a00| 7e 2e 6c 20 20 61 31 2c | 61 36 00 00 20 20 80 82 |~.l  a1,|a6..  ..|
|00001a10| 2e 6c 20 64 30 2d 64 37 | 2f 61 30 2d 61 36 2c 2d |.l d0-d7|/a0-a6,-|
|00001a20| 28 61 37 29 00 20 20 80 | 7e 2e 6c 20 20 34 2c 61 |(a7).  .|~.l  4,a|
|00001a30| 36 00 20 20 80 79 20 20 | 20 20 20 2d 24 32 37 63 |6.  .y  |   -$27c|
|00001a40| 28 61 36 29 00 20 20 80 | 82 2e 6c 20 28 61 37 29 |(a6).  .|..l (a7)|
|00001a50| 2b 2c 64 30 2d 64 37 2f | 61 30 2d 61 36 00 27 79 |+,d0-d7/|a0-a6.'y|
|00001a60| 6c 6f 6f 70 3a 00 20 20 | 80 7e 2e 77 20 20 62 69 |loop:.  |.~.w  bi|
|00001a70| 74 77 69 64 74 68 2c 64 | 36 20 20 20 20 20 20 20 |twidth,d|6       |
|00001a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001a90| 3b 20 64 36 3d 77 69 64 | 74 68 20 69 6e 20 62 79 |; d6=wid|th in by|
|00001aa0| 74 65 73 00 20 20 80 81 | 2e 6c 20 23 37 2c 64 35 |tes.  ..|.l #7,d5|
|00001ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001ac0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 70 |        |     ; p|
|00001ad0| 6f 69 6e 74 65 72 20 74 | 6f 20 62 69 74 00 20 20 |ointer t|o bit.  |
|00001ae0| 80 81 2e 6c 20 23 30 2c | 64 33 20 20 20 20 20 20 |...l #0,|d3      |
|00001af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001b00| 20 20 20 20 20 20 20 3b | 20 61 6d 6f 75 6e 74 20 |       ;| amount |
|00001b10| 74 6f 20 61 64 64 20 74 | 6f 20 62 69 74 70 6c 61 |to add t|o bitpla|
|00001b20| 6e 65 20 70 6f 69 6e 74 | 65 72 00 27 78 6c 6f 6f |ne point|er.'xloo|
|00001b30| 70 00 20 20 80 81 2e 6c | 20 23 30 2c 64 30 00 3b |p.  ...l| #0,d0.;|
|00001b40| 20 63 6f 6e 73 74 72 75 | 63 74 20 61 20 62 79 74 | constru|ct a byt|
|00001b50| 65 20 66 72 6f 6d 20 75 | 70 74 6f 20 38 20 62 69 |e from u|pto 8 bi|
|00001b60| 74 70 6c 61 6e 65 73 00 | 27 54 53 54 42 50 4c 30 |tplanes.|'TSTBPL0|
|00001b70| 3a 00 20 20 80 7e 2e 6c | 20 20 54 42 50 4c 30 2c |:.  .~.l|  TBPL0,|
|00001b80| 61 31 00 20 20 80 3d 2e | 6c 20 20 20 64 33 2c 61 |a1.  .=.|l   d3,a|
|00001b90| 31 00 20 20 80 57 20 20 | 20 20 64 35 2c 28 61 31 |1.  .W  |  d5,(a1|
|00001ba0| 29 00 20 20 80 48 20 20 | 20 20 20 27 54 53 54 42 |).  .H  |   'TSTB|
|00001bb0| 50 4c 31 00 20 20 80 56 | 20 20 20 20 23 30 2c 64 |PL1.  .V|    #0,d|
|00001bc0| 30 00 27 54 53 54 42 50 | 4c 31 3a 00 20 20 80 5c |0.'TSTBP|L1:.  .\|
|00001bd0| 2e 62 20 20 20 23 31 2c | 62 69 74 64 65 70 74 68 |.b   #1,|bitdepth|
|00001be0| 00 20 20 80 48 20 20 20 | 20 20 27 65 6e 64 5f 74 |.  .H   |  'end_t|
|00001bf0| 65 73 74 00 20 20 80 7e | 2e 6c 20 20 54 42 50 4c |est.  .~|.l  TBPL|
|00001c00| 31 2c 61 31 00 20 20 80 | 3d 2e 6c 20 20 20 64 33 |1,a1.  .|=.l   d3|
|00001c10| 2c 61 31 00 20 20 80 57 | 20 20 20 20 64 35 2c 28 |,a1.  .W|    d5,(|
|00001c20| 61 31 29 00 20 20 80 48 | 20 20 20 20 20 27 54 53 |a1).  .H|     'TS|
|00001c30| 54 42 50 4c 32 00 20 20 | 80 56 20 20 20 20 23 31 |TBPL2.  |.V    #1|
|00001c40| 2c 64 30 00 27 54 53 54 | 42 50 4c 32 3a 00 20 20 |,d0.'TST|BPL2:.  |
|00001c50| 80 5c 2e 62 20 20 20 23 | 32 2c 62 69 74 64 65 70 |.\.b   #|2,bitdep|
|00001c60| 74 68 00 20 20 80 48 20 | 20 20 20 20 27 65 6e 64 |th.  .H |    'end|
|00001c70| 5f 74 65 73 74 00 20 20 | 80 7e 2e 6c 20 20 54 42 |_test.  |.~.l  TB|
|00001c80| 50 4c 32 2c 61 31 00 20 | 20 80 3d 2e 6c 20 20 20 |PL2,a1. | .=.l   |
|00001c90| 64 33 2c 61 31 00 20 20 | 80 57 20 20 20 20 64 35 |d3,a1.  |.W    d5|
|00001ca0| 2c 28 61 31 29 00 20 20 | 80 48 20 20 20 20 20 27 |,(a1).  |.H     '|
|00001cb0| 54 53 54 42 50 4c 33 00 | 20 20 80 56 20 20 20 20 |TSTBPL3.|  .V    |
|00001cc0| 23 32 2c 64 30 00 27 54 | 53 54 42 50 4c 33 3a 00 |#2,d0.'T|STBPL3:.|
|00001cd0| 20 20 80 5c 2e 62 20 20 | 20 23 33 2c 62 69 74 64 |  .\.b  | #3,bitd|
|00001ce0| 65 70 74 68 00 20 20 80 | 48 20 20 20 20 20 27 65 |epth.  .|H     'e|
|00001cf0| 6e 64 5f 74 65 73 74 00 | 20 20 80 7e 2e 6c 20 20 |nd_test.|  .~.l  |
|00001d00| 54 42 50 4c 33 2c 61 31 | 00 20 20 80 3d 2e 6c 20 |TBPL3,a1|.  .=.l |
|00001d10| 20 20 64 33 2c 61 31 00 | 20 20 80 57 20 20 20 20 |  d3,a1.|  .W    |
|00001d20| 64 35 2c 28 61 31 29 00 | 20 20 80 48 20 20 20 20 |d5,(a1).|  .H    |
|00001d30| 20 27 54 53 54 42 50 4c | 34 00 20 20 80 56 20 20 | 'TSTBPL|4.  .V  |
|00001d40| 20 20 23 33 2c 64 30 00 | 27 54 53 54 42 50 4c 34 |  #3,d0.|'TSTBPL4|
|00001d50| 3a 00 20 20 80 5c 2e 62 | 20 20 20 23 34 2c 62 69 |:.  .\.b|   #4,bi|
|00001d60| 74 64 65 70 74 68 00 20 | 20 80 48 20 20 20 20 20 |tdepth. | .H     |
|00001d70| 27 65 6e 64 5f 74 65 73 | 74 00 20 20 80 7e 2e 6c |'end_tes|t.  .~.l|
|00001d80| 20 20 54 42 50 4c 34 2c | 61 31 00 20 20 80 3d 2e |  TBPL4,|a1.  .=.|
|00001d90| 6c 20 20 20 64 33 2c 61 | 31 00 20 20 80 57 20 20 |l   d3,a|1.  .W  |
|00001da0| 20 20 64 35 2c 28 61 31 | 29 00 20 20 80 48 20 20 |  d5,(a1|).  .H  |
|00001db0| 20 20 20 27 54 53 54 42 | 50 4c 35 00 20 20 80 56 |   'TSTB|PL5.  .V|
|00001dc0| 20 20 20 20 23 34 2c 64 | 30 00 27 54 53 54 42 50 |    #4,d|0.'TSTBP|
|00001dd0| 4c 35 3a 00 20 20 80 5c | 2e 62 20 20 20 23 35 2c |L5:.  .\|.b   #5,|
|00001de0| 62 69 74 64 65 70 74 68 | 00 20 20 80 48 20 20 20 |bitdepth|.  .H   |
|00001df0| 20 20 27 65 6e 64 5f 74 | 65 73 74 00 20 20 80 7e |  'end_t|est.  .~|
|00001e00| 2e 6c 20 20 54 42 50 4c | 35 2c 61 31 00 20 20 80 |.l  TBPL|5,a1.  .|
|00001e10| 3d 2e 6c 20 20 20 64 33 | 2c 61 31 00 20 20 80 57 |=.l   d3|,a1.  .W|
|00001e20| 20 20 20 20 64 35 2c 28 | 61 31 29 00 20 20 80 48 |    d5,(|a1).  .H|
|00001e30| 20 20 20 20 20 27 54 53 | 54 42 50 4c 36 00 20 20 |     'TS|TBPL6.  |
|00001e40| 80 56 20 20 20 20 23 35 | 2c 64 30 00 27 54 53 54 |.V    #5|,d0.'TST|
|00001e50| 42 50 4c 36 3a 00 20 20 | 80 5c 2e 62 20 20 20 23 |BPL6:.  |.\.b   #|
|00001e60| 36 2c 62 69 74 64 65 70 | 74 68 00 20 20 80 48 20 |6,bitdep|th.  .H |
|00001e70| 20 20 20 20 27 65 6e 64 | 5f 74 65 73 74 00 20 20 |    'end|_test.  |
|00001e80| 80 7e 2e 6c 20 20 54 42 | 50 4c 36 2c 61 31 00 20 |.~.l  TB|PL6,a1. |
|00001e90| 20 80 3d 2e 6c 20 20 20 | 64 33 2c 61 31 00 20 20 | .=.l   |d3,a1.  |
|00001ea0| 80 57 20 20 20 20 64 35 | 2c 28 61 31 29 00 20 20 |.W    d5|,(a1).  |
|00001eb0| 80 48 20 20 20 20 20 27 | 54 53 54 42 50 4c 37 00 |.H     '|TSTBPL7.|
|00001ec0| 20 20 80 56 20 20 20 20 | 23 36 2c 64 30 00 27 54 |  .V    |#6,d0.'T|
|00001ed0| 53 54 42 50 4c 37 3a 00 | 20 20 80 5c 2e 62 20 20 |STBPL7:.|  .\.b  |
|00001ee0| 20 23 37 2c 62 69 74 64 | 65 70 74 68 00 20 20 80 | #7,bitd|epth.  .|
|00001ef0| 48 20 20 20 20 20 27 65 | 6e 64 5f 74 65 73 74 00 |H     'e|nd_test.|
|00001f00| 20 20 80 7e 2e 6c 20 20 | 54 42 50 4c 37 2c 61 31 |  .~.l  |TBPL7,a1|
|00001f10| 00 20 20 80 3d 2e 6c 20 | 20 20 64 33 2c 61 31 00 |.  .=.l |  d3,a1.|
|00001f20| 20 20 80 57 20 20 20 20 | 64 35 2c 28 61 31 29 00 |  .W    |d5,(a1).|
|00001f30| 20 20 80 48 20 20 20 20 | 20 27 65 6e 64 5f 74 65 |  .H    | 'end_te|
|00001f40| 73 74 00 20 20 80 56 20 | 20 20 20 23 37 2c 64 30 |st.  .V |   #7,d0|
|00001f50| 00 00 27 65 6e 64 5f 74 | 65 73 74 3a 00 20 20 80 |..'end_t|est:.  .|
|00001f60| 7e 2e 62 20 20 64 30 2c | 28 61 36 29 2b 20 20 20 |~.b  d0,|(a6)+   |
|00001f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001f80| 20 20 20 20 20 20 20 20 | 20 3b 20 73 74 6f 72 65 |        | ; store|
|00001f90| 20 62 79 74 65 00 20 20 | 80 aa 2e 62 20 20 23 31 | byte.  |...b  #1|
|00001fa0| 2c 64 35 00 20 20 80 51 | 20 20 20 20 20 27 78 6c |,d5.  .Q|     'xl|
|00001fb0| 6f 6f 70 00 00 20 20 80 | 40 2e 62 20 20 23 31 2c |oop..  .|@.b  #1,|
|00001fc0| 64 33 00 20 20 80 81 2e | 6c 20 23 37 2c 64 35 00 |d3.  ...|l #7,d5.|
|00001fd0| 20 20 80 6f 20 20 20 20 | 64 36 2c 27 78 6c 6f 6f |  .o    |d6,'xloo|
|00001fe0| 70 00 00 20 20 80 81 2e | 6c 20 23 30 2c 64 35 00 |p..  ...|l #0,d5.|
|00001ff0| 20 20 80 7e 2e 77 20 20 | 62 69 74 6d 61 70 77 69 |  .~.w  |bitmapwi|
|00002000| 64 74 68 2c 64 35 00 00 | 20 20 80 3d 2e 6c 20 20 |dth,d5..|  .=.l  |
|00002010| 20 64 35 2c 54 42 50 4c | 30 00 20 20 80 3d 2e 6c | d5,TBPL|0.  .=.l|
|00002020| 20 20 20 64 35 2c 54 42 | 50 4c 31 00 20 20 80 3d |   d5,TB|PL1.  .=|
|00002030| 2e 6c 20 20 20 64 35 2c | 54 42 50 4c 32 00 20 20 |.l   d5,|TBPL2.  |
|00002040| 80 3d 2e 6c 20 20 20 64 | 35 2c 54 42 50 4c 33 00 |.=.l   d|5,TBPL3.|
|00002050| 20 20 80 3d 2e 6c 20 20 | 20 64 35 2c 54 42 50 4c |  .=.l  | d5,TBPL|
|00002060| 34 00 20 20 80 3d 2e 6c | 20 20 20 64 35 2c 54 42 |4.  .=.l|   d5,TB|
|00002070| 50 4c 35 00 20 20 80 3d | 2e 6c 20 20 20 64 35 2c |PL5.  .=|.l   d5,|
|00002080| 54 42 50 4c 36 00 20 20 | 80 3d 2e 6c 20 20 20 64 |TBPL6.  |.=.l   d|
|00002090| 35 2c 54 42 50 4c 37 00 | 00 20 20 80 6f 20 20 20 |5,TBPL7.|.  .o   |
|000020a0| 20 64 37 2c 27 79 6c 6f | 6f 70 00 20 20 80 82 2e | d7,'ylo|op.  ...|
|000020b0| 6c 20 28 61 37 29 2b 2c | 64 30 2d 64 37 2f 61 30 |l (a7)+,|d0-d7/a0|
|000020c0| 2d 61 36 00 20 20 80 94 | 00 00 2e 5f 63 68 75 6e |-a6.  ..|..._chun|
|000020d0| 6b 79 74 6f 70 6c 61 6e | 65 3a 00 20 20 80 82 2e |kytoplan|e:.  ...|
|000020e0| 6c 20 64 30 2d 64 37 2f | 61 30 2d 61 36 2c 2d 28 |l d0-d7/|a0-a6,-(|
|000020f0| 61 37 29 00 00 20 20 80 | 7e 2e 6c 20 20 64 30 2c |a7)..  .|~.l  d0,|
|00002100| 61 30 00 20 20 80 7e 2e | 6c 20 20 64 31 2c 61 31 |a0.  .~.|l  d1,a1|
|00002110| 00 00 20 20 80 7e 2e 62 | 20 20 64 34 2c 62 69 74 |..  .~.b|  d4,bit|
|00002120| 64 65 70 74 68 20 20 20 | 20 20 20 20 20 20 20 20 |depth   |        |
|00002130| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 74 |        |    ; st|
|00002140| 6f 72 65 20 64 65 70 74 | 68 00 00 20 20 80 aa 2e |ore dept|h..  ...|
|00002150| 77 20 20 23 31 2c 64 32 | 20 20 20 20 20 20 20 20 |w  #1,d2|        |
|00002160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002170| 20 20 20 20 20 3b 20 61 | 64 6a 75 73 74 20 66 6f |     ; a|djust fo|
|00002180| 72 20 64 62 72 61 00 20 | 20 80 7e 2e 77 20 20 64 |r dbra. | .~.w  d|
|00002190| 32 2c 62 69 74 77 69 64 | 74 68 20 20 20 20 20 20 |2,bitwid|th      |
|000021a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021b0| 20 3b 20 61 6e 64 20 73 | 74 6f 72 65 00 00 20 20 | ; and s|tore..  |
|000021c0| 80 aa 2e 77 20 20 23 31 | 2c 64 33 20 20 20 20 20 |...w  #1|,d3     |
|000021d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000021e0| 20 20 20 20 20 20 20 20 | 3b 20 61 64 6a 75 73 74 |        |; adjust|
|000021f0| 20 68 65 69 67 68 74 20 | 66 6f 72 20 64 62 72 61 | height |for dbra|
|00002200| 00 20 20 80 7e 2e 77 20 | 20 64 33 2c 62 69 74 68 |.  .~.w | d3,bith|
|00002210| 65 69 67 68 74 20 20 20 | 20 20 20 20 20 20 20 20 |eight   |        |
|00002220| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 61 6e 64 |        |   ; and|
|00002230| 20 73 74 6f 72 65 00 00 | 20 20 80 7e 2e 77 20 20 | store..|  .~.w  |
|00002240| 28 61 31 29 2c 62 69 74 | 6d 61 70 77 69 64 74 68 |(a1),bit|mapwidth|
|00002250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002260| 20 20 3b 20 73 74 6f 72 | 65 20 62 69 74 6d 61 70 |  ; stor|e bitmap|
|00002270| 20 77 69 64 74 68 00 00 | 20 20 80 81 2e 6c 20 23 | width..|  ...l #|
|00002280| 30 2c 64 34 00 20 20 80 | 7e 2e 62 20 20 35 28 61 |0,d4.  .|~.b  5(a|
|00002290| 31 29 2c 64 34 00 20 20 | 80 aa 2e 77 20 20 23 31 |1),d4.  |...w  #1|
|000022a0| 2c 64 34 00 20 20 80 40 | 2e 6c 20 20 23 38 2c 61 |,d4.  .@|.l  #8,a|
|000022b0| 31 00 20 20 80 7e 2e 6c | 20 20 61 31 2c 61 35 00 |1.  .~.l|  a1,a5.|
|000022c0| 00 20 20 80 82 2e 6c 20 | 64 30 2d 64 37 2f 61 30 |.  ...l |d0-d7/a0|
|000022d0| 2d 61 36 2c 2d 28 61 37 | 29 00 20 20 80 7e 2e 6c |-a6,-(a7|).  .~.l|
|000022e0| 20 20 34 2c 61 36 00 20 | 20 80 79 20 20 20 20 20 |  4,a6. | .y     |
|000022f0| 2d 24 32 37 63 28 61 36 | 29 00 20 20 80 82 2e 6c |-$27c(a6|).  ...l|
|00002300| 20 28 61 37 29 2b 2c 64 | 30 2d 64 37 2f 61 30 2d | (a7)+,d|0-d7/a0-|
|00002310| 61 36 00 20 20 80 7e 2e | 6c 20 20 61 30 2c 61 36 |a6.  .~.|l  a0,a6|
|00002320| 00 00 20 20 80 81 2e 6c | 20 23 30 2c 64 34 00 3b |..  ...l| #0,d4.;|
|00002330| 61 36 3d 41 64 64 72 20 | 43 68 75 6e 6b 79 20 20 |a6=Addr |Chunky  |
|00002340| 20 61 35 3d 42 69 74 70 | 6c 61 6e 65 20 50 54 52 | a5=Bitp|lane PTR|
|00002350| 53 00 27 62 69 74 70 6c | 61 6e 65 5f 6c 6f 6f 70 |S.'bitpl|ane_loop|
|00002360| 3a 00 20 20 80 7e 2e 6c | 20 20 61 36 2c 61 30 00 |:.  .~.l|  a6,a0.|
|00002370| 20 20 80 7e 2e 6c 20 20 | 28 61 35 29 2b 2c 61 32 |  .~.l  |(a5)+,a2|
|00002380| 00 20 20 80 7e 2e 6c 20 | 20 61 32 2c 61 31 00 20 |.  .~.l | a2,a1. |
|00002390| 20 80 7e 2e 77 20 20 62 | 69 74 68 65 69 67 68 74 | .~.w  b|itheight|
|000023a0| 2c 64 37 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,d7     |        |
|000023b0| 20 20 20 20 20 20 20 20 | 20 3b 20 64 37 3d 6c 69 |        | ; d7=li|
|000023c0| 6e 65 20 63 6f 75 6e 74 | 65 72 00 27 79 6c 6f 6f |ne count|er.'yloo|
|000023d0| 70 3a 00 20 20 80 7e 2e | 77 20 20 62 69 74 77 69 |p:.  .~.|w  bitwi|
|000023e0| 64 74 68 2c 64 36 20 20 | 20 20 20 20 20 20 20 20 |dth,d6  |        |
|000023f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 64 |        |     ; d|
|00002400| 36 3d 77 69 64 74 68 20 | 69 6e 20 62 79 74 65 73 |6=width |in bytes|
|00002410| 00 20 20 80 81 2e 6c 20 | 23 33 31 2c 64 35 20 20 |.  ...l |#31,d5  |
|00002420| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002430| 20 20 20 20 20 20 20 20 | 20 20 3b 20 64 35 3d 70 |        |  ; d5=p|
|00002440| 6f 69 6e 74 65 72 20 74 | 6f 20 62 69 74 00 20 20 |ointer t|o bit.  |
|00002450| 80 81 2e 6c 20 23 30 2c | 64 31 20 20 20 20 20 20 |...l #0,|d1      |
|00002460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002470| 20 20 20 20 20 20 20 3b | 20 64 34 3d 62 69 74 70 |       ;| d4=bitp|
|00002480| 6c 61 6e 65 20 70 6f 69 | 6e 74 65 72 00 27 78 6c |lane poi|nter.'xl|
|00002490| 6f 6f 70 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |oop:    |        |
|000024a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024b0| 20 20 20 20 20 20 20 20 | 20 3b 20 64 30 3d 63 68 |        | ; d0=ch|
|000024c0| 75 6e 6b 79 20 62 79 74 | 65 00 20 20 80 7e 2e 62 |unky byt|e.  .~.b|
|000024d0| 20 20 28 61 30 29 2b 2c | 64 30 20 20 20 20 20 20 |  (a0)+,|d0      |
|000024e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000024f0| 20 20 20 20 3b 20 64 31 | 3d 62 69 74 70 6c 61 6e |    ; d1|=bitplan|
|00002500| 65 20 64 61 74 61 00 20 | 20 80 57 20 20 20 20 64 |e data. | .W    d|
|00002510| 34 2c 64 30 00 20 20 80 | 48 20 20 20 20 20 27 6e |4,d0.  .|H     'n|
|00002520| 6f 74 5f 73 65 74 00 20 | 20 80 56 20 20 20 20 64 |ot_set. | .V    d|
|00002530| 35 2c 64 31 00 00 27 6e | 6f 74 5f 73 65 74 3a 00 |5,d1..'n|ot_set:.|
|00002540| 20 20 80 aa 2e 77 20 20 | 23 31 2c 64 36 00 20 20 |  ...w  |#1,d6.  |
|00002550| 80 4f 20 20 20 20 20 27 | 65 6e 64 5f 6f 66 5f 6c |.O     '|end_of_l|
|00002560| 69 6e 65 00 20 20 80 aa | 2e 62 20 20 23 31 2c 64 |ine.  ..|.b  #1,d|
|00002570| 35 00 20 20 80 51 20 20 | 20 20 20 27 78 6c 6f 6f |5.  .Q  |   'xloo|
|00002580| 70 00 00 20 20 80 7e 2e | 6c 20 20 64 31 2c 28 61 |p..  .~.|l  d1,(a|
|00002590| 31 29 2b 00 20 20 80 81 | 2e 6c 20 23 30 2c 64 31 |1)+.  ..|.l #0,d1|
|000025a0| 00 20 20 80 81 2e 6c 20 | 23 33 31 2c 64 35 00 20 |.  ...l |#31,d5. |
|000025b0| 20 80 58 20 20 20 20 20 | 27 78 6c 6f 6f 70 00 00 | .X     |'xloop..|
|000025c0| 27 65 6e 64 5f 6f 66 5f | 6c 69 6e 65 00 20 20 80 |'end_of_|line.  .|
|000025d0| 7e 2e 6c 20 20 64 31 2c | 28 61 31 29 2b 00 20 20 |~.l  d1,|(a1)+.  |
|000025e0| 80 81 2e 6c 20 23 30 2c | 64 30 00 20 20 80 7e 2e |...l #0,|d0.  .~.|
|000025f0| 77 20 62 69 74 6d 61 70 | 77 69 64 74 68 2c 64 30 |w bitmap|width,d0|
|00002600| 00 20 20 80 3d 2e 6c 20 | 20 20 64 30 2c 61 32 00 |.  .=.l |  d0,a2.|
|00002610| 20 20 80 7e 2e 6c 20 20 | 61 32 2c 61 31 00 20 20 |  .~.l  |a2,a1.  |
|00002620| 80 6f 20 20 20 20 64 37 | 2c 27 79 6c 6f 6f 70 00 |.o    d7|,'yloop.|
|00002630| 00 20 20 80 40 2e 62 20 | 20 23 31 2c 64 34 00 20 |.  .@.b | #1,d4. |
|00002640| 20 80 5c 2e 62 20 20 20 | 62 69 74 64 65 70 74 68 | .\.b   |bitdepth|
|00002650| 2c 64 34 00 20 20 80 50 | 20 20 20 20 20 27 62 69 |,d4.  .P|     'bi|
|00002660| 74 70 6c 61 6e 65 5f 6c | 6f 6f 70 00 20 20 80 82 |tplane_l|oop.  ..|
|00002670| 2e 6c 20 28 61 37 29 2b | 2c 64 30 2d 64 37 2f 61 |.l (a7)+|,d0-d7/a|
|00002680| 30 2d 61 36 00 20 20 80 | 94 00 00 00 62 69 74 64 |0-a6.  .|....bitd|
|00002690| 65 70 74 68 3a 20 20 20 | 20 20 80 25 2e 62 20 20 |epth:   |  .%.b  |
|000026a0| 31 00 20 20 80 27 00 62 | 69 74 77 69 64 74 68 3a |1.  .'.b|itwidth:|
|000026b0| 20 20 20 20 20 80 25 2e | 77 20 20 31 00 62 69 74 |     .%.|w  1.bit|
|000026c0| 68 65 69 67 68 74 3a 20 | 20 20 20 80 25 2e 77 20 |height: |   .%.w |
|000026d0| 20 31 00 62 69 74 6d 61 | 70 77 69 64 74 68 3a 20 | 1.bitma|pwidth: |
|000026e0| 20 80 25 2e 77 20 20 31 | 00 54 42 50 4c 30 3a 20 | .%.w  1|.TBPL0: |
|000026f0| 20 20 20 20 20 20 20 80 | 25 2e 6c 20 20 31 00 54 |       .|%.l  1.T|
|00002700| 42 50 4c 31 3a 20 20 20 | 20 20 20 20 20 80 25 2e |BPL1:   |     .%.|
|00002710| 6c 20 20 31 00 54 42 50 | 4c 32 3a 20 20 20 20 20 |l  1.TBP|L2:     |
|00002720| 20 20 20 80 25 2e 6c 20 | 20 31 00 54 42 50 4c 33 |   .%.l | 1.TBPL3|
|00002730| 3a 20 20 20 20 20 20 20 | 20 80 25 2e 6c 20 20 31 |:       | .%.l  1|
|00002740| 00 54 42 50 4c 34 3a 20 | 20 20 20 20 20 20 20 80 |.TBPL4: |       .|
|00002750| 25 2e 6c 20 20 31 00 54 | 42 50 4c 35 3a 20 20 20 |%.l  1.T|BPL5:   |
|00002760| 20 20 20 20 20 80 25 2e | 6c 20 20 31 00 54 42 50 |     .%.|l  1.TBP|
|00002770| 4c 36 3a 20 20 20 20 20 | 20 20 20 80 25 2e 6c 20 |L6:     |   .%.l |
|00002780| 20 31 00 54 42 50 4c 37 | 3a 20 20 20 20 20 20 20 | 1.TBPL7|:       |
|00002790| 20 80 25 2e 6c 20 20 31 | 00 00 3b 43 6c 65 61 72 | .%.l  1|..;Clear|
|000027a0| 20 61 20 62 69 74 6d 61 | 70 20 62 61 63 6b 77 61 | a bitma|p backwa|
|000027b0| 72 64 73 00 5f 63 6c 65 | 61 72 62 69 74 6d 61 70 |rds._cle|arbitmap|
|000027c0| 32 3a 00 20 20 80 7e 2e | 77 20 20 32 28 61 30 29 |2:.  .~.|w  2(a0)|
|000027d0| 2c 64 32 00 20 20 80 81 | 2e 6c 20 23 30 2c 64 33 |,d2.  ..|.l #0,d3|
|000027e0| 00 2e 5f 63 6c 65 61 72 | 62 69 74 6d 61 70 3a 00 |.._clear|bitmap:.|
|000027f0| 20 20 80 82 2e 6c 20 61 | 34 2d 61 36 2c 2d 28 61 |  ...l a|4-a6,-(a|
|00002800| 37 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |7)      |        |
|00002810| 20 20 20 20 3b 73 61 76 | 65 20 72 65 67 69 73 74 |    ;sav|e regist|
|00002820| 65 72 73 00 20 20 80 7e | 2e 6c 20 20 64 31 2c 64 |ers.  .~|.l  d1,d|
|00002830| 65 6c 61 79 5f 74 69 6d | 65 72 20 20 20 20 20 20 |elay_tim|er      |
|00002840| 20 20 20 20 20 20 20 20 | 20 3b 73 74 6f 72 65 20 |        | ;store |
|00002850| 64 65 6c 61 79 20 76 61 | 6c 75 65 00 20 20 80 7e |delay va|lue.  .~|
|00002860| 2e 77 20 20 28 61 30 29 | 2c 64 31 20 20 20 20 20 |.w  (a0)|,d1     |
|00002870| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002880| 20 3b 67 65 74 20 45 42 | 57 69 64 74 68 00 20 20 | ;get EB|Width.  |
|00002890| 80 45 2e 77 20 20 20 23 | 31 2c 64 31 20 20 20 20 |.E.w   #|1,d1    |
|000028a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000028b0| 20 20 20 20 3b 64 69 76 | 69 64 65 20 62 79 20 32 |    ;div|ide by 2|
|000028c0| 00 20 20 80 aa 2e 77 20 | 20 23 31 2c 64 31 20 20 |.  ...w | #1,d1  |
|000028d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000028e0| 20 20 20 20 20 20 3b 61 | 64 6a 75 73 74 20 66 6f |      ;a|djust fo|
|000028f0| 72 20 64 62 72 61 00 20 | 20 80 7e 2e 77 20 20 64 |r dbra. | .~.w  d|
|00002900| 31 2c 45 57 57 69 64 74 | 68 20 20 20 20 20 20 20 |1,EWWidt|h       |
|00002910| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 65 76 65 |        |    ;eve|
|00002920| 6e 20 77 6f 72 64 20 77 | 69 64 74 68 20 6f 66 20 |n word w|idth of |
|00002930| 63 6c 65 61 72 00 20 20 | 80 7e 2e 77 20 20 34 28 |clear.  |.~.w  4(|
|00002940| 61 30 29 2c 42 44 65 70 | 74 68 20 20 20 20 20 20 |a0),BDep|th      |
|00002950| 20 20 20 20 20 20 20 20 | 20 20 20 3b 67 65 74 20 |        |   ;get |
|00002960| 64 65 70 74 68 00 20 20 | 80 aa 2e 77 20 20 23 31 |depth.  |...w  #1|
|00002970| 2c 42 44 65 70 74 68 20 | 20 20 20 20 20 20 20 20 |,BDepth |        |
|00002980| 20 20 20 20 20 20 20 20 | 20 20 20 3b 73 75 62 74 |        |   ;subt|
|00002990| 72 61 63 74 20 31 00 00 | 20 20 80 43 2e 6c 20 20 |ract 1..|  .C.l  |
|000029a0| 23 24 66 66 66 66 2c 64 | 32 00 20 20 80 7e 2e 77 |#$ffff,d|2.  .~.w|
|000029b0| 20 20 64 32 2c 42 48 65 | 69 67 68 74 00 20 20 80 |  d2,BHe|ight.  .|
|000029c0| aa 2e 77 20 20 23 31 2c | 42 48 65 69 67 68 74 00 |..w  #1,|BHeight.|
|000029d0| 20 20 80 3d 2e 77 20 20 | 20 64 33 2c 64 32 00 20 |  .=.w  | d3,d2. |
|000029e0| 20 80 84 2e 77 20 20 28 | 61 30 29 2c 64 32 20 20 | ...w  (|a0),d2  |
|000029f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002a00| 20 20 20 20 3b 6d 75 6c | 74 69 70 6c 65 20 62 79 |    ;mul|tiple by|
|00002a10| 20 45 42 57 69 64 74 68 | 00 20 20 80 aa 2e 6c 20 | EBWidth|.  ...l |
|00002a20| 20 23 34 2c 64 32 20 20 | 20 20 20 20 20 20 20 20 | #4,d2  |        |
|00002a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 73 |        |      ;s|
|00002a40| 75 62 74 72 61 63 74 20 | 32 20 66 6f 72 20 6c 6f |ubtract |2 for lo|
|00002a50| 6f 70 00 00 20 20 80 40 | 2e 6c 20 20 23 38 2c 61 |op..  .@|.l  #8,a|
|00002a60| 30 00 20 20 80 7e 2e 77 | 20 20 42 44 65 70 74 68 |0.  .~.w|  BDepth|
|00002a70| 2c 64 30 00 20 20 80 7a | 20 20 20 20 20 62 69 74 |,d0.  .z|     bit|
|00002a80| 5f 61 64 64 28 70 63 29 | 2c 61 31 00 20 20 80 7a |_add(pc)|,a1.  .z|
|00002a90| 20 20 20 20 20 64 65 73 | 74 5f 61 64 64 28 70 63 |     des|t_add(pc|
|00002aa0| 29 2c 61 32 00 53 74 6f | 72 65 5f 6c 6f 6f 70 00 |),a2.Sto|re_loop.|
|00002ab0| 20 20 80 7e 2e 6c 20 20 | 28 61 30 29 2b 2c 64 31 |  .~.l  |(a0)+,d1|
|00002ac0| 00 20 20 80 3d 2e 6c 20 | 20 20 64 32 2c 64 31 00 |.  .=.l |  d2,d1.|
|00002ad0| 20 20 80 7e 2e 6c 20 20 | 64 31 2c 28 61 31 29 2b |  .~.l  |d1,(a1)+|
|00002ae0| 00 20 20 80 7e 2e 6c 20 | 20 64 31 2c 28 61 32 29 |.  .~.l | d1,(a2)|
|00002af0| 2b 00 20 20 80 6f 20 20 | 20 20 64 30 2c 53 74 6f |+.  .o  |  d0,Sto|
|00002b00| 72 65 5f 6c 6f 6f 70 00 | 00 3b 79 65 72 20 61 63 |re_loop.|.;yer ac|
|00002b10| 74 75 61 6c 20 72 6f 75 | 74 69 6e 65 00 20 20 80 |tual rou|tine.  .|
|00002b20| 81 2e 6c 20 23 30 2c 64 | 35 00 20 20 80 7e 2e 77 |..l #0,d|5.  .~.w|
|00002b30| 20 20 42 48 65 69 67 68 | 74 2c 64 35 20 20 20 20 |  BHeigh|t,d5    |
|00002b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00002b50| 67 65 74 20 68 65 69 67 | 68 74 00 20 20 80 7e 2e |get heig|ht.  .~.|
|00002b60| 77 20 20 23 2d 31 39 2c | 64 34 20 20 20 20 20 20 |w  #-19,|d4      |
|00002b70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002b80| 3b 73 74 6f 70 20 76 61 | 6c 75 65 00 20 20 80 7e |;stop va|lue.  .~|
|00002b90| 2e 6c 20 20 23 25 31 30 | 31 30 31 30 31 30 31 30 |.l  #%10|10101010|
|00002ba0| 31 30 31 30 31 30 2c 64 | 33 20 20 20 20 20 20 20 |101010,d|3       |
|00002bb0| 20 3b 73 6f 75 72 63 65 | 20 6d 61 73 6b 00 4d 61 | ;source| mask.Ma|
|00002bc0| 69 6e 5f 6c 6f 6f 70 00 | 20 20 80 b0 2e 77 20 20 |in_loop.|  ...w  |
|00002bd0| 20 64 35 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | d5     |        |
|00002be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 6f |        |      ;o|
|00002bf0| 76 65 72 20 30 3f 00 20 | 20 80 4f 20 20 20 20 20 |ver 0?. | .O     |
|00002c00| 43 6c 65 61 72 5f 61 5f | 6c 69 6e 65 20 20 20 20 |Clear_a_|line    |
|00002c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 6e |        |     ; n|
|00002c20| 6f 20 2d 20 62 72 61 6e | 63 68 00 4d 61 73 6b 5f |o - bran|ch.Mask_|
|00002c30| 61 5f 6c 69 6e 65 00 20 | 20 80 7a 20 20 20 20 20 |a_line. | .z     |
|00002c40| 62 69 74 5f 61 64 64 28 | 70 63 29 2c 61 31 20 20 |bit_add(|pc),a1  |
|00002c50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 67 65 |        |     ;ge|
|00002c60| 74 20 66 69 72 73 74 20 | 64 65 73 74 20 70 6f 69 |t first |dest poi|
|00002c70| 6e 74 65 72 73 00 20 20 | 80 7e 2e 77 20 20 45 57 |nters.  |.~.w  EW|
|00002c80| 57 69 64 74 68 2c 64 36 | 20 20 20 20 20 20 20 20 |Width,d6|        |
|00002c90| 20 20 20 20 20 20 20 20 | 20 20 20 3b 67 65 74 20 |        |   ;get |
|00002ca0| 77 69 64 74 68 00 58 6c | 6f 6f 70 00 20 20 80 7e |width.Xl|oop.  .~|
|00002cb0| 2e 77 20 20 42 44 65 70 | 74 68 2c 64 37 20 20 20 |.w  BDep|th,d7   |
|00002cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002cd0| 20 3b 67 65 74 20 77 69 | 64 74 68 00 20 20 80 7e | ;get wi|dth.  .~|
|00002ce0| 2e 6c 20 20 61 31 2c 61 | 30 20 20 20 20 20 20 20 |.l  a1,a|0       |
|00002cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002d00| 20 3b 67 65 74 20 64 65 | 73 74 20 70 6f 69 6e 74 | ;get de|st point|
|00002d10| 65 72 20 61 72 72 61 79 | 00 62 69 74 5f 6c 6f 6f |er array|.bit_loo|
|00002d20| 70 00 20 20 80 7e 2e 6c | 20 20 28 61 30 29 2c 61 |p.  .~.l|  (a0),a|
|00002d30| 32 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |2       |        |
|00002d40| 20 20 20 20 20 20 20 3b | 67 65 74 20 62 69 74 70 |       ;|get bitp|
|00002d50| 6c 61 6e 65 00 20 20 80 | 42 2e 77 20 20 20 64 33 |lane.  .|B.w   d3|
|00002d60| 2c 28 61 32 29 20 20 20 | 20 20 20 20 20 20 20 20 |,(a2)   |        |
|00002d70| 20 20 20 20 20 20 20 20 | 20 20 20 3b 6d 61 73 6b |        |   ;mask|
|00002d80| 20 77 6f 72 64 00 20 20 | 80 aa 2e 6c 20 20 23 32 | word.  |...l  #2|
|00002d90| 2c 28 61 30 29 2b 20 20 | 20 20 20 20 20 20 20 20 |,(a0)+  |        |
|00002da0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 73 75 62 74 |        |   ;subt|
|00002db0| 72 61 63 74 20 34 20 66 | 72 6f 6d 20 73 6f 75 72 |ract 4 f|rom sour|
|00002dc0| 63 65 00 20 20 80 6f 20 | 20 20 20 64 37 2c 62 69 |ce.  .o |   d7,bi|
|00002dd0| 74 5f 6c 6f 6f 70 20 20 | 20 20 20 20 20 20 20 20 |t_loop  |        |
|00002de0| 20 20 20 20 20 20 20 20 | 3b 6c 6f 6f 70 20 66 6f |        |;loop fo|
|00002df0| 72 20 61 6c 6c 20 62 69 | 74 70 6c 61 6e 65 73 00 |r all bi|tplanes.|
|00002e00| 20 20 80 6f 20 20 20 20 | 64 36 2c 58 6c 6f 6f 70 |  .o    |d6,Xloop|
|00002e10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e20| 20 20 20 20 20 3b 6c 6f | 6f 70 20 66 6f 72 20 61 |     ;lo|op for a|
|00002e30| 6c 6c 20 6f 66 20 6c 69 | 6e 65 00 20 20 80 89 2e |ll of li|ne.  ...|
|00002e40| 77 20 20 20 64 33 20 20 | 20 20 20 20 20 20 20 20 |w   d3  |        |
|00002e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002e60| 20 3b 6e 6f 74 20 6d 61 | 73 6b 20 66 6f 72 20 6e | ;not ma|sk for n|
|00002e70| 65 78 74 20 6c 69 6e 65 | 00 00 43 6c 65 61 72 5f |ext line|..Clear_|
|00002e80| 61 5f 6c 69 6e 65 00 20 | 20 80 b0 2e 77 20 20 20 |a_line. | ...w   |
|00002e90| 64 34 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d4      |        |
|00002ea0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 43 6c |        |     ;Cl|
|00002eb0| 65 61 72 20 74 68 69 73 | 20 6c 69 6e 65 3f 00 20 |ear this| line?. |
|00002ec0| 20 80 4f 20 20 20 20 20 | 45 6e 64 5f 6c 6f 6f 70 | .O     |End_loop|
|00002ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00002ee0| 20 20 20 20 20 3b 6e 6f | 20 2d 20 62 72 61 6e 63 |     ;no| - branc|
|00002ef0| 68 00 20 20 80 7a 20 20 | 20 20 20 64 65 73 74 5f |h.  .z  |   dest_|
|00002f00| 61 64 64 28 70 63 29 2c | 61 31 20 20 20 20 20 20 |add(pc),|a1      |
|00002f10| 20 20 20 20 20 20 20 20 | 3b 67 65 74 20 73 65 63 |        |;get sec|
|00002f20| 6f 6e 64 20 64 65 73 74 | 20 70 6f 69 6e 74 65 72 |ond dest| pointer|
|00002f30| 73 00 20 20 80 7e 2e 77 | 20 20 45 57 57 69 64 74 |s.  .~.w|  EWWidt|
|00002f40| 68 2c 64 36 20 20 20 20 | 20 20 20 20 20 20 20 20 |h,d6    |        |
|00002f50| 20 20 20 20 20 20 20 3b | 67 65 74 20 77 69 64 74 |       ;|get widt|
|00002f60| 68 00 58 6c 6f 6f 70 32 | 00 20 20 80 7e 2e 77 20 |h.Xloop2|.  .~.w |
|00002f70| 20 42 44 65 70 74 68 2c | 64 37 20 20 20 20 20 20 | BDepth,|d7      |
|00002f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 67 |        |      ;g|
|00002f90| 65 74 20 64 65 70 74 68 | 00 20 20 80 7e 2e 6c 20 |et depth|.  .~.l |
|00002fa0| 20 61 31 2c 61 30 20 20 | 20 20 20 20 20 20 20 20 | a1,a0  |        |
|00002fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 67 |        |      ;g|
|00002fc0| 65 74 20 61 72 72 61 79 | 00 62 69 74 5f 6c 6f 6f |et array|.bit_loo|
|00002fd0| 70 32 00 20 20 80 7e 2e | 6c 20 20 28 61 30 29 2c |p2.  .~.|l  (a0),|
|00002fe0| 61 32 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |a2      |        |
|00002ff0| 20 20 20 20 20 20 20 20 | 3b 67 65 74 20 62 69 74 |        |;get bit|
|00003000| 70 6c 61 6e 65 20 70 6f | 69 6e 74 65 72 00 20 20 |plane po|inter.  |
|00003010| 80 7e 2e 77 20 20 23 30 | 2c 28 61 32 29 20 20 20 |.~.w  #0|,(a2)   |
|00003020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003030| 20 20 20 3b 63 6c 65 61 | 72 20 77 6f 72 64 00 20 |   ;clea|r word. |
|00003040| 20 80 aa 2e 6c 20 20 23 | 32 2c 28 61 30 29 2b 20 | ...l  #|2,(a0)+ |
|00003050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003060| 20 20 20 20 3b 64 65 63 | 72 65 6d 65 6e 74 20 70 |    ;dec|rement p|
|00003070| 6f 69 6e 74 65 72 20 61 | 6e 64 20 61 64 6a 75 73 |ointer a|nd adjus|
|00003080| 74 20 61 72 72 61 79 00 | 20 20 80 6f 20 20 20 20 |t array.|  .o    |
|00003090| 64 37 2c 62 69 74 5f 6c | 6f 6f 70 32 20 20 20 20 |d7,bit_l|oop2    |
|000030a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 6c 6f |        |     ;lo|
|000030b0| 6f 70 20 66 6f 72 20 61 | 6c 6c 20 70 6c 61 6e 65 |op for a|ll plane|
|000030c0| 73 00 20 20 80 6f 20 20 | 20 20 64 36 2c 58 6c 6f |s.  .o  |  d6,Xlo|
|000030d0| 6f 70 32 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |op2     |        |
|000030e0| 20 20 20 20 20 20 20 3b | 6c 6f 6f 70 20 66 6f 72 |       ;|loop for|
|000030f0| 20 61 6c 6c 20 6f 66 20 | 77 69 64 74 68 00 00 45 | all of |width..E|
|00003100| 6e 64 5f 6c 6f 6f 70 00 | 20 20 80 7e 2e 6c 20 20 |nd_loop.|  .~.l  |
|00003110| 64 65 6c 61 79 5f 74 69 | 6d 65 72 2c 64 37 20 20 |delay_ti|mer,d7  |
|00003120| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 67 65 |        |     ;ge|
|00003130| 74 20 64 65 6c 61 79 20 | 76 61 6c 75 65 00 53 6c |t delay |value.Sl|
|00003140| 6f 77 5f 64 6f 77 6e 5f | 6c 6f 6f 70 00 20 20 80 |ow_down_|loop.  .|
|00003150| aa 2e 6c 20 20 23 31 2c | 64 37 20 20 20 20 20 20 |..l  #1,|d7      |
|00003160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003170| 20 20 3b 73 69 6d 70 6c | 65 20 69 6e 73 74 72 75 |  ;simpl|e instru|
|00003180| 63 74 69 6f 6e 00 20 20 | 80 50 20 20 20 20 20 53 |ction.  |.P     S|
|00003190| 6c 6f 77 5f 64 6f 77 6e | 5f 6c 6f 6f 70 20 20 20 |low_down|_loop   |
|000031a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 6c 6f 6f |        |    ;loo|
|000031b0| 70 20 75 6e 74 69 6c 20 | 30 00 00 20 20 80 40 2e |p until |0..  .@.|
|000031c0| 77 20 20 23 31 2c 64 34 | 20 20 20 20 20 20 20 20 |w  #1,d4|        |
|000031d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000031e0| 3b 31 20 6d 6f 72 65 20 | 6c 69 6e 65 20 64 6f 6e |;1 more |line don|
|000031f0| 65 00 20 20 80 aa 2e 77 | 20 20 23 31 2c 64 35 20 |e.  ...w|  #1,d5 |
|00003200| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003210| 20 20 20 20 20 20 20 3b | 64 65 63 72 65 6d 65 6e |       ;|decremen|
|00003220| 74 20 63 6f 75 6e 74 65 | 72 00 20 20 80 5d 2e 77 |t counte|r.  .].w|
|00003230| 20 20 23 2d 32 30 2c 64 | 35 20 20 20 20 20 20 20 |  #-20,d|5       |
|00003240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00003250| 69 73 20 69 74 20 74 68 | 65 20 65 6e 64 3f 00 20 |is it th|e end?. |
|00003260| 20 80 50 20 20 20 20 20 | 4d 61 69 6e 5f 6c 6f 6f | .P     |Main_loo|
|00003270| 70 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |p       |        |
|00003280| 20 20 20 20 20 3b 6e 6f | 70 20 2d 20 62 72 61 6e |     ;no|p - bran|
|00003290| 63 68 00 00 20 20 80 82 | 2e 6c 20 28 61 37 29 2b |ch..  ..|.l (a7)+|
|000032a0| 2c 61 34 2d 61 36 20 20 | 20 20 20 20 20 20 20 20 |,a4-a6  |        |
|000032b0| 20 20 20 20 20 20 20 20 | 3b 72 65 73 74 6f 72 65 |        |;restore|
|000032c0| 20 72 65 67 69 73 74 65 | 72 73 00 20 20 80 94 20 | registe|rs.  .. |
|000032d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000032f0| 20 3b 61 6e 64 20 65 78 | 69 74 00 00 3b 43 6f 70 | ;and ex|it..;Cop|
|00003300| 79 20 61 20 62 69 74 70 | 6c 61 6e 65 20 6e 69 63 |y a bitp|lane nic|
|00003310| 65 6c 79 21 00 5f 66 61 | 64 65 69 6e 62 69 74 6d |ely!._fa|deinbitm|
|00003320| 61 70 32 3a 00 20 20 80 | 7e 2e 77 20 20 32 28 61 |ap2:.  .|~.w  2(a|
|00003330| 30 29 2c 64 33 00 20 20 | 80 81 2e 6c 20 23 30 2c |0),d3.  |...l #0,|
|00003340| 64 34 00 20 20 80 81 2e | 6c 20 23 30 2c 64 35 00 |d4.  ...|l #0,d5.|
|00003350| 2e 5f 66 61 64 65 69 6e | 62 69 74 6d 61 70 3a 00 |._fadein|bitmap:.|
|00003360| 20 20 80 82 2e 6c 20 61 | 34 2d 61 36 2c 2d 28 61 |  ...l a|4-a6,-(a|
|00003370| 37 29 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |7)      |        |
|00003380| 20 20 20 20 3b 73 61 76 | 65 20 72 65 73 67 69 73 |    ;sav|e resgis|
|00003390| 74 65 72 73 00 20 20 80 | 7e 2e 6c 20 20 64 32 2c |ters.  .|~.l  d2,|
|000033a0| 64 65 6c 61 79 5f 74 69 | 6d 65 72 20 20 20 20 20 |delay_ti|mer     |
|000033b0| 20 20 20 20 20 20 20 20 | 20 20 3b 73 74 6f 72 65 |        |  ;store|
|000033c0| 20 64 65 6c 61 79 20 76 | 61 6c 75 65 00 20 20 80 | delay v|alue.  .|
|000033d0| 7e 2e 77 20 20 28 61 30 | 29 2c 64 32 20 20 20 20 |~.w  (a0|),d2    |
|000033e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000033f0| 20 20 3b 67 65 74 20 45 | 42 57 69 64 74 68 00 20 |  ;get E|BWidth. |
|00003400| 20 80 45 2e 77 20 20 20 | 23 31 2c 64 32 20 20 20 | .E.w   |#1,d2   |
|00003410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003420| 20 20 20 20 20 3b 64 69 | 76 69 64 65 20 62 79 20 |     ;di|vide by |
|00003430| 32 00 20 20 80 aa 2e 77 | 20 20 23 31 2c 64 32 20 |2.  ...w|  #1,d2 |
|00003440| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003450| 20 20 20 20 20 20 20 3b | 61 64 6a 75 73 74 20 66 |       ;|adjust f|
|00003460| 6f 72 20 64 62 72 61 00 | 20 20 80 7e 2e 77 20 20 |or dbra.|  .~.w  |
|00003470| 64 32 2c 45 57 57 69 64 | 74 68 20 20 20 20 20 20 |d2,EWWid|th      |
|00003480| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 65 76 |        |     ;ev|
|00003490| 65 6e 20 77 6f 72 64 20 | 77 69 64 74 68 20 6f 66 |en word |width of|
|000034a0| 20 63 6c 65 61 72 00 20 | 20 80 7e 2e 77 20 20 34 | clear. | .~.w  4|
|000034b0| 28 61 30 29 2c 42 44 65 | 70 74 68 20 20 20 20 20 |(a0),BDe|pth     |
|000034c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 67 65 74 |        |    ;get|
|000034d0| 20 64 65 70 74 68 20 74 | 6f 20 64 6f 00 20 20 80 | depth t|o do.  .|
|000034e0| aa 2e 77 20 20 23 31 2c | 42 44 65 70 74 68 20 20 |..w  #1,|BDepth  |
|000034f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003500| 20 20 3b 61 64 6a 75 73 | 74 20 66 6f 72 20 64 62 |  ;adjus|t for db|
|00003510| 72 61 00 00 20 20 80 43 | 2e 6c 20 20 23 24 66 66 |ra..  .C|.l  #$ff|
|00003520| 66 66 2c 64 33 20 20 20 | 20 20 20 20 20 20 20 20 |ff,d3   |        |
|00003530| 20 20 20 20 20 20 20 20 | 20 3b 6a 75 73 74 20 69 |        | ;just i|
|00003540| 6e 20 63 61 73 65 00 20 | 20 80 7e 2e 77 20 20 64 |n case. | .~.w  d|
|00003550| 33 2c 42 48 65 69 67 68 | 74 20 20 20 20 20 20 20 |3,BHeigh|t       |
|00003560| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 73 74 6f |        |    ;sto|
|00003570| 72 65 20 68 65 69 67 68 | 74 20 74 6f 20 64 6f 00 |re heigh|t to do.|
|00003580| 20 20 80 aa 2e 77 20 20 | 23 31 2c 42 48 65 69 67 |  ...w  |#1,BHeig|
|00003590| 68 74 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ht      |        |
|000035a0| 20 20 20 20 20 3b 61 64 | 6a 75 73 74 20 66 6f 72 |     ;ad|just for|
|000035b0| 20 64 62 72 61 00 00 20 | 20 80 84 2e 77 20 20 28 | dbra.. | ...w  (|
|000035c0| 61 30 29 2c 64 34 20 20 | 20 20 20 20 20 20 20 20 |a0),d4  |        |
|000035d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 6d 61 6b |        |    ;mak|
|000035e0| 65 20 70 69 78 65 6c 20 | 6f 66 66 73 65 74 73 00 |e pixel |offsets.|
|000035f0| 20 20 80 84 2e 77 20 20 | 28 61 30 29 2c 64 35 20 |  ...w  |(a0),d5 |
|00003600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003610| 20 20 20 20 20 3b 20 69 | 6e 74 6f 20 62 79 74 65 |     ; i|nto byte|
|00003620| 20 6f 66 66 73 65 74 73 | 00 00 20 20 80 40 2e 6c | offsets|..  .@.l|
|00003630| 20 20 23 38 2c 61 30 20 | 20 20 20 20 20 20 20 20 |  #8,a0 |        |
|00003640| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00003650| 67 65 74 20 73 6f 75 72 | 63 65 20 62 69 74 70 6c |get sour|ce bitpl|
|00003660| 61 6e 65 20 70 6f 69 6e | 74 65 72 73 00 20 20 80 |ane poin|ters.  .|
|00003670| 40 2e 6c 20 20 23 38 2c | 61 31 20 20 20 20 20 20 |@.l  #8,|a1      |
|00003680| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003690| 20 20 3b 67 65 74 20 64 | 65 73 74 20 62 69 74 70 |  ;get d|est bitp|
|000036a0| 6c 61 6e 65 20 70 6f 69 | 5c 6e 74 65 72 73 00 20 |lane poi|\nters. |
|000036b0| 20 80 7e 2e 77 20 20 42 | 44 65 70 74 68 2c 64 30 | .~.w  B|Depth,d0|
|000036c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000036d0| 20 20 20 20 3b 67 65 74 | 20 64 65 70 74 68 00 20 |    ;get| depth. |
|000036e0| 20 80 7a 20 20 20 20 20 | 62 69 74 5f 61 64 64 28 | .z     |bit_add(|
|000036f0| 70 63 29 2c 61 32 20 20 | 20 20 20 20 20 20 20 20 |pc),a2  |        |
|00003700| 20 20 20 20 20 3b 73 74 | 6f 72 61 67 65 20 61 72 |     ;st|orage ar|
|00003710| 65 61 20 73 6f 75 72 63 | 65 00 20 20 80 7a 20 20 |ea sourc|e.  .z  |
|00003720| 20 20 20 64 65 73 74 5f | 61 64 64 28 70 63 29 2c |   dest_|add(pc),|
|00003730| 61 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |a3      |        |
|00003740| 3b 73 74 6f 72 61 67 65 | 20 61 72 65 61 20 64 65 |;storage| area de|
|00003750| 73 74 00 27 53 74 6f 72 | 65 5f 6c 6f 6f 70 00 20 |st.'Stor|e_loop. |
|00003760| 20 80 7e 2e 6c 20 20 28 | 61 30 29 2b 2c 64 31 20 | .~.l  (|a0)+,d1 |
|00003770| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003780| 20 20 20 20 3b 73 6f 75 | 72 63 65 20 62 69 74 70 |    ;sou|rce bitp|
|00003790| 6c 61 6e 65 00 20 20 80 | 3d 2e 6c 20 20 20 64 34 |lane.  .|=.l   d4|
|000037a0| 2c 64 31 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,d1     |        |
|000037b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 61 64 64 20 |        |   ;add |
|000037c0| 6f 66 66 73 65 74 00 20 | 20 80 7e 2e 6c 20 20 64 |offset. | .~.l  d|
|000037d0| 31 2c 28 61 32 29 2b 20 | 20 20 20 20 20 20 20 20 |1,(a2)+ |        |
|000037e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 73 74 6f |        |    ;sto|
|000037f0| 72 65 20 70 6f 69 6e 74 | 65 72 00 20 20 80 7e 2e |re point|er.  .~.|
|00003800| 6c 20 20 64 31 2c 28 61 | 33 29 2b 20 20 20 20 20 |l  d1,(a|3)+     |
|00003810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003820| 3b 73 74 6f 72 65 20 70 | 6f 69 6e 74 65 72 00 00 |;store p|ointer..|
|00003830| 20 20 80 7e 2e 6c 20 20 | 28 61 31 29 2b 2c 64 31 |  .~.l  |(a1)+,d1|
|00003840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003850| 20 20 20 20 20 3b 20 64 | 65 73 74 69 6e 61 74 69 |     ; d|estinati|
|00003860| 6f 6e 20 62 69 74 6d 61 | 70 00 20 20 80 3d 2e 6c |on bitma|p.  .=.l|
|00003870| 20 20 20 64 35 2c 64 31 | 20 20 20 20 20 20 20 20 |   d5,d1|        |
|00003880| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003890| 3b 61 64 64 20 6f 66 66 | 73 65 74 00 20 20 80 7e |;add off|set.  .~|
|000038a0| 2e 6c 20 20 64 31 2c 28 | 61 32 29 2b 20 20 20 20 |.l  d1,(|a2)+    |
|000038b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038c0| 20 3b 73 74 6f 72 65 20 | 70 6f 69 6e 74 65 72 00 | ;store |pointer.|
|000038d0| 20 20 80 7e 2e 6c 20 20 | 64 31 2c 28 61 33 29 2b |  .~.l  |d1,(a3)+|
|000038e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000038f0| 20 20 20 20 20 3b 73 74 | 6f 72 65 20 70 6f 69 6e |     ;st|ore poin|
|00003900| 74 65 72 00 20 20 80 6f | 20 20 20 20 64 30 2c 27 |ter.  .o|    d0,'|
|00003910| 53 74 6f 72 65 5f 6c 6f | 6f 70 20 20 20 20 20 20 |Store_lo|op      |
|00003920| 20 20 20 20 20 20 20 20 | 20 3b 6c 6f 6f 70 20 66 |        | ;loop f|
|00003930| 6f 72 20 61 6c 6c 20 62 | 69 74 70 6c 61 6e 65 73 |or all b|itplanes|
|00003940| 00 00 3b 79 65 72 20 61 | 63 74 75 61 6c 20 72 6f |..;yer a|ctual ro|
|00003950| 75 74 69 6e 65 00 20 20 | 80 81 2e 6c 20 23 30 2c |utine.  |...l #0,|
|00003960| 64 35 00 20 20 80 7e 2e | 77 20 20 42 48 65 69 67 |d5.  .~.|w  BHeig|
|00003970| 68 74 2c 64 35 20 20 20 | 20 20 20 20 20 20 20 20 |ht,d5   |        |
|00003980| 20 20 20 20 20 20 20 20 | 3b 67 65 74 20 68 65 69 |        |;get hei|
|00003990| 67 68 74 00 20 20 80 7e | 2e 77 20 20 23 2d 31 39 |ght.  .~|.w  #-19|
|000039a0| 2c 64 34 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,d4     |        |
|000039b0| 20 20 20 20 20 20 20 20 | 20 3b 73 74 6f 70 20 76 |        | ;stop v|
|000039c0| 61 6c 75 65 00 20 20 80 | 7e 2e 6c 20 20 23 25 31 |alue.  .|~.l  #%1|
|000039d0| 30 31 30 31 30 31 30 31 | 30 31 30 31 30 31 30 2c |01010101|0101010,|
|000039e0| 64 33 20 20 20 20 20 20 | 20 20 3b 64 61 74 61 20 |d3      |  ;data |
|000039f0| 6d 61 73 6b 00 00 27 4d | 61 69 6e 5f 6c 6f 6f 70 |mask..'M|ain_loop|
|00003a00| 00 20 20 80 b0 2e 77 20 | 20 20 64 35 20 20 20 20 |.  ...w |  d5    |
|00003a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003a20| 20 20 20 20 20 20 20 3b | 75 6e 64 65 72 20 30 3f |       ;|under 0?|
|00003a30| 00 20 20 80 4f 20 20 20 | 20 20 27 43 6c 65 61 72 |.  .O   |  'Clear|
|00003a40| 5f 61 5f 6c 69 6e 65 20 | 20 20 20 20 20 20 20 20 |_a_line |        |
|00003a50| 20 20 20 20 20 20 20 3b | 79 75 70 20 2d 20 62 72 |       ;|yup - br|
|00003a60| 61 6e 63 68 00 27 4d 61 | 73 6b 5f 61 5f 6c 69 6e |anch.'Ma|sk_a_lin|
|00003a70| 65 00 20 20 80 7a 20 20 | 20 20 20 62 69 74 5f 61 |e.  .z  |   bit_a|
|00003a80| 64 64 28 70 63 29 2c 61 | 31 20 20 20 20 20 20 20 |dd(pc),a|1       |
|00003a90| 20 20 20 20 20 20 20 20 | 3b 67 65 74 20 70 6f 69 |        |;get poi|
|00003aa0| 6e 74 65 72 73 00 20 20 | 80 7e 2e 77 20 20 45 57 |nters.  |.~.w  EW|
|00003ab0| 57 69 64 74 68 2c 64 36 | 20 20 20 20 20 20 20 20 |Width,d6|        |
|00003ac0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 67 65 74 20 |        |   ;get |
|00003ad0| 77 69 64 74 68 00 27 58 | 6c 6f 6f 70 00 20 20 80 |width.'X|loop.  .|
|00003ae0| 7e 2e 77 20 20 42 44 65 | 70 74 68 2c 64 37 20 20 |~.w  BDe|pth,d7  |
|00003af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b00| 20 20 3b 67 65 74 20 64 | 65 70 74 68 20 74 6f 20 |  ;get d|epth to |
|00003b10| 64 6f 00 20 20 80 7e 2e | 6c 20 20 61 31 2c 61 30 |do.  .~.|l  a1,a0|
|00003b20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b30| 20 20 20 20 20 20 20 20 | 3b 67 65 74 20 70 6f 69 |        |;get poi|
|00003b40| 6e 74 65 72 73 00 27 62 | 69 74 5f 6c 6f 6f 70 00 |nters.'b|it_loop.|
|00003b50| 20 20 80 7e 2e 6c 20 20 | 28 61 30 29 2c 61 32 20 |  .~.l  |(a0),a2 |
|00003b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003b70| 20 20 20 20 20 3b 67 65 | 74 20 73 6f 75 72 63 65 |     ;ge|t source|
|00003b80| 20 62 69 74 70 6c 61 6e | 65 00 20 20 80 7e 2e 6c | bitplan|e.  .~.l|
|00003b90| 20 20 34 28 61 30 29 2c | 61 33 20 20 20 20 20 20 |  4(a0),|a3      |
|00003ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00003bb0| 67 65 74 20 64 65 73 74 | 20 62 69 74 70 6c 61 6e |get dest| bitplan|
|00003bc0| 65 00 20 20 80 7e 2e 77 | 20 20 28 61 32 29 2c 64 |e.  .~.w|  (a2),d|
|00003bd0| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0       |        |
|00003be0| 20 20 20 20 20 20 20 3b | 67 65 74 20 61 20 77 6f |       ;|get a wo|
|00003bf0| 72 64 20 6f 66 20 64 61 | 74 61 00 20 20 80 42 2e |rd of da|ta.  .B.|
|00003c00| 77 20 20 20 64 33 2c 64 | 30 20 20 20 20 20 20 20 |w   d3,d|0       |
|00003c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c20| 20 3b 61 6e 64 20 6d 61 | 73 6b 20 69 74 00 20 20 | ;and ma|sk it.  |
|00003c30| 80 7e 2e 77 20 20 64 30 | 2c 28 61 33 29 20 20 20 |.~.w  d0|,(a3)   |
|00003c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003c50| 20 20 20 3b 73 74 6f 72 | 65 20 69 6e 20 64 65 73 |   ;stor|e in des|
|00003c60| 74 00 20 20 80 40 2e 6c | 20 20 23 32 2c 28 61 30 |t.  .@.l|  #2,(a0|
|00003c70| 29 2b 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |)+      |        |
|00003c80| 20 20 20 20 20 20 20 3b | 61 64 6a 75 73 74 20 70 |       ;|adjust p|
|00003c90| 6f 69 6e 74 65 72 20 61 | 6e 64 20 73 74 6f 72 65 |ointer a|nd store|
|00003ca0| 00 20 20 80 40 2e 6c 20 | 20 23 32 2c 28 61 30 29 |.  .@.l | #2,(a0)|
|00003cb0| 2b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |+       |        |
|00003cc0| 20 20 20 20 20 20 3b 61 | 64 6a 75 73 74 20 70 6f |      ;a|djust po|
|00003cd0| 69 6e 74 65 72 20 61 6e | 64 20 73 74 6f 72 65 00 |inter an|d store.|
|00003ce0| 20 20 80 6f 20 20 20 20 | 64 37 2c 27 62 69 74 5f |  .o    |d7,'bit_|
|00003cf0| 6c 6f 6f 70 20 20 20 20 | 20 20 20 20 20 20 20 20 |loop    |        |
|00003d00| 20 20 20 20 20 3b 6c 6f | 6f 70 20 66 6f 72 20 61 |     ;lo|op for a|
|00003d10| 6c 6c 20 62 69 74 70 6c | 61 6e 65 73 00 20 20 80 |ll bitpl|anes.  .|
|00003d20| 6f 20 20 20 20 64 36 2c | 27 58 6c 6f 6f 70 20 20 |o    d6,|'Xloop  |
|00003d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003d40| 20 20 3b 6c 6f 6f 70 20 | 66 6f 72 20 61 6c 6c 20 |  ;loop |for all |
|00003d50| 6f 66 20 77 69 64 74 68 | 00 20 20 80 89 2e 77 20 |of width|.  ...w |
|00003d60| 20 20 64 33 20 20 20 20 | 20 20 20 20 20 20 20 20 |  d3    |        |
|00003d70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00003d80| 4e 4f 54 20 6d 61 73 6b | 20 66 6f 72 20 6e 65 78 |NOT mask| for nex|
|00003d90| 74 20 6c 69 6e 65 00 00 | 27 43 6c 65 61 72 5f 61 |t line..|'Clear_a|
|00003da0| 5f 6c 69 6e 65 00 20 20 | 80 b0 2e 77 20 20 20 64 |_line.  |...w   d|
|00003db0| 34 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4       |        |
|00003dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 64 6f 20 |        |    ;do |
|00003dd0| 74 68 69 73 20 6c 69 6e | 65 3f 00 20 20 80 4f 20 |this lin|e?.  .O |
|00003de0| 20 20 20 20 27 45 6e 64 | 5f 6c 6f 6f 70 20 20 20 |    'End|_loop   |
|00003df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003e00| 20 3b 6e 6f 20 2d 20 62 | 72 61 6e 63 68 00 20 20 | ;no - b|ranch.  |
|00003e10| 80 7a 20 20 20 20 20 64 | 65 73 74 5f 61 64 64 28 |.z     d|est_add(|
|00003e20| 70 63 29 2c 61 31 20 20 | 20 20 20 20 20 20 20 20 |pc),a1  |        |
|00003e30| 20 20 20 20 3b 67 65 74 | 20 70 6f 69 6e 74 65 72 |    ;get| pointer|
|00003e40| 20 61 72 72 61 79 00 20 | 20 80 7e 2e 77 20 20 45 | array. | .~.w  E|
|00003e50| 57 57 69 64 74 68 2c 64 | 36 20 20 20 20 20 20 20 |WWidth,d|6       |
|00003e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 67 65 74 |        |    ;get|
|00003e70| 20 77 69 64 74 68 00 27 | 58 6c 6f 6f 70 32 00 20 | width.'|Xloop2. |
|00003e80| 20 80 7e 2e 77 20 20 42 | 44 65 70 74 68 2c 64 37 | .~.w  B|Depth,d7|
|00003e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ea0| 20 20 20 20 3b 67 65 74 | 20 64 65 70 74 68 00 20 |    ;get| depth. |
|00003eb0| 20 80 7e 2e 6c 20 20 61 | 31 2c 61 30 20 20 20 20 | .~.l  a|1,a0    |
|00003ec0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003ed0| 20 20 20 20 3b 67 65 74 | 20 61 72 72 61 79 00 27 |    ;get| array.'|
|00003ee0| 62 69 74 5f 6c 6f 6f 70 | 32 00 20 20 80 7e 2e 6c |bit_loop|2.  .~.l|
|00003ef0| 20 20 28 61 30 29 2c 61 | 32 20 20 20 20 20 20 20 |  (a0),a|2       |
|00003f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |        |       ;|
|00003f10| 67 65 74 20 73 6f 75 72 | 63 65 20 62 69 74 70 6c |get sour|ce bitpl|
|00003f20| 61 6e 65 00 20 20 80 7e | 2e 6c 20 20 34 28 61 30 |ane.  .~|.l  4(a0|
|00003f30| 29 2c 61 33 20 20 20 20 | 20 20 20 20 20 20 20 20 |),a3    |        |
|00003f40| 20 20 20 20 20 20 20 20 | 20 3b 67 65 74 20 64 65 |        | ;get de|
|00003f50| 73 74 20 62 69 74 70 6c | 61 6e 65 00 20 20 80 7e |st bitpl|ane.  .~|
|00003f60| 2e 77 20 20 28 61 32 29 | 2c 28 61 33 29 20 20 20 |.w  (a2)|,(a3)   |
|00003f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00003f80| 20 3b 63 6f 70 79 20 64 | 61 74 61 20 6f 76 65 72 | ;copy d|ata over|
|00003f90| 00 20 20 80 40 2e 6c 20 | 20 23 32 2c 28 61 30 29 |.  .@.l | #2,(a0)|
|00003fa0| 2b 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |+       |        |
|00003fb0| 20 20 20 20 20 20 3b 61 | 64 6a 75 73 74 20 70 6f |      ;a|djust po|
|00003fc0| 69 6e 74 65 72 00 20 20 | 80 40 2e 6c 20 20 23 32 |inter.  |.@.l  #2|
|00003fd0| 2c 28 61 30 29 2b 20 20 | 20 20 20 20 20 20 20 20 |,(a0)+  |        |
|00003fe0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 61 64 6a 75 |        |   ;adju|
|00003ff0| 73 74 20 70 6f 69 6e 74 | 65 72 00 20 20 80 6f 20 |st point|er.  .o |
|00004000| 20 20 20 64 37 2c 27 62 | 69 74 5f 6c 6f 6f 70 32 |   d7,'b|it_loop2|
|00004010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004020| 3b 6c 6f 6f 70 20 66 6f | 72 20 61 6c 6c 20 62 69 |;loop fo|r all bi|
|00004030| 74 70 6c 61 6e 65 73 00 | 00 20 20 80 6f 20 20 20 |tplanes.|.  .o   |
|00004040| 20 64 36 2c 27 58 6c 6f | 6f 70 32 20 20 20 20 20 | d6,'Xlo|op2     |
|00004050| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 6c |        |      ;l|
|00004060| 6f 6f 70 20 66 6f 72 20 | 61 6c 6c 20 6f 66 20 77 |oop for |all of w|
|00004070| 69 64 74 68 00 00 27 45 | 6e 64 5f 6c 6f 6f 70 00 |idth..'E|nd_loop.|
|00004080| 20 20 80 7e 2e 6c 20 20 | 64 65 6c 61 79 5f 74 69 |  .~.l  |delay_ti|
|00004090| 6d 65 72 2c 64 37 20 20 | 20 20 20 20 20 20 20 20 |mer,d7  |        |
|000040a0| 20 20 20 20 20 3b 67 65 | 74 20 64 65 6c 61 79 20 |     ;ge|t delay |
|000040b0| 76 61 6c 75 65 00 27 53 | 6c 6f 77 5f 64 6f 77 6e |value.'S|low_down|
|000040c0| 5f 6c 6f 6f 70 00 20 20 | 80 aa 2e 6c 20 20 23 31 |_loop.  |...l  #1|
|000040d0| 2c 64 37 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,d7     |        |
|000040e0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 73 69 6d 70 |        |   ;simp|
|000040f0| 6c 65 20 69 6e 73 74 72 | 75 63 74 69 6f 6e 00 20 |le instr|uction. |
|00004100| 20 80 50 20 20 20 20 20 | 27 53 6c 6f 77 5f 64 6f | .P     |'Slow_do|
|00004110| 77 6e 5f 6c 6f 6f 70 20 | 20 20 20 20 20 20 20 20 |wn_loop |        |
|00004120| 20 20 20 20 20 3b 6c 6f | 6f 70 20 75 6e 74 69 6c |     ;lo|op until|
|00004130| 20 30 00 00 20 20 80 40 | 2e 77 20 20 23 31 2c 64 | 0..  .@|.w  #1,d|
|00004140| 34 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4       |        |
|00004150| 20 20 20 20 20 20 20 20 | 20 3b 61 64 6a 75 73 74 |        | ;adjust|
|00004160| 20 63 6f 75 6e 74 65 72 | 00 20 20 80 aa 2e 77 20 | counter|.  ...w |
|00004170| 20 23 31 2c 64 35 20 20 | 20 20 20 20 20 20 20 20 | #1,d5  |        |
|00004180| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 61 |        |      ;a|
|00004190| 64 6a 75 73 74 20 63 6f | 75 6e 74 65 72 00 20 20 |djust co|unter.  |
|000041a0| 80 5d 2e 77 20 20 23 2d | 32 30 2c 64 35 20 20 20 |.].w  #-|20,d5   |
|000041b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000041c0| 20 20 20 3b 69 73 20 69 | 74 20 61 6c 6c 20 64 6f |   ;is i|t all do|
|000041d0| 6e 65 3f 00 20 20 80 50 | 20 20 20 20 20 27 4d 61 |ne?.  .P|     'Ma|
|000041e0| 69 6e 5f 6c 6f 6f 70 20 | 20 20 20 20 20 20 20 20 |in_loop |        |
|000041f0| 20 20 20 20 20 20 20 20 | 20 20 3b 6c 6f 6f 70 20 |        |  ;loop |
|00004200| 75 6e 74 69 6c 20 69 74 | 20 69 73 00 00 20 20 80 |until it| is..  .|
|00004210| 82 2e 6c 20 28 61 37 29 | 2b 2c 61 34 2d 61 36 20 |..l (a7)|+,a4-a6 |
|00004220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004230| 20 3b 72 65 73 74 6f 72 | 65 20 72 65 67 69 73 74 | ;restor|e regist|
|00004240| 65 72 73 00 20 20 80 94 | 20 20 20 20 20 20 20 20 |ers.  ..|        |
|00004250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00004260| 20 20 20 20 20 20 20 20 | 20 20 3b 61 6e 64 20 65 |        |  ;and e|
|00004270| 78 69 74 00 00 20 20 80 | 27 00 45 57 57 69 64 74 |xit..  .|'.EWWidt|
|00004280| 68 3a 20 20 20 20 80 25 | 2e 77 20 20 30 00 42 48 |h:    .%|.w  0.BH|
|00004290| 65 69 67 68 74 3a 20 20 | 20 20 80 25 2e 77 20 20 |eight:  |  .%.w  |
|000042a0| 30 00 42 44 65 70 74 68 | 3a 20 20 20 20 20 80 25 |0.BDepth|:     .%|
|000042b0| 2e 77 20 20 30 00 64 65 | 6c 61 79 5f 74 69 6d 65 |.w  0.de|lay_time|
|000042c0| 72 3a 80 25 2e 6c 20 20 | 30 00 00 3b 3d 3d 3d 3d |r:.%.l  |0..;====|
|000042d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000042e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 00 00 5f 7a |========|====.._z|
|000042f0| 6f 6f 6d 78 34 5f 78 79 | 3a 00 20 20 80 7e 2e 62 |oomx4_xy|:.  .~.b|
|00004300| 20 20 2d 31 28 61 32 29 | 2c 64 37 00 20 20 80 58 |  -1(a2)|,d7.  .X|
|00004310| 20 20 20 20 20 5f 7a 6f | 6f 6d 78 34 00 5f 7a 6f |     _zo|omx4._zo|
|00004320| 6f 6d 78 79 5f 6e 6f 5f | 78 79 3a 00 20 20 80 5b |omxy_no_|xy:.  .[|
|00004330| 2e 62 20 20 20 64 37 00 | 2e 5f 7a 6f 6f 6d 78 34 |.b   d7.|._zoomx4|
|00004340| 3a 00 20 20 80 b0 2e 6c | 20 20 20 7a 6f 6f 6d 78 |:.  ...l|   zoomx|
|00004350| 34 74 61 62 6c 65 00 20 | 20 80 50 20 20 20 20 20 |4table. | .P     |
|00004360| 27 79 75 70 00 20 20 80 | 94 00 27 79 75 70 3a 00 |'yup.  .|..'yup:.|
|00004370| 20 20 80 7e 2e 62 20 20 | 64 37 2c 64 30 00 20 20 |  .~.b  |d7,d0.  |
|00004380| 80 82 2e 6c 20 64 30 2d | 64 37 2f 61 30 2d 61 36 |...l d0-|d7/a0-a6|
|00004390| 2c 2d 28 61 37 29 00 20 | 20 80 7e 2e 6c 20 20 64 |,-(a7). | .~.l  d|
|000043a0| 32 2c 64 36 00 20 20 80 | 7e 2e 6c 20 20 64 33 2c |2,d6.  .|~.l  d3,|
|000043b0| 64 37 00 00 20 20 80 81 | 2e 6c 20 23 30 2c 64 32 |d7..  ..|.l #0,d2|
|000043c0| 00 20 20 80 7e 2e 62 20 | 20 35 28 61 30 29 2c 64 |.  .~.b | 5(a0),d|
|000043d0| 32 00 20 20 80 aa 2e 62 | 20 20 23 31 2c 64 32 20 |2.  ...b|  #1,d2 |
|000043e0| 20 20 20 20 20 20 3b 20 | 61 64 6a 75 73 74 20 66 |      ; |adjust f|
|000043f0| 6f 72 20 64 62 72 61 00 | 00 20 20 80 7a 20 20 20 |or dbra.|.  .z   |
|00004400| 20 20 38 28 61 30 29 2c | 61 35 00 20 20 80 7a 20 |  8(a0),|a5.  .z |
|00004410| 20 20 20 20 38 28 61 31 | 29 2c 61 36 00 00 20 20 |    8(a1|),a6..  |
|00004420| 80 7e 2e 6c 20 20 7a 6f | 6f 6d 78 34 74 61 62 6c |.~.l  zo|omx4tabl|
|00004430| 65 2c 61 34 00 00 20 20 | 80 45 2e 77 20 20 20 23 |e,a4..  |.E.w   #|
|00004440| 33 2c 64 34 00 20 20 80 | 7e 2e 77 20 20 64 34 2c |3,d4.  .|~.w  d4,|
|00004450| 64 33 00 20 20 80 aa 2e | 77 20 20 23 31 2c 64 34 |d3.  ...|w  #1,d4|
|00004460| 20 20 20 20 20 20 20 3b | 20 61 64 6a 75 73 74 20 |       ;| adjust |
|00004470| 66 6f 72 20 64 62 72 61 | 00 20 20 80 4f 20 20 20 |for dbra|.  .O   |
|00004480| 20 20 74 68 65 5f 65 6e | 64 00 20 20 80 aa 2e 77 |  the_en|d.  ...w|
|00004490| 20 20 23 31 2c 64 35 20 | 20 20 20 20 20 20 3b 20 |  #1,d5 |      ; |
|000044a0| 61 64 6a 75 73 74 20 66 | 6f 72 20 64 62 72 61 00 |adjust f|or dbra.|
|000044b0| 20 20 80 4f 20 20 20 20 | 20 74 68 65 5f 65 6e 64 |  .O    | the_end|
|000044c0| 00 20 20 80 7e 2e 77 20 | 20 64 34 2c 78 7a 6f 6f |.  .~.w | d4,xzoo|
|000044d0| 6d 00 20 20 80 7e 2e 77 | 20 20 64 35 2c 79 7a 6f |m.  .~.w|  d5,yzo|
|000044e0| 6f 6d 00 00 20 20 80 5d | 2e 62 20 20 23 31 2c 64 |om..  .]|.b  #1,d|
|000044f0| 30 00 20 20 80 48 20 20 | 20 20 20 58 34 5f 78 00 |0.  .H  |   X4_x.|
|00004500| 20 20 80 5d 2e 62 20 20 | 23 32 2c 64 30 00 20 20 |  .].b  |#2,d0.  |
|00004510| 80 48 20 20 20 20 20 58 | 34 5f 79 00 00 3b 43 61 |.H     X|4_y..;Ca|
|00004520| 6c 63 75 6c 61 74 65 20 | 73 6f 75 72 63 65 20 6d |lculate |source m|
|00004530| 6f 64 00 20 20 80 81 2e | 6c 20 23 30 2c 64 35 00 |od.  ...|l #0,d5.|
|00004540| 20 20 80 7e 2e 77 20 20 | 2d 38 28 61 35 29 2c 64 |  .~.w  |-8(a5),d|
|00004550| 35 00 20 20 80 a7 2e 77 | 20 20 20 64 33 2c 64 35 |5.  ...w|   d3,d5|
|00004560| 00 00 3b 43 61 6c 63 75 | 6c 61 74 65 20 64 65 73 |..;Calcu|late des|
|00004570| 74 20 6d 6f 64 00 20 20 | 80 81 2e 6c 20 23 30 2c |t mod.  |...l #0,|
|00004580| 64 34 00 20 20 80 7e 2e | 77 20 20 2d 38 28 61 36 |d4.  .~.|w  -8(a6|
|00004590| 29 2c 64 34 00 20 20 80 | 7e 2e 77 20 20 64 34 2c |),d4.  .|~.w  d4,|
|000045a0| 62 79 74 65 73 70 65 72 | 6c 69 6e 65 2b 32 00 20 |bytesper|line+2. |
|000045b0| 20 80 44 2e 77 20 20 20 | 23 32 2c 64 34 00 20 20 | .D.w   |#2,d4.  |
|000045c0| 80 44 2e 77 20 20 20 23 | 32 2c 64 33 00 20 20 80 |.D.w   #|2,d3.  .|
|000045d0| a7 2e 77 20 20 20 64 33 | 2c 64 34 00 20 20 80 7e |..w   d3|,d4.  .~|
|000045e0| 2e 6c 20 20 64 34 2c 64 | 33 00 00 20 20 80 7e 2e |.l  d4,d|3..  .~.|
|000045f0| 6c 20 20 61 35 2c 73 6f | 75 72 63 65 62 69 74 70 |l  a5,so|urcebitp|
|00004600| 6c 61 6e 65 73 00 00 3b | 58 34 20 2d 20 78 20 61 |lanes..;|X4 - x a|
|00004610| 6e 64 20 79 00 27 78 34 | 64 6f 5f 62 69 74 70 6c |nd y.'x4|do_bitpl|
|00004620| 61 6e 65 73 00 20 20 80 | 7e 2e 6c 20 20 73 6f 75 |anes.  .|~.l  sou|
|00004630| 72 63 65 62 69 74 70 6c | 61 6e 65 73 2c 61 35 00 |rcebitpl|anes,a5.|
|00004640| 20 20 80 3d 2e 6c 20 20 | 20 23 34 2c 73 6f 75 72 |  .=.l  | #4,sour|
|00004650| 63 65 62 69 74 70 6c 61 | 6e 65 73 00 20 20 80 7e |cebitpla|nes.  .~|
|00004660| 2e 6c 20 20 28 61 35 29 | 2b 2c 61 30 00 20 20 80 |.l  (a5)|+,a0.  .|
|00004670| 3d 2e 6c 20 20 20 64 36 | 2c 61 30 00 20 20 80 7e |=.l   d6|,a0.  .~|
|00004680| 2e 6c 20 20 28 61 36 29 | 2b 2c 61 31 00 20 20 80 |.l  (a6)|+,a1.  .|
|00004690| 3d 2e 6c 20 20 20 64 37 | 2c 61 31 00 00 20 20 80 |=.l   d7|,a1..  .|
|000046a0| 7e 2e 6c 20 20 61 31 2c | 61 32 00 20 20 80 3d 2e |~.l  a1,|a2.  .=.|
|000046b0| 6c 20 20 20 62 79 74 65 | 73 70 65 72 6c 69 6e 65 |l   byte|sperline|
|000046c0| 2c 61 32 00 20 20 80 7e | 2e 6c 20 20 61 32 2c 61 |,a2.  .~|.l  a2,a|
|000046d0| 33 00 20 20 80 3d 2e 6c | 20 20 20 62 79 74 65 73 |3.  .=.l|   bytes|
|000046e0| 70 65 72 6c 69 6e 65 2c | 61 33 00 20 20 80 7e 2e |perline,|a3.  .~.|
|000046f0| 6c 20 20 61 33 2c 61 35 | 00 20 20 80 3d 2e 6c 20 |l  a3,a5|.  .=.l |
|00004700| 20 20 62 79 74 65 73 70 | 65 72 6c 69 6e 65 2c 61 |  bytesp|erline,a|
|00004710| 35 00 00 20 20 80 7e 2e | 77 20 20 79 7a 6f 6f 6d |5..  .~.|w  yzoom|
|00004720| 2c 64 31 00 27 78 34 6e | 65 78 74 5f 6c 69 6e 65 |,d1.'x4n|ext_line|
|00004730| 00 20 20 80 7e 2e 77 20 | 20 78 7a 6f 6f 6d 2c 64 |.  .~.w | xzoom,d|
|00004740| 30 00 27 78 34 64 6f 5f | 6c 69 6e 65 00 20 20 80 |0.'x4do_|line.  .|
|00004750| 81 2e 6c 20 23 30 2c 64 | 34 00 20 20 80 7e 2e 62 |..l #0,d|4.  .~.b|
|00004760| 20 20 28 61 30 29 2b 2c | 64 34 00 20 20 80 44 2e |  (a0)+,|d4.  .D.|
|00004770| 77 20 20 20 23 32 2c 64 | 34 00 20 20 80 7e 2e 6c |w   #2,d|4.  .~.l|
|00004780| 20 20 30 28 61 34 2c 64 | 34 2e 77 29 2c 64 34 00 |  0(a4,d|4.w),d4.|
|00004790| 00 20 20 80 7e 2e 6c 20 | 20 64 34 2c 28 61 31 29 |.  .~.l | d4,(a1)|
|000047a0| 2b 00 20 20 80 7e 2e 6c | 20 20 64 34 2c 28 61 32 |+.  .~.l|  d4,(a2|
|000047b0| 29 2b 00 20 20 80 7e 2e | 6c 20 20 64 34 2c 28 61 |)+.  .~.|l  d4,(a|
|000047c0| 33 29 2b 00 20 20 80 7e | 2e 6c 20 20 64 34 2c 28 |3)+.  .~|.l  d4,(|
|000047d0| 61 35 29 2b 00 00 20 20 | 80 6f 20 20 20 20 64 30 |a5)+..  |.o    d0|
|000047e0| 2c 27 78 34 64 6f 5f 6c | 69 6e 65 00 00 20 20 80 |,'x4do_l|ine..  .|
|000047f0| 3d 2e 6c 20 20 20 64 35 | 2c 61 30 00 20 20 80 3d |=.l   d5|,a0.  .=|
|00004800| 2e 6c 20 20 20 64 33 2c | 61 31 00 20 20 80 3d 2e |.l   d3,|a1.  .=.|
|00004810| 6c 20 20 20 64 33 2c 61 | 32 00 20 20 80 3d 2e 6c |l   d3,a|2.  .=.l|
|00004820| 20 20 20 64 33 2c 61 33 | 00 20 20 80 3d 2e 6c 20 |   d3,a3|.  .=.l |
|00004830| 20 20 64 33 2c 61 35 00 | 00 20 20 80 6f 20 20 20 |  d3,a5.|.  .o   |
|00004840| 20 64 31 2c 27 78 34 6e | 65 78 74 5f 6c 69 6e 65 | d1,'x4n|ext_line|
|00004850| 00 00 20 20 80 6f 20 20 | 20 20 64 32 2c 27 78 34 |..  .o  |  d2,'x4|
|00004860| 64 6f 5f 62 69 74 70 6c | 61 6e 65 73 00 20 20 80 |do_bitpl|anes.  .|
|00004870| 82 2e 6c 20 28 61 37 29 | 2b 2c 64 30 2d 64 37 2f |..l (a7)|+,d0-d7/|
|00004880| 61 30 2d 61 36 00 20 20 | 80 94 00 00 20 20 73 6f |a0-a6.  |....  so|
|00004890| 75 72 63 65 62 69 74 70 | 6c 61 6e 65 73 3a 20 80 |urcebitp|lanes: .|
|000048a0| 25 2e 6c 20 30 00 00 58 | 34 5f 78 3a 00 3b 43 61 |%.l 0..X|4_x:.;Ca|
|000048b0| 6c 63 75 6c 61 74 65 20 | 73 6f 75 72 63 65 20 6d |lculate |source m|
|000048c0| 6f 64 00 20 20 80 81 2e | 6c 20 23 30 2c 64 35 00 |od.  ...|l #0,d5.|
|000048d0| 20 20 80 7e 2e 77 20 20 | 2d 38 28 61 35 29 2c 64 |  .~.w  |-8(a5),d|
|000048e0| 35 00 20 20 80 a7 2e 77 | 20 20 20 64 33 2c 64 35 |5.  ...w|   d3,d5|
|000048f0| 00 00 3b 43 61 6c 63 75 | 6c 61 74 65 20 64 65 73 |..;Calcu|late des|
|00004900| 74 20 6d 6f 64 00 20 20 | 80 81 2e 6c 20 23 30 2c |t mod.  |...l #0,|
|00004910| 64 34 00 20 20 80 7e 2e | 77 20 20 2d 38 28 61 36 |d4.  .~.|w  -8(a6|
|00004920| 29 2c 64 34 00 20 20 80 | 44 2e 77 20 20 20 23 32 |),d4.  .|D.w   #2|
|00004930| 2c 64 33 00 20 20 80 a7 | 2e 77 20 20 20 64 33 2c |,d3.  ..|.w   d3,|
|00004940| 64 34 00 20 20 80 7e 2e | 6c 20 20 64 34 2c 64 33 |d4.  .~.|l  d4,d3|
|00004950| 00 00 27 78 34 64 6f 5f | 62 69 74 70 6c 61 6e 65 |..'x4do_|bitplane|
|00004960| 73 00 20 20 80 7e 2e 6c | 20 20 28 61 35 29 2b 2c |s.  .~.l|  (a5)+,|
|00004970| 61 30 00 20 20 80 3d 2e | 6c 20 20 20 64 36 2c 61 |a0.  .=.|l   d6,a|
|00004980| 30 00 20 20 80 7e 2e 6c | 20 20 28 61 36 29 2b 2c |0.  .~.l|  (a6)+,|
|00004990| 61 31 00 20 20 80 3d 2e | 6c 20 20 20 64 37 2c 61 |a1.  .=.|l   d7,a|
|000049a0| 31 00 20 20 80 7e 2e 77 | 20 20 79 7a 6f 6f 6d 2c |1.  .~.w|  yzoom,|
|000049b0| 64 31 00 27 78 34 6e 65 | 78 74 5f 6c 69 6e 65 00 |d1.'x4ne|xt_line.|
|000049c0| 20 20 80 7e 2e 77 20 20 | 78 7a 6f 6f 6d 2c 64 30 |  .~.w  |xzoom,d0|
|000049d0| 00 3b 20 20 4d 4f 56 45 | 2e 6c 20 20 61 30 2c 61 |.;  MOVE|.l  a0,a|
|000049e0| 32 00 3b 20 20 4d 4f 56 | 45 2e 6c 20 20 61 31 2c |2.;  MOV|E.l  a1,|
|000049f0| 61 33 00 27 78 34 64 6f | 5f 6c 69 6e 65 00 20 20 |a3.'x4do|_line.  |
|00004a00| 80 81 2e 6c 20 23 30 2c | 64 34 00 20 20 80 7e 2e |...l #0,|d4.  .~.|
|00004a10| 62 20 20 28 61 30 29 2b | 2c 64 34 00 20 20 80 8e |b  (a0)+|,d4.  ..|
|00004a20| 2e 77 20 20 20 23 32 2c | 64 34 00 20 20 80 7e 2e |.w   #2,|d4.  .~.|
|00004a30| 6c 20 20 30 28 61 34 2c | 64 34 2e 77 29 2c 28 61 |l  0(a4,|d4.w),(a|
|00004a40| 31 29 2b 00 00 20 20 80 | 6f 20 20 20 20 64 30 2c |1)+..  .|o    d0,|
|00004a50| 27 78 34 64 6f 5f 6c 69 | 6e 65 00 00 20 20 80 3d |'x4do_li|ne..  .=|
|00004a60| 2e 6c 20 20 20 64 35 2c | 61 30 00 20 20 80 3d 2e |.l   d5,|a0.  .=.|
|00004a70| 6c 20 20 20 64 33 2c 61 | 31 00 00 20 20 80 6f 20 |l   d3,a|1..  .o |
|00004a80| 20 20 20 64 31 2c 27 78 | 34 6e 65 78 74 5f 6c 69 |   d1,'x|4next_li|
|00004a90| 6e 65 00 00 20 20 80 6f | 20 20 20 20 64 32 2c 27 |ne..  .o|    d2,'|
|00004aa0| 78 34 64 6f 5f 62 69 74 | 70 6c 61 6e 65 73 00 20 |x4do_bit|planes. |
|00004ab0| 20 80 82 2e 6c 20 28 61 | 37 29 2b 2c 64 30 2d 64 | ...l (a|7)+,d0-d|
|00004ac0| 37 2f 61 30 2d 61 36 00 | 20 20 80 94 00 00 58 34 |7/a0-a6.|  ....X4|
|00004ad0| 5f 79 3a 00 3b 43 61 6c | 63 75 6c 61 74 65 20 73 |_y:.;Cal|culate s|
|00004ae0| 6f 75 72 63 65 20 6d 6f | 64 00 20 20 80 81 2e 6c |ource mo|d.  ...l|
|00004af0| 20 23 30 2c 64 35 00 20 | 20 80 7e 2e 77 20 20 2d | #0,d5. | .~.w  -|
|00004b00| 38 28 61 35 29 2c 64 35 | 00 20 20 80 a7 2e 77 20 |8(a5),d5|.  ...w |
|00004b10| 20 20 64 33 2c 64 35 00 | 00 3b 43 61 6c 63 75 6c |  d3,d5.|.;Calcul|
|00004b20| 61 74 65 20 64 65 73 74 | 20 6d 6f 64 00 20 20 80 |ate dest| mod.  .|
|00004b30| 81 2e 6c 20 23 30 2c 64 | 34 00 20 20 80 7e 2e 77 |..l #0,d|4.  .~.w|
|00004b40| 20 20 2d 38 28 61 36 29 | 2c 64 34 00 20 20 80 7e |  -8(a6)|,d4.  .~|
|00004b50| 2e 77 20 20 64 34 2c 62 | 79 74 65 73 70 65 72 6c |.w  d4,b|ytesperl|
|00004b60| 69 6e 65 2b 32 00 20 20 | 80 44 2e 77 20 20 20 23 |ine+2.  |.D.w   #|
|00004b70| 32 2c 64 34 00 20 20 80 | a7 2e 77 20 20 20 64 33 |2,d4.  .|..w   d3|
|00004b80| 2c 64 34 00 20 20 80 7e | 2e 6c 20 20 64 34 2c 64 |,d4.  .~|.l  d4,d|
|00004b90| 33 00 00 20 20 80 7e 2e | 6c 20 20 61 35 2c 73 6f |3..  .~.|l  a5,so|
|00004ba0| 75 72 63 65 62 69 74 70 | 6c 61 6e 65 73 00 00 27 |urcebitp|lanes..'|
|00004bb0| 78 34 64 6f 5f 62 69 74 | 70 6c 61 6e 65 73 00 20 |x4do_bit|planes. |
|00004bc0| 20 80 7e 2e 6c 20 20 73 | 6f 75 72 63 65 62 69 74 | .~.l  s|ourcebit|
|00004bd0| 70 6c 61 6e 65 73 2c 61 | 35 00 20 20 80 3d 2e 6c |planes,a|5.  .=.l|
|00004be0| 20 20 20 23 34 2c 73 6f | 75 72 63 65 62 69 74 70 |   #4,so|urcebitp|
|00004bf0| 6c 61 6e 65 73 00 20 20 | 80 7e 2e 6c 20 20 28 61 |lanes.  |.~.l  (a|
|00004c00| 35 29 2b 2c 61 30 00 20 | 20 80 3d 2e 6c 20 20 20 |5)+,a0. | .=.l   |
|00004c10| 64 36 2c 61 30 00 20 20 | 80 7e 2e 6c 20 20 28 61 |d6,a0.  |.~.l  (a|
|00004c20| 36 29 2b 2c 61 31 00 20 | 20 80 3d 2e 6c 20 20 20 |6)+,a1. | .=.l   |
|00004c30| 64 37 2c 61 31 00 00 20 | 20 80 7e 2e 6c 20 20 61 |d7,a1.. | .~.l  a|
|00004c40| 31 2c 61 32 00 20 20 80 | 3d 2e 6c 20 20 20 62 79 |1,a2.  .|=.l   by|
|00004c50| 74 65 73 70 65 72 6c 69 | 6e 65 2c 61 32 00 20 20 |tesperli|ne,a2.  |
|00004c60| 80 7e 2e 6c 20 20 61 32 | 2c 61 33 00 20 20 80 3d |.~.l  a2|,a3.  .=|
|00004c70| 2e 6c 20 20 20 62 79 74 | 65 73 70 65 72 6c 69 6e |.l   byt|esperlin|
|00004c80| 65 2c 61 33 00 20 20 80 | 7e 2e 6c 20 20 61 33 2c |e,a3.  .|~.l  a3,|
|00004c90| 61 35 00 20 20 80 3d 2e | 6c 20 20 20 62 79 74 65 |a5.  .=.|l   byte|
|00004ca0| 73 70 65 72 6c 69 6e 65 | 2c 61 35 00 00 20 20 80 |sperline|,a5..  .|
|00004cb0| 7e 2e 77 20 20 79 7a 6f | 6f 6d 2c 64 31 00 27 78 |~.w  yzo|om,d1.'x|
|00004cc0| 34 6e 65 78 74 5f 6c 69 | 6e 65 00 20 20 80 7e 2e |4next_li|ne.  .~.|
|00004cd0| 77 20 20 78 7a 6f 6f 6d | 2c 64 30 00 27 78 34 64 |w  xzoom|,d0.'x4d|
|00004ce0| 6f 5f 6c 69 6e 65 00 20 | 20 80 7e 2e 62 20 20 28 |o_line. | .~.b  (|
|00004cf0| 61 30 29 2b 2c 64 34 00 | 00 20 20 80 7e 2e 62 20 |a0)+,d4.|.  .~.b |
|00004d00| 20 64 34 2c 28 61 31 29 | 2b 00 20 20 80 7e 2e 62 | d4,(a1)|+.  .~.b|
|00004d10| 20 20 64 34 2c 28 61 32 | 29 2b 00 20 20 80 7e 2e |  d4,(a2|)+.  .~.|
|00004d20| 62 20 20 64 34 2c 28 61 | 33 29 2b 00 20 20 80 7e |b  d4,(a|3)+.  .~|
|00004d30| 2e 62 20 20 64 34 2c 28 | 61 35 29 2b 00 00 20 20 |.b  d4,(|a5)+..  |
|00004d40| 80 6f 20 20 20 20 64 30 | 2c 27 78 34 64 6f 5f 6c |.o    d0|,'x4do_l|
|00004d50| 69 6e 65 00 00 20 20 80 | 3d 2e 6c 20 20 20 64 35 |ine..  .|=.l   d5|
|00004d60| 2c 61 30 00 20 20 80 3d | 2e 6c 20 20 20 64 33 2c |,a0.  .=|.l   d3,|
|00004d70| 61 31 00 20 20 80 3d 2e | 6c 20 20 20 64 33 2c 61 |a1.  .=.|l   d3,a|
|00004d80| 32 00 20 20 80 3d 2e 6c | 20 20 20 64 33 2c 61 33 |2.  .=.l|   d3,a3|
|00004d90| 00 20 20 80 3d 2e 6c 20 | 20 20 64 33 2c 61 35 00 |.  .=.l |  d3,a5.|
|00004da0| 00 20 20 80 6f 20 20 20 | 20 64 31 2c 27 78 34 6e |.  .o   | d1,'x4n|
|00004db0| 65 78 74 5f 6c 69 6e 65 | 00 00 20 20 80 6f 20 20 |ext_line|..  .o  |
|00004dc0| 20 20 64 32 2c 27 78 34 | 64 6f 5f 62 69 74 70 6c |  d2,'x4|do_bitpl|
|00004dd0| 61 6e 65 73 00 74 68 65 | 5f 65 6e 64 3a 00 20 20 |anes.the|_end:.  |
|00004de0| 80 82 2e 6c 20 28 61 37 | 29 2b 2c 64 30 2d 64 37 |...l (a7|)+,d0-d7|
|00004df0| 2f 61 30 2d 61 36 00 20 | 20 80 94 00 00 2e 5f 7a |/a0-a6. | ....._z|
|00004e00| 6f 6f 6d 78 32 3a 00 20 | 20 80 b0 2e 6c 20 20 20 |oomx2:. | ...l   |
|00004e10| 7a 6f 6f 6d 78 32 74 61 | 62 6c 65 00 20 20 80 50 |zoomx2ta|ble.  .P|
|00004e20| 20 20 20 20 20 27 79 75 | 70 00 20 20 80 94 00 27 |     'yu|p.  ...'|
|00004e30| 79 75 70 3a 00 20 20 80 | 82 2e 6c 20 64 30 2d 64 |yup:.  .|..l d0-d|
|00004e40| 37 2f 61 30 2d 61 36 2c | 2d 28 61 37 29 00 00 20 |7/a0-a6,|-(a7).. |
|00004e50| 20 80 7e 2e 6c 20 20 64 | 32 2c 64 36 00 20 20 80 | .~.l  d|2,d6.  .|
|00004e60| 7e 2e 6c 20 20 64 33 2c | 64 37 00 00 20 20 80 81 |~.l  d3,|d7..  ..|
|00004e70| 2e 6c 20 23 30 2c 64 32 | 00 20 20 80 7e 2e 62 20 |.l #0,d2|.  .~.b |
|00004e80| 20 35 28 61 30 29 2c 64 | 32 00 20 20 80 aa 2e 62 | 5(a0),d|2.  ...b|
|00004e90| 20 20 23 31 2c 64 32 20 | 20 20 20 20 20 20 3b 20 |  #1,d2 |      ; |
|00004ea0| 61 64 6a 75 73 74 20 66 | 6f 72 20 64 62 72 61 00 |adjust f|or dbra.|
|00004eb0| 00 20 20 80 7a 20 20 20 | 20 20 38 28 61 30 29 2c |.  .z   |  8(a0),|
|00004ec0| 61 35 00 20 20 80 7a 20 | 20 20 20 20 38 28 61 31 |a5.  .z |    8(a1|
|00004ed0| 29 2c 61 36 00 00 20 20 | 80 7e 2e 6c 20 20 7a 6f |),a6..  |.~.l  zo|
|00004ee0| 6f 6d 78 32 74 61 62 6c | 65 2c 61 34 00 00 20 20 |omx2tabl|e,a4..  |
|00004ef0| 80 45 2e 77 20 20 20 23 | 33 2c 64 34 00 20 20 80 |.E.w   #|3,d4.  .|
|00004f00| 7e 2e 77 20 20 64 34 2c | 64 33 00 20 20 80 aa 2e |~.w  d4,|d3.  ...|
|00004f10| 77 20 20 23 31 2c 64 34 | 20 20 20 20 20 20 20 3b |w  #1,d4|       ;|
|00004f20| 20 61 64 6a 75 73 74 20 | 66 6f 72 20 64 62 72 61 | adjust |for dbra|
|00004f30| 00 20 20 80 4f 20 20 20 | 20 20 27 74 68 65 5f 65 |.  .O   |  'the_e|
|00004f40| 6e 64 00 20 20 80 aa 2e | 77 20 20 23 31 2c 64 35 |nd.  ...|w  #1,d5|
|00004f50| 20 20 20 20 20 20 20 3b | 20 61 64 6a 75 73 74 20 |       ;| adjust |
|00004f60| 66 6f 72 20 64 62 72 61 | 00 20 20 80 4f 20 20 20 |for dbra|.  .O   |
|00004f70| 20 20 27 74 68 65 5f 65 | 6e 64 00 20 20 80 7e 2e |  'the_e|nd.  .~.|
|00004f80| 77 20 20 64 34 2c 78 7a | 6f 6f 6d 00 20 20 80 7e |w  d4,xz|oom.  .~|
|00004f90| 2e 77 20 20 64 35 2c 79 | 7a 6f 6f 6d 00 00 3b 43 |.w  d5,y|zoom..;C|
|00004fa0| 61 6c 63 75 6c 61 74 65 | 20 73 6f 75 72 63 65 20 |alculate| source |
|00004fb0| 6d 6f 64 00 20 20 80 81 | 2e 6c 20 23 30 2c 64 35 |mod.  ..|.l #0,d5|
|00004fc0| 00 20 20 80 7e 2e 77 20 | 20 2d 38 28 61 35 29 2c |.  .~.w | -8(a5),|
|00004fd0| 64 35 00 20 20 80 a7 2e | 77 20 20 20 64 33 2c 64 |d5.  ...|w   d3,d|
|00004fe0| 35 00 00 3b 43 61 6c 63 | 75 6c 61 74 65 20 64 65 |5..;Calc|ulate de|
|00004ff0| 73 74 20 6d 6f 64 00 20 | 20 80 81 2e 6c 20 23 30 |st mod. | ...l #0|
|00005000| 2c 64 34 00 20 20 80 7e | 2e 77 20 20 2d 38 28 61 |,d4.  .~|.w  -8(a|
|00005010| 36 29 2c 64 34 00 20 20 | 80 7e 2e 77 20 20 64 34 |6),d4.  |.~.w  d4|
|00005020| 2c 62 79 74 65 73 70 65 | 72 6c 69 6e 65 2b 32 00 |,bytespe|rline+2.|
|00005030| 20 20 80 a7 2e 77 20 20 | 20 64 33 2c 64 34 00 20 |  ...w  | d3,d4. |
|00005040| 20 80 a7 2e 77 20 20 20 | 64 33 2c 64 34 00 20 20 | ...w   |d3,d4.  |
|00005050| 80 7e 2e 6c 20 20 64 34 | 2c 64 33 00 20 20 80 3d |.~.l  d4|,d3.  .=|
|00005060| 2e 77 20 20 20 2d 38 28 | 61 36 29 2c 64 33 00 00 |.w   -8(|a6),d3..|
|00005070| 27 78 32 64 6f 5f 62 69 | 74 70 6c 61 6e 65 73 00 |'x2do_bi|tplanes.|
|00005080| 20 20 80 7e 2e 6c 20 20 | 28 61 35 29 2b 2c 61 30 |  .~.l  |(a5)+,a0|
|00005090| 00 20 20 80 3d 2e 6c 20 | 20 20 64 36 2c 61 30 00 |.  .=.l |  d6,a0.|
|000050a0| 20 20 80 7e 2e 6c 20 20 | 28 61 36 29 2b 2c 61 31 |  .~.l  |(a6)+,a1|
|000050b0| 00 20 20 80 3d 2e 6c 20 | 20 20 64 37 2c 61 31 00 |.  .=.l |  d7,a1.|
|000050c0| 00 20 20 80 7e 2e 6c 20 | 20 61 31 2c 61 32 00 20 |.  .~.l | a1,a2. |
|000050d0| 20 80 3d 2e 6c 20 20 20 | 62 79 74 65 73 70 65 72 | .=.l   |bytesper|
|000050e0| 6c 69 6e 65 2c 61 32 00 | 20 20 80 7e 2e 77 20 20 |line,a2.|  .~.w  |
|000050f0| 79 7a 6f 6f 6d 2c 64 31 | 00 27 78 32 6e 65 78 74 |yzoom,d1|.'x2next|
|00005100| 5f 6c 69 6e 65 00 20 20 | 80 7e 2e 77 20 20 78 7a |_line.  |.~.w  xz|
|00005110| 6f 6f 6d 2c 64 30 00 27 | 78 32 64 6f 5f 6c 69 6e |oom,d0.'|x2do_lin|
|00005120| 65 00 20 20 80 81 2e 6c | 20 23 30 2c 64 34 00 20 |e.  ...l| #0,d4. |
|00005130| 20 80 7e 2e 62 20 20 28 | 61 30 29 2b 2c 64 34 00 | .~.b  (|a0)+,d4.|
|00005140| 20 20 80 44 2e 77 20 20 | 20 23 31 2c 64 34 00 20 |  .D.w  | #1,d4. |
|00005150| 20 80 7e 2e 77 20 20 30 | 28 61 34 2c 64 34 2e 77 | .~.w  0|(a4,d4.w|
|00005160| 29 2c 64 34 00 00 27 78 | 32 64 72 61 77 62 69 74 |),d4..'x|2drawbit|
|00005170| 73 00 20 20 80 7e 2e 77 | 20 20 64 34 2c 28 61 31 |s.  .~.w|  d4,(a1|
|00005180| 29 2b 00 20 20 80 7e 2e | 77 20 20 64 34 2c 28 61 |)+.  .~.|w  d4,(a|
|00005190| 32 29 2b 00 00 20 20 80 | 6f 20 20 20 20 64 30 2c |2)+..  .|o    d0,|
|000051a0| 27 78 32 64 6f 5f 6c 69 | 6e 65 00 00 20 20 80 3d |'x2do_li|ne..  .=|
|000051b0| 2e 6c 20 20 20 64 35 2c | 61 30 00 20 20 80 3d 2e |.l   d5,|a0.  .=.|
|000051c0| 6c 20 20 20 64 33 2c 61 | 31 00 20 20 80 3d 2e 6c |l   d3,a|1.  .=.l|
|000051d0| 20 20 20 64 33 2c 61 32 | 00 00 20 20 80 6f 20 20 |   d3,a2|..  .o  |
|000051e0| 20 20 64 31 2c 27 78 32 | 6e 65 78 74 5f 6c 69 6e |  d1,'x2|next_lin|
|000051f0| 65 00 00 20 20 80 6f 20 | 20 20 20 64 32 2c 27 78 |e..  .o |   d2,'x|
|00005200| 32 64 6f 5f 62 69 74 70 | 6c 61 6e 65 73 00 27 74 |2do_bitp|lanes.'t|
|00005210| 68 65 5f 65 6e 64 3a 00 | 20 20 80 82 2e 6c 20 28 |he_end:.|  ...l (|
|00005220| 61 37 29 2b 2c 64 30 2d | 64 37 2f 61 30 2d 61 36 |a7)+,d0-|d7/a0-a6|
|00005230| 00 20 20 80 94 00 00 2e | 5f 7a 6f 6f 6d 78 38 00 |.  .....|_zoomx8.|
|00005240| 20 20 80 b0 2e 6c 20 20 | 20 7a 6f 6f 6d 78 38 74 |  ...l  | zoomx8t|
|00005250| 61 62 6c 65 00 20 20 80 | 50 20 20 20 20 20 27 79 |able.  .|P     'y|
|00005260| 75 70 00 20 20 80 94 00 | 27 79 75 70 3a 00 20 20 |up.  ...|'yup:.  |
|00005270| 80 82 2e 6c 20 64 30 2d | 64 37 2f 61 30 2d 61 36 |...l d0-|d7/a0-a6|
|00005280| 2c 2d 28 61 37 29 00 00 | 20 20 80 7e 2e 6c 20 20 |,-(a7)..|  .~.l  |
|00005290| 64 32 2c 64 36 00 20 20 | 80 7e 2e 6c 20 20 64 33 |d2,d6.  |.~.l  d3|
|000052a0| 2c 64 37 00 00 20 20 80 | 81 2e 6c 20 23 30 2c 64 |,d7..  .|..l #0,d|
|000052b0| 32 00 20 20 80 7e 2e 62 | 20 20 35 28 61 30 29 2c |2.  .~.b|  5(a0),|
|000052c0| 64 32 00 20 20 80 aa 2e | 62 20 20 23 31 2c 64 32 |d2.  ...|b  #1,d2|
|000052d0| 20 20 20 20 20 20 20 3b | 20 61 64 6a 75 73 74 20 |       ;| adjust |
|000052e0| 66 6f 72 20 64 62 72 61 | 00 00 20 20 80 7a 20 20 |for dbra|..  .z  |
|000052f0| 20 20 20 38 28 61 30 29 | 2c 61 35 00 20 20 80 7a |   8(a0)|,a5.  .z|
|00005300| 20 20 20 20 20 38 28 61 | 31 29 2c 61 36 00 00 20 |     8(a|1),a6.. |
|00005310| 20 80 7e 2e 6c 20 20 7a | 6f 6f 6d 78 38 74 61 62 | .~.l  z|oomx8tab|
|00005320| 6c 65 2c 61 34 00 00 20 | 20 80 45 2e 77 20 20 20 |le,a4.. | .E.w   |
|00005330| 23 33 2c 64 34 00 20 20 | 80 aa 2e 77 20 20 23 31 |#3,d4.  |...w  #1|
|00005340| 2c 64 34 20 20 20 20 20 | 20 20 3b 20 61 64 6a 75 |,d4     |  ; adju|
|00005350| 73 74 20 66 6f 72 20 64 | 62 72 61 00 20 20 80 4f |st for d|bra.  .O|
|00005360| 20 20 20 20 20 27 74 68 | 65 5f 65 6e 64 00 20 20 |     'th|e_end.  |
|00005370| 80 aa 2e 77 20 20 23 31 | 2c 64 35 20 20 20 20 20 |...w  #1|,d5     |
|00005380| 20 20 3b 20 61 64 6a 75 | 73 74 20 66 6f 72 20 64 |  ; adju|st for d|
|00005390| 62 72 61 00 20 20 80 4f | 20 20 20 20 20 27 74 68 |bra.  .O|     'th|
|000053a0| 65 5f 65 6e 64 00 20 20 | 80 7e 2e 77 20 20 64 34 |e_end.  |.~.w  d4|
|000053b0| 2c 78 7a 6f 6f 6d 00 20 | 20 80 7e 2e 77 20 20 64 |,xzoom. | .~.w  d|
|000053c0| 35 2c 79 7a 6f 6f 6d 00 | 00 27 64 6f 5f 62 69 74 |5,yzoom.|.'do_bit|
|000053d0| 70 6c 61 6e 65 73 00 20 | 20 80 7e 2e 6c 20 20 28 |planes. | .~.l  (|
|000053e0| 61 35 29 2b 2c 61 30 00 | 20 20 80 3d 2e 6c 20 64 |a5)+,a0.|  .=.l d|
|000053f0| 36 2c 61 30 00 20 20 80 | 7e 2e 6c 20 20 28 61 36 |6,a0.  .|~.l  (a6|
|00005400| 29 2b 2c 61 31 00 20 20 | 80 3d 2e 6c 20 64 37 2c |)+,a1.  |.=.l d7,|
|00005410| 61 31 00 00 20 20 80 7e | 2e 77 20 20 79 7a 6f 6f |a1..  .~|.w  yzoo|
|00005420| 6d 2c 64 31 00 27 6e 65 | 78 74 5f 6c 69 6e 65 00 |m,d1.'ne|xt_line.|
|00005430| 20 20 80 7e 2e 77 20 20 | 78 7a 6f 6f 6d 2c 64 30 |  .~.w  |xzoom,d0|
|00005440| 00 20 20 80 7e 2e 6c 20 | 20 61 30 2c 61 32 00 20 |.  .~.l | a0,a2. |
|00005450| 20 80 7e 2e 6c 20 20 61 | 31 2c 61 33 00 27 64 6f | .~.l  a|1,a3.'do|
|00005460| 5f 6c 69 6e 65 00 20 20 | 80 7e 2e 62 20 20 28 61 |_line.  |.~.b  (a|
|00005470| 32 29 2b 2c 64 34 00 20 | 20 80 7e 2e 62 20 20 64 |2)+,d4. | .~.b  d|
|00005480| 34 2c 64 35 00 20 20 80 | 43 2e 62 20 20 23 24 66 |4,d5.  .|C.b  #$f|
|00005490| 2c 64 35 00 20 20 80 43 | 2e 6c 20 20 23 24 66 30 |,d5.  .C|.l  #$f0|
|000054a0| 2c 64 34 00 20 20 80 7d | 2e 62 20 20 20 23 32 2c |,d4.  .}|.b   #2,|
|000054b0| 64 34 00 20 20 80 7e 2e | 6c 20 20 30 28 61 34 2c |d4.  .~.|l  0(a4,|
|000054c0| 64 34 2e 77 29 2c 64 33 | 00 00 27 64 72 61 77 62 |d4.w),d3|..'drawb|
|000054d0| 69 74 73 00 20 20 80 7e | 2e 6c 20 20 64 33 2c 28 |its.  .~|.l  d3,(|
|000054e0| 61 33 29 00 20 20 80 7e | 2e 6c 20 20 64 33 2c 34 |a3).  .~|.l  d3,4|
|000054f0| 30 28 61 33 29 00 20 20 | 80 7e 2e 6c 20 20 64 33 |0(a3).  |.~.l  d3|
|00005500| 2c 38 30 28 61 33 29 00 | 20 20 80 7e 2e 6c 20 20 |,80(a3).|  .~.l  |
|00005510| 64 33 2c 31 32 30 28 61 | 33 29 00 20 20 80 7e 2e |d3,120(a|3).  .~.|
|00005520| 6c 20 20 64 33 2c 31 36 | 30 28 61 33 29 00 20 20 |l  d3,16|0(a3).  |
|00005530| 80 7e 2e 6c 20 20 64 33 | 2c 32 30 30 28 61 33 29 |.~.l  d3|,200(a3)|
|00005540| 00 20 20 80 7e 2e 6c 20 | 20 64 33 2c 32 34 30 28 |.  .~.l | d3,240(|
|00005550| 61 33 29 00 20 20 80 7e | 2e 6c 20 20 64 33 2c 32 |a3).  .~|.l  d3,2|
|00005560| 38 30 28 61 33 29 00 00 | 20 20 80 7c 2e 62 20 20 |80(a3)..|  .|.b  |
|00005570| 20 23 32 2c 64 35 00 20 | 20 80 7e 2e 6c 20 20 30 | #2,d5. | .~.l  0|
|00005580| 28 61 34 2c 64 35 2e 77 | 29 2c 64 33 00 20 20 80 |(a4,d5.w|),d3.  .|
|00005590| 40 2e 6c 20 20 23 34 2c | 61 33 00 20 20 80 7e 2e |@.l  #4,|a3.  .~.|
|000055a0| 6c 20 20 64 33 2c 28 61 | 33 29 00 20 20 80 7e 2e |l  d3,(a|3).  .~.|
|000055b0| 6c 20 20 64 33 2c 34 30 | 28 61 33 29 00 20 20 80 |l  d3,40|(a3).  .|
|000055c0| 7e 2e 6c 20 20 64 33 2c | 38 30 28 61 33 29 00 20 |~.l  d3,|80(a3). |
|000055d0| 20 80 7e 2e 6c 20 20 64 | 33 2c 31 32 30 28 61 33 | .~.l  d|3,120(a3|
|000055e0| 29 00 20 20 80 7e 2e 6c | 20 20 64 33 2c 31 36 30 |).  .~.l|  d3,160|
|000055f0| 28 61 33 29 00 20 20 80 | 7e 2e 6c 20 20 64 33 2c |(a3).  .|~.l  d3,|
|00005600| 32 30 30 28 61 33 29 00 | 20 20 80 7e 2e 6c 20 20 |200(a3).|  .~.l  |
|00005610| 64 33 2c 32 34 30 28 61 | 33 29 00 20 20 80 7e 2e |d3,240(a|3).  .~.|
|00005620| 6c 20 20 64 33 2c 32 38 | 30 28 61 33 29 00 00 20 |l  d3,28|0(a3).. |
|00005630| 20 20 80 40 2e 6c 20 20 | 23 34 2c 61 33 00 20 20 |  .@.l  |#4,a3.  |
|00005640| 80 6f 20 20 20 20 64 30 | 2c 27 64 6f 5f 6c 69 6e |.o    d0|,'do_lin|
|00005650| 65 00 00 20 20 80 7a 20 | 20 20 20 20 34 30 28 61 |e..  .z |    40(a|
|00005660| 30 29 2c 61 30 00 20 20 | 80 7a 20 20 20 20 20 33 |0),a0.  |.z     3|
|00005670| 32 30 28 61 31 29 2c 61 | 31 00 00 20 20 80 6f 20 |20(a1),a|1..  .o |
|00005680| 20 20 20 64 31 2c 27 6e | 65 78 74 5f 6c 69 6e 65 |   d1,'n|ext_line|
|00005690| 00 00 20 20 80 6f 20 20 | 20 20 64 32 2c 27 64 6f |..  .o  |  d2,'do|
|000056a0| 5f 62 69 74 70 6c 61 6e | 65 73 00 27 74 68 65 5f |_bitplan|es.'the_|
|000056b0| 65 6e 64 00 20 20 80 82 | 2e 6c 20 28 61 37 29 2b |end.  ..|.l (a7)+|
|000056c0| 2c 64 30 2d 64 37 2f 61 | 30 2d 61 36 00 20 20 80 |,d0-d7/a|0-a6.  .|
|000056d0| 94 00 00 2e 5f 52 65 64 | 75 63 65 58 32 3a 00 20 |...._Red|uceX2:. |
|000056e0| 20 80 b0 2e 6c 20 20 20 | 72 65 64 75 63 65 78 32 | ...l   |reducex2|
|000056f0| 74 61 62 6c 65 00 20 20 | 80 50 20 20 20 20 20 27 |table.  |.P     '|
|00005700| 79 75 70 00 20 20 80 94 | 00 27 79 75 70 3a 00 20 |yup.  ..|.'yup:. |
|00005710| 20 80 82 2e 6c 20 64 30 | 2d 64 37 2f 61 30 2d 61 | ...l d0|-d7/a0-a|
|00005720| 36 2c 2d 28 61 37 29 00 | 00 20 20 80 7e 2e 6c 20 |6,-(a7).|.  .~.l |
|00005730| 20 64 32 2c 64 36 00 20 | 20 80 7e 2e 6c 20 20 64 | d2,d6. | .~.l  d|
|00005740| 33 2c 64 37 00 00 20 20 | 80 81 2e 6c 20 23 30 2c |3,d7..  |...l #0,|
|00005750| 64 32 00 20 20 80 7e 2e | 62 20 20 35 28 61 30 29 |d2.  .~.|b  5(a0)|
|00005760| 2c 64 32 00 20 20 80 aa | 2e 62 20 20 23 31 2c 64 |,d2.  ..|.b  #1,d|
|00005770| 32 20 20 20 20 20 20 20 | 3b 20 61 64 6a 75 73 74 |2       |; adjust|
|00005780| 20 66 6f 72 20 64 62 72 | 61 00 00 20 20 80 7e 2e | for dbr|a..  .~.|
|00005790| 77 20 20 28 61 30 29 2c | 64 30 00 20 20 80 44 2e |w  (a0),|d0.  .D.|
|000057a0| 77 20 20 20 23 31 2c 64 | 30 00 20 20 80 7e 2e 77 |w   #1,d|0.  .~.w|
|000057b0| 20 20 64 30 2c 62 79 74 | 65 73 70 65 72 6c 69 6e |  d0,byt|esperlin|
|000057c0| 65 2b 32 00 20 20 80 7e | 2e 77 20 20 28 61 31 29 |e+2.  .~|.w  (a1)|
|000057d0| 2c 62 79 74 65 73 70 65 | 72 6c 69 6e 65 32 2b 32 |,bytespe|rline2+2|
|000057e0| 00 20 20 80 7a 20 20 20 | 20 20 38 28 61 30 29 2c |.  .z   |  8(a0),|
|000057f0| 61 35 00 20 20 80 7a 20 | 20 20 20 20 38 28 61 31 |a5.  .z |    8(a1|
|00005800| 29 2c 61 36 00 00 20 20 | 80 7e 2e 6c 20 20 72 65 |),a6..  |.~.l  re|
|00005810| 64 75 63 65 78 32 74 61 | 62 6c 65 2c 61 34 00 00 |ducex2ta|ble,a4..|
|00005820| 20 20 80 45 2e 77 20 20 | 20 23 33 2c 64 34 00 20 |  .E.w  | #3,d4. |
|00005830| 20 80 a7 2e 77 20 20 20 | 64 34 2c 62 79 74 65 73 | ...w   |d4,bytes|
|00005840| 70 65 72 6c 69 6e 65 2b | 32 00 20 20 80 45 2e 77 |perline+|2.  .E.w|
|00005850| 20 20 20 23 31 2c 64 34 | 00 20 20 80 a7 2e 77 20 |   #1,d4|.  ...w |
|00005860| 20 20 64 34 2c 62 79 74 | 65 73 70 65 72 6c 69 6e |  d4,byt|esperlin|
|00005870| 65 32 2b 32 00 20 20 80 | aa 2e 77 20 20 23 31 2c |e2+2.  .|..w  #1,|
|00005880| 64 34 20 20 20 20 20 20 | 20 3b 20 61 64 6a 75 73 |d4      | ; adjus|
|00005890| 74 20 66 6f 72 20 64 62 | 72 61 00 20 20 80 4f 20 |t for db|ra.  .O |
|000058a0| 20 20 20 20 27 74 68 65 | 5f 65 6e 64 00 20 20 80 |    'the|_end.  .|
|000058b0| 45 2e 77 20 20 20 23 31 | 2c 64 35 00 20 20 80 aa |E.w   #1|,d5.  ..|
|000058c0| 2e 77 20 20 23 31 2c 64 | 35 20 20 20 20 20 20 20 |.w  #1,d|5       |
|000058d0| 3b 20 61 64 6a 75 73 74 | 20 66 6f 72 20 64 62 72 |; adjust| for dbr|
|000058e0| 61 00 20 20 80 4f 20 20 | 20 20 20 27 74 68 65 5f |a.  .O  |   'the_|
|000058f0| 65 6e 64 00 20 20 80 7e | 2e 77 20 20 64 34 2c 78 |end.  .~|.w  d4,x|
|00005900| 7a 6f 6f 6d 00 20 20 80 | 7e 2e 77 20 20 64 35 2c |zoom.  .|~.w  d5,|
|00005910| 79 7a 6f 6f 6d 00 00 20 | 20 80 81 2e 6c 20 23 30 |yzoom.. | ...l #0|
|00005920| 2c 64 34 00 27 78 32 64 | 6f 5f 62 69 74 70 6c 61 |,d4.'x2d|o_bitpla|
|00005930| 6e 65 73 00 20 20 80 7e | 2e 6c 20 20 28 61 35 29 |nes.  .~|.l  (a5)|
|00005940| 2b 2c 61 30 00 20 20 80 | 3d 2e 6c 20 20 20 64 36 |+,a0.  .|=.l   d6|
|00005950| 2c 61 30 00 20 20 80 7e | 2e 6c 20 20 28 61 36 29 |,a0.  .~|.l  (a6)|
|00005960| 2b 2c 61 31 00 20 20 80 | 3d 2e 6c 20 20 20 64 37 |+,a1.  .|=.l   d7|
|00005970| 2c 61 31 00 20 20 80 7e | 2e 77 20 20 79 7a 6f 6f |,a1.  .~|.w  yzoo|
|00005980| 6d 2c 64 31 00 27 78 32 | 6e 65 78 74 5f 6c 69 6e |m,d1.'x2|next_lin|
|00005990| 65 00 20 20 80 7e 2e 77 | 20 20 78 7a 6f 6f 6d 2c |e.  .~.w|  xzoom,|
|000059a0| 64 30 00 27 78 32 64 6f | 5f 6c 69 6e 65 00 20 20 |d0.'x2do|_line.  |
|000059b0| 80 7e 2e 62 20 20 28 61 | 30 29 2b 2c 64 34 00 20 |.~.b  (a|0)+,d4. |
|000059c0| 20 80 7e 2e 62 20 20 30 | 28 61 34 2c 64 34 2e 77 | .~.b  0|(a4,d4.w|
|000059d0| 29 2c 64 33 00 00 20 20 | 80 44 2e 62 20 20 20 23 |),d3..  |.D.b   #|
|000059e0| 34 2c 64 33 00 00 20 20 | 80 7e 2e 62 20 20 28 61 |4,d3..  |.~.b  (a|
|000059f0| 30 29 2b 2c 64 34 00 20 | 20 80 8a 2e 62 20 20 20 |0)+,d4. | ...b   |
|00005a00| 20 30 28 61 34 2c 64 34 | 2e 77 29 2c 64 33 00 00 | 0(a4,d4|.w),d3..|
|00005a10| 20 20 80 7e 2e 62 20 20 | 64 33 2c 28 61 31 29 2b |  .~.b  |d3,(a1)+|
|00005a20| 00 00 20 20 80 6f 20 20 | 20 20 64 30 2c 27 78 32 |..  .o  |  d0,'x2|
|00005a30| 64 6f 5f 6c 69 6e 65 00 | 00 20 20 80 3d 2e 6c 20 |do_line.|.  .=.l |
|00005a40| 20 20 62 79 74 65 73 70 | 65 72 6c 69 6e 65 2c 61 |  bytesp|erline,a|
|00005a50| 30 00 20 20 80 3d 2e 6c | 20 20 20 62 79 74 65 73 |0.  .=.l|   bytes|
|00005a60| 70 65 72 6c 69 6e 65 32 | 2c 61 31 00 00 20 20 80 |perline2|,a1..  .|
|00005a70| 6f 20 20 20 20 64 31 2c | 27 78 32 6e 65 78 74 5f |o    d1,|'x2next_|
|00005a80| 6c 69 6e 65 00 00 20 20 | 80 6f 20 20 20 20 64 32 |line..  |.o    d2|
|00005a90| 2c 27 78 32 64 6f 5f 62 | 69 74 70 6c 61 6e 65 73 |,'x2do_b|itplanes|
|00005aa0| 00 27 74 68 65 5f 65 6e | 64 3a 00 20 20 80 82 2e |.'the_en|d:.  ...|
|00005ab0| 6c 20 28 61 37 29 2b 2c | 64 30 2d 64 37 2f 61 30 |l (a7)+,|d0-d7/a0|
|00005ac0| 2d 61 36 00 20 20 80 94 | 00 00 20 20 80 27 00 62 |-a6.  ..|..  .'.b|
|00005ad0| 79 74 65 73 70 65 72 6c | 69 6e 65 3a 20 80 25 2e |ytesperl|ine: .%.|
|00005ae0| 6c 20 20 30 00 62 79 74 | 65 73 70 65 72 6c 69 6e |l  0.byt|esperlin|
|00005af0| 65 32 3a 80 25 2e 6c 20 | 20 30 00 78 7a 6f 6f 6d |e2:.%.l | 0.xzoom|
|00005b00| 3a 20 20 20 20 20 20 20 | 20 80 25 2e 77 20 20 31 |:       | .%.w  1|
|00005b10| 00 79 7a 6f 6f 6d 3a 20 | 20 20 20 20 20 20 20 80 |.yzoom: |       .|
|00005b20| 25 2e 77 20 20 31 00 00 | 74 61 62 6c 65 61 64 64 |%.w  1..|tableadd|
|00005b30| 72 65 73 73 3a 20 80 25 | 2e 6c 20 20 30 00 72 65 |ress: .%|.l  0.re|
|00005b40| 64 75 63 65 78 32 74 61 | 62 6c 65 3a 80 25 2e 6c |ducex2ta|ble:.%.l|
|00005b50| 20 20 30 00 7a 6f 6f 6d | 78 32 74 61 62 6c 65 3a |  0.zoom|x2table:|
|00005b60| 20 20 80 25 2e 6c 20 20 | 30 00 7a 6f 6f 6d 78 34 |  .%.l  |0.zoomx4|
|00005b70| 74 61 62 6c 65 3a 20 20 | 80 25 2e 6c 20 20 30 00 |table:  |.%.l  0.|
|00005b80| 7a 6f 6f 6d 78 38 74 61 | 62 6c 65 3a 20 20 80 25 |zoomx8ta|ble:  .%|
|00005b90| 2e 6c 20 20 30 00 00 2e | 5f 61 73 6d 64 65 72 65 |.l  0...|_asmdere|
|00005ba0| 7a 00 20 20 80 b0 2e 77 | 20 20 20 64 34 00 20 20 |z.  ...w|   d4.  |
|00005bb0| 80 50 20 20 20 20 20 27 | 6f 6b 00 20 20 80 94 00 |.P     '|ok.  ...|
|00005bc0| 27 6f 6b 00 20 20 80 82 | 2e 6c 20 64 31 2d 64 37 |'ok.  ..|.l d1-d7|
|00005bd0| 2f 61 30 2d 61 36 2c 2d | 28 61 37 29 20 20 20 20 |/a0-a6,-|(a7)    |
|00005be0| 20 3b 20 73 61 76 65 20 | 42 4c 49 54 5a 20 72 65 | ; save |BLITZ re|
|00005bf0| 67 69 73 74 65 72 73 00 | 20 20 80 7e 2e 77 20 20 |gisters.|  .~.w  |
|00005c00| 64 34 2c 72 65 73 5f 76 | 61 6c 75 65 20 20 20 20 |d4,res_v|alue    |
|00005c10| 20 20 20 20 20 20 3b 20 | 73 74 6f 72 65 20 72 65 |      ; |store re|
|00005c20| 73 5f 76 61 6c 75 65 00 | 20 20 80 7e 2e 77 20 20 |s_value.|  .~.w  |
|00005c30| 64 34 2c 72 65 73 5f 76 | 61 6c 75 65 32 20 20 20 |d4,res_v|alue2   |
|00005c40| 20 20 20 20 20 20 3b 20 | 73 74 6f 72 65 20 61 67 |      ; |store ag|
|00005c50| 61 69 6e 20 42 55 54 00 | 20 20 80 aa 2e 77 20 20 |ain BUT.|  ...w  |
|00005c60| 23 31 2c 72 65 73 5f 76 | 61 6c 75 65 32 20 20 20 |#1,res_v|alue2   |
|00005c70| 20 20 20 20 20 20 3b 20 | 20 73 75 62 74 72 61 63 |      ; | subtrac|
|00005c80| 74 20 31 20 74 68 69 73 | 20 74 69 6d 65 00 20 20 |t 1 this| time.  |
|00005c90| 80 7e 2e 77 20 20 64 35 | 2c 68 65 69 67 68 74 20 |.~.w  d5|,height |
|00005ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 74 |        |    ; st|
|00005cb0| 6f 72 65 20 68 65 69 67 | 68 74 20 41 4e 44 00 20 |ore heig|ht AND. |
|00005cc0| 20 80 aa 2e 77 20 20 23 | 31 2c 68 65 69 67 68 74 | ...w  #|1,height|
|00005cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 20 |        |     ;  |
|00005ce0| 73 75 62 74 72 61 63 74 | 20 31 20 66 6f 72 20 64 |subtract| 1 for d|
|00005cf0| 62 72 61 00 20 20 80 7e | 2e 62 20 20 35 28 61 30 |bra.  .~|.b  5(a0|
|00005d00| 29 2c 73 62 69 74 64 65 | 70 74 68 2b 31 20 20 20 |),sbitde|pth+1   |
|00005d10| 20 20 3b 20 67 65 74 20 | 73 6f 75 72 63 65 20 62 |  ; get |source b|
|00005d20| 69 74 70 6c 61 6e 65 20 | 64 65 70 74 68 00 20 20 |itplane |depth.  |
|00005d30| 80 aa 2e 77 20 20 23 31 | 2c 73 62 69 74 64 65 70 |...w  #1|,sbitdep|
|00005d40| 74 68 20 20 20 20 20 20 | 20 20 20 20 3b 20 20 73 |th      |    ;  s|
|00005d50| 75 62 74 72 61 63 74 20 | 31 20 66 6f 72 20 64 62 |ubtract |1 for db|
|00005d60| 72 61 00 20 20 80 7a 20 | 20 20 20 20 38 28 61 30 |ra.  .z |    8(a0|
|00005d70| 29 2c 61 30 20 20 20 20 | 20 20 20 20 20 20 20 20 |),a0    |        |
|00005d80| 20 20 3b 20 67 65 74 20 | 73 6f 75 72 63 65 27 73 |  ; get |source's|
|00005d90| 20 62 69 74 70 6c 61 6e | 65 20 70 6f 69 6e 74 65 | bitplan|e pointe|
|00005da0| 72 73 00 20 20 80 7a 20 | 20 20 20 20 38 28 61 31 |rs.  .z |    8(a1|
|00005db0| 29 2c 61 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |),a1    |        |
|00005dc0| 20 20 3b 20 67 65 74 20 | 64 65 73 74 27 73 20 62 |  ; get |dest's b|
|00005dd0| 69 74 70 6c 61 6e 65 20 | 70 6f 69 6e 74 65 72 73 |itplane |pointers|
|00005de0| 00 00 20 20 80 7e 2e 77 | 20 20 73 62 69 74 64 65 |..  .~.w|  sbitde|
|00005df0| 70 74 68 2c 64 30 20 20 | 20 20 20 20 20 20 20 20 |pth,d0  |        |
|00005e00| 3b 20 67 65 74 20 62 69 | 74 64 65 70 74 68 20 69 |; get bi|tdepth i|
|00005e10| 6e 20 64 30 00 20 20 80 | 7a 20 20 20 20 20 62 69 |n d0.  .|z     bi|
|00005e20| 74 5f 61 64 64 28 70 63 | 29 2c 61 32 20 20 20 20 |t_add(pc|),a2    |
|00005e30| 20 20 20 20 3b 20 73 6f | 75 72 63 65 20 62 69 74 |    ; so|urce bit|
|00005e40| 70 6c 61 6e 65 20 73 74 | 6f 72 61 67 65 00 20 20 |plane st|orage.  |
|00005e50| 80 7a 20 20 20 20 20 64 | 65 73 74 5f 61 64 64 28 |.z     d|est_add(|
|00005e60| 70 63 29 2c 61 33 20 20 | 20 20 20 20 20 3b 20 64 |pc),a3  |     ; d|
|00005e70| 65 73 74 20 62 69 74 70 | 6c 61 6e 65 20 73 74 6f |est bitp|lane sto|
|00005e80| 72 61 67 65 00 27 73 74 | 6f 72 65 5f 62 69 74 70 |rage.'st|ore_bitp|
|00005e90| 6c 61 6e 65 73 00 20 20 | 80 7e 2e 6c 20 20 28 61 |lanes.  |.~.l  (a|
|00005ea0| 30 29 2b 2c 28 61 32 29 | 20 20 20 20 20 20 20 20 |0)+,(a2)|        |
|00005eb0| 20 20 20 20 3b 20 63 6f | 70 79 20 73 6f 75 72 63 |    ; co|py sourc|
|00005ec0| 65 20 62 69 74 70 6c 61 | 6e 65 20 61 64 64 72 65 |e bitpla|ne addre|
|00005ed0| 73 73 00 20 20 80 3d 2e | 6c 20 20 20 64 32 2c 28 |ss.  .=.|l   d2,(|
|00005ee0| 61 32 29 2b 20 20 20 20 | 20 20 20 20 20 20 20 20 |a2)+    |        |
|00005ef0| 20 20 3b 20 20 41 4e 44 | 20 61 64 64 20 6f 66 66 |  ;  AND| add off|
|00005f00| 73 65 74 20 76 61 6c 75 | 65 00 20 20 80 7e 2e 6c |set valu|e.  .~.l|
|00005f10| 20 20 28 61 31 29 2b 2c | 28 61 33 29 20 20 20 20 |  (a1)+,|(a3)    |
|00005f20| 20 20 20 20 20 20 20 20 | 3b 20 63 6f 70 79 20 64 |        |; copy d|
|00005f30| 65 73 74 20 62 69 74 70 | 6c 61 6e 65 20 61 64 64 |est bitp|lane add|
|00005f40| 72 65 73 73 00 20 20 80 | 3d 2e 6c 20 20 20 64 33 |ress.  .|=.l   d3|
|00005f50| 2c 28 61 33 29 2b 20 20 | 20 20 20 20 20 20 20 20 |,(a3)+  |        |
|00005f60| 20 20 20 20 3b 20 20 41 | 4e 44 20 61 64 64 20 6f |    ;  A|ND add o|
|00005f70| 66 66 73 65 74 20 76 61 | 6c 75 65 00 20 20 80 6f |ffset va|lue.  .o|
|00005f80| 20 20 20 20 64 30 2c 27 | 73 74 6f 72 65 5f 62 69 |    d0,'|store_bi|
|00005f90| 74 70 6c 61 6e 65 73 20 | 20 20 3b 20 6c 6f 6f 70 |tplanes |  ; loop|
|00005fa0| 20 66 6f 72 20 61 6c 6c | 20 62 69 74 70 6c 61 6e | for all| bitplan|
|00005fb0| 65 73 00 00 20 20 80 b0 | 2e 77 20 20 20 72 65 73 |es..  ..|.w   res|
|00005fc0| 5f 76 61 6c 75 65 32 20 | 20 20 20 20 20 20 20 20 |_value2 |        |
|00005fd0| 20 20 20 3b 20 49 73 20 | 72 65 73 5f 76 61 6c 75 |   ; Is |res_valu|
|00005fe0| 65 32 3d 30 3f 00 20 20 | 80 48 20 20 20 20 20 53 |e2=0?.  |.H     S|
|00005ff0| 63 72 65 65 6e 43 6f 70 | 79 20 20 20 20 20 20 20 |creenCop|y       |
|00006000| 20 20 20 20 20 3b 20 69 | 66 20 73 6f 20 2d 20 53 |     ; i|f so - S|
|00006010| 43 52 45 45 4e 43 4f 50 | 59 00 00 20 20 80 5d 2e |CREENCOP|Y..  .].|
|00006020| 77 20 20 23 32 2c 72 65 | 73 5f 76 61 6c 75 65 20 |w  #2,re|s_value |
|00006030| 20 20 20 20 20 20 20 20 | 20 3b 20 49 73 20 72 65 |        | ; Is re|
|00006040| 73 5f 76 61 6c 75 65 3d | 32 3f 00 20 20 80 48 20 |s_value=|2?.  .H |
|00006050| 20 20 20 20 55 6e 72 65 | 7a 58 32 20 20 20 20 20 |    Unre|zX2     |
|00006060| 20 20 20 20 20 20 20 20 | 20 20 3b 20 79 65 73 20 |        |  ; yes |
|00006070| 2d 20 64 6f 20 46 41 53 | 54 20 58 32 20 75 6e 72 |- do FAS|T X2 unr|
|00006080| 65 7a 00 00 20 20 80 81 | 2e 6c 20 23 34 30 2c 64 |ez..  ..|.l #40,d|
|00006090| 37 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |7       |        |
|000060a0| 20 3b 20 34 30 20 62 79 | 74 65 20 77 69 64 65 20 | ; 40 by|te wide |
|000060b0| 73 63 72 65 65 6e 00 20 | 20 80 84 2e 77 20 20 72 |screen. | ...w  r|
|000060c0| 65 73 5f 76 61 6c 75 65 | 2c 64 37 20 20 20 20 20 |es_value|,d7     |
|000060d0| 20 20 20 20 20 3b 20 58 | 20 6e 75 6d 62 65 72 20 |     ; X| number |
|000060e0| 6f 66 20 6c 69 6e 65 73 | 00 20 20 80 7e 2e 6c 20 |of lines|.  .~.l |
|000060f0| 20 64 37 2c 61 64 64 5f | 76 61 6c 75 65 20 20 20 | d7,add_|value   |
|00006100| 20 20 20 20 20 20 20 3b | 20 67 69 76 65 73 20 75 |       ;| gives u|
|00006110| 73 20 73 74 65 70 20 76 | 61 6c 75 65 00 00 20 20 |s step v|alue..  |
|00006120| 80 7e 2e 77 20 20 68 65 | 69 67 68 74 2c 79 76 61 |.~.w  he|ight,yva|
|00006130| 6c 75 65 20 20 20 20 20 | 20 20 20 20 3b 20 73 74 |lue     |    ; st|
|00006140| 6f 72 65 20 68 65 69 67 | 68 74 20 69 6e 20 79 76 |ore heig|ht in yv|
|00006150| 61 6c 75 65 20 66 6f 72 | 20 75 73 65 00 20 20 20 |alue for| use.   |
|00006160| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 20 |        |     ;  |
|00006180| 69 6e 20 6c 6f 6f 70 00 | 20 20 80 7a 20 20 20 20 |in loop.|  .z    |
|00006190| 20 6d 79 6c 69 6e 65 28 | 70 63 29 2c 61 35 00 20 | myline(|pc),a5. |
|000061a0| 20 80 81 2e 6c 20 23 31 | 39 2c 64 30 00 20 20 80 | ...l #1|9,d0.  .|
|000061b0| 81 2e 6c 20 23 31 35 2c | 64 31 00 20 20 80 7e 2e |..l #15,|d1.  .~.|
|000061c0| 77 20 20 72 65 73 5f 76 | 61 6c 75 65 2c 64 33 00 |w  res_v|alue,d3.|
|000061d0| 00 20 20 80 81 2e 6c 20 | 23 30 2c 64 32 00 27 77 |.  ...l |#0,d2.'w|
|000061e0| 69 64 74 68 6c 6f 6f 70 | 3a 00 20 20 80 56 20 20 |idthloop|:.  .V  |
|000061f0| 20 20 64 31 2c 64 32 00 | 20 20 80 a7 2e 77 20 20 |  d1,d2.|  ...w  |
|00006200| 20 64 33 2c 64 31 00 20 | 20 80 51 20 20 20 20 20 | d3,d1. | .Q     |
|00006210| 27 77 69 64 74 68 6c 6f | 6f 70 00 3b 20 20 4e 4f |'widthlo|op.;  NO|
|00006220| 54 2e 77 20 20 20 64 32 | 00 20 20 80 7e 2e 77 20 |T.w   d2|.  .~.w |
|00006230| 20 64 32 2c 28 61 35 29 | 2b 00 20 20 80 81 2e 6c | d2,(a5)|+.  ...l|
|00006240| 20 23 30 2c 64 32 00 00 | 20 20 80 3d 2e 77 20 20 | #0,d2..|  .=.w  |
|00006250| 20 23 31 36 2c 64 31 00 | 20 20 80 4f 20 20 20 20 | #16,d1.|  .O    |
|00006260| 20 27 6d 6f 72 65 74 6f | 64 6f 00 20 20 80 6f 20 | 'moreto|do.  .o |
|00006270| 20 20 20 64 30 2c 27 77 | 69 64 74 68 6c 6f 6f 70 |   d0,'w|idthloop|
|00006280| 00 20 20 80 58 20 20 20 | 20 20 27 79 6c 6f 6f 70 |.  .X   |  'yloop|
|00006290| 00 00 27 6d 6f 72 65 74 | 6f 64 6f 3a 00 20 20 80 |..'moret|odo:.  .|
|000062a0| 7e 2e 77 20 20 23 30 2c | 28 61 35 29 2b 00 20 20 |~.w  #0,|(a5)+.  |
|000062b0| 80 aa 2e 77 20 20 23 31 | 2c 64 30 00 20 20 80 4f |...w  #1|,d0.  .O|
|000062c0| 20 20 20 20 20 27 79 6c | 6f 6f 70 00 20 20 80 3d |     'yl|oop.  .=|
|000062d0| 2e 77 20 20 20 23 31 36 | 2c 64 31 00 20 20 80 4f |.w   #16|,d1.  .O|
|000062e0| 20 20 20 20 20 27 6d 6f | 72 65 74 6f 64 6f 00 20 |     'mo|retodo. |
|000062f0| 20 80 6f 20 20 20 20 64 | 30 2c 27 77 69 64 74 68 | .o    d|0,'width|
|00006300| 6c 6f 6f 70 00 00 27 79 | 6c 6f 6f 70 3a 20 20 20 |loop..'y|loop:   |
|00006310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00006320| 20 20 20 20 20 20 3b 20 | 64 36 3d 62 69 74 70 6c |      ; |d6=bitpl|
|00006330| 61 6e 65 20 6c 6f 6f 70 | 00 20 20 80 7a 20 20 20 |ane loop|.  .z   |
|00006340| 20 20 62 69 74 5f 61 64 | 64 28 70 63 29 2c 61 30 |  bit_ad|d(pc),a0|
|00006350| 20 20 20 20 20 20 20 20 | 3b 20 64 35 3d 78 6c 6f |        |; d5=xlo|
|00006360| 6f 70 00 20 20 80 7a 20 | 20 20 20 20 64 65 73 74 |op.  .z |    dest|
|00006370| 5f 61 64 64 28 70 63 29 | 2c 61 36 00 20 20 80 7e |_add(pc)|,a6.  .~|
|00006380| 2e 77 20 20 73 62 69 74 | 64 65 70 74 68 2c 64 36 |.w  sbit|depth,d6|
|00006390| 00 27 62 69 74 70 6c 61 | 6e 65 5f 6c 6f 6f 70 3a |.'bitpla|ne_loop:|
|000063a0| 00 20 20 80 7e 2e 77 20 | 20 79 76 61 6c 75 65 2c |.  .~.w | yvalue,|
|000063b0| 64 37 00 20 20 80 7e 2e | 6c 20 20 28 61 30 29 2c |d7.  .~.|l  (a0),|
|000063c0| 61 31 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |a1      |        |
|000063d0| 20 3b 20 61 31 3d 73 6f | 75 72 63 65 00 20 20 80 | ; a1=so|urce.  .|
|000063e0| 7e 2e 6c 20 20 61 31 2c | 61 32 20 20 20 20 20 20 |~.l  a1,|a2      |
|000063f0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 61 32 3d |        |   ; a2=|
+--------+-------------------------+-------------------------+--------+--------+