|
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_37347b
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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,0x60c5,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]