|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦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 0528 | ( | .CONST 0x0528 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005c | \ | .CONST 0x005c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0028 | ( | .CONST 0x0028 ; Number of locals
000b INIT_0008:
000b 0093 0000 | | push_full_address 0x0
000d 60b2 |` | Indirect_Literal Discrete,0xc0,{0x80000000, 0x00010000}
000e 0273 | s | Execute Discrete,Plus
000f 0129 | ) | Execute Any,Make_Visible
0010 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0012 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0014 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0016 00bf | | Action Accept_Activation
0017 0093 0000 | | push_full_address 0x0
0019 60a2 |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00020000}
001a 0273 | s | Execute Discrete,Plus
001b 0007 | | Action Break_Optional
001c 0093 0000 | | push_full_address 0x0
001e 6099 |` | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00030000}
001f 0273 | s | Execute Discrete,Plus
0020 0007 | | Action Break_Optional
0021 0093 0000 | | push_full_address 0x0
0023 6090 |` | Indirect_Literal Discrete,0xb4,{0x80000000, 0x00040000}
0024 0273 | s | Execute Discrete,Plus
0025 0007 | | Action Break_Optional
0026 e002 | | Load 0x0,0x2
0027 00e1 | | Load_Encached Boolean_Cache
0028 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
002a 4802 |H | Short_Literal 0x2
002b 032d | - | Declare_Type Record,Defined
002c 029b 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Unelaborated
002e 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0030 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call
0032 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call
0034 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call
0036 029d 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call
0038 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call
003a 029d 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call
003c 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call
003e 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
0040 029d 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call
0042 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0044 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
0046 029d 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call
0048 029d 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call
004a 029d 045b | [| Declare_Subprogram INIT_0458,For_Outer_Call
004c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004d 00c7 | | Action Elaborate_Subprogram
004e 029d 049b | | Declare_Subprogram INIT_0498,For_Outer_Call
0050 029d 04ab | | Declare_Subprogram INIT_04a8,For_Outer_Call
0052 029d 04b3 | | Declare_Subprogram INIT_04b0,For_Outer_Call
0054 029d 04bb | | Declare_Subprogram INIT_04b8,For_Outer_Call
0056 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0057 00c7 | | Action Elaborate_Subprogram
0058 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0059 00c7 | | Action Elaborate_Subprogram
005a 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005b 00c7 | | Action Elaborate_Subprogram
005c BODY_0008:
005c 00bc | | Action Signal_Activated
005d 00bb | | Action Signal_Completion
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006b | k | .CONST 0x006b ; Address of begin
0061 0096 | | .CONST 0x0096 ; Address of exception handler
0062 0003 | | .CONST 0x0003 ; Number of locals
0063 INIT_0060:
0063 e214 | | Load 0x1,0x14
0064 0322 | " | Declare_Variable Record
0065 00d8 | | Load_Top At_Offset_0
0066 1c00 | | Execute_Immediate Run_Utility,0x0
0067 e214 | | Load 0x1,0x14
0068 0322 | " | Declare_Variable Record
0069 00d8 | | Load_Top At_Offset_0
006a 1c00 | | Execute_Immediate Run_Utility,0x0
006b BODY_0060:
006b e5ff | | Load 0x2,-0x1
006c 8003 | | Call 0x0,0x3
006d e5fe | | Load 0x2,-0x2
006e 017d | } | Execute Record,Structure_Write
006f e5fe | | Load 0x2,-0x2
0070 8004 | | Call 0x0,0x4
0071 7023 |p# | Jump_Nonzero 0x95
0072 e5ff | | Load 0x2,-0x1
0073 8216 | | Call 0x1,0x16
0074 00da | | Load_Top At_Offset_2
0075 017d | } | Execute Record,Structure_Write
0076 00cf | | Action Mark_Auxiliary
0077 00da | | Load_Top At_Offset_2
0078 8227 | ' | Call 0x1,0x27
0079 7016 |p | Jump_Nonzero 0x90
007a 00d9 | | Load_Top At_Offset_1
007b e5fe | | Load 0x2,-0x2
007c e402 | | Load 0x2,0x2
007d 8228 | ( | Call 0x1,0x28
007e 00d2 | | Pop_Control Pop_Count_2
007f 00d9 | | Load_Top At_Offset_1
0080 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0081 8005 | | Call 0x0,0x5
0082 6808 |h | Jump_Zero 0x8b
0083 00d9 | | Load_Top At_Offset_1
0084 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0085 8006 | | Call 0x0,0x6
0086 7004 |p | Jump_Nonzero 0x8b
0087 00d9 | | Load_Top At_Offset_1
0088 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0089 8007 | | Call 0x0,0x7
008a 6805 |h | Jump_Zero 0x90
008b 00d9 | | Load_Top At_Offset_1
008c 00db | | Load_Top At_Offset_3
008d 017d | } | Execute Record,Structure_Write
008e 00c9 | | Action Pop_Auxiliary_Loop
008f 7fe7 | | Jump 0x77
0090 00ce | | Action Pop_Auxiliary
0091 e5ff | | Load 0x2,-0x1
0092 e5fe | | Load 0x2,-0x2
0093 8008 | | Call 0x0,0x8
0094 00d1 | | Pop_Control Pop_Count_1
0095 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0096 TRAP_0060:
0096 e211 | | Load 0x1,0x11
0097 010f | | Execute Exception,Equal
0098 6807 |h | Jump_Zero 0xa0
0099 e009 | | Load 0x0,0x9
009a e5fe | | Load 0x2,-0x2
009b 017d | } | Execute Record,Structure_Write
009c e5ff | | Load 0x2,-0x1
009d e5fe | | Load 0x2,-0x2
009e 8008 | | Call 0x0,0x8
009f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00a0 e213 | | Load 0x1,0x13
00a1 010f | | Execute Exception,Equal
00a2 6807 |h | Jump_Zero 0xaa
00a3 e009 | | Load 0x0,0x9
00a4 e5fe | | Load 0x2,-0x2
00a5 017d | } | Execute Record,Structure_Write
00a6 e5ff | | Load 0x2,-0x1
00a7 e5fe | | Load 0x2,-0x2
00a8 8008 | | Call 0x0,0x8
00a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00aa e009 | | Load 0x0,0x9
00ab e5fe | | Load 0x2,-0x2
00ac 017d | } | Execute Record,Structure_Write
00ad e5ff | | Load 0x2,-0x1
00ae e5fe | | Load 0x2,-0x2
00af 8008 | | Call 0x0,0x8
00b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b1 0000 0000 | | .XXX[0x3]
00b3 0000 | |
00b4 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
00c0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00c4 0000 0000 | | .BLANK 0000[0x4]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cf | | .CONST 0x00cf ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0002 | | .CONST 0x0002 ; Number of locals
00cb INIT_00c8:
00cb e00a | | Load 0x0,0xa
00cc 0322 | " | Declare_Variable Record
00cd 00d8 | | Load_Top At_Offset_0
00ce 1c00 | | Execute_Immediate Run_Utility,0x0
00cf BODY_00c8:
00cf 00d8 | | Load_Top At_Offset_0
00d0 e5ff | | Load 0x2,-0x1
00d1 820e | | Call 0x1,0xe
00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00f0 | | .CONST 0x00f0 ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0009 | | .CONST 0x0009 ; Number of locals
00db INIT_00d8:
00db e00b | | Load 0x0,0xb
00dc 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00dd 02c7 | | Declare_Variable Any
00de 00d8 | | Load_Top At_Offset_0
00df 1c00 | | Execute_Immediate Run_Utility,0x0
00e0 e00b | | Load 0x0,0xb
00e1 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
00e2 0322 | " | Declare_Variable Record
00e3 e00b | | Load 0x0,0xb
00e4 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
00e5 0322 | " | Declare_Variable Record
00e6 00e5 | | Load_Encached Long_Integer_Cache
00e7 e00b | | Load 0x0,0xb
00e8 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
00e9 0322 | " | Declare_Variable Record
00ea e00b | | Load 0x0,0xb
00eb 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00ec e00b | | Load 0x0,0xb
00ed 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00ee e00b | | Load 0x0,0xb
00ef 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
00f0 BODY_00d8:
00f0 e5ff | | Load 0x2,-0x1
00f1 e00b | | Load 0x0,0xb
00f2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
00f3 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
00f4 00da | | Load_Top At_Offset_2
00f5 e00c | | Load 0x0,0xc
00f6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
00f7 c402 | | Store 0x2,0x2
00f8 e00b | | Load 0x0,0xb
00f9 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
00fa e402 | | Load 0x2,0x2
00fb e5fe | | Load 0x2,-0x2
00fc e5ff | | Load 0x2,-0x1
00fd e407 | | Load 0x2,0x7
00fe 8222 | " | Call 0x1,0x22
00ff c402 | | Store 0x2,0x2
0100 005a | Z | Store_Top Discrete,At_Offset_2
0101 00d9 | | Load_Top At_Offset_1
0102 e00b | | Load 0x0,0xb
0103 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0104 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0105 00d8 | | Load_Top At_Offset_0
0106 0aff | | Execute_Immediate Plus,-0x1
0107 e00b | | Load 0x0,0xb
0108 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0109 00d9 | | Load_Top At_Offset_1
010a 00d0 | | Action Swap_Control
010b 0260 | ` | Execute Discrete,In_Type
010c 7001 |p | Jump_Nonzero 0x10e
010d 0801 | | Execute_Immediate Raise,0x1
010e e402 | | Load 0x2,0x2
010f e00b | | Load 0x0,0xb
0110 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0111 e403 | | Load 0x2,0x3
0112 017d | } | Execute Record,Structure_Write
0113 e403 | | Load 0x2,0x3
0114 e00b | | Load 0x0,0xb
0115 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0116 0f0a | | Execute_Immediate Equal,0xa
0117 7002 |p | Jump_Nonzero 0x11a
0118 e211 | | Load 0x1,0x11
0119 0257 | W | Execute Discrete,Raise
011a e403 | | Load 0x2,0x3
011b e00b | | Load 0x0,0xb
011c 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
011d 8220 | | Call 0x1,0x20
011e 00d8 | | Load_Top At_Offset_0
011f e00d | | Load 0x0,0xd
0120 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0121 0260 | ` | Execute Discrete,In_Type
0122 7001 |p | Jump_Nonzero 0x124
0123 0801 | | Execute_Immediate Raise,0x1
0124 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0125 e403 | | Load 0x2,0x3
0126 e00b | | Load 0x0,0xb
0127 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0128 8221 | ! | Call 0x1,0x21
0129 0059 | Y | Store_Top Discrete,At_Offset_1
012a 00da | | Load_Top At_Offset_2
012b e00c | | Load 0x0,0xc
012c 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
012d c402 | | Store 0x2,0x2
012e 00d8 | | Load_Top At_Offset_0
012f e00b | | Load 0x0,0xb
0130 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0131 00d9 | | Load_Top At_Offset_1
0132 00d0 | | Action Swap_Control
0133 0260 | ` | Execute Discrete,In_Type
0134 7001 |p | Jump_Nonzero 0x136
0135 0801 | | Execute_Immediate Raise,0x1
0136 e402 | | Load 0x2,0x2
0137 e00b | | Load 0x0,0xb
0138 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0139 e404 | | Load 0x2,0x4
013a 017d | } | Execute Record,Structure_Write
013b e404 | | Load 0x2,0x4
013c e00b | | Load 0x0,0xb
013d 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
013e 6802 |h | Jump_Zero 0x141
013f e211 | | Load 0x1,0x11
0140 0257 | W | Execute Discrete,Raise
0141 e404 | | Load 0x2,0x4
0142 e00b | | Load 0x0,0xb
0143 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0144 a405 | | Store_Unchecked 0x2,0x5
0145 4800 |H | Short_Literal 0x0
0146 e405 | | Load 0x2,0x5
0147 e00c | | Load 0x0,0xc
0148 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0149 701a |p | Jump_Nonzero 0x164
014a 00d8 | | Load_Top At_Offset_0
014b 0a01 | | Execute_Immediate Plus,0x1
014c e00b | | Load 0x0,0xb
014d 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
014e 00d9 | | Load_Top At_Offset_1
014f 00d0 | | Action Swap_Control
0150 0260 | ` | Execute Discrete,In_Type
0151 7001 |p | Jump_Nonzero 0x153
0152 0801 | | Execute_Immediate Raise,0x1
0153 e402 | | Load 0x2,0x2
0154 e00b | | Load 0x0,0xb
0155 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0156 e406 | | Load 0x2,0x6
0157 017d | } | Execute Record,Structure_Write
0158 00db | | Load_Top At_Offset_3
0159 e00b | | Load 0x0,0xb
015a 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
015b 6802 |h | Jump_Zero 0x15e
015c e211 | | Load 0x1,0x11
015d 0257 | W | Execute Discrete,Raise
015e 00db | | Load_Top At_Offset_3
015f e00b | | Load 0x0,0xb
0160 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0161 e405 | | Load 0x2,0x5
0162 8217 | | Call 0x1,0x17
0163 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0164 e405 | | Load 0x2,0x5
0165 8218 | | Call 0x1,0x18
0166 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4601 |F | Jump_Case 0x2
016c 7801 |x | Jump 0x16e ; case 0x0
016d 7804 |x | Jump 0x172 ; case 0x1
016e 00da | | Load_Top At_Offset_2
016f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0170 1c00 | | Execute_Immediate Run_Utility,0x0
0171 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0172 00da | | Load_Top At_Offset_2
0173 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0174 1c01 | | Execute_Immediate Run_Utility,0x1
0175 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0181 | | .CONST 0x0181 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b 4864 |Hd | Short_Literal 0x64
017c e00e | | Load 0x0,0xe
017d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
017e 1c08 | | Execute_Immediate Run_Utility,0x8
017f 00d8 | | Load_Top At_Offset_0
0180 1c00 | | Execute_Immediate Run_Utility,0x0
0181 BODY_0178:
0181 00d8 | | Load_Top At_Offset_0
0182 0092 0520 | | Action Push_String_Extended,0x520 ; "Context:["
0184 e00e | | Load 0x0,0xe
0185 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0186 00d1 | | Pop_Control Pop_Count_1
0187 00d8 | | Load_Top At_Offset_0
0188 e5ff | | Load 0x2,-0x1
0189 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018a 800f | | Call 0x0,0xf
018b e00e | | Load 0x0,0xe
018c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018d 00d1 | | Pop_Control Pop_Count_1
018e 00d8 | | Load_Top At_Offset_0
018f 0092 0521 | !| Action Push_String_Extended,0x521 ; "]"
0191 e00e | | Load 0x0,0xe
0192 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0193 00d1 | | Pop_Control Pop_Count_1
0194 00d8 | | Load_Top At_Offset_0
0195 e00e | | Load 0x0,0xe
0196 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019f | | .CONST 0x019f ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e214 | | Load 0x1,0x14
019c 0322 | " | Declare_Variable Record
019d 00d8 | | Load_Top At_Offset_0
019e 1c00 | | Execute_Immediate Run_Utility,0x0
019f BODY_0198:
019f 00db | | Load_Top At_Offset_3
01a0 00d9 | | Load_Top At_Offset_1
01a1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01a2 4800 |H | Short_Literal 0x0
01a3 00d9 | | Load_Top At_Offset_1
01a4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a5 00d8 | | Load_Top At_Offset_0
01a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a7 0000 | | .XXX[0x1]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b0 | | .CONST 0x01b0 ; Address of begin
01a9 01cf | | .CONST 0x01cf ; Address of exception handler
01aa 0004 | | .CONST 0x0004 ; Number of locals
01ab INIT_01a8:
01ab e010 | | Load 0x0,0x10
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 00e3 | | Load_Encached Natural_Cache
01ae e011 | | Load 0x0,0x11
01af 0322 | " | Declare_Variable Record
01b0 BODY_01a8:
01b0 e5ff | | Load 0x2,-0x1
01b1 09e0 | | Execute_Immediate Binary_Scale,-0x20
01b2 00d8 | | Load_Top At_Offset_0
01b3 e010 | | Load 0x0,0x10
01b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b5 0260 | ` | Execute Discrete,In_Type
01b6 7001 |p | Jump_Nonzero 0x1b8
01b7 0801 | | Execute_Immediate Raise,0x1
01b8 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
01b9 e5ff | | Load 0x2,-0x1
01ba 6019 |` | Indirect_Literal Discrete,0x1d4,{0x00000000, 0xffffffff}
01bb 0279 | y | Execute Discrete,And
01bc 00d8 | | Load_Top At_Offset_0
01bd 00e3 | | Load_Encached Natural_Cache
01be 0260 | ` | Execute Discrete,In_Type
01bf 7001 |p | Jump_Nonzero 0x1c1
01c0 0801 | | Execute_Immediate Raise,0x1
01c1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
01c2 e5fe | | Load 0x2,-0x2
01c3 00d8 | | Load_Top At_Offset_0
01c4 00e4 | | Load_Encached Positive_Cache
01c5 0260 | ` | Execute Discrete,In_Type
01c6 7001 |p | Jump_Nonzero 0x1c8
01c7 0801 | | Execute_Immediate Raise,0x1
01c8 00db | | Load_Top At_Offset_3
01c9 00db | | Load_Top At_Offset_3
01ca 8012 | | Call 0x0,0x12
01cb 00d9 | | Load_Top At_Offset_1
01cc 017d | } | Execute Record,Structure_Write
01cd 00d8 | | Load_Top At_Offset_0
01ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01cf TRAP_01a8:
01cf 0007 | | Action Break_Optional
01d0 e013 | | Load 0x0,0x13
01d1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01d2 0000 0000 | | .XXX[0x2]
01d4 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01f9 | | .CONST 0x01f9 ; Address of begin
01d9 020b | | .CONST 0x020b ; Address of exception handler
01da 0006 | | .CONST 0x0006 ; Number of locals
01db INIT_01d8:
01db 4818 |H | Short_Literal 0x18
01dc 4808 |H | Short_Literal 0x8
01dd e5ff | | Load 0x2,-0x1
01de e00c | | Load 0x0,0xc
01df 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01e0 00d8 | | Load_Top At_Offset_0
01e1 e00d | | Load 0x0,0xd
01e2 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01e3 0260 | ` | Execute Discrete,In_Type
01e4 7001 |p | Jump_Nonzero 0x1e6
01e5 0801 | | Execute_Immediate Raise,0x1
01e6 e00b | | Load 0x0,0xb
01e7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e8 03f1 | | Declare_Variable Discrete,With_Value
01e9 4810 |H | Short_Literal 0x10
01ea 4820 |H | Short_Literal 0x20
01eb e5ff | | Load 0x2,-0x1
01ec e00c | | Load 0x0,0xc
01ed 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ee 00d8 | | Load_Top At_Offset_0
01ef 00e4 | | Load_Encached Positive_Cache
01f0 0260 | ` | Execute Discrete,In_Type
01f1 7001 |p | Jump_Nonzero 0x1f3
01f2 0801 | | Execute_Immediate Raise,0x1
01f3 00e4 | | Load_Encached Positive_Cache
01f4 03f1 | | Declare_Variable Discrete,With_Value
01f5 e010 | | Load 0x0,0x10
01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01f7 00e3 | | Load_Encached Natural_Cache
01f8 00e1 | | Load_Encached Boolean_Cache
01f9 BODY_01d8:
01f9 00e1 | | Load_Encached Boolean_Cache
01fa 00e3 | | Load_Encached Natural_Cache
01fb e010 | | Load 0x0,0x10
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd e402 | | Load 0x2,0x2
01fe 8014 | | Call 0x0,0x14
01ff c404 | | Store 0x2,0x4
0200 005b | [ | Store_Top Discrete,At_Offset_3
0201 0059 | Y | Store_Top Discrete,At_Offset_1
0202 00d8 | | Load_Top At_Offset_0
0203 6805 |h | Jump_Zero 0x209
0204 00db | | Load_Top At_Offset_3
0205 00db | | Load_Top At_Offset_3
0206 00db | | Load_Top At_Offset_3
0207 8012 | | Call 0x0,0x12
0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0209 e013 | | Load 0x0,0x13
020a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020b TRAP_01d8:
020b 0007 | | Action Break_Optional
020c e013 | | Load 0x0,0x13
020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020e 0000 0000 | | .XXX[0x2]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00da | | Load_Top At_Offset_2
0214 8015 | | Call 0x0,0x15
0215 460d |F | Jump_Case 0xe
0216 780f |x | Jump 0x226 ; case 0x0
0217 7810 |x | Jump 0x228 ; case 0x1
0218 7811 |x | Jump 0x22a ; case 0x2
0219 7812 |x | Jump 0x22c ; case 0x3
021a 7813 |x | Jump 0x22e ; case 0x4
021b 7814 |x | Jump 0x230 ; case 0x5
021c 7815 |x | Jump 0x232 ; case 0x6
021d 7816 |x | Jump 0x234 ; case 0x7
021e 7817 |x | Jump 0x236 ; case 0x8
021f 7818 |x | Jump 0x238 ; case 0x9
0220 7819 |x | Jump 0x23a ; case 0xa
0221 781a |x | Jump 0x23c ; case 0xb
0222 781b |x | Jump 0x23e ; case 0xc
0223 7800 |x | Jump 0x224 ; case 0xd
0224 4801 |H | Short_Literal 0x1
0225 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0226 4800 |H | Short_Literal 0x0
0227 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0228 4801 |H | Short_Literal 0x1
0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022a 4801 |H | Short_Literal 0x1
022b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022c 4801 |H | Short_Literal 0x1
022d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022e 4801 |H | Short_Literal 0x1
022f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0230 4801 |H | Short_Literal 0x1
0231 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0232 4801 |H | Short_Literal 0x1
0233 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0234 4801 |H | Short_Literal 0x1
0235 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0236 4800 |H | Short_Literal 0x0
0237 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0238 4800 |H | Short_Literal 0x0
0239 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023a 4800 |H | Short_Literal 0x0
023b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023c 4801 |H | Short_Literal 0x1
023d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
023e 4801 |H | Short_Literal 0x1
023f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00da | | Load_Top At_Offset_2
0244 8007 | | Call 0x0,0x7
0245 00db | | Load_Top At_Offset_3
0246 8219 | | Call 0x1,0x19
0247 0f00 | | Execute_Immediate Equal,0x0
0248 0279 | y | Execute Discrete,And
0249 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024a 0000 0000 | | .BLANK 0000[0x6]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 8007 | | Call 0x0,0x7
0255 7003 |p | Jump_Nonzero 0x259
0256 00da | | Load_Top At_Offset_2
0257 8016 | | Call 0x0,0x16
0258 7801 |x | Jump 0x25a
0259 4801 |H | Short_Literal 0x1
025a 00db | | Load_Top At_Offset_3
025b 8219 | | Call 0x1,0x19
025c 0279 | y | Execute Discrete,And
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 8219 | | Call 0x1,0x19
0265 6809 |h | Jump_Zero 0x26f
0266 00da | | Load_Top At_Offset_2
0267 8006 | | Call 0x0,0x6
0268 7004 |p | Jump_Nonzero 0x26d
0269 00da | | Load_Top At_Offset_2
026a 8007 | | Call 0x0,0x7
026b 0f00 | | Execute_Immediate Equal,0x0
026c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026d 4800 |H | Short_Literal 0x0
026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026f 4800 |H | Short_Literal 0x0
0270 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0271 0000 0000 | | .BLANK 0000[0x7]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 8219 | | Call 0x1,0x19
027d 7009 |p | Jump_Nonzero 0x287
027e 00da | | Load_Top At_Offset_2
027f 8006 | | Call 0x0,0x6
0280 7004 |p | Jump_Nonzero 0x285
0281 00da | | Load_Top At_Offset_2
0282 8007 | | Call 0x0,0x7
0283 0f00 | | Execute_Immediate Equal,0x0
0284 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0285 4800 |H | Short_Literal 0x0
0286 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0287 4800 |H | Short_Literal 0x0
0288 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0289 0000 0000 | | .BLANK 0000[0x7]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 029b | | .CONST 0x029b ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0004 | | .CONST 0x0004 ; Number of locals
0293 INIT_0290:
0293 e00b | | Load 0x0,0xb
0294 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0295 e00b | | Load 0x0,0xb
0296 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0297 e002 | | Load 0x0,0x2
0298 0322 | " | Declare_Variable Record
0299 00d8 | | Load_Top At_Offset_0
029a 1c00 | | Execute_Immediate Run_Utility,0x0
029b BODY_0290:
029b e5ff | | Load 0x2,-0x1
029c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
029d 8017 | | Call 0x0,0x17
029e e00c | | Load 0x0,0xc
029f 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
02a0 e00c | | Load 0x0,0xc
02a1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
02a2 e5ff | | Load 0x2,-0x1
02a3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02a4 8017 | | Call 0x0,0x17
02a5 e00b | | Load 0x0,0xb
02a6 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02a7 e00b | | Load 0x0,0xb
02a8 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02a9 e00b | | Load 0x0,0xb
02aa 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
02ab 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
02ac 00d9 | | Load_Top At_Offset_1
02ad e00b | | Load 0x0,0xb
02ae 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
02af 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02b0 00d8 | | Load_Top At_Offset_0
02b1 00db | | Load_Top At_Offset_3
02b2 e00b | | Load 0x0,0xb
02b3 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02b4 8018 | | Call 0x0,0x18
02b5 00d1 | | Pop_Control Pop_Count_1
02b6 00d8 | | Load_Top At_Offset_0
02b7 8019 | | Call 0x0,0x19
02b8 6802 |h | Jump_Zero 0x2bb
02b9 e213 | | Load 0x1,0x13
02ba 0257 | W | Execute Discrete,Raise
02bb 00d8 | | Load_Top At_Offset_0
02bc 801a | | Call 0x0,0x1a
02bd 00d1 | | Pop_Control Pop_Count_1
02be 00d8 | | Load_Top At_Offset_0
02bf 00da | | Load_Top At_Offset_2
02c0 e00b | | Load 0x0,0xb
02c1 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
02c2 801b | | Call 0x0,0x1b
02c3 00d1 | | Pop_Control Pop_Count_1
02c4 00d8 | | Load_Top At_Offset_0
02c5 8216 | | Call 0x1,0x16
02c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d3 | | .CONST 0x02d3 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0004 | | .CONST 0x0004 ; Number of locals
02cb INIT_02c8:
02cb e00b | | Load 0x0,0xb
02cc 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
02cd e002 | | Load 0x0,0x2
02ce 0322 | " | Declare_Variable Record
02cf 00d8 | | Load_Top At_Offset_0
02d0 1c00 | | Execute_Immediate Run_Utility,0x0
02d1 e00b | | Load 0x0,0xb
02d2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02d3 BODY_02c8:
02d3 e00c | | Load 0x0,0xc
02d4 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
02d5 e5ff | | Load 0x2,-0x1
02d6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
02d7 8017 | | Call 0x0,0x17
02d8 e00b | | Load 0x0,0xb
02d9 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
02da e00b | | Load 0x0,0xb
02db 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02dc 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
02dd 00da | | Load_Top At_Offset_2
02de e00b | | Load 0x0,0xb
02df 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
02e0 7002 |p | Jump_Nonzero 0x2e3
02e1 e213 | | Load 0x1,0x13
02e2 0257 | W | Execute Discrete,Raise
02e3 00da | | Load_Top At_Offset_2
02e4 e00b | | Load 0x0,0xb
02e5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02e6 7007 |p | Jump_Nonzero 0x2ee
02e7 00da | | Load_Top At_Offset_2
02e8 e00b | | Load 0x0,0xb
02e9 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
02ea e00b | | Load 0x0,0xb
02eb 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02ec 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02ed 780d |x | Jump 0x2fb
02ee 00da | | Load_Top At_Offset_2
02ef e00b | | Load 0x0,0xb
02f0 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
02f1 e00c | | Load 0x0,0xc
02f2 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
02f3 e402 | | Load 0x2,0x2
02f4 e00b | | Load 0x0,0xb
02f5 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33
02f6 e00c | | Load 0x0,0xc
02f7 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02f8 e00b | | Load 0x0,0xb
02f9 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
02fa 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02fb 00d9 | | Load_Top At_Offset_1
02fc 00d9 | | Load_Top At_Offset_1
02fd 8018 | | Call 0x0,0x18
02fe 00d1 | | Pop_Control Pop_Count_1
02ff 00d9 | | Load_Top At_Offset_1
0300 8019 | | Call 0x0,0x19
0301 6802 |h | Jump_Zero 0x304
0302 e213 | | Load 0x1,0x13
0303 0257 | W | Execute Discrete,Raise
0304 00d9 | | Load_Top At_Offset_1
0305 801a | | Call 0x0,0x1a
0306 00d1 | | Pop_Control Pop_Count_1
0307 00d9 | | Load_Top At_Offset_1
0308 00db | | Load_Top At_Offset_3
0309 e00b | | Load 0x0,0xb
030a 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
030b 801b | | Call 0x0,0x1b
030c 00d1 | | Pop_Control Pop_Count_1
030d 00d9 | | Load_Top At_Offset_1
030e 8216 | | Call 0x1,0x16
030f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 09e0 | | Execute_Immediate Binary_Scale,-0x20
0315 00d8 | | Load_Top At_Offset_0
0316 00e2 | | Load_Encached Integer_Cache
0317 0260 | ` | Execute Discrete,In_Type
0318 7001 |p | Jump_Nonzero 0x31a
0319 0801 | | Execute_Immediate Raise,0x1
031a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 600b |` | Indirect_Literal Discrete,0x330,{0x00000000, 0xffffffff}
0325 0279 | y | Execute Discrete,And
0326 09f9 | | Execute_Immediate Binary_Scale,-0x7
0327 00d8 | | Load_Top At_Offset_0
0328 00e2 | | Load_Encached Integer_Cache
0329 0260 | ` | Execute Discrete,In_Type
032a 7001 |p | Jump_Nonzero 0x32c
032b 0801 | | Execute_Immediate Raise,0x1
032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
0334 0000 0000 | | .BLANK 0000[0x4]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 034b | K | .CONST 0x034b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 000b | | .CONST 0x000b ; Number of locals
033b INIT_0338:
033b 00e1 | | Load_Encached Boolean_Cache
033c 00e3 | | Load_Encached Natural_Cache
033d 00e3 | | Load_Encached Natural_Cache
033e 00e3 | | Load_Encached Natural_Cache
033f e00b | | Load 0x0,0xb
0340 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
0341 e00b | | Load 0x0,0xb
0342 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0343 e00b | | Load 0x0,0xb
0344 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0345 e00b | | Load 0x0,0xb
0346 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0347 e00b | | Load 0x0,0xb
0348 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0349 029f 050b | | Declare_Subprogram INIT_0508,For_Call
034b BODY_0338:
034b e5fe | | Load 0x2,-0x2
034c e00c | | Load 0x0,0xc
034d 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
034e e5fc | | Load 0x2,-0x4
034f e00b | | Load 0x0,0xb
0350 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0351 a405 | | Store_Unchecked 0x2,0x5
0352 00e3 | | Load_Encached Natural_Cache
0353 e00b | | Load 0x0,0xb
0354 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0355 840b | | Call 0x2,0xb
0356 c409 | | Store 0x2,0x9
0357 c404 | | Store 0x2,0x4
0358 4800 |H | Short_Literal 0x0
0359 a402 | | Store_Unchecked 0x2,0x2
035a 00cf | | Action Mark_Auxiliary
035b 00cf | | Action Mark_Auxiliary
035c 00e3 | | Load_Encached Natural_Cache
035d e00b | | Load 0x0,0xb
035e 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
035f 840b | | Call 0x2,0xb
0360 c407 | | Store 0x2,0x7
0361 c403 | | Store 0x2,0x3
0362 e406 | | Load 0x2,0x6
0363 6813 |h | Jump_Zero 0x377
0364 e406 | | Load 0x2,0x6
0365 0f02 | | Execute_Immediate Equal,0x2
0366 680b |h | Jump_Zero 0x372
0367 e407 | | Load 0x2,0x7
0368 e409 | | Load 0x2,0x9
0369 027f | | Execute Discrete,Equal
036a 6807 |h | Jump_Zero 0x372
036b e5fd | | Load 0x2,-0x3
036c e403 | | Load 0x2,0x3
036d 027f | | Execute Discrete,Equal
036e 6803 |h | Jump_Zero 0x372
036f 4801 |H | Short_Literal 0x1
0370 a402 | | Store_Unchecked 0x2,0x2
0371 7805 |x | Jump 0x377
0372 e405 | | Load 0x2,0x5
0373 0a01 | | Execute_Immediate Plus,0x1
0374 c405 | | Store 0x2,0x5
0375 00c9 | | Action Pop_Auxiliary_Loop
0376 7fe5 | | Jump 0x35c
0377 00ce | | Action Pop_Auxiliary
0378 e402 | | Load 0x2,0x2
0379 7002 |p | Jump_Nonzero 0x37c
037a e212 | | Load 0x1,0x12
037b 0257 | W | Execute Discrete,Raise
037c 00ce | | Action Pop_Auxiliary
037d 00d9 | | Load_Top At_Offset_1
037e a5fb | | Store_Unchecked 0x2,-0x5
037f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 03a8 | | .CONST 0x03a8 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 000e | | .CONST 0x000e ; Number of locals
0383 INIT_0380:
0383 e00b | | Load 0x0,0xb
0384 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0385 02c7 | | Declare_Variable Any
0386 00d8 | | Load_Top At_Offset_0
0387 1c00 | | Execute_Immediate Run_Utility,0x0
0388 e00b | | Load 0x0,0xb
0389 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
038a 0322 | " | Declare_Variable Record
038b e00b | | Load 0x0,0xb
038c 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
038d 0322 | " | Declare_Variable Record
038e e00b | | Load 0x0,0xb
038f 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
0390 e00b | | Load 0x0,0xb
0391 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0392 e00b | | Load 0x0,0xb
0393 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0394 e00b | | Load 0x0,0xb
0395 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0396 e00b | | Load 0x0,0xb
0397 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0398 02c7 | | Declare_Variable Any
0399 00d8 | | Load_Top At_Offset_0
039a 1c00 | | Execute_Immediate Run_Utility,0x0
039b 00e2 | | Load_Encached Integer_Cache
039c e002 | | Load 0x0,0x2
039d 0322 | " | Declare_Variable Record
039e 00d8 | | Load_Top At_Offset_0
039f 1c00 | | Execute_Immediate Run_Utility,0x0
03a0 e5ff | | Load 0x2,-0x1
03a1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a2 801c | | Call 0x0,0x1c
03a3 00e3 | | Load_Encached Natural_Cache
03a4 03f1 | | Declare_Variable Discrete,With_Value
03a5 00e1 | | Load_Encached Boolean_Cache
03a6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
03a7 00e2 | | Load_Encached Integer_Cache
03a8 BODY_0380:
03a8 e5ff | | Load 0x2,-0x1
03a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03aa 8017 | | Call 0x0,0x17
03ab c409 | | Store 0x2,0x9
03ac e409 | | Load 0x2,0x9
03ad e00b | | Load 0x0,0xb
03ae 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
03af a405 | | Store_Unchecked 0x2,0x5
03b0 e405 | | Load 0x2,0x5
03b1 e00c | | Load 0x0,0xc
03b2 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03b3 c402 | | Store 0x2,0x2
03b4 e00b | | Load 0x0,0xb
03b5 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
03b6 e402 | | Load 0x2,0x2
03b7 e40c | | Load 0x2,0xc
03b8 e409 | | Load 0x2,0x9
03b9 e405 | | Load 0x2,0x5
03ba 8222 | " | Call 0x1,0x22
03bb c402 | | Store 0x2,0x2
03bc c408 | | Store 0x2,0x8
03bd e408 | | Load 0x2,0x8
03be e00b | | Load 0x0,0xb
03bf 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03c0 a406 | | Store_Unchecked 0x2,0x6
03c1 e406 | | Load 0x2,0x6
03c2 0aff | | Execute_Immediate Plus,-0x1
03c3 e00b | | Load 0x0,0xb
03c4 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
03c5 00d9 | | Load_Top At_Offset_1
03c6 00d0 | | Action Swap_Control
03c7 0260 | ` | Execute Discrete,In_Type
03c8 7001 |p | Jump_Nonzero 0x3ca
03c9 0801 | | Execute_Immediate Raise,0x1
03ca e402 | | Load 0x2,0x2
03cb e00b | | Load 0x0,0xb
03cc 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
03cd e403 | | Load 0x2,0x3
03ce 017d | } | Execute Record,Structure_Write
03cf e403 | | Load 0x2,0x3
03d0 e00b | | Load 0x0,0xb
03d1 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
03d2 0f0a | | Execute_Immediate Equal,0xa
03d3 7002 |p | Jump_Nonzero 0x3d6
03d4 e211 | | Load 0x1,0x11
03d5 0257 | W | Execute Discrete,Raise
03d6 e403 | | Load 0x2,0x3
03d7 e00b | | Load 0x0,0xb
03d8 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
03d9 8220 | | Call 0x1,0x20
03da 00d8 | | Load_Top At_Offset_0
03db e00d | | Load 0x0,0xd
03dc 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03dd 0260 | ` | Execute Discrete,In_Type
03de 7001 |p | Jump_Nonzero 0x3e0
03df 0801 | | Execute_Immediate Raise,0x1
03e0 a405 | | Store_Unchecked 0x2,0x5
03e1 e403 | | Load 0x2,0x3
03e2 e00b | | Load 0x0,0xb
03e3 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
03e4 8221 | ! | Call 0x1,0x21
03e5 c406 | | Store 0x2,0x6
03e6 4800 |H | Short_Literal 0x0
03e7 e406 | | Load 0x2,0x6
03e8 e405 | | Load 0x2,0x5
03e9 e00c | | Load 0x0,0xc
03ea 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03eb e00b | | Load 0x0,0xb
03ec 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
03ed e00b | | Load 0x0,0xb
03ee 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
03ef e00c | | Load 0x0,0xc
03f0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03f1 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
03f2 00d9 | | Load_Top At_Offset_1
03f3 6803 |h | Jump_Zero 0x3f7
03f4 4801 |H | Short_Literal 0x1
03f5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03f6 7802 |x | Jump 0x3f9
03f7 4802 |H | Short_Literal 0x2
03f8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
03f9 e406 | | Load 0x2,0x6
03fa 00d9 | | Load_Top At_Offset_1
03fb 0273 | s | Execute Discrete,Plus
03fc e00b | | Load 0x0,0xb
03fd 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
03fe 00d9 | | Load_Top At_Offset_1
03ff 00d0 | | Action Swap_Control
0400 0260 | ` | Execute Discrete,In_Type
0401 7001 |p | Jump_Nonzero 0x403
0402 0801 | | Execute_Immediate Raise,0x1
0403 e405 | | Load 0x2,0x5
0404 e00c | | Load 0x0,0xc
0405 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0406 e00b | | Load 0x0,0xb
0407 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0408 e404 | | Load 0x2,0x4
0409 017d | } | Execute Record,Structure_Write
040a e404 | | Load 0x2,0x4
040b e00b | | Load 0x0,0xb
040c 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
040d 7045 |pE | Jump_Nonzero 0x453
040e e404 | | Load 0x2,0x4
040f e00b | | Load 0x0,0xb
0410 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0411 700c |p | Jump_Nonzero 0x41e
0412 e405 | | Load 0x2,0x5
0413 e00b | | Load 0x0,0xb
0414 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0415 a407 | | Store_Unchecked 0x2,0x7
0416 4800 |H | Short_Literal 0x0
0417 e405 | | Load 0x2,0x5
0418 e00b | | Load 0x0,0xb
0419 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
041a e00b | | Load 0x0,0xb
041b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
041c c409 | | Store 0x2,0x9
041d 7822 |x" | Jump 0x440
041e e406 | | Load 0x2,0x6
041f 00d9 | | Load_Top At_Offset_1
0420 0273 | s | Execute Discrete,Plus
0421 e404 | | Load 0x2,0x4
0422 e00b | | Load 0x0,0xb
0423 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0424 00d8 | | Load_Top At_Offset_0
0425 00e2 | | Load_Encached Integer_Cache
0426 0260 | ` | Execute Discrete,In_Type
0427 7001 |p | Jump_Nonzero 0x429
0428 0801 | | Execute_Immediate Raise,0x1
0429 0272 | r | Execute Discrete,Minus
042a c40a | | Store 0x2,0xa
042b e40a | | Load 0x2,0xa
042c e00b | | Load 0x0,0xb
042d 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
042e 00d9 | | Load_Top At_Offset_1
042f 00d0 | | Action Swap_Control
0430 0260 | ` | Execute Discrete,In_Type
0431 7001 |p | Jump_Nonzero 0x433
0432 0801 | | Execute_Immediate Raise,0x1
0433 e405 | | Load 0x2,0x5
0434 e00b | | Load 0x0,0xb
0435 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0436 e00b | | Load 0x0,0xb
0437 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0438 c409 | | Store 0x2,0x9
0439 e409 | | Load 0x2,0x9
043a e00c | | Load 0x0,0xc
043b 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
043c e402 | | Load 0x2,0x2
043d e00b | | Load 0x0,0xb
043e 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
043f a407 | | Store_Unchecked 0x2,0x7
0440 00db | | Load_Top At_Offset_3
0441 e407 | | Load 0x2,0x7
0442 8018 | | Call 0x0,0x18
0443 00d1 | | Pop_Control Pop_Count_1
0444 00db | | Load_Top At_Offset_3
0445 8019 | | Call 0x0,0x19
0446 6802 |h | Jump_Zero 0x449
0447 e213 | | Load 0x1,0x13
0448 0257 | W | Execute Discrete,Raise
0449 00db | | Load_Top At_Offset_3
044a 801a | | Call 0x0,0x1a
044b 00d1 | | Pop_Control Pop_Count_1
044c 00db | | Load_Top At_Offset_3
044d e409 | | Load 0x2,0x9
044e 801b | | Call 0x0,0x1b
044f 00d1 | | Pop_Control Pop_Count_1
0450 00db | | Load_Top At_Offset_3
0451 8216 | | Call 0x1,0x16
0452 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0453 e211 | | Load 0x1,0x11
0454 0257 | W | Execute Discrete,Raise
0455 0000 0000 | | .XXX[0x3]
0457 0000 | |
0458 ; --------------------------------------------------------------------------------------
0458 ; SUBPROGRAM
0458 ; --------------------------------------------------------------------------------------
0458 0467 | g | .CONST 0x0467 ; Address of begin
0459 0004 | | .CONST 0x0004 ; Address of exception handler
045a 0005 | | .CONST 0x0005 ; Number of locals
045b INIT_0458:
045b e00b | | Load 0x0,0xb
045c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
045d 02c7 | | Declare_Variable Any
045e 00d8 | | Load_Top At_Offset_0
045f 1c00 | | Execute_Immediate Run_Utility,0x0
0460 e00b | | Load 0x0,0xb
0461 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0462 0322 | " | Declare_Variable Record
0463 00e5 | | Load_Encached Long_Integer_Cache
0464 e00b | | Load 0x0,0xb
0465 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
0466 0322 | " | Declare_Variable Record
0467 BODY_0458:
0467 e00c | | Load 0x0,0xc
0468 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0469 e5ff | | Load 0x2,-0x1
046a e00b | | Load 0x0,0xb
046b 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
046c c402 | | Store 0x2,0x2
046d 480d |H | Short_Literal 0xd
046e e402 | | Load 0x2,0x2
046f e00b | | Load 0x0,0xb
0470 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0471 00db | | Load_Top At_Offset_3
0472 017d | } | Execute Record,Structure_Write
0473 00da | | Load_Top At_Offset_2
0474 e00b | | Load 0x0,0xb
0475 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0476 6802 |h | Jump_Zero 0x479
0477 e211 | | Load 0x1,0x11
0478 0257 | W | Execute Discrete,Raise
0479 00da | | Load_Top At_Offset_2
047a e00b | | Load 0x0,0xb
047b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
047c 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
047d 4800 |H | Short_Literal 0x0
047e 00da | | Load_Top At_Offset_2
047f e00c | | Load 0x0,0xc
0480 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0481 7012 |p | Jump_Nonzero 0x494
0482 480e |H | Short_Literal 0xe
0483 e402 | | Load 0x2,0x2
0484 e00b | | Load 0x0,0xb
0485 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0486 00d9 | | Load_Top At_Offset_1
0487 017d | } | Execute Record,Structure_Write
0488 00d8 | | Load_Top At_Offset_0
0489 e00b | | Load 0x0,0xb
048a 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
048b 6802 |h | Jump_Zero 0x48e
048c e211 | | Load 0x1,0x11
048d 0257 | W | Execute Discrete,Raise
048e 00d8 | | Load_Top At_Offset_0
048f e00b | | Load 0x0,0xb
0490 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0491 00da | | Load_Top At_Offset_2
0492 8217 | | Call 0x1,0x17
0493 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0494 00d9 | | Load_Top At_Offset_1
0495 8218 | | Call 0x1,0x18
0496 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0497 0000 | | .XXX[0x1]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 00da | | Load_Top At_Offset_2
049c 801c | | Call 0x0,0x1c
049d 00db | | Load_Top At_Offset_3
049e 8017 | | Call 0x0,0x17
049f 8210 | | Call 0x1,0x10
04a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04a1 0000 0000 | | .BLANK 0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; SUBPROGRAM
04a8 ; --------------------------------------------------------------------------------------
04a8 04ab | | .CONST 0x04ab ; Address of begin
04a9 0004 | | .CONST 0x0004 ; Address of exception handler
04aa 0001 | | .CONST 0x0001 ; Number of locals
04ab BODY_04a8:
04ab INIT_04a8:
04ab 00db | | Load_Top At_Offset_3
04ac 00db | | Load_Top At_Offset_3
04ad 801d | | Call 0x0,0x1d
04ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04af 0000 | | .XXX[0x1]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 00da | | Load_Top At_Offset_2
04b4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
04b6 0000 0000 | | .XXX[0x2]
04b8 ; --------------------------------------------------------------------------------------
04b8 ; SUBPROGRAM
04b8 ; --------------------------------------------------------------------------------------
04b8 04bd | | .CONST 0x04bd ; Address of begin
04b9 0004 | | .CONST 0x0004 ; Address of exception handler
04ba 0002 | | .CONST 0x0002 ; Number of locals
04bb INIT_04b8:
04bb e011 | | Load 0x0,0x11
04bc 0322 | " | Declare_Variable Record
04bd BODY_04b8:
04bd 00db | | Load_Top At_Offset_3
04be 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04bf 8006 | | Call 0x0,0x6
04c0 681a |h | Jump_Zero 0x4db
04c1 00db | | Load_Top At_Offset_3
04c2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04c3 8219 | | Call 0x1,0x19
04c4 6805 |h | Jump_Zero 0x4ca
04c5 00db | | Load_Top At_Offset_3
04c6 821e | | Call 0x1,0x1e
04c7 e5fd | | Load 0x2,-0x3
04c8 017d | } | Execute Record,Structure_Write
04c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04ca 00db | | Load_Top At_Offset_3
04cb 821f | | Call 0x1,0x1f
04cc e5fd | | Load 0x2,-0x3
04cd 017d | } | Execute Record,Structure_Write
04ce 00db | | Load_Top At_Offset_3
04cf 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04d0 8017 | | Call 0x0,0x17
04d1 e00b | | Load 0x0,0xb
04d2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
04d3 8224 | $ | Call 0x1,0x24
04d4 00d9 | | Load_Top At_Offset_1
04d5 017d | } | Execute Record,Structure_Write
04d6 e5fe | | Load 0x2,-0x2
04d7 00d9 | | Load_Top At_Offset_1
04d8 8226 | & | Call 0x1,0x26
04d9 00d1 | | Pop_Control Pop_Count_1
04da 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04db 00db | | Load_Top At_Offset_3
04dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04dd 821a | | Call 0x1,0x1a
04de 6802 |h | Jump_Zero 0x4e1
04df e20d | | Load 0x1,0xd
04e0 0257 | W | Execute Discrete,Raise
04e1 00db | | Load_Top At_Offset_3
04e2 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04e3 821b | | Call 0x1,0x1b
04e4 680e |h | Jump_Zero 0x4f3
04e5 00db | | Load_Top At_Offset_3
04e6 8223 | # | Call 0x1,0x23
04e7 e5fd | | Load 0x2,-0x3
04e8 017d | } | Execute Record,Structure_Write
04e9 00db | | Load_Top At_Offset_3
04ea 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04eb 8225 | % | Call 0x1,0x25
04ec 00d9 | | Load_Top At_Offset_1
04ed 017d | } | Execute Record,Structure_Write
04ee e5fe | | Load 0x2,-0x2
04ef 00d9 | | Load_Top At_Offset_1
04f0 8226 | & | Call 0x1,0x26
04f1 00d1 | | Pop_Control Pop_Count_1
04f2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04f3 00db | | Load_Top At_Offset_3
04f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04f5 821c | | Call 0x1,0x1c
04f6 6805 |h | Jump_Zero 0x4fc
04f7 00db | | Load_Top At_Offset_3
04f8 821e | | Call 0x1,0x1e
04f9 e5fd | | Load 0x2,-0x3
04fa 017d | } | Execute Record,Structure_Write
04fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04fc 00db | | Load_Top At_Offset_3
04fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04fe 821d | | Call 0x1,0x1d
04ff 6805 |h | Jump_Zero 0x505
0500 00db | | Load_Top At_Offset_3
0501 821f | | Call 0x1,0x1f
0502 e5fd | | Load 0x2,-0x3
0503 017d | } | Execute Record,Structure_Write
0504 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0505 e20d | | Load 0x1,0xd
0506 0257 | W | Execute Discrete,Raise
0507 0000 | | .XXX[0x1]
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b e00b | | Load 0x0,0xb
050c 1b51 | Q | Execute Package,Field_Read,Field_Number 0x51
050d 00e3 | | Load_Encached Natural_Cache
050e e00b | | Load 0x0,0xb
050f 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0510 e00b | | Load 0x0,0xb
0511 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0512 e00b | | Load 0x0,0xb
0513 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
0514 e405 | | Load 0x2,0x5
0515 e00c | | Load 0x0,0xc
0516 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0517 e5fc | | Load 0x2,-0x4
0518 e00b | | Load 0x0,0xb
0519 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
051a c40a | | Store 0x2,0xa
051b c408 | | Store 0x2,0x8
051c c7ff | | Store 0x3,-0x1
051d c7fe | | Store 0x3,-0x2
051e c406 | | Store 0x2,0x6
051f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0520 ; --------------------------------------------------------------------------------------
0520 ; STRING TABLE
0520 ; --------------------------------------------------------------------------------------
0520 0006 | | .STRTAB 0x0006->0x0523 ; "Context:["
0521 000d | | .STRTAB 0x000d->0x0527 ; "]"
0522 000c | | .STREND 0x000c->0x0528
0523 436f 6e74 |Cont| .STRTAB_STRINGS
0528 ; --------------------------------------------------------------------------------------
0528 ; Debug Table
0528 ; --------------------------------------------------------------------------------------
0528 0004 0007 | | .DEBUG4 0x0004,0x0007,0x8196,0x0000,0x0001,0x0000
052e 770c 8000 |w | .XXX[0x1b]
0530 0007 a400 | |
0532 0040 0300 | @ |
0534 0234 0000 | 4 |
0536 0004 1a00 | |
0538 0008 0000 | |
053a 000c 00a0 | |
053c 0000 0020 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0148 | H|
0546 0000 406e | @n|
0548 8d00 | |
0549 0000 0000 | | .BLANK 0000[0x1d]
0566 0024 0ee1 | $ | .XXX[0x19]
0568 9800 0000 | |
056a f480 0008 | |
056c 0060 0046 | ` F|
056e 8000 0000 | |
0570 81a0 0001 | |
0572 0000 0001 | |
0574 8014 0000 | |
0576 0004 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0xb]
058a 0001 0000 | | .XXX[0x4]
058c 080d d0f4 | |
058e 0000 0000 | | .BLANK 0000[0x11]
059f 0004 81dc | | .XXX[0x1d]
05a1 3400 0000 |4 |
05a3 1e90 0001 | |
05a5 000c 0008 | |
05a7 d000 0000 | |
05a9 1074 0000 | t |
05ab 2000 0000 | |
05ad 3002 8000 |0 |
05af 0000 8000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 2000 | |
05b9 0101 ba3a | :|
05bb 8000 | |
05bc 0000 0000 | | .BLANK 0000[0x44]