|
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_03bcfe
└─⟦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 04b8 | | .CONST 0x04b8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00cf | | .CONST 0x00cf ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003e | > | .CONST 0x003e ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 481c |H | Short_Literal 0x1c
000e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0011 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0015 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0017 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0019 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
001b 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
001d 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001f 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0021 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
0023 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0025 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
0027 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0029 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
002b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
002d 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
002f 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0031 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0033 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0035 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0037 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0039 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
003b 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
003d 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
003f 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0041 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0043 00c4 | | Action Make_Default
0044 00c4 | | Action Make_Default
0045 00c4 | | Action Make_Default
0046 00c4 | | Action Make_Default
0047 00c4 | | Action Make_Default
0048 00c4 | | Action Make_Default
0049 00c4 | | Action Make_Default
004a 00c4 | | Action Make_Default
004b 00c4 | | Action Make_Default
004c 00c4 | | Action Make_Default
004d 00c4 | | Action Make_Default
004e 00e9 | | Load_Encached String_Cache
004f 02a0 | | Declare_Subprogram Null_Subprogram
0050 481f |H | Short_Literal 0x1f
0051 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0052 c231 | 1 | Store 0x1,0x31
0053 4803 |H | Short_Literal 0x3
0054 032a | * | Declare_Type Record,Incomplete
0055 c22d | - | Store 0x1,0x2d
0056 e22d | - | Load 0x1,0x2d
0057 02a0 | | Declare_Subprogram Null_Subprogram
0058 e211 | | Load 0x1,0x11
0059 03c7 | | Complete_Type Access,By_Defining
005a 4fff |O | Short_Literal -0x1
005b 6090 |` | Indirect_Literal Discrete,0xec,{0x00000000, 0x7fffffff}
005c 00e2 | | Load_Encached Integer_Cache
005d 03f8 | | Declare_Type Discrete,Constrained
005e c22e | . | Store 0x1,0x2e
005f e22e | . | Load 0x1,0x2e
0060 e231 | 1 | Load 0x1,0x31
0061 e211 | | Load 0x1,0x11
0062 02a0 | | Declare_Subprogram Null_Subprogram
0063 e22d | - | Load 0x1,0x2d
0064 0326 | & | Complete_Type Record,By_Defining
0065 00bf | | Action Accept_Activation
0066 4800 |H | Short_Literal 0x0
0067 483f |H? | Short_Literal 0x3f
0068 00e3 | | Load_Encached Natural_Cache
0069 03f8 | | Declare_Type Discrete,Constrained
006a 4800 |H | Short_Literal 0x0
006b 483f |H? | Short_Literal 0x3f
006c e211 | | Load 0x1,0x11
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e 4801 |H | Short_Literal 0x1
006f 035d | ] | Declare_Type Array,Defined
0070 00d8 | | Load_Top At_Offset_0
0071 0337 | 7 | Declare_Variable Array
0072 00d8 | | Load_Top At_Offset_0
0073 0335 | 5 | Declare_Variable Array,Duplicate
0074 00cd | | Action Spare6_Action
0075 483f |H? | Short_Literal 0x3f
0076 4800 |H | Short_Literal 0x0
0077 e22d | - | Load 0x1,0x2d
0078 0322 | " | Declare_Variable Record
0079 4fff |O | Short_Literal -0x1
007a e23d | = | Load 0x1,0x3d
007b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
007c e231 | 1 | Load 0x1,0x31
007d e23d | = | Load 0x1,0x3d
007e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
007f e211 | | Load 0x1,0x11
0080 e23d | = | Load 0x1,0x3d
0081 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0082 e211 | | Load 0x1,0x11
0083 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0084 e23c | < | Load 0x1,0x3c
0085 e23a | : | Load 0x1,0x3a
0086 01d6 | | Execute Vector,Field_Write
0087 3fef |? | Loop_Increasing 0x77
0088 e239 | 9 | Load 0x1,0x39
0089 01d4 | | Execute Vector,Structure_Write
008a e20f | | Load 0x1,0xf
008b 0aff | | Execute_Immediate Plus,-0x1
008c 00e3 | | Load_Encached Natural_Cache
008d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
008e 483f |H? | Short_Literal 0x3f
008f e20f | | Load 0x1,0xf
0090 0271 | q | Execute Discrete,Times
0091 e23a | : | Load 0x1,0x3a
0092 0273 | s | Execute Discrete,Plus
0093 00e3 | | Load_Encached Natural_Cache
0094 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0095 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call
0097 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0098 00c7 | | Action Elaborate_Subprogram
0099 1d13 | | Execute_Immediate Reference_Lex_1,0x13
009a 00c7 | | Action Elaborate_Subprogram
009b 029d 036b | k| Declare_Subprogram INIT_0368,For_Outer_Call
009d 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
009e 00c7 | | Action Elaborate_Subprogram
009f 029d 03b3 | | Declare_Subprogram INIT_03b0,For_Outer_Call
00a1 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00ce 00c7 | | Action Elaborate_Subprogram
00cf BODY_0008:
00cf 00bc | | Action Signal_Activated
00d0 00bb | | Action Signal_Completion
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00dd | | .CONST 0x00dd ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0002 | | .CONST 0x0002 ; Number of locals
00db INIT_00d8:
00db 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
00dd BODY_00d8:
00dd e5ff | | Load 0x2,-0x1
00de 6809 |h | Jump_Zero 0xe8
00df e5ff | | Load 0x2,-0x1
00e0 0227 | ' | Execute Access,All_Reference
00e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e2 4fff |O | Short_Literal -0x1
00e3 027e | ~ | Execute Discrete,Not_Equal
00e4 6801 |h | Jump_Zero 0xe6
00e5 8402 | | Call 0x2,0x2
00e6 e211 | | Load 0x1,0x11
00e7 a5ff | | Store_Unchecked 0x2,-0x1
00e8 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e9 0000 0000 | | .XXX[0x3]
00eb 0000 | |
00ec 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0100 | | .CONST 0x0100 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e5ff | | Load 0x2,-0x1
00f4 6809 |h | Jump_Zero 0xfe
00f5 e5ff | | Load 0x2,-0x1
00f6 0227 | ' | Execute Access,All_Reference
00f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f8 00d8 | | Load_Top At_Offset_0
00f9 00e3 | | Load_Encached Natural_Cache
00fa 0260 | ` | Execute Discrete,In_Type
00fb 7001 |p | Jump_Nonzero 0xfd
00fc 0801 | | Execute_Immediate Raise,0x1
00fd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fe 4800 |H | Short_Literal 0x0
00ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0100 TRAP_00f0:
0100 0007 | | Action Break_Optional
0101 4800 |H | Short_Literal 0x0
0102 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0103 0000 0000 | | .BLANK 0000[0x5]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010e | | .CONST 0x010e ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b e5ff | | Load 0x2,-0x1
010c 0227 | ' | Execute Access,All_Reference
010d 0007 | | Action Break_Optional
010e BODY_0108:
010e e5fe | | Load 0x2,-0x2
010f e402 | | Load 0x2,0x2
0110 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0111 027d | } | Execute Discrete,Greater
0112 6801 |h | Jump_Zero 0x114
0113 08e0 | | Execute_Immediate Raise,0xe0
0114 e5fe | | Load 0x2,-0x2
0115 e402 | | Load 0x2,0x2
0116 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0117 0227 | ' | Execute Access,All_Reference
0118 01d7 | | Execute Vector,Field_Read
0119 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 e5fd | | Load 0x2,-0x3
0124 e5ff | | Load 0x2,-0x1
0125 0227 | ' | Execute Access,All_Reference
0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0127 027d | } | Execute Discrete,Greater
0128 6801 |h | Jump_Zero 0x12a
0129 08e0 | | Execute_Immediate Raise,0xe0
012a e5fe | | Load 0x2,-0x2
012b e5fd | | Load 0x2,-0x3
012c e5ff | | Load 0x2,-0x1
012d 0227 | ' | Execute Access,All_Reference
012e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012f 0227 | ' | Execute Access,All_Reference
0130 01cf | | Execute Vector,Slice_Read
0131 0335 | 5 | Declare_Variable Array,Duplicate
0132 00cd | | Action Spare6_Action
0133 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0134 0000 0000 | | .BLANK 0000[0x4]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0147 | G | .CONST 0x0147 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4801 |H | Short_Literal 0x1
013c e5ff | | Load 0x2,-0x1
013d 0227 | ' | Execute Access,All_Reference
013e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013f e5ff | | Load 0x2,-0x1
0140 0227 | ' | Execute Access,All_Reference
0141 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0142 0227 | ' | Execute Access,All_Reference
0143 01cf | | Execute Vector,Slice_Read
0144 0335 | 5 | Declare_Variable Array,Duplicate
0145 00cd | | Action Spare6_Action
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 TRAP_0138:
0147 0007 | | Action Break_Optional
0148 4801 |H | Short_Literal 0x1
0149 4800 |H | Short_Literal 0x0
014a 00e9 | | Load_Encached String_Cache
014b 0334 | 4 | Declare_Variable Array,With_Constraint
014c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0155 | U | .CONST 0x0155 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e211 | | Load 0x1,0x11
0154 0007 | | Action Break_Optional
0155 BODY_0150:
0155 00d8 | | Load_Top At_Offset_0
0156 e5ff | | Load 0x2,-0x1
0157 01db | | Execute Vector,Length
0158 00d8 | | Load_Top At_Offset_0
0159 00e3 | | Load_Encached Natural_Cache
015a 0260 | ` | Execute Discrete,In_Type
015b 7001 |p | Jump_Nonzero 0x15d
015c 0801 | | Execute_Immediate Raise,0x1
015d 823d | = | Call 0x1,0x3d
015e c402 | | Store 0x2,0x2
015f 00d8 | | Load_Top At_Offset_0
0160 e5ff | | Load 0x2,-0x1
0161 8219 | | Call 0x1,0x19
0162 c402 | | Store 0x2,0x2
0163 00d8 | | Load_Top At_Offset_0
0164 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b e5fe | | Load 0x2,-0x2
016c e5ff | | Load 0x2,-0x1
016d 8216 | | Call 0x1,0x16
016e 8219 | | Call 0x1,0x19
016f c5fe | | Store 0x2,-0x2
0170 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
017d BODY_0178:
017d e5fe | | Load 0x2,-0x2
017e 4800 |H | Short_Literal 0x0
017f e5ff | | Load 0x2,-0x1
0180 01db | | Execute Vector,Length
0181 00d8 | | Load_Top At_Offset_0
0182 00e3 | | Load_Encached Natural_Cache
0183 0260 | ` | Execute Discrete,In_Type
0184 7001 |p | Jump_Nonzero 0x186
0185 0801 | | Execute_Immediate Raise,0x1
0186 823e | > | Call 0x1,0x3e
0187 c5fe | | Store 0x2,-0x2
0188 8402 | | Call 0x2,0x2
0189 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e5fe | | Load 0x2,-0x2
0194 4800 |H | Short_Literal 0x0
0195 4801 |H | Short_Literal 0x1
0196 823e | > | Call 0x1,0x3e
0197 c5fe | | Store 0x2,-0x2
0198 e5ff | | Load 0x2,-0x1
0199 4801 |H | Short_Literal 0x1
019a e5fe | | Load 0x2,-0x2
019b 0227 | ' | Execute Access,All_Reference
019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019d 0227 | ' | Execute Access,All_Reference
019e 01d6 | | Execute Vector,Field_Write
019f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 e5ff | | Load 0x2,-0x1
01a4 8212 | | Call 0x1,0x12
01a5 c5ff | | Store 0x2,-0x1
01a6 e5fe | | Load 0x2,-0x2
01a7 a5ff | | Store_Unchecked 0x2,-0x1
01a8 e211 | | Load 0x1,0x11
01a9 a5fe | | Store_Unchecked 0x2,-0x2
01aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ab 0000 0000 | | .BLANK 0000[0x5]
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 e5fe | | Load 0x2,-0x2
01b4 e5ff | | Load 0x2,-0x1
01b5 8216 | | Call 0x1,0x16
01b6 821d | | Call 0x1,0x1d
01b7 c5fe | | Store 0x2,-0x2
01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c9 | | .CONST 0x01c9 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0003 | | .CONST 0x0003 ; Number of locals
01c3 INIT_01c0:
01c3 e5fe | | Load 0x2,-0x2
01c4 8213 | | Call 0x1,0x13
01c5 e210 | | Load 0x1,0x10
01c6 03f1 | | Declare_Variable Discrete,With_Value
01c7 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
01c9 BODY_01c0:
01c9 e5fe | | Load 0x2,-0x2
01ca 4801 |H | Short_Literal 0x1
01cb e402 | | Load 0x2,0x2
01cc e5ff | | Load 0x2,-0x1
01cd 01db | | Execute Vector,Length
01ce 0273 | s | Execute Discrete,Plus
01cf 00d8 | | Load_Top At_Offset_0
01d0 00e3 | | Load_Encached Natural_Cache
01d1 0260 | ` | Execute Discrete,In_Type
01d2 7001 |p | Jump_Nonzero 0x1d4
01d3 0801 | | Execute_Immediate Raise,0x1
01d4 823e | > | Call 0x1,0x3e
01d5 c5fe | | Store 0x2,-0x2
01d6 8403 | | Call 0x2,0x3
01d7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 e5fe | | Load 0x2,-0x2
01dc 8213 | | Call 0x1,0x13
01dd 0a01 | | Execute_Immediate Plus,0x1
01de e210 | | Load 0x1,0x10
01df 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01e0 BODY_01d8:
01e0 e5fe | | Load 0x2,-0x2
01e1 4801 |H | Short_Literal 0x1
01e2 e402 | | Load 0x2,0x2
01e3 823e | > | Call 0x1,0x3e
01e4 c5fe | | Store 0x2,-0x2
01e5 e5ff | | Load 0x2,-0x1
01e6 e402 | | Load 0x2,0x2
01e7 e5fe | | Load 0x2,-0x2
01e8 0227 | ' | Execute Access,All_Reference
01e9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ea 0227 | ' | Execute Access,All_Reference
01eb 01d6 | | Execute Vector,Field_Write
01ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ed 0000 0000 | | .XXX[0x3]
01ef 0000 | |
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 0208 | | .CONST 0x0208 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 4801 |H | Short_Literal 0x1
01f4 e5fe | | Load 0x2,-0x2
01f5 00e9 | | Load_Encached String_Cache
01f6 035b | [ | Declare_Type Array,Constrained
01f7 0337 | 7 | Declare_Variable Array
01f8 4801 |H | Short_Literal 0x1
01f9 e5fe | | Load 0x2,-0x2
01fa 00e9 | | Load_Encached String_Cache
01fb 0334 | 4 | Declare_Variable Array,With_Constraint
01fc 00d8 | | Load_Top At_Offset_0
01fd 01dc | | Execute Vector,Last
01fe 4801 |H | Short_Literal 0x1
01ff 0263 | c | Execute Discrete,Above_Bound
0200 7005 |p | Jump_Nonzero 0x206
0201 e5ff | | Load 0x2,-0x1
0202 e405 | | Load 0x2,0x5
0203 e403 | | Load 0x2,0x3
0204 01d6 | | Execute Vector,Field_Write
0205 3ffb |? | Loop_Increasing 0x201
0206 e402 | | Load 0x2,0x2
0207 01d4 | | Execute Vector,Structure_Write
0208 BODY_01f0:
0208 e5fd | | Load 0x2,-0x3
0209 e402 | | Load 0x2,0x2
020a 821d | | Call 0x1,0x1d
020b c5fd | | Store 0x2,-0x3
020c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020d 0000 0000 | | .XXX[0x3]
020f 0000 | |
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e5fd | | Load 0x2,-0x3
0214 e5fe | | Load 0x2,-0x2
0215 8216 | | Call 0x1,0x16
0216 e5ff | | Load 0x2,-0x1
0217 8221 | ! | Call 0x1,0x21
0218 c5fd | | Store 0x2,-0x3
0219 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0229 | ) | .CONST 0x0229 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0003 | | .CONST 0x0003 ; Number of locals
0223 INIT_0220:
0223 e5fd | | Load 0x2,-0x3
0224 8213 | | Call 0x1,0x13
0225 e210 | | Load 0x1,0x10
0226 03f1 | | Declare_Variable Discrete,With_Value
0227 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
0229 BODY_0220:
0229 e5ff | | Load 0x2,-0x1
022a e402 | | Load 0x2,0x2
022b 0a01 | | Execute_Immediate Plus,0x1
022c 027f | | Execute Discrete,Equal
022d 6805 |h | Jump_Zero 0x233
022e e5fd | | Load 0x2,-0x3
022f e5fe | | Load 0x2,-0x2
0230 821d | | Call 0x1,0x1d
0231 c5fd | | Store 0x2,-0x3
0232 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0233 e5ff | | Load 0x2,-0x1
0234 e402 | | Load 0x2,0x2
0235 027a | z | Execute Discrete,Less_Equal
0236 680f |h | Jump_Zero 0x246
0237 e5fd | | Load 0x2,-0x3
0238 4801 |H | Short_Literal 0x1
0239 e402 | | Load 0x2,0x2
023a e5fe | | Load 0x2,-0x2
023b 01db | | Execute Vector,Length
023c 0273 | s | Execute Discrete,Plus
023d 00d8 | | Load_Top At_Offset_0
023e 00e3 | | Load_Encached Natural_Cache
023f 0260 | ` | Execute Discrete,In_Type
0240 7001 |p | Jump_Nonzero 0x242
0241 0801 | | Execute_Immediate Raise,0x1
0242 823e | > | Call 0x1,0x3e
0243 c5fd | | Store 0x2,-0x3
0244 8403 | | Call 0x2,0x3
0245 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0246 08e0 | | Execute_Immediate Raise,0xe0
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0252 | R | .CONST 0x0252 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e5fd | | Load 0x2,-0x3
024c 8213 | | Call 0x1,0x13
024d 0a01 | | Execute_Immediate Plus,0x1
024e e210 | | Load 0x1,0x10
024f 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0250 029f 0443 | C| Declare_Subprogram INIT_0440,For_Call
0252 BODY_0248:
0252 e5ff | | Load 0x2,-0x1
0253 e402 | | Load 0x2,0x2
0254 027f | | Execute Discrete,Equal
0255 6805 |h | Jump_Zero 0x25b
0256 e5fd | | Load 0x2,-0x3
0257 e5fe | | Load 0x2,-0x2
0258 821e | | Call 0x1,0x1e
0259 c5fd | | Store 0x2,-0x3
025a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
025b e5ff | | Load 0x2,-0x1
025c e402 | | Load 0x2,0x2
025d 027d | } | Execute Discrete,Greater
025e 6801 |h | Jump_Zero 0x260
025f 08e0 | | Execute_Immediate Raise,0xe0
0260 e5fd | | Load 0x2,-0x3
0261 4801 |H | Short_Literal 0x1
0262 e402 | | Load 0x2,0x2
0263 823e | > | Call 0x1,0x3e
0264 c5fd | | Store 0x2,-0x3
0265 8403 | | Call 0x2,0x3
0266 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0280 | | .CONST 0x0280 ; 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 0334 | 4 | Declare_Variable Array,With_Constraint
0274 00d8 | | Load_Top At_Offset_0
0275 01dc | | Execute Vector,Last
0276 4801 |H | Short_Literal 0x1
0277 0263 | c | Execute Discrete,Above_Bound
0278 7005 |p | Jump_Nonzero 0x27e
0279 e5fe | | Load 0x2,-0x2
027a e405 | | Load 0x2,0x5
027b e403 | | Load 0x2,0x3
027c 01d6 | | Execute Vector,Field_Write
027d 3ffb |? | Loop_Increasing 0x279
027e e402 | | Load 0x2,0x2
027f 01d4 | | Execute Vector,Structure_Write
0280 BODY_0268:
0280 e5fc | | Load 0x2,-0x4
0281 e402 | | Load 0x2,0x2
0282 e5ff | | Load 0x2,-0x1
0283 8221 | ! | Call 0x1,0x21
0284 c5fc | | Store 0x2,-0x4
0285 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0286 0000 0000 | | .XXX[0x2]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 0294 | | .CONST 0x0294 ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0003 | | .CONST 0x0003 ; Number of locals
028b INIT_0288:
028b e5fd | | Load 0x2,-0x3
028c 0227 | ' | Execute Access,All_Reference
028d 0007 | | Action Break_Optional
028e 00d8 | | Load_Top At_Offset_0
028f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0290 e5fe | | Load 0x2,-0x2
0291 0272 | r | Execute Discrete,Minus
0292 e210 | | Load 0x1,0x10
0293 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0294 BODY_0288:
0294 e5ff | | Load 0x2,-0x1
0295 0aff | | Execute_Immediate Plus,-0x1
0296 e403 | | Load 0x2,0x3
0297 027d | } | Execute Discrete,Greater
0298 6801 |h | Jump_Zero 0x29a
0299 08e0 | | Execute_Immediate Raise,0xe0
029a e5ff | | Load 0x2,-0x1
029b e403 | | Load 0x2,0x3
029c 027a | z | Execute Discrete,Less_Equal
029d 6814 |h | Jump_Zero 0x2b2
029e e5ff | | Load 0x2,-0x1
029f e5fe | | Load 0x2,-0x2
02a0 0273 | s | Execute Discrete,Plus
02a1 00d8 | | Load_Top At_Offset_0
02a2 00e2 | | Load_Encached Integer_Cache
02a3 0260 | ` | Execute Discrete,In_Type
02a4 7001 |p | Jump_Nonzero 0x2a6
02a5 0801 | | Execute_Immediate Raise,0x1
02a6 e402 | | Load 0x2,0x2
02a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a8 e402 | | Load 0x2,0x2
02a9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02aa 0227 | ' | Execute Access,All_Reference
02ab 01cf | | Execute Vector,Slice_Read
02ac e5ff | | Load 0x2,-0x1
02ad e403 | | Load 0x2,0x3
02ae e402 | | Load 0x2,0x2
02af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02b0 0229 | ) | Execute Access,All_Read
02b1 01ce | | Execute Vector,Slice_Write
02b2 00d8 | | Load_Top At_Offset_0
02b3 e402 | | Load 0x2,0x2
02b4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02b5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02b6 0000 0000 | | .XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02be | | .CONST 0x02be ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0002 | | .CONST 0x0002 ; Number of locals
02bb INIT_02b8:
02bb e5fd | | Load 0x2,-0x3
02bc 0227 | ' | Execute Access,All_Reference
02bd 0007 | | Action Break_Optional
02be BODY_02b8:
02be e5ff | | Load 0x2,-0x1
02bf e402 | | Load 0x2,0x2
02c0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c1 027d | } | Execute Discrete,Greater
02c2 6801 |h | Jump_Zero 0x2c4
02c3 08e0 | | Execute_Immediate Raise,0xe0
02c4 e5fe | | Load 0x2,-0x2
02c5 e5ff | | Load 0x2,-0x1
02c6 e402 | | Load 0x2,0x2
02c7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c8 0227 | ' | Execute Access,All_Reference
02c9 01d6 | | Execute Vector,Field_Write
02ca 4503 |E | Exit_Suprogram New_Top_Offset 0x3
02cb 0000 0000 | | .BLANK 0000[0x5]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e8 | | .CONST 0x02e8 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0002 | | .CONST 0x0002 ; Number of locals
02d3 INIT_02d0:
02d3 4801 |H | Short_Literal 0x1
02d4 e5fd | | Load 0x2,-0x3
02d5 00e9 | | Load_Encached String_Cache
02d6 035b | [ | Declare_Type Array,Constrained
02d7 0337 | 7 | Declare_Variable Array
02d8 4801 |H | Short_Literal 0x1
02d9 e5fd | | Load 0x2,-0x3
02da 00e9 | | Load_Encached String_Cache
02db 0334 | 4 | Declare_Variable Array,With_Constraint
02dc 00d8 | | Load_Top At_Offset_0
02dd 01dc | | Execute Vector,Last
02de 4801 |H | Short_Literal 0x1
02df 0263 | c | Execute Discrete,Above_Bound
02e0 7005 |p | Jump_Nonzero 0x2e6
02e1 e5fe | | Load 0x2,-0x2
02e2 e405 | | Load 0x2,0x5
02e3 e403 | | Load 0x2,0x3
02e4 01d6 | | Execute Vector,Field_Write
02e5 3ffb |? | Loop_Increasing 0x2e1
02e6 e402 | | Load 0x2,0x2
02e7 01d4 | | Execute Vector,Structure_Write
02e8 BODY_02d0:
02e8 e5fc | | Load 0x2,-0x4
02e9 e402 | | Load 0x2,0x2
02ea e5ff | | Load 0x2,-0x1
02eb 8227 | ' | Call 0x1,0x27
02ec c5fc | | Store 0x2,-0x4
02ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ee 0000 0000 | | .XXX[0x2]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02fd | | .CONST 0x02fd ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0003 | | .CONST 0x0003 ; Number of locals
02f3 INIT_02f0:
02f3 e5fd | | Load 0x2,-0x3
02f4 0227 | ' | Execute Access,All_Reference
02f5 0007 | | Action Break_Optional
02f6 e5ff | | Load 0x2,-0x1
02f7 e5fe | | Load 0x2,-0x2
02f8 01db | | Execute Vector,Length
02f9 0273 | s | Execute Discrete,Plus
02fa 0aff | | Execute_Immediate Plus,-0x1
02fb 00e3 | | Load_Encached Natural_Cache
02fc 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02fd BODY_02f0:
02fd 00d8 | | Load_Top At_Offset_0
02fe e402 | | Load 0x2,0x2
02ff 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0300 027d | } | Execute Discrete,Greater
0301 6801 |h | Jump_Zero 0x303
0302 08e0 | | Execute_Immediate Raise,0xe0
0303 e5fe | | Load 0x2,-0x2
0304 e5ff | | Load 0x2,-0x1
0305 e403 | | Load 0x2,0x3
0306 e402 | | Load 0x2,0x2
0307 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0308 0229 | ) | Execute Access,All_Read
0309 01ce | | Execute Vector,Slice_Write
030a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
030b 0000 0000 | | .BLANK 0000[0x5]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 e5fd | | Load 0x2,-0x3
0314 e5fe | | Load 0x2,-0x2
0315 8216 | | Call 0x1,0x16
0316 e5ff | | Load 0x2,-0x1
0317 8227 | ' | Call 0x1,0x27
0318 c5fd | | Store 0x2,-0x3
0319 4503 |E | Exit_Suprogram New_Top_Offset 0x3
031a 0000 0000 | | .BLANK 0000[0x6]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0329 | ) | .CONST 0x0329 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0003 | | .CONST 0x0003 ; Number of locals
0323 INIT_0320:
0323 e5fd | | Load 0x2,-0x3
0324 8213 | | Call 0x1,0x13
0325 e210 | | Load 0x1,0x10
0326 03f1 | | Declare_Variable Discrete,With_Value
0327 029f 0463 | c| Declare_Subprogram INIT_0460,For_Call
0329 BODY_0320:
0329 e5ff | | Load 0x2,-0x1
032a e402 | | Load 0x2,0x2
032b 027d | } | Execute Discrete,Greater
032c 6807 |h | Jump_Zero 0x334
032d e5fd | | Load 0x2,-0x3
032e 4801 |H | Short_Literal 0x1
032f e5ff | | Load 0x2,-0x1
0330 823e | > | Call 0x1,0x3e
0331 c5fd | | Store 0x2,-0x3
0332 8403 | | Call 0x2,0x3
0333 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0334 e5fd | | Load 0x2,-0x3
0335 6804 |h | Jump_Zero 0x33a
0336 e5ff | | Load 0x2,-0x1
0337 e5fd | | Load 0x2,-0x3
0338 0227 | ' | Execute Access,All_Reference
0339 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
033a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
033b 0000 0000 | | .BLANK 0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 e5ff | | Load 0x2,-0x1
0344 022d | - | Execute Access,Is_Null
0345 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b e211 | | Load 0x1,0x11
034c 00ca | | Action Exit_Nullary_Function
034d 0000 0000 | | .XXX[0x3]
034f 0000 | |
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e5ff | | Load 0x2,-0x1
0354 e23b | ; | Load 0x1,0x3b
0355 027a | z | Execute Discrete,Less_Equal
0356 6809 |h | Jump_Zero 0x360
0357 e5ff | | Load 0x2,-0x1
0358 e20f | | Load 0x1,0xf
0359 0270 | p | Execute Discrete,Divide
035a 00d8 | | Load_Top At_Offset_0
035b e237 | 7 | Load 0x1,0x37
035c 0260 | ` | Execute Discrete,In_Type
035d 7001 |p | Jump_Nonzero 0x35f
035e 0801 | | Execute_Immediate Raise,0x1
035f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0360 483f |H? | Short_Literal 0x3f
0361 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0362 0000 0000 | | .BLANK 0000[0x6]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 0378 | x | .CONST 0x0378 ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0003 | | .CONST 0x0003 ; Number of locals
036b INIT_0368:
036b e5ff | | Load 0x2,-0x1
036c e23a | : | Load 0x1,0x3a
036d 0273 | s | Execute Discrete,Plus
036e e20f | | Load 0x1,0xf
036f 0270 | p | Execute Discrete,Divide
0370 e20f | | Load 0x1,0xf
0371 0271 | q | Execute Discrete,Times
0372 e210 | | Load 0x1,0x10
0373 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0374 00d8 | | Load_Top At_Offset_0
0375 823c | < | Call 0x1,0x3c
0376 e239 | 9 | Load 0x1,0x39
0377 01d7 | | Execute Vector,Field_Read
0378 BODY_0368:
0378 00cf | | Action Mark_Auxiliary
0379 e403 | | Load 0x2,0x3
037a 0227 | ' | Execute Access,All_Reference
037b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
037c a5fe | | Store_Unchecked 0x2,-0x2
037d e5fe | | Load 0x2,-0x2
037e 681a |h | Jump_Zero 0x399
037f e5fe | | Load 0x2,-0x2
0380 0227 | ' | Execute Access,All_Reference
0381 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0382 0227 | ' | Execute Access,All_Reference
0383 01db | | Execute Vector,Length
0384 e5ff | | Load 0x2,-0x1
0385 027b | { | Execute Discrete,Greater_Equal
0386 680f |h | Jump_Zero 0x396
0387 e5fe | | Load 0x2,-0x2
0388 0227 | ' | Execute Access,All_Reference
0389 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
038a e403 | | Load 0x2,0x3
038b 0227 | ' | Execute Access,All_Reference
038c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
038d e211 | | Load 0x1,0x11
038e e5fe | | Load 0x2,-0x2
038f 0227 | ' | Execute Access,All_Reference
0390 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0391 e5ff | | Load 0x2,-0x1
0392 e5fe | | Load 0x2,-0x2
0393 0227 | ' | Execute Access,All_Reference
0394 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0395 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0396 e5fe | | Load 0x2,-0x2
0397 a403 | | Store_Unchecked 0x2,0x3
0398 7812 |x | Jump 0x3ab
0399 e22d | - | Load 0x1,0x2d
039a 0322 | " | Declare_Variable Record
039b e5ff | | Load 0x2,-0x1
039c e405 | | Load 0x2,0x5
039d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
039e 4801 |H | Short_Literal 0x1
039f e402 | | Load 0x2,0x2
03a0 e231 | 1 | Load 0x1,0x31
03a1 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
03a2 e405 | | Load 0x2,0x5
03a3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03a4 e211 | | Load 0x1,0x11
03a5 e405 | | Load 0x2,0x5
03a6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03a7 e211 | | Load 0x1,0x11
03a8 03b6 | | Declare_Variable Access,By_Allocation,With_Value
03a9 a5fe | | Store_Unchecked 0x2,-0x2
03aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03ab 00c9 | | Action Pop_Auxiliary_Loop
03ac 7fcc | | Jump 0x379
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b7 | | .CONST 0x03b7 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0003 | | .CONST 0x0003 ; Number of locals
03b3 INIT_03b0:
03b3 e210 | | Load 0x1,0x10
03b4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03b5 029f 0483 | | Declare_Subprogram INIT_0480,For_Call
03b7 BODY_03b0:
03b7 e5fd | | Load 0x2,-0x3
03b8 680c |h | Jump_Zero 0x3c5
03b9 e5fd | | Load 0x2,-0x3
03ba 0227 | ' | Execute Access,All_Reference
03bb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03bc 4fff |O | Short_Literal -0x1
03bd 027e | ~ | Execute Discrete,Not_Equal
03be 6806 |h | Jump_Zero 0x3c5
03bf e5fd | | Load 0x2,-0x3
03c0 0227 | ' | Execute Access,All_Reference
03c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c2 0227 | ' | Execute Access,All_Reference
03c3 01db | | Execute Vector,Length
03c4 c402 | | Store 0x2,0x2
03c5 e402 | | Load 0x2,0x2
03c6 7005 |p | Jump_Nonzero 0x3cc
03c7 e5fd | | Load 0x2,-0x3
03c8 e5ff | | Load 0x2,-0x1
03c9 823d | = | Call 0x1,0x3d
03ca c5fd | | Store 0x2,-0x3
03cb 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03cc e402 | | Load 0x2,0x2
03cd e5ff | | Load 0x2,-0x1
03ce 027b | { | Execute Discrete,Greater_Equal
03cf 6805 |h | Jump_Zero 0x3d5
03d0 e5ff | | Load 0x2,-0x1
03d1 e5fd | | Load 0x2,-0x3
03d2 0227 | ' | Execute Access,All_Reference
03d3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03d4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03d5 8403 | | Call 0x2,0x3
03d6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03d7 0000 | | .XXX[0x1]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e9 | | .CONST 0x03e9 ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0002 | | .CONST 0x0002 ; Number of locals
03db INIT_03d8:
03db e5ff | | Load 0x2,-0x1
03dc 0227 | ' | Execute Access,All_Reference
03dd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03de 0227 | ' | Execute Access,All_Reference
03df 01db | | Execute Vector,Length
03e0 00d8 | | Load_Top At_Offset_0
03e1 00e3 | | Load_Encached Natural_Cache
03e2 0260 | ` | Execute Discrete,In_Type
03e3 7001 |p | Jump_Nonzero 0x3e5
03e4 0801 | | Execute_Immediate Raise,0x1
03e5 823c | < | Call 0x1,0x3c
03e6 e239 | 9 | Load 0x1,0x39
03e7 01d5 | | Execute Vector,Field_Reference
03e8 0007 | | Action Break_Optional
03e9 BODY_03d8:
03e9 00d8 | | Load_Top At_Offset_0
03ea 0227 | ' | Execute Access,All_Reference
03eb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03ec e5ff | | Load 0x2,-0x1
03ed 0227 | ' | Execute Access,All_Reference
03ee 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03ef 4fff |O | Short_Literal -0x1
03f0 e5ff | | Load 0x2,-0x1
03f1 0227 | ' | Execute Access,All_Reference
03f2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03f3 e5ff | | Load 0x2,-0x1
03f4 e602 | | Load 0x3,0x2
03f5 0227 | ' | Execute Access,All_Reference
03f6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03f7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fe | | .CONST 0x03fe ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e5fe | | Load 0x2,-0x2
03fc 0227 | ' | Execute Access,All_Reference
03fd 0007 | | Action Break_Optional
03fe BODY_03f8:
03fe e5ff | | Load 0x2,-0x1
03ff 4801 |H | Short_Literal 0x1
0400 e5ff | | Load 0x2,-0x1
0401 01db | | Execute Vector,Length
0402 00d8 | | Load_Top At_Offset_0
0403 00e2 | | Load_Encached Integer_Cache
0404 0260 | ` | Execute Discrete,In_Type
0405 7001 |p | Jump_Nonzero 0x407
0406 0801 | | Execute_Immediate Raise,0x1
0407 e602 | | Load 0x3,0x2
0408 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0409 0229 | ) | Execute Access,All_Read
040a 01ce | | Execute Vector,Slice_Write
040b e5ff | | Load 0x2,-0x1
040c 01db | | Execute Vector,Length
040d e602 | | Load 0x3,0x2
040e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
040f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0416 | | .CONST 0x0416 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 e5fe | | Load 0x2,-0x2
0414 0227 | ' | Execute Access,All_Reference
0415 0007 | | Action Break_Optional
0416 BODY_0410:
0416 e5ff | | Load 0x2,-0x1
0417 e402 | | Load 0x2,0x2
0418 0a01 | | Execute_Immediate Plus,0x1
0419 00d8 | | Load_Top At_Offset_0
041a 00e2 | | Load_Encached Integer_Cache
041b 0260 | ` | Execute Discrete,In_Type
041c 7001 |p | Jump_Nonzero 0x41e
041d 0801 | | Execute_Immediate Raise,0x1
041e e602 | | Load 0x3,0x2
041f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0420 e602 | | Load 0x3,0x2
0421 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0422 0229 | ) | Execute Access,All_Read
0423 01ce | | Execute Vector,Slice_Write
0424 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0425 0000 0000 | | .XXX[0x3]
0427 0000 | |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042e | . | .CONST 0x042e ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0002 | | .CONST 0x0002 ; Number of locals
042b INIT_0428:
042b e5fd | | Load 0x2,-0x3
042c 0227 | ' | Execute Access,All_Reference
042d 0007 | | Action Break_Optional
042e BODY_0428:
042e e5fe | | Load 0x2,-0x2
042f e5ff | | Load 0x2,-0x1
0430 e402 | | Load 0x2,0x2
0431 e602 | | Load 0x3,0x2
0432 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0433 0227 | ' | Execute Access,All_Reference
0434 01cf | | Execute Vector,Slice_Read
0435 01cc | | Execute Vector,Catenate
0436 e5ff | | Load 0x2,-0x1
0437 e602 | | Load 0x3,0x2
0438 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0439 e602 | | Load 0x3,0x2
043a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
043b 0229 | ) | Execute Access,All_Read
043c 01ce | | Execute Vector,Slice_Write
043d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
043e 0000 0000 | | .XXX[0x2]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0446 | F | .CONST 0x0446 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0002 | | .CONST 0x0002 ; Number of locals
0443 INIT_0440:
0443 e5fd | | Load 0x2,-0x3
0444 0227 | ' | Execute Access,All_Reference
0445 0007 | | Action Break_Optional
0446 BODY_0440:
0446 e5ff | | Load 0x2,-0x1
0447 e402 | | Load 0x2,0x2
0448 0aff | | Execute_Immediate Plus,-0x1
0449 e602 | | Load 0x3,0x2
044a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
044b 0227 | ' | Execute Access,All_Reference
044c 01cf | | Execute Vector,Slice_Read
044d e5ff | | Load 0x2,-0x1
044e 0a01 | | Execute_Immediate Plus,0x1
044f 00d8 | | Load_Top At_Offset_0
0450 00e2 | | Load_Encached Integer_Cache
0451 0260 | ` | Execute Discrete,In_Type
0452 7001 |p | Jump_Nonzero 0x454
0453 0801 | | Execute_Immediate Raise,0x1
0454 e402 | | Load 0x2,0x2
0455 e602 | | Load 0x3,0x2
0456 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0457 0229 | ) | Execute Access,All_Read
0458 01ce | | Execute Vector,Slice_Write
0459 e5fe | | Load 0x2,-0x2
045a e5ff | | Load 0x2,-0x1
045b e602 | | Load 0x3,0x2
045c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
045d 0227 | ' | Execute Access,All_Reference
045e 01d6 | | Execute Vector,Field_Write
045f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0467 | g | .CONST 0x0467 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 e5fd | | Load 0x2,-0x3
0464 0227 | ' | Execute Access,All_Reference
0465 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0466 0227 | ' | Execute Access,All_Reference
0467 BODY_0460:
0467 00cf | | Action Mark_Auxiliary
0468 e5ff | | Load 0x2,-0x1
0469 e402 | | Load 0x2,0x2
046a 0a01 | | Execute_Immediate Plus,0x1
046b 00d8 | | Load_Top At_Offset_0
046c 00e2 | | Load_Encached Integer_Cache
046d 0260 | ` | Execute Discrete,In_Type
046e 7001 |p | Jump_Nonzero 0x470
046f 0801 | | Execute_Immediate Raise,0x1
0470 0263 | c | Execute Discrete,Above_Bound
0471 7006 |p | Jump_Nonzero 0x478
0472 e5fe | | Load 0x2,-0x2
0473 e605 | | Load 0x3,0x5
0474 e602 | | Load 0x3,0x2
0475 01d6 | | Execute Vector,Field_Write
0476 00c8 | | Action Pop_Auxiliary_Range
0477 3ffa |? | Loop_Increasing 0x472
0478 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0479 0000 0000 | | .BLANK 0000[0x7]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0485 | | .CONST 0x0485 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0002 | | .CONST 0x0002 ; Number of locals
0483 INIT_0480:
0483 e211 | | Load 0x1,0x11
0484 0007 | | Action Break_Optional
0485 BODY_0480:
0485 e5fe | | Load 0x2,-0x2
0486 6822 |h" | Jump_Zero 0x4a9
0487 00d8 | | Load_Top At_Offset_0
0488 e402 | | Load 0x2,0x2
0489 e5ff | | Load 0x2,-0x1
048a 0273 | s | Execute Discrete,Plus
048b 00d8 | | Load_Top At_Offset_0
048c 00e3 | | Load_Encached Natural_Cache
048d 0260 | ` | Execute Discrete,In_Type
048e 7001 |p | Jump_Nonzero 0x490
048f 0801 | | Execute_Immediate Raise,0x1
0490 823d | = | Call 0x1,0x3d
0491 c602 | | Store 0x3,0x2
0492 4801 |H | Short_Literal 0x1
0493 e5fd | | Load 0x2,-0x3
0494 0227 | ' | Execute Access,All_Reference
0495 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0496 e5fd | | Load 0x2,-0x3
0497 0227 | ' | Execute Access,All_Reference
0498 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0499 0227 | ' | Execute Access,All_Reference
049a 01cf | | Execute Vector,Slice_Read
049b 4801 |H | Short_Literal 0x1
049c e5fd | | Load 0x2,-0x3
049d 0227 | ' | Execute Access,All_Reference
049e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
049f e602 | | Load 0x3,0x2
04a0 0229 | ) | Execute Access,All_Read
04a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04a2 0229 | ) | Execute Access,All_Read
04a3 01ce | | Execute Vector,Slice_Write
04a4 e5ff | | Load 0x2,-0x1
04a5 e602 | | Load 0x3,0x2
04a6 0227 | ' | Execute Access,All_Reference
04a7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04a8 7804 |x | Jump 0x4ad
04a9 00d8 | | Load_Top At_Offset_0
04aa e5ff | | Load 0x2,-0x1
04ab 823d | = | Call 0x1,0x3d
04ac c602 | | Store 0x3,0x2
04ad 00d8 | | Load_Top At_Offset_0
04ae e5fd | | Load 0x2,-0x3
04af 821b | | Call 0x1,0x1b
04b0 c5fd | | Store 0x2,-0x3
04b1 c602 | | Store 0x3,0x2
04b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04b3 0000 0000 | | .BLANK 0000[0x5]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; Debug Table
04b8 ; --------------------------------------------------------------------------------------
04b8 0004 000f | | .DEBUG4 0x0004,0x000f,0x4309,0x0000,0x0001,0x0000
04be 0000 0000 | | .BLANK 0000[0x142]