|
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_1f2c63
└─⟦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 0268 | h | .CONST 0x0268 ; 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 7874 |xt | Jump 0x16e ; case 0x1
00fa 780c |x | Jump 0x107 ; case 0x2
00fb 7811 |x | Jump 0x10d ; case 0x3
00fc 7816 |x | Jump 0x113 ; case 0x4
00fd 7826 |x& | Jump 0x124 ; case 0x5
00fe 783b |x; | Jump 0x13a ; case 0x6
00ff 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x7
0100 4502 |E | .XXX[0x1]
0101 00db | | Load_Top At_Offset_3
0102 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0103 800a | | Call 0x0,0xa
0104 e00b | | Load 0x0,0xb
0105 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0107 00db | | Load_Top At_Offset_3
0108 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0109 800c | | Call 0x0,0xc
010a e00b | | Load 0x0,0xb
010b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
010c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010d 00db | | Load_Top At_Offset_3
010e 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
010f 800d | | Call 0x0,0xd
0110 e00b | | Load 0x0,0xb
0111 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0112 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0113 00db | | Load_Top At_Offset_3
0114 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0115 800e | | Call 0x0,0xe
0116 680c |h | Jump_Zero 0x123
0117 00db | | Load_Top At_Offset_3
0118 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0119 800f | | Call 0x0,0xf
011a 00d8 | | Load_Top At_Offset_0
011b 00e4 | | Load_Encached Positive_Cache
011c 0260 | ` | Execute Discrete,In_Type
011d 7001 |p | Jump_Nonzero 0x11f
011e 0801 | | Execute_Immediate Raise,0x1
011f 8010 | | Call 0x0,0x10
0120 8011 | | Call 0x0,0x11
0121 e00b | | Load 0x0,0xb
0122 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0124 8010 | | Call 0x0,0x10
0125 8012 | | Call 0x0,0x12
0126 00cf | | Action Mark_Auxiliary
0127 780a |x | Jump 0x132
0128 8010 | | Call 0x0,0x10
0129 8013 | | Call 0x0,0x13
012a 0092 0221 | !| Action Push_String_Extended,0x221 ; " "
012c 01cc | | Execute Vector,Catenate
012d e00b | | Load 0x0,0xb
012e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
012f 8010 | | Call 0x0,0x10
0130 8014 | | Call 0x0,0x14
0131 00c9 | | Action Pop_Auxiliary_Loop
0132 8010 | | Call 0x0,0x10
0133 8015 | | Call 0x0,0x15
0134 6ff3 |o | Jump_Zero 0x128
0135 00ce | | Action Pop_Auxiliary
0136 4801 |H | Short_Literal 0x1
0137 e00b | | Load 0x0,0xb
0138 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0139 4502 |E | Exit_Suprogram New_Top_Offset 0x2
013a 0092 0222 | "| Action Push_String_Extended,0x222 ; "Je vois"
013c e00b | | Load 0x0,0xb
013d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
013e 8016 | | Call 0x0,0x16
013f 00cf | | Action Mark_Auxiliary
0140 781e |x | Jump 0x15f
0141 8017 | | Call 0x0,0x17
0142 e5ff | | Load 0x2,-0x1
0143 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0144 8018 | | Call 0x0,0x18
0145 027f | | Execute Discrete,Equal
0146 8019 | | Call 0x0,0x19
0147 801a | | Call 0x0,0x1a
0148 01de | | Execute Vector,Not_Equal
0149 0279 | y | Execute Discrete,And
014a 6812 |h | Jump_Zero 0x15d
014b 00d9 | | Load_Top At_Offset_1
014c 0c01 | | Execute_Immediate Greater_Equal,0x1
014d 6805 |h | Jump_Zero 0x153
014e 0092 0223 | #| Action Push_String_Extended,0x223 ; ", "
0150 e00b | | Load 0x0,0xb
0151 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0152 7804 |x | Jump 0x157
0153 0092 0221 | !| Action Push_String_Extended,0x221 ; " "
0155 e00b | | Load 0x0,0xb
0156 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0157 801a | | Call 0x0,0x1a
0158 e00b | | Load 0x0,0xb
0159 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
015a 00d9 | | Load_Top At_Offset_1
015b 0a01 | | Execute_Immediate Plus,0x1
015c 005a | Z | Store_Top Discrete,At_Offset_2
015d 801b | | Call 0x0,0x1b
015e 00c9 | | Action Pop_Auxiliary_Loop
015f 801c | | Call 0x0,0x1c
0160 6fe0 |o | Jump_Zero 0x141
0161 00ce | | Action Pop_Auxiliary
0162 00d8 | | Load_Top At_Offset_0
0163 7005 |p | Jump_Nonzero 0x169
0164 0092 0224 | $| Action Push_String_Extended,0x224 ; " rien de special !"
0166 e00b | | Load 0x0,0xb
0167 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0169 0092 0225 | %| Action Push_String_Extended,0x225 ; "."
016b e00b | | Load 0x0,0xb
016c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
016d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
016e 00db | | Load_Top At_Offset_3
016f 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0170 00e0 | | Load_Encached Standard_Cache
0171 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0172 e00b | | Load 0x0,0xb
0173 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0174 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
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 0226 | &| Action Push_String_Extended,0x226 ; "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 0227 | '| Action Push_String_Extended,0x227 ; " Image : "
0185 01cc | | Execute Vector,Catenate
0186 e00b | | Load 0x0,0xb
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 e00b | | Load 0x0,0xb
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 0020 | | .STRTAB 0x0020->0x0229 ; "SENTENCE"
021a 0026 | & | .STRTAB 0x0026->0x022d ; "NUMBER"
021b 002a | * | .STRTAB 0x002a->0x0230 ; "SINGLE_ATTRIBUTE"
021c 0038 | 8 | .STRTAB 0x0038->0x0238 ; "NAME"
021d 003a | : | .STRTAB 0x003a->0x023a ; "SINGLE_EXIT"
021e 0043 | C | .STRTAB 0x0043->0x023f ; "EXITS"
021f 0046 | F | .STRTAB 0x0046->0x0242 ; "CONTENTS"
0220 004c | L | .STRTAB 0x004c->0x0246 ; "UNKNOWN"
0221 0051 | Q | .STRTAB 0x0051->0x0249 ; " "
0222 0050 | P | .STRTAB 0x0050->0x024a ; "Je vois"
0223 0055 | U | .STRTAB 0x0055->0x024d ; ", "
0224 0055 | U | .STRTAB 0x0055->0x024e ; " rien de special !"
0225 0065 | e | .STRTAB 0x0065->0x0257 ; "."
0226 0064 | d | .STRTAB 0x0064->0x0258 ; "View : Kind : "
0227 0070 | p | .STRTAB 0x0070->0x025f ; " Image : "
0228 0077 | w | .STREND 0x0077->0x0263
0229 5345 4e54 |SENT| .STRTAB_STRINGS
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug Table
0268 ; --------------------------------------------------------------------------------------
0268 0004 0008 | | .DEBUG4 0x0004,0x0008,0x9878,0x0000,0x0001,0x000d
026e 000b 02a2 | | .DBG4T 0x000b,0x02a2,0x8000,0x8000
0272 003e 02be | > | .DBG4T 0x003e,0x02be,0x8000,0x0000
0276 005b 0000 | [ | .DBG4T 0x005b,0x0000,0x0005,0x0000
027a 0083 02c9 | | .DBG4T 0x0083,0x02c9,0x0001,0x0000
027e 0093 02cc | | .DBG4T 0x0093,0x02cc,0x0001,0x0000
0282 00a3 02cf | | .DBG4T 0x00a3,0x02cf,0x0001,0x0000
0286 00b3 02d2 | | .DBG4T 0x00b3,0x02d2,0x0001,0x0000
028a 00c3 02d5 | | .DBG4T 0x00c3,0x02d5,0x0001,0x0000
028e 00d3 02d8 | | .DBG4T 0x00d3,0x02d8,0x0001,0x0000
0292 00e3 02db | | .DBG4T 0x00e3,0x02db,0x0001,0x0000
0296 00f3 02de | | .DBG4T 0x00f3,0x02de,0x0001,0x4000
029a 017b 0313 | { | .DBG4T 0x017b,0x0313,0x0001,0x0000
029e 0193 0000 | | .DBG4T 0x0193,0x0000,0x0005,0x0000
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug chain
02a2 ; --------------------------------------------------------------------------------------
02a2 000d 0000 | | .DBGLEN 0x000d,0x0000
02a4 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0023,0x0038
02b1 0001 0003 | | .XXX[0xd]
02b3 0004 0005 | |
02b5 0006 0007 | |
02b7 0008 0009 | |
02b9 000a 000b | |
02bb 000c 000d | |
02bd 000e | |
02be ; --------------------------------------------------------------------------------------
02be ; Debug chain
02be ; --------------------------------------------------------------------------------------
02be 0009 0000 | | .DBGLEN 0x0009,0x0000
02c0 003e 0040 | > @| .DBGLNO 0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e
02c9 ; --------------------------------------------------------------------------------------
02c9 ; Debug chain
02c9 ; --------------------------------------------------------------------------------------
02c9 0000 0001 | | .DBGLEN 0x0000,0x0001
02cb 0083 | | .DBGLNO 0x0083
02cc ; --------------------------------------------------------------------------------------
02cc ; Debug chain
02cc ; --------------------------------------------------------------------------------------
02cc 0000 0001 | | .DBGLEN 0x0000,0x0001
02ce 0093 | | .DBGLNO 0x0093
02cf ; --------------------------------------------------------------------------------------
02cf ; Debug chain
02cf ; --------------------------------------------------------------------------------------
02cf 0000 0001 | | .DBGLEN 0x0000,0x0001
02d1 00a3 | | .DBGLNO 0x00a3
02d2 ; --------------------------------------------------------------------------------------
02d2 ; Debug chain
02d2 ; --------------------------------------------------------------------------------------
02d2 0000 0001 | | .DBGLEN 0x0000,0x0001
02d4 00b3 | | .DBGLNO 0x00b3
02d5 ; --------------------------------------------------------------------------------------
02d5 ; Debug chain
02d5 ; --------------------------------------------------------------------------------------
02d5 0000 0001 | | .DBGLEN 0x0000,0x0001
02d7 00c3 | | .DBGLNO 0x00c3
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug chain
02d8 ; --------------------------------------------------------------------------------------
02d8 0000 0001 | | .DBGLEN 0x0000,0x0001
02da 00d3 | | .DBGLNO 0x00d3
02db ; --------------------------------------------------------------------------------------
02db ; Debug chain
02db ; --------------------------------------------------------------------------------------
02db 0000 0001 | | .DBGLEN 0x0000,0x0001
02dd 00e3 | | .DBGLNO 0x00e3
02de ; --------------------------------------------------------------------------------------
02de ; Debug chain
02de ; --------------------------------------------------------------------------------------
02de 0001 0019 | | .DBGLEN 0x0001,0x0019
02e0 00f3 00f5 | | .DBGLNO 0x00f3,0x00f5,0x0101,0x0107,0x010d,0x0113,0x0117,0x0124,0x0128,0x012f,0x0132,0x0136,0x013a,0x013e,0x0141,0x014b,0x014e,0x0153,0x0157,0x015a,0x015d,0x015f,0x0162,0x0164,0x0169,0x016e
02fa 0001 0003 | | .XXX[0x19]
02fc 0004 0005 | |
02fe 0006 0007 | |
0300 0008 000a | |
0302 000b 0009 | |
0304 000c 000d | |
0306 000e 0010 | |
0308 0011 0012 | |
030a 0013 0014 | |
030c 0015 0016 | |
030e 000f 0017 | |
0310 0018 0019 | |
0312 0002 | |
0313 ; --------------------------------------------------------------------------------------
0313 ; Debug chain
0313 ; --------------------------------------------------------------------------------------
0313 0000 0003 | | .DBGLEN 0x0000,0x0003
0315 017b 0188 | { | .DBGLNO 0x017b,0x0188,0x018a
0318 0000 0000 | | .BLANK 0000[0xe8]