/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_4 / issue_07 / assembler / asmdebug / demodebug

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 44 65 6d 6f 44 65 62 75 |..... > |DemoDebu|
|00000010| 67 0d 00 14 49 f1 20 22 | 44 65 6d 6f 44 65 62 75 |g...I. "|DemoDebu|
|00000020| 67 20 3a 20 44 65 6d 6f | 6e 73 74 72 61 74 69 6f |g : Demo|nstratio|
|00000030| 6e 20 6f 66 20 46 4e 64 | 65 62 75 67 20 20 20 20 |n of FNd|ebug    |
|00000040| 56 65 72 73 69 6f 6e 20 | 34 20 20 20 4d 61 72 74 |Version |4   Mart|
|00000050| 69 6e 20 41 76 69 73 6f | 6e 22 0d 00 1e 05 20 0d |in Aviso|n".... .|
|00000060| 00 28 42 64 65 62 75 67 | 20 20 20 3d 20 a3 20 20 |.(Bdebug|   = .  |
|00000070| 20 20 3a f4 20 3c 3c 3c | 3c 20 63 68 61 6e 67 65 |  :. <<<|< change|
|00000080| 20 74 6f 20 54 52 55 45 | 20 74 6f 20 65 6e 61 62 | to TRUE| to enab|
|00000090| 6c 65 20 64 65 62 75 67 | 20 66 75 6e 63 74 69 6f |le debug| functio|
|000000a0| 6e 0d 00 32 0f 61 73 6d | 70 72 69 6e 74 3d 20 a3 |n..2.asm|print= .|
|000000b0| 0d 00 3c 0f 41 25 20 20 | 20 20 20 20 3d 20 36 0d |..<.A%  |    = 6.|
|000000c0| 00 46 0a f2 61 73 73 65 | 6d 0d 00 50 0b d6 20 63 |.F..asse|m..P.. c|
|000000d0| 6f 64 65 25 0d 00 5a 05 | e0 0d 00 64 04 0d 00 6e |ode%..Z.|...d...n|
|000000e0| 0c dd 20 f2 61 73 73 65 | 6d 0d 00 78 11 c8 9b 20 |.. .asse|m..x... |
|000000f0| 22 41 73 6d 44 65 62 75 | 67 22 0d 00 82 13 63 6f |"AsmDebu|g"....co|
|00000100| 64 65 6c 65 6e 25 20 3d | 20 31 30 30 30 0d 00 8c |delen% =| 1000...|
|00000110| 14 de 20 63 6f 64 65 25 | 20 63 6f 64 65 6c 65 6e |.. code%| codelen|
|00000120| 25 0d 00 96 04 0d 00 a0 | 34 e3 20 6f 70 74 3d 20 |%.......|4. opt= |
|00000130| 25 31 30 30 30 20 b8 20 | 25 31 30 31 30 2b 94 28 |%1000 . |%1010+.(|
|00000140| 61 73 6d 70 72 69 6e 74 | 29 20 88 20 32 2b 94 28 |asmprint|) . 2+.(|
|00000150| 61 73 6d 70 72 69 6e 74 | 29 0d 00 aa 04 0d 00 b4 |asmprint|).......|
|00000160| 0e 50 25 20 3d 20 63 6f | 64 65 25 0d 00 be 16 4c |.P% = co|de%....L|
|00000170| 25 20 3d 20 50 25 20 2b | 20 63 6f 64 65 6c 65 6e |% = P% +| codelen|
|00000180| 25 0d 00 c8 04 0d 00 d2 | 0c 5b 4f 50 54 20 6f 70 |%.......|.[OPT op|
|00000190| 74 0d 00 dc 27 20 20 20 | a4 64 65 62 75 67 28 22 |t...'   |.debug("|
|000001a0| 52 69 67 68 74 20 61 74 | 20 73 74 61 72 74 20 6f |Right at| start o|
|000001b0| 66 20 63 6f 64 65 22 29 | 0d 00 e6 34 53 54 4d 46 |f code")|...4STMF|
|000001c0| 44 20 52 31 33 21 2c 7b | 52 30 2d 52 39 2c 52 31 |D R13!,{|R0-R9,R1|
|000001d0| 34 7d 20 20 20 20 20 20 | 20 20 20 20 5c 20 73 61 |4}      |    \ sa|
|000001e0| 76 65 20 72 65 67 69 73 | 74 65 72 73 0d 00 f0 25 |ve regis|ters...%|
|000001f0| 20 20 20 a4 64 65 62 75 | 67 28 22 61 66 74 65 72 |   .debu|g("after|
|00000200| 20 72 65 67 69 73 74 65 | 72 20 73 74 6f 72 65 22 | registe|r store"|
|00000210| 29 0d 00 fa 34 4d 4f 56 | 20 20 20 52 33 2c 52 30 |)...4MOV|   R3,R0|
|00000220| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000230| 20 20 20 20 20 5c 20 73 | 74 6f 72 65 20 41 25 20 |     \ s|tore A% |
|00000240| 69 6e 20 72 33 0d 01 04 | 35 53 57 49 20 20 20 22 |in r3...|5SWI   "|
|00000250| 4f 53 5f 57 72 69 74 65 | 53 22 20 20 20 20 20 20 |OS_Write|S"      |
|00000260| 20 20 20 20 20 20 20 20 | 20 5c 20 64 69 73 70 6c |        | \ displ|
|00000270| 61 79 20 6d 65 73 73 61 | 67 65 0d 01 0e 1e 45 51 |ay messa|ge....EQ|
|00000280| 55 53 20 20 22 44 65 6d | 6f 22 3a 45 51 55 42 20 |US  "Dem|o":EQUB |
|00000290| 20 30 3a 41 4c 49 47 4e | 0d 01 18 16 53 57 49 20 | 0:ALIGN|....SWI |
|000002a0| 20 20 22 4f 53 5f 4e 65 | 77 4c 69 6e 65 22 0d 01 |  "OS_Ne|wLine"..|
|000002b0| 22 1c 20 20 20 a4 64 65 | 62 75 67 28 22 62 65 66 |".   .de|bug("bef|
|000002c0| 6f 72 65 20 6c 6f 6f 70 | 22 29 0d 01 2c 09 2e 6c |ore loop|")..,..l|
|000002d0| 6f 6f 70 0d 01 36 37 4d | 4f 56 20 20 20 52 30 2c |oop..67M|OV   R0,|
|000002e0| 52 33 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |R3      |        |
|000002f0| 20 20 20 20 20 20 20 5c | 20 70 75 74 20 63 6f 75 |       \| put cou|
|00000300| 6e 74 65 72 20 69 6e 20 | 52 30 0d 01 40 34 41 44 |nter in |R0..@4AD|
|00000310| 52 20 20 20 52 31 2c 62 | 75 66 66 65 72 20 20 20 |R   R1,b|uffer   |
|00000320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 20 |        |      \ |
|00000330| 61 64 64 72 65 73 73 20 | 62 75 66 66 65 72 0d 01 |address |buffer..|
|00000340| 4a 37 4d 4f 56 20 20 20 | 52 32 2c 23 39 20 20 20 |J7MOV   |R2,#9   |
|00000350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000360| 20 20 5c 20 73 65 74 20 | 62 75 66 66 65 72 20 6c |  \ set |buffer l|
|00000370| 65 6e 67 74 68 0d 01 54 | 22 20 20 20 a4 64 65 62 |ength..T|"   .deb|
|00000380| 75 67 28 22 62 65 66 6f | 72 65 20 63 6f 6e 76 65 |ug("befo|re conve|
|00000390| 72 73 69 6f 6e 22 29 0d | 01 5e 37 53 57 49 20 20 |rsion").|.^7SWI  |
|000003a0| 20 22 4f 53 5f 43 6f 6e | 76 65 72 74 49 6e 74 65 | "OS_Con|vertInte|
|000003b0| 67 65 72 31 22 20 20 20 | 20 20 20 5c 20 63 6f 6e |ger1"   |   \ con|
|000003c0| 76 65 72 74 20 72 30 20 | 61 6e 64 20 2e 2e 0d 01 |vert r0 |and ....|
|000003d0| 68 21 20 20 20 a4 64 65 | 62 75 67 28 22 61 66 74 |h!   .de|bug("aft|
|000003e0| 65 72 20 63 6f 6e 76 65 | 72 73 69 6f 6e 22 29 0d |er conve|rsion").|
|000003f0| 01 72 34 53 57 49 20 20 | 20 22 4f 53 5f 57 72 69 |.r4SWI  | "OS_Wri|
|00000400| 74 65 30 22 20 20 20 20 | 20 20 20 20 20 20 20 20 |te0"    |        |
|00000410| 20 20 20 5c 20 6f 75 74 | 70 75 74 20 63 6f 75 6e |   \ out|put coun|
|00000420| 74 65 72 0d 01 7c 16 53 | 57 49 20 20 20 22 4f 53 |ter..|.S|WI   "OS|
|00000430| 5f 4e 65 77 4c 69 6e 65 | 22 0d 01 86 37 53 55 42 |_NewLine|"...7SUB|
|00000440| 53 20 20 52 33 2c 52 33 | 2c 23 31 20 20 20 20 20 |S  R3,R3|,#1     |
|00000450| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 20 64 |        |     \ d|
|00000460| 65 63 72 65 6d 65 6e 74 | 20 63 6f 75 6e 74 65 72 |ecrement| counter|
|00000470| 0d 01 90 1d 20 20 20 a4 | 64 65 62 75 67 28 22 65 |....   .|debug("e|
|00000480| 6e 64 20 6f 66 20 6c 6f | 6f 70 3f 22 29 0d 01 9a |nd of lo|op?")...|
|00000490| 38 42 4e 45 20 20 20 6c | 6f 6f 70 20 20 20 20 20 |8BNE   l|oop     |
|000004a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000004b0| 20 5c 20 67 6f 20 6f 75 | 74 70 75 74 20 6e 65 78 | \ go ou|tput nex|
|000004c0| 74 20 6f 6e 65 0d 01 a4 | 04 0d 01 ae 37 4c 44 4d |t one...|....7LDM|
|000004d0| 46 44 20 52 31 33 21 2c | 7b 52 30 2d 52 39 2c 52 |FD R13!,|{R0-R9,R|
|000004e0| 31 34 7d 20 20 20 20 20 | 20 20 20 20 20 5c 20 72 |14}     |     \ r|
|000004f0| 65 73 74 6f 72 65 20 72 | 65 67 69 73 74 65 72 73 |estore r|egisters|
|00000500| 0d 01 b8 2a 20 20 20 a4 | 64 65 62 75 67 28 22 41 |...*   .|debug("A|
|00000510| 62 6f 75 74 20 74 6f 20 | 72 65 74 75 72 6e 20 66 |bout to |return f|
|00000520| 72 6f 6d 20 63 6f 64 65 | 22 29 0d 01 c2 35 4d 4f |rom code|")...5MO|
|00000530| 56 20 20 20 50 43 2c 52 | 31 34 20 20 20 20 20 20 |V   PC,R|14      |
|00000540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 20 |        |      \ |
|00000550| 72 65 74 75 72 6e 20 74 | 6f 20 62 61 73 69 63 0d |return t|o basic.|
|00000560| 01 cc 04 0d 01 d6 3b 2e | 62 75 66 66 65 72 20 45 |......;.|buffer E|
|00000570| 51 55 44 20 30 3a 45 51 | 55 44 20 30 3a 45 51 55 |QUD 0:EQ|UD 0:EQU|
|00000580| 44 20 30 20 20 20 20 5c | 20 73 74 6f 72 65 20 66 |D 0    \| store f|
|00000590| 6f 72 20 63 6f 6e 76 65 | 72 73 69 6f 6e 73 0d 01 |or conve|rsions..|
|000005a0| e0 35 a4 64 65 62 75 67 | 28 22 44 65 62 75 67 5f |.5.debug|("Debug_|
|000005b0| 49 6e 69 74 22 29 20 20 | 20 20 20 20 20 20 20 20 |Init")  |        |
|000005c0| 20 5c 20 69 6e 69 74 69 | 61 6c 69 73 65 20 64 65 | \ initi|alise de|
|000005d0| 62 75 67 0d 01 ea 05 5d | 0d 01 f4 05 ed 0d 01 fe |bug....]|........|
|000005e0| 05 e1 0d ff             |                         |....    |        |
+--------+-------------------------+-------------------------+--------+--------+