|
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 - metrics - 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 02e0 | | .CONST 0x02e0 ; 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 0086 | | .CONST 0x0086 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 4818 |H | Short_Literal 0x18 ; Debug Table 0x0 = .DEBUG 0x000b,0x038a,0xc000,0x0000,0x0055,0xe0e5,0x0000,0x0003
; Debug Table 0x0.0x0 = 0xb,0xffff
; Debug Table 0x0.0x1 = 0xb,0xfffe
; Debug Table 0x0.0x2 = 0xb,0xfffd
000c 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000d 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088 ; Debug Table 0x0.0x3 = 0xd,0xfffc
000f 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8 ; Debug Table 0x0.0x4 = 0xf,0xfffb
0011 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8 ; Debug Table 0x0.0x5 = 0x11,0xfffa
0013 029a 010b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0108 ; Debug Table 0x0.0x6 = 0x13,0xfff9
0015 029a 014b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0148 ; Debug Table 0x0.0x7 = 0x15,0xfff8
0017 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158 ; Debug Table 0x0.0x8 = 0x17,0xfff7
0019 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160 ; Debug Table 0x0.0x9 = 0x19,0xfff6
001b 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178 ; Debug Table 0x0.0xa = 0x1b,0xfff5
001d 4804 |H | Short_Literal 0x4 ; Debug Table 0x0.0xb = 0x1d,0xfff4
001e 032b | + | Declare_Type Record,Incomplete,Visible
001f 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8 ; Debug Table 0x0.0xc = 0x1f,0xfff3
0021 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208 ; Debug Table 0x0.0xd = 0x21,0xfff2
0023 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230 ; Debug Table 0x0.0xe = 0x23,0xfff1
0025 029a 0243 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0240 ; Debug Table 0x0.0xf = 0x25,0xfff0
0027 6284 |b | Indirect_Literal Discrete,0x2ac,{0x00000000, 0x55e0e501} ; Debug Table 0x0.0x10 = 0x27,0xffef
0028 0129 | ) | Execute Any,Make_Visible
0029 627e |b~ | Indirect_Literal Discrete,0x2a8,{0x00000000, 0x55e0e502} ; Debug Table 0x0.0x11 = 0x29,0xffee
002a 0129 | ) | Execute Any,Make_Visible
002b 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248 ; Debug Table 0x0.0x12 = 0x2b,0xffed
002d 029a 0253 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0250 ; Debug Table 0x0.0x13 = 0x2d,0xffec
002f 029a 025b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0258 ; Debug Table 0x0.0x14 = 0x2f,0xffeb
0031 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x15 = 0x31,0xffea
0032 e20f | | Load 0x1,0xf
0033 0aff | | Execute_Immediate Plus,-0x1
0034 0248 | H | Execute Discrete,Check_In_Integer
0035 00e3 | | Load_Encached Natural_Cache
0036 03f8 | | Declare_Type Discrete,Constrained
0037 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x0.0x16 = 0x37,0xffe9
0038 4800 |H | Short_Literal 0x0
0039 4801 |H | Short_Literal 0x1
003a 4801 |H | Short_Literal 0x1
003b 4804 |H | Short_Literal 0x4
003c 0318 | | Declare_Type Variant_Record,Incomplete
003d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x17 = 0x3d,0xffe8
003e 02a0 | | Declare_Subprogram Null_Subprogram
003f 4818 |H | Short_Literal 0x18
0040 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0041 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x18 = 0x41,0xffe7
0042 00db | | Load_Top At_Offset_3
0043 0269 | i | Execute Discrete,Last
0044 00da | | Load_Top At_Offset_2
0045 02a0 | | Declare_Subprogram Null_Subprogram
0046 4801 |H | Short_Literal 0x1
0047 035d | ] | Declare_Type Array,Defined
0048 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x19 = 0x48,0xffe6
0049 00e2 | | Load_Encached Integer_Cache
004a 029f 026b | k| Declare_Subprogram For_Call,INIT_0268
004c 4802 |H | Short_Literal 0x2
004d 032d | - | Declare_Type Record,Defined
004e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x1a = 0x4e,0xffe5
004f 02a0 | | Declare_Subprogram Null_Subprogram
0050 e212 | | Load 0x1,0x12
0051 03c7 | | Complete_Type Access,By_Defining
0052 e212 | | Load 0x1,0x12 ; Debug Table 0x0.0x1b = 0x52,0xffe4
0053 e225 | % | Load 0x1,0x25
0054 e227 | ' | Load 0x1,0x27
0055 00e1 | | Load_Encached Boolean_Cache
0056 02a0 | | Declare_Subprogram Null_Subprogram
0057 e21b | | Load 0x1,0x1b
0058 0326 | & | Complete_Type Record,By_Defining
0059 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x1c = 0x59,0xffe3
005a e210 | | Load 0x1,0x10
005b 00e9 | | Load_Encached String_Cache
005c 029f 0283 | | Declare_Subprogram For_Call,INIT_0280
005e 4800 |H | Short_Literal 0x0
005f 4801 |H | Short_Literal 0x1
0060 4802 |H | Short_Literal 0x2
0061 e226 | & | Load 0x1,0x26
0062 0307 | | Complete_Type Variant_Record,By_Defining
0063 00bf | | Action Accept_Activation
0064 029d 02b3 | | Declare_Subprogram For_Outer_Call,INIT_02b0 ; Debug Table 0x1 = .DEBUG 0x0064,0x03c6,0xc000,0x0000,0x0057,0x7ec5,0x0000,0x0005
; Debug Table 0x1.0x0 = 0x64,0xffff
0066 029d 02d3 | | Declare_Subprogram For_Outer_Call,INIT_02d0 ; Debug Table 0x1.0x1 = 0x66,0xfffe
0068 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x2 = 0x68,0xfffd
0069 00c7 | | Action Elaborate_Subprogram
006a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x3 = 0x6a,0xfffc
006b 00c7 | | Action Elaborate_Subprogram
006c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x4 = 0x6c,0xfffb
006d 00c7 | | Action Elaborate_Subprogram
006e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x5 = 0x6e,0xfffa
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x6 = 0x70,0xfff9
0071 00c7 | | Action Elaborate_Subprogram
0072 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x7 = 0x72,0xfff8
0073 00c7 | | Action Elaborate_Subprogram
0074 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x8 = 0x74,0xfff7
0075 00c7 | | Action Elaborate_Subprogram
0076 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x9 = 0x76,0xfff6
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0xa = 0x78,0xfff5
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0xb = 0x7a,0xfff4
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e ; Debug Table 0x1.0xc = 0x7c,0xfff3
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1f | | Execute_Immediate Reference_Lex_1,0x1f ; Debug Table 0x1.0xd = 0x7e,0xfff2
007f 00c7 | | Action Elaborate_Subprogram
0080 1d22 | " | Execute_Immediate Reference_Lex_1,0x22 ; Debug Table 0x1.0xe = 0x80,0xfff1
0081 00c7 | | Action Elaborate_Subprogram
0082 1d23 | # | Execute_Immediate Reference_Lex_1,0x23 ; Debug Table 0x1.0xf = 0x82,0xfff0
0083 00c7 | | Action Elaborate_Subprogram
0084 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24 ; Debug Table 0x1.0x10 = 0x84,0xffef
0085 00c7 | | Action Elaborate_Subprogram
0086 BODY_0008:
0086 00bc | | Action Signal_Activated
0087 00bb | | Action Signal_Completion
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0095 | | .CONST 0x0095 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e227 | ' | Load 0x1,0x27 ; Debug Table 0x2 = .DEBUG 0x008b,0x03ea,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x0025
; Debug Table 0x2.0x0 = 0x8b,0xffff
008c e5fe | | Load 0x2,-0x2
008d e5fe | | Load 0x2,-0x2
008e 822b | + | Call 0x1,0x2b
008f e5ff | | Load 0x2,-0x1
0090 0227 | ' | Execute Access,All_Reference
0091 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0092 01d7 | | Execute Vector,Field_Read
0093 822a | * | Call 0x1,0x2a
0094 0039 | 9 | Store_Top Access,At_Offset_1
0095 BODY_0088:
0095 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x1 = 0x95,0x1
0096 680b |h | Jump_Zero 0xa2
0097 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x2 = 0x97,0x2
0098 0227 | ' | Execute Access,All_Reference
0099 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
009a 00d8 | | Load_Top At_Offset_0
009b 0120 | | Execute Any,Is_Value
009c 7002 |p | Jump_Nonzero 0x9f
009d 00d8 | | Load_Top At_Offset_0
009e 011e | | Execute Any,Convert
009f e210 | | Load 0x1,0x10
00a0 0119 | | Execute Any,Check_In_Formal_Type
00a1 4402 |D | Exit_Subprogram With_Result,0x2
00a2 e220 | | Load 0x1,0x20 ; Debug Table 0x2.0x3 = 0xa2,0x3
00a3 0257 | W | Execute Discrete,Raise
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b5 | | .CONST 0x00b5 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e227 | ' | Load 0x1,0x27 ; Debug Table 0x3 = .DEBUG 0x00ab,0x03f4,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0032
; Debug Table 0x3.0x0 = 0xab,0xffff
00ac e5fe | | Load 0x2,-0x2
00ad e5fe | | Load 0x2,-0x2
00ae 822b | + | Call 0x1,0x2b
00af e5ff | | Load 0x2,-0x1
00b0 0227 | ' | Execute Access,All_Reference
00b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00b2 01d7 | | Execute Vector,Field_Read
00b3 822a | * | Call 0x1,0x2a
00b4 0039 | 9 | Store_Top Access,At_Offset_1
00b5 BODY_00a8:
00b5 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0xb5,0x1
00b6 6807 |h | Jump_Zero 0xbe
00b7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0xb7,0x2
00b8 0227 | ' | Execute Access,All_Reference
00b9 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
00ba c5fd | | Store 0x2,-0x3
00bb 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x3 = 0xbb,0x3
00bc a5fc | | Store_Unchecked 0x2,-0x4
00bd 4503 |E | Exit_Subprogram 0x3
00be 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x4 = 0xbe,0x4
00bf a5fc | | Store_Unchecked 0x2,-0x4
00c0 4503 |E | Exit_Subprogram 0x3
00c1 0000 0000 | | .BLANK 0000[0x7]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d9 | | .CONST 0x00d9 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0004 | | .CONST 0x0004 ; Number of locals
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x00cb,0x0400,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0046
; Debug Table 0x4.0x0 = 0xcb,0xffff
00cc 822b | + | Call 0x1,0x2b
00cd e5fc | | Load 0x2,-0x4
00ce 0227 | ' | Execute Access,All_Reference
00cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00d0 01d5 | | Execute Vector,Field_Reference
00d1 e227 | ' | Load 0x1,0x27 ; Debug Table 0x4.0x1 = 0xd1,0xfffe
00d2 00d9 | | Load_Top At_Offset_1
00d3 0039 | 9 | Store_Top Access,At_Offset_1
00d4 e227 | ' | Load 0x1,0x27 ; Debug Table 0x4.0x2 = 0xd4,0xfffd
00d5 e5ff | | Load 0x2,-0x1
00d6 00da | | Load_Top At_Offset_2
00d7 822a | * | Call 0x1,0x2a
00d8 0039 | 9 | Store_Top Access,At_Offset_1
00d9 BODY_00c8:
00d9 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x3 = 0xd9,0x1
00da 7020 |p | Jump_Nonzero 0xfb
00db e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x4 = 0xdb,0x2
00dc 01db | | Execute Vector,Length
00dd e226 | & | Load 0x1,0x26
00de 1c08 | | Execute_Immediate Run_Utility,0x8
00df e227 | ' | Load 0x1,0x27
00e0 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00e1 00d8 | | Load_Top At_Offset_0
00e2 0227 | ' | Execute Access,All_Reference
00e3 1c00 | | Execute_Immediate Run_Utility,0x0
00e4 a402 | | Store_Unchecked 0x2,0x2
00e5 00cf | | Action Mark_Auxiliary ; Debug Table 0x4.0x5 = 0xe5,0x3
00e6 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x6 = 0xe6,0xfbff
00e7 0227 | ' | Execute Access,All_Reference
00e8 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x7 = 0xe8,0x401
00e9 00d9 | | Load_Top At_Offset_1
00ea 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00eb e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x8 = 0xeb,0x402
00ec 00d9 | | Load_Top At_Offset_1
00ed 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
00ee e5ff | | Load 0x2,-0x1 ; Debug Table 0x4.0x9 = 0xee,0x403
00ef 00d9 | | Load_Top At_Offset_1
00f0 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
00f1 00d1 | | Pop_Control Pop_Count_1
00f2 00ce | | Action Pop_Auxiliary
00f3 e5fc | | Load 0x2,-0x4 ; Debug Table 0x4.0xa = 0xf3,0x4
00f4 0227 | ' | Execute Access,All_Reference
00f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f6 0a01 | | Execute_Immediate Plus,0x1
00f7 e5fc | | Load 0x2,-0x4
00f8 0227 | ' | Execute Access,All_Reference
00f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00fa 4504 |E | Exit_Subprogram 0x4
00fb e5fd | | Load 0x2,-0x3 ; Debug Table 0x4.0xb = 0xfb,0x5
00fc 6802 |h | Jump_Zero 0xff
00fd e221 | ! | Load 0x1,0x21 ; Debug Table 0x4.0xc = 0xfd,0x6
00fe 0257 | W | Execute Discrete,Raise
00ff e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0xd = 0xff,0x7
0100 00d9 | | Load_Top At_Offset_1
0101 0227 | ' | Execute Access,All_Reference
0102 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
0103 4504 |E | Exit_Subprogram 0x4
0104 0000 0000 | | .BLANK 0000[0x4]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0117 | | .CONST 0x0117 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0004 | | .CONST 0x0004 ; Number of locals
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2 ; Debug Table 0x5 = .DEBUG 0x010b,0x041e,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x005b
; Debug Table 0x5.0x0 = 0x10b,0xffff
010c 822b | + | Call 0x1,0x2b
010d e225 | % | Load 0x1,0x25
010e 03f1 | | Declare_Variable Discrete,With_Value
010f e227 | ' | Load 0x1,0x27 ; Debug Table 0x5.0x1 = 0x10f,0xfffe
0110 00d9 | | Load_Top At_Offset_1
0111 e5fe | | Load 0x2,-0x2
0112 0227 | ' | Execute Access,All_Reference
0113 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0114 01d7 | | Execute Vector,Field_Read
0115 0039 | 9 | Store_Top Access,At_Offset_1
0116 e227 | ' | Load 0x1,0x27 ; Debug Table 0x5.0x2 = 0x116,0xfffd
0117 BODY_0108:
0117 00cf | | Action Mark_Auxiliary
0118 7828 |x( | Jump 0x141
0119 e211 | | Load 0x1,0x11 ; Debug Table 0x5.0x3 = 0x119,0x2
011a e5ff | | Load 0x2,-0x1
011b e403 | | Load 0x2,0x3
011c 0227 | ' | Execute Access,All_Reference
011d 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
011e e001 | | Load 0x0,0x1
011f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0120 6819 |h | Jump_Zero 0x13a
0121 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x5.0x4 = 0x121,0x3
0122 6807 |h | Jump_Zero 0x12a
0123 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x5 = 0x123,0x4
0124 0227 | ' | Execute Access,All_Reference
0125 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0126 00da | | Load_Top At_Offset_2
0127 0227 | ' | Execute Access,All_Reference
0128 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0129 7808 |x | Jump 0x132
012a 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x6 = 0x12a,0x5
012b 0227 | ' | Execute Access,All_Reference
012c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
012d e402 | | Load 0x2,0x2
012e e5fe | | Load 0x2,-0x2
012f 0227 | ' | Execute Access,All_Reference
0130 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0131 01d6 | | Execute Vector,Field_Write
0132 e5fe | | Load 0x2,-0x2 ; Debug Table 0x5.0x7 = 0x132,0x6
0133 0227 | ' | Execute Access,All_Reference
0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0135 0aff | | Execute_Immediate Plus,-0x1
0136 e5fe | | Load 0x2,-0x2
0137 0227 | ' | Execute Access,All_Reference
0138 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0139 4502 |E | Exit_Subprogram 0x2 ; Debug Table 0x5.0x8 = 0x139,0x7
013a 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0x9 = 0x13a,0x8
013b 003a | : | Store_Top Access,At_Offset_2
013c 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0xa = 0x13c,0x9
013d 0227 | ' | Execute Access,All_Reference
013e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
013f 003b | ; | Store_Top Access,At_Offset_3
0140 00c9 | | Action Pop_Auxiliary_Loop
0141 00da | | Load_Top At_Offset_2 ; Debug Table 0x5.0xb = 0x141,0x1
0142 77d6 |w | Jump_Nonzero 0x119
0143 00ce | | Action Pop_Auxiliary
0144 e220 | | Load 0x1,0x20 ; Debug Table 0x5.0xc = 0x144,0xa
0145 0257 | W | Execute Discrete,Raise
0146 0000 0000 | | .XXX[0x2]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e212 | | Load 0x1,0x12 ; Debug Table 0x6 = .DEBUG 0x014b,0x043a,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0067
; Debug Table 0x6.0x0 = 0x14b,0x1
014c 03bc | | Declare_Variable Access,By_Allocation
014d 00d8 | | Load_Top At_Offset_0
014e 0227 | ' | Execute Access,All_Reference
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 003b | ; | Store_Top Access,At_Offset_3
0151 4501 |E | Exit_Subprogram 0x1
0152 0000 0000 | | .BLANK 0000[0x6]
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 0x7 = .DEBUG 0x015b,0x043e,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x006f
; Debug Table 0x7.0x0 = 0x15b,0x1
015c 0227 | ' | Execute Access,All_Reference
015d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015e 0f00 | | Execute_Immediate Equal,0x0
015f 4401 |D | Exit_Subprogram With_Result,0x1
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00cf | | Action Mark_Auxiliary ; Debug Table 0x8 = .DEBUG 0x0163,0x0442,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0078
0164 e225 | % | Load 0x1,0x25 ; Debug Table 0x8.0x0 = 0x164,0x1
0165 0269 | i | Execute Discrete,Last
0166 4800 |H | Short_Literal 0x0
0167 0263 | c | Execute Discrete,Above_Bound
0168 7008 |p | Jump_Nonzero 0x171
0169 e227 | ' | Load 0x1,0x27 ; Debug Table 0x8.0x1 = 0x169,0x2
016a 00d9 | | Load_Top At_Offset_1
016b e5ff | | Load 0x2,-0x1
016c 0227 | ' | Execute Access,All_Reference
016d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
016e 01d6 | | Execute Vector,Field_Write
016f 00c8 | | Action Pop_Auxiliary_Range
0170 3ff8 |? | Loop_Increasing 0x169
0171 00ce | | Action Pop_Auxiliary
0172 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x2 = 0x172,0x3
0173 00db | | Load_Top At_Offset_3
0174 0227 | ' | Execute Access,All_Reference
0175 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0176 4501 |E | Exit_Subprogram 0x1
0177 0000 | | .XXX[0x1]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017c | | | .CONST 0x017c ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e227 | ' | Load 0x1,0x27 ; Debug Table 0x9 = .DEBUG 0x017b,0x044a,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0080
; Debug Table 0x9.0x0 = 0x17b,0xffff
017c BODY_0178:
017c 00cf | | Action Mark_Auxiliary
017d e225 | % | Load 0x1,0x25 ; Debug Table 0x9.0x1 = 0x17d,0x1
017e 0269 | i | Execute Discrete,Last
017f 4800 |H | Short_Literal 0x0
0180 0263 | c | Execute Discrete,Above_Bound
0181 704b |pK | Jump_Nonzero 0x1cd
0182 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x9.0x2 = 0x182,0x2
0183 e5ff | | Load 0x2,-0x1
0184 0227 | ' | Execute Access,All_Reference
0185 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0186 01d7 | | Execute Vector,Field_Read
0187 a402 | | Store_Unchecked 0x2,0x2
0188 e227 | ' | Load 0x1,0x27 ; Debug Table 0x9.0x3 = 0x188,0x3
0189 00d9 | | Load_Top At_Offset_1
018a e5fe | | Load 0x2,-0x2
018b 0227 | ' | Execute Access,All_Reference
018c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018d 01d6 | | Execute Vector,Field_Write
018e 00cf | | Action Mark_Auxiliary
018f 7838 |x8 | Jump 0x1c8
0190 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x4 = 0x190,0x5
0191 0227 | ' | Execute Access,All_Reference
0192 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
0193 01db | | Execute Vector,Length
0194 e226 | & | Load 0x1,0x26
0195 1c08 | | Execute_Immediate Run_Utility,0x8
0196 e402 | | Load 0x2,0x2
0197 0227 | ' | Execute Access,All_Reference
0198 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
0199 00d9 | | Load_Top At_Offset_1
019a 00d8 | | Load_Top At_Offset_0
019b 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
019c 00da | | Load_Top At_Offset_2
019d 01da | | Execute Vector,Bounds
019e 00da | | Load_Top At_Offset_2
019f 01da | | Execute Vector,Bounds
01a0 00da | | Load_Top At_Offset_2
01a1 027f | | Execute Discrete,Equal
01a2 7002 |p | Jump_Nonzero 0x1a5
01a3 48e0 |H | Short_Literal 0xe0
01a4 0257 | W | Execute Discrete,Raise
01a5 00d0 | | Action Swap_Control
01a6 00d1 | | Pop_Control Pop_Count_1
01a7 027f | | Execute Discrete,Equal
01a8 7002 |p | Jump_Nonzero 0x1ab
01a9 48e0 |H | Short_Literal 0xe0
01aa 0257 | W | Execute Discrete,Raise
01ab 00d2 | | Pop_Control Pop_Count_2
01ac 00d9 | | Load_Top At_Offset_1
01ad 2904 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x4
01ae e402 | | Load 0x2,0x2
01af 0227 | ' | Execute Access,All_Reference
01b0 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
01b1 e210 | | Load 0x1,0x10
01b2 0119 | | Execute Any,Check_In_Formal_Type
01b3 00d9 | | Load_Top At_Offset_1
01b4 2803 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x3
01b5 00da | | Load_Top At_Offset_2
01b6 e5fe | | Load 0x2,-0x2
01b7 0227 | ' | Execute Access,All_Reference
01b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b9 01d7 | | Execute Vector,Field_Read
01ba 00d9 | | Load_Top At_Offset_1
01bb 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
01bc e227 | ' | Load 0x1,0x27
01bd 03b6 | | Declare_Variable Access,By_Allocation,With_Value
01be 00da | | Load_Top At_Offset_2
01bf e5fe | | Load 0x2,-0x2
01c0 0227 | ' | Execute Access,All_Reference
01c1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c2 01d6 | | Execute Vector,Field_Write
01c3 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x5 = 0x1c3,0x6
01c4 0227 | ' | Execute Access,All_Reference
01c5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01c6 a402 | | Store_Unchecked 0x2,0x2
01c7 00c9 | | Action Pop_Auxiliary_Loop
01c8 e402 | | Load 0x2,0x2 ; Debug Table 0x9.0x6 = 0x1c8,0x4
01c9 77c6 |w | Jump_Nonzero 0x190
01ca 00ce | | Action Pop_Auxiliary
01cb 00c8 | | Action Pop_Auxiliary_Range
01cc 3fb5 |? | Loop_Increasing 0x182
01cd 00ce | | Action Pop_Auxiliary
01ce 00db | | Load_Top At_Offset_3 ; Debug Table 0x9.0x7 = 0x1ce,0x7
01cf 0227 | ' | Execute Access,All_Reference
01d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d1 e5fe | | Load 0x2,-0x2
01d2 0227 | ' | Execute Access,All_Reference
01d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d4 4502 |E | Exit_Subprogram 0x2
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd | | .CONST 0x01dd ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e21b | | Load 0x1,0x1b ; Debug Table 0xa = .DEBUG 0x01db,0x045c,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0090
; Debug Table 0xa.0x0 = 0x1db,0xffff
01dc 0322 | " | Declare_Variable Record
01dd BODY_01d8:
01dd 00cf | | Action Mark_Auxiliary
01de e225 | % | Load 0x1,0x25 ; Debug Table 0xa.0x1 = 0x1de,0x1
01df 0269 | i | Execute Discrete,Last
01e0 4800 |H | Short_Literal 0x0
01e1 0263 | c | Execute Discrete,Above_Bound
01e2 7019 |p | Jump_Nonzero 0x1fc
01e3 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x2 = 0x1e3,0x2
01e4 e5ff | | Load 0x2,-0x1
01e5 0227 | ' | Execute Access,All_Reference
01e6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e7 01d7 | | Execute Vector,Field_Read
01e8 e402 | | Load 0x2,0x2
01e9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ea 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x3 = 0x1ea,0x3
01eb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ec 680d |h | Jump_Zero 0x1fa
01ed 4800 |H | Short_Literal 0x0 ; Debug Table 0xa.0x4 = 0x1ed,0x4
01ee e402 | | Load 0x2,0x2
01ef 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01f0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0x5 = 0x1f0,0x5
01f1 e402 | | Load 0x2,0x2
01f2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f3 e5ff | | Load 0x2,-0x1 ; Debug Table 0xa.0x6 = 0x1f3,0x6
01f4 e402 | | Load 0x2,0x2
01f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01f6 00db | | Load_Top At_Offset_3 ; Debug Table 0xa.0x7 = 0x1f6,0x7
01f7 e5fe | | Load 0x2,-0x2
01f8 017d | } | Execute Record,Structure_Write
01f9 4502 |E | Exit_Subprogram 0x2 ; Debug Table 0xa.0x8 = 0x1f9,0x8
01fa 00c8 | | Action Pop_Auxiliary_Range
01fb 3fe7 |? | Loop_Increasing 0x1e3
01fc 00ce | | Action Pop_Auxiliary
01fd 4801 |H | Short_Literal 0x1 ; Debug Table 0xa.0x9 = 0x1fd,0x9
01fe 00d9 | | Load_Top At_Offset_1
01ff 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0200 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xa.0xa = 0x200,0xa
0201 e5fe | | Load 0x2,-0x2
0202 017d | } | Execute Record,Structure_Write
0203 4502 |E | Exit_Subprogram 0x2
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x020b,0x0474,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x009c
; Debug Table 0xb.0x0 = 0x20b,0x1
020c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
020d 0227 | ' | Execute Access,All_Reference
020e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
020f 00db | | Load_Top At_Offset_3
0210 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0211 00cf | | Action Mark_Auxiliary
0212 7819 |x | Jump 0x22c
0213 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x1 = 0x213,0x3
0214 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0215 e225 | % | Load 0x1,0x25
0216 0269 | i | Execute Discrete,Last
0217 027f | | Execute Discrete,Equal
0218 6804 |h | Jump_Zero 0x21d
0219 4801 |H | Short_Literal 0x1 ; Debug Table 0xb.0x2 = 0x219,0x4
021a e5ff | | Load 0x2,-0x1
021b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
021c 4501 |E | Exit_Subprogram 0x1 ; Debug Table 0xb.0x3 = 0x21c,0x5
021d 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x4 = 0x21d,0x6
021e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021f 0a01 | | Execute_Immediate Plus,0x1
0220 e5ff | | Load 0x2,-0x1
0221 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0222 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x5 = 0x222,0x7
0223 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0224 e5ff | | Load 0x2,-0x1
0225 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0226 0227 | ' | Execute Access,All_Reference
0227 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0228 01d7 | | Execute Vector,Field_Read
0229 e5ff | | Load 0x2,-0x1
022a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
022b 00c9 | | Action Pop_Auxiliary_Loop
022c 00db | | Load_Top At_Offset_3 ; Debug Table 0xb.0x6 = 0x22c,0x2
022d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
022e 6fe4 |o | Jump_Zero 0x213
022f 4501 |E | Exit_Subprogram 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 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0233,0x0484,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00a4
; Debug Table 0xc.0x0 = 0x233,0x1
0234 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0235 0227 | ' | Execute Access,All_Reference
0236 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
0237 0335 | 5 | Declare_Variable Array,Duplicate
0238 4401 |D | Exit_Subprogram With_Result,0x1
0239 0000 0000 | | .BLANK 0000[0x7]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2 ; Debug Table 0xd = .DEBUG 0x0243,0x0488,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00ad
; Debug Table 0xd.0x0 = 0x243,0x1
0244 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0245 4401 |D | Exit_Subprogram With_Result,0x1
0246 0000 0000 | | .XXX[0x2]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b e212 | | Load 0x1,0x12 ; Debug Table 0xe = .DEBUG 0x024b,0x048c,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00bc
; Debug Table 0xe.0x0 = 0x24b,0x1
024c 00ca | | Action Exit_Nullary_Function
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,0x0490,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00c1
; Debug Table 0xf.0x0 = 0x253,0x1
0254 022d | - | Execute Access,Is_Null
0255 4401 |D | Exit_Subprogram With_Result,0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2 ; Debug Table 0x10 = .DEBUG 0x025b,0x0494,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00ca
; Debug Table 0x10.0x0 = 0x25b,0x1
025c 0227 | ' | Execute Access,All_Reference
025d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025e 00e3 | | Load_Encached Natural_Cache
025f 025b | [ | Execute Discrete,Check_In_Type
0260 4401 |D | Exit_Subprogram With_Result,0x1
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 4608 |F | Jump_Case 0x8 ; Debug Table 0x11 = .DEBUG 0x026b,0x0498,0x1005,0x0000,0x0055,0xe0e5,0x0000,0x00f5
026c 7808 |x | Jump 0x275 ; case 0x0
026d 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
026e 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
026f 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0270 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0271 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
0272 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
0273 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x7
0274 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x8
0275 4800 |H | Short_Literal 0x0
0276 00db | | Load_Top At_Offset_3
0277 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0278 4302 |C | Exit_Subprogram From_Utility,0x2
0279 0000 0000 | | .BLANK 0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4608 |F | Jump_Case 0x8 ; Debug Table 0x12 = .DEBUG 0x0283,0x049a,0x1005,0x0000,0x0055,0xe0e5,0x0000,0x0122
0284 7808 |x | Jump 0x28d ; case 0x0
0285 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x1
0286 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x2
0287 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x3
0288 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x4
0289 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x5
028a 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x6
028b 7807 |x | Jump 0x293 ; case 0x7
028c 780f |x | Jump 0x29c ; case 0x8
028d 00da | | Load_Top At_Offset_2
028e 2203 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x3
028f 00da | | Load_Top At_Offset_2
0290 2403 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
0291 1c00 | | Execute_Immediate Run_Utility,0x0
0292 4302 |C | Exit_Subprogram From_Utility,0x2
0293 00db | | Load_Top At_Offset_3
0294 4801 |H | Short_Literal 0x1
0295 e5fe | | Load 0x2,-0x2
0296 00e9 | | Load_Encached String_Cache
0297 035b | [ | Declare_Type Array,Constrained
0298 4801 |H | Short_Literal 0x1
0299 e5ff | | Load 0x2,-0x1
029a 031b | | Declare_Type Variant_Record,Constrained
029b 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
029c 00db | | Load_Top At_Offset_3
029d 00db | | Load_Top At_Offset_3
029e 02fc | | Declare_Variable Variant_Record,With_Constraint
029f 4801 |H | Short_Literal 0x1
02a0 e5fe | | Load 0x2,-0x2
02a1 00e9 | | Load_Encached String_Cache
02a2 0334 | 4 | Declare_Variable Array,With_Constraint
02a3 2d04 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x4
02a4 016a | j | Execute Variant_Record,Indirects_Appended
02a5 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
02a6 0000 0000 | | .XXX[0x2]
02a8 0000 0000 | | .LITERAL {0x00000000, 0x55e0e502}
02ac 0000 0000 | | .LITERAL {0x00000000, 0x55e0e501}
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b6 | | .CONST 0x02b6 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 e227 | ' | Load 0x1,0x27 ; Debug Table 0x13 = .DEBUG 0x02b3,0x049c,0x1002,0x0000,0x0057,0x7ec5,0x0000,0x0006
; Debug Table 0x13.0x0 = 0x2b3,0xffff
02b4 00db | | Load_Top At_Offset_3
02b5 0039 | 9 | Store_Top Access,At_Offset_1
02b6 BODY_02b0:
02b6 00cf | | Action Mark_Auxiliary
02b7 780f |x | Jump 0x2c7
02b8 e211 | | Load 0x1,0x11 ; Debug Table 0x13.0x1 = 0x2b8,0x2
02b9 e5fe | | Load 0x2,-0x2
02ba 00db | | Load_Top At_Offset_3
02bb 0227 | ' | Execute Access,All_Reference
02bc 2504 |% | Execute Variant_Record,Field_Reference,Fixed,Indirect,Field_Number 0x4
02bd e001 | | Load 0x0,0x1
02be 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02bf 6802 |h | Jump_Zero 0x2c2
02c0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x2 = 0x2c0,0x3
02c1 4402 |D | Exit_Subprogram With_Result,0x2
02c2 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x3 = 0x2c2,0x4
02c3 0227 | ' | Execute Access,All_Reference
02c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02c5 003a | : | Store_Top Access,At_Offset_2
02c6 00c9 | | Action Pop_Auxiliary_Loop
02c7 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x13.0x4 = 0x2c7,0x1
02c8 77ef |w | Jump_Nonzero 0x2b8
02c9 00ce | | Action Pop_Auxiliary
02ca e227 | ' | Load 0x1,0x27 ; Debug Table 0x13.0x5 = 0x2ca,0x5
02cb 4402 |D | Exit_Subprogram With_Result,0x2
02cc 0000 0000 | | .BLANK 0000[0x4]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 00da | | Load_Top At_Offset_2 ; Debug Table 0x14 = .DEBUG 0x02d3,0x04aa,0x1002,0x0000,0x0057,0x7ec5,0x0000,0x003b
; Debug Table 0x14.0x0 = 0x2d3,0x1
02d4 e001 | | Load 0x0,0x1
02d5 180d | | Execute Package,Field_Execute,Field_Number 0xd
02d6 e20f | | Load 0x1,0xf
02d7 026e | n | Execute Discrete,Modulo
02d8 e225 | % | Load 0x1,0x25
02d9 025b | [ | Execute Discrete,Check_In_Type
02da 4401 |D | Exit_Subprogram With_Result,0x1
02db 0000 0000 | | .BLANK 0000[0x5]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; Debug Table
02e0 ; --------------------------------------------------------------------------------------
02e0 0003 0015 | | .CONST 0x0003,0x0015
02e2 000b 038a | | .DEBUG 0x000b,0x038a,0xc000,0x0000,0x0055,0xe0e5,0x0000,0x0003
02ea 0064 03c6 | d | .DEBUG 0x0064,0x03c6,0xc000,0x0000,0x0057,0x7ec5,0x0000,0x0005
02f2 008b 03ea | | .DEBUG 0x008b,0x03ea,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x0025
02fa 00ab 03f4 | | .DEBUG 0x00ab,0x03f4,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0032
0302 00cb 0400 | | .DEBUG 0x00cb,0x0400,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0046
030a 010b 041e | | .DEBUG 0x010b,0x041e,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x005b
0312 014b 043a | K :| .DEBUG 0x014b,0x043a,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0067
031a 015b 043e | [ >| .DEBUG 0x015b,0x043e,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x006f
0322 0163 0442 | c B| .DEBUG 0x0163,0x0442,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0078
032a 017b 044a | { J| .DEBUG 0x017b,0x044a,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0080
0332 01db 045c | \| .DEBUG 0x01db,0x045c,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x0090
033a 020b 0474 | t| .DEBUG 0x020b,0x0474,0x1001,0x0000,0x0055,0xe0e5,0x0000,0x009c
0342 0233 0484 | 3 | .DEBUG 0x0233,0x0484,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00a4
034a 0243 0488 | C | .DEBUG 0x0243,0x0488,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00ad
0352 024b 048c | K | .DEBUG 0x024b,0x048c,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00bc
035a 0253 0490 | S | .DEBUG 0x0253,0x0490,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00c1
0362 025b 0494 | [ | .DEBUG 0x025b,0x0494,0x1002,0x0000,0x0055,0xe0e5,0x0000,0x00ca
036a 026b 0498 | k | .DEBUG 0x026b,0x0498,0x1005,0x0000,0x0055,0xe0e5,0x0000,0x00f5
0372 0283 049a | | .DEBUG 0x0283,0x049a,0x1005,0x0000,0x0055,0xe0e5,0x0000,0x0122
037a 02b3 049c | | .DEBUG 0x02b3,0x049c,0x1002,0x0000,0x0057,0x7ec5,0x0000,0x0006
0382 02d3 04aa | | .DEBUG 0x02d3,0x04aa,0x1002,0x0000,0x0057,0x7ec5,0x0000,0x003b
038a ; --------------------------------------------------------------------------------------
038a ; Debug3 Subtable 0x0
038a ; --------------------------------------------------------------------------------------
038a 001d 0000 | | .DBG3TAB 0x001d,0x0000
038c 000b ffff | | .CONST 0x000b,0xffff
038e 000b fffe | | .CONST 0x000b,0xfffe
0390 000b fffd | | .CONST 0x000b,0xfffd
0392 000d fffc | | .CONST 0x000d,0xfffc
0394 000f fffb | | .CONST 0x000f,0xfffb
0396 0011 fffa | | .CONST 0x0011,0xfffa
0398 0013 fff9 | | .CONST 0x0013,0xfff9
039a 0015 fff8 | | .CONST 0x0015,0xfff8
039c 0017 fff7 | | .CONST 0x0017,0xfff7
039e 0019 fff6 | | .CONST 0x0019,0xfff6
03a0 001b fff5 | | .CONST 0x001b,0xfff5
03a2 001d fff4 | | .CONST 0x001d,0xfff4
03a4 001f fff3 | | .CONST 0x001f,0xfff3
03a6 0021 fff2 | ! | .CONST 0x0021,0xfff2
03a8 0023 fff1 | # | .CONST 0x0023,0xfff1
03aa 0025 fff0 | % | .CONST 0x0025,0xfff0
03ac 0027 ffef | ' | .CONST 0x0027,0xffef
03ae 0029 ffee | ) | .CONST 0x0029,0xffee
03b0 002b ffed | + | .CONST 0x002b,0xffed
03b2 002d ffec | - | .CONST 0x002d,0xffec
03b4 002f ffeb | / | .CONST 0x002f,0xffeb
03b6 0031 ffea | 1 | .CONST 0x0031,0xffea
03b8 0037 ffe9 | 7 | .CONST 0x0037,0xffe9
03ba 003d ffe8 | = | .CONST 0x003d,0xffe8
03bc 0041 ffe7 | A | .CONST 0x0041,0xffe7
03be 0048 ffe6 | H | .CONST 0x0048,0xffe6
03c0 004e ffe5 | N | .CONST 0x004e,0xffe5
03c2 0052 ffe4 | R | .CONST 0x0052,0xffe4
03c4 0059 ffe3 | Y | .CONST 0x0059,0xffe3
03c6 ; --------------------------------------------------------------------------------------
03c6 ; Debug3 Subtable 0x1
03c6 ; --------------------------------------------------------------------------------------
03c6 0011 0000 | | .DBG3TAB 0x0011,0x0000
03c8 0064 ffff | d | .CONST 0x0064,0xffff
03ca 0066 fffe | f | .CONST 0x0066,0xfffe
03cc 0068 fffd | h | .CONST 0x0068,0xfffd
03ce 006a fffc | j | .CONST 0x006a,0xfffc
03d0 006c fffb | l | .CONST 0x006c,0xfffb
03d2 006e fffa | n | .CONST 0x006e,0xfffa
03d4 0070 fff9 | p | .CONST 0x0070,0xfff9
03d6 0072 fff8 | r | .CONST 0x0072,0xfff8
03d8 0074 fff7 | t | .CONST 0x0074,0xfff7
03da 0076 fff6 | v | .CONST 0x0076,0xfff6
03dc 0078 fff5 | x | .CONST 0x0078,0xfff5
03de 007a fff4 | z | .CONST 0x007a,0xfff4
03e0 007c fff3 | | | .CONST 0x007c,0xfff3
03e2 007e fff2 | ~ | .CONST 0x007e,0xfff2
03e4 0080 fff1 | | .CONST 0x0080,0xfff1
03e6 0082 fff0 | | .CONST 0x0082,0xfff0
03e8 0084 ffef | | .CONST 0x0084,0xffef
03ea ; --------------------------------------------------------------------------------------
03ea ; Debug3 Subtable 0x2
03ea ; --------------------------------------------------------------------------------------
03ea 0001 0003 | | .DBG3TAB 0x0001,0x0003
03ec 008b ffff | | .CONST 0x008b,0xffff
03ee 0095 0001 | | .CONST 0x0095,0x0001
03f0 0097 0002 | | .CONST 0x0097,0x0002
03f2 00a2 0003 | | .CONST 0x00a2,0x0003
03f4 ; --------------------------------------------------------------------------------------
03f4 ; Debug3 Subtable 0x3
03f4 ; --------------------------------------------------------------------------------------
03f4 0001 0004 | | .DBG3TAB 0x0001,0x0004
03f6 00ab ffff | | .CONST 0x00ab,0xffff
03f8 00b5 0001 | | .CONST 0x00b5,0x0001
03fa 00b7 0002 | | .CONST 0x00b7,0x0002
03fc 00bb 0003 | | .CONST 0x00bb,0x0003
03fe 00be 0004 | | .CONST 0x00be,0x0004
0400 ; --------------------------------------------------------------------------------------
0400 ; Debug3 Subtable 0x4
0400 ; --------------------------------------------------------------------------------------
0400 0004 000a | | .DBG3TAB 0x0004,0x000a
0402 00cb ffff | | .CONST 0x00cb,0xffff
0404 00d1 fffe | | .CONST 0x00d1,0xfffe
0406 00d4 fffd | | .CONST 0x00d4,0xfffd
0408 00d9 0001 | | .CONST 0x00d9,0x0001
040a 00db 0002 | | .CONST 0x00db,0x0002
040c 00e5 0003 | | .CONST 0x00e5,0x0003
040e 00e6 fbff | | .CONST 0x00e6,0xfbff
0410 00e8 0401 | | .CONST 0x00e8,0x0401
0412 00eb 0402 | | .CONST 0x00eb,0x0402
0414 00ee 0403 | | .CONST 0x00ee,0x0403
0416 00f3 0004 | | .CONST 0x00f3,0x0004
0418 00fb 0005 | | .CONST 0x00fb,0x0005
041a 00fd 0006 | | .CONST 0x00fd,0x0006
041c 00ff 0007 | | .CONST 0x00ff,0x0007
041e ; --------------------------------------------------------------------------------------
041e ; Debug3 Subtable 0x5
041e ; --------------------------------------------------------------------------------------
041e 0003 000a | | .DBG3TAB 0x0003,0x000a
0420 010b ffff | | .CONST 0x010b,0xffff
0422 010f fffe | | .CONST 0x010f,0xfffe
0424 0116 fffd | | .CONST 0x0116,0xfffd
0426 0119 0002 | | .CONST 0x0119,0x0002
0428 0121 0003 | ! | .CONST 0x0121,0x0003
042a 0123 0004 | # | .CONST 0x0123,0x0004
042c 012a 0005 | * | .CONST 0x012a,0x0005
042e 0132 0006 | 2 | .CONST 0x0132,0x0006
0430 0139 0007 | 9 | .CONST 0x0139,0x0007
0432 013a 0008 | : | .CONST 0x013a,0x0008
0434 013c 0009 | < | .CONST 0x013c,0x0009
0436 0141 0001 | A | .CONST 0x0141,0x0001
0438 0144 000a | D | .CONST 0x0144,0x000a
043a ; --------------------------------------------------------------------------------------
043a ; Debug3 Subtable 0x6
043a ; --------------------------------------------------------------------------------------
043a 0000 0001 | | .DBG3TAB 0x0000,0x0001
043c 014b 0001 | K | .CONST 0x014b,0x0001
043e ; --------------------------------------------------------------------------------------
043e ; Debug3 Subtable 0x7
043e ; --------------------------------------------------------------------------------------
043e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0440 015b 0001 | [ | .CONST 0x015b,0x0001
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug3 Subtable 0x8
0442 ; --------------------------------------------------------------------------------------
0442 0000 0003 | | .DBG3TAB 0x0000,0x0003
0444 0164 0001 | d | .CONST 0x0164,0x0001
0446 0169 0002 | i | .CONST 0x0169,0x0002
0448 0172 0003 | r | .CONST 0x0172,0x0003
044a ; --------------------------------------------------------------------------------------
044a ; Debug3 Subtable 0x9
044a ; --------------------------------------------------------------------------------------
044a 0001 0007 | | .DBG3TAB 0x0001,0x0007
044c 017b ffff | { | .CONST 0x017b,0xffff
044e 017d 0001 | } | .CONST 0x017d,0x0001
0450 0182 0002 | | .CONST 0x0182,0x0002
0452 0188 0003 | | .CONST 0x0188,0x0003
0454 0190 0005 | | .CONST 0x0190,0x0005
0456 01c3 0006 | | .CONST 0x01c3,0x0006
0458 01c8 0004 | | .CONST 0x01c8,0x0004
045a 01ce 0007 | | .CONST 0x01ce,0x0007
045c ; --------------------------------------------------------------------------------------
045c ; Debug3 Subtable 0xa
045c ; --------------------------------------------------------------------------------------
045c 0001 000a | | .DBG3TAB 0x0001,0x000a
045e 01db ffff | | .CONST 0x01db,0xffff
0460 01de 0001 | | .CONST 0x01de,0x0001
0462 01e3 0002 | | .CONST 0x01e3,0x0002
0464 01ea 0003 | | .CONST 0x01ea,0x0003
0466 01ed 0004 | | .CONST 0x01ed,0x0004
0468 01f0 0005 | | .CONST 0x01f0,0x0005
046a 01f3 0006 | | .CONST 0x01f3,0x0006
046c 01f6 0007 | | .CONST 0x01f6,0x0007
046e 01f9 0008 | | .CONST 0x01f9,0x0008
0470 01fd 0009 | | .CONST 0x01fd,0x0009
0472 0200 000a | | .CONST 0x0200,0x000a
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug3 Subtable 0xb
0474 ; --------------------------------------------------------------------------------------
0474 0000 0007 | | .DBG3TAB 0x0000,0x0007
0476 020b 0001 | | .CONST 0x020b,0x0001
0478 0213 0003 | | .CONST 0x0213,0x0003
047a 0219 0004 | | .CONST 0x0219,0x0004
047c 021c 0005 | | .CONST 0x021c,0x0005
047e 021d 0006 | | .CONST 0x021d,0x0006
0480 0222 0007 | " | .CONST 0x0222,0x0007
0482 022c 0002 | , | .CONST 0x022c,0x0002
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug3 Subtable 0xc
0484 ; --------------------------------------------------------------------------------------
0484 0000 0001 | | .DBG3TAB 0x0000,0x0001
0486 0233 0001 | 3 | .CONST 0x0233,0x0001
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug3 Subtable 0xd
0488 ; --------------------------------------------------------------------------------------
0488 0000 0001 | | .DBG3TAB 0x0000,0x0001
048a 0243 0001 | C | .CONST 0x0243,0x0001
048c ; --------------------------------------------------------------------------------------
048c ; Debug3 Subtable 0xe
048c ; --------------------------------------------------------------------------------------
048c 0000 0001 | | .DBG3TAB 0x0000,0x0001
048e 024b 0001 | K | .CONST 0x024b,0x0001
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug3 Subtable 0xf
0490 ; --------------------------------------------------------------------------------------
0490 0000 0001 | | .DBG3TAB 0x0000,0x0001
0492 0253 0001 | S | .CONST 0x0253,0x0001
0494 ; --------------------------------------------------------------------------------------
0494 ; Debug3 Subtable 0x10
0494 ; --------------------------------------------------------------------------------------
0494 0000 0001 | | .DBG3TAB 0x0000,0x0001
0496 025b 0001 | [ | .CONST 0x025b,0x0001
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug3 Subtable 0x11
0498 ; --------------------------------------------------------------------------------------
0498 0000 0000 | | .DBG3TAB 0x0000,0x0000
049a ; --------------------------------------------------------------------------------------
049a ; Debug3 Subtable 0x12
049a ; --------------------------------------------------------------------------------------
049a 0000 0000 | | .DBG3TAB 0x0000,0x0000
049c ; --------------------------------------------------------------------------------------
049c ; Debug3 Subtable 0x13
049c ; --------------------------------------------------------------------------------------
049c 0001 0005 | | .DBG3TAB 0x0001,0x0005
049e 02b3 ffff | | .CONST 0x02b3,0xffff
04a0 02b8 0002 | | .CONST 0x02b8,0x0002
04a2 02c0 0003 | | .CONST 0x02c0,0x0003
04a4 02c2 0004 | | .CONST 0x02c2,0x0004
04a6 02c7 0001 | | .CONST 0x02c7,0x0001
04a8 02ca 0005 | | .CONST 0x02ca,0x0005
04aa ; --------------------------------------------------------------------------------------
04aa ; Debug3 Subtable 0x14
04aa ; --------------------------------------------------------------------------------------
04aa 0000 0001 | | .DBG3TAB 0x0000,0x0001
04ac 02d3 0001 | | .CONST 0x02d3,0x0001
04ae 0000 0000 | | .BLANK 0000[0x152]