|
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: 1024 (0x400) 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 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 8001 | | .CONST 0x8001 ; 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 0024 | $ | .CONST 0x0024 ; Number of locals 000b INIT_0008: 000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0011 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0015 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 0017 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated 0019 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 001b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001d 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 001f 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0021 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated 0023 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated 0025 4802 |H | Short_Literal 0x2 0026 032b | + | Declare_Type Record,Incomplete,Visible 0027 00d8 | | Load_Top At_Offset_0 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 03ae | | Declare_Type Heap_Access,Defined,Visible 002a 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative 002b 4802 |H | Short_Literal 0x2 002c 032b | + | Declare_Type Record,Incomplete,Visible 002d 00d8 | | Load_Top At_Offset_0 002e 02a0 | | Declare_Subprogram Null_Subprogram 002f 03ae | | Declare_Type Heap_Access,Defined,Visible 0030 00bf | | Action Accept_Activation 0031 e20e | | Load 0x1,0xe 0032 00db | | Load_Top At_Offset_3 0033 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call 0035 e220 | | Load 0x1,0x20 0036 0326 | & | Complete_Type Record,By_Defining 0037 00db | | Load_Top At_Offset_3 0038 03a0 | | Complete_Type Heap_Access,By_Component_Completion 0039 00db | | Load_Top At_Offset_3 003a 00db | | Load_Top At_Offset_3 003b 03a2 | | Complete_Type Heap_Access,By_Renaming 003c e002 | | Load 0x0,0x2 003d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 003e 00db | | Load_Top At_Offset_3 003f 02a0 | | Declare_Subprogram Null_Subprogram 0040 e223 | # | Load 0x1,0x23 0041 0326 | & | Complete_Type Record,By_Defining 0042 00d8 | | Load_Top At_Offset_0 0043 03a0 | | Complete_Type Heap_Access,By_Component_Completion 0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0045 00c7 | | Action Elaborate_Subprogram 0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0047 00c7 | | Action Elaborate_Subprogram 0048 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0049 00c7 | | Action Elaborate_Subprogram 004a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004b 00c7 | | Action Elaborate_Subprogram 004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004d 00c7 | | Action Elaborate_Subprogram 004e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 004f 00c7 | | Action Elaborate_Subprogram 0050 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0051 00c7 | | Action Elaborate_Subprogram 0052 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0053 00c7 | | Action Elaborate_Subprogram 0054 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0055 00c7 | | Action Elaborate_Subprogram 0056 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0057 00c7 | | Action Elaborate_Subprogram 0058 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 005b 00c7 | | Action Elaborate_Subprogram 005c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005d 00c7 | | Action Elaborate_Subprogram 005e BODY_0008: 005e 00bc | | Action Signal_Activated 005f 00bb | | Action Signal_Completion 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0065 | e | .CONST 0x0065 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0002 | | .CONST 0x0002 ; Number of locals 0063 INIT_0060: 0063 e224 | $ | Load 0x1,0x24 0064 0007 | | Action Break_Optional 0065 BODY_0060: 0065 e224 | $ | Load 0x1,0x24 0066 e5ff | | Load 0x2,-0x1 0067 039c | | Declare_Variable Heap_Access,By_Allocation 0068 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0069 e222 | " | Load 0x1,0x22 006a 00d9 | | Load_Top At_Offset_1 006b 0217 | | Execute Heap_Access,All_Reference 006c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 006d 00db | | Load_Top At_Offset_3 006e 00d9 | | Load_Top At_Offset_1 006f 0217 | | Execute Heap_Access,All_Reference 0070 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0071 00d8 | | Load_Top At_Offset_0 0072 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0073 0000 0000 | | .BLANK 0000[0x5] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e224 | $ | Load 0x1,0x24 007c 0033 | 3 | Store_Top Heap_Access,At_Offset_3 007d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 007e 0000 0000 | | .XXX[0x2] 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 0217 | | Execute Heap_Access,All_Reference 0085 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0086 021d | | Execute Heap_Access,Is_Null 0087 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 e222 | " | Load 0x1,0x22 008c 00db | | Load_Top At_Offset_3 008d 0217 | | Execute Heap_Access,All_Reference 008e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 008f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0099 | | .CONST 0x0099 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0003 | | .CONST 0x0003 ; Number of locals 0093 INIT_0090: 0093 00da | | Load_Top At_Offset_2 0094 0217 | | Execute Heap_Access,All_Reference 0095 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0096 0007 | | Action Break_Optional 0097 e222 | " | Load 0x1,0x22 0098 0007 | | Action Break_Optional 0099 BODY_0090: 0099 e5fd | | Load 0x2,-0x3 009a 8214 | | Call 0x1,0x14 009b c5fd | | Store 0x2,-0x3 009c e5fe | | Load 0x2,-0x2 009d 8213 | | Call 0x1,0x13 009e a5fd | | Store_Unchecked 0x2,-0x3 009f 00cf | | Action Mark_Auxiliary 00a0 7825 |x% | Jump 0xc6 00a1 e221 | ! | Load 0x1,0x21 00a2 e5fd | | Load 0x2,-0x3 00a3 039c | | Declare_Variable Heap_Access,By_Allocation 00a4 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00a5 00d9 | | Load_Top At_Offset_1 00a6 0219 | | Execute Heap_Access,All_Read 00a7 00d8 | | Load_Top At_Offset_0 00a8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a9 00d8 | | Load_Top At_Offset_0 00aa 0120 | | Execute Any,Is_Value 00ab 6803 |h | Jump_Zero 0xaf 00ac e20e | | Load 0x1,0xe 00ad 0122 | " | Execute Any,Make_Root_Type 00ae 011e | | Execute Any,Convert 00af e5fe | | Load 0x2,-0x2 00b0 e402 | | Load 0x2,0x2 00b1 0217 | | Execute Heap_Access,All_Reference 00b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b3 8211 | | Call 0x1,0x11 00b4 00d9 | | Load_Top At_Offset_1 00b5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b6 00d1 | | Pop_Control Pop_Count_1 00b7 e5fd | | Load 0x2,-0x3 00b8 0217 | | Execute Heap_Access,All_Reference 00b9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ba 00da | | Load_Top At_Offset_2 00bb 0217 | | Execute Heap_Access,All_Reference 00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00bd 00d9 | | Load_Top At_Offset_1 00be e5fd | | Load 0x2,-0x3 00bf 0217 | | Execute Heap_Access,All_Reference 00c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c1 00da | | Load_Top At_Offset_2 00c2 0217 | | Execute Heap_Access,All_Reference 00c3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c4 0033 | 3 | Store_Top Heap_Access,At_Offset_3 00c5 00c9 | | Action Pop_Auxiliary_Loop 00c6 00da | | Load_Top At_Offset_2 00c7 77d9 |w | Jump_Nonzero 0xa1 00c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c9 0000 0000 | | .BLANK 0000[0x7] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d6 | | .CONST 0x00d6 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 00da | | Load_Top At_Offset_2 00d4 0217 | | Execute Heap_Access,All_Reference 00d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00d6 BODY_00d0: 00d6 00cf | | Action Mark_Auxiliary 00d7 780d |x | Jump 0xe5 00d8 e5fe | | Load 0x2,-0x2 00d9 00da | | Load_Top At_Offset_2 00da 0217 | | Execute Heap_Access,All_Reference 00db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00dc 8212 | | Call 0x1,0x12 00dd 6802 |h | Jump_Zero 0xe0 00de 4801 |H | Short_Literal 0x1 00df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00e0 00d9 | | Load_Top At_Offset_1 00e1 0217 | | Execute Heap_Access,All_Reference 00e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e3 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00e4 00c9 | | Action Pop_Auxiliary_Loop 00e5 00d9 | | Load_Top At_Offset_1 00e6 77f1 |w | Jump_Nonzero 0xd8 00e7 00ce | | Action Pop_Auxiliary 00e8 4800 |H | Short_Literal 0x0 00e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00ea 0000 0000 | | .BLANK 0000[0x6] 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; SUBPROGRAM 00f0 ; -------------------------------------------------------------------------------------- 00f0 00f5 | | .CONST 0x00f5 ; Address of begin 00f1 0004 | | .CONST 0x0004 ; Address of exception handler 00f2 0002 | | .CONST 0x0002 ; Number of locals 00f3 INIT_00f0: 00f3 e222 | " | Load 0x1,0x22 00f4 0007 | | Action Break_Optional 00f5 BODY_00f0: 00f5 00db | | Load_Top At_Offset_3 00f6 e20e | | Load 0x1,0xe 00f7 0119 | | Execute Any,Check_In_Formal_Type 00f8 e5fe | | Load 0x2,-0x2 00f9 8218 | | Call 0x1,0x18 00fa 7024 |p$ | Jump_Nonzero 0x11f 00fb e5fe | | Load 0x2,-0x2 00fc 0217 | | Execute Heap_Access,All_Reference 00fd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00fe 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00ff e221 | ! | Load 0x1,0x21 0100 e5fe | | Load 0x2,-0x2 0101 039c | | Declare_Variable Heap_Access,By_Allocation 0102 e5fe | | Load 0x2,-0x2 0103 0217 | | Execute Heap_Access,All_Reference 0104 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0105 e5fe | | Load 0x2,-0x2 0106 0219 | | Execute Heap_Access,All_Read 0107 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0108 0219 | | Execute Heap_Access,All_Read 0109 00d8 | | Load_Top At_Offset_0 010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 010b 00d8 | | Load_Top At_Offset_0 010c 0120 | | Execute Any,Is_Value 010d 6803 |h | Jump_Zero 0x111 010e e20e | | Load 0x1,0xe 010f 0122 | " | Execute Any,Make_Root_Type 0110 011e | | Execute Any,Convert 0111 e5fe | | Load 0x2,-0x2 0112 0217 | | Execute Heap_Access,All_Reference 0113 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0114 e5ff | | Load 0x2,-0x1 0115 8211 | | Call 0x1,0x11 0116 00d9 | | Load_Top At_Offset_1 0117 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0118 00d1 | | Pop_Control Pop_Count_1 0119 00d8 | | Load_Top At_Offset_0 011a e5fe | | Load 0x2,-0x2 011b 0217 | | Execute Heap_Access,All_Reference 011c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 011d 0217 | | Execute Heap_Access,All_Reference 011e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 011f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 012a | * | .CONST 0x012a ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0004 | | .CONST 0x0004 ; Number of locals 0123 INIT_0120: 0123 e221 | ! | Load 0x1,0x21 0124 0007 | | Action Break_Optional 0125 e20e | | Load 0x1,0xe 0126 02c7 | | Declare_Variable Any 0127 00d8 | | Load_Top At_Offset_0 0128 1c00 | | Execute_Immediate Run_Utility,0x0 0129 e222 | " | Load 0x1,0x22 012a BODY_0120: 012a 00be | | Action Activate_Tasks 012b e221 | ! | Load 0x1,0x21 012c e5ff | | Load 0x2,-0x1 012d 821c | | Call 0x1,0x1c 012e 0033 | 3 | Store_Top Heap_Access,At_Offset_3 012f 00cf | | Action Mark_Auxiliary 0130 00db | | Load_Top At_Offset_3 0131 821f | | Call 0x1,0x1f 0132 703d |p= | Jump_Nonzero 0x170 0133 00da | | Load_Top At_Offset_2 0134 00d8 | | Load_Top At_Offset_0 0135 0120 | | Execute Any,Is_Value 0136 6803 |h | Jump_Zero 0x13a 0137 e20e | | Load 0x1,0xe 0138 0122 | " | Execute Any,Make_Root_Type 0139 011e | | Execute Any,Convert 013a e5ff | | Load 0x2,-0x1 013b 0217 | | Execute Heap_Access,All_Reference 013c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013d e402 | | Load 0x2,0x2 013e 821e | | Call 0x1,0x1e 013f 8211 | | Call 0x1,0x11 0140 c403 | | Store 0x2,0x3 0141 00da | | Load_Top At_Offset_2 0142 e20e | | Load 0x1,0xe 0143 0119 | | Execute Any,Check_In_Formal_Type 0144 e5fe | | Load 0x2,-0x2 0145 8218 | | Call 0x1,0x18 0146 7024 |p$ | Jump_Nonzero 0x16b 0147 e5fe | | Load 0x2,-0x2 0148 0217 | | Execute Heap_Access,All_Reference 0149 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014a 0032 | 2 | Store_Top Heap_Access,At_Offset_2 014b e221 | ! | Load 0x1,0x21 014c e5fe | | Load 0x2,-0x2 014d 039c | | Declare_Variable Heap_Access,By_Allocation 014e e5fe | | Load 0x2,-0x2 014f 0217 | | Execute Heap_Access,All_Reference 0150 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0151 e5fe | | Load 0x2,-0x2 0152 0219 | | Execute Heap_Access,All_Read 0153 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0154 0219 | | Execute Heap_Access,All_Read 0155 00d8 | | Load_Top At_Offset_0 0156 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0157 00d8 | | Load_Top At_Offset_0 0158 0120 | | Execute Any,Is_Value 0159 6803 |h | Jump_Zero 0x15d 015a e20e | | Load 0x1,0xe 015b 0122 | " | Execute Any,Make_Root_Type 015c 011e | | Execute Any,Convert 015d e5fe | | Load 0x2,-0x2 015e 0217 | | Execute Heap_Access,All_Reference 015f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0160 e403 | | Load 0x2,0x3 0161 8211 | | Call 0x1,0x11 0162 00d9 | | Load_Top At_Offset_1 0163 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0164 00d1 | | Pop_Control Pop_Count_1 0165 00d9 | | Load_Top At_Offset_1 0166 e5fe | | Load 0x2,-0x2 0167 0217 | | Execute Heap_Access,All_Reference 0168 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0169 0217 | | Execute Heap_Access,All_Reference 016a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 016b 00db | | Load_Top At_Offset_3 016c 821d | | Call 0x1,0x1d 016d c402 | | Store 0x2,0x2 016e 00c9 | | Action Pop_Auxiliary_Loop 016f 7fc0 | | Jump 0x130 0170 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0171 0000 0000 | | .BLANK 0000[0x7] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0180 | | .CONST 0x0180 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0003 | | .CONST 0x0003 ; Number of locals 017b INIT_0178: 017b 00db | | Load_Top At_Offset_3 017c 0217 | | Execute Heap_Access,All_Reference 017d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 017e 0007 | | Action Break_Optional 017f e222 | " | Load 0x1,0x22 0180 BODY_0178: 0180 00cf | | Action Mark_Auxiliary 0181 781d |x | Jump 0x19f 0182 e5ff | | Load 0x2,-0x1 0183 00db | | Load_Top At_Offset_3 0184 0217 | | Execute Heap_Access,All_Reference 0185 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0186 8212 | | Call 0x1,0x12 0187 6810 |h | Jump_Zero 0x198 0188 00d9 | | Load_Top At_Offset_1 0189 6807 |h | Jump_Zero 0x191 018a 00da | | Load_Top At_Offset_2 018b 0217 | | Execute Heap_Access,All_Reference 018c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 018d 00da | | Load_Top At_Offset_2 018e 0217 | | Execute Heap_Access,All_Reference 018f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0190 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0191 00da | | Load_Top At_Offset_2 0192 0217 | | Execute Heap_Access,All_Reference 0193 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0194 e5fe | | Load 0x2,-0x2 0195 0217 | | Execute Heap_Access,All_Reference 0196 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0197 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0198 00da | | Load_Top At_Offset_2 0199 0032 | 2 | Store_Top Heap_Access,At_Offset_2 019a 00da | | Load_Top At_Offset_2 019b 0217 | | Execute Heap_Access,All_Reference 019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 019d 0033 | 3 | Store_Top Heap_Access,At_Offset_3 019e 00c9 | | Action Pop_Auxiliary_Loop 019f 00da | | Load_Top At_Offset_2 01a0 77e1 |w | Jump_Nonzero 0x182 01a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a2 0000 0000 | | .BLANK 0000[0x6] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 01ac 0217 | | Execute Heap_Access,All_Reference 01ad 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01ae e221 | ! | Load 0x1,0x21 01af 0216 | | Execute Heap_Access,Convert 01b0 a5fe | | Store_Unchecked 0x2,-0x2 01b1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b2 0000 0000 | | .BLANK 0000[0x6] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 0217 | | Execute Heap_Access,All_Reference 01bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01be e221 | ! | Load 0x1,0x21 01bf 0216 | | Execute Heap_Access,Convert 01c0 0033 | 3 | Store_Top Heap_Access,At_Offset_3 01c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c2 0000 0000 | | .BLANK 0000[0x6] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 0217 | | Execute Heap_Access,All_Reference 01cd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ce 00d8 | | Load_Top At_Offset_0 01cf 0120 | | Execute Any,Is_Value 01d0 7002 |p | Jump_Nonzero 0x1d3 01d1 00d8 | | Load_Top At_Offset_0 01d2 011e | | Execute Any,Convert 01d3 e20e | | Load 0x1,0xe 01d4 0119 | | Execute Any,Check_In_Formal_Type 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 01dc 021d | | Execute Heap_Access,Is_Null 01dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01de 0000 0000 | | .XXX[0x2] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 4601 |F | Jump_Case 0x2 01e4 7801 |x | Jump 0x1e6 ; case 0x0 01e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01e6 00da | | Load_Top At_Offset_2 01e7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e8 0125 | % | Execute Any,Set_Constraint 01e9 00da | | Load_Top At_Offset_2 01ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01eb 1c00 | | Execute_Immediate Run_Utility,0x0 01ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01ed 0000 0000 | | .XXX[0x3] 01ef 0000 | | 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; Debug Table 01f0 ; -------------------------------------------------------------------------------------- 01f0 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d4e,0x0000,0x0001,0x0000 01f6 0000 0000 | | .BLANK 0000[0xa]