|
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, 5812_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_6148f2
└─⟦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 5812 |X | .CONST 0x5812 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0228 | ( | .CONST 0x0228 ; 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 ; SUBPROGRAM 0008 ; See instruction 0x02cf at 0x1b3, index=0x0 0008 ; -------------------------------------------------------------------------------------- 0008 003c | < | .CONST 0x003c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0014 | | .CONST 0x0014 ; Number of locals 000b INIT_0008: 000b INIT_0008: 000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0282,0x0000,0x0000,0x004c,0x57e6,0x0000,0x0031 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2 = 0xf,0xfffd 0010 60cb |` | Indirect_Literal Discrete,0xdc,{0x0030a40c, 0x00000e30} 0011 02a0 | | Declare_Subprogram Null_Subprogram 0012 037e | ~ | Declare_Type Task,Defined,Visible 0013 036e | n | Declare_Variable Task,Visible 0014 00bf | | Action Accept_Activation 0015 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0015,0x028a,0x0000,0x0000,0x004c,0x5916,0x0000,0x0014 ; Debug Table 0x1.0x0 = 0x15,0xffff 0016 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0x16,0xfffe 0017 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x2 = 0x17,0xfffd 0018 60bf |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00000400} 0019 00e3 | | Load_Encached Natural_Cache 001a 03f8 | | Declare_Type Discrete,Constrained 001b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x3 = 0x1b,0xfffc 001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001d e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x4 = 0x1d,0xfffb 001e 1b0f | | Execute Package,Field_Read,Field_Number 0xf 001f 00f0 | | Load_Encached Segment_Cache 0020 e002 | | Load 0x0,0x2 0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0022 02a0 | | Declare_Subprogram Null_Subprogram 0023 4803 |H | Short_Literal 0x3 0024 032d | - | Declare_Type Record,Defined 0025 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x5 = 0x25,0xfffa 0026 60b1 |` | Indirect_Literal Discrete,0xd8,{0x00000000, 0x00000400} 0027 00da | | Load_Top At_Offset_2 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 4801 |H | Short_Literal 0x1 002a 035d | ] | Declare_Type Array,Defined 002b 00d8 | | Load_Top At_Offset_0 002c 0337 | 7 | Declare_Variable Array 002d 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x6 = 0x2d,0xfff9 002e 00c7 | | Action Elaborate_Subprogram 002f 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x7 = 0x2f,0xfff8 0030 00c7 | | Action Elaborate_Subprogram 0031 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x8 = 0x31,0xfff7 0032 00d9 | | Load_Top At_Offset_1 0033 e001 | | Load 0x0,0x1 0034 e003 | | Load 0x0,0x3 0035 e004 | | Load 0x0,0x4 0036 e005 | | Load 0x0,0x5 0037 a006 | | Store_Unchecked 0x0,0x6 0038 e002 | | Load 0x0,0x2 0039 4808 |H | Short_Literal 0x8 003a e20f | | Load 0x1,0xf 003b 020e | | Execute Module,Augment_Imports 003c BODY_0008: 003c BODY_0008: 003c 00be | | Action Activate_Tasks 003d 00bc | | Action Signal_Activated 003e 00bb | | Action Signal_Completion 003f 0000 | | .XXX[0x1] 0040 ; -------------------------------------------------------------------------------------- 0040 ; SUBPROGRAM 0040 ; -------------------------------------------------------------------------------------- 0040 0050 | P | .CONST 0x0050 ; Address of begin 0041 0004 | | .CONST 0x0004 ; Address of exception handler 0042 0004 | | .CONST 0x0004 ; Number of locals 0043 INIT_0040: 0043 e001 | | Load 0x0,0x1 ; Debug Table 0x2 = .DEBUG 0x0043,0x029e,0x0001,0x0000,0x004c,0x57e6,0x0000,0x0032 ; Debug Table 0x2.0x0 = 0x43,0xffff 0044 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0045 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x1 = 0x45,0xfffe 0046 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0047 608c |` | Indirect_Literal Discrete,0xd4,{0x00000000, 0x004c5916} ; Debug Table 0x2.0x2 = 0x47,0xfffd 0048 4870 |Hp | Short_Literal 0x70 0049 4804 |H | Short_Literal 0x4 004a 0092 01e0 | | Action Push_String_Extended,0x1e0 ; " " 004c e007 | | Load 0x0,0x7 004d 0387 | | Declare_Variable Package 004e 00d8 | | Load_Top At_Offset_0 004f 020f | | Execute Module,Activate 0050 BODY_0040: 0050 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x3 = 0x50,0x1 0051 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "job" 0053 00da | | Load_Top At_Offset_2 0054 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0055 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x4 = 0x55,0x2 0056 0092 01e2 | | Action Push_String_Extended,0x1e2 ; "task" 0058 00da | | Load_Top At_Offset_2 0059 1812 | | Execute Package,Field_Execute,Field_Number 0x12 005a 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x5 = 0x5a,0x3 005b 0092 01e3 | | Action Push_String_Extended,0x1e3 ; "heap length" 005d 00da | | Load_Top At_Offset_2 005e 1812 | | Execute Package,Field_Execute,Field_Number 0x12 005f 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x6 = 0x5f,0x4 0060 0092 01e4 | | Action Push_String_Extended,0x1e4 ; "heap used" 0062 00da | | Load_Top At_Offset_2 0063 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0064 00cf | | Action Mark_Auxiliary 0065 e211 | | Load 0x1,0x11 ; Debug Table 0x2.0x7 = 0x65,0x5 0066 4801 |H | Short_Literal 0x1 0067 0263 | c | Execute Discrete,Above_Bound 0068 703e |p> | Jump_Nonzero 0xa7 0069 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x8 = 0x69,0x6 006a e214 | | Load 0x1,0x14 006b 01d5 | | Execute Vector,Field_Reference 006c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 006d a402 | | Store_Unchecked 0x2,0x2 006e e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x9 = 0x6e,0x7 006f e001 | | Load 0x0,0x1 0070 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0071 a403 | | Store_Unchecked 0x2,0x3 0072 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xa = 0x72,0x8 0073 e001 | | Load 0x0,0x1 0074 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0075 682f |h/ | Jump_Zero 0xa5 0076 e5ff | | Load 0x2,-0x1 0077 6804 |h | Jump_Zero 0x7c 0078 e5ff | | Load 0x2,-0x1 0079 e403 | | Load 0x2,0x3 007a 027f | | Execute Discrete,Equal 007b 7801 |x | Jump 0x7d 007c 4801 |H | Short_Literal 0x1 007d 6827 |h' | Jump_Zero 0xa5 007e e403 | | Load 0x2,0x3 ; Debug Table 0x2.0xb = 0x7e,0x9 007f 00e0 | | Load_Encached Standard_Cache 0080 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0081 e404 | | Load 0x2,0x4 0082 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0083 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "16#" ; Debug Table 0x2.0xc = 0x83,0xa 0085 4830 |H0 | Short_Literal 0x30 0086 4800 |H | Short_Literal 0x0 0087 4810 |H | Short_Literal 0x10 0088 e402 | | Load 0x2,0x2 0089 e008 | | Load 0x0,0x8 008a 1817 | | Execute Package,Field_Execute,Field_Number 0x17 008b 01cc | | Execute Vector,Catenate 008c 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "#" 008e 01cc | | Execute Vector,Catenate 008f e404 | | Load 0x2,0x4 0090 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0091 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xd = 0x91,0xb 0092 e214 | | Load 0x1,0x14 0093 01d5 | | Execute Vector,Field_Reference 0094 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0095 e009 | | Load 0x0,0x9 0096 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0097 00e0 | | Load_Encached Standard_Cache 0098 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0099 e404 | | Load 0x2,0x4 009a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 009b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0xe = 0x9b,0xc 009c e214 | | Load 0x1,0x14 009d 01d5 | | Execute Vector,Field_Reference 009e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 009f e009 | | Load 0x0,0x9 00a0 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a1 00e0 | | Load_Encached Standard_Cache 00a2 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00a3 e404 | | Load 0x2,0x4 00a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a5 00c8 | | Action Pop_Auxiliary_Range 00a6 3fc2 |? | Loop_Increasing 0x69 00a7 00ce | | Action Pop_Auxiliary 00a8 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0xf = 0xa8,0xd 00a9 00d9 | | Load_Top At_Offset_1 00aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ab e00a | | Load 0x0,0xa ; Debug Table 0x2.0x10 = 0xab,0xe 00ac 182e | . | Execute Package,Field_Execute,Field_Number 0x2e 00ad 00d9 | | Load_Top At_Offset_1 00ae 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00af 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x11 = 0xaf,0xf 00b0 e00a | | Load 0x0,0xa 00b1 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00b2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00b3 0000 0000 | | .BLANK 0000[0x5] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00cf | | Action Mark_Auxiliary ; Debug Table 0x3 = .DEBUG 0x00bb,0x02c4,0x0002,0x0000,0x004c,0x57e6,0x0000,0x003f 00bc e211 | | Load 0x1,0x11 ; Debug Table 0x3.0x0 = 0xbc,0x1 00bd 4801 |H | Short_Literal 0x1 00be 0263 | c | Execute Discrete,Above_Bound 00bf 700e |p | Jump_Nonzero 0xce 00c0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0xc0,0x2 00c1 e214 | | Load 0x1,0x14 00c2 01d5 | | Execute Vector,Field_Reference 00c3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00c4 e5ff | | Load 0x2,-0x1 00c5 021f | | Execute Heap_Access,Equal 00c6 6805 |h | Jump_Zero 0xcc 00c7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0xc7,0x3 00c8 e214 | | Load 0x1,0x14 00c9 01d5 | | Execute Vector,Field_Reference 00ca 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00cb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00cc 00c8 | | Action Pop_Auxiliary_Range 00cd 3ff2 |? | Loop_Increasing 0xc0 00ce 00ce | | Action Pop_Auxiliary 00cf 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x3.0x3 = 0xcf,0x4 00d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d1 0000 0000 | | .XXX[0x3] 00d3 0000 | | 00d4 0000 0000 | | .LITERAL {0x00000000, 0x004c5916} 00d8 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 00dc 0030 a40c | 0 | .LITERAL {0x0030a40c, 0x00000e30} 00e0 00ef 0004 | | .XXX[0x3] 00e2 0011 | | 00e3 4804 |H | Short_Literal 0x4 ; Debug Table 0x4 = .DEBUG 0x00e3,0x02ce,0x0000,0x0000,0x004c,0x57e6,0x0000,0x004a 00e4 02cb | | Declare_Variable Entry 00e5 4801 |H | Short_Literal 0x1 00e6 02cb | | Declare_Variable Entry 00e7 00bf | | Action Accept_Activation 00e8 029d 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call ; Debug Table 0x5 = .DEBUG 0x00e8,0x02d0,0x0000,0x0000,0x004c,0x5916,0x0000,0x016b ; Debug Table 0x5.0x0 = 0xe8,0xffff 00ea 029d 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call ; Debug Table 0x5.0x1 = 0xea,0xfffe 00ec 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call 00ee 00bc | | Action Signal_Activated 00ef 00cf | | Action Mark_Auxiliary 00f0 0007 | | Action Break_Optional ; Debug Table 0x5.0x2 = 0xf0,0x1 00f1 8211 | | Call 0x1,0x11 ; Debug Table 0x5.0x3 = 0xf1,0x2 00f2 00c9 | | Action Pop_Auxiliary_Loop 00f3 7ffd | | Jump 0xf1 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00ff | | .CONST 0x00ff ; Address of begin 00f9 016f | o | .CONST 0x016f ; Address of exception handler 00fa 0003 | | .CONST 0x0003 ; Number of locals 00fb INIT_00f8: 00fb 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x6 = .DEBUG 0x00fb,0x02da,0x0001,0x0000,0x004c,0x5916,0x0000,0x016c ; Debug Table 0x6.0x0 = 0xfb,0xffff 00fc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00fd 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x6.0x1 = 0xfd,0xfffe 00fe 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ff BODY_00f8: 00ff 00cf | | Action Mark_Auxiliary 0100 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0x2 = 0x100,0x1 0101 4801 |H | Short_Literal 0x1 0102 0263 | c | Execute Discrete,Above_Bound 0103 7029 |p) | Jump_Nonzero 0x12d 0104 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0x104,0x2 0105 e002 | | Load 0x0,0x2 0106 01d5 | | Execute Vector,Field_Reference 0107 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0108 e5ff | | Load 0x2,-0x1 0109 027f | | Execute Discrete,Equal 010a 6807 |h | Jump_Zero 0x112 010b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0x10b,0x3 010c e002 | | Load 0x0,0x2 010d 01d5 | | Execute Vector,Field_Reference 010e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 010f a5fd | | Store_Unchecked 0x2,-0x3 0110 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x5 = 0x110,0x4 0111 a402 | | Store_Unchecked 0x2,0x2 0112 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x6 = 0x112,0x5 0113 e002 | | Load 0x0,0x2 0114 01d5 | | Execute Vector,Field_Reference 0115 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0116 e003 | | Load 0x0,0x3 0117 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0118 7012 |p | Jump_Nonzero 0x12b 0119 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x7 = 0x119,0x6 011a a403 | | Store_Unchecked 0x2,0x3 011b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x8 = 0x11b,0x7 011c e002 | | Load 0x0,0x2 011d 01d5 | | Execute Vector,Field_Reference 011e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 011f 680b |h | Jump_Zero 0x12b 0120 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x9 = 0x120,0x8 0121 e002 | | Load 0x0,0x2 0122 01d5 | | Execute Vector,Field_Reference 0123 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0124 e004 | | Load 0x0,0x4 0125 180f | | Execute Package,Field_Execute,Field_Number 0xf 0126 4800 |H | Short_Literal 0x0 ; Debug Table 0x6.0xa = 0x126,0x9 0127 00d9 | | Load_Top At_Offset_1 0128 e002 | | Load 0x0,0x2 0129 01d5 | | Execute Vector,Field_Reference 012a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012b 00c8 | | Action Pop_Auxiliary_Range 012c 3fd7 |? | Loop_Increasing 0x104 012d 00ce | | Action Pop_Auxiliary 012e 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0xb = 0x12e,0xa 012f 6803 |h | Jump_Zero 0x133 0130 e5fe | | Load 0x2,-0x2 0131 7001 |p | Jump_Nonzero 0x133 0132 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0xc = 0x132,0xb 0133 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0xd = 0x133,0xc 0134 7005 |p | Jump_Nonzero 0x13a 0135 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0xe = 0x135,0xd 0136 0a01 | | Execute_Immediate Plus,0x1 0137 c001 | | Store 0x0,0x1 0138 e001 | | Load 0x0,0x1 ; Debug Table 0x6.0xf = 0x138,0xe 0139 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 013a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x10 = 0x13a,0xf 013b e002 | | Load 0x0,0x2 013c 01d7 | | Execute Vector,Field_Read 013d 00f0 | | Load_Encached Segment_Cache 013e 48f4 |H | Short_Literal 0xf4 013f 4800 |H | Short_Literal 0x0 0140 4801 |H | Short_Literal 0x1 0141 e004 | | Load 0x0,0x4 0142 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0143 00d9 | | Load_Top At_Offset_1 0144 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0145 00d1 | | Pop_Control Pop_Count_1 0146 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x11 = 0x146,0x10 0147 e002 | | Load 0x0,0x2 0148 01d5 | | Execute Vector,Field_Reference 0149 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 014a 00f0 | | Load_Encached Segment_Cache 014b 021f | | Execute Heap_Access,Equal 014c 680a |h | Jump_Zero 0x157 014d e5fc | | Load 0x2,-0x4 ; Debug Table 0x6.0x12 = 0x14d,0x11 014e 4802 |H | Short_Literal 0x2 014f 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "Cannot allocate Temp_Heap for Mail2." 0151 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "Heap_Mgr.Get_Heap" 0153 e005 | | Load 0x0,0x5 0154 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0155 c5fc | | Store 0x2,-0x4 0156 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x6.0x13 = 0x156,0x12 0157 6084 |` | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x00080000} ; Debug Table 0x6.0x14 = 0x157,0x13 0158 6083 |` | Indirect_Literal Discrete,0x1dc,{0x00000000, 0x00080000} 0159 4800 |H | Short_Literal 0x0 015a 00db | | Load_Top At_Offset_3 015b e002 | | Load 0x0,0x2 015c 01d5 | | Execute Vector,Field_Reference 015d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 015e e006 | | Load 0x0,0x6 015f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0160 00d9 | | Load_Top At_Offset_1 0161 e002 | | Load 0x0,0x2 0162 01d5 | | Execute Vector,Field_Reference 0163 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0164 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x15 = 0x164,0x14 0165 00d9 | | Load_Top At_Offset_1 0166 e002 | | Load 0x0,0x2 0167 01d5 | | Execute Vector,Field_Reference 0168 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0169 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x16 = 0x169,0x15 016a e002 | | Load 0x0,0x2 016b 01d5 | | Execute Vector,Field_Reference 016c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 016d a5fd | | Store_Unchecked 0x2,-0x3 016e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 016f TRAP_00f8: 016f 0007 | | Action Break_Optional 0170 e5fc | | Load 0x2,-0x4 ; Debug Table 0x6.0x17 = 0x170,0x16 0171 4802 |H | Short_Literal 0x2 0172 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "Heap_Mgr.Get_Heap" 0174 8007 | | Call 0x0,0x7 0175 0092 01e9 | | Action Push_String_Extended,0x1e9 ; "Transfer Internal Error" 0177 e005 | | Load 0x0,0x5 0178 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0179 c5fc | | Store 0x2,-0x4 017a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 017b 0000 0000 | | .BLANK 0000[0x5] 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 00cf | | Action Mark_Auxiliary ; Debug Table 0x7 = .DEBUG 0x0183,0x030c,0x0001,0x0000,0x004c,0x5916,0x0000,0x0270 0184 e001 | | Load 0x0,0x1 ; Debug Table 0x7.0x0 = 0x184,0x1 0185 4801 |H | Short_Literal 0x1 0186 0263 | c | Execute Discrete,Above_Bound 0187 7023 |p# | Jump_Nonzero 0x1ab 0188 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x1 = 0x188,0x2 0189 e002 | | Load 0x0,0x2 018a 01d5 | | Execute Vector,Field_Reference 018b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 018c e5ff | | Load 0x2,-0x1 018d 021f | | Execute Heap_Access,Equal 018e 7008 |p | Jump_Nonzero 0x197 018f 00d8 | | Load_Top At_Offset_0 0190 e002 | | Load 0x0,0x2 0191 01d5 | | Execute Vector,Field_Reference 0192 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0193 e003 | | Load 0x0,0x3 0194 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0195 0f00 | | Execute_Immediate Equal,0x0 0196 7801 |x | Jump 0x198 0197 4801 |H | Short_Literal 0x1 0198 6810 |h | Jump_Zero 0x1a9 0199 00d8 | | Load_Top At_Offset_0 019a e002 | | Load 0x0,0x2 019b 01d5 | | Execute Vector,Field_Reference 019c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 019d 680b |h | Jump_Zero 0x1a9 019e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0x19e,0x3 019f e002 | | Load 0x0,0x2 01a0 01d5 | | Execute Vector,Field_Reference 01a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01a2 e004 | | Load 0x0,0x4 01a3 180f | | Execute Package,Field_Execute,Field_Number 0xf 01a4 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x3 = 0x1a4,0x4 01a5 00d9 | | Load_Top At_Offset_1 01a6 e002 | | Load 0x0,0x2 01a7 01d5 | | Execute Vector,Field_Reference 01a8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a9 00c8 | | Action Pop_Auxiliary_Range 01aa 3fdd |? | Loop_Increasing 0x188 01ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ac 0000 0000 | | .BLANK 0000[0x4] 01b0 ; -------------------------------------------------------------------------------------- 01b0 ; SUBPROGRAM 01b0 ; -------------------------------------------------------------------------------------- 01b0 01bc | | .CONST 0x01bc ; Address of begin 01b1 01c3 | | .CONST 0x01c3 ; Address of exception handler 01b2 0002 | | .CONST 0x0002 ; Number of locals 01b3 INIT_01b0: 01b3 480e 4839 |H H9| Declare_Variable Select 0x000, 0x002, ; Debug Table 0x8 = .DEBUG 0x01b3,0x0316,0x0004,0x0000,0x004c,0x5916,0x0000,0x030d 01b5 480d 483a |H H:| [0x000]: 0x001 = 0x0008, 01b7 4800 4801 |H H | [0x00d]: 0x03a = 0x01d0, 01b9 4800 4802 |H H | [0x00e]: 0x039 = 0x01c8 01bb 02cf | | 01bc BODY_01b0: 01bc 00cf | | Action Mark_Auxiliary 01bd 0007 | | Action Break_Optional ; Debug Table 0x8.0x0 = 0x1bd,0x1 01be 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x8.0x1 = 0x1be,0x2 01bf 013f | ? | Execute Select,Rendezvous 01c0 00d1 | | Pop_Control Pop_Count_1 01c1 00c9 | | Action Pop_Auxiliary_Loop 01c2 7ffb | | Jump 0x1be 01c3 TRAP_01b0: 01c3 0007 | | Action Break_Optional 01c4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x8.0x2 = 0x1c4,0x5 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; See instruction 0x02cf at 0x1b3, index=0xe 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 00db | | Load_Top At_Offset_3 ; Debug Table 0x9 = .DEBUG 0x01cb,0x031e,0x0003,0x0000,0x004c,0x5916,0x0000,0x02fb ; Debug Table 0x9.0x0 = 0x1cb,0x1 01cc 8210 | | Call 0x1,0x10 01cd 4100 |A | End_Rendezvous 0x0 01ce 0000 0000 | | .XXX[0x2] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; See instruction 0x02cf at 0x1b3, index=0xd 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 e7fb | | Load 0x3,-0x5 ; Debug Table 0xa = .DEBUG 0x01d3,0x0322,0x0003,0x0000,0x004c,0x5916,0x0000,0x02ed ; Debug Table 0xa.0x0 = 0x1d3,0x1 01d4 e008 | | Load 0x0,0x8 01d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01d6 e7fd | | Load 0x3,-0x3 01d7 e7fe | | Load 0x3,-0x2 01d8 820f | | Call 0x1,0xf 01d9 c7fc | | Store 0x3,-0x4 01da c7fb | | Store 0x3,-0x5 01db 4102 |A | End_Rendezvous 0x2 01dc 0000 0000 | | .LITERAL {0x00000000, 0x00080000} 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; STRING TABLE 01e0 ; -------------------------------------------------------------------------------------- 01e0 0016 | | .STRTAB 0x0016->0x01eb ; " " 01e1 0015 | | .STRTAB 0x0015->0x01eb ; "job" 01e2 0016 | | .STRTAB 0x0016->0x01ed ; "task" 01e3 0018 | | .STRTAB 0x0018->0x01ef ; "heap length" 01e4 0021 | ! | .STRTAB 0x0021->0x01f4 ; "heap used" 01e5 0028 | ( | .STRTAB 0x0028->0x01f9 ; "16#" 01e6 0029 | ) | .STRTAB 0x0029->0x01fa ; "#" 01e7 0028 | ( | .STRTAB 0x0028->0x01fb ; "Cannot allocate Temp_Heap for Mail2." 01e8 004a | J | .STRTAB 0x004a->0x020d ; "Heap_Mgr.Get_Heap" 01e9 0059 | Y | .STRTAB 0x0059->0x0215 ; "Transfer Internal Error" 01ea 006e | n | .STREND 0x006e->0x0221 01eb 206a 6f62 | job| .STRTAB_STRINGS 0221 0000 0000 | | .BLANK 0000[0x7] 0228 ; -------------------------------------------------------------------------------------- 0228 ; Debug Table 0228 ; -------------------------------------------------------------------------------------- 0228 0003 000b | | .CONST 0x0003,0x000b 022a 000b 0282 | | .DEBUG 0x000b,0x0282,0x0000,0x0000,0x004c,0x57e6,0x0000,0x0031 0232 0015 028a | | .DEBUG 0x0015,0x028a,0x0000,0x0000,0x004c,0x5916,0x0000,0x0014 023a 0043 029e | C | .DEBUG 0x0043,0x029e,0x0001,0x0000,0x004c,0x57e6,0x0000,0x0032 0242 00bb 02c4 | | .DEBUG 0x00bb,0x02c4,0x0002,0x0000,0x004c,0x57e6,0x0000,0x003f 024a 00e3 02ce | | .DEBUG 0x00e3,0x02ce,0x0000,0x0000,0x004c,0x57e6,0x0000,0x004a 0252 00e8 02d0 | | .DEBUG 0x00e8,0x02d0,0x0000,0x0000,0x004c,0x5916,0x0000,0x016b 025a 00fb 02da | | .DEBUG 0x00fb,0x02da,0x0001,0x0000,0x004c,0x5916,0x0000,0x016c 0262 0183 030c | | .DEBUG 0x0183,0x030c,0x0001,0x0000,0x004c,0x5916,0x0000,0x0270 026a 01b3 0316 | | .DEBUG 0x01b3,0x0316,0x0004,0x0000,0x004c,0x5916,0x0000,0x030d 0272 01cb 031e | | .DEBUG 0x01cb,0x031e,0x0003,0x0000,0x004c,0x5916,0x0000,0x02fb 027a 01d3 0322 | "| .DEBUG 0x01d3,0x0322,0x0003,0x0000,0x004c,0x5916,0x0000,0x02ed 0282 ; -------------------------------------------------------------------------------------- 0282 ; Debug3 Subtable 0x0 0282 ; -------------------------------------------------------------------------------------- 0282 0003 0000 | | .DBG3TAB 0x0003,0x0000 0284 000b ffff | | .CONST 0x000b,0xffff 0286 000d fffe | | .CONST 0x000d,0xfffe 0288 000f fffd | | .CONST 0x000f,0xfffd 028a ; -------------------------------------------------------------------------------------- 028a ; Debug3 Subtable 0x1 028a ; -------------------------------------------------------------------------------------- 028a 0009 0000 | | .DBG3TAB 0x0009,0x0000 028c 0015 ffff | | .CONST 0x0015,0xffff 028e 0016 fffe | | .CONST 0x0016,0xfffe 0290 0017 fffd | | .CONST 0x0017,0xfffd 0292 001b fffc | | .CONST 0x001b,0xfffc 0294 001d fffb | | .CONST 0x001d,0xfffb 0296 0025 fffa | % | .CONST 0x0025,0xfffa 0298 002d fff9 | - | .CONST 0x002d,0xfff9 029a 002f fff8 | / | .CONST 0x002f,0xfff8 029c 0031 fff7 | 1 | .CONST 0x0031,0xfff7 029e ; -------------------------------------------------------------------------------------- 029e ; Debug3 Subtable 0x2 029e ; -------------------------------------------------------------------------------------- 029e 0003 000f | | .DBG3TAB 0x0003,0x000f 02a0 0043 ffff | C | .CONST 0x0043,0xffff 02a2 0045 fffe | E | .CONST 0x0045,0xfffe 02a4 0047 fffd | G | .CONST 0x0047,0xfffd 02a6 0050 0001 | P | .CONST 0x0050,0x0001 02a8 0055 0002 | U | .CONST 0x0055,0x0002 02aa 005a 0003 | Z | .CONST 0x005a,0x0003 02ac 005f 0004 | _ | .CONST 0x005f,0x0004 02ae 0065 0005 | e | .CONST 0x0065,0x0005 02b0 0069 0006 | i | .CONST 0x0069,0x0006 02b2 006e 0007 | n | .CONST 0x006e,0x0007 02b4 0072 0008 | r | .CONST 0x0072,0x0008 02b6 007e 0009 | ~ | .CONST 0x007e,0x0009 02b8 0083 000a | | .CONST 0x0083,0x000a 02ba 0091 000b | | .CONST 0x0091,0x000b 02bc 009b 000c | | .CONST 0x009b,0x000c 02be 00a8 000d | | .CONST 0x00a8,0x000d 02c0 00ab 000e | | .CONST 0x00ab,0x000e 02c2 00af 000f | | .CONST 0x00af,0x000f 02c4 ; -------------------------------------------------------------------------------------- 02c4 ; Debug3 Subtable 0x3 02c4 ; -------------------------------------------------------------------------------------- 02c4 0000 0004 | | .DBG3TAB 0x0000,0x0004 02c6 00bc 0001 | | .CONST 0x00bc,0x0001 02c8 00c0 0002 | | .CONST 0x00c0,0x0002 02ca 00c7 0003 | | .CONST 0x00c7,0x0003 02cc 00cf 0004 | | .CONST 0x00cf,0x0004 02ce ; -------------------------------------------------------------------------------------- 02ce ; Debug3 Subtable 0x4 02ce ; -------------------------------------------------------------------------------------- 02ce 0000 0000 | | .DBG3TAB 0x0000,0x0000 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; Debug3 Subtable 0x5 02d0 ; -------------------------------------------------------------------------------------- 02d0 0002 0002 | | .DBG3TAB 0x0002,0x0002 02d2 00e8 ffff | | .CONST 0x00e8,0xffff 02d4 00ea fffe | | .CONST 0x00ea,0xfffe 02d6 00f0 0001 | | .CONST 0x00f0,0x0001 02d8 00f1 0002 | | .CONST 0x00f1,0x0002 02da ; -------------------------------------------------------------------------------------- 02da ; Debug3 Subtable 0x6 02da ; -------------------------------------------------------------------------------------- 02da 0002 0016 | | .DBG3TAB 0x0002,0x0016 02dc 00fb ffff | | .CONST 0x00fb,0xffff 02de 00fd fffe | | .CONST 0x00fd,0xfffe 02e0 0100 0001 | | .CONST 0x0100,0x0001 02e2 0104 0002 | | .CONST 0x0104,0x0002 02e4 010b 0003 | | .CONST 0x010b,0x0003 02e6 0110 0004 | | .CONST 0x0110,0x0004 02e8 0112 0005 | | .CONST 0x0112,0x0005 02ea 0119 0006 | | .CONST 0x0119,0x0006 02ec 011b 0007 | | .CONST 0x011b,0x0007 02ee 0120 0008 | | .CONST 0x0120,0x0008 02f0 0126 0009 | & | .CONST 0x0126,0x0009 02f2 012e 000a | . | .CONST 0x012e,0x000a 02f4 0132 000b | 2 | .CONST 0x0132,0x000b 02f6 0133 000c | 3 | .CONST 0x0133,0x000c 02f8 0135 000d | 5 | .CONST 0x0135,0x000d 02fa 0138 000e | 8 | .CONST 0x0138,0x000e 02fc 013a 000f | : | .CONST 0x013a,0x000f 02fe 0146 0010 | F | .CONST 0x0146,0x0010 0300 014d 0011 | M | .CONST 0x014d,0x0011 0302 0156 0012 | V | .CONST 0x0156,0x0012 0304 0157 0013 | W | .CONST 0x0157,0x0013 0306 0164 0014 | d | .CONST 0x0164,0x0014 0308 0169 0015 | i | .CONST 0x0169,0x0015 030a 0170 0016 | p | .CONST 0x0170,0x0016 030c ; -------------------------------------------------------------------------------------- 030c ; Debug3 Subtable 0x7 030c ; -------------------------------------------------------------------------------------- 030c 0000 0004 | | .DBG3TAB 0x0000,0x0004 030e 0184 0001 | | .CONST 0x0184,0x0001 0310 0188 0002 | | .CONST 0x0188,0x0002 0312 019e 0003 | | .CONST 0x019e,0x0003 0314 01a4 0004 | | .CONST 0x01a4,0x0004 0316 ; -------------------------------------------------------------------------------------- 0316 ; Debug3 Subtable 0x8 0316 ; -------------------------------------------------------------------------------------- 0316 0000 0003 | | .DBG3TAB 0x0000,0x0003 0318 01bd 0001 | | .CONST 0x01bd,0x0001 031a 01be 0002 | | .CONST 0x01be,0x0002 031c 01c4 0005 | | .CONST 0x01c4,0x0005 031e ; -------------------------------------------------------------------------------------- 031e ; Debug3 Subtable 0x9 031e ; -------------------------------------------------------------------------------------- 031e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0320 01cb 0001 | | .CONST 0x01cb,0x0001 0322 ; -------------------------------------------------------------------------------------- 0322 ; Debug3 Subtable 0xa 0322 ; -------------------------------------------------------------------------------------- 0322 0000 0001 | | .DBG3TAB 0x0000,0x0001 0324 01d3 0001 | | .CONST 0x01d3,0x0001 0326 0000 0000 | | .BLANK 0000[0xda]