|
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_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 01c0 | | .CONST 0x01c0 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0070 | p | .CONST 0x0070 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x024a,0x8000,0x0000,0x004c,0x3066,0x0000,0x000a ; 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 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x3 = 0xe,0xfffc 000f 0129 | ) | Execute Any,Make_Visible 0010 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x4 = 0x10,0xfffb 0011 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0.0x5 = 0x11,0xfffa 0012 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x12,0xfff9 0014 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x14,0xfff8 0016 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x16,0xfff7 0018 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x18,0xfff6 001a 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1a,0xfff5 001c 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x1c,0xfff4 001e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x1e,0xfff3 0020 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x20,0xfff2 0022 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x22,0xfff1 0024 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x24,0xfff0 0026 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x26,0xffef 0028 6193 |a | Indirect_Literal Discrete,0x1bc,{0x00000000, 0x4c306601} ; Debug Table 0x0.0x11 = 0x28,0xffee 0029 0129 | ) | Execute Any,Make_Visible 002a 618d |a | Indirect_Literal Discrete,0x1b8,{0x00000000, 0x4c306602} ; Debug Table 0x0.0x12 = 0x2a,0xffed 002b 0129 | ) | Execute Any,Make_Visible 002c 00e9 | | Load_Encached String_Cache ; Debug Table 0x0.0x13 = 0x2c,0xffec 002d 02a0 | | Declare_Subprogram Null_Subprogram 002e 03ad | | Declare_Type Heap_Access,Defined 002f 0007 | | Action Break_Optional ; Debug Table 0x0.0x14 = 0x2f,0xffeb 0030 0007 | | Action Break_Optional ; Debug Table 0x0.0x15 = 0x30,0xffea 0031 029b 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Unelaborated ; Debug Table 0x0.0x16 = 0x31,0xffe9 0033 6180 |a | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x004c3066} ; Debug Table 0x0.0x17 = 0x33,0xffe8 0034 48af |H | Short_Literal 0xaf 0035 00db | | Load_Top At_Offset_3 0036 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0037 4814 |H | Short_Literal 0x14 0038 e001 | | Load 0x0,0x1 0039 0387 | | Declare_Variable Package 003a 00d8 | | Load_Top At_Offset_0 003b 020f | | Execute Module,Activate 003c 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x18 = 0x3c,0xffe7 003d 00d9 | | Load_Top At_Offset_1 003e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 003f 00f0 | | Load_Encached Segment_Cache 0040 029f 0183 | | Declare_Subprogram INIT_0180,For_Call 0042 4803 |H | Short_Literal 0x3 0043 032d | - | Declare_Type Record,Defined 0044 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x19 = 0x44,0xffe6 0045 02a0 | | Declare_Subprogram Null_Subprogram 0046 e20e | | Load 0x1,0xe 0047 03a3 | | Complete_Type Heap_Access,By_Defining 0048 0007 | | Action Break_Optional ; Debug Table 0x0.0x1a = 0x48,0xffe5 0049 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x1b = 0x49,0xffe4 004a 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 004b e20e | | Load 0x1,0xe 004c 02a0 | | Declare_Subprogram Null_Subprogram 004d 4802 |H | Short_Literal 0x2 004e 032d | - | Declare_Type Record,Defined 004f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1c = 0x4f,0xffe3 0050 02a0 | | Declare_Subprogram Null_Subprogram 0051 e20f | | Load 0x1,0xf 0052 03a3 | | Complete_Type Heap_Access,By_Defining 0053 00bf | | Action Accept_Activation ; Debug Table 0x0.0x1d = 0x53,0xffe2 0054 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1 = .DEBUG 0x0054,0x0288,0x8000,0x0000,0x004c,0x35d6,0x0000,0x0007 ; Debug Table 0x1.0x0 = 0x54,0xffff 0055 00c7 | | Action Elaborate_Subprogram 0056 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call ; Debug Table 0x1.0x1 = 0x56,0xfffe 0058 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call ; Debug Table 0x1.0x2 = 0x58,0xfffd 005a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x5a,0xfffc 005b 00c7 | | Action Elaborate_Subprogram 005c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x5c,0xfffb 005d 00c7 | | Action Elaborate_Subprogram 005e 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x5e,0xfffa 005f 00c7 | | Action Elaborate_Subprogram 0060 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x6 = 0x60,0xfff9 0061 00c7 | | Action Elaborate_Subprogram 0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x7 = 0x62,0xfff8 0063 00c7 | | Action Elaborate_Subprogram 0064 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x64,0xfff7 0065 00c7 | | Action Elaborate_Subprogram 0066 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x66,0xfff6 0067 00c7 | | Action Elaborate_Subprogram 0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xa = 0x68,0xfff5 0069 00c7 | | Action Elaborate_Subprogram 006a 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xb = 0x6a,0xfff4 006b 00c7 | | Action Elaborate_Subprogram 006c 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xc = 0x6c,0xfff3 006d 00c7 | | Action Elaborate_Subprogram 006e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xd = 0x6e,0xfff2 006f 00c7 | | Action Elaborate_Subprogram 0070 BODY_0008: 0070 00bc | | Action Signal_Activated 0071 00bb | | Action Signal_Completion 0072 0000 0000 | | .BLANK 0000[0x6] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e20e | | Load 0x1,0xe ; Debug Table 0x2 = .DEBUG 0x007b,0x02a6,0x0001,0x0000,0x004c,0x3066,0x0000,0x0024 ; Debug Table 0x2.0x0 = 0x7b,0x1 007c 00db | | Load_Top At_Offset_3 007d 039c | | Declare_Variable Heap_Access,By_Allocation 007e 00d8 | | Load_Top At_Offset_0 007f 0217 | | Execute Heap_Access,All_Reference 0080 1c00 | | Execute_Immediate Run_Utility,0x0 0081 a5fe | | Store_Unchecked 0x2,-0x2 0082 0007 | | Action Break_Optional ; Debug Table 0x2.0x1 = 0x82,0x2 0083 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0x2 = 0x83,0x3 0084 e5fe | | Load 0x2,-0x2 0085 0217 | | Execute Heap_Access,All_Reference 0086 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0087 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x3 = 0x87,0x4 0088 e5fe | | Load 0x2,-0x2 0089 0217 | | Execute Heap_Access,All_Reference 008a 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 008b 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x4 = 0x8b,0x5 008c 0219 | | Execute Heap_Access,All_Read 008d e21f | | Load 0x1,0x1f 008e 1b12 | | Execute Package,Field_Read,Field_Number 0x12 008f e5ff | | Load 0x2,-0x1 0090 e21f | | Load 0x1,0x1f 0091 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0092 00d9 | | Load_Top At_Offset_1 0093 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0094 4502 |E | Exit_Suprogram 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 e20e | | Load 0x1,0xe ; Debug Table 0x3 = .DEBUG 0x009b,0x02b2,0x0002,0x0000,0x004c,0x3066,0x0000,0x0032 ; Debug Table 0x3.0x0 = 0x9b,0x1 009c 00ca | | Action Exit_Nullary_Function 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00a3,0x02b6,0x0002,0x0000,0x004c,0x3066,0x0000,0x0037 ; Debug Table 0x4.0x0 = 0xa3,0x1 00a4 8222 | " | Call 0x1,0x22 00a5 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x1 = 0xa5,0x2 00a6 0217 | | Execute Heap_Access,All_Reference 00a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00a8 0f00 | | Execute_Immediate Equal,0x0 00a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x00b3,0x02bc,0x0001,0x0000,0x004c,0x3066,0x0000,0x0040 ; Debug Table 0x5.0x0 = 0xb3,0x1 00b4 8222 | " | Call 0x1,0x22 00b5 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x1 = 0xb5,0x2 00b6 0217 | | Execute Heap_Access,All_Reference 00b7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00b8 680d |h | Jump_Zero 0xc6 00b9 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0xb9,0x3 00ba 0219 | | Execute Heap_Access,All_Read 00bb 00d8 | | Load_Top At_Offset_0 00bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00bd e21f | | Load 0x1,0x1f 00be 1815 | | Execute Package,Field_Execute,Field_Number 0x15 00bf 00d9 | | Load_Top At_Offset_1 00c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00c1 00d1 | | Pop_Control Pop_Count_1 00c2 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x3 = 0xc2,0x4 00c3 00db | | Load_Top At_Offset_3 00c4 0217 | | Execute Heap_Access,All_Reference 00c5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x00cb,0x02c6,0x0002,0x0000,0x004c,0x3066,0x0000,0x0048 ; Debug Table 0x6.0x0 = 0xcb,0x1 00cc 8222 | " | Call 0x1,0x22 00cd 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x1 = 0xcd,0x2 00ce 0217 | | Execute Heap_Access,All_Reference 00cf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d1 0000 0000 | | .BLANK 0000[0x7] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00db,0x02cc,0x0001,0x0000,0x004c,0x3066,0x0000,0x0051 ; Debug Table 0x7.0x0 = 0xdb,0x1 00dc 8222 | " | Call 0x1,0x22 00dd 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0xdd,0x2 00de 00db | | Load_Top At_Offset_3 00df 0217 | | Execute Heap_Access,All_Reference 00e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00e1 8210 | | Call 0x1,0x10 00e2 c5fe | | Store 0x2,-0x2 00e3 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x2 = 0xe3,0x3 00e4 0219 | | Execute Heap_Access,All_Read 00e5 00d8 | | Load_Top At_Offset_0 00e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00e7 e5ff | | Load 0x2,-0x1 00e8 0217 | | Execute Heap_Access,All_Reference 00e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00ea e21f | | Load 0x1,0x1f 00eb 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00ec 00d9 | | Load_Top At_Offset_1 00ed 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00ee 00d1 | | Pop_Control Pop_Count_1 00ef 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x3 = 0xef,0x4 00f0 0217 | | Execute Heap_Access,All_Reference 00f1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f2 e5fe | | Load 0x2,-0x2 00f3 0217 | | Execute Heap_Access,All_Reference 00f4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 00fd | | .CONST 0x00fd ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e21d | | Load 0x1,0x1d ; Debug Table 0x8 = .DEBUG 0x00fb,0x02d6,0x0001,0x0000,0x004c,0x3066,0x0000,0x005d ; Debug Table 0x8.0x0 = 0xfb,0xffff 00fc 0007 | | Action Break_Optional 00fd BODY_00f8: 00fd 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x1 = 0xfd,0x1 00fe 8222 | " | Call 0x1,0x22 00ff e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x2 = 0xff,0x2 0100 e21d | | Load 0x1,0x1d 0101 e5ff | | Load 0x2,-0x1 0102 0217 | | Execute Heap_Access,All_Reference 0103 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0104 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 0105 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0106 0007 | | Action Break_Optional ; Debug Table 0x8.0x3 = 0x106,0x3 0107 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x4 = 0x107,0x4 0108 0219 | | Execute Heap_Access,All_Read 0109 00d8 | | Load_Top At_Offset_0 010a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 010b 00da | | Load_Top At_Offset_2 010c e21f | | Load 0x1,0x1f 010d 1818 | | Execute Package,Field_Execute,Field_Number 0x18 010e 00d9 | | Load_Top At_Offset_1 010f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0110 00d1 | | Pop_Control Pop_Count_1 0111 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x5 = 0x111,0x5 0112 0217 | | Execute Heap_Access,All_Reference 0113 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0114 0a01 | | Execute_Immediate Plus,0x1 0115 e5ff | | Load 0x2,-0x1 0116 0217 | | Execute Heap_Access,All_Reference 0117 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0123,0x02e4,0x0001,0x0000,0x004c,0x3066,0x0000,0x0069 ; Debug Table 0x9.0x0 = 0x123,0x1 0124 8222 | " | Call 0x1,0x22 0125 e20f | | Load 0x1,0xf ; Debug Table 0x9.0x1 = 0x125,0x2 0126 00db | | Load_Top At_Offset_3 0127 0217 | | Execute Heap_Access,All_Reference 0128 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0129 039c | | Declare_Variable Heap_Access,By_Allocation 012a a5fe | | Store_Unchecked 0x2,-0x2 012b 0007 | | Action Break_Optional ; Debug Table 0x9.0x2 = 0x12b,0x3 012c 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x3 = 0x12c,0x4 012d e5fe | | Load 0x2,-0x2 012e 0217 | | Execute Heap_Access,All_Reference 012f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0130 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x4 = 0x130,0x5 0131 0219 | | Execute Heap_Access,All_Read 0132 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0133 00d8 | | Load_Top At_Offset_0 0134 e5ff | | Load 0x2,-0x1 0135 0217 | | Execute Heap_Access,All_Reference 0136 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0137 e21f | | Load 0x1,0x1f 0138 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0139 4502 |E | Exit_Suprogram New_Top_Offset 0x2 013a 0000 0000 | | .BLANK 0000[0x6] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0143,0x02f0,0x0001,0x0000,0x004c,0x3066,0x0000,0x0075 ; Debug Table 0xa.0x0 = 0x143,0x1 0144 8223 | # | Call 0x1,0x23 0145 00da | | Load_Top At_Offset_2 ; Debug Table 0xa.0x1 = 0x145,0x2 0146 0219 | | Execute Heap_Access,All_Read 0147 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0148 00d8 | | Load_Top At_Offset_0 0149 e21f | | Load 0x1,0x1f 014a 181e | | Execute Package,Field_Execute,Field_Number 0x1e 014b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 014c 0000 0000 | | .BLANK 0000[0x4] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x0153,0x02f6,0x0002,0x0000,0x004c,0x3066,0x0000,0x007d ; Debug Table 0xb.0x0 = 0x153,0x1 0154 8223 | # | Call 0x1,0x23 0155 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x1 = 0x155,0x2 0156 0217 | | Execute Heap_Access,All_Reference 0157 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0158 e21f | | Load 0x1,0x1f 0159 181f | | Execute Package,Field_Execute,Field_Number 0x1f 015a 0217 | | Execute Heap_Access,All_Reference 015b 0335 | 5 | Declare_Variable Array,Duplicate 015c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0163,0x02fc,0x0002,0x0000,0x004c,0x3066,0x0000,0x0086 ; Debug Table 0xc.0x0 = 0x163,0x1 0164 8223 | # | Call 0x1,0x23 0165 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x1 = 0x165,0x2 0166 0217 | | Execute Heap_Access,All_Reference 0167 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0168 e21f | | Load 0x1,0x1f 0169 1820 | | Execute Package,Field_Execute,Field_Number 0x20 016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 016b 0000 0000 | | .BLANK 0000[0x5] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0173,0x0302,0x0002,0x0000,0x004c,0x3066,0x0000,0x00a6 ; Debug Table 0xd.0x0 = 0x173,0x1 0174 0217 | | Execute Heap_Access,All_Reference 0175 e002 | | Load 0x0,0x2 0176 180d | | Execute Package,Field_Execute,Field_Number 0xd 0177 4814 |H | Short_Literal 0x14 0178 026e | n | Execute Discrete,Modulo 0179 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 017a 0000 0000 | | .BLANK 0000[0x6] 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 4608 |F | Jump_Case 0x9 ; Debug Table 0xe = .DEBUG 0x0183,0x0306,0x0005,0x0000,0x004c,0x3066,0x0000,0x00b8 0184 7808 |x | Jump 0x18d ; case 0x0 0185 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0186 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0187 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0188 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0189 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 018a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 018b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 018c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 018d 4800 |H | Short_Literal 0x0 018e 00db | | Load_Top At_Offset_3 018f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0190 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0191 0000 0000 | | .BLANK 0000[0x7] 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x019b,0x0308,0x0001,0x0000,0x004c,0x35d6,0x0000,0x0022 ; Debug Table 0xf.0x0 = 0x19b,0x1 019c 6806 |h | Jump_Zero 0x1a3 019d 00da | | Load_Top At_Offset_2 019e 0217 | | Execute Heap_Access,All_Reference 019f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01a0 00f0 | | Load_Encached Segment_Cache 01a1 021f | | Execute Heap_Access,Equal 01a2 6802 |h | Jump_Zero 0x1a5 01a3 e21b | | Load 0x1,0x1b ; Debug Table 0xf.0x1 = 0x1a3,0x2 01a4 0257 | W | Execute Discrete,Raise 01a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01a6 0000 0000 | | .XXX[0x2] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x01ab,0x030e,0x0001,0x0000,0x004c,0x35d6,0x0000,0x0045 ; Debug Table 0x10.0x0 = 0x1ab,0x1 01ac 7002 |p | Jump_Nonzero 0x1af 01ad e21c | | Load 0x1,0x1c ; Debug Table 0x10.0x1 = 0x1ad,0x2 01ae 0257 | W | Execute Discrete,Raise 01af 00da | | Load_Top At_Offset_2 ; Debug Table 0x10.0x2 = 0x1af,0x3 01b0 0217 | | Execute Heap_Access,All_Reference 01b1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b2 8222 | " | Call 0x1,0x22 01b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b4 0000 0000 | | .LITERAL {0x00000000, 0x004c3066} 01b8 0000 0000 | | .LITERAL {0x00000000, 0x4c306602} 01bc 0000 0000 | | .LITERAL {0x00000000, 0x4c306601} 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; Debug Table 01c0 ; -------------------------------------------------------------------------------------- 01c0 0003 0011 | | .CONST 0x0003,0x0011 01c2 000b 024a | J| .DEBUG 0x000b,0x024a,0x8000,0x0000,0x004c,0x3066,0x0000,0x000a 01ca 0054 0288 | T | .DEBUG 0x0054,0x0288,0x8000,0x0000,0x004c,0x35d6,0x0000,0x0007 01d2 007b 02a6 | { | .DEBUG 0x007b,0x02a6,0x0001,0x0000,0x004c,0x3066,0x0000,0x0024 01da 009b 02b2 | | .DEBUG 0x009b,0x02b2,0x0002,0x0000,0x004c,0x3066,0x0000,0x0032 01e2 00a3 02b6 | | .DEBUG 0x00a3,0x02b6,0x0002,0x0000,0x004c,0x3066,0x0000,0x0037 01ea 00b3 02bc | | .DEBUG 0x00b3,0x02bc,0x0001,0x0000,0x004c,0x3066,0x0000,0x0040 01f2 00cb 02c6 | | .DEBUG 0x00cb,0x02c6,0x0002,0x0000,0x004c,0x3066,0x0000,0x0048 01fa 00db 02cc | | .DEBUG 0x00db,0x02cc,0x0001,0x0000,0x004c,0x3066,0x0000,0x0051 0202 00fb 02d6 | | .DEBUG 0x00fb,0x02d6,0x0001,0x0000,0x004c,0x3066,0x0000,0x005d 020a 0123 02e4 | # | .DEBUG 0x0123,0x02e4,0x0001,0x0000,0x004c,0x3066,0x0000,0x0069 0212 0143 02f0 | C | .DEBUG 0x0143,0x02f0,0x0001,0x0000,0x004c,0x3066,0x0000,0x0075 021a 0153 02f6 | S | .DEBUG 0x0153,0x02f6,0x0002,0x0000,0x004c,0x3066,0x0000,0x007d 0222 0163 02fc | c | .DEBUG 0x0163,0x02fc,0x0002,0x0000,0x004c,0x3066,0x0000,0x0086 022a 0173 0302 | s | .DEBUG 0x0173,0x0302,0x0002,0x0000,0x004c,0x3066,0x0000,0x00a6 0232 0183 0306 | | .DEBUG 0x0183,0x0306,0x0005,0x0000,0x004c,0x3066,0x0000,0x00b8 023a 019b 0308 | | .DEBUG 0x019b,0x0308,0x0001,0x0000,0x004c,0x35d6,0x0000,0x0022 0242 01ab 030e | | .DEBUG 0x01ab,0x030e,0x0001,0x0000,0x004c,0x35d6,0x0000,0x0045 024a ; -------------------------------------------------------------------------------------- 024a ; Debug3 Subtable 0x0 024a ; -------------------------------------------------------------------------------------- 024a 001e 0000 | | .DBG3TAB 0x001e,0x0000 024c 000b ffff | | .CONST 0x000b,0xffff 024e 000c fffe | | .CONST 0x000c,0xfffe 0250 000d fffd | | .CONST 0x000d,0xfffd 0252 000e fffc | | .CONST 0x000e,0xfffc 0254 0010 fffb | | .CONST 0x0010,0xfffb 0256 0011 fffa | | .CONST 0x0011,0xfffa 0258 0012 fff9 | | .CONST 0x0012,0xfff9 025a 0014 fff8 | | .CONST 0x0014,0xfff8 025c 0016 fff7 | | .CONST 0x0016,0xfff7 025e 0018 fff6 | | .CONST 0x0018,0xfff6 0260 001a fff5 | | .CONST 0x001a,0xfff5 0262 001c fff4 | | .CONST 0x001c,0xfff4 0264 001e fff3 | | .CONST 0x001e,0xfff3 0266 0020 fff2 | | .CONST 0x0020,0xfff2 0268 0022 fff1 | " | .CONST 0x0022,0xfff1 026a 0024 fff0 | $ | .CONST 0x0024,0xfff0 026c 0026 ffef | & | .CONST 0x0026,0xffef 026e 0028 ffee | ( | .CONST 0x0028,0xffee 0270 002a ffed | * | .CONST 0x002a,0xffed 0272 002c ffec | , | .CONST 0x002c,0xffec 0274 002f ffeb | / | .CONST 0x002f,0xffeb 0276 0030 ffea | 0 | .CONST 0x0030,0xffea 0278 0031 ffe9 | 1 | .CONST 0x0031,0xffe9 027a 0033 ffe8 | 3 | .CONST 0x0033,0xffe8 027c 003c ffe7 | < | .CONST 0x003c,0xffe7 027e 0044 ffe6 | D | .CONST 0x0044,0xffe6 0280 0048 ffe5 | H | .CONST 0x0048,0xffe5 0282 0049 ffe4 | I | .CONST 0x0049,0xffe4 0284 004f ffe3 | O | .CONST 0x004f,0xffe3 0286 0053 ffe2 | S | .CONST 0x0053,0xffe2 0288 ; -------------------------------------------------------------------------------------- 0288 ; Debug3 Subtable 0x1 0288 ; -------------------------------------------------------------------------------------- 0288 000e 0000 | | .DBG3TAB 0x000e,0x0000 028a 0054 ffff | T | .CONST 0x0054,0xffff 028c 0056 fffe | V | .CONST 0x0056,0xfffe 028e 0058 fffd | X | .CONST 0x0058,0xfffd 0290 005a fffc | Z | .CONST 0x005a,0xfffc 0292 005c fffb | \ | .CONST 0x005c,0xfffb 0294 005e fffa | ^ | .CONST 0x005e,0xfffa 0296 0060 fff9 | ` | .CONST 0x0060,0xfff9 0298 0062 fff8 | b | .CONST 0x0062,0xfff8 029a 0064 fff7 | d | .CONST 0x0064,0xfff7 029c 0066 fff6 | f | .CONST 0x0066,0xfff6 029e 0068 fff5 | h | .CONST 0x0068,0xfff5 02a0 006a fff4 | j | .CONST 0x006a,0xfff4 02a2 006c fff3 | l | .CONST 0x006c,0xfff3 02a4 006e fff2 | n | .CONST 0x006e,0xfff2 02a6 ; -------------------------------------------------------------------------------------- 02a6 ; Debug3 Subtable 0x2 02a6 ; -------------------------------------------------------------------------------------- 02a6 0000 0005 | | .DBG3TAB 0x0000,0x0005 02a8 007b 0001 | { | .CONST 0x007b,0x0001 02aa 0082 0002 | | .CONST 0x0082,0x0002 02ac 0083 0003 | | .CONST 0x0083,0x0003 02ae 0087 0004 | | .CONST 0x0087,0x0004 02b0 008b 0005 | | .CONST 0x008b,0x0005 02b2 ; -------------------------------------------------------------------------------------- 02b2 ; Debug3 Subtable 0x3 02b2 ; -------------------------------------------------------------------------------------- 02b2 0000 0001 | | .DBG3TAB 0x0000,0x0001 02b4 009b 0001 | | .CONST 0x009b,0x0001 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug3 Subtable 0x4 02b6 ; -------------------------------------------------------------------------------------- 02b6 0000 0002 | | .DBG3TAB 0x0000,0x0002 02b8 00a3 0001 | | .CONST 0x00a3,0x0001 02ba 00a5 0002 | | .CONST 0x00a5,0x0002 02bc ; -------------------------------------------------------------------------------------- 02bc ; Debug3 Subtable 0x5 02bc ; -------------------------------------------------------------------------------------- 02bc 0000 0004 | | .DBG3TAB 0x0000,0x0004 02be 00b3 0001 | | .CONST 0x00b3,0x0001 02c0 00b5 0002 | | .CONST 0x00b5,0x0002 02c2 00b9 0003 | | .CONST 0x00b9,0x0003 02c4 00c2 0004 | | .CONST 0x00c2,0x0004 02c6 ; -------------------------------------------------------------------------------------- 02c6 ; Debug3 Subtable 0x6 02c6 ; -------------------------------------------------------------------------------------- 02c6 0000 0002 | | .DBG3TAB 0x0000,0x0002 02c8 00cb 0001 | | .CONST 0x00cb,0x0001 02ca 00cd 0002 | | .CONST 0x00cd,0x0002 02cc ; -------------------------------------------------------------------------------------- 02cc ; Debug3 Subtable 0x7 02cc ; -------------------------------------------------------------------------------------- 02cc 0000 0004 | | .DBG3TAB 0x0000,0x0004 02ce 00db 0001 | | .CONST 0x00db,0x0001 02d0 00dd 0002 | | .CONST 0x00dd,0x0002 02d2 00e3 0003 | | .CONST 0x00e3,0x0003 02d4 00ef 0004 | | .CONST 0x00ef,0x0004 02d6 ; -------------------------------------------------------------------------------------- 02d6 ; Debug3 Subtable 0x8 02d6 ; -------------------------------------------------------------------------------------- 02d6 0001 0005 | | .DBG3TAB 0x0001,0x0005 02d8 00fb ffff | | .CONST 0x00fb,0xffff 02da 00fd 0001 | | .CONST 0x00fd,0x0001 02dc 00ff 0002 | | .CONST 0x00ff,0x0002 02de 0106 0003 | | .CONST 0x0106,0x0003 02e0 0107 0004 | | .CONST 0x0107,0x0004 02e2 0111 0005 | | .CONST 0x0111,0x0005 02e4 ; -------------------------------------------------------------------------------------- 02e4 ; Debug3 Subtable 0x9 02e4 ; -------------------------------------------------------------------------------------- 02e4 0000 0005 | | .DBG3TAB 0x0000,0x0005 02e6 0123 0001 | # | .CONST 0x0123,0x0001 02e8 0125 0002 | % | .CONST 0x0125,0x0002 02ea 012b 0003 | + | .CONST 0x012b,0x0003 02ec 012c 0004 | , | .CONST 0x012c,0x0004 02ee 0130 0005 | 0 | .CONST 0x0130,0x0005 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; Debug3 Subtable 0xa 02f0 ; -------------------------------------------------------------------------------------- 02f0 0000 0002 | | .DBG3TAB 0x0000,0x0002 02f2 0143 0001 | C | .CONST 0x0143,0x0001 02f4 0145 0002 | E | .CONST 0x0145,0x0002 02f6 ; -------------------------------------------------------------------------------------- 02f6 ; Debug3 Subtable 0xb 02f6 ; -------------------------------------------------------------------------------------- 02f6 0000 0002 | | .DBG3TAB 0x0000,0x0002 02f8 0153 0001 | S | .CONST 0x0153,0x0001 02fa 0155 0002 | U | .CONST 0x0155,0x0002 02fc ; -------------------------------------------------------------------------------------- 02fc ; Debug3 Subtable 0xc 02fc ; -------------------------------------------------------------------------------------- 02fc 0000 0002 | | .DBG3TAB 0x0000,0x0002 02fe 0163 0001 | c | .CONST 0x0163,0x0001 0300 0165 0002 | e | .CONST 0x0165,0x0002 0302 ; -------------------------------------------------------------------------------------- 0302 ; Debug3 Subtable 0xd 0302 ; -------------------------------------------------------------------------------------- 0302 0000 0001 | | .DBG3TAB 0x0000,0x0001 0304 0173 0001 | s | .CONST 0x0173,0x0001 0306 ; -------------------------------------------------------------------------------------- 0306 ; Debug3 Subtable 0xe 0306 ; -------------------------------------------------------------------------------------- 0306 0000 0000 | | .DBG3TAB 0x0000,0x0000 0308 ; -------------------------------------------------------------------------------------- 0308 ; Debug3 Subtable 0xf 0308 ; -------------------------------------------------------------------------------------- 0308 0000 0002 | | .DBG3TAB 0x0000,0x0002 030a 019b 0001 | | .CONST 0x019b,0x0001 030c 01a3 0002 | | .CONST 0x01a3,0x0002 030e ; -------------------------------------------------------------------------------------- 030e ; Debug3 Subtable 0x10 030e ; -------------------------------------------------------------------------------------- 030e 0000 0003 | | .DBG3TAB 0x0000,0x0003 0310 01ab 0001 | | .CONST 0x01ab,0x0001 0312 01ad 0002 | | .CONST 0x01ad,0x0002 0314 01af 0003 | | .CONST 0x01af,0x0003 0316 0000 0000 | | .BLANK 0000[0xea]