|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4096 (0x1000)
Types: SEG
Notes: 5805_R1K_CODE
Names: »1101842.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1101842.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1101842.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1101842.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1101842.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1101842.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0400 | | .CONST 0x0400 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0042 | B | .CONST 0x0042 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x050a,0x8000,0x0000,0x000d,0xf324,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 032b | + | Declare_Type Record,Incomplete,Visible
000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 4805 |H | Short_Literal 0x5 ; Debug Table 0x0.0x5 = 0x15,0xfffa
0016 6149 |aI | Indirect_Literal Discrete,0x160,{0x0010d012, 0x000016b0} ; 0x10d012 = HEAP_MANAGER
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0019 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x0.0x6 = 0x19,0xfff9
001a 00f0 | | Load_Encached Segment_Cache ; Debug Table 0x0.0x7 = 0x1a,0xfff8
001b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001c 4804 |H | Short_Literal 0x4
001d 00db | | Load_Top At_Offset_3
001e e001 | | Load 0x0,0x1
001f 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0020 e001 | | Load 0x0,0x1
0021 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0022 00e1 | | Load_Encached Boolean_Cache
0023 029f 00fb | | Declare_Subprogram INIT_00f8,For_Call
0025 4804 |H | Short_Literal 0x4
0026 4800 |H | Short_Literal 0x0
0027 4801 |H | Short_Literal 0x1
0028 4800 |H | Short_Literal 0x0
0029 4801 |H | Short_Literal 0x1
002a 031d | | Declare_Type Variant_Record,Defined
002b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x9 = 0x2b,0xfff6
002c 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
002e e20d | | Load 0x1,0xd
002f 0326 | & | Complete_Type Record,By_Defining
0030 00bf | | Action Accept_Activation
0031 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0031,0x0520,0x8000,0x0000,0x0010,0x0194,0x0000,0x0017
; Debug Table 0x1.0x0 = 0x31,0xffff
0033 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x33,0xfffe
0034 00c7 | | Action Elaborate_Subprogram
0035 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x35,0xfffd
0036 00c7 | | Action Elaborate_Subprogram
0037 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x37,0xfffc
0038 00c7 | | Action Elaborate_Subprogram
0039 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x39,0xfffb
003a 00c7 | | Action Elaborate_Subprogram
003b e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x5 = 0x3b,0xfffa
003c e003 | | Load 0x0,0x3
003d 4802 |H | Short_Literal 0x2
003e e212 | | Load 0x1,0x12
003f 020e | | Execute Module,Augment_Imports
0040 e212 | | Load 0x1,0x12
0041 020d | | Execute Module,Elaborate
0042 BODY_0008:
0042 00bc | | Action Signal_Activated
0043 00bb | | Action Signal_Completion
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004f | O | .CONST 0x004f ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0003 | | .CONST 0x0003 ; Number of locals
004b INIT_0048:
004b e004 | | Load 0x0,0x4 ; Debug Table 0x2 = .DEBUG 0x004b,0x052e,0x0001,0x0000,0x000d,0xf324,0x0000,0x000e
; Debug Table 0x2.0x0 = 0x4b,0xffff
004c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004d e213 | | Load 0x1,0x13 ; Debug Table 0x2.0x1 = 0x4d,0xfffe
004e 0007 | | Action Break_Optional
004f BODY_0048:
004f e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x2 = 0x4f,0x1
0050 e005 | | Load 0x0,0x5
0051 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0052 180e | | Execute Package,Field_Execute,Field_Number 0xe
0053 6804 |h | Jump_Zero 0x58
0054 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x3 = 0x54,0x2
0055 e005 | | Load 0x0,0x5
0056 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0057 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0058 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x4 = 0x58,0x3
0059 e001 | | Load 0x0,0x1
005a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
005b 017f | | Execute Record,Equal
005c 680f |h | Jump_Zero 0x6c
005d e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x5 = 0x5d,0x4
005e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005f 4800 |H | Short_Literal 0x0
0060 4800 |H | Short_Literal 0x0
0061 4801 |H | Short_Literal 0x1
0062 e5fd | | Load 0x2,-0x3
0063 0f00 | | Execute_Immediate Equal,0x0
0064 4800 |H | Short_Literal 0x0
0065 4800 |H | Short_Literal 0x0
0066 e5ff | | Load 0x2,-0x1
0067 e005 | | Load 0x0,0x5
0068 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0069 180d | | Execute Package,Field_Execute,Field_Number 0xd
006a 005a | Z | Store_Top Discrete,At_Offset_2
006b 780d |x | Jump 0x79
006c e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x6 = 0x6c,0x5
006d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006e 4800 |H | Short_Literal 0x0
006f e5fd | | Load 0x2,-0x3
0070 0f00 | | Execute_Immediate Equal,0x0
0071 4800 |H | Short_Literal 0x0
0072 4800 |H | Short_Literal 0x0
0073 e5ff | | Load 0x2,-0x1
0074 e5fe | | Load 0x2,-0x2
0075 e005 | | Load 0x0,0x5
0076 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0077 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0078 005a | Z | Store_Top Discrete,At_Offset_2
0079 e213 | | Load 0x1,0x13 ; Debug Table 0x2.0x7 = 0x79,0x6
007a e5ff | | Load 0x2,-0x1
007b 8216 | | Call 0x1,0x16
007c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
007d 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x8 = 0x7d,0x7
007e e215 | | Load 0x1,0x15
007f 1c08 | | Execute_Immediate Run_Utility,0x8
0080 00d9 | | Load_Top At_Offset_1
0081 00d9 | | Load_Top At_Offset_1
0082 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0083 e5ff | | Load 0x2,-0x1
0084 00d9 | | Load_Top At_Offset_1
0085 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
0086 e5fe | | Load 0x2,-0x2
0087 00d9 | | Load_Top At_Offset_1
0088 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
0089 e5fd | | Load 0x2,-0x3
008a 00d9 | | Load_Top At_Offset_1
008b 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
008c e5fc | | Load 0x2,-0x4
008d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0095 | | .CONST 0x0095 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0002 | | .CONST 0x0002 ; Number of locals
0093 INIT_0090:
0093 e004 | | Load 0x0,0x4 ; Debug Table 0x3 = .DEBUG 0x0093,0x0542,0x0001,0x0000,0x000d,0xf324,0x0000,0x002a
; Debug Table 0x3.0x0 = 0x93,0xffff
0094 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0095 BODY_0090:
0095 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x95,0x1
0096 681f |h | Jump_Zero 0xb6
0097 e5fe | | Load 0x2,-0x2 ; Debug Table 0x3.0x2 = 0x97,0x2
0098 e001 | | Load 0x0,0x1
0099 1b17 | | Execute Package,Field_Read,Field_Number 0x17
009a 017f | | Execute Record,Equal
009b 680e |h | Jump_Zero 0xaa
009c e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x3 = 0x9c,0x3
009d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009e 4801 |H | Short_Literal 0x1
009f e5fd | | Load 0x2,-0x3
00a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a1 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00a2 e5fd | | Load 0x2,-0x3
00a3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a4 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4
00a5 e005 | | Load 0x0,0x5
00a6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a8 0059 | Y | Store_Top Discrete,At_Offset_1
00a9 7818 |x | Jump 0xc2
00aa e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x4 = 0xaa,0x4
00ab 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ac 4801 |H | Short_Literal 0x1
00ad e5fd | | Load 0x2,-0x3
00ae 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00af 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00b0 e5fe | | Load 0x2,-0x2
00b1 e005 | | Load 0x0,0x5
00b2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00b3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b4 0059 | Y | Store_Top Discrete,At_Offset_1
00b5 780c |x | Jump 0xc2
00b6 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x5 = 0xb6,0x5
00b7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b8 e5fd | | Load 0x2,-0x3
00b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ba 2e05 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x5
00bb e5fd | | Load 0x2,-0x3
00bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00bd 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3
00be e005 | | Load 0x0,0x5
00bf 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c1 0059 | Y | Store_Top Discrete,At_Offset_1
00c2 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x6 = 0xc2,0x6
00c3 e215 | | Load 0x1,0x15
00c4 1c08 | | Execute_Immediate Run_Utility,0x8
00c5 e5fd | | Load 0x2,-0x3
00c6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cd | | .CONST 0x00cd ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e213 | | Load 0x1,0x13 ; Debug Table 0x4 = .DEBUG 0x00cb,0x0552,0x0001,0x0000,0x000d,0xf324,0x0000,0x0040
; Debug Table 0x4.0x0 = 0xcb,0xffff
00cc 0007 | | Action Break_Optional
00cd BODY_00c8:
00cd e213 | | Load 0x1,0x13 ; Debug Table 0x4.0x1 = 0xcd,0x1
00ce e5ff | | Load 0x2,-0x1
00cf 8216 | | Call 0x1,0x16
00d0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00d1 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x2 = 0xd1,0x2
00d2 e215 | | Load 0x1,0x15
00d3 1c08 | | Execute_Immediate Run_Utility,0x8
00d4 00d9 | | Load_Top At_Offset_1
00d5 00d9 | | Load_Top At_Offset_1
00d6 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
00d7 e5ff | | Load 0x2,-0x1
00d8 00d9 | | Load_Top At_Offset_1
00d9 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
00da e001 | | Load 0x0,0x1
00db 1b17 | | Execute Package,Field_Read,Field_Number 0x17
00dc 00d9 | | Load_Top At_Offset_1
00dd 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
00de 4800 |H | Short_Literal 0x0
00df 00d9 | | Load_Top At_Offset_1
00e0 2a05 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x5
00e1 e5fe | | Load 0x2,-0x2
00e2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e4 0000 0000 | | .BLANK 0000[0x4]
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 4800 |H | Short_Literal 0x0 ; Debug Table 0x5 = .DEBUG 0x00eb,0x055a,0x0001,0x0000,0x000d,0xf324,0x0000,0x004e
; Debug Table 0x5.0x0 = 0xeb,0x1
00ec e215 | | Load 0x1,0x15
00ed 1c08 | | Execute_Immediate Run_Utility,0x8
00ee 00db | | Load_Top At_Offset_3
00ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f1 0000 0000 | | .BLANK 0000[0x7]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4608 |F | Jump_Case 0x9 ; Debug Table 0x6 = .DEBUG 0x00fb,0x055e,0x0005,0x0000,0x000d,0xf324,0x0000,0x013d
00fc 7808 |x | Jump 0x105 ; case 0x0
00fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
00fe 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
00ff 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0100 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0101 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0102 781c |x | Jump 0x11f ; case 0x6
0103 7823 |x# | Jump 0x127 ; case 0x7
0104 782d |x- | Jump 0x132 ; case 0x8
0105 00da | | Load_Top At_Offset_2
0106 016c | l | Execute Variant_Record,Is_Constrained
0107 7009 |p | Jump_Nonzero 0x111
0108 00cf | | Action Mark_Auxiliary
0109 4800 |H | Short_Literal 0x0
010a e5ff | | Load 0x2,-0x1
010b 1c08 | | Execute_Immediate Run_Utility,0x8
010c 00d8 | | Load_Top At_Offset_0
010d 1c00 | | Execute_Immediate Run_Utility,0x0
010e c5ff | | Store 0x2,-0x1
010f 00ce | | Action Pop_Auxiliary
0110 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0111 00da | | Load_Top At_Offset_2
0112 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0113 4601 |F | Jump_Case 0x2
0114 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0115 7800 |x | Jump 0x116 ; case 0x1
0116 e001 | | Load 0x0,0x1
0117 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0118 00db | | Load_Top At_Offset_3
0119 2a03 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x3
011a e001 | | Load 0x0,0x1
011b 1b17 | | Execute Package,Field_Read,Field_Number 0x17
011c 00db | | Load_Top At_Offset_3
011d 2a04 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x4
011e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
011f 00db | | Load_Top At_Offset_3
0120 4601 |F | Jump_Case 0x2
0121 7801 |x | Jump 0x123 ; case 0x0
0122 7802 |x | Jump 0x125 ; case 0x1
0123 48ff |H | Short_Literal 0xff
0124 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0125 4801 |H | Short_Literal 0x1
0126 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0127 00db | | Load_Top At_Offset_3
0128 e5fe | | Load 0x2,-0x2
0129 4601 |F | Jump_Case 0x2
012a 7801 |x | Jump 0x12c ; case 0x0
012b 7802 |x | Jump 0x12e ; case 0x1
012c 48ff |H | Short_Literal 0xff
012d 7801 |x | Jump 0x12f
012e 4801 |H | Short_Literal 0x1
012f e5ff | | Load 0x2,-0x1
0130 031b | | Declare_Type Variant_Record,Constrained
0131 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0132 00db | | Load_Top At_Offset_3
0133 e5fe | | Load 0x2,-0x2
0134 e5ff | | Load 0x2,-0x1
0135 1c06 | | Execute_Immediate Run_Utility,0x6
0136 e5ff | | Load 0x2,-0x1
0137 02fc | | Declare_Variable Variant_Record,With_Constraint
0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4608 |F | Jump_Case 0x9 ; Debug Table 0x7 = .DEBUG 0x0143,0x0560,0x0005,0x0000,0x000d,0xf324,0x0000,0x0171
0144 7808 |x | Jump 0x14d ; case 0x0
0145 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0146 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0147 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0148 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0149 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
014a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
014b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
014c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
014d 00da | | Load_Top At_Offset_2
014e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0151 0000 0000 | | .BLANK 0000[0x7]
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,0x0562,0x0001,0x0000,0x0010,0x0194,0x0000,0x001c
; Debug Table 0x8.0x0 = 0x15b,0x1
015c e002 | | Load 0x0,0x2
015d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
015e a5fe | | Store_Unchecked 0x2,-0x2
015f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0160 0010 d012 | | .LITERAL {0x0010d012, 0x000016b0}
0164 0000 0000 | | .BLANK 0000[0x4]
0168 01d2 0004 | | .XXX[0x3]
016a 0032 | 2 |
016b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x9 = .DEBUG 0x016b,0x0566,0x4000,0x0000,0x000d,0xf324,0x0000,0x0056
; Debug Table 0x9.0x0 = 0x16b,0xffff
016c 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x1 = 0x16c,0xfffe
016e 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x2 = 0x16e,0xfffd
0170 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x3 = 0x170,0xfffc
0172 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x4 = 0x172,0xfffb
0174 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x5 = 0x174,0xfffa
0176 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x6 = 0x176,0xfff9
0178 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x7 = 0x178,0xfff8
017a 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x8 = 0x17a,0xfff7
017c 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x9.0x9 = 0x17c,0xfff6
017e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x9.0xa = 0x17e,0xfff5
017f 4801 |H | Short_Literal 0x1
0180 e210 | | Load 0x1,0x10
0181 029f 02c3 | | Declare_Subprogram INIT_02c0,For_Call
0183 4801 |H | Short_Literal 0x1
0184 4800 |H | Short_Literal 0x0
0185 4801 |H | Short_Literal 0x1
0186 4800 |H | Short_Literal 0x0
0187 4801 |H | Short_Literal 0x1
0188 031d | | Declare_Type Variant_Record,Defined
0189 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0xb = 0x189,0xfff4
018a 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
018c 4801 |H | Short_Literal 0x1
018d 032d | - | Declare_Type Record,Defined
018e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0xc = 0x18e,0xfff3
018f 02a0 | | Declare_Subprogram Null_Subprogram
0190 03ad | | Declare_Type Heap_Access,Defined
0191 0007 | | Action Break_Optional ; Debug Table 0x9.0xd = 0x191,0xfff2
0192 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0xe = 0x192,0xfff1
0193 e212 | | Load 0x1,0x12
0194 03a2 | | Complete_Type Heap_Access,By_Renaming
0195 00bf | | Action Accept_Activation
0196 e001 | | Load 0x0,0x1 ; Debug Table 0xa = .DEBUG 0x0196,0x0586,0x4000,0x0000,0x0010,0x0194,0x0000,0x016c
; Debug Table 0xa.0x0 = 0x196,0xffff
0197 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0198 e001 | | Load 0x0,0x1 ; Debug Table 0xa.0x1 = 0x198,0xfffe
0199 1913 | | Execute Package,Field_Reference,Field_Number 0x13
019a 0007 | | Action Break_Optional
019b e001 | | Load 0x0,0x1 ; Debug Table 0xa.0x2 = 0x19b,0xfffd
019c 1912 | | Execute Package,Field_Reference,Field_Number 0x12
019d 0007 | | Action Break_Optional
019e 00e3 | | Load_Encached Natural_Cache ; Debug Table 0xa.0x3 = 0x19e,0xfffc
019f e20f | | Load 0x1,0xf ; Debug Table 0xa.0x4 = 0x19f,0xfffb
01a0 026a | j | Execute Discrete,First
01a1 00e2 | | Load_Encached Integer_Cache
01a2 03f1 | | Declare_Variable Discrete,With_Value
01a3 029d 031b | | Declare_Subprogram INIT_0318,For_Outer_Call ; Debug Table 0xa.0x5 = 0x1a3,0xfffa
01a5 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call ; Debug Table 0xa.0x6 = 0x1a5,0xfff9
01a7 029d 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call ; Debug Table 0xa.0x7 = 0x1a7,0xfff8
01a9 029d 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call ; Debug Table 0xa.0x8 = 0x1a9,0xfff7
01ab 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call ; Debug Table 0xa.0x9 = 0x1ab,0xfff6
01ad 029d 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call ; Debug Table 0xa.0xa = 0x1ad,0xfff5
01af e001 | | Load 0x0,0x1 ; Debug Table 0xa.0xb = 0x1af,0xfff4
01b0 1919 | | Execute Package,Field_Reference,Field_Number 0x19
01b1 00c6 | | Action Check_Subprogram_Elaborated
01b2 e21d | | Load 0x1,0x1d
01b3 e21e | | Load 0x1,0x1e
01b4 6213 |b | Indirect_Literal Discrete,0x3c8,{0x00000000, 0x00100194}
01b5 4a39 |J9 | Short_Literal 0x239
01b6 4800 |H | Short_Literal 0x0
01b7 0007 | | Action Break_Optional
01b8 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call ; Debug Table 0xa.0xc = 0x1b8,0xfff3
01ba 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call ; Debug Table 0xa.0xd = 0x1ba,0xfff2
01bc 029d 039b | | Declare_Subprogram INIT_0398,For_Outer_Call ; Debug Table 0xa.0xe = 0x1bc,0xfff1
01be 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call ; Debug Table 0xa.0xf = 0x1be,0xfff0
01c0 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0xa.0x10 = 0x1c0,0xffef
01c1 00c7 | | Action Elaborate_Subprogram
01c2 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0xa.0x11 = 0x1c2,0xffee
01c3 00c7 | | Action Elaborate_Subprogram
01c4 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0xa.0x12 = 0x1c4,0xffed
01c5 00c7 | | Action Elaborate_Subprogram
01c6 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0xa.0x13 = 0x1c6,0xffec
01c7 00c7 | | Action Elaborate_Subprogram
01c8 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0xa.0x14 = 0x1c8,0xffeb
01c9 00c7 | | Action Elaborate_Subprogram
01ca 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0xa.0x15 = 0x1ca,0xffea
01cb 00c7 | | Action Elaborate_Subprogram
01cc 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0xa.0x16 = 0x1cc,0xffe9
01cd 00c7 | | Action Elaborate_Subprogram
01ce 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0xa.0x17 = 0x1ce,0xffe8
01cf 00c7 | | Action Elaborate_Subprogram
01d0 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0xa.0x18 = 0x1d0,0xffe7
01d1 00c7 | | Action Elaborate_Subprogram
01d2 00bc | | Action Signal_Activated
01d3 00bb | | Action Signal_Completion
01d4 0000 0000 | | .BLANK 0000[0x4]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x01db,0x05ba,0x1002,0x0000,0x000d,0xf324,0x0000,0x0068
; Debug Table 0xb.0x0 = 0x1db,0x1
01dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01dd 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01de 8228 | ( | Call 0x1,0x28
01df 8225 | % | Call 0x1,0x25
01e0 e20f | | Load 0x1,0xf
01e1 025b | [ | Execute Discrete,Check_In_Type
01e2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e3 0000 0000 | | .BLANK 0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01f1 | | .CONST 0x01f1 ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0002 | | .CONST 0x0002 ; Number of locals
01eb INIT_01e8:
01eb 00db | | Load_Top At_Offset_3 ; Debug Table 0xc = .DEBUG 0x01eb,0x05be,0x1001,0x0000,0x000d,0xf324,0x0000,0x0071
; Debug Table 0xc.0x0 = 0x1eb,0xffff
01ec e20f | | Load 0x1,0xf
01ed 025b | [ | Execute Discrete,Check_In_Type
01ee 8224 | $ | Call 0x1,0x24
01ef e222 | " | Load 0x1,0x22
01f0 03f1 | | Declare_Variable Discrete,With_Value
01f1 BODY_01e8:
01f1 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xc.0x1 = 0x1f1,0x1
01f2 e5ff | | Load 0x2,-0x1
01f3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f4 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
01f5 8232 | 2 | Call 0x1,0x32
01f6 e21d | | Load 0x1,0x1d ; Debug Table 0xc.0x2 = 0x1f6,0x2
01f7 0322 | " | Declare_Variable Record
01f8 4801 |H | Short_Literal 0x1
01f9 e21c | | Load 0x1,0x1c
01fa 1c08 | | Execute_Immediate Run_Utility,0x8
01fb e5fd | | Load 0x2,-0x3
01fc e210 | | Load 0x1,0x10
01fd 0119 | | Execute Any,Check_In_Formal_Type
01fe 00d9 | | Load_Top At_Offset_1
01ff 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0200 00d9 | | Load_Top At_Offset_1
0201 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0202 00d9 | | Load_Top At_Offset_1
0203 e5ff | | Load 0x2,-0x1
0204 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0205 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0206 8230 | 0 | Call 0x1,0x30
0207 0218 | | Execute Heap_Access,All_Write
0208 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0209 0000 0000 | | .BLANK 0000[0x7]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0219 | | .CONST 0x0219 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0213,0x05c6,0x1001,0x0000,0x000d,0xf324,0x0000,0x0081
; Debug Table 0xd.0x0 = 0x213,0xffff
0214 e20f | | Load 0x1,0xf
0215 025b | [ | Execute Discrete,Check_In_Type
0216 8224 | $ | Call 0x1,0x24
0217 e222 | " | Load 0x1,0x22
0218 03f1 | | Declare_Variable Discrete,With_Value
0219 BODY_0210:
0219 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x1 = 0x219,0x1
021a e5fe | | Load 0x2,-0x2
021b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021c 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
021d 8231 | 1 | Call 0x1,0x31
021e 6802 |h | Jump_Zero 0x221
021f 4887 |H | Short_Literal 0x87
0220 0257 | W | Execute Discrete,Raise
0221 e21d | | Load 0x1,0x1d ; Debug Table 0xd.0x2 = 0x221,0x2
0222 0322 | " | Declare_Variable Record
0223 4800 |H | Short_Literal 0x0
0224 e21c | | Load 0x1,0x1c
0225 1c08 | | Execute_Immediate Run_Utility,0x8
0226 00d9 | | Load_Top At_Offset_1
0227 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0228 00d9 | | Load_Top At_Offset_1
0229 e5fe | | Load 0x2,-0x2
022a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
022b 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
022c 8230 | 0 | Call 0x1,0x30
022d 0218 | | Execute Heap_Access,All_Write
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0239 | 9 | .CONST 0x0239 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 00db | | Load_Top At_Offset_3 ; Debug Table 0xe = .DEBUG 0x0233,0x05ce,0x1001,0x0000,0x000d,0xf324,0x0000,0x008d
; Debug Table 0xe.0x0 = 0x233,0xffff
0234 e20f | | Load 0x1,0xf
0235 025b | [ | Execute Discrete,Check_In_Type
0236 8224 | $ | Call 0x1,0x24
0237 e222 | " | Load 0x1,0x22
0238 03f1 | | Declare_Variable Discrete,With_Value
0239 BODY_0230:
0239 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x1 = 0x239,0x1
023a e5ff | | Load 0x2,-0x1
023b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
023c 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
023d 8231 | 1 | Call 0x1,0x31
023e 6805 |h | Jump_Zero 0x244
023f 4800 |H | Short_Literal 0x0 ; Debug Table 0xe.0x2 = 0x23f,0x2
0240 a5fd | | Store_Unchecked 0x2,-0x3
0241 e212 | | Load 0x1,0x12 ; Debug Table 0xe.0x3 = 0x241,0x3
0242 a5fc | | Store_Unchecked 0x2,-0x4
0243 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0244 4801 |H | Short_Literal 0x1 ; Debug Table 0xe.0x4 = 0x244,0x4
0245 a5fd | | Store_Unchecked 0x2,-0x3
0246 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x5 = 0x246,0x5
0247 e5ff | | Load 0x2,-0x1
0248 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0249 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
024a 8230 | 0 | Call 0x1,0x30
024b a5fc | | Store_Unchecked 0x2,-0x4
024c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xf = .DEBUG 0x0253,0x05dc,0x1001,0x0000,0x000d,0xf324,0x0000,0x00a1
; Debug Table 0xf.0x0 = 0x253,0x1
0254 0217 | | Execute Heap_Access,All_Reference
0255 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0256 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
0257 c5fe | | Store 0x2,-0x2
0258 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0259 0000 0000 | | .BLANK 0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0266 | f | .CONST 0x0266 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0003 | | .CONST 0x0003 ; Number of locals
0263 INIT_0260:
0263 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10 = .DEBUG 0x0263,0x05e0,0x1001,0x0000,0x000d,0xf324,0x0000,0x00ad
; Debug Table 0x10.0x0 = 0x263,0xffff
0264 e212 | | Load 0x1,0x12 ; Debug Table 0x10.0x1 = 0x264,0xfffe
0265 0007 | | Action Break_Optional
0266 BODY_0260:
0266 e212 | | Load 0x1,0x12 ; Debug Table 0x10.0x2 = 0x266,0x1
0267 00e1 | | Load_Encached Boolean_Cache
0268 e5fe | | Load 0x2,-0x2
0269 e20f | | Load 0x1,0xf
026a 025b | [ | Execute Discrete,Check_In_Type
026b e5ff | | Load 0x2,-0x1
026c 8216 | | Call 0x1,0x16
026d 005b | [ | Store_Top Discrete,At_Offset_3
026e 0031 | 1 | Store_Top Heap_Access,At_Offset_1
026f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x10.0x3 = 0x26f,0x2
0270 680e |h | Jump_Zero 0x27f
0271 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x4 = 0x271,0x3
0272 a5fd | | Store_Unchecked 0x2,-0x3
0273 e5fc | | Load 0x2,-0x4 ; Debug Table 0x10.0x5 = 0x273,0x4
0274 0120 | | Execute Any,Is_Value
0275 6802 |h | Jump_Zero 0x278
0276 e210 | | Load 0x1,0x10
0277 7803 |x | Jump 0x27b
0278 e5fc | | Load 0x2,-0x4
0279 e210 | | Load 0x1,0x10
027a 0119 | | Execute Any,Check_In_Formal_Type
027b 00d9 | | Load_Top At_Offset_1
027c 8217 | | Call 0x1,0x17
027d c5fc | | Store 0x2,-0x4
027e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
027f 4800 |H | Short_Literal 0x0 ; Debug Table 0x10.0x6 = 0x27f,0x5
0280 a5fd | | Store_Unchecked 0x2,-0x3
0281 e211 | | Load 0x1,0x11 ; Debug Table 0x10.0x7 = 0x281,0x6
0282 c5fc | | Store 0x2,-0x4
0283 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0284 0000 0000 | | .BLANK 0000[0x4]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2 ; Debug Table 0x11 = .DEBUG 0x028b,0x05f2,0x1001,0x0000,0x000d,0xf324,0x0000,0x00c1
; Debug Table 0x11.0x0 = 0x28b,0x1
028c 0217 | | Execute Heap_Access,All_Reference
028d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
028e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
028f 7002 |p | Jump_Nonzero 0x292
0290 4887 |H | Short_Literal 0x87
0291 0257 | W | Execute Discrete,Raise
0292 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x1 = 0x292,0x2
0293 00db | | Load_Top At_Offset_3
0294 0217 | | Execute Heap_Access,All_Reference
0295 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0296 2a02 |* | Execute Variant_Record,Field_Write,Variant,Direct,Field_Number 0x2
0297 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00cf | | Action Mark_Auxiliary ; Debug Table 0x12 = .DEBUG 0x029b,0x05f8,0x1001,0x0000,0x000d,0xf324,0x0000,0x00cd
029c e5fe | | Load 0x2,-0x2 ; Debug Table 0x12.0x0 = 0x29c,0x1
029d e5ff | | Load 0x2,-0x1
029e 0263 | c | Execute Discrete,Above_Bound
029f 700a |p | Jump_Nonzero 0x2aa
02a0 e5fd | | Load 0x2,-0x3 ; Debug Table 0x12.0x1 = 0x2a0,0x2
02a1 e210 | | Load 0x1,0x10
02a2 0119 | | Execute Any,Check_In_Formal_Type
02a3 00d9 | | Load_Top At_Offset_1
02a4 e20f | | Load 0x1,0xf
02a5 025b | [ | Execute Discrete,Check_In_Type
02a6 e5fc | | Load 0x2,-0x4
02a7 8214 | | Call 0x1,0x14
02a8 00c8 | | Action Pop_Auxiliary_Range
02a9 3ff6 |? | Loop_Increasing 0x2a0
02aa 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5 | | .CONST 0x02b5 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call ; Debug Table 0x13 = .DEBUG 0x02b3,0x05fe,0x3801,0x0002,0x000d,0xf324,0x0000,0x00e1
02b5 BODY_02b0:
02b5 00cf | | Action Mark_Auxiliary
02b6 e20f | | Load 0x1,0xf ; Debug Table 0x13.0x0 = 0x2b6,0x1
02b7 0265 | e | Execute Discrete,Reverse_Bounds
02b8 0263 | c | Execute Discrete,Above_Bound
02b9 7003 |p | Jump_Nonzero 0x2bd
02ba 8402 | | Call 0x2,0x2 ; Debug Table 0x13.0x1 = 0x2ba,0x2
02bb 00c8 | | Action Pop_Auxiliary_Range
02bc 3ffd |? | Loop_Increasing 0x2ba
02bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02be 0000 0000 | | .XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4608 |F | Jump_Case 0x9 ; Debug Table 0x14 = .DEBUG 0x02c3,0x0604,0x1005,0x0000,0x000d,0xf324,0x0000,0x00f8
02c4 7808 |x | Jump 0x2cd ; case 0x0
02c5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
02c6 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
02c7 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
02c8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
02c9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
02ca 7819 |x | Jump 0x2e4 ; case 0x6
02cb 7820 |x | Jump 0x2ec ; case 0x7
02cc 782a |x* | Jump 0x2f7 ; case 0x8
02cd 00da | | Load_Top At_Offset_2
02ce 016c | l | Execute Variant_Record,Is_Constrained
02cf 7009 |p | Jump_Nonzero 0x2d9
02d0 00cf | | Action Mark_Auxiliary
02d1 4800 |H | Short_Literal 0x0
02d2 e5ff | | Load 0x2,-0x1
02d3 1c08 | | Execute_Immediate Run_Utility,0x8
02d4 00d8 | | Load_Top At_Offset_0
02d5 1c00 | | Execute_Immediate Run_Utility,0x0
02d6 c5ff | | Store 0x2,-0x1
02d7 00ce | | Action Pop_Auxiliary
02d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02d9 00da | | Load_Top At_Offset_2
02da 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02db 4601 |F | Jump_Case 0x2
02dc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02dd 7800 |x | Jump 0x2de ; case 0x1
02de 00da | | Load_Top At_Offset_2
02df 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
02e0 00da | | Load_Top At_Offset_2
02e1 2602 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x2
02e2 1c00 | | Execute_Immediate Run_Utility,0x0
02e3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02e4 00db | | Load_Top At_Offset_3
02e5 4601 |F | Jump_Case 0x2
02e6 7801 |x | Jump 0x2e8 ; case 0x0
02e7 7802 |x | Jump 0x2ea ; case 0x1
02e8 48ff |H | Short_Literal 0xff
02e9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ea 4801 |H | Short_Literal 0x1
02eb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ec 00db | | Load_Top At_Offset_3
02ed e5fe | | Load 0x2,-0x2
02ee 4601 |F | Jump_Case 0x2
02ef 7801 |x | Jump 0x2f1 ; case 0x0
02f0 7802 |x | Jump 0x2f3 ; case 0x1
02f1 48ff |H | Short_Literal 0xff
02f2 7801 |x | Jump 0x2f4
02f3 4801 |H | Short_Literal 0x1
02f4 e5ff | | Load 0x2,-0x1
02f5 031b | | Declare_Type Variant_Record,Constrained
02f6 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02f7 00db | | Load_Top At_Offset_3
02f8 e5fe | | Load 0x2,-0x2
02f9 e5ff | | Load 0x2,-0x1
02fa 1c06 | | Execute_Immediate Run_Utility,0x6
02fb e5ff | | Load 0x2,-0x1
02fc 02fc | | Declare_Variable Variant_Record,With_Constraint
02fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02fe 0000 0000 | | .XXX[0x2]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 4608 |F | Jump_Case 0x9 ; Debug Table 0x15 = .DEBUG 0x0303,0x0606,0x1005,0x0000,0x000d,0xf324,0x0000,0x0112
0304 7808 |x | Jump 0x30d ; case 0x0
0305 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0306 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
0307 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0308 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0309 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
030a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
030b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x7
030c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x8
030d 00da | | Load_Top At_Offset_2
030e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
030f 1c00 | | Execute_Immediate Run_Utility,0x0
0310 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0311 0000 0000 | | .BLANK 0000[0x7]
0318 ; --------------------------------------------------------------------------------------
0318 ; SUBPROGRAM
0318 ; --------------------------------------------------------------------------------------
0318 031b | | .CONST 0x031b ; Address of begin
0319 0004 | | .CONST 0x0004 ; Address of exception handler
031a 0001 | | .CONST 0x0001 ; Number of locals
031b BODY_0318:
031b INIT_0318:
031b 00da | | Load_Top At_Offset_2 ; Debug Table 0x16 = .DEBUG 0x031b,0x0608,0x1002,0x0000,0x0010,0x0194,0x0000,0x019b
; Debug Table 0x16.0x0 = 0x31b,0x1
031c e223 | # | Load 0x1,0x23
031d 0272 | r | Execute Discrete,Minus
031e e222 | " | Load 0x1,0x22
031f 025b | [ | Execute Discrete,Check_In_Type
0320 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2 ; Debug Table 0x17 = .DEBUG 0x032b,0x060c,0x1002,0x0000,0x0010,0x0194,0x0000,0x01b5
; Debug Table 0x17.0x0 = 0x32b,0x1
032c e223 | # | Load 0x1,0x23
032d 0273 | s | Execute Discrete,Plus
032e 0248 | H | Execute Discrete,Check_In_Integer
032f 00d8 | | Load_Top At_Offset_0
0330 e20f | | Load 0x1,0xf
0331 0122 | " | Execute Any,Make_Root_Type
0332 0260 | ` | Execute Discrete,In_Type
0333 7002 |p | Jump_Nonzero 0x336
0334 48e0 |H | Short_Literal 0xe0
0335 0257 | W | Execute Discrete,Raise
0336 e20f | | Load 0x1,0xf
0337 025b | [ | Execute Discrete,Check_In_Type
0338 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 8220 | | Call 0x1,0x20 ; Debug Table 0x18 = .DEBUG 0x0343,0x0610,0x1002,0x0000,0x0010,0x0194,0x0000,0x01cf
; Debug Table 0x18.0x0 = 0x343,0x1
0344 00db | | Load_Top At_Offset_3
0345 e21d | | Load 0x1,0x1d
0346 012c | , | Execute Any,Size
0347 0271 | q | Execute Discrete,Times
0348 0248 | H | Execute Discrete,Check_In_Integer
0349 e002 | | Load 0x0,0x2
034a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
034b 025b | [ | Execute Discrete,Check_In_Type
034c 0273 | s | Execute Discrete,Plus
034d e002 | | Load 0x0,0x2
034e 1b17 | | Execute Package,Field_Read,Field_Number 0x17
034f 025b | [ | Execute Discrete,Check_In_Type
0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2 ; Debug Table 0x19 = .DEBUG 0x035b,0x0614,0x1002,0x0000,0x0010,0x0194,0x0000,0x01ee
; Debug Table 0x19.0x0 = 0x35b,0x1
035c 8220 | | Call 0x1,0x20
035d 0272 | r | Execute Discrete,Minus
035e e222 | " | Load 0x1,0x22
035f 025b | [ | Execute Discrete,Check_In_Type
0360 e21d | | Load 0x1,0x1d
0361 012c | , | Execute Any,Size
0362 0270 | p | Execute Discrete,Divide
0363 e222 | " | Load 0x1,0x22
0364 025b | [ | Execute Discrete,Check_In_Type
0365 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0366 0000 0000 | | .XXX[0x2]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036b | k | .CONST 0x036b ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0001 | | .CONST 0x0001 ; Number of locals
036b BODY_0368:
036b INIT_0368:
036b 00da | | Load_Top At_Offset_2 ; Debug Table 0x1a = .DEBUG 0x036b,0x0618,0x1002,0x0000,0x0010,0x0194,0x0000,0x020a
; Debug Table 0x1a.0x0 = 0x36b,0x1
036c 8221 | ! | Call 0x1,0x21
036d 8227 | ' | Call 0x1,0x27
036e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036f 0000 | | .XXX[0x1]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 00db | | Load_Top At_Offset_3 ; Debug Table 0x1b = .DEBUG 0x0373,0x061c,0x1002,0x0000,0x0010,0x0194,0x0000,0x021f
; Debug Table 0x1b.0x0 = 0x373,0x1
0374 00db | | Load_Top At_Offset_3
0375 8228 | ( | Call 0x1,0x28
0376 027b | { | Execute Discrete,Greater_Equal
0377 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00db | | Load_Top At_Offset_3 ; Debug Table 0x1c = .DEBUG 0x037b,0x0620,0x1007,0x0000,0x0010,0x0194,0x0000,0x0239
037c 00db | | Load_Top At_Offset_3
037d e22a | * | Load 0x1,0x2a
037e e22b | + | Load 0x1,0x2b
037f 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0380 e001 | | Load 0x0,0x1
0381 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0382 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0383 0000 0000 | | .BLANK 0000[0x5]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 00db | | Load_Top At_Offset_3 ; Debug Table 0x1d = .DEBUG 0x038b,0x0622,0x1002,0x0000,0x0010,0x0194,0x0000,0x025b
; Debug Table 0x1d.0x0 = 0x38b,0x1
038c 8226 | & | Call 0x1,0x26
038d 00db | | Load_Top At_Offset_3
038e e22a | * | Load 0x1,0x2a
038f e22b | + | Load 0x1,0x2b
0390 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0391 e001 | | Load 0x0,0x1
0392 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0393 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0394 0000 0000 | | .BLANK 0000[0x4]
0398 ; --------------------------------------------------------------------------------------
0398 ; SUBPROGRAM
0398 ; --------------------------------------------------------------------------------------
0398 039b | | .CONST 0x039b ; Address of begin
0399 0004 | | .CONST 0x0004 ; Address of exception handler
039a 0001 | | .CONST 0x0001 ; Number of locals
039b BODY_0398:
039b INIT_0398:
039b 00db | | Load_Top At_Offset_3 ; Debug Table 0x1e = .DEBUG 0x039b,0x0626,0x1002,0x0000,0x0010,0x0194,0x0000,0x0275
; Debug Table 0x1e.0x0 = 0x39b,0x1
039c 00db | | Load_Top At_Offset_3
039d 8229 | ) | Call 0x1,0x29
039e 6802 |h | Jump_Zero 0x3a1
039f 4801 |H | Short_Literal 0x1 ; Debug Table 0x1e.0x1 = 0x39f,0x2
03a0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a1 00db | | Load_Top At_Offset_3 ; Debug Table 0x1e.0x2 = 0x3a1,0x3
03a2 00db | | Load_Top At_Offset_3
03a3 8230 | 0 | Call 0x1,0x30
03a4 0217 | | Execute Heap_Access,All_Reference
03a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a6 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
03a7 0f00 | | Execute_Immediate Equal,0x0
03a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a9 0000 0000 | | .BLANK 0000[0x7]
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b4 | | .CONST 0x03b4 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0002 | | .CONST 0x0002 ; Number of locals
03b3 INIT_03b0:
03b3 e21e | | Load 0x1,0x1e ; Debug Table 0x1f = .DEBUG 0x03b3,0x062e,0x1001,0x0000,0x0010,0x0194,0x0000,0x02a0
; Debug Table 0x1f.0x0 = 0x3b3,0xffff
03b4 BODY_03b0:
03b4 00cf | | Action Mark_Auxiliary
03b5 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1f.0x1 = 0x3b5,0x1
03b6 e5ff | | Load 0x2,-0x1
03b7 8228 | ( | Call 0x1,0x28
03b8 0263 | c | Execute Discrete,Above_Bound
03b9 700d |p | Jump_Nonzero 0x3c7
03ba e21d | | Load 0x1,0x1d ; Debug Table 0x1f.0x2 = 0x3ba,0x2
03bb 0322 | " | Declare_Variable Record
03bc 4800 |H | Short_Literal 0x0
03bd e21c | | Load 0x1,0x1c
03be 1c08 | | Execute_Immediate Run_Utility,0x8
03bf 00d9 | | Load_Top At_Offset_1
03c0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03c1 e21e | | Load 0x1,0x1e
03c2 e5ff | | Load 0x2,-0x1
03c3 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
03c4 a402 | | Store_Unchecked 0x2,0x2
03c5 00c8 | | Action Pop_Auxiliary_Range ; Debug Table 0x1f.0x3 = 0x3c5,0x3
03c6 3ff3 |? | Loop_Increasing 0x3ba
03c7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03c8 0000 0000 | | .LITERAL {0x00000000, 0x00100194}
03cc 0000 0000 | | .BLANK 0000[0x4]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03dd | | .CONST 0x03dd ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0003 | | .CONST 0x0003 ; Number of locals
03d3 INIT_03d0:
03d3 e405 | | Load 0x2,0x5 ; Debug Table 0x20 = .DEBUG 0x03d3,0x0638,0x1804,0x0002,0x0010,0x0194,0x0000,0x048b
; Debug Table 0x20.0x0 = 0x3d3,0xffff
03d4 e20f | | Load 0x1,0xf
03d5 025b | [ | Execute Discrete,Check_In_Type
03d6 8224 | $ | Call 0x1,0x24
03d7 e222 | " | Load 0x1,0x22
03d8 03f1 | | Declare_Variable Discrete,With_Value
03d9 e210 | | Load 0x1,0x10 ; Debug Table 0x20.0x1 = 0x3d9,0xfffe
03da 02c7 | | Declare_Variable Any
03db 00d8 | | Load_Top At_Offset_0
03dc 1c00 | | Execute_Immediate Run_Utility,0x0
03dd BODY_03d0:
03dd 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x20.0x2 = 0x3dd,0x1
03de e5fd | | Load 0x2,-0x3
03df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03e0 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03e1 8229 | ) | Call 0x1,0x29
03e2 6803 |h | Jump_Zero 0x3e6
03e3 00cc | | Action Pop_Block
03e4 00d2 | | Pop_Control Pop_Count_2
03e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
03e6 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x20.0x3 = 0x3e6,0x2
03e7 e5fd | | Load 0x2,-0x3
03e8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03e9 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03ea 8231 | 1 | Call 0x1,0x31
03eb 700e |p | Jump_Nonzero 0x3fa
03ec 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x20.0x4 = 0x3ec,0x3
03ed e5fd | | Load 0x2,-0x3
03ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03ef 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03f0 8230 | 0 | Call 0x1,0x30
03f1 0217 | | Execute Heap_Access,All_Reference
03f2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03f3 2e02 |. | Execute Variant_Record,Field_Read,Variant,Direct,Field_Number 0x2
03f4 e210 | | Load 0x1,0x10
03f5 0119 | | Execute Any,Check_In_Formal_Type
03f6 e405 | | Load 0x2,0x5
03f7 e20f | | Load 0x1,0xf
03f8 025b | [ | Execute Discrete,Check_In_Type
03f9 85fe | | Call 0x2,-0x2
03fa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03fb 0000 0000 | | .BLANK 0000[0x5]
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug Table
0400 ; --------------------------------------------------------------------------------------
0400 0003 0021 | !| .CONST 0x0003,0x0021
0402 000b 050a | | .DEBUG 0x000b,0x050a,0x8000,0x0000,0x000d,0xf324,0x0000,0x0009
040a 0031 0520 | 1 | .DEBUG 0x0031,0x0520,0x8000,0x0000,0x0010,0x0194,0x0000,0x0017
0412 004b 052e | K .| .DEBUG 0x004b,0x052e,0x0001,0x0000,0x000d,0xf324,0x0000,0x000e
041a 0093 0542 | B| .DEBUG 0x0093,0x0542,0x0001,0x0000,0x000d,0xf324,0x0000,0x002a
0422 00cb 0552 | R| .DEBUG 0x00cb,0x0552,0x0001,0x0000,0x000d,0xf324,0x0000,0x0040
042a 00eb 055a | Z| .DEBUG 0x00eb,0x055a,0x0001,0x0000,0x000d,0xf324,0x0000,0x004e
0432 00fb 055e | ^| .DEBUG 0x00fb,0x055e,0x0005,0x0000,0x000d,0xf324,0x0000,0x013d
043a 0143 0560 | C `| .DEBUG 0x0143,0x0560,0x0005,0x0000,0x000d,0xf324,0x0000,0x0171
0442 015b 0562 | [ b| .DEBUG 0x015b,0x0562,0x0001,0x0000,0x0010,0x0194,0x0000,0x001c
044a 016b 0566 | k f| .DEBUG 0x016b,0x0566,0x4000,0x0000,0x000d,0xf324,0x0000,0x0056
0452 0196 0586 | | .DEBUG 0x0196,0x0586,0x4000,0x0000,0x0010,0x0194,0x0000,0x016c
045a 01db 05ba | | .DEBUG 0x01db,0x05ba,0x1002,0x0000,0x000d,0xf324,0x0000,0x0068
0462 01eb 05be | | .DEBUG 0x01eb,0x05be,0x1001,0x0000,0x000d,0xf324,0x0000,0x0071
046a 0213 05c6 | | .DEBUG 0x0213,0x05c6,0x1001,0x0000,0x000d,0xf324,0x0000,0x0081
0472 0233 05ce | 3 | .DEBUG 0x0233,0x05ce,0x1001,0x0000,0x000d,0xf324,0x0000,0x008d
047a 0253 05dc | S | .DEBUG 0x0253,0x05dc,0x1001,0x0000,0x000d,0xf324,0x0000,0x00a1
0482 0263 05e0 | c | .DEBUG 0x0263,0x05e0,0x1001,0x0000,0x000d,0xf324,0x0000,0x00ad
048a 028b 05f2 | | .DEBUG 0x028b,0x05f2,0x1001,0x0000,0x000d,0xf324,0x0000,0x00c1
0492 029b 05f8 | | .DEBUG 0x029b,0x05f8,0x1001,0x0000,0x000d,0xf324,0x0000,0x00cd
049a 02b3 05fe | | .DEBUG 0x02b3,0x05fe,0x3801,0x0002,0x000d,0xf324,0x0000,0x00e1
04a2 02c3 0604 | | .DEBUG 0x02c3,0x0604,0x1005,0x0000,0x000d,0xf324,0x0000,0x00f8
04aa 0303 0606 | | .DEBUG 0x0303,0x0606,0x1005,0x0000,0x000d,0xf324,0x0000,0x0112
04b2 031b 0608 | | .DEBUG 0x031b,0x0608,0x1002,0x0000,0x0010,0x0194,0x0000,0x019b
04ba 032b 060c | + | .DEBUG 0x032b,0x060c,0x1002,0x0000,0x0010,0x0194,0x0000,0x01b5
04c2 0343 0610 | C | .DEBUG 0x0343,0x0610,0x1002,0x0000,0x0010,0x0194,0x0000,0x01cf
04ca 035b 0614 | [ | .DEBUG 0x035b,0x0614,0x1002,0x0000,0x0010,0x0194,0x0000,0x01ee
04d2 036b 0618 | k | .DEBUG 0x036b,0x0618,0x1002,0x0000,0x0010,0x0194,0x0000,0x020a
04da 0373 061c | s | .DEBUG 0x0373,0x061c,0x1002,0x0000,0x0010,0x0194,0x0000,0x021f
04e2 037b 0620 | { | .DEBUG 0x037b,0x0620,0x1007,0x0000,0x0010,0x0194,0x0000,0x0239
04ea 038b 0622 | "| .DEBUG 0x038b,0x0622,0x1002,0x0000,0x0010,0x0194,0x0000,0x025b
04f2 039b 0626 | &| .DEBUG 0x039b,0x0626,0x1002,0x0000,0x0010,0x0194,0x0000,0x0275
04fa 03b3 062e | .| .DEBUG 0x03b3,0x062e,0x1001,0x0000,0x0010,0x0194,0x0000,0x02a0
0502 03d3 0638 | 8| .DEBUG 0x03d3,0x0638,0x1804,0x0002,0x0010,0x0194,0x0000,0x048b
050a ; --------------------------------------------------------------------------------------
050a ; Debug3 Subtable 0x0
050a ; --------------------------------------------------------------------------------------
050a 000a 0000 | | .DBG3TAB 0x000a,0x0000
050c 000b ffff | | .CONST 0x000b,0xffff
050e 000d fffe | | .CONST 0x000d,0xfffe
0510 000f fffd | | .CONST 0x000f,0xfffd
0512 0011 fffc | | .CONST 0x0011,0xfffc
0514 0013 fffb | | .CONST 0x0013,0xfffb
0516 0015 fffa | | .CONST 0x0015,0xfffa
0518 0019 fff9 | | .CONST 0x0019,0xfff9
051a 001a fff8 | | .CONST 0x001a,0xfff8
051c 001b fff7 | | .CONST 0x001b,0xfff7
051e 002b fff6 | + | .CONST 0x002b,0xfff6
0520 ; --------------------------------------------------------------------------------------
0520 ; Debug3 Subtable 0x1
0520 ; --------------------------------------------------------------------------------------
0520 0006 0000 | | .DBG3TAB 0x0006,0x0000
0522 0031 ffff | 1 | .CONST 0x0031,0xffff
0524 0033 fffe | 3 | .CONST 0x0033,0xfffe
0526 0035 fffd | 5 | .CONST 0x0035,0xfffd
0528 0037 fffc | 7 | .CONST 0x0037,0xfffc
052a 0039 fffb | 9 | .CONST 0x0039,0xfffb
052c 003b fffa | ; | .CONST 0x003b,0xfffa
052e ; --------------------------------------------------------------------------------------
052e ; Debug3 Subtable 0x2
052e ; --------------------------------------------------------------------------------------
052e 0002 0007 | | .DBG3TAB 0x0002,0x0007
0530 004b ffff | K | .CONST 0x004b,0xffff
0532 004d fffe | M | .CONST 0x004d,0xfffe
0534 004f 0001 | O | .CONST 0x004f,0x0001
0536 0054 0002 | T | .CONST 0x0054,0x0002
0538 0058 0003 | X | .CONST 0x0058,0x0003
053a 005d 0004 | ] | .CONST 0x005d,0x0004
053c 006c 0005 | l | .CONST 0x006c,0x0005
053e 0079 0006 | y | .CONST 0x0079,0x0006
0540 007d 0007 | } | .CONST 0x007d,0x0007
0542 ; --------------------------------------------------------------------------------------
0542 ; Debug3 Subtable 0x3
0542 ; --------------------------------------------------------------------------------------
0542 0001 0006 | | .DBG3TAB 0x0001,0x0006
0544 0093 ffff | | .CONST 0x0093,0xffff
0546 0095 0001 | | .CONST 0x0095,0x0001
0548 0097 0002 | | .CONST 0x0097,0x0002
054a 009c 0003 | | .CONST 0x009c,0x0003
054c 00aa 0004 | | .CONST 0x00aa,0x0004
054e 00b6 0005 | | .CONST 0x00b6,0x0005
0550 00c2 0006 | | .CONST 0x00c2,0x0006
0552 ; --------------------------------------------------------------------------------------
0552 ; Debug3 Subtable 0x4
0552 ; --------------------------------------------------------------------------------------
0552 0001 0002 | | .DBG3TAB 0x0001,0x0002
0554 00cb ffff | | .CONST 0x00cb,0xffff
0556 00cd 0001 | | .CONST 0x00cd,0x0001
0558 00d1 0002 | | .CONST 0x00d1,0x0002
055a ; --------------------------------------------------------------------------------------
055a ; Debug3 Subtable 0x5
055a ; --------------------------------------------------------------------------------------
055a 0000 0001 | | .DBG3TAB 0x0000,0x0001
055c 00eb 0001 | | .CONST 0x00eb,0x0001
055e ; --------------------------------------------------------------------------------------
055e ; Debug3 Subtable 0x6
055e ; --------------------------------------------------------------------------------------
055e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0560 ; --------------------------------------------------------------------------------------
0560 ; Debug3 Subtable 0x7
0560 ; --------------------------------------------------------------------------------------
0560 0000 0000 | | .DBG3TAB 0x0000,0x0000
0562 ; --------------------------------------------------------------------------------------
0562 ; Debug3 Subtable 0x8
0562 ; --------------------------------------------------------------------------------------
0562 0000 0001 | | .DBG3TAB 0x0000,0x0001
0564 015b 0001 | [ | .CONST 0x015b,0x0001
0566 ; --------------------------------------------------------------------------------------
0566 ; Debug3 Subtable 0x9
0566 ; --------------------------------------------------------------------------------------
0566 000f 0000 | | .DBG3TAB 0x000f,0x0000
0568 016b ffff | k | .CONST 0x016b,0xffff
056a 016c fffe | l | .CONST 0x016c,0xfffe
056c 016e fffd | n | .CONST 0x016e,0xfffd
056e 0170 fffc | p | .CONST 0x0170,0xfffc
0570 0172 fffb | r | .CONST 0x0172,0xfffb
0572 0174 fffa | t | .CONST 0x0174,0xfffa
0574 0176 fff9 | v | .CONST 0x0176,0xfff9
0576 0178 fff8 | x | .CONST 0x0178,0xfff8
0578 017a fff7 | z | .CONST 0x017a,0xfff7
057a 017c fff6 | | | .CONST 0x017c,0xfff6
057c 017e fff5 | ~ | .CONST 0x017e,0xfff5
057e 0189 fff4 | | .CONST 0x0189,0xfff4
0580 018e fff3 | | .CONST 0x018e,0xfff3
0582 0191 fff2 | | .CONST 0x0191,0xfff2
0584 0192 fff1 | | .CONST 0x0192,0xfff1
0586 ; --------------------------------------------------------------------------------------
0586 ; Debug3 Subtable 0xa
0586 ; --------------------------------------------------------------------------------------
0586 0019 0000 | | .DBG3TAB 0x0019,0x0000
0588 0196 ffff | | .CONST 0x0196,0xffff
058a 0198 fffe | | .CONST 0x0198,0xfffe
058c 019b fffd | | .CONST 0x019b,0xfffd
058e 019e fffc | | .CONST 0x019e,0xfffc
0590 019f fffb | | .CONST 0x019f,0xfffb
0592 01a3 fffa | | .CONST 0x01a3,0xfffa
0594 01a5 fff9 | | .CONST 0x01a5,0xfff9
0596 01a7 fff8 | | .CONST 0x01a7,0xfff8
0598 01a9 fff7 | | .CONST 0x01a9,0xfff7
059a 01ab fff6 | | .CONST 0x01ab,0xfff6
059c 01ad fff5 | | .CONST 0x01ad,0xfff5
059e 01af fff4 | | .CONST 0x01af,0xfff4
05a0 01b8 fff3 | | .CONST 0x01b8,0xfff3
05a2 01ba fff2 | | .CONST 0x01ba,0xfff2
05a4 01bc fff1 | | .CONST 0x01bc,0xfff1
05a6 01be fff0 | | .CONST 0x01be,0xfff0
05a8 01c0 ffef | | .CONST 0x01c0,0xffef
05aa 01c2 ffee | | .CONST 0x01c2,0xffee
05ac 01c4 ffed | | .CONST 0x01c4,0xffed
05ae 01c6 ffec | | .CONST 0x01c6,0xffec
05b0 01c8 ffeb | | .CONST 0x01c8,0xffeb
05b2 01ca ffea | | .CONST 0x01ca,0xffea
05b4 01cc ffe9 | | .CONST 0x01cc,0xffe9
05b6 01ce ffe8 | | .CONST 0x01ce,0xffe8
05b8 01d0 ffe7 | | .CONST 0x01d0,0xffe7
05ba ; --------------------------------------------------------------------------------------
05ba ; Debug3 Subtable 0xb
05ba ; --------------------------------------------------------------------------------------
05ba 0000 0001 | | .DBG3TAB 0x0000,0x0001
05bc 01db 0001 | | .CONST 0x01db,0x0001
05be ; --------------------------------------------------------------------------------------
05be ; Debug3 Subtable 0xc
05be ; --------------------------------------------------------------------------------------
05be 0001 0002 | | .DBG3TAB 0x0001,0x0002
05c0 01eb ffff | | .CONST 0x01eb,0xffff
05c2 01f1 0001 | | .CONST 0x01f1,0x0001
05c4 01f6 0002 | | .CONST 0x01f6,0x0002
05c6 ; --------------------------------------------------------------------------------------
05c6 ; Debug3 Subtable 0xd
05c6 ; --------------------------------------------------------------------------------------
05c6 0001 0002 | | .DBG3TAB 0x0001,0x0002
05c8 0213 ffff | | .CONST 0x0213,0xffff
05ca 0219 0001 | | .CONST 0x0219,0x0001
05cc 0221 0002 | ! | .CONST 0x0221,0x0002
05ce ; --------------------------------------------------------------------------------------
05ce ; Debug3 Subtable 0xe
05ce ; --------------------------------------------------------------------------------------
05ce 0001 0005 | | .DBG3TAB 0x0001,0x0005
05d0 0233 ffff | 3 | .CONST 0x0233,0xffff
05d2 0239 0001 | 9 | .CONST 0x0239,0x0001
05d4 023f 0002 | ? | .CONST 0x023f,0x0002
05d6 0241 0003 | A | .CONST 0x0241,0x0003
05d8 0244 0004 | D | .CONST 0x0244,0x0004
05da 0246 0005 | F | .CONST 0x0246,0x0005
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug3 Subtable 0xf
05dc ; --------------------------------------------------------------------------------------
05dc 0000 0001 | | .DBG3TAB 0x0000,0x0001
05de 0253 0001 | S | .CONST 0x0253,0x0001
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug3 Subtable 0x10
05e0 ; --------------------------------------------------------------------------------------
05e0 0002 0006 | | .DBG3TAB 0x0002,0x0006
05e2 0263 ffff | c | .CONST 0x0263,0xffff
05e4 0264 fffe | d | .CONST 0x0264,0xfffe
05e6 0266 0001 | f | .CONST 0x0266,0x0001
05e8 026f 0002 | o | .CONST 0x026f,0x0002
05ea 0271 0003 | q | .CONST 0x0271,0x0003
05ec 0273 0004 | s | .CONST 0x0273,0x0004
05ee 027f 0005 | | .CONST 0x027f,0x0005
05f0 0281 0006 | | .CONST 0x0281,0x0006
05f2 ; --------------------------------------------------------------------------------------
05f2 ; Debug3 Subtable 0x11
05f2 ; --------------------------------------------------------------------------------------
05f2 0000 0002 | | .DBG3TAB 0x0000,0x0002
05f4 028b 0001 | | .CONST 0x028b,0x0001
05f6 0292 0002 | | .CONST 0x0292,0x0002
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug3 Subtable 0x12
05f8 ; --------------------------------------------------------------------------------------
05f8 0000 0002 | | .DBG3TAB 0x0000,0x0002
05fa 029c 0001 | | .CONST 0x029c,0x0001
05fc 02a0 0002 | | .CONST 0x02a0,0x0002
05fe ; --------------------------------------------------------------------------------------
05fe ; Debug3 Subtable 0x13
05fe ; --------------------------------------------------------------------------------------
05fe 0000 0002 | | .DBG3TAB 0x0000,0x0002
0600 02b6 0001 | | .CONST 0x02b6,0x0001
0602 02ba 0002 | | .CONST 0x02ba,0x0002
0604 ; --------------------------------------------------------------------------------------
0604 ; Debug3 Subtable 0x14
0604 ; --------------------------------------------------------------------------------------
0604 0000 0000 | | .DBG3TAB 0x0000,0x0000
0606 ; --------------------------------------------------------------------------------------
0606 ; Debug3 Subtable 0x15
0606 ; --------------------------------------------------------------------------------------
0606 0000 0000 | | .DBG3TAB 0x0000,0x0000
0608 ; --------------------------------------------------------------------------------------
0608 ; Debug3 Subtable 0x16
0608 ; --------------------------------------------------------------------------------------
0608 0000 0001 | | .DBG3TAB 0x0000,0x0001
060a 031b 0001 | | .CONST 0x031b,0x0001
060c ; --------------------------------------------------------------------------------------
060c ; Debug3 Subtable 0x17
060c ; --------------------------------------------------------------------------------------
060c 0000 0001 | | .DBG3TAB 0x0000,0x0001
060e 032b 0001 | + | .CONST 0x032b,0x0001
0610 ; --------------------------------------------------------------------------------------
0610 ; Debug3 Subtable 0x18
0610 ; --------------------------------------------------------------------------------------
0610 0000 0001 | | .DBG3TAB 0x0000,0x0001
0612 0343 0001 | C | .CONST 0x0343,0x0001
0614 ; --------------------------------------------------------------------------------------
0614 ; Debug3 Subtable 0x19
0614 ; --------------------------------------------------------------------------------------
0614 0000 0001 | | .DBG3TAB 0x0000,0x0001
0616 035b 0001 | [ | .CONST 0x035b,0x0001
0618 ; --------------------------------------------------------------------------------------
0618 ; Debug3 Subtable 0x1a
0618 ; --------------------------------------------------------------------------------------
0618 0000 0001 | | .DBG3TAB 0x0000,0x0001
061a 036b 0001 | k | .CONST 0x036b,0x0001
061c ; --------------------------------------------------------------------------------------
061c ; Debug3 Subtable 0x1b
061c ; --------------------------------------------------------------------------------------
061c 0000 0001 | | .DBG3TAB 0x0000,0x0001
061e 0373 0001 | s | .CONST 0x0373,0x0001
0620 ; --------------------------------------------------------------------------------------
0620 ; Debug3 Subtable 0x1c
0620 ; --------------------------------------------------------------------------------------
0620 0000 0000 | | .DBG3TAB 0x0000,0x0000
0622 ; --------------------------------------------------------------------------------------
0622 ; Debug3 Subtable 0x1d
0622 ; --------------------------------------------------------------------------------------
0622 0000 0001 | | .DBG3TAB 0x0000,0x0001
0624 038b 0001 | | .CONST 0x038b,0x0001
0626 ; --------------------------------------------------------------------------------------
0626 ; Debug3 Subtable 0x1e
0626 ; --------------------------------------------------------------------------------------
0626 0000 0003 | | .DBG3TAB 0x0000,0x0003
0628 039b 0001 | | .CONST 0x039b,0x0001
062a 039f 0002 | | .CONST 0x039f,0x0002
062c 03a1 0003 | | .CONST 0x03a1,0x0003
062e ; --------------------------------------------------------------------------------------
062e ; Debug3 Subtable 0x1f
062e ; --------------------------------------------------------------------------------------
062e 0001 0003 | | .DBG3TAB 0x0001,0x0003
0630 03b3 ffff | | .CONST 0x03b3,0xffff
0632 03b5 0001 | | .CONST 0x03b5,0x0001
0634 03ba 0002 | | .CONST 0x03ba,0x0002
0636 03c5 0003 | | .CONST 0x03c5,0x0003
0638 ; --------------------------------------------------------------------------------------
0638 ; Debug3 Subtable 0x20
0638 ; --------------------------------------------------------------------------------------
0638 0002 0003 | | .DBG3TAB 0x0002,0x0003
063a 03d3 ffff | | .CONST 0x03d3,0xffff
063c 03d9 fffe | | .CONST 0x03d9,0xfffe
063e 03dd 0001 | | .CONST 0x03dd,0x0001
0640 03e6 0002 | | .CONST 0x03e6,0x0002
0642 03ec 0003 | | .CONST 0x03ec,0x0003
0644 0000 0000 | | .BLANK 0000[0x1bc]