|
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_5850da
└─⟦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 0210 | | .CONST 0x0210 ; 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 0022 | " | .CONST 0x0022 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0011 | | .CONST 0x0011 ; Number of locals 000b INIT_0008: 000b 029a 0033 | 3| Declare_Subprogram INIT_0030,For_Outer_Call,Visible,Unelaborated 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 00bf | | Action Accept_Activation 0010 029d 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call 0012 029d 009b | | Declare_Subprogram INIT_0098,For_Outer_Call 0014 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0017 00c7 | | Action Elaborate_Subprogram 0018 e001 | | Load 0x0,0x1 0019 e002 | | Load 0x0,0x2 001a 1d0d | | Execute_Immediate Reference_Lex_1,0xd 001b 1d0e | | Execute_Immediate Reference_Lex_1,0xe 001c e003 | | Load 0x0,0x3 001d 1b15 | | Execute Package,Field_Read,Field_Number 0x15 001e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 001f 0387 | | Declare_Variable Package 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 BODY_0008: 0022 e004 | | Load 0x0,0x4 0023 180d | | Execute Package,Field_Execute,Field_Number 0xd 0024 00d9 | | Load_Top At_Offset_1 0025 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0026 e003 | | Load 0x0,0x3 0027 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0028 180f | | Execute Package,Field_Execute,Field_Number 0xf 0029 00bc | | Action Signal_Activated 002a 00bb | | Action Signal_Completion 002b 0000 0000 | | .BLANK 0000[0x5] 0030 ; -------------------------------------------------------------------------------------- 0030 ; SUBPROGRAM 0030 ; -------------------------------------------------------------------------------------- 0030 0060 | ` | .CONST 0x0060 ; Address of begin 0031 0004 | | .CONST 0x0004 ; Address of exception handler 0032 0003 | | .CONST 0x0003 ; Number of locals 0033 INIT_0030: 0033 0092 01ba | | Action Push_String_Extended,0x1ba ; "TDPL version = " 0035 480a |H | Short_Literal 0xa 0036 e5ff | | Load 0x2,-0x1 0037 e005 | | Load 0x0,0x5 0038 180f | | Execute Package,Field_Execute,Field_Number 0xf 0039 8210 | | Call 0x1,0x10 003a 01cc | | Execute Vector,Catenate 003b 0007 | | Action Break_Optional 003c 00d8 | | Load_Top At_Offset_0 003d 01db | | Execute Vector,Length 003e e003 | | Load 0x0,0x3 003f 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0040 1c08 | | Execute_Immediate Run_Utility,0x8 0041 00d9 | | Load_Top At_Offset_1 0042 00d9 | | Load_Top At_Offset_1 0043 00d8 | | Load_Top At_Offset_0 0044 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 0045 00da | | Load_Top At_Offset_2 0046 01da | | Execute Vector,Bounds 0047 00da | | Load_Top At_Offset_2 0048 01da | | Execute Vector,Bounds 0049 00da | | Load_Top At_Offset_2 004a 027f | | Execute Discrete,Equal 004b 7001 |p | Jump_Nonzero 0x4d 004c 08e0 | | Execute_Immediate Raise,0xe0 004d 00cd | | Action Spare6_Action 004e 027f | | Execute Discrete,Equal 004f 7001 |p | Jump_Nonzero 0x51 0050 08e0 | | Execute_Immediate Raise,0xe0 0051 00d2 | | Pop_Control Pop_Count_2 0052 00d9 | | Load_Top At_Offset_1 0053 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 0054 e003 | | Load 0x0,0x3 0055 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0056 00d9 | | Load_Top At_Offset_1 0057 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 0058 e003 | | Load 0x0,0x3 0059 1b12 | | Execute Package,Field_Read,Field_Number 0x12 005a 00d9 | | Load_Top At_Offset_1 005b 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 005c e003 | | Load 0x0,0x3 005d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 005e e5fe | | Load 0x2,-0x2 005f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0060 BODY_0030: 0060 00d8 | | Load_Top At_Offset_0 0061 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0062 0000 0000 | | .BLANK 0000[0x6] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 0077 | w | .CONST 0x0077 ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0007 | | .CONST 0x0007 ; Number of locals 006b INIT_0068: 006b e003 | | Load 0x0,0x3 006c 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006d 00d8 | | Load_Top At_Offset_0 006e 0007 | | Action Break_Optional 006f 00d9 | | Load_Top At_Offset_1 0070 0007 | | Action Break_Optional 0071 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0073 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 0075 029f 0103 | | Declare_Subprogram INIT_0100,For_Call 0077 BODY_0068: 0077 e5fe | | Load 0x2,-0x2 0078 0f02 | | Execute_Immediate Equal,0x2 0079 e5fd | | Load 0x2,-0x3 007a 0279 | y | Execute Discrete,And 007b 6801 |h | Jump_Zero 0x7d 007c 8407 | | Call 0x2,0x7 007d e403 | | Load 0x2,0x3 007e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 007f 0000 | | .XXX[0x1] 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 00db | | Load_Top At_Offset_3 0084 0f0a | | Execute_Immediate Equal,0xa 0085 6802 |h | Jump_Zero 0x88 0086 00da | | Load_Top At_Offset_2 0087 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0088 4823 |H# | Short_Literal 0x23 0089 4823 |H# | Short_Literal 0x23 008a 4820 |H | Short_Literal 0x20 008b 4800 |H | Short_Literal 0x0 008c 480a |H | Short_Literal 0xa 008d e5fe | | Load 0x2,-0x2 008e e006 | | Load 0x0,0x6 008f 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0090 01cb | | Execute Vector,Append 0091 e5ff | | Load 0x2,-0x1 0092 01cc | | Execute Vector,Catenate 0093 01cb | | Execute Vector,Append 0094 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0095 0000 0000 | | .XXX[0x3] 0097 0000 | | 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 00db | | Load_Top At_Offset_3 009c 4820 |H | Short_Literal 0x20 009d 4800 |H | Short_Literal 0x0 009e e5fe | | Load 0x2,-0x2 009f e5ff | | Load 0x2,-0x1 00a0 e006 | | Load 0x0,0x6 00a1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00a2 820f | | Call 0x1,0xf 00a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00a4 0000 0000 | | .BLANK 0000[0x4] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00e2 | | .CONST 0x00e2 ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0003 | | .CONST 0x0003 ; Number of locals 00ab INIT_00a8: 00ab 4801 |H | Short_Literal 0x1 00ac 4805 |H | Short_Literal 0x5 00ad 00e9 | | Load_Encached String_Cache 00ae 035b | [ | Declare_Type Array,Constrained 00af 0337 | 7 | Declare_Variable Array 00b0 00d8 | | Load_Top At_Offset_0 00b1 0335 | 5 | Declare_Variable Array,Duplicate 00b2 00cd | | Action Spare6_Action 00b3 4805 |H | Short_Literal 0x5 00b4 4801 |H | Short_Literal 0x1 00b5 4820 |H | Short_Literal 0x20 00b6 00d9 | | Load_Top At_Offset_1 00b7 e603 | | Load 0x3,0x3 00b8 01d6 | | Execute Vector,Field_Write 00b9 3ffb |? | Loop_Increasing 0xb5 00ba 00d9 | | Load_Top At_Offset_1 00bb 01d4 | | Execute Vector,Structure_Write 00bc 00db | | Load_Top At_Offset_3 00bd 01db | | Execute Vector,Length 00be 0a05 | | Execute_Immediate Plus,0x5 00bf e003 | | Load 0x0,0x3 00c0 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00c1 1c08 | | Execute_Immediate Run_Utility,0x8 00c2 00d9 | | Load_Top At_Offset_1 00c3 e7ff | | Load 0x3,-0x1 00c4 01cc | | Execute Vector,Catenate 00c5 00d9 | | Load_Top At_Offset_1 00c6 00d8 | | Load_Top At_Offset_0 00c7 2504 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x4 00c8 00da | | Load_Top At_Offset_2 00c9 01da | | Execute Vector,Bounds 00ca 00da | | Load_Top At_Offset_2 00cb 01da | | Execute Vector,Bounds 00cc 00da | | Load_Top At_Offset_2 00cd 027f | | Execute Discrete,Equal 00ce 7001 |p | Jump_Nonzero 0xd0 00cf 08e0 | | Execute_Immediate Raise,0xe0 00d0 00cd | | Action Spare6_Action 00d1 027f | | Execute Discrete,Equal 00d2 7001 |p | Jump_Nonzero 0xd4 00d3 08e0 | | Execute_Immediate Raise,0xe0 00d4 00d2 | | Pop_Control Pop_Count_2 00d5 00d9 | | Load_Top At_Offset_1 00d6 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4 00d7 e7fe | | Load 0x3,-0x2 00d8 00d9 | | Load_Top At_Offset_1 00d9 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 00da e003 | | Load 0x0,0x3 00db 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00dc 00d9 | | Load_Top At_Offset_1 00dd 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00de e003 | | Load 0x0,0x3 00df 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00e0 e5fc | | Load 0x2,-0x4 00e1 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 00e2 BODY_00a8: 00e2 e403 | | Load 0x2,0x3 00e3 7005 |p | Jump_Nonzero 0xe9 00e4 00d8 | | Load_Top At_Offset_0 00e5 a403 | | Store_Unchecked 0x2,0x3 00e6 00d8 | | Load_Top At_Offset_0 00e7 a404 | | Store_Unchecked 0x2,0x4 00e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e9 00d8 | | Load_Top At_Offset_0 00ea e404 | | Load 0x2,0x4 00eb 0217 | | Execute Heap_Access,All_Reference 00ec 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3 00ed 00d8 | | Load_Top At_Offset_0 00ee a404 | | Store_Unchecked 0x2,0x4 00ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3 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 00da | | Load_Top At_Offset_2 00f4 0092 01bb | | Action Push_String_Extended,0x1bb ; " (" 00f6 01cc | | Execute Vector,Catenate 00f7 e7fe | | Load 0x3,-0x2 00f8 01cc | | Execute Vector,Catenate 00f9 0092 01bc | | Action Push_String_Extended,0x1bc ; ")" 00fb 01cc | | Execute Vector,Catenate 00fc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 010b | | .CONST 0x010b ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0005 | | .CONST 0x0005 ; Number of locals 0103 INIT_0100: 0103 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0105 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 0107 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call 0109 029f 019b | | Declare_Subprogram INIT_0198,For_Call 010b BODY_0100: 010b 8602 | | Call 0x3,0x2 010c 8603 | | Call 0x3,0x3 010d 8605 | | Call 0x3,0x5 010e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 010f 0000 | | .XXX[0x1] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0116 | | .CONST 0x0116 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 e5ff | | Load 0x2,-0x1 0114 e005 | | Load 0x0,0x5 0115 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0116 BODY_0110: 0116 e003 | | Load 0x0,0x3 0117 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0118 0092 01bd | | Action Push_String_Extended,0x1bd ; "Calls generating body dependencies:" 011a 8405 | | Call 0x2,0x5 011b 00cf | | Action Mark_Auxiliary 011c 7821 |x! | Jump 0x13e 011d e003 | | Load 0x0,0x3 011e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 011f 00da | | Load_Top At_Offset_2 0120 0217 | | Execute Heap_Access,All_Reference 0121 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0122 e007 | | Load 0x0,0x7 0123 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0124 e007 | | Load 0x0,0x7 0125 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c 0126 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0127 0092 01be | | Action Push_String_Extended,0x1be ; " spec" 0129 8406 | | Call 0x2,0x6 012a 8405 | | Call 0x2,0x5 012b e003 | | Load 0x0,0x3 012c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 012d 480a |H | Short_Literal 0xa 012e 00db | | Load_Top At_Offset_3 012f 0217 | | Execute Heap_Access,All_Reference 0130 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0131 8210 | | Call 0x1,0x10 0132 0092 01bf | | Action Push_String_Extended,0x1bf ; " decl_no" 0134 8406 | | Call 0x2,0x6 0135 8405 | | Call 0x2,0x5 0136 00d9 | | Load_Top At_Offset_1 0137 0217 | | Execute Heap_Access,All_Reference 0138 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0139 e005 | | Load 0x0,0x5 013a 1b16 | | Execute Package,Field_Read,Field_Number 0x16 013b 0216 | | Execute Heap_Access,Convert 013c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 013d 00c9 | | Action Pop_Auxiliary_Loop 013e 00d9 | | Load_Top At_Offset_1 013f 77dd |w | Jump_Nonzero 0x11d 0140 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014e | N | .CONST 0x014e ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e5ff | | Load 0x2,-0x1 014c e005 | | Load 0x0,0x5 014d 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 014e BODY_0148: 014e e003 | | Load 0x0,0x3 014f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0150 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "Defns of inlinable routines:" 0152 8405 | | Call 0x2,0x5 0153 00cf | | Action Mark_Auxiliary 0154 7813 |x | Jump 0x168 0155 e003 | | Load 0x0,0x3 0156 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0157 480a |H | Short_Literal 0xa 0158 00db | | Load_Top At_Offset_3 0159 0217 | | Execute Heap_Access,All_Reference 015a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 015b 8210 | | Call 0x1,0x10 015c 0092 01bf | | Action Push_String_Extended,0x1bf ; " decl_no" 015e 8406 | | Call 0x2,0x6 015f 8405 | | Call 0x2,0x5 0160 00d9 | | Load_Top At_Offset_1 0161 0217 | | Execute Heap_Access,All_Reference 0162 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0163 e005 | | Load 0x0,0x5 0164 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0165 0216 | | Execute Heap_Access,Convert 0166 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0167 00c9 | | Action Pop_Auxiliary_Loop 0168 00d9 | | Load_Top At_Offset_1 0169 77eb |w | Jump_Nonzero 0x155 016a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017b | { | .CONST 0x017b ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e008 | | Load 0x0,0x8 0174 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0175 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0176 02c7 | | Declare_Variable Any 0177 00d8 | | Load_Top At_Offset_0 0178 1c00 | | Execute_Immediate Run_Utility,0x0 0179 e008 | | Load 0x0,0x8 017a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017b BODY_0170: 017b e008 | | Load 0x0,0x8 017c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017d 00da | | Load_Top At_Offset_2 017e 0120 | | Execute Any,Is_Value 017f 6804 |h | Jump_Zero 0x184 0180 e008 | | Load 0x0,0x8 0181 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0182 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0183 7801 |x | Jump 0x185 0184 00da | | Load_Top At_Offset_2 0185 e9ff | | Load 0x4,-0x1 0186 e008 | | Load 0x0,0x8 0187 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0188 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0189 c802 | | Store 0x4,0x2 018a 0059 | Y | Store_Top Discrete,At_Offset_1 018b 00d8 | | Load_Top At_Offset_0 018c 6801 |h | Jump_Zero 0x18e 018d 0833 | 3 | Execute_Immediate Raise,0x33 018e 00d9 | | Load_Top At_Offset_1 018f e008 | | Load 0x0,0x8 0190 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38 0191 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0192 e008 | | Load 0x0,0x8 0193 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0194 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 0195 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0196 0000 0000 | | .XXX[0x2] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019e | | .CONST 0x019e ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0002 | | .CONST 0x0002 ; Number of locals 019b INIT_0198: 019b e5ff | | Load 0x2,-0x1 019c e005 | | Load 0x0,0x5 019d 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32 019e BODY_0198: 019e e003 | | Load 0x0,0x3 019f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a0 0092 01c1 | | Action Push_String_Extended,0x1c1 ; "Bodies of generics instantiated here:" 01a2 8405 | | Call 0x2,0x5 01a3 00cf | | Action Mark_Auxiliary 01a4 7812 |x | Jump 0x1b7 01a5 e003 | | Load 0x0,0x3 01a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01a7 00da | | Load_Top At_Offset_2 01a8 0217 | | Execute Heap_Access,All_Reference 01a9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01aa 8604 | | Call 0x3,0x4 01ab 0092 01c2 | | Action Push_String_Extended,0x1c2 ; " " 01ad 8406 | | Call 0x2,0x6 01ae 8405 | | Call 0x2,0x5 01af 00d9 | | Load_Top At_Offset_1 01b0 0217 | | Execute Heap_Access,All_Reference 01b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b2 e005 | | Load 0x0,0x5 01b3 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e 01b4 0216 | | Execute Heap_Access,Convert 01b5 0032 | 2 | Store_Top Heap_Access,At_Offset_2 01b6 00c9 | | Action Pop_Auxiliary_Loop 01b7 00d9 | | Load_Top At_Offset_1 01b8 77ec |w | Jump_Nonzero 0x1a5 01b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ba ; -------------------------------------------------------------------------------------- 01ba ; STRING TABLE 01ba ; -------------------------------------------------------------------------------------- 01ba 0014 | | .STRTAB 0x0014->0x01c4 ; "TDPL version = " 01bb 0021 | ! | .STRTAB 0x0021->0x01cb ; " (" 01bc 0021 | ! | .STRTAB 0x0021->0x01cc ; ")" 01bd 0020 | | .STRTAB 0x0020->0x01cd ; "Calls generating body dependencies:" 01be 0041 | A | .STRTAB 0x0041->0x01de ; " spec" 01bf 0046 | F | .STRTAB 0x0046->0x01e2 ; " decl_no" 01c0 004e | N | .STRTAB 0x004e->0x01e7 ; "Defns of inlinable routines:" 01c1 0068 | h | .STRTAB 0x0068->0x01f5 ; "Bodies of generics instantiated here:" 01c2 008b | | .STRTAB 0x008b->0x0207 ; " " 01c3 008c | | .STREND 0x008c->0x0209 01c4 5444 504c |TDPL| .STRTAB_STRINGS 0209 0000 0000 | | .BLANK 0000[0x7] 0210 ; -------------------------------------------------------------------------------------- 0210 ; Debug Table 0210 ; -------------------------------------------------------------------------------------- 0210 0004 000d | | .DEBUG4 0x0004,0x000d,0x51ac,0x0000,0x0001,0x0000 0216 0000 5e80 | ^ | .XXX[0x2] 0218 0000 0000 | | .BLANK 0000[0xc] 0224 0058 50da | XP | .XXX[0x70] 0226 0000 646d | dm| 0228 fed0 003e | >| 022a 0800 0681 | | 022c 0000 0000 | | 022e 0003 6b6f | ko| 0230 005b f0da | [ | 0232 8000 000a | | 0234 005b ecda | [ | 0236 0000 0000 | | 0238 005b e8da | [ | 023a 0000 0802 | | 023c 005b e8da | [ | 023e 0000 0802 | | 0240 005b e8da | [ | 0242 0000 0800 | | 0244 005b e8da | [ | 0246 0000 0800 | | 0248 000e 1c04 | | 024a 4000 0300 |@ | 024c 0000 0000 | | 024e 0000 005f | _| 0250 0200 0000 | | 0252 0000 0025 | %| 0254 0058 50da | XP | 0256 0000 00da | | 0258 005b e8da | [ | 025a 0000 0880 | | 025c 005b f0da | [ | 025e 0000 0000 | | 0260 1b86 e000 | | 0262 0000 5d80 | ] | 0264 0000 0000 | | 0266 0000 0001 | | 0268 0000 0000 | | 026a 0000 08bf | | 026c 0000 0000 | | 026e 0000 0001 | | 0270 0000 0000 | | 0272 fc00 0001 | | 0274 005b f0da | [ | 0276 0000 0180 | | 0278 0322 2000 | " | 027a 0ef8 ad14 | | 027c 0000 0000 | | 027e 006e 0000 | n | 0280 1b86 e000 | | 0282 0000 5d90 | ] | 0284 0001 9804 | | 0286 0000 3244 | 2D| 0288 005b e8da | [ | 028a 0000 0821 | !| 028c 005b 02c3 | [ | 028e 0000 0801 | | 0290 0d05 0000 | | 0292 0000 38a9 | 8 | 0294 0000 0000 | | .BLANK 0000[0x4] 0298 7044 cb57 |pD W| .XXX[0x10] 029a c5e5 c622 | "| 029c fd3c fd3d | < =| 029e 3970 fadc |9p | 02a0 f970 c622 | p "| 02a2 d093 d094 | | 02a4 234c 2350 |#L#P| 02a6 234e c9e2 |#N | 02a8 0000 0000 | | .BLANK 0000[0x10] 02b8 0040 0065 | @ e| .XXX[0x1f] 02ba ea90 b85a | Z| 02bc 91f0 0003 | | 02be d256 c970 | V p| 02c0 1001 0000 | | 02c2 a100 0000 | | 02c4 2f0d 4000 |/ @ | 02c6 0200 0000 | | 02c8 0300 2800 | ( | 02ca 0000 0800 | | 02cc 0002 0000 | | 02ce 0011 0000 | | 02d0 0000 0800 | | 02d2 0000 5200 | R | 02d4 0010 07ac | | 02d6 1800 | | 02d7 0000 0000 | | .BLANK 0000[0x1a] 02f1 0008 000c | | .XXX[0x3] 02f3 bd50 | P | 02f4 0000 0000 | | .BLANK 0000[0x13] 0307 0001 | | .XXX[0x1] 0308 0000 0000 | | .BLANK 0000[0x8] 0310 0001 0404 | | .XXX[0x4] 0312 0800 0888 | | 0314 0000 0000 | | .BLANK 0000[0xa] 031e 0057 26c5 | W& | .XXX[0x2] 0320 0000 0000 | | .BLANK 0000[0x7] 0327 0084 | | .XXX[0x1] 0328 0000 0000 | | .BLANK 0000[0x8] 0330 005b e8da | [ | .XXX[0x5] 0332 0800 0480 | | 0334 8000 | | 0335 0000 0000 | | .BLANK 0000[0x9] 033e 0057 26c5 | W& | .XXX[0x2] 0340 0000 0000 | | .BLANK 0000[0x7] 0347 0090 | | .XXX[0x1] 0348 0000 0000 | | .BLANK 0000[0x8] 0350 005b e8da | [ | .XXX[0x5] 0352 0800 0600 | | 0354 8000 | | 0355 0000 0000 | | .BLANK 0000[0x9] 035e 0057 26c5 | W& | .XXX[0x2] 0360 0000 0000 | | .BLANK 0000[0x7] 0367 009c | | .XXX[0x1] 0368 0000 0000 | | .BLANK 0000[0xc] 0374 8014 0000 | | .XXX[0xb] 0376 0000 0000 | | 0378 0100 0000 | | 037a 0880 0000 | | 037c 0004 0000 | | 037e 0028 | ( | 037f 0000 0000 | | .BLANK 0000[0x2e] 03ad 1002 8000 | | .XXX[0xb] 03af 0000 0000 | | 03b1 0020 0000 | | 03b3 0110 0000 | | 03b5 0000 8000 | | 03b7 0005 | | 03b8 0000 0000 | | .BLANK 0000[0x1b] 03d3 0040 0002 | @ | .XXX[0x15] 03d5 7dc0 01b8 |} | 03d7 217d 0d3d |!} =| 03d9 3535 1539 |55 9| 03db 5000 8829 |P )| 03dd 4105 0d2d |A -| 03df 7d51 1535 |}Q 5| 03e1 414c 01f0 |AL | 03e3 1551 1535 | Q 5| 03e5 414c 00f0 |AL | 03e7 1d25 | % | 03e8 0000 0000 | | .BLANK 0000[0x4] 03ec 005b f0da | [ | .XXX[0x14] 03ee 0000 0000 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 0000 0000 | | 03f6 0000 0024 | $| 03f8 ff6f 003e | o >| 03fa 0800 0001 | | 03fc 0000 0000 | | 03fe 0000 000e | |