/* * 2.aud * 95 jun 26 * * Shadow dump, program dump, symbolic scheme, box scheme and * execution trace for example 2. * * Prepared from the output of 2-autod.4th. * 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 0123456789ABCDEF 0000 73 73 68 66 2E 2E 2E 68 66 2E 2E 2E 68 66 2E 2E sshf...hf...hf.. 0010 2E 68 68 66 2E 2E 2E 68 68 66 2E 2E 2E 68 68 66 .hhf...hhf...hhf 0020 2E 2E 2E 68 68 68 34 2E 2E 2E 68 68 6C 2B 6C 2B ...hhh4...hhl+l+ 0030 6C 2B 6C 2B 73 68 68 6C 2B 6C 2B 6C 2B 6C 2B 6C l+l+shhl+l+l+l+l 0040 2B 73 68 6C 2B 6C 2B 20 20 6A 6C 2B 24 63 63 63 +shl+l+ jl+$ccc 0050 63 63 6C 2B 6A 6C 2B 20 6A 6C 2B 24 63 63 63 63 ccl+jl+ jl+$cccc 0060 63 6C 2B 6A 6C 2B 24 63 63 63 63 63 63 63 63 63 cl+jl+$ccccccccc 0070 63 63 63 63 63 63 63 63 63 73 20 20 20 20 20 20 cccccccccs 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 0123456789ABCDEF 0000 FC FE 01 24 EC 03 00 01 40 B5 03 00 01 EC 02 04 ...$....@....... 0010 00 02 01 54 02 04 00 02 01 80 02 04 00 02 01 BC ...T............ 0020 02 04 00 05 04 03 00 00 00 00 02 00 00 25 00 02 .............%.. 0030 00 07 00 18 FF 02 00 00 25 00 02 00 02 00 0C 00 ........%....... 0040 18 FF 00 00 24 00 35 30 39 0B 00 1D 05 64 69 67 ....$.509....dig 0050 69 74 00 11 24 00 2A 20 0B 00 1D 05 73 70 61 63 it..$.* ....spac 0060 65 00 11 15 00 1D 12 6E 6F 74 20 64 69 67 69 74 e......not digit 0070 20 6F 72 20 73 70 61 63 65 FF 20 20 20 20 20 20 or space. %END-CRIM %SEXIT 00 01 H_FORTH S@U1, %S@U1, = 02 02 03 H_FORTH = %= = 07 07 08 H_FORTH IN[,] %IN[,] = 0C 0C 0D H_RSR H_FORTH SBRANCH %BRANCH = 11 %SBRANCH = 12 11 12 13 H_RSR H_FORTH S0BRANCH %0BRANCH = 17 %S0BRANCH = 18 17 18 19 H_RSR H_FORTH S<."> %<."> = 1D %S<."> = 1E 1D 1E 1F H_VALUE_3 H_VALUE_2 H_VALUE_1 0x00000000 %CASE-V = 25 23 24 25 26 H_RSR H_CRIM %CASE-V %S@U1, %= %S0BRANCH %EXIT %CZ= = 2A 2A 2B 2C 2E 30 32 34 H_RSR H_CRIM %CASE-V %S@U1, %S@U1, %IN[,] %S0BRANCH %EXIT %CZIN[,] = 35 35 36 37 39 3B 3D 3F 41 H_CRIM %CASE-V-1 %CLASSIFY = 42 42 43 %CZ[,] '0' '9' 0x55-0x4A 45 47 48 49 %<."> 0x05 "digit" %BRANCH 0x79-0x55 4A 4C 4D 52 54 %CZ= ' ' 0x64-0x59 55 57 58 %<."> 0x05 "space" %BRANCH 0x79-0x64 59 5B 5C 61 63 %<."> 0x12 "not digit or space" 64 66 67 %EXIT 79 +--+ +--+ +--+--+--+--+--+ +--+--+--+--+--+ +--+--+--+--+--+ |FC| |FE| |01| 0003EC24 | |01| 0003B540 | |01| 000402EC | +--+ +--+ +==+..+..+..+..+ +==+..+..+..+..+ +==+..+..+..+..+ 00 01 02 07 0C +--+--+--+--+--+--+ +--+--+--+--+--+--+ +--+--+--+--+--+--+ |02|01| 00040254 | |02|01| 00040280 | |02|01| 000402BC | +==+==+..+..+..+..+ +==+==+..+..+..+..+ +==+==+..+..+..+..+ 11 18 1D +--+--+--+--+--+--+--+ +--+--+--+--+--+--+--+--+--+--+--+ |05|04|03| 00000000 | |02|00|00 25|00 02|00 07|00 18|FF| +==+==+==+..+..+..+..+ +==+==+--+--+--+--+--+--+--+--+--+ 24 25 2A +--+--+--+--+--+--+--+--+--+--+--+--+--+ |02|00|00 25|00 02|00 02|00 0C|00 18|FF| +==+==+--+--+--+--+--+--+--+--+--+--+--+ 35 +--+ +--+--+ +--+--+--+--+--+ +--+--+--+--+--+--+--+--+ +--+--+--+ |00| |00 24| |00 35|30|39|0B| |00 1D|05|64 69 67 69 74| |00 11|24| +==+ +--+--+ +--+--+..+..+>>+ +--+--+$$+..+..+..+..+..+ +--+--+>>+ 42 4A +--+--+--+--+ +--+--+--+--+--+--+--+--+ +--+--+--+ |00 2A|20|0B| |00 1D|05|73 70 61 63 65| |00 11|15| +--+--+..+>>+ +--+--+$$+..+..+..+..+..+ +--+--+>>+ 55 59 +--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+--+ +--+ |00 1D|12|6E 6F 74 20 64 69 67 69 74 20 6F 72 20 73 70 61 63 65| |FF| +--+--+$$+..+..+..+..+..+..+..+..+..+..+..+..+..+..+..+..+..+..+ +--+ 64 79 0 42 /// // 21 :: head %CLASSIFY 0 43 /// // 21 :: crim | 0 45 24 /// // 21 :: head | %CASE-V (store) 0 45 25 /// // 21 :: (value_2) | ; 0 45 /// // :: crim | 0 47 35 /// // :: head | %CZ[,] 0 1 36 /// 47 // :: head | |%SCZ[,] 0 1 37 /// 47 // :: crim | || 0 1 39 25 /// 47 // :: head | || %CASE-V (fetch) 0 1 39 26 /// 47 // :: (value_1) | || ; 0 1 39 /// 47 // 21 :: crim | || 0 1 3B 2 /// 47 // 21 :: head | || %S@U1, 0 1 3B 3 /// 47 // 21 :: (forth) | || ; 0 1 3B /// 48 // 21 30 :: crim | || 0 1 3D 2 /// 48 // 21 30 :: head | || %S@U1, 0 1 3D 3 /// 48 // 21 30 :: (forth) | || ; 0 1 3D /// 49 // 21 30 39 :: crim | || 0 1 3F C /// 49 // 21 30 39 :: head | || %IN[,] 0 1 3F D /// 49 // 21 30 39 :: (forth) | || ; 0 1 3F /// 49 // 0 :: crim | || 0 1 41 18 /// 49 // 0 :: head | || %S0BRANCH 0 1 41 19 /// 49 // 0 :: (forth) | || ; 0 1 41 /// 55 // :: crim | |; 0 1 /// 55 // :: crim | ; 0 55 /// // :: crim | 0 57 2A /// // :: head | %CZ= 0 1 2B /// 57 // :: head | |%SCZ= 0 1 2C /// 57 // :: crim | || 0 1 2E 25 /// 57 // :: head | || %CASE-V (fetch) 0 1 2E 26 /// 57 // :: (value_1) | || ; 0 1 2E /// 57 // 21 :: crim | || 0 1 30 2 /// 57 // 21 :: head | || %S@U1, 0 1 30 3 /// 57 // 21 :: (forth) | || ; 0 1 30 /// 58 // 21 20 :: crim | || 0 1 32 7 /// 58 // 21 20 :: head | || %= 0 1 32 8 /// 58 // 21 20 :: (forth) | || ; 0 1 32 /// 58 // 0 :: crim | || 0 1 34 18 /// 58 // 0 :: head | || %S0BRANCH 0 1 34 19 /// 58 // 0 :: (forth) | || ; 0 1 34 /// 64 // :: crim | |; 0 1 /// 64 // :: crim | ; 0 64 /// // :: crim | 0 66 1D /// // :: head | %<."> 0 1 1E /// 66 // :: head | |%S<."> 0 1 1F /// 66 // :: (forth) | |; 0 1 /// 79 // :: crim | ; 0 79 /// // :: crim ; 0 /// // :: crim