|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5805_R1K_CODE
Names: »1024018.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1024018.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1024018.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1024018.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1024018.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1024018.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0170 | p | .CONST 0x0170 ; 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 0026 | & | .CONST 0x0026 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 029a 002b | +| Declare_Subprogram INIT_0028,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x01ca,0xc000,0x0000,0x000e,0x7d64,0x0000,0x0003 ; Debug Table 0x0.0x0 = 0xb,0xffff 000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd 0011 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc 0013 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb 0015 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa 0017 00bf | | Action Accept_Activation 0018 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1 = .DEBUG 0x0018,0x01d8,0xc000,0x0000,0x000e,0x8284,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x18,0xffff 0019 00c7 | | Action Elaborate_Subprogram 001a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x1 = 0x1a,0xfffe 001b 00c7 | | Action Elaborate_Subprogram 001c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x2 = 0x1c,0xfffd 001d 00c7 | | Action Elaborate_Subprogram 001e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0x3 = 0x1e,0xfffc 001f 00c7 | | Action Elaborate_Subprogram 0020 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0x4 = 0x20,0xfffb 0021 00c7 | | Action Elaborate_Subprogram 0022 029d 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call ; Debug Table 0x1.0x5 = 0x22,0xfffa 0024 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x6 = 0x24,0xfff9 0025 00c7 | | Action Elaborate_Subprogram 0026 BODY_0008: 0026 00bc | | Action Signal_Activated 0027 00bb | | Action Signal_Completion 0028 ; -------------------------------------------------------------------------------------- 0028 ; SUBPROGRAM 0028 ; -------------------------------------------------------------------------------------- 0028 002f | / | .CONST 0x002f ; Address of begin 0029 0004 | | .CONST 0x0004 ; Address of exception handler 002a 0003 | | .CONST 0x0003 ; Number of locals 002b INIT_0028: 002b e212 | | Load 0x1,0x12 ; Debug Table 0x2 = .DEBUG 0x002b,0x01e8,0x1002,0x0000,0x000e,0x7d64,0x0000,0x0077 ; Debug Table 0x2.0x0 = 0x2b,0xffff 002c 0007 | | Action Break_Optional 002d e212 | | Load 0x1,0x12 ; Debug Table 0x2.0x1 = 0x2d,0xfffe 002e 0007 | | Action Break_Optional 002f BODY_0028: 002f e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x2 = 0x2f,0x1 0030 e210 | | Load 0x1,0x10 0031 0213 | | Execute Heap_Access,Check_In_Type 0032 821a | | Call 0x1,0x1a 0033 0031 | 1 | Store_Top Heap_Access,At_Offset_1 0034 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x3 = 0x34,0x2 0035 7008 |p | Jump_Nonzero 0x3e 0036 e212 | | Load 0x1,0x12 ; Debug Table 0x2.0x4 = 0x36,0x3 0037 e5ff | | Load 0x2,-0x1 0038 039c | | Declare_Variable Heap_Access,By_Allocation 0039 00d8 | | Load_Top At_Offset_0 003a 0217 | | Execute Heap_Access,All_Reference 003b 1c00 | | Execute_Immediate Run_Utility,0x0 003c 0032 | 2 | Store_Top Heap_Access,At_Offset_2 003d 7817 |x | Jump 0x55 ; Debug Table 0x2.0x5 = 0x3d,0x4 003e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x6 = 0x3e,0x5 003f 0032 | 2 | Store_Top Heap_Access,At_Offset_2 0040 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x7 = 0x40,0x6 0041 0219 | | Execute Heap_Access,All_Read 0042 e211 | | Load 0x1,0x11 0043 0119 | | Execute Any,Check_In_Formal_Type 0044 8218 | | Call 0x1,0x18 0045 e212 | | Load 0x1,0x12 0046 0213 | | Execute Heap_Access,Check_In_Type 0047 e5ff | | Load 0x2,-0x1 0048 e210 | | Load 0x1,0x10 0049 0213 | | Execute Heap_Access,Check_In_Type 004a 821b | | Call 0x1,0x1b 004b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x8 = 0x4b,0x7 004c 00d8 | | Load_Top At_Offset_0 004d 0219 | | Execute Heap_Access,All_Read 004e e212 | | Load 0x1,0x12 004f e212 | | Load 0x1,0x12 0050 0213 | | Execute Heap_Access,Check_In_Type 0051 8219 | | Call 0x1,0x19 0052 00d9 | | Load_Top At_Offset_1 0053 0218 | | Execute Heap_Access,All_Write 0054 00d1 | | Pop_Control Pop_Count_1 0055 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x9 = 0x55,0x8 0056 e212 | | Load 0x1,0x12 0057 0213 | | Execute Heap_Access,Check_In_Type 0058 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0059 0000 0000 | | .BLANK 0000[0x7] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0063,0x01fe,0x1001,0x0000,0x000e,0x7d64,0x0000,0x0080 ; Debug Table 0x3.0x0 = 0x63,0x1 0064 00d8 | | Load_Top At_Offset_0 0065 0219 | | Execute Heap_Access,All_Read 0066 e5ff | | Load 0x2,-0x1 0067 e210 | | Load 0x1,0x10 0068 0213 | | Execute Heap_Access,Check_In_Type 0069 821a | | Call 0x1,0x1a 006a e212 | | Load 0x1,0x12 006b 0213 | | Execute Heap_Access,Check_In_Type 006c 8219 | | Call 0x1,0x19 006d 00d9 | | Load_Top At_Offset_1 006e 0218 | | Execute Heap_Access,All_Write 006f 00d1 | | Pop_Control Pop_Count_1 0070 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x70,0x2 0071 e212 | | Load 0x1,0x12 0072 0213 | | Execute Heap_Access,Check_In_Type 0073 00db | | Load_Top At_Offset_3 0074 e210 | | Load 0x1,0x10 0075 0213 | | Execute Heap_Access,Check_In_Type 0076 821b | | Call 0x1,0x1b 0077 e212 | | Load 0x1,0x12 ; Debug Table 0x3.0x2 = 0x77,0x3 0078 a5fe | | Store_Unchecked 0x2,-0x2 0079 4502 |E | Exit_Suprogram New_Top_Offset 0x2 007a 0000 0000 | | .BLANK 0000[0x6] 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0084 | | .CONST 0x0084 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0002 | | .CONST 0x0002 ; Number of locals 0083 INIT_0080: 0083 e212 | | Load 0x1,0x12 ; Debug Table 0x4 = .DEBUG 0x0083,0x0206,0x1001,0x0000,0x000e,0x7d64,0x0000,0x008c ; Debug Table 0x4.0x0 = 0x83,0xffff 0084 BODY_0080: 0084 00cf | | Action Mark_Auxiliary 0085 780f |x | Jump 0x95 0086 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0x86,0x2 0087 0219 | | Execute Heap_Access,All_Read 0088 e211 | | Load 0x1,0x11 0089 0119 | | Execute Any,Check_In_Formal_Type 008a 8218 | | Call 0x1,0x18 008b 0032 | 2 | Store_Top Heap_Access,At_Offset_2 008c e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x2 = 0x8c,0x3 008d e5ff | | Load 0x2,-0x1 008e e210 | | Load 0x1,0x10 008f 0213 | | Execute Heap_Access,Check_In_Type 0090 821d | | Call 0x1,0x1d 0091 c5fe | | Store 0x2,-0x2 0092 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x3 = 0x92,0x4 0093 a5fe | | Store_Unchecked 0x2,-0x2 0094 00c9 | | Action Pop_Auxiliary_Loop 0095 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x4 = 0x95,0x1 0096 77ef |w | Jump_Nonzero 0x86 0097 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 00a0 | | .CONST 0x00a0 ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0003 | | .CONST 0x0003 ; Number of locals 009b INIT_0098: 009b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x5 = .DEBUG 0x009b,0x0212,0x1002,0x0000,0x000e,0x7d64,0x0000,0x0098 ; Debug Table 0x5.0x0 = 0x9b,0xffff 009c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 009d e212 | | Load 0x1,0x12 ; Debug Table 0x5.0x1 = 0x9d,0xfffe 009e e5ff | | Load 0x2,-0x1 009f 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00a0 BODY_0098: 00a0 00cf | | Action Mark_Auxiliary 00a1 780a |x | Jump 0xac 00a2 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x2 = 0xa2,0x2 00a3 0a01 | | Execute_Immediate Plus,0x1 00a4 005b | [ | Store_Top Discrete,At_Offset_3 00a5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x3 = 0xa5,0x3 00a6 0219 | | Execute Heap_Access,All_Read 00a7 e211 | | Load 0x1,0x11 00a8 0119 | | Execute Any,Check_In_Formal_Type 00a9 8218 | | Call 0x1,0x18 00aa 0032 | 2 | Store_Top Heap_Access,At_Offset_2 00ab 00c9 | | Action Pop_Auxiliary_Loop 00ac 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x4 = 0xac,0x1 00ad 77f4 |w | Jump_Nonzero 0xa2 00ae 00ce | | Action Pop_Auxiliary 00af 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x5 = 0xaf,0x4 00b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00b1 0000 0000 | | .BLANK 0000[0x7] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00be | | .CONST 0x00be ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0003 | | .CONST 0x0003 ; Number of locals 00bb INIT_00b8: 00bb e212 | | Load 0x1,0x12 ; Debug Table 0x6 = .DEBUG 0x00bb,0x0220,0x1002,0x0000,0x000e,0x7d64,0x0000,0x00a1 ; Debug Table 0x6.0x0 = 0xbb,0xffff 00bc 0007 | | Action Break_Optional 00bd e212 | | Load 0x1,0x12 ; Debug Table 0x6.0x1 = 0xbd,0xfffe 00be BODY_00b8: 00be 00cf | | Action Mark_Auxiliary 00bf e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x2 = 0xbf,0x1 00c0 01d9 | | Execute Vector,Reverse_Bounds 00c1 0263 | c | Execute Discrete,Above_Bound 00c2 702e |p. | Jump_Nonzero 0xf1 00c3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x3 = 0xc3,0x2 00c4 e5fe | | Load 0x2,-0x2 00c5 01dd | | Execute Vector,First 00c6 027f | | Execute Discrete,Equal 00c7 6808 |h | Jump_Zero 0xd0 00c8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x6.0x4 = 0xc8,0x3 00c9 e210 | | Load 0x1,0x10 00ca 0213 | | Execute Heap_Access,Check_In_Type 00cb 821c | | Call 0x1,0x1c 00cc a402 | | Store_Unchecked 0x2,0x2 00cd e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x5 = 0xcd,0x4 00ce a403 | | Store_Unchecked 0x2,0x3 00cf 7813 |x | Jump 0xe3 00d0 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x6 = 0xd0,0x5 00d1 00d8 | | Load_Top At_Offset_0 00d2 0219 | | Execute Heap_Access,All_Read 00d3 e5ff | | Load 0x2,-0x1 00d4 e210 | | Load 0x1,0x10 00d5 0213 | | Execute Heap_Access,Check_In_Type 00d6 821c | | Call 0x1,0x1c 00d7 e212 | | Load 0x1,0x12 00d8 0213 | | Execute Heap_Access,Check_In_Type 00d9 8219 | | Call 0x1,0x19 00da 00d9 | | Load_Top At_Offset_1 00db 0218 | | Execute Heap_Access,All_Write 00dc 00d1 | | Pop_Control Pop_Count_1 00dd e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x7 = 0xdd,0x6 00de 0219 | | Execute Heap_Access,All_Read 00df e211 | | Load 0x1,0x11 00e0 0119 | | Execute Any,Check_In_Formal_Type 00e1 8218 | | Call 0x1,0x18 00e2 a402 | | Store_Unchecked 0x2,0x2 00e3 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x8 = 0xe3,0x7 00e4 00d8 | | Load_Top At_Offset_0 00e5 0219 | | Execute Heap_Access,All_Read 00e6 00da | | Load_Top At_Offset_2 00e7 e5fe | | Load 0x2,-0x2 00e8 01d7 | | Execute Vector,Field_Read 00e9 e213 | | Load 0x1,0x13 00ea 0119 | | Execute Any,Check_In_Formal_Type 00eb 8217 | | Call 0x1,0x17 00ec 00d9 | | Load_Top At_Offset_1 00ed 0218 | | Execute Heap_Access,All_Write 00ee 00d1 | | Pop_Control Pop_Count_1 00ef 00c8 | | Action Pop_Auxiliary_Range 00f0 3fd2 |? | Loop_Increasing 0xc3 00f1 00ce | | Action Pop_Auxiliary 00f2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x9 = 0xf2,0x8 00f3 e212 | | Load 0x1,0x12 00f4 0213 | | Execute Heap_Access,Check_In_Type 00f5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0108 | | .CONST 0x0108 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0005 | | .CONST 0x0005 ; Number of locals 00fb INIT_00f8: 00fb e212 | | Load 0x1,0x12 ; Debug Table 0x7 = .DEBUG 0x00fb,0x0236,0x1002,0x0000,0x000e,0x7d64,0x0000,0x00ae ; Debug Table 0x7.0x0 = 0xfb,0xffff 00fc 00db | | Load_Top At_Offset_3 00fd 0031 | 1 | Store_Top Heap_Access,At_Offset_1 00fe 00db | | Load_Top At_Offset_3 ; Debug Table 0x7.0x1 = 0xfe,0xfffe 00ff e212 | | Load 0x1,0x12 0100 0213 | | Execute Heap_Access,Check_In_Type 0101 821f | | Call 0x1,0x1f 0102 00e3 | | Load_Encached Natural_Cache 0103 03f1 | | Declare_Variable Discrete,With_Value 0104 029f 012b | +| Declare_Subprogram INIT_0128,For_Call 0106 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call 0108 BODY_00f8: 0108 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x2 = 0x108,0x1 0109 7002 |p | Jump_Nonzero 0x10c 010a 8404 | | Call 0x2,0x4 ; Debug Table 0x7.0x3 = 0x10a,0x2 010b 7801 |x | Jump 0x10d 010c 8405 | | Call 0x2,0x5 ; Debug Table 0x7.0x4 = 0x10c,0x3 010d 4831 |H1 | Short_Literal 0x31 010e 0257 | W | Execute Discrete,Raise 010f 0000 | | .XXX[0x1] 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 0x8 = .DEBUG 0x0113,0x0242,0x1002,0x0000,0x000e,0x8284,0x0000,0x0118 ; Debug Table 0x8.0x0 = 0x113,0x1 0114 e5fe | | Load 0x2,-0x2 0115 0273 | s | Execute Discrete,Plus 0116 0248 | H | Execute Discrete,Check_In_Integer 0117 00d8 | | Load_Top At_Offset_0 0118 e214 | | Load 0x1,0x14 0119 0122 | " | Execute Any,Make_Root_Type 011a 0260 | ` | Execute Discrete,In_Type 011b 7002 |p | Jump_Nonzero 0x11e 011c 48e0 |H | Short_Literal 0xe0 011d 0257 | W | Execute Discrete,Raise 011e e214 | | Load 0x1,0x14 011f 025b | [ | Execute Discrete,Check_In_Type 0120 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0121 0000 0000 | | .BLANK 0000[0x7] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 0134 | 4 | .CONST 0x0134 ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0002 | | .CONST 0x0002 ; Number of locals 012b INIT_0128: 012b e214 | | Load 0x1,0x14 ; Debug Table 0x9 = .DEBUG 0x012b,0x0246,0x1004,0x0000,0x000e,0x8284,0x0000,0x016d ; Debug Table 0x9.0x0 = 0x12b,0xffff 012c 0269 | i | Execute Discrete,Last 012d e214 | | Load 0x1,0x14 012e 026a | j | Execute Discrete,First 012f e215 | | Load 0x1,0x15 0130 035b | [ | Declare_Type Array,Constrained 0131 0337 | 7 | Declare_Variable Array 0132 00d8 | | Load_Top At_Offset_0 0133 1c00 | | Execute_Immediate Run_Utility,0x0 0134 BODY_0128: 0134 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0x134,0x1 0135 e215 | | Load 0x1,0x15 0136 01c6 | | Execute Vector,Convert_To_Formal 0137 00cb | | Action Pop_Block_With_Result 0138 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0139 0000 0000 | | .BLANK 0000[0x7] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0153 | S | .CONST 0x0153 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0002 | | .CONST 0x0002 ; Number of locals 0143 INIT_0140: 0143 e5fe | | Load 0x2,-0x2 ; Debug Table 0xa = .DEBUG 0x0143,0x024c,0x1004,0x0000,0x000e,0x8284,0x0000,0x01a2 ; Debug Table 0xa.0x0 = 0x143,0xffff 0144 e5ff | | Load 0x2,-0x1 0145 e212 | | Load 0x1,0x12 0146 0213 | | Execute Heap_Access,Check_In_Type 0147 821f | | Call 0x1,0x1f 0148 0aff | | Execute_Immediate Plus,-0x1 0149 0248 | H | Execute Discrete,Check_In_Integer 014a e5fe | | Load 0x2,-0x2 014b e214 | | Load 0x1,0x14 014c 025b | [ | Execute Discrete,Check_In_Type 014d 8222 | " | Call 0x1,0x22 014e e215 | | Load 0x1,0x15 014f 035b | [ | Declare_Type Array,Constrained 0150 0337 | 7 | Declare_Variable Array 0151 00d8 | | Load_Top At_Offset_0 0152 1c00 | | Execute_Immediate Run_Utility,0x0 0153 BODY_0140: 0153 00cf | | Action Mark_Auxiliary 0154 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x1 = 0x154,0x1 0155 01d9 | | Execute Vector,Reverse_Bounds 0156 0263 | c | Execute Discrete,Above_Bound 0157 7010 |p | Jump_Nonzero 0x168 0158 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x2 = 0x158,0x2 0159 0219 | | Execute Heap_Access,All_Read 015a e211 | | Load 0x1,0x11 015b 0119 | | Execute Any,Check_In_Formal_Type 015c 8216 | | Call 0x1,0x16 015d 00d9 | | Load_Top At_Offset_1 015e e602 | | Load 0x3,0x2 015f 01d6 | | Execute Vector,Field_Write 0160 e402 | | Load 0x2,0x2 ; Debug Table 0xa.0x3 = 0x160,0x3 0161 0219 | | Execute Heap_Access,All_Read 0162 e211 | | Load 0x1,0x11 0163 0119 | | Execute Any,Check_In_Formal_Type 0164 8218 | | Call 0x1,0x18 0165 a402 | | Store_Unchecked 0x2,0x2 0166 00c8 | | Action Pop_Auxiliary_Range 0167 3ff0 |? | Loop_Increasing 0x158 0168 00ce | | Action Pop_Auxiliary 0169 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x4 = 0x169,0x4 016a e215 | | Load 0x1,0x15 016b 01c6 | | Execute Vector,Convert_To_Formal 016c 00cb | | Action Pop_Block_With_Result 016d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 016e 0000 0000 | | .XXX[0x2] 0170 ; -------------------------------------------------------------------------------------- 0170 ; Debug Table 0170 ; -------------------------------------------------------------------------------------- 0170 0003 000b | | .CONST 0x0003,0x000b 0172 000b 01ca | | .DEBUG 0x000b,0x01ca,0xc000,0x0000,0x000e,0x7d64,0x0000,0x0003 017a 0018 01d8 | | .DEBUG 0x0018,0x01d8,0xc000,0x0000,0x000e,0x8284,0x0000,0x0003 0182 002b 01e8 | + | .DEBUG 0x002b,0x01e8,0x1002,0x0000,0x000e,0x7d64,0x0000,0x0077 018a 0063 01fe | c | .DEBUG 0x0063,0x01fe,0x1001,0x0000,0x000e,0x7d64,0x0000,0x0080 0192 0083 0206 | | .DEBUG 0x0083,0x0206,0x1001,0x0000,0x000e,0x7d64,0x0000,0x008c 019a 009b 0212 | | .DEBUG 0x009b,0x0212,0x1002,0x0000,0x000e,0x7d64,0x0000,0x0098 01a2 00bb 0220 | | .DEBUG 0x00bb,0x0220,0x1002,0x0000,0x000e,0x7d64,0x0000,0x00a1 01aa 00fb 0236 | 6| .DEBUG 0x00fb,0x0236,0x1002,0x0000,0x000e,0x7d64,0x0000,0x00ae 01b2 0113 0242 | B| .DEBUG 0x0113,0x0242,0x1002,0x0000,0x000e,0x8284,0x0000,0x0118 01ba 012b 0246 | + F| .DEBUG 0x012b,0x0246,0x1004,0x0000,0x000e,0x8284,0x0000,0x016d 01c2 0143 024c | C L| .DEBUG 0x0143,0x024c,0x1004,0x0000,0x000e,0x8284,0x0000,0x01a2 01ca ; -------------------------------------------------------------------------------------- 01ca ; Debug3 Subtable 0x0 01ca ; -------------------------------------------------------------------------------------- 01ca 0006 0000 | | .DBG3TAB 0x0006,0x0000 01cc 000b ffff | | .CONST 0x000b,0xffff 01ce 000d fffe | | .CONST 0x000d,0xfffe 01d0 000f fffd | | .CONST 0x000f,0xfffd 01d2 0011 fffc | | .CONST 0x0011,0xfffc 01d4 0013 fffb | | .CONST 0x0013,0xfffb 01d6 0015 fffa | | .CONST 0x0015,0xfffa 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; Debug3 Subtable 0x1 01d8 ; -------------------------------------------------------------------------------------- 01d8 0007 0000 | | .DBG3TAB 0x0007,0x0000 01da 0018 ffff | | .CONST 0x0018,0xffff 01dc 001a fffe | | .CONST 0x001a,0xfffe 01de 001c fffd | | .CONST 0x001c,0xfffd 01e0 001e fffc | | .CONST 0x001e,0xfffc 01e2 0020 fffb | | .CONST 0x0020,0xfffb 01e4 0022 fffa | " | .CONST 0x0022,0xfffa 01e6 0024 fff9 | $ | .CONST 0x0024,0xfff9 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; Debug3 Subtable 0x2 01e8 ; -------------------------------------------------------------------------------------- 01e8 0002 0008 | | .DBG3TAB 0x0002,0x0008 01ea 002b ffff | + | .CONST 0x002b,0xffff 01ec 002d fffe | - | .CONST 0x002d,0xfffe 01ee 002f 0001 | / | .CONST 0x002f,0x0001 01f0 0034 0002 | 4 | .CONST 0x0034,0x0002 01f2 0036 0003 | 6 | .CONST 0x0036,0x0003 01f4 003d 0004 | = | .CONST 0x003d,0x0004 01f6 003e 0005 | > | .CONST 0x003e,0x0005 01f8 0040 0006 | @ | .CONST 0x0040,0x0006 01fa 004b 0007 | K | .CONST 0x004b,0x0007 01fc 0055 0008 | U | .CONST 0x0055,0x0008 01fe ; -------------------------------------------------------------------------------------- 01fe ; Debug3 Subtable 0x3 01fe ; -------------------------------------------------------------------------------------- 01fe 0000 0003 | | .DBG3TAB 0x0000,0x0003 0200 0063 0001 | c | .CONST 0x0063,0x0001 0202 0070 0002 | p | .CONST 0x0070,0x0002 0204 0077 0003 | w | .CONST 0x0077,0x0003 0206 ; -------------------------------------------------------------------------------------- 0206 ; Debug3 Subtable 0x4 0206 ; -------------------------------------------------------------------------------------- 0206 0001 0004 | | .DBG3TAB 0x0001,0x0004 0208 0083 ffff | | .CONST 0x0083,0xffff 020a 0086 0002 | | .CONST 0x0086,0x0002 020c 008c 0003 | | .CONST 0x008c,0x0003 020e 0092 0004 | | .CONST 0x0092,0x0004 0210 0095 0001 | | .CONST 0x0095,0x0001 0212 ; -------------------------------------------------------------------------------------- 0212 ; Debug3 Subtable 0x5 0212 ; -------------------------------------------------------------------------------------- 0212 0002 0004 | | .DBG3TAB 0x0002,0x0004 0214 009b ffff | | .CONST 0x009b,0xffff 0216 009d fffe | | .CONST 0x009d,0xfffe 0218 00a2 0002 | | .CONST 0x00a2,0x0002 021a 00a5 0003 | | .CONST 0x00a5,0x0003 021c 00ac 0001 | | .CONST 0x00ac,0x0001 021e 00af 0004 | | .CONST 0x00af,0x0004 0220 ; -------------------------------------------------------------------------------------- 0220 ; Debug3 Subtable 0x6 0220 ; -------------------------------------------------------------------------------------- 0220 0002 0008 | | .DBG3TAB 0x0002,0x0008 0222 00bb ffff | | .CONST 0x00bb,0xffff 0224 00bd fffe | | .CONST 0x00bd,0xfffe 0226 00bf 0001 | | .CONST 0x00bf,0x0001 0228 00c3 0002 | | .CONST 0x00c3,0x0002 022a 00c8 0003 | | .CONST 0x00c8,0x0003 022c 00cd 0004 | | .CONST 0x00cd,0x0004 022e 00d0 0005 | | .CONST 0x00d0,0x0005 0230 00dd 0006 | | .CONST 0x00dd,0x0006 0232 00e3 0007 | | .CONST 0x00e3,0x0007 0234 00f2 0008 | | .CONST 0x00f2,0x0008 0236 ; -------------------------------------------------------------------------------------- 0236 ; Debug3 Subtable 0x7 0236 ; -------------------------------------------------------------------------------------- 0236 0002 0003 | | .DBG3TAB 0x0002,0x0003 0238 00fb ffff | | .CONST 0x00fb,0xffff 023a 00fe fffe | | .CONST 0x00fe,0xfffe 023c 0108 0001 | | .CONST 0x0108,0x0001 023e 010a 0002 | | .CONST 0x010a,0x0002 0240 010c 0003 | | .CONST 0x010c,0x0003 0242 ; -------------------------------------------------------------------------------------- 0242 ; Debug3 Subtable 0x8 0242 ; -------------------------------------------------------------------------------------- 0242 0000 0001 | | .DBG3TAB 0x0000,0x0001 0244 0113 0001 | | .CONST 0x0113,0x0001 0246 ; -------------------------------------------------------------------------------------- 0246 ; Debug3 Subtable 0x9 0246 ; -------------------------------------------------------------------------------------- 0246 0001 0001 | | .DBG3TAB 0x0001,0x0001 0248 012b ffff | + | .CONST 0x012b,0xffff 024a 0134 0001 | 4 | .CONST 0x0134,0x0001 024c ; -------------------------------------------------------------------------------------- 024c ; Debug3 Subtable 0xa 024c ; -------------------------------------------------------------------------------------- 024c 0001 0004 | | .DBG3TAB 0x0001,0x0004 024e 0143 ffff | C | .CONST 0x0143,0xffff 0250 0154 0001 | T | .CONST 0x0154,0x0001 0252 0158 0002 | X | .CONST 0x0158,0x0002 0254 0160 0003 | ` | .CONST 0x0160,0x0003 0256 0169 0004 | i | .CONST 0x0169,0x0004 0258 0000 0000 | | .BLANK 0000[0x1a8]