|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 0380 | | .CONST 0x0380 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009b | | .CONST 0x009b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0038 | 8 | .CONST 0x0038 ; Number of locals
000b INIT_0008:
000b 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0013 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0015 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0017 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0019 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
001b 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
001d 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
001f 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0021 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0023 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0025 0093 0000 | | push_full_address 0x0
0027 6090 |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00010000}
0028 0273 | s | Execute Discrete,Plus
0029 e20d | | Load 0x1,0xd
002a 6089 |` | Indirect_Literal Discrete,0xb4,{0x00000000, 0x0000ffff}
002b 0279 | y | Execute Discrete,And
002c 0273 | s | Execute Discrete,Plus
002d 0129 | ) | Execute Any,Make_Visible
002e 0093 0000 | | push_full_address 0x0
0030 607f |` | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00020000}
0031 0273 | s | Execute Discrete,Plus
0032 e20d | | Load 0x1,0xd
0033 6080 |` | Indirect_Literal Discrete,0xb4,{0x00000000, 0x0000ffff}
0034 0279 | y | Execute Discrete,And
0035 0273 | s | Execute Discrete,Plus
0036 0129 | ) | Execute Any,Make_Visible
0037 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0039 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
003b 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
003d 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
003e 03a6 | | Declare_Type Heap_Access,Indirect_Literal,Visible,Values_Relative
003f e20f | | Load 0x1,0xf
0040 e214 | | Load 0x1,0x14
0041 029f 035b | [| Declare_Subprogram INIT_0358,For_Call
0043 4802 |H | Short_Literal 0x2
0044 032e | . | Declare_Type Record,Defined,Visible
0045 00d8 | | Load_Top At_Offset_0
0046 00da | | Load_Top At_Offset_2
0047 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
0049 4802 |H | Short_Literal 0x2
004a 032e | . | Declare_Type Record,Defined,Visible
004b 00d8 | | Load_Top At_Offset_0
004c 02a0 | | Declare_Subprogram Null_Subprogram
004d e22c | , | Load 0x1,0x2c
004e 03a3 | | Complete_Type Heap_Access,By_Defining
004f 00db | | Load_Top At_Offset_3
0050 00db | | Load_Top At_Offset_3
0051 03a2 | | Complete_Type Heap_Access,By_Renaming
0052 4802 |H | Short_Literal 0x2
0053 032b | + | Declare_Type Record,Incomplete,Visible
0054 00d8 | | Load_Top At_Offset_0
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 03ae | | Declare_Type Heap_Access,Defined,Visible
0057 00d8 | | Load_Top At_Offset_0
0058 00e3 | | Load_Encached Natural_Cache
0059 e22c | , | Load 0x1,0x2c
005a 00e1 | | Load_Encached Boolean_Cache
005b 02a0 | | Declare_Subprogram Null_Subprogram
005c 4804 |H | Short_Literal 0x4
005d 032e | . | Declare_Type Record,Defined,Visible
005e 00bf | | Action Accept_Activation
005f 4800 |H | Short_Literal 0x0
0060 e20e | | Load 0x1,0xe
0061 0aff | | Execute_Immediate Plus,-0x1
0062 00e3 | | Load_Encached Natural_Cache
0063 03f8 | | Declare_Type Discrete,Constrained
0064 4800 |H | Short_Literal 0x0
0065 00d9 | | Load_Top At_Offset_1
0066 0269 | i | Execute Discrete,Last
0067 e22d | - | Load 0x1,0x2d
0068 02a0 | | Declare_Subprogram Null_Subprogram
0069 4801 |H | Short_Literal 0x1
006a 035d | ] | Declare_Type Array,Defined
006b e002 | | Load 0x0,0x2
006c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
006d 00d9 | | Load_Top At_Offset_1
006e 02a0 | | Declare_Subprogram Null_Subprogram
006f e230 | 0 | Load 0x1,0x30
0070 0326 | & | Complete_Type Record,By_Defining
0071 00db | | Load_Top At_Offset_3
0072 03a0 | | Complete_Type Heap_Access,By_Component_Completion
0073 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call
0075 029d 030b | | Declare_Subprogram INIT_0308,For_Outer_Call
0077 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
0079 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
007a 00c7 | | Action Elaborate_Subprogram
007b 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
007c 00c7 | | Action Elaborate_Subprogram
007d 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007e 00c7 | | Action Elaborate_Subprogram
007f 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0080 00c7 | | Action Elaborate_Subprogram
0081 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0083 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0084 00c7 | | Action Elaborate_Subprogram
0085 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0086 00c7 | | Action Elaborate_Subprogram
0087 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0088 00c7 | | Action Elaborate_Subprogram
0089 1d20 | | Execute_Immediate Reference_Lex_1,0x20
008a 00c7 | | Action Elaborate_Subprogram
008b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
008c 00c7 | | Action Elaborate_Subprogram
008d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
008e 00c7 | | Action Elaborate_Subprogram
008f 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0090 00c7 | | Action Elaborate_Subprogram
0091 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0092 00c7 | | Action Elaborate_Subprogram
0093 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0094 00c7 | | Action Elaborate_Subprogram
0095 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0096 00c7 | | Action Elaborate_Subprogram
0097 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0098 00c7 | | Action Elaborate_Subprogram
0099 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
009a 00c7 | | Action Elaborate_Subprogram
009b BODY_0008:
009b 00bc | | Action Signal_Activated
009c 00bb | | Action Signal_Completion
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a5 | | .CONST 0x00a5 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 e231 | 1 | Load 0x1,0x31
00a4 0007 | | Action Break_Optional
00a5 BODY_00a0:
00a5 e231 | 1 | Load 0x1,0x31
00a6 e5ff | | Load 0x2,-0x1
00a7 039c | | Declare_Variable Heap_Access,By_Allocation
00a8 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00a9 00db | | Load_Top At_Offset_3
00aa 00d9 | | Load_Top At_Offset_1
00ab 0217 | | Execute Heap_Access,All_Reference
00ac 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ad 00d8 | | Load_Top At_Offset_0
00ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00af 0000 | | .XXX[0x1]
00b0 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00b4 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 e231 | 1 | Load 0x1,0x31
00c4 0033 | 3 | Store_Top Heap_Access,At_Offset_3
00c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00db | | .CONST 0x00db ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb 00db | | Load_Top At_Offset_3
00cc e20f | | Load 0x1,0xf
00cd 0119 | | Execute Any,Check_In_Formal_Type
00ce e5fe | | Load 0x2,-0x2
00cf e20f | | Load 0x1,0xf
00d0 0119 | | Execute Any,Check_In_Formal_Type
00d1 8237 | 7 | Call 0x1,0x37
00d2 e5ff | | Load 0x2,-0x1
00d3 0217 | | Execute Heap_Access,All_Reference
00d4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00d5 01d7 | | Execute Vector,Field_Read
00d6 8236 | 6 | Call 0x1,0x36
00d7 e214 | | Load 0x1,0x14
00d8 02c7 | | Declare_Variable Any
00d9 00d8 | | Load_Top At_Offset_0
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db BODY_00c8:
00db 00be | | Action Activate_Tasks
00dc 00d9 | | Load_Top At_Offset_1
00dd 6814 |h | Jump_Zero 0xf2
00de 00d8 | | Load_Top At_Offset_0
00df 00d8 | | Load_Top At_Offset_0
00e0 0120 | | Execute Any,Is_Value
00e1 6803 |h | Jump_Zero 0xe5
00e2 e214 | | Load 0x1,0x14
00e3 0122 | " | Execute Any,Make_Root_Type
00e4 011e | | Execute Any,Convert
00e5 e5ff | | Load 0x2,-0x1
00e6 0217 | | Execute Heap_Access,All_Reference
00e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e8 00db | | Load_Top At_Offset_3
00e9 0217 | | Execute Heap_Access,All_Reference
00ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00eb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ec 8217 | | Call 0x1,0x17
00ed c403 | | Store 0x2,0x3
00ee 00d8 | | Load_Top At_Offset_0
00ef e214 | | Load 0x1,0x14
00f0 0119 | | Execute Any,Check_In_Formal_Type
00f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f2 e227 | ' | Load 0x1,0x27
00f3 0257 | W | Execute Discrete,Raise
00f4 0000 0000 | | .BLANK 0000[0x4]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0107 | | .CONST 0x0107 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb 00db | | Load_Top At_Offset_3
00fc e20f | | Load 0x1,0xf
00fd 0119 | | Execute Any,Check_In_Formal_Type
00fe e5fe | | Load 0x2,-0x2
00ff e20f | | Load 0x1,0xf
0100 0119 | | Execute Any,Check_In_Formal_Type
0101 8237 | 7 | Call 0x1,0x37
0102 e5ff | | Load 0x2,-0x1
0103 0217 | | Execute Heap_Access,All_Reference
0104 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0105 01d7 | | Execute Vector,Field_Read
0106 8236 | 6 | Call 0x1,0x36
0107 BODY_00f8:
0107 00d8 | | Load_Top At_Offset_0
0108 6813 |h | Jump_Zero 0x11c
0109 e5fd | | Load 0x2,-0x3
010a 00d8 | | Load_Top At_Offset_0
010b 0120 | | Execute Any,Is_Value
010c 6803 |h | Jump_Zero 0x110
010d e214 | | Load 0x1,0x14
010e 0122 | " | Execute Any,Make_Root_Type
010f 011e | | Execute Any,Convert
0110 e5ff | | Load 0x2,-0x1
0111 0217 | | Execute Heap_Access,All_Reference
0112 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0113 00da | | Load_Top At_Offset_2
0114 0217 | | Execute Heap_Access,All_Reference
0115 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0116 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0117 8217 | | Call 0x1,0x17
0118 c5fd | | Store 0x2,-0x3
0119 4801 |H | Short_Literal 0x1
011a a5fc | | Store_Unchecked 0x2,-0x4
011b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011c 4800 |H | Short_Literal 0x0
011d a5fc | | Store_Unchecked 0x2,-0x4
011e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0137 | 7 | .CONST 0x0137 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0006 | | .CONST 0x0006 ; Number of locals
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 e20f | | Load 0x1,0xf
0125 0119 | | Execute Any,Check_In_Formal_Type
0126 8237 | 7 | Call 0x1,0x37
0127 e233 | 3 | Load 0x1,0x33
0128 03f1 | | Declare_Variable Discrete,With_Value
0129 00d8 | | Load_Top At_Offset_0
012a e5fc | | Load 0x2,-0x4
012b 0217 | | Execute Heap_Access,All_Reference
012c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
012d 01d5 | | Execute Vector,Field_Reference
012e 0007 | | Action Break_Optional
012f 00d8 | | Load_Top At_Offset_0
0130 0007 | | Action Break_Optional
0131 e5ff | | Load 0x2,-0x1
0132 e20f | | Load 0x1,0xf
0133 0119 | | Execute Any,Check_In_Formal_Type
0134 00d9 | | Load_Top At_Offset_1
0135 8236 | 6 | Call 0x1,0x36
0136 00e1 | | Load_Encached Boolean_Cache
0137 BODY_0120:
0137 00d9 | | Load_Top At_Offset_1
0138 702f |p/ | Jump_Nonzero 0x168
0139 e22c | , | Load 0x1,0x2c
013a e5fc | | Load 0x2,-0x4
013b 039c | | Declare_Variable Heap_Access,By_Allocation
013c a403 | | Store_Unchecked 0x2,0x3
013d 00db | | Load_Top At_Offset_3
013e 0219 | | Execute Heap_Access,All_Read
013f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0140 00d8 | | Load_Top At_Offset_0
0141 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0142 00d8 | | Load_Top At_Offset_0
0143 0120 | | Execute Any,Is_Value
0144 6803 |h | Jump_Zero 0x148
0145 e20f | | Load 0x1,0xf
0146 0122 | " | Execute Any,Make_Root_Type
0147 011e | | Execute Any,Convert
0148 e5fc | | Load 0x2,-0x4
0149 0217 | | Execute Heap_Access,All_Reference
014a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
014b e5ff | | Load 0x2,-0x1
014c 8212 | | Call 0x1,0x12
014d 00d9 | | Load_Top At_Offset_1
014e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
014f 00d1 | | Pop_Control Pop_Count_1
0150 00db | | Load_Top At_Offset_3
0151 0219 | | Execute Heap_Access,All_Read
0152 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0153 00d8 | | Load_Top At_Offset_0
0154 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0155 00d8 | | Load_Top At_Offset_0
0156 0120 | | Execute Any,Is_Value
0157 6803 |h | Jump_Zero 0x15b
0158 e214 | | Load 0x1,0x14
0159 0122 | " | Execute Any,Make_Root_Type
015a 011e | | Execute Any,Convert
015b e5fc | | Load 0x2,-0x4
015c 0217 | | Execute Heap_Access,All_Reference
015d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
015e e5fe | | Load 0x2,-0x2
015f 8217 | | Call 0x1,0x17
0160 00d9 | | Load_Top At_Offset_1
0161 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0162 00d1 | | Pop_Control Pop_Count_1
0163 00da | | Load_Top At_Offset_2
0164 e403 | | Load 0x2,0x3
0165 0217 | | Execute Heap_Access,All_Reference
0166 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0167 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0168 e5fd | | Load 0x2,-0x3
0169 6802 |h | Jump_Zero 0x16c
016a e228 | ( | Load 0x1,0x28
016b 0257 | W | Execute Discrete,Raise
016c 00d9 | | Load_Top At_Offset_1
016d 0219 | | Execute Heap_Access,All_Read
016e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
016f 00d8 | | Load_Top At_Offset_0
0170 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0171 00d8 | | Load_Top At_Offset_0
0172 0120 | | Execute Any,Is_Value
0173 6803 |h | Jump_Zero 0x177
0174 e214 | | Load 0x1,0x14
0175 0122 | " | Execute Any,Make_Root_Type
0176 011e | | Execute Any,Convert
0177 e5fc | | Load 0x2,-0x4
0178 0217 | | Execute Heap_Access,All_Reference
0179 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
017a e5fe | | Load 0x2,-0x2
017b 8217 | | Call 0x1,0x17
017c 00d9 | | Load_Top At_Offset_1
017d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
017e 00d1 | | Pop_Control Pop_Count_1
017f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0190 | | .CONST 0x0190 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0004 | | .CONST 0x0004 ; Number of locals
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 e20f | | Load 0x1,0xf
0185 0119 | | Execute Any,Check_In_Formal_Type
0186 8237 | 7 | Call 0x1,0x37
0187 e233 | 3 | Load 0x1,0x33
0188 03f1 | | Declare_Variable Discrete,With_Value
0189 00d8 | | Load_Top At_Offset_0
018a e5fe | | Load 0x2,-0x2
018b 0217 | | Execute Heap_Access,All_Reference
018c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
018d 01d7 | | Execute Vector,Field_Read
018e 0007 | | Action Break_Optional
018f e22d | - | Load 0x1,0x2d
0190 BODY_0180:
0190 00cf | | Action Mark_Auxiliary
0191 7820 |x | Jump 0x1b2
0192 e5ff | | Load 0x2,-0x1
0193 00db | | Load_Top At_Offset_3
0194 0217 | | Execute Heap_Access,All_Reference
0195 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0196 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0197 8213 | | Call 0x1,0x13
0198 6812 |h | Jump_Zero 0x1ab
0199 00d9 | | Load_Top At_Offset_1
019a 6807 |h | Jump_Zero 0x1a2
019b 00da | | Load_Top At_Offset_2
019c 0217 | | Execute Heap_Access,All_Reference
019d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019e 00da | | Load_Top At_Offset_2
019f 0217 | | Execute Heap_Access,All_Reference
01a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01a2 00da | | Load_Top At_Offset_2
01a3 0217 | | Execute Heap_Access,All_Reference
01a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a5 e402 | | Load 0x2,0x2
01a6 e5fe | | Load 0x2,-0x2
01a7 0217 | | Execute Heap_Access,All_Reference
01a8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01a9 01d6 | | Execute Vector,Field_Write
01aa 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ab 00da | | Load_Top At_Offset_2
01ac 0032 | 2 | Store_Top Heap_Access,At_Offset_2
01ad 00da | | Load_Top At_Offset_2
01ae 0217 | | Execute Heap_Access,All_Reference
01af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b0 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01b1 00c9 | | Action Pop_Auxiliary_Loop
01b2 00da | | Load_Top At_Offset_2
01b3 77de |w | Jump_Nonzero 0x192
01b4 00ce | | Action Pop_Auxiliary
01b5 e227 | ' | Load 0x1,0x27
01b6 0257 | W | Execute Discrete,Raise
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb e232 | 2 | Load 0x1,0x32
01bc 0322 | " | Declare_Variable Record
01bd BODY_01b8:
01bd 00cf | | Action Mark_Auxiliary
01be e233 | 3 | Load 0x1,0x33
01bf 0269 | i | Execute Discrete,Last
01c0 4800 |H | Short_Literal 0x0
01c1 0263 | c | Execute Discrete,Above_Bound
01c2 700a |p | Jump_Nonzero 0x1cd
01c3 00d8 | | Load_Top At_Offset_0
01c4 e5ff | | Load 0x2,-0x1
01c5 0217 | | Execute Heap_Access,All_Reference
01c6 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01c7 01d7 | | Execute Vector,Field_Read
01c8 6802 |h | Jump_Zero 0x1cb
01c9 4800 |H | Short_Literal 0x0
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb 00c8 | | Action Pop_Auxiliary_Range
01cc 3ff6 |? | Loop_Increasing 0x1c3
01cd 00ce | | Action Pop_Auxiliary
01ce 4801 |H | Short_Literal 0x1
01cf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00cf | | Action Mark_Auxiliary
01d4 e233 | 3 | Load 0x1,0x33
01d5 0269 | i | Execute Discrete,Last
01d6 4800 |H | Short_Literal 0x0
01d7 0263 | c | Execute Discrete,Above_Bound
01d8 7008 |p | Jump_Nonzero 0x1e1
01d9 e22d | - | Load 0x1,0x2d
01da 00d9 | | Load_Top At_Offset_1
01db e5ff | | Load 0x2,-0x1
01dc 0217 | | Execute Heap_Access,All_Reference
01dd 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01de 01d6 | | Execute Vector,Field_Write
01df 00c8 | | Action Pop_Auxiliary_Range
01e0 3ff8 |? | Loop_Increasing 0x1d9
01e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e2 0000 0000 | | .BLANK 0000[0x6]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01ef | | .CONST 0x01ef ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0003 | | .CONST 0x0003 ; Number of locals
01eb INIT_01e8:
01eb e22d | - | Load 0x1,0x2d
01ec 0007 | | Action Break_Optional
01ed 00d8 | | Load_Top At_Offset_0
01ee 0007 | | Action Break_Optional
01ef BODY_01e8:
01ef e5fd | | Load 0x2,-0x3
01f0 821b | | Call 0x1,0x1b
01f1 c5fd | | Store 0x2,-0x3
01f2 e5fe | | Load 0x2,-0x2
01f3 821a | | Call 0x1,0x1a
01f4 a5fd | | Store_Unchecked 0x2,-0x3
01f5 00cf | | Action Mark_Auxiliary
01f6 e233 | 3 | Load 0x1,0x33
01f7 0269 | i | Execute Discrete,Last
01f8 4800 |H | Short_Literal 0x0
01f9 0263 | c | Execute Discrete,Above_Bound
01fa 703c |p< | Jump_Nonzero 0x237
01fb 00d8 | | Load_Top At_Offset_0
01fc e5ff | | Load 0x2,-0x1
01fd 0217 | | Execute Heap_Access,All_Reference
01fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01ff 01d7 | | Execute Vector,Field_Read
0200 a402 | | Store_Unchecked 0x2,0x2
0201 e22d | - | Load 0x1,0x2d
0202 00d9 | | Load_Top At_Offset_1
0203 e5fd | | Load 0x2,-0x3
0204 0217 | | Execute Heap_Access,All_Reference
0205 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0206 01d6 | | Execute Vector,Field_Write
0207 00cf | | Action Mark_Auxiliary
0208 7829 |x) | Jump 0x232
0209 00d9 | | Load_Top At_Offset_1
020a e5fd | | Load 0x2,-0x3
020b 0217 | | Execute Heap_Access,All_Reference
020c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
020d 01d7 | | Execute Vector,Field_Read
020e a403 | | Store_Unchecked 0x2,0x3
020f e22c | , | Load 0x1,0x2c
0210 e5fe | | Load 0x2,-0x2
0211 039c | | Declare_Variable Heap_Access,By_Allocation
0212 00da | | Load_Top At_Offset_2
0213 e5fd | | Load 0x2,-0x3
0214 0217 | | Execute Heap_Access,All_Reference
0215 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0216 01d6 | | Execute Vector,Field_Write
0217 00d9 | | Load_Top At_Offset_1
0218 e5fd | | Load 0x2,-0x3
0219 0219 | | Execute Heap_Access,All_Read
021a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021b 01d7 | | Execute Vector,Field_Read
021c 0219 | | Execute Heap_Access,All_Read
021d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
021e 00d8 | | Load_Top At_Offset_0
021f e5fe | | Load 0x2,-0x2
0220 e402 | | Load 0x2,0x2
0221 0217 | | Execute Heap_Access,All_Reference
0222 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0223 8235 | 5 | Call 0x1,0x35
0224 00d2 | | Pop_Control Pop_Count_2
0225 e403 | | Load 0x2,0x3
0226 00da | | Load_Top At_Offset_2
0227 e5fd | | Load 0x2,-0x3
0228 0217 | | Execute Heap_Access,All_Reference
0229 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
022a 01d7 | | Execute Vector,Field_Read
022b 0217 | | Execute Heap_Access,All_Reference
022c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
022d e402 | | Load 0x2,0x2
022e 0217 | | Execute Heap_Access,All_Reference
022f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0230 a402 | | Store_Unchecked 0x2,0x2
0231 00c9 | | Action Pop_Auxiliary_Loop
0232 e402 | | Load 0x2,0x2
0233 77d5 |w | Jump_Nonzero 0x209
0234 00ce | | Action Pop_Auxiliary
0235 00c8 | | Action Pop_Auxiliary_Range
0236 3fc4 |? | Loop_Increasing 0x1fb
0237 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e232 | 2 | Load 0x1,0x32
023c 0322 | " | Declare_Variable Record
023d BODY_0238:
023d 00db | | Load_Top At_Offset_3
023e 7004 |p | Jump_Nonzero 0x243
023f 4801 |H | Short_Literal 0x1
0240 e5fe | | Load 0x2,-0x2
0241 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0242 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0243 00cf | | Action Mark_Auxiliary
0244 e233 | 3 | Load 0x1,0x33
0245 0269 | i | Execute Discrete,Last
0246 4800 |H | Short_Literal 0x0
0247 0263 | c | Execute Discrete,Above_Bound
0248 701b |p | Jump_Nonzero 0x264
0249 00d8 | | Load_Top At_Offset_0
024a e5ff | | Load 0x2,-0x1
024b 0217 | | Execute Heap_Access,All_Reference
024c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
024d 01d7 | | Execute Vector,Field_Read
024e e22c | , | Load 0x1,0x2c
024f 0216 | | Execute Heap_Access,Convert
0250 e402 | | Load 0x2,0x2
0251 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0252 00db | | Load_Top At_Offset_3
0253 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0254 680d |h | Jump_Zero 0x262
0255 4800 |H | Short_Literal 0x0
0256 e402 | | Load 0x2,0x2
0257 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0258 00d8 | | Load_Top At_Offset_0
0259 e402 | | Load 0x2,0x2
025a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
025b e5ff | | Load 0x2,-0x1
025c e402 | | Load 0x2,0x2
025d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
025e 00db | | Load_Top At_Offset_3
025f e5fe | | Load 0x2,-0x2
0260 017d | } | Execute Record,Structure_Write
0261 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0262 00c8 | | Action Pop_Auxiliary_Range
0263 3fe5 |? | Loop_Increasing 0x249
0264 00ce | | Action Pop_Auxiliary
0265 4801 |H | Short_Literal 0x1
0266 00d9 | | Load_Top At_Offset_1
0267 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0268 00d8 | | Load_Top At_Offset_0
0269 e5fe | | Load 0x2,-0x2
026a 017d | } | Execute Record,Structure_Write
026b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0275 0217 | | Execute Heap_Access,All_Reference
0276 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0277 e22c | , | Load 0x1,0x2c
0278 0216 | | Execute Heap_Access,Convert
0279 00db | | Load_Top At_Offset_3
027a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
027b 00cf | | Action Mark_Auxiliary
027c 781b |x | Jump 0x298
027d 00db | | Load_Top At_Offset_3
027e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027f e233 | 3 | Load 0x1,0x33
0280 0269 | i | Execute Discrete,Last
0281 027f | | Execute Discrete,Equal
0282 6804 |h | Jump_Zero 0x287
0283 4801 |H | Short_Literal 0x1
0284 e5ff | | Load 0x2,-0x1
0285 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0286 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0287 00db | | Load_Top At_Offset_3
0288 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0289 0a01 | | Execute_Immediate Plus,0x1
028a e5ff | | Load 0x2,-0x1
028b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
028c 00db | | Load_Top At_Offset_3
028d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
028e e5ff | | Load 0x2,-0x1
028f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0290 0217 | | Execute Heap_Access,All_Reference
0291 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0292 01d7 | | Execute Vector,Field_Read
0293 e22c | , | Load 0x1,0x2c
0294 0216 | | Execute Heap_Access,Convert
0295 e5ff | | Load 0x2,-0x1
0296 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0297 00c9 | | Action Pop_Auxiliary_Loop
0298 00db | | Load_Top At_Offset_3
0299 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
029a 6fe2 |o | Jump_Zero 0x27d
029b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
029c 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
02a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02a5 0217 | | Execute Heap_Access,All_Reference
02a6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02a8 00d8 | | Load_Top At_Offset_0
02a9 0120 | | Execute Any,Is_Value
02aa 7002 |p | Jump_Nonzero 0x2ad
02ab 00d8 | | Load_Top At_Offset_0
02ac 011e | | Execute Any,Convert
02ad e20f | | Load 0x1,0xf
02ae 0119 | | Execute Any,Check_In_Formal_Type
02af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00da | | Load_Top At_Offset_2
02b4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02b6 0000 0000 | | .XXX[0x2]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb e231 | 1 | Load 0x1,0x31
02bc 00ca | | Action Exit_Nullary_Function
02bd 0000 0000 | | .XXX[0x3]
02bf 0000 | |
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 00da | | Load_Top At_Offset_2
02c4 021d | | Execute Heap_Access,Is_Null
02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cf | | .CONST 0x02cf ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0003 | | .CONST 0x0003 ; Number of locals
02cb INIT_02c8:
02cb 00e3 | | Load_Encached Natural_Cache
02cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02cd e232 | 2 | Load 0x1,0x32
02ce 0322 | " | Declare_Variable Record
02cf BODY_02c8:
02cf 00d8 | | Load_Top At_Offset_0
02d0 e5ff | | Load 0x2,-0x1
02d1 8223 | # | Call 0x1,0x23
02d2 00d1 | | Pop_Control Pop_Count_1
02d3 00cf | | Action Mark_Auxiliary
02d4 7807 |x | Jump 0x2dc
02d5 00da | | Load_Top At_Offset_2
02d6 0a01 | | Execute_Immediate Plus,0x1
02d7 005b | [ | Store_Top Discrete,At_Offset_3
02d8 00d9 | | Load_Top At_Offset_1
02d9 8224 | $ | Call 0x1,0x24
02da 00d1 | | Pop_Control Pop_Count_1
02db 00c9 | | Action Pop_Auxiliary_Loop
02dc 00d9 | | Load_Top At_Offset_1
02dd 8226 | & | Call 0x1,0x26
02de 6ff6 |o | Jump_Zero 0x2d5
02df 00ce | | Action Pop_Auxiliary
02e0 00d9 | | Load_Top At_Offset_1
02e1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e2 0000 0000 | | .BLANK 0000[0x6]
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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02ed 00d8 | | Load_Top At_Offset_0
02ee 0120 | | Execute Any,Is_Value
02ef 6803 |h | Jump_Zero 0x2f3
02f0 e20f | | Load 0x1,0xf
02f1 0122 | " | Execute Any,Make_Root_Type
02f2 011e | | Execute Any,Convert
02f3 e5fe | | Load 0x2,-0x2
02f4 e5ff | | Load 0x2,-0x1
02f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f6 8212 | | Call 0x1,0x12
02f7 e5fd | | Load 0x2,-0x3
02f8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02f9 e5fd | | Load 0x2,-0x3
02fa 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02fb 00d8 | | Load_Top At_Offset_0
02fc 0120 | | Execute Any,Is_Value
02fd 6803 |h | Jump_Zero 0x301
02fe e214 | | Load 0x1,0x14
02ff 0122 | " | Execute Any,Make_Root_Type
0300 011e | | Execute Any,Convert
0301 e5fe | | Load 0x2,-0x2
0302 e5ff | | Load 0x2,-0x1
0303 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0304 8217 | | Call 0x1,0x17
0305 e5fd | | Load 0x2,-0x3
0306 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0307 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030c | | .CONST 0x030c ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b 00da | | Load_Top At_Offset_2
030c BODY_0308:
030c 00cf | | Action Mark_Auxiliary
030d 780e |x | Jump 0x31c
030e e5fe | | Load 0x2,-0x2
030f 00da | | Load_Top At_Offset_2
0310 0217 | | Execute Heap_Access,All_Reference
0311 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0312 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0313 8213 | | Call 0x1,0x13
0314 6802 |h | Jump_Zero 0x317
0315 00d9 | | Load_Top At_Offset_1
0316 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0317 00d9 | | Load_Top At_Offset_1
0318 0217 | | Execute Heap_Access,All_Reference
0319 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031a 0032 | 2 | Store_Top Heap_Access,At_Offset_2
031b 00c9 | | Action Pop_Auxiliary_Loop
031c 00d9 | | Load_Top At_Offset_1
031d 77f0 |w | Jump_Nonzero 0x30e
031e 00ce | | Action Pop_Auxiliary
031f e22d | - | Load 0x1,0x2d
0320 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 8219 | | Call 0x1,0x19
032d e20e | | Load 0x1,0xe
032e 026e | n | Execute Discrete,Modulo
032f 00d8 | | Load_Top At_Offset_0
0330 e233 | 3 | Load 0x1,0x33
0331 0260 | ` | Execute Discrete,In_Type
0332 7001 |p | Jump_Nonzero 0x334
0333 0801 | | Execute_Immediate Raise,0x1
0334 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0347 | G | .CONST 0x0347 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0002 | | .CONST 0x0002 ; Number of locals
033b INIT_0338:
033b 00db | | Load_Top At_Offset_3
033c e20f | | Load 0x1,0xf
033d 0119 | | Execute Any,Check_In_Formal_Type
033e e5fe | | Load 0x2,-0x2
033f e20f | | Load 0x1,0xf
0340 0119 | | Execute Any,Check_In_Formal_Type
0341 8237 | 7 | Call 0x1,0x37
0342 e5ff | | Load 0x2,-0x1
0343 0217 | | Execute Heap_Access,All_Reference
0344 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0345 01d7 | | Execute Vector,Field_Read
0346 8236 | 6 | Call 0x1,0x36
0347 BODY_0338:
0347 00d8 | | Load_Top At_Offset_0
0348 680c |h | Jump_Zero 0x355
0349 e5fd | | Load 0x2,-0x3
034a e5ff | | Load 0x2,-0x1
034b 0217 | | Execute Heap_Access,All_Reference
034c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034d 00da | | Load_Top At_Offset_2
034e 0217 | | Execute Heap_Access,All_Reference
034f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0350 8235 | 5 | Call 0x1,0x35
0351 00d1 | | Pop_Control Pop_Count_1
0352 4801 |H | Short_Literal 0x1
0353 a5fc | | Store_Unchecked 0x2,-0x4
0354 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0355 4800 |H | Short_Literal 0x0
0356 a5fc | | Store_Unchecked 0x2,-0x4
0357 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 4601 |F | Jump_Case 0x2
035c 7801 |x | Jump 0x35e ; case 0x0
035d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
035e 00da | | Load_Top At_Offset_2
035f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0360 0125 | % | Execute Any,Set_Constraint
0361 00da | | Load_Top At_Offset_2
0362 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0363 1c00 | | Execute_Immediate Run_Utility,0x0
0364 00da | | Load_Top At_Offset_2
0365 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0366 0125 | % | Execute Any,Set_Constraint
0367 00da | | Load_Top At_Offset_2
0368 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0369 1c00 | | Execute_Immediate Run_Utility,0x0
036a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
036b 0000 0000 | | .BLANK 0000[0x5]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 4601 |F | Jump_Case 0x2
0374 7801 |x | Jump 0x376 ; case 0x0
0375 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0376 00da | | Load_Top At_Offset_2
0377 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0378 1c00 | | Execute_Immediate Run_Utility,0x0
0379 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
037a 0000 0000 | | .BLANK 0000[0x6]
0380 ; --------------------------------------------------------------------------------------
0380 ; Debug Table
0380 ; --------------------------------------------------------------------------------------
0380 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d52,0x0000,0x0001,0x0000
0386 0000 0000 | | .BLANK 0000[0x7a]