|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02d0 | | .CONST 0x02d0 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0064 | d | .CONST 0x0064 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0024 | $ | .CONST 0x0024 ; Number of locals
000b INIT_0008:
000b 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0 = .DEBUG 0x000b,0x0372,0xc000,0x0000,0x0055,0xb5f5,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4800 |H | Short_Literal 0x0
000d 4801 |H | Short_Literal 0x1
000e 4801 |H | Short_Literal 0x1
000f 4803 |H | Short_Literal 0x3
0010 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0011 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x1 = 0x11,0xfffe
0012 0129 | ) | Execute Any,Make_Visible
0013 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x13,0xfffd
0015 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x15,0xfffc
0017 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x17,0xfffb
0019 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x19,0xfffa
001b 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x1b,0xfff9
001d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1d,0xfff8
001f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1f,0xfff7
0021 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x21,0xfff6
0023 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x23,0xfff5
0025 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x25,0xfff4
0027 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x27,0xfff3
0029 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x29,0xfff2
002b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x2b,0xfff1
002d 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x2d,0xfff0
002f 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2f,0xffef
0031 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x11 = 0x31,0xffee
0033 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0.0x12 = 0x33,0xffed
; Debug Table 0x0.0x13 = 0x33,0xffec
; Debug Table 0x0.0x14 = 0x33,0xffeb
; Debug Table 0x0.0x15 = 0x33,0xffea
; Debug Table 0x0.0x16 = 0x33,0xffe9
; Debug Table 0x0.0x17 = 0x33,0xffe8
; Debug Table 0x0.0x18 = 0x33,0xffe7
; Debug Table 0x0.0x19 = 0x33,0xffe6
; Debug Table 0x0.0x1a = 0x33,0xffe5
; Debug Table 0x0.0x1b = 0x33,0xffe4
; Debug Table 0x0.0x1c = 0x33,0xffe3
0034 0266 | f | Execute Discrete,Bounds
0035 e20f | | Load 0x1,0xf
0036 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0038 4801 |H | Short_Literal 0x1
0039 0350 | P | Declare_Type Array,Defined,Bounds_With_Object
003a 00e4 | | Load_Encached Positive_Cache ; Debug Table 0x0.0x1d = 0x3a,0xffe2
003b 00d9 | | Load_Top At_Offset_1
003c 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
003e 4800 |H | Short_Literal 0x0
003f 4801 |H | Short_Literal 0x1
0040 4801 |H | Short_Literal 0x1
0041 e212 | | Load 0x1,0x12
0042 0307 | | Complete_Type Variant_Record,By_Defining
0043 00bf | | Action Accept_Activation
0044 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1 = .DEBUG 0x0044,0x03b0,0xc000,0x0000,0x0055,0xbaf5,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x44,0xffff
; Debug Table 0x1.0x1 = 0x44,0xfffe
0045 00c7 | | Action Elaborate_Subprogram
0046 1d20 | | Execute_Immediate Reference_Lex_1,0x20 ; Debug Table 0x1.0x2 = 0x46,0xfffd
0047 00c7 | | Action Elaborate_Subprogram
0048 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 ; Debug Table 0x1.0x3 = 0x48,0xfffc
0049 00c7 | | Action Elaborate_Subprogram
004a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0x4 = 0x4a,0xfffb
004b 00c7 | | Action Elaborate_Subprogram
004c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 ; Debug Table 0x1.0x5 = 0x4c,0xfffa
004d 00c7 | | Action Elaborate_Subprogram
004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x6 = 0x4e,0xfff9
004f 00c7 | | Action Elaborate_Subprogram
0050 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x7 = 0x50,0xfff8
0051 00c7 | | Action Elaborate_Subprogram
0052 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x52,0xfff7
0053 00c7 | | Action Elaborate_Subprogram
0054 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x9 = 0x54,0xfff6
0055 00c7 | | Action Elaborate_Subprogram
0056 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xa = 0x56,0xfff5
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xb = 0x58,0xfff4
0059 00c7 | | Action Elaborate_Subprogram
005a 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xc = 0x5a,0xfff3
005b 00c7 | | Action Elaborate_Subprogram
005c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xd = 0x5c,0xfff2
005d 00c7 | | Action Elaborate_Subprogram
005e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xe = 0x5e,0xfff1
005f 00c7 | | Action Elaborate_Subprogram
0060 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xf = 0x60,0xfff0
0061 00c7 | | Action Elaborate_Subprogram
0062 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x10 = 0x62,0xffef
0063 00c7 | | Action Elaborate_Subprogram
0064 BODY_0008:
0064 00bc | | Action Signal_Activated
0065 00bb | | Action Signal_Completion
0066 0000 0000 | | .XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x2 = .DEBUG 0x006b,0x03d4,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0023
; Debug Table 0x2.0x0 = 0x6b,0x1
006c 0000 0000 | | .BLANK 0000[0x4]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00cf | | Action Mark_Auxiliary ; Debug Table 0x3 = .DEBUG 0x0073,0x03d8,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x002b
0074 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x0 = 0x74,0x1
0075 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0076 0aff | | Execute_Immediate Plus,-0x1
0077 0248 | H | Execute Discrete,Check_In_Integer
0078 4801 |H | Short_Literal 0x1
0079 0263 | c | Execute Discrete,Above_Bound
007a 700d |p | Jump_Nonzero 0x88
007b e5ff | | Load 0x2,-0x1 ; Debug Table 0x3.0x1 = 0x7b,0x2
007c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
007d 00d9 | | Load_Top At_Offset_1
007e 00d8 | | Load_Top At_Offset_0
007f 00da | | Load_Top At_Offset_2
0080 01d7 | | Execute Vector,Field_Read
0081 8211 | | Call 0x1,0x11
0082 00d9 | | Load_Top At_Offset_1
0083 00db | | Load_Top At_Offset_3
0084 01d6 | | Execute Vector,Field_Write
0085 00d2 | | Pop_Control Pop_Count_2
0086 00c8 | | Action Pop_Auxiliary_Range
0087 3ff3 |? | Loop_Increasing 0x7b
0088 00ce | | Action Pop_Auxiliary
0089 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x2 = 0x89,0x3
008a 00db | | Load_Top At_Offset_3
008b 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
008c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0093,0x03e0,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x0033
; Debug Table 0x4.0x0 = 0x93,0x1
0094 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0095 0f01 | | Execute_Immediate Equal,0x1
0096 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x009b,0x03e4,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x003c
; Debug Table 0x5.0x0 = 0x9b,0x1
009c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009d 0aff | | Execute_Immediate Plus,-0x1
009e 00e3 | | Load_Encached Natural_Cache
009f 025b | [ | Execute Discrete,Check_In_Type
00a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a1 0000 0000 | | .BLANK 0000[0x7]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 00db | | Load_Top At_Offset_3 ; Debug Table 0x6 = .DEBUG 0x00ab,0x03e8,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0045
; Debug Table 0x6.0x0 = 0xab,0x1
00ac 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ad e5fe | | Load 0x2,-0x2
00ae 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00af 01dc | | Execute Vector,Last
00b0 027d | } | Execute Discrete,Greater
00b1 6823 |h# | Jump_Zero 0xd5
00b2 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x1 = 0xb2,0x2
00b3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00b4 4801 |H | Short_Literal 0x1
00b5 00d9 | | Load_Top At_Offset_1
00b6 01d7 | | Execute Vector,Field_Read
00b7 8211 | | Call 0x1,0x11
00b8 4801 |H | Short_Literal 0x1
00b9 00da | | Load_Top At_Offset_2
00ba 01d6 | | Execute Vector,Field_Write
00bb 00d1 | | Pop_Control Pop_Count_1
00bc 4802 |H | Short_Literal 0x2 ; Debug Table 0x6.0x2 = 0xbc,0x3
00bd e5fe | | Load 0x2,-0x2
00be 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00bf 0aff | | Execute_Immediate Plus,-0x1
00c0 0248 | H | Execute Discrete,Check_In_Integer
00c1 e5fe | | Load 0x2,-0x2
00c2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00c3 01cf | | Execute Vector,Slice_Read
00c4 4801 |H | Short_Literal 0x1
00c5 e5fe | | Load 0x2,-0x2
00c6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c7 0afe | | Execute_Immediate Plus,-0x2
00c8 0248 | H | Execute Discrete,Check_In_Integer
00c9 e5fe | | Load 0x2,-0x2
00ca 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00cb 01ce | | Execute Vector,Slice_Write
00cc 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x3 = 0xcc,0x4
00cd e5fe | | Load 0x2,-0x2
00ce 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00cf 0aff | | Execute_Immediate Plus,-0x1
00d0 0248 | H | Execute Discrete,Check_In_Integer
00d1 e5fe | | Load 0x2,-0x2
00d2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00d3 01d6 | | Execute Vector,Field_Write
00d4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00d5 00da | | Load_Top At_Offset_2 ; Debug Table 0x6.0x4 = 0xd5,0x5
00d6 e5fe | | Load 0x2,-0x2
00d7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00d8 e5fe | | Load 0x2,-0x2
00d9 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00da 01d6 | | Execute Vector,Field_Write
00db 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x5 = 0xdb,0x6
00dc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00dd 0a01 | | Execute_Immediate Plus,0x1
00de e5fe | | Load 0x2,-0x2
00df 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ec | | .CONST 0x00ec ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb e213 | | Load 0x1,0x13 ; Debug Table 0x7 = .DEBUG 0x00eb,0x03f6,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0051
; Debug Table 0x7.0x0 = 0xeb,0xffff
00ec BODY_00e8:
00ec e213 | | Load 0x1,0x13 ; Debug Table 0x7.0x1 = 0xec,0x1
00ed e5fe | | Load 0x2,-0x2
00ee 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x7.0x2 = 0xee,0x401
; Debug Table 0x7.0x3 = 0xee,0x403
00ef 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00f0 0aff | | Execute_Immediate Plus,-0x1
00f1 e213 | | Load 0x1,0x13
00f2 025b | [ | Execute Discrete,Check_In_Type
00f3 a403 | | Store_Unchecked 0x2,0x3
00f4 00d1 | | Pop_Control Pop_Count_1
00f5 0059 | Y | Store_Top Discrete,At_Offset_1
00f6 00cf | | Action Mark_Auxiliary
00f7 7819 |x | Jump 0x111
00f8 e5ff | | Load 0x2,-0x1 ; Debug Table 0x7.0x4 = 0xf8,0x3
00f9 00da | | Load_Top At_Offset_2 ; Debug Table 0x7.0x5 = 0xf9,0x801
00fa 00e4 | | Load_Encached Positive_Cache
00fb 025b | [ | Execute Discrete,Check_In_Type
00fc e5fe | | Load 0x2,-0x2
00fd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00fe 01d7 | | Execute Vector,Field_Read
00ff e20f | | Load 0x1,0xf
0100 0119 | | Execute Any,Check_In_Formal_Type
0101 012f | / | Execute Any,Equal ; Debug Table 0x7.0x6 = 0x101,0x3
0102 6806 |h | Jump_Zero 0x109
0103 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x7 = 0x103,0x4
0104 e5fe | | Load 0x2,-0x2
0105 821b | | Call 0x1,0x1b
0106 00d1 | | Pop_Control Pop_Count_1
0107 005a | Z | Store_Top Discrete,At_Offset_2
0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x7.0x8 = 0x108,0x5
0109 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0x9 = 0x109,0x6
010a e5fe | | Load 0x2,-0x2
010b 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xa = 0x10b,0xc01
010c 0aff | | Execute_Immediate Plus,-0x1
010d c404 | | Store 0x2,0x4
010e 00d1 | | Pop_Control Pop_Count_1
010f 005a | Z | Store_Top Discrete,At_Offset_2
0110 00c9 | | Action Pop_Auxiliary_Loop
0111 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x7.0xb = 0x111,0x2
; Debug Table 0x7.0xc = 0x111,0x1001
0112 e5fe | | Load 0x2,-0x2
0113 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0114 027b | { | Execute Discrete,Greater_Equal
0115 7003 |p | Jump_Nonzero 0x119
0116 00d9 | | Load_Top At_Offset_1
0117 0d01 | | Execute_Immediate Less,0x1
0118 7801 |x | Jump 0x11a
0119 4801 |H | Short_Literal 0x1
011a 6fdd |o | Jump_Zero 0xf8 ; Debug Table 0x7.0xd = 0x11a,0x2
011b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011c 0000 0000 | | .BLANK 0000[0x4]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 012c | , | .CONST 0x012c ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0002 | | .CONST 0x0002 ; Number of locals
0123 INIT_0120:
0123 e20f | | Load 0x1,0xf ; Debug Table 0x8 = .DEBUG 0x0123,0x0414,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x005d
; Debug Table 0x8.0x0 = 0x123,0xffff
0124 02c7 | | Declare_Variable Any
0125 e5fe | | Load 0x2,-0x2
0126 00e4 | | Load_Encached Positive_Cache
0127 025b | [ | Execute Discrete,Check_In_Type
0128 e5ff | | Load 0x2,-0x1
0129 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
012a 01d7 | | Execute Vector,Field_Read
012b c402 | | Store 0x2,0x2
012c BODY_0120:
012c e5fe | | Load 0x2,-0x2 ; Debug Table 0x8.0x1 = 0x12c,0x1
012d e5ff | | Load 0x2,-0x1
012e 821b | | Call 0x1,0x1b
012f 00d1 | | Pop_Control Pop_Count_1
0130 c5fe | | Store 0x2,-0x2
0131 00db | | Load_Top At_Offset_3 ; Debug Table 0x8.0x2 = 0x131,0x2
0132 00d9 | | Load_Top At_Offset_1
0133 e20f | | Load 0x1,0xf
0134 0119 | | Execute Any,Check_In_Formal_Type
0135 8218 | | Call 0x1,0x18
0136 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0137 0000 | | .XXX[0x1]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x013b,0x041c,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0069
; Debug Table 0x9.0x0 = 0x13b,0x1
013c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
013d e5fe | | Load 0x2,-0x2
013e 00e4 | | Load_Encached Positive_Cache
013f 025b | [ | Execute Discrete,Check_In_Type
0140 00d8 | | Load_Top At_Offset_0
0141 00da | | Load_Top At_Offset_2
0142 01d7 | | Execute Vector,Field_Read
0143 8211 | | Call 0x1,0x11
0144 00d9 | | Load_Top At_Offset_1
0145 00db | | Load_Top At_Offset_3
0146 01d6 | | Execute Vector,Field_Write
0147 00d2 | | Pop_Control Pop_Count_2
0148 00da | | Load_Top At_Offset_2 ; Debug Table 0x9.0x1 = 0x148,0x2
0149 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
014a 0aff | | Execute_Immediate Plus,-0x1
014b 00db | | Load_Top At_Offset_3
014c 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
014d 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x2 = 0x14d,0x3
014e 00e4 | | Load_Encached Positive_Cache
014f 025b | [ | Execute Discrete,Check_In_Type
0150 0a01 | | Execute_Immediate Plus,0x1
0151 0248 | H | Execute Discrete,Check_In_Integer
0152 00db | | Load_Top At_Offset_3
0153 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0154 e5ff | | Load 0x2,-0x1
0155 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0156 01cf | | Execute Vector,Slice_Read
0157 e5fe | | Load 0x2,-0x2
0158 00e4 | | Load_Encached Positive_Cache
0159 025b | [ | Execute Discrete,Check_In_Type
015a e5ff | | Load 0x2,-0x1
015b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
015c 0aff | | Execute_Immediate Plus,-0x1
015d 0248 | H | Execute Discrete,Check_In_Integer
015e e5ff | | Load 0x2,-0x1
015f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0160 01ce | | Execute Vector,Slice_Write
0161 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x3 = 0x161,0x4
0162 0aff | | Execute_Immediate Plus,-0x1
0163 c5fe | | Store 0x2,-0x2
0164 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x016b,0x0426,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0075
; Debug Table 0xa.0x0 = 0x16b,0x1
016c 0c01 | | Execute_Immediate Greater_Equal,0x1
016d 6830 |h0 | Jump_Zero 0x19e
016e 00cf | | Action Mark_Auxiliary ; Debug Table 0xa.0x1 = 0x16e,0x2
016f 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x2 = 0x16f,0xfbff
0170 e5ff | | Load 0x2,-0x1
0171 e224 | $ | Load 0x1,0x24
0172 0334 | 4 | Declare_Variable Array,With_Constraint
0173 e5fe | | Load 0x2,-0x2
0174 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0175 e5ff | | Load 0x2,-0x1
0176 0272 | r | Execute Discrete,Minus
0177 0248 | H | Execute Discrete,Check_In_Integer
0178 e5fe | | Load 0x2,-0x2
0179 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
017a 0aff | | Execute_Immediate Plus,-0x1
017b 0248 | H | Execute Discrete,Check_In_Integer
017c e5fe | | Load 0x2,-0x2
017d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
017e 01cf | | Execute Vector,Slice_Read
017f 00d9 | | Load_Top At_Offset_1
0180 01d4 | | Execute Vector,Structure_Write
0181 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x3 = 0x181,0x401
0182 e5fe | | Load 0x2,-0x2
0183 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0184 e5ff | | Load 0x2,-0x1
0185 0272 | r | Execute Discrete,Minus
0186 0aff | | Execute_Immediate Plus,-0x1
0187 0248 | H | Execute Discrete,Check_In_Integer
0188 e5fe | | Load 0x2,-0x2
0189 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
018a 01cf | | Execute Vector,Slice_Read
018b e5ff | | Load 0x2,-0x1
018c 0a01 | | Execute_Immediate Plus,0x1
018d 0248 | H | Execute Discrete,Check_In_Integer
018e e5fe | | Load 0x2,-0x2
018f 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0190 0aff | | Execute_Immediate Plus,-0x1
0191 0248 | H | Execute Discrete,Check_In_Integer
0192 e5fe | | Load 0x2,-0x2
0193 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0194 01ce | | Execute Vector,Slice_Write
0195 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x4 = 0x195,0x402
0196 4801 |H | Short_Literal 0x1
0197 e5ff | | Load 0x2,-0x1
0198 e5fe | | Load 0x2,-0x2
0199 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
019a 01ce | | Execute Vector,Slice_Write
019b 00d1 | | Pop_Control Pop_Count_1
019c 00ce | | Action Pop_Auxiliary
019d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
019e 00cf | | Action Mark_Auxiliary ; Debug Table 0xa.0x5 = 0x19e,0x3
019f 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x6 = 0x19f,0xf7ff
01a0 0275 | u | Execute Discrete,Unary_Minus
01a1 00e3 | | Load_Encached Natural_Cache
01a2 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01a3 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x7 = 0x1a3,0xf7fe
01a4 00d9 | | Load_Top At_Offset_1
01a5 e224 | $ | Load 0x1,0x24
01a6 0334 | 4 | Declare_Variable Array,With_Constraint
01a7 4801 |H | Short_Literal 0x1
01a8 00da | | Load_Top At_Offset_2
01a9 e5fe | | Load 0x2,-0x2
01aa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01ab 01cf | | Execute Vector,Slice_Read
01ac 00d9 | | Load_Top At_Offset_1
01ad 01d4 | | Execute Vector,Structure_Write
01ae 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xa.0x8 = 0x1ae,0x801
01af 0a01 | | Execute_Immediate Plus,0x1
01b0 0248 | H | Execute Discrete,Check_In_Integer
01b1 e5fe | | Load 0x2,-0x2
01b2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b3 0aff | | Execute_Immediate Plus,-0x1
01b4 0248 | H | Execute Discrete,Check_In_Integer
01b5 e5fe | | Load 0x2,-0x2
01b6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01b7 01cf | | Execute Vector,Slice_Read
01b8 4801 |H | Short_Literal 0x1
01b9 e5fe | | Load 0x2,-0x2
01ba 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01bb e403 | | Load 0x2,0x3
01bc 0272 | r | Execute Discrete,Minus
01bd 0aff | | Execute_Immediate Plus,-0x1
01be 0248 | H | Execute Discrete,Check_In_Integer
01bf e5fe | | Load 0x2,-0x2
01c0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01c1 01ce | | Execute Vector,Slice_Write
01c2 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x9 = 0x1c2,0x802
01c3 e5fe | | Load 0x2,-0x2
01c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01c5 00db | | Load_Top At_Offset_3
01c6 0272 | r | Execute Discrete,Minus
01c7 0248 | H | Execute Discrete,Check_In_Integer
01c8 e5fe | | Load 0x2,-0x2
01c9 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01ca 0aff | | Execute_Immediate Plus,-0x1
01cb 0248 | H | Execute Discrete,Check_In_Integer
01cc e5fe | | Load 0x2,-0x2
01cd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01ce 01ce | | Execute Vector,Slice_Write
01cf 00d2 | | Pop_Control Pop_Count_2
01d0 00ce | | Action Pop_Auxiliary
01d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01d2 0000 0000 | | .BLANK 0000[0x6]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01ea | | .CONST 0x01ea ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0004 | | .CONST 0x0004 ; Number of locals
01db INIT_01d8:
01db e20f | | Load 0x1,0xf ; Debug Table 0xb = .DEBUG 0x01db,0x043c,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0082
; Debug Table 0xb.0x0 = 0x1db,0xffff
01dc 02c7 | | Declare_Variable Any
01dd 00d8 | | Load_Top At_Offset_0
01de 1c00 | | Execute_Immediate Run_Utility,0x0
01df 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x1 = 0x1df,0xfffe
01e0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01e1 0aff | | Execute_Immediate Plus,-0x1
01e2 0248 | H | Execute Discrete,Check_In_Integer
01e3 00e2 | | Load_Encached Integer_Cache
01e4 03f1 | | Declare_Variable Discrete,With_Value
01e5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x2 = 0x1e5,0xfffd
01e6 0aff | | Execute_Immediate Plus,-0x1
01e7 0248 | H | Execute Discrete,Check_In_Integer
01e8 00e2 | | Load_Encached Integer_Cache
01e9 03f1 | | Declare_Variable Discrete,With_Value
01ea BODY_01d8:
01ea 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xb.0x3 = 0x1ea,0x1
01eb e5ff | | Load 0x2,-0x1
01ec 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01ed 01d7 | | Execute Vector,Field_Read
01ee c402 | | Store 0x2,0x2
01ef 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xb.0x4 = 0x1ef,0x2
01f0 e5ff | | Load 0x2,-0x1
01f1 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01f2 01d7 | | Execute Vector,Field_Read
01f3 00da | | Load_Top At_Offset_2
01f4 e5ff | | Load 0x2,-0x1
01f5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01f6 01d6 | | Execute Vector,Field_Write
01f7 00da | | Load_Top At_Offset_2 ; Debug Table 0xb.0x5 = 0x1f7,0x3
01f8 00d9 | | Load_Top At_Offset_1
01f9 e5ff | | Load 0x2,-0x1
01fa 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01fb 01d6 | | Execute Vector,Field_Write
01fc 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0203,0x044a,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x008a
; Debug Table 0xc.0x0 = 0x203,0x1
0204 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0205 0aff | | Execute_Immediate Plus,-0x1
0206 0248 | H | Execute Discrete,Check_In_Integer
0207 00db | | Load_Top At_Offset_3
0208 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0209 01d7 | | Execute Vector,Field_Read
020a 00d8 | | Load_Top At_Offset_0
020b 0120 | | Execute Any,Is_Value
020c 7002 |p | Jump_Nonzero 0x20f
020d 00d8 | | Load_Top At_Offset_0
020e 011e | | Execute Any,Convert
020f e20f | | Load 0x1,0xf
0210 0119 | | Execute Any,Check_In_Formal_Type
0211 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021b | | .CONST 0x021b ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0001 | | .CONST 0x0001 ; Number of locals
021b BODY_0218:
021b INIT_0218:
021b 00db | | Load_Top At_Offset_3 ; Debug Table 0xd = .DEBUG 0x021b,0x044e,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0093
; Debug Table 0xd.0x0 = 0x21b,0x1
021c 6803 |h | Jump_Zero 0x220
021d 4801 |H | Short_Literal 0x1 ; Debug Table 0xd.0x1 = 0x21d,0x2
021e a5fd | | Store_Unchecked 0x2,-0x3
021f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0220 00da | | Load_Top At_Offset_2 ; Debug Table 0xd.0x2 = 0x220,0x3
0221 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0222 0aff | | Execute_Immediate Plus,-0x1
0223 e213 | | Load 0x1,0x13
0224 025b | [ | Execute Discrete,Check_In_Type
0225 a5fd | | Store_Unchecked 0x2,-0x3
0226 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b 00db | | Load_Top At_Offset_3 ; Debug Table 0xe = .DEBUG 0x022b,0x0456,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x00a4
; Debug Table 0xe.0x0 = 0x22b,0x1
022c 0aff | | Execute_Immediate Plus,-0x1
022d c5fe | | Store 0x2,-0x2
022e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00db | | Load_Top At_Offset_3 ; Debug Table 0xf = .DEBUG 0x0233,0x045a,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x00b0
; Debug Table 0xf.0x0 = 0x233,0x1
0234 0a01 | | Execute_Immediate Plus,0x1
0235 c5fe | | Store 0x2,-0x2
0236 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x023b,0x045e,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x00bc
; Debug Table 0x10.0x0 = 0x23b,0x1
023c 00e4 | | Load_Encached Positive_Cache
023d 025b | [ | Execute Discrete,Check_In_Type
023e e5fe | | Load 0x2,-0x2
023f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0240 01d7 | | Execute Vector,Field_Read
0241 00d8 | | Load_Top At_Offset_0
0242 0120 | | Execute Any,Is_Value
0243 7002 |p | Jump_Nonzero 0x246
0244 00d8 | | Load_Top At_Offset_0
0245 011e | | Execute Any,Convert
0246 e20f | | Load 0x1,0xf
0247 0119 | | Execute Any,Check_In_Formal_Type
0248 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0249 0000 0000 | | .BLANK 0000[0x7]
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 0x11 = .DEBUG 0x0253,0x0462,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x00c9
; Debug Table 0x11.0x0 = 0x253,0x1
0254 e5fe | | Load 0x2,-0x2
0255 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0256 027b | { | Execute Discrete,Greater_Equal
0257 7003 |p | Jump_Nonzero 0x25b
0258 00da | | Load_Top At_Offset_2
0259 0d01 | | Execute_Immediate Less,0x1
025a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025b 4801 |H | Short_Literal 0x1
025c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x12 = .DEBUG 0x0263,0x0466,0x1005,0x0000,0x0055,0xb5f5,0x0000,0x0103
0264 00da | | Load_Top At_Offset_2
0265 01dc | | Execute Vector,Last
0266 00db | | Load_Top At_Offset_3
0267 01dd | | Execute Vector,First
0268 0263 | c | Execute Discrete,Above_Bound
0269 700a |p | Jump_Nonzero 0x274
026a 00d8 | | Load_Top At_Offset_0
026b e5ff | | Load 0x2,-0x1
026c 01d5 | | Execute Vector,Field_Reference
026d 0125 | % | Execute Any,Set_Constraint
026e 00d8 | | Load_Top At_Offset_0
026f e5ff | | Load 0x2,-0x1
0270 01d5 | | Execute Vector,Field_Reference
0271 1c00 | | Execute_Immediate Run_Utility,0x0
0272 0a01 | | Execute_Immediate Plus,0x1
0273 7ff4 | | Jump 0x268
0274 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 4608 |F | Jump_Case 0x9 ; Debug Table 0x13 = .DEBUG 0x027b,0x0468,0x1005,0x0000,0x0055,0xb5f5,0x0000,0x010c
027c 7808 |x | Jump 0x285 ; case 0x0
027d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
027e 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x2
027f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x3
0280 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x4
0281 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x5
0282 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x6
0283 7836 |x6 | Jump 0x2ba ; case 0x7
0284 783e |x> | Jump 0x2c3 ; case 0x8
0285 00da | | Load_Top At_Offset_2
0286 016c | l | Execute Variant_Record,Is_Constrained
0287 7009 |p | Jump_Nonzero 0x291
0288 00cf | | Action Mark_Auxiliary
0289 480a |H | Short_Literal 0xa
028a e5ff | | Load 0x2,-0x1
028b 1c08 | | Execute_Immediate Run_Utility,0x8
028c 00d8 | | Load_Top At_Offset_0
028d 1c00 | | Execute_Immediate Run_Utility,0x0
028e c5ff | | Store 0x2,-0x1
028f 00ce | | Action Pop_Auxiliary
0290 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0291 00da | | Load_Top At_Offset_2
0292 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0293 01da | | Execute Vector,Bounds
0294 e224 | $ | Load 0x1,0x24
0295 035b | [ | Declare_Type Array,Constrained
0296 0337 | 7 | Declare_Variable Array
0297 00d8 | | Load_Top At_Offset_0
0298 01d9 | | Execute Vector,Reverse_Bounds
0299 0263 | c | Execute Discrete,Above_Bound
029a 7007 |p | Jump_Nonzero 0x2a2
029b e210 | | Load 0x1,0x10
029c e20f | | Load 0x1,0xf
029d 0119 | | Execute Any,Check_In_Formal_Type
029e 00d9 | | Load_Top At_Offset_1
029f e402 | | Load 0x2,0x2
02a0 01d6 | | Execute Vector,Field_Write
02a1 3ff9 |? | Loop_Increasing 0x29b
02a2 00db | | Load_Top At_Offset_3
02a3 00d8 | | Load_Top At_Offset_0
02a4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a5 00da | | Load_Top At_Offset_2
02a6 01da | | Execute Vector,Bounds
02a7 00da | | Load_Top At_Offset_2
02a8 01da | | Execute Vector,Bounds
02a9 00da | | Load_Top At_Offset_2
02aa 027f | | Execute Discrete,Equal
02ab 7002 |p | Jump_Nonzero 0x2ae
02ac 48e0 |H | Short_Literal 0xe0
02ad 0257 | W | Execute Discrete,Raise
02ae 00d0 | | Action Swap_Control
02af 00d1 | | Pop_Control Pop_Count_1
02b0 027f | | Execute Discrete,Equal
02b1 7002 |p | Jump_Nonzero 0x2b4
02b2 48e0 |H | Short_Literal 0xe0
02b3 0257 | W | Execute Discrete,Raise
02b4 00d1 | | Pop_Control Pop_Count_1
02b5 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
02b6 4801 |H | Short_Literal 0x1
02b7 00db | | Load_Top At_Offset_3
02b8 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b9 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02ba 00db | | Load_Top At_Offset_3
02bb 4801 |H | Short_Literal 0x1
02bc e5fe | | Load 0x2,-0x2
02bd e224 | $ | Load 0x1,0x24
02be 035b | [ | Declare_Type Array,Constrained
02bf 4801 |H | Short_Literal 0x1
02c0 e5ff | | Load 0x2,-0x1
02c1 031b | | Declare_Type Variant_Record,Constrained
02c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02c3 00db | | Load_Top At_Offset_3
02c4 00db | | Load_Top At_Offset_3
02c5 02fc | | Declare_Variable Variant_Record,With_Constraint
02c6 4801 |H | Short_Literal 0x1
02c7 e5fe | | Load 0x2,-0x2
02c8 e224 | $ | Load 0x1,0x24
02c9 0334 | 4 | Declare_Variable Array,With_Constraint
02ca 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
02cb 016a | j | QQ_execute Variant_Record,XXX
02cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; Debug Table
02d0 ; --------------------------------------------------------------------------------------
02d0 0003 0014 | | .CONST 0x0003,0x0014
02d2 000b 0372 | r| .DEBUG 0x000b,0x0372,0xc000,0x0000,0x0055,0xb5f5,0x0000,0x0003
02da 0044 03b0 | D | .DEBUG 0x0044,0x03b0,0xc000,0x0000,0x0055,0xbaf5,0x0000,0x0003
02e2 006b 03d4 | k | .DEBUG 0x006b,0x03d4,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0023
02ea 0073 03d8 | s | .DEBUG 0x0073,0x03d8,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x002b
02f2 0093 03e0 | | .DEBUG 0x0093,0x03e0,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x0033
02fa 009b 03e4 | | .DEBUG 0x009b,0x03e4,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x003c
0302 00ab 03e8 | | .DEBUG 0x00ab,0x03e8,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0045
030a 00eb 03f6 | | .DEBUG 0x00eb,0x03f6,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0051
0312 0123 0414 | # | .DEBUG 0x0123,0x0414,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x005d
031a 013b 041c | ; | .DEBUG 0x013b,0x041c,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0069
0322 016b 0426 | k &| .DEBUG 0x016b,0x0426,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0075
032a 01db 043c | <| .DEBUG 0x01db,0x043c,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0082
0332 0203 044a | J| .DEBUG 0x0203,0x044a,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x008a
033a 021b 044e | N| .DEBUG 0x021b,0x044e,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x0093
0342 022b 0456 | + V| .DEBUG 0x022b,0x0456,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x00a4
034a 0233 045a | 3 Z| .DEBUG 0x0233,0x045a,0x1001,0x0000,0x0055,0xb5f5,0x0000,0x00b0
0352 023b 045e | ; ^| .DEBUG 0x023b,0x045e,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x00bc
035a 0253 0462 | S b| .DEBUG 0x0253,0x0462,0x1002,0x0000,0x0055,0xb5f5,0x0000,0x00c9
0362 0263 0466 | c f| .DEBUG 0x0263,0x0466,0x1005,0x0000,0x0055,0xb5f5,0x0000,0x0103
036a 027b 0468 | { h| .DEBUG 0x027b,0x0468,0x1005,0x0000,0x0055,0xb5f5,0x0000,0x010c
0372 ; --------------------------------------------------------------------------------------
0372 ; Debug3 Subtable 0x0
0372 ; --------------------------------------------------------------------------------------
0372 001e 0000 | | .DBG3TAB 0x001e,0x0000
0374 000b ffff | | .CONST 0x000b,0xffff
0376 0011 fffe | | .CONST 0x0011,0xfffe
0378 0013 fffd | | .CONST 0x0013,0xfffd
037a 0015 fffc | | .CONST 0x0015,0xfffc
037c 0017 fffb | | .CONST 0x0017,0xfffb
037e 0019 fffa | | .CONST 0x0019,0xfffa
0380 001b fff9 | | .CONST 0x001b,0xfff9
0382 001d fff8 | | .CONST 0x001d,0xfff8
0384 001f fff7 | | .CONST 0x001f,0xfff7
0386 0021 fff6 | ! | .CONST 0x0021,0xfff6
0388 0023 fff5 | # | .CONST 0x0023,0xfff5
038a 0025 fff4 | % | .CONST 0x0025,0xfff4
038c 0027 fff3 | ' | .CONST 0x0027,0xfff3
038e 0029 fff2 | ) | .CONST 0x0029,0xfff2
0390 002b fff1 | + | .CONST 0x002b,0xfff1
0392 002d fff0 | - | .CONST 0x002d,0xfff0
0394 002f ffef | / | .CONST 0x002f,0xffef
0396 0031 ffee | 1 | .CONST 0x0031,0xffee
0398 0033 ffed | 3 | .CONST 0x0033,0xffed
039a 0033 ffec | 3 | .CONST 0x0033,0xffec
039c 0033 ffeb | 3 | .CONST 0x0033,0xffeb
039e 0033 ffea | 3 | .CONST 0x0033,0xffea
03a0 0033 ffe9 | 3 | .CONST 0x0033,0xffe9
03a2 0033 ffe8 | 3 | .CONST 0x0033,0xffe8
03a4 0033 ffe7 | 3 | .CONST 0x0033,0xffe7
03a6 0033 ffe6 | 3 | .CONST 0x0033,0xffe6
03a8 0033 ffe5 | 3 | .CONST 0x0033,0xffe5
03aa 0033 ffe4 | 3 | .CONST 0x0033,0xffe4
03ac 0033 ffe3 | 3 | .CONST 0x0033,0xffe3
03ae 003a ffe2 | : | .CONST 0x003a,0xffe2
03b0 ; --------------------------------------------------------------------------------------
03b0 ; Debug3 Subtable 0x1
03b0 ; --------------------------------------------------------------------------------------
03b0 0011 0000 | | .DBG3TAB 0x0011,0x0000
03b2 0044 ffff | D | .CONST 0x0044,0xffff
03b4 0044 fffe | D | .CONST 0x0044,0xfffe
03b6 0046 fffd | F | .CONST 0x0046,0xfffd
03b8 0048 fffc | H | .CONST 0x0048,0xfffc
03ba 004a fffb | J | .CONST 0x004a,0xfffb
03bc 004c fffa | L | .CONST 0x004c,0xfffa
03be 004e fff9 | N | .CONST 0x004e,0xfff9
03c0 0050 fff8 | P | .CONST 0x0050,0xfff8
03c2 0052 fff7 | R | .CONST 0x0052,0xfff7
03c4 0054 fff6 | T | .CONST 0x0054,0xfff6
03c6 0056 fff5 | V | .CONST 0x0056,0xfff5
03c8 0058 fff4 | X | .CONST 0x0058,0xfff4
03ca 005a fff3 | Z | .CONST 0x005a,0xfff3
03cc 005c fff2 | \ | .CONST 0x005c,0xfff2
03ce 005e fff1 | ^ | .CONST 0x005e,0xfff1
03d0 0060 fff0 | ` | .CONST 0x0060,0xfff0
03d2 0062 ffef | b | .CONST 0x0062,0xffef
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0x2
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03d6 006b 0001 | k | .CONST 0x006b,0x0001
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug3 Subtable 0x3
03d8 ; --------------------------------------------------------------------------------------
03d8 0000 0003 | | .DBG3TAB 0x0000,0x0003
03da 0074 0001 | t | .CONST 0x0074,0x0001
03dc 007b 0002 | { | .CONST 0x007b,0x0002
03de 0089 0003 | | .CONST 0x0089,0x0003
03e0 ; --------------------------------------------------------------------------------------
03e0 ; Debug3 Subtable 0x4
03e0 ; --------------------------------------------------------------------------------------
03e0 0000 0001 | | .DBG3TAB 0x0000,0x0001
03e2 0093 0001 | | .CONST 0x0093,0x0001
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0x5
03e4 ; --------------------------------------------------------------------------------------
03e4 0000 0001 | | .DBG3TAB 0x0000,0x0001
03e6 009b 0001 | | .CONST 0x009b,0x0001
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug3 Subtable 0x6
03e8 ; --------------------------------------------------------------------------------------
03e8 0000 0006 | | .DBG3TAB 0x0000,0x0006
03ea 00ab 0001 | | .CONST 0x00ab,0x0001
03ec 00b2 0002 | | .CONST 0x00b2,0x0002
03ee 00bc 0003 | | .CONST 0x00bc,0x0003
03f0 00cc 0004 | | .CONST 0x00cc,0x0004
03f2 00d5 0005 | | .CONST 0x00d5,0x0005
03f4 00db 0006 | | .CONST 0x00db,0x0006
03f6 ; --------------------------------------------------------------------------------------
03f6 ; Debug3 Subtable 0x7
03f6 ; --------------------------------------------------------------------------------------
03f6 0001 000d | | .DBG3TAB 0x0001,0x000d
03f8 00eb ffff | | .CONST 0x00eb,0xffff
03fa 00ec 0001 | | .CONST 0x00ec,0x0001
03fc 00ee 0401 | | .CONST 0x00ee,0x0401
03fe 00ee 0403 | | .CONST 0x00ee,0x0403
0400 00f8 0003 | | .CONST 0x00f8,0x0003
0402 00f9 0801 | | .CONST 0x00f9,0x0801
0404 0101 0003 | | .CONST 0x0101,0x0003
0406 0103 0004 | | .CONST 0x0103,0x0004
0408 0108 0005 | | .CONST 0x0108,0x0005
040a 0109 0006 | | .CONST 0x0109,0x0006
040c 010b 0c01 | | .CONST 0x010b,0x0c01
040e 0111 0002 | | .CONST 0x0111,0x0002
0410 0111 1001 | | .CONST 0x0111,0x1001
0412 011a 0002 | | .CONST 0x011a,0x0002
0414 ; --------------------------------------------------------------------------------------
0414 ; Debug3 Subtable 0x8
0414 ; --------------------------------------------------------------------------------------
0414 0001 0002 | | .DBG3TAB 0x0001,0x0002
0416 0123 ffff | # | .CONST 0x0123,0xffff
0418 012c 0001 | , | .CONST 0x012c,0x0001
041a 0131 0002 | 1 | .CONST 0x0131,0x0002
041c ; --------------------------------------------------------------------------------------
041c ; Debug3 Subtable 0x9
041c ; --------------------------------------------------------------------------------------
041c 0000 0004 | | .DBG3TAB 0x0000,0x0004
041e 013b 0001 | ; | .CONST 0x013b,0x0001
0420 0148 0002 | H | .CONST 0x0148,0x0002
0422 014d 0003 | M | .CONST 0x014d,0x0003
0424 0161 0004 | a | .CONST 0x0161,0x0004
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug3 Subtable 0xa
0426 ; --------------------------------------------------------------------------------------
0426 0003 0007 | | .DBG3TAB 0x0003,0x0007
0428 016b 0001 | k | .CONST 0x016b,0x0001
042a 016e 0002 | n | .CONST 0x016e,0x0002
042c 016f fbff | o | .CONST 0x016f,0xfbff
042e 0181 0401 | | .CONST 0x0181,0x0401
0430 0195 0402 | | .CONST 0x0195,0x0402
0432 019e 0003 | | .CONST 0x019e,0x0003
0434 019f f7ff | | .CONST 0x019f,0xf7ff
0436 01a3 f7fe | | .CONST 0x01a3,0xf7fe
0438 01ae 0801 | | .CONST 0x01ae,0x0801
043a 01c2 0802 | | .CONST 0x01c2,0x0802
043c ; --------------------------------------------------------------------------------------
043c ; Debug3 Subtable 0xb
043c ; --------------------------------------------------------------------------------------
043c 0003 0003 | | .DBG3TAB 0x0003,0x0003
043e 01db ffff | | .CONST 0x01db,0xffff
0440 01df fffe | | .CONST 0x01df,0xfffe
0442 01e5 fffd | | .CONST 0x01e5,0xfffd
0444 01ea 0001 | | .CONST 0x01ea,0x0001
0446 01ef 0002 | | .CONST 0x01ef,0x0002
0448 01f7 0003 | | .CONST 0x01f7,0x0003
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0xc
044a ; --------------------------------------------------------------------------------------
044a 0000 0001 | | .DBG3TAB 0x0000,0x0001
044c 0203 0001 | | .CONST 0x0203,0x0001
044e ; --------------------------------------------------------------------------------------
044e ; Debug3 Subtable 0xd
044e ; --------------------------------------------------------------------------------------
044e 0000 0003 | | .DBG3TAB 0x0000,0x0003
0450 021b 0001 | | .CONST 0x021b,0x0001
0452 021d 0002 | | .CONST 0x021d,0x0002
0454 0220 0003 | | .CONST 0x0220,0x0003
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug3 Subtable 0xe
0456 ; --------------------------------------------------------------------------------------
0456 0000 0001 | | .DBG3TAB 0x0000,0x0001
0458 022b 0001 | + | .CONST 0x022b,0x0001
045a ; --------------------------------------------------------------------------------------
045a ; Debug3 Subtable 0xf
045a ; --------------------------------------------------------------------------------------
045a 0000 0001 | | .DBG3TAB 0x0000,0x0001
045c 0233 0001 | 3 | .CONST 0x0233,0x0001
045e ; --------------------------------------------------------------------------------------
045e ; Debug3 Subtable 0x10
045e ; --------------------------------------------------------------------------------------
045e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0460 023b 0001 | ; | .CONST 0x023b,0x0001
0462 ; --------------------------------------------------------------------------------------
0462 ; Debug3 Subtable 0x11
0462 ; --------------------------------------------------------------------------------------
0462 0000 0001 | | .DBG3TAB 0x0000,0x0001
0464 0253 0001 | S | .CONST 0x0253,0x0001
0466 ; --------------------------------------------------------------------------------------
0466 ; Debug3 Subtable 0x12
0466 ; --------------------------------------------------------------------------------------
0466 0000 0000 | | .DBG3TAB 0x0000,0x0000
0468 ; --------------------------------------------------------------------------------------
0468 ; Debug3 Subtable 0x13
0468 ; --------------------------------------------------------------------------------------
0468 0000 0000 | | .DBG3TAB 0x0000,0x0000
046a 0000 0000 | | .BLANK 0000[0x196]