|
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_5a98bb
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 01d0 | | .CONST 0x01d0 ; 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 005b | [ | .CONST 0x005b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0011 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0013 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0015 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0017 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0019 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 001b 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001d 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 001f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0021 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0023 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 0025 00c4 | | Action Make_Default 0026 e002 | | Load 0x0,0x2 0027 e003 | | Load 0x0,0x3 0028 e20e | | Load 0x1,0xe 0029 e004 | | Load 0x0,0x4 002a 0386 | | Declare_Variable Package,Visible 002b 00d8 | | Load_Top At_Offset_0 002c 020f | | Execute Module,Activate 002d 00d8 | | Load_Top At_Offset_0 002e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002f 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 0031 4801 |H | Short_Literal 0x1 0032 032e | . | Declare_Type Record,Defined,Visible 0033 00d8 | | Load_Top At_Offset_0 0034 0322 | " | Declare_Variable Record 0035 00da | | Load_Top At_Offset_2 0036 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0037 00d9 | | Load_Top At_Offset_1 0038 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0039 0129 | ) | Execute Any,Make_Visible 003a c21f | | Store 0x1,0x1f 003b 00d9 | | Load_Top At_Offset_1 003c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 003d 02a0 | | Declare_Subprogram Null_Subprogram 003e 4801 |H | Short_Literal 0x1 003f 032e | . | Declare_Type Record,Defined,Visible 0040 00bf | | Action Accept_Activation 0041 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0042 00c7 | | Action Elaborate_Subprogram 0043 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0044 00c7 | | Action Elaborate_Subprogram 0045 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0046 00c7 | | Action Elaborate_Subprogram 0047 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0048 00c7 | | Action Elaborate_Subprogram 0049 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004a 00c7 | | Action Elaborate_Subprogram 004b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 004c 00c7 | | Action Elaborate_Subprogram 004d 1d18 | | Execute_Immediate Reference_Lex_1,0x18 004e 00c7 | | Action Elaborate_Subprogram 004f 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0050 00c7 | | Action Elaborate_Subprogram 0051 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0052 00c7 | | Action Elaborate_Subprogram 0053 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0054 00c7 | | Action Elaborate_Subprogram 0055 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0056 00c7 | | Action Elaborate_Subprogram 0057 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0058 00c7 | | Action Elaborate_Subprogram 0059 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 005a 00c7 | | Action Elaborate_Subprogram 005b BODY_0008: 005b 00bc | | Action Signal_Activated 005c 00bb | | Action Signal_Completion 005d 0000 0000 | | .XXX[0x3] 005f 0000 | | 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0067 | g | .CONST 0x0067 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0003 | | .CONST 0x0003 ; Number of locals 0063 INIT_0060: 0063 e222 | " | Load 0x1,0x22 0064 0322 | " | Declare_Variable Record 0065 00e1 | | Load_Encached Boolean_Cache 0066 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0067 BODY_0060: 0067 00d9 | | Load_Top At_Offset_1 0068 e5fe | | Load 0x2,-0x2 0069 821b | | Call 0x1,0x1b 006a 00d1 | | Pop_Control Pop_Count_1 006b 00cf | | Action Mark_Auxiliary 006c 780b |x | Jump 0x78 006d 00da | | Load_Top At_Offset_2 006e 821d | | Call 0x1,0x1d 006f 8211 | | Call 0x1,0x11 0070 e5ff | | Load 0x2,-0x1 0071 8211 | | Call 0x1,0x11 0072 01df | | Execute Vector,Equal 0073 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 0074 00da | | Load_Top At_Offset_2 0075 821c | | Call 0x1,0x1c 0076 00d1 | | Pop_Control Pop_Count_1 0077 00c9 | | Action Pop_Auxiliary_Loop 0078 00da | | Load_Top At_Offset_2 0079 821e | | Call 0x1,0x1e 007a 0f00 | | Execute_Immediate Equal,0x0 007b 00da | | Load_Top At_Offset_2 007c 0f00 | | Execute_Immediate Equal,0x0 007d 0279 | y | Execute Discrete,And 007e 77ee |w | Jump_Nonzero 0x6d 007f 00ce | | Action Pop_Auxiliary 0080 00d8 | | Load_Top At_Offset_0 0081 7009 |p | Jump_Nonzero 0x8b 0082 e5fe | | Load 0x2,-0x2 0083 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0084 e5ff | | Load 0x2,-0x1 0085 e20e | | Load 0x1,0xe 0086 0119 | | Execute Any,Check_In_Formal_Type 0087 e220 | | Load 0x1,0x20 0088 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0089 e5fe | | Load 0x2,-0x2 008a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008b 00d8 | | Load_Top At_Offset_0 008c 0f00 | | Execute_Immediate Equal,0x0 008d a5fd | | Store_Unchecked 0x2,-0x3 008e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 008f 0000 | | .XXX[0x1] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 009b | | .CONST 0x009b ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0004 | | .CONST 0x0004 ; Number of locals 0093 INIT_0090: 0093 e222 | " | Load 0x1,0x22 0094 0322 | " | Declare_Variable Record 0095 e221 | ! | Load 0x1,0x21 0096 0322 | " | Declare_Variable Record 0097 00d8 | | Load_Top At_Offset_0 0098 1c00 | | Execute_Immediate Run_Utility,0x0 0099 00e1 | | Load_Encached Boolean_Cache 009a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009b BODY_0090: 009b e5ff | | Load 0x2,-0x1 009c 8211 | | Call 0x1,0x11 009d e5fe | | Load 0x2,-0x2 009e 8219 | | Call 0x1,0x19 009f 700a |p | Jump_Nonzero 0xaa 00a0 e5fe | | Load 0x2,-0x2 00a1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a2 e5ff | | Load 0x2,-0x1 00a3 e20e | | Load 0x1,0xe 00a4 0119 | | Execute Any,Check_In_Formal_Type 00a5 e220 | | Load 0x1,0x20 00a6 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00a7 e5fe | | Load 0x2,-0x2 00a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00a9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00aa 00da | | Load_Top At_Offset_2 00ab e5fe | | Load 0x2,-0x2 00ac 821b | | Call 0x1,0x1b 00ad 00d1 | | Pop_Control Pop_Count_1 00ae 00cf | | Action Mark_Auxiliary 00af 781c |x | Jump 0xcc 00b0 00da | | Load_Top At_Offset_2 00b1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b2 e402 | | Load 0x2,0x2 00b3 821d | | Call 0x1,0x1d 00b4 e20e | | Load 0x1,0xe 00b5 0119 | | Execute Any,Check_In_Formal_Type 00b6 e220 | | Load 0x1,0x20 00b7 1811 | | Execute Package,Field_Execute,Field_Number 0x11 00b8 00db | | Load_Top At_Offset_3 00b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ba 00db | | Load_Top At_Offset_3 00bb 821d | | Call 0x1,0x1d 00bc 8211 | | Call 0x1,0x11 00bd e5ff | | Load 0x2,-0x1 00be 8211 | | Call 0x1,0x11 00bf 01df | | Execute Vector,Equal 00c0 6807 |h | Jump_Zero 0xc8 00c1 e5ff | | Load 0x2,-0x1 00c2 e20e | | Load 0x1,0xe 00c3 0119 | | Execute Any,Check_In_Formal_Type 00c4 00db | | Load_Top At_Offset_3 00c5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00c6 e220 | | Load 0x1,0x20 00c7 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00c8 00db | | Load_Top At_Offset_3 00c9 821c | | Call 0x1,0x1c 00ca 00d1 | | Pop_Control Pop_Count_1 00cb 00c9 | | Action Pop_Auxiliary_Loop 00cc 00db | | Load_Top At_Offset_3 00cd 821e | | Call 0x1,0x1e 00ce 6fe1 |o | Jump_Zero 0xb0 00cf 00ce | | Action Pop_Auxiliary 00d0 e5fe | | Load 0x2,-0x2 00d1 8216 | | Call 0x1,0x16 00d2 00d1 | | Pop_Control Pop_Count_1 00d3 e5fe | | Load 0x2,-0x2 00d4 00da | | Load_Top At_Offset_2 00d5 8215 | | Call 0x1,0x15 00d6 00d1 | | Pop_Control Pop_Count_1 00d7 00d9 | | Load_Top At_Offset_1 00d8 8216 | | Call 0x1,0x16 00d9 00d1 | | Pop_Control Pop_Count_1 00da 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00db 0000 0000 | | .BLANK 0000[0x5] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e7 | | .CONST 0x00e7 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e222 | " | Load 0x1,0x22 00e4 0322 | " | Declare_Variable Record 00e5 00e1 | | Load_Encached Boolean_Cache 00e6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00e7 BODY_00e0: 00e7 00d9 | | Load_Top At_Offset_1 00e8 e5ff | | Load 0x2,-0x1 00e9 821b | | Call 0x1,0x1b 00ea 00d1 | | Pop_Control Pop_Count_1 00eb 00cf | | Action Mark_Auxiliary 00ec 780d |x | Jump 0xfa 00ed 00da | | Load_Top At_Offset_2 00ee 821d | | Call 0x1,0x1d 00ef c5fd | | Store 0x2,-0x3 00f0 00da | | Load_Top At_Offset_2 00f1 821d | | Call 0x1,0x1d 00f2 8211 | | Call 0x1,0x11 00f3 e5fe | | Load 0x2,-0x2 00f4 01df | | Execute Vector,Equal 00f5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2 00f6 00da | | Load_Top At_Offset_2 00f7 821c | | Call 0x1,0x1c 00f8 00d1 | | Pop_Control Pop_Count_1 00f9 00c9 | | Action Pop_Auxiliary_Loop 00fa 00da | | Load_Top At_Offset_2 00fb 821e | | Call 0x1,0x1e 00fc 0f00 | | Execute_Immediate Equal,0x0 00fd 00da | | Load_Top At_Offset_2 00fe 0f00 | | Execute_Immediate Equal,0x0 00ff 0279 | y | Execute Discrete,And 0100 77ec |w | Jump_Nonzero 0xed 0101 00ce | | Action Pop_Auxiliary 0102 00d8 | | Load_Top At_Offset_0 0103 6803 |h | Jump_Zero 0x107 0104 4801 |H | Short_Literal 0x1 0105 a5fc | | Store_Unchecked 0x2,-0x4 0106 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0107 4800 |H | Short_Literal 0x0 0108 a5fc | | Store_Unchecked 0x2,-0x4 0109 e20f | | Load 0x1,0xf 010a c5fd | | Store 0x2,-0x3 010b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 010c 0000 0000 | | .BLANK 0000[0x4] 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 e222 | " | Load 0x1,0x22 0114 0322 | " | Declare_Variable Record 0115 BODY_0110: 0115 00d8 | | Load_Top At_Offset_0 0116 e5ff | | Load 0x2,-0x1 0117 821b | | Call 0x1,0x1b 0118 00d1 | | Pop_Control Pop_Count_1 0119 00cf | | Action Mark_Auxiliary 011a 780e |x | Jump 0x129 011b e5fe | | Load 0x2,-0x2 011c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011d 00da | | Load_Top At_Offset_2 011e 821d | | Call 0x1,0x1d 011f e20e | | Load 0x1,0xe 0120 0119 | | Execute Any,Check_In_Formal_Type 0121 e220 | | Load 0x1,0x20 0122 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0123 e5fe | | Load 0x2,-0x2 0124 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0125 00d9 | | Load_Top At_Offset_1 0126 821c | | Call 0x1,0x1c 0127 00d1 | | Pop_Control Pop_Count_1 0128 00c9 | | Action Pop_Auxiliary_Loop 0129 00d9 | | Load_Top At_Offset_1 012a 821e | | Call 0x1,0x1e 012b 6fef |o | Jump_Zero 0x11b 012c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 00da | | Load_Top At_Offset_2 0134 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0135 e220 | | Load 0x1,0x20 0136 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0137 00db | | Load_Top At_Offset_3 0138 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0139 4501 |E | Exit_Suprogram New_Top_Offset 0x1 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0145 | E | .CONST 0x0145 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e222 | " | Load 0x1,0x22 0144 0322 | " | Declare_Variable Record 0145 BODY_0140: 0145 00d8 | | Load_Top At_Offset_0 0146 e5ff | | Load 0x2,-0x1 0147 821b | | Call 0x1,0x1b 0148 00d1 | | Pop_Control Pop_Count_1 0149 00cf | | Action Mark_Auxiliary 014a 7807 |x | Jump 0x152 014b 00d9 | | Load_Top At_Offset_1 014c 821d | | Call 0x1,0x1d 014d 8210 | | Call 0x1,0x10 014e 00d9 | | Load_Top At_Offset_1 014f 821c | | Call 0x1,0x1c 0150 00d1 | | Pop_Control Pop_Count_1 0151 00c9 | | Action Pop_Auxiliary_Loop 0152 00d9 | | Load_Top At_Offset_1 0153 821e | | Call 0x1,0x1e 0154 6ff6 |o | Jump_Zero 0x14b 0155 00ce | | Action Pop_Auxiliary 0156 4801 |H | Short_Literal 0x1 0157 e005 | | Load 0x0,0x5 0158 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0159 4502 |E | Exit_Suprogram New_Top_Offset 0x2 015a 0000 0000 | | .BLANK 0000[0x6] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 0164 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0165 e220 | | Load 0x1,0x20 0166 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0167 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0170 | p | .CONST 0x0170 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b e20e | | Load 0x1,0xe 016c 02c7 | | Declare_Variable Any 016d 00d8 | | Load_Top At_Offset_0 016e 1c00 | | Execute_Immediate Run_Utility,0x0 016f 00e1 | | Load_Encached Boolean_Cache 0170 BODY_0168: 0170 00e1 | | Load_Encached Boolean_Cache 0171 00da | | Load_Top At_Offset_2 0172 0120 | | Execute Any,Is_Value 0173 6802 |h | Jump_Zero 0x176 0174 e20e | | Load 0x1,0xe 0175 7803 |x | Jump 0x179 0176 00da | | Load_Top At_Offset_2 0177 e20e | | Load 0x1,0xe 0178 0119 | | Execute Any,Check_In_Formal_Type 0179 e5fe | | Load 0x2,-0x2 017a e5ff | | Load 0x2,-0x1 017b 8214 | | Call 0x1,0x14 017c c402 | | Store 0x2,0x2 017d 0059 | Y | Store_Top Discrete,At_Offset_1 017e 00d8 | | Load_Top At_Offset_0 017f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 00da | | Load_Top At_Offset_2 0184 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0185 e220 | | Load 0x1,0x20 0186 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0187 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b e220 | | Load 0x1,0x20 018c 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 018d 00db | | Load_Top At_Offset_3 018e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 018f e220 | | Load 0x1,0x20 0190 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0191 e5fe | | Load 0x2,-0x2 0192 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0193 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0194 0000 0000 | | .BLANK 0000[0x4] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019d e220 | | Load 0x1,0x20 019e 181c | | Execute Package,Field_Execute,Field_Number 0x1c 019f 00db | | Load_Top At_Offset_3 01a0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ad e220 | | Load 0x1,0x20 01ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01af e20e | | Load 0x1,0xe 01b0 0119 | | Execute Any,Check_In_Formal_Type 01b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01bd e220 | | Load 0x1,0x20 01be 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 4601 |F | Jump_Case 0x2 01c4 7801 |x | Jump 0x1c6 ; case 0x0 01c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01c6 e220 | | Load 0x1,0x20 01c7 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c8 00db | | Load_Top At_Offset_3 01c9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01ca 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; Debug Table 01d0 ; -------------------------------------------------------------------------------------- 01d0 0004 0008 | | .DEBUG4 0x0004,0x0008,0x05a9,0x0000,0x0001,0x0010 01d6 000b 0216 | | .DBG4T 0x000b,0x0216,0xc000,0x8000 01da 0041 023c | A <| .DBG4T 0x0041,0x023c,0xc000,0x0000 01de 0063 024b | c K| .DBG4T 0x0063,0x024b,0x1001,0x4000 01e2 0093 025d | ]| .DBG4T 0x0093,0x025d,0x1001,0x4000 01e6 00e3 0278 | x| .DBG4T 0x00e3,0x0278,0x1001,0x4000 01ea 0113 028e | | .DBG4T 0x0113,0x028e,0x1001,0x4000 01ee 0133 0299 | 3 | .DBG4T 0x0133,0x0299,0x1001,0x0000 01f2 0143 029c | C | .DBG4T 0x0143,0x029c,0x1001,0x4000 01f6 0163 02a9 | c | .DBG4T 0x0163,0x02a9,0x1002,0x0000 01fa 016b 02ac | k | .DBG4T 0x016b,0x02ac,0x1002,0x0000 01fe 0183 02b2 | | .DBG4T 0x0183,0x02b2,0x1002,0x0000 0202 018b 02b5 | | .DBG4T 0x018b,0x02b5,0x1001,0x0000 0206 019b 02b8 | | .DBG4T 0x019b,0x02b8,0x1001,0x0000 020a 01ab 02bb | | .DBG4T 0x01ab,0x02bb,0x1002,0x0000 020e 01bb 02be | | .DBG4T 0x01bb,0x02be,0x1002,0x0000 0212 01c3 0000 | | .DBG4T 0x01c3,0x0000,0x1005,0x0000 0216 ; -------------------------------------------------------------------------------------- 0216 ; Debug chain 0216 ; -------------------------------------------------------------------------------------- 0216 0012 0000 | | .DBGLEN 0x0012,0x0000 0218 000b 000d | | .DBGLNO 0x000b,0x000d,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0026,0x002d,0x0033,0x003b 022a 0002 0003 | | .XXX[0x12] 022c 0004 0005 | | 022e 0006 0007 | | 0230 0008 0009 | | 0232 000a 000c | | 0234 000d 000e | | 0236 000f 0010 | | 0238 0011 0012 | | 023a 0013 0014 | | 023c ; -------------------------------------------------------------------------------------- 023c ; Debug chain 023c ; -------------------------------------------------------------------------------------- 023c 000d 0000 | | .DBGLEN 0x000d,0x0000 023e 0041 0043 | A C| .DBGLNO 0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f,0x0051,0x0053,0x0055,0x0057,0x0059 024b ; -------------------------------------------------------------------------------------- 024b ; Debug chain 024b ; -------------------------------------------------------------------------------------- 024b 0002 0007 | | .DBGLEN 0x0002,0x0007 024d 0063 0065 | c e| .DBGLNO 0x0063,0x0065,0x0067,0x006d,0x0074,0x0078,0x0080,0x0082,0x008b 0256 0001 0003 | | .XXX[0x7] 0258 0004 0002 | | 025a 0005 0006 | | 025c 0007 | | 025d ; -------------------------------------------------------------------------------------- 025d ; Debug chain 025d ; -------------------------------------------------------------------------------------- 025d 0003 000b | | .DBGLEN 0x0003,0x000b 025f 0093 0095 | | .DBGLNO 0x0093,0x0095,0x0099,0x009b,0x00a0,0x00aa,0x00b0,0x00ba,0x00c1,0x00c8,0x00cc,0x00d0,0x00d3,0x00d7 026d 0001 0002 | | .XXX[0xb] 026f 0003 0005 | | 0271 0006 0007 | | 0273 0008 0004 | | 0275 0009 000a | | 0277 000b | | 0278 ; -------------------------------------------------------------------------------------- 0278 ; Debug chain 0278 ; -------------------------------------------------------------------------------------- 0278 0002 0009 | | .DBGLEN 0x0002,0x0009 027a 00e3 00e5 | | .DBGLNO 0x00e3,0x00e5,0x00e7,0x00ed,0x00f0,0x00f6,0x00fa,0x0102,0x0104,0x0107,0x0109 0285 0001 0003 | | .XXX[0x9] 0287 0004 0005 | | 0289 0002 0006 | | 028b 0007 0008 | | 028d 0009 | | 028e ; -------------------------------------------------------------------------------------- 028e ; Debug chain 028e ; -------------------------------------------------------------------------------------- 028e 0001 0004 | | .DBGLEN 0x0001,0x0004 0290 0113 0115 | | .DBGLNO 0x0113,0x0115,0x011b,0x0125,0x0129 0295 0001 0003 | | .XXX[0x4] 0297 0004 0002 | | 0299 ; -------------------------------------------------------------------------------------- 0299 ; Debug chain 0299 ; -------------------------------------------------------------------------------------- 0299 0000 0001 | | .DBGLEN 0x0000,0x0001 029b 0133 | 3 | .DBGLNO 0x0133 029c ; -------------------------------------------------------------------------------------- 029c ; Debug chain 029c ; -------------------------------------------------------------------------------------- 029c 0001 0005 | | .DBGLEN 0x0001,0x0005 029e 0143 0145 | C E| .DBGLNO 0x0143,0x0145,0x014b,0x014e,0x0152,0x0156 02a4 0001 0003 | | .XXX[0x5] 02a6 0004 0002 | | 02a8 0005 | | 02a9 ; -------------------------------------------------------------------------------------- 02a9 ; Debug chain 02a9 ; -------------------------------------------------------------------------------------- 02a9 0000 0001 | | .DBGLEN 0x0000,0x0001 02ab 0163 | c | .DBGLNO 0x0163 02ac ; -------------------------------------------------------------------------------------- 02ac ; Debug chain 02ac ; -------------------------------------------------------------------------------------- 02ac 0002 0002 | | .DBGLEN 0x0002,0x0002 02ae 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0170,0x017e 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug chain 02b2 ; -------------------------------------------------------------------------------------- 02b2 0000 0001 | | .DBGLEN 0x0000,0x0001 02b4 0183 | | .DBGLNO 0x0183 02b5 ; -------------------------------------------------------------------------------------- 02b5 ; Debug chain 02b5 ; -------------------------------------------------------------------------------------- 02b5 0000 0001 | | .DBGLEN 0x0000,0x0001 02b7 018b | | .DBGLNO 0x018b 02b8 ; -------------------------------------------------------------------------------------- 02b8 ; Debug chain 02b8 ; -------------------------------------------------------------------------------------- 02b8 0000 0001 | | .DBGLEN 0x0000,0x0001 02ba 019b | | .DBGLNO 0x019b 02bb ; -------------------------------------------------------------------------------------- 02bb ; Debug chain 02bb ; -------------------------------------------------------------------------------------- 02bb 0000 0001 | | .DBGLEN 0x0000,0x0001 02bd 01ab | | .DBGLNO 0x01ab 02be ; -------------------------------------------------------------------------------------- 02be ; Debug chain 02be ; -------------------------------------------------------------------------------------- 02be 0000 0001 | | .DBGLEN 0x0000,0x0001 02c0 01bb | | .DBGLNO 0x01bb 02c1 0000 0000 | | .BLANK 0000[0x13f]