|
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: 3072 (0xc00)
Types: SEG
Notes: 5811_R1K_CODE
Names: »1017875.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1017875.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1017875.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1017875.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1017875.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1017875.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 02e8 | | .CONST 0x02e8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0102 | | .CONST 0x0102 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00bb | | .CONST 0x00bb ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002a | * | .CONST 0x002a ; Number of locals
000b INIT_0008:
000b e20f | | Load 0x1,0xf ; Debug Table 0x0 = .DEBUG 0x000b,0x0382,0xc000,0x0000,0x0037,0x1184,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c e211 | | Load 0x1,0x11
000d 4800 |H | Short_Literal 0x0
000e 4802 |H | Short_Literal 0x2
000f 4802 |H | Short_Literal 0x2
0010 4806 |H | Short_Literal 0x6
0011 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0012 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0x12,0xfffe
0014 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x14,0xfffd
0016 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x16,0xfffc
0018 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x18,0xfffb
001a 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x1a,0xfffa
001c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1c,0xfff9
001e 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1e,0xfff8
0020 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x20,0xfff7
0022 e211 | | Load 0x1,0x11 ; Debug Table 0x0.0x9 = 0x22,0xfff6
0023 0007 | | Action Break_Optional
0024 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xa = 0x24,0xfff5
0025 0007 | | Action Break_Optional
0026 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0xb = 0x26,0xfff4
0027 00da | | Load_Top At_Offset_2
0028 4802 |H | Short_Literal 0x2
0029 e213 | | Load 0x1,0x13
002a e214 | | Load 0x1,0x14
002b 029f 018b | | Declare_Subprogram INIT_0188,For_Call
002d 4802 |H | Short_Literal 0x2
002e 4801 |H | Short_Literal 0x1
002f 4801 |H | Short_Literal 0x1
0030 4800 |H | Short_Literal 0x0
0031 4801 |H | Short_Literal 0x1
0032 031d | | Declare_Type Variant_Record,Defined
0033 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0xc = 0x33,0xfff3
0034 0266 | f | Execute Discrete,Bounds
0035 00da | | Load_Top At_Offset_2
0036 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0038 4801 |H | Short_Literal 0x1
0039 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
003a 029b 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Unelaborated ; Debug Table 0x0.0xd = 0x3a,0xfff2
003c 029b 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Unelaborated ; Debug Table 0x0.0xe = 0x3c,0xfff1
003e 029b 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Unelaborated ; Debug Table 0x0.0xf = 0x3e,0xfff0
0040 62a3 |b | Indirect_Literal Discrete,0x2e4,{0x00000000, 0x00371184} ; Debug Table 0x0.0x10 = 0x40,0xffef
0041 4908 |I | Short_Literal 0x108
0042 e20f | | Load 0x1,0xf
0043 e210 | | Load 0x1,0x10
0044 e20f | | Load 0x1,0xf
0045 025b | [ | Execute Discrete,Check_In_Type
0046 e222 | " | Load 0x1,0x22
0047 e220 | | Load 0x1,0x20
0048 4800 |H | Short_Literal 0x0
0049 e211 | | Load 0x1,0x11
004a 025b | [ | Execute Discrete,Check_In_Type
004b e223 | # | Load 0x1,0x23
004c e220 | | Load 0x1,0x20
004d 0266 | f | Execute Discrete,Bounds
004e e211 | | Load 0x1,0x11
004f 0265 | e | Execute Discrete,Reverse_Bounds
0050 00db | | Load_Top At_Offset_3
0051 027f | | Execute Discrete,Equal
0052 7002 |p | Jump_Nonzero 0x55
0053 48e0 |H | Short_Literal 0xe0
0054 0257 | W | Execute Discrete,Raise
0055 027f | | Execute Discrete,Equal
0056 7002 |p | Jump_Nonzero 0x59
0057 48e0 |H | Short_Literal 0xe0
0058 0257 | W | Execute Discrete,Raise
0059 00d1 | | Pop_Control Pop_Count_1
005a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
005b 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
005c e213 | | Load 0x1,0x13
005d 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
005e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005f e001 | | Load 0x0,0x1
0060 0387 | | Declare_Variable Package
0061 00d8 | | Load_Top At_Offset_0
0062 020f | | Execute Module,Activate
0063 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x11 = 0x63,0xffee
0064 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0065 627e |b~ | Indirect_Literal Discrete,0x2e4,{0x00000000, 0x00371184} ; Debug Table 0x0.0x12 = 0x65,0xffed
0066 4936 |I6 | Short_Literal 0x136
0067 e222 | " | Load 0x1,0x22
0068 e220 | | Load 0x1,0x20
0069 4800 |H | Short_Literal 0x0
006a e211 | | Load 0x1,0x11
006b 025b | [ | Execute Discrete,Check_In_Type
006c e223 | # | Load 0x1,0x23
006d e220 | | Load 0x1,0x20
006e 0266 | f | Execute Discrete,Bounds
006f e211 | | Load 0x1,0x11
0070 0265 | e | Execute Discrete,Reverse_Bounds
0071 00db | | Load_Top At_Offset_3
0072 027f | | Execute Discrete,Equal
0073 7002 |p | Jump_Nonzero 0x76
0074 48e0 |H | Short_Literal 0xe0
0075 0257 | W | Execute Discrete,Raise
0076 027f | | Execute Discrete,Equal
0077 7002 |p | Jump_Nonzero 0x7a
0078 48e0 |H | Short_Literal 0xe0
0079 0257 | W | Execute Discrete,Raise
007a 00d1 | | Pop_Control Pop_Count_1
007b 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
007c 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
007d e002 | | Load 0x0,0x2
007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007f 0387 | | Declare_Variable Package
0080 00d8 | | Load_Top At_Offset_0
0081 020f | | Execute Module,Activate
0082 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x13 = 0x82,0xffec
0083 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0084 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x14 = 0x84,0xffeb
0085 00d9 | | Load_Top At_Offset_1
0086 e228 | ( | Load 0x1,0x28
0087 e223 | # | Load 0x1,0x23
0088 01dd | | Execute Vector,First
0089 4801 |H | Short_Literal 0x1
008a 027d | } | Execute Discrete,Greater
008b 6803 |h | Jump_Zero 0x8f
008c e223 | # | Load 0x1,0x23
008d 01dd | | Execute Vector,First
008e 7801 |x | Jump 0x90
008f 4801 |H | Short_Literal 0x1
0090 e223 | # | Load 0x1,0x23
0091 01dc | | Execute Vector,Last
0092 e211 | | Load 0x1,0x11
0093 0269 | i | Execute Discrete,Last
0094 027c | | | Execute Discrete,Less
0095 6803 |h | Jump_Zero 0x99
0096 e223 | # | Load 0x1,0x23
0097 01dc | | Execute Vector,Last
0098 7802 |x | Jump 0x9b
0099 e211 | | Load 0x1,0x11
009a 0269 | i | Execute Discrete,Last
009b e223 | # | Load 0x1,0x23
009c 034e | N | QQ_Declare_Type Array,Constrained,Bounds_With_Object
009d 029f 020b | | Declare_Subprogram INIT_0208,For_Call
009f 4800 |H | Short_Literal 0x0
00a0 4802 |H | Short_Literal 0x2
00a1 4802 |H | Short_Literal 0x2
00a2 e217 | | Load 0x1,0x17
00a3 0307 | | Complete_Type Variant_Record,By_Defining
00a4 00bf | | Action Accept_Activation
00a5 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 ; Debug Table 0x1 = .DEBUG 0x00a5,0x03ae,0xc000,0x0000,0x0037,0x1534,0x0000,0x0003
; Debug Table 0x1.0x0 = 0xa5,0xffff
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d25 | % | Execute_Immediate Reference_Lex_1,0x25 ; Debug Table 0x1.0x1 = 0xa7,0xfffe
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 ; Debug Table 0x1.0x2 = 0xa9,0xfffd
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x3 = 0xab,0xfffc
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x4 = 0xad,0xfffb
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x5 = 0xaf,0xfffa
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x6 = 0xb1,0xfff9
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x7 = 0xb3,0xfff8
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x8 = 0xb5,0xfff7
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0x9 = 0xb7,0xfff6
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xa = 0xb9,0xfff5
00ba 00c7 | | Action Elaborate_Subprogram
00bb BODY_0008:
00bb 00bc | | Action Signal_Activated
00bc 00bb | | Action Signal_Completion
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5 | | .CONST 0x00c5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call ; Debug Table 0x2 = .DEBUG 0x00c3,0x03c6,0x1001,0x0000,0x0037,0x1184,0x0000,0x003f
00c5 BODY_00c0:
00c5 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x0 = 0xc5,0x1
00c6 e5ff | | Load 0x2,-0x1
00c7 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00c8 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0xc8,0x2
00c9 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
00ca e227 | ' | Load 0x1,0x27
00cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00cc e5ff | | Load 0x2,-0x1
00cd 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
00ce 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x2 = 0xce,0x3
00cf 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00d0 e229 | ) | Load 0x1,0x29
00d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d2 00d1 | | Pop_Control Pop_Count_1
00d3 00cf | | Action Mark_Auxiliary
00d4 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x3 = 0xd4,0x4
00d5 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
00d6 01d9 | | Execute Vector,Reverse_Bounds
00d7 0263 | c | Execute Discrete,Above_Bound
00d8 7003 |p | Jump_Nonzero 0xdc
00d9 8402 | | Call 0x2,0x2 ; Debug Table 0x2.0x4 = 0xd9,0x5
00da 00c8 | | Action Pop_Auxiliary_Range
00db 3ffd |? | Loop_Increasing 0xd9
00dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e9 | | .CONST 0x00e9 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2 ; Debug Table 0x3 = .DEBUG 0x00e3,0x03d2,0x1002,0x0000,0x0037,0x1184,0x0000,0x0047
; Debug Table 0x3.0x0 = 0xe3,0xffff
00e4 e5fe | | Load 0x2,-0x2
00e5 e217 | | Load 0x1,0x17
00e6 1c08 | | Execute_Immediate Run_Utility,0x8
00e7 00d8 | | Load_Top At_Offset_0
00e8 1c00 | | Execute_Immediate Run_Utility,0x0
00e9 BODY_00e0:
00e9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0xe9,0x1
00ea 8218 | | Call 0x1,0x18
00eb 00d1 | | Pop_Control Pop_Count_1
00ec 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0xec,0x2
00ed 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5 | | .CONST 0x00f5 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 029f 027b | {| Declare_Subprogram INIT_0278,For_Call ; Debug Table 0x4 = .DEBUG 0x00f3,0x03da,0x1001,0x0000,0x0037,0x1184,0x0000,0x0056
; Debug Table 0x4.0x0 = 0xf3,0xffff
00f5 BODY_00f0:
00f5 e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0x1 = 0xf5,0x1
00f6 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
00f7 e5fd | | Load 0x2,-0x3
00f8 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
00f9 e5fd | | Load 0x2,-0x3
00fa 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
00fb 8402 | | Call 0x2,0x2
00fc e5fd | | Load 0x2,-0x3
00fd 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
00fe 00d1 | | Pop_Control Pop_Count_1
00ff e5fd | | Load 0x2,-0x3
0100 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0101 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0102 0000 0000 | | .BLANK 0000[0x6]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010e | | .CONST 0x010e ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0003 | | .CONST 0x0003 ; Number of locals
010b INIT_0108:
010b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x5 = .DEBUG 0x010b,0x03e0,0x1001,0x0000,0x0037,0x1184,0x0000,0x0066
; Debug Table 0x5.0x0 = 0x10b,0xffff
010c e220 | | Load 0x1,0x20 ; Debug Table 0x5.0x1 = 0x10c,0xfffe
010d 0007 | | Action Break_Optional
010e BODY_0108:
010e e5ff | | Load 0x2,-0x1 ; Debug Table 0x5.0x2 = 0x10e,0x1
010f 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0110 7002 |p | Jump_Nonzero 0x113
0111 4887 |H | Short_Literal 0x87
0112 0257 | W | Execute Discrete,Raise
0113 e227 | ' | Load 0x1,0x27 ; Debug Table 0x5.0x3 = 0x113,0x2
0114 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0115 00e1 | | Load_Encached Boolean_Cache
0116 e5ff | | Load 0x2,-0x1
0117 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0118 e5fe | | Load 0x2,-0x2
0119 e213 | | Load 0x1,0x13
011a 0119 | | Execute Any,Check_In_Formal_Type
011b e5ff | | Load 0x2,-0x1
011c 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
011d e227 | ' | Load 0x1,0x27
011e 181e | | Execute Package,Field_Execute,Field_Number 0x1e
011f 005b | [ | Store_Top Discrete,At_Offset_3
0120 0059 | Y | Store_Top Discrete,At_Offset_1
0121 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x4 = 0x121,0x3
0122 6809 |h | Jump_Zero 0x12c
0123 4801 |H | Short_Literal 0x1 ; Debug Table 0x5.0x5 = 0x123,0x4
0124 a5fd | | Store_Unchecked 0x2,-0x3
0125 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x5.0x6 = 0x125,0x5
0126 e5ff | | Load 0x2,-0x1
0127 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0128 01d5 | | Execute Vector,Field_Reference
0129 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
012a c5fc | | Store 0x2,-0x4
012b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
012c 4800 |H | Short_Literal 0x0 ; Debug Table 0x5.0x7 = 0x12c,0x6
012d a5fd | | Store_Unchecked 0x2,-0x3
012e e215 | | Load 0x1,0x15 ; Debug Table 0x5.0x8 = 0x12e,0x7
012f c5fc | | Store 0x2,-0x4
0130 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0131 0000 0000 | | .BLANK 0000[0x7]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013d | = | .CONST 0x013d ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0002 | | .CONST 0x0002 ; Number of locals
013b INIT_0138:
013b 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call ; Debug Table 0x6 = .DEBUG 0x013b,0x03f4,0x1001,0x0000,0x0037,0x1184,0x0000,0x007a
; Debug Table 0x6.0x0 = 0x13b,0xffff
013d BODY_0138:
013d e5fe | | Load 0x2,-0x2 ; Debug Table 0x6.0x1 = 0x13d,0x1
013e 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
013f e5fe | | Load 0x2,-0x2
0140 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0141 e5fe | | Load 0x2,-0x2
0142 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0143 8402 | | Call 0x2,0x2
0144 e5fe | | Load 0x2,-0x2
0145 2905 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x5
0146 00d1 | | Pop_Control Pop_Count_1
0147 e5fe | | Load 0x2,-0x2
0148 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0149 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x0153,0x03fa,0x1002,0x0000,0x0037,0x1184,0x0000,0x008a
; Debug Table 0x7.0x0 = 0x153,0x1
0154 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0155 e227 | ' | Load 0x1,0x27
0156 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0157 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2 ; Debug Table 0x8 = .DEBUG 0x015b,0x03fe,0x1002,0x0000,0x0037,0x1184,0x0000,0x0093
; Debug Table 0x8.0x0 = 0x15b,0x1
015c 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
015d e227 | ' | Load 0x1,0x27
015e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00cf | | Action Mark_Auxiliary ; Debug Table 0x9 = .DEBUG 0x0163,0x0402,0x3801,0x0002,0x0037,0x1184,0x0000,0x009c
0164 e5fd | | Load 0x2,-0x3 ; Debug Table 0x9.0x0 = 0x164,0x1
0165 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0166 01d9 | | Execute Vector,Reverse_Bounds
0167 0263 | c | Execute Discrete,Above_Bound
0168 7017 |p | Jump_Nonzero 0x180
0169 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x1 = 0x169,0x2
016a e5fd | | Load 0x2,-0x3
016b 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
016c 01d5 | | Execute Vector,Field_Reference
016d 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
016e 700f |p | Jump_Nonzero 0x17e
016f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x16f,0x3
0170 e5fd | | Load 0x2,-0x3
0171 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0172 01d5 | | Execute Vector,Field_Reference
0173 2e04 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x4
0174 e214 | | Load 0x1,0x14
0175 0119 | | Execute Any,Check_In_Formal_Type
0176 00d9 | | Load_Top At_Offset_1
0177 e5fd | | Load 0x2,-0x3
0178 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0179 01d5 | | Execute Vector,Field_Reference
017a 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
017b e213 | | Load 0x1,0x13
017c 0119 | | Execute Any,Check_In_Formal_Type
017d 85fe | | Call 0x2,-0x2
017e 00c8 | | Action Pop_Auxiliary_Range
017f 3fe9 |? | Loop_Increasing 0x169
0180 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0181 0000 0000 | | .BLANK 0000[0x7]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 4608 |F | Jump_Case 0x9 ; Debug Table 0xa = .DEBUG 0x018b,0x040a,0x1005,0x0000,0x0037,0x1184,0x0000,0x00bd
018c 7808 |x | Jump 0x195 ; case 0x0
018d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
018e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
018f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0190 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0191 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0192 781e |x | Jump 0x1b1 ; case 0x6
0193 7825 |x% | Jump 0x1b9 ; case 0x7
0194 782f |x/ | Jump 0x1c4 ; case 0x8
0195 00da | | Load_Top At_Offset_2
0196 016c | l | Execute Variant_Record,Is_Constrained
0197 7009 |p | Jump_Nonzero 0x1a1
0198 00cf | | Action Mark_Auxiliary
0199 4801 |H | Short_Literal 0x1
019a e5ff | | Load 0x2,-0x1
019b 1c08 | | Execute_Immediate Run_Utility,0x8
019c 00d8 | | Load_Top At_Offset_0
019d 1c00 | | Execute_Immediate Run_Utility,0x0
019e c5ff | | Store 0x2,-0x1
019f 00ce | | Action Pop_Auxiliary
01a0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a1 00da | | Load_Top At_Offset_2
01a2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
01a3 4601 |F | Jump_Case 0x2
01a4 7801 |x | Jump 0x1a6 ; case 0x0
01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01a6 00da | | Load_Top At_Offset_2
01a7 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
01a8 00da | | Load_Top At_Offset_2
01a9 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
01aa 1c00 | | Execute_Immediate Run_Utility,0x0
01ab 00da | | Load_Top At_Offset_2
01ac 2204 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x4
01ad 00da | | Load_Top At_Offset_2
01ae 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
01af 1c00 | | Execute_Immediate Run_Utility,0x0
01b0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01b1 00db | | Load_Top At_Offset_3
01b2 4601 |F | Jump_Case 0x2
01b3 7803 |x | Jump 0x1b7 ; case 0x0
01b4 7800 |x | Jump 0x1b5 ; case 0x1
01b5 48ff |H | Short_Literal 0xff
01b6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b7 4801 |H | Short_Literal 0x1
01b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b9 00db | | Load_Top At_Offset_3
01ba e5fe | | Load 0x2,-0x2
01bb 4601 |F | Jump_Case 0x2
01bc 7803 |x | Jump 0x1c0 ; case 0x0
01bd 7800 |x | Jump 0x1be ; case 0x1
01be 48ff |H | Short_Literal 0xff
01bf 7801 |x | Jump 0x1c1
01c0 4801 |H | Short_Literal 0x1
01c1 e5ff | | Load 0x2,-0x1
01c2 031b | | Declare_Type Variant_Record,Constrained
01c3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01c4 00db | | Load_Top At_Offset_3
01c5 e5fe | | Load 0x2,-0x2
01c6 e5ff | | Load 0x2,-0x1
01c7 1c06 | | Execute_Immediate Run_Utility,0x6
01c8 e5ff | | Load 0x2,-0x1
01c9 02fc | | Declare_Variable Variant_Record,With_Constraint
01ca 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cb 0000 0000 | | .BLANK 0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0xb = .DEBUG 0x01d3,0x040c,0x1005,0x0000,0x0037,0x1184,0x0000,0x00e1
01d4 00da | | Load_Top At_Offset_2
01d5 01dc | | Execute Vector,Last
01d6 00db | | Load_Top At_Offset_3
01d7 01dd | | Execute Vector,First
01d8 0263 | c | Execute Discrete,Above_Bound
01d9 7006 |p | Jump_Nonzero 0x1e0
01da 00d8 | | Load_Top At_Offset_0
01db e5ff | | Load 0x2,-0x1
01dc 01d5 | | Execute Vector,Field_Reference
01dd 1c00 | | Execute_Immediate Run_Utility,0x0
01de 0a01 | | Execute_Immediate Plus,0x1
01df 7ff8 | | Jump 0x1d8
01e0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x01eb,0x040e,0x1001,0x0000,0x0037,0x1184,0x0000,0x00ea
; Debug Table 0xc.0x0 = 0x1eb,0x1
01ec e5fe | | Load 0x2,-0x2
01ed 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01ee 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ef 0000 | | .XXX[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 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x01f3,0x0412,0x1002,0x0000,0x0037,0x1184,0x0000,0x00f6
; Debug Table 0xd.0x0 = 0x1f3,0x1
01f4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01f5 e211 | | Load 0x1,0x11
01f6 025b | [ | Execute Discrete,Check_In_Type
01f7 4401 |D | Exit_Subprogram With_Value,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 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x01fb,0x0416,0x1002,0x0000,0x0037,0x1184,0x0000,0x00ff
; Debug Table 0xe.0x0 = 0x1fb,0x1
01fc 2e03 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x3
01fd 00d8 | | Load_Top At_Offset_0
01fe 0120 | | Execute Any,Is_Value
01ff 7002 |p | Jump_Nonzero 0x202
0200 00d8 | | Load_Top At_Offset_0
0201 011e | | Execute Any,Convert
0202 e213 | | Load 0x1,0x13
0203 0119 | | Execute Any,Check_In_Formal_Type
0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 4608 |F | Jump_Case 0x9 ; Debug Table 0xf = .DEBUG 0x020b,0x041a,0x1005,0x0000,0x0037,0x1184,0x0000,0x0157
020c 7808 |x | Jump 0x215 ; case 0x0
020d 7823 |x# | Jump 0x231 ; case 0x1
020e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
020f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0210 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0211 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0212 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0213 7820 |x | Jump 0x234 ; case 0x7
0214 782c |x, | Jump 0x241 ; case 0x8
0215 00da | | Load_Top At_Offset_2
0216 016c | l | Execute Variant_Record,Is_Constrained
0217 700a |p | Jump_Nonzero 0x222
0218 00cf | | Action Mark_Auxiliary
0219 e210 | | Load 0x1,0x10
021a e212 | | Load 0x1,0x12
021b e5ff | | Load 0x2,-0x1
021c 1c08 | | Execute_Immediate Run_Utility,0x8
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f c5ff | | Store 0x2,-0x1
0220 00ce | | Action Pop_Auxiliary
0221 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0222 4800 |H | Short_Literal 0x0
0223 00db | | Load_Top At_Offset_3
0224 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0225 00da | | Load_Top At_Offset_2
0226 2205 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x5
0227 00da | | Load_Top At_Offset_2
0228 2505 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x5
0229 1c00 | | Execute_Immediate Run_Utility,0x0
022a 00da | | Load_Top At_Offset_2
022b 2404 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
022c 1c00 | | Execute_Immediate Run_Utility,0x0
022d 00da | | Load_Top At_Offset_2
022e 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
022f 1c00 | | Execute_Immediate Run_Utility,0x0
0230 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0231 00da | | Load_Top At_Offset_2
0232 2205 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x5
0233 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0234 e5fd | | Load 0x2,-0x3
0235 e5fe | | Load 0x2,-0x2
0236 e5fd | | Load 0x2,-0x3
0237 e228 | ( | Load 0x1,0x28
0238 1c07 | | Execute_Immediate Run_Utility,0x7
0239 4801 |H | Short_Literal 0x1
023a e5fe | | Load 0x2,-0x2
023b e223 | # | Load 0x1,0x23
023c 035b | [ | Declare_Type Array,Constrained
023d 4802 |H | Short_Literal 0x2
023e e5ff | | Load 0x2,-0x1
023f 031b | | Declare_Type Variant_Record,Constrained
0240 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
0241 e5fd | | Load 0x2,-0x3
0242 e5fe | | Load 0x2,-0x2
0243 e5ff | | Load 0x2,-0x1
0244 02fc | | Declare_Variable Variant_Record,With_Constraint
0245 e5fd | | Load 0x2,-0x3
0246 e228 | ( | Load 0x1,0x28
0247 1c08 | | Execute_Immediate Run_Utility,0x8
0248 2d05 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x5
0249 4801 |H | Short_Literal 0x1
024a e5fe | | Load 0x2,-0x2
024b e223 | # | Load 0x1,0x23
024c 0334 | 4 | Declare_Variable Array,With_Constraint
024d 2d06 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x6
024e 016a | j | QQ_execute Variant_Record,XXX
024f 4203 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x3
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x10 = .DEBUG 0x0253,0x041c,0x1004,0x0000,0x0037,0x1534,0x0000,0x0078
; Debug Table 0x10.0x0 = 0x253,0x1
0254 00d8 | | Load_Top At_Offset_0
0255 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0256 00d8 | | Load_Top At_Offset_0
0257 e405 | | Load 0x2,0x5
0258 4801 |H | Short_Literal 0x1
0259 e222 | " | Load 0x1,0x22
025a 1c08 | | Execute_Immediate Run_Utility,0x8
025b 4800 |H | Short_Literal 0x0
025c 00d9 | | Load_Top At_Offset_1
025d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
025e 00d9 | | Load_Top At_Offset_1
025f 00db | | Load_Top At_Offset_3
0260 01d6 | | Execute Vector,Field_Write
0261 00d2 | | Pop_Control Pop_Count_2
0262 00d0 | | Action Swap_Control
0263 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0264 e5ff | | Load 0x2,-0x1 ; Debug Table 0x10.0x1 = 0x264,0x2
0265 2506 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x6
0266 e5ff | | Load 0x2,-0x1
0267 2c04 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0268 4800 |H | Short_Literal 0x0
0269 e405 | | Load 0x2,0x5
026a e211 | | Load 0x1,0x11
026b 025b | [ | Execute Discrete,Check_In_Type
026c e229 | ) | Load 0x1,0x29
026d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
026e 00d1 | | Pop_Control Pop_Count_1
026f e5ff | | Load 0x2,-0x1
0270 2906 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x6
0271 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0272 0000 0000 | | .BLANK 0000[0x6]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027d | } | .CONST 0x027d ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0002 | | .CONST 0x0002 ; Number of locals
027b INIT_0278:
027b e220 | | Load 0x1,0x20 ; Debug Table 0x11 = .DEBUG 0x027b,0x0422,0x1001,0x0000,0x0037,0x1534,0x0000,0x00b5
; Debug Table 0x11.0x0 = 0x27b,0xffff
027c 0007 | | Action Break_Optional
027d BODY_0278:
027d e5fd | | Load 0x2,-0x3 ; Debug Table 0x11.0x1 = 0x27d,0x1
027e 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
027f 7002 |p | Jump_Nonzero 0x282
0280 4887 |H | Short_Literal 0x87
0281 0257 | W | Execute Discrete,Raise
0282 e7fd | | Load 0x3,-0x3 ; Debug Table 0x11.0x2 = 0x282,0x2
0283 e229 | ) | Load 0x1,0x29
0284 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0285 e7fe | | Load 0x3,-0x2
0286 e229 | ) | Load 0x1,0x29
0287 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0288 00d1 | | Pop_Control Pop_Count_1
0289 005a | Z | Store_Top Discrete,At_Offset_2
028a 00d1 | | Pop_Control Pop_Count_1
028b 4800 |H | Short_Literal 0x0 ; Debug Table 0x11.0x3 = 0x28b,0x3
028c e222 | " | Load 0x1,0x22
028d 1c08 | | Execute_Immediate Run_Utility,0x8
028e 4800 |H | Short_Literal 0x0
028f 00d9 | | Load_Top At_Offset_1
0290 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0291 e5ff | | Load 0x2,-0x1
0292 e213 | | Load 0x1,0x13
0293 0119 | | Execute Any,Check_In_Formal_Type
0294 00d9 | | Load_Top At_Offset_1
0295 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0296 e5fe | | Load 0x2,-0x2
0297 e214 | | Load 0x1,0x14
0298 0119 | | Execute Any,Check_In_Formal_Type
0299 00d9 | | Load_Top At_Offset_1
029a 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
029b 00d9 | | Load_Top At_Offset_1
029c e7fd | | Load 0x3,-0x3
029d 01d6 | | Execute Vector,Field_Write
029e e7fd | | Load 0x3,-0x3 ; Debug Table 0x11.0x4 = 0x29e,0x4
029f e7ff | | Load 0x3,-0x1
02a0 00da | | Load_Top At_Offset_2
02a1 e211 | | Load 0x1,0x11
02a2 025b | [ | Execute Discrete,Check_In_Type
02a3 e227 | ' | Load 0x1,0x27
02a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a6 0000 0000 | | .XXX[0x2]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ae | | .CONST 0x02ae ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x12 = .DEBUG 0x02ab,0x042e,0x1001,0x0000,0x0037,0x1534,0x0000,0x0163
; Debug Table 0x12.0x0 = 0x2ab,0xffff
02ac e220 | | Load 0x1,0x20 ; Debug Table 0x12.0x1 = 0x2ac,0xfffe
02ad 0007 | | Action Break_Optional
02ae BODY_02a8:
02ae e5fe | | Load 0x2,-0x2 ; Debug Table 0x12.0x2 = 0x2ae,0x1
02af 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
02b0 7002 |p | Jump_Nonzero 0x2b3
02b1 4887 |H | Short_Literal 0x87
02b2 0257 | W | Execute Discrete,Raise
02b3 e227 | ' | Load 0x1,0x27 ; Debug Table 0x12.0x3 = 0x2b3,0x2
02b4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02b5 00e1 | | Load_Encached Boolean_Cache
02b6 e7fd | | Load 0x3,-0x3
02b7 e5ff | | Load 0x2,-0x1
02b8 e213 | | Load 0x1,0x13
02b9 0119 | | Execute Any,Check_In_Formal_Type
02ba e7ff | | Load 0x3,-0x1
02bb e227 | ' | Load 0x1,0x27
02bc 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02bd 005b | [ | Store_Top Discrete,At_Offset_3
02be 0059 | Y | Store_Top Discrete,At_Offset_1
02bf 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x4 = 0x2bf,0x3
02c0 681d |h | Jump_Zero 0x2de
02c1 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0x5 = 0x2c1,0x4
02c2 a5fd | | Store_Unchecked 0x2,-0x3
02c3 e7fd | | Load 0x3,-0x3 ; Debug Table 0x12.0x6 = 0x2c3,0x5
02c4 e7ff | | Load 0x3,-0x1
02c5 00da | | Load_Top At_Offset_2
02c6 e211 | | Load 0x1,0x11
02c7 025b | [ | Execute Discrete,Check_In_Type
02c8 e227 | ' | Load 0x1,0x27
02c9 181f | | Execute Package,Field_Execute,Field_Number 0x1f
02ca 00d2 | | Pop_Control Pop_Count_2
02cb 4801 |H | Short_Literal 0x1 ; Debug Table 0x12.0x7 = 0x2cb,0x6
02cc e222 | " | Load 0x1,0x22
02cd 1c08 | | Execute_Immediate Run_Utility,0x8
02ce 4800 |H | Short_Literal 0x0
02cf 00d9 | | Load_Top At_Offset_1
02d0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02d1 00d9 | | Load_Top At_Offset_1
02d2 e7fd | | Load 0x3,-0x3
02d3 01d6 | | Execute Vector,Field_Write
02d4 e7fd | | Load 0x3,-0x3 ; Debug Table 0x12.0x8 = 0x2d4,0x7
02d5 e7fe | | Load 0x3,-0x2
02d6 4800 |H | Short_Literal 0x0
02d7 00db | | Load_Top At_Offset_3
02d8 e211 | | Load 0x1,0x11
02d9 025b | [ | Execute Discrete,Check_In_Type
02da e229 | ) | Load 0x1,0x29
02db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02dc 00d2 | | Pop_Control Pop_Count_2
02dd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02de 4800 |H | Short_Literal 0x0 ; Debug Table 0x12.0x9 = 0x2de,0x8
02df a5fd | | Store_Unchecked 0x2,-0x3
02e0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02e1 0000 0000 | | .XXX[0x3]
02e3 0000 | |
02e4 0000 0000 | | .LITERAL {0x00000000, 0x00371184}
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0003 0013 | | .CONST 0x0003,0x0013
02ea 000b 0382 | | .DEBUG 0x000b,0x0382,0xc000,0x0000,0x0037,0x1184,0x0000,0x0009
02f2 00a5 03ae | | .DEBUG 0x00a5,0x03ae,0xc000,0x0000,0x0037,0x1534,0x0000,0x0003
02fa 00c3 03c6 | | .DEBUG 0x00c3,0x03c6,0x1001,0x0000,0x0037,0x1184,0x0000,0x003f
0302 00e3 03d2 | | .DEBUG 0x00e3,0x03d2,0x1002,0x0000,0x0037,0x1184,0x0000,0x0047
030a 00f3 03da | | .DEBUG 0x00f3,0x03da,0x1001,0x0000,0x0037,0x1184,0x0000,0x0056
0312 010b 03e0 | | .DEBUG 0x010b,0x03e0,0x1001,0x0000,0x0037,0x1184,0x0000,0x0066
031a 013b 03f4 | ; | .DEBUG 0x013b,0x03f4,0x1001,0x0000,0x0037,0x1184,0x0000,0x007a
0322 0153 03fa | S | .DEBUG 0x0153,0x03fa,0x1002,0x0000,0x0037,0x1184,0x0000,0x008a
032a 015b 03fe | [ | .DEBUG 0x015b,0x03fe,0x1002,0x0000,0x0037,0x1184,0x0000,0x0093
0332 0163 0402 | c | .DEBUG 0x0163,0x0402,0x3801,0x0002,0x0037,0x1184,0x0000,0x009c
033a 018b 040a | | .DEBUG 0x018b,0x040a,0x1005,0x0000,0x0037,0x1184,0x0000,0x00bd
0342 01d3 040c | | .DEBUG 0x01d3,0x040c,0x1005,0x0000,0x0037,0x1184,0x0000,0x00e1
034a 01eb 040e | | .DEBUG 0x01eb,0x040e,0x1001,0x0000,0x0037,0x1184,0x0000,0x00ea
0352 01f3 0412 | | .DEBUG 0x01f3,0x0412,0x1002,0x0000,0x0037,0x1184,0x0000,0x00f6
035a 01fb 0416 | | .DEBUG 0x01fb,0x0416,0x1002,0x0000,0x0037,0x1184,0x0000,0x00ff
0362 020b 041a | | .DEBUG 0x020b,0x041a,0x1005,0x0000,0x0037,0x1184,0x0000,0x0157
036a 0253 041c | S | .DEBUG 0x0253,0x041c,0x1004,0x0000,0x0037,0x1534,0x0000,0x0078
0372 027b 0422 | { "| .DEBUG 0x027b,0x0422,0x1001,0x0000,0x0037,0x1534,0x0000,0x00b5
037a 02ab 042e | .| .DEBUG 0x02ab,0x042e,0x1001,0x0000,0x0037,0x1534,0x0000,0x0163
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug3 Subtable 0x0
0382 ; --------------------------------------------------------------------------------------
0382 0015 0000 | | .DBG3TAB 0x0015,0x0000
0384 000b ffff | | .CONST 0x000b,0xffff
0386 0012 fffe | | .CONST 0x0012,0xfffe
0388 0014 fffd | | .CONST 0x0014,0xfffd
038a 0016 fffc | | .CONST 0x0016,0xfffc
038c 0018 fffb | | .CONST 0x0018,0xfffb
038e 001a fffa | | .CONST 0x001a,0xfffa
0390 001c fff9 | | .CONST 0x001c,0xfff9
0392 001e fff8 | | .CONST 0x001e,0xfff8
0394 0020 fff7 | | .CONST 0x0020,0xfff7
0396 0022 fff6 | " | .CONST 0x0022,0xfff6
0398 0024 fff5 | $ | .CONST 0x0024,0xfff5
039a 0026 fff4 | & | .CONST 0x0026,0xfff4
039c 0033 fff3 | 3 | .CONST 0x0033,0xfff3
039e 003a fff2 | : | .CONST 0x003a,0xfff2
03a0 003c fff1 | < | .CONST 0x003c,0xfff1
03a2 003e fff0 | > | .CONST 0x003e,0xfff0
03a4 0040 ffef | @ | .CONST 0x0040,0xffef
03a6 0063 ffee | c | .CONST 0x0063,0xffee
03a8 0065 ffed | e | .CONST 0x0065,0xffed
03aa 0082 ffec | | .CONST 0x0082,0xffec
03ac 0084 ffeb | | .CONST 0x0084,0xffeb
03ae ; --------------------------------------------------------------------------------------
03ae ; Debug3 Subtable 0x1
03ae ; --------------------------------------------------------------------------------------
03ae 000b 0000 | | .DBG3TAB 0x000b,0x0000
03b0 00a5 ffff | | .CONST 0x00a5,0xffff
03b2 00a7 fffe | | .CONST 0x00a7,0xfffe
03b4 00a9 fffd | | .CONST 0x00a9,0xfffd
03b6 00ab fffc | | .CONST 0x00ab,0xfffc
03b8 00ad fffb | | .CONST 0x00ad,0xfffb
03ba 00af fffa | | .CONST 0x00af,0xfffa
03bc 00b1 fff9 | | .CONST 0x00b1,0xfff9
03be 00b3 fff8 | | .CONST 0x00b3,0xfff8
03c0 00b5 fff7 | | .CONST 0x00b5,0xfff7
03c2 00b7 fff6 | | .CONST 0x00b7,0xfff6
03c4 00b9 fff5 | | .CONST 0x00b9,0xfff5
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug3 Subtable 0x2
03c6 ; --------------------------------------------------------------------------------------
03c6 0000 0005 | | .DBG3TAB 0x0000,0x0005
03c8 00c5 0001 | | .CONST 0x00c5,0x0001
03ca 00c8 0002 | | .CONST 0x00c8,0x0002
03cc 00ce 0003 | | .CONST 0x00ce,0x0003
03ce 00d4 0004 | | .CONST 0x00d4,0x0004
03d0 00d9 0005 | | .CONST 0x00d9,0x0005
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug3 Subtable 0x3
03d2 ; --------------------------------------------------------------------------------------
03d2 0001 0002 | | .DBG3TAB 0x0001,0x0002
03d4 00e3 ffff | | .CONST 0x00e3,0xffff
03d6 00e9 0001 | | .CONST 0x00e9,0x0001
03d8 00ec 0002 | | .CONST 0x00ec,0x0002
03da ; --------------------------------------------------------------------------------------
03da ; Debug3 Subtable 0x4
03da ; --------------------------------------------------------------------------------------
03da 0001 0001 | | .DBG3TAB 0x0001,0x0001
03dc 00f3 ffff | | .CONST 0x00f3,0xffff
03de 00f5 0001 | | .CONST 0x00f5,0x0001
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug3 Subtable 0x5
03e0 ; --------------------------------------------------------------------------------------
03e0 0002 0007 | | .DBG3TAB 0x0002,0x0007
03e2 010b ffff | | .CONST 0x010b,0xffff
03e4 010c fffe | | .CONST 0x010c,0xfffe
03e6 010e 0001 | | .CONST 0x010e,0x0001
03e8 0113 0002 | | .CONST 0x0113,0x0002
03ea 0121 0003 | ! | .CONST 0x0121,0x0003
03ec 0123 0004 | # | .CONST 0x0123,0x0004
03ee 0125 0005 | % | .CONST 0x0125,0x0005
03f0 012c 0006 | , | .CONST 0x012c,0x0006
03f2 012e 0007 | . | .CONST 0x012e,0x0007
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0x6
03f4 ; --------------------------------------------------------------------------------------
03f4 0001 0001 | | .DBG3TAB 0x0001,0x0001
03f6 013b ffff | ; | .CONST 0x013b,0xffff
03f8 013d 0001 | = | .CONST 0x013d,0x0001
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug3 Subtable 0x7
03fa ; --------------------------------------------------------------------------------------
03fa 0000 0001 | | .DBG3TAB 0x0000,0x0001
03fc 0153 0001 | S | .CONST 0x0153,0x0001
03fe ; --------------------------------------------------------------------------------------
03fe ; Debug3 Subtable 0x8
03fe ; --------------------------------------------------------------------------------------
03fe 0000 0001 | | .DBG3TAB 0x0000,0x0001
0400 015b 0001 | [ | .CONST 0x015b,0x0001
0402 ; --------------------------------------------------------------------------------------
0402 ; Debug3 Subtable 0x9
0402 ; --------------------------------------------------------------------------------------
0402 0000 0003 | | .DBG3TAB 0x0000,0x0003
0404 0164 0001 | d | .CONST 0x0164,0x0001
0406 0169 0002 | i | .CONST 0x0169,0x0002
0408 016f 0003 | o | .CONST 0x016f,0x0003
040a ; --------------------------------------------------------------------------------------
040a ; Debug3 Subtable 0xa
040a ; --------------------------------------------------------------------------------------
040a 0000 0000 | | .DBG3TAB 0x0000,0x0000
040c ; --------------------------------------------------------------------------------------
040c ; Debug3 Subtable 0xb
040c ; --------------------------------------------------------------------------------------
040c 0000 0000 | | .DBG3TAB 0x0000,0x0000
040e ; --------------------------------------------------------------------------------------
040e ; Debug3 Subtable 0xc
040e ; --------------------------------------------------------------------------------------
040e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0410 01eb 0001 | | .CONST 0x01eb,0x0001
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug3 Subtable 0xd
0412 ; --------------------------------------------------------------------------------------
0412 0000 0001 | | .DBG3TAB 0x0000,0x0001
0414 01f3 0001 | | .CONST 0x01f3,0x0001
0416 ; --------------------------------------------------------------------------------------
0416 ; Debug3 Subtable 0xe
0416 ; --------------------------------------------------------------------------------------
0416 0000 0001 | | .DBG3TAB 0x0000,0x0001
0418 01fb 0001 | | .CONST 0x01fb,0x0001
041a ; --------------------------------------------------------------------------------------
041a ; Debug3 Subtable 0xf
041a ; --------------------------------------------------------------------------------------
041a 0000 0000 | | .DBG3TAB 0x0000,0x0000
041c ; --------------------------------------------------------------------------------------
041c ; Debug3 Subtable 0x10
041c ; --------------------------------------------------------------------------------------
041c 0000 0002 | | .DBG3TAB 0x0000,0x0002
041e 0253 0001 | S | .CONST 0x0253,0x0001
0420 0264 0002 | d | .CONST 0x0264,0x0002
0422 ; --------------------------------------------------------------------------------------
0422 ; Debug3 Subtable 0x11
0422 ; --------------------------------------------------------------------------------------
0422 0001 0004 | | .DBG3TAB 0x0001,0x0004
0424 027b ffff | { | .CONST 0x027b,0xffff
0426 027d 0001 | } | .CONST 0x027d,0x0001
0428 0282 0002 | | .CONST 0x0282,0x0002
042a 028b 0003 | | .CONST 0x028b,0x0003
042c 029e 0004 | | .CONST 0x029e,0x0004
042e ; --------------------------------------------------------------------------------------
042e ; Debug3 Subtable 0x12
042e ; --------------------------------------------------------------------------------------
042e 0002 0008 | | .DBG3TAB 0x0002,0x0008
0430 02ab ffff | | .CONST 0x02ab,0xffff
0432 02ac fffe | | .CONST 0x02ac,0xfffe
0434 02ae 0001 | | .CONST 0x02ae,0x0001
0436 02b3 0002 | | .CONST 0x02b3,0x0002
0438 02bf 0003 | | .CONST 0x02bf,0x0003
043a 02c1 0004 | | .CONST 0x02c1,0x0004
043c 02c3 0005 | | .CONST 0x02c3,0x0005
043e 02cb 0006 | | .CONST 0x02cb,0x0006
0440 02d4 0007 | | .CONST 0x02d4,0x0007
0442 02de 0008 | | .CONST 0x02de,0x0008
0444 0000 0000 | | .BLANK 0000[0x1bc]