|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0350 | P | .CONST 0x0350 ; 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 008a | | .CONST 0x008a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 00d8 | | Load_Top At_Offset_0
000e 4800 |H | Short_Literal 0x0
000f 4801 |H | Short_Literal 0x1
0010 4801 |H | Short_Literal 0x1
0011 4803 |H | Short_Literal 0x3
0012 0319 | | Declare_Type Variant_Record,Incomplete,Visible
0013 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0015 00d9 | | Load_Top At_Offset_1
0016 012a | * | Execute Any,Change_Utility
0017 0007 | | Action Break_Optional
0018 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001c 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
001e 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0020 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0022 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0024 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0026 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0028 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
002a 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
002c 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
002e 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0030 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0032 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0034 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0036 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0038 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
003a 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
003c 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
003e 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0040 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0042 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0044 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0046 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0048 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
004a 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
004c e20d | | Load 0x1,0xd
004d 00e9 | | Load_Encached String_Cache
004e 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0050 4800 |H | Short_Literal 0x0
0051 4801 |H | Short_Literal 0x1
0052 4801 |H | Short_Literal 0x1
0053 e20e | | Load 0x1,0xe
0054 0307 | | Complete_Type Variant_Record,By_Defining
0055 00bf | | Action Accept_Activation
0056 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0057 00c7 | | Action Elaborate_Subprogram
0058 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0059 00c7 | | Action Elaborate_Subprogram
005a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
005b 00c7 | | Action Elaborate_Subprogram
005c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005d 00c7 | | Action Elaborate_Subprogram
005e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
005f 00c7 | | Action Elaborate_Subprogram
0060 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0061 00c7 | | Action Elaborate_Subprogram
0062 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0063 00c7 | | Action Elaborate_Subprogram
0064 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0065 00c7 | | Action Elaborate_Subprogram
0066 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0067 00c7 | | Action Elaborate_Subprogram
0068 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0069 00c7 | | Action Elaborate_Subprogram
006a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0073 00c7 | | Action Elaborate_Subprogram
0074 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0077 00c7 | | Action Elaborate_Subprogram
0078 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0079 00c7 | | Action Elaborate_Subprogram
007a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007b 00c7 | | Action Elaborate_Subprogram
007c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007d 00c7 | | Action Elaborate_Subprogram
007e 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
007f 00c7 | | Action Elaborate_Subprogram
0080 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0081 00c7 | | Action Elaborate_Subprogram
0082 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0083 00c7 | | Action Elaborate_Subprogram
0084 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0085 00c7 | | Action Elaborate_Subprogram
0086 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0087 00c7 | | Action Elaborate_Subprogram
0088 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0089 00c7 | | Action Elaborate_Subprogram
008a BODY_0008:
008a 00bc | | Action Signal_Activated
008b 00bb | | Action Signal_Completion
008c 0000 0000 | | .BLANK 0000[0x4]
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 4801 |H | Short_Literal 0x1
0094 00db | | Load_Top At_Offset_3
0095 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0096 e5ff | | Load 0x2,-0x1
0097 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0098 01cf | | Execute Vector,Slice_Read
0099 4801 |H | Short_Literal 0x1
009a e5ff | | Load 0x2,-0x1
009b 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009c e5fe | | Load 0x2,-0x2
009d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
009e 01ce | | Execute Vector,Slice_Write
009f 00da | | Load_Top At_Offset_2
00a0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00a1 e5fe | | Load 0x2,-0x2
00a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00a4 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
00ac 4801 |H | Short_Literal 0x1
00ad e5ff | | Load 0x2,-0x1
00ae 01db | | Execute Vector,Length
00af 00d8 | | Load_Top At_Offset_0
00b0 00e2 | | Load_Encached Integer_Cache
00b1 0260 | ` | Execute Discrete,In_Type
00b2 7001 |p | Jump_Nonzero 0xb4
00b3 0801 | | Execute_Immediate Raise,0x1
00b4 e5fe | | Load 0x2,-0x2
00b5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00b6 01ce | | Execute Vector,Slice_Write
00b7 00da | | Load_Top At_Offset_2
00b8 01db | | Execute Vector,Length
00b9 e5fe | | Load 0x2,-0x2
00ba 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bc 0000 0000 | | .BLANK 0000[0x4]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 00da | | Load_Top At_Offset_2
00c4 4801 |H | Short_Literal 0x1
00c5 e5fe | | Load 0x2,-0x2
00c6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00c7 01d6 | | Execute Vector,Field_Write
00c8 4801 |H | Short_Literal 0x1
00c9 e5fe | | Load 0x2,-0x2
00ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00cc 0000 0000 | | .BLANK 0000[0x4]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 4801 |H | Short_Literal 0x1
00d4 e5fe | | Load 0x2,-0x2
00d5 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00d6 e5fe | | Load 0x2,-0x2
00d7 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00d8 01cf | | Execute Vector,Slice_Read
00d9 4801 |H | Short_Literal 0x1
00da e5fe | | Load 0x2,-0x2
00db 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00dc e5ff | | Load 0x2,-0x1
00dd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00de 01ce | | Execute Vector,Slice_Write
00df 00db | | Load_Top At_Offset_3
00e0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00e1 00db | | Load_Top At_Offset_3
00e2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e3 4800 |H | Short_Literal 0x0
00e4 e5fe | | Load 0x2,-0x2
00e5 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00e6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e7 0000 | | .XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4801 |H | Short_Literal 0x1
00ec 00db | | Load_Top At_Offset_3
00ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ee e5ff | | Load 0x2,-0x1
00ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00f0 01cf | | Execute Vector,Slice_Read
00f1 0335 | 5 | Declare_Variable Array,Duplicate
00f2 00cd | | Action Spare6_Action
00f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc 01db | | Execute Vector,Length
00fd e20e | | Load 0x1,0xe
00fe 1c08 | | Execute_Immediate Run_Utility,0x8
00ff 00db | | Load_Top At_Offset_3
0100 01db | | Execute Vector,Length
0101 00d9 | | Load_Top At_Offset_1
0102 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0103 00db | | Load_Top At_Offset_3
0104 00d9 | | Load_Top At_Offset_1
0105 00d8 | | Load_Top At_Offset_0
0106 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0107 00da | | Load_Top At_Offset_2
0108 01da | | Execute Vector,Bounds
0109 00da | | Load_Top At_Offset_2
010a 01da | | Execute Vector,Bounds
010b 00da | | Load_Top At_Offset_2
010c 027f | | Execute Discrete,Equal
010d 7001 |p | Jump_Nonzero 0x10f
010e 08e0 | | Execute_Immediate Raise,0xe0
010f 00cd | | Action Spare6_Action
0110 027f | | Execute Discrete,Equal
0111 7001 |p | Jump_Nonzero 0x113
0112 08e0 | | Execute_Immediate Raise,0xe0
0113 00d2 | | Pop_Control Pop_Count_2
0114 00d9 | | Load_Top At_Offset_1
0115 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0116 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0117 0000 | | .XXX[0x1]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0120 | | .CONST 0x0120 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b 4801 |H | Short_Literal 0x1
011c e5fe | | Load 0x2,-0x2
011d 00e9 | | Load_Encached String_Cache
011e 035b | [ | Declare_Type Array,Constrained
011f 0337 | 7 | Declare_Variable Array
0120 BODY_0118:
0120 00db | | Load_Top At_Offset_3
0121 4801 |H | Short_Literal 0x1
0122 e5ff | | Load 0x2,-0x1
0123 01db | | Execute Vector,Length
0124 00d8 | | Load_Top At_Offset_0
0125 00e2 | | Load_Encached Integer_Cache
0126 0260 | ` | Execute Discrete,In_Type
0127 7001 |p | Jump_Nonzero 0x129
0128 0801 | | Execute_Immediate Raise,0x1
0129 00db | | Load_Top At_Offset_3
012a 01ce | | Execute Vector,Slice_Write
012b e5fe | | Load 0x2,-0x2
012c e20e | | Load 0x1,0xe
012d 1c08 | | Execute_Immediate Run_Utility,0x8
012e e5ff | | Load 0x2,-0x1
012f 01db | | Execute Vector,Length
0130 00d9 | | Load_Top At_Offset_1
0131 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0132 00d9 | | Load_Top At_Offset_1
0133 00d9 | | Load_Top At_Offset_1
0134 00d8 | | Load_Top At_Offset_0
0135 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0136 00da | | Load_Top At_Offset_2
0137 01da | | Execute Vector,Bounds
0138 00da | | Load_Top At_Offset_2
0139 01da | | Execute Vector,Bounds
013a 00da | | Load_Top At_Offset_2
013b 027f | | Execute Discrete,Equal
013c 7001 |p | Jump_Nonzero 0x13e
013d 08e0 | | Execute_Immediate Raise,0xe0
013e 00cd | | Action Spare6_Action
013f 027f | | Execute Discrete,Equal
0140 7001 |p | Jump_Nonzero 0x142
0141 08e0 | | Execute_Immediate Raise,0xe0
0142 00d2 | | Pop_Control Pop_Count_2
0143 00d9 | | Load_Top At_Offset_1
0144 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0145 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 4800 |H | Short_Literal 0x0
014c 00db | | Load_Top At_Offset_3
014d 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
014e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
014f 0000 | | .XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00db | | Load_Top At_Offset_3
0154 00db | | Load_Top At_Offset_3
0155 8213 | | Call 0x1,0x13
0156 8218 | | Call 0x1,0x18
0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0162 | b | .CONST 0x0162 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00db | | Load_Top At_Offset_3
015c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
015d 00db | | Load_Top At_Offset_3
015e 01db | | Execute Vector,Length
015f 0273 | s | Execute Discrete,Plus
0160 00e3 | | Load_Encached Natural_Cache
0161 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0162 BODY_0158:
0162 00db | | Load_Top At_Offset_3
0163 e5fe | | Load 0x2,-0x2
0164 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0165 0a01 | | Execute_Immediate Plus,0x1
0166 00d8 | | Load_Top At_Offset_0
0167 00e2 | | Load_Encached Integer_Cache
0168 0260 | ` | Execute Discrete,In_Type
0169 7001 |p | Jump_Nonzero 0x16b
016a 0801 | | Execute_Immediate Raise,0x1
016b 00da | | Load_Top At_Offset_2
016c e5fe | | Load 0x2,-0x2
016d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
016e 01ce | | Execute Vector,Slice_Write
016f 00d8 | | Load_Top At_Offset_0
0170 e5fe | | Load 0x2,-0x2
0171 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0172 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0173 0000 0000 | | .BLANK 0000[0x5]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0180 | | .CONST 0x0180 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 00db | | Load_Top At_Offset_3
017c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
017d 0a01 | | Execute_Immediate Plus,0x1
017e 00e3 | | Load_Encached Natural_Cache
017f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0180 BODY_0178:
0180 00db | | Load_Top At_Offset_3
0181 00d9 | | Load_Top At_Offset_1
0182 e5fe | | Load 0x2,-0x2
0183 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0184 01d6 | | Execute Vector,Field_Write
0185 00d8 | | Load_Top At_Offset_0
0186 e5fe | | Load 0x2,-0x2
0187 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0188 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a9 | | .CONST 0x01a9 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 4801 |H | Short_Literal 0x1
0194 e5fe | | Load 0x2,-0x2
0195 00e9 | | Load_Encached String_Cache
0196 035b | [ | Declare_Type Array,Constrained
0197 0337 | 7 | Declare_Variable Array
0198 4801 |H | Short_Literal 0x1
0199 e5fe | | Load 0x2,-0x2
019a 00e9 | | Load_Encached String_Cache
019b 035b | [ | Declare_Type Array,Constrained
019c 0337 | 7 | Declare_Variable Array
019d 00d8 | | Load_Top At_Offset_0
019e 01dc | | Execute Vector,Last
019f 4801 |H | Short_Literal 0x1
01a0 0263 | c | Execute Discrete,Above_Bound
01a1 7005 |p | Jump_Nonzero 0x1a7
01a2 e5ff | | Load 0x2,-0x1
01a3 00d9 | | Load_Top At_Offset_1
01a4 e403 | | Load 0x2,0x3
01a5 01d6 | | Execute Vector,Field_Write
01a6 3ffb |? | Loop_Increasing 0x1a2
01a7 00d9 | | Load_Top At_Offset_1
01a8 01d4 | | Execute Vector,Structure_Write
01a9 BODY_0190:
01a9 e5fd | | Load 0x2,-0x3
01aa 00d9 | | Load_Top At_Offset_1
01ab 8218 | | Call 0x1,0x18
01ac 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e5fd | | Load 0x2,-0x3
01b4 4801 |H | Short_Literal 0x1
01b5 e5fe | | Load 0x2,-0x2
01b6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01b7 e5fe | | Load 0x2,-0x2
01b8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01b9 01cf | | Execute Vector,Slice_Read
01ba e5ff | | Load 0x2,-0x1
01bb 821c | | Call 0x1,0x1c
01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01bd 0000 0000 | | .XXX[0x3]
01bf 0000 | |
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c5 | | .CONST 0x01c5 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0002 | | .CONST 0x0002 ; Number of locals
01c3 INIT_01c0:
01c3 029f 030b | | Declare_Subprogram INIT_0308,For_Call
01c5 BODY_01c0:
01c5 00db | | Load_Top At_Offset_3
01c6 e5fd | | Load 0x2,-0x3
01c7 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01c8 0a01 | | Execute_Immediate Plus,0x1
01c9 027f | | Execute Discrete,Equal
01ca 6805 |h | Jump_Zero 0x1d0
01cb e5fd | | Load 0x2,-0x3
01cc e5fe | | Load 0x2,-0x2
01cd 8218 | | Call 0x1,0x18
01ce 00d1 | | Pop_Control Pop_Count_1
01cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d0 00db | | Load_Top At_Offset_3
01d1 e5fd | | Load 0x2,-0x3
01d2 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01d3 027a | z | Execute Discrete,Less_Equal
01d4 6802 |h | Jump_Zero 0x1d7
01d5 8402 | | Call 0x2,0x2
01d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d7 08e0 | | Execute_Immediate Raise,0xe0
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e0 | | .CONST 0x01e0 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db e5fd | | Load 0x2,-0x3
01dc 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01dd 0a01 | | Execute_Immediate Plus,0x1
01de 00e3 | | Load_Encached Natural_Cache
01df 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01e0 BODY_01d8:
01e0 00db | | Load_Top At_Offset_3
01e1 00d9 | | Load_Top At_Offset_1
01e2 027f | | Execute Discrete,Equal
01e3 6805 |h | Jump_Zero 0x1e9
01e4 e5fd | | Load 0x2,-0x3
01e5 e5fe | | Load 0x2,-0x2
01e6 8219 | | Call 0x1,0x19
01e7 00d1 | | Pop_Control Pop_Count_1
01e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e9 00db | | Load_Top At_Offset_3
01ea 00d9 | | Load_Top At_Offset_1
01eb 027d | } | Execute Discrete,Greater
01ec 6801 |h | Jump_Zero 0x1ee
01ed 08e0 | | Execute_Immediate Raise,0xe0
01ee 00db | | Load_Top At_Offset_3
01ef e5fd | | Load 0x2,-0x3
01f0 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
01f1 e5fd | | Load 0x2,-0x3
01f2 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01f3 01cf | | Execute Vector,Slice_Read
01f4 e5ff | | Load 0x2,-0x1
01f5 0a01 | | Execute_Immediate Plus,0x1
01f6 00d8 | | Load_Top At_Offset_0
01f7 00e2 | | Load_Encached Integer_Cache
01f8 0260 | ` | Execute Discrete,In_Type
01f9 7001 |p | Jump_Nonzero 0x1fb
01fa 0801 | | Execute_Immediate Raise,0x1
01fb 00da | | Load_Top At_Offset_2
01fc e5fd | | Load 0x2,-0x3
01fd 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
01fe 01ce | | Execute Vector,Slice_Write
01ff e5fe | | Load 0x2,-0x2
0200 e5ff | | Load 0x2,-0x1
0201 e5fd | | Load 0x2,-0x3
0202 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0203 01d6 | | Execute Vector,Field_Write
0204 00d8 | | Load_Top At_Offset_0
0205 e5fd | | Load 0x2,-0x3
0206 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0207 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 0221 | ! | .CONST 0x0221 ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0002 | | .CONST 0x0002 ; Number of locals
020b INIT_0208:
020b 4801 |H | Short_Literal 0x1
020c e5fd | | Load 0x2,-0x3
020d 00e9 | | Load_Encached String_Cache
020e 035b | [ | Declare_Type Array,Constrained
020f 0337 | 7 | Declare_Variable Array
0210 4801 |H | Short_Literal 0x1
0211 e5fd | | Load 0x2,-0x3
0212 00e9 | | Load_Encached String_Cache
0213 035b | [ | Declare_Type Array,Constrained
0214 0337 | 7 | Declare_Variable Array
0215 00d8 | | Load_Top At_Offset_0
0216 01dc | | Execute Vector,Last
0217 4801 |H | Short_Literal 0x1
0218 0263 | c | Execute Discrete,Above_Bound
0219 7005 |p | Jump_Nonzero 0x21f
021a e5fe | | Load 0x2,-0x2
021b 00d9 | | Load_Top At_Offset_1
021c e403 | | Load 0x2,0x3
021d 01d6 | | Execute Vector,Field_Write
021e 3ffb |? | Loop_Increasing 0x21a
021f 00d9 | | Load_Top At_Offset_1
0220 01d4 | | Execute Vector,Structure_Write
0221 BODY_0208:
0221 e5fc | | Load 0x2,-0x4
0222 00d9 | | Load_Top At_Offset_1
0223 e5ff | | Load 0x2,-0x1
0224 821c | | Call 0x1,0x1c
0225 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0226 0000 0000 | | .XXX[0x2]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0231 | 1 | .CONST 0x0231 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0002 | | .CONST 0x0002 ; Number of locals
022b INIT_0228:
022b e5fd | | Load 0x2,-0x3
022c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
022d e5fe | | Load 0x2,-0x2
022e 0272 | r | Execute Discrete,Minus
022f 00e3 | | Load_Encached Natural_Cache
0230 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0231 BODY_0228:
0231 00db | | Load_Top At_Offset_3
0232 0aff | | Execute_Immediate Plus,-0x1
0233 00d9 | | Load_Top At_Offset_1
0234 027d | } | Execute Discrete,Greater
0235 6801 |h | Jump_Zero 0x237
0236 08e0 | | Execute_Immediate Raise,0xe0
0237 00db | | Load_Top At_Offset_3
0238 00d9 | | Load_Top At_Offset_1
0239 027a | z | Execute Discrete,Less_Equal
023a 6812 |h | Jump_Zero 0x24d
023b 00db | | Load_Top At_Offset_3
023c e5fe | | Load 0x2,-0x2
023d 0273 | s | Execute Discrete,Plus
023e 00d8 | | Load_Top At_Offset_0
023f 00e2 | | Load_Encached Integer_Cache
0240 0260 | ` | Execute Discrete,In_Type
0241 7001 |p | Jump_Nonzero 0x243
0242 0801 | | Execute_Immediate Raise,0x1
0243 e5fd | | Load 0x2,-0x3
0244 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0245 e5fd | | Load 0x2,-0x3
0246 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0247 01cf | | Execute Vector,Slice_Read
0248 e5ff | | Load 0x2,-0x1
0249 00da | | Load_Top At_Offset_2
024a e5fd | | Load 0x2,-0x3
024b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
024c 01ce | | Execute Vector,Slice_Write
024d 00d8 | | Load_Top At_Offset_0
024e e5fd | | Load 0x2,-0x3
024f 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0250 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0251 0000 0000 | | .BLANK 0000[0x7]
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
025c e5fd | | Load 0x2,-0x3
025d 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
025e 027d | } | Execute Discrete,Greater
025f 6801 |h | Jump_Zero 0x261
0260 08e0 | | Execute_Immediate Raise,0xe0
0261 00db | | Load_Top At_Offset_3
0262 00db | | Load_Top At_Offset_3
0263 e5fd | | Load 0x2,-0x3
0264 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0265 01d6 | | Execute Vector,Field_Write
0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0281 | | .CONST 0x0281 ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0002 | | .CONST 0x0002 ; Number of locals
026b INIT_0268:
026b 4801 |H | Short_Literal 0x1
026c e5fd | | Load 0x2,-0x3
026d 00e9 | | Load_Encached String_Cache
026e 035b | [ | Declare_Type Array,Constrained
026f 0337 | 7 | Declare_Variable Array
0270 4801 |H | Short_Literal 0x1
0271 e5fd | | Load 0x2,-0x3
0272 00e9 | | Load_Encached String_Cache
0273 035b | [ | Declare_Type Array,Constrained
0274 0337 | 7 | Declare_Variable Array
0275 00d8 | | Load_Top At_Offset_0
0276 01dc | | Execute Vector,Last
0277 4801 |H | Short_Literal 0x1
0278 0263 | c | Execute Discrete,Above_Bound
0279 7005 |p | Jump_Nonzero 0x27f
027a e5fe | | Load 0x2,-0x2
027b 00d9 | | Load_Top At_Offset_1
027c e403 | | Load 0x2,0x3
027d 01d6 | | Execute Vector,Field_Write
027e 3ffb |? | Loop_Increasing 0x27a
027f 00d9 | | Load_Top At_Offset_1
0280 01d4 | | Execute Vector,Structure_Write
0281 BODY_0268:
0281 e5fc | | Load 0x2,-0x4
0282 00d9 | | Load_Top At_Offset_1
0283 e5ff | | Load 0x2,-0x1
0284 8222 | " | Call 0x1,0x22
0285 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0292 | | .CONST 0x0292 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c e5fe | | Load 0x2,-0x2
028d 01db | | Execute Vector,Length
028e 0273 | s | Execute Discrete,Plus
028f 0aff | | Execute_Immediate Plus,-0x1
0290 00e4 | | Load_Encached Positive_Cache
0291 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0292 BODY_0288:
0292 00d8 | | Load_Top At_Offset_0
0293 e5fd | | Load 0x2,-0x3
0294 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0295 027d | } | Execute Discrete,Greater
0296 6801 |h | Jump_Zero 0x298
0297 08e0 | | Execute_Immediate Raise,0xe0
0298 e5fe | | Load 0x2,-0x2
0299 e5ff | | Load 0x2,-0x1
029a 00da | | Load_Top At_Offset_2
029b e5fd | | Load 0x2,-0x3
029c 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
029d 01ce | | Execute Vector,Slice_Write
029e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e5fd | | Load 0x2,-0x3
02a4 e5fe | | Load 0x2,-0x2
02a5 8213 | | Call 0x1,0x13
02a6 e5ff | | Load 0x2,-0x1
02a7 8222 | " | Call 0x1,0x22
02a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b7 | | .CONST 0x02b7 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 e5fd | | Load 0x2,-0x3
02b4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02b5 00e3 | | Load_Encached Natural_Cache
02b6 03f1 | | Declare_Variable Discrete,With_Value
02b7 BODY_02b0:
02b7 00cf | | Action Mark_Auxiliary
02b8 e5ff | | Load 0x2,-0x1
02b9 00da | | Load_Top At_Offset_2
02ba 0a01 | | Execute_Immediate Plus,0x1
02bb 00d8 | | Load_Top At_Offset_0
02bc 00e2 | | Load_Encached Integer_Cache
02bd 0260 | ` | Execute Discrete,In_Type
02be 7001 |p | Jump_Nonzero 0x2c0
02bf 0801 | | Execute_Immediate Raise,0x1
02c0 0263 | c | Execute Discrete,Above_Bound
02c1 7007 |p | Jump_Nonzero 0x2c9
02c2 e5fe | | Load 0x2,-0x2
02c3 00d9 | | Load_Top At_Offset_1
02c4 e5fd | | Load 0x2,-0x3
02c5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02c6 01d6 | | Execute Vector,Field_Write
02c7 00c8 | | Action Pop_Auxiliary_Range
02c8 3ff9 |? | Loop_Increasing 0x2c2
02c9 00ce | | Action Pop_Auxiliary
02ca 00db | | Load_Top At_Offset_3
02cb e5fd | | Load 0x2,-0x3
02cc 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02ce 0000 0000 | | .XXX[0x2]
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
02d4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d6 0000 0000 | | .XXX[0x2]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00db | | Load_Top At_Offset_3
02dc 00db | | Load_Top At_Offset_3
02dd 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02de 027d | } | Execute Discrete,Greater
02df 6801 |h | Jump_Zero 0x2e1
02e0 08e0 | | Execute_Immediate Raise,0xe0
02e1 00db | | Load_Top At_Offset_3
02e2 00db | | Load_Top At_Offset_3
02e3 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02e4 01d7 | | Execute Vector,Field_Read
02e5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02e6 0000 0000 | | .XXX[0x2]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb e5fd | | Load 0x2,-0x3
02ec 00db | | Load_Top At_Offset_3
02ed 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ee 027d | } | Execute Discrete,Greater
02ef 6801 |h | Jump_Zero 0x2f1
02f0 08e0 | | Execute_Immediate Raise,0xe0
02f1 00db | | Load_Top At_Offset_3
02f2 e5fd | | Load 0x2,-0x3
02f3 e5ff | | Load 0x2,-0x1
02f4 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02f5 01cf | | Execute Vector,Slice_Read
02f6 0335 | 5 | Declare_Variable Array,Duplicate
02f7 00cd | | Action Spare6_Action
02f8 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02f9 0000 0000 | | .BLANK 0000[0x7]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0305 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 0312 | | .CONST 0x0312 ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e5fd | | Load 0x2,-0x3
030c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
030d e5fe | | Load 0x2,-0x2
030e 01db | | Execute Vector,Length
030f 0273 | s | Execute Discrete,Plus
0310 00e3 | | Load_Encached Natural_Cache
0311 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0312 BODY_0308:
0312 e5fe | | Load 0x2,-0x2
0313 e5ff | | Load 0x2,-0x1
0314 e5fd | | Load 0x2,-0x3
0315 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0316 e5fd | | Load 0x2,-0x3
0317 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0318 01cf | | Execute Vector,Slice_Read
0319 01cc | | Execute Vector,Catenate
031a e5ff | | Load 0x2,-0x1
031b 00da | | Load_Top At_Offset_2
031c e5fd | | Load 0x2,-0x3
031d 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
031e 01ce | | Execute Vector,Slice_Write
031f 00d8 | | Load_Top At_Offset_0
0320 e5fd | | Load 0x2,-0x3
0321 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0322 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0323 0000 0000 | | .BLANK 0000[0x5]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b BODY_0328:
032b INIT_0328:
032b INIT_0328:
032b 4608 |F | Jump_Case 0x9
032c 7808 |x | Jump 0x335 ; case 0x0
032d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
032e 781d |x | Jump 0x34c ; case 0x2
032f 781c |x | Jump 0x34c ; case 0x3
0330 781b |x | Jump 0x34c ; case 0x4
0331 781a |x | Jump 0x34c ; case 0x5
0332 7819 |x | Jump 0x34c ; case 0x6
0333 7805 |x | Jump 0x339 ; case 0x7
0334 780d |x | Jump 0x342 ; case 0x8
0335 4800 |H | Short_Literal 0x0
0336 00db | | Load_Top At_Offset_3
0337 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0338 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0339 00db | | Load_Top At_Offset_3
033a 4801 |H | Short_Literal 0x1
033b e5fe | | Load 0x2,-0x2
033c 00e9 | | Load_Encached String_Cache
033d 035b | [ | Declare_Type Array,Constrained
033e 4801 |H | Short_Literal 0x1
033f e5ff | | Load 0x2,-0x1
0340 031b | | Declare_Type Variant_Record,Constrained
0341 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0342 00db | | Load_Top At_Offset_3
0343 00db | | Load_Top At_Offset_3
0344 02fc | | Declare_Variable Variant_Record,With_Constraint
0345 4801 |H | Short_Literal 0x1
0346 e5fe | | Load 0x2,-0x2
0347 00e9 | | Load_Encached String_Cache
0348 0334 | 4 | Declare_Variable Array,With_Constraint
0349 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
034a 016a | j | QQ_execute Variant_Record,XXX
034b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
034c 0869 | i | Execute_Immediate Raise,0x69
034d 0000 0000 | | .XXX[0x3]
034f 0000 | |
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug Table
0350 ; --------------------------------------------------------------------------------------
0350 0004 0001 | | .DEBUG4 0x0004,0x0001,0x2e6d,0x0000,0x0001,0x001e
0356 000b 03ce | | .DBG4T 0x000b,0x03ce,0x8000,0x8000
035a 0056 040a | V | .DBG4T 0x0056,0x040a,0x8000,0x0000
035e 0093 0426 | &| .DBG4T 0x0093,0x0426,0x0001,0x0000
0362 00ab 042a | *| .DBG4T 0x00ab,0x042a,0x0001,0x0000
0366 00c3 042e | .| .DBG4T 0x00c3,0x042e,0x0001,0x0000
036a 00d3 0432 | 2| .DBG4T 0x00d3,0x0432,0x0001,0x0000
036e 00eb 0437 | 7| .DBG4T 0x00eb,0x0437,0x0002,0x0000
0372 00fb 043a | :| .DBG4T 0x00fb,0x043a,0x0002,0x0000
0376 011b 043d | =| .DBG4T 0x011b,0x043d,0x0002,0x0000
037a 014b 0442 | K B| .DBG4T 0x014b,0x0442,0x0001,0x0000
037e 0153 0445 | S E| .DBG4T 0x0153,0x0445,0x0001,0x0000
0382 015b 0448 | [ H| .DBG4T 0x015b,0x0448,0x0001,0x0000
0386 017b 044d | { M| .DBG4T 0x017b,0x044d,0x0001,0x0000
038a 0193 0452 | R| .DBG4T 0x0193,0x0452,0x0001,0x0000
038e 01b3 0456 | V| .DBG4T 0x01b3,0x0456,0x0001,0x0000
0392 01c3 0459 | Y| .DBG4T 0x01c3,0x0459,0x0001,0x0000
0396 01db 0460 | `| .DBG4T 0x01db,0x0460,0x0001,0x0000
039a 020b 046a | j| .DBG4T 0x020b,0x046a,0x0001,0x0000
039e 022b 046e | + n| .DBG4T 0x022b,0x046e,0x0001,0x0000
03a2 025b 0476 | [ v| .DBG4T 0x025b,0x0476,0x0001,0x0000
03a6 026b 047b | k {| .DBG4T 0x026b,0x047b,0x0001,0x0000
03aa 028b 047f | | .DBG4T 0x028b,0x047f,0x0001,0x0000
03ae 02a3 0485 | | .DBG4T 0x02a3,0x0485,0x0001,0x0000
03b2 02b3 0488 | | .DBG4T 0x02b3,0x0488,0x0001,0x0000
03b6 02d3 048e | | .DBG4T 0x02d3,0x048e,0x0002,0x0000
03ba 02db 0491 | | .DBG4T 0x02db,0x0491,0x0002,0x0000
03be 02eb 0496 | | .DBG4T 0x02eb,0x0496,0x0002,0x0000
03c2 0303 049b | | .DBG4T 0x0303,0x049b,0x0002,0x0000
03c6 030b 049e | | .DBG4T 0x030b,0x049e,0x0004,0x0000
03ca 032b 0000 | + | .DBG4T 0x032b,0x0000,0x0005,0x0000
03ce ; --------------------------------------------------------------------------------------
03ce ; Debug chain
03ce ; --------------------------------------------------------------------------------------
03ce 001d 0000 | | .DBGLEN 0x001d,0x0000
03d0 000b 000d | | .DBGLNO 0x000b,0x000d,0x0018,0x001a,0x001c,0x001e,0x0020,0x0022,0x0024,0x0026,0x0028,0x002a,0x002c,0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a,0x004c
03ed 0001 0002 | | .XXX[0x1d]
03ef 0003 0004 | |
03f1 0005 0006 | |
03f3 0007 0008 | |
03f5 0009 000b | |
03f7 000c 000d | |
03f9 000e 000f | |
03fb 0010 0011 | |
03fd 0012 0013 | |
03ff 0014 0015 | |
0401 0016 0017 | |
0403 0018 0019 | |
0405 001a 001b | |
0407 001c 001d | |
0409 0021 | ! |
040a ; --------------------------------------------------------------------------------------
040a ; Debug chain
040a ; --------------------------------------------------------------------------------------
040a 001a 0000 | | .DBGLEN 0x001a,0x0000
040c 0056 0058 | V X| .DBGLNO 0x0056,0x0058,0x005a,0x005c,0x005e,0x0060,0x0062,0x0064,0x0066,0x0068,0x006a,0x006c,0x006e,0x0070,0x0072,0x0074,0x0076,0x0078,0x007a,0x007c,0x007e,0x0080,0x0082,0x0084,0x0086,0x0088
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug chain
0426 ; --------------------------------------------------------------------------------------
0426 0000 0002 | | .DBGLEN 0x0000,0x0002
0428 0093 009f | | .DBGLNO 0x0093,0x009f
042a ; --------------------------------------------------------------------------------------
042a ; Debug chain
042a ; --------------------------------------------------------------------------------------
042a 0000 0002 | | .DBGLEN 0x0000,0x0002
042c 00ab 00b7 | | .DBGLNO 0x00ab,0x00b7
042e ; --------------------------------------------------------------------------------------
042e ; Debug chain
042e ; --------------------------------------------------------------------------------------
042e 0000 0002 | | .DBGLEN 0x0000,0x0002
0430 00c3 00c8 | | .DBGLNO 0x00c3,0x00c8
0432 ; --------------------------------------------------------------------------------------
0432 ; Debug chain
0432 ; --------------------------------------------------------------------------------------
0432 0000 0003 | | .DBGLEN 0x0000,0x0003
0434 00d3 00df | | .DBGLNO 0x00d3,0x00df,0x00e3
0437 ; --------------------------------------------------------------------------------------
0437 ; Debug chain
0437 ; --------------------------------------------------------------------------------------
0437 0000 0001 | | .DBGLEN 0x0000,0x0001
0439 00eb | | .DBGLNO 0x00eb
043a ; --------------------------------------------------------------------------------------
043a ; Debug chain
043a ; --------------------------------------------------------------------------------------
043a 0000 0001 | | .DBGLEN 0x0000,0x0001
043c 00fb | | .DBGLNO 0x00fb
043d ; --------------------------------------------------------------------------------------
043d ; Debug chain
043d ; --------------------------------------------------------------------------------------
043d 0001 0002 | | .DBGLEN 0x0001,0x0002
043f 011b 0120 | | .DBGLNO 0x011b,0x0120,0x012b
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug chain
0442 ; --------------------------------------------------------------------------------------
0442 0000 0001 | | .DBGLEN 0x0000,0x0001
0444 014b | K | .DBGLNO 0x014b
0445 ; --------------------------------------------------------------------------------------
0445 ; Debug chain
0445 ; --------------------------------------------------------------------------------------
0445 0000 0001 | | .DBGLEN 0x0000,0x0001
0447 0153 | S | .DBGLNO 0x0153
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug chain
0448 ; --------------------------------------------------------------------------------------
0448 0001 0002 | | .DBGLEN 0x0001,0x0002
044a 015b 0162 | [ b| .DBGLNO 0x015b,0x0162,0x016f
044d ; --------------------------------------------------------------------------------------
044d ; Debug chain
044d ; --------------------------------------------------------------------------------------
044d 0001 0002 | | .DBGLEN 0x0001,0x0002
044f 017b 0180 | { | .DBGLNO 0x017b,0x0180,0x0185
0452 ; --------------------------------------------------------------------------------------
0452 ; Debug chain
0452 ; --------------------------------------------------------------------------------------
0452 0001 0001 | | .DBGLEN 0x0001,0x0001
0454 0193 01a9 | | .DBGLNO 0x0193,0x01a9
0456 ; --------------------------------------------------------------------------------------
0456 ; Debug chain
0456 ; --------------------------------------------------------------------------------------
0456 0000 0001 | | .DBGLEN 0x0000,0x0001
0458 01b3 | | .DBGLNO 0x01b3
0459 ; --------------------------------------------------------------------------------------
0459 ; Debug chain
0459 ; --------------------------------------------------------------------------------------
0459 0000 0005 | | .DBGLEN 0x0000,0x0005
045b 01c5 01cb | | .DBGLNO 0x01c5,0x01cb,0x01d0,0x01d5,0x01d7
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0001 0007 | | .DBGLEN 0x0001,0x0007
0462 01db 01e0 | | .DBGLNO 0x01db,0x01e0,0x01e4,0x01e9,0x01ed,0x01ee,0x01ff,0x0204
046a ; --------------------------------------------------------------------------------------
046a ; Debug chain
046a ; --------------------------------------------------------------------------------------
046a 0001 0001 | | .DBGLEN 0x0001,0x0001
046c 020b 0221 | !| .DBGLNO 0x020b,0x0221
046e ; --------------------------------------------------------------------------------------
046e ; Debug chain
046e ; --------------------------------------------------------------------------------------
046e 0001 0005 | | .DBGLEN 0x0001,0x0005
0470 022b 0231 | + 1| .DBGLNO 0x022b,0x0231,0x0236,0x0237,0x023b,0x024d
0476 ; --------------------------------------------------------------------------------------
0476 ; Debug chain
0476 ; --------------------------------------------------------------------------------------
0476 0000 0003 | | .DBGLEN 0x0000,0x0003
0478 025b 0260 | [ `| .DBGLNO 0x025b,0x0260,0x0261
047b ; --------------------------------------------------------------------------------------
047b ; Debug chain
047b ; --------------------------------------------------------------------------------------
047b 0001 0001 | | .DBGLEN 0x0001,0x0001
047d 026b 0281 | k | .DBGLNO 0x026b,0x0281
047f ; --------------------------------------------------------------------------------------
047f ; Debug chain
047f ; --------------------------------------------------------------------------------------
047f 0001 0003 | | .DBGLEN 0x0001,0x0003
0481 028b 0292 | | .DBGLNO 0x028b,0x0292,0x0297,0x0298
0485 ; --------------------------------------------------------------------------------------
0485 ; Debug chain
0485 ; --------------------------------------------------------------------------------------
0485 0000 0001 | | .DBGLEN 0x0000,0x0001
0487 02a3 | | .DBGLNO 0x02a3
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug chain
0488 ; --------------------------------------------------------------------------------------
0488 0001 0003 | | .DBGLEN 0x0001,0x0003
048a 02b3 02b8 | | .DBGLNO 0x02b3,0x02b8,0x02c2,0x02ca
048e ; --------------------------------------------------------------------------------------
048e ; Debug chain
048e ; --------------------------------------------------------------------------------------
048e 0000 0001 | | .DBGLEN 0x0000,0x0001
0490 02d3 | | .DBGLNO 0x02d3
0491 ; --------------------------------------------------------------------------------------
0491 ; Debug chain
0491 ; --------------------------------------------------------------------------------------
0491 0000 0003 | | .DBGLEN 0x0000,0x0003
0493 02db 02e0 | | .DBGLNO 0x02db,0x02e0,0x02e1
0496 ; --------------------------------------------------------------------------------------
0496 ; Debug chain
0496 ; --------------------------------------------------------------------------------------
0496 0000 0003 | | .DBGLEN 0x0000,0x0003
0498 02eb 02f0 | | .DBGLNO 0x02eb,0x02f0,0x02f1
049b ; --------------------------------------------------------------------------------------
049b ; Debug chain
049b ; --------------------------------------------------------------------------------------
049b 0000 0001 | | .DBGLEN 0x0000,0x0001
049d 0303 | | .DBGLNO 0x0303
049e ; --------------------------------------------------------------------------------------
049e ; Debug chain
049e ; --------------------------------------------------------------------------------------
049e 0001 0002 | | .DBGLEN 0x0001,0x0002
04a0 030b 0312 | | .DBGLNO 0x030b,0x0312,0x031f
04a3 0000 0000 | | .BLANK 0000[0x15d]