|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_04c8bb
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 03e8 | | .CONST 0x03e8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004c | L | .CONST 0x004c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 480a |H | Short_Literal 0xa
000c e002 | | Load 0x0,0x2
000d 1c07 | | Execute_Immediate Run_Utility,0x7
000e 0129 | ) | Execute Any,Make_Visible
000f 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
0011 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
0013 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0017 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0019 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
001b 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
001d 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
001f 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0021 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
0023 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0025 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0027 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
0029 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
002b 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
002d 00bf | | Action Accept_Activation
002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002f 00c7 | | Action Elaborate_Subprogram
0030 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0031 00c7 | | Action Elaborate_Subprogram
0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0033 00c7 | | Action Elaborate_Subprogram
0034 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0035 00c7 | | Action Elaborate_Subprogram
0036 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0037 00c7 | | Action Elaborate_Subprogram
0038 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0039 00c7 | | Action Elaborate_Subprogram
003a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003b 00c7 | | Action Elaborate_Subprogram
003c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003d 00c7 | | Action Elaborate_Subprogram
003e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003f 00c7 | | Action Elaborate_Subprogram
0040 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0041 00c7 | | Action Elaborate_Subprogram
0042 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0043 00c7 | | Action Elaborate_Subprogram
0044 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0045 00c7 | | Action Elaborate_Subprogram
0046 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0047 00c7 | | Action Elaborate_Subprogram
0048 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0049 00c7 | | Action Elaborate_Subprogram
004a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
004b 00c7 | | Action Elaborate_Subprogram
004c BODY_0008:
004c 00bc | | Action Signal_Activated
004d 00bb | | Action Signal_Completion
004e 0000 0000 | | .XXX[0x2]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0054 | T | .CONST 0x0054 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0002 | | .CONST 0x0002 ; Number of locals
0053 INIT_0050:
0053 00e2 | | Load_Encached Integer_Cache
0054 BODY_0050:
0054 4801 |H | Short_Literal 0x1
0055 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0056 00cf | | Action Mark_Auxiliary
0057 780a |x | Jump 0x62
0058 480b |H | Short_Literal 0xb
0059 00da | | Load_Top At_Offset_2
005a e5ff | | Load 0x2,-0x1
005b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
005c 01d5 | | Execute Vector,Field_Reference
005d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
005e 00d9 | | Load_Top At_Offset_1
005f 0a01 | | Execute_Immediate Plus,0x1
0060 005a | Z | Store_Top Discrete,At_Offset_2
0061 00c9 | | Action Pop_Auxiliary_Loop
0062 00d9 | | Load_Top At_Offset_1
0063 e5ff | | Load 0x2,-0x1
0064 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0065 027a | z | Execute Discrete,Less_Equal
0066 77f1 |w | Jump_Nonzero 0x58
0067 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006c | l | .CONST 0x006c ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0002 | | .CONST 0x0002 ; Number of locals
006b INIT_0068:
006b 00e2 | | Load_Encached Integer_Cache
006c BODY_0068:
006c 4801 |H | Short_Literal 0x1
006d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
006e 00cf | | Action Mark_Auxiliary
006f 780c |x | Jump 0x7c
0070 00d9 | | Load_Top At_Offset_1
0071 e5fe | | Load 0x2,-0x2
0072 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0073 01d5 | | Execute Vector,Field_Reference
0074 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0075 0e0b | | Execute_Immediate Not_Equal,0xb
0076 680a |h | Jump_Zero 0x81
0077 00d9 | | Load_Top At_Offset_1
0078 0a01 | | Execute_Immediate Plus,0x1
0079 005a | Z | Store_Top Discrete,At_Offset_2
007a 7800 |x | Jump 0x7b
007b 00c9 | | Action Pop_Auxiliary_Loop
007c 00d9 | | Load_Top At_Offset_1
007d e5fe | | Load 0x2,-0x2
007e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
007f 027a | z | Execute Discrete,Less_Equal
0080 77ef |w | Jump_Nonzero 0x70
0081 00ce | | Action Pop_Auxiliary
0082 00d8 | | Load_Top At_Offset_0
0083 e5fe | | Load 0x2,-0x2
0084 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0085 027a | z | Execute Discrete,Less_Equal
0086 683d |h= | Jump_Zero 0xc4
0087 4801 |H | Short_Literal 0x1
0088 e5ff | | Load 0x2,-0x1
0089 8003 | | Call 0x0,0x3
008a 00d9 | | Load_Top At_Offset_1
008b e5fe | | Load 0x2,-0x2
008c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
008d 01d5 | | Execute Vector,Field_Reference
008e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008f 00d8 | | Load_Top At_Offset_0
0090 e5fe | | Load 0x2,-0x2
0091 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0092 01d5 | | Execute Vector,Field_Reference
0093 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0094 00d8 | | Load_Top At_Offset_0
0095 4802 |H | Short_Literal 0x2
0096 e5ff | | Load 0x2,-0x1
0097 8004 | | Call 0x0,0x4
0098 e005 | | Load 0x0,0x5
0099 180f | | Execute Package,Field_Execute,Field_Number 0xf
009a 00d2 | | Pop_Control Pop_Count_2
009b 00d8 | | Load_Top At_Offset_0
009c e5fe | | Load 0x2,-0x2
009d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
009e 01d5 | | Execute Vector,Field_Reference
009f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00a0 00d8 | | Load_Top At_Offset_0
00a1 4803 |H | Short_Literal 0x3
00a2 e5ff | | Load 0x2,-0x1
00a3 8004 | | Call 0x0,0x4
00a4 e005 | | Load 0x0,0x5
00a5 180f | | Execute Package,Field_Execute,Field_Number 0xf
00a6 00d2 | | Pop_Control Pop_Count_2
00a7 4804 |H | Short_Literal 0x4
00a8 e5ff | | Load 0x2,-0x1
00a9 8003 | | Call 0x0,0x3
00aa 00d9 | | Load_Top At_Offset_1
00ab e5fe | | Load 0x2,-0x2
00ac 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00ad 01d5 | | Execute Vector,Field_Reference
00ae 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00af 00d8 | | Load_Top At_Offset_0
00b0 e5fe | | Load 0x2,-0x2
00b1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00b2 01d5 | | Execute Vector,Field_Reference
00b3 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00b4 00d8 | | Load_Top At_Offset_0
00b5 4805 |H | Short_Literal 0x5
00b6 e5ff | | Load 0x2,-0x1
00b7 8004 | | Call 0x0,0x4
00b8 e005 | | Load 0x0,0x5
00b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
00ba 00d2 | | Pop_Control Pop_Count_2
00bb 4800 |H | Short_Literal 0x0
00bc 00d9 | | Load_Top At_Offset_1
00bd e5fe | | Load 0x2,-0x2
00be 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00bf 01d5 | | Execute Vector,Field_Reference
00c0 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c1 4800 |H | Short_Literal 0x0
00c2 a5fd | | Store_Unchecked 0x2,-0x3
00c3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c4 4801 |H | Short_Literal 0x1
00c5 a5fd | | Store_Unchecked 0x2,-0x3
00c6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 00da | | Load_Top At_Offset_2
00cc e5fe | | Load 0x2,-0x2
00cd 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00ce 027a | z | Execute Discrete,Less_Equal
00cf 6836 |h6 | Jump_Zero 0x106
00d0 4864 |Hd | Short_Literal 0x64
00d1 00db | | Load_Top At_Offset_3
00d2 e5fe | | Load 0x2,-0x2
00d3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d4 01d5 | | Execute Vector,Field_Reference
00d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d6 00da | | Load_Top At_Offset_2
00d7 e5fe | | Load 0x2,-0x2
00d8 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00d9 01d5 | | Execute Vector,Field_Reference
00da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00db 00d8 | | Load_Top At_Offset_0
00dc 0092 03e3 | | Action Push_String_Extended,0x3e3 ; " "
00de e005 | | Load 0x0,0x5
00df 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e0 00d2 | | Pop_Control Pop_Count_2
00e1 00da | | Load_Top At_Offset_2
00e2 e5fe | | Load 0x2,-0x2
00e3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00e4 01d5 | | Execute Vector,Field_Reference
00e5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00e6 00d8 | | Load_Top At_Offset_0
00e7 0092 03e3 | | Action Push_String_Extended,0x3e3 ; " "
00e9 e005 | | Load 0x0,0x5
00ea 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00eb 00d2 | | Pop_Control Pop_Count_2
00ec 601f |` | Indirect_Literal Discrete,0x10c,{0x00000000, 0x000007d0}
00ed 00db | | Load_Top At_Offset_3
00ee e5fe | | Load 0x2,-0x2
00ef 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00f0 01d5 | | Execute Vector,Field_Reference
00f1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00f2 00da | | Load_Top At_Offset_2
00f3 e5fe | | Load 0x2,-0x2
00f4 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
00f5 01d5 | | Execute Vector,Field_Reference
00f6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00f7 00d8 | | Load_Top At_Offset_0
00f8 0092 03e3 | | Action Push_String_Extended,0x3e3 ; " "
00fa e005 | | Load 0x0,0x5
00fb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00fc 00d2 | | Pop_Control Pop_Count_2
00fd 480b |H | Short_Literal 0xb
00fe 00db | | Load_Top At_Offset_3
00ff e5fe | | Load 0x2,-0x2
0100 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0101 01d5 | | Execute Vector,Field_Reference
0102 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0103 4800 |H | Short_Literal 0x0
0104 a5fd | | Store_Unchecked 0x2,-0x3
0105 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0106 4801 |H | Short_Literal 0x1
0107 a5fd | | Store_Unchecked 0x2,-0x3
0108 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0109 0000 0000 | | .XXX[0x3]
010b 0000 | |
010c 0000 0000 | | .LITERAL {0x00000000, 0x000007d0}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0123 | # | .CONST 0x0123 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0009 | | .CONST 0x0009 ; Number of locals
0113 INIT_0110:
0113 00e2 | | Load_Encached Integer_Cache
0114 03e9 | | Declare_Variable Discrete,Duplicate
0115 00e1 | | Load_Encached Boolean_Cache
0116 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0117 00e1 | | Load_Encached Boolean_Cache
0118 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0119 603a |`: | Indirect_Literal Discrete,0x154,{0x00000000, 0x00000400}
011a e005 | | Load 0x0,0x5
011b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
011c 1c08 | | Execute_Immediate Run_Utility,0x8
011d 00d8 | | Load_Top At_Offset_0
011e 1c00 | | Execute_Immediate Run_Utility,0x0
011f 00e4 | | Load_Encached Positive_Cache
0120 00e8 | | Load_Encached Character_Cache
0121 029f 038b | | Declare_Subprogram INIT_0388,For_Call
0123 BODY_0110:
0123 e5fd | | Load 0x2,-0x3
0124 0f05 | | Execute_Immediate Equal,0x5
0125 6807 |h | Jump_Zero 0x12d
0126 4828 |H( | Short_Literal 0x28
0127 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0128 e5fd | | Load 0x2,-0x3
0129 e5fe | | Load 0x2,-0x2
012a 8004 | | Call 0x0,0x4
012b e406 | | Load 0x2,0x6
012c 016d | m | Execute Variant_Record,Structure_Write
012d e5fd | | Load 0x2,-0x3
012e 0f04 | | Execute_Immediate Equal,0x4
012f 6804 |h | Jump_Zero 0x134
0130 e5fd | | Load 0x2,-0x3
0131 e5fe | | Load 0x2,-0x2
0132 8003 | | Call 0x0,0x3
0133 005b | [ | Store_Top Discrete,At_Offset_3
0134 4801 |H | Short_Literal 0x1
0135 a5fc | | Store_Unchecked 0x2,-0x4
0136 4801 |H | Short_Literal 0x1
0137 a402 | | Store_Unchecked 0x2,0x2
0138 4801 |H | Short_Literal 0x1
0139 a5fb | | Store_Unchecked 0x2,-0x5
013a 00cf | | Action Mark_Auxiliary
013b 780e |x | Jump 0x14a
013c 4801 |H | Short_Literal 0x1
013d a403 | | Store_Unchecked 0x2,0x3
013e e402 | | Load 0x2,0x2
013f e5ff | | Load 0x2,-0x1
0140 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0141 01d5 | | Execute Vector,Field_Reference
0142 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0143 0e0b | | Execute_Immediate Not_Equal,0xb
0144 6801 |h | Jump_Zero 0x146
0145 8409 | | Call 0x2,0x9
0146 e402 | | Load 0x2,0x2
0147 0a01 | | Execute_Immediate Plus,0x1
0148 c402 | | Store 0x2,0x2
0149 00c9 | | Action Pop_Auxiliary_Loop
014a e402 | | Load 0x2,0x2
014b e5ff | | Load 0x2,-0x1
014c 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
014d 027a | z | Execute Discrete,Less_Equal
014e e404 | | Load 0x2,0x4
014f 0f00 | | Execute_Immediate Equal,0x0
0150 0279 | y | Execute Discrete,And
0151 77ea |w | Jump_Nonzero 0x13c
0152 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0153 0000 | | .XXX[0x1]
0154 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0160 | ` | .CONST 0x0160 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0004 | | .CONST 0x0004 ; Number of locals
015b INIT_0158:
015b 00e4 | | Load_Encached Positive_Cache
015c 00e1 | | Load_Encached Boolean_Cache
015d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
015e 00e1 | | Load_Encached Boolean_Cache
015f 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0160 BODY_0158:
0160 4801 |H | Short_Literal 0x1
0161 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0162 00cf | | Action Mark_Auxiliary
0163 7818 |x | Jump 0x17c
0164 00db | | Load_Top At_Offset_3
0165 e5ff | | Load 0x2,-0x1
0166 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0167 01d5 | | Execute Vector,Field_Reference
0168 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0169 e5fe | | Load 0x2,-0x2
016a 027f | | Execute Discrete,Equal
016b e402 | | Load 0x2,0x2
016c e5ff | | Load 0x2,-0x1
016d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
016e 01d5 | | Execute Vector,Field_Reference
016f 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0170 0f00 | | Execute_Immediate Equal,0x0
0171 0279 | y | Execute Discrete,And
0172 6805 |h | Jump_Zero 0x178
0173 4801 |H | Short_Literal 0x1
0174 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0175 4800 |H | Short_Literal 0x0
0176 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0177 7803 |x | Jump 0x17b
0178 00db | | Load_Top At_Offset_3
0179 0a01 | | Execute_Immediate Plus,0x1
017a c402 | | Store 0x2,0x2
017b 00c9 | | Action Pop_Auxiliary_Loop
017c 00db | | Load_Top At_Offset_3
017d e5ff | | Load 0x2,-0x1
017e 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
017f 027a | z | Execute Discrete,Less_Equal
0180 00db | | Load_Top At_Offset_3
0181 0f00 | | Execute_Immediate Equal,0x0
0182 0279 | y | Execute Discrete,And
0183 77e0 |w | Jump_Nonzero 0x164
0184 00ce | | Action Pop_Auxiliary
0185 00da | | Load_Top At_Offset_2
0186 a5fd | | Store_Unchecked 0x2,-0x3
0187 00d8 | | Load_Top At_Offset_0
0188 a5fc | | Store_Unchecked 0x2,-0x4
0189 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018a 0000 0000 | | .BLANK 0000[0x6]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a2 | | .CONST 0x01a2 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0008 | | .CONST 0x0008 ; Number of locals
0193 INIT_0190:
0193 00e4 | | Load_Encached Positive_Cache
0194 6073 |`s | Indirect_Literal Discrete,0x208,{0x00000000, 0x00000400}
0195 e005 | | Load 0x0,0x5
0196 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0197 1c08 | | Execute_Immediate Run_Utility,0x8
0198 00d8 | | Load_Top At_Offset_0
0199 1c00 | | Execute_Immediate Run_Utility,0x0
019a 00e4 | | Load_Encached Positive_Cache
019b 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
019c 00e4 | | Load_Encached Positive_Cache
019d 00e4 | | Load_Encached Positive_Cache
019e 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
019f 00e1 | | Load_Encached Boolean_Cache
01a0 00e1 | | Load_Encached Boolean_Cache
01a1 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01a2 BODY_0190:
01a2 00e1 | | Load_Encached Boolean_Cache
01a3 00e4 | | Load_Encached Positive_Cache
01a4 e5fe | | Load 0x2,-0x2
01a5 e5ff | | Load 0x2,-0x1
01a6 8212 | | Call 0x1,0x12
01a7 c402 | | Store 0x2,0x2
01a8 005a | Z | Store_Top Discrete,At_Offset_2
01a9 00d9 | | Load_Top At_Offset_1
01aa a5fb | | Store_Unchecked 0x2,-0x5
01ab 00d9 | | Load_Top At_Offset_1
01ac 7057 |pW | Jump_Nonzero 0x204
01ad e403 | | Load 0x2,0x3
01ae e402 | | Load 0x2,0x2
01af e5ff | | Load 0x2,-0x1
01b0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
01b1 01d5 | | Execute Vector,Field_Reference
01b2 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
01b3 e005 | | Load 0x0,0x5
01b4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01b5 00d1 | | Pop_Control Pop_Count_1
01b6 00cf | | Action Mark_Auxiliary
01b7 7814 |x | Jump 0x1cc
01b8 00cf | | Action Mark_Auxiliary
01b9 7804 |x | Jump 0x1be
01ba e404 | | Load 0x2,0x4
01bb 0a01 | | Execute_Immediate Plus,0x1
01bc c404 | | Store 0x2,0x4
01bd 00c9 | | Action Pop_Auxiliary_Loop
01be e404 | | Load 0x2,0x4
01bf e403 | | Load 0x2,0x3
01c0 e005 | | Load 0x0,0x5
01c1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01c2 0e24 | $ | Execute_Immediate Not_Equal,0x24
01c3 77f6 |w | Jump_Nonzero 0x1ba
01c4 00ce | | Action Pop_Auxiliary
01c5 00db | | Load_Top At_Offset_3
01c6 0a01 | | Execute_Immediate Plus,0x1
01c7 c406 | | Store 0x2,0x6
01c8 e404 | | Load 0x2,0x4
01c9 0a01 | | Execute_Immediate Plus,0x1
01ca c404 | | Store 0x2,0x4
01cb 00c9 | | Action Pop_Auxiliary_Loop
01cc 00db | | Load_Top At_Offset_3
01cd e5fd | | Load 0x2,-0x3
01ce 0a01 | | Execute_Immediate Plus,0x1
01cf 027e | ~ | Execute Discrete,Not_Equal
01d0 77e7 |w | Jump_Nonzero 0x1b8
01d1 00ce | | Action Pop_Auxiliary
01d2 e403 | | Load 0x2,0x3
01d3 e404 | | Load 0x2,0x4
01d4 0aff | | Execute_Immediate Plus,-0x1
01d5 00d8 | | Load_Top At_Offset_0
01d6 00e3 | | Load_Encached Natural_Cache
01d7 0260 | ` | Execute Discrete,In_Type
01d8 7001 |p | Jump_Nonzero 0x1da
01d9 0801 | | Execute_Immediate Raise,0x1
01da 4801 |H | Short_Literal 0x1
01db e005 | | Load 0x0,0x5
01dc 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01dd 00d1 | | Pop_Control Pop_Count_1
01de 4801 |H | Short_Literal 0x1
01df 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01e0 e403 | | Load 0x2,0x3
01e1 e005 | | Load 0x0,0x5
01e2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01e3 c405 | | Store 0x2,0x5
01e4 00cf | | Action Mark_Auxiliary
01e5 7804 |x | Jump 0x1ea
01e6 00db | | Load_Top At_Offset_3
01e7 0a01 | | Execute_Immediate Plus,0x1
01e8 c406 | | Store 0x2,0x6
01e9 00c9 | | Action Pop_Auxiliary_Loop
01ea 00db | | Load_Top At_Offset_3
01eb e403 | | Load 0x2,0x3
01ec e005 | | Load 0x0,0x5
01ed 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01ee 0e24 | $ | Execute_Immediate Not_Equal,0x24
01ef 77f6 |w | Jump_Nonzero 0x1e6
01f0 00ce | | Action Pop_Auxiliary
01f1 e403 | | Load 0x2,0x3
01f2 e405 | | Load 0x2,0x5
01f3 e406 | | Load 0x2,0x6
01f4 0272 | r | Execute Discrete,Minus
01f5 0a01 | | Execute_Immediate Plus,0x1
01f6 00d8 | | Load_Top At_Offset_0
01f7 00e3 | | Load_Encached Natural_Cache
01f8 0260 | ` | Execute Discrete,In_Type
01f9 7001 |p | Jump_Nonzero 0x1fb
01fa 0801 | | Execute_Immediate Raise,0x1
01fb e406 | | Load 0x2,0x6
01fc e005 | | Load 0x0,0x5
01fd 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01fe 00d1 | | Pop_Control Pop_Count_1
01ff e5fc | | Load 0x2,-0x4
0200 e403 | | Load 0x2,0x3
0201 e005 | | Load 0x0,0x5
0202 180f | | Execute Package,Field_Execute,Field_Number 0xf
0203 00d1 | | Pop_Control Pop_Count_1
0204 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0219 | | .CONST 0x0219 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0002 | | .CONST 0x0002 ; Number of locals
0213 INIT_0210:
0213 67f4 |g | Indirect_Literal Discrete,0x208,{0x00000000, 0x00000400}
0214 e005 | | Load 0x0,0x5
0215 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0216 1c08 | | Execute_Immediate Run_Utility,0x8
0217 00d8 | | Load_Top At_Offset_0
0218 1c00 | | Execute_Immediate Run_Utility,0x0
0219 BODY_0210:
0219 e5fd | | Load 0x2,-0x3
021a 0f02 | | Execute_Immediate Equal,0x2
021b 6809 |h | Jump_Zero 0x225
021c 00d8 | | Load_Top At_Offset_0
021d e5fe | | Load 0x2,-0x2
021e e5ff | | Load 0x2,-0x1
021f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0220 01d5 | | Execute Vector,Field_Reference
0221 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0222 e005 | | Load 0x0,0x5
0223 180f | | Execute Package,Field_Execute,Field_Number 0xf
0224 00d1 | | Pop_Control Pop_Count_1
0225 e5fd | | Load 0x2,-0x3
0226 0f03 | | Execute_Immediate Equal,0x3
0227 6809 |h | Jump_Zero 0x231
0228 00d8 | | Load_Top At_Offset_0
0229 e5fe | | Load 0x2,-0x2
022a e5ff | | Load 0x2,-0x1
022b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
022c 01d5 | | Execute Vector,Field_Reference
022d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
022e e005 | | Load 0x0,0x5
022f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0230 00d1 | | Pop_Control Pop_Count_1
0231 e5fd | | Load 0x2,-0x3
0232 0f06 | | Execute_Immediate Equal,0x6
0233 6809 |h | Jump_Zero 0x23d
0234 00d8 | | Load_Top At_Offset_0
0235 e5fe | | Load 0x2,-0x2
0236 e5ff | | Load 0x2,-0x1
0237 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0238 01d5 | | Execute Vector,Field_Reference
0239 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
023a e005 | | Load 0x0,0x5
023b 180f | | Execute Package,Field_Execute,Field_Number 0xf
023c 00d1 | | Pop_Control Pop_Count_1
023d 00d8 | | Load_Top At_Offset_0
023e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
023f 0000 | | .XXX[0x1]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0244 | D | .CONST 0x0244 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 00e2 | | Load_Encached Integer_Cache
0244 BODY_0240:
0244 e5fd | | Load 0x2,-0x3
0245 0f01 | | Execute_Immediate Equal,0x1
0246 6806 |h | Jump_Zero 0x24d
0247 e5fe | | Load 0x2,-0x2
0248 e5ff | | Load 0x2,-0x1
0249 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
024a 01d5 | | Execute Vector,Field_Reference
024b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
024c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
024d e5fd | | Load 0x2,-0x3
024e 0f04 | | Execute_Immediate Equal,0x4
024f 6806 |h | Jump_Zero 0x256
0250 e5fe | | Load 0x2,-0x2
0251 e5ff | | Load 0x2,-0x1
0252 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0253 01d5 | | Execute Vector,Field_Reference
0254 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0255 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0256 e5fd | | Load 0x2,-0x3
0257 0f05 | | Execute_Immediate Equal,0x5
0258 6806 |h | Jump_Zero 0x25f
0259 e5fe | | Load 0x2,-0x2
025a e5ff | | Load 0x2,-0x1
025b 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
025c 01d5 | | Execute Vector,Field_Reference
025d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
025e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
025f 00d8 | | Load_Top At_Offset_0
0260 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00db | | Load_Top At_Offset_3
026c 0f02 | | Execute_Immediate Equal,0x2
026d 680a |h | Jump_Zero 0x278
026e 00da | | Load_Top At_Offset_2
026f e5fc | | Load 0x2,-0x4
0270 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0271 01d5 | | Execute Vector,Field_Reference
0272 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0273 00d8 | | Load_Top At_Offset_0
0274 e5fd | | Load 0x2,-0x3
0275 e005 | | Load 0x0,0x5
0276 180f | | Execute Package,Field_Execute,Field_Number 0xf
0277 00d2 | | Pop_Control Pop_Count_2
0278 00db | | Load_Top At_Offset_3
0279 0f03 | | Execute_Immediate Equal,0x3
027a 680a |h | Jump_Zero 0x285
027b 00da | | Load_Top At_Offset_2
027c e5fc | | Load 0x2,-0x4
027d 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
027e 01d5 | | Execute Vector,Field_Reference
027f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0280 00d8 | | Load_Top At_Offset_0
0281 e5fd | | Load 0x2,-0x3
0282 e005 | | Load 0x0,0x5
0283 180f | | Execute Package,Field_Execute,Field_Number 0xf
0284 00d2 | | Pop_Control Pop_Count_2
0285 00db | | Load_Top At_Offset_3
0286 0f06 | | Execute_Immediate Equal,0x6
0287 680a |h | Jump_Zero 0x292
0288 00da | | Load_Top At_Offset_2
0289 e5fc | | Load 0x2,-0x4
028a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
028b 01d5 | | Execute Vector,Field_Reference
028c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
028d 00d8 | | Load_Top At_Offset_0
028e e5fd | | Load 0x2,-0x3
028f e005 | | Load 0x0,0x5
0290 180f | | Execute Package,Field_Execute,Field_Number 0xf
0291 00d2 | | Pop_Control Pop_Count_2
0292 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 029b | | .CONST 0x029b ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0001 | | .CONST 0x0001 ; Number of locals
029b BODY_0298:
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3
029c 0f01 | | Execute_Immediate Equal,0x1
029d 6806 |h | Jump_Zero 0x2a4
029e e5fd | | Load 0x2,-0x3
029f 00db | | Load_Top At_Offset_3
02a0 e5fc | | Load 0x2,-0x4
02a1 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02a2 01d5 | | Execute Vector,Field_Reference
02a3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
02a4 00db | | Load_Top At_Offset_3
02a5 0f04 | | Execute_Immediate Equal,0x4
02a6 6806 |h | Jump_Zero 0x2ad
02a7 e5fd | | Load 0x2,-0x3
02a8 00db | | Load_Top At_Offset_3
02a9 e5fc | | Load 0x2,-0x4
02aa 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02ab 01d5 | | Execute Vector,Field_Reference
02ac 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02ad 00db | | Load_Top At_Offset_3
02ae 0f05 | | Execute_Immediate Equal,0x5
02af 6806 |h | Jump_Zero 0x2b6
02b0 e5fd | | Load 0x2,-0x3
02b1 00db | | Load_Top At_Offset_3
02b2 e5fc | | Load 0x2,-0x4
02b3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02b4 01d5 | | Execute Vector,Field_Reference
02b5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02b6 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02b7 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
02bc 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02be 0000 0000 | | .XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c7 | | .CONST 0x02c7 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0003 | | .CONST 0x0003 ; Number of locals
02c3 INIT_02c0:
02c3 00e2 | | Load_Encached Integer_Cache
02c4 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02c5 00e1 | | Load_Encached Boolean_Cache
02c6 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02c7 BODY_02c0:
02c7 00cf | | Action Mark_Auxiliary
02c8 780e |x | Jump 0x2d7
02c9 00da | | Load_Top At_Offset_2
02ca e5ff | | Load 0x2,-0x1
02cb 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02cc 01d5 | | Execute Vector,Field_Reference
02cd 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02ce 0e0b | | Execute_Immediate Not_Equal,0xb
02cf 6804 |h | Jump_Zero 0x2d4
02d0 00da | | Load_Top At_Offset_2
02d1 0a01 | | Execute_Immediate Plus,0x1
02d2 005b | [ | Store_Top Discrete,At_Offset_3
02d3 7802 |x | Jump 0x2d6
02d4 4800 |H | Short_Literal 0x0
02d5 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02d6 00c9 | | Action Pop_Auxiliary_Loop
02d7 00d9 | | Load_Top At_Offset_1
02d8 00db | | Load_Top At_Offset_3
02d9 e5ff | | Load 0x2,-0x1
02da 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02db 027a | z | Execute Discrete,Less_Equal
02dc 0279 | y | Execute Discrete,And
02dd 77eb |w | Jump_Nonzero 0x2c9
02de 00ce | | Action Pop_Auxiliary
02df 00d8 | | Load_Top At_Offset_0
02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e1 0000 0000 | | .BLANK 0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ef | | .CONST 0x02ef ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb 00e2 | | Load_Encached Integer_Cache
02ec 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02ed 00e1 | | Load_Encached Boolean_Cache
02ee 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02ef BODY_02e8:
02ef 00cf | | Action Mark_Auxiliary
02f0 780e |x | Jump 0x2ff
02f1 00da | | Load_Top At_Offset_2
02f2 e5ff | | Load 0x2,-0x1
02f3 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
02f4 01d5 | | Execute Vector,Field_Reference
02f5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
02f6 0e0b | | Execute_Immediate Not_Equal,0xb
02f7 6803 |h | Jump_Zero 0x2fb
02f8 4800 |H | Short_Literal 0x0
02f9 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02fa 7803 |x | Jump 0x2fe
02fb 00da | | Load_Top At_Offset_2
02fc 0a01 | | Execute_Immediate Plus,0x1
02fd 005b | [ | Store_Top Discrete,At_Offset_3
02fe 00c9 | | Action Pop_Auxiliary_Loop
02ff 00d9 | | Load_Top At_Offset_1
0300 00db | | Load_Top At_Offset_3
0301 e5ff | | Load 0x2,-0x1
0302 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0303 027a | z | Execute Discrete,Less_Equal
0304 0279 | y | Execute Discrete,And
0305 77eb |w | Jump_Nonzero 0x2f1
0306 00ce | | Action Pop_Auxiliary
0307 00d8 | | Load_Top At_Offset_0
0308 6803 |h | Jump_Zero 0x30c
0309 4800 |H | Short_Literal 0x0
030a 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
030b 781c |x | Jump 0x328
030c 4801 |H | Short_Literal 0x1
030d 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
030e 4801 |H | Short_Literal 0x1
030f 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0310 00cf | | Action Mark_Auxiliary
0311 780e |x | Jump 0x320
0312 00da | | Load_Top At_Offset_2
0313 e5ff | | Load 0x2,-0x1
0314 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0315 01d5 | | Execute Vector,Field_Reference
0316 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0317 0e0b | | Execute_Immediate Not_Equal,0xb
0318 6804 |h | Jump_Zero 0x31d
0319 00da | | Load_Top At_Offset_2
031a 0a01 | | Execute_Immediate Plus,0x1
031b 005b | [ | Store_Top Discrete,At_Offset_3
031c 7802 |x | Jump 0x31f
031d 4800 |H | Short_Literal 0x0
031e 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
031f 00c9 | | Action Pop_Auxiliary_Loop
0320 00d9 | | Load_Top At_Offset_1
0321 00db | | Load_Top At_Offset_3
0322 e5ff | | Load 0x2,-0x1
0323 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0324 027a | z | Execute Discrete,Less_Equal
0325 0279 | y | Execute Discrete,And
0326 77eb |w | Jump_Nonzero 0x312
0327 00ce | | Action Pop_Auxiliary
0328 00d9 | | Load_Top At_Offset_1
0329 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032a 0000 0000 | | .BLANK 0000[0x6]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00db | | Load_Top At_Offset_3
0334 00db | | Load_Top At_Offset_3
0335 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0336 01d5 | | Execute Vector,Field_Reference
0337 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0338 e5fe | | Load 0x2,-0x2
0339 e5ff | | Load 0x2,-0x1
033a 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
033b 01d5 | | Execute Vector,Field_Reference
033c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
033d e5fe | | Load 0x2,-0x2
033e e5ff | | Load 0x2,-0x1
033f 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0340 01d5 | | Execute Vector,Field_Reference
0341 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0342 e5fe | | Load 0x2,-0x2
0343 e5ff | | Load 0x2,-0x1
0344 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
0345 01d5 | | Execute Vector,Field_Reference
0346 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0347 e5fe | | Load 0x2,-0x2
0348 e5ff | | Load 0x2,-0x1
0349 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
034a 01d5 | | Execute Vector,Field_Reference
034b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034c 8006 | | Call 0x0,0x6
034d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
034e 0000 0000 | | .XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0357 | W | .CONST 0x0357 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0004 | | .CONST 0x0004 ; Number of locals
0353 INIT_0350:
0353 00e8 | | Load_Encached Character_Cache
0354 0628 | ( | Execute_Immediate Set_Value_Unchecked,0x28
0355 00e4 | | Load_Encached Positive_Cache
0356 00e4 | | Load_Encached Positive_Cache
0357 BODY_0350:
0357 4806 |H | Short_Literal 0x6
0358 e5fe | | Load 0x2,-0x2
0359 e5ff | | Load 0x2,-0x1
035a 8214 | | Call 0x1,0x14
035b e5fd | | Load 0x2,-0x3
035c 016d | m | Execute Variant_Record,Structure_Write
035d e5fd | | Load 0x2,-0x3
035e e005 | | Load 0x0,0x5
035f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0360 005a | Z | Store_Top Discrete,At_Offset_2
0361 4801 |H | Short_Literal 0x1
0362 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0363 00cf | | Action Mark_Auxiliary
0364 7804 |x | Jump 0x369
0365 00d9 | | Load_Top At_Offset_1
0366 0a01 | | Execute_Immediate Plus,0x1
0367 005a | Z | Store_Top Discrete,At_Offset_2
0368 00c9 | | Action Pop_Auxiliary_Loop
0369 00d9 | | Load_Top At_Offset_1
036a e5fd | | Load 0x2,-0x3
036b e005 | | Load 0x0,0x5
036c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
036d e402 | | Load 0x2,0x2
036e 027e | ~ | Execute Discrete,Not_Equal
036f 00da | | Load_Top At_Offset_2
0370 e403 | | Load 0x2,0x3
0371 027a | z | Execute Discrete,Less_Equal
0372 0279 | y | Execute Discrete,And
0373 77f1 |w | Jump_Nonzero 0x365
0374 00ce | | Action Pop_Auxiliary
0375 00d8 | | Load_Top At_Offset_0
0376 00da | | Load_Top At_Offset_2
0377 027a | z | Execute Discrete,Less_Equal
0378 680e |h | Jump_Zero 0x387
0379 e5fd | | Load 0x2,-0x3
037a 00da | | Load_Top At_Offset_2
037b 00da | | Load_Top At_Offset_2
037c 0272 | r | Execute Discrete,Minus
037d 0a01 | | Execute_Immediate Plus,0x1
037e 00d8 | | Load_Top At_Offset_0
037f 00e3 | | Load_Encached Natural_Cache
0380 0260 | ` | Execute Discrete,In_Type
0381 7001 |p | Jump_Nonzero 0x383
0382 0801 | | Execute_Immediate Raise,0x1
0383 00da | | Load_Top At_Offset_2
0384 e005 | | Load 0x0,0x5
0385 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0386 00d1 | | Pop_Control Pop_Count_1
0387 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b e5fd | | Load 0x2,-0x3
038c 0f05 | | Execute_Immediate Equal,0x5
038d 682d |h- | Jump_Zero 0x3bb
038e 00cf | | Action Mark_Auxiliary
038f 7804 |x | Jump 0x394
0390 e403 | | Load 0x2,0x3
0391 0a01 | | Execute_Immediate Plus,0x1
0392 c403 | | Store 0x2,0x3
0393 00c9 | | Action Pop_Auxiliary_Loop
0394 e403 | | Load 0x2,0x3
0395 00d8 | | Load_Top At_Offset_0
0396 00e4 | | Load_Encached Positive_Cache
0397 0260 | ` | Execute Discrete,In_Type
0398 7001 |p | Jump_Nonzero 0x39a
0399 0801 | | Execute_Immediate Raise,0x1
039a e402 | | Load 0x2,0x2
039b e5ff | | Load 0x2,-0x1
039c 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
039d 01d5 | | Execute Vector,Field_Reference
039e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
039f e005 | | Load 0x0,0x5
03a0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03a1 e403 | | Load 0x2,0x3
03a2 00d8 | | Load_Top At_Offset_0
03a3 00e4 | | Load_Encached Positive_Cache
03a4 0260 | ` | Execute Discrete,In_Type
03a5 7001 |p | Jump_Nonzero 0x3a7
03a6 0801 | | Execute_Immediate Raise,0x1
03a7 e406 | | Load 0x2,0x6
03a8 e005 | | Load 0x0,0x5
03a9 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03aa 027f | | Execute Discrete,Equal
03ab e403 | | Load 0x2,0x3
03ac 00d8 | | Load_Top At_Offset_0
03ad 00e4 | | Load_Encached Positive_Cache
03ae 0260 | ` | Execute Discrete,In_Type
03af 7001 |p | Jump_Nonzero 0x3b1
03b0 0801 | | Execute_Immediate Raise,0x1
03b1 e406 | | Load 0x2,0x6
03b2 e005 | | Load 0x0,0x5
03b3 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03b4 e408 | | Load 0x2,0x8
03b5 027e | ~ | Execute Discrete,Not_Equal
03b6 0279 | y | Execute Discrete,And
03b7 77d8 |w | Jump_Nonzero 0x390
03b8 00ce | | Action Pop_Auxiliary
03b9 4801 |H | Short_Literal 0x1
03ba a405 | | Store_Unchecked 0x2,0x5
03bb e5fd | | Load 0x2,-0x3
03bc 0f04 | | Execute_Immediate Equal,0x4
03bd 680a |h | Jump_Zero 0x3c8
03be e402 | | Load 0x2,0x2
03bf e5ff | | Load 0x2,-0x1
03c0 2502 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x2
03c1 01d5 | | Execute Vector,Field_Reference
03c2 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03c3 e407 | | Load 0x2,0x7
03c4 027f | | Execute Discrete,Equal
03c5 6802 |h | Jump_Zero 0x3c8
03c6 4801 |H | Short_Literal 0x1
03c7 a405 | | Store_Unchecked 0x2,0x5
03c8 e405 | | Load 0x2,0x5
03c9 6818 |h | Jump_Zero 0x3e2
03ca e5fd | | Load 0x2,-0x3
03cb 0f05 | | Execute_Immediate Equal,0x5
03cc e403 | | Load 0x2,0x3
03cd 00d8 | | Load_Top At_Offset_0
03ce 00e4 | | Load_Encached Positive_Cache
03cf 0260 | ` | Execute Discrete,In_Type
03d0 7001 |p | Jump_Nonzero 0x3d2
03d1 0801 | | Execute_Immediate Raise,0x1
03d2 e406 | | Load 0x2,0x6
03d3 e005 | | Load 0x0,0x5
03d4 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
03d5 e408 | | Load 0x2,0x8
03d6 027f | | Execute Discrete,Equal
03d7 0279 | y | Execute Discrete,And
03d8 e5fd | | Load 0x2,-0x3
03d9 0f04 | | Execute_Immediate Equal,0x4
03da 0278 | x | Execute Discrete,Or
03db 6806 |h | Jump_Zero 0x3e2
03dc 4801 |H | Short_Literal 0x1
03dd a404 | | Store_Unchecked 0x2,0x4
03de e402 | | Load 0x2,0x2
03df c5fc | | Store 0x2,-0x4
03e0 4800 |H | Short_Literal 0x0
03e1 a5fb | | Store_Unchecked 0x2,-0x5
03e2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e3 ; --------------------------------------------------------------------------------------
03e3 ; STRING TABLE
03e3 ; --------------------------------------------------------------------------------------
03e3 0004 | | .STRTAB 0x0004->0x03e5 ; " "
03e4 0003 | | .STREND 0x0003->0x03e5
03e5 2000 | | .STRTAB_STRINGS
03e6 0000 0000 | | .XXX[0x2]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; Debug Table
03e8 ; --------------------------------------------------------------------------------------
03e8 0004 000a | | .DEBUG4 0x0004,0x000a,0x749b,0x0000,0x0001,0x0012
03ee 000b 0436 | 6| .DBG4T 0x000b,0x0436,0x8000,0x0000
03f2 002e 0448 | . H| .DBG4T 0x002e,0x0448,0x8000,0x0000
03f6 0053 0459 | S Y| .DBG4T 0x0053,0x0459,0x0001,0x4000
03fa 006b 0464 | k d| .DBG4T 0x006b,0x0464,0x0001,0x4000
03fe 00cb 0483 | | .DBG4T 0x00cb,0x0483,0x0001,0x0000
0402 0113 048e | | .DBG4T 0x0113,0x048e,0x0001,0x4000
0406 015b 04b0 | [ | .DBG4T 0x015b,0x04b0,0x0001,0x4000
040a 0193 04c5 | | .DBG4T 0x0193,0x04c5,0x0001,0x4000
040e 0213 04ee | | .DBG4T 0x0213,0x04ee,0x0002,0x0000
0412 0243 04f8 | C | .DBG4T 0x0243,0x04f8,0x0002,0x0000
0416 026b 0502 | k | .DBG4T 0x026b,0x0502,0x0001,0x0000
041a 029b 050a | | .DBG4T 0x029b,0x050a,0x0001,0x0000
041e 02bb 0512 | | .DBG4T 0x02bb,0x0512,0x0002,0x0000
0422 02c3 0515 | | .DBG4T 0x02c3,0x0515,0x0002,0x4000
0426 02eb 0523 | #| .DBG4T 0x02eb,0x0523,0x0002,0x4000
042a 0333 0541 | 3 A| .DBG4T 0x0333,0x0541,0x0002,0x0000
042e 0353 0544 | S D| .DBG4T 0x0353,0x0544,0x0001,0x4000
0432 038b 0557 | W| .DBG4T 0x038b,0x0557,0x0004,0x4000
0436 ; --------------------------------------------------------------------------------------
0436 ; Debug chain
0436 ; --------------------------------------------------------------------------------------
0436 0010 0000 | | .DBGLEN 0x0010,0x0000
0438 000b 000f | | .DBGLNO 0x000b,0x000f,0x0011,0x0013,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x0029,0x002b
0448 ; --------------------------------------------------------------------------------------
0448 ; Debug chain
0448 ; --------------------------------------------------------------------------------------
0448 000f 0000 | | .DBGLEN 0x000f,0x0000
044a 002e 0030 | . 0| .DBGLNO 0x002e,0x0030,0x0032,0x0034,0x0036,0x0038,0x003a,0x003c,0x003e,0x0040,0x0042,0x0044,0x0046,0x0048,0x004a
0459 ; --------------------------------------------------------------------------------------
0459 ; Debug chain
0459 ; --------------------------------------------------------------------------------------
0459 0001 0004 | | .DBGLEN 0x0001,0x0004
045b 0053 0054 | S T| .DBGLNO 0x0053,0x0054,0x0058,0x005e,0x0062
0460 0001 0003 | | .XXX[0x4]
0462 0004 0002 | |
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug chain
0464 ; --------------------------------------------------------------------------------------
0464 0001 000e | | .DBGLEN 0x0001,0x000e
0466 006b 006c | k l| .DBGLNO 0x006b,0x006c,0x006e,0x0070,0x0077,0x007c,0x0082,0x0087,0x008f,0x009b,0x00a7,0x00af,0x00bb,0x00c1,0x00c4
0475 0001 0002 | | .XXX[0xe]
0477 0003 0004 | |
0479 0002 0006 | |
047b 0007 0008 | |
047d 0009 000a | |
047f 000b 000c | |
0481 000d 000e | |
0483 ; --------------------------------------------------------------------------------------
0483 ; Debug chain
0483 ; --------------------------------------------------------------------------------------
0483 0000 0009 | | .DBGLEN 0x0000,0x0009
0485 00cb 00d0 | | .DBGLNO 0x00cb,0x00d0,0x00d6,0x00e1,0x00ec,0x00f2,0x00fd,0x0103,0x0106
048e ; --------------------------------------------------------------------------------------
048e ; Debug chain
048e ; --------------------------------------------------------------------------------------
048e 0006 000d | | .DBGLEN 0x0006,0x000d
0490 0113 0115 | | .DBGLNO 0x0113,0x0115,0x0117,0x0119,0x011f,0x0120,0x0123,0x0126,0x0128,0x012d,0x0130,0x0134,0x0136,0x0138,0x013c,0x013e,0x0145,0x0146,0x014a
04a3 0001 0002 | | .XXX[0xd]
04a5 0003 0004 | |
04a7 0005 0006 | |
04a9 0007 0008 | |
04ab 000a 000b | |
04ad 000c 000d | |
04af 0009 | |
04b0 ; --------------------------------------------------------------------------------------
04b0 ; Debug chain
04b0 ; --------------------------------------------------------------------------------------
04b0 0003 0008 | | .DBGLEN 0x0003,0x0008
04b2 015b 015c | [ \| .DBGLNO 0x015b,0x015c,0x015e,0x0160,0x0164,0x0173,0x0175,0x0178,0x017c,0x0185,0x0187
04bd 0001 0003 | | .XXX[0x8]
04bf 0004 0005 | |
04c1 0006 0002 | |
04c3 0007 0008 | |
04c5 ; --------------------------------------------------------------------------------------
04c5 ; Debug chain
04c5 ; --------------------------------------------------------------------------------------
04c5 0007 0010 | | .DBGLEN 0x0007,0x0010
04c7 0193 0194 | | .DBGLNO 0x0193,0x0194,0x019a,0x019c,0x019d,0x019f,0x01a0,0x01a2,0x01a9,0x01ab,0x01ad,0x01ba,0x01be,0x01c5,0x01c8,0x01cc,0x01d2,0x01de,0x01e0,0x01e6,0x01ea,0x01f1,0x01ff
04de 0001 0002 | | .XXX[0x10]
04e0 0003 0004 | |
04e2 0007 0006 | |
04e4 0008 0009 | |
04e6 0005 000a | |
04e8 000b 000c | |
04ea 000e 000d | |
04ec 000f 0010 | |
04ee ; --------------------------------------------------------------------------------------
04ee ; Debug chain
04ee ; --------------------------------------------------------------------------------------
04ee 0001 0007 | | .DBGLEN 0x0001,0x0007
04f0 0213 0219 | | .DBGLNO 0x0213,0x0219,0x021c,0x0225,0x0228,0x0231,0x0234,0x023d
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug chain
04f8 ; --------------------------------------------------------------------------------------
04f8 0001 0007 | | .DBGLEN 0x0001,0x0007
04fa 0243 0244 | C D| .DBGLNO 0x0243,0x0244,0x0247,0x024d,0x0250,0x0256,0x0259,0x025f
0502 ; --------------------------------------------------------------------------------------
0502 ; Debug chain
0502 ; --------------------------------------------------------------------------------------
0502 0000 0006 | | .DBGLEN 0x0000,0x0006
0504 026b 026e | k n| .DBGLNO 0x026b,0x026e,0x0278,0x027b,0x0285,0x0288
050a ; --------------------------------------------------------------------------------------
050a ; Debug chain
050a ; --------------------------------------------------------------------------------------
050a 0000 0006 | | .DBGLEN 0x0000,0x0006
050c 029b 029e | | .DBGLNO 0x029b,0x029e,0x02a4,0x02a7,0x02ad,0x02b0
0512 ; --------------------------------------------------------------------------------------
0512 ; Debug chain
0512 ; --------------------------------------------------------------------------------------
0512 0000 0001 | | .DBGLEN 0x0000,0x0001
0514 02bb | | .DBGLNO 0x02bb
0515 ; --------------------------------------------------------------------------------------
0515 ; Debug chain
0515 ; --------------------------------------------------------------------------------------
0515 0002 0005 | | .DBGLEN 0x0002,0x0005
0517 02c3 02c5 | | .DBGLNO 0x02c3,0x02c5,0x02c9,0x02d0,0x02d4,0x02d7,0x02df
051e 0002 0003 | | .XXX[0x5]
0520 0004 0001 | |
0522 0005 | |
0523 ; --------------------------------------------------------------------------------------
0523 ; Debug chain
0523 ; --------------------------------------------------------------------------------------
0523 0002 000d | | .DBGLEN 0x0002,0x000d
0525 02eb 02ed | | .DBGLNO 0x02eb,0x02ed,0x02f1,0x02f8,0x02fb,0x02ff,0x0307,0x0309,0x030c,0x030e,0x0312,0x0319,0x031d,0x0320,0x0328
0534 0002 0003 | | .XXX[0xd]
0536 0004 0001 | |
0538 0005 0006 | |
053a 0007 0008 | |
053c 000a 000b | |
053e 000c 0009 | |
0540 000d | |
0541 ; --------------------------------------------------------------------------------------
0541 ; Debug chain
0541 ; --------------------------------------------------------------------------------------
0541 0000 0001 | | .DBGLEN 0x0000,0x0001
0543 0333 | 3 | .DBGLNO 0x0333
0544 ; --------------------------------------------------------------------------------------
0544 ; Debug chain
0544 ; --------------------------------------------------------------------------------------
0544 0003 0007 | | .DBGLEN 0x0003,0x0007
0546 0353 0355 | S U| .DBGLNO 0x0353,0x0355,0x0356,0x0357,0x035d,0x0361,0x0365,0x0369,0x0375,0x0379
0550 0001 0002 | | .XXX[0x7]
0552 0003 0005 | |
0554 0004 0006 | |
0556 0007 | |
0557 ; --------------------------------------------------------------------------------------
0557 ; Debug chain
0557 ; --------------------------------------------------------------------------------------
0557 0000 000c | | .DBGLEN 0x0000,0x000c
0559 038b 0390 | | .DBGLNO 0x038b,0x0390,0x0394,0x03b9,0x03bb,0x03be,0x03c6,0x03c8,0x03ca,0x03dc,0x03de,0x03e0
0565 0001 0003 | | .XXX[0xc]
0567 0002 0004 | |
0569 0005 0006 | |
056b 0007 0008 | |
056d 0009 000a | |
056f 000b 000c | |
0571 0000 0000 | | .BLANK 0000[0x8f]