|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0168 | h | .CONST 0x0168 ; 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 0053 | S | .CONST 0x0053 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0020 | | .CONST 0x0020 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x01e2,0x0000,0x0000,0x005a,0x3c25,0x0000,0x056c ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 0129 | ) | Execute Any,Make_Visible 000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xd,0xfffe 000e 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x2 = 0xe,0xfffd 000f 0129 | ) | Execute Any,Make_Visible 0010 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0x10,0xfffc 0011 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x4 = 0x11,0xfffb 0012 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0013 00da | | Load_Top At_Offset_2 0014 02a0 | | Declare_Subprogram Null_Subprogram 0015 4802 |H | Short_Literal 0x2 0016 032e | . | Declare_Type Record,Defined,Visible 0017 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x17,0xfffa 0019 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x19,0xfff9 001b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1b,0xfff8 001d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1d,0xfff7 001f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1f,0xfff6 0021 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x21,0xfff5 0023 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x23,0xfff4 0025 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x0.0xc = 0x25,0xfff3 0026 0129 | ) | Execute Any,Make_Visible 0027 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x27,0xfff2 0029 e20e | | Load 0x1,0xe ; Debug Table 0x0.0xe = 0x29,0xfff1 002a 0266 | f | Execute Discrete,Bounds 002b 00db | | Load_Top At_Offset_3 002c 02a0 | | Declare_Subprogram Null_Subprogram 002d 4801 |H | Short_Literal 0x1 002e 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 002f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2f,0xfff0 0031 00bf | | Action Accept_Activation 0032 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x0032,0x0204,0x0000,0x0000,0x005a,0x4025,0x0000,0x0004 ; Debug Table 0x1.0x0 = 0x32,0xffff 0033 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x1 = 0x33,0xfffe 0034 0007 | | Action Break_Optional 0035 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x2 = 0x35,0xfffd 0036 0007 | | Action Break_Optional 0037 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x3 = 0x37,0xfffc 0038 0007 | | Action Break_Optional 0039 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x39,0xfffb 003a 0007 | | Action Break_Optional ; Debug Table 0x1.0x5 = 0x3a,0xfffa 003b 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call ; Debug Table 0x1.0x6 = 0x3b,0xfff9 003d 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call ; Debug Table 0x1.0x7 = 0x3d,0xfff8 003f 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x8 = 0x3f,0xfff7 0040 00c7 | | Action Elaborate_Subprogram 0041 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x9 = 0x41,0xfff6 0042 00c7 | | Action Elaborate_Subprogram 0043 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0xa = 0x43,0xfff5 0044 00c7 | | Action Elaborate_Subprogram 0045 029d 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call ; Debug Table 0x1.0xb = 0x45,0xfff4 0047 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xc = 0x47,0xfff3 0048 00c7 | | Action Elaborate_Subprogram 0049 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xd = 0x49,0xfff2 004a 00c7 | | Action Elaborate_Subprogram 004b 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0xe = 0x4b,0xfff1 004c 00c7 | | Action Elaborate_Subprogram 004d 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0xf = 0x4d,0xfff0 004e 00c7 | | Action Elaborate_Subprogram 004f 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x10 = 0x4f,0xffef 0050 00c7 | | Action Elaborate_Subprogram 0051 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x11 = 0x51,0xffee 0052 00c7 | | Action Elaborate_Subprogram 0053 BODY_0008: 0053 00bc | | Action Signal_Activated 0054 00bb | | Action Signal_Completion 0055 0000 0000 | | .XXX[0x3] 0057 0000 | | 0058 ; -------------------------------------------------------------------------------------- 0058 ; SUBPROGRAM 0058 ; -------------------------------------------------------------------------------------- 0058 005f | _ | .CONST 0x005f ; Address of begin 0059 0004 | | .CONST 0x0004 ; Address of exception handler 005a 0002 | | .CONST 0x0002 ; Number of locals 005b INIT_0058: 005b e21b | | Load 0x1,0x1b ; Debug Table 0x2 = .DEBUG 0x005b,0x022a,0x0002,0x0000,0x005a,0x3c25,0x0000,0x0593 ; Debug Table 0x2.0x0 = 0x5b,0xffff 005c 00db | | Load_Top At_Offset_3 005d 821e | | Call 0x1,0x1e 005e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 005f BODY_0058: 005f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x5f,0x1 0060 6804 |h | Jump_Zero 0x65 0061 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x61,0x2 0062 0217 | | Execute Heap_Access,All_Reference 0063 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0064 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0065 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x3 = 0x65,0x3 0066 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0067 0000 | | .XXX[0x1] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006f | o | .CONST 0x006f ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e21b | | Load 0x1,0x1b ; Debug Table 0x3 = .DEBUG 0x006b,0x0234,0x0002,0x0000,0x005a,0x3c25,0x0000,0x059c ; Debug Table 0x3.0x0 = 0x6b,0xffff 006c 00db | | Load_Top At_Offset_3 006d 821e | | Call 0x1,0x1e 006e 0031 | 1 | Store_Top Heap_Access,At_Offset_1 006f BODY_0068: 006f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0x6f,0x1 0070 6804 |h | Jump_Zero 0x75 0071 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x71,0x2 0072 0217 | | Execute Heap_Access,All_Reference 0073 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 0074 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0075 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x3 = 0x75,0x3 0076 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0077 0000 | | .XXX[0x1] 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x007b,0x023e,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05a5 ; Debug Table 0x4.0x0 = 0x7b,0x1 007c 821f | | Call 0x1,0x1f 007d 0217 | | Execute Heap_Access,All_Reference 007e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x0083,0x0242,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05ae ; Debug Table 0x5.0x0 = 0x83,0x1 0084 00db | | Load_Top At_Offset_3 0085 821e | | Call 0x1,0x1e 0086 0217 | | Execute Heap_Access,All_Reference 0087 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 0088 01d5 | | Execute Vector,Field_Reference 0089 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 008a 8220 | | Call 0x1,0x20 008b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x0093,0x0246,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05bb ; Debug Table 0x6.0x0 = 0x93,0x1 0094 00db | | Load_Top At_Offset_3 0095 821f | | Call 0x1,0x1f 0096 0217 | | Execute Heap_Access,All_Reference 0097 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0098 01d5 | | Execute Vector,Field_Reference 0099 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 009a 8220 | | Call 0x1,0x20 009b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 009c 0000 0000 | | .BLANK 0000[0x4] 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 0x7 = .DEBUG 0x00a3,0x024a,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05c8 ; Debug Table 0x7.0x0 = 0xa3,0x1 00a4 821f | | Call 0x1,0x1f 00a5 0217 | | Execute Heap_Access,All_Reference 00a6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 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 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x00ab,0x024e,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05d1 ; Debug Table 0x8.0x0 = 0xab,0x1 00ac 821f | | Call 0x1,0x1f 00ad 0217 | | Execute Heap_Access,All_Reference 00ae 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3 00af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00bf | | .CONST 0x00bf ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0005 | | .CONST 0x0005 ; Number of locals 00b3 INIT_00b0: 00b3 e21b | | Load 0x1,0x1b ; Debug Table 0x9 = .DEBUG 0x00b3,0x0252,0x0001,0x0000,0x005a,0x3c25,0x0000,0x05e0 ; Debug Table 0x9.0x0 = 0xb3,0xffff 00b4 00db | | Load_Top At_Offset_3 00b5 821e | | Call 0x1,0x1e 00b6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00b7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0xb7,0xfffe 00b8 0217 | | Execute Heap_Access,All_Reference 00b9 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 00ba 0007 | | Action Break_Optional 00bb 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0x2 = 0xbb,0xfffd 00bc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00bd 029f 014b | K| Declare_Subprogram INIT_0148,For_Call ; Debug Table 0x9.0x3 = 0xbd,0xfffc 00bf BODY_00b0: 00bf 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x4 = 0xbf,0x1 00c0 0217 | | Execute Heap_Access,All_Reference 00c1 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00c2 4800 |H | Short_Literal 0x0 00c3 8405 | | Call 0x2,0x5 00c4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x9.0x5 = 0xc4,0x2 00c5 6801 |h | Jump_Zero 0xc7 00c6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x9.0x6 = 0xc6,0x3 00c7 00cf | | Action Mark_Auxiliary 00c8 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x7 = 0xc8,0x4 00c9 01d9 | | Execute Vector,Reverse_Bounds 00ca 0263 | c | Execute Discrete,Above_Bound 00cb 700c |p | Jump_Nonzero 0xd8 00cc 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x8 = 0xcc,0x5 00cd e403 | | Load 0x2,0x3 00ce 01d7 | | Execute Vector,Field_Read 00cf 0217 | | Execute Heap_Access,All_Reference 00d0 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 00d1 00d9 | | Load_Top At_Offset_1 00d2 8405 | | Call 0x2,0x5 00d3 e404 | | Load 0x2,0x4 ; Debug Table 0x9.0x9 = 0xd3,0x6 00d4 6801 |h | Jump_Zero 0xd6 00d5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x9.0xa = 0xd5,0x7 00d6 00c8 | | Action Pop_Auxiliary_Range 00d7 3ff4 |? | Loop_Increasing 0xcc 00d8 00ce | | Action Pop_Auxiliary 00d9 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0xb = 0xd9,0x8 00da a5fd | | Store_Unchecked 0x2,-0x3 00db 4800 |H | Short_Literal 0x0 ; Debug Table 0x9.0xc = 0xdb,0x9 00dc a5fc | | Store_Unchecked 0x2,-0x4 00dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00de 0000 0000 | | .XXX[0x2] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00ed | | .CONST 0x00ed ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0003 | | .CONST 0x0003 ; Number of locals 00e3 INIT_00e0: 00e3 e21b | | Load 0x1,0x1b ; Debug Table 0xa = .DEBUG 0x00e3,0x026e,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05fd ; Debug Table 0xa.0x0 = 0xe3,0xffff 00e4 00db | | Load_Top At_Offset_3 00e5 821e | | Call 0x1,0x1e 00e6 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00e7 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x1 = 0xe7,0xfffe 00e8 00d9 | | Load_Top At_Offset_1 00e9 0217 | | Execute Heap_Access,All_Reference 00ea 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2 00eb e219 | | Load 0x1,0x19 00ec 0334 | 4 | Declare_Variable Array,With_Constraint 00ed BODY_00e0: 00ed 00cf | | Action Mark_Auxiliary 00ee 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x2 = 0xee,0x1 00ef 01d9 | | Execute Vector,Reverse_Bounds 00f0 0263 | c | Execute Discrete,Above_Bound 00f1 700b |p | Jump_Nonzero 0xfd 00f2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x3 = 0xf2,0x2 00f3 e402 | | Load 0x2,0x2 00f4 0217 | | Execute Heap_Access,All_Reference 00f5 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6 00f6 01d5 | | Execute Vector,Field_Reference 00f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00f8 00d9 | | Load_Top At_Offset_1 00f9 e403 | | Load 0x2,0x3 00fa 01d6 | | Execute Vector,Field_Write 00fb 00c8 | | Action Pop_Auxiliary_Range 00fc 3ff5 |? | Loop_Increasing 0xf2 00fd 00ce | | Action Pop_Auxiliary 00fe 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x4 = 0xfe,0x3 00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 4800 |H | Short_Literal 0x0 ; Debug Table 0xb = .DEBUG 0x0103,0x027a,0x0002,0x0000,0x005a,0x4025,0x0000,0x0039 ; Debug Table 0xb.0x0 = 0x103,0x1 0104 00db | | Load_Top At_Offset_3 0105 8005 | | Call 0x0,0x5 0106 00db | | Load_Top At_Offset_3 0107 8006 | | Call 0x0,0x6 0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0109 0000 0000 | | .BLANK 0000[0x7] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0113,0x027e,0x0002,0x0000,0x005a,0x4025,0x0000,0x0051 ; Debug Table 0xc.0x0 = 0x113,0x1 0114 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0115 00db | | Load_Top At_Offset_3 0116 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0117 821e | | Call 0x1,0x1e 0118 0217 | | Execute Heap_Access,All_Reference 0119 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 011a 01d7 | | Execute Vector,Field_Read 011b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0128 | ( | .CONST 0x0128 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0002 | | .CONST 0x0002 ; Number of locals 0123 INIT_0120: 0123 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0123,0x0282,0x0002,0x0000,0x005a,0x4025,0x0000,0x00cc ; Debug Table 0xd.0x0 = 0x123,0xffff 0124 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0125 821e | | Call 0x1,0x1e 0126 0217 | | Execute Heap_Access,All_Reference 0127 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5 0128 BODY_0120: 0128 00cf | | Action Mark_Auxiliary 0129 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xd.0x1 = 0x129,0x1 012a 01d9 | | Execute Vector,Reverse_Bounds 012b 0263 | c | Execute Discrete,Above_Bound 012c 7015 |p | Jump_Nonzero 0x142 012d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x2 = 0x12d,0x2 012e e402 | | Load 0x2,0x2 012f 01d7 | | Execute Vector,Field_Read 0130 0217 | | Execute Heap_Access,All_Reference 0131 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4 0132 e5ff | | Load 0x2,-0x1 0133 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0134 027f | | Execute Discrete,Equal 0135 680a |h | Jump_Zero 0x140 0136 e20f | | Load 0x1,0xf ; Debug Table 0xd.0x3 = 0x136,0x3 0137 0322 | " | Declare_Variable Record 0138 e5ff | | Load 0x2,-0x1 0139 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013a 00d9 | | Load_Top At_Offset_1 013b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 013c 00d9 | | Load_Top At_Offset_1 013d 00d9 | | Load_Top At_Offset_1 013e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0140 00c8 | | Action Pop_Auxiliary_Range 0141 3feb |? | Loop_Increasing 0x12d 0142 00ce | | Action Pop_Auxiliary 0143 4831 |H1 | Short_Literal 0x31 0144 0257 | W | Execute Discrete,Raise 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 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 00cf | | Action Mark_Auxiliary ; Debug Table 0xe = .DEBUG 0x014b,0x028c,0x0001,0x0000,0x005a,0x4025,0x0000,0x01a2 014c e7fe | | Load 0x3,-0x2 ; Debug Table 0xe.0x0 = 0x14c,0x1 014d 01d9 | | Execute Vector,Reverse_Bounds 014e 0263 | c | Execute Discrete,Above_Bound 014f 7011 |p | Jump_Nonzero 0x161 0150 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x1 = 0x150,0x2 0151 e7fe | | Load 0x3,-0x2 0152 01d5 | | Execute Vector,Field_Reference 0153 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0154 e5fe | | Load 0x2,-0x2 0155 027f | | Execute Discrete,Equal 0156 6808 |h | Jump_Zero 0x15f 0157 e7ff | | Load 0x3,-0x1 ; Debug Table 0xe.0x2 = 0x157,0x3 0158 a5fd | | Store_Unchecked 0x2,-0x3 0159 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x3 = 0x159,0x4 015a a5fc | | Store_Unchecked 0x2,-0x4 015b 4801 |H | Short_Literal 0x1 ; Debug Table 0xe.0x4 = 0x15b,0x5 015c a404 | | Store_Unchecked 0x2,0x4 015d 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0xe.0x5 = 0x15d,0x6 015e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 015f 00c8 | | Action Pop_Auxiliary_Range 0160 3fef |? | Loop_Increasing 0x150 0161 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; Debug Table 0168 ; -------------------------------------------------------------------------------------- 0168 0003 000f | | .CONST 0x0003,0x000f 016a 000b 01e2 | | .DEBUG 0x000b,0x01e2,0x0000,0x0000,0x005a,0x3c25,0x0000,0x056c 0172 0032 0204 | 2 | .DEBUG 0x0032,0x0204,0x0000,0x0000,0x005a,0x4025,0x0000,0x0004 017a 005b 022a | [ *| .DEBUG 0x005b,0x022a,0x0002,0x0000,0x005a,0x3c25,0x0000,0x0593 0182 006b 0234 | k 4| .DEBUG 0x006b,0x0234,0x0002,0x0000,0x005a,0x3c25,0x0000,0x059c 018a 007b 023e | { >| .DEBUG 0x007b,0x023e,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05a5 0192 0083 0242 | B| .DEBUG 0x0083,0x0242,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05ae 019a 0093 0246 | F| .DEBUG 0x0093,0x0246,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05bb 01a2 00a3 024a | J| .DEBUG 0x00a3,0x024a,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05c8 01aa 00ab 024e | N| .DEBUG 0x00ab,0x024e,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05d1 01b2 00b3 0252 | R| .DEBUG 0x00b3,0x0252,0x0001,0x0000,0x005a,0x3c25,0x0000,0x05e0 01ba 00e3 026e | n| .DEBUG 0x00e3,0x026e,0x0002,0x0000,0x005a,0x3c25,0x0000,0x05fd 01c2 0103 027a | z| .DEBUG 0x0103,0x027a,0x0002,0x0000,0x005a,0x4025,0x0000,0x0039 01ca 0113 027e | ~| .DEBUG 0x0113,0x027e,0x0002,0x0000,0x005a,0x4025,0x0000,0x0051 01d2 0123 0282 | # | .DEBUG 0x0123,0x0282,0x0002,0x0000,0x005a,0x4025,0x0000,0x00cc 01da 014b 028c | K | .DEBUG 0x014b,0x028c,0x0001,0x0000,0x005a,0x4025,0x0000,0x01a2 01e2 ; -------------------------------------------------------------------------------------- 01e2 ; Debug3 Subtable 0x0 01e2 ; -------------------------------------------------------------------------------------- 01e2 0010 0000 | | .DBG3TAB 0x0010,0x0000 01e4 000b ffff | | .CONST 0x000b,0xffff 01e6 000d fffe | | .CONST 0x000d,0xfffe 01e8 000e fffd | | .CONST 0x000e,0xfffd 01ea 0010 fffc | | .CONST 0x0010,0xfffc 01ec 0011 fffb | | .CONST 0x0011,0xfffb 01ee 0017 fffa | | .CONST 0x0017,0xfffa 01f0 0019 fff9 | | .CONST 0x0019,0xfff9 01f2 001b fff8 | | .CONST 0x001b,0xfff8 01f4 001d fff7 | | .CONST 0x001d,0xfff7 01f6 001f fff6 | | .CONST 0x001f,0xfff6 01f8 0021 fff5 | ! | .CONST 0x0021,0xfff5 01fa 0023 fff4 | # | .CONST 0x0023,0xfff4 01fc 0025 fff3 | % | .CONST 0x0025,0xfff3 01fe 0027 fff2 | ' | .CONST 0x0027,0xfff2 0200 0029 fff1 | ) | .CONST 0x0029,0xfff1 0202 002f fff0 | / | .CONST 0x002f,0xfff0 0204 ; -------------------------------------------------------------------------------------- 0204 ; Debug3 Subtable 0x1 0204 ; -------------------------------------------------------------------------------------- 0204 0012 0000 | | .DBG3TAB 0x0012,0x0000 0206 0032 ffff | 2 | .CONST 0x0032,0xffff 0208 0033 fffe | 3 | .CONST 0x0033,0xfffe 020a 0035 fffd | 5 | .CONST 0x0035,0xfffd 020c 0037 fffc | 7 | .CONST 0x0037,0xfffc 020e 0039 fffb | 9 | .CONST 0x0039,0xfffb 0210 003a fffa | : | .CONST 0x003a,0xfffa 0212 003b fff9 | ; | .CONST 0x003b,0xfff9 0214 003d fff8 | = | .CONST 0x003d,0xfff8 0216 003f fff7 | ? | .CONST 0x003f,0xfff7 0218 0041 fff6 | A | .CONST 0x0041,0xfff6 021a 0043 fff5 | C | .CONST 0x0043,0xfff5 021c 0045 fff4 | E | .CONST 0x0045,0xfff4 021e 0047 fff3 | G | .CONST 0x0047,0xfff3 0220 0049 fff2 | I | .CONST 0x0049,0xfff2 0222 004b fff1 | K | .CONST 0x004b,0xfff1 0224 004d fff0 | M | .CONST 0x004d,0xfff0 0226 004f ffef | O | .CONST 0x004f,0xffef 0228 0051 ffee | Q | .CONST 0x0051,0xffee 022a ; -------------------------------------------------------------------------------------- 022a ; Debug3 Subtable 0x2 022a ; -------------------------------------------------------------------------------------- 022a 0001 0003 | | .DBG3TAB 0x0001,0x0003 022c 005b ffff | [ | .CONST 0x005b,0xffff 022e 005f 0001 | _ | .CONST 0x005f,0x0001 0230 0061 0002 | a | .CONST 0x0061,0x0002 0232 0065 0003 | e | .CONST 0x0065,0x0003 0234 ; -------------------------------------------------------------------------------------- 0234 ; Debug3 Subtable 0x3 0234 ; -------------------------------------------------------------------------------------- 0234 0001 0003 | | .DBG3TAB 0x0001,0x0003 0236 006b ffff | k | .CONST 0x006b,0xffff 0238 006f 0001 | o | .CONST 0x006f,0x0001 023a 0071 0002 | q | .CONST 0x0071,0x0002 023c 0075 0003 | u | .CONST 0x0075,0x0003 023e ; -------------------------------------------------------------------------------------- 023e ; Debug3 Subtable 0x4 023e ; -------------------------------------------------------------------------------------- 023e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0240 007b 0001 | { | .CONST 0x007b,0x0001 0242 ; -------------------------------------------------------------------------------------- 0242 ; Debug3 Subtable 0x5 0242 ; -------------------------------------------------------------------------------------- 0242 0000 0001 | | .DBG3TAB 0x0000,0x0001 0244 0083 0001 | | .CONST 0x0083,0x0001 0246 ; -------------------------------------------------------------------------------------- 0246 ; Debug3 Subtable 0x6 0246 ; -------------------------------------------------------------------------------------- 0246 0000 0001 | | .DBG3TAB 0x0000,0x0001 0248 0093 0001 | | .CONST 0x0093,0x0001 024a ; -------------------------------------------------------------------------------------- 024a ; Debug3 Subtable 0x7 024a ; -------------------------------------------------------------------------------------- 024a 0000 0001 | | .DBG3TAB 0x0000,0x0001 024c 00a3 0001 | | .CONST 0x00a3,0x0001 024e ; -------------------------------------------------------------------------------------- 024e ; Debug3 Subtable 0x8 024e ; -------------------------------------------------------------------------------------- 024e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0250 00ab 0001 | | .CONST 0x00ab,0x0001 0252 ; -------------------------------------------------------------------------------------- 0252 ; Debug3 Subtable 0x9 0252 ; -------------------------------------------------------------------------------------- 0252 0004 0009 | | .DBG3TAB 0x0004,0x0009 0254 00b3 ffff | | .CONST 0x00b3,0xffff 0256 00b7 fffe | | .CONST 0x00b7,0xfffe 0258 00bb fffd | | .CONST 0x00bb,0xfffd 025a 00bd fffc | | .CONST 0x00bd,0xfffc 025c 00bf 0001 | | .CONST 0x00bf,0x0001 025e 00c4 0002 | | .CONST 0x00c4,0x0002 0260 00c6 0003 | | .CONST 0x00c6,0x0003 0262 00c8 0004 | | .CONST 0x00c8,0x0004 0264 00cc 0005 | | .CONST 0x00cc,0x0005 0266 00d3 0006 | | .CONST 0x00d3,0x0006 0268 00d5 0007 | | .CONST 0x00d5,0x0007 026a 00d9 0008 | | .CONST 0x00d9,0x0008 026c 00db 0009 | | .CONST 0x00db,0x0009 026e ; -------------------------------------------------------------------------------------- 026e ; Debug3 Subtable 0xa 026e ; -------------------------------------------------------------------------------------- 026e 0002 0003 | | .DBG3TAB 0x0002,0x0003 0270 00e3 ffff | | .CONST 0x00e3,0xffff 0272 00e7 fffe | | .CONST 0x00e7,0xfffe 0274 00ee 0001 | | .CONST 0x00ee,0x0001 0276 00f2 0002 | | .CONST 0x00f2,0x0002 0278 00fe 0003 | | .CONST 0x00fe,0x0003 027a ; -------------------------------------------------------------------------------------- 027a ; Debug3 Subtable 0xb 027a ; -------------------------------------------------------------------------------------- 027a 0000 0001 | | .DBG3TAB 0x0000,0x0001 027c 0103 0001 | | .CONST 0x0103,0x0001 027e ; -------------------------------------------------------------------------------------- 027e ; Debug3 Subtable 0xc 027e ; -------------------------------------------------------------------------------------- 027e 0000 0001 | | .DBG3TAB 0x0000,0x0001 0280 0113 0001 | | .CONST 0x0113,0x0001 0282 ; -------------------------------------------------------------------------------------- 0282 ; Debug3 Subtable 0xd 0282 ; -------------------------------------------------------------------------------------- 0282 0001 0003 | | .DBG3TAB 0x0001,0x0003 0284 0123 ffff | # | .CONST 0x0123,0xffff 0286 0129 0001 | ) | .CONST 0x0129,0x0001 0288 012d 0002 | - | .CONST 0x012d,0x0002 028a 0136 0003 | 6 | .CONST 0x0136,0x0003 028c ; -------------------------------------------------------------------------------------- 028c ; Debug3 Subtable 0xe 028c ; -------------------------------------------------------------------------------------- 028c 0000 0006 | | .DBG3TAB 0x0000,0x0006 028e 014c 0001 | L | .CONST 0x014c,0x0001 0290 0150 0002 | P | .CONST 0x0150,0x0002 0292 0157 0003 | W | .CONST 0x0157,0x0003 0294 0159 0004 | Y | .CONST 0x0159,0x0004 0296 015b 0005 | [ | .CONST 0x015b,0x0005 0298 015d 0006 | ] | .CONST 0x015d,0x0006 029a 0000 0000 | | .BLANK 0000[0x166]