|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_5850da
└─⟦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 0360 | ` | .CONST 0x0360 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0079 | y | .CONST 0x0079 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b 00e3 | | Load_Encached Natural_Cache
000c e001 | | Load 0x0,0x1
000d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
000e 00e9 | | Load_Encached String_Cache
000f 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call
0011 4800 |H | Short_Literal 0x0
0012 4801 |H | Short_Literal 0x1
0013 4801 |H | Short_Literal 0x1
0014 4800 |H | Short_Literal 0x0
0015 4801 |H | Short_Literal 0x1
0016 4801 |H | Short_Literal 0x1
0017 031e | | Declare_Type Variant_Record,Defined,Visible
0018 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001c 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
001e 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0020 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0022 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0024 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0026 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0028 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
002a 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
002c 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
002e 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0030 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0032 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
0034 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0036 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0038 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
003a 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
003c 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
003e 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0040 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0042 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
0044 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated
0046 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0048 00bf | | Action Accept_Activation
0049 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004a 00c7 | | Action Elaborate_Subprogram
004b 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004c 00c7 | | Action Elaborate_Subprogram
004d 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004e 00c7 | | Action Elaborate_Subprogram
004f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0050 00c7 | | Action Elaborate_Subprogram
0051 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0052 00c7 | | Action Elaborate_Subprogram
0053 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0054 00c7 | | Action Elaborate_Subprogram
0055 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0056 00c7 | | Action Elaborate_Subprogram
0057 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0058 00c7 | | Action Elaborate_Subprogram
0059 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005a 00c7 | | Action Elaborate_Subprogram
005b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005c 00c7 | | Action Elaborate_Subprogram
005d 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005e 00c7 | | Action Elaborate_Subprogram
005f 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0060 00c7 | | Action Elaborate_Subprogram
0061 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0062 00c7 | | Action Elaborate_Subprogram
0063 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0064 00c7 | | Action Elaborate_Subprogram
0065 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0066 00c7 | | Action Elaborate_Subprogram
0067 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0068 00c7 | | Action Elaborate_Subprogram
0069 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006a 00c7 | | Action Elaborate_Subprogram
006b 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
006c 00c7 | | Action Elaborate_Subprogram
006d 1d20 | | Execute_Immediate Reference_Lex_1,0x20
006e 00c7 | | Action Elaborate_Subprogram
006f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0070 00c7 | | Action Elaborate_Subprogram
0071 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0072 00c7 | | Action Elaborate_Subprogram
0073 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0074 00c7 | | Action Elaborate_Subprogram
0075 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0076 00c7 | | Action Elaborate_Subprogram
0077 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0078 00c7 | | Action Elaborate_Subprogram
0079 BODY_0008:
0079 00bc | | Action Signal_Activated
007a 00bb | | Action Signal_Completion
007b 0000 0000 | | .BLANK 0000[0x5]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0097 | | .CONST 0x0097 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0004 | | .CONST 0x0004 ; Number of locals
0083 INIT_0080:
0083 00da | | Load_Top At_Offset_2
0084 e002 | | Load 0x0,0x2
0085 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0086 180d | | Execute Package,Field_Execute,Field_Number 0xd
0087 e5fd | | Load 0x2,-0x3
0088 00d9 | | Load_Top At_Offset_1
0089 e5fe | | Load 0x2,-0x2
008a e5fd | | Load 0x2,-0x3
008b 4800 |H | Short_Literal 0x0
008c e5ff | | Load 0x2,-0x1
008d e003 | | Load 0x0,0x3
008e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
008f e004 | | Load 0x0,0x4
0090 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0091 00d8 | | Load_Top At_Offset_0
0092 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0093 e20d | | Load 0x1,0xd
0094 1c08 | | Execute_Immediate Run_Utility,0x8
0095 00d8 | | Load_Top At_Offset_0
0096 1c00 | | Execute_Immediate Run_Utility,0x0
0097 BODY_0080:
0097 00d9 | | Load_Top At_Offset_1
0098 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0099 00d9 | | Load_Top At_Offset_1
009a 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
009b 00d8 | | Load_Top At_Offset_0
009c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009d 00da | | Load_Top At_Offset_2
009e 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
009f e005 | | Load 0x0,0x5
00a0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00a1 00d9 | | Load_Top At_Offset_1
00a2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00a3 00d8 | | Load_Top At_Offset_0
00a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00bf | | .CONST 0x00bf ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0004 | | .CONST 0x0004 ; Number of locals
00ab INIT_00a8:
00ab 00da | | Load_Top At_Offset_2
00ac e002 | | Load 0x0,0x2
00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ae 180d | | Execute Package,Field_Execute,Field_Number 0xd
00af e5fd | | Load 0x2,-0x3
00b0 e5fe | | Load 0x2,-0x2
00b1 00da | | Load_Top At_Offset_2
00b2 e5fd | | Load 0x2,-0x3
00b3 4800 |H | Short_Literal 0x0
00b4 e5ff | | Load 0x2,-0x1
00b5 e003 | | Load 0x0,0x3
00b6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00b7 e004 | | Load 0x0,0x4
00b8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00b9 00d8 | | Load_Top At_Offset_0
00ba 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00bb e20d | | Load 0x1,0xd
00bc 1c08 | | Execute_Immediate Run_Utility,0x8
00bd 00d8 | | Load_Top At_Offset_0
00be 1c00 | | Execute_Immediate Run_Utility,0x0
00bf BODY_00a8:
00bf 00d9 | | Load_Top At_Offset_1
00c0 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00c1 00d9 | | Load_Top At_Offset_1
00c2 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00c3 00d8 | | Load_Top At_Offset_0
00c4 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c5 00da | | Load_Top At_Offset_2
00c6 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00c7 e005 | | Load 0x0,0x5
00c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c9 00d9 | | Load_Top At_Offset_1
00ca 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00cb 00d8 | | Load_Top At_Offset_0
00cc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e7 | | .CONST 0x00e7 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 e002 | | Load 0x0,0x2
00d5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d6 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d7 e5fd | | Load 0x2,-0x3
00d8 e5fe | | Load 0x2,-0x2
00d9 00da | | Load_Top At_Offset_2
00da e5fd | | Load 0x2,-0x3
00db 4800 |H | Short_Literal 0x0
00dc e5ff | | Load 0x2,-0x1
00dd e003 | | Load 0x0,0x3
00de 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00df e004 | | Load 0x0,0x4
00e0 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00e1 00d8 | | Load_Top At_Offset_0
00e2 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
00e3 e20d | | Load 0x1,0xd
00e4 1c08 | | Execute_Immediate Run_Utility,0x8
00e5 00d8 | | Load_Top At_Offset_0
00e6 1c00 | | Execute_Immediate Run_Utility,0x0
00e7 BODY_00d0:
00e7 00d9 | | Load_Top At_Offset_1
00e8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
00e9 00d9 | | Load_Top At_Offset_1
00ea 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
00eb 00d8 | | Load_Top At_Offset_0
00ec 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ed 00da | | Load_Top At_Offset_2
00ee 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
00ef e005 | | Load 0x0,0x5
00f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f1 00d9 | | Load_Top At_Offset_1
00f2 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
00f3 00d8 | | Load_Top At_Offset_0
00f4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00f5 0000 0000 | | .XXX[0x3]
00f7 0000 | |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0101 | | .CONST 0x0101 ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0003 | | .CONST 0x0003 ; Number of locals
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc e002 | | Load 0x0,0x2
00fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fe 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ff e006 | | Load 0x0,0x6
0100 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0101 BODY_00f8:
0101 e006 | | Load 0x0,0x6
0102 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0103 e5fc | | Load 0x2,-0x4
0104 00db | | Load_Top At_Offset_3
0105 e5fd | | Load 0x2,-0x3
0106 e5fe | | Load 0x2,-0x2
0107 e5fc | | Load 0x2,-0x4
0108 4800 |H | Short_Literal 0x0
0109 e5ff | | Load 0x2,-0x1
010a e003 | | Load 0x0,0x3
010b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
010c e004 | | Load 0x0,0x4
010d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
010e 0059 | Y | Store_Top Discrete,At_Offset_1
010f e5fb | | Load 0x2,-0x5
0110 00d9 | | Load_Top At_Offset_1
0111 e005 | | Load 0x0,0x5
0112 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0113 c5fb | | Store 0x2,-0x5
0114 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0121 | ! | .CONST 0x0121 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2
011c e002 | | Load 0x0,0x2
011d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011e 180d | | Execute Package,Field_Execute,Field_Number 0xd
011f e006 | | Load 0x0,0x6
0120 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0121 BODY_0118:
0121 e006 | | Load 0x0,0x6
0122 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0123 e5fc | | Load 0x2,-0x4
0124 0120 | | Execute Any,Is_Value
0125 6803 |h | Jump_Zero 0x129
0126 e007 | | Load 0x0,0x7
0127 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0128 7801 |x | Jump 0x12a
0129 e5fc | | Load 0x2,-0x4
012a e5fd | | Load 0x2,-0x3
012b e402 | | Load 0x2,0x2
012c e5fe | | Load 0x2,-0x2
012d e5fd | | Load 0x2,-0x3
012e 4800 |H | Short_Literal 0x0
012f e5ff | | Load 0x2,-0x1
0130 e003 | | Load 0x0,0x3
0131 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0132 e004 | | Load 0x0,0x4
0133 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0134 c5fc | | Store 0x2,-0x4
0135 0059 | Y | Store_Top Discrete,At_Offset_1
0136 e5fb | | Load 0x2,-0x5
0137 00d9 | | Load_Top At_Offset_1
0138 e005 | | Load 0x0,0x5
0139 1817 | | Execute Package,Field_Execute,Field_Number 0x17
013a c5fb | | Store 0x2,-0x5
013b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
013c 0000 0000 | | .BLANK 0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0149 | I | .CONST 0x0149 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 e002 | | Load 0x0,0x2
0145 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0146 180d | | Execute Package,Field_Execute,Field_Number 0xd
0147 e006 | | Load 0x0,0x6
0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0149 BODY_0140:
0149 e006 | | Load 0x0,0x6
014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014b e5fc | | Load 0x2,-0x4
014c 00db | | Load_Top At_Offset_3
014d e5fd | | Load 0x2,-0x3
014e e5fe | | Load 0x2,-0x2
014f e5fc | | Load 0x2,-0x4
0150 4800 |H | Short_Literal 0x0
0151 e5ff | | Load 0x2,-0x1
0152 e003 | | Load 0x0,0x3
0153 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0154 e004 | | Load 0x0,0x4
0155 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0156 0059 | Y | Store_Top Discrete,At_Offset_1
0157 e5fb | | Load 0x2,-0x5
0158 00d9 | | Load_Top At_Offset_1
0159 e005 | | Load 0x0,0x5
015a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015b c5fb | | Store 0x2,-0x5
015c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
015d 0000 0000 | | .XXX[0x3]
015f 0000 | |
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0166 | f | .CONST 0x0166 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e006 | | Load 0x0,0x6
0164 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0165 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0166 BODY_0160:
0166 e006 | | Load 0x0,0x6
0167 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0168 e5fd | | Load 0x2,-0x3
0169 0120 | | Execute Any,Is_Value
016a 6803 |h | Jump_Zero 0x16e
016b e007 | | Load 0x0,0x7
016c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
016d 7801 |x | Jump 0x16f
016e e5fd | | Load 0x2,-0x3
016f e5fe | | Load 0x2,-0x2
0170 e5ff | | Load 0x2,-0x1
0171 e004 | | Load 0x0,0x4
0172 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0173 c5fd | | Store 0x2,-0x3
0174 0059 | Y | Store_Top Discrete,At_Offset_1
0175 e5fc | | Load 0x2,-0x4
0176 00d9 | | Load_Top At_Offset_1
0177 e005 | | Load 0x0,0x5
0178 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0179 c5fc | | Store 0x2,-0x4
017a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
017b 0000 0000 | | .BLANK 0000[0x5]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0186 | | .CONST 0x0186 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 e006 | | Load 0x0,0x6
0184 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0185 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0186 BODY_0180:
0186 e006 | | Load 0x0,0x6
0187 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0188 e5fd | | Load 0x2,-0x3
0189 e5fe | | Load 0x2,-0x2
018a e5ff | | Load 0x2,-0x1
018b e004 | | Load 0x0,0x4
018c 1877 | w | Execute Package,Field_Execute,Field_Number 0x77
018d 0059 | Y | Store_Top Discrete,At_Offset_1
018e e5fc | | Load 0x2,-0x4
018f 00d9 | | Load_Top At_Offset_1
0190 e005 | | Load 0x0,0x5
0191 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0192 c5fc | | Store 0x2,-0x4
0193 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0194 0000 0000 | | .BLANK 0000[0x4]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019e | | .CONST 0x019e ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e006 | | Load 0x0,0x6
019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
019e BODY_0198:
019e e006 | | Load 0x0,0x6
019f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01a0 e5fd | | Load 0x2,-0x3
01a1 e5fe | | Load 0x2,-0x2
01a2 e5ff | | Load 0x2,-0x1
01a3 e004 | | Load 0x0,0x4
01a4 1886 | | Execute Package,Field_Execute,Field_Number 0x86
01a5 0059 | Y | Store_Top Discrete,At_Offset_1
01a6 e5fc | | Load 0x2,-0x4
01a7 00d9 | | Load_Top At_Offset_1
01a8 e005 | | Load 0x0,0x5
01a9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01aa c5fc | | Store 0x2,-0x4
01ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b6 | | .CONST 0x01b6 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0002 | | .CONST 0x0002 ; Number of locals
01b3 INIT_01b0:
01b3 e006 | | Load 0x0,0x6
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01b6 BODY_01b0:
01b6 e006 | | Load 0x0,0x6
01b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b8 e5fa | | Load 0x2,-0x6
01b9 e5fb | | Load 0x2,-0x5
01ba e5fc | | Load 0x2,-0x4
01bb e5fd | | Load 0x2,-0x3
01bc e5fe | | Load 0x2,-0x2
01bd e5ff | | Load 0x2,-0x1
01be e004 | | Load 0x0,0x4
01bf 1879 | y | Execute Package,Field_Execute,Field_Number 0x79
01c0 0059 | Y | Store_Top Discrete,At_Offset_1
01c1 e5f9 | | Load 0x2,-0x7
01c2 00d9 | | Load_Top At_Offset_1
01c3 e005 | | Load 0x0,0x5
01c4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01c5 c5f9 | | Store 0x2,-0x7
01c6 4507 |E | Exit_Suprogram New_Top_Offset 0x7
01c7 0000 | | .XXX[0x1]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01ce | | .CONST 0x01ce ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0002 | | .CONST 0x0002 ; Number of locals
01cb INIT_01c8:
01cb e006 | | Load 0x0,0x6
01cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01cd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01ce BODY_01c8:
01ce e006 | | Load 0x0,0x6
01cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d0 e5fe | | Load 0x2,-0x2
01d1 e5ff | | Load 0x2,-0x1
01d2 e004 | | Load 0x0,0x4
01d3 1865 | e | Execute Package,Field_Execute,Field_Number 0x65
01d4 0059 | Y | Store_Top Discrete,At_Offset_1
01d5 e5fd | | Load 0x2,-0x3
01d6 00d9 | | Load_Top At_Offset_1
01d7 e005 | | Load 0x0,0x5
01d8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d9 c5fd | | Store 0x2,-0x3
01da 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01db 0000 0000 | | .BLANK 0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e6 | | .CONST 0x01e6 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e006 | | Load 0x0,0x6
01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01e6 BODY_01e0:
01e6 e006 | | Load 0x0,0x6
01e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e8 00e1 | | Load_Encached Boolean_Cache
01e9 e5fe | | Load 0x2,-0x2
01ea e5ff | | Load 0x2,-0x1
01eb e004 | | Load 0x0,0x4
01ec 1845 | E | Execute Package,Field_Execute,Field_Number 0x45
01ed c5fd | | Store 0x2,-0x3
01ee 0059 | Y | Store_Top Discrete,At_Offset_1
01ef e5fc | | Load 0x2,-0x4
01f0 00d9 | | Load_Top At_Offset_1
01f1 e005 | | Load 0x0,0x5
01f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01f3 c5fc | | Store 0x2,-0x4
01f4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01f5 0000 0000 | | .XXX[0x3]
01f7 0000 | |
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0200 | | .CONST 0x0200 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0003 | | .CONST 0x0003 ; Number of locals
01fb INIT_01f8:
01fb e006 | | Load 0x0,0x6
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01fe 00e2 | | Load_Encached Integer_Cache
01ff 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0200 BODY_01f8:
0200 e006 | | Load 0x0,0x6
0201 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0202 00e2 | | Load_Encached Integer_Cache
0203 e5fd | | Load 0x2,-0x3
0204 0120 | | Execute Any,Is_Value
0205 6803 |h | Jump_Zero 0x209
0206 e008 | | Load 0x0,0x8
0207 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0208 7801 |x | Jump 0x20a
0209 e5fd | | Load 0x2,-0x3
020a e5fe | | Load 0x2,-0x2
020b e5ff | | Load 0x2,-0x1
020c e004 | | Load 0x0,0x4
020d 1867 | g | Execute Package,Field_Execute,Field_Number 0x67
020e c5fd | | Store 0x2,-0x3
020f 005a | Z | Store_Top Discrete,At_Offset_2
0210 005a | Z | Store_Top Discrete,At_Offset_2
0211 00d8 | | Load_Top At_Offset_0
0212 0c01 | | Execute_Immediate Greater_Equal,0x1
0213 6803 |h | Jump_Zero 0x217
0214 4801 |H | Short_Literal 0x1
0215 a5fc | | Store_Unchecked 0x2,-0x4
0216 7802 |x | Jump 0x219
0217 4800 |H | Short_Literal 0x0
0218 a5fc | | Store_Unchecked 0x2,-0x4
0219 00d8 | | Load_Top At_Offset_0
021a a5fb | | Store_Unchecked 0x2,-0x5
021b e5fa | | Load 0x2,-0x6
021c 00da | | Load_Top At_Offset_2
021d e005 | | Load 0x0,0x5
021e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
021f c5fa | | Store 0x2,-0x6
0220 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0221 0000 0000 | | .BLANK 0000[0x7]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e5fd | | Load 0x2,-0x3
022c e5fe | | Load 0x2,-0x2
022d e5ff | | Load 0x2,-0x1
022e e004 | | Load 0x0,0x4
022f 186a | j | Execute Package,Field_Execute,Field_Number 0x6a
0230 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0231 0000 0000 | | .BLANK 0000[0x7]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023e | > | .CONST 0x023e ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b e006 | | Load 0x0,0x6
023c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
023e BODY_0238:
023e e006 | | Load 0x0,0x6
023f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0240 e5fd | | Load 0x2,-0x3
0241 0120 | | Execute Any,Is_Value
0242 6803 |h | Jump_Zero 0x246
0243 e008 | | Load 0x0,0x8
0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0245 7801 |x | Jump 0x247
0246 e5fd | | Load 0x2,-0x3
0247 e5fe | | Load 0x2,-0x2
0248 e5ff | | Load 0x2,-0x1
0249 e004 | | Load 0x0,0x4
024a 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
024b c5fd | | Store 0x2,-0x3
024c 0059 | Y | Store_Top Discrete,At_Offset_1
024d e5fc | | Load 0x2,-0x4
024e 00d9 | | Load_Top At_Offset_1
024f e005 | | Load 0x0,0x5
0250 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0251 c5fc | | Store 0x2,-0x4
0252 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0253 0000 0000 | | .BLANK 0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025e | ^ | .CONST 0x025e ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0002 | | .CONST 0x0002 ; Number of locals
025b INIT_0258:
025b e006 | | Load 0x0,0x6
025c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
025d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
025e BODY_0258:
025e e006 | | Load 0x0,0x6
025f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0260 e5fd | | Load 0x2,-0x3
0261 0120 | | Execute Any,Is_Value
0262 6804 |h | Jump_Zero 0x267
0263 e008 | | Load 0x0,0x8
0264 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0265 1b18 | | Execute Package,Field_Read,Field_Number 0x18
0266 7801 |x | Jump 0x268
0267 e5fd | | Load 0x2,-0x3
0268 e5fe | | Load 0x2,-0x2
0269 e5ff | | Load 0x2,-0x1
026a e004 | | Load 0x0,0x4
026b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
026c c5fd | | Store 0x2,-0x3
026d 0059 | Y | Store_Top Discrete,At_Offset_1
026e e5fc | | Load 0x2,-0x4
026f 00d9 | | Load_Top At_Offset_1
0270 e005 | | Load 0x0,0x5
0271 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0272 c5fc | | Store 0x2,-0x4
0273 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0285 | | .CONST 0x0285 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0003 | | .CONST 0x0003 ; Number of locals
027b INIT_0278:
027b 00db | | Load_Top At_Offset_3
027c 00db | | Load_Top At_Offset_3
027d e004 | | Load 0x0,0x4
027e 1870 | p | Execute Package,Field_Execute,Field_Number 0x70
027f 00d8 | | Load_Top At_Offset_0
0280 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0281 e20d | | Load 0x1,0xd
0282 1c08 | | Execute_Immediate Run_Utility,0x8
0283 00d8 | | Load_Top At_Offset_0
0284 1c00 | | Execute_Immediate Run_Utility,0x0
0285 BODY_0278:
0285 00d9 | | Load_Top At_Offset_1
0286 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0287 00d9 | | Load_Top At_Offset_1
0288 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
0289 00d8 | | Load_Top At_Offset_0
028a 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
028b 00da | | Load_Top At_Offset_2
028c 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
028d e005 | | Load 0x0,0x5
028e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
028f 00d9 | | Load_Top At_Offset_1
0290 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
0291 00d8 | | Load_Top At_Offset_0
0292 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a5 | | .CONST 0x02a5 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 00db | | Load_Top At_Offset_3
029c 00db | | Load_Top At_Offset_3
029d e004 | | Load 0x0,0x4
029e 1871 | q | Execute Package,Field_Execute,Field_Number 0x71
029f 00d8 | | Load_Top At_Offset_0
02a0 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
02a1 e20d | | Load 0x1,0xd
02a2 1c08 | | Execute_Immediate Run_Utility,0x8
02a3 00d8 | | Load_Top At_Offset_0
02a4 1c00 | | Execute_Immediate Run_Utility,0x0
02a5 BODY_0298:
02a5 00d9 | | Load_Top At_Offset_1
02a6 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
02a7 00d9 | | Load_Top At_Offset_1
02a8 2903 |) | Execute Variant_Record,Field_Write,Fixed,Indirect,Field_Number 0x3
02a9 00d8 | | Load_Top At_Offset_0
02aa 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ab 00da | | Load_Top At_Offset_2
02ac 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
02ad e005 | | Load 0x0,0x5
02ae 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02af 00d9 | | Load_Top At_Offset_1
02b0 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
02b1 00d8 | | Load_Top At_Offset_0
02b2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02b3 0000 0000 | | .BLANK 0000[0x5]
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 00db | | Load_Top At_Offset_3
02bc 00db | | Load_Top At_Offset_3
02bd e004 | | Load 0x0,0x4
02be 1873 | s | Execute Package,Field_Execute,Field_Number 0x73
02bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c6 | | .CONST 0x02c6 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0002 | | .CONST 0x0002 ; Number of locals
02c3 INIT_02c0:
02c3 e006 | | Load 0x0,0x6
02c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02c6 BODY_02c0:
02c6 e006 | | Load 0x0,0x6
02c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c8 e5fd | | Load 0x2,-0x3
02c9 e5fe | | Load 0x2,-0x2
02ca e5ff | | Load 0x2,-0x1
02cb e004 | | Load 0x0,0x4
02cc 187d | } | Execute Package,Field_Execute,Field_Number 0x7d
02cd 0059 | Y | Store_Top Discrete,At_Offset_1
02ce e5fc | | Load 0x2,-0x4
02cf 00d9 | | Load_Top At_Offset_1
02d0 e005 | | Load 0x0,0x5
02d1 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02d2 c5fc | | Store 0x2,-0x4
02d3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02de | | .CONST 0x02de ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0002 | | .CONST 0x0002 ; Number of locals
02db INIT_02d8:
02db e006 | | Load 0x0,0x6
02dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02dd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02de BODY_02d8:
02de e006 | | Load 0x0,0x6
02df 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e0 e5fd | | Load 0x2,-0x3
02e1 e5fe | | Load 0x2,-0x2
02e2 e5ff | | Load 0x2,-0x1
02e3 e004 | | Load 0x0,0x4
02e4 186d | m | Execute Package,Field_Execute,Field_Number 0x6d
02e5 0059 | Y | Store_Top Discrete,At_Offset_1
02e6 e5fc | | Load 0x2,-0x4
02e7 00d9 | | Load_Top At_Offset_1
02e8 e005 | | Load 0x0,0x5
02e9 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02ea c5fc | | Store 0x2,-0x4
02eb 4504 |E | Exit_Suprogram New_Top_Offset 0x4
02ec 0000 0000 | | .BLANK 0000[0x4]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f6 | | .CONST 0x02f6 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 e006 | | Load 0x0,0x6
02f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02f6 BODY_02f0:
02f6 e006 | | Load 0x0,0x6
02f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f8 e5fd | | Load 0x2,-0x3
02f9 e5fe | | Load 0x2,-0x2
02fa e5ff | | Load 0x2,-0x1
02fb e004 | | Load 0x0,0x4
02fc 186e | n | Execute Package,Field_Execute,Field_Number 0x6e
02fd 0059 | Y | Store_Top Discrete,At_Offset_1
02fe e5fc | | Load 0x2,-0x4
02ff 00d9 | | Load_Top At_Offset_1
0300 e005 | | Load 0x0,0x5
0301 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0302 c5fc | | Store 0x2,-0x4
0303 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0304 0000 0000 | | .BLANK 0000[0x4]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030e | | .CONST 0x030e ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0002 | | .CONST 0x0002 ; Number of locals
030b INIT_0308:
030b e006 | | Load 0x0,0x6
030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
030e BODY_0308:
030e e006 | | Load 0x0,0x6
030f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0310 4800 |H | Short_Literal 0x0
0311 e5fe | | Load 0x2,-0x2
0312 e5ff | | Load 0x2,-0x1
0313 e004 | | Load 0x0,0x4
0314 188c | | Execute Package,Field_Execute,Field_Number 0x8c
0315 0059 | Y | Store_Top Discrete,At_Offset_1
0316 e5fc | | Load 0x2,-0x4
0317 00d9 | | Load_Top At_Offset_1
0318 e005 | | Load 0x0,0x5
0319 1817 | | Execute Package,Field_Execute,Field_Number 0x17
031a c5fc | | Store 0x2,-0x4
031b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0326 | & | .CONST 0x0326 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0002 | | .CONST 0x0002 ; Number of locals
0323 INIT_0320:
0323 e006 | | Load 0x0,0x6
0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0325 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0326 BODY_0320:
0326 e006 | | Load 0x0,0x6
0327 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0328 e5fe | | Load 0x2,-0x2
0329 e5ff | | Load 0x2,-0x1
032a e004 | | Load 0x0,0x4
032b 1883 | | Execute Package,Field_Execute,Field_Number 0x83
032c 0059 | Y | Store_Top Discrete,At_Offset_1
032d e5fd | | Load 0x2,-0x3
032e 00d9 | | Load_Top At_Offset_1
032f e005 | | Load 0x0,0x5
0330 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0331 c5fd | | Store 0x2,-0x3
0332 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0333 0000 0000 | | .BLANK 0000[0x5]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 4608 |F | Jump_Case 0x9
033c 7808 |x | Jump 0x345 ; case 0x0
033d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
033e 781f |x | Jump 0x35e ; case 0x2
033f 781e |x | Jump 0x35e ; case 0x3
0340 781d |x | Jump 0x35e ; case 0x4
0341 781c |x | Jump 0x35e ; case 0x5
0342 781b |x | Jump 0x35e ; case 0x6
0343 7807 |x | Jump 0x34b ; case 0x7
0344 780f |x | Jump 0x354 ; case 0x8
0345 00da | | Load_Top At_Offset_2
0346 2202 |" | Execute Variant_Record,Field_Constrain,Field_Number 0x2
0347 00da | | Load_Top At_Offset_2
0348 2402 |$ | Execute Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x2
0349 1c00 | | Execute_Immediate Run_Utility,0x0
034a 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
034b 00db | | Load_Top At_Offset_3
034c 4801 |H | Short_Literal 0x1
034d e5fe | | Load 0x2,-0x2
034e 00e9 | | Load_Encached String_Cache
034f 035b | [ | Declare_Type Array,Constrained
0350 4801 |H | Short_Literal 0x1
0351 e5ff | | Load 0x2,-0x1
0352 031b | | Declare_Type Variant_Record,Constrained
0353 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0354 00db | | Load_Top At_Offset_3
0355 00db | | Load_Top At_Offset_3
0356 02fc | | Declare_Variable Variant_Record,With_Constraint
0357 4801 |H | Short_Literal 0x1
0358 e5fe | | Load 0x2,-0x2
0359 00e9 | | Load_Encached String_Cache
035a 0334 | 4 | Declare_Variable Array,With_Constraint
035b 2d03 |- | Execute Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x3
035c 016a | j | QQ_execute Variant_Record,XXX
035d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
035e 0869 | i | Execute_Immediate Raise,0x69
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug Table
0360 ; --------------------------------------------------------------------------------------
0360 0004 000d | | .DEBUG4 0x0004,0x000d,0x514d,0x0000,0x0001,0x0000
0366 0000 0000 | | .XXX[0x1a]
0368 09dc dc04 | |
036a 0000 2f16 | / |
036c 0001 bc13 | |
036e 0000 40b3 | @ |
0370 09dc f804 | |
0372 0800 1180 | |
0374 1d9b c50a | |
0376 0000 00df | |
0378 09dd 0804 | |
037a 0800 1180 | |
037c 1b87 310a | 1 |
037e 0000 00df | |
0380 0000 0000 | | .BLANK 0000[0x7]
0387 7fff ffff | | .XXX[0x8]
0389 8000 0002 | |
038b 1dd0 250a | % |
038d 0001 87bb | |
038f 0000 0000 | | .BLANK 0000[0x4]
0393 1dd0 250a | % | .XXX[0x4]
0395 0001 87bb | |
0397 0000 0000 | | .BLANK 0000[0x4]
039b 1dd0 250a | % | .XXX[0x7]
039d 0001 a073 | s|
039f 0000 0004 | |
03a1 8000 | |
03a2 0000 0000 | | .BLANK 0000[0x7]
03a9 3fe8 0000 |? | .XXX[0xb]
03ab 0020 0000 | |
03ad 0000 0090 | |
03af b230 ee9c | 0 |
03b1 4850 01b0 |HP |
03b3 8478 | x |
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ee9c 4850 | HP| .XXX[0x4]
03ba 01b1 0bf8 | |
03bc 0000 0000 | | .BLANK 0000[0x4]
03c0 ee81 2850 | (P| .XXX[0x40]
03c2 000c 7444 | tD|
03c4 0200 0000 | |
03c6 0000 0000 | |
03c8 0080 0000 | |
03ca 0000 0743 | C|
03cc 4e00 0000 |N |
03ce 0000 09dd | |
03d0 0e80 0000 | |
03d2 0000 0040 | @|
03d4 0002 7dd0 | } |
03d6 005c 154d | \ M|
03d8 5105 5114 |Q Q |
03da 00a0 1119 | |
03dc 2531 1401 |%1 |
03de 5445 0d3d |TE =|
03e0 3541 2531 |5A%1|
03e2 1549 7d4d | I}M|
03e4 5d25 510d |]%Q |
03e6 2115 4c01 |! L |
03e8 5025 1125 |P% %|
03ea 4915 0d51 |I Q|
03ec 3d49 6400 |=Id |
03ee e829 513d | )Q=|
03f0 3d31 7d4d |=1}M|
03f2 5105 5114 |Q Q |
03f4 0124 3905 | $9 |
03f6 0d0d 154d | M|
03f8 4d7d 0d3d |M} =|
03fa 3951 493d |9QI=|
03fc 3001 b01d |0 |
03fe 1561 413d | aA=|