|
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: 5120 (0x1400)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0860 | ` | .CONST 0x0860 ; 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 8006 | | .CONST 0x8006 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 016c | l | .CONST 0x016c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 005b | [ | .CONST 0x005b ; Number of locals
000b INIT_0008:
000b 00ec | | Load_Encached Diana_Tree_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 00e2 | | Load_Encached Integer_Cache
000e 0129 | ) | Execute Any,Make_Visible
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0016 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0018 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
001a 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
001c 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
001e 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
0020 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0022 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0024 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0026 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0028 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
002a 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
002c 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
002e 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0030 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0032 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0034 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0036 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0038 029a 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call,Visible,Unelaborated
003a 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
003c 029a 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call,Visible,Unelaborated
003e 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0040 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0042 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
0044 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0046 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0048 029a 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call,Visible,Unelaborated
004a 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
004c 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
004e 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0050 029a 03cb | | Declare_Subprogram INIT_03c8,For_Outer_Call,Visible,Unelaborated
0052 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
0054 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
0056 029a 040b | | Declare_Subprogram INIT_0408,For_Outer_Call,Visible,Unelaborated
0058 029a 0423 | #| Declare_Subprogram INIT_0420,For_Outer_Call,Visible,Unelaborated
005a 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
005c 029a 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call,Visible,Unelaborated
005e 029a 0463 | c| Declare_Subprogram INIT_0460,For_Outer_Call,Visible,Unelaborated
0060 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
0062 029a 04eb | | Declare_Subprogram INIT_04e8,For_Outer_Call,Visible,Unelaborated
0064 029a 04fb | | Declare_Subprogram INIT_04f8,For_Outer_Call,Visible,Unelaborated
0066 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
0068 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
006a 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated
006c 029a 0553 | S| Declare_Subprogram INIT_0550,For_Outer_Call,Visible,Unelaborated
006e 0093 0000 | | push_full_address 0x0
0070 611b |a | Indirect_Literal Discrete,0x18c,{0x80000000, 0x00010000}
0071 0273 | s | Execute Discrete,Plus
0072 0129 | ) | Execute Any,Make_Visible
0073 0093 0000 | | push_full_address 0x0
0075 6112 |a | Indirect_Literal Discrete,0x188,{0x80000000, 0x00020000}
0076 0273 | s | Execute Discrete,Plus
0077 0129 | ) | Execute Any,Make_Visible
0078 0093 0000 | | push_full_address 0x0
007a 6109 |a | Indirect_Literal Discrete,0x184,{0x80000000, 0x00030000}
007b 0273 | s | Execute Discrete,Plus
007c 0129 | ) | Execute Any,Make_Visible
007d 0093 0000 | | push_full_address 0x0
007f 6100 |a | Indirect_Literal Discrete,0x180,{0x80000000, 0x00040000}
0080 0273 | s | Execute Discrete,Plus
0081 0129 | ) | Execute Any,Make_Visible
0082 0093 0000 | | push_full_address 0x0
0084 60f7 |` | Indirect_Literal Discrete,0x17c,{0x80000000, 0x00050000}
0085 0273 | s | Execute Discrete,Plus
0086 0129 | ) | Execute Any,Make_Visible
0087 029a 0573 | s| Declare_Subprogram INIT_0570,For_Outer_Call,Visible,Unelaborated
0089 029a 057b | {| Declare_Subprogram INIT_0578,For_Outer_Call,Visible,Unelaborated
008b 029a 05a3 | | Declare_Subprogram INIT_05a0,For_Outer_Call,Visible,Unelaborated
008d 029a 05bb | | Declare_Subprogram INIT_05b8,For_Outer_Call,Visible,Unelaborated
008f 029a 05cb | | Declare_Subprogram INIT_05c8,For_Outer_Call,Visible,Unelaborated
0091 029a 0653 | S| Declare_Subprogram INIT_0650,For_Outer_Call,Visible,Unelaborated
0093 029a 06db | | Declare_Subprogram INIT_06d8,For_Outer_Call,Visible,Unelaborated
0095 0093 0000 | | push_full_address 0x0
0097 60e0 |` | Indirect_Literal Discrete,0x178,{0x80000000, 0x00060000}
0098 0273 | s | Execute Discrete,Plus
0099 0129 | ) | Execute Any,Make_Visible
009a 00e3 | | Load_Encached Natural_Cache
009b e002 | | Load 0x0,0x2
009c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009d 00e4 | | Load_Encached Positive_Cache
009e 02a0 | | Declare_Subprogram Null_Subprogram
009f 4803 |H | Short_Literal 0x3
00a0 032e | . | Declare_Type Record,Defined,Visible
00a1 00d8 | | Load_Top At_Offset_0
00a2 0322 | " | Declare_Variable Record
00a3 4800 |H | Short_Literal 0x0
00a4 00d9 | | Load_Top At_Offset_1
00a5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a6 4800 |H | Short_Literal 0x0
00a7 00d9 | | Load_Top At_Offset_1
00a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a9 4801 |H | Short_Literal 0x1
00aa 00d9 | | Load_Top At_Offset_1
00ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ac 0129 | ) | Execute Any,Make_Visible
00ad c212 | | Store 0x1,0x12
00ae 00eb | | Load_Encached Diana_Cache
00af 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b0 0129 | ) | Execute Any,Make_Visible
00b1 c210 | | Store 0x1,0x10
00b2 00e4 | | Load_Encached Positive_Cache
00b3 0266 | f | Execute Discrete,Bounds
00b4 e20d | | Load 0x1,0xd
00b5 02a0 | | Declare_Subprogram Null_Subprogram
00b6 4801 |H | Short_Literal 0x1
00b7 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
00b8 e003 | | Load 0x0,0x3
00b9 e004 | | Load 0x0,0x4
00ba e20d | | Load 0x1,0xd
00bb 00db | | Load_Top At_Offset_3
00bc e210 | | Load 0x1,0x10
00bd 4900 |I | Short_Literal 0x100
00be e005 | | Load 0x0,0x5
00bf 0386 | | Declare_Variable Package,Visible
00c0 00d8 | | Load_Top At_Offset_0
00c1 020f | | Execute Module,Activate
00c2 4805 |H | Short_Literal 0x5
00c3 00d9 | | Load_Top At_Offset_1
00c4 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00c5 1c07 | | Execute_Immediate Run_Utility,0x7
00c6 0129 | ) | Execute Any,Make_Visible
00c7 029f 081b | | Declare_Subprogram INIT_0818,For_Call
00c9 4801 |H | Short_Literal 0x1
00ca 032e | . | Declare_Type Record,Defined,Visible
00cb 00d8 | | Load_Top At_Offset_0
00cc 0321 | ! | Declare_Variable Record,Visible
00cd 00d8 | | Load_Top At_Offset_0
00ce 1c00 | | Execute_Immediate Run_Utility,0x0
00cf 00d8 | | Load_Top At_Offset_0
00d0 0320 | | Declare_Variable Record,Duplicate
00d1 00cd | | Action Spare6_Action
00d2 0129 | ) | Execute Any,Make_Visible
00d3 c20f | | Store 0x1,0xf
00d4 00e4 | | Load_Encached Positive_Cache
00d5 0266 | f | Execute Discrete,Bounds
00d6 e24e | N | Load 0x1,0x4e
00d7 02a0 | | Declare_Subprogram Null_Subprogram
00d8 4801 |H | Short_Literal 0x1
00d9 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
00da e006 | | Load 0x0,0x6
00db e007 | | Load 0x0,0x7
00dc e24e | N | Load 0x1,0x4e
00dd 00db | | Load_Top At_Offset_3
00de e212 | | Load 0x1,0x12
00df 4900 |I | Short_Literal 0x100
00e0 e005 | | Load 0x0,0x5
00e1 0386 | | Declare_Variable Package,Visible
00e2 00d8 | | Load_Top At_Offset_0
00e3 020f | | Execute Module,Activate
00e4 4808 |H | Short_Literal 0x8
00e5 00d9 | | Load_Top At_Offset_1
00e6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00e7 1c07 | | Execute_Immediate Run_Utility,0x7
00e8 0129 | ) | Execute Any,Make_Visible
00e9 029f 0833 | 3| Declare_Subprogram INIT_0830,For_Call
00eb 4801 |H | Short_Literal 0x1
00ec 032e | . | Declare_Type Record,Defined,Visible
00ed 00d8 | | Load_Top At_Offset_0
00ee 0321 | ! | Declare_Variable Record,Visible
00ef 00d8 | | Load_Top At_Offset_0
00f0 1c00 | | Execute_Immediate Run_Utility,0x0
00f1 00d8 | | Load_Top At_Offset_0
00f2 0320 | | Declare_Variable Record,Duplicate
00f3 00cd | | Action Spare6_Action
00f4 0129 | ) | Execute Any,Make_Visible
00f5 c213 | | Store 0x1,0x13
00f6 4800 |H | Short_Literal 0x0
00f7 0129 | ) | Execute Any,Make_Visible
00f8 c211 | | Store 0x1,0x11
00f9 00bf | | Action Accept_Activation
00fa 0092 0841 | A| Action Push_String_Extended,0x841 ; "END"
00fc 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00fd 00c7 | | Action Elaborate_Subprogram
00fe 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ff 00c7 | | Action Elaborate_Subprogram
0100 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0101 00c7 | | Action Elaborate_Subprogram
0102 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0103 00c7 | | Action Elaborate_Subprogram
0104 029d 06f3 | | Declare_Subprogram INIT_06f0,For_Outer_Call
0106 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0107 00c7 | | Action Elaborate_Subprogram
0108 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0109 00c7 | | Action Elaborate_Subprogram
010a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
010b 00c7 | | Action Elaborate_Subprogram
010c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
010d 00c7 | | Action Elaborate_Subprogram
010e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
010f 00c7 | | Action Elaborate_Subprogram
0110 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0111 00c7 | | Action Elaborate_Subprogram
0112 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0113 00c7 | | Action Elaborate_Subprogram
0114 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0115 00c7 | | Action Elaborate_Subprogram
0116 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0117 00c7 | | Action Elaborate_Subprogram
0118 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0119 00c7 | | Action Elaborate_Subprogram
011a 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
011b 00c7 | | Action Elaborate_Subprogram
011c 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
011d 00c7 | | Action Elaborate_Subprogram
011e 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
011f 00c7 | | Action Elaborate_Subprogram
0120 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0121 00c7 | | Action Elaborate_Subprogram
0122 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0123 00c7 | | Action Elaborate_Subprogram
0124 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0125 00c7 | | Action Elaborate_Subprogram
0126 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
0127 00c7 | | Action Elaborate_Subprogram
0128 029d 0703 | | Declare_Subprogram INIT_0700,For_Outer_Call
012a 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
012b 00c7 | | Action Elaborate_Subprogram
012c 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
012d 00c7 | | Action Elaborate_Subprogram
012e 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
012f 00c7 | | Action Elaborate_Subprogram
0130 1d2c | , | Execute_Immediate Reference_Lex_1,0x2c
0131 00c7 | | Action Elaborate_Subprogram
0132 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d
0133 00c7 | | Action Elaborate_Subprogram
0134 029d 0763 | c| Declare_Subprogram INIT_0760,For_Outer_Call
0136 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e
0137 00c7 | | Action Elaborate_Subprogram
0138 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0139 00c7 | | Action Elaborate_Subprogram
013a 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
013b 00c7 | | Action Elaborate_Subprogram
013c 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
013d 00c7 | | Action Elaborate_Subprogram
013e 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
013f 00c7 | | Action Elaborate_Subprogram
0140 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0141 00c7 | | Action Elaborate_Subprogram
0142 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
0143 00c7 | | Action Elaborate_Subprogram
0144 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
0145 00c7 | | Action Elaborate_Subprogram
0146 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
0147 00c7 | | Action Elaborate_Subprogram
0148 1d3b | ; | Execute_Immediate Reference_Lex_1,0x3b
0149 00c7 | | Action Elaborate_Subprogram
014a 1d3c | < | Execute_Immediate Reference_Lex_1,0x3c
014b 00c7 | | Action Elaborate_Subprogram
014c 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
014d 00c7 | | Action Elaborate_Subprogram
014e 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38
014f 00c7 | | Action Elaborate_Subprogram
0150 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
0151 00c7 | | Action Elaborate_Subprogram
0152 1d3a | : | Execute_Immediate Reference_Lex_1,0x3a
0153 00c7 | | Action Elaborate_Subprogram
0154 1d3d | = | Execute_Immediate Reference_Lex_1,0x3d
0155 00c7 | | Action Elaborate_Subprogram
0156 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0157 00c7 | | Action Elaborate_Subprogram
0158 1d40 | @ | Execute_Immediate Reference_Lex_1,0x40
0159 00c7 | | Action Elaborate_Subprogram
015a 1d3f | ? | Execute_Immediate Reference_Lex_1,0x3f
015b 00c7 | | Action Elaborate_Subprogram
015c 1d49 | I | Execute_Immediate Reference_Lex_1,0x49
015d 00c7 | | Action Elaborate_Subprogram
015e 1d47 | G | Execute_Immediate Reference_Lex_1,0x47
015f 00c7 | | Action Elaborate_Subprogram
0160 1d48 | H | Execute_Immediate Reference_Lex_1,0x48
0161 00c7 | | Action Elaborate_Subprogram
0162 1d4a | J | Execute_Immediate Reference_Lex_1,0x4a
0163 00c7 | | Action Elaborate_Subprogram
0164 029d 0783 | | Declare_Subprogram INIT_0780,For_Outer_Call
0166 1d4b | K | Execute_Immediate Reference_Lex_1,0x4b
0167 00c7 | | Action Elaborate_Subprogram
0168 1d4c | L | Execute_Immediate Reference_Lex_1,0x4c
0169 00c7 | | Action Elaborate_Subprogram
016a 1d46 | F | Execute_Immediate Reference_Lex_1,0x46
016b 00c7 | | Action Elaborate_Subprogram
016c BODY_0008:
016c 00bc | | Action Signal_Activated
016d 00bb | | Action Signal_Completion
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 00eb | | Load_Encached Diana_Cache
0175 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0176 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0177 0000 | | .XXX[0x1]
0178 8000 0000 | | .LITERAL {0x80000000, 0x00060000}
017c 8000 0000 | | .LITERAL {0x80000000, 0x00050000}
0180 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0184 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
0188 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
018c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 00da | | Load_Top At_Offset_2
0194 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0195 e250 | P | Load 0x1,0x50
0196 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0197 0f00 | | Execute_Immediate Equal,0x0
0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 0f00 | | Execute_Immediate Equal,0x0
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 0000 0000 | | .XXX[0x2]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac e212 | | Load 0x1,0x12
01ad 017f | | Execute Record,Equal
01ae 7005 |p | Jump_Nonzero 0x1b4
01af 00da | | Load_Top At_Offset_2
01b0 8258 | X | Call 0x1,0x58
01b1 8008 | | Call 0x0,0x8
01b2 017f | | Execute Record,Equal
01b3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b4 4801 |H | Short_Literal 0x1
01b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b6 0000 0000 | | .XXX[0x2]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01bd e254 | T | Load 0x1,0x54
01be 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01bf 0f00 | | Execute_Immediate Equal,0x0
01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c1 0000 0000 | | .BLANK 0000[0x7]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01cd e250 | P | Load 0x1,0x50
01ce 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01cf e5fe | | Load 0x2,-0x2
01d0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d1 e250 | P | Load 0x1,0x50
01d2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01d3 027f | | Execute Discrete,Equal
01d4 681b |h | Jump_Zero 0x1f0
01d5 00cf | | Action Mark_Auxiliary
01d6 00db | | Load_Top At_Offset_3
01d7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01d8 e250 | P | Load 0x1,0x50
01d9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01da 4801 |H | Short_Literal 0x1
01db 0263 | c | Execute Discrete,Above_Bound
01dc 7010 |p | Jump_Nonzero 0x1ed
01dd 00d8 | | Load_Top At_Offset_0
01de e5ff | | Load 0x2,-0x1
01df 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e0 e250 | P | Load 0x1,0x50
01e1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01e2 00d9 | | Load_Top At_Offset_1
01e3 e5fe | | Load 0x2,-0x2
01e4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01e5 e250 | P | Load 0x1,0x50
01e6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
01e7 021e | | Execute Heap_Access,Maximum
01e8 6802 |h | Jump_Zero 0x1eb
01e9 4800 |H | Short_Literal 0x0
01ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01eb 00c8 | | Action Pop_Auxiliary_Range
01ec 3ff0 |? | Loop_Increasing 0x1dd
01ed 00ce | | Action Pop_Auxiliary
01ee 4801 |H | Short_Literal 0x1
01ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f0 4800 |H | Short_Literal 0x0
01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f2 0000 0000 | | .BLANK 0000[0x6]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc e5fe | | Load 0x2,-0x2
01fd 021f | | Execute Heap_Access,Equal
01fe 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0209 | | .CONST 0x0209 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0002 | | .CONST 0x0002 ; Number of locals
0203 INIT_0200:
0203 00da | | Load_Top At_Offset_2
0204 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0205 e254 | T | Load 0x1,0x54
0206 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0207 00e3 | | Load_Encached Natural_Cache
0208 03f1 | | Declare_Variable Discrete,With_Value
0209 BODY_0200:
0209 00d8 | | Load_Top At_Offset_0
020a e5fe | | Load 0x2,-0x2
020b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
020c e254 | T | Load 0x1,0x54
020d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
020e 027f | | Execute Discrete,Equal
020f 6818 |h | Jump_Zero 0x228
0210 00cf | | Action Mark_Auxiliary
0211 00d9 | | Load_Top At_Offset_1
0212 4801 |H | Short_Literal 0x1
0213 0263 | c | Execute Discrete,Above_Bound
0214 7010 |p | Jump_Nonzero 0x225
0215 00d8 | | Load_Top At_Offset_0
0216 e5ff | | Load 0x2,-0x1
0217 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0218 e254 | T | Load 0x1,0x54
0219 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
021a 00d9 | | Load_Top At_Offset_1
021b e5fe | | Load 0x2,-0x2
021c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
021d e254 | T | Load 0x1,0x54
021e 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
021f 017e | ~ | Execute Record,Not_Equal
0220 6802 |h | Jump_Zero 0x223
0221 4800 |H | Short_Literal 0x0
0222 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0223 00c8 | | Action Pop_Auxiliary_Range
0224 3ff0 |? | Loop_Increasing 0x215
0225 00ce | | Action Pop_Auxiliary
0226 4801 |H | Short_Literal 0x1
0227 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0228 4800 |H | Short_Literal 0x0
0229 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022a 0000 0000 | | .BLANK 0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 00da | | Load_Top At_Offset_2
0234 e5fe | | Load 0x2,-0x2
0235 027f | | Execute Discrete,Equal
0236 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0237 0000 | | .XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023d | = | .CONST 0x023d ; Address of begin
0239 0243 | C | .CONST 0x0243 ; Address of exception handler
023a 0002 | | .CONST 0x0002 ; Number of locals
023b INIT_0238:
023b 00eb | | Load_Encached Diana_Cache
023c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
023d BODY_0238:
023d 00db | | Load_Top At_Offset_3
023e 00eb | | Load_Encached Diana_Cache
023f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0240 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0241 4800 |H | Short_Literal 0x0
0242 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0243 TRAP_0238:
0243 0007 | | Action Break_Optional
0244 4801 |H | Short_Literal 0x1
0245 e009 | | Load 0x0,0x9
0246 180d | | Execute Package,Field_Execute,Field_Number 0xd
0247 0092 0842 | B| Action Push_String_Extended,0x842 ; "NONEXISTENT_PAGE_ERROR"
0249 e00a | | Load 0x0,0xa
024a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
024b 0e00 | | Execute_Immediate Not_Equal,0x0
024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0255 0000 0000 | | .XXX[0x3]
0257 0000 | |
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0265 | e | .CONST 0x0265 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 821f | | Call 0x1,0x1f
0265 BODY_0260:
0265 00d8 | | Load_Top At_Offset_0
0266 00eb | | Load_Encached Diana_Cache
0267 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0268 6803 |h | Jump_Zero 0x26c
0269 00eb | | Load_Encached Diana_Cache
026a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
026b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026c 00d8 | | Load_Top At_Offset_0
026d e00b | | Load 0x0,0xb
026e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
026f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 0d00 | | Execute_Immediate Less,0x0
0275 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0276 0000 0000 | | .XXX[0x2]
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 0c01 | | Execute_Immediate Greater_Equal,0x1
027d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 8222 | " | Call 0x1,0x22
0285 6807 |h | Jump_Zero 0x28d
0286 00da | | Load_Top At_Offset_2
0287 00d8 | | Load_Top At_Offset_0
0288 00e3 | | Load_Encached Natural_Cache
0289 0260 | ` | Execute Discrete,In_Type
028a 7001 |p | Jump_Nonzero 0x28c
028b 0801 | | Execute_Immediate Raise,0x1
028c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028d e245 | E | Load 0x1,0x45
028e 0257 | W | Execute Discrete,Raise
028f 0000 | | .XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00da | | Load_Top At_Offset_2
0294 8221 | ! | Call 0x1,0x21
0295 6808 |h | Jump_Zero 0x29e
0296 00da | | Load_Top At_Offset_2
0297 0274 | t | Execute Discrete,Absolute_Value
0298 00d8 | | Load_Top At_Offset_0
0299 00e3 | | Load_Encached Natural_Cache
029a 0260 | ` | Execute Discrete,In_Type
029b 7001 |p | Jump_Nonzero 0x29d
029c 0801 | | Execute_Immediate Raise,0x1
029d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029e e245 | E | Load 0x1,0x45
029f 0257 | W | Execute Discrete,Raise
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a5 0000 0000 | | .XXX[0x3]
02a7 0000 | |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 00da | | Load_Top At_Offset_2
02ac 8221 | ! | Call 0x1,0x21
02ad 680f |h | Jump_Zero 0x2bd
02ae 4864 |Hd | Short_Literal 0x64
02af 4820 |H | Short_Literal 0x20
02b0 4800 |H | Short_Literal 0x0
02b1 480a |H | Short_Literal 0xa
02b2 e5ff | | Load 0x2,-0x1
02b3 0274 | t | Execute Discrete,Absolute_Value
02b4 00d8 | | Load_Top At_Offset_0
02b5 00e3 | | Load_Encached Natural_Cache
02b6 0260 | ` | Execute Discrete,In_Type
02b7 7001 |p | Jump_Nonzero 0x2b9
02b8 0801 | | Execute_Immediate Raise,0x1
02b9 e00a | | Load 0x0,0xa
02ba 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02bb 01cb | | Execute Vector,Append
02bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bd 00da | | Load_Top At_Offset_2
02be 8222 | " | Call 0x1,0x22
02bf 6814 |h | Jump_Zero 0x2d4
02c0 00da | | Load_Top At_Offset_2
02c1 6016 |` | Indirect_Literal Discrete,0x2d8,{0x00000000, 0x7fffffff}
02c2 027f | | Execute Discrete,Equal
02c3 6802 |h | Jump_Zero 0x2c6
02c4 e257 | W | Load 0x1,0x57
02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c6 4873 |Hs | Short_Literal 0x73
02c7 4820 |H | Short_Literal 0x20
02c8 4800 |H | Short_Literal 0x0
02c9 480a |H | Short_Literal 0xa
02ca e5ff | | Load 0x2,-0x1
02cb 00d8 | | Load_Top At_Offset_0
02cc 00e3 | | Load_Encached Natural_Cache
02cd 0260 | ` | Execute Discrete,In_Type
02ce 7001 |p | Jump_Nonzero 0x2d0
02cf 0801 | | Execute_Immediate Raise,0x1
02d0 e00a | | Load 0x0,0xa
02d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02d2 01cb | | Execute Vector,Append
02d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d4 00ea | | Load_Encached Null_String_Cache
02d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d6 0000 0000 | | .XXX[0x2]
02d8 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
02dc 0000 0000 | | .BLANK 0000[0x4]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e5 0000 0000 | | .XXX[0x3]
02e7 0000 | |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02ee | | .CONST 0x02ee ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0003 | | .CONST 0x0003 ; Number of locals
02eb INIT_02e8:
02eb e20e | | Load 0x1,0xe
02ec 0007 | | Action Break_Optional
02ed 00e1 | | Load_Encached Boolean_Cache
02ee BODY_02e8:
02ee 00e1 | | Load_Encached Boolean_Cache
02ef e20e | | Load 0x1,0xe
02f0 e5ff | | Load 0x2,-0x1
02f1 8259 | Y | Call 0x1,0x59
02f2 005b | [ | Store_Top Discrete,At_Offset_3
02f3 0059 | Y | Store_Top Discrete,At_Offset_1
02f4 00d8 | | Load_Top At_Offset_0
02f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f6 0000 0000 | | .XXX[0x2]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fe | | .CONST 0x02fe ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0003 | | .CONST 0x0003 ; Number of locals
02fb INIT_02f8:
02fb e20e | | Load 0x1,0xe
02fc 0007 | | Action Break_Optional
02fd 00e1 | | Load_Encached Boolean_Cache
02fe BODY_02f8:
02fe 00e1 | | Load_Encached Boolean_Cache
02ff e20e | | Load 0x1,0xe
0300 e5ff | | Load 0x2,-0x1
0301 8259 | Y | Call 0x1,0x59
0302 005b | [ | Store_Top Discrete,At_Offset_3
0303 0059 | Y | Store_Top Discrete,At_Offset_1
0304 00d8 | | Load_Top At_Offset_0
0305 6802 |h | Jump_Zero 0x308
0306 00d9 | | Load_Top At_Offset_1
0307 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0308 e243 | C | Load 0x1,0x43
0309 0257 | W | Execute Discrete,Raise
030a 0000 0000 | | .BLANK 0000[0x6]
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 6004 |` | Indirect_Literal Discrete,0x318,{0x00000000, 0x7fffffff}
0314 00ca | | Action Exit_Nullary_Function
0315 0000 0000 | | .XXX[0x3]
0317 0000 | |
0318 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0328 | ( | .CONST 0x0328 ; 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0325 e250 | P | Load 0x1,0x50
0326 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0327 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0328 TRAP_0320:
0328 010e | | Execute Exception,Is_Constraint_Error
0329 6802 |h | Jump_Zero 0x32c
032a 4800 |H | Short_Literal 0x0
032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032c 0100 | | Execute Exception,Raise
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0338 | 8 | .CONST 0x0338 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0335 e254 | T | Load 0x1,0x54
0336 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0337 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0338 TRAP_0330:
0338 010e | | Execute Exception,Is_Constraint_Error
0339 6802 |h | Jump_Zero 0x33c
033a 4800 |H | Short_Literal 0x0
033b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033c 0100 | | Execute Exception,Raise
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0349 | I | .CONST 0x0349 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0003 | | .CONST 0x0003 ; Number of locals
0343 INIT_0340:
0343 00da | | Load_Top At_Offset_2
0344 822b | + | Call 0x1,0x2b
0345 00e3 | | Load_Encached Natural_Cache
0346 03f1 | | Declare_Variable Discrete,With_Value
0347 e20d | | Load 0x1,0xd
0348 0007 | | Action Break_Optional
0349 BODY_0340:
0349 e5fe | | Load 0x2,-0x2
034a 00da | | Load_Top At_Offset_2
034b 027d | } | Execute Discrete,Greater
034c 6802 |h | Jump_Zero 0x34f
034d e244 | D | Load 0x1,0x44
034e 0257 | W | Execute Discrete,Raise
034f 00d9 | | Load_Top At_Offset_1
0350 e5fe | | Load 0x2,-0x2
0351 0272 | r | Execute Discrete,Minus
0352 0a01 | | Execute_Immediate Plus,0x1
0353 00d8 | | Load_Top At_Offset_0
0354 00e4 | | Load_Encached Positive_Cache
0355 0260 | ` | Execute Discrete,In_Type
0356 7001 |p | Jump_Nonzero 0x358
0357 0801 | | Execute_Immediate Raise,0x1
0358 e5ff | | Load 0x2,-0x1
0359 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
035a e250 | P | Load 0x1,0x50
035b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
035c 0031 | 1 | Store_Top Heap_Access,At_Offset_1
035d 00d8 | | Load_Top At_Offset_0
035e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0367 | g | .CONST 0x0367 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0002 | | .CONST 0x0002 ; Number of locals
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 822b | + | Call 0x1,0x2b
0365 00e3 | | Load_Encached Natural_Cache
0366 03f1 | | Declare_Variable Discrete,With_Value
0367 BODY_0360:
0367 e5fe | | Load 0x2,-0x2
0368 00d9 | | Load_Top At_Offset_1
0369 027d | } | Execute Discrete,Greater
036a 6802 |h | Jump_Zero 0x36d
036b e244 | D | Load 0x1,0x44
036c 0257 | W | Execute Discrete,Raise
036d e5fe | | Load 0x2,-0x2
036e e5ff | | Load 0x2,-0x1
036f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0370 e250 | P | Load 0x1,0x50
0371 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0372 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0373 0000 0000 | | .BLANK 0000[0x5]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037f | | .CONST 0x037f ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0002 | | .CONST 0x0002 ; Number of locals
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 822b | + | Call 0x1,0x2b
037d 00e3 | | Load_Encached Natural_Cache
037e 03f1 | | Declare_Variable Discrete,With_Value
037f BODY_0378:
037f e5fe | | Load 0x2,-0x2
0380 00d9 | | Load_Top At_Offset_1
0381 027d | } | Execute Discrete,Greater
0382 6802 |h | Jump_Zero 0x385
0383 e244 | D | Load 0x1,0x44
0384 0257 | W | Execute Discrete,Raise
0385 e5fe | | Load 0x2,-0x2
0386 e5ff | | Load 0x2,-0x1
0387 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0388 e250 | P | Load 0x1,0x50
0389 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
038a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038b 0000 0000 | | .BLANK 0000[0x5]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0397 | | .CONST 0x0397 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 00da | | Load_Top At_Offset_2
0394 822c | , | Call 0x1,0x2c
0395 00e3 | | Load_Encached Natural_Cache
0396 03f1 | | Declare_Variable Discrete,With_Value
0397 BODY_0390:
0397 e5fe | | Load 0x2,-0x2
0398 00d9 | | Load_Top At_Offset_1
0399 027d | } | Execute Discrete,Greater
039a 6802 |h | Jump_Zero 0x39d
039b e244 | D | Load 0x1,0x44
039c 0257 | W | Execute Discrete,Raise
039d e5fe | | Load 0x2,-0x2
039e e5ff | | Load 0x2,-0x1
039f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03a0 e254 | T | Load 0x1,0x54
03a1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03a2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a3 0000 0000 | | .BLANK 0000[0x5]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b1 | | .CONST 0x03b1 ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0003 | | .CONST 0x0003 ; Number of locals
03ab INIT_03a8:
03ab 00db | | Load_Top At_Offset_3
03ac 822b | + | Call 0x1,0x2b
03ad 00e3 | | Load_Encached Natural_Cache
03ae 03f1 | | Declare_Variable Discrete,With_Value
03af 00db | | Load_Top At_Offset_3
03b0 821e | | Call 0x1,0x1e
03b1 BODY_03a8:
03b1 00cf | | Action Mark_Auxiliary
03b2 00da | | Load_Top At_Offset_2
03b3 4801 |H | Short_Literal 0x1
03b4 0263 | c | Execute Discrete,Above_Bound
03b5 7009 |p | Jump_Nonzero 0x3bf
03b6 00db | | Load_Top At_Offset_3
03b7 00d9 | | Load_Top At_Offset_1
03b8 e5fe | | Load 0x2,-0x2
03b9 825a | Z | Call 0x1,0x5a
03ba 021f | | Execute Heap_Access,Equal
03bb 6801 |h | Jump_Zero 0x3bd
03bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bd 00c8 | | Action Pop_Auxiliary_Range
03be 3ff7 |? | Loop_Increasing 0x3b6
03bf 00ce | | Action Pop_Auxiliary
03c0 e5fe | | Load 0x2,-0x2
03c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03c2 00d9 | | Load_Top At_Offset_1
03c3 e250 | P | Load 0x1,0x50
03c4 181f | | Execute Package,Field_Execute,Field_Number 0x1f
03c5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03c6 0000 0000 | | .XXX[0x2]
03c8 ; --------------------------------------------------------------------------------------
03c8 ; SUBPROGRAM
03c8 ; --------------------------------------------------------------------------------------
03c8 03d1 | | .CONST 0x03d1 ; Address of begin
03c9 0004 | | .CONST 0x0004 ; Address of exception handler
03ca 0003 | | .CONST 0x0003 ; Number of locals
03cb INIT_03c8:
03cb 00db | | Load_Top At_Offset_3
03cc 822b | + | Call 0x1,0x2b
03cd 00e3 | | Load_Encached Natural_Cache
03ce 03f1 | | Declare_Variable Discrete,With_Value
03cf 00db | | Load_Top At_Offset_3
03d0 821e | | Call 0x1,0x1e
03d1 BODY_03c8:
03d1 00cf | | Action Mark_Auxiliary
03d2 00da | | Load_Top At_Offset_2
03d3 4801 |H | Short_Literal 0x1
03d4 0263 | c | Execute Discrete,Above_Bound
03d5 7009 |p | Jump_Nonzero 0x3df
03d6 00db | | Load_Top At_Offset_3
03d7 00d9 | | Load_Top At_Offset_1
03d8 e5fe | | Load 0x2,-0x2
03d9 822f | / | Call 0x1,0x2f
03da 021f | | Execute Heap_Access,Equal
03db 6801 |h | Jump_Zero 0x3dd
03dc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03dd 00c8 | | Action Pop_Auxiliary_Range
03de 3ff7 |? | Loop_Increasing 0x3d6
03df 00ce | | Action Pop_Auxiliary
03e0 e5fe | | Load 0x2,-0x2
03e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03e2 00d9 | | Load_Top At_Offset_1
03e3 4801 |H | Short_Literal 0x1
03e4 e250 | P | Load 0x1,0x50
03e5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03e7 0000 | | .XXX[0x1]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 00db | | Load_Top At_Offset_3
03ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ed 00db | | Load_Top At_Offset_3
03ee 4801 |H | Short_Literal 0x1
03ef e250 | P | Load 0x1,0x50
03f0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f2 0000 0000 | | .BLANK 0000[0x6]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fb | | .CONST 0x03fb ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0001 | | .CONST 0x0001 ; Number of locals
03fb BODY_03f8:
03fb INIT_03f8:
03fb 00db | | Load_Top At_Offset_3
03fc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03fd 00db | | Load_Top At_Offset_3
03fe 4801 |H | Short_Literal 0x1
03ff e254 | T | Load 0x1,0x54
0400 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0401 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0402 0000 0000 | | .BLANK 0000[0x6]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040f | | .CONST 0x040f ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0002 | | .CONST 0x0002 ; Number of locals
040b INIT_0408:
040b e251 | Q | Load 0x1,0x51
040c 0322 | " | Declare_Variable Record
040d 00d8 | | Load_Top At_Offset_0
040e 1c00 | | Execute_Immediate Run_Utility,0x0
040f BODY_0408:
040f 00db | | Load_Top At_Offset_3
0410 e20f | | Load 0x1,0xf
0411 017f | | Execute Record,Equal
0412 6804 |h | Jump_Zero 0x417
0413 00db | | Load_Top At_Offset_3
0414 0320 | | Declare_Variable Record,Duplicate
0415 00cd | | Action Spare6_Action
0416 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0417 00d8 | | Load_Top At_Offset_0
0418 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0419 e5ff | | Load 0x2,-0x1
041a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
041b e250 | P | Load 0x1,0x50
041c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
041d 00d1 | | Pop_Control Pop_Count_1
041e 00d8 | | Load_Top At_Offset_0
041f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0425 | % | .CONST 0x0425 ; Address of begin
0421 0004 | | .CONST 0x0004 ; Address of exception handler
0422 0002 | | .CONST 0x0002 ; Number of locals
0423 INIT_0420:
0423 e24e | N | Load 0x1,0x4e
0424 0322 | " | Declare_Variable Record
0425 BODY_0420:
0425 00db | | Load_Top At_Offset_3
0426 00d9 | | Load_Top At_Offset_1
0427 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0428 e5fe | | Load 0x2,-0x2
0429 00d9 | | Load_Top At_Offset_1
042a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
042b e5fd | | Load 0x2,-0x3
042c 00d9 | | Load_Top At_Offset_1
042d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
042e 00d8 | | Load_Top At_Offset_0
042f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0435 | 5 | .CONST 0x0435 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0002 | | .CONST 0x0002 ; Number of locals
0433 INIT_0430:
0433 e00c | | Load 0x0,0xc
0434 0322 | " | Declare_Variable Record
0435 BODY_0430:
0435 00db | | Load_Top At_Offset_3
0436 8258 | X | Call 0x1,0x58
0437 00d9 | | Load_Top At_Offset_1
0438 017d | } | Execute Record,Structure_Write
0439 00d8 | | Load_Top At_Offset_0
043a 800d | | Call 0x0,0xd
043b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043c 0000 0000 | | .BLANK 0000[0x4]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0447 | G | .CONST 0x0447 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0003 | | .CONST 0x0003 ; Number of locals
0443 INIT_0440:
0443 e24e | N | Load 0x1,0x4e
0444 0322 | " | Declare_Variable Record
0445 e00c | | Load 0x0,0xc
0446 0322 | " | Declare_Variable Record
0447 BODY_0440:
0447 e5ff | | Load 0x2,-0x1
0448 8214 | | Call 0x1,0x14
0449 6802 |h | Jump_Zero 0x44c
044a e212 | | Load 0x1,0x12
044b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044c e5ff | | Load 0x2,-0x1
044d 800e | | Call 0x0,0xe
044e 00d9 | | Load_Top At_Offset_1
044f 017d | } | Execute Record,Structure_Write
0450 00d8 | | Load_Top At_Offset_0
0451 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0452 00da | | Load_Top At_Offset_2
0453 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0454 00d8 | | Load_Top At_Offset_0
0455 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0456 00da | | Load_Top At_Offset_2
0457 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0458 00d8 | | Load_Top At_Offset_0
0459 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
045a 00da | | Load_Top At_Offset_2
045b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
045c 00d9 | | Load_Top At_Offset_1
045d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
045e 0000 0000 | | .XXX[0x2]
0460 ; --------------------------------------------------------------------------------------
0460 ; SUBPROGRAM
0460 ; --------------------------------------------------------------------------------------
0460 0466 | f | .CONST 0x0466 ; Address of begin
0461 0490 | | .CONST 0x0490 ; Address of exception handler
0462 0003 | | .CONST 0x0003 ; Number of locals
0463 INIT_0460:
0463 00ec | | Load_Encached Diana_Tree_Cache
0464 e24e | N | Load 0x1,0x4e
0465 0322 | " | Declare_Variable Record
0466 BODY_0460:
0466 e5fe | | Load 0x2,-0x2
0467 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0468 e250 | P | Load 0x1,0x50
0469 1b11 | | Execute Package,Field_Read,Field_Number 0x11
046a 4800 |H | Short_Literal 0x0
046b e250 | P | Load 0x1,0x50
046c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
046d 00d1 | | Pop_Control Pop_Count_1
046e 00cf | | Action Mark_Auxiliary
046f e5ff | | Load 0x2,-0x1
0470 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0471 e254 | T | Load 0x1,0x54
0472 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0473 4801 |H | Short_Literal 0x1
0474 0263 | c | Execute Discrete,Above_Bound
0475 7019 |p | Jump_Nonzero 0x48f
0476 00d8 | | Load_Top At_Offset_0
0477 e5ff | | Load 0x2,-0x1
0478 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0479 e254 | T | Load 0x1,0x54
047a 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
047b e403 | | Load 0x2,0x3
047c 017d | } | Execute Record,Structure_Write
047d 00db | | Load_Top At_Offset_3
047e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
047f e403 | | Load 0x2,0x3
0480 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0481 e403 | | Load 0x2,0x3
0482 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0483 e00f | | Load 0x0,0xf
0484 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0485 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0486 a402 | | Store_Unchecked 0x2,0x2
0487 e5fe | | Load 0x2,-0x2
0488 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0489 e402 | | Load 0x2,0x2
048a e250 | P | Load 0x1,0x50
048b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
048c 00d1 | | Pop_Control Pop_Count_1
048d 00c8 | | Action Pop_Auxiliary_Range
048e 3fe7 |? | Loop_Increasing 0x476
048f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0490 TRAP_0460:
0490 0007 | | Action Break_Optional
0491 e20f | | Load 0x1,0xf
0492 e5fe | | Load 0x2,-0x2
0493 017d | } | Execute Record,Structure_Write
0494 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0495 0000 0000 | | .XXX[0x3]
0497 0000 | |
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a9 | | .CONST 0x04a9 ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0007 | | .CONST 0x0007 ; Number of locals
049b INIT_0498:
049b e255 | U | Load 0x1,0x55
049c 0322 | " | Declare_Variable Record
049d 00d8 | | Load_Top At_Offset_0
049e 1c00 | | Execute_Immediate Run_Utility,0x0
049f 00ec | | Load_Encached Diana_Tree_Cache
04a0 e24e | N | Load 0x1,0x4e
04a1 0322 | " | Declare_Variable Record
04a2 e00f | | Load 0x0,0xf
04a3 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04a5 e00f | | Load 0x0,0xf
04a6 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04a8 00e3 | | Load_Encached Natural_Cache
04a9 BODY_0498:
04a9 e402 | | Load 0x2,0x2
04aa 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ab e254 | T | Load 0x1,0x54
04ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04ad 4800 |H | Short_Literal 0x0
04ae e254 | T | Load 0x1,0x54
04af 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
04b0 00d1 | | Pop_Control Pop_Count_1
04b1 00cf | | Action Mark_Auxiliary
04b2 e5ff | | Load 0x2,-0x1
04b3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04b4 e250 | P | Load 0x1,0x50
04b5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
04b6 4801 |H | Short_Literal 0x1
04b7 0263 | c | Execute Discrete,Above_Bound
04b8 7029 |p) | Jump_Nonzero 0x4e2
04b9 00d8 | | Load_Top At_Offset_0
04ba e5ff | | Load 0x2,-0x1
04bb 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
04bc e250 | P | Load 0x1,0x50
04bd 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
04be a403 | | Store_Unchecked 0x2,0x3
04bf 00e3 | | Load_Encached Natural_Cache
04c0 e00f | | Load 0x0,0xf
04c1 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04c2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04c3 e00f | | Load 0x0,0xf
04c4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
04c6 e403 | | Load 0x2,0x3
04c7 e00f | | Load 0x0,0xf
04c8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
04c9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
04ca c405 | | Store 0x2,0x5
04cb c406 | | Store 0x2,0x6
04cc c407 | | Store 0x2,0x7
04cd e24e | N | Load 0x1,0x4e
04ce 0322 | " | Declare_Variable Record
04cf e407 | | Load 0x2,0x7
04d0 00d9 | | Load_Top At_Offset_1
04d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
04d2 e405 | | Load 0x2,0x5
04d3 00d9 | | Load_Top At_Offset_1
04d4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
04d5 e406 | | Load 0x2,0x6
04d6 00d9 | | Load_Top At_Offset_1
04d7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
04d8 e404 | | Load 0x2,0x4
04d9 017d | } | Execute Record,Structure_Write
04da e402 | | Load 0x2,0x2
04db 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04dc e404 | | Load 0x2,0x4
04dd e254 | T | Load 0x1,0x54
04de 181f | | Execute Package,Field_Execute,Field_Number 0x1f
04df 00d1 | | Pop_Control Pop_Count_1
04e0 00c8 | | Action Pop_Auxiliary_Range
04e1 3fd7 |? | Loop_Increasing 0x4b9
04e2 00ce | | Action Pop_Auxiliary
04e3 e402 | | Load 0x2,0x2
04e4 e5fe | | Load 0x2,-0x2
04e5 017d | } | Execute Record,Structure_Write
04e6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04e7 0000 | | .XXX[0x1]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 0004 | | .CONST 0x0004 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb 00da | | Load_Top At_Offset_2
04ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
04ed a5fe | | Store_Unchecked 0x2,-0x2
04ee 00da | | Load_Top At_Offset_2
04ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
04f0 a5fd | | Store_Unchecked 0x2,-0x3
04f1 00da | | Load_Top At_Offset_2
04f2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04f3 a5fc | | Store_Unchecked 0x2,-0x4
04f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04f5 0000 0000 | | .XXX[0x3]
04f7 0000 | |
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fd | | .CONST 0x04fd ; Address of begin
04f9 051b | | .CONST 0x051b ; Address of exception handler
04fa 0002 | | .CONST 0x0002 ; Number of locals
04fb INIT_04f8:
04fb e24e | N | Load 0x1,0x4e
04fc 0322 | " | Declare_Variable Record
04fd BODY_04f8:
04fd 00db | | Load_Top At_Offset_3
04fe 09e0 | | Execute_Immediate Binary_Scale,-0x20
04ff 00d8 | | Load_Top At_Offset_0
0500 e002 | | Load 0x0,0x2
0501 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0502 0260 | ` | Execute Discrete,In_Type
0503 7001 |p | Jump_Nonzero 0x505
0504 0801 | | Execute_Immediate Raise,0x1
0505 00d9 | | Load_Top At_Offset_1
0506 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0507 00db | | Load_Top At_Offset_3
0508 6017 |` | Indirect_Literal Discrete,0x520,{0x00000000, 0xffffffff}
0509 0279 | y | Execute Discrete,And
050a 00d8 | | Load_Top At_Offset_0
050b 00e3 | | Load_Encached Natural_Cache
050c 0260 | ` | Execute Discrete,In_Type
050d 7001 |p | Jump_Nonzero 0x50f
050e 0801 | | Execute_Immediate Raise,0x1
050f 00d9 | | Load_Top At_Offset_1
0510 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0511 e5fe | | Load 0x2,-0x2
0512 00d8 | | Load_Top At_Offset_0
0513 00e4 | | Load_Encached Positive_Cache
0514 0260 | ` | Execute Discrete,In_Type
0515 7001 |p | Jump_Nonzero 0x517
0516 0801 | | Execute_Immediate Raise,0x1
0517 00d9 | | Load_Top At_Offset_1
0518 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0519 00d8 | | Load_Top At_Offset_0
051a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
051b TRAP_04f8:
051b 0007 | | Action Break_Optional
051c e212 | | Load 0x1,0x12
051d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
051e 0000 0000 | | .XXX[0x2]
0520 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
0524 0000 0000 | | .BLANK 0000[0x4]
0528 ; --------------------------------------------------------------------------------------
0528 ; SUBPROGRAM
0528 ; --------------------------------------------------------------------------------------
0528 052b | + | .CONST 0x052b ; Address of begin
0529 0004 | | .CONST 0x0004 ; Address of exception handler
052a 0001 | | .CONST 0x0001 ; Number of locals
052b BODY_0528:
052b INIT_0528:
052b 00da | | Load_Top At_Offset_2
052c 821f | | Call 0x1,0x1f
052d 8010 | | Call 0x0,0x10
052e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
052f 0000 | | .XXX[0x1]
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 053b | ; | .CONST 0x053b ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0004 | | .CONST 0x0004 ; Number of locals
0533 INIT_0530:
0533 00da | | Load_Top At_Offset_2
0534 822b | + | Call 0x1,0x2b
0535 00e3 | | Load_Encached Natural_Cache
0536 03f1 | | Declare_Variable Discrete,With_Value
0537 00e3 | | Load_Encached Natural_Cache
0538 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0539 029f 079b | | Declare_Subprogram INIT_0798,For_Call
053b BODY_0530:
053b 8404 | | Call 0x2,0x4
053c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
053d 0000 0000 | | .XXX[0x3]
053f 0000 | |
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 0548 | H | .CONST 0x0548 ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0004 | | .CONST 0x0004 ; Number of locals
0543 INIT_0540:
0543 00e3 | | Load_Encached Natural_Cache
0544 00e3 | | Load_Encached Natural_Cache
0545 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0546 029f 07c3 | | Declare_Subprogram INIT_07c0,For_Call
0548 BODY_0540:
0548 e5ff | | Load 0x2,-0x1
0549 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
054a e254 | T | Load 0x1,0x54
054b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
054c 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
054d 8404 | | Call 0x2,0x4
054e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
054f 0000 | | .XXX[0x1]
0550 ; --------------------------------------------------------------------------------------
0550 ; SUBPROGRAM
0550 ; --------------------------------------------------------------------------------------
0550 0553 | S | .CONST 0x0553 ; Address of begin
0551 0004 | | .CONST 0x0004 ; Address of exception handler
0552 0001 | | .CONST 0x0001 ; Number of locals
0553 BODY_0550:
0553 INIT_0550:
0553 0092 0843 | C| Action Push_String_Extended,0x843 ; "{M:"
0555 00db | | Load_Top At_Offset_3
0556 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0557 00e0 | | Load_Encached Standard_Cache
0558 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0559 01cc | | Execute Vector,Catenate
055a 0092 0844 | D| Action Push_String_Extended,0x844 ; " I:"
055c 01cc | | Execute Vector,Catenate
055d 00db | | Load_Top At_Offset_3
055e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
055f 00e0 | | Load_Encached Standard_Cache
0560 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0561 01cc | | Execute Vector,Catenate
0562 0092 0845 | E| Action Push_String_Extended,0x845 ; " Pos:"
0564 01cc | | Execute Vector,Catenate
0565 00db | | Load_Top At_Offset_3
0566 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0567 00e0 | | Load_Encached Standard_Cache
0568 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0569 01cc | | Execute Vector,Catenate
056a 0092 0846 | F| Action Push_String_Extended,0x846 ; "}"
056c 01cc | | Execute Vector,Catenate
056d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
056e 0000 0000 | | .XXX[0x2]
0570 ; --------------------------------------------------------------------------------------
0570 ; SUBPROGRAM
0570 ; --------------------------------------------------------------------------------------
0570 0573 | s | .CONST 0x0573 ; Address of begin
0571 0004 | | .CONST 0x0004 ; Address of exception handler
0572 0001 | | .CONST 0x0001 ; Number of locals
0573 BODY_0570:
0573 INIT_0570:
0573 48d9 |H | Short_Literal 0xd9
0574 00ca | | Action Exit_Nullary_Function
0575 0000 0000 | | .XXX[0x3]
0577 0000 | |
0578 ; --------------------------------------------------------------------------------------
0578 ; SUBPROGRAM
0578 ; --------------------------------------------------------------------------------------
0578 057b | { | .CONST 0x057b ; Address of begin
0579 0004 | | .CONST 0x0004 ; Address of exception handler
057a 0001 | | .CONST 0x0001 ; Number of locals
057b BODY_0578:
057b INIT_0578:
057b 4822 |H" | Short_Literal 0x22
057c 4822 |H" | Short_Literal 0x22
057d 4820 |H | Short_Literal 0x20
057e 4800 |H | Short_Literal 0x0
057f 4810 |H | Short_Literal 0x10
0580 e5ff | | Load 0x2,-0x1
0581 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0582 e00a | | Load 0x0,0xa
0583 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0584 01ca | | Execute Vector,Prepend
0585 0092 0847 | G| Action Push_String_Extended,0x847 ; " "
0587 01cc | | Execute Vector,Catenate
0588 4820 |H | Short_Literal 0x20
0589 4800 |H | Short_Literal 0x0
058a 4810 |H | Short_Literal 0x10
058b e5ff | | Load 0x2,-0x1
058c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
058d e00a | | Load 0x0,0xa
058e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
058f 01cc | | Execute Vector,Catenate
0590 0092 0847 | G| Action Push_String_Extended,0x847 ; " "
0592 01cc | | Execute Vector,Catenate
0593 4820 |H | Short_Literal 0x20
0594 4800 |H | Short_Literal 0x0
0595 4810 |H | Short_Literal 0x10
0596 e5ff | | Load 0x2,-0x1
0597 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0598 e00a | | Load 0x0,0xa
0599 1816 | | Execute Package,Field_Execute,Field_Number 0x16
059a 01cc | | Execute Vector,Catenate
059b 01cb | | Execute Vector,Append
059c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
059d 0000 0000 | | .XXX[0x3]
059f 0000 | |
05a0 ; --------------------------------------------------------------------------------------
05a0 ; SUBPROGRAM
05a0 ; --------------------------------------------------------------------------------------
05a0 05a8 | | .CONST 0x05a8 ; Address of begin
05a1 0004 | | .CONST 0x0004 ; Address of exception handler
05a2 0004 | | .CONST 0x0004 ; Number of locals
05a3 INIT_05a0:
05a3 00e3 | | Load_Encached Natural_Cache
05a4 00e3 | | Load_Encached Natural_Cache
05a5 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
05a6 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call
05a8 BODY_05a0:
05a8 e5ff | | Load 0x2,-0x1
05a9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
05aa e254 | T | Load 0x1,0x54
05ab 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05ac 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05ad 4822 |H" | Short_Literal 0x22
05ae 4822 |H" | Short_Literal 0x22
05af 8404 | | Call 0x2,0x4
05b0 01ca | | Execute Vector,Prepend
05b1 01cb | | Execute Vector,Append
05b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05b3 0000 0000 | | .BLANK 0000[0x5]
05b8 ; --------------------------------------------------------------------------------------
05b8 ; SUBPROGRAM
05b8 ; --------------------------------------------------------------------------------------
05b8 05bb | | .CONST 0x05bb ; Address of begin
05b9 0004 | | .CONST 0x0004 ; Address of exception handler
05ba 0001 | | .CONST 0x0001 ; Number of locals
05bb BODY_05b8:
05bb INIT_05b8:
05bb 4820 |H | Short_Literal 0x20
05bc 4800 |H | Short_Literal 0x0
05bd 4810 |H | Short_Literal 0x10
05be e5ff | | Load 0x2,-0x1
05bf e00a | | Load 0x0,0xa
05c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
05c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05c2 0000 0000 | | .BLANK 0000[0x6]
05c8 ; --------------------------------------------------------------------------------------
05c8 ; SUBPROGRAM
05c8 ; --------------------------------------------------------------------------------------
05c8 05e3 | | .CONST 0x05e3 ; Address of begin
05c9 0004 | | .CONST 0x0004 ; Address of exception handler
05ca 0006 | | .CONST 0x0006 ; Number of locals
05cb INIT_05c8:
05cb 00da | | Load_Top At_Offset_2
05cc 01db | | Execute Vector,Length
05cd 00e3 | | Load_Encached Natural_Cache
05ce 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
05cf 00d8 | | Load_Top At_Offset_0
05d0 0a01 | | Execute_Immediate Plus,0x1
05d1 e011 | | Load 0x0,0x11
05d2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
05d3 1c08 | | Execute_Immediate Run_Utility,0x8
05d4 00d8 | | Load_Top At_Offset_0
05d5 1c00 | | Execute_Immediate Run_Utility,0x0
05d6 4808 |H | Short_Literal 0x8
05d7 e012 | | Load 0x0,0x12
05d8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
05d9 1c08 | | Execute_Immediate Run_Utility,0x8
05da 00d8 | | Load_Top At_Offset_0
05db 1c00 | | Execute_Immediate Run_Utility,0x0
05dc e24e | N | Load 0x1,0x4e
05dd 0322 | " | Declare_Variable Record
05de e212 | | Load 0x1,0x12
05df 00d9 | | Load_Top At_Offset_1
05e0 017d | } | Execute Record,Structure_Write
05e1 029f 0803 | | Declare_Subprogram INIT_0800,For_Call
05e3 BODY_05c8:
05e3 e402 | | Load 0x2,0x2
05e4 7002 |p | Jump_Nonzero 0x5e7
05e5 00d9 | | Load_Top At_Offset_1
05e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
05e7 00db | | Load_Top At_Offset_3
05e8 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05e9 e5ff | | Load 0x2,-0x1
05ea e012 | | Load 0x0,0x12
05eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
05ec 00d1 | | Pop_Control Pop_Count_1
05ed 4801 |H | Short_Literal 0x1
05ee e403 | | Load 0x2,0x3
05ef 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05f0 e012 | | Load 0x0,0x12
05f1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
05f2 0f22 | " | Execute_Immediate Equal,0x22
05f3 6807 |h | Jump_Zero 0x5fb
05f4 00db | | Load_Top At_Offset_3
05f5 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05f6 4801 |H | Short_Literal 0x1
05f7 4801 |H | Short_Literal 0x1
05f8 e012 | | Load 0x0,0x12
05f9 181f | | Execute Package,Field_Execute,Field_Number 0x1f
05fa 00d1 | | Pop_Control Pop_Count_1
05fb 00db | | Load_Top At_Offset_3
05fc 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
05fd e012 | | Load 0x0,0x12
05fe 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
05ff a402 | | Store_Unchecked 0x2,0x2
0600 e402 | | Load 0x2,0x2
0601 7002 |p | Jump_Nonzero 0x604
0602 00d9 | | Load_Top At_Offset_1
0603 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0604 e402 | | Load 0x2,0x2
0605 00d8 | | Load_Top At_Offset_0
0606 00e4 | | Load_Encached Positive_Cache
0607 0260 | ` | Execute Discrete,In_Type
0608 7001 |p | Jump_Nonzero 0x60a
0609 0801 | | Execute_Immediate Raise,0x1
060a e403 | | Load 0x2,0x3
060b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
060c e012 | | Load 0x0,0x12
060d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
060e 0f22 | " | Execute_Immediate Equal,0x22
060f 680f |h | Jump_Zero 0x61f
0610 00db | | Load_Top At_Offset_3
0611 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0612 4801 |H | Short_Literal 0x1
0613 e402 | | Load 0x2,0x2
0614 00d8 | | Load_Top At_Offset_0
0615 00e4 | | Load_Encached Positive_Cache
0616 0260 | ` | Execute Discrete,In_Type
0617 7001 |p | Jump_Nonzero 0x619
0618 0801 | | Execute_Immediate Raise,0x1
0619 e012 | | Load 0x0,0x12
061a 181f | | Execute Package,Field_Execute,Field_Number 0x1f
061b 00d1 | | Pop_Control Pop_Count_1
061c e402 | | Load 0x2,0x2
061d 0aff | | Execute_Immediate Plus,-0x1
061e c402 | | Store 0x2,0x2
061f e402 | | Load 0x2,0x2
0620 7002 |p | Jump_Nonzero 0x623
0621 00d9 | | Load_Top At_Offset_1
0622 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0623 00da | | Load_Top At_Offset_2
0624 e403 | | Load 0x2,0x3
0625 e011 | | Load 0x0,0x11
0626 180f | | Execute Package,Field_Execute,Field_Number 0xf
0627 00d2 | | Pop_Control Pop_Count_2
0628 00da | | Load_Top At_Offset_2
0629 e012 | | Load 0x0,0x12
062a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
062b 8406 | | Call 0x2,0x6
062c 00da | | Load_Top At_Offset_2
062d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
062e 00da | | Load_Top At_Offset_2
062f e403 | | Load 0x2,0x3
0630 e011 | | Load 0x0,0x11
0631 180f | | Execute Package,Field_Execute,Field_Number 0xf
0632 00d2 | | Pop_Control Pop_Count_2
0633 00da | | Load_Top At_Offset_2
0634 e012 | | Load 0x0,0x12
0635 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0636 8406 | | Call 0x2,0x6
0637 00d8 | | Load_Top At_Offset_0
0638 e002 | | Load 0x0,0x2
0639 1b0d | | Execute Package,Field_Read,Field_Number 0xd
063a 0260 | ` | Execute Discrete,In_Type
063b 7001 |p | Jump_Nonzero 0x63d
063c 0801 | | Execute_Immediate Raise,0x1
063d 00da | | Load_Top At_Offset_2
063e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
063f 00da | | Load_Top At_Offset_2
0640 e403 | | Load 0x2,0x3
0641 e011 | | Load 0x0,0x11
0642 180f | | Execute Package,Field_Execute,Field_Number 0xf
0643 00d2 | | Pop_Control Pop_Count_2
0644 00da | | Load_Top At_Offset_2
0645 e012 | | Load 0x0,0x12
0646 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0647 8406 | | Call 0x2,0x6
0648 00da | | Load_Top At_Offset_2
0649 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
064a 00d9 | | Load_Top At_Offset_1
064b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
064c 0000 0000 | | .BLANK 0000[0x4]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 066f | o | .CONST 0x066f ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0007 | | .CONST 0x0007 ; Number of locals
0653 INIT_0650:
0653 00da | | Load_Top At_Offset_2
0654 01db | | Execute Vector,Length
0655 00e3 | | Load_Encached Natural_Cache
0656 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0657 00d8 | | Load_Top At_Offset_0
0658 0a01 | | Execute_Immediate Plus,0x1
0659 e011 | | Load 0x0,0x11
065a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
065b 1c08 | | Execute_Immediate Run_Utility,0x8
065c 00d8 | | Load_Top At_Offset_0
065d 1c00 | | Execute_Immediate Run_Utility,0x0
065e 4818 |H | Short_Literal 0x18
065f e012 | | Load 0x0,0x12
0660 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0661 1c08 | | Execute_Immediate Run_Utility,0x8
0662 00d8 | | Load_Top At_Offset_0
0663 1c00 | | Execute_Immediate Run_Utility,0x0
0664 e255 | U | Load 0x1,0x55
0665 0322 | " | Declare_Variable Record
0666 00d8 | | Load_Top At_Offset_0
0667 1c01 | | Execute_Immediate Run_Utility,0x1
0668 825b | [ | Call 0x1,0x5b
0669 00d9 | | Load_Top At_Offset_1
066a 017d | } | Execute Record,Structure_Write
066b e24e | N | Load 0x1,0x4e
066c 0322 | " | Declare_Variable Record
066d 00e8 | | Load_Encached Character_Cache
066e 0622 | " | Execute_Immediate Set_Value_Unchecked,0x22
066f BODY_0650:
066f e402 | | Load 0x2,0x2
0670 7002 |p | Jump_Nonzero 0x673
0671 00da | | Load_Top At_Offset_2
0672 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0673 e403 | | Load 0x2,0x3
0674 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0675 e5ff | | Load 0x2,-0x1
0676 e012 | | Load 0x0,0x12
0677 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0678 00d1 | | Pop_Control Pop_Count_1
0679 4801 |H | Short_Literal 0x1
067a e403 | | Load 0x2,0x3
067b 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
067c e012 | | Load 0x0,0x12
067d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
067e 00d9 | | Load_Top At_Offset_1
067f 027f | | Execute Discrete,Equal
0680 6807 |h | Jump_Zero 0x688
0681 e403 | | Load 0x2,0x3
0682 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0683 4801 |H | Short_Literal 0x1
0684 4801 |H | Short_Literal 0x1
0685 e012 | | Load 0x0,0x12
0686 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0687 00d1 | | Pop_Control Pop_Count_1
0688 e403 | | Load 0x2,0x3
0689 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
068a e012 | | Load 0x0,0x12
068b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
068c a402 | | Store_Unchecked 0x2,0x2
068d e402 | | Load 0x2,0x2
068e 7002 |p | Jump_Nonzero 0x691
068f 00da | | Load_Top At_Offset_2
0690 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0691 e402 | | Load 0x2,0x2
0692 00d8 | | Load_Top At_Offset_0
0693 00e4 | | Load_Encached Positive_Cache
0694 0260 | ` | Execute Discrete,In_Type
0695 7001 |p | Jump_Nonzero 0x697
0696 0801 | | Execute_Immediate Raise,0x1
0697 e403 | | Load 0x2,0x3
0698 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
0699 e012 | | Load 0x0,0x12
069a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
069b 00d9 | | Load_Top At_Offset_1
069c 027f | | Execute Discrete,Equal
069d 680f |h | Jump_Zero 0x6ad
069e e403 | | Load 0x2,0x3
069f 2503 |% | Execute Variant_Record,Field_Reference,Indirect,Field_Number 0x3
06a0 4801 |H | Short_Literal 0x1
06a1 e402 | | Load 0x2,0x2
06a2 00d8 | | Load_Top At_Offset_0
06a3 00e4 | | Load_Encached Positive_Cache
06a4 0260 | ` | Execute Discrete,In_Type
06a5 7001 |p | Jump_Nonzero 0x6a7
06a6 0801 | | Execute_Immediate Raise,0x1
06a7 e012 | | Load 0x0,0x12
06a8 181f | | Execute Package,Field_Execute,Field_Number 0x1f
06a9 00d1 | | Pop_Control Pop_Count_1
06aa e402 | | Load 0x2,0x2
06ab 0aff | | Execute_Immediate Plus,-0x1
06ac c402 | | Store 0x2,0x2
06ad e402 | | Load 0x2,0x2
06ae 7002 |p | Jump_Nonzero 0x6b1
06af 00da | | Load_Top At_Offset_2
06b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06b1 00cf | | Action Mark_Auxiliary
06b2 e404 | | Load 0x2,0x4
06b3 e403 | | Load 0x2,0x3
06b4 e011 | | Load 0x0,0x11
06b5 180f | | Execute Package,Field_Execute,Field_Number 0xf
06b6 00d2 | | Pop_Control Pop_Count_2
06b7 4801 |H | Short_Literal 0x1
06b8 e404 | | Load 0x2,0x4
06b9 e012 | | Load 0x0,0x12
06ba 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
06bb 00da | | Load_Top At_Offset_2
06bc 027f | | Execute Discrete,Equal
06bd 4801 |H | Short_Literal 0x1
06be e404 | | Load 0x2,0x4
06bf e012 | | Load 0x0,0x12
06c0 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
06c1 0f3b | ; | Execute_Immediate Equal,0x3b
06c2 0278 | x | Execute Discrete,Or
06c3 700e |p | Jump_Nonzero 0x6d2
06c4 e404 | | Load 0x2,0x4
06c5 e012 | | Load 0x0,0x12
06c6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
06c7 824a | J | Call 0x1,0x4a
06c8 00db | | Load_Top At_Offset_3
06c9 017d | } | Execute Record,Structure_Write
06ca 00db | | Load_Top At_Offset_3
06cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06cc 00db | | Load_Top At_Offset_3
06cd e254 | T | Load 0x1,0x54
06ce 181f | | Execute Package,Field_Execute,Field_Number 0x1f
06cf 00d1 | | Pop_Control Pop_Count_1
06d0 00c9 | | Action Pop_Auxiliary_Loop
06d1 7fe0 | | Jump 0x6b2
06d2 00ce | | Action Pop_Auxiliary
06d3 00da | | Load_Top At_Offset_2
06d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06d5 0000 0000 | | .XXX[0x3]
06d7 0000 | |
06d8 ; --------------------------------------------------------------------------------------
06d8 ; SUBPROGRAM
06d8 ; --------------------------------------------------------------------------------------
06d8 06dd | | .CONST 0x06dd ; Address of begin
06d9 0004 | | .CONST 0x0004 ; Address of exception handler
06da 0003 | | .CONST 0x0003 ; Number of locals
06db INIT_06d8:
06db 00e2 | | Load_Encached Integer_Cache
06dc 00e1 | | Load_Encached Boolean_Cache
06dd BODY_06d8:
06dd 00e1 | | Load_Encached Boolean_Cache
06de 00e2 | | Load_Encached Integer_Cache
06df 4810 |H | Short_Literal 0x10
06e0 e5ff | | Load 0x2,-0x1
06e1 e00a | | Load 0x0,0xa
06e2 1818 | | Execute Package,Field_Execute,Field_Number 0x18
06e3 005b | [ | Store_Top Discrete,At_Offset_3
06e4 0059 | Y | Store_Top Discrete,At_Offset_1
06e5 00d8 | | Load_Top At_Offset_0
06e6 6802 |h | Jump_Zero 0x6e9
06e7 00d9 | | Load_Top At_Offset_1
06e8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
06e9 e24d | M | Load 0x1,0x4d
06ea 0257 | W | Execute Discrete,Raise
06eb 0000 0000 | | .BLANK 0000[0x5]
06f0 ; --------------------------------------------------------------------------------------
06f0 ; SUBPROGRAM
06f0 ; --------------------------------------------------------------------------------------
06f0 06f5 | | .CONST 0x06f5 ; Address of begin
06f1 0004 | | .CONST 0x0004 ; Address of exception handler
06f2 0002 | | .CONST 0x0002 ; Number of locals
06f3 INIT_06f0:
06f3 e00c | | Load 0x0,0xc
06f4 0322 | " | Declare_Variable Record
06f5 BODY_06f0:
06f5 00d8 | | Load_Top At_Offset_0
06f6 e5ff | | Load 0x2,-0x1
06f7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06f8 e5ff | | Load 0x2,-0x1
06f9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06fa e5ff | | Load 0x2,-0x1
06fb 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
06fc 8013 | | Call 0x0,0x13
06fd 00d1 | | Pop_Control Pop_Count_1
06fe 00d8 | | Load_Top At_Offset_0
06ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0700 ; --------------------------------------------------------------------------------------
0700 ; SUBPROGRAM
0700 ; --------------------------------------------------------------------------------------
0700 070b | | .CONST 0x070b ; Address of begin
0701 0004 | | .CONST 0x0004 ; Address of exception handler
0702 0006 | | .CONST 0x0006 ; Number of locals
0703 INIT_0700:
0703 00da | | Load_Top At_Offset_2
0704 01dc | | Execute Vector,Last
0705 00e3 | | Load_Encached Natural_Cache
0706 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0707 00e8 | | Load_Encached Character_Cache
0708 00e2 | | Load_Encached Integer_Cache
0709 00e1 | | Load_Encached Boolean_Cache
070a 00e2 | | Load_Encached Integer_Cache
070b BODY_0700:
070b 4800 |H | Short_Literal 0x0
070c a5fe | | Store_Unchecked 0x2,-0x2
070d e5ff | | Load 0x2,-0x1
070e 01db | | Execute Vector,Length
070f 7003 |p | Jump_Nonzero 0x713
0710 4800 |H | Short_Literal 0x0
0711 a5fd | | Store_Unchecked 0x2,-0x3
0712 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0713 4800 |H | Short_Literal 0x0
0714 e257 | W | Load 0x1,0x57
0715 e5ff | | Load 0x2,-0x1
0716 e00a | | Load 0x0,0xa
0717 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0718 6805 |h | Jump_Zero 0x71e
0719 4801 |H | Short_Literal 0x1
071a a5fd | | Store_Unchecked 0x2,-0x3
071b 822a | * | Call 0x1,0x2a
071c a5fe | | Store_Unchecked 0x2,-0x2
071d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
071e e402 | | Load 0x2,0x2
071f e5ff | | Load 0x2,-0x1
0720 01d7 | | Execute Vector,Field_Read
0721 e00a | | Load 0x0,0xa
0722 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0723 a403 | | Store_Unchecked 0x2,0x3
0724 00db | | Load_Top At_Offset_3
0725 0f44 | D | Execute_Immediate Equal,0x44
0726 6806 |h | Jump_Zero 0x72d
0727 e402 | | Load 0x2,0x2
0728 0aff | | Execute_Immediate Plus,-0x1
0729 c402 | | Store 0x2,0x2
072a 4fff |O | Short_Literal -0x1
072b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
072c 780b |x | Jump 0x738
072d 00db | | Load_Top At_Offset_3
072e 0f53 | S | Execute_Immediate Equal,0x53
072f 6806 |h | Jump_Zero 0x736
0730 e402 | | Load 0x2,0x2
0731 0aff | | Execute_Immediate Plus,-0x1
0732 c402 | | Store 0x2,0x2
0733 4801 |H | Short_Literal 0x1
0734 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0735 7802 |x | Jump 0x738
0736 4801 |H | Short_Literal 0x1
0737 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0738 e402 | | Load 0x2,0x2
0739 e5ff | | Load 0x2,-0x1
073a 01dd | | Execute Vector,First
073b 027c | | | Execute Discrete,Less
073c 6803 |h | Jump_Zero 0x740
073d 4800 |H | Short_Literal 0x0
073e a5fd | | Store_Unchecked 0x2,-0x3
073f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0740 00e1 | | Load_Encached Boolean_Cache
0741 00e2 | | Load_Encached Integer_Cache
0742 480a |H | Short_Literal 0xa
0743 e5ff | | Load 0x2,-0x1
0744 01dd | | Execute Vector,First
0745 e402 | | Load 0x2,0x2
0746 e5ff | | Load 0x2,-0x1
0747 01cf | | Execute Vector,Slice_Read
0748 e00a | | Load 0x0,0xa
0749 1818 | | Execute Package,Field_Execute,Field_Number 0x18
074a 005a | Z | Store_Top Discrete,At_Offset_2
074b 005a | Z | Store_Top Discrete,At_Offset_2
074c 00d9 | | Load_Top At_Offset_1
074d 6803 |h | Jump_Zero 0x751
074e 00d8 | | Load_Top At_Offset_0
074f 0d01 | | Execute_Immediate Less,0x1
0750 6803 |h | Jump_Zero 0x754
0751 4800 |H | Short_Literal 0x0
0752 a5fd | | Store_Unchecked 0x2,-0x3
0753 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0754 00da | | Load_Top At_Offset_2
0755 00d9 | | Load_Top At_Offset_1
0756 0271 | q | Execute Discrete,Times
0757 00d8 | | Load_Top At_Offset_0
0758 e20e | | Load 0x1,0xe
0759 0260 | ` | Execute Discrete,In_Type
075a 7001 |p | Jump_Nonzero 0x75c
075b 0801 | | Execute_Immediate Raise,0x1
075c a5fe | | Store_Unchecked 0x2,-0x2
075d 4801 |H | Short_Literal 0x1
075e a5fd | | Store_Unchecked 0x2,-0x3
075f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0760 ; --------------------------------------------------------------------------------------
0760 ; SUBPROGRAM
0760 ; --------------------------------------------------------------------------------------
0760 0767 | g | .CONST 0x0767 ; Address of begin
0761 0004 | | .CONST 0x0004 ; Address of exception handler
0762 0002 | | .CONST 0x0002 ; Number of locals
0763 INIT_0760:
0763 00da | | Load_Top At_Offset_2
0764 822b | + | Call 0x1,0x2b
0765 00e3 | | Load_Encached Natural_Cache
0766 03f1 | | Declare_Variable Discrete,With_Value
0767 BODY_0760:
0767 e5fe | | Load 0x2,-0x2
0768 00d9 | | Load_Top At_Offset_1
0769 027d | } | Execute Discrete,Greater
076a 6802 |h | Jump_Zero 0x76d
076b e244 | D | Load 0x1,0x44
076c 0257 | W | Execute Discrete,Raise
076d 00d8 | | Load_Top At_Offset_0
076e e5fe | | Load 0x2,-0x2
076f 0272 | r | Execute Discrete,Minus
0770 0a01 | | Execute_Immediate Plus,0x1
0771 00d8 | | Load_Top At_Offset_0
0772 00e4 | | Load_Encached Positive_Cache
0773 0260 | ` | Execute Discrete,In_Type
0774 7001 |p | Jump_Nonzero 0x776
0775 0801 | | Execute_Immediate Raise,0x1
0776 e5ff | | Load 0x2,-0x1
0777 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0778 e250 | P | Load 0x1,0x50
0779 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
077a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
077b 0000 0000 | | .BLANK 0000[0x5]
0780 ; --------------------------------------------------------------------------------------
0780 ; SUBPROGRAM
0780 ; --------------------------------------------------------------------------------------
0780 0787 | | .CONST 0x0787 ; Address of begin
0781 0004 | | .CONST 0x0004 ; Address of exception handler
0782 0002 | | .CONST 0x0002 ; Number of locals
0783 INIT_0780:
0783 e255 | U | Load 0x1,0x55
0784 0322 | " | Declare_Variable Record
0785 00d8 | | Load_Top At_Offset_0
0786 1c00 | | Execute_Immediate Run_Utility,0x0
0787 BODY_0780:
0787 00d8 | | Load_Top At_Offset_0
0788 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0789 e254 | T | Load 0x1,0x54
078a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
078b 4800 |H | Short_Literal 0x0
078c e254 | T | Load 0x1,0x54
078d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
078e 00d1 | | Pop_Control Pop_Count_1
078f 00d8 | | Load_Top At_Offset_0
0790 00ca | | Action Exit_Nullary_Function
0791 0000 0000 | | .BLANK 0000[0x7]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b e403 | | Load 0x2,0x3
079c e402 | | Load 0x2,0x2
079d 027f | | Execute Discrete,Equal
079e 680a |h | Jump_Zero 0x7a9
079f e403 | | Load 0x2,0x3
07a0 00d8 | | Load_Top At_Offset_0
07a1 00e4 | | Load_Encached Positive_Cache
07a2 0260 | ` | Execute Discrete,In_Type
07a3 7001 |p | Jump_Nonzero 0x7a5
07a4 0801 | | Execute_Immediate Raise,0x1
07a5 e5ff | | Load 0x2,-0x1
07a6 822e | . | Call 0x1,0x2e
07a7 8010 | | Call 0x0,0x10
07a8 00ca | | Action Exit_Nullary_Function
07a9 e403 | | Load 0x2,0x3
07aa e402 | | Load 0x2,0x2
07ab 027c | | | Execute Discrete,Less
07ac 6810 |h | Jump_Zero 0x7bd
07ad e403 | | Load 0x2,0x3
07ae 0a01 | | Execute_Immediate Plus,0x1
07af c403 | | Store 0x2,0x3
07b0 e403 | | Load 0x2,0x3
07b1 0aff | | Execute_Immediate Plus,-0x1
07b2 00d8 | | Load_Top At_Offset_0
07b3 00e4 | | Load_Encached Positive_Cache
07b4 0260 | ` | Execute Discrete,In_Type
07b5 7001 |p | Jump_Nonzero 0x7b7
07b6 0801 | | Execute_Immediate Raise,0x1
07b7 e5ff | | Load 0x2,-0x1
07b8 822e | . | Call 0x1,0x2e
07b9 8010 | | Call 0x0,0x10
07ba 8404 | | Call 0x2,0x4
07bb 01cc | | Execute Vector,Catenate
07bc 00ca | | Action Exit_Nullary_Function
07bd 00ea | | Load_Encached Null_String_Cache
07be 00ca | | Action Exit_Nullary_Function
07bf 0000 | | .XXX[0x1]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3 | | .CONST 0x07c3 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0001 | | .CONST 0x0001 ; Number of locals
07c3 BODY_07c0:
07c3 INIT_07c0:
07c3 e403 | | Load 0x2,0x3
07c4 e402 | | Load 0x2,0x2
07c5 027d | } | Execute Discrete,Greater
07c6 6802 |h | Jump_Zero 0x7c9
07c7 00ea | | Load_Encached Null_String_Cache
07c8 00ca | | Action Exit_Nullary_Function
07c9 e403 | | Load 0x2,0x3
07ca 0a01 | | Execute_Immediate Plus,0x1
07cb c403 | | Store 0x2,0x3
07cc e403 | | Load 0x2,0x3
07cd 0aff | | Execute_Immediate Plus,-0x1
07ce 00d8 | | Load_Top At_Offset_0
07cf 00e4 | | Load_Encached Positive_Cache
07d0 0260 | ` | Execute Discrete,In_Type
07d1 7001 |p | Jump_Nonzero 0x7d3
07d2 0801 | | Execute_Immediate Raise,0x1
07d3 e5ff | | Load 0x2,-0x1
07d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07d5 e254 | T | Load 0x1,0x54
07d6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
07d7 8240 | @ | Call 0x1,0x40
07d8 8404 | | Call 0x2,0x4
07d9 01cc | | Execute Vector,Catenate
07da 00ca | | Action Exit_Nullary_Function
07db 0000 0000 | | .BLANK 0000[0x5]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 e403 | | Load 0x2,0x3
07e4 e402 | | Load 0x2,0x2
07e5 027d | } | Execute Discrete,Greater
07e6 6802 |h | Jump_Zero 0x7e9
07e7 00ea | | Load_Encached Null_String_Cache
07e8 00ca | | Action Exit_Nullary_Function
07e9 e403 | | Load 0x2,0x3
07ea 0a01 | | Execute_Immediate Plus,0x1
07eb c403 | | Store 0x2,0x3
07ec e403 | | Load 0x2,0x3
07ed 0aff | | Execute_Immediate Plus,-0x1
07ee 00d8 | | Load_Top At_Offset_0
07ef 00e4 | | Load_Encached Positive_Cache
07f0 0260 | ` | Execute Discrete,In_Type
07f1 7001 |p | Jump_Nonzero 0x7f3
07f2 0801 | | Execute_Immediate Raise,0x1
07f3 e5ff | | Load 0x2,-0x1
07f4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
07f5 e254 | T | Load 0x1,0x54
07f6 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
07f7 8247 | G | Call 0x1,0x47
07f8 0092 0847 | G| Action Push_String_Extended,0x847 ; " "
07fa 01cc | | Execute Vector,Catenate
07fb 8404 | | Call 0x2,0x4
07fc 01cc | | Execute Vector,Catenate
07fd 00ca | | Action Exit_Nullary_Function
07fe 0000 0000 | | .XXX[0x2]
0800 ; --------------------------------------------------------------------------------------
0800 ; SUBPROGRAM
0800 ; --------------------------------------------------------------------------------------
0800 0805 | | .CONST 0x0805 ; Address of begin
0801 0004 | | .CONST 0x0004 ; Address of exception handler
0802 0003 | | .CONST 0x0003 ; Number of locals
0803 INIT_0800:
0803 00e2 | | Load_Encached Integer_Cache
0804 00e1 | | Load_Encached Boolean_Cache
0805 BODY_0800:
0805 00e1 | | Load_Encached Boolean_Cache
0806 00e2 | | Load_Encached Integer_Cache
0807 4810 |H | Short_Literal 0x10
0808 e7ff | | Load 0x3,-0x1
0809 e00a | | Load 0x0,0xa
080a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
080b 005b | [ | Store_Top Discrete,At_Offset_3
080c 0059 | Y | Store_Top Discrete,At_Offset_1
080d 00d8 | | Load_Top At_Offset_0
080e 6802 |h | Jump_Zero 0x811
080f 00d9 | | Load_Top At_Offset_1
0810 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0811 e24d | M | Load 0x1,0x4d
0812 0257 | W | Execute Discrete,Raise
0813 0000 0000 | | .BLANK 0000[0x5]
0818 ; --------------------------------------------------------------------------------------
0818 ; SUBPROGRAM
0818 ; --------------------------------------------------------------------------------------
0818 081b | | .CONST 0x081b ; Address of begin
0819 0004 | | .CONST 0x0004 ; Address of exception handler
081a 0001 | | .CONST 0x0001 ; Number of locals
081b BODY_0818:
081b INIT_0818:
081b 4601 |F | Jump_Case 0x2
081c 7801 |x | Jump 0x81e ; case 0x0
081d 7807 |x | Jump 0x825 ; case 0x1
081e 00da | | Load_Top At_Offset_2
081f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0820 0125 | % | Execute Any,Set_Constraint
0821 00da | | Load_Top At_Offset_2
0822 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0823 1c00 | | Execute_Immediate Run_Utility,0x0
0824 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0825 00da | | Load_Top At_Offset_2
0826 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0827 0125 | % | Execute Any,Set_Constraint
0828 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0829 0000 0000 | | .BLANK 0000[0x7]
0830 ; --------------------------------------------------------------------------------------
0830 ; SUBPROGRAM
0830 ; --------------------------------------------------------------------------------------
0830 0833 | 3 | .CONST 0x0833 ; Address of begin
0831 0004 | | .CONST 0x0004 ; Address of exception handler
0832 0001 | | .CONST 0x0001 ; Number of locals
0833 BODY_0830:
0833 INIT_0830:
0833 4601 |F | Jump_Case 0x2
0834 7801 |x | Jump 0x836 ; case 0x0
0835 7807 |x | Jump 0x83d ; case 0x1
0836 00da | | Load_Top At_Offset_2
0837 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0838 0125 | % | Execute Any,Set_Constraint
0839 00da | | Load_Top At_Offset_2
083a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
083b 1c00 | | Execute_Immediate Run_Utility,0x0
083c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
083d 00da | | Load_Top At_Offset_2
083e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
083f 0125 | % | Execute Any,Set_Constraint
0840 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0841 ; --------------------------------------------------------------------------------------
0841 ; STRING TABLE
0841 ; --------------------------------------------------------------------------------------
0841 0010 | | .STRTAB 0x0010->0x0849 ; "END"
0842 0011 | | .STRTAB 0x0011->0x084a ; "NONEXISTENT_PAGE_ERROR"
0843 0025 | % | .STRTAB 0x0025->0x0855 ; "{M:"
0844 0026 | & | .STRTAB 0x0026->0x0857 ; " I:"
0845 0027 | ' | .STRTAB 0x0027->0x0858 ; " Pos:"
0846 002a | * | .STRTAB 0x002a->0x085b ; "}"
0847 0029 | ) | .STRTAB 0x0029->0x085b ; " "
0848 0028 | ( | .STREND 0x0028->0x085c
0849 454e 444e |ENDN| .STRTAB_STRINGS
085c 0000 0000 | | .BLANK 0000[0x4]
0860 ; --------------------------------------------------------------------------------------
0860 ; Debug Table
0860 ; --------------------------------------------------------------------------------------
0860 0004 0009 | | .DEBUG4 0x0004,0x0009,0x1298,0x0000,0x0001,0x0000
0866 d053 1313 | S | .XXX[0x102]
0868 d0d0 5512 | U |
086a 53d3 97d5 |S |
086c 1654 114e | T N|
086e e65c 8e64 | \ d|
0870 0700 02d1 | |
0872 1254 d514 | T |
0874 9250 9555 | P U|
0876 13d4 9985 | |
0878 c006 d352 | R|
087a 50d4 93d0 |P |
087c d3d1 1157 | W|
087e d516 5411 | T |
0880 54cb 9353 |T S|
0882 d115 5311 | S |
0884 57d3 9053 |W S|
0886 5140 000e |Q@ |
0888 6407 0003 |d |
088a d455 5155 | UQU|
088c 5157 d053 |QW S|
088e 1313 d0d0 | |
0890 5511 5119 |U Q |
0892 85c0 0414 | |
0894 d510 5391 | S |
0896 1054 910b | T |
0898 9093 d3d3 | |
089a 1150 5380 | PS |
089c 000e 6407 | d |
089e 0003 d455 | U|
08a0 5155 5157 |QUQW|
08a2 d393 d517 | |
08a4 d153 5415 | ST |
08a6 1659 85c0 | Y |
08a8 0414 d510 | |
08aa 5391 1054 |S T|
08ac 910b 9093 | |
08ae d3d3 1150 | P|
08b0 5380 000e |S |
08b2 6407 0003 |d |
08b4 5254 d7d0 |RT |
08b6 d055 1053 | U S|
08b8 13d1 d551 | Q|
08ba 5119 85c0 |Q |
08bc 0414 d510 | |
08be 5391 1054 |S T|
08c0 910b 9093 | |
08c2 d3d3 1150 | P|
08c4 5380 000e |S |
08c6 6407 0002 |d |
08c8 1254 d7d5 | T |
08ca d254 9151 | T Q|
08cc 1985 c004 | |
08ce 14d5 1053 | S|
08d0 9110 5491 | T |
08d2 0b90 93d3 | |
08d4 d311 5053 | PS|
08d6 8000 0e64 | d|
08d8 0700 0411 | |
08da 93d4 90d1 | |
08dc 57d0 9491 |W |
08de 5052 d413 |PR |
08e0 d253 9519 | S |
08e2 85c0 0414 | |
08e4 d510 5391 | S |
08e6 1054 910b | T |
08e8 9093 d3d3 | |
08ea 1150 5380 | PS |
08ec 000e 6407 | d |
08ee 0003 90d3 | |
08f0 d395 1493 | |
08f2 d317 d156 | V|
08f4 1511 5395 | S |
08f6 1985 c009 | |
08f8 1352 50d4 | RP |
08fa 93d0 d3d1 | |
08fc 1157 d516 | W |
08fe 5411 54cb |T T |
0900 90d3 d395 | |
0902 1493 d317 | |
0904 d112 54d4 | T |
0906 1310 50d1 | P |
0908 5351 5395 |SQS |
090a 0000 0e64 | d|
090c 0700 01d3 | |
090e d197 d2d2 | |
0910 5391 1985 |S |
0912 c006 5352 | SR|
0914 50d4 93d0 |P |
0916 d3d1 1157 | W|
0918 d516 5411 | T |
091a 54cb 95d3 |T |
091c d491 17d2 | |
091e d253 9100 | S |
0920 000e 6407 | d |
0922 0003 d094 | |
0924 9150 52d4 | PR |
0926 13d2 5395 | S |
0928 17d3 5054 | PT|
092a d2d9 85c0 | |
092c 0513 5250 | RP|
092e d493 d0d3 | |
0930 d111 57d5 | W |
0932 1654 1154 | T T|
0934 cb93 5054 | PT|
0936 d2c0 000e | |
0938 6407 0003 |d |
093a 5192 5313 |Q S |
093c 1154 97ce | T |
093e 0c17 cc4c | L|
0940 4c59 85c0 |LY |
0942 0293 9055 | U|
0944 1554 9053 | T S|
0946 17cc cc80 | |
0948 000e 6407 | d |
094a 0004 d193 | |
094c d490 d253 | S|
094e 91d7 d253 | S|
0950 94d5 1495 | |
0952 50d5 1253 |P S|
0954 d399 85c0 | |
0956 0853 5250 | SRP|
0958 d493 d0d3 | |
095a d111 57d5 | W |
095c 1654 1154 | T T|
095e cb92 5394 | S |
0960 d514 9550 | P|
0962 d512 53d3 | S |
0964 97d5 9053 | S|
0966 1551 4000 | Q@ |
0968 0000 0000 | | .BLANK 0000[0x4]
096c 0043 8000 | C | .XXX[0x26]
096e 0000 8000 | |
0970 003b 8011 | ; |
0972 a6a4 a1a9 | |
0974 27a1 a7a2 |' |
0976 22af aa2c |" ,|
0978 a822 a997 | " |
097a 2720 aa2a |' *|
097c a920 a629 | )|
097e 9727 20aa | ' |
0980 2aa9 20a6 |* |
0982 2f9a 1a9e |/ |
0984 330b 800a |3 |
0986 a9aa 20a7 | |
0988 2220 a922 |" "|
098a 1726 27a7 | &' |
098c 23af a4a7 |# |
098e 2a22 a3a2 |*" |
0990 a930 8400 | 0 |
0992 0000 0000 | | .BLANK 0000[0x4]
0996 0800 0a80 | | .XXX[0x8]
0998 0096 c988 | |
099a 000a 8001 | |
099c 1515 4984 | I |
099e 0000 0000 | | .BLANK 0000[0x4]
09a2 0104 | | .XXX[0x1]
09a3 0000 0000 | | .BLANK 0000[0x4]
09a7 1684 | | .XXX[0x1]
09a8 0000 0000 | | .BLANK 0000[0x4]
09ac 0080 0000 | | .XXX[0x4b]
09ae 0000 0000 | |
09b0 ee00 0000 | |
09b2 0100 0000 | |
09b4 a200 234d | #M|
09b6 4943 524f |ICRO|
09b8 434f 4445 |CODE|
09ba 5f54 5950 |_TYP|
09bc 4553 2e4e |ES.N|
09be 4154 5552 |ATUR|
09c0 414c 532e |ALS.|
09c2 494e 5445 |INTE|
09c4 4745 525f |GER_|
09c6 3332 3c66 |32<f|
09c8 1700 1553 | S|
09ca 5441 4e44 |TAND|
09cc 4152 442e |ARD.|
09ce 4c4f 4e47 |LONG|
09d0 5f49 4e54 |_INT|
09d2 4547 4552 |EGER|
09d4 6110 0015 |a |
09d6 0001 2d93 | - |
09d8 0910 0015 | |
09da 0001 2d93 | - |
09dc 1000 1500 | |
09de 022a 2a93 | ** |
09e0 0800 0000 | |
09e2 0000 0000 | |
09e4 0002 0800 | |
09e6 0000 0000 | |
09e8 0000 001f | |
09ea 0800 0000 | |
09ec 0000 0000 | |
09ee 0001 1000 | |
09f0 1500 012d | -|
09f2 9310 0015 | |
09f4 0002 2a2a | **|
09f6 9308 | |
09f7 0000 0000 | | .BLANK 0000[0x4]
09fb 0208 | | .XXX[0x1]
09fc 0000 0000 | | .BLANK 0000[0x4]