|
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_ccb0b3
└─⟦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 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,0xd4f5,0x0000,0x0001,0x0000
0216 0000 0000 | | .BLANK 0000[0x1ea]