|
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_49dcbf
└─⟦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 01a0 | | .CONST 0x01a0 ; 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 003b | ; | .CONST 0x003b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0014 | | .CONST 0x0014 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4803 |H | Short_Literal 0x3
000d 029f 0043 | C| Declare_Subprogram INIT_0040,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0012 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0014 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
0016 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0018 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
001a 00c4 | | Action Make_Default
001b e20d | | Load 0x1,0xd
001c 4802 |H | Short_Literal 0x2
001d e004 | | Load 0x0,0x4
001e e005 | | Load 0x0,0x5
001f 4801 |H | Short_Literal 0x1
0020 e006 | | Load 0x0,0x6
0021 4801 |H | Short_Literal 0x1
0022 e006 | | Load 0x0,0x6
0023 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0025 4804 |H | Short_Literal 0x4
0026 4800 |H | Short_Literal 0x0
0027 4803 |H | Short_Literal 0x3
0028 4800 |H | Short_Literal 0x0
0029 4801 |H | Short_Literal 0x1
002a 031e | | Declare_Type Variant_Record,Defined,Visible
002b 4803 |H | Short_Literal 0x3
002c 00d9 | | Load_Top At_Offset_1
002d 1c08 | | Execute_Immediate Run_Utility,0x8
002e 0129 | ) | Execute Any,Make_Visible
002f c213 | | Store 0x1,0x13
0030 00bf | | Action Accept_Activation
0031 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0032 00c7 | | Action Elaborate_Subprogram
0033 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0034 00c7 | | Action Elaborate_Subprogram
0035 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0036 00c7 | | Action Elaborate_Subprogram
0037 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0038 00c7 | | Action Elaborate_Subprogram
0039 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003a 00c7 | | Action Elaborate_Subprogram
003b BODY_0008:
003b 00bc | | Action Signal_Activated
003c 00bb | | Action Signal_Completion
003d 0000 0000 | | .XXX[0x3]
003f 0000 | |
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 4607 |F | Jump_Case 0x8
0044 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0045 7807 |x | Jump 0x4d ; case 0x1
0046 780a |x | Jump 0x51 ; case 0x2
0047 780e |x | Jump 0x56 ; case 0x3
0048 7811 |x | Jump 0x5a ; case 0x4
0049 7812 |x | Jump 0x5c ; case 0x5
004a 7813 |x | Jump 0x5e ; case 0x6
004b 7816 |x | Jump 0x62 ; case 0x7
004c 4302 |C | .XXX[0x1]
004d 00da | | Load_Top At_Offset_2
004e 0091 017e | ~| Action Push_String_Extended_Indexed,0x17e ; "SINGLE_ATTRIBUTE"
0050 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0051 00db | | Load_Top At_Offset_3
0052 00db | | Load_Top At_Offset_3
0053 00e0 | | Load_Encached Standard_Cache
0054 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0056 00da | | Load_Top At_Offset_2
0057 00e0 | | Load_Encached Standard_Cache
0058 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0059 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
005a 00db | | Load_Top At_Offset_3
005b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005c 00db | | Load_Top At_Offset_3
005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005e e20d | | Load 0x1,0xd
005f 00dc | | Load_Top At_Offset_4
0060 0267 | g | Execute Discrete,Predecessor
0061 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0062 e20d | | Load 0x1,0xd
0063 00dc | | Load_Top At_Offset_4
0064 0268 | h | Execute Discrete,Successor
0065 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4800 |H | Short_Literal 0x0
006c e214 | | Load 0x1,0x14
006d 1c08 | | Execute_Immediate Run_Utility,0x8
006e 00db | | Load_Top At_Offset_3
006f 00d9 | | Load_Top At_Offset_1
0070 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0071 e5fe | | Load 0x2,-0x2
0072 00d9 | | Load_Top At_Offset_1
0073 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0074 e5fd | | Load 0x2,-0x3
0075 016d | m | Execute Variant_Record,Structure_Write
0076 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0077 0000 | | .XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4801 |H | Short_Literal 0x1
007c e214 | | Load 0x1,0x14
007d 1c08 | | Execute_Immediate Run_Utility,0x8
007e 00db | | Load_Top At_Offset_3
007f 00d9 | | Load_Top At_Offset_1
0080 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0081 e5fe | | Load 0x2,-0x2
0082 016d | m | Execute Variant_Record,Structure_Write
0083 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4802 |H | Short_Literal 0x2
008c e214 | | Load 0x1,0x14
008d 1c08 | | Execute_Immediate Run_Utility,0x8
008e 00db | | Load_Top At_Offset_3
008f 00d9 | | Load_Top At_Offset_1
0090 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0091 e5fe | | Load 0x2,-0x2
0092 016d | m | Execute Variant_Record,Structure_Write
0093 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009c | | .CONST 0x009c ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b 00e1 | | Load_Encached Boolean_Cache
009c BODY_0098:
009c 00db | | Load_Top At_Offset_3
009d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
009e 4603 |F | Jump_Case 0x4
009f 7806 |x | Jump 0xa6 ; case 0x0
00a0 7834 |x4 | Jump 0xd5 ; case 0x1
00a1 783f |x? | Jump 0xe1 ; case 0x2
00a2 7800 |x | Jump 0xa3 ; case 0x3
00a3 4800 |H | Short_Literal 0x0
00a4 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a6 00db | | Load_Top At_Offset_3
00a7 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00a8 8007 | | Call 0x0,0x7
00a9 e5ff | | Load 0x2,-0x1
00aa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00ab 8008 | | Call 0x0,0x8
00ac 0279 | y | Execute Discrete,And
00ad 6809 |h | Jump_Zero 0xb7
00ae 00e1 | | Load_Encached Boolean_Cache
00af e5ff | | Load 0x2,-0x1
00b0 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00b1 8009 | | Call 0x0,0x9
00b2 e5ff | | Load 0x2,-0x1
00b3 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00b4 800a | | Call 0x0,0xa
00b5 0059 | Y | Store_Top Discrete,At_Offset_1
00b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00b7 00db | | Load_Top At_Offset_3
00b8 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00b9 800b | | Call 0x0,0xb
00ba e5ff | | Load 0x2,-0x1
00bb 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00bc 800c | | Call 0x0,0xc
00bd 0279 | y | Execute Discrete,And
00be 682d |h- | Jump_Zero 0xec
00bf 00e1 | | Load_Encached Boolean_Cache
00c0 e5ff | | Load 0x2,-0x1
00c1 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00c2 800d | | Call 0x0,0xd
00c3 00d8 | | Load_Top At_Offset_0
00c4 00e4 | | Load_Encached Positive_Cache
00c5 0260 | ` | Execute Discrete,In_Type
00c6 7001 |p | Jump_Nonzero 0xc8
00c7 0801 | | Execute_Immediate Raise,0x1
00c8 e5ff | | Load 0x2,-0x1
00c9 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00ca 800e | | Call 0x0,0xe
00cb 00d8 | | Load_Top At_Offset_0
00cc 00e4 | | Load_Encached Positive_Cache
00cd 0260 | ` | Execute Discrete,In_Type
00ce 7001 |p | Jump_Nonzero 0xd0
00cf 0801 | | Execute_Immediate Raise,0x1
00d0 e5ff | | Load 0x2,-0x1
00d1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
00d2 800f | | Call 0x0,0xf
00d3 0059 | Y | Store_Top Discrete,At_Offset_1
00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d5 00db | | Load_Top At_Offset_3
00d6 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
00d7 8010 | | Call 0x0,0x10
00d8 00d8 | | Load_Top At_Offset_0
00d9 00e4 | | Load_Encached Positive_Cache
00da 0260 | ` | Execute Discrete,In_Type
00db 7001 |p | Jump_Nonzero 0xdd
00dc 0801 | | Execute_Immediate Raise,0x1
00dd 8011 | | Call 0x0,0x11
00de 4801 |H | Short_Literal 0x1
00df 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e1 00db | | Load_Top At_Offset_3
00e2 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
00e3 8010 | | Call 0x0,0x10
00e4 00d8 | | Load_Top At_Offset_0
00e5 00e4 | | Load_Encached Positive_Cache
00e6 0260 | ` | Execute Discrete,In_Type
00e7 7001 |p | Jump_Nonzero 0xe9
00e8 0801 | | Execute_Immediate Raise,0x1
00e9 8012 | | Call 0x0,0x12
00ea 4801 |H | Short_Literal 0x1
00eb 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
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 0092 0182 | | Action Push_String_Extended,0x182 ; "Affectation : Kind : "
00f5 00db | | Load_Top At_Offset_3
00f6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00f7 e20d | | Load 0x1,0xd
00f8 011c | | Execute Any,Convert_Unchecked
00f9 1c01 | | Execute_Immediate Run_Utility,0x1
00fa 01cc | | Execute Vector,Catenate
00fb e013 | | Load 0x0,0x13
00fc 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
00fd 00da | | Load_Top At_Offset_2
00fe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ff 4603 |F | Jump_Case 0x4
0100 780e |x | Jump 0x10f ; case 0x0
0101 7803 |x | Jump 0x105 ; case 0x1
0102 7807 |x | Jump 0x10a ; case 0x2
0103 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; case 0x3
0104 4502 |E | .XXX[0x1]
0105 8014 | | Call 0x0,0x14
0106 00da | | Load_Top At_Offset_2
0107 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0108 8015 | | Call 0x0,0x15
0109 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010a 8016 | | Call 0x0,0x16
010b 00da | | Load_Top At_Offset_2
010c 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
010d 8015 | | Call 0x0,0x15
010e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010f 00da | | Load_Top At_Offset_2
0110 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0111 8017 | | Call 0x0,0x17
0112 00da | | Load_Top At_Offset_2
0113 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0114 8018 | | Call 0x0,0x18
0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4609 |F | Jump_Case 0xa
011c 7809 |x | Jump 0x126 ; case 0x0
011d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
011e 782a |x* | Jump 0x149 ; case 0x2
011f 782d |x- | Jump 0x14d ; case 0x3
0120 785c |x\ | Jump 0x17d ; case 0x4
0121 785b |x[ | Jump 0x17d ; case 0x5
0122 7830 |x0 | Jump 0x153 ; case 0x6
0123 783d |x= | Jump 0x161 ; case 0x7
0124 784d |xM | Jump 0x172 ; case 0x8
0125 7853 |xS | Jump 0x179 ; case 0x9
0126 00da | | Load_Top At_Offset_2
0127 016c | l | Execute Variant_Record,Is_Constrained
0128 7009 |p | Jump_Nonzero 0x132
0129 00cf | | Action Mark_Auxiliary
012a 4803 |H | Short_Literal 0x3
012b e5ff | | Load 0x2,-0x1
012c 1c08 | | Execute_Immediate Run_Utility,0x8
012d 00d8 | | Load_Top At_Offset_0
012e 1c00 | | Execute_Immediate Run_Utility,0x0
012f c5ff | | Store 0x2,-0x1
0130 00ce | | Action Pop_Auxiliary
0131 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0132 00da | | Load_Top At_Offset_2
0133 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0134 4603 |F | Jump_Case 0x4
0135 7804 |x | Jump 0x13a ; case 0x0
0136 780a |x | Jump 0x141 ; case 0x1
0137 780d |x | Jump 0x145 ; case 0x2
0138 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0139 4302 |C | .XXX[0x1]
013a e002 | | Load 0x0,0x2
013b 00db | | Load_Top At_Offset_3
013c 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
013d e003 | | Load 0x0,0x3
013e 00db | | Load_Top At_Offset_3
013f 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0140 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0141 00da | | Load_Top At_Offset_2
0142 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0143 1c00 | | Execute_Immediate Run_Utility,0x0
0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0145 00da | | Load_Top At_Offset_2
0146 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0147 1c00 | | Execute_Immediate Run_Utility,0x0
0148 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0149 4801 |H | Short_Literal 0x1
014a 4805 |H | Short_Literal 0x5
014b 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
014c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
014d e5fd | | Load 0x2,-0x3
014e 00db | | Load_Top At_Offset_3
014f 1c07 | | Execute_Immediate Run_Utility,0x7
0150 e5fe | | Load 0x2,-0x2
0151 0306 | | Complete_Type Variant_Record,By_Renaming
0152 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0153 00db | | Load_Top At_Offset_3
0154 4603 |F | Jump_Case 0x4
0155 7805 |x | Jump 0x15b ; case 0x0
0156 7806 |x | Jump 0x15d ; case 0x1
0157 7807 |x | Jump 0x15f ; case 0x2
0158 7800 |x | Jump 0x159 ; case 0x3
0159 48ff |H | Short_Literal 0xff
015a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015b 4801 |H | Short_Literal 0x1
015c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015d 4802 |H | Short_Literal 0x2
015e 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015f 4803 |H | Short_Literal 0x3
0160 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0161 00db | | Load_Top At_Offset_3
0162 e5fe | | Load 0x2,-0x2
0163 4603 |F | Jump_Case 0x4
0164 7805 |x | Jump 0x16a ; case 0x0
0165 7806 |x | Jump 0x16c ; case 0x1
0166 7807 |x | Jump 0x16e ; case 0x2
0167 7800 |x | Jump 0x168 ; case 0x3
0168 48ff |H | Short_Literal 0xff
0169 7805 |x | Jump 0x16f
016a 4801 |H | Short_Literal 0x1
016b 7803 |x | Jump 0x16f
016c 4802 |H | Short_Literal 0x2
016d 7801 |x | Jump 0x16f
016e 4803 |H | Short_Literal 0x3
016f e5ff | | Load 0x2,-0x1
0170 031b | | Declare_Type Variant_Record,Constrained
0171 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0172 00db | | Load_Top At_Offset_3
0173 e5fe | | Load 0x2,-0x2
0174 e5ff | | Load 0x2,-0x1
0175 1c06 | | Execute_Immediate Run_Utility,0x6
0176 e5ff | | Load 0x2,-0x1
0177 02fc | | Declare_Variable Variant_Record,With_Constraint
0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0179 4803 |H | Short_Literal 0x3
017a 00db | | Load_Top At_Offset_3
017b 1c07 | | Execute_Immediate Run_Utility,0x7
017c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
017d 0869 | i | Execute_Immediate Raise,0x69
017e ; --------------------------------------------------------------------------------------
017e ; STRING TABLE
017e ; --------------------------------------------------------------------------------------
017e 000c | | .STRTAB 0x000c->0x0184 ; "SINGLE_ATTRIBUTE"
017f 001a | | .STRTAB 0x001a->0x018c ; "HERO"
0180 001c | | .STRTAB 0x001c->0x018e ; "PLACE"
0181 001f | | .STRTAB 0x001f->0x0190 ; "UNKNOWN"
0182 0024 | $ | .STRTAB 0x0024->0x0194 ; "Affectation : Kind : "
0183 0037 | 7 | .STREND 0x0037->0x019e
0184 5349 4e47 |SING| .STRTAB_STRINGS
019f 0000 | | .XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0004 0008 | | .DEBUG4 0x0004,0x0008,0xe387,0x0000,0x0001,0x0009
01a6 000b 01ca | | .DBG4T 0x000b,0x01ca,0x8000,0x8000
01aa 0031 01de | 1 | .DBG4T 0x0031,0x01de,0x8000,0x0000
01ae 0043 0000 | C | .DBG4T 0x0043,0x0000,0x0005,0x0000
01b2 006b 01e5 | k | .DBG4T 0x006b,0x01e5,0x0001,0x0000
01b6 007b 01e8 | { | .DBG4T 0x007b,0x01e8,0x0001,0x0000
01ba 008b 01eb | | .DBG4T 0x008b,0x01eb,0x0001,0x0000
01be 009b 01ee | | .DBG4T 0x009b,0x01ee,0x0001,0x4000
01c2 00f3 0205 | | .DBG4T 0x00f3,0x0205,0x0001,0x4000
01c6 011b 0000 | | .DBG4T 0x011b,0x0000,0x0005,0x0000
01ca ; --------------------------------------------------------------------------------------
01ca ; Debug chain
01ca ; --------------------------------------------------------------------------------------
01ca 0009 0000 | | .DBGLEN 0x0009,0x0000
01cc 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0012,0x0014,0x0016,0x0018,0x001a,0x001b,0x002b
01d5 0001 0003 | | .XXX[0x9]
01d7 0004 0005 | |
01d9 0006 0007 | |
01db 0008 0009 | |
01dd 000a | |
01de ; --------------------------------------------------------------------------------------
01de ; Debug chain
01de ; --------------------------------------------------------------------------------------
01de 0005 0000 | | .DBGLEN 0x0005,0x0000
01e0 0031 0033 | 1 3| .DBGLNO 0x0031,0x0033,0x0035,0x0037,0x0039
01e5 ; --------------------------------------------------------------------------------------
01e5 ; Debug chain
01e5 ; --------------------------------------------------------------------------------------
01e5 0000 0001 | | .DBGLEN 0x0000,0x0001
01e7 006b | k | .DBGLNO 0x006b
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug chain
01e8 ; --------------------------------------------------------------------------------------
01e8 0000 0001 | | .DBGLEN 0x0000,0x0001
01ea 007b | { | .DBGLNO 0x007b
01eb ; --------------------------------------------------------------------------------------
01eb ; Debug chain
01eb ; --------------------------------------------------------------------------------------
01eb 0000 0001 | | .DBGLEN 0x0000,0x0001
01ed 008b | | .DBGLNO 0x008b
01ee ; --------------------------------------------------------------------------------------
01ee ; Debug chain
01ee ; --------------------------------------------------------------------------------------
01ee 0001 000a | | .DBGLEN 0x0001,0x000a
01f0 009b 009c | | .DBGLNO 0x009b,0x009c,0x00a3,0x00a6,0x00ae,0x00b7,0x00bf,0x00d5,0x00de,0x00e1,0x00ea
01fb 0001 000a | | .XXX[0xa]
01fd 0002 0003 | |
01ff 0004 0005 | |
0201 0006 0007 | |
0203 0008 0009 | |
0205 ; --------------------------------------------------------------------------------------
0205 ; Debug chain
0205 ; --------------------------------------------------------------------------------------
0205 0000 0008 | | .DBGLEN 0x0000,0x0008
0207 00f3 00fd | | .DBGLNO 0x00f3,0x00fd,0x0105,0x0106,0x010a,0x010b,0x010f,0x0112
020f 0001 0002 | | .XXX[0x8]
0211 0005 0006 | |
0213 0007 0008 | |
0215 0003 0004 | |
0217 0000 0000 | | .BLANK 0000[0x1e9]