|
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: 4096 (0x1000) Types: SEG Notes: 5811_R1K_CODE Names: »8312840.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293 └─ ⟦this⟧ »8312840.SEG« └─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3 └─ ⟦this⟧ »8312840.SEG« └─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288 └─ ⟦this⟧ »8312840.SEG« └─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5 └─ ⟦this⟧ »8312840.SEG« └─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000 └─ ⟦this⟧ »8312840.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 03a8 | | .CONST 0x03a8 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 4804 |H | Short_Literal 0x4 ; Debug Table 0x0 = .DEBUG 0x000b,0x0472,0x8000,0x0000,0x0013,0x1f54,0x0000,0x0005 ; Debug Table 0x0.0x0 = 0xb,0xffff 000c 623f |b? | Indirect_Literal Discrete,0x24c,{0x007ed808, 0x000027b0} ; 0x7ed808 = UNCHECKED_CONVERSIONS 000d 02a0 | | Declare_Subprogram Null_Subprogram 000e 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated 000f 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xf,0xfffe 0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x11,0xfffd 0013 00bf | | Action Accept_Activation ; Debug Table 0x0.0x3 = 0x13,0xfffc ; Debug Table 0x0.0x4 = 0x13,0xfffb 0014 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1 = .DEBUG 0x0014,0x047e,0x8000,0x0000,0x002d,0xf1c4,0x0000,0x000b ; Debug Table 0x1.0x0 = 0x14,0xffff 0015 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x1.0x1 = 0x15,0xfffe 0016 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x16,0xfffd 0017 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x1.0x3 = 0x17,0xfffc ; Debug Table 0x1.0x4 = 0x17,0xfffb ; Debug Table 0x1.0x5 = 0x17,0xfffa ; Debug Table 0x1.0x6 = 0x17,0xfff9 ; Debug Table 0x1.0x7 = 0x17,0xfff8 0018 0266 | f | Execute Discrete,Bounds 0019 00e1 | | Load_Encached Boolean_Cache 001a 02a0 | | Declare_Subprogram Null_Subprogram 001b 4801 |H | Short_Literal 0x1 001c 0350 | P | Declare_Type Array,Defined,Bounds_With_Object 001d 029b 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x8 = 0x1d,0xfff7 001f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x9 = 0x1f,0xfff6 0020 00c7 | | Action Elaborate_Subprogram 0021 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call ; Debug Table 0x1.0xa = 0x21,0xfff5 0023 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xb = 0x23,0xfff4 0024 e003 | | Load 0x0,0x3 0025 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0026 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0027 4804 |H | Short_Literal 0x4 0028 e20d | | Load 0x1,0xd 0029 020e | | Execute Module,Augment_Imports 002a e20d | | Load 0x1,0xd 002b 020d | | Execute Module,Elaborate 002c 029b 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Unelaborated ; Debug Table 0x1.0xc = 0x2c,0xfff3 002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0xd = 0x2e,0xfff2 002f 00c7 | | Action Elaborate_Subprogram 0030 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0xe = 0x30,0xfff1 0031 00c7 | | Action Elaborate_Subprogram 0032 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call ; Debug Table 0x1.0xf = 0x32,0xfff0 0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x10 = 0x34,0xffef 0035 00c7 | | Action Elaborate_Subprogram 0036 BODY_0008: 0036 00bc | | Action Signal_Activated 0037 00bb | | Action Signal_Completion 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 004d | M | .CONST 0x004d ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 000b | | .CONST 0x000b ; Number of locals 003b INIT_0038: 003b e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x003b,0x04a2,0x2802,0x0002,0x0013,0x1f54,0x0000,0x001d ; Debug Table 0x2.0x0 = 0x3b,0xffff 003c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 003d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x1 = 0x3d,0xfffe 003e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x2 = 0x3e,0xfffd 003f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0040 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x3 = 0x40,0xfffc 0041 029f 01db | | Declare_Subprogram INIT_01d8,For_Call ; Debug Table 0x2.0x4 = 0x41,0xfffb 0043 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call ; Debug Table 0x2.0x5 = 0x43,0xfffa 0045 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call ; Debug Table 0x2.0x6 = 0x45,0xfff9 0047 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call ; Debug Table 0x2.0x7 = 0x47,0xfff8 0049 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call ; Debug Table 0x2.0x8 = 0x49,0xfff7 004b 029f 020b | | Declare_Subprogram INIT_0208,For_Call ; Debug Table 0x2.0x9 = 0x4b,0xfff6 004d BODY_0038: 004d 8406 | | Call 0x2,0x6 ; Debug Table 0x2.0xa = 0x4d,0x1 004e e402 | | Load 0x2,0x2 ; Debug Table 0x2.0xb = 0x4e,0x2 004f 4612 |F | Jump_Case 0x13 0050 7812 |x | Jump 0x63 ; case 0x0 0051 7811 |x | Jump 0x63 ; case 0x1 0052 7865 |xe | Jump 0xb8 ; case 0x2 0053 7864 |xd | Jump 0xb8 ; case 0x3 0054 7863 |xc | Jump 0xb8 ; case 0x4 0055 7862 |xb | Jump 0xb8 ; case 0x5 0056 7861 |xa | Jump 0xb8 ; case 0x6 0057 783f |x? | Jump 0x97 ; case 0x7 0058 783e |x> | Jump 0x97 ; case 0x8 0059 783d |x= | Jump 0x97 ; case 0x9 005a 785d |x] | Jump 0xb8 ; case 0xa 005b 785c |x\ | Jump 0xb8 ; case 0xb 005c 785b |x[ | Jump 0xb8 ; case 0xc 005d 781e |x | Jump 0x7c ; case 0xd 005e 7859 |xY | Jump 0xb8 ; case 0xe 005f 7858 |xX | Jump 0xb8 ; case 0xf 0060 7857 |xW | Jump 0xb8 ; case 0x10 0061 7856 |xV | Jump 0xb8 ; case 0x11 0062 7855 |xU | Jump 0xb8 ; case 0x12 0063 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0xc = 0x63,0x3 ; Debug Table 0x2.0xd = 0x63,0xfbff 0064 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call 0066 4801 |H | Short_Literal 0x1 0067 032d | - | Declare_Type Record,Defined 0068 e40c | | Load 0x2,0xc ; Debug Table 0x2.0xe = 0x68,0xfbfe 0069 0322 | " | Declare_Variable Record 006a e5fd | | Load 0x2,-0x3 006b e5fe | | Load 0x2,-0x2 006c 0119 | | Execute Any,Check_In_Formal_Type 006d e40d | | Load 0x2,0xd 006e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 006f 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x2.0xf = 0x6f,0xfbfd 0070 00c6 | | Action Check_Subprogram_Elaborated 0071 e40c | | Load 0x2,0xc 0072 61d5 |a | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 0073 61d0 |a | Indirect_Literal Discrete,0x244,{0x00000000, 0x000004f4} 0074 4811 |H | Short_Literal 0x11 0075 e40d | | Load 0x2,0xd ; Debug Table 0x2.0x10 = 0x75,0x401 0076 e40e | | Load 0x2,0xe 0077 480f |H | Short_Literal 0xf 0078 4802 |H | Short_Literal 0x2 0079 0099 | | Action Reference_Dynamic 007a 8214 | | Call 0x1,0x14 007b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 007c 8409 | | Call 0x2,0x9 ; Debug Table 0x2.0x11 = 0x7c,0x4 007d 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x2.0x12 = 0x7d,0x5 ; Debug Table 0x2.0x13 = 0x7d,0xf7ff 007e 00c6 | | Action Check_Subprogram_Elaborated 007f e5fe | | Load 0x2,-0x2 0080 61c7 |a | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 0081 61be |a | Indirect_Literal Discrete,0x240,{0x00000000, 0x0000050e} 0082 480f |H | Short_Literal 0xf 0083 e404 | | Load 0x2,0x4 ; Debug Table 0x2.0x14 = 0x83,0x801 0084 6809 |h | Jump_Zero 0x8e 0085 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x15 = 0x85,0x802 0086 e5fe | | Load 0x2,-0x2 0087 0119 | | Execute Any,Check_In_Formal_Type 0088 e40c | | Load 0x2,0xc 0089 480d |H | Short_Literal 0xd 008a 4802 |H | Short_Literal 0x2 008b 0099 | | Action Reference_Dynamic 008c 8214 | | Call 0x1,0x14 008d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 008e 840b | | Call 0x2,0xb ; Debug Table 0x2.0x16 = 0x8e,0x803 008f e5fe | | Load 0x2,-0x2 0090 0119 | | Execute Any,Check_In_Formal_Type 0091 e40c | | Load 0x2,0xc 0092 480d |H | Short_Literal 0xd 0093 4802 |H | Short_Literal 0x2 0094 0099 | | Action Reference_Dynamic 0095 8214 | | Call 0x1,0x14 0096 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0097 8407 | | Call 0x2,0x7 ; Debug Table 0x2.0x17 = 0x97,0x6 0098 8408 | | Call 0x2,0x8 ; Debug Table 0x2.0x18 = 0x98,0x7 0099 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x2.0x19 = 0x99,0x8 ; Debug Table 0x2.0x1a = 0x99,0xf3ff 009a 00c6 | | Action Check_Subprogram_Elaborated 009b e5fe | | Load 0x2,-0x2 009c 61ab |a | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 009d 619e |a | Indirect_Literal Discrete,0x23c,{0x00000000, 0x00000538} 009e 480f |H | Short_Literal 0xf 009f e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x1b = 0x9f,0xc01 00a0 e405 | | Load 0x2,0x5 00a1 027f | | Execute Discrete,Equal 00a2 6809 |h | Jump_Zero 0xac 00a3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x1c = 0xa3,0xc02 00a4 e5fe | | Load 0x2,-0x2 00a5 0119 | | Execute Any,Check_In_Formal_Type 00a6 e40c | | Load 0x2,0xc 00a7 480d |H | Short_Literal 0xd 00a8 4802 |H | Short_Literal 0x2 00a9 0099 | | Action Reference_Dynamic 00aa 8214 | | Call 0x1,0x14 00ab 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00ac e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x1d = 0xac,0xc03 00ad e5fe | | Load 0x2,-0x2 00ae 0119 | | Execute Any,Check_In_Formal_Type 00af 840a | | Call 0x2,0xa 00b0 e5fe | | Load 0x2,-0x2 00b1 0119 | | Execute Any,Check_In_Formal_Type 00b2 e40c | | Load 0x2,0xc 00b3 480d |H | Short_Literal 0xd 00b4 4802 |H | Short_Literal 0x2 00b5 0099 | | Action Reference_Dynamic 00b6 8214 | | Call 0x1,0x14 00b7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b8 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x2.0x1e = 0xb8,0x9 ; Debug Table 0x2.0x1f = 0xb8,0xefff 00b9 00c6 | | Action Check_Subprogram_Elaborated 00ba e5fe | | Load 0x2,-0x2 00bb 618c |a | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 00bc 617b |a{ | Indirect_Literal Discrete,0x238,{0x00000000, 0x00000561} 00bd 480f |H | Short_Literal 0xf 00be e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x20 = 0xbe,0x1001 00bf e5fe | | Load 0x2,-0x2 00c0 0119 | | Execute Any,Check_In_Formal_Type 00c1 e40c | | Load 0x2,0xc 00c2 480d |H | Short_Literal 0xd 00c3 4802 |H | Short_Literal 0x2 00c4 0099 | | Action Reference_Dynamic 00c5 8214 | | Call 0x1,0x14 00c6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00e4 | | .CONST 0x00e4 ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 000a | | .CONST 0x000a ; Number of locals 00cb INIT_00c8: 00cb 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x3 = .DEBUG 0x00cb,0x04e6,0x2802,0x0002,0x0013,0x1f54,0x0000,0x002d ; Debug Table 0x3.0x0 = 0xcb,0xffff 00cc 00c6 | | Action Check_Subprogram_Elaborated 00cd e5fe | | Load 0x2,-0x2 00ce 6179 |ay | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 00cf 6164 |ad | Indirect_Literal Discrete,0x234,{0x00000000, 0x000005d8} 00d0 4805 |H | Short_Literal 0x5 00d1 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x1 = 0xd1,0xfffe 00d2 012c | , | Execute Any,Size 00d3 00e2 | | Load_Encached Integer_Cache 00d4 03f1 | | Declare_Variable Discrete,With_Value 00d5 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x2 = 0xd5,0xfffd 00d6 01db | | Execute Vector,Length 00d7 e004 | | Load 0x0,0x4 00d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00d9 012c | , | Execute Any,Size 00da 0271 | q | Execute Discrete,Times 00db 0248 | H | Execute Discrete,Check_In_Integer 00dc 00e2 | | Load_Encached Integer_Cache 00dd 03f1 | | Declare_Variable Discrete,With_Value 00de e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x3 = 0xde,0xfffc 00df 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e0 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call ; Debug Table 0x3.0x4 = 0xe0,0xfffb 00e2 029f 025b | [| Declare_Subprogram INIT_0258,For_Call ; Debug Table 0x3.0x5 = 0xe2,0xfffa 00e4 BODY_00c8: 00e4 e406 | | Load 0x2,0x6 ; Debug Table 0x3.0x6 = 0xe4,0x1 00e5 e407 | | Load 0x2,0x7 00e6 027f | | Execute Discrete,Equal 00e7 680e |h | Jump_Zero 0xf6 00e8 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x7 = 0xe8,0x2 ; Debug Table 0x3.0x8 = 0xe8,0xfbff 00e9 012d | - | Execute Any,Address 00ea e402 | | Load 0x2,0x2 00eb 4803 |H | Short_Literal 0x3 00ec 4802 |H | Short_Literal 0x2 00ed 0099 | | Action Reference_Dynamic 00ee 8212 | | Call 0x1,0x12 00ef e40b | | Load 0x2,0xb ; Debug Table 0x3.0x9 = 0xef,0xfbfe ; Debug Table 0x3.0xa = 0xef,0x401 00f0 e5fe | | Load 0x2,-0x2 00f1 0119 | | Execute Any,Check_In_Formal_Type 00f2 840a | | Call 0x2,0xa 00f3 e5fe | | Load 0x2,-0x2 00f4 0119 | | Execute Any,Check_In_Formal_Type 00f5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00f6 e406 | | Load 0x2,0x6 ; Debug Table 0x3.0xb = 0xf6,0x3 ; Debug Table 0x3.0xc = 0xf6,0xf7ff 00f7 e407 | | Load 0x2,0x7 00f8 0272 | r | Execute Discrete,Minus 00f9 0248 | H | Execute Discrete,Check_In_Integer 00fa 00e2 | | Load_Encached Integer_Cache 00fb 03f1 | | Declare_Variable Discrete,With_Value 00fc e40b | | Load 0x2,0xb ; Debug Table 0x3.0xd = 0xfc,0xf7fe 00fd e004 | | Load 0x0,0x4 00fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17 00ff 025b | [ | Execute Discrete,Check_In_Type 0100 e5fd | | Load 0x2,-0x3 0101 012d | - | Execute Any,Address 0102 8215 | | Call 0x1,0x15 0103 e004 | | Load 0x0,0x4 0104 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0105 03f1 | | Declare_Variable Discrete,With_Value 0106 e40c | | Load 0x2,0xc ; Debug Table 0x3.0xe = 0x106,0xf7fd 0107 e402 | | Load 0x2,0x2 0108 4803 |H | Short_Literal 0x3 0109 4802 |H | Short_Literal 0x2 010a 0099 | | Action Reference_Dynamic 010b 8212 | | Call 0x1,0x12 010c e40d | | Load 0x2,0xd ; Debug Table 0x3.0x10 = 0x10c,0x801 ; Debug Table 0x3.0xf = 0x10c,0xf7fc 010d e5fe | | Load 0x2,-0x2 010e 0119 | | Execute Any,Check_In_Formal_Type 010f 840a | | Call 0x2,0xa 0110 e5fe | | Load 0x2,-0x2 0111 0119 | | Execute Any,Check_In_Formal_Type 0112 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0113 0000 0000 | | .BLANK 0000[0x5] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00db | | Load_Top At_Offset_3 ; Debug Table 0x4 = .DEBUG 0x011b,0x050a,0x2802,0x0002,0x002d,0xf1c4,0x0000,0x004f ; Debug Table 0x4.0x0 = 0x11b,0x1 011c 00dd | | Load_Top At_Offset_5 ; Debug Table 0x4.0x1 = 0x11c,0x2 ; Debug Table 0x4.0x2 = 0x11c,0x3 011d e210 | | Load 0x1,0x10 ; Debug Table 0x4.0x3 = 0x11d,0x4 ; Debug Table 0x4.0x4 = 0x11d,0x5 011e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 ; Debug Table 0x4.0x5 = 0x11e,0x6 ; Debug Table 0x4.0x6 = 0x11e,0x7 011f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 ; Debug Table 0x4.0x7 = 0x11f,0x8 0120 4831 |H1 | Short_Literal 0x31 ; Debug Table 0x4.0x8 = 0x120,0x9 0121 0257 | W | Execute Discrete,Raise 0122 0000 0000 | | .BLANK 0000[0x6] 0128 ; -------------------------------------------------------------------------------------- 0128 ; SUBPROGRAM 0128 ; -------------------------------------------------------------------------------------- 0128 012b | + | .CONST 0x012b ; Address of begin 0129 0004 | | .CONST 0x0004 ; Address of exception handler 012a 0001 | | .CONST 0x0001 ; Number of locals 012b BODY_0128: 012b INIT_0128: 012b e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x012b,0x051e,0x0001,0x0000,0x002d,0xf1c4,0x0000,0x00be ; Debug Table 0x5.0x0 = 0x12b,0x1 012c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 012d 460d |F | Jump_Case 0xe 012e 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0 012f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x1 0130 780b |x | Jump 0x13c ; case 0x2 0131 780a |x | Jump 0x13c ; case 0x3 0132 7809 |x | Jump 0x13c ; case 0x4 0133 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x5 0134 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x6 0135 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x7 0136 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x8 0137 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x9 0138 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xa 0139 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xb 013a 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xc 013b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0xd 013c 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x5.0x1 = 0x13c,0x2 013d 0257 | W | Execute Discrete,Raise 013e 0000 0000 | | .XXX[0x2] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0169 | i | .CONST 0x0169 ; Address of begin 0141 0176 | v | .CONST 0x0176 ; Address of exception handler 0142 0009 | | .CONST 0x0009 ; Number of locals 0143 INIT_0140: 0143 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6 = .DEBUG 0x0143,0x0524,0x2802,0x0002,0x002d,0xf1c4,0x0000,0x02bc ; Debug Table 0x6.0x0 = 0x143,0xffff 0144 011f | | Execute Any,Is_Scalar 0145 6802 |h | Jump_Zero 0x148 0146 e5fe | | Load 0x2,-0x2 0147 7801 |x | Jump 0x149 0148 e5fd | | Load 0x2,-0x3 0149 012c | , | Execute Any,Size 014a 0a07 | | Execute_Immediate Plus,0x7 014b 0248 | H | Execute Discrete,Check_In_Integer 014c 09fd | | Execute_Immediate Binary_Scale,-0x3 014d 00e2 | | Load_Encached Integer_Cache 014e 03f1 | | Declare_Variable Discrete,With_Value 014f 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x1 = 0x14f,0xfffe 0150 e402 | | Load 0x2,0x2 0151 e004 | | Load 0x0,0x4 0152 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0153 035b | [ | Declare_Type Array,Constrained 0154 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x6.0x2 = 0x154,0xfffd 0155 00c6 | | Action Check_Subprogram_Elaborated 0156 e403 | | Load 0x2,0x3 0157 60f0 |` | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 0158 4af1 |J | Short_Literal 0x2f1 0159 4807 |H | Short_Literal 0x7 015a 4ffd |O | Short_Literal -0x3 ; Debug Table 0x6.0x3 = 0x15a,0xfffc 015b 4802 |H | Short_Literal 0x2 015c 0099 | | Action Reference_Dynamic 015d 012d | - | Execute Any,Address 015e e404 | | Load 0x2,0x4 015f 4805 |H | Short_Literal 0x5 0160 4802 |H | Short_Literal 0x2 0161 0099 | | Action Reference_Dynamic 0162 8212 | | Call 0x1,0x12 0163 e402 | | Load 0x2,0x2 ; Debug Table 0x6.0x4 = 0x163,0xfffb ; Debug Table 0x6.0x5 = 0x163,0xfffa 0164 e408 | | Load 0x2,0x8 0165 01d7 | | Execute Vector,Field_Read 0166 e004 | | Load 0x0,0x4 0167 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0168 03f1 | | Declare_Variable Discrete,With_Value 0169 BODY_0140: 0169 4ffd |O | Short_Literal -0x3 ; Debug Table 0x6.0x6 = 0x169,0x1 016a 4802 |H | Short_Literal 0x2 016b 0099 | | Action Reference_Dynamic 016c 012d | - | Execute Any,Address 016d e404 | | Load 0x2,0x4 016e 4805 |H | Short_Literal 0x5 016f 4802 |H | Short_Literal 0x2 0170 0099 | | Action Reference_Dynamic 0171 8212 | | Call 0x1,0x12 0172 e004 | | Load 0x0,0x4 0173 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0174 01c6 | | Execute Vector,Convert_To_Formal 0175 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0176 TRAP_0140: 0176 4884 |H | Short_Literal 0x84 0177 010f | | Execute Exception,Equal 0178 6841 |hA | Jump_Zero 0x1ba 0179 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x7 = 0x179,0x2 ; Debug Table 0x6.0x8 = 0x179,0xfbff 017a e5fd | | Load 0x2,-0x3 017b 011f | | Execute Any,Is_Scalar 017c 6802 |h | Jump_Zero 0x17f 017d e5fe | | Load 0x2,-0x2 017e 7801 |x | Jump 0x180 017f e5fd | | Load 0x2,-0x3 0180 012c | , | Execute Any,Size 0181 0a08 | | Execute_Immediate Plus,0x8 0182 e211 | | Load 0x1,0x11 0183 035b | [ | Declare_Type Array,Constrained 0184 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x6.0x9 = 0x184,0xfbfe 0185 00c6 | | Action Check_Subprogram_Elaborated 0186 e40b | | Load 0x2,0xb 0187 60c0 |` | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 0188 4b2e |K. | Short_Literal 0x32e 0189 480f |H | Short_Literal 0xf 018a e40b | | Load 0x2,0xb ; Debug Table 0x6.0xa = 0x18a,0xfbfd 018b 0337 | 7 | Declare_Variable Array 018c 4ffd |O | Short_Literal -0x3 018d 4802 |H | Short_Literal 0x2 018e 0099 | | Action Reference_Dynamic 018f 012d | - | Execute Any,Address 0190 e40c | | Load 0x2,0xc 0191 480d |H | Short_Literal 0xd 0192 4802 |H | Short_Literal 0x2 0193 0099 | | Action Reference_Dynamic 0194 8212 | | Call 0x1,0x12 0195 e410 | | Load 0x2,0x10 0196 01d4 | | Execute Vector,Structure_Write 0197 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6.0xb = 0x197,0xfbfc 0198 011f | | Execute Any,Is_Scalar 0199 6802 |h | Jump_Zero 0x19c 019a e5fe | | Load 0x2,-0x2 019b 7801 |x | Jump 0x19d 019c e5fd | | Load 0x2,-0x3 019d 012c | , | Execute Any,Size 019e 0a07 | | Execute_Immediate Plus,0x7 019f 0248 | H | Execute Discrete,Check_In_Integer 01a0 09fd | | Execute_Immediate Binary_Scale,-0x3 01a1 00e2 | | Load_Encached Integer_Cache 01a2 03f1 | | Declare_Variable Discrete,With_Value 01a3 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0xc = 0x1a3,0xfbfb 01a4 e411 | | Load 0x2,0x11 01a5 e004 | | Load 0x0,0x4 01a6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01a7 035b | [ | Declare_Type Array,Constrained 01a8 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x6.0xd = 0x1a8,0xfbfa 01a9 00c6 | | Action Check_Subprogram_Elaborated 01aa e412 | | Load 0x2,0x12 01ab 609c |` | Indirect_Literal Discrete,0x248,{0x00000000, 0x002df1c4} 01ac 4b5c |K\ | Short_Literal 0x35c 01ad 4816 |H | Short_Literal 0x16 01ae e410 | | Load 0x2,0x10 ; Debug Table 0x6.0xe = 0x1ae,0xfbf9 01af 012d | - | Execute Any,Address 01b0 e413 | | Load 0x2,0x13 01b1 4814 |H | Short_Literal 0x14 01b2 4802 |H | Short_Literal 0x2 01b3 0099 | | Action Reference_Dynamic 01b4 8212 | | Call 0x1,0x12 01b5 e417 | | Load 0x2,0x17 ; Debug Table 0x6.0x10 = 0x1b5,0x401 ; Debug Table 0x6.0xf = 0x1b5,0xfbf8 01b6 e004 | | Load 0x0,0x4 01b7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01b8 01c6 | | Execute Vector,Convert_To_Formal 01b9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01ba 010e | | Execute Exception,Is_Constraint_Error 01bb 680a |h | Jump_Zero 0x1c6 01bc e408 | | Load 0x2,0x8 ; Debug Table 0x6.0x11 = 0x1bc,0x3 01bd 01db | | Execute Vector,Length 01be 6802 |h | Jump_Zero 0x1c1 01bf 4887 |H | Short_Literal 0x87 01c0 0257 | W | Execute Discrete,Raise 01c1 e408 | | Load 0x2,0x8 ; Debug Table 0x6.0x12 = 0x1c1,0x4 01c2 e004 | | Load 0x0,0x4 01c3 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01c4 01c6 | | Execute Vector,Convert_To_Formal 01c5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01c6 0100 | | Execute Exception,Raise 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x01cb,0x054c,0x0002,0x0000,0x002d,0xf1c4,0x0000,0x057c ; Debug Table 0x7.0x0 = 0x1cb,0x1 01cc 00dc | | Load_Top At_Offset_4 ; Debug Table 0x7.0x1 = 0x1cc,0x2 ; Debug Table 0x7.0x2 = 0x1cc,0x3 01cd 0273 | s | Execute Discrete,Plus ; Debug Table 0x7.0x3 = 0x1cd,0x4 ; Debug Table 0x7.0x4 = 0x1cd,0x5 01ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 ; Debug Table 0x7.0x5 = 0x1ce,0x6 ; Debug Table 0x7.0x6 = 0x1ce,0x7 01cf 4831 |H1 | Short_Literal 0x31 ; Debug Table 0x7.0x7 = 0x1cf,0x8 01d0 0257 | W | Execute Discrete,Raise 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01db | | .CONST 0x01db ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0001 | | .CONST 0x0001 ; Number of locals 01db BODY_01d8: 01db INIT_01d8: 01db e5fe | | Load 0x2,-0x2 ; Debug Table 0x8 = .DEBUG 0x01db,0x055e,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x03af ; Debug Table 0x8.0x0 = 0x1db,0x1 01dc 0117 | | Execute Any,Structure_Query ; Debug Table 0x8.0x1 = 0x1dc,0x2 01dd c402 | | Store 0x2,0x2 ; Debug Table 0x8.0x2 = 0x1dd,0x3 01de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01df 0000 | | .XXX[0x1] 01e0 ; -------------------------------------------------------------------------------------- 01e0 ; SUBPROGRAM 01e0 ; -------------------------------------------------------------------------------------- 01e0 01e3 | | .CONST 0x01e3 ; Address of begin 01e1 0004 | | .CONST 0x0004 ; Address of exception handler 01e2 0001 | | .CONST 0x0001 ; Number of locals 01e3 BODY_01e0: 01e3 INIT_01e0: 01e3 e5fe | | Load 0x2,-0x2 ; Debug Table 0x9 = .DEBUG 0x01e3,0x0566,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x03d4 ; Debug Table 0x9.0x0 = 0x1e3,0x1 01e4 0117 | | Execute Any,Structure_Query ; Debug Table 0x9.0x1 = 0x1e4,0x2 01e5 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x9.0x2 = 0x1e5,0x3 01e6 c403 | | Store 0x2,0x3 ; Debug Table 0x9.0x3 = 0x1e6,0x4 01e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb e5fd | | Load 0x2,-0x3 ; Debug Table 0xa = .DEBUG 0x01eb,0x0570,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x0406 ; Debug Table 0xa.0x0 = 0x1eb,0x1 01ec 0117 | | Execute Any,Structure_Query ; Debug Table 0xa.0x1 = 0x1ec,0x2 01ed 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0xa.0x2 = 0x1ed,0x3 01ee c405 | | Store 0x2,0x5 ; Debug Table 0xa.0x3 = 0x1ee,0x4 01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 e5fd | | Load 0x2,-0x3 ; Debug Table 0xb = .DEBUG 0x01f3,0x057a,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x0438 ; Debug Table 0xb.0x0 = 0x1f3,0x1 01f4 0117 | | Execute Any,Structure_Query ; Debug Table 0xb.0x1 = 0x1f4,0x2 01f5 00d5 | | Pop_Control Pop_Count_5 ; Debug Table 0xb.0x2 = 0x1f5,0x3 01f6 c404 | | Store 0x2,0x4 ; Debug Table 0xb.0x3 = 0x1f6,0x4 01f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb e7ff | | Load 0x3,-0x1 ; Debug Table 0xc = .DEBUG 0x01fb,0x0584,0x0802,0x0002,0x002d,0xf1c4,0x0000,0x046a ; Debug Table 0xc.0x0 = 0x1fb,0xffff ; Debug Table 0xc.0x1 = 0x1fb,0xfffe ; Debug Table 0xc.0x2 = 0x1fb,0x1 ; Debug Table 0xc.0x3 = 0x1fb,0x401 01fc e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x4 = 0x1fc,0x402 01fd 011e | | Execute Any,Convert ; Debug Table 0xc.0x5 = 0x1fd,0x403 01fe 4400 |D | Exit_Subprogram With_Value,New_Top_Offset 0x0 ; Debug Table 0xc.0x6 = 0x1fe,0x404 01ff e7ff | | Load 0x3,-0x1 ; Debug Table 0xc.0x7 = 0x1ff,0x2 0200 e5fe | | Load 0x2,-0x2 0201 0119 | | Execute Any,Check_In_Formal_Type 0202 840a | | Call 0x2,0xa 0203 e5fe | | Load 0x2,-0x2 0204 0119 | | Execute Any,Check_In_Formal_Type 0205 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0216 | | .CONST 0x0216 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e5fe | | Load 0x2,-0x2 ; Debug Table 0xd = .DEBUG 0x020b,0x0596,0x0802,0x0002,0x002d,0xf1c4,0x0000,0x04be ; Debug Table 0xd.0x0 = 0x20b,0xffff 020c 02a0 | | Declare_Subprogram Null_Subprogram 020d 4818 |H | Short_Literal 0x18 020e 03d3 | | Declare_Type Access,Defined,Accesses_Protected 020f e602 | | Load 0x3,0x2 ; Debug Table 0xd.0x1 = 0x20f,0xfffe 0210 e5fd | | Load 0x2,-0x3 0211 e5fe | | Load 0x2,-0x2 0212 0119 | | Execute Any,Check_In_Formal_Type 0213 e602 | | Load 0x3,0x2 0214 03b6 | | Declare_Variable Access,By_Allocation,With_Value 0215 c603 | | Store 0x3,0x3 0216 BODY_0208: 0216 e603 | | Load 0x3,0x3 ; Debug Table 0xd.0x2 = 0x216,0x1 0217 0229 | ) | Execute Access,All_Read 0218 00d8 | | Load_Top At_Offset_0 0219 0120 | | Execute Any,Is_Value 021a 7002 |p | Jump_Nonzero 0x21d 021b 00d8 | | Load_Top At_Offset_0 021c 011e | | Execute Any,Convert 021d e5fe | | Load 0x2,-0x2 021e 0119 | | Execute Any,Check_In_Formal_Type 021f 00ca | | Action Exit_Nullary_Function 0220 ; -------------------------------------------------------------------------------------- 0220 ; SUBPROGRAM 0220 ; -------------------------------------------------------------------------------------- 0220 0223 | # | .CONST 0x0223 ; Address of begin 0221 0004 | | .CONST 0x0004 ; Address of exception handler 0222 0001 | | .CONST 0x0001 ; Number of locals 0223 BODY_0220: 0223 INIT_0220: 0223 4608 |F | Jump_Case 0x9 ; Debug Table 0xe = .DEBUG 0x0223,0x059e,0x0805,0x0002,0x002d,0xf1c4,0x0000,0x04e1 0224 7808 |x | Jump 0x22d ; case 0x0 0225 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0226 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0227 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0228 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0229 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 022a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 022b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 022c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 022d e7ff | | Load 0x3,-0x1 022e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 022f 0125 | % | Execute Any,Set_Constraint 0230 e7ff | | Load 0x3,-0x1 0231 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0232 1c00 | | Execute_Immediate Run_Utility,0x0 0233 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0234 0000 0000 | | .LITERAL {0x00000000, 0x000005d8} 0238 0000 0000 | | .LITERAL {0x00000000, 0x00000561} 023c 0000 0000 | | .LITERAL {0x00000000, 0x00000538} 0240 0000 0000 | | .LITERAL {0x00000000, 0x0000050e} 0244 0000 0000 | | .LITERAL {0x00000000, 0x000004f4} 0248 0000 0000 | | .LITERAL {0x00000000, 0x002df1c4} 024c 007e d808 | ~ | .LITERAL {0x007ed808, 0x000027b0} 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e5fe | | Load 0x2,-0x2 ; Debug Table 0xf = .DEBUG 0x0253,0x05a0,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x05ff ; Debug Table 0xf.0x0 = 0x253,0x1 0254 0117 | | Execute Any,Structure_Query ; Debug Table 0xf.0x1 = 0x254,0x2 0255 c408 | | Store 0x2,0x8 ; Debug Table 0xf.0x2 = 0x255,0x3 0256 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0257 0000 | | .XXX[0x1] 0258 ; -------------------------------------------------------------------------------------- 0258 ; SUBPROGRAM 0258 ; -------------------------------------------------------------------------------------- 0258 025b | [ | .CONST 0x025b ; Address of begin 0259 0004 | | .CONST 0x0004 ; Address of exception handler 025a 0001 | | .CONST 0x0001 ; Number of locals 025b BODY_0258: 025b INIT_0258: 025b 8409 | | Call 0x2,0x9 ; Debug Table 0x10 = .DEBUG 0x025b,0x05a8,0x0802,0x0002,0x002d,0xf1c4,0x0000,0x0624 ; Debug Table 0x10.0x0 = 0x25b,0x1 025c e408 | | Load 0x2,0x8 ; Debug Table 0x10.0x1 = 0x25c,0x2 025d 0b0d | | Execute_Immediate Case_Compare,0xd 025e 7004 |p | Jump_Nonzero 0x263 025f e7ff | | Load 0x3,-0x1 ; Debug Table 0x10.0x2 = 0x25f,0x4 0260 e5fe | | Load 0x2,-0x2 0261 0119 | | Execute Any,Check_In_Formal_Type 0262 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0263 e5fe | | Load 0x2,-0x2 ; Debug Table 0x10.0x3 = 0x263,0x3 ; Debug Table 0x10.0x4 = 0x263,0xfbff 0264 02a0 | | Declare_Subprogram Null_Subprogram 0265 4818 |H | Short_Literal 0x18 0266 03d3 | | Declare_Type Access,Defined,Accesses_Protected 0267 e603 | | Load 0x3,0x3 ; Debug Table 0x10.0x5 = 0x267,0xfbfe 0268 e7ff | | Load 0x3,-0x1 ; Debug Table 0x10.0x6 = 0x268,0x401 0269 e5fe | | Load 0x2,-0x2 026a 0119 | | Execute Any,Check_In_Formal_Type 026b e603 | | Load 0x3,0x3 026c 03b6 | | Declare_Variable Access,By_Allocation,With_Value 026d a604 | | Store_Unchecked 0x3,0x4 026e e604 | | Load 0x3,0x4 ; Debug Table 0x10.0x7 = 0x26e,0x402 026f 0229 | ) | Execute Access,All_Read 0270 00d8 | | Load_Top At_Offset_0 0271 0120 | | Execute Any,Is_Value 0272 7002 |p | Jump_Nonzero 0x275 0273 00d8 | | Load_Top At_Offset_0 0274 011e | | Execute Any,Convert 0275 e5fe | | Load 0x2,-0x2 0276 0119 | | Execute Any,Check_In_Formal_Type 0277 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0278 028e 02c5 | | .XXX[0x3] 027a 0018 | | 027b 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x11 = .DEBUG 0x027b,0x05ba,0x4000,0x0000,0x0013,0x1f54,0x0000,0x0006 ; Debug Table 0x11.0x0 = 0x27b,0xffff 027d 00bf | | Action Accept_Activation 027e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x12 = .DEBUG 0x027e,0x05be,0x4000,0x0000,0x002d,0xf1c4,0x0000,0x00ea ; Debug Table 0x12.0x0 = 0x27e,0xffff 027f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0280 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x1 = 0x280,0xfffe 0281 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0282 e001 | | Load 0x0,0x1 ; Debug Table 0x12.0x2 = 0x282,0xfffd 0283 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0284 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x12.0x3 = 0x284,0xfffc 0285 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0286 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call ; Debug Table 0x12.0x4 = 0x286,0xfffb 0288 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call ; Debug Table 0x12.0x5 = 0x288,0xfffa 028a 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call ; Debug Table 0x12.0x6 = 0x28a,0xfff9 028c 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x12.0x7 = 0x28c,0xfff8 028d 00c7 | | Action Elaborate_Subprogram 028e 8216 | | Call 0x1,0x16 ; Debug Table 0x12.0x8 = 0x28e,0x1 028f 8217 | | Call 0x1,0x17 ; Debug Table 0x12.0x9 = 0x28f,0x2 0290 e214 | | Load 0x1,0x14 ; Debug Table 0x12.0xa = 0x290,0x3 0291 4612 |F | Jump_Case 0x13 0292 7830 |x0 | Jump 0x2c3 ; case 0x0 0293 782f |x/ | Jump 0x2c3 ; case 0x1 0294 782a |x* | Jump 0x2bf ; case 0x2 0295 7829 |x) | Jump 0x2bf ; case 0x3 0296 782a |x* | Jump 0x2c1 ; case 0x4 0297 7827 |x' | Jump 0x2bf ; case 0x5 0298 7828 |x( | Jump 0x2c1 ; case 0x6 0299 780b |x | Jump 0x2a5 ; case 0x7 029a 7826 |x& | Jump 0x2c1 ; case 0x8 029b 7825 |x% | Jump 0x2c1 ; case 0x9 029c 7824 |x$ | Jump 0x2c1 ; case 0xa 029d 7823 |x# | Jump 0x2c1 ; case 0xb 029e 7806 |x | Jump 0x2a5 ; case 0xc 029f 7805 |x | Jump 0x2a5 ; case 0xd 02a0 7820 |x | Jump 0x2c1 ; case 0xe 02a1 781f |x | Jump 0x2c1 ; case 0xf 02a2 781e |x | Jump 0x2c1 ; case 0x10 02a3 781d |x | Jump 0x2c1 ; case 0x11 02a4 781c |x | Jump 0x2c1 ; case 0x12 02a5 e214 | | Load 0x1,0x14 ; Debug Table 0x12.0xb = 0x2a5,0x4 02a6 0f07 | | Execute_Immediate Equal,0x7 02a7 6808 |h | Jump_Zero 0x2b0 02a8 8218 | | Call 0x1,0x18 ; Debug Table 0x12.0xc = 0x2a8,0x5 02a9 e212 | | Load 0x1,0x12 ; Debug Table 0x12.0xd = 0x2a9,0x6 02aa e210 | | Load 0x1,0x10 02ab 0124 | $ | Execute Any,Is_Constrained 02ac 027f | | Execute Discrete,Equal 02ad 6802 |h | Jump_Zero 0x2b0 02ae 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x12.0xe = 0x2ae,0x7 02af 0257 | W | Execute Discrete,Raise 02b0 e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x10 = 0x2b0,0xfbff ; Debug Table 0x12.0xf = 0x2b0,0x8 02b1 1912 | | Execute Package,Field_Reference,Field_Number 0x12 02b2 00c6 | | Action Check_Subprogram_Elaborated 02b3 e210 | | Load 0x1,0x10 02b4 a003 | | Store_Unchecked 0x0,0x3 02b5 60ee |` | Indirect_Literal Discrete,0x3a4,{0x00000000, 0x002df1c4} 02b6 4a77 |Jw | Short_Literal 0x277 02b7 4800 |H | Short_Literal 0x0 02b8 e219 | | Load 0x1,0x19 ; Debug Table 0x12.0x11 = 0x2b8,0x401 02b9 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 02ba 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 02bb e002 | | Load 0x0,0x2 02bc 1812 | | Execute Package,Field_Execute,Field_Number 0x12 02bd 00d5 | | Pop_Control Pop_Count_5 02be 7804 |x | Jump 0x2c3 02bf 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x12.0x12 = 0x2bf,0xa 02c0 0257 | W | Execute Discrete,Raise 02c1 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x12.0x13 = 0x2c1,0xb 02c2 0257 | W | Execute Discrete,Raise 02c3 00bc | | Action Signal_Activated 02c4 00bb | | Action Signal_Completion 02c5 4863 010f |Hc | .XXX[0x3] 02c7 6804 |h | 02c8 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0x14 = 0x2c8,0xc 02c9 a215 | | Store_Unchecked 0x1,0x15 02ca 00bc | | Action Signal_Activated 02cb 00bb | | Action Signal_Completion 02cc 0100 0000 | | .XXX[0x4] 02ce 0000 0000 | | 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 e215 | | Load 0x1,0x15 ; Debug Table 0x13 = .DEBUG 0x02d3,0x05ea,0x1002,0x0000,0x0013,0x1f54,0x0000,0x0010 ; Debug Table 0x13.0x0 = 0x2d3,0x1 02d4 6802 |h | Jump_Zero 0x2d7 02d5 4863 |Hc | Short_Literal 0x63 ; Debug Table 0x13.0x1 = 0x2d5,0x2 02d6 0257 | W | Execute Discrete,Raise 02d7 e213 | | Load 0x1,0x13 ; Debug Table 0x13.0x2 = 0x2d7,0x3 02d8 4612 |F | Jump_Case 0x13 02d9 7812 |x | Jump 0x2ec ; case 0x0 02da 7811 |x | Jump 0x2ec ; case 0x1 02db 7810 |x | Jump 0x2ec ; case 0x2 02dc 780f |x | Jump 0x2ec ; case 0x3 02dd 7838 |x8 | Jump 0x316 ; case 0x4 02de 780d |x | Jump 0x2ec ; case 0x5 02df 7836 |x6 | Jump 0x316 ; case 0x6 02e0 7835 |x5 | Jump 0x316 ; case 0x7 02e1 7834 |x4 | Jump 0x316 ; case 0x8 02e2 7833 |x3 | Jump 0x316 ; case 0x9 02e3 7832 |x2 | Jump 0x316 ; case 0xa 02e4 7831 |x1 | Jump 0x316 ; case 0xb 02e5 7830 |x0 | Jump 0x316 ; case 0xc 02e6 782f |x/ | Jump 0x316 ; case 0xd 02e7 782e |x. | Jump 0x316 ; case 0xe 02e8 782d |x- | Jump 0x316 ; case 0xf 02e9 782c |x, | Jump 0x316 ; case 0x10 02ea 782b |x+ | Jump 0x316 ; case 0x11 02eb 782a |x* | Jump 0x316 ; case 0x12 02ec e20f | | Load 0x1,0xf ; Debug Table 0x13.0x3 = 0x2ec,0x4 ; Debug Table 0x13.0x4 = 0x2ec,0xfbff 02ed 029f 037b | {| Declare_Subprogram INIT_0378,For_Call 02ef 4801 |H | Short_Literal 0x1 02f0 032d | - | Declare_Type Record,Defined 02f1 e402 | | Load 0x2,0x2 ; Debug Table 0x13.0x5 = 0x2f1,0xfbfe 02f2 0322 | " | Declare_Variable Record 02f3 e5ff | | Load 0x2,-0x1 02f4 e20f | | Load 0x1,0xf 02f5 0119 | | Execute Any,Check_In_Formal_Type 02f6 e403 | | Load 0x2,0x3 02f7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02f8 a004 | | Store_Unchecked 0x0,0x4 ; Debug Table 0x13.0x6 = 0x2f8,0xfbfd 02f9 00c6 | | Action Check_Subprogram_Elaborated 02fa e210 | | Load 0x1,0x10 02fb 60a8 |` | Indirect_Literal Discrete,0x3a4,{0x00000000, 0x002df1c4} 02fc 49ac |I | Short_Literal 0x1ac 02fd 4807 |H | Short_Literal 0x7 02fe e403 | | Load 0x2,0x3 ; Debug Table 0x13.0x7 = 0x2fe,0xfbfc 02ff 012d | - | Execute Any,Address 0300 e404 | | Load 0x2,0x4 0301 4805 |H | Short_Literal 0x5 0302 4802 |H | Short_Literal 0x2 0303 0099 | | Action Reference_Dynamic 0304 8004 | | Call 0x0,0x4 0305 e408 | | Load 0x2,0x8 ; Debug Table 0x13.0x8 = 0x305,0xfbfb ; Debug Table 0x13.0x9 = 0x305,0xfbfa 0306 011f | | Execute Any,Is_Scalar 0307 6802 |h | Jump_Zero 0x30a 0308 e210 | | Load 0x1,0x10 0309 7801 |x | Jump 0x30b 030a e408 | | Load 0x2,0x8 030b 012c | , | Execute Any,Size 030c e210 | | Load 0x1,0x10 030d 012c | , | Execute Any,Size 030e 027a | z | Execute Discrete,Less_Equal 030f 7002 |p | Jump_Nonzero 0x312 0310 4887 |H | Short_Literal 0x87 0311 0257 | W | Execute Discrete,Raise 0312 e408 | | Load 0x2,0x8 ; Debug Table 0x13.0xa = 0x312,0x401 0313 e210 | | Load 0x1,0x10 0314 0119 | | Execute Any,Check_In_Formal_Type 0315 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0316 e214 | | Load 0x1,0x14 ; Debug Table 0x13.0xb = 0x316,0x5 0317 0b00 | | Execute_Immediate Case_Compare,0x0 0318 7022 |p" | Jump_Nonzero 0x33b 0319 0b01 | | Execute_Immediate Case_Compare,0x1 031a 7020 |p | Jump_Nonzero 0x33b 031b a004 | | Store_Unchecked 0x0,0x4 ; Debug Table 0x13.0xc = 0x31b,0x7 ; Debug Table 0x13.0xd = 0x31b,0xf7ff 031c 00c6 | | Action Check_Subprogram_Elaborated 031d e210 | | Load 0x1,0x10 031e 6085 |` | Indirect_Literal Discrete,0x3a4,{0x00000000, 0x002df1c4} 031f 4a15 |J | Short_Literal 0x215 0320 4806 |H | Short_Literal 0x6 0321 4fff |O | Short_Literal -0x1 ; Debug Table 0x13.0xe = 0x321,0xf7fe 0322 4802 |H | Short_Literal 0x2 0323 0099 | | Action Reference_Dynamic 0324 012d | - | Execute Any,Address 0325 e403 | | Load 0x2,0x3 0326 4804 |H | Short_Literal 0x4 0327 4802 |H | Short_Literal 0x2 0328 0099 | | Action Reference_Dynamic 0329 8004 | | Call 0x0,0x4 032a e407 | | Load 0x2,0x7 ; Debug Table 0x13.0x10 = 0x32a,0xf7fc ; Debug Table 0x13.0xf = 0x32a,0xf7fd 032b 011f | | Execute Any,Is_Scalar 032c 6802 |h | Jump_Zero 0x32f 032d e210 | | Load 0x1,0x10 032e 7801 |x | Jump 0x330 032f e407 | | Load 0x2,0x7 0330 012c | , | Execute Any,Size 0331 e210 | | Load 0x1,0x10 0332 012c | , | Execute Any,Size 0333 027a | z | Execute Discrete,Less_Equal 0334 7002 |p | Jump_Nonzero 0x337 0335 4887 |H | Short_Literal 0x87 0336 0257 | W | Execute Discrete,Raise 0337 e407 | | Load 0x2,0x7 ; Debug Table 0x13.0x11 = 0x337,0x801 0338 e210 | | Load 0x1,0x10 0339 0119 | | Execute Any,Check_In_Formal_Type 033a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 033b e210 | | Load 0x1,0x10 ; Debug Table 0x13.0x12 = 0x33b,0x6 ; Debug Table 0x13.0x13 = 0x33b,0xf3ff 033c 029f 0393 | | Declare_Subprogram INIT_0390,For_Call 033e 4801 |H | Short_Literal 0x1 033f 032d | - | Declare_Type Record,Defined 0340 a004 | | Store_Unchecked 0x0,0x4 ; Debug Table 0x13.0x14 = 0x340,0xf3fe 0341 00c6 | | Action Check_Subprogram_Elaborated 0342 e403 | | Load 0x2,0x3 0343 6060 |`` | Indirect_Literal Discrete,0x3a4,{0x00000000, 0x002df1c4} 0344 49e6 |I | Short_Literal 0x1e6 0345 4807 |H | Short_Literal 0x7 0346 4fff |O | Short_Literal -0x1 ; Debug Table 0x13.0x15 = 0x346,0xf3fd 0347 4802 |H | Short_Literal 0x2 0348 0099 | | Action Reference_Dynamic 0349 012d | - | Execute Any,Address 034a e404 | | Load 0x2,0x4 034b 4805 |H | Short_Literal 0x5 034c 4802 |H | Short_Literal 0x2 034d 0099 | | Action Reference_Dynamic 034e 8004 | | Call 0x0,0x4 034f e210 | | Load 0x1,0x10 ; Debug Table 0x13.0x16 = 0x34f,0xf3fc ; Debug Table 0x13.0x17 = 0x34f,0xf3fb 0350 012c | , | Execute Any,Size 0351 e210 | | Load 0x1,0x10 0352 012c | , | Execute Any,Size 0353 027a | z | Execute Discrete,Less_Equal 0354 7002 |p | Jump_Nonzero 0x357 0355 4887 |H | Short_Literal 0x87 0356 0257 | W | Execute Discrete,Raise 0357 e408 | | Load 0x2,0x8 ; Debug Table 0x13.0x18 = 0x357,0xc01 0358 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0359 e210 | | Load 0x1,0x10 035a 0119 | | Execute Any,Check_In_Formal_Type 035b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 035c 0000 0000 | | .BLANK 0000[0x4] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0363 | c | .CONST 0x0363 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0001 | | .CONST 0x0001 ; Number of locals 0363 BODY_0360: 0363 INIT_0360: 0363 e20f | | Load 0x1,0xf ; Debug Table 0x14 = .DEBUG 0x0363,0x061e,0x1001,0x0000,0x002d,0xf1c4,0x0000,0x0105 ; Debug Table 0x14.0x0 = 0x363,0x1 0364 0117 | | Execute Any,Structure_Query ; Debug Table 0x14.0x1 = 0x364,0x2 0365 c213 | | Store 0x1,0x13 ; Debug Table 0x14.0x2 = 0x365,0x3 0366 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0367 0000 | | .XXX[0x1] 0368 ; -------------------------------------------------------------------------------------- 0368 ; SUBPROGRAM 0368 ; -------------------------------------------------------------------------------------- 0368 036b | k | .CONST 0x036b ; Address of begin 0369 0004 | | .CONST 0x0004 ; Address of exception handler 036a 0001 | | .CONST 0x0001 ; Number of locals 036b BODY_0368: 036b INIT_0368: 036b e210 | | Load 0x1,0x10 ; Debug Table 0x15 = .DEBUG 0x036b,0x0626,0x1001,0x0000,0x002d,0xf1c4,0x0000,0x012a ; Debug Table 0x15.0x0 = 0x36b,0x1 036c 0117 | | Execute Any,Structure_Query ; Debug Table 0x15.0x1 = 0x36c,0x2 036d c214 | | Store 0x1,0x14 ; Debug Table 0x15.0x2 = 0x36d,0x3 036e 4501 |E | Exit_Suprogram New_Top_Offset 0x1 036f 0000 | | .XXX[0x1] 0370 ; -------------------------------------------------------------------------------------- 0370 ; SUBPROGRAM 0370 ; -------------------------------------------------------------------------------------- 0370 0373 | s | .CONST 0x0373 ; Address of begin 0371 0004 | | .CONST 0x0004 ; Address of exception handler 0372 0001 | | .CONST 0x0001 ; Number of locals 0373 BODY_0370: 0373 INIT_0370: 0373 e210 | | Load 0x1,0x10 ; Debug Table 0x16 = .DEBUG 0x0373,0x062e,0x1001,0x0000,0x002d,0xf1c4,0x0000,0x014f ; Debug Table 0x16.0x0 = 0x373,0x1 0374 0117 | | Execute Any,Structure_Query ; Debug Table 0x16.0x1 = 0x374,0x2 0375 00d2 | | Pop_Control Pop_Count_2 ; Debug Table 0x16.0x2 = 0x375,0x3 0376 c212 | | Store 0x1,0x12 ; Debug Table 0x16.0x3 = 0x376,0x4 0377 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0378 ; -------------------------------------------------------------------------------------- 0378 ; SUBPROGRAM 0378 ; -------------------------------------------------------------------------------------- 0378 037b | { | .CONST 0x037b ; Address of begin 0379 0004 | | .CONST 0x0004 ; Address of exception handler 037a 0001 | | .CONST 0x0001 ; Number of locals 037b BODY_0378: 037b INIT_0378: 037b 4608 |F | Jump_Case 0x9 ; Debug Table 0x17 = .DEBUG 0x037b,0x0638,0x1005,0x0000,0x002d,0xf1c4,0x0000,0x0199 037c 7808 |x | Jump 0x385 ; case 0x0 037d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 037e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 037f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0380 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0381 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 0382 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 0383 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 0384 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 0385 e7ff | | Load 0x3,-0x1 0386 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0387 0125 | % | Execute Any,Set_Constraint 0388 e7ff | | Load 0x3,-0x1 0389 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 038a 1c00 | | Execute_Immediate Run_Utility,0x0 038b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 038c 0000 0000 | | .BLANK 0000[0x4] 0390 ; -------------------------------------------------------------------------------------- 0390 ; SUBPROGRAM 0390 ; -------------------------------------------------------------------------------------- 0390 0393 | | .CONST 0x0393 ; Address of begin 0391 0004 | | .CONST 0x0004 ; Address of exception handler 0392 0001 | | .CONST 0x0001 ; Number of locals 0393 BODY_0390: 0393 INIT_0390: 0393 4608 |F | Jump_Case 0x9 ; Debug Table 0x18 = .DEBUG 0x0393,0x063a,0x1005,0x0000,0x002d,0xf1c4,0x0000,0x01dd 0394 7808 |x | Jump 0x39d ; case 0x0 0395 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 0396 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2 0397 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3 0398 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4 0399 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5 039a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6 039b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7 039c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8 039d e7ff | | Load 0x3,-0x1 039e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 039f 0125 | % | Execute Any,Set_Constraint 03a0 e7ff | | Load 0x3,-0x1 03a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 03a2 1c00 | | Execute_Immediate Run_Utility,0x0 03a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 03a4 0000 0000 | | .LITERAL {0x00000000, 0x002df1c4} 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; Debug Table 03a8 ; -------------------------------------------------------------------------------------- 03a8 0003 0019 | | .CONST 0x0003,0x0019 03aa 000b 0472 | r| .DEBUG 0x000b,0x0472,0x8000,0x0000,0x0013,0x1f54,0x0000,0x0005 03b2 0014 047e | ~| .DEBUG 0x0014,0x047e,0x8000,0x0000,0x002d,0xf1c4,0x0000,0x000b 03ba 003b 04a2 | ; | .DEBUG 0x003b,0x04a2,0x2802,0x0002,0x0013,0x1f54,0x0000,0x001d 03c2 00cb 04e6 | | .DEBUG 0x00cb,0x04e6,0x2802,0x0002,0x0013,0x1f54,0x0000,0x002d 03ca 011b 050a | | .DEBUG 0x011b,0x050a,0x2802,0x0002,0x002d,0xf1c4,0x0000,0x004f 03d2 012b 051e | + | .DEBUG 0x012b,0x051e,0x0001,0x0000,0x002d,0xf1c4,0x0000,0x00be 03da 0143 0524 | C $| .DEBUG 0x0143,0x0524,0x2802,0x0002,0x002d,0xf1c4,0x0000,0x02bc 03e2 01cb 054c | L| .DEBUG 0x01cb,0x054c,0x0002,0x0000,0x002d,0xf1c4,0x0000,0x057c 03ea 01db 055e | ^| .DEBUG 0x01db,0x055e,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x03af 03f2 01e3 0566 | f| .DEBUG 0x01e3,0x0566,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x03d4 03fa 01eb 0570 | p| .DEBUG 0x01eb,0x0570,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x0406 0402 01f3 057a | z| .DEBUG 0x01f3,0x057a,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x0438 040a 01fb 0584 | | .DEBUG 0x01fb,0x0584,0x0802,0x0002,0x002d,0xf1c4,0x0000,0x046a 0412 020b 0596 | | .DEBUG 0x020b,0x0596,0x0802,0x0002,0x002d,0xf1c4,0x0000,0x04be 041a 0223 059e | # | .DEBUG 0x0223,0x059e,0x0805,0x0002,0x002d,0xf1c4,0x0000,0x04e1 0422 0253 05a0 | S | .DEBUG 0x0253,0x05a0,0x0801,0x0002,0x002d,0xf1c4,0x0000,0x05ff 042a 025b 05a8 | [ | .DEBUG 0x025b,0x05a8,0x0802,0x0002,0x002d,0xf1c4,0x0000,0x0624 0432 027b 05ba | { | .DEBUG 0x027b,0x05ba,0x4000,0x0000,0x0013,0x1f54,0x0000,0x0006 043a 027e 05be | ~ | .DEBUG 0x027e,0x05be,0x4000,0x0000,0x002d,0xf1c4,0x0000,0x00ea 0442 02d3 05ea | | .DEBUG 0x02d3,0x05ea,0x1002,0x0000,0x0013,0x1f54,0x0000,0x0010 044a 0363 061e | c | .DEBUG 0x0363,0x061e,0x1001,0x0000,0x002d,0xf1c4,0x0000,0x0105 0452 036b 0626 | k &| .DEBUG 0x036b,0x0626,0x1001,0x0000,0x002d,0xf1c4,0x0000,0x012a 045a 0373 062e | s .| .DEBUG 0x0373,0x062e,0x1001,0x0000,0x002d,0xf1c4,0x0000,0x014f 0462 037b 0638 | { 8| .DEBUG 0x037b,0x0638,0x1005,0x0000,0x002d,0xf1c4,0x0000,0x0199 046a 0393 063a | :| .DEBUG 0x0393,0x063a,0x1005,0x0000,0x002d,0xf1c4,0x0000,0x01dd 0472 ; -------------------------------------------------------------------------------------- 0472 ; Debug3 Subtable 0x0 0472 ; -------------------------------------------------------------------------------------- 0472 0005 0000 | | .DBG3TAB 0x0005,0x0000 0474 000b ffff | | .CONST 0x000b,0xffff 0476 000f fffe | | .CONST 0x000f,0xfffe 0478 0011 fffd | | .CONST 0x0011,0xfffd 047a 0013 fffc | | .CONST 0x0013,0xfffc 047c 0013 fffb | | .CONST 0x0013,0xfffb 047e ; -------------------------------------------------------------------------------------- 047e ; Debug3 Subtable 0x1 047e ; -------------------------------------------------------------------------------------- 047e 0011 0000 | | .DBG3TAB 0x0011,0x0000 0480 0014 ffff | | .CONST 0x0014,0xffff 0482 0015 fffe | | .CONST 0x0015,0xfffe 0484 0016 fffd | | .CONST 0x0016,0xfffd 0486 0017 fffc | | .CONST 0x0017,0xfffc 0488 0017 fffb | | .CONST 0x0017,0xfffb 048a 0017 fffa | | .CONST 0x0017,0xfffa 048c 0017 fff9 | | .CONST 0x0017,0xfff9 048e 0017 fff8 | | .CONST 0x0017,0xfff8 0490 001d fff7 | | .CONST 0x001d,0xfff7 0492 001f fff6 | | .CONST 0x001f,0xfff6 0494 0021 fff5 | ! | .CONST 0x0021,0xfff5 0496 0023 fff4 | # | .CONST 0x0023,0xfff4 0498 002c fff3 | , | .CONST 0x002c,0xfff3 049a 002e fff2 | . | .CONST 0x002e,0xfff2 049c 0030 fff1 | 0 | .CONST 0x0030,0xfff1 049e 0032 fff0 | 2 | .CONST 0x0032,0xfff0 04a0 0034 ffef | 4 | .CONST 0x0034,0xffef 04a2 ; -------------------------------------------------------------------------------------- 04a2 ; Debug3 Subtable 0x2 04a2 ; -------------------------------------------------------------------------------------- 04a2 0010 0011 | | .DBG3TAB 0x0010,0x0011 04a4 003b ffff | ; | .CONST 0x003b,0xffff 04a6 003d fffe | = | .CONST 0x003d,0xfffe 04a8 003e fffd | > | .CONST 0x003e,0xfffd 04aa 0040 fffc | @ | .CONST 0x0040,0xfffc 04ac 0041 fffb | A | .CONST 0x0041,0xfffb 04ae 0043 fffa | C | .CONST 0x0043,0xfffa 04b0 0045 fff9 | E | .CONST 0x0045,0xfff9 04b2 0047 fff8 | G | .CONST 0x0047,0xfff8 04b4 0049 fff7 | I | .CONST 0x0049,0xfff7 04b6 004b fff6 | K | .CONST 0x004b,0xfff6 04b8 004d 0001 | M | .CONST 0x004d,0x0001 04ba 004e 0002 | N | .CONST 0x004e,0x0002 04bc 0063 0003 | c | .CONST 0x0063,0x0003 04be 0063 fbff | c | .CONST 0x0063,0xfbff 04c0 0068 fbfe | h | .CONST 0x0068,0xfbfe 04c2 006f fbfd | o | .CONST 0x006f,0xfbfd 04c4 0075 0401 | u | .CONST 0x0075,0x0401 04c6 007c 0004 | | | .CONST 0x007c,0x0004 04c8 007d 0005 | } | .CONST 0x007d,0x0005 04ca 007d f7ff | } | .CONST 0x007d,0xf7ff 04cc 0083 0801 | | .CONST 0x0083,0x0801 04ce 0085 0802 | | .CONST 0x0085,0x0802 04d0 008e 0803 | | .CONST 0x008e,0x0803 04d2 0097 0006 | | .CONST 0x0097,0x0006 04d4 0098 0007 | | .CONST 0x0098,0x0007 04d6 0099 0008 | | .CONST 0x0099,0x0008 04d8 0099 f3ff | | .CONST 0x0099,0xf3ff 04da 009f 0c01 | | .CONST 0x009f,0x0c01 04dc 00a3 0c02 | | .CONST 0x00a3,0x0c02 04de 00ac 0c03 | | .CONST 0x00ac,0x0c03 04e0 00b8 0009 | | .CONST 0x00b8,0x0009 04e2 00b8 efff | | .CONST 0x00b8,0xefff 04e4 00be 1001 | | .CONST 0x00be,0x1001 04e6 ; -------------------------------------------------------------------------------------- 04e6 ; Debug3 Subtable 0x3 04e6 ; -------------------------------------------------------------------------------------- 04e6 000c 0005 | | .DBG3TAB 0x000c,0x0005 04e8 00cb ffff | | .CONST 0x00cb,0xffff 04ea 00d1 fffe | | .CONST 0x00d1,0xfffe 04ec 00d5 fffd | | .CONST 0x00d5,0xfffd 04ee 00de fffc | | .CONST 0x00de,0xfffc 04f0 00e0 fffb | | .CONST 0x00e0,0xfffb 04f2 00e2 fffa | | .CONST 0x00e2,0xfffa 04f4 00e4 0001 | | .CONST 0x00e4,0x0001 04f6 00e8 0002 | | .CONST 0x00e8,0x0002 04f8 00e8 fbff | | .CONST 0x00e8,0xfbff 04fa 00ef fbfe | | .CONST 0x00ef,0xfbfe 04fc 00ef 0401 | | .CONST 0x00ef,0x0401 04fe 00f6 0003 | | .CONST 0x00f6,0x0003 0500 00f6 f7ff | | .CONST 0x00f6,0xf7ff 0502 00fc f7fe | | .CONST 0x00fc,0xf7fe 0504 0106 f7fd | | .CONST 0x0106,0xf7fd 0506 010c f7fc | | .CONST 0x010c,0xf7fc 0508 010c 0801 | | .CONST 0x010c,0x0801 050a ; -------------------------------------------------------------------------------------- 050a ; Debug3 Subtable 0x4 050a ; -------------------------------------------------------------------------------------- 050a 0000 0009 | | .DBG3TAB 0x0000,0x0009 050c 011b 0001 | | .CONST 0x011b,0x0001 050e 011c 0002 | | .CONST 0x011c,0x0002 0510 011c 0003 | | .CONST 0x011c,0x0003 0512 011d 0004 | | .CONST 0x011d,0x0004 0514 011d 0005 | | .CONST 0x011d,0x0005 0516 011e 0006 | | .CONST 0x011e,0x0006 0518 011e 0007 | | .CONST 0x011e,0x0007 051a 011f 0008 | | .CONST 0x011f,0x0008 051c 0120 0009 | | .CONST 0x0120,0x0009 051e ; -------------------------------------------------------------------------------------- 051e ; Debug3 Subtable 0x5 051e ; -------------------------------------------------------------------------------------- 051e 0000 0002 | | .DBG3TAB 0x0000,0x0002 0520 012b 0001 | + | .CONST 0x012b,0x0001 0522 013c 0002 | < | .CONST 0x013c,0x0002 0524 ; -------------------------------------------------------------------------------------- 0524 ; Debug3 Subtable 0x6 0524 ; -------------------------------------------------------------------------------------- 0524 000e 0005 | | .DBG3TAB 0x000e,0x0005 0526 0143 ffff | C | .CONST 0x0143,0xffff 0528 014f fffe | O | .CONST 0x014f,0xfffe 052a 0154 fffd | T | .CONST 0x0154,0xfffd 052c 015a fffc | Z | .CONST 0x015a,0xfffc 052e 0163 fffb | c | .CONST 0x0163,0xfffb 0530 0163 fffa | c | .CONST 0x0163,0xfffa 0532 0169 0001 | i | .CONST 0x0169,0x0001 0534 0179 0002 | y | .CONST 0x0179,0x0002 0536 0179 fbff | y | .CONST 0x0179,0xfbff 0538 0184 fbfe | | .CONST 0x0184,0xfbfe 053a 018a fbfd | | .CONST 0x018a,0xfbfd 053c 0197 fbfc | | .CONST 0x0197,0xfbfc 053e 01a3 fbfb | | .CONST 0x01a3,0xfbfb 0540 01a8 fbfa | | .CONST 0x01a8,0xfbfa 0542 01ae fbf9 | | .CONST 0x01ae,0xfbf9 0544 01b5 fbf8 | | .CONST 0x01b5,0xfbf8 0546 01b5 0401 | | .CONST 0x01b5,0x0401 0548 01bc 0003 | | .CONST 0x01bc,0x0003 054a 01c1 0004 | | .CONST 0x01c1,0x0004 054c ; -------------------------------------------------------------------------------------- 054c ; Debug3 Subtable 0x7 054c ; -------------------------------------------------------------------------------------- 054c 0000 0008 | | .DBG3TAB 0x0000,0x0008 054e 01cb 0001 | | .CONST 0x01cb,0x0001 0550 01cc 0002 | | .CONST 0x01cc,0x0002 0552 01cc 0003 | | .CONST 0x01cc,0x0003 0554 01cd 0004 | | .CONST 0x01cd,0x0004 0556 01cd 0005 | | .CONST 0x01cd,0x0005 0558 01ce 0006 | | .CONST 0x01ce,0x0006 055a 01ce 0007 | | .CONST 0x01ce,0x0007 055c 01cf 0008 | | .CONST 0x01cf,0x0008 055e ; -------------------------------------------------------------------------------------- 055e ; Debug3 Subtable 0x8 055e ; -------------------------------------------------------------------------------------- 055e 0000 0003 | | .DBG3TAB 0x0000,0x0003 0560 01db 0001 | | .CONST 0x01db,0x0001 0562 01dc 0002 | | .CONST 0x01dc,0x0002 0564 01dd 0003 | | .CONST 0x01dd,0x0003 0566 ; -------------------------------------------------------------------------------------- 0566 ; Debug3 Subtable 0x9 0566 ; -------------------------------------------------------------------------------------- 0566 0000 0004 | | .DBG3TAB 0x0000,0x0004 0568 01e3 0001 | | .CONST 0x01e3,0x0001 056a 01e4 0002 | | .CONST 0x01e4,0x0002 056c 01e5 0003 | | .CONST 0x01e5,0x0003 056e 01e6 0004 | | .CONST 0x01e6,0x0004 0570 ; -------------------------------------------------------------------------------------- 0570 ; Debug3 Subtable 0xa 0570 ; -------------------------------------------------------------------------------------- 0570 0000 0004 | | .DBG3TAB 0x0000,0x0004 0572 01eb 0001 | | .CONST 0x01eb,0x0001 0574 01ec 0002 | | .CONST 0x01ec,0x0002 0576 01ed 0003 | | .CONST 0x01ed,0x0003 0578 01ee 0004 | | .CONST 0x01ee,0x0004 057a ; -------------------------------------------------------------------------------------- 057a ; Debug3 Subtable 0xb 057a ; -------------------------------------------------------------------------------------- 057a 0000 0004 | | .DBG3TAB 0x0000,0x0004 057c 01f3 0001 | | .CONST 0x01f3,0x0001 057e 01f4 0002 | | .CONST 0x01f4,0x0002 0580 01f5 0003 | | .CONST 0x01f5,0x0003 0582 01f6 0004 | | .CONST 0x01f6,0x0004 0584 ; -------------------------------------------------------------------------------------- 0584 ; Debug3 Subtable 0xc 0584 ; -------------------------------------------------------------------------------------- 0584 0002 0006 | | .DBG3TAB 0x0002,0x0006 0586 01fb ffff | | .CONST 0x01fb,0xffff 0588 01fb fffe | | .CONST 0x01fb,0xfffe 058a 01fb 0001 | | .CONST 0x01fb,0x0001 058c 01fb 0401 | | .CONST 0x01fb,0x0401 058e 01fc 0402 | | .CONST 0x01fc,0x0402 0590 01fd 0403 | | .CONST 0x01fd,0x0403 0592 01fe 0404 | | .CONST 0x01fe,0x0404 0594 01ff 0002 | | .CONST 0x01ff,0x0002 0596 ; -------------------------------------------------------------------------------------- 0596 ; Debug3 Subtable 0xd 0596 ; -------------------------------------------------------------------------------------- 0596 0002 0001 | | .DBG3TAB 0x0002,0x0001 0598 020b ffff | | .CONST 0x020b,0xffff 059a 020f fffe | | .CONST 0x020f,0xfffe 059c 0216 0001 | | .CONST 0x0216,0x0001 059e ; -------------------------------------------------------------------------------------- 059e ; Debug3 Subtable 0xe 059e ; -------------------------------------------------------------------------------------- 059e 0000 0000 | | .DBG3TAB 0x0000,0x0000 05a0 ; -------------------------------------------------------------------------------------- 05a0 ; Debug3 Subtable 0xf 05a0 ; -------------------------------------------------------------------------------------- 05a0 0000 0003 | | .DBG3TAB 0x0000,0x0003 05a2 0253 0001 | S | .CONST 0x0253,0x0001 05a4 0254 0002 | T | .CONST 0x0254,0x0002 05a6 0255 0003 | U | .CONST 0x0255,0x0003 05a8 ; -------------------------------------------------------------------------------------- 05a8 ; Debug3 Subtable 0x10 05a8 ; -------------------------------------------------------------------------------------- 05a8 0002 0006 | | .DBG3TAB 0x0002,0x0006 05aa 025b 0001 | [ | .CONST 0x025b,0x0001 05ac 025c 0002 | \ | .CONST 0x025c,0x0002 05ae 025f 0004 | _ | .CONST 0x025f,0x0004 05b0 0263 0003 | c | .CONST 0x0263,0x0003 05b2 0263 fbff | c | .CONST 0x0263,0xfbff 05b4 0267 fbfe | g | .CONST 0x0267,0xfbfe 05b6 0268 0401 | h | .CONST 0x0268,0x0401 05b8 026e 0402 | n | .CONST 0x026e,0x0402 05ba ; -------------------------------------------------------------------------------------- 05ba ; Debug3 Subtable 0x11 05ba ; -------------------------------------------------------------------------------------- 05ba 0001 0000 | | .DBG3TAB 0x0001,0x0000 05bc 027b ffff | { | .CONST 0x027b,0xffff 05be ; -------------------------------------------------------------------------------------- 05be ; Debug3 Subtable 0x12 05be ; -------------------------------------------------------------------------------------- 05be 0009 000c | | .DBG3TAB 0x0009,0x000c 05c0 027e ffff | ~ | .CONST 0x027e,0xffff 05c2 0280 fffe | | .CONST 0x0280,0xfffe 05c4 0282 fffd | | .CONST 0x0282,0xfffd 05c6 0284 fffc | | .CONST 0x0284,0xfffc 05c8 0286 fffb | | .CONST 0x0286,0xfffb 05ca 0288 fffa | | .CONST 0x0288,0xfffa 05cc 028a fff9 | | .CONST 0x028a,0xfff9 05ce 028c fff8 | | .CONST 0x028c,0xfff8 05d0 028e 0001 | | .CONST 0x028e,0x0001 05d2 028f 0002 | | .CONST 0x028f,0x0002 05d4 0290 0003 | | .CONST 0x0290,0x0003 05d6 02a5 0004 | | .CONST 0x02a5,0x0004 05d8 02a8 0005 | | .CONST 0x02a8,0x0005 05da 02a9 0006 | | .CONST 0x02a9,0x0006 05dc 02ae 0007 | | .CONST 0x02ae,0x0007 05de 02b0 0008 | | .CONST 0x02b0,0x0008 05e0 02b0 fbff | | .CONST 0x02b0,0xfbff 05e2 02b8 0401 | | .CONST 0x02b8,0x0401 05e4 02bf 000a | | .CONST 0x02bf,0x000a 05e6 02c1 000b | | .CONST 0x02c1,0x000b 05e8 02c8 000c | | .CONST 0x02c8,0x000c 05ea ; -------------------------------------------------------------------------------------- 05ea ; Debug3 Subtable 0x13 05ea ; -------------------------------------------------------------------------------------- 05ea 000f 000a | | .DBG3TAB 0x000f,0x000a 05ec 02d3 0001 | | .CONST 0x02d3,0x0001 05ee 02d5 0002 | | .CONST 0x02d5,0x0002 05f0 02d7 0003 | | .CONST 0x02d7,0x0003 05f2 02ec 0004 | | .CONST 0x02ec,0x0004 05f4 02ec fbff | | .CONST 0x02ec,0xfbff 05f6 02f1 fbfe | | .CONST 0x02f1,0xfbfe 05f8 02f8 fbfd | | .CONST 0x02f8,0xfbfd 05fa 02fe fbfc | | .CONST 0x02fe,0xfbfc 05fc 0305 fbfb | | .CONST 0x0305,0xfbfb 05fe 0305 fbfa | | .CONST 0x0305,0xfbfa 0600 0312 0401 | | .CONST 0x0312,0x0401 0602 0316 0005 | | .CONST 0x0316,0x0005 0604 031b 0007 | | .CONST 0x031b,0x0007 0606 031b f7ff | | .CONST 0x031b,0xf7ff 0608 0321 f7fe | ! | .CONST 0x0321,0xf7fe 060a 032a f7fd | * | .CONST 0x032a,0xf7fd 060c 032a f7fc | * | .CONST 0x032a,0xf7fc 060e 0337 0801 | 7 | .CONST 0x0337,0x0801 0610 033b 0006 | ; | .CONST 0x033b,0x0006 0612 033b f3ff | ; | .CONST 0x033b,0xf3ff 0614 0340 f3fe | @ | .CONST 0x0340,0xf3fe 0616 0346 f3fd | F | .CONST 0x0346,0xf3fd 0618 034f f3fc | O | .CONST 0x034f,0xf3fc 061a 034f f3fb | O | .CONST 0x034f,0xf3fb 061c 0357 0c01 | W | .CONST 0x0357,0x0c01 061e ; -------------------------------------------------------------------------------------- 061e ; Debug3 Subtable 0x14 061e ; -------------------------------------------------------------------------------------- 061e 0000 0003 | | .DBG3TAB 0x0000,0x0003 0620 0363 0001 | c | .CONST 0x0363,0x0001 0622 0364 0002 | d | .CONST 0x0364,0x0002 0624 0365 0003 | e | .CONST 0x0365,0x0003 0626 ; -------------------------------------------------------------------------------------- 0626 ; Debug3 Subtable 0x15 0626 ; -------------------------------------------------------------------------------------- 0626 0000 0003 | | .DBG3TAB 0x0000,0x0003 0628 036b 0001 | k | .CONST 0x036b,0x0001 062a 036c 0002 | l | .CONST 0x036c,0x0002 062c 036d 0003 | m | .CONST 0x036d,0x0003 062e ; -------------------------------------------------------------------------------------- 062e ; Debug3 Subtable 0x16 062e ; -------------------------------------------------------------------------------------- 062e 0000 0004 | | .DBG3TAB 0x0000,0x0004 0630 0373 0001 | s | .CONST 0x0373,0x0001 0632 0374 0002 | t | .CONST 0x0374,0x0002 0634 0375 0003 | u | .CONST 0x0375,0x0003 0636 0376 0004 | v | .CONST 0x0376,0x0004 0638 ; -------------------------------------------------------------------------------------- 0638 ; Debug3 Subtable 0x17 0638 ; -------------------------------------------------------------------------------------- 0638 0000 0000 | | .DBG3TAB 0x0000,0x0000 063a ; -------------------------------------------------------------------------------------- 063a ; Debug3 Subtable 0x18 063a ; -------------------------------------------------------------------------------------- 063a 0000 0000 | | .DBG3TAB 0x0000,0x0000 063c 0000 0000 | | .BLANK 0000[0x1c4]