|
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_04c4c9
└─⟦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 02a8 | | .CONST 0x02a8 ; 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 0087 | | .CONST 0x0087 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0029 | ) | .CONST 0x0029 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 60ba |` | Indirect_Literal Discrete,0xc8,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 0093 0000 | | push_full_address 0x0
0012 60b1 |` | Indirect_Literal Discrete,0xc4,{0x80000000, 0x00020000}
0013 0273 | s | Execute Discrete,Plus
0014 0129 | ) | Execute Any,Make_Visible
0015 0093 0000 | | push_full_address 0x0
0017 60a8 |` | Indirect_Literal Discrete,0xc0,{0x80000000, 0x00030000}
0018 0273 | s | Execute Discrete,Plus
0019 0129 | ) | Execute Any,Make_Visible
001a 0093 0000 | | push_full_address 0x0
001c 609f |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00040000}
001d 0273 | s | Execute Discrete,Plus
001e 0129 | ) | Execute Any,Make_Visible
001f 0093 0000 | | push_full_address 0x0
0021 6096 |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00050000}
0022 0273 | s | Execute Discrete,Plus
0023 0129 | ) | Execute Any,Make_Visible
0024 4800 |H | Short_Literal 0x0
0025 4803 |H | Short_Literal 0x3
0026 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0028 03fe | | Declare_Type Discrete,Defined,Visible
0029 00c4 | | Action Make_Default
002a 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
002c 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
002e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0030 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0032 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0034 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0036 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0038 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
003a 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
003c 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
003e 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0040 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0042 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0044 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0046 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0048 00e9 | | Load_Encached String_Cache
0049 02a0 | | Declare_Subprogram Null_Subprogram
004a 4818 |H | Short_Literal 0x18
004b 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected
004c e212 | | Load 0x1,0x12
004d 4801 |H | Short_Literal 0x1
004e 00e2 | | Load_Encached Integer_Cache
004f 4801 |H | Short_Literal 0x1
0050 e223 | # | Load 0x1,0x23
0051 4801 |H | Short_Literal 0x1
0052 00e1 | | Load_Encached Boolean_Cache
0053 029f 021b | | Declare_Subprogram INIT_0218,For_Call
0055 4803 |H | Short_Literal 0x3
0056 4800 |H | Short_Literal 0x0
0057 4803 |H | Short_Literal 0x3
0058 4800 |H | Short_Literal 0x0
0059 4801 |H | Short_Literal 0x1
005a 031e | | Declare_Type Variant_Record,Defined,Visible
005b 4800 |H | Short_Literal 0x0
005c 00d9 | | Load_Top At_Offset_1
005d 1c08 | | Execute_Immediate Run_Utility,0x8
005e 0129 | ) | Execute Any,Make_Visible
005f c213 | | Store 0x1,0x13
0060 00bf | | Action Accept_Activation
0061 a002 | | Store_Unchecked 0x0,0x2
0062 00c6 | | Action Check_Subprogram_Elaborated
0063 00e9 | | Load_Encached String_Cache
0064 00da | | Load_Top At_Offset_2
0065 e003 | | Load 0x0,0x3
0066 e004 | | Load 0x0,0x4
0067 4800 |H | Short_Literal 0x0
0068 0007 | | Action Break_Optional
0069 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006a 00c7 | | Action Elaborate_Subprogram
006b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006c 00c7 | | Action Elaborate_Subprogram
006d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006e 00c7 | | Action Elaborate_Subprogram
006f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0070 00c7 | | Action Elaborate_Subprogram
0071 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0072 00c7 | | Action Elaborate_Subprogram
0073 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0078 00c7 | | Action Elaborate_Subprogram
0079 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007a 00c7 | | Action Elaborate_Subprogram
007b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
007c 00c7 | | Action Elaborate_Subprogram
007d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0080 00c7 | | Action Elaborate_Subprogram
0081 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0082 00c7 | | Action Elaborate_Subprogram
0083 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0084 00c7 | | Action Elaborate_Subprogram
0085 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0086 00c7 | | Action Elaborate_Subprogram
0087 BODY_0008:
0087 00bc | | Action Signal_Activated
0088 00bb | | Action Signal_Completion
0089 0000 0000 | | .BLANK 0000[0x7]
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 4607 |F | Jump_Case 0x8
0094 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0095 7807 |x | Jump 0x9d ; case 0x1
0096 780a |x | Jump 0xa1 ; case 0x2
0097 780e |x | Jump 0xa6 ; case 0x3
0098 7811 |x | Jump 0xaa ; case 0x4
0099 7812 |x | Jump 0xac ; case 0x5
009a 7813 |x | Jump 0xae ; case 0x6
009b 7816 |x | Jump 0xb2 ; case 0x7
009c 4302 |C | .XXX[0x1]
009d 00da | | Load_Top At_Offset_2
009e 0091 026f | o| Action Push_String_Extended_Indexed,0x26f ; "UNDEFINED_VALUE"
00a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a1 00db | | Load_Top At_Offset_3
00a2 00db | | Load_Top At_Offset_3
00a3 00e0 | | Load_Encached Standard_Cache
00a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 00da | | Load_Top At_Offset_2
00a7 00e0 | | Load_Encached Standard_Cache
00a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00aa 00db | | Load_Top At_Offset_3
00ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ac 00db | | Load_Top At_Offset_3
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae e212 | | Load 0x1,0x12
00af 00dc | | Load_Top At_Offset_4
00b0 0267 | g | Execute Discrete,Predecessor
00b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b2 e212 | | Load 0x1,0x12
00b3 00dc | | Load_Top At_Offset_4
00b4 0268 | h | Execute Discrete,Successor
00b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b6 0000 0000 | | .XXX[0x2]
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
00c0 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00c4 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00c8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 4800 |H | Short_Literal 0x0
00d4 e224 | $ | Load 0x1,0x24
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 00da | | Load_Top At_Offset_2
00e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00e5 0f02 | | Execute_Immediate Equal,0x2
00e6 6808 |h | Jump_Zero 0xef
00e7 00da | | Load_Top At_Offset_2
00e8 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00e9 e225 | % | Load 0x1,0x25
00ea e226 | & | Load 0x1,0x26
00eb 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00ec 8002 | | Call 0x0,0x2
00ed 00db | | Load_Top At_Offset_3
00ee 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00ef 4800 |H | Short_Literal 0x0
00f0 e224 | $ | Load 0x1,0x24
00f1 1c08 | | Execute_Immediate Run_Utility,0x8
00f2 00db | | Load_Top At_Offset_3
00f3 016d | m | Execute Variant_Record,Structure_Write
00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 0000 0000 | | .XXX[0x2]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0105 0f01 | | Execute_Immediate Equal,0x1
0106 6803 |h | Jump_Zero 0x10a
0107 00da | | Load_Top At_Offset_2
0108 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0109 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010a e20d | | Load 0x1,0xd
010b 0257 | W | Execute Discrete,Raise
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0115 0f03 | | Execute_Immediate Equal,0x3
0116 6803 |h | Jump_Zero 0x11a
0117 00da | | Load_Top At_Offset_2
0118 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0119 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011a e20e | | Load 0x1,0xe
011b 0257 | W | Execute Discrete,Raise
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0125 0f02 | | Execute_Immediate Equal,0x2
0126 6806 |h | Jump_Zero 0x12d
0127 00da | | Load_Top At_Offset_2
0128 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0129 0227 | ' | Execute Access,All_Reference
012a 0335 | 5 | Declare_Variable Array,Duplicate
012b 00cd | | Action Spare6_Action
012c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012d e210 | | Load 0x1,0x10
012e 0257 | W | Execute Discrete,Raise
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0158 | X | .CONST 0x0158 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0135 e5fe | | Load 0x2,-0x2
0136 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0137 027f | | Execute Discrete,Equal
0138 681d |h | Jump_Zero 0x156
0139 00da | | Load_Top At_Offset_2
013a 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013b 4603 |F | Jump_Case 0x4
013c 7817 |x | Jump 0x154 ; case 0x0
013d 7808 |x | Jump 0x146 ; case 0x1
013e 780d |x | Jump 0x14c ; case 0x2
013f 7800 |x | Jump 0x140 ; case 0x3
0140 00da | | Load_Top At_Offset_2
0141 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0142 e5fe | | Load 0x2,-0x2
0143 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0144 027f | | Execute Discrete,Equal
0145 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0146 00da | | Load_Top At_Offset_2
0147 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0148 e5fe | | Load 0x2,-0x2
0149 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
014a 027f | | Execute Discrete,Equal
014b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014c 00da | | Load_Top At_Offset_2
014d 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
014e 0227 | ' | Execute Access,All_Reference
014f e5fe | | Load 0x2,-0x2
0150 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0151 0227 | ' | Execute Access,All_Reference
0152 01df | | Execute Vector,Equal
0153 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0154 4801 |H | Short_Literal 0x1
0155 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0156 4800 |H | Short_Literal 0x0
0157 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0158 TRAP_0130:
0158 010e | | Execute Exception,Is_Constraint_Error
0159 6802 |h | Jump_Zero 0x15c
015a e211 | | Load 0x1,0x11
015b 0257 | W | Execute Discrete,Raise
015c 0100 | | Execute Exception,Raise
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
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 7814 |x | Jump 0x17b ; case 0x0
0167 7808 |x | Jump 0x170 ; case 0x1
0168 780c |x | Jump 0x175 ; case 0x2
0169 7800 |x | Jump 0x16a ; case 0x3
016a 00da | | Load_Top At_Offset_2
016b 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
016c 00e1 | | Load_Encached Boolean_Cache
016d 011c | | Execute Any,Convert_Unchecked
016e 1c01 | | Execute_Immediate Run_Utility,0x1
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 00da | | Load_Top At_Offset_2
0171 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0172 00e0 | | Load_Encached Standard_Cache
0173 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0175 00da | | Load_Top At_Offset_2
0176 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0177 0227 | ' | Execute Access,All_Reference
0178 0335 | 5 | Declare_Variable Array,Duplicate
0179 00cd | | Action Spare6_Action
017a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017b 0092 0273 | s| Action Push_String_Extended,0x273 ; "Undefined Value"
017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 0092 0274 | t| Action Push_String_Extended,0x274 ; "Function not yet implemented"
0185 e005 | | Load 0x0,0x5
0186 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0187 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 8215 | | Call 0x1,0x15
018d 00d1 | | Pop_Control Pop_Count_1
018e 00da | | Load_Top At_Offset_2
018f 8214 | | Call 0x1,0x14
0190 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0191 0000 0000 | | .BLANK 0000[0x7]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 01a7 | | .CONST 0x01a7 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00db | | Load_Top At_Offset_3
019c 821d | | Call 0x1,0x1d
019d 00d1 | | Pop_Control Pop_Count_1
019e 4801 |H | Short_Literal 0x1
019f e224 | $ | Load 0x1,0x24
01a0 1c08 | | Execute_Immediate Run_Utility,0x8
01a1 00db | | Load_Top At_Offset_3
01a2 00d9 | | Load_Top At_Offset_1
01a3 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
01a4 e5fe | | Load 0x2,-0x2
01a5 016d | m | Execute Variant_Record,Structure_Write
01a6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a7 TRAP_0198:
01a7 010e | | Execute Exception,Is_Constraint_Error
01a8 6802 |h | Jump_Zero 0x1ab
01a9 e20d | | Load 0x1,0xd
01aa 0257 | W | Execute Discrete,Raise
01ab 0100 | | Execute Exception,Raise
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b5 | | .CONST 0x01b5 ; Address of begin
01b1 01d6 | | .CONST 0x01d6 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 e223 | # | Load 0x1,0x23
01b4 0007 | | Action Break_Optional
01b5 BODY_01b0:
01b5 e5fe | | Load 0x2,-0x2
01b6 821d | | Call 0x1,0x1d
01b7 00d1 | | Pop_Control Pop_Count_1
01b8 00db | | Load_Top At_Offset_3
01b9 01db | | Execute Vector,Length
01ba 0c51 | Q | Execute_Immediate Greater_Equal,0x51
01bb 7018 |p | Jump_Nonzero 0x1d4
01bc 4801 |H | Short_Literal 0x1
01bd e5ff | | Load 0x2,-0x1
01be 01db | | Execute Vector,Length
01bf 00d8 | | Load_Top At_Offset_0
01c0 00e2 | | Load_Encached Integer_Cache
01c1 0260 | ` | Execute Discrete,In_Type
01c2 7001 |p | Jump_Nonzero 0x1c4
01c3 0801 | | Execute_Immediate Raise,0x1
01c4 e223 | # | Load 0x1,0x23
01c5 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
01c6 0039 | 9 | Store_Top Access,At_Offset_1
01c7 4802 |H | Short_Literal 0x2
01c8 e224 | $ | Load 0x1,0x24
01c9 1c08 | | Execute_Immediate Run_Utility,0x8
01ca 00d9 | | Load_Top At_Offset_1
01cb 00d9 | | Load_Top At_Offset_1
01cc 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
01cd e5fe | | Load 0x2,-0x2
01ce 016d | m | Execute Variant_Record,Structure_Write
01cf 00db | | Load_Top At_Offset_3
01d0 e5fe | | Load 0x2,-0x2
01d1 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01d2 0228 | ( | Execute Access,All_Write
01d3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d4 e210 | | Load 0x1,0x10
01d5 0257 | W | Execute Discrete,Raise
01d6 TRAP_01b0:
01d6 010e | | Execute Exception,Is_Constraint_Error
01d7 6802 |h | Jump_Zero 0x1da
01d8 e210 | | Load 0x1,0x10
01d9 0257 | W | Execute Discrete,Raise
01da 0100 | | Execute Exception,Raise
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 01ef | | .CONST 0x01ef ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00db | | Load_Top At_Offset_3
01e4 821d | | Call 0x1,0x1d
01e5 00d1 | | Pop_Control Pop_Count_1
01e6 4803 |H | Short_Literal 0x3
01e7 e224 | $ | Load 0x1,0x24
01e8 1c08 | | Execute_Immediate Run_Utility,0x8
01e9 00db | | Load_Top At_Offset_3
01ea 00d9 | | Load_Top At_Offset_1
01eb 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
01ec e5fe | | Load 0x2,-0x2
01ed 016d | m | Execute Variant_Record,Structure_Write
01ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ef TRAP_01e0:
01ef 010e | | Execute Exception,Is_Constraint_Error
01f0 6802 |h | Jump_Zero 0x1f3
01f1 e20e | | Load 0x1,0xe
01f2 0257 | W | Execute Discrete,Raise
01f3 0100 | | Execute Exception,Raise
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01fd 0f02 | | Execute_Immediate Equal,0x2
01fe 6807 |h | Jump_Zero 0x206
01ff 00db | | Load_Top At_Offset_3
0200 00db | | Load_Top At_Offset_3
0201 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
0202 0227 | ' | Execute Access,All_Reference
0203 821f | | Call 0x1,0x1f
0204 00d1 | | Pop_Control Pop_Count_1
0205 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0206 00db | | Load_Top At_Offset_3
0207 821d | | Call 0x1,0x1d
0208 00d1 | | Pop_Control Pop_Count_1
0209 00da | | Load_Top At_Offset_2
020a e5fe | | Load 0x2,-0x2
020b 016d | m | Execute Variant_Record,Structure_Write
020c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 0092 0274 | t| Action Push_String_Extended,0x274 ; "Function not yet implemented"
0215 e005 | | Load 0x0,0x5
0216 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0217 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 4609 |F | Jump_Case 0xa
021c 7809 |x | Jump 0x226 ; case 0x0
021d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021e 781b |x | Jump 0x23a ; case 0x2
021f 781e |x | Jump 0x23e ; case 0x3
0220 784d |xM | Jump 0x26e ; case 0x4
0221 784c |xL | Jump 0x26e ; case 0x5
0222 7821 |x! | Jump 0x244 ; case 0x6
0223 782e |x. | Jump 0x252 ; case 0x7
0224 783e |x> | Jump 0x263 ; case 0x8
0225 7844 |xD | Jump 0x26a ; case 0x9
0226 00da | | Load_Top At_Offset_2
0227 016c | l | Execute Variant_Record,Is_Constrained
0228 7009 |p | Jump_Nonzero 0x232
0229 00cf | | Action Mark_Auxiliary
022a 4800 |H | Short_Literal 0x0
022b e5ff | | Load 0x2,-0x1
022c 1c08 | | Execute_Immediate Run_Utility,0x8
022d 00d8 | | Load_Top At_Offset_0
022e 1c00 | | Execute_Immediate Run_Utility,0x0
022f c5ff | | Store 0x2,-0x1
0230 00ce | | Action Pop_Auxiliary
0231 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0232 00da | | Load_Top At_Offset_2
0233 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0234 4603 |F | Jump_Case 0x4
0235 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0236 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0237 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0238 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0239 4302 |C | .XXX[0x1]
023a 4801 |H | Short_Literal 0x1
023b 4804 |H | Short_Literal 0x4
023c 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
023d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
023e e5fd | | Load 0x2,-0x3
023f 00db | | Load_Top At_Offset_3
0240 1c07 | | Execute_Immediate Run_Utility,0x7
0241 e5fe | | Load 0x2,-0x2
0242 0306 | | Complete_Type Variant_Record,By_Renaming
0243 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0244 00db | | Load_Top At_Offset_3
0245 4603 |F | Jump_Case 0x4
0246 7809 |x | Jump 0x250 ; case 0x0
0247 7804 |x | Jump 0x24c ; case 0x1
0248 7805 |x | Jump 0x24e ; case 0x2
0249 7800 |x | Jump 0x24a ; case 0x3
024a 4803 |H | Short_Literal 0x3
024b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024c 4801 |H | Short_Literal 0x1
024d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
024e 4802 |H | Short_Literal 0x2
024f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0250 48ff |H | Short_Literal 0xff
0251 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0252 00db | | Load_Top At_Offset_3
0253 e5fe | | Load 0x2,-0x2
0254 4603 |F | Jump_Case 0x4
0255 7809 |x | Jump 0x25f ; case 0x0
0256 7804 |x | Jump 0x25b ; case 0x1
0257 7805 |x | Jump 0x25d ; case 0x2
0258 7800 |x | Jump 0x259 ; case 0x3
0259 4803 |H | Short_Literal 0x3
025a 7805 |x | Jump 0x260
025b 4801 |H | Short_Literal 0x1
025c 7803 |x | Jump 0x260
025d 4802 |H | Short_Literal 0x2
025e 7801 |x | Jump 0x260
025f 48ff |H | Short_Literal 0xff
0260 e5ff | | Load 0x2,-0x1
0261 031b | | Declare_Type Variant_Record,Constrained
0262 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0263 00db | | Load_Top At_Offset_3
0264 e5fe | | Load 0x2,-0x2
0265 e5ff | | Load 0x2,-0x1
0266 1c06 | | Execute_Immediate Run_Utility,0x6
0267 e5ff | | Load 0x2,-0x1
0268 02fc | | Declare_Variable Variant_Record,With_Constraint
0269 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026a 4800 |H | Short_Literal 0x0
026b 00db | | Load_Top At_Offset_3
026c 1c07 | | Execute_Immediate Run_Utility,0x7
026d 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
026e 0869 | i | Execute_Immediate Raise,0x69
026f ; --------------------------------------------------------------------------------------
026f ; STRING TABLE
026f ; --------------------------------------------------------------------------------------
026f 000e | | .STRTAB 0x000e->0x0276 ; "UNDEFINED_VALUE"
0270 001b | | .STRTAB 0x001b->0x027d ; "INTEGER_VALUE"
0271 0026 | & | .STRTAB 0x0026->0x0284 ; "STRING_VALUE"
0272 0030 | 0 | .STRTAB 0x0030->0x028a ; "BOOLEAN_VALUE"
0273 003b | ; | .STRTAB 0x003b->0x0290 ; "Undefined Value"
0274 0048 | H | .STRTAB 0x0048->0x0298 ; "Function not yet implemented"
0275 0062 | b | .STREND 0x0062->0x02a6
0276 554e 4445 |UNDE| .STRTAB_STRINGS
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; Debug Table
02a8 ; --------------------------------------------------------------------------------------
02a8 0004 0007 | | .DEBUG4 0x0004,0x0007,0xd09a,0x0000,0x0001,0x0013
02ae 000b 02fa | | .DBG4T 0x000b,0x02fa,0x8000,0x8000
02b2 0061 032e | a .| .DBG4T 0x0061,0x032e,0x8000,0x0000
02b6 0093 0000 | | .DBG4T 0x0093,0x0000,0x0005,0x0000
02ba 00d3 0340 | @| .DBG4T 0x00d3,0x0340,0x0001,0x0000
02be 00e3 0343 | C| .DBG4T 0x00e3,0x0343,0x0001,0x0000
02c2 00fb 0348 | H| .DBG4T 0x00fb,0x0348,0x0002,0x0000
02c6 0103 034b | K| .DBG4T 0x0103,0x034b,0x0002,0x0000
02ca 0113 0350 | P| .DBG4T 0x0113,0x0350,0x0002,0x0000
02ce 0123 0355 | # U| .DBG4T 0x0123,0x0355,0x0002,0x0000
02d2 0133 035a | 3 Z| .DBG4T 0x0133,0x035a,0x0002,0x4000
02d6 0163 036c | c l| .DBG4T 0x0163,0x036c,0x0002,0x4000
02da 0183 0378 | x| .DBG4T 0x0183,0x0378,0x0001,0x0000
02de 018b 037b | {| .DBG4T 0x018b,0x037b,0x0001,0x0000
02e2 019b 037f | | .DBG4T 0x019b,0x037f,0x0001,0x0000
02e6 01b3 0384 | | .DBG4T 0x01b3,0x0384,0x0001,0x0000
02ea 01e3 038e | | .DBG4T 0x01e3,0x038e,0x0001,0x0000
02ee 01fb 0393 | | .DBG4T 0x01fb,0x0393,0x0001,0x0000
02f2 0213 0399 | | .DBG4T 0x0213,0x0399,0x0001,0x0000
02f6 021b 0000 | | .DBG4T 0x021b,0x0000,0x0005,0x0000
02fa ; --------------------------------------------------------------------------------------
02fa ; Debug chain
02fa ; --------------------------------------------------------------------------------------
02fa 0019 0000 | | .DBGLEN 0x0019,0x0000
02fc 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x001f,0x0024,0x0029,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004c,0x005b
0315 0001 0002 | | .XXX[0x19]
0317 0003 0004 | |
0319 0005 0007 | |
031b 0009 000b | |
031d 000c 000d | |
031f 000e 000f | |
0321 0010 0011 | |
0323 0012 0013 | |
0325 0014 0015 | |
0327 0016 0017 | |
0329 0018 0019 | |
032b 001a 001b | |
032d 001c | |
032e ; --------------------------------------------------------------------------------------
032e ; Debug chain
032e ; --------------------------------------------------------------------------------------
032e 0010 0000 | | .DBGLEN 0x0010,0x0000
0330 0061 0069 | a i| .DBGLNO 0x0061,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug chain
0340 ; --------------------------------------------------------------------------------------
0340 0000 0001 | | .DBGLEN 0x0000,0x0001
0342 00d3 | | .DBGLNO 0x00d3
0343 ; --------------------------------------------------------------------------------------
0343 ; Debug chain
0343 ; --------------------------------------------------------------------------------------
0343 0000 0003 | | .DBGLEN 0x0000,0x0003
0345 00e3 00e7 | | .DBGLNO 0x00e3,0x00e7,0x00ef
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug chain
0348 ; --------------------------------------------------------------------------------------
0348 0000 0001 | | .DBGLEN 0x0000,0x0001
034a 00fb | | .DBGLNO 0x00fb
034b ; --------------------------------------------------------------------------------------
034b ; Debug chain
034b ; --------------------------------------------------------------------------------------
034b 0000 0003 | | .DBGLEN 0x0000,0x0003
034d 0103 0107 | | .DBGLNO 0x0103,0x0107,0x010a
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug chain
0350 ; --------------------------------------------------------------------------------------
0350 0000 0003 | | .DBGLEN 0x0000,0x0003
0352 0113 0117 | | .DBGLNO 0x0113,0x0117,0x011a
0355 ; --------------------------------------------------------------------------------------
0355 ; Debug chain
0355 ; --------------------------------------------------------------------------------------
0355 0000 0003 | | .DBGLEN 0x0000,0x0003
0357 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x012d
035a ; --------------------------------------------------------------------------------------
035a ; Debug chain
035a ; --------------------------------------------------------------------------------------
035a 0000 0008 | | .DBGLEN 0x0000,0x0008
035c 0133 0139 | 3 9| .DBGLNO 0x0133,0x0139,0x0140,0x0146,0x014c,0x0154,0x0156,0x015a
0364 0001 0002 | | .XXX[0x8]
0366 0004 0003 | |
0368 0005 0006 | |
036a 0007 0008 | |
036c ; --------------------------------------------------------------------------------------
036c ; Debug chain
036c ; --------------------------------------------------------------------------------------
036c 0000 0005 | | .DBGLEN 0x0000,0x0005
036e 0163 016a | c j| .DBGLNO 0x0163,0x016a,0x0170,0x0175,0x017b
0373 0001 0003 | | .XXX[0x5]
0375 0002 0004 | |
0377 0005 | |
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug chain
0378 ; --------------------------------------------------------------------------------------
0378 0000 0001 | | .DBGLEN 0x0000,0x0001
037a 0183 | | .DBGLNO 0x0183
037b ; --------------------------------------------------------------------------------------
037b ; Debug chain
037b ; --------------------------------------------------------------------------------------
037b 0000 0002 | | .DBGLEN 0x0000,0x0002
037d 018b 018e | | .DBGLNO 0x018b,0x018e
037f ; --------------------------------------------------------------------------------------
037f ; Debug chain
037f ; --------------------------------------------------------------------------------------
037f 0000 0003 | | .DBGLEN 0x0000,0x0003
0381 019b 019e | | .DBGLNO 0x019b,0x019e,0x01a9
0384 ; --------------------------------------------------------------------------------------
0384 ; Debug chain
0384 ; --------------------------------------------------------------------------------------
0384 0001 0007 | | .DBGLEN 0x0001,0x0007
0386 01b3 01b5 | | .DBGLNO 0x01b3,0x01b5,0x01b8,0x01bc,0x01c7,0x01cf,0x01d4,0x01d8
038e ; --------------------------------------------------------------------------------------
038e ; Debug chain
038e ; --------------------------------------------------------------------------------------
038e 0000 0003 | | .DBGLEN 0x0000,0x0003
0390 01e3 01e6 | | .DBGLNO 0x01e3,0x01e6,0x01f1
0393 ; --------------------------------------------------------------------------------------
0393 ; Debug chain
0393 ; --------------------------------------------------------------------------------------
0393 0000 0004 | | .DBGLEN 0x0000,0x0004
0395 01fb 01ff | | .DBGLNO 0x01fb,0x01ff,0x0206,0x0209
0399 ; --------------------------------------------------------------------------------------
0399 ; Debug chain
0399 ; --------------------------------------------------------------------------------------
0399 0000 0001 | | .DBGLEN 0x0000,0x0001
039b 0213 | | .DBGLNO 0x0213
039c 0000 0000 | | .BLANK 0000[0x64]