|
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_35b0c5
└─⟦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 0260 | ` | .CONST 0x0260 ; 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 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4807 |H | Short_Literal 0x7
000d 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0012 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0014 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0016 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0018 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
001a 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001c 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001e 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0020 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0022 00c4 | | Action Make_Default
0023 e20d | | Load 0x1,0xd
0024 4801 |H | Short_Literal 0x1
0025 00e2 | | Load_Encached Integer_Cache
0026 4801 |H | Short_Literal 0x1
0027 e006 | | Load 0x0,0x6
0028 4801 |H | Short_Literal 0x1
0029 e007 | | Load 0x0,0x7
002a 4801 |H | Short_Literal 0x1
002b e008 | | Load 0x0,0x8
002c 4801 |H | Short_Literal 0x1
002d e009 | | Load 0x0,0x9
002e 4801 |H | Short_Literal 0x1
002f e008 | | Load 0x0,0x8
0030 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0032 4806 |H | Short_Literal 0x6
0033 4800 |H | Short_Literal 0x0
0034 4806 |H | Short_Literal 0x6
0035 4800 |H | Short_Literal 0x0
0036 4801 |H | Short_Literal 0x1
0037 031e | | Declare_Type Variant_Record,Defined,Visible
0038 4807 |H | Short_Literal 0x7
0039 00d9 | | Load_Top At_Offset_1
003a 1c08 | | Execute_Immediate Run_Utility,0x8
003b 0129 | ) | Execute Any,Make_Visible
003c c217 | | Store 0x1,0x17
003d 00bf | | Action Accept_Activation
003e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
003f 00c7 | | Action Elaborate_Subprogram
0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0041 00c7 | | Action Elaborate_Subprogram
0042 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0043 00c7 | | Action Elaborate_Subprogram
0044 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0045 00c7 | | Action Elaborate_Subprogram
0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0047 00c7 | | Action Elaborate_Subprogram
0048 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0049 00c7 | | Action Elaborate_Subprogram
004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
004b 00c7 | | Action Elaborate_Subprogram
004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
004d 00c7 | | Action Elaborate_Subprogram
004e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
004f 00c7 | | Action Elaborate_Subprogram
0050 BODY_0008:
0050 00bc | | Action Signal_Activated
0051 00bb | | Action Signal_Completion
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 4607 |F | Jump_Case 0x8
005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
005d 7807 |x | Jump 0x65 ; case 0x1
005e 780a |x | Jump 0x69 ; case 0x2
005f 780e |x | Jump 0x6e ; case 0x3
0060 7811 |x | Jump 0x72 ; case 0x4
0061 7812 |x | Jump 0x74 ; case 0x5
0062 7813 |x | Jump 0x76 ; case 0x6
0063 7816 |x | Jump 0x7a ; case 0x7
0064 4302 |C | .XXX[0x1]
0065 00da | | Load_Top At_Offset_2
0066 0091 0219 | | Action Push_String_Extended_Indexed,0x219 ; "SENTENCE"
0068 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0069 00db | | Load_Top At_Offset_3
006a 00db | | Load_Top At_Offset_3
006b 00e0 | | Load_Encached Standard_Cache
006c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
006d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
006e 00da | | Load_Top At_Offset_2
006f 00e0 | | Load_Encached Standard_Cache
0070 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0071 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0072 00db | | Load_Top At_Offset_3
0073 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0074 00db | | Load_Top At_Offset_3
0075 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0076 e20d | | Load 0x1,0xd
0077 00dc | | Load_Top At_Offset_4
0078 0267 | g | Execute Discrete,Predecessor
0079 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007a e20d | | Load 0x1,0xd
007b 00dc | | Load_Top At_Offset_4
007c 0268 | h | Execute Discrete,Successor
007d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 4800 |H | Short_Literal 0x0
0084 e218 | | Load 0x1,0x18
0085 1c08 | | Execute_Immediate Run_Utility,0x8
0086 00db | | Load_Top At_Offset_3
0087 00d9 | | Load_Top At_Offset_1
0088 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0089 e5fe | | Load 0x2,-0x2
008a 016d | m | Execute Variant_Record,Structure_Write
008b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008c 0000 0000 | | .BLANK 0000[0x4]
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 4801 |H | Short_Literal 0x1
0094 e218 | | Load 0x1,0x18
0095 1c08 | | Execute_Immediate Run_Utility,0x8
0096 00db | | Load_Top At_Offset_3
0097 00d9 | | Load_Top At_Offset_1
0098 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0099 e5fe | | Load 0x2,-0x2
009a 016d | m | Execute Variant_Record,Structure_Write
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c 0000 0000 | | .BLANK 0000[0x4]
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 4802 |H | Short_Literal 0x2
00a4 e218 | | Load 0x1,0x18
00a5 1c08 | | Execute_Immediate Run_Utility,0x8
00a6 00db | | Load_Top At_Offset_3
00a7 00d9 | | Load_Top At_Offset_1
00a8 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00a9 e5fe | | Load 0x2,-0x2
00aa 016d | m | Execute Variant_Record,Structure_Write
00ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4803 |H | Short_Literal 0x3
00b4 e218 | | Load 0x1,0x18
00b5 1c08 | | Execute_Immediate Run_Utility,0x8
00b6 00db | | Load_Top At_Offset_3
00b7 00d9 | | Load_Top At_Offset_1
00b8 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00b9 e5fe | | Load 0x2,-0x2
00ba 016d | m | Execute Variant_Record,Structure_Write
00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 4804 |H | Short_Literal 0x4
00c4 e218 | | Load 0x1,0x18
00c5 1c08 | | Execute_Immediate Run_Utility,0x8
00c6 00db | | Load_Top At_Offset_3
00c7 00d9 | | Load_Top At_Offset_1
00c8 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
00c9 e5fe | | Load 0x2,-0x2
00ca 016d | m | Execute Variant_Record,Structure_Write
00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cc 0000 0000 | | .BLANK 0000[0x4]
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 4805 |H | Short_Literal 0x5
00d4 e218 | | Load 0x1,0x18
00d5 1c08 | | Execute_Immediate Run_Utility,0x8
00d6 00db | | Load_Top At_Offset_3
00d7 016d | m | Execute Variant_Record,Structure_Write
00d8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d9 0000 0000 | | .BLANK 0000[0x7]
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 4806 |H | Short_Literal 0x6
00e4 e218 | | Load 0x1,0x18
00e5 1c08 | | Execute_Immediate Run_Utility,0x8
00e6 00db | | Load_Top At_Offset_3
00e7 00d9 | | Load_Top At_Offset_1
00e8 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
00e9 e5fe | | Load 0x2,-0x2
00ea 016d | m | Execute Variant_Record,Structure_Write
00eb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ec 0000 0000 | | .BLANK 0000[0x4]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5 | | .CONST 0x00f5 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 00e3 | | Load_Encached Natural_Cache
00f4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00f5 BODY_00f0:
00f5 00db | | Load_Top At_Offset_3
00f6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00f7 4607 |F | Jump_Case 0x8
00f8 7808 |x | Jump 0x101 ; case 0x0
00f9 7871 |xq | Jump 0x16b ; case 0x1
00fa 780d |x | Jump 0x108 ; case 0x2
00fb 7813 |x | Jump 0x10f ; case 0x3
00fc 7819 |x | Jump 0x116 ; case 0x4
00fd 782a |x* | Jump 0x128 ; case 0x5
00fe 784e |xN | Jump 0x14d ; case 0x6
00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
0100 4502 |E | .XXX[0x1]
0101 e00a | | Load 0x0,0xa
0102 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0103 e5ff | | Load 0x2,-0x1
0104 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0105 800b | | Call 0x0,0xb
0106 800c | | Call 0x0,0xc
0107 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0108 e00a | | Load 0x0,0xa
0109 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
010a e5ff | | Load 0x2,-0x1
010b 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
010c 800d | | Call 0x0,0xd
010d 800c | | Call 0x0,0xc
010e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010f e00a | | Load 0x0,0xa
0110 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0111 e5ff | | Load 0x2,-0x1
0112 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0113 800e | | Call 0x0,0xe
0114 800c | | Call 0x0,0xc
0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0116 00db | | Load_Top At_Offset_3
0117 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0118 800f | | Call 0x0,0xf
0119 680d |h | Jump_Zero 0x127
011a e00a | | Load 0x0,0xa
011b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
011c e5ff | | Load 0x2,-0x1
011d 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
011e 8010 | | Call 0x0,0x10
011f 00d8 | | Load_Top At_Offset_0
0120 00e4 | | Load_Encached Positive_Cache
0121 0260 | ` | Execute Discrete,In_Type
0122 7001 |p | Jump_Nonzero 0x124
0123 0801 | | Execute_Immediate Raise,0x1
0124 8011 | | Call 0x0,0x11
0125 8012 | | Call 0x0,0x12
0126 800c | | Call 0x0,0xc
0127 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0128 8011 | | Call 0x0,0x11
0129 8013 | | Call 0x0,0x13
012a 00cf | | Action Mark_Auxiliary
012b 781a |x | Jump 0x146
012c 8011 | | Call 0x0,0x11
012d 8014 | | Call 0x0,0x14
012e 8015 | | Call 0x0,0x15
012f 00d8 | | Load_Top At_Offset_0
0130 00e4 | | Load_Encached Positive_Cache
0131 0260 | ` | Execute Discrete,In_Type
0132 7001 |p | Jump_Nonzero 0x134
0133 0801 | | Execute_Immediate Raise,0x1
0134 8011 | | Call 0x0,0x11
0135 8016 | | Call 0x0,0x16
0136 0092 0221 | !| Action Push_String_Extended,0x221 ; "normal"
0138 8017 | | Call 0x0,0x17
0139 027f | | Execute Discrete,Equal
013a 6808 |h | Jump_Zero 0x143
013b e00a | | Load 0x0,0xa
013c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
013d 8011 | | Call 0x0,0x11
013e 8014 | | Call 0x0,0x14
013f 0092 0222 | "| Action Push_String_Extended,0x222 ; " "
0141 01cc | | Execute Vector,Catenate
0142 800c | | Call 0x0,0xc
0143 8011 | | Call 0x0,0x11
0144 8018 | | Call 0x0,0x18
0145 00c9 | | Action Pop_Auxiliary_Loop
0146 8011 | | Call 0x0,0x11
0147 8019 | | Call 0x0,0x19
0148 6fe3 |o | Jump_Zero 0x12c
0149 00ce | | Action Pop_Auxiliary
014a 4805 |H | Short_Literal 0x5
014b 801a | | Call 0x0,0x1a
014c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014d 801b | | Call 0x0,0x1b
014e 00cf | | Action Mark_Auxiliary
014f 7810 |x | Jump 0x160
0150 801c | | Call 0x0,0x1c
0151 e5ff | | Load 0x2,-0x1
0152 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0153 801d | | Call 0x0,0x1d
0154 027f | | Execute Discrete,Equal
0155 801e | | Call 0x0,0x1e
0156 801f | | Call 0x0,0x1f
0157 01de | | Execute Vector,Not_Equal
0158 0279 | y | Execute Discrete,And
0159 6804 |h | Jump_Zero 0x15e
015a e00a | | Load 0x0,0xa
015b 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
015c 801f | | Call 0x0,0x1f
015d 800c | | Call 0x0,0xc
015e 8020 | | Call 0x0,0x20
015f 00c9 | | Action Pop_Auxiliary_Loop
0160 8021 | ! | Call 0x0,0x21
0161 6fee |o | Jump_Zero 0x150
0162 00ce | | Action Pop_Auxiliary
0163 00d8 | | Load_Top At_Offset_0
0164 7005 |p | Jump_Nonzero 0x16a
0165 e00a | | Load 0x0,0xa
0166 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0167 0092 0223 | #| Action Push_String_Extended,0x223 ; " rien de special !"
0169 800c | | Call 0x0,0xc
016a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016b e00a | | Load 0x0,0xa
016c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
016d e5ff | | Load 0x2,-0x1
016e 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
016f 00e0 | | Load_Encached Standard_Cache
0170 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0171 800c | | Call 0x0,0xc
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
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 0092 0224 | $| Action Push_String_Extended,0x224 ; "View : Kind : "
017d 00db | | Load_Top At_Offset_3
017e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
017f e20d | | Load 0x1,0xd
0180 011c | | Execute Any,Convert_Unchecked
0181 1c01 | | Execute_Immediate Run_Utility,0x1
0182 01cc | | Execute Vector,Catenate
0183 0092 0225 | %| Action Push_String_Extended,0x225 ; " Image : "
0185 01cc | | Execute Vector,Catenate
0186 e022 | " | Load 0x0,0x22
0187 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0188 00da | | Load_Top At_Offset_2
0189 8215 | | Call 0x1,0x15
018a 4801 |H | Short_Literal 0x1
018b e022 | " | Load 0x0,0x22
018c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
018d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018e 0000 0000 | | .XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4609 |F | Jump_Case 0xa
0194 7809 |x | Jump 0x19e ; case 0x0
0195 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0196 7837 |x7 | Jump 0x1ce ; case 0x2
0197 783a |x: | Jump 0x1d2 ; case 0x3
0198 787f |x | Jump 0x218 ; case 0x4
0199 787e |x~ | Jump 0x218 ; case 0x5
019a 783d |x= | Jump 0x1d8 ; case 0x6
019b 7854 |xT | Jump 0x1f0 ; case 0x7
019c 7870 |xp | Jump 0x20d ; case 0x8
019d 7876 |xv | Jump 0x214 ; case 0x9
019e 00da | | Load_Top At_Offset_2
019f 016c | l | Execute Variant_Record,Is_Constrained
01a0 7009 |p | Jump_Nonzero 0x1aa
01a1 00cf | | Action Mark_Auxiliary
01a2 4807 |H | Short_Literal 0x7
01a3 e5ff | | Load 0x2,-0x1
01a4 1c08 | | Execute_Immediate Run_Utility,0x8
01a5 00d8 | | Load_Top At_Offset_0
01a6 1c00 | | Execute_Immediate Run_Utility,0x0
01a7 c5ff | | Store 0x2,-0x1
01a8 00ce | | Action Pop_Auxiliary
01a9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01aa 00da | | Load_Top At_Offset_2
01ab 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ac 4607 |F | Jump_Case 0x8
01ad 780c |x | Jump 0x1ba ; case 0x0
01ae 7807 |x | Jump 0x1b6 ; case 0x1
01af 780e |x | Jump 0x1be ; case 0x2
01b0 7811 |x | Jump 0x1c2 ; case 0x3
01b1 7814 |x | Jump 0x1c6 ; case 0x4
01b2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
01b3 7816 |x | Jump 0x1ca ; case 0x6
01b4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
01b5 4302 |C | .XXX[0x1]
01b6 4800 |H | Short_Literal 0x0
01b7 00db | | Load_Top At_Offset_3
01b8 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ba e002 | | Load 0x0,0x2
01bb 00db | | Load_Top At_Offset_3
01bc 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01bd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01be e003 | | Load 0x0,0x3
01bf 00db | | Load_Top At_Offset_3
01c0 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01c1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01c2 e004 | | Load 0x0,0x4
01c3 00db | | Load_Top At_Offset_3
01c4 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01c6 e005 | | Load 0x0,0x5
01c7 00db | | Load_Top At_Offset_3
01c8 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
01c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ca e004 | | Load 0x0,0x4
01cb 00db | | Load_Top At_Offset_3
01cc 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ce 4801 |H | Short_Literal 0x1
01cf 4807 |H | Short_Literal 0x7
01d0 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01d2 e5fd | | Load 0x2,-0x3
01d3 00db | | Load_Top At_Offset_3
01d4 1c07 | | Execute_Immediate Run_Utility,0x7
01d5 e5fe | | Load 0x2,-0x2
01d6 0306 | | Complete_Type Variant_Record,By_Renaming
01d7 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
01d8 00db | | Load_Top At_Offset_3
01d9 4607 |F | Jump_Case 0x8
01da 780b |x | Jump 0x1e6 ; case 0x0
01db 7808 |x | Jump 0x1e4 ; case 0x1
01dc 780b |x | Jump 0x1e8 ; case 0x2
01dd 780c |x | Jump 0x1ea ; case 0x3
01de 780d |x | Jump 0x1ec ; case 0x4
01df 7802 |x | Jump 0x1e2 ; case 0x5
01e0 780d |x | Jump 0x1ee ; case 0x6
01e1 7800 |x | Jump 0x1e2 ; case 0x7
01e2 48ff |H | Short_Literal 0xff
01e3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e4 4801 |H | Short_Literal 0x1
01e5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e6 4802 |H | Short_Literal 0x2
01e7 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e8 4803 |H | Short_Literal 0x3
01e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ea 4804 |H | Short_Literal 0x4
01eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ec 4805 |H | Short_Literal 0x5
01ed 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ee 4806 |H | Short_Literal 0x6
01ef 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01f0 00db | | Load_Top At_Offset_3
01f1 e5fe | | Load 0x2,-0x2
01f2 4607 |F | Jump_Case 0x8
01f3 780b |x | Jump 0x1ff ; case 0x0
01f4 7808 |x | Jump 0x1fd ; case 0x1
01f5 780b |x | Jump 0x201 ; case 0x2
01f6 780c |x | Jump 0x203 ; case 0x3
01f7 780d |x | Jump 0x205 ; case 0x4
01f8 780e |x | Jump 0x207 ; case 0x5
01f9 780f |x | Jump 0x209 ; case 0x6
01fa 7800 |x | Jump 0x1fb ; case 0x7
01fb 48ff |H | Short_Literal 0xff
01fc 780d |x | Jump 0x20a
01fd 4801 |H | Short_Literal 0x1
01fe 780b |x | Jump 0x20a
01ff 4802 |H | Short_Literal 0x2
0200 7809 |x | Jump 0x20a
0201 4803 |H | Short_Literal 0x3
0202 7807 |x | Jump 0x20a
0203 4804 |H | Short_Literal 0x4
0204 7805 |x | Jump 0x20a
0205 4805 |H | Short_Literal 0x5
0206 7803 |x | Jump 0x20a
0207 48ff |H | Short_Literal 0xff
0208 7801 |x | Jump 0x20a
0209 4806 |H | Short_Literal 0x6
020a e5ff | | Load 0x2,-0x1
020b 031b | | Declare_Type Variant_Record,Constrained
020c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020d 00db | | Load_Top At_Offset_3
020e e5fe | | Load 0x2,-0x2
020f e5ff | | Load 0x2,-0x1
0210 1c06 | | Execute_Immediate Run_Utility,0x6
0211 e5ff | | Load 0x2,-0x1
0212 02fc | | Declare_Variable Variant_Record,With_Constraint
0213 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0214 4807 |H | Short_Literal 0x7
0215 00db | | Load_Top At_Offset_3
0216 1c07 | | Execute_Immediate Run_Utility,0x7
0217 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0218 0869 | i | Execute_Immediate Raise,0x69
0219 ; --------------------------------------------------------------------------------------
0219 ; STRING TABLE
0219 ; --------------------------------------------------------------------------------------
0219 001c | | .STRTAB 0x001c->0x0227 ; "SENTENCE"
021a 0022 | " | .STRTAB 0x0022->0x022b ; "NUMBER"
021b 0026 | & | .STRTAB 0x0026->0x022e ; "SINGLE_ATTRIBUTE"
021c 0034 | 4 | .STRTAB 0x0034->0x0236 ; "NAME"
021d 0036 | 6 | .STRTAB 0x0036->0x0238 ; "SINGLE_EXIT"
021e 003f | ? | .STRTAB 0x003f->0x023d ; "EXITS"
021f 0042 | B | .STRTAB 0x0042->0x0240 ; "CONTENTS"
0220 0048 | H | .STRTAB 0x0048->0x0244 ; "UNKNOWN"
0221 004d | M | .STRTAB 0x004d->0x0247 ; "normal"
0222 0051 | Q | .STRTAB 0x0051->0x024a ; " "
0223 0050 | P | .STRTAB 0x0050->0x024b ; " rien de special !"
0224 0060 | ` | .STRTAB 0x0060->0x0254 ; "View : Kind : "
0225 006c | l | .STRTAB 0x006c->0x025b ; " Image : "
0226 0073 | s | .STREND 0x0073->0x025f
0227 5345 4e54 |SENT| .STRTAB_STRINGS
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug Table
0260 ; --------------------------------------------------------------------------------------
0260 0004 0008 | | .DEBUG4 0x0004,0x0008,0xe313,0x0000,0x0001,0x000d
0266 000b 029a | | .DBG4T 0x000b,0x029a,0x8000,0x8000
026a 003e 02b6 | > | .DBG4T 0x003e,0x02b6,0x8000,0x0000
026e 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000
0272 0083 02c1 | | .DBG4T 0x0083,0x02c1,0x0001,0x0000
0276 0093 02c4 | | .DBG4T 0x0093,0x02c4,0x0001,0x0000
027a 00a3 02c7 | | .DBG4T 0x00a3,0x02c7,0x0001,0x0000
027e 00b3 02ca | | .DBG4T 0x00b3,0x02ca,0x0001,0x0000
0282 00c3 02cd | | .DBG4T 0x00c3,0x02cd,0x0001,0x0000
0286 00d3 02d0 | | .DBG4T 0x00d3,0x02d0,0x0001,0x0000
028a 00e3 02d3 | | .DBG4T 0x00e3,0x02d3,0x0001,0x0000
028e 00f3 02d6 | | .DBG4T 0x00f3,0x02d6,0x0001,0x4000
0292 017b 0301 | { | .DBG4T 0x017b,0x0301,0x0001,0x0000
0296 0193 0000 | | .DBG4T 0x0193,0x0000,0x0005,0x0000
029a ; --------------------------------------------------------------------------------------
029a ; Debug chain
029a ; --------------------------------------------------------------------------------------
029a 000d 0000 | | .DBGLEN 0x000d,0x0000
029c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0023,0x0038
02a9 0001 0003 | | .XXX[0xd]
02ab 0004 0005 | |
02ad 0006 0007 | |
02af 0008 0009 | |
02b1 000a 000b | |
02b3 000c 000d | |
02b5 000e | |
02b6 ; --------------------------------------------------------------------------------------
02b6 ; Debug chain
02b6 ; --------------------------------------------------------------------------------------
02b6 0009 0000 | | .DBGLEN 0x0009,0x0000
02b8 003e 0040 | > @| .DBGLNO 0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e
02c1 ; --------------------------------------------------------------------------------------
02c1 ; Debug chain
02c1 ; --------------------------------------------------------------------------------------
02c1 0000 0001 | | .DBGLEN 0x0000,0x0001
02c3 0083 | | .DBGLNO 0x0083
02c4 ; --------------------------------------------------------------------------------------
02c4 ; Debug chain
02c4 ; --------------------------------------------------------------------------------------
02c4 0000 0001 | | .DBGLEN 0x0000,0x0001
02c6 0093 | | .DBGLNO 0x0093
02c7 ; --------------------------------------------------------------------------------------
02c7 ; Debug chain
02c7 ; --------------------------------------------------------------------------------------
02c7 0000 0001 | | .DBGLEN 0x0000,0x0001
02c9 00a3 | | .DBGLNO 0x00a3
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug chain
02ca ; --------------------------------------------------------------------------------------
02ca 0000 0001 | | .DBGLEN 0x0000,0x0001
02cc 00b3 | | .DBGLNO 0x00b3
02cd ; --------------------------------------------------------------------------------------
02cd ; Debug chain
02cd ; --------------------------------------------------------------------------------------
02cd 0000 0001 | | .DBGLEN 0x0000,0x0001
02cf 00c3 | | .DBGLNO 0x00c3
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug chain
02d0 ; --------------------------------------------------------------------------------------
02d0 0000 0001 | | .DBGLEN 0x0000,0x0001
02d2 00d3 | | .DBGLNO 0x00d3
02d3 ; --------------------------------------------------------------------------------------
02d3 ; Debug chain
02d3 ; --------------------------------------------------------------------------------------
02d3 0000 0001 | | .DBGLEN 0x0000,0x0001
02d5 00e3 | | .DBGLNO 0x00e3
02d6 ; --------------------------------------------------------------------------------------
02d6 ; Debug chain
02d6 ; --------------------------------------------------------------------------------------
02d6 0001 0014 | | .DBGLEN 0x0001,0x0014
02d8 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x0101,0x0108,0x010f,0x0116,0x011a,0x0128,0x012c,0x013b,0x0143,0x0146,0x014a,0x014d,0x0150,0x015a,0x015e,0x0160,0x0163,0x0165,0x016b
02ed 0001 0003 | | .XXX[0x14]
02ef 0004 0005 | |
02f1 0006 0007 | |
02f3 0008 000a | |
02f5 000b 000c | |
02f7 0009 000d | |
02f9 000e 0010 | |
02fb 0011 0012 | |
02fd 000f 0013 | |
02ff 0014 0002 | |
0301 ; --------------------------------------------------------------------------------------
0301 ; Debug chain
0301 ; --------------------------------------------------------------------------------------
0301 0000 0003 | | .DBGLEN 0x0000,0x0003
0303 017b 0188 | { | .DBGLNO 0x017b,0x0188,0x018a
0306 0000 0000 | | .BLANK 0000[0xfa]