|
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: 3072 (0xc00) Notes: 00_class, 5812_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_07b4f8
└─⟦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 02e8 | | .CONST 0x02e8 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00a5 | | .CONST 0x00a5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002e | . | .CONST 0x002e ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x03a2,0x8000,0x0000,0x004c,0x3106,0x0000,0x000e ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe 000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd 000e 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x3 = 0xe,0xfffc 000f 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x4 = 0xf,0xfffb 0010 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x5 = 0x10,0xfffa 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0013 0129 | ) | Execute Any,Make_Visible 0014 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x6 = 0x14,0xfff9 0015 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0016 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0017 0129 | ) | Execute Any,Make_Visible 0018 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x18,0xfff8 0019 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001a 1b11 | | Execute Package,Field_Read,Field_Number 0x11 001b 0129 | ) | Execute Any,Make_Visible 001c 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1c,0xfff7 001e e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x9 = 0x1e,0xfff6 001f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0020 1916 | | Execute Package,Field_Reference,Field_Number 0x16 0021 0129 | ) | Execute Any,Make_Visible 0022 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x22,0xfff5 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 1917 | | Execute Package,Field_Reference,Field_Number 0x17 0025 0129 | ) | Execute Any,Make_Visible 0026 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xb = 0x26,0xfff4 0027 4807 |H | Short_Literal 0x7 0028 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 002a 03fe | | Declare_Type Discrete,Defined,Visible 002b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x2b,0xfff3 002d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x2d,0xfff2 002f 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2f,0xfff1 0031 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x31,0xfff0 0033 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x33,0xffef 0035 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x35,0xffee 0037 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x12 = 0x37,0xffed 0039 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x13 = 0x39,0xffec 003b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x14 = 0x3b,0xffeb 003d 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x15 = 0x3d,0xffea 003f 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x16 = 0x3f,0xffe9 0041 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x17 = 0x41,0xffe8 0043 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x18 = 0x43,0xffe7 0045 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x19 = 0x45,0xffe6 0047 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1a = 0x47,0xffe5 0049 0007 | | Action Break_Optional ; Debug Table 0x0.0x1b = 0x49,0xffe4 004a 6259 |bY | Indirect_Literal Discrete,0x2a4,{0x00000000, 0x4c310601} ; Debug Table 0x0.0x1c = 0x4a,0xffe3 004b 0129 | ) | Execute Any,Make_Visible 004c 6253 |bS | Indirect_Literal Discrete,0x2a0,{0x00000000, 0x4c310602} ; Debug Table 0x0.0x1d = 0x4c,0xffe2 004d 0129 | ) | Execute Any,Make_Visible 004e 0007 | | Action Break_Optional ; Debug Table 0x0.0x1e = 0x4e,0xffe1 004f e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1f = 0x4f,0xffe0 0050 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0051 e215 | | Load 0x1,0x15 0052 02a0 | | Declare_Subprogram Null_Subprogram 0053 4802 |H | Short_Literal 0x2 0054 032d | - | Declare_Type Record,Defined 0055 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x20 = 0x55,0xffdf 0056 02a0 | | Declare_Subprogram Null_Subprogram 0057 03ad | | Declare_Type Heap_Access,Defined 0058 0007 | | Action Break_Optional ; Debug Table 0x0.0x21 = 0x58,0xffde 0059 0007 | | Action Break_Optional ; Debug Table 0x0.0x22 = 0x59,0xffdd 005a 029b 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Unelaborated ; Debug Table 0x0.0x23 = 0x5a,0xffdc 005c 623f |b? | Indirect_Literal Discrete,0x29c,{0x00000000, 0x004c3106} ; Debug Table 0x0.0x24 = 0x5c,0xffdb 005d 4949 |II | Short_Literal 0x149 005e 00db | | Load_Top At_Offset_3 005f 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 0060 4814 |H | Short_Literal 0x14 0061 e003 | | Load 0x0,0x3 0062 0387 | | Declare_Variable Package 0063 00d8 | | Load_Top At_Offset_0 0064 020f | | Execute Module,Activate 0065 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x25 = 0x65,0xffda 0066 e002 | | Load 0x0,0x2 0067 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0068 00da | | Load_Top At_Offset_2 0069 1b12 | | Execute Package,Field_Read,Field_Number 0x12 006a 00f0 | | Load_Encached Segment_Cache 006b 029f 026b | k| Declare_Subprogram INIT_0268,For_Call 006d 4804 |H | Short_Literal 0x4 006e 032d | - | Declare_Type Record,Defined 006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x26 = 0x6f,0xffd9 0070 02a0 | | Declare_Subprogram Null_Subprogram 0071 e20d | | Load 0x1,0xd 0072 03a3 | | Complete_Type Heap_Access,By_Defining 0073 0007 | | Action Break_Optional ; Debug Table 0x0.0x27 = 0x73,0xffd8 0074 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x28 = 0x74,0xffd7 0075 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0076 e20d | | Load 0x1,0xd 0077 02a0 | | Declare_Subprogram Null_Subprogram 0078 4802 |H | Short_Literal 0x2 0079 032d | - | Declare_Type Record,Defined 007a 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x29 = 0x7a,0xffd6 007b 02a0 | | Declare_Subprogram Null_Subprogram 007c e20e | | Load 0x1,0xe 007d 03a3 | | Complete_Type Heap_Access,By_Defining 007e 00bf | | Action Accept_Activation ; Debug Table 0x0.0x2a = 0x7e,0xffd5 007f 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29 ; Debug Table 0x1 = .DEBUG 0x007f,0x03fa,0x8000,0x0000,0x004c,0x35b6,0x0000,0x0009 ; Debug Table 0x1.0x0 = 0x7f,0xffff 0080 00c7 | | Action Elaborate_Subprogram 0081 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call ; Debug Table 0x1.0x1 = 0x81,0xfffe 0083 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call ; Debug Table 0x1.0x2 = 0x83,0xfffd 0085 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x3 = 0x85,0xfffc 0086 00c7 | | Action Elaborate_Subprogram 0087 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x4 = 0x87,0xfffb 0088 00c7 | | Action Elaborate_Subprogram 0089 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x5 = 0x89,0xfffa 008a 00c7 | | Action Elaborate_Subprogram 008b 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x6 = 0x8b,0xfff9 008c 00c7 | | Action Elaborate_Subprogram 008d 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x7 = 0x8d,0xfff8 008e 00c7 | | Action Elaborate_Subprogram 008f 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x8 = 0x8f,0xfff7 0090 00c7 | | Action Elaborate_Subprogram 0091 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x9 = 0x91,0xfff6 0092 00c7 | | Action Elaborate_Subprogram 0093 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xa = 0x93,0xfff5 0094 00c7 | | Action Elaborate_Subprogram 0095 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xb = 0x95,0xfff4 0096 00c7 | | Action Elaborate_Subprogram 0097 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xc = 0x97,0xfff3 0098 00c7 | | Action Elaborate_Subprogram 0099 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xd = 0x99,0xfff2 009a 00c7 | | Action Elaborate_Subprogram 009b 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0xe = 0x9b,0xfff1 009c 00c7 | | Action Elaborate_Subprogram 009d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0xf = 0x9d,0xfff0 009e 00c7 | | Action Elaborate_Subprogram 009f 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0x10 = 0x9f,0xffef 00a0 00c7 | | Action Elaborate_Subprogram 00a1 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 ; Debug Table 0x1.0x11 = 0xa1,0xffee 00a2 00c7 | | Action Elaborate_Subprogram 00a3 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 ; Debug Table 0x1.0x12 = 0xa3,0xffed 00a4 00c7 | | Action Elaborate_Subprogram 00a5 BODY_0008: 00a5 00bc | | Action Signal_Activated 00a6 00bb | | Action Signal_Completion 00a7 0000 | | .XXX[0x1] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab 4801 |H | Short_Literal 0x1 ; Debug Table 0x2 = .DEBUG 0x00ab,0x0422,0x0002,0x0000,0x004c,0x3106,0x0000,0x003c ; Debug Table 0x2.0x0 = 0xab,0x1 00ac 00db | | Load_Top At_Offset_3 00ad e001 | | Load 0x0,0x1 00ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00af 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b1 0000 0000 | | .BLANK 0000[0x7] 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 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x00bb,0x0426,0x0005,0x0000,0x004c,0x3106,0x0000,0x0063 00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00bd 7802 |x | Jump 0xc0 ; case 0x1 00be 7805 |x | Jump 0xc4 ; case 0x2 00bf 7809 |x | Jump 0xc9 ; case 0x3 00c0 00da | | Load_Top At_Offset_2 00c1 0091 02a8 | | Action Push_String_Extended_Indexed,0x2a8 ; "UNPROCESSED" 00c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00c4 00db | | Load_Top At_Offset_3 00c5 00db | | Load_Top At_Offset_3 00c6 00e0 | | Load_Encached Standard_Cache 00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00c9 00da | | Load_Top At_Offset_2 00ca 00e0 | | Load_Encached Standard_Cache 00cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00cd 0000 0000 | | .XXX[0x3] 00cf 0000 | | 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 e20d | | Load 0x1,0xd ; Debug Table 0x4 = .DEBUG 0x00d3,0x0428,0x0001,0x0000,0x004c,0x3106,0x0000,0x006f ; Debug Table 0x4.0x0 = 0xd3,0x1 00d4 00db | | Load_Top At_Offset_3 00d5 039c | | Declare_Variable Heap_Access,By_Allocation 00d6 00d8 | | Load_Top At_Offset_0 00d7 0217 | | Execute Heap_Access,All_Reference 00d8 1c00 | | Execute_Immediate Run_Utility,0x0 00d9 a5fe | | Store_Unchecked 0x2,-0x2 00da 0007 | | Action Break_Optional ; Debug Table 0x4.0x1 = 0xda,0x2 00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x2 = 0xdb,0x3 00dc e5fe | | Load 0x2,-0x2 00dd 0217 | | Execute Heap_Access,All_Reference 00de 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00df 487f |H | Short_Literal 0x7f ; Debug Table 0x4.0x3 = 0xdf,0x4 00e0 00db | | Load_Top At_Offset_3 00e1 e002 | | Load 0x0,0x2 00e2 180f | | Execute Package,Field_Execute,Field_Number 0xf 00e3 e5fe | | Load 0x2,-0x2 00e4 0217 | | Execute Heap_Access,All_Reference 00e5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00e6 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x4 = 0xe6,0x5 00e7 e5fe | | Load 0x2,-0x2 00e8 0217 | | Execute Heap_Access,All_Reference 00e9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00ea 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x5 = 0xea,0x6 00eb 0219 | | Execute Heap_Access,All_Read 00ec e22a | * | Load 0x1,0x2a 00ed 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00ee e5ff | | Load 0x2,-0x1 00ef e22a | * | Load 0x1,0x2a 00f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f1 00d9 | | Load_Top At_Offset_1 00f2 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fb | | .CONST 0x00fb ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0001 | | .CONST 0x0001 ; Number of locals 00fb BODY_00f8: 00fb INIT_00f8: 00fb e20d | | Load 0x1,0xd ; Debug Table 0x5 = .DEBUG 0x00fb,0x0436,0x0002,0x0000,0x004c,0x3106,0x0000,0x007d ; Debug Table 0x5.0x0 = 0xfb,0x1 00fc 00ca | | Action Exit_Nullary_Function 00fd 0000 0000 | | .XXX[0x3] 00ff 0000 | | 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x0103,0x043a,0x0002,0x0000,0x004c,0x3106,0x0000,0x0082 ; Debug Table 0x6.0x0 = 0x103,0x1 0104 0217 | | Execute Heap_Access,All_Reference 0105 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0107 0000 | | .XXX[0x1] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x010b,0x043e,0x0002,0x0000,0x004c,0x3106,0x0000,0x008d ; Debug Table 0x7.0x0 = 0x10b,0x1 010c 822d | - | Call 0x1,0x2d 010d 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x1 = 0x10d,0x2 010e 0217 | | Execute Heap_Access,All_Reference 010f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0110 0f00 | | Execute_Immediate Equal,0x0 0111 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0112 0000 0000 | | .BLANK 0000[0x6] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x011b,0x0444,0x0001,0x0000,0x004c,0x3106,0x0000,0x0096 ; Debug Table 0x8.0x0 = 0x11b,0x1 011c 822d | - | Call 0x1,0x2d 011d 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x1 = 0x11d,0x2 011e 0217 | | Execute Heap_Access,All_Reference 011f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0120 6812 |h | Jump_Zero 0x133 0121 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x2 = 0x121,0x3 0122 0217 | | Execute Heap_Access,All_Reference 0123 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0124 e002 | | Load 0x0,0x2 0125 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0126 00da | | Load_Top At_Offset_2 ; Debug Table 0x8.0x3 = 0x126,0x4 0127 0219 | | Execute Heap_Access,All_Read 0128 00d8 | | Load_Top At_Offset_0 0129 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 012a e22a | * | Load 0x1,0x2a 012b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 012c 00d9 | | Load_Top At_Offset_1 012d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 012e 00d1 | | Pop_Control Pop_Count_1 012f 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x4 = 0x12f,0x5 0130 00db | | Load_Top At_Offset_3 0131 0217 | | Execute Heap_Access,All_Reference 0132 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0133 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0134 0000 0000 | | .BLANK 0000[0x4] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x013b,0x0450,0x0002,0x0000,0x004c,0x3106,0x0000,0x009e ; Debug Table 0x9.0x0 = 0x13b,0x1 013c 822d | - | Call 0x1,0x2d 013d 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x1 = 0x13d,0x2 013e 0217 | | Execute Heap_Access,All_Reference 013f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0140 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0141 0000 0000 | | .BLANK 0000[0x7] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x014b,0x0456,0x0001,0x0000,0x004c,0x3106,0x0000,0x00a7 ; Debug Table 0xa.0x0 = 0x14b,0x1 014c 822d | - | Call 0x1,0x2d 014d 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x1 = 0x14d,0x2 014e 00db | | Load_Top At_Offset_3 014f 0217 | | Execute Heap_Access,All_Reference 0150 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0151 8216 | | Call 0x1,0x16 0152 c5fe | | Store 0x2,-0x2 0153 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x2 = 0x153,0x3 0154 0219 | | Execute Heap_Access,All_Read 0155 00d8 | | Load_Top At_Offset_0 0156 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0157 e5ff | | Load 0x2,-0x1 0158 0217 | | Execute Heap_Access,All_Reference 0159 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 015a e22a | * | Load 0x1,0x2a 015b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 015c 00d9 | | Load_Top At_Offset_1 015d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 015e 00d1 | | Pop_Control Pop_Count_1 015f 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x3 = 0x15f,0x4 0160 0217 | | Execute Heap_Access,All_Reference 0161 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0162 e002 | | Load 0x0,0x2 0163 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0164 e5fe | | Load 0x2,-0x2 0165 0217 | | Execute Heap_Access,All_Reference 0166 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0167 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x4 = 0x167,0x5 0168 0217 | | Execute Heap_Access,All_Reference 0169 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 016a e5fe | | Load 0x2,-0x2 016b 0217 | | Execute Heap_Access,All_Reference 016c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 016d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0177 | w | .CONST 0x0177 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e002 | | Load 0x0,0x2 ; Debug Table 0xb = .DEBUG 0x0173,0x0462,0x0001,0x0000,0x004c,0x3106,0x0000,0x00b3 ; Debug Table 0xb.0x0 = 0x173,0xffff 0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0175 e228 | ( | Load 0x1,0x28 ; Debug Table 0xb.0x1 = 0x175,0xfffe 0176 0007 | | Action Break_Optional 0177 BODY_0170: 0177 e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0x2 = 0x177,0x1 0178 822d | - | Call 0x1,0x2d 0179 e5fe | | Load 0x2,-0x2 ; Debug Table 0xb.0x3 = 0x179,0x2 017a 8212 | | Call 0x1,0x12 017b 7004 |p | Jump_Nonzero 0x180 017c e001 | | Load 0x0,0x1 ; Debug Table 0xb.0x4 = 0x17c,0x3 017d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 017e 1b19 | | Execute Package,Field_Read,Field_Number 0x19 017f 0257 | W | Execute Discrete,Raise 0180 e5fd | | Load 0x2,-0x3 ; Debug Table 0xb.0x5 = 0x180,0x4 0181 e5ff | | Load 0x2,-0x1 0182 0217 | | Execute Heap_Access,All_Reference 0183 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0184 e5fe | | Load 0x2,-0x2 0185 e002 | | Load 0x0,0x2 0186 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0187 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0188 e002 | | Load 0x0,0x2 ; Debug Table 0xb.0x6 = 0x188,0x5 0189 1812 | | Execute Package,Field_Execute,Field_Number 0x12 018a 00da | | Load_Top At_Offset_2 018b 021f | | Execute Heap_Access,Equal 018c 6828 |h( | Jump_Zero 0x1b5 018d e5fd | | Load 0x2,-0x3 ; Debug Table 0xb.0x7 = 0x18d,0x6 018e e5ff | | Load 0x2,-0x1 018f 0217 | | Execute Heap_Access,All_Reference 0190 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0191 e5fe | | Load 0x2,-0x2 0192 e002 | | Load 0x0,0x2 0193 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0194 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0195 e228 | ( | Load 0x1,0x28 ; Debug Table 0xb.0x8 = 0x195,0x7 0196 e5ff | | Load 0x2,-0x1 0197 0217 | | Execute Heap_Access,All_Reference 0198 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0199 039c | | Declare_Variable Heap_Access,By_Allocation 019a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 019b 0007 | | Action Break_Optional ; Debug Table 0xb.0x9 = 0x19b,0x8 019c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0xa = 0x19c,0x9 019d 00d9 | | Load_Top At_Offset_1 019e 0217 | | Execute Heap_Access,All_Reference 019f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01a0 e5fc | | Load 0x2,-0x4 ; Debug Table 0xb.0xb = 0x1a0,0xa 01a1 00d9 | | Load_Top At_Offset_1 01a2 0217 | | Execute Heap_Access,All_Reference 01a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a4 e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0xc = 0x1a4,0xb 01a5 0219 | | Execute Heap_Access,All_Read 01a6 00d8 | | Load_Top At_Offset_0 01a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a8 00da | | Load_Top At_Offset_2 01a9 e22a | * | Load 0x1,0x2a 01aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ab 00d9 | | Load_Top At_Offset_1 01ac 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ad 00d1 | | Pop_Control Pop_Count_1 01ae e5ff | | Load 0x2,-0x1 ; Debug Table 0xb.0xd = 0x1ae,0xc 01af 0217 | | Execute Heap_Access,All_Reference 01b0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01b1 0a01 | | Execute_Immediate Plus,0x1 01b2 e5ff | | Load 0x2,-0x1 01b3 0217 | | Execute Heap_Access,All_Reference 01b4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01b5 4505 |E | Exit_Suprogram New_Top_Offset 0x5 01b6 0000 0000 | | .XXX[0x2] 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 ; Debug Table 0xc = .DEBUG 0x01bb,0x0480,0x0001,0x0000,0x004c,0x3106,0x0000,0x00c9 ; Debug Table 0xc.0x0 = 0x1bb,0x1 01bc 822d | - | Call 0x1,0x2d 01bd e20e | | Load 0x1,0xe ; Debug Table 0xc.0x1 = 0x1bd,0x2 01be 00db | | Load_Top At_Offset_3 01bf 0217 | | Execute Heap_Access,All_Reference 01c0 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 01c1 039c | | Declare_Variable Heap_Access,By_Allocation 01c2 a5fe | | Store_Unchecked 0x2,-0x2 01c3 0007 | | Action Break_Optional ; Debug Table 0xc.0x2 = 0x1c3,0x3 01c4 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x3 = 0x1c4,0x4 01c5 e5fe | | Load 0x2,-0x2 01c6 0217 | | Execute Heap_Access,All_Reference 01c7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c8 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x4 = 0x1c8,0x5 01c9 0219 | | Execute Heap_Access,All_Read 01ca 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01cb 00d8 | | Load_Top At_Offset_0 01cc e5ff | | Load 0x2,-0x1 01cd 0217 | | Execute Heap_Access,All_Reference 01ce 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01cf e22a | * | Load 0x1,0x2a 01d0 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01d2 0000 0000 | | .BLANK 0000[0x6] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x01db,0x048c,0x0001,0x0000,0x004c,0x3106,0x0000,0x00d5 ; Debug Table 0xd.0x0 = 0x1db,0x1 01dc 822e | . | Call 0x1,0x2e 01dd 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x1 = 0x1dd,0x2 01de 0219 | | Execute Heap_Access,All_Read 01df 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01e0 00d8 | | Load_Top At_Offset_0 01e1 e22a | * | Load 0x1,0x2a 01e2 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x01eb,0x0492,0x0002,0x0000,0x004c,0x3106,0x0000,0x00dd ; Debug Table 0xe.0x0 = 0x1eb,0x1 01ec 822e | . | Call 0x1,0x2e 01ed 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x1 = 0x1ed,0x2 01ee 0217 | | Execute Heap_Access,All_Reference 01ef 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f0 e22a | * | Load 0x1,0x2a 01f1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01f2 0217 | | Execute Heap_Access,All_Reference 01f3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f4 e002 | | Load 0x0,0x2 01f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f7 0000 | | .XXX[0x1] 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x01fb,0x0498,0x0002,0x0000,0x004c,0x3106,0x0000,0x00e6 ; Debug Table 0xf.0x0 = 0x1fb,0x1 01fc 822e | . | Call 0x1,0x2e 01fd 00da | | Load_Top At_Offset_2 ; Debug Table 0xf.0x1 = 0x1fd,0x2 01fe 0217 | | Execute Heap_Access,All_Reference 01ff 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0200 e22a | * | Load 0x1,0x2a 0201 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0202 0217 | | Execute Heap_Access,All_Reference 0203 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0205 0000 0000 | | .XXX[0x3] 0207 0000 | | 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 020b | | .CONST 0x020b ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0001 | | .CONST 0x0001 ; Number of locals 020b BODY_0208: 020b INIT_0208: 020b 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x020b,0x049e,0x0002,0x0000,0x004c,0x3106,0x0000,0x00ef ; Debug Table 0x10.0x0 = 0x20b,0x1 020c 822e | . | Call 0x1,0x2e 020d 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x1 = 0x20d,0x2 020e 0217 | | Execute Heap_Access,All_Reference 020f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0210 e22a | * | Load 0x1,0x2a 0211 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0212 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0213 0000 0000 | | .BLANK 0000[0x5] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021b | | .CONST 0x021b ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0001 | | .CONST 0x0001 ; Number of locals 021b BODY_0218: 021b INIT_0218: 021b 00db | | Load_Top At_Offset_3 ; Debug Table 0x11 = .DEBUG 0x021b,0x04a4,0x0001,0x0000,0x004c,0x3106,0x0000,0x00f8 ; Debug Table 0x11.0x0 = 0x21b,0x1 021c 00db | | Load_Top At_Offset_3 021d 0217 | | Execute Heap_Access,All_Reference 021e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 021f e22a | * | Load 0x1,0x2a 0220 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0221 0217 | | Execute Heap_Access,All_Reference 0222 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0223 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0224 0000 0000 | | .BLANK 0000[0x4] 0228 ; -------------------------------------------------------------------------------------- 0228 ; SUBPROGRAM 0228 ; -------------------------------------------------------------------------------------- 0228 022b | + | .CONST 0x022b ; Address of begin 0229 0004 | | .CONST 0x0004 ; Address of exception handler 022a 0001 | | .CONST 0x0001 ; Number of locals 022b BODY_0228: 022b INIT_0228: 022b 00da | | Load_Top At_Offset_2 ; Debug Table 0x12 = .DEBUG 0x022b,0x04a8,0x0001,0x0000,0x004c,0x3106,0x0000,0x0104 ; Debug Table 0x12.0x0 = 0x22b,0x1 022c 822e | . | Call 0x1,0x2e 022d 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0x1 = 0x22d,0x2 022e 00db | | Load_Top At_Offset_3 022f 0217 | | Execute Heap_Access,All_Reference 0230 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0231 0217 | | Execute Heap_Access,All_Reference 0232 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0233 e5ff | | Load 0x2,-0x1 0234 0217 | | Execute Heap_Access,All_Reference 0235 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0236 e22a | * | Load 0x1,0x2a 0237 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0238 0217 | | Execute Heap_Access,All_Reference 0239 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 023a e002 | | Load 0x0,0x2 023b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 023c e002 | | Load 0x0,0x2 023d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 023e 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x2 = 0x23e,0x3 023f 0219 | | Execute Heap_Access,All_Read 0240 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0241 00d8 | | Load_Top At_Offset_0 0242 e22a | * | Load 0x1,0x2a 0243 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0244 00d2 | | Pop_Control Pop_Count_2 0245 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x3 = 0x245,0x4 0246 0217 | | Execute Heap_Access,All_Reference 0247 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0248 0217 | | Execute Heap_Access,All_Reference 0249 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 024a 0aff | | Execute_Immediate Plus,-0x1 024b 00db | | Load_Top At_Offset_3 024c 0217 | | Execute Heap_Access,All_Reference 024d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 024e 0217 | | Execute Heap_Access,All_Reference 024f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0250 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0251 0000 0000 | | .BLANK 0000[0x7] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 00da | | Load_Top At_Offset_2 ; Debug Table 0x13 = .DEBUG 0x025b,0x04b2,0x0002,0x0000,0x004c,0x3106,0x0000,0x0140 ; Debug Table 0x13.0x0 = 0x25b,0x1 025c 0217 | | Execute Heap_Access,All_Reference 025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 025e e002 | | Load 0x0,0x2 025f 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0260 e004 | | Load 0x0,0x4 0261 180d | | Execute Package,Field_Execute,Field_Number 0xd 0262 4814 |H | Short_Literal 0x14 0263 026e | n | Execute Discrete,Modulo 0264 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0265 0000 0000 | | .XXX[0x3] 0267 0000 | | 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 4608 |F | Jump_Case 0x9 ; Debug Table 0x14 = .DEBUG 0x026b,0x04b6,0x0005,0x0000,0x004c,0x3106,0x0000,0x0152 026c 7808 |x | Jump 0x275 ; case 0x0 026d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 026e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 026f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0270 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0271 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0272 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0273 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0274 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0275 4800 |H | Short_Literal 0x0 0276 00db | | Load_Top At_Offset_3 0277 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0278 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0279 0000 0000 | | .BLANK 0000[0x7] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 00da | | Load_Top At_Offset_2 ; Debug Table 0x15 = .DEBUG 0x0283,0x04b8,0x0001,0x0000,0x004c,0x35b6,0x0000,0x002a ; Debug Table 0x15.0x0 = 0x283,0x1 0284 6806 |h | Jump_Zero 0x28b 0285 00da | | Load_Top At_Offset_2 0286 0217 | | Execute Heap_Access,All_Reference 0287 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0288 00f0 | | Load_Encached Segment_Cache 0289 021f | | Execute Heap_Access,Equal 028a 6802 |h | Jump_Zero 0x28d 028b e225 | % | Load 0x1,0x25 ; Debug Table 0x15.0x1 = 0x28b,0x2 028c 0257 | W | Execute Discrete,Raise 028d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028e 0000 0000 | | .XXX[0x2] 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 ; Debug Table 0x16 = .DEBUG 0x0293,0x04be,0x0001,0x0000,0x004c,0x35b6,0x0000,0x004d ; Debug Table 0x16.0x0 = 0x293,0x1 0294 7002 |p | Jump_Nonzero 0x297 0295 e226 | & | Load 0x1,0x26 ; Debug Table 0x16.0x1 = 0x295,0x2 0296 0257 | W | Execute Discrete,Raise 0297 00da | | Load_Top At_Offset_2 ; Debug Table 0x16.0x2 = 0x297,0x3 0298 0217 | | Execute Heap_Access,All_Reference 0299 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 029a 822d | - | Call 0x1,0x2d 029b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 029c 0000 0000 | | .LITERAL {0x00000000, 0x004c3106} 02a0 0000 0000 | | .LITERAL {0x00000000, 0x4c310602} 02a4 0000 0000 | | .LITERAL {0x00000000, 0x4c310601} 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; STRING TABLE 02a8 ; -------------------------------------------------------------------------------------- 02a8 0012 | | .STRTAB 0x0012->0x02b1 ; "UNPROCESSED" 02a9 001b | | .STRTAB 0x001b->0x02b6 ; "SUCCESS" 02aa 0020 | | .STRTAB 0x0020->0x02ba ; "PENDING" 02ab 0025 | % | .STRTAB 0x0025->0x02bd ; "DESTINATION_HOST_UNKOWN" 02ac 003a | : | .STRTAB 0x003a->0x02c9 ; "MAILBOX_NOT_FOUND" 02ad 0049 | I | .STRTAB 0x0049->0x02d1 ; "INTERNAL_ERROR" 02ae 0055 | U | .STRTAB 0x0055->0x02d8 ; "RPC_ERROR" 02af 005c | \ | .STRTAB 0x005c->0x02dd ; "TIMEOUT_EXCEEDED" 02b0 006a | j | .STREND 0x006a->0x02e5 02b1 554e 5052 |UNPR| .STRTAB_STRINGS 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug Table 02e8 ; -------------------------------------------------------------------------------------- 02e8 0003 0017 | | .CONST 0x0003,0x0017 02ea 000b 03a2 | | .DEBUG 0x000b,0x03a2,0x8000,0x0000,0x004c,0x3106,0x0000,0x000e 02f2 007f 03fa | | .DEBUG 0x007f,0x03fa,0x8000,0x0000,0x004c,0x35b6,0x0000,0x0009 02fa 00ab 0422 | "| .DEBUG 0x00ab,0x0422,0x0002,0x0000,0x004c,0x3106,0x0000,0x003c 0302 00bb 0426 | &| .DEBUG 0x00bb,0x0426,0x0005,0x0000,0x004c,0x3106,0x0000,0x0063 030a 00d3 0428 | (| .DEBUG 0x00d3,0x0428,0x0001,0x0000,0x004c,0x3106,0x0000,0x006f 0312 00fb 0436 | 6| .DEBUG 0x00fb,0x0436,0x0002,0x0000,0x004c,0x3106,0x0000,0x007d 031a 0103 043a | :| .DEBUG 0x0103,0x043a,0x0002,0x0000,0x004c,0x3106,0x0000,0x0082 0322 010b 043e | >| .DEBUG 0x010b,0x043e,0x0002,0x0000,0x004c,0x3106,0x0000,0x008d 032a 011b 0444 | D| .DEBUG 0x011b,0x0444,0x0001,0x0000,0x004c,0x3106,0x0000,0x0096 0332 013b 0450 | ; P| .DEBUG 0x013b,0x0450,0x0002,0x0000,0x004c,0x3106,0x0000,0x009e 033a 014b 0456 | K V| .DEBUG 0x014b,0x0456,0x0001,0x0000,0x004c,0x3106,0x0000,0x00a7 0342 0173 0462 | s b| .DEBUG 0x0173,0x0462,0x0001,0x0000,0x004c,0x3106,0x0000,0x00b3 034a 01bb 0480 | | .DEBUG 0x01bb,0x0480,0x0001,0x0000,0x004c,0x3106,0x0000,0x00c9 0352 01db 048c | | .DEBUG 0x01db,0x048c,0x0001,0x0000,0x004c,0x3106,0x0000,0x00d5 035a 01eb 0492 | | .DEBUG 0x01eb,0x0492,0x0002,0x0000,0x004c,0x3106,0x0000,0x00dd 0362 01fb 0498 | | .DEBUG 0x01fb,0x0498,0x0002,0x0000,0x004c,0x3106,0x0000,0x00e6 036a 020b 049e | | .DEBUG 0x020b,0x049e,0x0002,0x0000,0x004c,0x3106,0x0000,0x00ef 0372 021b 04a4 | | .DEBUG 0x021b,0x04a4,0x0001,0x0000,0x004c,0x3106,0x0000,0x00f8 037a 022b 04a8 | + | .DEBUG 0x022b,0x04a8,0x0001,0x0000,0x004c,0x3106,0x0000,0x0104 0382 025b 04b2 | [ | .DEBUG 0x025b,0x04b2,0x0002,0x0000,0x004c,0x3106,0x0000,0x0140 038a 026b 04b6 | k | .DEBUG 0x026b,0x04b6,0x0005,0x0000,0x004c,0x3106,0x0000,0x0152 0392 0283 04b8 | | .DEBUG 0x0283,0x04b8,0x0001,0x0000,0x004c,0x35b6,0x0000,0x002a 039a 0293 04be | | .DEBUG 0x0293,0x04be,0x0001,0x0000,0x004c,0x35b6,0x0000,0x004d 03a2 ; -------------------------------------------------------------------------------------- 03a2 ; Debug3 Subtable 0x0 03a2 ; -------------------------------------------------------------------------------------- 03a2 002b 0000 | + | .DBG3TAB 0x002b,0x0000 03a4 000b ffff | | .CONST 0x000b,0xffff 03a6 000c fffe | | .CONST 0x000c,0xfffe 03a8 000d fffd | | .CONST 0x000d,0xfffd 03aa 000e fffc | | .CONST 0x000e,0xfffc 03ac 000f fffb | | .CONST 0x000f,0xfffb 03ae 0010 fffa | | .CONST 0x0010,0xfffa 03b0 0014 fff9 | | .CONST 0x0014,0xfff9 03b2 0018 fff8 | | .CONST 0x0018,0xfff8 03b4 001c fff7 | | .CONST 0x001c,0xfff7 03b6 001e fff6 | | .CONST 0x001e,0xfff6 03b8 0022 fff5 | " | .CONST 0x0022,0xfff5 03ba 0026 fff4 | & | .CONST 0x0026,0xfff4 03bc 002b fff3 | + | .CONST 0x002b,0xfff3 03be 002d fff2 | - | .CONST 0x002d,0xfff2 03c0 002f fff1 | / | .CONST 0x002f,0xfff1 03c2 0031 fff0 | 1 | .CONST 0x0031,0xfff0 03c4 0033 ffef | 3 | .CONST 0x0033,0xffef 03c6 0035 ffee | 5 | .CONST 0x0035,0xffee 03c8 0037 ffed | 7 | .CONST 0x0037,0xffed 03ca 0039 ffec | 9 | .CONST 0x0039,0xffec 03cc 003b ffeb | ; | .CONST 0x003b,0xffeb 03ce 003d ffea | = | .CONST 0x003d,0xffea 03d0 003f ffe9 | ? | .CONST 0x003f,0xffe9 03d2 0041 ffe8 | A | .CONST 0x0041,0xffe8 03d4 0043 ffe7 | C | .CONST 0x0043,0xffe7 03d6 0045 ffe6 | E | .CONST 0x0045,0xffe6 03d8 0047 ffe5 | G | .CONST 0x0047,0xffe5 03da 0049 ffe4 | I | .CONST 0x0049,0xffe4 03dc 004a ffe3 | J | .CONST 0x004a,0xffe3 03de 004c ffe2 | L | .CONST 0x004c,0xffe2 03e0 004e ffe1 | N | .CONST 0x004e,0xffe1 03e2 004f ffe0 | O | .CONST 0x004f,0xffe0 03e4 0055 ffdf | U | .CONST 0x0055,0xffdf 03e6 0058 ffde | X | .CONST 0x0058,0xffde 03e8 0059 ffdd | Y | .CONST 0x0059,0xffdd 03ea 005a ffdc | Z | .CONST 0x005a,0xffdc 03ec 005c ffdb | \ | .CONST 0x005c,0xffdb 03ee 0065 ffda | e | .CONST 0x0065,0xffda 03f0 006f ffd9 | o | .CONST 0x006f,0xffd9 03f2 0073 ffd8 | s | .CONST 0x0073,0xffd8 03f4 0074 ffd7 | t | .CONST 0x0074,0xffd7 03f6 007a ffd6 | z | .CONST 0x007a,0xffd6 03f8 007e ffd5 | ~ | .CONST 0x007e,0xffd5 03fa ; -------------------------------------------------------------------------------------- 03fa ; Debug3 Subtable 0x1 03fa ; -------------------------------------------------------------------------------------- 03fa 0013 0000 | | .DBG3TAB 0x0013,0x0000 03fc 007f ffff | | .CONST 0x007f,0xffff 03fe 0081 fffe | | .CONST 0x0081,0xfffe 0400 0083 fffd | | .CONST 0x0083,0xfffd 0402 0085 fffc | | .CONST 0x0085,0xfffc 0404 0087 fffb | | .CONST 0x0087,0xfffb 0406 0089 fffa | | .CONST 0x0089,0xfffa 0408 008b fff9 | | .CONST 0x008b,0xfff9 040a 008d fff8 | | .CONST 0x008d,0xfff8 040c 008f fff7 | | .CONST 0x008f,0xfff7 040e 0091 fff6 | | .CONST 0x0091,0xfff6 0410 0093 fff5 | | .CONST 0x0093,0xfff5 0412 0095 fff4 | | .CONST 0x0095,0xfff4 0414 0097 fff3 | | .CONST 0x0097,0xfff3 0416 0099 fff2 | | .CONST 0x0099,0xfff2 0418 009b fff1 | | .CONST 0x009b,0xfff1 041a 009d fff0 | | .CONST 0x009d,0xfff0 041c 009f ffef | | .CONST 0x009f,0xffef 041e 00a1 ffee | | .CONST 0x00a1,0xffee 0420 00a3 ffed | | .CONST 0x00a3,0xffed 0422 ; -------------------------------------------------------------------------------------- 0422 ; Debug3 Subtable 0x2 0422 ; -------------------------------------------------------------------------------------- 0422 0000 0001 | | .DBG3TAB 0x0000,0x0001 0424 00ab 0001 | | .CONST 0x00ab,0x0001 0426 ; -------------------------------------------------------------------------------------- 0426 ; Debug3 Subtable 0x3 0426 ; -------------------------------------------------------------------------------------- 0426 0000 0000 | | .DBG3TAB 0x0000,0x0000 0428 ; -------------------------------------------------------------------------------------- 0428 ; Debug3 Subtable 0x4 0428 ; -------------------------------------------------------------------------------------- 0428 0000 0006 | | .DBG3TAB 0x0000,0x0006 042a 00d3 0001 | | .CONST 0x00d3,0x0001 042c 00da 0002 | | .CONST 0x00da,0x0002 042e 00db 0003 | | .CONST 0x00db,0x0003 0430 00df 0004 | | .CONST 0x00df,0x0004 0432 00e6 0005 | | .CONST 0x00e6,0x0005 0434 00ea 0006 | | .CONST 0x00ea,0x0006 0436 ; -------------------------------------------------------------------------------------- 0436 ; Debug3 Subtable 0x5 0436 ; -------------------------------------------------------------------------------------- 0436 0000 0001 | | .DBG3TAB 0x0000,0x0001 0438 00fb 0001 | | .CONST 0x00fb,0x0001 043a ; -------------------------------------------------------------------------------------- 043a ; Debug3 Subtable 0x6 043a ; -------------------------------------------------------------------------------------- 043a 0000 0001 | | .DBG3TAB 0x0000,0x0001 043c 0103 0001 | | .CONST 0x0103,0x0001 043e ; -------------------------------------------------------------------------------------- 043e ; Debug3 Subtable 0x7 043e ; -------------------------------------------------------------------------------------- 043e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0440 010b 0001 | | .CONST 0x010b,0x0001 0442 010d 0002 | | .CONST 0x010d,0x0002 0444 ; -------------------------------------------------------------------------------------- 0444 ; Debug3 Subtable 0x8 0444 ; -------------------------------------------------------------------------------------- 0444 0000 0005 | | .DBG3TAB 0x0000,0x0005 0446 011b 0001 | | .CONST 0x011b,0x0001 0448 011d 0002 | | .CONST 0x011d,0x0002 044a 0121 0003 | ! | .CONST 0x0121,0x0003 044c 0126 0004 | & | .CONST 0x0126,0x0004 044e 012f 0005 | / | .CONST 0x012f,0x0005 0450 ; -------------------------------------------------------------------------------------- 0450 ; Debug3 Subtable 0x9 0450 ; -------------------------------------------------------------------------------------- 0450 0000 0002 | | .DBG3TAB 0x0000,0x0002 0452 013b 0001 | ; | .CONST 0x013b,0x0001 0454 013d 0002 | = | .CONST 0x013d,0x0002 0456 ; -------------------------------------------------------------------------------------- 0456 ; Debug3 Subtable 0xa 0456 ; -------------------------------------------------------------------------------------- 0456 0000 0005 | | .DBG3TAB 0x0000,0x0005 0458 014b 0001 | K | .CONST 0x014b,0x0001 045a 014d 0002 | M | .CONST 0x014d,0x0002 045c 0153 0003 | S | .CONST 0x0153,0x0003 045e 015f 0004 | _ | .CONST 0x015f,0x0004 0460 0167 0005 | g | .CONST 0x0167,0x0005 0462 ; -------------------------------------------------------------------------------------- 0462 ; Debug3 Subtable 0xb 0462 ; -------------------------------------------------------------------------------------- 0462 0002 000c | | .DBG3TAB 0x0002,0x000c 0464 0173 ffff | s | .CONST 0x0173,0xffff 0466 0175 fffe | u | .CONST 0x0175,0xfffe 0468 0177 0001 | w | .CONST 0x0177,0x0001 046a 0179 0002 | y | .CONST 0x0179,0x0002 046c 017c 0003 | | | .CONST 0x017c,0x0003 046e 0180 0004 | | .CONST 0x0180,0x0004 0470 0188 0005 | | .CONST 0x0188,0x0005 0472 018d 0006 | | .CONST 0x018d,0x0006 0474 0195 0007 | | .CONST 0x0195,0x0007 0476 019b 0008 | | .CONST 0x019b,0x0008 0478 019c 0009 | | .CONST 0x019c,0x0009 047a 01a0 000a | | .CONST 0x01a0,0x000a 047c 01a4 000b | | .CONST 0x01a4,0x000b 047e 01ae 000c | | .CONST 0x01ae,0x000c 0480 ; -------------------------------------------------------------------------------------- 0480 ; Debug3 Subtable 0xc 0480 ; -------------------------------------------------------------------------------------- 0480 0000 0005 | | .DBG3TAB 0x0000,0x0005 0482 01bb 0001 | | .CONST 0x01bb,0x0001 0484 01bd 0002 | | .CONST 0x01bd,0x0002 0486 01c3 0003 | | .CONST 0x01c3,0x0003 0488 01c4 0004 | | .CONST 0x01c4,0x0004 048a 01c8 0005 | | .CONST 0x01c8,0x0005 048c ; -------------------------------------------------------------------------------------- 048c ; Debug3 Subtable 0xd 048c ; -------------------------------------------------------------------------------------- 048c 0000 0002 | | .DBG3TAB 0x0000,0x0002 048e 01db 0001 | | .CONST 0x01db,0x0001 0490 01dd 0002 | | .CONST 0x01dd,0x0002 0492 ; -------------------------------------------------------------------------------------- 0492 ; Debug3 Subtable 0xe 0492 ; -------------------------------------------------------------------------------------- 0492 0000 0002 | | .DBG3TAB 0x0000,0x0002 0494 01eb 0001 | | .CONST 0x01eb,0x0001 0496 01ed 0002 | | .CONST 0x01ed,0x0002 0498 ; -------------------------------------------------------------------------------------- 0498 ; Debug3 Subtable 0xf 0498 ; -------------------------------------------------------------------------------------- 0498 0000 0002 | | .DBG3TAB 0x0000,0x0002 049a 01fb 0001 | | .CONST 0x01fb,0x0001 049c 01fd 0002 | | .CONST 0x01fd,0x0002 049e ; -------------------------------------------------------------------------------------- 049e ; Debug3 Subtable 0x10 049e ; -------------------------------------------------------------------------------------- 049e 0000 0002 | | .DBG3TAB 0x0000,0x0002 04a0 020b 0001 | | .CONST 0x020b,0x0001 04a2 020d 0002 | | .CONST 0x020d,0x0002 04a4 ; -------------------------------------------------------------------------------------- 04a4 ; Debug3 Subtable 0x11 04a4 ; -------------------------------------------------------------------------------------- 04a4 0000 0001 | | .DBG3TAB 0x0000,0x0001 04a6 021b 0001 | | .CONST 0x021b,0x0001 04a8 ; -------------------------------------------------------------------------------------- 04a8 ; Debug3 Subtable 0x12 04a8 ; -------------------------------------------------------------------------------------- 04a8 0000 0004 | | .DBG3TAB 0x0000,0x0004 04aa 022b 0001 | + | .CONST 0x022b,0x0001 04ac 022d 0002 | - | .CONST 0x022d,0x0002 04ae 023e 0003 | > | .CONST 0x023e,0x0003 04b0 0245 0004 | E | .CONST 0x0245,0x0004 04b2 ; -------------------------------------------------------------------------------------- 04b2 ; Debug3 Subtable 0x13 04b2 ; -------------------------------------------------------------------------------------- 04b2 0000 0001 | | .DBG3TAB 0x0000,0x0001 04b4 025b 0001 | [ | .CONST 0x025b,0x0001 04b6 ; -------------------------------------------------------------------------------------- 04b6 ; Debug3 Subtable 0x14 04b6 ; -------------------------------------------------------------------------------------- 04b6 0000 0000 | | .DBG3TAB 0x0000,0x0000 04b8 ; -------------------------------------------------------------------------------------- 04b8 ; Debug3 Subtable 0x15 04b8 ; -------------------------------------------------------------------------------------- 04b8 0000 0002 | | .DBG3TAB 0x0000,0x0002 04ba 0283 0001 | | .CONST 0x0283,0x0001 04bc 028b 0002 | | .CONST 0x028b,0x0002 04be ; -------------------------------------------------------------------------------------- 04be ; Debug3 Subtable 0x16 04be ; -------------------------------------------------------------------------------------- 04be 0000 0003 | | .DBG3TAB 0x0000,0x0003 04c0 0293 0001 | | .CONST 0x0293,0x0001 04c2 0295 0002 | | .CONST 0x0295,0x0002 04c4 0297 0003 | | .CONST 0x0297,0x0003 04c6 0000 0000 | | .BLANK 0000[0x13a]