home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Basic / TMTBL.LHA / debugger / examples / Test_CopperTrace.bb2 < prev    next >
Unknown  |  1995-01-15  |  2.3 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text

This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: ';LES Debugger v1.21 Test program' default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 4c 45 53 20 44 65 62 | 75 67 67 65 72 20 76 31 |;LES Deb|ugger v1|
|00000010| 2e 32 31 20 54 65 73 74 | 20 70 72 6f 67 72 61 6d |.21 Test| program|
|00000020| 00 3b 54 65 73 74 69 6e | 67 20 63 6f 70 70 65 72 |.;Testin|g copper|
|00000030| 20 64 69 73 61 73 73 65 | 6d 62 6c 79 00 00 3b 41 | disasse|mbly..;A|
|00000040| 47 41 20 63 6f 6c 6f 75 | 72 20 73 70 6c 69 74 20 |GA colou|r split |
|00000050| 72 6f 75 74 69 6e 65 00 | 3b 44 6f 6e 27 74 20 6c |routine.|;Don't l|
|00000060| 6f 6f 6b 20 61 74 20 74 | 68 65 20 63 6f 64 65 20 |ook at t|he code |
|00000070| 68 65 72 65 20 2d 20 6a | 75 73 74 20 63 6f 6d 70 |here - j|ust comp|
|00000080| 69 6c 65 20 61 6e 64 20 | 72 75 6e 20 69 74 2c 20 |ile and |run it, |
|00000090| 74 68 65 6e 20 6c 6f 6f | 6b 20 61 72 6f 75 6e 64 |then loo|k around|
|000000a0| 00 3b 74 68 65 20 63 6f | 70 70 65 72 20 77 69 6e |.;the co|pper win|
|000000b0| 64 6f 77 20 69 6e 20 74 | 68 65 20 64 65 62 75 67 |dow in t|he debug|
|000000c0| 67 65 72 20 2d 20 6c 6f | 74 20 65 61 73 69 65 72 |ger - lo|t easier|
|000000d0| 20 74 6f 20 66 6f 6c 6c | 6f 77 20 74 68 61 6e 20 | to foll|ow than |
|000000e0| 74 68 65 20 62 6c 69 74 | 7a 00 3b 73 74 75 66 66 |the blit|z.;stuff|
|000000f0| 20 68 65 72 65 20 3a 29 | 00 00 3b 53 6f 6d 65 20 | here :)|..;Some |
|00000100| 68 61 72 64 77 61 72 65 | 20 72 65 67 69 73 74 65 |hardware| registe|
|00000110| 72 20 76 61 6c 75 65 73 | 20 66 6f 72 20 6f 75 72 |r values| for our|
|00000120| 20 75 73 65 00 23 62 70 | 6c 6d 6f 64 31 3d 24 31 | use.#bp|lmod1=$1|
|00000130| 30 38 00 23 62 70 6c 6d | 6f 64 32 3d 24 31 30 61 |08.#bplm|od2=$10a|
|00000140| 00 23 62 70 6c 63 6f 6e | 33 3d 24 31 30 36 00 23 |.#bplcon|3=$106.#|
|00000150| 63 6f 6c 6f 72 30 30 3d | 24 31 38 30 00 23 63 6f |color00=|$180.#co|
|00000160| 6c 6f 72 30 31 3d 24 31 | 38 32 00 23 63 6f 6c 6f |lor01=$1|82.#colo|
|00000170| 72 30 32 3d 24 31 38 34 | 00 23 63 6f 6c 6f 72 30 |r02=$184|.#color0|
|00000180| 33 3d 24 31 38 36 00 00 | 3b 4f 75 72 20 63 6f 70 |3=$186..|;Our cop|
|00000190| 70 65 72 20 6c 69 73 74 | 00 c7 82 20 30 2c 34 34 |per list|... 0,44|
|000001a0| 2c 32 35 36 2c 24 31 30 | 30 30 34 2c 38 2c 31 36 |,256,$10|004,8,16|
|000001b0| 2c 37 2a 32 30 30 20 20 | 20 20 20 20 20 20 20 20 |,7*200 | |
|000001c0| 20 20 20 3b 20 37 20 69 | 6e 73 74 72 75 63 74 69 | ; 7 i|nstructi|
|000001d0| 6f 6e 73 20 6f 6e 20 32 | 30 30 20 6c 69 6e 65 73 |ons on 2|00 lines|
|000001e0| 00 d0 01 20 30 2c 33 32 | 30 2c 32 35 36 2c 34 00 |... 0,32|0,256,4.|
|000001f0| 00 c7 84 20 30 2c 30 00 | 6f 66 66 73 65 74 2e 77 |... 0,0.|offset.w|
|00000200| 3d 34 34 00 00 61 64 2e | 6c 3d da 02 2e 6c 28 80 |=44..ad.|l=...l(.|
|00000210| b8 20 c7 81 28 30 29 2b | 32 38 29 20 20 20 20 20 |. ..(0)+|28) |
|00000220| 20 20 20 20 20 20 20 20 | 3b 20 47 65 74 20 74 68 | |; Get th|
|00000230| 65 20 63 75 73 74 6f 6d | 20 61 72 65 61 20 61 64 |e custom| area ad|
|00000240| 64 72 65 73 73 00 00 3b | 54 6f 70 20 68 61 6c 66 |dress..;|Top half|
|00000250| 20 6f 66 20 74 68 65 20 | 64 69 73 70 6c 61 79 00 | of the |display.|
|00000260| 80 16 20 68 2e 77 3d 30 | 20 80 18 20 39 39 00 20 |.. h.w=0| .. 99. |
|00000270| 20 da 01 2e 77 20 61 64 | 2c 28 28 68 2b 6f 66 66 | ...w ad|,((h+off|
|00000280| 73 65 74 29 20 80 7c 20 | 38 29 2b 31 20 20 20 20 |set) .| |8)+1 |
|00000290| 20 20 20 20 20 20 20 20 | 3b 20 57 61 69 74 21 00 | |; Wait!.|
|000002a0| 20 20 da 01 2e 77 20 61 | 64 2b 32 2c 24 66 66 66 | ...w a|d+2,$fff|
|000002b0| 65 00 20 20 61 64 2b 34 | 00 20 20 da 01 2e 77 20 |e. ad+4|. ...w |
|000002c0| 61 64 2c 23 62 70 6c 63 | 6f 6e 33 20 20 20 20 20 |ad,#bplc|on3 |
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002e0| 20 20 20 3b 20 48 69 67 | 68 20 6e 69 62 62 6c 65 | ; Hig|h nibble|
|000002f0| 73 00 20 20 da 01 2e 77 | 20 61 64 2b 32 2c 24 30 |s. ...w| ad+2,$0|
|00000300| 63 30 30 00 20 20 61 64 | 2b 34 00 00 20 20 6e 2e |c00. ad|+4.. n.|
|00000310| 77 3d 28 28 68 2a 32 29 | 20 80 42 20 24 66 30 29 |w=((h*2)| .B $f0)|
|00000320| 20 80 45 20 34 00 20 20 | 76 6c 2e 77 3d 6e 20 20 | .E 4. |vl.w=n |
|00000330| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000350| 20 20 3b 20 43 6f 6c 6f | 75 72 20 76 61 6c 75 65 | ; Colo|ur value|
|00000360| 73 00 20 20 76 6c 3d 28 | 76 6c 20 80 44 20 34 29 |s. vl=(|vl .D 4)|
|00000370| 2b 6e 00 20 20 76 6c 3d | 28 76 6c 20 80 44 20 34 |+n. vl=|(vl .D 4|
|00000380| 29 2b 6e 00 20 20 da 01 | 2e 77 20 61 64 2c 23 63 |)+n. ..|.w ad,#c|
|00000390| 6f 6c 6f 72 30 30 00 20 | 20 da 01 2e 77 20 61 64 |olor00. | ...w ad|
|000003a0| 2b 32 2c 76 6c 00 20 20 | 61 64 2b 34 00 20 20 da |+2,vl. |ad+4. .|
|000003b0| 01 2e 77 20 61 64 2c 23 | 63 6f 6c 6f 72 30 31 00 |..w ad,#|color01.|
|000003c0| 20 20 da 01 2e 77 20 61 | 64 2b 32 2c 28 76 6c 20 | ...w a|d+2,(vl |
|000003d0| 80 42 20 24 66 30 30 29 | 00 20 20 61 64 2b 34 00 |.B $f00)|. ad+4.|
|000003e0| 00 20 20 da 01 2e 77 20 | 61 64 2c 23 62 70 6c 63 |. ...w |ad,#bplc|
|000003f0| 6f 6e 33 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |on3 | |
|00000400| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 4c 6f 77 | | ; Low|
|00000410| 20 6e 69 62 62 6c 65 73 | 00 20 20 da 01 2e 77 20 | nibbles|. ...w |
|00000420| 61 64 2b 32 2c 24 30 65 | 30 30 00 20 20 61 64 2b |ad+2,$0e|00. ad+|
|00000430| 34 00 00 20 20 6e 3d 28 | 28 68 2a 32 29 20 80 42 |4.. n=(|(h*2) .B|
|00000440| 20 24 66 29 00 20 20 76 | 6c 2e 77 3d 6e 20 20 20 | $f). v|l.w=n |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000470| 20 3b 20 43 6f 6c 6f 75 | 72 20 76 61 6c 75 65 73 | ; Colou|r values|
|00000480| 00 20 20 76 6c 3d 28 76 | 6c 20 80 44 20 34 29 2b |. vl=(v|l .D 4)+|
|00000490| 6e 00 20 20 76 6c 3d 28 | 76 6c 20 80 44 20 34 29 |n. vl=(|vl .D 4)|
|000004a0| 2b 6e 00 20 20 da 01 2e | 77 20 61 64 2c 23 63 6f |+n. ...|w ad,#co|
|000004b0| 6c 6f 72 30 30 00 20 20 | da 01 2e 77 20 61 64 2b |lor00. |...w ad+|
|000004c0| 32 2c 76 6c 00 20 20 61 | 64 2b 34 00 20 20 da 01 |2,vl. a|d+4. ..|
|000004d0| 2e 77 20 61 64 2c 23 63 | 6f 6c 6f 72 30 31 00 20 |.w ad,#c|olor01. |
|000004e0| 20 da 01 2e 77 20 61 64 | 2b 32 2c 28 76 6c 20 80 | ...w ad|+2,(vl .|
|000004f0| 42 20 24 66 30 30 29 00 | 20 20 61 64 2b 34 00 80 |B $f00).| ad+4..|
|00000500| 17 20 68 00 00 3b 42 6f | 74 74 6f 6d 20 68 61 6c |. h..;Bo|ttom hal|
|00000510| 66 20 6f 66 20 74 68 65 | 20 64 69 73 70 6c 61 79 |f of the| display|
|00000520| 00 80 16 20 68 2e 77 3d | 39 39 20 80 18 20 30 20 |... h.w=|99 .. 0 |
|00000530| 80 19 20 2d 31 00 20 20 | da 01 2e 77 20 61 64 2c |.. -1. |...w ad,|
|00000540| 28 28 6f 66 66 73 65 74 | 2b 31 39 38 2d 68 29 20 |((offset|+198-h) |
|00000550| 80 7c 20 38 29 2b 31 20 | 20 20 20 20 20 20 20 3b |.| 8)+1 | ;|
|00000560| 20 57 61 69 74 21 00 20 | 20 da 01 2e 77 20 61 64 | Wait!. | ...w ad|
|00000570| 2b 32 2c 24 66 66 66 65 | 00 20 20 61 64 2b 34 00 |+2,$fffe|. ad+4.|
|00000580| 20 20 da 01 2e 77 20 61 | 64 2c 23 62 70 6c 63 6f | ...w a|d,#bplco|
|00000590| 6e 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |n3 | |
|000005a0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 48 69 67 68 | | ; High|
|000005b0| 20 6e 69 62 62 6c 65 73 | 00 20 20 da 01 2e 77 20 | nibbles|. ...w |
|000005c0| 61 64 2b 32 2c 24 30 63 | 30 30 00 20 20 61 64 2b |ad+2,$0c|00. ad+|
|000005d0| 34 00 00 20 20 6e 2e 77 | 3d 28 28 68 2a 32 29 20 |4.. n.w|=((h*2) |
|000005e0| 80 42 20 24 66 30 29 20 | 80 45 20 34 00 20 20 76 |.B $f0) |.E 4. v|
|000005f0| 6c 2e 77 3d 6e 20 20 20 | 20 20 20 20 20 20 20 20 |l.w=n | |
|00000600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000610| 20 20 20 20 20 20 20 20 | 20 3b 20 43 6f 6c 6f 75 | | ; Colou|
|00000620| 72 20 76 61 6c 75 65 73 | 00 20 20 76 6c 3d 28 76 |r values|. vl=(v|
|00000630| 6c 20 80 44 20 34 29 2b | 6e 00 20 20 76 6c 3d 28 |l .D 4)+|n. vl=(|
|00000640| 76 6c 20 80 44 20 34 29 | 2b 6e 00 20 20 da 01 2e |vl .D 4)|+n. ...|
|00000650| 77 20 61 64 2c 23 63 6f | 6c 6f 72 30 30 00 20 20 |w ad,#co|lor00. |
|00000660| da 01 2e 77 20 61 64 2b | 32 2c 76 6c 00 20 20 61 |...w ad+|2,vl. a|
|00000670| 64 2b 34 00 20 20 da 01 | 2e 77 20 61 64 2c 23 63 |d+4. ..|.w ad,#c|
|00000680| 6f 6c 6f 72 30 31 00 20 | 20 da 01 2e 77 20 61 64 |olor01. | ...w ad|
|00000690| 2b 32 2c 28 76 6c 20 80 | 42 20 24 66 29 00 20 20 |+2,(vl .|B $f). |
|000006a0| 61 64 2b 34 00 00 20 20 | da 01 2e 77 20 61 64 2c |ad+4.. |...w ad,|
|000006b0| 23 62 70 6c 63 6f 6e 33 | 20 20 20 20 20 20 20 20 |#bplcon3| |
|000006c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000006d0| 3b 20 4c 6f 77 20 6e 69 | 62 62 6c 65 73 00 20 20 |; Low ni|bbles. |
|000006e0| da 01 2e 77 20 61 64 2b | 32 2c 24 30 65 30 30 00 |...w ad+|2,$0e00.|
|000006f0| 20 20 61 64 2b 34 00 00 | 20 20 6e 3d 28 28 68 2a | ad+4..| n=((h*|
|00000700| 32 29 20 80 42 20 24 66 | 29 00 20 20 76 6c 2e 77 |2) .B $f|). vl.w|
|00000710| 3d 6e 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |=n | |
|00000720| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000730| 20 20 20 20 20 20 3b 20 | 43 6f 6c 6f 75 72 20 76 | ; |Colour v|
|00000740| 61 6c 75 65 73 00 20 20 | 76 6c 3d 28 76 6c 20 80 |alues. |vl=(vl .|
|00000750| 44 20 34 29 2b 6e 00 20 | 20 76 6c 3d 28 76 6c 20 |D 4)+n. | vl=(vl |
|00000760| 80 44 20 34 29 2b 6e 00 | 20 20 da 01 2e 77 20 61 |.D 4)+n.| ...w a|
|00000770| 64 2c 23 63 6f 6c 6f 72 | 30 30 00 20 20 da 01 2e |d,#color|00. ...|
|00000780| 77 20 61 64 2b 32 2c 76 | 6c 00 20 20 61 64 2b 34 |w ad+2,v|l. ad+4|
|00000790| 00 20 20 da 01 2e 77 20 | 61 64 2c 23 63 6f 6c 6f |. ...w |ad,#colo|
|000007a0| 72 30 31 00 20 20 da 01 | 2e 77 20 61 64 2b 32 2c |r01. ..|.w ad+2,|
|000007b0| 28 76 6c 20 80 42 20 24 | 66 29 00 20 20 61 64 2b |(vl .B $|f). ad+|
|000007c0| 34 00 80 17 20 68 00 00 | 3b 4f 70 65 6e 20 74 68 |4... h..|;Open th|
|000007d0| 65 20 63 6f 70 70 65 72 | 20 74 72 61 63 65 20 77 |e copper| trace w|
|000007e0| 69 6e 64 6f 77 20 61 74 | 20 74 68 65 20 63 75 73 |indow at| the cus|
|000007f0| 74 6f 6d 20 61 72 65 61 | 20 6f 66 20 63 6f 70 70 |tom area| of copp|
|00000800| 65 72 20 6c 69 73 74 20 | 30 00 99 85 20 80 b8 20 |er list |0... .. |
|00000810| c7 81 28 30 29 2c 32 38 | 00 00 3b 53 74 6f 70 20 |..(0),28|..;Stop |
|00000820| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 74 6f 20 6c |the prog|ram to l|
|00000830| 65 74 20 79 6f 75 20 6c | 6f 6f 6b 20 61 74 20 74 |et you l|ook at t|
|00000840| 68 65 20 77 69 6e 64 6f | 77 00 80 2d 00 00 3b 53 |he windo|w..-..;S|
|00000850| 74 65 70 20 74 68 65 20 | 66 6f 6c 6c 6f 77 69 6e |tep the |followin|
|00000860| 67 20 63 6f 6d 6d 61 6e | 64 73 20 74 6f 20 63 72 |g comman|ds to cr|
|00000870| 65 61 74 65 20 61 6e 64 | 20 76 69 65 77 20 74 68 |eate and| view th|
|00000880| 65 20 6e 69 63 65 20 64 | 69 73 70 6c 61 79 20 3a |e nice d|isplay :|
|00000890| 29 00 80 34 00 c7 83 20 | 30 00 00 3b 44 72 61 77 |)..4... |0..;Draw|
|000008a0| 20 73 6f 6d 65 20 63 75 | 74 65 20 70 6f 6c 79 67 | some cu|te polyg|
|000008b0| 6f 6e 73 00 bb 8b 20 33 | 2c 3f 63 6f 6f 72 64 73 |ons... 3|,?coords|
|000008c0| 2c 31 00 bb 8b 20 33 2c | 3f 63 6f 6f 72 64 73 32 |,1... 3,|?coords2|
|000008d0| 2c 31 00 00 3b 4a 75 73 | 74 20 77 61 69 74 20 66 |,1..;Jus|t wait f|
|000008e0| 6f 72 20 79 6f 75 20 74 | 6f 20 71 75 69 74 00 80 |or you t|o quit..|
|000008f0| 0a 00 80 02 00 00 63 6f | 6f 72 64 73 3a 20 80 25 |......co|ords: .%|
|00000900| 2e 77 20 30 2c 30 2c 33 | 31 39 2c 30 2c 31 35 39 |.w 0,0,3|19,0,159|
|00000910| 2c 39 39 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,99 | |
|00000920| 20 3b 20 50 6f 6c 79 67 | 6f 6e 20 63 6f 6f 72 64 | ; Polyg|on coord|
|00000930| 69 6e 61 74 65 73 00 63 | 6f 6f 72 64 73 32 3a 80 |inates.c|oords2:.|
|00000940| 25 2e 77 20 30 2c 31 39 | 39 2c 31 35 39 2c 39 39 |%.w 0,19|9,159,99|
|00000950| 2c 33 31 39 2c 31 39 39 | 00 00 |,319,199|.. |
+--------+-------------------------+-------------------------+--------+--------+