|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_89789a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0518 | | .CONST 0x0518 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0091 | | .CONST 0x0091 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 4804 |H | Short_Literal 0x4
0026 032b | + | Declare_Type Record,Incomplete,Visible
0027 c222 | " | Store 0x1,0x22
0028 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
002a c228 | ( | Store 0x1,0x28
002b 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
002d c220 | | Store 0x1,0x20
002e 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0030 c221 | ! | Store 0x1,0x21
0031 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0033 c214 | | Store 0x1,0x14
0034 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0036 c225 | % | Store 0x1,0x25
0037 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
0039 c229 | ) | Store 0x1,0x29
003a 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
003c c215 | | Store 0x1,0x15
003d 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
003f c216 | | Store 0x1,0x16
0040 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0042 c223 | # | Store 0x1,0x23
0043 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
0045 c227 | ' | Store 0x1,0x27
0046 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
0048 c22a | * | Store 0x1,0x2a
0049 e001 | | Load 0x0,0x1
004a 0129 | ) | Execute Any,Make_Visible
004b c21f | | Store 0x1,0x1f
004c 4801 |H | Short_Literal 0x1
004d 4864 |Hd | Short_Literal 0x64
004e e210 | | Load 0x1,0x10
004f 035b | [ | Declare_Type Array,Constrained
0050 c226 | & | Store 0x1,0x26
0051 4802 |H | Short_Literal 0x2
0052 032a | * | Declare_Type Record,Incomplete
0053 c21e | | Store 0x1,0x1e
0054 e21e | | Load 0x1,0x1e
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 4818 |H | Short_Literal 0x18
0057 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0058 c21d | | Store 0x1,0x1d
0059 e226 | & | Load 0x1,0x26
005a e21d | | Load 0x1,0x1d
005b 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
005d e21e | | Load 0x1,0x1e
005e 0326 | & | Complete_Type Record,By_Defining
005f 00e3 | | Load_Encached Natural_Cache
0060 00e3 | | Load_Encached Natural_Cache
0061 e21d | | Load 0x1,0x1d
0062 00d8 | | Load_Top At_Offset_0
0063 029f 0503 | | Declare_Subprogram INIT_0500,For_Call
0065 e222 | " | Load 0x1,0x22
0066 0326 | & | Complete_Type Record,By_Defining
0067 00bf | | Action Accept_Activation
0068 e21d | | Load 0x1,0x1d
0069 00d8 | | Load_Top At_Offset_0
006a 02a0 | | Declare_Subprogram Null_Subprogram
006b 4802 |H | Short_Literal 0x2
006c 032d | - | Declare_Type Record,Defined
006d 00d8 | | Load_Top At_Offset_0
006e 0322 | " | Declare_Variable Record
006f 029d 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call
0071 029d 0413 | | Declare_Subprogram INIT_0410,For_Outer_Call
0073 029d 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call
0075 029d 0483 | | Declare_Subprogram INIT_0480,For_Outer_Call
0077 029d 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call
0079 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
007a 00c7 | | Action Elaborate_Subprogram
007b 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007c 00c7 | | Action Elaborate_Subprogram
007d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007e 00c7 | | Action Elaborate_Subprogram
007f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0080 00c7 | | Action Elaborate_Subprogram
0081 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0082 00c7 | | Action Elaborate_Subprogram
0083 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
0084 00c7 | | Action Elaborate_Subprogram
0085 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0086 00c7 | | Action Elaborate_Subprogram
0087 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0088 00c7 | | Action Elaborate_Subprogram
0089 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
008a 00c7 | | Action Elaborate_Subprogram
008b 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
008c 00c7 | | Action Elaborate_Subprogram
008d 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
008e 00c7 | | Action Elaborate_Subprogram
008f 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call
0091 BODY_0008:
0091 8232 | 2 | Call 0x1,0x32
0092 00bc | | Action Signal_Activated
0093 00bb | | Action Signal_Completion
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a9 | | .CONST 0x00a9 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0007 | | .CONST 0x0007 ; Number of locals
009b INIT_0098:
009b e21d | | Load 0x1,0x1d
009c 0007 | | Action Break_Optional
009d e222 | " | Load 0x1,0x22
009e 0322 | " | Declare_Variable Record
009f 00d8 | | Load_Top At_Offset_0
00a0 1c00 | | Execute_Immediate Run_Utility,0x0
00a1 00e3 | | Load_Encached Natural_Cache
00a2 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a3 00e3 | | Load_Encached Natural_Cache
00a4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a5 00e3 | | Load_Encached Natural_Cache
00a6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a7 00e3 | | Load_Encached Natural_Cache
00a8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00a9 BODY_0098:
00a9 e5ff | | Load 0x2,-0x1
00aa 01dc | | Execute Vector,Last
00ab e5ff | | Load 0x2,-0x1
00ac 01dd | | Execute Vector,First
00ad 027b | { | Execute Discrete,Greater_Equal
00ae 687b |h{ | Jump_Zero 0x12a
00af 4801 |H | Short_Literal 0x1
00b0 e403 | | Load 0x2,0x3
00b1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b2 e5ff | | Load 0x2,-0x1
00b3 01dc | | Execute Vector,Last
00b4 e403 | | Load 0x2,0x3
00b5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00b6 e5ff | | Load 0x2,-0x1
00b7 01dc | | Execute Vector,Last
00b8 c404 | | Store 0x2,0x4
00b9 822f | / | Call 0x1,0x2f
00ba a402 | | Store_Unchecked 0x2,0x2
00bb e402 | | Load 0x2,0x2
00bc e403 | | Load 0x2,0x3
00bd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00be e402 | | Load 0x2,0x2
00bf e403 | | Load 0x2,0x3
00c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c1 00db | | Load_Top At_Offset_3
00c2 0d65 | e | Execute_Immediate Less,0x65
00c3 6816 |h | Jump_Zero 0xda
00c4 e5ff | | Load 0x2,-0x1
00c5 01dd | | Execute Vector,First
00c6 e5ff | | Load 0x2,-0x1
00c7 01dd | | Execute Vector,First
00c8 e404 | | Load 0x2,0x4
00c9 0273 | s | Execute Discrete,Plus
00ca 0aff | | Execute_Immediate Plus,-0x1
00cb 00d8 | | Load_Top At_Offset_0
00cc 00e2 | | Load_Encached Integer_Cache
00cd 0260 | ` | Execute Discrete,In_Type
00ce 7001 |p | Jump_Nonzero 0xd0
00cf 0801 | | Execute_Immediate Raise,0x1
00d0 e5ff | | Load 0x2,-0x1
00d1 01cf | | Execute Vector,Slice_Read
00d2 4801 |H | Short_Literal 0x1
00d3 e404 | | Load 0x2,0x4
00d4 e403 | | Load 0x2,0x3
00d5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d6 0229 | ) | Execute Access,All_Read
00d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d8 01ce | | Execute Vector,Slice_Write
00d9 7850 |xP | Jump 0x12a
00da e5ff | | Load 0x2,-0x1
00db 01dd | | Execute Vector,First
00dc 005a | Z | Store_Top Discrete,At_Offset_2
00dd e5ff | | Load 0x2,-0x1
00de 01dd | | Execute Vector,First
00df 0a63 | c | Execute_Immediate Plus,0x63
00e0 0059 | Y | Store_Top Discrete,At_Offset_1
00e1 00d9 | | Load_Top At_Offset_1
00e2 00d9 | | Load_Top At_Offset_1
00e3 e5ff | | Load 0x2,-0x1
00e4 01cf | | Execute Vector,Slice_Read
00e5 4801 |H | Short_Literal 0x1
00e6 4864 |Hd | Short_Literal 0x64
00e7 e403 | | Load 0x2,0x3
00e8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e9 0229 | ) | Execute Access,All_Read
00ea 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00eb 01ce | | Execute Vector,Slice_Write
00ec 00db | | Load_Top At_Offset_3
00ed 0a9c | | Execute_Immediate Plus,-0x64
00ee c404 | | Store 0x2,0x4
00ef 00db | | Load_Top At_Offset_3
00f0 4864 |Hd | Short_Literal 0x64
00f1 0270 | p | Execute Discrete,Divide
00f2 005b | [ | Store_Top Discrete,At_Offset_3
00f3 00cf | | Action Mark_Auxiliary
00f4 00db | | Load_Top At_Offset_3
00f5 4801 |H | Short_Literal 0x1
00f6 0263 | c | Execute Discrete,Above_Bound
00f7 7019 |p | Jump_Nonzero 0x111
00f8 e403 | | Load 0x2,0x3
00f9 8230 | 0 | Call 0x1,0x30
00fa 00d1 | | Pop_Control Pop_Count_1
00fb e406 | | Load 0x2,0x6
00fc 0a64 | d | Execute_Immediate Plus,0x64
00fd c406 | | Store 0x2,0x6
00fe 00db | | Load_Top At_Offset_3
00ff 0a64 | d | Execute_Immediate Plus,0x64
0100 c407 | | Store 0x2,0x7
0101 e406 | | Load 0x2,0x6
0102 e407 | | Load 0x2,0x7
0103 e5ff | | Load 0x2,-0x1
0104 01cf | | Execute Vector,Slice_Read
0105 4801 |H | Short_Literal 0x1
0106 4864 |Hd | Short_Literal 0x64
0107 e403 | | Load 0x2,0x3
0108 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0109 0229 | ) | Execute Access,All_Read
010a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010b 01ce | | Execute Vector,Slice_Write
010c e404 | | Load 0x2,0x4
010d 0a9c | | Execute_Immediate Plus,-0x64
010e c404 | | Store 0x2,0x4
010f 00c8 | | Action Pop_Auxiliary_Range
0110 3fe7 |? | Loop_Increasing 0xf8
0111 00ce | | Action Pop_Auxiliary
0112 00db | | Load_Top At_Offset_3
0113 0c01 | | Execute_Immediate Greater_Equal,0x1
0114 6815 |h | Jump_Zero 0x12a
0115 e403 | | Load 0x2,0x3
0116 8230 | 0 | Call 0x1,0x30
0117 00d1 | | Pop_Control Pop_Count_1
0118 00d9 | | Load_Top At_Offset_1
0119 0a64 | d | Execute_Immediate Plus,0x64
011a 005a | Z | Store_Top Discrete,At_Offset_2
011b 00d8 | | Load_Top At_Offset_0
011c e404 | | Load 0x2,0x4
011d 0273 | s | Execute Discrete,Plus
011e 0059 | Y | Store_Top Discrete,At_Offset_1
011f 00d9 | | Load_Top At_Offset_1
0120 00d9 | | Load_Top At_Offset_1
0121 e5ff | | Load 0x2,-0x1
0122 01cf | | Execute Vector,Slice_Read
0123 4801 |H | Short_Literal 0x1
0124 e404 | | Load 0x2,0x4
0125 e403 | | Load 0x2,0x3
0126 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0127 0229 | ) | Execute Access,All_Read
0128 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0129 01ce | | Execute Vector,Slice_Write
012a e403 | | Load 0x2,0x3
012b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013a | : | .CONST 0x013a ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 e222 | " | Load 0x1,0x22
0134 0322 | " | Declare_Variable Record
0135 00db | | Load_Top At_Offset_3
0136 00d9 | | Load_Top At_Offset_1
0137 017d | } | Execute Record,Structure_Write
0138 e21d | | Load 0x1,0x1d
0139 0007 | | Action Break_Optional
013a BODY_0130:
013a e5ff | | Load 0x2,-0x1
013b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013c 4864 |Hd | Short_Literal 0x64
013d 026f | o | Execute Discrete,Remainder
013e 7010 |p | Jump_Nonzero 0x14f
013f 00d9 | | Load_Top At_Offset_1
0140 8230 | 0 | Call 0x1,0x30
0141 00d1 | | Pop_Control Pop_Count_1
0142 e5fe | | Load 0x2,-0x2
0143 4801 |H | Short_Literal 0x1
0144 00db | | Load_Top At_Offset_3
0145 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0146 0227 | ' | Execute Access,All_Reference
0147 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0148 01d6 | | Execute Vector,Field_Write
0149 00d9 | | Load_Top At_Offset_1
014a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014b 0a01 | | Execute_Immediate Plus,0x1
014c 00da | | Load_Top At_Offset_2
014d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014e 7810 |x | Jump 0x15f
014f e5fe | | Load 0x2,-0x2
0150 e5ff | | Load 0x2,-0x1
0151 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0152 4864 |Hd | Short_Literal 0x64
0153 026f | o | Execute Discrete,Remainder
0154 0a01 | | Execute_Immediate Plus,0x1
0155 00db | | Load_Top At_Offset_3
0156 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0157 0227 | ' | Execute Access,All_Reference
0158 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0159 01d6 | | Execute Vector,Field_Write
015a 00d9 | | Load_Top At_Offset_1
015b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
015c 0a01 | | Execute_Immediate Plus,0x1
015d 00da | | Load_Top At_Offset_2
015e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
015f 00d9 | | Load_Top At_Offset_1
0160 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0161 0000 0000 | | .BLANK 0000[0x7]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0177 | w | .CONST 0x0177 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0007 | | .CONST 0x0007 ; Number of locals
016b INIT_0168:
016b e222 | " | Load 0x1,0x22
016c 0322 | " | Declare_Variable Record
016d 00db | | Load_Top At_Offset_3
016e 00d9 | | Load_Top At_Offset_1
016f 017d | } | Execute Record,Structure_Write
0170 e21d | | Load 0x1,0x1d
0171 0007 | | Action Break_Optional
0172 00e3 | | Load_Encached Natural_Cache
0173 e21d | | Load 0x1,0x1d
0174 0007 | | Action Break_Optional
0175 00e3 | | Load_Encached Natural_Cache
0176 03e9 | | Declare_Variable Discrete,Duplicate
0177 BODY_0168:
0177 e402 | | Load 0x2,0x2
0178 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0179 4864 |Hd | Short_Literal 0x64
017a 026f | o | Execute Discrete,Remainder
017b c404 | | Store 0x2,0x4
017c 00db | | Load_Top At_Offset_3
017d 701b |p | Jump_Nonzero 0x199
017e e5fe | | Load 0x2,-0x2
017f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0180 003b | ; | Store_Top Access,At_Offset_3
0181 00cf | | Action Mark_Auxiliary
0182 e5fe | | Load 0x2,-0x2
0183 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0184 4801 |H | Short_Literal 0x1
0185 0263 | c | Execute Discrete,Above_Bound
0186 7010 |p | Jump_Nonzero 0x197
0187 e402 | | Load 0x2,0x2
0188 8230 | 0 | Call 0x1,0x30
0189 00d1 | | Pop_Control Pop_Count_1
018a e405 | | Load 0x2,0x5
018b 0227 | ' | Execute Access,All_Reference
018c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018d e402 | | Load 0x2,0x2
018e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
018f 0227 | ' | Execute Access,All_Reference
0190 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0191 e405 | | Load 0x2,0x5
0192 0227 | ' | Execute Access,All_Reference
0193 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0194 a405 | | Store_Unchecked 0x2,0x5
0195 00c8 | | Action Pop_Auxiliary_Range
0196 3ff0 |? | Loop_Increasing 0x187
0197 00ce | | Action Pop_Auxiliary
0198 7862 |xb | Jump 0x1fb
0199 e5fe | | Load 0x2,-0x2
019a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019b e404 | | Load 0x2,0x4
019c 027a | z | Execute Discrete,Less_Equal
019d 6826 |h& | Jump_Zero 0x1c4
019e e402 | | Load 0x2,0x2
019f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a0 4864 |Hd | Short_Literal 0x64
01a1 026f | o | Execute Discrete,Remainder
01a2 0a01 | | Execute_Immediate Plus,0x1
01a3 005a | Z | Store_Top Discrete,At_Offset_2
01a4 00cf | | Action Mark_Auxiliary
01a5 00da | | Load_Top At_Offset_2
01a6 e5fe | | Load 0x2,-0x2
01a7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a8 0273 | s | Execute Discrete,Plus
01a9 00d8 | | Load_Top At_Offset_0
01aa 00e2 | | Load_Encached Integer_Cache
01ab 0260 | ` | Execute Discrete,In_Type
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 0801 | | Execute_Immediate Raise,0x1
01ae 00db | | Load_Top At_Offset_3
01af 0263 | c | Execute Discrete,Above_Bound
01b0 7011 |p | Jump_Nonzero 0x1c2
01b1 00d8 | | Load_Top At_Offset_0
01b2 e406 | | Load 0x2,0x6
01b3 0272 | r | Execute Discrete,Minus
01b4 0a01 | | Execute_Immediate Plus,0x1
01b5 e5fe | | Load 0x2,-0x2
01b6 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01b7 0227 | ' | Execute Access,All_Reference
01b8 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b9 01d7 | | Execute Vector,Field_Read
01ba 00d9 | | Load_Top At_Offset_1
01bb e402 | | Load 0x2,0x2
01bc 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01bd 0227 | ' | Execute Access,All_Reference
01be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01bf 01d6 | | Execute Vector,Field_Write
01c0 00c8 | | Action Pop_Auxiliary_Range
01c1 3fef |? | Loop_Increasing 0x1b1
01c2 00ce | | Action Pop_Auxiliary
01c3 7837 |x7 | Jump 0x1fb
01c4 e402 | | Load 0x2,0x2
01c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c6 4864 |Hd | Short_Literal 0x64
01c7 026f | o | Execute Discrete,Remainder
01c8 005a | Z | Store_Top Discrete,At_Offset_2
01c9 4800 |H | Short_Literal 0x0
01ca 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01cb e5fe | | Load 0x2,-0x2
01cc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01cd 003b | ; | Store_Top Access,At_Offset_3
01ce 00cf | | Action Mark_Auxiliary
01cf e5fe | | Load 0x2,-0x2
01d0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d1 4801 |H | Short_Literal 0x1
01d2 0263 | c | Execute Discrete,Above_Bound
01d3 7026 |p& | Jump_Nonzero 0x1fa
01d4 00db | | Load_Top At_Offset_3
01d5 0f64 | d | Execute_Immediate Equal,0x64
01d6 6807 |h | Jump_Zero 0x1de
01d7 4801 |H | Short_Literal 0x1
01d8 a407 | | Store_Unchecked 0x2,0x7
01d9 e405 | | Load 0x2,0x5
01da 0227 | ' | Execute Access,All_Reference
01db 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01dc a405 | | Store_Unchecked 0x2,0x5
01dd 7803 |x | Jump 0x1e1
01de 00db | | Load_Top At_Offset_3
01df 0a01 | | Execute_Immediate Plus,0x1
01e0 c407 | | Store 0x2,0x7
01e1 e406 | | Load 0x2,0x6
01e2 0f64 | d | Execute_Immediate Equal,0x64
01e3 6806 |h | Jump_Zero 0x1ea
01e4 e402 | | Load 0x2,0x2
01e5 8230 | 0 | Call 0x1,0x30
01e6 00d1 | | Pop_Control Pop_Count_1
01e7 4801 |H | Short_Literal 0x1
01e8 a406 | | Store_Unchecked 0x2,0x6
01e9 7803 |x | Jump 0x1ed
01ea e406 | | Load 0x2,0x6
01eb 0a01 | | Execute_Immediate Plus,0x1
01ec c406 | | Store 0x2,0x6
01ed 00db | | Load_Top At_Offset_3
01ee e405 | | Load 0x2,0x5
01ef 0227 | ' | Execute Access,All_Reference
01f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f1 01d7 | | Execute Vector,Field_Read
01f2 e406 | | Load 0x2,0x6
01f3 e402 | | Load 0x2,0x2
01f4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01f5 0227 | ' | Execute Access,All_Reference
01f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f7 01d6 | | Execute Vector,Field_Write
01f8 00c8 | | Action Pop_Auxiliary_Range
01f9 3fda |? | Loop_Increasing 0x1d4
01fa 00ce | | Action Pop_Auxiliary
01fb e402 | | Load 0x2,0x2
01fc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01fd e5fe | | Load 0x2,-0x2
01fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ff 0273 | s | Execute Discrete,Plus
0200 e402 | | Load 0x2,0x2
0201 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0202 e402 | | Load 0x2,0x2
0203 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
020d 6816 |h | Jump_Zero 0x224
020e e22c | , | Load 0x1,0x2c
020f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0210 7009 |p | Jump_Nonzero 0x21a
0211 00da | | Load_Top At_Offset_2
0212 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0213 e22c | , | Load 0x1,0x2c
0214 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0215 00da | | Load_Top At_Offset_2
0216 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0217 e22c | , | Load 0x1,0x2c
0218 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0219 780a |x | Jump 0x224
021a 00da | | Load_Top At_Offset_2
021b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
021c e22c | , | Load 0x1,0x2c
021d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021e 0227 | ' | Execute Access,All_Reference
021f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0220 00da | | Load_Top At_Offset_2
0221 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0222 e22c | , | Load 0x1,0x2c
0223 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0224 4800 |H | Short_Literal 0x0
0225 00db | | Load_Top At_Offset_3
0226 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0227 4800 |H | Short_Literal 0x0
0228 00db | | Load_Top At_Offset_3
0229 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
022a e21d | | Load 0x1,0x1d
022b 00db | | Load_Top At_Offset_3
022c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
022d e21d | | Load 0x1,0x1d
022e 00db | | Load_Top At_Offset_3
022f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0230 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 024a | J | .CONST 0x024a ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0005 | | .CONST 0x0005 ; Number of locals
023b INIT_0238:
023b 4801 |H | Short_Literal 0x1
023c e5fe | | Load 0x2,-0x2
023d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023e e210 | | Load 0x1,0x10
023f 035b | [ | Declare_Type Array,Constrained
0240 0337 | 7 | Declare_Variable Array
0241 00d8 | | Load_Top At_Offset_0
0242 1c00 | | Execute_Immediate Run_Utility,0x0
0243 00e3 | | Load_Encached Natural_Cache
0244 e21d | | Load 0x1,0x1d
0245 0007 | | Action Break_Optional
0246 e222 | " | Load 0x1,0x22
0247 0322 | " | Declare_Variable Record
0248 00d8 | | Load_Top At_Offset_0
0249 1c00 | | Execute_Immediate Run_Utility,0x0
024a BODY_0238:
024a e5ff | | Load 0x2,-0x1
024b e5fe | | Load 0x2,-0x2
024c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
024d 027a | z | Execute Discrete,Less_Equal
024e 6833 |h3 | Jump_Zero 0x282
024f e5fe | | Load 0x2,-0x2
0250 8216 | | Call 0x1,0x16
0251 e402 | | Load 0x2,0x2
0252 01d4 | | Execute Vector,Structure_Write
0253 00cf | | Action Mark_Auxiliary
0254 e402 | | Load 0x2,0x2
0255 01dc | | Execute Vector,Last
0256 0aff | | Execute_Immediate Plus,-0x1
0257 00d8 | | Load_Top At_Offset_0
0258 00e2 | | Load_Encached Integer_Cache
0259 0260 | ` | Execute Discrete,In_Type
025a 7001 |p | Jump_Nonzero 0x25c
025b 0801 | | Execute_Immediate Raise,0x1
025c e5ff | | Load 0x2,-0x1
025d 00d8 | | Load_Top At_Offset_0
025e 00e2 | | Load_Encached Integer_Cache
025f 0260 | ` | Execute Discrete,In_Type
0260 7001 |p | Jump_Nonzero 0x262
0261 0801 | | Execute_Immediate Raise,0x1
0262 0263 | c | Execute Discrete,Above_Bound
0263 7009 |p | Jump_Nonzero 0x26d
0264 00d8 | | Load_Top At_Offset_0
0265 0a01 | | Execute_Immediate Plus,0x1
0266 e402 | | Load 0x2,0x2
0267 01d7 | | Execute Vector,Field_Read
0268 00d9 | | Load_Top At_Offset_1
0269 e402 | | Load 0x2,0x2
026a 01d6 | | Execute Vector,Field_Write
026b 00c8 | | Action Pop_Auxiliary_Range
026c 3ff7 |? | Loop_Increasing 0x264
026d 00ce | | Action Pop_Auxiliary
026e 4801 |H | Short_Literal 0x1
026f e402 | | Load 0x2,0x2
0270 01dc | | Execute Vector,Last
0271 0aff | | Execute_Immediate Plus,-0x1
0272 00d8 | | Load_Top At_Offset_0
0273 00e2 | | Load_Encached Integer_Cache
0274 0260 | ` | Execute Discrete,In_Type
0275 7001 |p | Jump_Nonzero 0x277
0276 0801 | | Execute_Immediate Raise,0x1
0277 e402 | | Load 0x2,0x2
0278 01cf | | Execute Vector,Slice_Read
0279 8228 | ( | Call 0x1,0x28
027a 00d9 | | Load_Top At_Offset_1
027b 017d | } | Execute Record,Structure_Write
027c e5fe | | Load 0x2,-0x2
027d 8214 | | Call 0x1,0x14
027e 00d1 | | Pop_Control Pop_Count_1
027f 00d8 | | Load_Top At_Offset_0
0280 e5fe | | Load 0x2,-0x2
0281 017d | } | Execute Record,Structure_Write
0282 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0283 0000 0000 | | .BLANK 0000[0x5]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028c | | .CONST 0x028c ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0002 | | .CONST 0x0002 ; Number of locals
028b INIT_0288:
028b 00e3 | | Load_Encached Natural_Cache
028c BODY_0288:
028c 00d8 | | Load_Top At_Offset_0
028d e5ff | | Load 0x2,-0x1
028e e20f | | Load 0x1,0xf
028f 0119 | | Execute Any,Check_In_Formal_Type
0290 e5fe | | Load 0x2,-0x2
0291 822e | . | Call 0x1,0x2e
0292 0059 | Y | Store_Top Discrete,At_Offset_1
0293 00d8 | | Load_Top At_Offset_0
0294 6809 |h | Jump_Zero 0x29e
0295 e5fe | | Load 0x2,-0x2
0296 00d9 | | Load_Top At_Offset_1
0297 00d8 | | Load_Top At_Offset_0
0298 00e4 | | Load_Encached Positive_Cache
0299 0260 | ` | Execute Discrete,In_Type
029a 7001 |p | Jump_Nonzero 0x29c
029b 0801 | | Execute_Immediate Raise,0x1
029c 8225 | % | Call 0x1,0x25
029d 00d1 | | Pop_Control Pop_Count_1
029e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a8 | | .CONST 0x02a8 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; Number of locals
02a3 INIT_02a0:
02a3 00db | | Load_Top At_Offset_3
02a4 00e3 | | Load_Encached Natural_Cache
02a5 03f1 | | Declare_Variable Discrete,With_Value
02a6 e21d | | Load 0x1,0x1d
02a7 0007 | | Action Break_Optional
02a8 BODY_02a0:
02a8 00d9 | | Load_Top At_Offset_1
02a9 00e4 | | Load_Encached Positive_Cache
02aa 025e | ^ | Execute Discrete,Convert
02ab e21d | | Load 0x1,0x1d
02ac e5fe | | Load 0x2,-0x2
02ad e5ff | | Load 0x2,-0x1
02ae 822d | - | Call 0x1,0x2d
02af 003a | : | Store_Top Access,At_Offset_2
02b0 005a | Z | Store_Top Discrete,At_Offset_2
02b1 00d8 | | Load_Top At_Offset_0
02b2 680d |h | Jump_Zero 0x2c0
02b3 00d9 | | Load_Top At_Offset_1
02b4 00d9 | | Load_Top At_Offset_1
02b5 0227 | ' | Execute Access,All_Reference
02b6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02b7 01d7 | | Execute Vector,Field_Read
02b8 00d8 | | Load_Top At_Offset_0
02b9 0120 | | Execute Any,Is_Value
02ba 7002 |p | Jump_Nonzero 0x2bd
02bb 00d8 | | Load_Top At_Offset_0
02bc 011e | | Execute Any,Convert
02bd e20f | | Load 0x1,0xf
02be 0119 | | Execute Any,Check_In_Formal_Type
02bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c0 0831 | 1 | Execute_Immediate Raise,0x31
02c1 0000 0000 | | .BLANK 0000[0x7]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d7 | | .CONST 0x02d7 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0004 | | .CONST 0x0004 ; Number of locals
02cb INIT_02c8:
02cb 4801 |H | Short_Literal 0x1
02cc 00db | | Load_Top At_Offset_3
02cd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02ce e210 | | Load 0x1,0x10
02cf 035b | [ | Declare_Type Array,Constrained
02d0 0337 | 7 | Declare_Variable Array
02d1 00d8 | | Load_Top At_Offset_0
02d2 1c00 | | Execute_Immediate Run_Utility,0x0
02d3 00e3 | | Load_Encached Natural_Cache
02d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02d5 e21d | | Load 0x1,0x1d
02d6 0007 | | Action Break_Optional
02d7 BODY_02c8:
02d7 e5ff | | Load 0x2,-0x1
02d8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02d9 6870 |hp | Jump_Zero 0x34a
02da e5ff | | Load 0x2,-0x1
02db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02dc 7003 |p | Jump_Nonzero 0x2e0
02dd 4800 |H | Short_Literal 0x0
02de 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02df 786a |xj | Jump 0x34a
02e0 e5ff | | Load 0x2,-0x1
02e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e2 0f01 | | Execute_Immediate Equal,0x1
02e3 6811 |h | Jump_Zero 0x2f5
02e4 e5ff | | Load 0x2,-0x1
02e5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02e6 0039 | 9 | Store_Top Access,At_Offset_1
02e7 e5ff | | Load 0x2,-0x1
02e8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02e9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02ea 4801 |H | Short_Literal 0x1
02eb 00da | | Load_Top At_Offset_2
02ec 00da | | Load_Top At_Offset_2
02ed 0227 | ' | Execute Access,All_Reference
02ee 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02ef 01cf | | Execute Vector,Slice_Read
02f0 4801 |H | Short_Literal 0x1
02f1 00db | | Load_Top At_Offset_3
02f2 e402 | | Load 0x2,0x2
02f3 01ce | | Execute Vector,Slice_Write
02f4 7855 |xU | Jump 0x34a
02f5 e5ff | | Load 0x2,-0x1
02f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f7 0c02 | | Execute_Immediate Greater_Equal,0x2
02f8 6851 |hQ | Jump_Zero 0x34a
02f9 4864 |Hd | Short_Literal 0x64
02fa 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02fb e5ff | | Load 0x2,-0x1
02fc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02fd 0039 | 9 | Store_Top Access,At_Offset_1
02fe 4801 |H | Short_Literal 0x1
02ff 4864 |Hd | Short_Literal 0x64
0300 00da | | Load_Top At_Offset_2
0301 0227 | ' | Execute Access,All_Reference
0302 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0303 01cf | | Execute Vector,Slice_Read
0304 4801 |H | Short_Literal 0x1
0305 4864 |Hd | Short_Literal 0x64
0306 e402 | | Load 0x2,0x2
0307 01ce | | Execute Vector,Slice_Write
0308 00cf | | Action Mark_Auxiliary
0309 e5ff | | Load 0x2,-0x1
030a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030b 0aff | | Execute_Immediate Plus,-0x1
030c 4802 |H | Short_Literal 0x2
030d 0263 | c | Execute Discrete,Above_Bound
030e 701f |p | Jump_Nonzero 0x32e
030f 00db | | Load_Top At_Offset_3
0310 0227 | ' | Execute Access,All_Reference
0311 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0312 a404 | | Store_Unchecked 0x2,0x4
0313 4801 |H | Short_Literal 0x1
0314 4864 |Hd | Short_Literal 0x64
0315 e404 | | Load 0x2,0x4
0316 0227 | ' | Execute Access,All_Reference
0317 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0318 01cf | | Execute Vector,Slice_Read
0319 e403 | | Load 0x2,0x3
031a 0a01 | | Execute_Immediate Plus,0x1
031b 00d8 | | Load_Top At_Offset_0
031c 00e2 | | Load_Encached Integer_Cache
031d 0260 | ` | Execute Discrete,In_Type
031e 7001 |p | Jump_Nonzero 0x320
031f 0801 | | Execute_Immediate Raise,0x1
0320 e403 | | Load 0x2,0x3
0321 0a64 | d | Execute_Immediate Plus,0x64
0322 00d8 | | Load_Top At_Offset_0
0323 00e2 | | Load_Encached Integer_Cache
0324 0260 | ` | Execute Discrete,In_Type
0325 7001 |p | Jump_Nonzero 0x327
0326 0801 | | Execute_Immediate Raise,0x1
0327 e402 | | Load 0x2,0x2
0328 01ce | | Execute Vector,Slice_Write
0329 e403 | | Load 0x2,0x3
032a 0a64 | d | Execute_Immediate Plus,0x64
032b c403 | | Store 0x2,0x3
032c 00c8 | | Action Pop_Auxiliary_Range
032d 3fe1 |? | Loop_Increasing 0x30f
032e 00ce | | Action Pop_Auxiliary
032f 00d8 | | Load_Top At_Offset_0
0330 0227 | ' | Execute Access,All_Reference
0331 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0332 0039 | 9 | Store_Top Access,At_Offset_1
0333 4801 |H | Short_Literal 0x1
0334 e5ff | | Load 0x2,-0x1
0335 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0336 00db | | Load_Top At_Offset_3
0337 0272 | r | Execute Discrete,Minus
0338 00da | | Load_Top At_Offset_2
0339 0227 | ' | Execute Access,All_Reference
033a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
033b 01cf | | Execute Vector,Slice_Read
033c 00da | | Load_Top At_Offset_2
033d 0a01 | | Execute_Immediate Plus,0x1
033e 00d8 | | Load_Top At_Offset_0
033f 00e2 | | Load_Encached Integer_Cache
0340 0260 | ` | Execute Discrete,In_Type
0341 7001 |p | Jump_Nonzero 0x343
0342 0801 | | Execute_Immediate Raise,0x1
0343 e5ff | | Load 0x2,-0x1
0344 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0345 e402 | | Load 0x2,0x2
0346 01ce | | Execute Vector,Slice_Write
0347 e5ff | | Load 0x2,-0x1
0348 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0349 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
034a 4801 |H | Short_Literal 0x1
034b 00da | | Load_Top At_Offset_2
034c e402 | | Load 0x2,0x2
034d 01cf | | Execute Vector,Slice_Read
034e e210 | | Load 0x1,0x10
034f 01c6 | | Execute Vector,Convert_To_Formal
0350 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0351 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
035c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
035d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035e 0000 0000 | | .XXX[0x2]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0368 | h | .CONST 0x0368 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0003 | | .CONST 0x0003 ; Number of locals
0363 INIT_0360:
0363 00db | | Load_Top At_Offset_3
0364 00e3 | | Load_Encached Natural_Cache
0365 03f1 | | Declare_Variable Discrete,With_Value
0366 e21d | | Load 0x1,0x1d
0367 0007 | | Action Break_Optional
0368 BODY_0360:
0368 00d9 | | Load_Top At_Offset_1
0369 00e4 | | Load_Encached Positive_Cache
036a 025e | ^ | Execute Discrete,Convert
036b e21d | | Load 0x1,0x1d
036c e5fe | | Load 0x2,-0x2
036d e5ff | | Load 0x2,-0x1
036e 822d | - | Call 0x1,0x2d
036f 003a | : | Store_Top Access,At_Offset_2
0370 005a | Z | Store_Top Discrete,At_Offset_2
0371 00d8 | | Load_Top At_Offset_0
0372 6806 |h | Jump_Zero 0x379
0373 e5fd | | Load 0x2,-0x3
0374 00da | | Load_Top At_Offset_2
0375 00da | | Load_Top At_Offset_2
0376 0227 | ' | Execute Access,All_Reference
0377 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0378 01d6 | | Execute Vector,Field_Write
0379 4504 |E | Exit_Suprogram New_Top_Offset 0x4
037a 0000 0000 | | .BLANK 0000[0x6]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0389 | | .CONST 0x0389 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0004 | | .CONST 0x0004 ; Number of locals
0383 INIT_0380:
0383 e222 | " | Load 0x1,0x22
0384 0322 | " | Declare_Variable Record
0385 00d8 | | Load_Top At_Offset_0
0386 1c00 | | Execute_Immediate Run_Utility,0x0
0387 e21d | | Load 0x1,0x1d
0388 03bd | | Declare_Variable Access,Duplicate
0389 BODY_0380:
0389 e5ff | | Load 0x2,-0x1
038a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038b 6833 |h3 | Jump_Zero 0x3bf
038c 00cf | | Action Mark_Auxiliary
038d e5ff | | Load 0x2,-0x1
038e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
038f 4801 |H | Short_Literal 0x1
0390 0263 | c | Execute Discrete,Above_Bound
0391 7005 |p | Jump_Nonzero 0x397
0392 e402 | | Load 0x2,0x2
0393 8230 | 0 | Call 0x1,0x30
0394 00d1 | | Pop_Control Pop_Count_1
0395 00c8 | | Action Pop_Auxiliary_Range
0396 3ffb |? | Loop_Increasing 0x392
0397 00ce | | Action Pop_Auxiliary
0398 00da | | Load_Top At_Offset_2
0399 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
039a 003a | : | Store_Top Access,At_Offset_2
039b e5ff | | Load 0x2,-0x1
039c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
039d 0039 | 9 | Store_Top Access,At_Offset_1
039e 00d8 | | Load_Top At_Offset_0
039f 0227 | ' | Execute Access,All_Reference
03a0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a1 00da | | Load_Top At_Offset_2
03a2 0227 | ' | Execute Access,All_Reference
03a3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03a4 00cf | | Action Mark_Auxiliary
03a5 e5ff | | Load 0x2,-0x1
03a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03a7 4802 |H | Short_Literal 0x2
03a8 0263 | c | Execute Discrete,Above_Bound
03a9 7010 |p | Jump_Nonzero 0x3ba
03aa e403 | | Load 0x2,0x3
03ab 0227 | ' | Execute Access,All_Reference
03ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ad a403 | | Store_Unchecked 0x2,0x3
03ae 00db | | Load_Top At_Offset_3
03af 0227 | ' | Execute Access,All_Reference
03b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b1 a404 | | Store_Unchecked 0x2,0x4
03b2 00db | | Load_Top At_Offset_3
03b3 0227 | ' | Execute Access,All_Reference
03b4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03b5 e403 | | Load 0x2,0x3
03b6 0227 | ' | Execute Access,All_Reference
03b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
03b8 00c8 | | Action Pop_Auxiliary_Range
03b9 3ff0 |? | Loop_Increasing 0x3aa
03ba 00ce | | Action Pop_Auxiliary
03bb e5ff | | Load 0x2,-0x1
03bc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03bd 00db | | Load_Top At_Offset_3
03be 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03bf 00da | | Load_Top At_Offset_2
03c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03c1 0000 0000 | | .BLANK 0000[0x7]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03cf | | .CONST 0x03cf ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb 00e3 | | Load_Encached Natural_Cache
03cc 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03cd e21d | | Load 0x1,0x1d
03ce 0007 | | Action Break_Optional
03cf BODY_03c8:
03cf e5fe | | Load 0x2,-0x2
03d0 0c01 | | Execute_Immediate Greater_Equal,0x1
03d1 e5fe | | Load 0x2,-0x2
03d2 e5ff | | Load 0x2,-0x1
03d3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03d4 027a | z | Execute Discrete,Less_Equal
03d5 0279 | y | Execute Discrete,And
03d6 6833 |h3 | Jump_Zero 0x40a
03d7 e5fe | | Load 0x2,-0x2
03d8 0d65 | e | Execute_Immediate Less,0x65
03d9 6804 |h | Jump_Zero 0x3de
03da e5ff | | Load 0x2,-0x1
03db 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03dc a5fd | | Store_Unchecked 0x2,-0x3
03dd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03de e5fe | | Load 0x2,-0x2
03df 4864 |Hd | Short_Literal 0x64
03e0 0270 | p | Execute Discrete,Divide
03e1 005a | Z | Store_Top Discrete,At_Offset_2
03e2 e5fe | | Load 0x2,-0x2
03e3 4864 |Hd | Short_Literal 0x64
03e4 026f | o | Execute Discrete,Remainder
03e5 c5fc | | Store 0x2,-0x4
03e6 e5ff | | Load 0x2,-0x1
03e7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03e8 0039 | 9 | Store_Top Access,At_Offset_1
03e9 e5fc | | Load 0x2,-0x4
03ea 7010 |p | Jump_Nonzero 0x3fb
03eb 4864 |Hd | Short_Literal 0x64
03ec a5fc | | Store_Unchecked 0x2,-0x4
03ed 00cf | | Action Mark_Auxiliary
03ee 00da | | Load_Top At_Offset_2
03ef 0aff | | Execute_Immediate Plus,-0x1
03f0 4801 |H | Short_Literal 0x1
03f1 0263 | c | Execute Discrete,Above_Bound
03f2 7006 |p | Jump_Nonzero 0x3f9
03f3 00db | | Load_Top At_Offset_3
03f4 0227 | ' | Execute Access,All_Reference
03f5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03f6 a403 | | Store_Unchecked 0x2,0x3
03f7 00c8 | | Action Pop_Auxiliary_Range
03f8 3ffa |? | Loop_Increasing 0x3f3
03f9 00ce | | Action Pop_Auxiliary
03fa 780c |x | Jump 0x407
03fb 00cf | | Action Mark_Auxiliary
03fc 00da | | Load_Top At_Offset_2
03fd 4801 |H | Short_Literal 0x1
03fe 0263 | c | Execute Discrete,Above_Bound
03ff 7006 |p | Jump_Nonzero 0x406
0400 00db | | Load_Top At_Offset_3
0401 0227 | ' | Execute Access,All_Reference
0402 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0403 a403 | | Store_Unchecked 0x2,0x3
0404 00c8 | | Action Pop_Auxiliary_Range
0405 3ffa |? | Loop_Increasing 0x400
0406 00ce | | Action Pop_Auxiliary
0407 00d8 | | Load_Top At_Offset_0
0408 a5fd | | Store_Unchecked 0x2,-0x3
0409 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040a e21d | | Load 0x1,0x1d
040b a5fd | | Store_Unchecked 0x2,-0x3
040c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
040d 0000 0000 | | .XXX[0x3]
040f 0000 | |
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0419 | | .CONST 0x0419 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0005 | | .CONST 0x0005 ; Number of locals
0413 INIT_0410:
0413 00e3 | | Load_Encached Natural_Cache
0414 03e9 | | Declare_Variable Discrete,Duplicate
0415 e21d | | Load 0x1,0x1d
0416 0007 | | Action Break_Optional
0417 00e1 | | Load_Encached Boolean_Cache
0418 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0419 BODY_0410:
0419 e5ff | | Load 0x2,-0x1
041a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
041b 6832 |h2 | Jump_Zero 0x44e
041c e5ff | | Load 0x2,-0x1
041d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
041e 003a | : | Store_Top Access,At_Offset_2
041f 4800 |H | Short_Literal 0x0
0420 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0421 4800 |H | Short_Literal 0x0
0422 a402 | | Store_Unchecked 0x2,0x2
0423 00cf | | Action Mark_Auxiliary
0424 e5ff | | Load 0x2,-0x1
0425 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0426 4801 |H | Short_Literal 0x1
0427 0263 | c | Execute Discrete,Above_Bound
0428 7024 |p$ | Jump_Nonzero 0x44d
0429 e402 | | Load 0x2,0x2
042a 0a01 | | Execute_Immediate Plus,0x1
042b c402 | | Store 0x2,0x2
042c e402 | | Load 0x2,0x2
042d 0f65 | e | Execute_Immediate Equal,0x65
042e 6810 |h | Jump_Zero 0x43f
042f e404 | | Load 0x2,0x4
0430 0227 | ' | Execute Access,All_Reference
0431 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0432 680a |h | Jump_Zero 0x43d
0433 e404 | | Load 0x2,0x4
0434 0227 | ' | Execute Access,All_Reference
0435 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0436 a404 | | Store_Unchecked 0x2,0x4
0437 4801 |H | Short_Literal 0x1
0438 a402 | | Store_Unchecked 0x2,0x2
0439 e403 | | Load 0x2,0x3
043a 0a01 | | Execute_Immediate Plus,0x1
043b c403 | | Store 0x2,0x3
043c 7802 |x | Jump 0x43f
043d 00d2 | | Pop_Control Pop_Count_2
043e 780e |x | Jump 0x44d
043f e402 | | Load 0x2,0x2
0440 e404 | | Load 0x2,0x4
0441 0227 | ' | Execute Access,All_Reference
0442 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0443 01d7 | | Execute Vector,Field_Read
0444 e5fe | | Load 0x2,-0x2
0445 012f | / | Execute Any,Equal
0446 6804 |h | Jump_Zero 0x44b
0447 4801 |H | Short_Literal 0x1
0448 a405 | | Store_Unchecked 0x2,0x5
0449 00d2 | | Pop_Control Pop_Count_2
044a 7802 |x | Jump 0x44d
044b 00c8 | | Action Pop_Auxiliary_Range
044c 3fdc |? | Loop_Increasing 0x429
044d 00ce | | Action Pop_Auxiliary
044e 00d8 | | Load_Top At_Offset_0
044f 6807 |h | Jump_Zero 0x457
0450 00da | | Load_Top At_Offset_2
0451 4864 |Hd | Short_Literal 0x64
0452 0271 | q | Execute Discrete,Times
0453 e402 | | Load 0x2,0x2
0454 0273 | s | Execute Discrete,Plus
0455 c5fd | | Store 0x2,-0x3
0456 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0457 4800 |H | Short_Literal 0x0
0458 a5fd | | Store_Unchecked 0x2,-0x3
0459 4503 |E | Exit_Suprogram New_Top_Offset 0x3
045a 0000 0000 | | .BLANK 0000[0x6]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0465 | e | .CONST 0x0465 ; Address of begin
0461 0004 | | .CONST 0x0004 ; Address of exception handler
0462 0002 | | .CONST 0x0002 ; Number of locals
0463 INIT_0460:
0463 e21d | | Load 0x1,0x1d
0464 0007 | | Action Break_Optional
0465 BODY_0460:
0465 e22c | , | Load 0x1,0x2c
0466 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0467 7007 |p | Jump_Nonzero 0x46f
0468 e21d | | Load 0x1,0x1d
0469 03bc | | Declare_Variable Access,By_Allocation
046a 00d8 | | Load_Top At_Offset_0
046b 0227 | ' | Execute Access,All_Reference
046c 1c00 | | Execute_Immediate Run_Utility,0x0
046d 0039 | 9 | Store_Top Access,At_Offset_1
046e 7809 |x | Jump 0x478
046f e22c | , | Load 0x1,0x2c
0470 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0471 0039 | 9 | Store_Top Access,At_Offset_1
0472 e22c | , | Load 0x1,0x2c
0473 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0474 0227 | ' | Execute Access,All_Reference
0475 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0476 e22c | , | Load 0x1,0x2c
0477 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0478 e21d | | Load 0x1,0x1d
0479 00d9 | | Load_Top At_Offset_1
047a 0227 | ' | Execute Access,All_Reference
047b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
047c 00d8 | | Load_Top At_Offset_0
047d 00ca | | Action Exit_Nullary_Function
047e 0000 0000 | | .XXX[0x2]
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 e21d | | Load 0x1,0x1d
0484 0007 | | Action Break_Optional
0485 BODY_0480:
0485 822f | / | Call 0x1,0x2f
0486 0039 | 9 | Store_Top Access,At_Offset_1
0487 00db | | Load_Top At_Offset_3
0488 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0489 7007 |p | Jump_Nonzero 0x491
048a 00d8 | | Load_Top At_Offset_0
048b e5ff | | Load 0x2,-0x1
048c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
048d 00d8 | | Load_Top At_Offset_0
048e e5ff | | Load 0x2,-0x1
048f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0490 7808 |x | Jump 0x499
0491 00d8 | | Load_Top At_Offset_0
0492 e5ff | | Load 0x2,-0x1
0493 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0494 0227 | ' | Execute Access,All_Reference
0495 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0496 00d8 | | Load_Top At_Offset_0
0497 e5ff | | Load 0x2,-0x1
0498 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0499 00db | | Load_Top At_Offset_3
049a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
049b 0a01 | | Execute_Immediate Plus,0x1
049c e5ff | | Load 0x2,-0x1
049d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
049e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
049f 0000 | | .XXX[0x1]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a3 | | .CONST 0x04a3 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0001 | | .CONST 0x0001 ; Number of locals
04a3 BODY_04a0:
04a3 INIT_04a0:
04a3 00da | | Load_Top At_Offset_2
04a4 e5fe | | Load 0x2,-0x2
04a5 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04a6 e21d | | Load 0x1,0x1d
04a7 e5fe | | Load 0x2,-0x2
04a8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04a9 0227 | ' | Execute Access,All_Reference
04aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ac 0000 0000 | | .BLANK 0000[0x4]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b5 | | .CONST 0x04b5 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0002 | | .CONST 0x0002 ; Number of locals
04b3 INIT_04b0:
04b3 e21d | | Load 0x1,0x1d
04b4 0007 | | Action Break_Optional
04b5 BODY_04b0:
04b5 e21d | | Load 0x1,0x1d
04b6 e22c | , | Load 0x1,0x2c
04b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04b8 e21d | | Load 0x1,0x1d
04b9 e22c | , | Load 0x1,0x2c
04ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04bb e21d | | Load 0x1,0x1d
04bc 03bc | | Declare_Variable Access,By_Allocation
04bd 00d8 | | Load_Top At_Offset_0
04be 0227 | ' | Execute Access,All_Reference
04bf 1c00 | | Execute_Immediate Run_Utility,0x0
04c0 e22c | , | Load 0x1,0x2c
04c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04c2 e22c | , | Load 0x1,0x2c
04c3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04c4 e22c | , | Load 0x1,0x2c
04c5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04c6 e22c | , | Load 0x1,0x2c
04c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04c8 0039 | 9 | Store_Top Access,At_Offset_1
04c9 00cf | | Action Mark_Auxiliary
04ca 480a |H | Short_Literal 0xa
04cb 4801 |H | Short_Literal 0x1
04cc 0007 | | Action Break_Optional
04cd e21d | | Load 0x1,0x1d
04ce 03bc | | Declare_Variable Access,By_Allocation
04cf 00d8 | | Load_Top At_Offset_0
04d0 0227 | ' | Execute Access,All_Reference
04d1 1c00 | | Execute_Immediate Run_Utility,0x0
04d2 e402 | | Load 0x2,0x2
04d3 0227 | ' | Execute Access,All_Reference
04d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04d5 00db | | Load_Top At_Offset_3
04d6 0227 | ' | Execute Access,All_Reference
04d7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04d8 a402 | | Store_Unchecked 0x2,0x2
04d9 00c8 | | Action Pop_Auxiliary_Range
04da 3ff2 |? | Loop_Increasing 0x4cd
04db 00ce | | Action Pop_Auxiliary
04dc 00d8 | | Load_Top At_Offset_0
04dd e22c | , | Load 0x1,0x2c
04de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04df e21d | | Load 0x1,0x1d
04e0 e22c | , | Load 0x1,0x2c
04e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04e2 0227 | ' | Execute Access,All_Reference
04e3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04e5 0000 0000 | | .XXX[0x3]
04e7 0000 | |
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 4608 |F | Jump_Case 0x9
04ec 7808 |x | Jump 0x4f5 ; case 0x0
04ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
04ee 780a |x | Jump 0x4f9 ; case 0x2
04ef 7809 |x | Jump 0x4f9 ; case 0x3
04f0 7808 |x | Jump 0x4f9 ; case 0x4
04f1 7807 |x | Jump 0x4f9 ; case 0x5
04f2 7806 |x | Jump 0x4f9 ; case 0x6
04f3 7805 |x | Jump 0x4f9 ; case 0x7
04f4 7804 |x | Jump 0x4f9 ; case 0x8
04f5 00da | | Load_Top At_Offset_2
04f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04f7 1c00 | | Execute_Immediate Run_Utility,0x0
04f8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
04f9 0869 | i | Execute_Immediate Raise,0x69
04fa 0000 0000 | | .BLANK 0000[0x6]
0500 ; --------------------------------------------------------------------------------------
0500 ; SUBPROGRAM
0500 ; --------------------------------------------------------------------------------------
0500 0503 | | .CONST 0x0503 ; Address of begin
0501 0004 | | .CONST 0x0004 ; Address of exception handler
0502 0001 | | .CONST 0x0001 ; Number of locals
0503 BODY_0500:
0503 INIT_0500:
0503 4608 |F | Jump_Case 0x9
0504 7808 |x | Jump 0x50d ; case 0x0
0505 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0506 780d |x | Jump 0x514 ; case 0x2
0507 780c |x | Jump 0x514 ; case 0x3
0508 780b |x | Jump 0x514 ; case 0x4
0509 780a |x | Jump 0x514 ; case 0x5
050a 7809 |x | Jump 0x514 ; case 0x6
050b 7808 |x | Jump 0x514 ; case 0x7
050c 7807 |x | Jump 0x514 ; case 0x8
050d 4800 |H | Short_Literal 0x0
050e 00db | | Load_Top At_Offset_3
050f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0510 4800 |H | Short_Literal 0x0
0511 00db | | Load_Top At_Offset_3
0512 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0513 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0514 0869 | i | Execute_Immediate Raise,0x69
0515 0000 0000 | | .XXX[0x3]
0517 0000 | |
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug Table
0518 ; --------------------------------------------------------------------------------------
0518 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdc04,0x0000,0x0001,0x0015
051e 000b 0572 | r| .DBG4T 0x000b,0x0572,0xc000,0x8000
0522 0068 0598 | h | .DBG4T 0x0068,0x0598,0xc000,0x8000
0526 009b 05bf | | .DBG4T 0x009b,0x05bf,0x1002,0x0000
052a 0133 05e1 | 3 | .DBG4T 0x0133,0x05e1,0x1002,0x0000
052e 016b 05ec | k | .DBG4T 0x016b,0x05ec,0x1002,0x0000
0532 020b 060d | | .DBG4T 0x020b,0x060d,0x1001,0x0000
0536 023b 0619 | ; | .DBG4T 0x023b,0x0619,0x1001,0x0000
053a 028b 0626 | &| .DBG4T 0x028b,0x0626,0x1001,0x0000
053e 02a3 062c | ,| .DBG4T 0x02a3,0x062c,0x1002,0x0000
0542 02cb 0633 | 3| .DBG4T 0x02cb,0x0633,0x1002,0x0000
0546 035b 064b | [ K| .DBG4T 0x035b,0x064b,0x1002,0x0000
054a 0363 064e | c N| .DBG4T 0x0363,0x064e,0x1001,0x0000
054e 0383 0655 | U| .DBG4T 0x0383,0x0655,0x1002,0x0000
0552 03cb 0665 | e| .DBG4T 0x03cb,0x0665,0x1001,0x0000
0556 0413 0677 | w| .DBG4T 0x0413,0x0677,0x1001,0x0000
055a 0463 068e | c | .DBG4T 0x0463,0x068e,0x1002,0x0000
055e 0483 0697 | | .DBG4T 0x0483,0x0697,0x1001,0x0000
0562 04a3 06a1 | | .DBG4T 0x04a3,0x06a1,0x1001,0x0000
0566 04b3 06a5 | | .DBG4T 0x04b3,0x06a5,0x1004,0x0000
056a 04eb 0000 | | .DBG4T 0x04eb,0x0000,0x1005,0x0000
056e 0503 0000 | | .DBG4T 0x0503,0x0000,0x1005,0x0000
0572 ; --------------------------------------------------------------------------------------
0572 ; Debug chain
0572 ; --------------------------------------------------------------------------------------
0572 0012 0000 | | .DBGLEN 0x0012,0x0000
0574 0025 0028 | % (| .DBGLNO 0x0025,0x0028,0x002b,0x002e,0x0031,0x0034,0x0037,0x003a,0x003d,0x0040,0x0043,0x0046,0x0049,0x004c,0x0051,0x0054,0x0059,0x005f
0586 0001 0002 | | .XXX[0x12]
0588 0003 0004 | |
058a 0005 0006 | |
058c 0007 0008 | |
058e 0009 000a | |
0590 000b 000c | |
0592 000d 000f | |
0594 0010 0011 | |
0596 0012 0013 | |
0598 ; --------------------------------------------------------------------------------------
0598 ; Debug chain
0598 ; --------------------------------------------------------------------------------------
0598 0012 0001 | | .DBGLEN 0x0012,0x0001
059a 0068 006d | h m| .DBGLNO 0x0068,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x0091
05ad 0002 0003 | | .XXX[0x12]
05af 0004 0005 | |
05b1 0006 0007 | |
05b3 0008 0009 | |
05b5 000a 000b | |
05b7 000c 000d | |
05b9 000e 000f | |
05bb 0010 0011 | |
05bd 0012 0013 | |
05bf ; --------------------------------------------------------------------------------------
05bf ; Debug chain
05bf ; --------------------------------------------------------------------------------------
05bf 0006 001a | | .DBGLEN 0x0006,0x001a
05c1 009b 009d | | .DBGLNO 0x009b,0x009d,0x00a1,0x00a3,0x00a5,0x00a7,0x00a9,0x00af,0x00b2,0x00b6,0x00b9,0x00bb,0x00be,0x00c1,0x00c4,0x00da,0x00dd,0x00e1,0x00ec,0x00ef,0x00f4,0x00f8,0x00fb,0x00fe,0x0101,0x010c,0x0112,0x0115,0x0118,0x011b,0x011f,0x012a
05e1 ; --------------------------------------------------------------------------------------
05e1 ; Debug chain
05e1 ; --------------------------------------------------------------------------------------
05e1 0002 0007 | | .DBGLEN 0x0002,0x0007
05e3 0133 0138 | 3 8| .DBGLNO 0x0133,0x0138,0x013a,0x013f,0x0142,0x0149,0x014f,0x015a,0x015f
05ec ; --------------------------------------------------------------------------------------
05ec ; Debug chain
05ec ; --------------------------------------------------------------------------------------
05ec 0005 001a | | .DBGLEN 0x0005,0x001a
05ee 016b 0170 | k p| .DBGLNO 0x016b,0x0170,0x0172,0x0173,0x0175,0x0177,0x017c,0x017e,0x0182,0x0187,0x018a,0x0191,0x0199,0x019e,0x01a5,0x01b1,0x01c4,0x01c9,0x01cb,0x01cf,0x01d4,0x01d7,0x01d9,0x01de,0x01e1,0x01e4,0x01e7,0x01ea,0x01ed,0x01fb,0x0202
060d ; --------------------------------------------------------------------------------------
060d ; Debug chain
060d ; --------------------------------------------------------------------------------------
060d 0000 000a | | .DBGLEN 0x0000,0x000a
060f 020b 020e | | .DBGLNO 0x020b,0x020e,0x0211,0x0215,0x021a,0x0220,0x0224,0x0227,0x022a,0x022d
0619 ; --------------------------------------------------------------------------------------
0619 ; Debug chain
0619 ; --------------------------------------------------------------------------------------
0619 0004 0007 | | .DBGLEN 0x0004,0x0007
061b 023b 0243 | ; C| .DBGLNO 0x023b,0x0243,0x0244,0x0246,0x024a,0x024f,0x0254,0x0264,0x026e,0x027c,0x027f
0626 ; --------------------------------------------------------------------------------------
0626 ; Debug chain
0626 ; --------------------------------------------------------------------------------------
0626 0001 0003 | | .DBGLEN 0x0001,0x0003
0628 028b 028c | | .DBGLNO 0x028b,0x028c,0x0293,0x0295
062c ; --------------------------------------------------------------------------------------
062c ; Debug chain
062c ; --------------------------------------------------------------------------------------
062c 0002 0003 | | .DBGLEN 0x0002,0x0003
062e 02a3 02a6 | | .DBGLNO 0x02a3,0x02a6,0x02a8,0x02b1,0x02b3
0633 ; --------------------------------------------------------------------------------------
0633 ; Debug chain
0633 ; --------------------------------------------------------------------------------------
0633 0003 0013 | | .DBGLEN 0x0003,0x0013
0635 02cb 02d3 | | .DBGLNO 0x02cb,0x02d3,0x02d5,0x02d7,0x02da,0x02dd,0x02e0,0x02e4,0x02e7,0x02ea,0x02f5,0x02f9,0x02fb,0x02fe,0x0309,0x030f,0x0313,0x0329,0x032f,0x0333,0x0347,0x034a
064b ; --------------------------------------------------------------------------------------
064b ; Debug chain
064b ; --------------------------------------------------------------------------------------
064b 0000 0001 | | .DBGLEN 0x0000,0x0001
064d 035b | [ | .DBGLNO 0x035b
064e ; --------------------------------------------------------------------------------------
064e ; Debug chain
064e ; --------------------------------------------------------------------------------------
064e 0002 0003 | | .DBGLEN 0x0002,0x0003
0650 0363 0366 | c f| .DBGLNO 0x0363,0x0366,0x0368,0x0371,0x0373
0655 ; --------------------------------------------------------------------------------------
0655 ; Debug chain
0655 ; --------------------------------------------------------------------------------------
0655 0002 000c | | .DBGLEN 0x0002,0x000c
0657 0383 0387 | | .DBGLNO 0x0383,0x0387,0x0389,0x038d,0x0392,0x0398,0x039b,0x039e,0x03a5,0x03aa,0x03ae,0x03b2,0x03bb,0x03bf
0665 ; --------------------------------------------------------------------------------------
0665 ; Debug chain
0665 ; --------------------------------------------------------------------------------------
0665 0002 000e | | .DBGLEN 0x0002,0x000e
0667 03cb 03cd | | .DBGLNO 0x03cb,0x03cd,0x03cf,0x03d7,0x03da,0x03de,0x03e2,0x03e6,0x03e9,0x03eb,0x03ee,0x03f3,0x03fc,0x0400,0x0407,0x040a
0677 ; --------------------------------------------------------------------------------------
0677 ; Debug chain
0677 ; --------------------------------------------------------------------------------------
0677 0003 0012 | | .DBGLEN 0x0003,0x0012
0679 0413 0415 | | .DBGLNO 0x0413,0x0415,0x0417,0x0419,0x041c,0x041f,0x0421,0x0424,0x0429,0x042c,0x042f,0x0433,0x0437,0x0439,0x043d,0x043f,0x0447,0x0449,0x044e,0x0450,0x0457
068e ; --------------------------------------------------------------------------------------
068e ; Debug chain
068e ; --------------------------------------------------------------------------------------
068e 0001 0006 | | .DBGLEN 0x0001,0x0006
0690 0463 0465 | c e| .DBGLNO 0x0463,0x0465,0x0468,0x046f,0x0472,0x0478,0x047c
0697 ; --------------------------------------------------------------------------------------
0697 ; Debug chain
0697 ; --------------------------------------------------------------------------------------
0697 0001 0007 | | .DBGLEN 0x0001,0x0007
0699 0483 0485 | | .DBGLNO 0x0483,0x0485,0x0487,0x048a,0x048d,0x0491,0x0496,0x0499
06a1 ; --------------------------------------------------------------------------------------
06a1 ; Debug chain
06a1 ; --------------------------------------------------------------------------------------
06a1 0000 0002 | | .DBGLEN 0x0000,0x0002
06a3 04a3 04a6 | | .DBGLNO 0x04a3,0x04a6
06a5 ; --------------------------------------------------------------------------------------
06a5 ; Debug chain
06a5 ; --------------------------------------------------------------------------------------
06a5 0001 000a | | .DBGLEN 0x0001,0x000a
06a7 04b3 04b5 | | .DBGLNO 0x04b3,0x04b5,0x04b8,0x04bb,0x04c2,0x04c6,0x04ca,0x04cd,0x04d5,0x04dc,0x04df
06b2 0000 0000 | | .BLANK 0000[0x14e]