|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00) Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_3c48ab
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0338 | 8 | .CONST 0x0338 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0046 | F | .CONST 0x0046 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4836 |H6 | Short_Literal 0x36 000d 029f 004b | K| Declare_Subprogram INIT_0048,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 0012 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0014 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0018 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 001c 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 001e 00bf | | Action Accept_Activation 001f 4830 |H0 | Short_Literal 0x30 0020 4839 |H9 | Short_Literal 0x39 0021 00e8 | | Load_Encached Character_Cache 0022 03f8 | | Declare_Type Discrete,Constrained 0023 4861 |Ha | Short_Literal 0x61 0024 487a |Hz | Short_Literal 0x7a 0025 00e8 | | Load_Encached Character_Cache 0026 03f8 | | Declare_Type Discrete,Constrained 0027 4841 |HA | Short_Literal 0x41 0028 485a |HZ | Short_Literal 0x5a 0029 00e8 | | Load_Encached Character_Cache 002a 03f8 | | Declare_Type Discrete,Constrained 002b 4813 |H | Short_Literal 0x13 002c 4836 |H6 | Short_Literal 0x36 002d e20d | | Load 0x1,0xd 002e 03f8 | | Declare_Type Discrete,Constrained 002f 4800 |H | Short_Literal 0x0 0030 4807 |H | Short_Literal 0x7 0031 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0033 03fd | | Declare_Type Discrete,Defined 0034 e002 | | Load 0x0,0x2 0035 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0036 e20d | | Load 0x1,0xd 0037 0007 | | Action Break_Optional 0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0039 00c7 | | Action Elaborate_Subprogram 003a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 003b 00c7 | | Action Elaborate_Subprogram 003c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003d 00c7 | | Action Elaborate_Subprogram 003e 1d11 | | Execute_Immediate Reference_Lex_1,0x11 003f 00c7 | | Action Elaborate_Subprogram 0040 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0041 00c7 | | Action Elaborate_Subprogram 0042 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0043 00c7 | | Action Elaborate_Subprogram 0044 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0045 00c7 | | Action Elaborate_Subprogram 0046 BODY_0008: 0046 00bc | | Action Signal_Activated 0047 00bb | | Action Signal_Completion 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 4607 |F | Jump_Case 0x8 004c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 004d 7807 |x | Jump 0x55 ; case 0x1 004e 780a |x | Jump 0x59 ; case 0x2 004f 780e |x | Jump 0x5e ; case 0x3 0050 7811 |x | Jump 0x62 ; case 0x4 0051 7812 |x | Jump 0x64 ; case 0x5 0052 7813 |x | Jump 0x66 ; case 0x6 0053 7816 |x | Jump 0x6a ; case 0x7 0054 4302 |C | .XXX[0x1] 0055 00da | | Load_Top At_Offset_2 0056 0091 0206 | | Action Push_String_Extended_Indexed,0x206 ; "PLUS" 0058 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0059 00db | | Load_Top At_Offset_3 005a 00db | | Load_Top At_Offset_3 005b 00e0 | | Load_Encached Standard_Cache 005c 181b | | Execute Package,Field_Execute,Field_Number 0x1b 005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 005e 00da | | Load_Top At_Offset_2 005f 00e0 | | Load_Encached Standard_Cache 0060 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0061 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0062 00db | | Load_Top At_Offset_3 0063 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0064 00db | | Load_Top At_Offset_3 0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0066 e20d | | Load 0x1,0xd 0067 00dc | | Load_Top At_Offset_4 0068 0267 | g | Execute Discrete,Predecessor 0069 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006a e20d | | Load 0x1,0xd 006b 00dc | | Load_Top At_Offset_4 006c 0268 | h | Execute Discrete,Successor 006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0075 | u | .CONST 0x0075 ; Address of begin 0071 007d | } | .CONST 0x007d ; Address of exception handler 0072 0002 | | .CONST 0x0002 ; Number of locals 0073 INIT_0070: 0073 e218 | | Load 0x1,0x18 0074 0007 | | Action Break_Optional 0075 BODY_0070: 0075 00db | | Load_Top At_Offset_3 0076 e20d | | Load 0x1,0xd 0077 1c02 | | Execute_Immediate Run_Utility,0x2 0078 0059 | Y | Store_Top Discrete,At_Offset_1 0079 00db | | Load_Top At_Offset_3 007a e20d | | Load 0x1,0xd 007b 1c02 | | Execute_Immediate Run_Utility,0x2 007c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 007d TRAP_0070: 007d 010e | | Execute Exception,Is_Constraint_Error 007e 6802 |h | Jump_Zero 0x81 007f 480f |H | Short_Literal 0xf 0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0081 0100 | | Execute Exception,Raise 0082 0000 0000 | | .BLANK 0000[0x6] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 8003 | | Call 0x0,0x3 008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008d 0000 0000 | | .XXX[0x3] 008f 0000 | | 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 8004 | | Call 0x0,0x4 0094 00ca | | Action Exit_Nullary_Function 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b e21b | | Load 0x1,0x1b 009c 00ca | | Action Exit_Nullary_Function 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 e21a | | Load 0x1,0x1a 00a4 8005 | | Call 0x0,0x5 00a5 00ca | | Action Exit_Nullary_Function 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e21b | | Load 0x1,0x1b 00ac 0f11 | | Execute_Immediate Equal,0x11 00ad 00ca | | Action Exit_Nullary_Function 00ae 0000 0000 | | .XXX[0x2] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b6 | | .CONST 0x00b6 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0003 | | .CONST 0x0003 ; Number of locals 00b3 INIT_00b0: 00b3 00e8 | | Load_Encached Character_Cache 00b4 e219 | | Load 0x1,0x19 00b5 0007 | | Action Break_Optional 00b6 BODY_00b0: 00b6 e21a | | Load 0x1,0x1a 00b7 8006 | | Call 0x0,0x6 00b8 c21a | | Store 0x1,0x1a 00b9 4800 |H | Short_Literal 0x0 00ba 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 00bb 00cf | | Action Mark_Auxiliary 00bc 8007 | | Call 0x0,0x7 00bd 7004 |p | Jump_Nonzero 0xc2 00be 8008 | | Call 0x0,0x8 00bf 8009 | | Call 0x0,0x9 00c0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00c1 7802 |x | Jump 0xc4 00c2 4804 |H | Short_Literal 0x4 00c3 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 00c4 00d9 | | Load_Top At_Offset_1 00c5 4607 |F | Jump_Case 0x8 00c6 7869 |xi | Jump 0x130 ; case 0x0 00c7 790c |y | Jump 0x1d4 ; case 0x1 00c8 7827 |x' | Jump 0xf0 ; case 0x2 00c9 783c |x< | Jump 0x106 ; case 0x3 00ca 7812 |x | Jump 0xdd ; case 0x4 00cb 7848 |xH | Jump 0x114 ; case 0x5 00cc 7816 |x | Jump 0xe3 ; case 0x6 00cd 7800 |x | Jump 0xce ; case 0x7 00ce 00da | | Load_Top At_Offset_2 00cf e215 | | Load 0x1,0x15 00d0 0260 | ` | Execute Discrete,In_Type 00d1 6805 |h | Jump_Zero 0xd7 00d2 e21a | | Load 0x1,0x1a 00d3 00db | | Load_Top At_Offset_3 00d4 800a | | Call 0x0,0xa 00d5 c21a | | Store 0x1,0x1a 00d6 78fd |x | Jump 0x1d4 00d7 800b | | Call 0x0,0xb 00d8 4810 |H | Short_Literal 0x10 00d9 a21b | | Store_Unchecked 0x1,0x1b 00da 4801 |H | Short_Literal 0x1 00db 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00dc 78f7 |x | Jump 0x1d4 00dd 00da | | Load_Top At_Offset_2 00de 0f7d | } | Execute_Immediate Equal,0x7d 00df 68f4 |h | Jump_Zero 0x1d4 00e0 4800 |H | Short_Literal 0x0 00e1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00e2 78f1 |x | Jump 0x1d4 00e3 00da | | Load_Top At_Offset_2 00e4 0f22 | " | Execute_Immediate Equal,0x22 00e5 6805 |h | Jump_Zero 0xeb 00e6 480e |H | Short_Literal 0xe 00e7 a21b | | Store_Unchecked 0x1,0x1b 00e8 4801 |H | Short_Literal 0x1 00e9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00ea 78e9 |x | Jump 0x1d4 00eb e21a | | Load 0x1,0x1a 00ec 00db | | Load_Top At_Offset_3 00ed 800a | | Call 0x0,0xa 00ee c21a | | Store 0x1,0x1a 00ef 78e4 |x | Jump 0x1d4 00f0 00da | | Load_Top At_Offset_2 00f1 0b3e | > | Execute_Immediate Case_Compare,0x3e 00f2 7008 |p | Jump_Nonzero 0xfb 00f3 0f3d | = | Execute_Immediate Equal,0x3d 00f4 700c |p | Jump_Nonzero 0x101 00f5 800b | | Call 0x0,0xb 00f6 4804 |H | Short_Literal 0x4 00f7 a21b | | Store_Unchecked 0x1,0x1b 00f8 4801 |H | Short_Literal 0x1 00f9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00fa 78d9 |x | Jump 0x1d4 00fb 00d1 | | Pop_Control Pop_Count_1 00fc 4806 |H | Short_Literal 0x6 00fd a21b | | Store_Unchecked 0x1,0x1b 00fe 4801 |H | Short_Literal 0x1 00ff 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0100 78d3 |x | Jump 0x1d4 0101 4805 |H | Short_Literal 0x5 0102 a21b | | Store_Unchecked 0x1,0x1b 0103 4801 |H | Short_Literal 0x1 0104 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0105 78ce |x | Jump 0x1d4 0106 00da | | Load_Top At_Offset_2 0107 0f3d | = | Execute_Immediate Equal,0x3d 0108 6805 |h | Jump_Zero 0x10e 0109 4808 |H | Short_Literal 0x8 010a a21b | | Store_Unchecked 0x1,0x1b 010b 4801 |H | Short_Literal 0x1 010c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 010d 78c6 |x | Jump 0x1d4 010e 800b | | Call 0x0,0xb 010f 4807 |H | Short_Literal 0x7 0110 a21b | | Store_Unchecked 0x1,0x1b 0111 4801 |H | Short_Literal 0x1 0112 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0113 78c0 |x | Jump 0x1d4 0114 00da | | Load_Top At_Offset_2 0115 e217 | | Load 0x1,0x17 0116 0260 | ` | Execute Discrete,In_Type 0117 00db | | Load_Top At_Offset_3 0118 e216 | | Load 0x1,0x16 0119 0260 | ` | Execute Discrete,In_Type 011a 0278 | x | Execute Discrete,Or 011b 00db | | Load_Top At_Offset_3 011c e215 | | Load 0x1,0x15 011d 0260 | ` | Execute Discrete,In_Type 011e 0278 | x | Execute Discrete,Or 011f 00db | | Load_Top At_Offset_3 0120 0f5f | _ | Execute_Immediate Equal,0x5f 0121 0278 | x | Execute Discrete,Or 0122 6805 |h | Jump_Zero 0x128 0123 e21a | | Load 0x1,0x1a 0124 00db | | Load_Top At_Offset_3 0125 800a | | Call 0x0,0xa 0126 c21a | | Store 0x1,0x1a 0127 78ac |x | Jump 0x1d4 0128 800b | | Call 0x0,0xb 0129 e21a | | Load 0x1,0x1a 012a 8005 | | Call 0x0,0x5 012b 820e | | Call 0x1,0xe 012c a21b | | Store_Unchecked 0x1,0x1b 012d 4801 |H | Short_Literal 0x1 012e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 012f 78a4 |x | Jump 0x1d4 0130 00da | | Load_Top At_Offset_2 0131 00d8 | | Load_Top At_Offset_0 0132 0d04 | | Execute_Immediate Less,0x4 0133 7046 |pF | Jump_Nonzero 0x17a 0134 00d8 | | Load_Top At_Offset_0 0135 0c3f | ? | Execute_Immediate Greater_Equal,0x3f 0136 7040 |p@ | Jump_Nonzero 0x177 0137 0afc | | Execute_Immediate Plus,-0x4 0138 463a |F: | Jump_Case 0x3b 0139 7860 |x` | Jump 0x19a ; case 0x0 013a 7840 |x@ | Jump 0x17b ; case 0x1 013b 783f |x? | Jump 0x17b ; case 0x2 013c 783e |x> | Jump 0x17b ; case 0x3 013d 783d |x= | Jump 0x17b ; case 0x4 013e 783c |x< | Jump 0x17b ; case 0x5 013f 783b |x; | Jump 0x17b ; case 0x6 0140 783a |x: | Jump 0x17b ; case 0x7 0141 7839 |x9 | Jump 0x17b ; case 0x8 0142 7891 |x | Jump 0x1d4 ; case 0x9 0143 7837 |x7 | Jump 0x17b ; case 0xa 0144 7836 |x6 | Jump 0x17b ; case 0xb 0145 7835 |x5 | Jump 0x17b ; case 0xc 0146 7834 |x4 | Jump 0x17b ; case 0xd 0147 7833 |x3 | Jump 0x17b ; case 0xe 0148 7832 |x2 | Jump 0x17b ; case 0xf 0149 7831 |x1 | Jump 0x17b ; case 0x10 014a 7830 |x0 | Jump 0x17b ; case 0x11 014b 782f |x/ | Jump 0x17b ; case 0x12 014c 782e |x. | Jump 0x17b ; case 0x13 014d 782d |x- | Jump 0x17b ; case 0x14 014e 782c |x, | Jump 0x17b ; case 0x15 014f 782b |x+ | Jump 0x17b ; case 0x16 0150 782a |x* | Jump 0x17b ; case 0x17 0151 7829 |x) | Jump 0x17b ; case 0x18 0152 7828 |x( | Jump 0x17b ; case 0x19 0153 7827 |x' | Jump 0x17b ; case 0x1a 0154 7826 |x& | Jump 0x17b ; case 0x1b 0155 787e |x~ | Jump 0x1d4 ; case 0x1c 0156 7824 |x$ | Jump 0x17b ; case 0x1d 0157 787a |xz | Jump 0x1d2 ; case 0x1e 0158 7822 |x" | Jump 0x17b ; case 0x1f 0159 7821 |x! | Jump 0x17b ; case 0x20 015a 7820 |x | Jump 0x17b ; case 0x21 015b 781f |x | Jump 0x17b ; case 0x22 015c 781e |x | Jump 0x17b ; case 0x23 015d 7862 |xb | Jump 0x1c0 ; case 0x24 015e 7866 |xf | Jump 0x1c5 ; case 0x25 015f 7849 |xI | Jump 0x1a9 ; case 0x26 0160 783e |x> | Jump 0x19f ; case 0x27 0161 7859 |xY | Jump 0x1bb ; case 0x28 0162 7841 |xA | Jump 0x1a4 ; case 0x29 0163 7866 |xf | Jump 0x1ca ; case 0x2a 0164 7849 |xI | Jump 0x1ae ; case 0x2b 0165 7815 |x | Jump 0x17b ; case 0x2c 0166 7814 |x | Jump 0x17b ; case 0x2d 0167 7813 |x | Jump 0x17b ; case 0x2e 0168 7812 |x | Jump 0x17b ; case 0x2f 0169 7811 |x | Jump 0x17b ; case 0x30 016a 7810 |x | Jump 0x17b ; case 0x31 016b 780f |x | Jump 0x17b ; case 0x32 016c 780e |x | Jump 0x17b ; case 0x33 016d 780d |x | Jump 0x17b ; case 0x34 016e 780c |x | Jump 0x17b ; case 0x35 016f 780b |x | Jump 0x17b ; case 0x36 0170 780a |x | Jump 0x17b ; case 0x37 0171 7841 |xA | Jump 0x1b3 ; case 0x38 0172 7843 |xC | Jump 0x1b6 ; case 0x39 0173 7800 |x | Jump 0x174 ; case 0x3a 0174 4803 |H | Short_Literal 0x3 0175 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0176 785d |x] | Jump 0x1d4 0177 0f7b | { | Execute_Immediate Equal,0x7b 0178 7056 |pV | Jump_Nonzero 0x1cf 0179 7801 |x | Jump 0x17b 017a 00d1 | | Pop_Control Pop_Count_1 017b 00da | | Load_Top At_Offset_2 017c e217 | | Load 0x1,0x17 017d 0260 | ` | Execute Discrete,In_Type 017e 00db | | Load_Top At_Offset_3 017f e216 | | Load 0x1,0x16 0180 0260 | ` | Execute Discrete,In_Type 0181 0278 | x | Execute Discrete,Or 0182 6807 |h | Jump_Zero 0x18a 0183 e21a | | Load 0x1,0x1a 0184 00db | | Load_Top At_Offset_3 0185 800a | | Call 0x0,0xa 0186 c21a | | Store 0x1,0x1a 0187 4805 |H | Short_Literal 0x5 0188 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0189 784a |xJ | Jump 0x1d4 018a 00da | | Load_Top At_Offset_2 018b e215 | | Load 0x1,0x15 018c 0260 | ` | Execute Discrete,In_Type 018d 6807 |h | Jump_Zero 0x195 018e e21a | | Load 0x1,0x1a 018f 00db | | Load_Top At_Offset_3 0190 800a | | Call 0x0,0xa 0191 c21a | | Store 0x1,0x1a 0192 4807 |H | Short_Literal 0x7 0193 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0194 783f |x? | Jump 0x1d4 0195 4812 |H | Short_Literal 0x12 0196 a21b | | Store_Unchecked 0x1,0x1b 0197 4801 |H | Short_Literal 0x1 0198 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0199 783a |x: | Jump 0x1d4 019a 4811 |H | Short_Literal 0x11 019b a21b | | Store_Unchecked 0x1,0x1b 019c 4801 |H | Short_Literal 0x1 019d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 019e 7835 |x5 | Jump 0x1d4 019f 4800 |H | Short_Literal 0x0 01a0 a21b | | Store_Unchecked 0x1,0x1b 01a1 4801 |H | Short_Literal 0x1 01a2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01a3 7830 |x0 | Jump 0x1d4 01a4 4801 |H | Short_Literal 0x1 01a5 a21b | | Store_Unchecked 0x1,0x1b 01a6 4801 |H | Short_Literal 0x1 01a7 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01a8 782b |x+ | Jump 0x1d4 01a9 4802 |H | Short_Literal 0x2 01aa a21b | | Store_Unchecked 0x1,0x1b 01ab 4801 |H | Short_Literal 0x1 01ac 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01ad 7826 |x& | Jump 0x1d4 01ae 4803 |H | Short_Literal 0x3 01af a21b | | Store_Unchecked 0x1,0x1b 01b0 4801 |H | Short_Literal 0x1 01b1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01b2 7821 |x! | Jump 0x1d4 01b3 4802 |H | Short_Literal 0x2 01b4 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01b5 781e |x | Jump 0x1d4 01b6 4809 |H | Short_Literal 0x9 01b7 a21b | | Store_Unchecked 0x1,0x1b 01b8 4801 |H | Short_Literal 0x1 01b9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01ba 7819 |x | Jump 0x1d4 01bb 480a |H | Short_Literal 0xa 01bc a21b | | Store_Unchecked 0x1,0x1b 01bd 4801 |H | Short_Literal 0x1 01be 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01bf 7814 |x | Jump 0x1d4 01c0 480b |H | Short_Literal 0xb 01c1 a21b | | Store_Unchecked 0x1,0x1b 01c2 4801 |H | Short_Literal 0x1 01c3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01c4 780f |x | Jump 0x1d4 01c5 480c |H | Short_Literal 0xc 01c6 a21b | | Store_Unchecked 0x1,0x1b 01c7 4801 |H | Short_Literal 0x1 01c8 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01c9 780a |x | Jump 0x1d4 01ca 480d |H | Short_Literal 0xd 01cb a21b | | Store_Unchecked 0x1,0x1b 01cc 4801 |H | Short_Literal 0x1 01cd 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01ce 7805 |x | Jump 0x1d4 01cf 4804 |H | Short_Literal 0x4 01d0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01d1 7802 |x | Jump 0x1d4 01d2 4806 |H | Short_Literal 0x6 01d3 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 01d4 00d9 | | Load_Top At_Offset_1 01d5 0f01 | | Execute_Immediate Equal,0x1 01d6 7002 |p | Jump_Nonzero 0x1d9 01d7 00c9 | | Action Pop_Auxiliary_Loop 01d8 7ee3 |~ | Jump 0xbc 01d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01da 0000 0000 | | .BLANK 0000[0x6] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4607 |F | Jump_Case 0x8 01e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 01e5 7807 |x | Jump 0x1ed ; case 0x1 01e6 780a |x | Jump 0x1f1 ; case 0x2 01e7 780e |x | Jump 0x1f6 ; case 0x3 01e8 7811 |x | Jump 0x1fa ; case 0x4 01e9 7812 |x | Jump 0x1fc ; case 0x5 01ea 7813 |x | Jump 0x1fe ; case 0x6 01eb 7816 |x | Jump 0x202 ; case 0x7 01ec 4302 |C | .XXX[0x1] 01ed 00da | | Load_Top At_Offset_2 01ee 0091 023d | =| Action Push_String_Extended_Indexed,0x23d ; "NORMAL" 01f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01f1 00db | | Load_Top At_Offset_3 01f2 00db | | Load_Top At_Offset_3 01f3 00e0 | | Load_Encached Standard_Cache 01f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b 01f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01f6 00da | | Load_Top At_Offset_2 01f7 00e0 | | Load_Encached Standard_Cache 01f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 01fa 00db | | Load_Top At_Offset_3 01fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fc 00db | | Load_Top At_Offset_3 01fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 01fe e219 | | Load 0x1,0x19 01ff 00dc | | Load_Top At_Offset_4 0200 0267 | g | Execute Discrete,Predecessor 0201 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0202 e219 | | Load 0x1,0x19 0203 00dc | | Load_Top At_Offset_4 0204 0268 | h | Execute Discrete,Successor 0205 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0206 ; -------------------------------------------------------------------------------------- 0206 ; STRING TABLE 0206 ; -------------------------------------------------------------------------------------- 0206 0080 | | .STRTAB 0x0080->0x0246 ; "PLUS" 0207 0082 | | .STRTAB 0x0082->0x0248 ; "MINUS" 0208 0085 | | .STRTAB 0x0085->0x024a ; "CROSS" 0209 0088 | | .STRTAB 0x0088->0x024d ; "SLASH" 020a 008b | | .STRTAB 0x008b->0x024f ; "LESS" 020b 008d | | .STRTAB 0x008d->0x0251 ; "LESS_EQUAL" 020c 0095 | | .STRTAB 0x0095->0x0256 ; "NOT_EQUAL" 020d 009c | | .STRTAB 0x009c->0x025b ; "GREAT" 020e 009f | | .STRTAB 0x009f->0x025d ; "GREAT_EQUAL" 020f 00a8 | | .STRTAB 0x00a8->0x0263 ; "EQUAL" 0210 00ab | | .STRTAB 0x00ab->0x0265 ; "COMA" 0211 00ad | | .STRTAB 0x00ad->0x0267 ; "LEFT_BRACKET" 0212 00b7 | | .STRTAB 0x00b7->0x026d ; "RIGHT_BRACKET" 0213 00c2 | | .STRTAB 0x00c2->0x0274 ; "DOT" 0214 00c3 | | .STRTAB 0x00c3->0x0275 ; "SENTENCE" 0215 00c9 | | .STRTAB 0x00c9->0x0279 ; "IDENTIFIER" 0216 00d1 | | .STRTAB 0x00d1->0x027e ; "NUMBER" 0217 00d5 | | .STRTAB 0x00d5->0x0281 ; "EOF" 0218 00d6 | | .STRTAB 0x00d6->0x0283 ; "UNKNOWN" 0219 00db | | .STRTAB 0x00db->0x0286 ; "COMPLEMENTS" 021a 00e4 | | .STRTAB 0x00e4->0x028c ; "TYPES" 021b 00e7 | | .STRTAB 0x00e7->0x028e ; "SCENARIO" 021c 00ed | | .STRTAB 0x00ed->0x0292 ; "TERMINE" 021d 00f2 | | .STRTAB 0x00f2->0x0296 ; "DECLARATIONS" 021e 00fc | | .STRTAB 0x00fc->0x029c ; "INITIALISATIONS" 021f 0109 | | .STRTAB 0x0109->0x02a3 ; "BOOLEEN" 0220 010e | | .STRTAB 0x010e->0x02a7 ; "ENTIER" 0221 0112 | | .STRTAB 0x0112->0x02aa ; "CHAINE" 0222 0116 | | .STRTAB 0x0116->0x02ad ; "ENTITE" 0223 011a | | .STRTAB 0x011a->0x02b0 ; "DE_TYPE" 0224 011f | | .STRTAB 0x011f->0x02b3 ; "ENUMERE_DE" 0225 0127 | ' | .STRTAB 0x0127->0x02b8 ; "COMPOSE_DE" 0226 012f | / | .STRTAB 0x012f->0x02bd ; "CHAMP" 0227 0132 | 2 | .STRTAB 0x0132->0x02c0 ; "FIN_CHAMPS" 0228 013a | : | .STRTAB 0x013a->0x02c5 ; "VARIABLE" 0229 0140 | @ | .STRTAB 0x0140->0x02c9 ; "VALEUR" 022a 0144 | D | .STRTAB 0x0144->0x02cc ; "VAUT" 022b 0146 | F | .STRTAB 0x0146->0x02ce ; "ACTION" 022c 014a | J | .STRTAB 0x014a->0x02d1 ; "DE_SYNONYMES" 022d 0154 | T | .STRTAB 0x0154->0x02d7 ; "SI" 022e 0154 | T | .STRTAB 0x0154->0x02d8 ; "ALORS" 022f 0157 | W | .STRTAB 0x0157->0x02da ; "SINON" 0230 015a | Z | .STRTAB 0x015a->0x02dd ; "FIN_SI" 0231 015e | ^ | .STRTAB 0x015e->0x02e0 ; "VERBES" 0232 0162 | b | .STRTAB 0x0162->0x02e3 ; "ENTREE_CLAVIER" 0233 016e | n | .STRTAB 0x016e->0x02ea ; "AFFICHER" 0234 0174 | t | .STRTAB 0x0174->0x02ee ; "ALLER_A_LA_LIGNE" 0235 0182 | | .STRTAB 0x0182->0x02f6 ; "SAUVEGARDER_JEU" 0236 018f | | .STRTAB 0x018f->0x02fd ; "CHARGER_JEU" 0237 0198 | | .STRTAB 0x0198->0x0303 ; "FIN_DU_JEU" 0238 01a0 | | .STRTAB 0x01a0->0x0308 ; "NON" 0239 01a1 | | .STRTAB 0x01a1->0x0309 ; "VRAI" 023a 01a3 | | .STRTAB 0x01a3->0x030b ; "FAUX" 023b 01a5 | | .STRTAB 0x01a5->0x030d ; "ET" 023c 01a5 | | .STRTAB 0x01a5->0x030e ; "OU" 023d 01a5 | | .STRTAB 0x01a5->0x030f ; "NORMAL" 023e 01a9 | | .STRTAB 0x01a9->0x0312 ; "FOUND" 023f 01ac | | .STRTAB 0x01ac->0x0315 ; "LESS" 0240 01ae | | .STRTAB 0x01ae->0x0317 ; "GREAT" 0241 01b1 | | .STRTAB 0x01b1->0x0319 ; "COMMENTARY_START" 0242 01bf | | .STRTAB 0x01bf->0x0321 ; "IDENTIFIER" 0243 01c7 | | .STRTAB 0x01c7->0x0326 ; "SENTENCE_START" 0244 01d3 | | .STRTAB 0x01d3->0x032d ; "NUMBER" 0245 01d7 | | .STREND 0x01d7->0x0330 0246 504c 5553 |PLUS| .STRTAB_STRINGS 0331 0000 0000 | | .BLANK 0000[0x7] 0338 ; -------------------------------------------------------------------------------------- 0338 ; Debug Table 0338 ; -------------------------------------------------------------------------------------- 0338 0004 0008 | | .DEBUG4 0x0004,0x0008,0xcec1,0x0000,0x0001,0x000b 033e 000b 036a | j| .DBG4T 0x000b,0x036a,0x8000,0x0000 0342 001f 0374 | t| .DBG4T 0x001f,0x0374,0x8000,0x0000 0346 004b 0000 | K | .DBG4T 0x004b,0x0000,0x0005,0x0000 034a 0073 0384 | s | .DBG4T 0x0073,0x0384,0x0002,0x0000 034e 008b 038a | | .DBG4T 0x008b,0x038a,0x0001,0x0000 0352 0093 038d | | .DBG4T 0x0093,0x038d,0x0002,0x0000 0356 009b 0390 | | .DBG4T 0x009b,0x0390,0x0002,0x0000 035a 00a3 0393 | | .DBG4T 0x00a3,0x0393,0x0002,0x0000 035e 00ab 0396 | | .DBG4T 0x00ab,0x0396,0x0002,0x0000 0362 00b3 0399 | | .DBG4T 0x00b3,0x0399,0x0001,0x4000 0366 01e3 0000 | | .DBG4T 0x01e3,0x0000,0x0005,0x0000 036a ; -------------------------------------------------------------------------------------- 036a ; Debug chain 036a ; -------------------------------------------------------------------------------------- 036a 0008 0000 | | .DBGLEN 0x0008,0x0000 036c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c 0374 ; -------------------------------------------------------------------------------------- 0374 ; Debug chain 0374 ; -------------------------------------------------------------------------------------- 0374 000e 0000 | | .DBGLEN 0x000e,0x0000 0376 001f 0023 | #| .DBGLNO 0x001f,0x0023,0x0027,0x002b,0x002f,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044 0384 ; -------------------------------------------------------------------------------------- 0384 ; Debug chain 0384 ; -------------------------------------------------------------------------------------- 0384 0001 0003 | | .DBGLEN 0x0001,0x0003 0386 0073 0075 | s u| .DBGLNO 0x0073,0x0075,0x0079,0x007f 038a ; -------------------------------------------------------------------------------------- 038a ; Debug chain 038a ; -------------------------------------------------------------------------------------- 038a 0000 0001 | | .DBGLEN 0x0000,0x0001 038c 008b | | .DBGLNO 0x008b 038d ; -------------------------------------------------------------------------------------- 038d ; Debug chain 038d ; -------------------------------------------------------------------------------------- 038d 0000 0001 | | .DBGLEN 0x0000,0x0001 038f 0093 | | .DBGLNO 0x0093 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug chain 0390 ; -------------------------------------------------------------------------------------- 0390 0000 0001 | | .DBGLEN 0x0000,0x0001 0392 009b | | .DBGLNO 0x009b 0393 ; -------------------------------------------------------------------------------------- 0393 ; Debug chain 0393 ; -------------------------------------------------------------------------------------- 0393 0000 0001 | | .DBGLEN 0x0000,0x0001 0395 00a3 | | .DBGLNO 0x00a3 0396 ; -------------------------------------------------------------------------------------- 0396 ; Debug chain 0396 ; -------------------------------------------------------------------------------------- 0396 0000 0001 | | .DBGLEN 0x0000,0x0001 0398 00ab | | .DBGLNO 0x00ab 0399 ; -------------------------------------------------------------------------------------- 0399 ; Debug chain 0399 ; -------------------------------------------------------------------------------------- 0399 0002 0047 | G| .DBGLEN 0x0002,0x0047 039b 00b3 00b4 | | .DBGLNO 0x00b3,0x00b4,0x00b6,0x00b9,0x00bc,0x00be,0x00bf,0x00c2,0x00c4,0x00ce,0x00d2,0x00d7,0x00d8,0x00da,0x00dd,0x00e0,0x00e3,0x00e6,0x00e8,0x00eb,0x00f0,0x00f5,0x00f6,0x00f8,0x00fc,0x00fe,0x0101,0x0103,0x0106,0x0109,0x010b,0x010e,0x010f,0x0111,0x0114,0x0123,0x0128,0x0129,0x012d,0x0130,0x0174,0x017b,0x0183,0x0187,0x018a,0x018e,0x0192,0x0195,0x0197,0x019a,0x019c,0x019f,0x01a1,0x01a4,0x01a6,0x01a9,0x01ab,0x01ae,0x01b0,0x01b3,0x01b6,0x01b8,0x01bb,0x01bd,0x01c0,0x01c2,0x01c5,0x01c7,0x01ca,0x01cc,0x01cf,0x01d2,0x01d4 03e4 0001 0002 | | .XXX[0x47] 03e6 0004 0005 | | 03e8 0006 0007 | | 03ea 0008 0044 | D| 03ec 0045 0046 | E F| 03ee 0047 0048 | G H| 03f0 002b 002c | + ,| 03f2 002d 002e | - .| 03f4 002f 0030 | / 0| 03f6 0031 0036 | 1 6| 03f8 0037 0038 | 7 8| 03fa 0032 0033 | 2 3| 03fc 0034 0035 | 4 5| 03fe 0039 003a | 9 :| 0400 003b 003c | ; <| 0402 003d 003e | = >| 0404 003f 0040 | ? @| 0406 0041 0042 | A B| 0408 0043 0009 | C | 040a 0016 0023 | #| 040c 0024 0025 | $ %| 040e 0026 0027 | & '| 0410 0028 0029 | ( )| 0412 002a 000a | * | 0414 000b 000d | | 0416 000e 000f | | 0418 0010 0011 | | 041a 0012 0013 | | 041c 0014 0015 | | 041e 0017 0018 | | 0420 0019 001a | | 0422 001b 001c | | 0424 001d 001e | | 0426 001f 0020 | | 0428 0021 0022 | ! "| 042a 004a | J | 042b 0000 0000 | | .BLANK 0000[0x1d5]