|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02d8 | | .CONST 0x02d8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004d | M | .CONST 0x004d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0013 | | .CONST 0x0013 ; Number of locals
000b INIT_0008:
000b e002 | | Load 0x0,0x2
000c e003 | | Load 0x0,0x3
000d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
000e 4801 |H | Short_Literal 0x1
000f 4801 |H | Short_Literal 0x1
0010 e004 | | Load 0x0,0x4
0011 4801 |H | Short_Literal 0x1
0012 4801 |H | Short_Literal 0x1
0013 e005 | | Load 0x0,0x5
0014 4801 |H | Short_Literal 0x1
0015 4801 |H | Short_Literal 0x1
0016 e006 | | Load 0x0,0x6
0017 4802 |H | Short_Literal 0x2
0018 4802 |H | Short_Literal 0x2
0019 e004 | | Load 0x0,0x4
001a 00d8 | | Load_Top At_Offset_0
001b 4802 |H | Short_Literal 0x2
001c 4802 |H | Short_Literal 0x2
001d e007 | | Load 0x0,0x7
001e 00d8 | | Load_Top At_Offset_0
001f 4801 |H | Short_Literal 0x1
0020 4800 |H | Short_Literal 0x0
0021 e004 | | Load 0x0,0x4
0022 4801 |H | Short_Literal 0x1
0023 e008 | | Load 0x0,0x8
0024 02a0 | | Declare_Subprogram Null_Subprogram
0025 4801 |H | Short_Literal 0x1
0026 4801 |H | Short_Literal 0x1
0027 4801 |H | Short_Literal 0x1
0028 4800 |H | Short_Literal 0x0
0029 4800 |H | Short_Literal 0x0
002a 031e | | Declare_Type Variant_Record,Defined,Visible
002b 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
002d 4808 |H | Short_Literal 0x8
002e 4800 |H | Short_Literal 0x0
002f 4801 |H | Short_Literal 0x1
0030 4806 |H | Short_Literal 0x6
0031 4801 |H | Short_Literal 0x1
0032 4801 |H | Short_Literal 0x1
0033 031e | | Declare_Type Variant_Record,Defined,Visible
0034 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0036 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0038 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
003a 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
003c 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
003e 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0040 00bf | | Action Accept_Activation
0041 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0042 00c7 | | Action Elaborate_Subprogram
0043 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0044 00c7 | | Action Elaborate_Subprogram
0045 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0046 00c7 | | Action Elaborate_Subprogram
0047 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0048 00c7 | | Action Elaborate_Subprogram
0049 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004a 00c7 | | Action Elaborate_Subprogram
004b 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004c 00c7 | | Action Elaborate_Subprogram
004d BODY_0008:
004d 00bc | | Action Signal_Activated
004e 00bb | | Action Signal_Completion
004f 0000 | | .XXX[0x1]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4800 |H | Short_Literal 0x0
0054 e20d | | Load 0x1,0xd
0055 1c08 | | Execute_Immediate Run_Utility,0x8
0056 00d8 | | Load_Top At_Offset_0
0057 1c01 | | Execute_Immediate Run_Utility,0x1
0058 e003 | | Load 0x0,0x3
0059 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
005a 00d9 | | Load_Top At_Offset_1
005b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
005c e003 | | Load 0x0,0x3
005d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
005e 00ea | | Load_Encached Null_String_Cache
005f 8009 | | Call 0x0,0x9
0060 00d9 | | Load_Top At_Offset_1
0061 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0062 2801 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x1
0063 00ca | | Action Exit_Nullary_Function
0064 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
006c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
006d 0f00 | | Execute_Immediate Equal,0x0
006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0078 | x | .CONST 0x0078 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0002 | | .CONST 0x0002 ; Number of locals
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 e20d | | Load 0x1,0xd
0075 1c08 | | Execute_Immediate Run_Utility,0x8
0076 00d8 | | Load_Top At_Offset_0
0077 1c00 | | Execute_Immediate Run_Utility,0x0
0078 BODY_0070:
0078 e5fe | | Load 0x2,-0x2
0079 00d9 | | Load_Top At_Offset_1
007a 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
007b 00d8 | | Load_Top At_Offset_0
007c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
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 0833 | 3 | Execute_Immediate Raise,0x33
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0095 | | .CONST 0x0095 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0006 | | .CONST 0x0006 ; Number of locals
008b INIT_0088:
008b 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
008d 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
008f 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0091 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
0093 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0095 BODY_0088:
0095 e5ff | | Load 0x2,-0x1
0096 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0097 4611 |F | Jump_Case 0x12
0098 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x0
0099 7836 |x6 | Jump 0xd0 ; case 0x1
009a 7811 |x | Jump 0xac ; case 0x2
009b 7817 |x | Jump 0xb3 ; case 0x3
009c 782c |x, | Jump 0xc9 ; case 0x4
009d 7827 |x' | Jump 0xc5 ; case 0x5
009e 7828 |x( | Jump 0xc7 ; case 0x6
009f 780a |x | Jump 0xaa ; case 0x7
00a0 7809 |x | Jump 0xaa ; case 0x8
00a1 7808 |x | Jump 0xaa ; case 0x9
00a2 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xa
00a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0xb
00a4 780e |x | Jump 0xb3 ; case 0xc
00a5 780f |x | Jump 0xb5 ; case 0xd
00a6 7829 |x) | Jump 0xd0 ; case 0xe
00a7 7814 |x | Jump 0xbc ; case 0xf
00a8 7801 |x | Jump 0xaa ; case 0x10
00a9 7800 |x | Jump 0xaa ; case 0x11
00aa 8406 | | Call 0x2,0x6
00ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ac e00a | | Load 0x0,0xa
00ad e5fd | | Load 0x2,-0x3
00ae e5fe | | Load 0x2,-0x2
00af e5ff | | Load 0x2,-0x1
00b0 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
00b1 800b | | Call 0x0,0xb
00b2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b3 8403 | | Call 0x2,0x3
00b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b5 e00a | | Load 0x0,0xa
00b6 e5fd | | Load 0x2,-0x3
00b7 e5fe | | Load 0x2,-0x2
00b8 e5ff | | Load 0x2,-0x1
00b9 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
00ba 800c | | Call 0x0,0xc
00bb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00bc e00a | | Load 0x0,0xa
00bd e5fd | | Load 0x2,-0x3
00be e5fe | | Load 0x2,-0x2
00bf e5ff | | Load 0x2,-0x1
00c0 2e09 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x9
00c1 e5ff | | Load 0x2,-0x1
00c2 2e08 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x8
00c3 800d | | Call 0x0,0xd
00c4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c5 8404 | | Call 0x2,0x4
00c6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c7 8405 | | Call 0x2,0x5
00c8 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c9 e00a | | Load 0x0,0xa
00ca e5fd | | Load 0x2,-0x3
00cb e5fe | | Load 0x2,-0x2
00cc e5ff | | Load 0x2,-0x1
00cd 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
00ce 800e | | Call 0x0,0xe
00cf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d0 8402 | | Call 0x2,0x2
00d1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00d2 0000 0000 | | .BLANK 0000[0x6]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00ea | | .CONST 0x00ea ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 e007 | | Load 0x0,0x7
00e4 0007 | | Action Break_Optional
00e5 e00f | | Load 0x0,0xf
00e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e7 02c7 | | Declare_Variable Any
00e8 00d8 | | Load_Top At_Offset_0
00e9 1c00 | | Execute_Immediate Run_Utility,0x0
00ea BODY_00e0:
00ea e5ff | | Load 0x2,-0x1
00eb 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ec 8010 | | Call 0x0,0x10
00ed 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00ee 00d9 | | Load_Top At_Offset_1
00ef e5ff | | Load 0x2,-0x1
00f0 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00f1 4800 |H | Short_Literal 0x0
00f2 8011 | | Call 0x0,0x11
00f3 0032 | 2 | Store_Top Heap_Access,At_Offset_2
00f4 00d8 | | Load_Top At_Offset_0
00f5 00da | | Load_Top At_Offset_2
00f6 8012 | | Call 0x0,0x12
00f7 c603 | | Store 0x3,0x3
00f8 4802 |H | Short_Literal 0x2
00f9 e5ff | | Load 0x2,-0x1
00fa 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
00fb 00da | | Load_Top At_Offset_2
00fc 8013 | | Call 0x0,0x13
00fd e5ff | | Load 0x2,-0x1
00fe 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ff 0f01 | | Execute_Immediate Equal,0x1
0100 6806 |h | Jump_Zero 0x107
0101 e00a | | Load 0x0,0xa
0102 e5fd | | Load 0x2,-0x3
0103 e5fe | | Load 0x2,-0x2
0104 e602 | | Load 0x3,0x2
0105 8014 | | Call 0x0,0x14
0106 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0107 e00a | | Load 0x0,0xa
0108 e5fd | | Load 0x2,-0x3
0109 e5fe | | Load 0x2,-0x2
010a e602 | | Load 0x3,0x2
010b 8015 | | Call 0x0,0x15
010c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011c | | .CONST 0x011c ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0004 | | .CONST 0x0004 ; Number of locals
0113 INIT_0110:
0113 e016 | | Load 0x0,0x16
0114 0007 | | Action Break_Optional
0115 e017 | | Load 0x0,0x17
0116 0007 | | Action Break_Optional
0117 e00f | | Load 0x0,0xf
0118 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0119 02c7 | | Declare_Variable Any
011a 00d8 | | Load_Top At_Offset_0
011b 1c00 | | Execute_Immediate Run_Utility,0x0
011c BODY_0110:
011c e5ff | | Load 0x2,-0x1
011d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
011e 8018 | | Call 0x0,0x18
011f 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0120 00da | | Load_Top At_Offset_2
0121 e5ff | | Load 0x2,-0x1
0122 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
0123 4800 |H | Short_Literal 0x0
0124 8019 | | Call 0x0,0x19
0125 0033 | 3 | Store_Top Heap_Access,At_Offset_3
0126 00d8 | | Load_Top At_Offset_0
0127 00db | | Load_Top At_Offset_3
0128 801a | | Call 0x0,0x1a
0129 c604 | | Store 0x3,0x4
012a 4802 |H | Short_Literal 0x2
012b e5ff | | Load 0x2,-0x1
012c 2e06 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x6
012d 00da | | Load_Top At_Offset_2
012e 8013 | | Call 0x0,0x13
012f e5ff | | Load 0x2,-0x1
0130 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0131 00db | | Load_Top At_Offset_3
0132 801b | | Call 0x0,0x1b
0133 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0134 e5ff | | Load 0x2,-0x1
0135 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0136 0f03 | | Execute_Immediate Equal,0x3
0137 6807 |h | Jump_Zero 0x13f
0138 e00a | | Load 0x0,0xa
0139 e5fd | | Load 0x2,-0x3
013a e5fe | | Load 0x2,-0x2
013b e602 | | Load 0x3,0x2
013c e603 | | Load 0x3,0x3
013d 801c | | Call 0x0,0x1c
013e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013f e00a | | Load 0x0,0xa
0140 e5fd | | Load 0x2,-0x3
0141 e5fe | | Load 0x2,-0x2
0142 e602 | | Load 0x3,0x2
0143 e5ff | | Load 0x2,-0x1
0144 2e07 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x7
0145 801d | | Call 0x0,0x1d
0146 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 0153 | S | .CONST 0x0153 ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0003 | | .CONST 0x0003 ; Number of locals
014b INIT_0148:
014b e5ff | | Load 0x2,-0x1
014c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014d 801e | | Call 0x0,0x1e
014e e00f | | Load 0x0,0xf
014f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0150 02c7 | | Declare_Variable Any
0151 00d8 | | Load_Top At_Offset_0
0152 1c00 | | Execute_Immediate Run_Utility,0x0
0153 BODY_0148:
0153 00d9 | | Load_Top At_Offset_1
0154 e5ff | | Load 0x2,-0x1
0155 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0156 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0157 4800 |H | Short_Literal 0x0
0158 801f | | Call 0x0,0x1f
0159 0032 | 2 | Store_Top Heap_Access,At_Offset_2
015a 00d8 | | Load_Top At_Offset_0
015b 00da | | Load_Top At_Offset_2
015c 8020 | | Call 0x0,0x20
015d c603 | | Store 0x3,0x3
015e 4802 |H | Short_Literal 0x2
015f e5ff | | Load 0x2,-0x1
0160 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0161 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0162 00da | | Load_Top At_Offset_2
0163 8013 | | Call 0x0,0x13
0164 e00a | | Load 0x0,0xa
0165 e5fd | | Load 0x2,-0x3
0166 e5fe | | Load 0x2,-0x2
0167 e602 | | Load 0x3,0x2
0168 8021 | ! | Call 0x0,0x21
0169 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017b | { | .CONST 0x017b ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e5ff | | Load 0x2,-0x1
0174 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0175 8022 | " | Call 0x0,0x22
0176 e00f | | Load 0x0,0xf
0177 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0178 02c7 | | Declare_Variable Any
0179 00d8 | | Load_Top At_Offset_0
017a 1c00 | | Execute_Immediate Run_Utility,0x0
017b BODY_0170:
017b 00d9 | | Load_Top At_Offset_1
017c e5ff | | Load 0x2,-0x1
017d 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
017e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
017f 4800 |H | Short_Literal 0x0
0180 8023 | # | Call 0x0,0x23
0181 0032 | 2 | Store_Top Heap_Access,At_Offset_2
0182 00d8 | | Load_Top At_Offset_0
0183 00da | | Load_Top At_Offset_2
0184 8024 | $ | Call 0x0,0x24
0185 c603 | | Store 0x3,0x3
0186 4802 |H | Short_Literal 0x2
0187 e5ff | | Load 0x2,-0x1
0188 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0189 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
018a 00da | | Load_Top At_Offset_2
018b 8013 | | Call 0x0,0x13
018c e00a | | Load 0x0,0xa
018d e5fd | | Load 0x2,-0x3
018e e5fe | | Load 0x2,-0x2
018f e602 | | Load 0x3,0x2
0190 8025 | % | Call 0x0,0x25
0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0192 0000 0000 | | .BLANK 0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019e | | .CONST 0x019e ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0003 | | .CONST 0x0003 ; Number of locals
019b INIT_0198:
019b e008 | | Load 0x0,0x8
019c 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
019e BODY_0198:
019e e5ff | | Load 0x2,-0x1
019f 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a0 4611 |F | Jump_Case 0x12
01a1 7822 |x" | Jump 0x1c4 ; case 0x0
01a2 7821 |x! | Jump 0x1c4 ; case 0x1
01a3 7820 |x | Jump 0x1c4 ; case 0x2
01a4 781f |x | Jump 0x1c4 ; case 0x3
01a5 781e |x | Jump 0x1c4 ; case 0x4
01a6 781d |x | Jump 0x1c4 ; case 0x5
01a7 7810 |x | Jump 0x1b8 ; case 0x6
01a8 7812 |x | Jump 0x1bb ; case 0x7
01a9 7814 |x | Jump 0x1be ; case 0x8
01aa 7816 |x | Jump 0x1c1 ; case 0x9
01ab 7818 |x | Jump 0x1c4 ; case 0xa
01ac 7817 |x | Jump 0x1c4 ; case 0xb
01ad 7816 |x | Jump 0x1c4 ; case 0xc
01ae 7815 |x | Jump 0x1c4 ; case 0xd
01af 7814 |x | Jump 0x1c4 ; case 0xe
01b0 7813 |x | Jump 0x1c4 ; case 0xf
01b1 7801 |x | Jump 0x1b3 ; case 0x10
01b2 7800 |x | Jump 0x1b3 ; case 0x11
01b3 e5ff | | Load 0x2,-0x1
01b4 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
01b5 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01b6 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01b7 780e |x | Jump 0x1c6
01b8 4802 |H | Short_Literal 0x2
01b9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01ba 780b |x | Jump 0x1c6
01bb 480a |H | Short_Literal 0xa
01bc 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01bd 7808 |x | Jump 0x1c6
01be 4809 |H | Short_Literal 0x9
01bf 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c0 7805 |x | Jump 0x1c6
01c1 4800 |H | Short_Literal 0x0
01c2 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c3 7802 |x | Jump 0x1c6
01c4 4800 |H | Short_Literal 0x0
01c5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c6 8603 | | Call 0x3,0x3
01c7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d9 | | .CONST 0x01d9 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0004 | | .CONST 0x0004 ; Number of locals
01cb INIT_01c8:
01cb e5ff | | Load 0x2,-0x1
01cc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01cd 8026 | & | Call 0x0,0x26
01ce e004 | | Load 0x0,0x4
01cf e5ff | | Load 0x2,-0x1
01d0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d1 8027 | ' | Call 0x0,0x27
01d2 8009 | | Call 0x0,0x9
01d3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
01d4 e00f | | Load 0x0,0xf
01d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d6 02c7 | | Declare_Variable Any
01d7 00d8 | | Load_Top At_Offset_0
01d8 1c00 | | Execute_Immediate Run_Utility,0x0
01d9 BODY_01c8:
01d9 00da | | Load_Top At_Offset_2
01da 00da | | Load_Top At_Offset_2
01db 4800 |H | Short_Literal 0x0
01dc 8028 | ( | Call 0x0,0x28
01dd 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01de 00d8 | | Load_Top At_Offset_0
01df 00db | | Load_Top At_Offset_3
01e0 8029 | ) | Call 0x0,0x29
01e1 c804 | | Store 0x4,0x4
01e2 4802 |H | Short_Literal 0x2
01e3 00da | | Load_Top At_Offset_2
01e4 00da | | Load_Top At_Offset_2
01e5 8013 | | Call 0x0,0x13
01e6 4801 |H | Short_Literal 0x1
01e7 e5fe | | Load 0x2,-0x2
01e8 802a | * | Call 0x0,0x2a
01e9 e802 | | Load 0x4,0x2
01ea e602 | | Load 0x3,0x2
01eb e5ff | | Load 0x2,-0x1
01ec 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
01ed 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01ee 802b | + | Call 0x0,0x2b
01ef 802c | , | Call 0x0,0x2c
01f0 e02d | - | Load 0x0,0x2d
01f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f2 00da | | Load_Top At_Offset_2
01f3 4800 |H | Short_Literal 0x0
01f4 802e | . | Call 0x0,0x2e
01f5 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01f6 00d8 | | Load_Top At_Offset_0
01f7 00db | | Load_Top At_Offset_3
01f8 8029 | ) | Call 0x0,0x29
01f9 c804 | | Store 0x4,0x4
01fa 4802 |H | Short_Literal 0x2
01fb 00da | | Load_Top At_Offset_2
01fc 00da | | Load_Top At_Offset_2
01fd 8013 | | Call 0x0,0x13
01fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 4609 |F | Jump_Case 0xa
0204 7809 |x | Jump 0x20e ; case 0x0
0205 783a |x: | Jump 0x240 ; case 0x1
0206 7841 |xA | Jump 0x248 ; case 0x2
0207 7844 |xD | Jump 0x24c ; case 0x3
0208 78c9 |x | Jump 0x2d2 ; case 0x4
0209 78c8 |x | Jump 0x2d2 ; case 0x5
020a 7847 |xG | Jump 0x252 ; case 0x6
020b 7866 |xf | Jump 0x272 ; case 0x7
020c 7899 |x | Jump 0x2a6 ; case 0x8
020d 78c0 |x | Jump 0x2ce ; case 0x9
020e 00da | | Load_Top At_Offset_2
020f 016c | l | Execute Variant_Record,Is_Constrained
0210 7009 |p | Jump_Nonzero 0x21a
0211 00cf | | Action Mark_Auxiliary
0212 4800 |H | Short_Literal 0x0
0213 e5ff | | Load 0x2,-0x1
0214 1c08 | | Execute_Immediate Run_Utility,0x8
0215 00d8 | | Load_Top At_Offset_0
0216 1c00 | | Execute_Immediate Run_Utility,0x0
0217 c5ff | | Store 0x2,-0x1
0218 00ce | | Action Pop_Auxiliary
0219 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
021a 00da | | Load_Top At_Offset_2
021b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
021c 4611 |F | Jump_Case 0x12
021d 7811 |x | Jump 0x22f ; case 0x0
021e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
021f 781c |x | Jump 0x23c ; case 0x2
0220 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0221 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0222 780c |x | Jump 0x22f ; case 0x5
0223 780b |x | Jump 0x22f ; case 0x6
0224 780a |x | Jump 0x22f ; case 0x7
0225 7809 |x | Jump 0x22f ; case 0x8
0226 7808 |x | Jump 0x22f ; case 0x9
0227 7807 |x | Jump 0x22f ; case 0xa
0228 7806 |x | Jump 0x22f ; case 0xb
0229 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xc
022a 7811 |x | Jump 0x23c ; case 0xd
022b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xe
022c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0xf
022d 7801 |x | Jump 0x22f ; case 0x10
022e 7800 |x | Jump 0x22f ; case 0x11
022f 00da | | Load_Top At_Offset_2
0230 220a |" | Execute Variant_Record,Field_Constrain,Field_Number 0xa
0231 00da | | Load_Top At_Offset_2
0232 270a |' | Execute Variant_Record,Field_Reference,Variant,Indirect,Field_Number 0xa
0233 00db | | Load_Top At_Offset_3
0234 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0235 4810 |H | Short_Literal 0x10
0236 4811 |H | Short_Literal 0x11
0237 0262 | b | Execute Discrete,In_Range
0238 7000 |p | Jump_Nonzero 0x239
0239 00db | | Load_Top At_Offset_3
023a 2b0a |+ | Execute Variant_Record,Field_Write,Variant,Indirect,Field_Number 0xa
023b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
023c 00da | | Load_Top At_Offset_2
023d 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
023e 1c00 | | Execute_Immediate Run_Utility,0x0
023f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0240 00da | | Load_Top At_Offset_2
0241 016b | k | Execute Variant_Record,Read_Variant
0242 00d8 | | Load_Top At_Offset_0
0243 0f06 | | Execute_Immediate Equal,0x6
0244 6802 |h | Jump_Zero 0x247
0245 00db | | Load_Top At_Offset_3
0246 220a |" | Execute Variant_Record,Field_Constrain,Field_Number 0xa
0247 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0248 4801 |H | Short_Literal 0x1
0249 480a |H | Short_Literal 0xa
024a 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
024b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
024c e5fd | | Load 0x2,-0x3
024d 00db | | Load_Top At_Offset_3
024e 1c07 | | Execute_Immediate Run_Utility,0x7
024f e5fe | | Load 0x2,-0x2
0250 0306 | | Complete_Type Variant_Record,By_Renaming
0251 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
0252 00db | | Load_Top At_Offset_3
0253 4611 |F | Jump_Case 0x12
0254 7811 |x | Jump 0x266 ; case 0x0
0255 7812 |x | Jump 0x268 ; case 0x1
0256 7815 |x | Jump 0x26c ; case 0x2
0257 7816 |x | Jump 0x26e ; case 0x3
0258 7811 |x | Jump 0x26a ; case 0x4
0259 780c |x | Jump 0x266 ; case 0x5
025a 780b |x | Jump 0x266 ; case 0x6
025b 780a |x | Jump 0x266 ; case 0x7
025c 7809 |x | Jump 0x266 ; case 0x8
025d 7808 |x | Jump 0x266 ; case 0x9
025e 7807 |x | Jump 0x266 ; case 0xa
025f 7806 |x | Jump 0x266 ; case 0xb
0260 780d |x | Jump 0x26e ; case 0xc
0261 780a |x | Jump 0x26c ; case 0xd
0262 7805 |x | Jump 0x268 ; case 0xe
0263 780c |x | Jump 0x270 ; case 0xf
0264 7801 |x | Jump 0x266 ; case 0x10
0265 7800 |x | Jump 0x266 ; case 0x11
0266 4806 |H | Short_Literal 0x6
0267 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0268 4801 |H | Short_Literal 0x1
0269 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026a 4802 |H | Short_Literal 0x2
026b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026c 4803 |H | Short_Literal 0x3
026d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
026e 4804 |H | Short_Literal 0x4
026f 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0270 4805 |H | Short_Literal 0x5
0271 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0272 00db | | Load_Top At_Offset_3
0273 e5fe | | Load 0x2,-0x2
0274 4611 |F | Jump_Case 0x12
0275 7811 |x | Jump 0x287 ; case 0x0
0276 781e |x | Jump 0x295 ; case 0x1
0277 7823 |x# | Jump 0x29b ; case 0x2
0278 7825 |x% | Jump 0x29e ; case 0x3
0279 781e |x | Jump 0x298 ; case 0x4
027a 780c |x | Jump 0x287 ; case 0x5
027b 780b |x | Jump 0x287 ; case 0x6
027c 780a |x | Jump 0x287 ; case 0x7
027d 7809 |x | Jump 0x287 ; case 0x8
027e 7808 |x | Jump 0x287 ; case 0x9
027f 7807 |x | Jump 0x287 ; case 0xa
0280 7806 |x | Jump 0x287 ; case 0xb
0281 781c |x | Jump 0x29e ; case 0xc
0282 7818 |x | Jump 0x29b ; case 0xd
0283 7811 |x | Jump 0x295 ; case 0xe
0284 781c |x | Jump 0x2a1 ; case 0xf
0285 7801 |x | Jump 0x287 ; case 0x10
0286 7800 |x | Jump 0x287 ; case 0x11
0287 e5fe | | Load 0x2,-0x2
0288 4810 |H | Short_Literal 0x10
0289 4811 |H | Short_Literal 0x11
028a 0262 | b | Execute Discrete,In_Range
028b 7002 |p | Jump_Nonzero 0x28e
028c 48ff |H | Short_Literal 0xff
028d 7801 |x | Jump 0x28f
028e 4801 |H | Short_Literal 0x1
028f e20d | | Load 0x1,0xd
0290 230a |# | Execute Variant_Record,Field_Type,Field_Number 0xa
0291 031b | | Declare_Type Variant_Record,Constrained
0292 4801 |H | Short_Literal 0x1
0293 4806 |H | Short_Literal 0x6
0294 780e |x | Jump 0x2a3
0295 4800 |H | Short_Literal 0x0
0296 4801 |H | Short_Literal 0x1
0297 780b |x | Jump 0x2a3
0298 4800 |H | Short_Literal 0x0
0299 4802 |H | Short_Literal 0x2
029a 7808 |x | Jump 0x2a3
029b 4800 |H | Short_Literal 0x0
029c 4803 |H | Short_Literal 0x3
029d 7805 |x | Jump 0x2a3
029e 4800 |H | Short_Literal 0x0
029f 4804 |H | Short_Literal 0x4
02a0 7802 |x | Jump 0x2a3
02a1 4800 |H | Short_Literal 0x0
02a2 4805 |H | Short_Literal 0x5
02a3 e5ff | | Load 0x2,-0x1
02a4 031b | | Declare_Type Variant_Record,Constrained
02a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02a6 00db | | Load_Top At_Offset_3
02a7 e5fe | | Load 0x2,-0x2
02a8 e5ff | | Load 0x2,-0x1
02a9 1c06 | | Execute_Immediate Run_Utility,0x6
02aa e5ff | | Load 0x2,-0x1
02ab 02fc | | Declare_Variable Variant_Record,With_Constraint
02ac e5fe | | Load 0x2,-0x2
02ad 4611 |F | Jump_Case 0x12
02ae 7811 |x | Jump 0x2c0 ; case 0x0
02af 781c |x | Jump 0x2cc ; case 0x1
02b0 781b |x | Jump 0x2cc ; case 0x2
02b1 781a |x | Jump 0x2cc ; case 0x3
02b2 7819 |x | Jump 0x2cc ; case 0x4
02b3 780c |x | Jump 0x2c0 ; case 0x5
02b4 780b |x | Jump 0x2c0 ; case 0x6
02b5 780a |x | Jump 0x2c0 ; case 0x7
02b6 7809 |x | Jump 0x2c0 ; case 0x8
02b7 7808 |x | Jump 0x2c0 ; case 0x9
02b8 7807 |x | Jump 0x2c0 ; case 0xa
02b9 7806 |x | Jump 0x2c0 ; case 0xb
02ba 7811 |x | Jump 0x2cc ; case 0xc
02bb 7810 |x | Jump 0x2cc ; case 0xd
02bc 780f |x | Jump 0x2cc ; case 0xe
02bd 780e |x | Jump 0x2cc ; case 0xf
02be 7801 |x | Jump 0x2c0 ; case 0x10
02bf 7800 |x | Jump 0x2c0 ; case 0x11
02c0 e5fe | | Load 0x2,-0x2
02c1 4810 |H | Short_Literal 0x10
02c2 4811 |H | Short_Literal 0x11
02c3 0262 | b | Execute Discrete,In_Range
02c4 7002 |p | Jump_Nonzero 0x2c7
02c5 48ff |H | Short_Literal 0xff
02c6 7801 |x | Jump 0x2c8
02c7 4801 |H | Short_Literal 0x1
02c8 e20d | | Load 0x1,0xd
02c9 230a |# | Execute Variant_Record,Field_Type,Field_Number 0xa
02ca 02fc | | Declare_Variable Variant_Record,With_Constraint
02cb 2f0a |/ | Execute Variant_Record,Field_Append,Variant,Indirect,Field_Number 0xa
02cc 016a | j | QQ_execute Variant_Record,XXX
02cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ce 4800 |H | Short_Literal 0x0
02cf 00db | | Load_Top At_Offset_3
02d0 1c07 | | Execute_Immediate Run_Utility,0x7
02d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02d2 0869 | i | Execute_Immediate Raise,0x69
02d3 0000 0000 | | .BLANK 0000[0x5]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug Table
02d8 ; --------------------------------------------------------------------------------------
02d8 0004 000a | | .DEBUG4 0x0004,0x000a,0x7635,0x0000,0x0001,0x0000
02de 0000 0000 | | .BLANK 0000[0x122]