|
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_19c0d9
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0240 | @ | .CONST 0x0240 ; 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 007a | z | .CONST 0x007a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4828 |H( | Short_Literal 0x28 000d 00e3 | | Load_Encached Natural_Cache 000e 03f9 | | Declare_Type Discrete,Constrained,Visible 000f 00d8 | | Load_Top At_Offset_0 0010 4800 |H | Short_Literal 0x0 0011 4801 |H | Short_Literal 0x1 0012 4801 |H | Short_Literal 0x1 0013 4804 |H | Short_Literal 0x4 0014 0319 | | Declare_Type Variant_Record,Incomplete,Visible 0015 029f 020b | | Declare_Subprogram INIT_0208,For_Call 0017 00d9 | | Load_Top At_Offset_1 0018 012a | * | Execute Any,Change_Utility 0019 0007 | | Action Break_Optional 001a 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 001c 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 001e 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0020 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0022 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0024 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0026 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0028 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 002a 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 002c 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 002e 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 0030 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0032 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0034 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0036 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0038 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 003a 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated 003c 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 003e 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0040 e20d | | Load 0x1,0xd 0041 0266 | f | Execute Discrete,Bounds 0042 e001 | | Load 0x0,0x1 0043 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0044 02a0 | | Declare_Subprogram Null_Subprogram 0045 4801 |H | Short_Literal 0x1 0046 0348 | H | Declare_Type Array,Defined_Incomplete,Bounds_With_Object 0047 00e3 | | Load_Encached Natural_Cache 0048 00e4 | | Load_Encached Positive_Cache 0049 00da | | Load_Top At_Offset_2 004a 029f 020b | | Declare_Subprogram INIT_0208,For_Call 004c 4800 |H | Short_Literal 0x0 004d 4801 |H | Short_Literal 0x1 004e 4802 |H | Short_Literal 0x2 004f e20e | | Load 0x1,0xe 0050 0307 | | Complete_Type Variant_Record,By_Defining 0051 00bf | | Action Accept_Activation 0052 00d8 | | Load_Top At_Offset_0 0053 0340 | @ | Complete_Type Array,By_Component_Completion 0054 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0055 00c7 | | Action Elaborate_Subprogram 0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0057 00c7 | | Action Elaborate_Subprogram 0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0059 00c7 | | Action Elaborate_Subprogram 005a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 005b 00c7 | | Action Elaborate_Subprogram 005c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 005d 00c7 | | Action Elaborate_Subprogram 005e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 005f 00c7 | | Action Elaborate_Subprogram 0060 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0061 00c7 | | Action Elaborate_Subprogram 0062 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0063 00c7 | | Action Elaborate_Subprogram 0064 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0065 00c7 | | Action Elaborate_Subprogram 0066 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0067 00c7 | | Action Elaborate_Subprogram 0068 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0069 00c7 | | Action Elaborate_Subprogram 006a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 006b 00c7 | | Action Elaborate_Subprogram 006c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 006d 00c7 | | Action Elaborate_Subprogram 006e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 006f 00c7 | | Action Elaborate_Subprogram 0070 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0071 00c7 | | Action Elaborate_Subprogram 0072 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0073 00c7 | | Action Elaborate_Subprogram 0074 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0075 00c7 | | Action Elaborate_Subprogram 0076 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0077 00c7 | | Action Elaborate_Subprogram 0078 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0079 00c7 | | Action Elaborate_Subprogram 007a BODY_0008: 007a 00bc | | Action Signal_Activated 007b 00bb | | Action Signal_Completion 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 00da | | Load_Top At_Offset_2 0084 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0086 0000 0000 | | .XXX[0x2] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 008d 0f00 | | Execute_Immediate Equal,0x0 008e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 008f 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 0094 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0095 0e00 | | Execute_Immediate Not_Equal,0x0 0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0097 0000 | | .XXX[0x1] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 00cf | | Action Mark_Auxiliary 009c e5fd | | Load 0x2,-0x3 009d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 009e 4801 |H | Short_Literal 0x1 009f 0263 | c | Execute Discrete,Above_Bound 00a0 7006 |p | Jump_Nonzero 0xa7 00a1 00d8 | | Load_Top At_Offset_0 00a2 e5fd | | Load 0x2,-0x3 00a3 821d | | Call 0x1,0x1d 00a4 85fe | | Call 0x2,-0x2 00a5 00c8 | | Action Pop_Auxiliary_Range 00a6 3ffa |? | Loop_Increasing 0xa1 00a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4801 |H | Short_Literal 0x1 00ac 00db | | Load_Top At_Offset_3 00ad 821d | | Call 0x1,0x1d 00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00af 0000 | | .XXX[0x1] 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 4802 |H | Short_Literal 0x2 00b4 00db | | Load_Top At_Offset_3 00b5 821d | | Call 0x1,0x1d 00b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b7 0000 | | .XXX[0x1] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 4803 |H | Short_Literal 0x3 00bc 00db | | Load_Top At_Offset_3 00bd 821d | | Call 0x1,0x1d 00be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bf 0000 | | .XXX[0x1] 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4804 |H | Short_Literal 0x4 00c4 00db | | Load_Top At_Offset_3 00c5 821d | | Call 0x1,0x1d 00c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 4805 |H | Short_Literal 0x5 00cc 00db | | Load_Top At_Offset_3 00cd 821d | | Call 0x1,0x1d 00ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cf 0000 | | .XXX[0x1] 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 4806 |H | Short_Literal 0x6 00d4 00db | | Load_Top At_Offset_3 00d5 821d | | Call 0x1,0x1d 00d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d7 0000 | | .XXX[0x1] 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 4807 |H | Short_Literal 0x7 00dc 00db | | Load_Top At_Offset_3 00dd 821d | | Call 0x1,0x1d 00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00df 0000 | | .XXX[0x1] 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 4808 |H | Short_Literal 0x8 00e4 00db | | Load_Top At_Offset_3 00e5 821d | | Call 0x1,0x1d 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4809 |H | Short_Literal 0x9 00ec 00db | | Load_Top At_Offset_3 00ed 821d | | Call 0x1,0x1d 00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00ef 0000 | | .XXX[0x1] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f3 | | .CONST 0x00f3 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0001 | | .CONST 0x0001 ; Number of locals 00f3 BODY_00f0: 00f3 INIT_00f0: 00f3 480a |H | Short_Literal 0xa 00f4 00db | | Load_Top At_Offset_3 00f5 821d | | Call 0x1,0x1d 00f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00f7 0000 | | .XXX[0x1] 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 00db | | Load_Top At_Offset_3 00fc 00db | | Load_Top At_Offset_3 00fd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00fe 027d | } | Execute Discrete,Greater 00ff 6803 |h | Jump_Zero 0x103 0100 e001 | | Load 0x0,0x1 0101 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0102 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0103 00db | | Load_Top At_Offset_3 0104 00db | | Load_Top At_Offset_3 0105 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0106 01d5 | | Execute Vector,Field_Reference 0107 0320 | | Declare_Variable Record,Duplicate 0108 00cd | | Action Spare6_Action 0109 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 010a 0000 0000 | | .BLANK 0000[0x6] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0115 | | .CONST 0x0115 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0115 BODY_0110: 0115 e5fe | | Load 0x2,-0x2 0116 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0117 e5fe | | Load 0x2,-0x2 0118 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0119 027f | | Execute Discrete,Equal 011a 6801 |h | Jump_Zero 0x11c 011b 8402 | | Call 0x2,0x2 011c e5fe | | Load 0x2,-0x2 011d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 011e 0a01 | | Execute_Immediate Plus,0x1 011f e5fe | | Load 0x2,-0x2 0120 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0121 00db | | Load_Top At_Offset_3 0122 e5fe | | Load 0x2,-0x2 0123 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0124 e5fe | | Load 0x2,-0x2 0125 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0126 01d6 | | Execute Vector,Field_Write 0127 4502 |E | Exit_Suprogram New_Top_Offset 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 e001 | | Load 0x0,0x1 012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 012e 017e | ~ | Execute Record,Not_Equal 012f 6804 |h | Jump_Zero 0x134 0130 e5f5 | | Load 0x2,-0xb 0131 00db | | Load_Top At_Offset_3 0132 821e | | Call 0x1,0x1e 0133 00d1 | | Pop_Control Pop_Count_1 0134 00db | | Load_Top At_Offset_3 0135 e001 | | Load 0x0,0x1 0136 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0137 017e | ~ | Execute Record,Not_Equal 0138 6804 |h | Jump_Zero 0x13d 0139 e5f5 | | Load 0x2,-0xb 013a e5fe | | Load 0x2,-0x2 013b 821e | | Call 0x1,0x1e 013c 00d1 | | Pop_Control Pop_Count_1 013d e5fd | | Load 0x2,-0x3 013e e001 | | Load 0x0,0x1 013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0140 017e | ~ | Execute Record,Not_Equal 0141 6804 |h | Jump_Zero 0x146 0142 e5f5 | | Load 0x2,-0xb 0143 e5fd | | Load 0x2,-0x3 0144 821e | | Call 0x1,0x1e 0145 00d1 | | Pop_Control Pop_Count_1 0146 e5fc | | Load 0x2,-0x4 0147 e001 | | Load 0x0,0x1 0148 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0149 017e | ~ | Execute Record,Not_Equal 014a 6804 |h | Jump_Zero 0x14f 014b e5f5 | | Load 0x2,-0xb 014c e5fc | | Load 0x2,-0x4 014d 821e | | Call 0x1,0x1e 014e 00d1 | | Pop_Control Pop_Count_1 014f e5fc | | Load 0x2,-0x4 0150 e001 | | Load 0x0,0x1 0151 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0152 017e | ~ | Execute Record,Not_Equal 0153 6804 |h | Jump_Zero 0x158 0154 e5f5 | | Load 0x2,-0xb 0155 e5fc | | Load 0x2,-0x4 0156 821e | | Call 0x1,0x1e 0157 00d1 | | Pop_Control Pop_Count_1 0158 e5fb | | Load 0x2,-0x5 0159 e001 | | Load 0x0,0x1 015a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 015b 017e | ~ | Execute Record,Not_Equal 015c 6804 |h | Jump_Zero 0x161 015d e5f5 | | Load 0x2,-0xb 015e e5fb | | Load 0x2,-0x5 015f 821e | | Call 0x1,0x1e 0160 00d1 | | Pop_Control Pop_Count_1 0161 e5fa | | Load 0x2,-0x6 0162 e001 | | Load 0x0,0x1 0163 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0164 017e | ~ | Execute Record,Not_Equal 0165 6804 |h | Jump_Zero 0x16a 0166 e5f5 | | Load 0x2,-0xb 0167 e5fa | | Load 0x2,-0x6 0168 821e | | Call 0x1,0x1e 0169 00d1 | | Pop_Control Pop_Count_1 016a e5f9 | | Load 0x2,-0x7 016b e001 | | Load 0x0,0x1 016c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 016d 017e | ~ | Execute Record,Not_Equal 016e 6804 |h | Jump_Zero 0x173 016f e5f5 | | Load 0x2,-0xb 0170 e5f9 | | Load 0x2,-0x7 0171 821e | | Call 0x1,0x1e 0172 00d1 | | Pop_Control Pop_Count_1 0173 e5f8 | | Load 0x2,-0x8 0174 e001 | | Load 0x0,0x1 0175 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0176 017e | ~ | Execute Record,Not_Equal 0177 6804 |h | Jump_Zero 0x17c 0178 e5f5 | | Load 0x2,-0xb 0179 e5f8 | | Load 0x2,-0x8 017a 821e | | Call 0x1,0x1e 017b 00d1 | | Pop_Control Pop_Count_1 017c e5f7 | | Load 0x2,-0x9 017d e001 | | Load 0x0,0x1 017e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 017f 017e | ~ | Execute Record,Not_Equal 0180 6804 |h | Jump_Zero 0x185 0181 e5f5 | | Load 0x2,-0xb 0182 e5f7 | | Load 0x2,-0x9 0183 821e | | Call 0x1,0x1e 0184 00d1 | | Pop_Control Pop_Count_1 0185 e5f6 | | Load 0x2,-0xa 0186 e001 | | Load 0x0,0x1 0187 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0188 017e | ~ | Execute Record,Not_Equal 0189 6804 |h | Jump_Zero 0x18e 018a e5f5 | | Load 0x2,-0xb 018b e5f6 | | Load 0x2,-0xa 018c 821e | | Call 0x1,0x1e 018d 00d1 | | Pop_Control Pop_Count_1 018e 450b |E | Exit_Suprogram New_Top_Offset 0xb 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0197 | | .CONST 0x0197 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0002 | | .CONST 0x0002 ; Number of locals 0193 INIT_0190: 0193 e20e | | Load 0x1,0xe 0194 02ff | | Declare_Variable Variant_Record 0195 00d8 | | Load_Top At_Offset_0 0196 1c00 | | Execute_Immediate Run_Utility,0x0 0197 BODY_0190: 0197 00d8 | | Load_Top At_Offset_0 0198 e5ff | | Load 0x2,-0x1 0199 821e | | Call 0x1,0x1e 019a 00d1 | | Pop_Control Pop_Count_1 019b 00d8 | | Load_Top At_Offset_0 019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01ac | | .CONST 0x01ac ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0003 | | .CONST 0x0003 ; Number of locals 01a3 INIT_01a0: 01a3 4800 |H | Short_Literal 0x0 01a4 e5fd | | Load 0x2,-0x3 01a5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01a6 01dc | | Execute Vector,Last 01a7 00e2 | | Load_Encached Integer_Cache 01a8 03f8 | | Declare_Type Discrete,Constrained 01a9 e001 | | Load 0x0,0x1 01aa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ab 0322 | " | Declare_Variable Record 01ac BODY_01a0: 01ac 00cf | | Action Mark_Auxiliary 01ad e5fd | | Load 0x2,-0x3 01ae 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01af 0aff | | Execute_Immediate Plus,-0x1 01b0 4802 |H | Short_Literal 0x2 01b1 0263 | c | Execute Discrete,Above_Bound 01b2 702a |p* | Jump_Nonzero 0x1dd 01b3 00d8 | | Load_Top At_Offset_0 01b4 e5fd | | Load 0x2,-0x3 01b5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01b6 01d5 | | Execute Vector,Field_Reference 01b7 e403 | | Load 0x2,0x3 01b8 017d | } | Execute Record,Structure_Write 01b9 00d8 | | Load_Top At_Offset_0 01ba 0aff | | Execute_Immediate Plus,-0x1 01bb c402 | | Store 0x2,0x2 01bc 00cf | | Action Mark_Auxiliary 01bd 780d |x | Jump 0x1cb 01be e402 | | Load 0x2,0x2 01bf e5fd | | Load 0x2,-0x3 01c0 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01c1 01d5 | | Execute Vector,Field_Reference 01c2 e402 | | Load 0x2,0x2 01c3 0a01 | | Execute_Immediate Plus,0x1 01c4 e5fd | | Load 0x2,-0x3 01c5 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01c6 01d6 | | Execute Vector,Field_Write 01c7 e402 | | Load 0x2,0x2 01c8 0aff | | Execute_Immediate Plus,-0x1 01c9 c402 | | Store 0x2,0x2 01ca 00c9 | | Action Pop_Auxiliary_Loop 01cb e402 | | Load 0x2,0x2 01cc 6807 |h | Jump_Zero 0x1d4 01cd e402 | | Load 0x2,0x2 01ce e5fd | | Load 0x2,-0x3 01cf 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01d0 01d5 | | Execute Vector,Field_Reference 01d1 e403 | | Load 0x2,0x3 01d2 85fe | | Call 0x2,-0x2 01d3 77ea |w | Jump_Nonzero 0x1be 01d4 00ce | | Action Pop_Auxiliary 01d5 00db | | Load_Top At_Offset_3 01d6 e402 | | Load 0x2,0x2 01d7 0a01 | | Execute_Immediate Plus,0x1 01d8 e5fd | | Load 0x2,-0x3 01d9 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01da 01d6 | | Execute Vector,Field_Write 01db 00c8 | | Action Pop_Auxiliary_Range 01dc 3fd6 |? | Loop_Increasing 0x1b3 01dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01ed | | .CONST 0x01ed ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0002 | | .CONST 0x0002 ; Number of locals 01e3 INIT_01e0: 01e3 e5fe | | Load 0x2,-0x2 01e4 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01e5 e5fe | | Load 0x2,-0x2 01e6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01e7 09ff | | Execute_Immediate Binary_Scale,-0x1 01e8 0273 | s | Execute Discrete,Plus 01e9 e20e | | Load 0x1,0xe 01ea 1c08 | | Execute_Immediate Run_Utility,0x8 01eb 00d8 | | Load_Top At_Offset_0 01ec 1c00 | | Execute_Immediate Run_Utility,0x0 01ed BODY_01e0: 01ed 4801 |H | Short_Literal 0x1 01ee e5fe | | Load 0x2,-0x2 01ef 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01f0 e5fe | | Load 0x2,-0x2 01f1 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01f2 01cf | | Execute Vector,Slice_Read 01f3 4801 |H | Short_Literal 0x1 01f4 e5fe | | Load 0x2,-0x2 01f5 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01f6 00db | | Load_Top At_Offset_3 01f7 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 01f8 01ce | | Execute Vector,Slice_Write 01f9 e5fe | | Load 0x2,-0x2 01fa 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 01fb 00d9 | | Load_Top At_Offset_1 01fc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 01fd e5fe | | Load 0x2,-0x2 01fe 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 01ff 00d9 | | Load_Top At_Offset_1 0200 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0201 00d8 | | Load_Top At_Offset_0 0202 e5fe | | Load 0x2,-0x2 0203 016d | m | Execute Variant_Record,Structure_Write 0204 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b BODY_0208: 020b INIT_0208: 020b INIT_0208: 020b 4608 |F | Jump_Case 0x9 020c 7808 |x | Jump 0x215 ; case 0x0 020d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 020e 782f |x/ | Jump 0x23e ; case 0x2 020f 782e |x. | Jump 0x23e ; case 0x3 0210 7817 |x | Jump 0x228 ; case 0x4 0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0212 782b |x+ | Jump 0x23e ; case 0x6 0213 7817 |x | Jump 0x22b ; case 0x7 0214 781f |x | Jump 0x234 ; case 0x8 0215 00da | | Load_Top At_Offset_2 0216 016c | l | Execute Variant_Record,Is_Constrained 0217 7009 |p | Jump_Nonzero 0x221 0218 00cf | | Action Mark_Auxiliary 0219 4814 |H | Short_Literal 0x14 021a e5ff | | Load 0x2,-0x1 021b 1c08 | | Execute_Immediate Run_Utility,0x8 021c 00d8 | | Load_Top At_Offset_0 021d 1c00 | | Execute_Immediate Run_Utility,0x0 021e c5ff | | Store 0x2,-0x1 021f 00ce | | Action Pop_Auxiliary 0220 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0221 4800 |H | Short_Literal 0x0 0222 00db | | Load_Top At_Offset_3 0223 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0224 4801 |H | Short_Literal 0x1 0225 00db | | Load_Top At_Offset_3 0226 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 0227 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0228 e222 | " | Load 0x1,0x22 0229 0340 | @ | Complete_Type Array,By_Component_Completion 022a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 022b 00db | | Load_Top At_Offset_3 022c 4801 |H | Short_Literal 0x1 022d e5fe | | Load 0x2,-0x2 022e e222 | " | Load 0x1,0x22 022f 035b | [ | Declare_Type Array,Constrained 0230 4801 |H | Short_Literal 0x1 0231 e5ff | | Load 0x2,-0x1 0232 031b | | Declare_Type Variant_Record,Constrained 0233 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0234 00db | | Load_Top At_Offset_3 0235 00db | | Load_Top At_Offset_3 0236 02fc | | Declare_Variable Variant_Record,With_Constraint 0237 4801 |H | Short_Literal 0x1 0238 e5fe | | Load 0x2,-0x2 0239 e222 | " | Load 0x1,0x22 023a 0334 | 4 | Declare_Variable Array,With_Constraint 023b 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4 023c 016a | j | QQ_execute Variant_Record,XXX 023d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 023e 0869 | i | Execute_Immediate Raise,0x69 023f 0000 | | .XXX[0x1] 0240 ; -------------------------------------------------------------------------------------- 0240 ; Debug Table 0240 ; -------------------------------------------------------------------------------------- 0240 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7d5a,0x0000,0x0001,0x0017 0246 000b 02a2 | | .DBG4T 0x000b,0x02a2,0x0000,0x8000 024a 0052 02d2 | R | .DBG4T 0x0052,0x02d2,0x0000,0x0000 024e 0083 02e7 | | .DBG4T 0x0083,0x02e7,0x0002,0x0000 0252 008b 02ea | | .DBG4T 0x008b,0x02ea,0x0002,0x0000 0256 0093 02ed | | .DBG4T 0x0093,0x02ed,0x0002,0x0000 025a 009b 02f0 | | .DBG4T 0x009b,0x02f0,0x2801,0x0002 025e 00ab 02f4 | | .DBG4T 0x00ab,0x02f4,0x0002,0x0000 0262 00b3 02f7 | | .DBG4T 0x00b3,0x02f7,0x0002,0x0000 0266 00bb 02fa | | .DBG4T 0x00bb,0x02fa,0x0002,0x0000 026a 00c3 02fd | | .DBG4T 0x00c3,0x02fd,0x0002,0x0000 026e 00cb 0300 | | .DBG4T 0x00cb,0x0300,0x0002,0x0000 0272 00d3 0303 | | .DBG4T 0x00d3,0x0303,0x0002,0x0000 0276 00db 0306 | | .DBG4T 0x00db,0x0306,0x0002,0x0000 027a 00e3 0309 | | .DBG4T 0x00e3,0x0309,0x0002,0x0000 027e 00eb 030c | | .DBG4T 0x00eb,0x030c,0x0002,0x0000 0282 00f3 030f | | .DBG4T 0x00f3,0x030f,0x0002,0x0000 0286 00fb 0312 | | .DBG4T 0x00fb,0x0312,0x0002,0x0000 028a 0113 0317 | | .DBG4T 0x0113,0x0317,0x0001,0x0000 028e 012b 031d | + | .DBG4T 0x012b,0x031d,0x0001,0x0000 0292 0193 0335 | 5| .DBG4T 0x0193,0x0335,0x0002,0x0000 0296 01a3 033a | :| .DBG4T 0x01a3,0x033a,0x2801,0x4002 029a 01e3 034c | L| .DBG4T 0x01e3,0x034c,0x0004,0x0000 029e 020b 0000 | | .DBG4T 0x020b,0x0000,0x0005,0x0000 02a2 ; -------------------------------------------------------------------------------------- 02a2 ; Debug chain 02a2 ; -------------------------------------------------------------------------------------- 02a2 0017 0000 | | .DBGLEN 0x0017,0x0000 02a4 000b 000f | | .DBGLNO 0x000b,0x000f,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0047 02bb 0002 0003 | | .XXX[0x17] 02bd 0004 0005 | | 02bf 0006 0007 | | 02c1 0008 0009 | | 02c3 000a 000b | | 02c5 000c 000d | | 02c7 000e 000f | | 02c9 0010 0011 | | 02cb 0012 0013 | | 02cd 0014 0015 | | 02cf 0016 0017 | | 02d1 0018 | | 02d2 ; -------------------------------------------------------------------------------------- 02d2 ; Debug chain 02d2 ; -------------------------------------------------------------------------------------- 02d2 0013 0000 | | .DBGLEN 0x0013,0x0000 02d4 0054 0056 | T V| .DBGLNO 0x0054,0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078 02e7 ; -------------------------------------------------------------------------------------- 02e7 ; Debug chain 02e7 ; -------------------------------------------------------------------------------------- 02e7 0000 0001 | | .DBGLEN 0x0000,0x0001 02e9 0083 | | .DBGLNO 0x0083 02ea ; -------------------------------------------------------------------------------------- 02ea ; Debug chain 02ea ; -------------------------------------------------------------------------------------- 02ea 0000 0001 | | .DBGLEN 0x0000,0x0001 02ec 008b | | .DBGLNO 0x008b 02ed ; -------------------------------------------------------------------------------------- 02ed ; Debug chain 02ed ; -------------------------------------------------------------------------------------- 02ed 0000 0001 | | .DBGLEN 0x0000,0x0001 02ef 0093 | | .DBGLNO 0x0093 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug chain 02f0 ; -------------------------------------------------------------------------------------- 02f0 0000 0002 | | .DBGLEN 0x0000,0x0002 02f2 009c 00a1 | | .DBGLNO 0x009c,0x00a1 02f4 ; -------------------------------------------------------------------------------------- 02f4 ; Debug chain 02f4 ; -------------------------------------------------------------------------------------- 02f4 0000 0001 | | .DBGLEN 0x0000,0x0001 02f6 00ab | | .DBGLNO 0x00ab 02f7 ; -------------------------------------------------------------------------------------- 02f7 ; Debug chain 02f7 ; -------------------------------------------------------------------------------------- 02f7 0000 0001 | | .DBGLEN 0x0000,0x0001 02f9 00b3 | | .DBGLNO 0x00b3 02fa ; -------------------------------------------------------------------------------------- 02fa ; Debug chain 02fa ; -------------------------------------------------------------------------------------- 02fa 0000 0001 | | .DBGLEN 0x0000,0x0001 02fc 00bb | | .DBGLNO 0x00bb 02fd ; -------------------------------------------------------------------------------------- 02fd ; Debug chain 02fd ; -------------------------------------------------------------------------------------- 02fd 0000 0001 | | .DBGLEN 0x0000,0x0001 02ff 00c3 | | .DBGLNO 0x00c3 0300 ; -------------------------------------------------------------------------------------- 0300 ; Debug chain 0300 ; -------------------------------------------------------------------------------------- 0300 0000 0001 | | .DBGLEN 0x0000,0x0001 0302 00cb | | .DBGLNO 0x00cb 0303 ; -------------------------------------------------------------------------------------- 0303 ; Debug chain 0303 ; -------------------------------------------------------------------------------------- 0303 0000 0001 | | .DBGLEN 0x0000,0x0001 0305 00d3 | | .DBGLNO 0x00d3 0306 ; -------------------------------------------------------------------------------------- 0306 ; Debug chain 0306 ; -------------------------------------------------------------------------------------- 0306 0000 0001 | | .DBGLEN 0x0000,0x0001 0308 00db | | .DBGLNO 0x00db 0309 ; -------------------------------------------------------------------------------------- 0309 ; Debug chain 0309 ; -------------------------------------------------------------------------------------- 0309 0000 0001 | | .DBGLEN 0x0000,0x0001 030b 00e3 | | .DBGLNO 0x00e3 030c ; -------------------------------------------------------------------------------------- 030c ; Debug chain 030c ; -------------------------------------------------------------------------------------- 030c 0000 0001 | | .DBGLEN 0x0000,0x0001 030e 00eb | | .DBGLNO 0x00eb 030f ; -------------------------------------------------------------------------------------- 030f ; Debug chain 030f ; -------------------------------------------------------------------------------------- 030f 0000 0001 | | .DBGLEN 0x0000,0x0001 0311 00f3 | | .DBGLNO 0x00f3 0312 ; -------------------------------------------------------------------------------------- 0312 ; Debug chain 0312 ; -------------------------------------------------------------------------------------- 0312 0000 0003 | | .DBGLEN 0x0000,0x0003 0314 00fb 0100 | | .DBGLNO 0x00fb,0x0100,0x0103 0317 ; -------------------------------------------------------------------------------------- 0317 ; Debug chain 0317 ; -------------------------------------------------------------------------------------- 0317 0000 0004 | | .DBGLEN 0x0000,0x0004 0319 0115 011b | | .DBGLNO 0x0115,0x011b,0x011c,0x0121 031d ; -------------------------------------------------------------------------------------- 031d ; Debug chain 031d ; -------------------------------------------------------------------------------------- 031d 0000 0016 | | .DBGLEN 0x0000,0x0016 031f 012b 0130 | + 0| .DBGLNO 0x012b,0x0130,0x0134,0x0139,0x013d,0x0142,0x0146,0x014b,0x014f,0x0154,0x0158,0x015d,0x0161,0x0166,0x016a,0x016f,0x0173,0x0178,0x017c,0x0181,0x0185,0x018a 0335 ; -------------------------------------------------------------------------------------- 0335 ; Debug chain 0335 ; -------------------------------------------------------------------------------------- 0335 0001 0002 | | .DBGLEN 0x0001,0x0002 0337 0193 0197 | | .DBGLNO 0x0193,0x0197,0x019b 033a ; -------------------------------------------------------------------------------------- 033a ; Debug chain 033a ; -------------------------------------------------------------------------------------- 033a 0002 0007 | | .DBGLEN 0x0002,0x0007 033c 01a3 01a9 | | .DBGLNO 0x01a3,0x01a9,0x01ad,0x01b3,0x01b9,0x01be,0x01c7,0x01cb,0x01d5 0345 0001 0002 | | .XXX[0x7] 0347 0003 0005 | | 0349 0006 0004 | | 034b 0007 | | 034c ; -------------------------------------------------------------------------------------- 034c ; Debug chain 034c ; -------------------------------------------------------------------------------------- 034c 0001 0004 | | .DBGLEN 0x0001,0x0004 034e 01e3 01ed | | .DBGLNO 0x01e3,0x01ed,0x01f9,0x01fd,0x0201 0353 0000 0000 | | .BLANK 0000[0xad]