|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_3f68fa
└─⟦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 0250 | P | .CONST 0x0250 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 006e | n | .CONST 0x006e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0020 | | .CONST 0x0020 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4803 |H | Short_Literal 0x3
000d 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0012 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0014 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0016 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0018 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001a 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001c 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001e 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0020 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0022 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0024 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0026 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0028 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
002a 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
002c 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
002e 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0030 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0032 00c4 | | Action Make_Default
0033 e20d | | Load 0x1,0xd
0034 4802 |H | Short_Literal 0x2
0035 00e3 | | Load_Encached Natural_Cache
0036 00e2 | | Load_Encached Integer_Cache
0037 4802 |H | Short_Literal 0x2
0038 00e3 | | Load_Encached Natural_Cache
0039 e003 | | Load 0x0,0x3
003a 4803 |H | Short_Literal 0x3
003b 00e3 | | Load_Encached Natural_Cache
003c 00e3 | | Load_Encached Natural_Cache
003d 00e3 | | Load_Encached Natural_Cache
003e 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0040 4807 |H | Short_Literal 0x7
0041 4800 |H | Short_Literal 0x0
0042 4803 |H | Short_Literal 0x3
0043 4800 |H | Short_Literal 0x0
0044 4801 |H | Short_Literal 0x1
0045 031e | | Declare_Type Variant_Record,Defined,Visible
0046 4803 |H | Short_Literal 0x3
0047 00d9 | | Load_Top At_Offset_1
0048 1c08 | | Execute_Immediate Run_Utility,0x8
0049 0129 | ) | Execute Any,Make_Visible
004a c21f | | Store 0x1,0x1f
004b 00bf | | Action Accept_Activation
004c 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004d 00c7 | | Action Elaborate_Subprogram
004e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004f 00c7 | | Action Elaborate_Subprogram
0050 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0051 00c7 | | Action Elaborate_Subprogram
0052 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0053 00c7 | | Action Elaborate_Subprogram
0054 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0055 00c7 | | Action Elaborate_Subprogram
0056 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0057 00c7 | | Action Elaborate_Subprogram
0058 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0059 00c7 | | Action Elaborate_Subprogram
005a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005b 00c7 | | Action Elaborate_Subprogram
005c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005d 00c7 | | Action Elaborate_Subprogram
005e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005f 00c7 | | Action Elaborate_Subprogram
0060 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0061 00c7 | | Action Elaborate_Subprogram
0062 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006d 00c7 | | Action Elaborate_Subprogram
006e BODY_0008:
006e 00bc | | Action Signal_Activated
006f 00bb | | Action Signal_Completion
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4607 |F | Jump_Case 0x8
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7807 |x | Jump 0x7d ; case 0x1
0076 780a |x | Jump 0x81 ; case 0x2
0077 780e |x | Jump 0x86 ; case 0x3
0078 7811 |x | Jump 0x8a ; case 0x4
0079 7812 |x | Jump 0x8c ; case 0x5
007a 7813 |x | Jump 0x8e ; case 0x6
007b 7816 |x | Jump 0x92 ; case 0x7
007c 4302 |C | .XXX[0x1]
007d 00da | | Load_Top At_Offset_2
007e 0091 0227 | '| Action Push_String_Extended_Indexed,0x227 ; "NUMBER"
0080 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0081 00db | | Load_Top At_Offset_3
0082 00db | | Load_Top At_Offset_3
0083 00e0 | | Load_Encached Standard_Cache
0084 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0085 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0086 00da | | Load_Top At_Offset_2
0087 00e0 | | Load_Encached Standard_Cache
0088 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0089 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
008a 00db | | Load_Top At_Offset_3
008b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008c 00db | | Load_Top At_Offset_3
008d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
008e e20d | | Load 0x1,0xd
008f 00dc | | Load_Top At_Offset_4
0090 0267 | g | Execute Discrete,Predecessor
0091 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0092 e20d | | Load 0x1,0xd
0093 00dc | | Load_Top At_Offset_4
0094 0268 | h | Execute Discrete,Successor
0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0096 0000 0000 | | .XXX[0x2]
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 4800 |H | Short_Literal 0x0
009c e220 | | Load 0x1,0x20
009d 1c08 | | Execute_Immediate Run_Utility,0x8
009e 00db | | Load_Top At_Offset_3
009f 00d9 | | Load_Top At_Offset_1
00a0 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00a1 4800 |H | Short_Literal 0x0
00a2 00d9 | | Load_Top At_Offset_1
00a3 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00a4 e5fe | | Load 0x2,-0x2
00a5 016d | m | Execute Variant_Record,Structure_Write
00a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a7 0000 | | .XXX[0x1]
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 4801 |H | Short_Literal 0x1
00ac e220 | | Load 0x1,0x20
00ad 1c08 | | Execute_Immediate Run_Utility,0x8
00ae 00db | | Load_Top At_Offset_3
00af 00d9 | | Load_Top At_Offset_1
00b0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00b1 e002 | | Load 0x0,0x2
00b2 00d9 | | Load_Top At_Offset_1
00b3 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00b4 e5fe | | Load 0x2,-0x2
00b5 016d | m | Execute Variant_Record,Structure_Write
00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b7 0000 | | .XXX[0x1]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4802 |H | Short_Literal 0x2
00bc e220 | | Load 0x1,0x20
00bd 1c08 | | Execute_Immediate Run_Utility,0x8
00be 00db | | Load_Top At_Offset_3
00bf 00d9 | | Load_Top At_Offset_1
00c0 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
00c1 4800 |H | Short_Literal 0x0
00c2 00d9 | | Load_Top At_Offset_1
00c3 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
00c4 4800 |H | Short_Literal 0x0
00c5 00d9 | | Load_Top At_Offset_1
00c6 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
00c7 e5fe | | Load 0x2,-0x2
00c8 016d | m | Execute Variant_Record,Structure_Write
00c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ca 0000 0000 | | .BLANK 0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 00db | | Load_Top At_Offset_3
00d4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00d5 7006 |p | Jump_Nonzero 0xdc
00d6 00da | | Load_Top At_Offset_2
00d7 e5fe | | Load 0x2,-0x2
00d8 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00d9 4801 |H | Short_Literal 0x1
00da a5fd | | Store_Unchecked 0x2,-0x3
00db 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00dc 4800 |H | Short_Literal 0x0
00dd a5fd | | Store_Unchecked 0x2,-0x3
00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3
00e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00e5 0f01 | | Execute_Immediate Equal,0x1
00e6 6806 |h | Jump_Zero 0xed
00e7 00da | | Load_Top At_Offset_2
00e8 e5fe | | Load 0x2,-0x2
00e9 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00ea 4801 |H | Short_Literal 0x1
00eb a5fd | | Store_Unchecked 0x2,-0x3
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed 4800 |H | Short_Literal 0x0
00ee a5fd | | Store_Unchecked 0x2,-0x3
00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e5fd | | Load 0x2,-0x3
00f4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00f5 0f02 | | Execute_Immediate Equal,0x2
00f6 6809 |h | Jump_Zero 0x100
00f7 00da | | Load_Top At_Offset_2
00f8 e5fd | | Load 0x2,-0x3
00f9 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
00fa 00db | | Load_Top At_Offset_3
00fb e5fd | | Load 0x2,-0x3
00fc 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
00fd 4801 |H | Short_Literal 0x1
00fe a5fc | | Store_Unchecked 0x2,-0x4
00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0100 4800 |H | Short_Literal 0x0
0101 a5fc | | Store_Unchecked 0x2,-0x4
0102 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b e004 | | Load 0x0,0x4
010c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
010d 0092 022b | +| Action Push_String_Extended,0x22b ; "Champ : Type : "
010f e5ff | | Load 0x2,-0x1
0110 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0111 e20d | | Load 0x1,0xd
0112 011c | | Execute Any,Convert_Unchecked
0113 1c01 | | Execute_Immediate Run_Utility,0x1
0114 01cc | | Execute Vector,Catenate
0115 0092 022c | ,| Action Push_String_Extended,0x22c ; " Nom : "
0117 01cc | | Execute Vector,Catenate
0118 e5ff | | Load 0x2,-0x1
0119 8216 | | Call 0x1,0x16
011a 01cc | | Execute Vector,Catenate
011b 0092 022d | -| Action Push_String_Extended,0x22d ; " Valeur : "
011d 01cc | | Execute Vector,Catenate
011e e5ff | | Load 0x2,-0x1
011f 821a | | Call 0x1,0x1a
0120 01cc | | Execute Vector,Catenate
0121 8005 | | Call 0x0,0x5
0122 4801 |H | Short_Literal 0x1
0123 8006 | | Call 0x0,0x6
0124 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0125 0000 0000 | | .XXX[0x3]
0127 0000 | |
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012d 4603 |F | Jump_Case 0x4
012e 7805 |x | Jump 0x134 ; case 0x0
012f 7807 |x | Jump 0x137 ; case 0x1
0130 7809 |x | Jump 0x13a ; case 0x2
0131 7800 |x | Jump 0x132 ; case 0x3
0132 4800 |H | Short_Literal 0x0
0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0134 00da | | Load_Top At_Offset_2
0135 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0137 00da | | Load_Top At_Offset_2
0138 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0139 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013a 00da | | Load_Top At_Offset_2
013b 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
013c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 8215 | | Call 0x1,0x15
0145 8007 | | Call 0x0,0x7
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
014d 0f00 | | Execute_Immediate Equal,0x0
014e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0155 0f01 | | Execute_Immediate Equal,0x1
0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0157 0000 | | .XXX[0x1]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015d 0f02 | | Execute_Immediate Equal,0x2
015e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00da | | Load_Top At_Offset_2
0164 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0165 4603 |F | Jump_Case 0x4
0166 7805 |x | Jump 0x16c ; case 0x0
0167 7809 |x | Jump 0x171 ; case 0x1
0168 780b |x | Jump 0x174 ; case 0x2
0169 7800 |x | Jump 0x16a ; case 0x3
016a 00ea | | Load_Encached Null_String_Cache
016b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016c 00da | | Load_Top At_Offset_2
016d 821b | | Call 0x1,0x1b
016e 00e0 | | Load_Encached Standard_Cache
016f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0170 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0171 00da | | Load_Top At_Offset_2
0172 821c | | Call 0x1,0x1c
0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0174 00da | | Load_Top At_Offset_2
0175 821e | | Call 0x1,0x1e
0176 8008 | | Call 0x0,0x8
0177 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 00da | | Load_Top At_Offset_2
017c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
017d 7003 |p | Jump_Nonzero 0x181
017e 00da | | Load_Top At_Offset_2
017f 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0180 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0181 4800 |H | Short_Literal 0x0
0182 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0183 0000 0000 | | .BLANK 0000[0x5]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018d 0f01 | | Execute_Immediate Equal,0x1
018e 6804 |h | Jump_Zero 0x193
018f 00da | | Load_Top At_Offset_2
0190 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0191 8009 | | Call 0x0,0x9
0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0193 00ea | | Load_Encached Null_String_Cache
0194 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
019d 0f02 | | Execute_Immediate Equal,0x2
019e 6803 |h | Jump_Zero 0x1a2
019f 00da | | Load_Top At_Offset_2
01a0 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a2 4800 |H | Short_Literal 0x0
01a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a4 0000 0000 | | .BLANK 0000[0x4]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ad 0f02 | | Execute_Immediate Equal,0x2
01ae 6803 |h | Jump_Zero 0x1b2
01af 00da | | Load_Top At_Offset_2
01b0 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
01b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b2 4800 |H | Short_Literal 0x0
01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b4 0000 0000 | | .BLANK 0000[0x4]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4609 |F | Jump_Case 0xa
01bc 7809 |x | Jump 0x1c6 ; case 0x0
01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01be 7833 |x3 | Jump 0x1f2 ; case 0x2
01bf 7836 |x6 | Jump 0x1f6 ; case 0x3
01c0 7865 |xe | Jump 0x226 ; case 0x4
01c1 7864 |xd | Jump 0x226 ; case 0x5
01c2 7839 |x9 | Jump 0x1fc ; case 0x6
01c3 7846 |xF | Jump 0x20a ; case 0x7
01c4 7856 |xV | Jump 0x21b ; case 0x8
01c5 785c |x\ | Jump 0x222 ; case 0x9
01c6 00da | | Load_Top At_Offset_2
01c7 016c | l | Execute Variant_Record,Is_Constrained
01c8 7009 |p | Jump_Nonzero 0x1d2
01c9 00cf | | Action Mark_Auxiliary
01ca 4803 |H | Short_Literal 0x3
01cb e5ff | | Load 0x2,-0x1
01cc 1c08 | | Execute_Immediate Run_Utility,0x8
01cd 00d8 | | Load_Top At_Offset_0
01ce 1c00 | | Execute_Immediate Run_Utility,0x0
01cf c5ff | | Store 0x2,-0x1
01d0 00ce | | Action Pop_Auxiliary
01d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01d2 00da | | Load_Top At_Offset_2
01d3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01d4 4603 |F | Jump_Case 0x4
01d5 7804 |x | Jump 0x1da ; case 0x0
01d6 780a |x | Jump 0x1e1 ; case 0x1
01d7 7810 |x | Jump 0x1e8 ; case 0x2
01d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
01d9 4302 |C | .XXX[0x1]
01da 4800 |H | Short_Literal 0x0
01db 00db | | Load_Top At_Offset_3
01dc 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01dd 4800 |H | Short_Literal 0x0
01de 00db | | Load_Top At_Offset_3
01df 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01e1 4800 |H | Short_Literal 0x0
01e2 00db | | Load_Top At_Offset_3
01e3 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01e4 e002 | | Load 0x0,0x2
01e5 00db | | Load_Top At_Offset_3
01e6 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01e7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01e8 4800 |H | Short_Literal 0x0
01e9 00db | | Load_Top At_Offset_3
01ea 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01eb 4800 |H | Short_Literal 0x0
01ec 00db | | Load_Top At_Offset_3
01ed 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
01ee 4800 |H | Short_Literal 0x0
01ef 00db | | Load_Top At_Offset_3
01f0 2a08 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x8
01f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01f2 4801 |H | Short_Literal 0x1
01f3 4808 |H | Short_Literal 0x8
01f4 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01f5 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01f6 e5fd | | Load 0x2,-0x3
01f7 00db | | Load_Top At_Offset_3
01f8 1c07 | | Execute_Immediate Run_Utility,0x7
01f9 e5fe | | Load 0x2,-0x2
01fa 0306 | | Complete_Type Variant_Record,By_Renaming
01fb 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
01fc 00db | | Load_Top At_Offset_3
01fd 4603 |F | Jump_Case 0x4
01fe 7805 |x | Jump 0x204 ; case 0x0
01ff 7806 |x | Jump 0x206 ; case 0x1
0200 7807 |x | Jump 0x208 ; case 0x2
0201 7800 |x | Jump 0x202 ; case 0x3
0202 48ff |H | Short_Literal 0xff
0203 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0204 4801 |H | Short_Literal 0x1
0205 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0206 4802 |H | Short_Literal 0x2
0207 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0208 4803 |H | Short_Literal 0x3
0209 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020a 00db | | Load_Top At_Offset_3
020b e5fe | | Load 0x2,-0x2
020c 4603 |F | Jump_Case 0x4
020d 7805 |x | Jump 0x213 ; case 0x0
020e 7806 |x | Jump 0x215 ; case 0x1
020f 7807 |x | Jump 0x217 ; case 0x2
0210 7800 |x | Jump 0x211 ; case 0x3
0211 48ff |H | Short_Literal 0xff
0212 7805 |x | Jump 0x218
0213 4801 |H | Short_Literal 0x1
0214 7803 |x | Jump 0x218
0215 4802 |H | Short_Literal 0x2
0216 7801 |x | Jump 0x218
0217 4803 |H | Short_Literal 0x3
0218 e5ff | | Load 0x2,-0x1
0219 031b | | Declare_Type Variant_Record,Constrained
021a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021b 00db | | Load_Top At_Offset_3
021c e5fe | | Load 0x2,-0x2
021d e5ff | | Load 0x2,-0x1
021e 1c06 | | Execute_Immediate Run_Utility,0x6
021f e5ff | | Load 0x2,-0x1
0220 02fc | | Declare_Variable Variant_Record,With_Constraint
0221 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0222 4803 |H | Short_Literal 0x3
0223 00db | | Load_Top At_Offset_3
0224 1c07 | | Execute_Immediate Run_Utility,0x7
0225 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0226 0869 | i | Execute_Immediate Raise,0x69
0227 ; --------------------------------------------------------------------------------------
0227 ; STRING TABLE
0227 ; --------------------------------------------------------------------------------------
0227 0010 | | .STRTAB 0x0010->0x022f ; "NUMBER"
0228 0014 | | .STRTAB 0x0014->0x0232 ; "SENTENCE"
0229 001a | | .STRTAB 0x001a->0x0236 ; "ENUMERATE"
022a 0021 | ! | .STRTAB 0x0021->0x023a ; "UNKNOWN"
022b 0026 | & | .STRTAB 0x0026->0x023e ; "Champ : Type : "
022c 0033 | 3 | .STRTAB 0x0033->0x0245 ; " Nom : "
022d 0038 | 8 | .STRTAB 0x0038->0x0249 ; " Valeur : "
022e 0040 | @ | .STREND 0x0040->0x024e
022f 4e55 4d42 |NUMB| .STRTAB_STRINGS
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug Table
0250 ; --------------------------------------------------------------------------------------
0250 0004 0008 | | .DEBUG4 0x0004,0x0008,0xe73e,0x0000,0x0001,0x0015
0256 000b 02aa | | .DBG4T 0x000b,0x02aa,0x8000,0x8000
025a 004c 02d6 | L | .DBG4T 0x004c,0x02d6,0x8000,0x0000
025e 0073 0000 | s | .DBG4T 0x0073,0x0000,0x0005,0x0000
0262 009b 02e9 | | .DBG4T 0x009b,0x02e9,0x0001,0x0000
0266 00ab 02ec | | .DBG4T 0x00ab,0x02ec,0x0001,0x0000
026a 00bb 02ef | | .DBG4T 0x00bb,0x02ef,0x0001,0x0000
026e 00d3 02f2 | | .DBG4T 0x00d3,0x02f2,0x0001,0x0000
0272 00e3 02f8 | | .DBG4T 0x00e3,0x02f8,0x0001,0x0000
0276 00f3 02fe | | .DBG4T 0x00f3,0x02fe,0x0001,0x0000
027a 010b 0305 | | .DBG4T 0x010b,0x0305,0x0001,0x0000
027e 012b 0309 | + | .DBG4T 0x012b,0x0309,0x0002,0x4000
0282 0143 0315 | C | .DBG4T 0x0143,0x0315,0x0002,0x0000
0286 014b 0318 | K | .DBG4T 0x014b,0x0318,0x0002,0x0000
028a 0153 031b | S | .DBG4T 0x0153,0x031b,0x0002,0x0000
028e 015b 031e | [ | .DBG4T 0x015b,0x031e,0x0002,0x0000
0292 0163 0321 | c !| .DBG4T 0x0163,0x0321,0x0002,0x4000
0296 017b 032d | { -| .DBG4T 0x017b,0x032d,0x0002,0x0000
029a 018b 0332 | 2| .DBG4T 0x018b,0x0332,0x0002,0x0000
029e 019b 0337 | 7| .DBG4T 0x019b,0x0337,0x0002,0x0000
02a2 01ab 033c | <| .DBG4T 0x01ab,0x033c,0x0002,0x0000
02a6 01bb 0000 | | .DBG4T 0x01bb,0x0000,0x0005,0x0000
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug chain
02aa ; --------------------------------------------------------------------------------------
02aa 0015 0000 | | .DBGLEN 0x0015,0x0000
02ac 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0033,0x0046
02c1 0001 0003 | | .XXX[0x15]
02c3 0004 0005 | |
02c5 0006 0007 | |
02c7 0008 0009 | |
02c9 000a 000b | |
02cb 000c 000d | |
02cd 000e 000f | |
02cf 0010 0011 | |
02d1 0012 0013 | |
02d3 0014 0015 | |
02d5 0016 | |
02d6 ; --------------------------------------------------------------------------------------
02d6 ; Debug chain
02d6 ; --------------------------------------------------------------------------------------
02d6 0011 0000 | | .DBGLEN 0x0011,0x0000
02d8 004c 004e | L N| .DBGLNO 0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c
02e9 ; --------------------------------------------------------------------------------------
02e9 ; Debug chain
02e9 ; --------------------------------------------------------------------------------------
02e9 0000 0001 | | .DBGLEN 0x0000,0x0001
02eb 009b | | .DBGLNO 0x009b
02ec ; --------------------------------------------------------------------------------------
02ec ; Debug chain
02ec ; --------------------------------------------------------------------------------------
02ec 0000 0001 | | .DBGLEN 0x0000,0x0001
02ee 00ab | | .DBGLNO 0x00ab
02ef ; --------------------------------------------------------------------------------------
02ef ; Debug chain
02ef ; --------------------------------------------------------------------------------------
02ef 0000 0001 | | .DBGLEN 0x0000,0x0001
02f1 00bb | | .DBGLNO 0x00bb
02f2 ; --------------------------------------------------------------------------------------
02f2 ; Debug chain
02f2 ; --------------------------------------------------------------------------------------
02f2 0000 0004 | | .DBGLEN 0x0000,0x0004
02f4 00d3 00d6 | | .DBGLNO 0x00d3,0x00d6,0x00d9,0x00dc
02f8 ; --------------------------------------------------------------------------------------
02f8 ; Debug chain
02f8 ; --------------------------------------------------------------------------------------
02f8 0000 0004 | | .DBGLEN 0x0000,0x0004
02fa 00e3 00e7 | | .DBGLNO 0x00e3,0x00e7,0x00ea,0x00ed
02fe ; --------------------------------------------------------------------------------------
02fe ; Debug chain
02fe ; --------------------------------------------------------------------------------------
02fe 0000 0005 | | .DBGLEN 0x0000,0x0005
0300 00f3 00f7 | | .DBGLNO 0x00f3,0x00f7,0x00fa,0x00fd,0x0100
0305 ; --------------------------------------------------------------------------------------
0305 ; Debug chain
0305 ; --------------------------------------------------------------------------------------
0305 0000 0002 | | .DBGLEN 0x0000,0x0002
0307 010b 0122 | "| .DBGLNO 0x010b,0x0122
0309 ; --------------------------------------------------------------------------------------
0309 ; Debug chain
0309 ; --------------------------------------------------------------------------------------
0309 0000 0005 | | .DBGLEN 0x0000,0x0005
030b 012b 0132 | + 2| .DBGLNO 0x012b,0x0132,0x0134,0x0137,0x013a
0310 0001 0005 | | .XXX[0x5]
0312 0002 0003 | |
0314 0004 | |
0315 ; --------------------------------------------------------------------------------------
0315 ; Debug chain
0315 ; --------------------------------------------------------------------------------------
0315 0000 0001 | | .DBGLEN 0x0000,0x0001
0317 0143 | C | .DBGLNO 0x0143
0318 ; --------------------------------------------------------------------------------------
0318 ; Debug chain
0318 ; --------------------------------------------------------------------------------------
0318 0000 0001 | | .DBGLEN 0x0000,0x0001
031a 014b | K | .DBGLNO 0x014b
031b ; --------------------------------------------------------------------------------------
031b ; Debug chain
031b ; --------------------------------------------------------------------------------------
031b 0000 0001 | | .DBGLEN 0x0000,0x0001
031d 0153 | S | .DBGLNO 0x0153
031e ; --------------------------------------------------------------------------------------
031e ; Debug chain
031e ; --------------------------------------------------------------------------------------
031e 0000 0001 | | .DBGLEN 0x0000,0x0001
0320 015b | [ | .DBGLNO 0x015b
0321 ; --------------------------------------------------------------------------------------
0321 ; Debug chain
0321 ; --------------------------------------------------------------------------------------
0321 0000 0005 | | .DBGLEN 0x0000,0x0005
0323 0163 016a | c j| .DBGLNO 0x0163,0x016a,0x016c,0x0171,0x0174
0328 0001 0005 | | .XXX[0x5]
032a 0002 0003 | |
032c 0004 | |
032d ; --------------------------------------------------------------------------------------
032d ; Debug chain
032d ; --------------------------------------------------------------------------------------
032d 0000 0003 | | .DBGLEN 0x0000,0x0003
032f 017b 017e | { ~| .DBGLNO 0x017b,0x017e,0x0181
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug chain
0332 ; --------------------------------------------------------------------------------------
0332 0000 0003 | | .DBGLEN 0x0000,0x0003
0334 018b 018f | | .DBGLNO 0x018b,0x018f,0x0193
0337 ; --------------------------------------------------------------------------------------
0337 ; Debug chain
0337 ; --------------------------------------------------------------------------------------
0337 0000 0003 | | .DBGLEN 0x0000,0x0003
0339 019b 019f | | .DBGLNO 0x019b,0x019f,0x01a2
033c ; --------------------------------------------------------------------------------------
033c ; Debug chain
033c ; --------------------------------------------------------------------------------------
033c 0000 0003 | | .DBGLEN 0x0000,0x0003
033e 01ab 01af | | .DBGLNO 0x01ab,0x01af,0x01b2
0341 0000 0000 | | .BLANK 0000[0xbf]