/ APDL Public Domain 1 / APDL_PD1A.iso / program / assembler / extbas / Examples / test_equ

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 f4 20 3e | 74 65 73 74 5f 65 71 75 |.... . >|test_equ|
|00000010| 0d 00 14 11 20 de 20 63 | 6f 64 65 25 20 31 30 32 |.... . c|ode% 102|
|00000020| 34 0d 00 1e 0f 20 50 25 | 20 3d 20 63 6f 64 65 25 |4.... P%| = code%|
|00000030| 0d 00 28 0b 20 5b 4f 50 | 54 20 33 0d 00 32 16 20 |..(. [OP|T 3..2. |
|00000040| 2e 76 61 6c 75 65 20 45 | 51 55 46 53 20 36 2e 30 |.value E|QUFS 6.0|
|00000050| 30 0d 00 3c 0a 20 2e 61 | 64 64 73 0d 00 46 12 20 |0..<. .a|dds..F. |
|00000060| 4c 44 46 53 20 46 30 2c | 76 61 6c 75 65 0d 00 50 |LDFS F0,|value..P|
|00000070| 14 20 41 44 46 53 20 46 | 30 2c 46 30 2c 23 32 2e |. ADFS F|0,F0,#2.|
|00000080| 30 0d 00 5a 0e 20 46 49 | 58 20 52 30 2c 46 30 0d |0..Z. FI|X R0,F0.|
|00000090| 00 64 0f 20 4d 4f 56 20 | 50 43 2c 52 31 34 0d 00 |.d. MOV |PC,R14..|
|000000a0| 6e 06 20 3a 0d 00 78 16 | 20 2e 76 61 6c 75 65 20 |n. :..x.| .value |
|000000b0| 45 51 55 46 44 20 38 2e | 30 30 0d 00 82 0a 20 2e |EQUFD 8.|00.... .|
|000000c0| 61 64 64 64 0d 00 8c 12 | 20 4c 44 46 44 20 46 30 |addd....| LDFD F0|
|000000d0| 2c 76 61 6c 75 65 0d 00 | 96 14 20 41 44 46 44 20 |,value..|.. ADFD |
|000000e0| 46 30 2c 46 30 2c 23 32 | 2e 30 0d 00 a0 0e 20 46 |F0,F0,#2|.0.... F|
|000000f0| 49 58 20 52 30 2c 46 30 | 0d 00 aa 0f 20 4d 4f 56 |IX R0,F0|.... MOV|
|00000100| 20 50 43 2c 52 31 34 0d | 00 b4 06 20 3a 0d 00 be | PC,R14.|... :...|
|00000110| 16 20 2e 76 61 6c 75 65 | 20 45 51 55 46 45 20 39 |. .value| EQUFE 9|
|00000120| 2e 30 30 0d 00 c8 0a 20 | 2e 61 64 64 65 0d 00 d2 |.00.... |.adde...|
|00000130| 12 20 4c 44 46 45 20 46 | 30 2c 76 61 6c 75 65 0d |. LDFE F|0,value.|
|00000140| 00 dc 14 20 41 44 46 45 | 20 46 30 2c 46 30 2c 23 |... ADFE| F0,F0,#|
|00000150| 32 2e 30 0d 00 e6 0e 20 | 46 49 58 20 52 30 2c 46 |2.0.... |FIX R0,F|
|00000160| 30 0d 00 f0 0f 20 4d 4f | 56 20 50 43 2c 52 31 34 |0.... MO|V PC,R14|
|00000170| 0d 00 fa 06 20 5d 0d 01 | 04 06 20 e0 0d 01 0e 06 |.... ]..|.. .....|
|00000180| 20 3a 0d 01 18 15 20 dd | f2 64 69 73 70 5f 66 73 | :.... .|.disp_fs|
|00000190| 28 77 6f 72 64 25 29 0d | 01 22 1f 20 e7 20 28 77 |(word%).|.". . (w|
|000001a0| 6f 72 64 25 20 80 20 31 | 3c 3c 33 31 29 20 8c 20 |ord% . 1|<<31) . |
|000001b0| f1 20 22 2d 22 3b 0d 01 | 2c 1f 20 65 78 70 25 20 |. "-";..|,. exp% |
|000001c0| 3d 20 28 77 6f 72 64 25 | 20 3e 3e 20 32 33 29 20 |= (word%| >> 23) |
|000001d0| 80 20 26 46 46 0d 01 36 | 1e 20 6d 61 6e 74 25 20 |. &FF..6|. mant% |
|000001e0| 3d 20 28 77 6f 72 64 25 | 20 80 20 26 37 46 46 46 |= (word%| . &7FFF|
|000001f0| 46 46 29 0d 01 40 22 20 | e7 20 65 78 70 25 20 3d |FF)..@" |. exp% =|
|00000200| 20 30 20 80 20 6d 61 6e | 74 25 3d 30 20 8c 20 f1 | 0 . man|t%=0 . .|
|00000210| 22 30 22 3a e1 0d 01 4a | 2f 20 e7 20 65 78 70 25 |"0":...J|/ . exp%|
|00000220| 20 3d 20 30 20 8c 20 f1 | 20 28 6d 61 6e 74 25 2f | = 0 . .| (mant%/|
|00000230| 28 32 5e 32 33 29 29 20 | 2a 20 32 5e 28 2d 31 32 |(2^23)) |* 2^(-12|
|00000240| 36 29 3a e1 0d 01 54 2b | 20 e7 20 65 78 70 25 20 |6):...T+| . exp% |
|00000250| 3d 20 32 35 35 20 80 20 | 6d 61 6e 74 25 3d 30 20 |= 255 . |mant%=0 |
|00000260| 8c 20 f1 22 69 6e 66 69 | 6e 69 74 79 22 3a e1 0d |. ."infi|nity":..|
|00000270| 01 5e 27 20 e7 20 65 78 | 70 25 20 3d 20 32 35 35 |.^' . ex|p% = 255|
|00000280| 20 8c 20 f1 22 6e 6f 74 | 20 61 20 6e 75 6d 62 65 | . ."not| a numbe|
|00000290| 72 20 21 22 3a e1 0d 01 | 68 28 20 f1 20 28 31 2b |r !":...|h( . (1+|
|000002a0| 28 6d 61 6e 74 25 2f 28 | 32 5e 32 33 29 29 29 20 |(mant%/(|2^23))) |
|000002b0| 2a 20 32 5e 28 65 78 70 | 25 2d 31 32 37 29 0d 01 |* 2^(exp|%-127)..|
|000002c0| 72 06 20 e1 0d 01 7c 06 | 20 3a 0d 01 86 1d 20 dd |r. ...|.| :.... .|
|000002d0| f2 64 69 73 70 5f 66 64 | 28 77 6f 72 64 31 25 2c |.disp_fd|(word1%,|
|000002e0| 77 6f 72 64 32 25 29 0d | 01 90 20 20 e7 20 28 77 |word2%).|..  . (w|
|000002f0| 6f 72 64 31 25 20 80 20 | 31 3c 3c 33 31 29 20 8c |ord1% . |1<<31) .|
|00000300| 20 f1 20 22 2d 22 3b 0d | 01 9a 21 20 65 78 70 25 | . "-";.|..! exp%|
|00000310| 20 3d 20 28 77 6f 72 64 | 31 25 20 3e 3e 20 32 30 | = (word|1% >> 20|
|00000320| 29 20 80 20 26 37 46 46 | 0d 01 a4 24 20 6d 61 6e |) . &7FF|...$ man|
|00000330| 74 20 3d 20 28 77 6f 72 | 64 31 25 20 80 20 26 46 |t = (wor|d1% . &F|
|00000340| 46 46 46 46 29 20 2a 20 | 32 5e 33 32 0d 01 ae 11 |FFFF) * |2^32....|
|00000350| 20 6d 61 6e 74 2b 3d 77 | 6f 72 64 32 25 0d 01 b8 | mant+=w|ord2%...|
|00000360| 1f 20 e7 20 65 78 70 25 | 3d 30 20 80 20 6d 61 6e |. . exp%|=0 . man|
|00000370| 74 3d 30 20 8c 20 f1 22 | 30 22 3a e1 0d 01 c2 2d |t=0 . ."|0":....-|
|00000380| 20 e7 20 65 78 70 25 3d | 30 20 8c 20 f1 20 28 6d | . exp%=|0 . . (m|
|00000390| 61 6e 74 2f 28 32 5e 35 | 32 29 29 20 2a 20 32 5e |ant/(2^5|2)) * 2^|
|000003a0| 28 2d 31 30 32 32 29 3a | e1 0d 01 cc 2b 20 e7 20 |(-1022):|....+ . |
|000003b0| 65 78 70 25 20 3d 20 32 | 30 34 37 20 80 20 6d 61 |exp% = 2|047 . ma|
|000003c0| 6e 74 3d 30 20 8c 20 f1 | 22 69 6e 66 69 6e 69 74 |nt=0 . .|"infinit|
|000003d0| 79 22 3a e1 0d 01 d6 28 | 20 e7 20 65 78 70 25 20 |y":....(| . exp% |
|000003e0| 3d 20 32 30 34 37 20 8c | 20 f1 22 6e 6f 74 20 61 |= 2047 .| ."not a|
|000003f0| 20 6e 75 6d 62 65 72 20 | 21 22 3a e1 0d 01 e0 2c | number |!":....,|
|00000400| 20 f1 20 28 31 20 2b 20 | 28 6d 61 6e 74 2f 28 32 | . (1 + |(mant/(2|
|00000410| 5e 35 32 29 29 29 20 2a | 20 32 5e 28 65 78 70 25 |^52))) *| 2^(exp%|
|00000420| 2d 31 30 32 33 29 3a e1 | 0d ff                   |-1023):.|..      |
+--------+-------------------------+-------------------------+--------+--------+