|
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: »1030163.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1030163.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1030163.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1030163.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1030163.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1030163.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 02b8 | | .CONST 0x02b8 ; 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 0078 | x | .CONST 0x0078 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0382,0xc000,0x0000,0x0037,0x0984,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 032b | + | Declare_Type Record,Incomplete,Visible
000f 480a |H | Short_Literal 0xa ; Debug Table 0x0.0x3 = 0xf,0xfffc
0010 615f |a_ | Indirect_Literal Discrete,0x170,{0x000fb813, 0x000017b0} ; 0xfb813 = HASHED_TYPE_DESCRIPTOR_MANAGER
0011 02a0 | | Declare_Subprogram Null_Subprogram
0012 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0013 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x15,0xfffa
0016 4800 |H | Short_Literal 0x0
0017 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1a,0xfff9
001c 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1c,0xfff8
001e e20f | | Load 0x1,0xf ; Debug Table 0x0.0x8 = 0x1e,0xfff7
001f e001 | | Load 0x0,0x1
0020 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0021 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0023 e214 | | Load 0x1,0x14
0024 0326 | & | Complete_Type Record,By_Defining
0025 00bf | | Action Accept_Activation
0026 4801 |H | Short_Literal 0x1 ; Debug Table 0x1 = .DEBUG 0x0026,0x0396,0xc000,0x0000,0x0037,0x09b4,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x26,0xffff
0027 0358 | X | Declare_Type Array,Incomplete
0028 029b 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Unelaborated ; Debug Table 0x1.0x1 = 0x28,0xfffe
002a 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x2 = 0x2a,0xfffd
002b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x3 = 0x2b,0xfffc
002c 0266 | f | Execute Discrete,Bounds
002d 00da | | Load_Top At_Offset_2
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f 4801 |H | Short_Literal 0x1
0030 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
0031 0007 | | Action Break_Optional ; Debug Table 0x1.0x4 = 0x31,0xfffb
0032 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x5 = 0x32,0xfffa
0033 6138 |a8 | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00001f38}
0034 00da | | Load_Top At_Offset_2
0035 e21a | | Load 0x1,0x1a
0036 0341 | A | Complete_Type Array,By_Constraining
0037 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x6 = 0x37,0xfffe
0038 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0039 e20f | | Load 0x1,0xf
003a e001 | | Load 0x0,0x1
003b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003c 00e4 | | Load_Encached Positive_Cache
003d e21a | | Load 0x1,0x1a
003e 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0040 4805 |H | Short_Literal 0x5
0041 032d | - | Declare_Type Record,Defined
0042 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x7 = 0x42,0xfffd
0043 012c | , | Execute Any,Size
0044 6123 |a# | Indirect_Literal Discrete,0x168,{0x00000000, 0x00002000}
0045 027a | z | Execute Discrete,Less_Equal
0046 7002 |p | Jump_Nonzero 0x49
0047 4887 |H | Short_Literal 0x87
0048 0257 | W | Execute Discrete,Raise
0049 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x8 = 0x49,0xfffc
004a 1951 | Q | Execute Package,Field_Reference,Field_Number 0x51
004b 00c6 | | Action Check_Subprogram_Elaborated
004c 00d8 | | Load_Top At_Offset_0
004d 6116 |a | Indirect_Literal Discrete,0x164,{0x00000000, 0x003709b4}
004e 4875 |Hu | Short_Literal 0x75
004f 4800 |H | Short_Literal 0x0
0050 0007 | | Action Break_Optional
0051 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x51,0xfffb
0052 00c7 | | Action Elaborate_Subprogram
0053 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xa = 0x53,0xfffa
0054 00c7 | | Action Elaborate_Subprogram
0055 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xb = 0x55,0xfff9
0056 00c7 | | Action Elaborate_Subprogram
0057 029d 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call ; Debug Table 0x1.0xc = 0x57,0xffff
0059 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xd = 0x59,0xfffe
005a 190e | | Execute Package,Field_Reference,Field_Number 0xe
005b 00c6 | | Action Check_Subprogram_Elaborated
005c e21c | | Load 0x1,0x1c
005d 4800 |H | Short_Literal 0x0
005e 00e3 | | Load_Encached Natural_Cache
005f e21d | | Load 0x1,0x1d
0060 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0061 6102 |a | Indirect_Literal Discrete,0x164,{0x00000000, 0x003709b4}
0062 4908 |I | Short_Literal 0x108
0063 4800 |H | Short_Literal 0x0
0064 0007 | | Action Break_Optional
0065 029d 010b | | Declare_Subprogram INIT_0108,For_Outer_Call ; Debug Table 0x1.0xe = 0x65,0xfffd
0067 029d 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call ; Debug Table 0x1.0xf = 0x67,0xfffc
0069 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x10 = 0x69,0xfffb
006a 00c7 | | Action Elaborate_Subprogram
006b e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x11 = 0x6b,0xfff7
006c 00b6 | | Action Make_Scope
006d e004 | | Load 0x0,0x4
006e e21f | | Load 0x1,0x1f
006f 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0070 e002 | | Load 0x0,0x2
0071 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0072 e21a | | Load 0x1,0x1a
0073 4808 |H | Short_Literal 0x8
0074 e215 | | Load 0x1,0x15
0075 020e | | Execute Module,Augment_Imports
0076 e215 | | Load 0x1,0x15
0077 020d | | Execute Module,Elaborate
0078 BODY_0008:
0078 00bc | | Action Signal_Activated
0079 00bb | | Action Signal_Completion
007a 0000 0000 | | .BLANK 0000[0x6]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2 = .DEBUG 0x0083,0x03bc,0x3801,0x0002,0x0037,0x0984,0x0000,0x00ba
; Debug Table 0x2.0x0 = 0x83,0x1
0084 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0085 85fe | | Call 0x2,-0x2
0086 e210 | | Load 0x1,0x10 ; Debug Table 0x2.0x1 = 0x86,0x2
0087 0f01 | | Execute_Immediate Equal,0x1
0088 6805 |h | Jump_Zero 0x8e
0089 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x2 = 0x89,0x3
008a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
008b e005 | | Load 0x0,0x5
008c 180e | | Execute Package,Field_Execute,Field_Number 0xe
008d 85fe | | Call 0x2,-0x2
008e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x0093,0x03c4,0x1005,0x0000,0x0037,0x0984,0x0000,0x00ce
0094 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0095 7802 |x | Jump 0x98 ; case 0x1
0096 7805 |x | Jump 0x9c ; case 0x2
0097 7809 |x | Jump 0xa1 ; case 0x3
0098 00da | | Load_Top At_Offset_2
0099 0091 02b0 | | Action Push_String_Extended_Indexed,0x2b0 ; "LEAF_TYPE"
009b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009c 00db | | Load_Top At_Offset_3
009d 00db | | Load_Top At_Offset_3
009e 00e0 | | Load_Encached Standard_Cache
009f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a1 00da | | Load_Top At_Offset_2
00a2 00e0 | | Load_Encached Standard_Cache
00a3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ad | | .CONST 0x00ad ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call ; Debug Table 0x4 = .DEBUG 0x00ab,0x03c6,0x1002,0x0000,0x0037,0x0984,0x0000,0x00d3
00ad BODY_00a8:
00ad 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x0 = 0xad,0x1
00ae 4600 |F | Jump_Case 0x1
00af 7800 |x | Jump 0xb0 ; case 0x0
00b0 8402 | | Call 0x2,0x2 ; Debug Table 0x4.0x1 = 0xb0,0x2
00b1 4831 |H1 | Short_Literal 0x31
00b2 0257 | W | Execute Discrete,Raise
00b3 0000 0000 | | .BLANK 0000[0x5]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bd | | .CONST 0x00bd ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call ; Debug Table 0x5 = .DEBUG 0x00bb,0x03cc,0x1001,0x0000,0x0037,0x0984,0x0000,0x00de
00bd BODY_00b8:
00bd 00db | | Load_Top At_Offset_3 ; Debug Table 0x5.0x0 = 0xbd,0x1
00be 4600 |F | Jump_Case 0x1
00bf 7800 |x | Jump 0xc0 ; case 0x0
00c0 8402 | | Call 0x2,0x2 ; Debug Table 0x5.0x1 = 0xc0,0x2
00c1 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x00cb,0x03d2,0x1005,0x0000,0x0037,0x0984,0x0000,0x00ed
00cc 7808 |x | Jump 0xd5 ; case 0x0
00cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ce 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00cf 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00d0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00d1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00d2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00d3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00d5 00da | | Load_Top At_Offset_2
00d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00d7 0125 | % | Execute Any,Set_Constraint
00d8 00da | | Load_Top At_Offset_2
00d9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00db | | Load_Top At_Offset_3 ; Debug Table 0x7 = .DEBUG 0x00e3,0x03d4,0x1001,0x0000,0x0037,0x09b4,0x0000,0x0011
; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 00db | | Load_Top At_Offset_3
00e5 822c | , | Call 0x1,0x2c
00e6 822d | - | Call 0x1,0x2d
00e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4608 |F | Jump_Case 0x9 ; Debug Table 0x8 = .DEBUG 0x00eb,0x03d8,0x1005,0x0000,0x0037,0x09b4,0x0000,0x0046
00ec 7808 |x | Jump 0xf5 ; case 0x0
00ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00ee 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00ef 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
00f0 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
00f1 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
00f2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
00f3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
00f5 00da | | Load_Top At_Offset_2
00f6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00f7 0125 | % | Execute Any,Set_Constraint
00f8 00da | | Load_Top At_Offset_2
00f9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00fa 1c00 | | Execute_Immediate Run_Utility,0x0
00fb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0103,0x03da,0x1002,0x0000,0x0037,0x09b4,0x0000,0x00f4
; Debug Table 0x9.0x0 = 0x103,0x1
0104 e5fe | | Load 0x2,-0x2
0105 0277 | w | Execute Discrete,Xor
0106 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0123 | # | .CONST 0x0123 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0007 | | .CONST 0x0007 ; Number of locals
010b INIT_0108:
010b 4800 |H | Short_Literal 0x0 ; Debug Table 0xa = .DEBUG 0x010b,0x03de,0x1002,0x0000,0x0037,0x09b4,0x0000,0x0122
; Debug Table 0xa.0x0 = 0x10b,0xffff
010c 00db | | Load_Top At_Offset_3
010d 012c | , | Execute Any,Size
010e 0aff | | Execute_Immediate Plus,-0x1
010f 0248 | H | Execute Discrete,Check_In_Integer
0110 e21d | | Load 0x1,0x1d
0111 035b | [ | Declare_Type Array,Constrained
0112 e002 | | Load 0x0,0x2 ; Debug Table 0xa.0x1 = 0x112,0xfffe
0113 1950 | P | Execute Package,Field_Reference,Field_Number 0x50
0114 00c6 | | Action Check_Subprogram_Elaborated
0115 00d8 | | Load_Top At_Offset_0
0116 604d |`M | Indirect_Literal Discrete,0x164,{0x00000000, 0x003709b4}
0117 493a |I: | Short_Literal 0x13a
0118 4806 |H | Short_Literal 0x6
0119 0007 | | Action Break_Optional
011a e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x2 = 0x11a,0xfffd
011b 012d | - | Execute Any,Address
011c e403 | | Load 0x2,0x3
011d 4804 |H | Short_Literal 0x4
011e 4802 |H | Short_Literal 0x2
011f 0099 | | Action Reference_Dynamic
0120 e002 | | Load 0x0,0x2
0121 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0122 0007 | | Action Break_Optional ; Debug Table 0xa.0x3 = 0x122,0xfffc
0123 BODY_0108:
0123 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x4 = 0x123,0x1
0124 e21d | | Load 0x1,0x1d
0125 01c6 | | Execute Vector,Convert_To_Formal
0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0127 0000 | | .XXX[0x1]
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 00db | | Load_Top At_Offset_3 ; Debug Table 0xb = .DEBUG 0x012b,0x03ea,0x1001,0x0000,0x0037,0x09b4,0x0000,0x015d
; Debug Table 0xb.0x0 = 0x12b,0x1
012c 00db | | Load_Top At_Offset_3
012d e224 | $ | Load 0x1,0x24
012e e225 | % | Load 0x1,0x25
012f e226 | & | Load 0x1,0x26
0130 e227 | ' | Load 0x1,0x27
0131 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0132 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0133 e003 | | Load 0x0,0x3
0134 180e | | Execute Package,Field_Execute,Field_Number 0xe
0135 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0143 | C | .CONST 0x0143 ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0005 | | .CONST 0x0005 ; Number of locals
013b INIT_0138:
013b e006 | | Load 0x0,0x6 ; Debug Table 0xc = .DEBUG 0x013b,0x03ee,0x1004,0x0000,0x0037,0x09b4,0x0000,0x00c1
; Debug Table 0xc.0x0 = 0x13b,0xffff
013c 190f | | Execute Package,Field_Reference,Field_Number 0xf
013d 00c6 | | Action Check_Subprogram_Elaborated
013e e21e | | Load 0x1,0x1e
013f 6024 |`$ | Indirect_Literal Discrete,0x164,{0x00000000, 0x003709b4}
0140 48b2 |H | Short_Literal 0xb2
0141 4805 |H | Short_Literal 0x5
0142 0007 | | Action Break_Optional
0143 BODY_0138:
0143 00db | | Load_Top At_Offset_3 ; Debug Table 0xc.0x1 = 0x143,0x1
0144 4803 |H | Short_Literal 0x3
0145 4803 |H | Short_Literal 0x3
0146 0099 | | Action Reference_Dynamic
0147 e006 | | Load 0x0,0x6
0148 180f | | Execute Package,Field_Execute,Field_Number 0xf
0149 00cb | | Action Pop_Block_With_Result
014a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014b 0000 0000 | | .BLANK 0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015a | Z | .CONST 0x015a ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0005 | | .CONST 0x0005 ; Number of locals
0153 INIT_0150:
0153 a007 | | Store_Unchecked 0x0,0x7 ; Debug Table 0xd = .DEBUG 0x0153,0x03f4,0x1004,0x0000,0x0037,0x09b4,0x0000,0x00ea
; Debug Table 0xd.0x0 = 0x153,0xffff
0154 00c6 | | Action Check_Subprogram_Elaborated
0155 e21e | | Load 0x1,0x1e
0156 600d |` | Indirect_Literal Discrete,0x164,{0x00000000, 0x003709b4}
0157 48db |H | Short_Literal 0xdb
0158 4805 |H | Short_Literal 0x5
0159 0007 | | Action Break_Optional
015a BODY_0150:
015a e5fe | | Load 0x2,-0x2 ; Debug Table 0xd.0x1 = 0x15a,0x1
015b e602 | | Load 0x3,0x2
015c 4803 |H | Short_Literal 0x3
015d 4803 |H | Short_Literal 0x3
015e 0099 | | Action Reference_Dynamic
015f 8007 | | Call 0x0,0x7
0160 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0161 0000 0000 | | .XXX[0x3]
0163 0000 | |
0164 0000 0000 | | .LITERAL {0x00000000, 0x003709b4}
0168 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
016c 0000 0000 | | .LITERAL {0x00000000, 0x00001f38}
0170 000f b813 | | .LITERAL {0x000fb813, 0x000017b0}
0174 0000 0000 | | .BLANK 0000[0x4]
0178 018a 0004 | | .XXX[0x3]
017a 001b | |
017b 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0xe = .DEBUG 0x017b,0x03fa,0x4000,0x0000,0x0037,0x0984,0x0000,0x002c
; Debug Table 0xe.0x0 = 0x17b,0xffff
017d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0xe.0x1 = 0x17d,0xfffe
017f 00bf | | Action Accept_Activation
0180 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call ; Debug Table 0xf = .DEBUG 0x0180,0x0400,0x4000,0x0000,0x0037,0x09c4,0x0000,0x0008
; Debug Table 0xf.0x0 = 0x180,0xffff
0182 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0xf.0x1 = 0x182,0xfffe
0183 00c7 | | Action Elaborate_Subprogram
0184 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call ; Debug Table 0xf.0x2 = 0x184,0xfffd
0186 029d 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call ; Debug Table 0xf.0x3 = 0x186,0xfffc
0188 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0xf.0x4 = 0x188,0xfffb
0189 00c7 | | Action Elaborate_Subprogram
018a 00bc | | Action Signal_Activated
018b 00bb | | Action Signal_Completion
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195 | | .CONST 0x0195 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 029f 022b | +| Declare_Subprogram INIT_0228,For_Call ; Debug Table 0x10 = .DEBUG 0x0193,0x040c,0x1001,0x0000,0x0037,0x0984,0x0000,0x0089
0195 BODY_0190:
0195 00cf | | Action Mark_Auxiliary
0196 0007 | | Action Break_Optional ; Debug Table 0x10.0x0 = 0x196,0x1
0197 8402 | | Call 0x2,0x2 ; Debug Table 0x10.0x1 = 0x197,0x2
0198 00c9 | | Action Pop_Auxiliary_Loop
0199 7ffd | | Jump 0x197
019a 0000 0000 | | .BLANK 0000[0x6]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a6 | | .CONST 0x01a6 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x11 = .DEBUG 0x01a3,0x0412,0x1002,0x0000,0x0037,0x0984,0x0000,0x00a1
; Debug Table 0x11.0x0 = 0x1a3,0xffff
01a4 029f 024b | K| Declare_Subprogram INIT_0248,For_Call
01a6 BODY_01a0:
01a6 00cf | | Action Mark_Auxiliary
01a7 0007 | | Action Break_Optional ; Debug Table 0x11.0x1 = 0x1a7,0x1
01a8 8403 | | Call 0x2,0x3 ; Debug Table 0x11.0x2 = 0x1a8,0x2
01a9 00c9 | | Action Pop_Auxiliary_Loop
01aa 7ffd | | Jump 0x1a8
01ab 00ce | | Action Pop_Auxiliary
01ac 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x11.0x3 = 0x1ac,0x3
01ad 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01ae 0000 0000 | | .XXX[0x2]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01bc | | .CONST 0x01bc ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0004 | | .CONST 0x0004 ; Number of locals
01b3 INIT_01b0:
01b3 e001 | | Load 0x0,0x1 ; Debug Table 0x12 = .DEBUG 0x01b3,0x041c,0x1001,0x0000,0x0037,0x09c4,0x0000,0x000d
; Debug Table 0x12.0x0 = 0x1b3,0xffff
01b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01b5 0322 | " | Declare_Variable Record
01b6 e20f | | Load 0x1,0xf ; Debug Table 0x12.0x1 = 0x1b6,0xfffe
01b7 02c7 | | Declare_Variable Any
01b8 00d8 | | Load_Top At_Offset_0
01b9 1c00 | | Execute_Immediate Run_Utility,0x0
01ba 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
01bc BODY_01b0:
01bc e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x2 = 0x1bc,0x1
01bd 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01be e002 | | Load 0x0,0x2
01bf 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01c0 8212 | | Call 0x1,0x12
01c1 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x12.0x3 = 0x1c1,0x2
01c2 0120 | | Execute Any,Is_Value
01c3 6802 |h | Jump_Zero 0x1c6
01c4 e20f | | Load 0x1,0xf
01c5 7803 |x | Jump 0x1c9
01c6 00d9 | | Load_Top At_Offset_1
01c7 e20f | | Load 0x1,0xf
01c8 0119 | | Execute Any,Check_In_Formal_Type
01c9 00db | | Load_Top At_Offset_3
01ca e5ff | | Load 0x2,-0x1
01cb 8216 | | Call 0x1,0x16
01cc 00d1 | | Pop_Control Pop_Count_1
01cd c403 | | Store 0x2,0x3
01ce 8404 | | Call 0x2,0x4 ; Debug Table 0x12.0x4 = 0x1ce,0x3
01cf 8213 | | Call 0x1,0x13 ; Debug Table 0x12.0x5 = 0x1cf,0x4
01d0 e002 | | Load 0x0,0x2 ; Debug Table 0x12.0x6 = 0x1d0,0x5
01d1 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01d2 0322 | " | Declare_Variable Record
01d3 e5fe | | Load 0x2,-0x2
01d4 e002 | | Load 0x0,0x2
01d5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d6 0119 | | Execute Any,Check_In_Formal_Type
01d7 00d9 | | Load_Top At_Offset_1
01d8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01d9 00db | | Load_Top At_Offset_3
01da 00d9 | | Load_Top At_Offset_1
01db 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01dc e5fc | | Load 0x2,-0x4
01dd 017d | } | Execute Record,Structure_Write
01de 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01f9 | | .CONST 0x01f9 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0004 | | .CONST 0x0004 ; Number of locals
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2 ; Debug Table 0x13 = .DEBUG 0x01e3,0x042c,0x1002,0x0000,0x0037,0x09c4,0x0000,0x00c0
; Debug Table 0x13.0x0 = 0x1e3,0xffff
01e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01e6 e002 | | Load 0x0,0x2
01e7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01e8 027f | | Execute Discrete,Equal
01e9 00e1 | | Load_Encached Boolean_Cache
01ea 03f1 | | Declare_Variable Discrete,With_Value
01eb 00db | | Load_Top At_Offset_3 ; Debug Table 0x13.0x1 = 0x1eb,0xfffe
01ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ed e5fe | | Load 0x2,-0x2
01ee 012f | / | Execute Any,Equal
01ef 00e1 | | Load_Encached Boolean_Cache
01f0 03f1 | | Declare_Variable Discrete,With_Value
01f1 e5ff | | Load 0x2,-0x1 ; Debug Table 0x13.0x2 = 0x1f1,0xfffd
01f2 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01f3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f4 e5fd | | Load 0x2,-0x3
01f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f6 027f | | Execute Discrete,Equal
01f7 00e1 | | Load_Encached Boolean_Cache
01f8 03f1 | | Declare_Variable Discrete,With_Value
01f9 BODY_01e0:
01f9 00da | | Load_Top At_Offset_2 ; Debug Table 0x13.0x3 = 0x1f9,0x1
01fa 00da | | Load_Top At_Offset_2
01fb 00da | | Load_Top At_Offset_2
01fc 0279 | y | Execute Discrete,And
01fd 0279 | y | Execute Discrete,And
01fe 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 020a | | .CONST 0x020a ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0004 | | .CONST 0x0004 ; Number of locals
0203 INIT_0200:
0203 e20f | | Load 0x1,0xf ; Debug Table 0x14 = .DEBUG 0x0203,0x0436,0x1002,0x0000,0x0037,0x09c4,0x0000,0x010c
; Debug Table 0x14.0x0 = 0x203,0xffff
0204 02c7 | | Declare_Variable Any
0205 00d8 | | Load_Top At_Offset_0
0206 1c00 | | Execute_Immediate Run_Utility,0x0
0207 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x14.0x1 = 0x207,0xfffe
0208 029f 028b | | Declare_Subprogram INIT_0288,For_Call
020a BODY_0200:
020a e002 | | Load 0x0,0x2 ; Debug Table 0x14.0x2 = 0x20a,0x1
020b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
020c e002 | | Load 0x0,0x2
020d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
020e 8211 | | Call 0x1,0x11
020f 00da | | Load_Top At_Offset_2 ; Debug Table 0x14.0x3 = 0x20f,0x2
0210 0120 | | Execute Any,Is_Value
0211 6802 |h | Jump_Zero 0x214
0212 e20f | | Load 0x1,0xf
0213 7803 |x | Jump 0x217
0214 00da | | Load_Top At_Offset_2
0215 e20f | | Load 0x1,0xf
0216 0119 | | Execute Any,Check_In_Formal_Type
0217 e001 | | Load 0x0,0x1
0218 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0219 0322 | " | Declare_Variable Record
021a e5fe | | Load 0x2,-0x2
021b 00d9 | | Load_Top At_Offset_1
021c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
021d e5ff | | Load 0x2,-0x1
021e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
021f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0220 00d9 | | Load_Top At_Offset_1
0221 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0222 8214 | | Call 0x1,0x14
0223 c402 | | Store 0x2,0x2
0224 8404 | | Call 0x2,0x4 ; Debug Table 0x14.0x4 = 0x224,0x3
0225 8213 | | Call 0x1,0x13 ; Debug Table 0x14.0x5 = 0x225,0x4
0226 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x14.0x6 = 0x226,0x5
0227 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0236 | 6 | .CONST 0x0236 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e5fc | | Load 0x2,-0x4 ; Debug Table 0x15 = .DEBUG 0x022b,0x0446,0x1004,0x0000,0x0037,0x09c4,0x0000,0x00b9
; Debug Table 0x15.0x0 = 0x22b,0x1
022c e5fd | | Load 0x2,-0x3
022d e5fe | | Load 0x2,-0x2
022e e002 | | Load 0x0,0x2
022f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0230 0119 | | Execute Any,Check_In_Formal_Type
0231 e5ff | | Load 0x2,-0x1
0232 8219 | | Call 0x1,0x19
0233 00d1 | | Pop_Control Pop_Count_1
0234 00cc | | Action Pop_Block ; Debug Table 0x15.0x1 = 0x234,0x2
0235 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0236 TRAP_0228:
0236 6075 |`u | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x37099401}
0237 010f | | Execute Exception,Equal
0238 6809 |h | Jump_Zero 0x242
0239 e002 | | Load 0x0,0x2 ; Debug Table 0x15.0x2 = 0x239,0x3
023a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
023b 6804 |h | Jump_Zero 0x240
023c 8215 | | Call 0x1,0x15 ; Debug Table 0x15.0x3 = 0x23c,0x4
023d e003 | | Load 0x0,0x3
023e 180d | | Execute Package,Field_Execute,Field_Number 0xd
023f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0240 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x15.0x4 = 0x240,0x5
0241 0101 | | Execute Exception,Reraise
0242 0100 | | Execute Exception,Raise
0243 0000 0000 | | .BLANK 0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0252 | R | .CONST 0x0252 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e5fd | | Load 0x2,-0x3 ; Debug Table 0x16 = .DEBUG 0x024b,0x0452,0x1004,0x0000,0x0037,0x09c4,0x0000,0x01bc
; Debug Table 0x16.0x0 = 0x24b,0x1
024c e5fe | | Load 0x2,-0x2
024d e5ff | | Load 0x2,-0x1
024e 821b | | Call 0x1,0x1b
024f a402 | | Store_Unchecked 0x2,0x2
0250 00cc | | Action Pop_Block ; Debug Table 0x16.0x1 = 0x250,0x2
0251 7f59 | Y | Jump 0x1ab
0252 TRAP_0248:
0252 6059 |`Y | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x37099401}
0253 010f | | Execute Exception,Equal
0254 6809 |h | Jump_Zero 0x25e
0255 e002 | | Load 0x0,0x2 ; Debug Table 0x16.0x2 = 0x255,0x3
0256 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0257 6804 |h | Jump_Zero 0x25c
0258 8215 | | Call 0x1,0x15 ; Debug Table 0x16.0x3 = 0x258,0x4
0259 e003 | | Load 0x0,0x3
025a 180d | | Execute Package,Field_Execute,Field_Number 0xd
025b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
025c 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x16.0x4 = 0x25c,0x5
025d 0101 | | Execute Exception,Reraise
025e 0100 | | Execute Exception,Raise
025f 0000 | | .XXX[0x1]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 026e | n | .CONST 0x026e ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 e403 | | Load 0x2,0x3 ; Debug Table 0x17 = .DEBUG 0x0263,0x045e,0x1004,0x0000,0x0037,0x09c4,0x0000,0x0070
; Debug Table 0x17.0x0 = 0x263,0xffff
0264 e20f | | Load 0x1,0xf
0265 0119 | | Execute Any,Check_In_Formal_Type
0266 8210 | | Call 0x1,0x10
0267 e004 | | Load 0x0,0x4
0268 a005 | | Store_Unchecked 0x0,0x5
0269 e006 | | Load 0x0,0x6
026a 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
026b 00d8 | | Load_Top At_Offset_0
026c 1c00 | | Execute_Immediate Run_Utility,0x0
026d 0007 | | Action Break_Optional ; Debug Table 0x17.0x1 = 0x26d,0xfffe
026e BODY_0260:
026e e002 | | Load 0x0,0x2 ; Debug Table 0x17.0x2 = 0x26e,0x1
026f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0270 00d9 | | Load_Top At_Offset_1
0271 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0272 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0273 e5fe | | Load 0x2,-0x2 ; Debug Table 0x17.0x3 = 0x273,0x2
0274 00d9 | | Load_Top At_Offset_1
0275 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0276 e402 | | Load 0x2,0x2 ; Debug Table 0x17.0x4 = 0x276,0x3
0277 00d9 | | Load_Top At_Offset_1
0278 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0279 e5fd | | Load 0x2,-0x3 ; Debug Table 0x17.0x5 = 0x279,0x4
027a 01db | | Execute Vector,Length
027b 00d9 | | Load_Top At_Offset_1
027c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
027d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x17.0x6 = 0x27d,0x5
027e 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
027f e5fd | | Load 0x2,-0x3
0280 8007 | | Call 0x0,0x7
0281 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0282 0000 0000 | | .BLANK 0000[0x6]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0296 | | .CONST 0x0296 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b e402 | | Load 0x2,0x2 ; Debug Table 0x18 = .DEBUG 0x028b,0x046e,0x1004,0x0000,0x0037,0x09c4,0x0000,0x0179
; Debug Table 0x18.0x0 = 0x28b,0xffff
028c e20f | | Load 0x1,0xf
028d 0119 | | Execute Any,Check_In_Formal_Type
028e 8210 | | Call 0x1,0x10
028f e004 | | Load 0x0,0x4
0290 a005 | | Store_Unchecked 0x0,0x5
0291 e006 | | Load 0x0,0x6
0292 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0293 0007 | | Action Break_Optional ; Debug Table 0x18.0x1 = 0x293,0xfffe
0294 e008 | | Load 0x0,0x8 ; Debug Table 0x18.0x2 = 0x294,0xfffd
0295 0337 | 7 | Declare_Variable Array
0296 BODY_0288:
0296 e5ff | | Load 0x2,-0x1 ; Debug Table 0x18.0x3 = 0x296,0x1
0297 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0298 e5ff | | Load 0x2,-0x1
0299 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
029a e002 | | Load 0x0,0x2
029b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029c 0119 | | Execute Any,Check_In_Formal_Type
029d 00db | | Load_Top At_Offset_3
029e 821a | | Call 0x1,0x1a
029f 7002 |p | Jump_Nonzero 0x2a2
02a0 4887 |H | Short_Literal 0x87
02a1 0257 | W | Execute Discrete,Raise
02a2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x18.0x4 = 0x2a2,0x2
02a3 e5fd | | Load 0x2,-0x3
02a4 8007 | | Call 0x0,0x7
02a5 00d1 | | Pop_Control Pop_Count_1
02a6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x18.0x5 = 0x2a6,0x3
02a7 00da | | Load_Top At_Offset_2
02a8 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
02a9 01df | | Execute Vector,Equal
02aa a403 | | Store_Unchecked 0x2,0x3
02ab 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ac 0000 0000 | | .LITERAL {0x00000000, 0x37099401}
02b0 ; --------------------------------------------------------------------------------------
02b0 ; STRING TABLE
02b0 ; --------------------------------------------------------------------------------------
02b0 0004 | | .STRTAB 0x0004->0x02b2 ; "LEAF_TYPE"
02b1 000b | | .STREND 0x000b->0x02b6
02b2 4c45 4146 |LEAF| .STRTAB_STRINGS
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; Debug Table
02b8 ; --------------------------------------------------------------------------------------
02b8 0003 0019 | | .CONST 0x0003,0x0019
02ba 000b 0382 | | .DEBUG 0x000b,0x0382,0xc000,0x0000,0x0037,0x0984,0x0000,0x0009
02c2 0026 0396 | & | .DEBUG 0x0026,0x0396,0xc000,0x0000,0x0037,0x09b4,0x0000,0x000b
02ca 0083 03bc | | .DEBUG 0x0083,0x03bc,0x3801,0x0002,0x0037,0x0984,0x0000,0x00ba
02d2 0093 03c4 | | .DEBUG 0x0093,0x03c4,0x1005,0x0000,0x0037,0x0984,0x0000,0x00ce
02da 00ab 03c6 | | .DEBUG 0x00ab,0x03c6,0x1002,0x0000,0x0037,0x0984,0x0000,0x00d3
02e2 00bb 03cc | | .DEBUG 0x00bb,0x03cc,0x1001,0x0000,0x0037,0x0984,0x0000,0x00de
02ea 00cb 03d2 | | .DEBUG 0x00cb,0x03d2,0x1005,0x0000,0x0037,0x0984,0x0000,0x00ed
02f2 00e3 03d4 | | .DEBUG 0x00e3,0x03d4,0x1001,0x0000,0x0037,0x09b4,0x0000,0x0011
02fa 00eb 03d8 | | .DEBUG 0x00eb,0x03d8,0x1005,0x0000,0x0037,0x09b4,0x0000,0x0046
0302 0103 03da | | .DEBUG 0x0103,0x03da,0x1002,0x0000,0x0037,0x09b4,0x0000,0x00f4
030a 010b 03de | | .DEBUG 0x010b,0x03de,0x1002,0x0000,0x0037,0x09b4,0x0000,0x0122
0312 012b 03ea | + | .DEBUG 0x012b,0x03ea,0x1001,0x0000,0x0037,0x09b4,0x0000,0x015d
031a 013b 03ee | ; | .DEBUG 0x013b,0x03ee,0x1004,0x0000,0x0037,0x09b4,0x0000,0x00c1
0322 0153 03f4 | S | .DEBUG 0x0153,0x03f4,0x1004,0x0000,0x0037,0x09b4,0x0000,0x00ea
032a 017b 03fa | { | .DEBUG 0x017b,0x03fa,0x4000,0x0000,0x0037,0x0984,0x0000,0x002c
0332 0180 0400 | | .DEBUG 0x0180,0x0400,0x4000,0x0000,0x0037,0x09c4,0x0000,0x0008
033a 0193 040c | | .DEBUG 0x0193,0x040c,0x1001,0x0000,0x0037,0x0984,0x0000,0x0089
0342 01a3 0412 | | .DEBUG 0x01a3,0x0412,0x1002,0x0000,0x0037,0x0984,0x0000,0x00a1
034a 01b3 041c | | .DEBUG 0x01b3,0x041c,0x1001,0x0000,0x0037,0x09c4,0x0000,0x000d
0352 01e3 042c | ,| .DEBUG 0x01e3,0x042c,0x1002,0x0000,0x0037,0x09c4,0x0000,0x00c0
035a 0203 0436 | 6| .DEBUG 0x0203,0x0436,0x1002,0x0000,0x0037,0x09c4,0x0000,0x010c
0362 022b 0446 | + F| .DEBUG 0x022b,0x0446,0x1004,0x0000,0x0037,0x09c4,0x0000,0x00b9
036a 024b 0452 | K R| .DEBUG 0x024b,0x0452,0x1004,0x0000,0x0037,0x09c4,0x0000,0x01bc
0372 0263 045e | c ^| .DEBUG 0x0263,0x045e,0x1004,0x0000,0x0037,0x09c4,0x0000,0x0070
037a 028b 046e | n| .DEBUG 0x028b,0x046e,0x1004,0x0000,0x0037,0x09c4,0x0000,0x0179
0382 ; --------------------------------------------------------------------------------------
0382 ; Debug3 Subtable 0x0
0382 ; --------------------------------------------------------------------------------------
0382 0009 0000 | | .DBG3TAB 0x0009,0x0000
0384 000b ffff | | .CONST 0x000b,0xffff
0386 000c fffe | | .CONST 0x000c,0xfffe
0388 000d fffd | | .CONST 0x000d,0xfffd
038a 000f fffc | | .CONST 0x000f,0xfffc
038c 0013 fffb | | .CONST 0x0013,0xfffb
038e 0015 fffa | | .CONST 0x0015,0xfffa
0390 001a fff9 | | .CONST 0x001a,0xfff9
0392 001c fff8 | | .CONST 0x001c,0xfff8
0394 001e fff7 | | .CONST 0x001e,0xfff7
0396 ; --------------------------------------------------------------------------------------
0396 ; Debug3 Subtable 0x1
0396 ; --------------------------------------------------------------------------------------
0396 0012 0000 | | .DBG3TAB 0x0012,0x0000
0398 0026 ffff | & | .CONST 0x0026,0xffff
039a 0028 fffe | ( | .CONST 0x0028,0xfffe
039c 002a fffd | * | .CONST 0x002a,0xfffd
039e 002b fffc | + | .CONST 0x002b,0xfffc
03a0 0031 fffb | 1 | .CONST 0x0031,0xfffb
03a2 0032 fffa | 2 | .CONST 0x0032,0xfffa
03a4 0037 fffe | 7 | .CONST 0x0037,0xfffe
03a6 0042 fffd | B | .CONST 0x0042,0xfffd
03a8 0049 fffc | I | .CONST 0x0049,0xfffc
03aa 0051 fffb | Q | .CONST 0x0051,0xfffb
03ac 0053 fffa | S | .CONST 0x0053,0xfffa
03ae 0055 fff9 | U | .CONST 0x0055,0xfff9
03b0 0057 ffff | W | .CONST 0x0057,0xffff
03b2 0059 fffe | Y | .CONST 0x0059,0xfffe
03b4 0065 fffd | e | .CONST 0x0065,0xfffd
03b6 0067 fffc | g | .CONST 0x0067,0xfffc
03b8 0069 fffb | i | .CONST 0x0069,0xfffb
03ba 006b fff7 | k | .CONST 0x006b,0xfff7
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0x2
03bc ; --------------------------------------------------------------------------------------
03bc 0000 0003 | | .DBG3TAB 0x0000,0x0003
03be 0083 0001 | | .CONST 0x0083,0x0001
03c0 0086 0002 | | .CONST 0x0086,0x0002
03c2 0089 0003 | | .CONST 0x0089,0x0003
03c4 ; --------------------------------------------------------------------------------------
03c4 ; Debug3 Subtable 0x3
03c4 ; --------------------------------------------------------------------------------------
03c4 0000 0000 | | .DBG3TAB 0x0000,0x0000
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug3 Subtable 0x4
03c6 ; --------------------------------------------------------------------------------------
03c6 0000 0002 | | .DBG3TAB 0x0000,0x0002
03c8 00ad 0001 | | .CONST 0x00ad,0x0001
03ca 00b0 0002 | | .CONST 0x00b0,0x0002
03cc ; --------------------------------------------------------------------------------------
03cc ; Debug3 Subtable 0x5
03cc ; --------------------------------------------------------------------------------------
03cc 0000 0002 | | .DBG3TAB 0x0000,0x0002
03ce 00bd 0001 | | .CONST 0x00bd,0x0001
03d0 00c0 0002 | | .CONST 0x00c0,0x0002
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug3 Subtable 0x6
03d2 ; --------------------------------------------------------------------------------------
03d2 0000 0000 | | .DBG3TAB 0x0000,0x0000
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0x7
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03d6 00e3 0001 | | .CONST 0x00e3,0x0001
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0x8
03d8 ; --------------------------------------------------------------------------------------
03d8 0000 0000 | | .DBG3TAB 0x0000,0x0000
03da ; --------------------------------------------------------------------------------------
03da ; Debug3 Subtable 0x9
03da ; --------------------------------------------------------------------------------------
03da 0000 0001 | | .DBG3TAB 0x0000,0x0001
03dc 0103 0001 | | .CONST 0x0103,0x0001
03de ; --------------------------------------------------------------------------------------
03de ; Debug3 Subtable 0xa
03de ; --------------------------------------------------------------------------------------
03de 0004 0001 | | .DBG3TAB 0x0004,0x0001
03e0 010b ffff | | .CONST 0x010b,0xffff
03e2 0112 fffe | | .CONST 0x0112,0xfffe
03e4 011a fffd | | .CONST 0x011a,0xfffd
03e6 0122 fffc | " | .CONST 0x0122,0xfffc
03e8 0123 0001 | # | .CONST 0x0123,0x0001
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug3 Subtable 0xb
03ea ; --------------------------------------------------------------------------------------
03ea 0000 0001 | | .DBG3TAB 0x0000,0x0001
03ec 012b 0001 | + | .CONST 0x012b,0x0001
03ee ; --------------------------------------------------------------------------------------
03ee ; Debug3 Subtable 0xc
03ee ; --------------------------------------------------------------------------------------
03ee 0001 0001 | | .DBG3TAB 0x0001,0x0001
03f0 013b ffff | ; | .CONST 0x013b,0xffff
03f2 0143 0001 | C | .CONST 0x0143,0x0001
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0xd
03f4 ; --------------------------------------------------------------------------------------
03f4 0001 0001 | | .DBG3TAB 0x0001,0x0001
03f6 0153 ffff | S | .CONST 0x0153,0xffff
03f8 015a 0001 | Z | .CONST 0x015a,0x0001
03fa ; --------------------------------------------------------------------------------------
03fa ; Debug3 Subtable 0xe
03fa ; --------------------------------------------------------------------------------------
03fa 0002 0000 | | .DBG3TAB 0x0002,0x0000
03fc 017b ffff | { | .CONST 0x017b,0xffff
03fe 017d fffe | } | .CONST 0x017d,0xfffe
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug3 Subtable 0xf
0400 ; --------------------------------------------------------------------------------------
0400 0005 0000 | | .DBG3TAB 0x0005,0x0000
0402 0180 ffff | | .CONST 0x0180,0xffff
0404 0182 fffe | | .CONST 0x0182,0xfffe
0406 0184 fffd | | .CONST 0x0184,0xfffd
0408 0186 fffc | | .CONST 0x0186,0xfffc
040a 0188 fffb | | .CONST 0x0188,0xfffb
040c ; --------------------------------------------------------------------------------------
040c ; Debug3 Subtable 0x10
040c ; --------------------------------------------------------------------------------------
040c 0000 0002 | | .DBG3TAB 0x0000,0x0002
040e 0196 0001 | | .CONST 0x0196,0x0001
0410 0197 0002 | | .CONST 0x0197,0x0002
0412 ; --------------------------------------------------------------------------------------
0412 ; Debug3 Subtable 0x11
0412 ; --------------------------------------------------------------------------------------
0412 0001 0003 | | .DBG3TAB 0x0001,0x0003
0414 01a3 ffff | | .CONST 0x01a3,0xffff
0416 01a7 0001 | | .CONST 0x01a7,0x0001
0418 01a8 0002 | | .CONST 0x01a8,0x0002
041a 01ac 0003 | | .CONST 0x01ac,0x0003
041c ; --------------------------------------------------------------------------------------
041c ; Debug3 Subtable 0x12
041c ; --------------------------------------------------------------------------------------
041c 0002 0005 | | .DBG3TAB 0x0002,0x0005
041e 01b3 ffff | | .CONST 0x01b3,0xffff
0420 01b6 fffe | | .CONST 0x01b6,0xfffe
0422 01bc 0001 | | .CONST 0x01bc,0x0001
0424 01c1 0002 | | .CONST 0x01c1,0x0002
0426 01ce 0003 | | .CONST 0x01ce,0x0003
0428 01cf 0004 | | .CONST 0x01cf,0x0004
042a 01d0 0005 | | .CONST 0x01d0,0x0005
042c ; --------------------------------------------------------------------------------------
042c ; Debug3 Subtable 0x13
042c ; --------------------------------------------------------------------------------------
042c 0003 0001 | | .DBG3TAB 0x0003,0x0001
042e 01e3 ffff | | .CONST 0x01e3,0xffff
0430 01eb fffe | | .CONST 0x01eb,0xfffe
0432 01f1 fffd | | .CONST 0x01f1,0xfffd
0434 01f9 0001 | | .CONST 0x01f9,0x0001
0436 ; --------------------------------------------------------------------------------------
0436 ; Debug3 Subtable 0x14
0436 ; --------------------------------------------------------------------------------------
0436 0002 0005 | | .DBG3TAB 0x0002,0x0005
0438 0203 ffff | | .CONST 0x0203,0xffff
043a 0207 fffe | | .CONST 0x0207,0xfffe
043c 020a 0001 | | .CONST 0x020a,0x0001
043e 020f 0002 | | .CONST 0x020f,0x0002
0440 0224 0003 | $ | .CONST 0x0224,0x0003
0442 0225 0004 | % | .CONST 0x0225,0x0004
0444 0226 0005 | & | .CONST 0x0226,0x0005
0446 ; --------------------------------------------------------------------------------------
0446 ; Debug3 Subtable 0x15
0446 ; --------------------------------------------------------------------------------------
0446 0000 0005 | | .DBG3TAB 0x0000,0x0005
0448 022b 0001 | + | .CONST 0x022b,0x0001
044a 0234 0002 | 4 | .CONST 0x0234,0x0002
044c 0239 0003 | 9 | .CONST 0x0239,0x0003
044e 023c 0004 | < | .CONST 0x023c,0x0004
0450 0240 0005 | @ | .CONST 0x0240,0x0005
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug3 Subtable 0x16
0452 ; --------------------------------------------------------------------------------------
0452 0000 0005 | | .DBG3TAB 0x0000,0x0005
0454 024b 0001 | K | .CONST 0x024b,0x0001
0456 0250 0002 | P | .CONST 0x0250,0x0002
0458 0255 0003 | U | .CONST 0x0255,0x0003
045a 0258 0004 | X | .CONST 0x0258,0x0004
045c 025c 0005 | \ | .CONST 0x025c,0x0005
045e ; --------------------------------------------------------------------------------------
045e ; Debug3 Subtable 0x17
045e ; --------------------------------------------------------------------------------------
045e 0002 0005 | | .DBG3TAB 0x0002,0x0005
0460 0263 ffff | c | .CONST 0x0263,0xffff
0462 026d fffe | m | .CONST 0x026d,0xfffe
0464 026e 0001 | n | .CONST 0x026e,0x0001
0466 0273 0002 | s | .CONST 0x0273,0x0002
0468 0276 0003 | v | .CONST 0x0276,0x0003
046a 0279 0004 | y | .CONST 0x0279,0x0004
046c 027d 0005 | } | .CONST 0x027d,0x0005
046e ; --------------------------------------------------------------------------------------
046e ; Debug3 Subtable 0x18
046e ; --------------------------------------------------------------------------------------
046e 0003 0003 | | .DBG3TAB 0x0003,0x0003
0470 028b ffff | | .CONST 0x028b,0xffff
0472 0293 fffe | | .CONST 0x0293,0xfffe
0474 0294 fffd | | .CONST 0x0294,0xfffd
0476 0296 0001 | | .CONST 0x0296,0x0001
0478 02a2 0002 | | .CONST 0x02a2,0x0002
047a 02a6 0003 | | .CONST 0x02a6,0x0003
047c 0000 0000 | | .BLANK 0000[0x184]