|
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_2530b5
└─⟦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 01f0 | | .CONST 0x01f0 ; 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 005e | ^ | .CONST 0x005e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0019 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001f 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0021 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0023 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0025 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0027 0093 0000 | | push_full_address 0x0
0029 6042 |`B | Indirect_Literal Discrete,0x6c,{0x80000000, 0x00010000}
002a 0273 | s | Execute Discrete,Plus
002b 0129 | ) | Execute Any,Make_Visible
002c e002 | | Load 0x0,0x2
002d 4801 |H | Short_Literal 0x1
002e e003 | | Load 0x0,0x3
002f 4801 |H | Short_Literal 0x1
0030 e004 | | Load 0x0,0x4
0031 4801 |H | Short_Literal 0x1
0032 e005 | | Load 0x0,0x5
0033 4801 |H | Short_Literal 0x1
0034 e006 | | Load 0x0,0x6
0035 4801 |H | Short_Literal 0x1
0036 e007 | | Load 0x0,0x7
0037 4801 |H | Short_Literal 0x1
0038 e008 | | Load 0x0,0x8
0039 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
003b 4806 |H | Short_Literal 0x6
003c 4800 |H | Short_Literal 0x0
003d 4806 |H | Short_Literal 0x6
003e 4800 |H | Short_Literal 0x0
003f 4801 |H | Short_Literal 0x1
0040 031e | | Declare_Type Variant_Record,Defined,Visible
0041 00bf | | Action Accept_Activation
0042 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0043 00c7 | | Action Elaborate_Subprogram
0044 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0045 00c7 | | Action Elaborate_Subprogram
0046 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0047 00c7 | | Action Elaborate_Subprogram
0048 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0049 00c7 | | Action Elaborate_Subprogram
004a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
004b 00c7 | | Action Elaborate_Subprogram
004c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
004d 00c7 | | Action Elaborate_Subprogram
004e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
004f 00c7 | | Action Elaborate_Subprogram
0050 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0051 00c7 | | Action Elaborate_Subprogram
0052 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0053 00c7 | | Action Elaborate_Subprogram
0054 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0055 00c7 | | Action Elaborate_Subprogram
0056 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0057 00c7 | | Action Elaborate_Subprogram
0058 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0059 00c7 | | Action Elaborate_Subprogram
005a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
005d 00c7 | | Action Elaborate_Subprogram
005e BODY_0008:
005e 00bc | | Action Signal_Activated
005f 00bb | | Action Signal_Completion
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 4801 |H | Short_Literal 0x1
0064 e21c | | Load 0x1,0x1c
0065 1c08 | | Execute_Immediate Run_Utility,0x8
0066 00db | | Load_Top At_Offset_3
0067 00d9 | | Load_Top At_Offset_1
0068 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0069 e5fe | | Load 0x2,-0x2
006a 016d | m | Execute Variant_Record,Structure_Write
006b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4802 |H | Short_Literal 0x2
0074 e21c | | Load 0x1,0x1c
0075 1c08 | | Execute_Immediate Run_Utility,0x8
0076 00db | | Load_Top At_Offset_3
0077 00d9 | | Load_Top At_Offset_1
0078 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0079 e5fe | | Load 0x2,-0x2
007a 016d | m | Execute Variant_Record,Structure_Write
007b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
007c 0000 0000 | | .BLANK 0000[0x4]
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 4803 |H | Short_Literal 0x3
0084 e21c | | Load 0x1,0x1c
0085 1c08 | | Execute_Immediate Run_Utility,0x8
0086 00db | | Load_Top At_Offset_3
0087 00d9 | | Load_Top At_Offset_1
0088 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0089 e5fe | | Load 0x2,-0x2
008a 016d | m | Execute Variant_Record,Structure_Write
008b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
008c 0000 0000 | | .BLANK 0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 4804 |H | Short_Literal 0x4
0094 e21c | | Load 0x1,0x1c
0095 1c08 | | Execute_Immediate Run_Utility,0x8
0096 00db | | Load_Top At_Offset_3
0097 00d9 | | Load_Top At_Offset_1
0098 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
0099 e5fe | | Load 0x2,-0x2
009a 016d | m | Execute Variant_Record,Structure_Write
009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4805 |H | Short_Literal 0x5
00a4 e21c | | Load 0x1,0x1c
00a5 1c08 | | Execute_Immediate Run_Utility,0x8
00a6 00db | | Load_Top At_Offset_3
00a7 00d9 | | Load_Top At_Offset_1
00a8 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
00a9 e5fe | | Load 0x2,-0x2
00aa 016d | m | Execute Variant_Record,Structure_Write
00ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ac 0000 0000 | | .BLANK 0000[0x4]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 4806 |H | Short_Literal 0x6
00b4 e21c | | Load 0x1,0x1c
00b5 1c08 | | Execute_Immediate Run_Utility,0x8
00b6 00db | | Load_Top At_Offset_3
00b7 00d9 | | Load_Top At_Offset_1
00b8 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
00b9 e5fe | | Load 0x2,-0x2
00ba 016d | m | Execute Variant_Record,Structure_Write
00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 4608 |F | Jump_Case 0x9
00c5 7808 |x | Jump 0xce ; case 0x0
00c6 7809 |x | Jump 0xd0 ; case 0x1
00c7 7812 |x | Jump 0xda ; case 0x2
00c8 781b |x | Jump 0xe4 ; case 0x3
00c9 7824 |x$ | Jump 0xee ; case 0x4
00ca 782d |x- | Jump 0xf8 ; case 0x5
00cb 7836 |x6 | Jump 0x102 ; case 0x6
00cc 7801 |x | Jump 0xce ; case 0x7
00cd 7800 |x | Jump 0xce ; case 0x8
00ce e21b | | Load 0x1,0x1b
00cf 0257 | W | Execute Discrete,Raise
00d0 4801 |H | Short_Literal 0x1
00d1 e21c | | Load 0x1,0x1c
00d2 1c08 | | Execute_Immediate Run_Utility,0x8
00d3 e5fe | | Load 0x2,-0x2
00d4 8009 | | Call 0x0,0x9
00d5 00d9 | | Load_Top At_Offset_1
00d6 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00d7 e5fd | | Load 0x2,-0x3
00d8 016d | m | Execute Variant_Record,Structure_Write
00d9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00da 4802 |H | Short_Literal 0x2
00db e21c | | Load 0x1,0x1c
00dc 1c08 | | Execute_Immediate Run_Utility,0x8
00dd e5fe | | Load 0x2,-0x2
00de 800a | | Call 0x0,0xa
00df 00d9 | | Load_Top At_Offset_1
00e0 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00e1 e5fd | | Load 0x2,-0x3
00e2 016d | m | Execute Variant_Record,Structure_Write
00e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e4 4803 |H | Short_Literal 0x3
00e5 e21c | | Load 0x1,0x1c
00e6 1c08 | | Execute_Immediate Run_Utility,0x8
00e7 e5fe | | Load 0x2,-0x2
00e8 800b | | Call 0x0,0xb
00e9 00d9 | | Load_Top At_Offset_1
00ea 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00eb e5fd | | Load 0x2,-0x3
00ec 016d | m | Execute Variant_Record,Structure_Write
00ed 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ee 4804 |H | Short_Literal 0x4
00ef e21c | | Load 0x1,0x1c
00f0 1c08 | | Execute_Immediate Run_Utility,0x8
00f1 e5fe | | Load 0x2,-0x2
00f2 800c | | Call 0x0,0xc
00f3 00d9 | | Load_Top At_Offset_1
00f4 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00f5 e5fd | | Load 0x2,-0x3
00f6 016d | m | Execute Variant_Record,Structure_Write
00f7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f8 4805 |H | Short_Literal 0x5
00f9 e21c | | Load 0x1,0x1c
00fa 1c08 | | Execute_Immediate Run_Utility,0x8
00fb e5fe | | Load 0x2,-0x2
00fc 800d | | Call 0x0,0xd
00fd 00d9 | | Load_Top At_Offset_1
00fe 2a06 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x6
00ff e5fd | | Load 0x2,-0x3
0100 016d | m | Execute Variant_Record,Structure_Write
0101 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0102 4806 |H | Short_Literal 0x6
0103 e21c | | Load 0x1,0x1c
0104 1c08 | | Execute_Immediate Run_Utility,0x8
0105 e5fe | | Load 0x2,-0x2
0106 800e | | Call 0x0,0xe
0107 00d9 | | Load_Top At_Offset_1
0108 2a07 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x7
0109 e5fd | | Load 0x2,-0x3
010a 016d | m | Execute Variant_Record,Structure_Write
010b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
011c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
011d 0f04 | | Execute_Immediate Equal,0x4
011e 6805 |h | Jump_Zero 0x124
011f 00da | | Load_Top At_Offset_2
0120 2605 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x5
0121 0320 | | Declare_Variable Record,Duplicate
0122 00cd | | Action Spare6_Action
0123 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0124 e21b | | Load 0x1,0x1b
0125 0257 | W | Execute Discrete,Raise
0126 0000 0000 | | .XXX[0x2]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
012d 0f01 | | Execute_Immediate Equal,0x1
012e 6805 |h | Jump_Zero 0x134
012f 00da | | Load_Top At_Offset_2
0130 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
0131 0320 | | Declare_Variable Record,Duplicate
0132 00cd | | Action Spare6_Action
0133 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0134 e21b | | Load 0x1,0x1b
0135 0257 | W | Execute Discrete,Raise
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
013d 0f02 | | Execute_Immediate Equal,0x2
013e 6805 |h | Jump_Zero 0x144
013f 00da | | Load_Top At_Offset_2
0140 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
0141 0320 | | Declare_Variable Record,Duplicate
0142 00cd | | Action Spare6_Action
0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0144 e21b | | Load 0x1,0x1b
0145 0257 | W | Execute Discrete,Raise
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
014d 0f03 | | Execute_Immediate Equal,0x3
014e 6805 |h | Jump_Zero 0x154
014f 00da | | Load_Top At_Offset_2
0150 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
0151 0320 | | Declare_Variable Record,Duplicate
0152 00cd | | Action Spare6_Action
0153 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0154 e21b | | Load 0x1,0x1b
0155 0257 | W | Execute Discrete,Raise
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
015d 0f05 | | Execute_Immediate Equal,0x5
015e 6805 |h | Jump_Zero 0x164
015f 00da | | Load_Top At_Offset_2
0160 2606 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x6
0161 0320 | | Declare_Variable Record,Duplicate
0162 00cd | | Action Spare6_Action
0163 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0164 e21b | | Load 0x1,0x1b
0165 0257 | W | Execute Discrete,Raise
0166 0000 0000 | | .XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2
016c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
016d 0f06 | | Execute_Immediate Equal,0x6
016e 6805 |h | Jump_Zero 0x174
016f 00da | | Load_Top At_Offset_2
0170 2607 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0171 0320 | | Declare_Variable Record,Duplicate
0172 00cd | | Action Spare6_Action
0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0174 e21b | | Load 0x1,0x1b
0175 0257 | W | Execute Discrete,Raise
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4609 |F | Jump_Case 0xa
017c 7809 |x | Jump 0x186 ; case 0x0
017d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
017e 7824 |x$ | Jump 0x1a3 ; case 0x2
017f 7827 |x' | Jump 0x1a7 ; case 0x3
0180 786c |xl | Jump 0x1ed ; case 0x4
0181 786b |xk | Jump 0x1ed ; case 0x5
0182 782a |x* | Jump 0x1ad ; case 0x6
0183 7842 |xB | Jump 0x1c6 ; case 0x7
0184 785d |x] | Jump 0x1e2 ; case 0x8
0185 7863 |xc | Jump 0x1e9 ; case 0x9
0186 00da | | Load_Top At_Offset_2
0187 016c | l | Execute Variant_Record,Is_Constrained
0188 7009 |p | Jump_Nonzero 0x192
0189 00cf | | Action Mark_Auxiliary
018a 4800 |H | Short_Literal 0x0
018b e5ff | | Load 0x2,-0x1
018c 1c08 | | Execute_Immediate Run_Utility,0x8
018d 00d8 | | Load_Top At_Offset_0
018e 1c00 | | Execute_Immediate Run_Utility,0x0
018f c5ff | | Store 0x2,-0x1
0190 00ce | | Action Pop_Auxiliary
0191 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0192 00da | | Load_Top At_Offset_2
0193 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0194 4608 |F | Jump_Case 0x9
0195 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0196 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0197 7807 |x | Jump 0x19f ; case 0x2
0198 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0199 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
019a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
019b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
019c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
019d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
019e 4302 |C | .XXX[0x1]
019f 00da | | Load_Top At_Offset_2
01a0 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01a1 1c00 | | Execute_Immediate Run_Utility,0x0
01a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a3 4801 |H | Short_Literal 0x1
01a4 4807 |H | Short_Literal 0x7
01a5 0311 | | Declare_Type Variant_Record,Constrained_Incomplete
01a6 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a7 e5fd | | Load 0x2,-0x3
01a8 00db | | Load_Top At_Offset_3
01a9 1c07 | | Execute_Immediate Run_Utility,0x7
01aa e5fe | | Load 0x2,-0x2
01ab 0306 | | Complete_Type Variant_Record,By_Renaming
01ac 4304 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x4
01ad 00db | | Load_Top At_Offset_3
01ae 4608 |F | Jump_Case 0x9
01af 7808 |x | Jump 0x1b8 ; case 0x0
01b0 7809 |x | Jump 0x1ba ; case 0x1
01b1 780a |x | Jump 0x1bc ; case 0x2
01b2 780b |x | Jump 0x1be ; case 0x3
01b3 780c |x | Jump 0x1c0 ; case 0x4
01b4 780d |x | Jump 0x1c2 ; case 0x5
01b5 780e |x | Jump 0x1c4 ; case 0x6
01b6 7801 |x | Jump 0x1b8 ; case 0x7
01b7 7800 |x | Jump 0x1b8 ; case 0x8
01b8 48ff |H | Short_Literal 0xff
01b9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ba 4801 |H | Short_Literal 0x1
01bb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01bc 4802 |H | Short_Literal 0x2
01bd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01be 4803 |H | Short_Literal 0x3
01bf 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c0 4804 |H | Short_Literal 0x4
01c1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c2 4805 |H | Short_Literal 0x5
01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c4 4806 |H | Short_Literal 0x6
01c5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c6 00db | | Load_Top At_Offset_3
01c7 e5fe | | Load 0x2,-0x2
01c8 4608 |F | Jump_Case 0x9
01c9 7808 |x | Jump 0x1d2 ; case 0x0
01ca 7809 |x | Jump 0x1d4 ; case 0x1
01cb 780a |x | Jump 0x1d6 ; case 0x2
01cc 780b |x | Jump 0x1d8 ; case 0x3
01cd 780c |x | Jump 0x1da ; case 0x4
01ce 780d |x | Jump 0x1dc ; case 0x5
01cf 780e |x | Jump 0x1de ; case 0x6
01d0 7801 |x | Jump 0x1d2 ; case 0x7
01d1 7800 |x | Jump 0x1d2 ; case 0x8
01d2 48ff |H | Short_Literal 0xff
01d3 780b |x | Jump 0x1df
01d4 4801 |H | Short_Literal 0x1
01d5 7809 |x | Jump 0x1df
01d6 4802 |H | Short_Literal 0x2
01d7 7807 |x | Jump 0x1df
01d8 4803 |H | Short_Literal 0x3
01d9 7805 |x | Jump 0x1df
01da 4804 |H | Short_Literal 0x4
01db 7803 |x | Jump 0x1df
01dc 4805 |H | Short_Literal 0x5
01dd 7801 |x | Jump 0x1df
01de 4806 |H | Short_Literal 0x6
01df e5ff | | Load 0x2,-0x1
01e0 031b | | Declare_Type Variant_Record,Constrained
01e1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e2 00db | | Load_Top At_Offset_3
01e3 e5fe | | Load 0x2,-0x2
01e4 e5ff | | Load 0x2,-0x1
01e5 1c06 | | Execute_Immediate Run_Utility,0x6
01e6 e5ff | | Load 0x2,-0x1
01e7 02fc | | Declare_Variable Variant_Record,With_Constraint
01e8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01e9 4800 |H | Short_Literal 0x0
01ea 00db | | Load_Top At_Offset_3
01eb 1c07 | | Execute_Immediate Run_Utility,0x7
01ec 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01ed 0869 | i | Execute_Immediate Raise,0x69
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug Table
01f0 ; --------------------------------------------------------------------------------------
01f0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x7e4f,0x0000,0x0001,0x0011
01f6 000b 023a | :| .DBG4T 0x000b,0x023a,0x8000,0x8000
01fa 0042 025c | B \| .DBG4T 0x0042,0x025c,0x8000,0x0000
01fe 0063 026c | c l| .DBG4T 0x0063,0x026c,0x0001,0x0000
0202 0073 026f | s o| .DBG4T 0x0073,0x026f,0x0001,0x0000
0206 0083 0272 | r| .DBG4T 0x0083,0x0272,0x0001,0x0000
020a 0093 0275 | u| .DBG4T 0x0093,0x0275,0x0001,0x0000
020e 00a3 0278 | x| .DBG4T 0x00a3,0x0278,0x0001,0x0000
0212 00b3 027b | {| .DBG4T 0x00b3,0x027b,0x0001,0x0000
0216 00c3 027e | ~| .DBG4T 0x00c3,0x027e,0x0001,0x4000
021a 0113 0290 | | .DBG4T 0x0113,0x0290,0x0002,0x0000
021e 011b 0293 | | .DBG4T 0x011b,0x0293,0x0002,0x0000
0222 012b 0298 | + | .DBG4T 0x012b,0x0298,0x0002,0x0000
0226 013b 029d | ; | .DBG4T 0x013b,0x029d,0x0002,0x0000
022a 014b 02a2 | K | .DBG4T 0x014b,0x02a2,0x0002,0x0000
022e 015b 02a7 | [ | .DBG4T 0x015b,0x02a7,0x0002,0x0000
0232 016b 02ac | k | .DBG4T 0x016b,0x02ac,0x0002,0x0000
0236 017b 0000 | { | .DBG4T 0x017b,0x0000,0x0005,0x0000
023a ; --------------------------------------------------------------------------------------
023a ; Debug chain
023a ; --------------------------------------------------------------------------------------
023a 0010 0000 | | .DBGLEN 0x0010,0x0000
023c 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x002c
024c 0003 0004 | | .XXX[0x10]
024e 0005 0006 | |
0250 0007 0008 | |
0252 0009 000a | |
0254 000b 000c | |
0256 000d 000e | |
0258 000f 0010 | |
025a 0011 0012 | |
025c ; --------------------------------------------------------------------------------------
025c ; Debug chain
025c ; --------------------------------------------------------------------------------------
025c 000e 0000 | | .DBGLEN 0x000e,0x0000
025e 0042 0044 | B D| .DBGLNO 0x0042,0x0044,0x0046,0x0048,0x004a,0x004c,0x004e,0x0050,0x0052,0x0054,0x0056,0x0058,0x005a,0x005c
026c ; --------------------------------------------------------------------------------------
026c ; Debug chain
026c ; --------------------------------------------------------------------------------------
026c 0000 0001 | | .DBGLEN 0x0000,0x0001
026e 0063 | c | .DBGLNO 0x0063
026f ; --------------------------------------------------------------------------------------
026f ; Debug chain
026f ; --------------------------------------------------------------------------------------
026f 0000 0001 | | .DBGLEN 0x0000,0x0001
0271 0073 | s | .DBGLNO 0x0073
0272 ; --------------------------------------------------------------------------------------
0272 ; Debug chain
0272 ; --------------------------------------------------------------------------------------
0272 0000 0001 | | .DBGLEN 0x0000,0x0001
0274 0083 | | .DBGLNO 0x0083
0275 ; --------------------------------------------------------------------------------------
0275 ; Debug chain
0275 ; --------------------------------------------------------------------------------------
0275 0000 0001 | | .DBGLEN 0x0000,0x0001
0277 0093 | | .DBGLNO 0x0093
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug chain
0278 ; --------------------------------------------------------------------------------------
0278 0000 0001 | | .DBGLEN 0x0000,0x0001
027a 00a3 | | .DBGLNO 0x00a3
027b ; --------------------------------------------------------------------------------------
027b ; Debug chain
027b ; --------------------------------------------------------------------------------------
027b 0000 0001 | | .DBGLEN 0x0000,0x0001
027d 00b3 | | .DBGLNO 0x00b3
027e ; --------------------------------------------------------------------------------------
027e ; Debug chain
027e ; --------------------------------------------------------------------------------------
027e 0000 0008 | | .DBGLEN 0x0000,0x0008
0280 00c3 00ce | | .DBGLNO 0x00c3,0x00ce,0x00d0,0x00da,0x00e4,0x00ee,0x00f8,0x0102
0288 0001 0008 | | .XXX[0x8]
028a 0002 0003 | |
028c 0004 0005 | |
028e 0006 0007 | |
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug chain
0290 ; --------------------------------------------------------------------------------------
0290 0000 0001 | | .DBGLEN 0x0000,0x0001
0292 0113 | | .DBGLNO 0x0113
0293 ; --------------------------------------------------------------------------------------
0293 ; Debug chain
0293 ; --------------------------------------------------------------------------------------
0293 0000 0003 | | .DBGLEN 0x0000,0x0003
0295 011b 011f | | .DBGLNO 0x011b,0x011f,0x0124
0298 ; --------------------------------------------------------------------------------------
0298 ; Debug chain
0298 ; --------------------------------------------------------------------------------------
0298 0000 0003 | | .DBGLEN 0x0000,0x0003
029a 012b 012f | + /| .DBGLNO 0x012b,0x012f,0x0134
029d ; --------------------------------------------------------------------------------------
029d ; Debug chain
029d ; --------------------------------------------------------------------------------------
029d 0000 0003 | | .DBGLEN 0x0000,0x0003
029f 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0144
02a2 ; --------------------------------------------------------------------------------------
02a2 ; Debug chain
02a2 ; --------------------------------------------------------------------------------------
02a2 0000 0003 | | .DBGLEN 0x0000,0x0003
02a4 014b 014f | K O| .DBGLNO 0x014b,0x014f,0x0154
02a7 ; --------------------------------------------------------------------------------------
02a7 ; Debug chain
02a7 ; --------------------------------------------------------------------------------------
02a7 0000 0003 | | .DBGLEN 0x0000,0x0003
02a9 015b 015f | [ _| .DBGLNO 0x015b,0x015f,0x0164
02ac ; --------------------------------------------------------------------------------------
02ac ; Debug chain
02ac ; --------------------------------------------------------------------------------------
02ac 0000 0003 | | .DBGLEN 0x0000,0x0003
02ae 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0174
02b1 0000 0000 | | .BLANK 0000[0x14f]