|
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: 6144 (0x1800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0a20 | | .CONST 0x0a20 ; 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 00cf | | .CONST 0x00cf ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003b | ; | .CONST 0x003b ; Number of locals
000b INIT_0008:
000b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
000d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
000f 4800 |H | Short_Literal 0x0
0010 4802 |H | Short_Literal 0x2
0011 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
0013 03fe | | Declare_Type Discrete,Defined,Visible
0014 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0016 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0018 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated
001a 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
001c 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
001e 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0020 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0022 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0024 029a 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call,Visible,Unelaborated
0026 029a 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call,Visible,Unelaborated
0028 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
002a 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
002c 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated
002e 029a 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call,Visible,Unelaborated
0030 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated
0032 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0034 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0036 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0038 029a 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call,Visible,Unelaborated
003a 029a 0383 | | Declare_Subprogram INIT_0380,For_Outer_Call,Visible,Unelaborated
003c 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
003e 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
0040 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
0042 029a 049b | | Declare_Subprogram INIT_0498,For_Outer_Call,Visible,Unelaborated
0044 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
0046 029a 052b | +| Declare_Subprogram INIT_0528,For_Outer_Call,Visible,Unelaborated
0048 029a 054b | K| Declare_Subprogram INIT_0548,For_Outer_Call,Visible,Unelaborated
004a 029a 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call,Visible,Unelaborated
004c 480b |H | Short_Literal 0xb
004d 032b | + | Declare_Type Record,Incomplete,Visible
004e 00d8 | | Load_Top At_Offset_0
004f 02a0 | | Declare_Subprogram Null_Subprogram
0050 03ae | | Declare_Type Heap_Access,Defined,Visible
0051 00bf | | Action Accept_Activation
0052 00e2 | | Load_Encached Integer_Cache
0053 00e2 | | Load_Encached Integer_Cache
0054 e002 | | Load 0x0,0x2
0055 029f 0653 | S| Declare_Subprogram INIT_0650,For_Call
0057 4803 |H | Short_Literal 0x3
0058 032d | - | Declare_Type Record,Defined
0059 e003 | | Load 0x0,0x3
005a e004 | | Load 0x0,0x4
005b 00da | | Load_Top At_Offset_2
005c e005 | | Load 0x0,0x5
005d 0387 | | Declare_Variable Package
005e 00d8 | | Load_Top At_Offset_0
005f 020f | | Execute Module,Activate
0060 e20f | | Load 0x1,0xf
0061 e006 | | Load 0x0,0x6
0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0063 e007 | | Load 0x0,0x7
0064 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0065 e007 | | Load 0x0,0x7
0066 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0067 00e1 | | Load_Encached Boolean_Cache
0068 00e2 | | Load_Encached Integer_Cache
0069 e002 | | Load 0x0,0x2
006a 00e2 | | Load_Encached Integer_Cache
006b 00e2 | | Load_Encached Integer_Cache
006c 00e1 | | Load_Encached Boolean_Cache
006d e22f | / | Load 0x1,0x2f
006e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
006f 029f 0663 | c| Declare_Subprogram INIT_0660,For_Call
0071 e22c | , | Load 0x1,0x2c
0072 0326 | & | Complete_Type Record,By_Defining
0073 00da | | Load_Top At_Offset_2
0074 03a0 | | Complete_Type Heap_Access,By_Component_Completion
0075 029d 0683 | | Declare_Subprogram INIT_0680,For_Outer_Call
0077 029d 0713 | | Declare_Subprogram INIT_0710,For_Outer_Call
0079 029d 0723 | #| Declare_Subprogram INIT_0720,For_Outer_Call
007b 029d 0753 | S| Declare_Subprogram INIT_0750,For_Outer_Call
007d 029d 0793 | | Declare_Subprogram INIT_0790,For_Outer_Call
007f 029d 07fb | | Declare_Subprogram INIT_07f8,For_Outer_Call
0081 029d 0843 | C| Declare_Subprogram INIT_0840,For_Outer_Call
0083 029d 085b | [| Declare_Subprogram INIT_0858,For_Outer_Call
0085 e008 | | Load 0x0,0x8
0086 e009 | | Load 0x0,0x9
0087 e00a | | Load 0x0,0xa
0088 e007 | | Load 0x0,0x7
0089 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
008a 0387 | | Declare_Variable Package
008b 00d8 | | Load_Top At_Offset_0
008c 020f | | Execute Module,Activate
008d 029d 0873 | s| Declare_Subprogram INIT_0870,For_Outer_Call
008f 029d 094b | K| Declare_Subprogram INIT_0948,For_Outer_Call
0091 029d 0963 | c| Declare_Subprogram INIT_0960,For_Outer_Call
0093 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0094 00c7 | | Action Elaborate_Subprogram
0095 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0096 00c7 | | Action Elaborate_Subprogram
0097 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0098 00c7 | | Action Elaborate_Subprogram
0099 1d14 | | Execute_Immediate Reference_Lex_1,0x14
009a 00c7 | | Action Elaborate_Subprogram
009b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009c 00c7 | | Action Elaborate_Subprogram
009d 1d12 | | Execute_Immediate Reference_Lex_1,0x12
009e 00c7 | | Action Elaborate_Subprogram
009f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00ce 00c7 | | Action Elaborate_Subprogram
00cf BODY_0008:
00cf 00bc | | Action Signal_Activated
00d0 00bb | | Action Signal_Completion
00d1 0000 0000 | | .BLANK 0000[0x7]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e22d | - | Load 0x1,0x2d
00dc 00ca | | Action Exit_Nullary_Function
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 021d | | Execute Heap_Access,Is_Null
00e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 4607 |F | Jump_Case 0x8
00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00ed 7807 |x | Jump 0xf5 ; case 0x1
00ee 780a |x | Jump 0xf9 ; case 0x2
00ef 780e |x | Jump 0xfe ; case 0x3
00f0 7811 |x | Jump 0x102 ; case 0x4
00f1 7812 |x | Jump 0x104 ; case 0x5
00f2 7813 |x | Jump 0x106 ; case 0x6
00f3 7816 |x | Jump 0x10a ; case 0x7
00f4 4302 |C | .XXX[0x1]
00f5 00da | | Load_Top At_Offset_2
00f6 0091 09d3 | | Action Push_String_Extended_Indexed,0x9d3 ; "READ"
00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f9 00db | | Load_Top At_Offset_3
00fa 00db | | Load_Top At_Offset_3
00fb 00e0 | | Load_Encached Standard_Cache
00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe 00da | | Load_Top At_Offset_2
00ff 00e0 | | Load_Encached Standard_Cache
0100 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0101 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0102 00db | | Load_Top At_Offset_3
0103 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0104 00db | | Load_Top At_Offset_3
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 e20f | | Load 0x1,0xf
0107 00dc | | Load_Top At_Offset_4
0108 0267 | g | Execute Discrete,Predecessor
0109 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010a e20f | | Load 0x1,0xf
010b 00dc | | Load_Top At_Offset_4
010c 0268 | h | Execute Discrete,Successor
010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0119 | | .CONST 0x0119 ; Address of begin
0111 016c | l | .CONST 0x016c ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e22d | - | Load 0x1,0x2d
0114 e00b | | Load 0x0,0xb
0115 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0116 e00c | | Load 0x0,0xc
0117 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0118 039c | | Declare_Variable Heap_Access,By_Allocation
0119 BODY_0110:
0119 e5fe | | Load 0x2,-0x2
011a 00d9 | | Load_Top At_Offset_1
011b 0217 | | Execute Heap_Access,All_Reference
011c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
011d 4800 |H | Short_Literal 0x0
011e 00d9 | | Load_Top At_Offset_1
011f 0217 | | Execute Heap_Access,All_Reference
0120 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0121 e5fe | | Load 0x2,-0x2
0122 4602 |F | Jump_Case 0x3
0123 7816 |x | Jump 0x13a ; case 0x0
0124 782e |x. | Jump 0x153 ; case 0x1
0125 7800 |x | Jump 0x126 ; case 0x2
0126 00d8 | | Load_Top At_Offset_0
0127 0219 | | Execute Heap_Access,All_Read
0128 00d8 | | Load_Top At_Offset_0
0129 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012a e00d | | Load 0x0,0xd
012b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012c e00e | | Load 0x0,0xe
012d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
012e 00ea | | Load_Encached Null_String_Cache
012f e5ff | | Load 0x2,-0x1
0130 e006 | | Load 0x0,0x6
0131 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0132 00d9 | | Load_Top At_Offset_1
0133 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0134 00d1 | | Pop_Control Pop_Count_1
0135 00db | | Load_Top At_Offset_3
0136 e5fe | | Load 0x2,-0x2
0137 00da | | Load_Top At_Offset_2
0138 8234 | 4 | Call 0x1,0x34
0139 782f |x/ | Jump 0x169
013a 00db | | Load_Top At_Offset_3
013b e5fe | | Load 0x2,-0x2
013c 00da | | Load_Top At_Offset_2
013d 8234 | 4 | Call 0x1,0x34
013e 00d8 | | Load_Top At_Offset_0
013f 0217 | | Execute Heap_Access,All_Reference
0140 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0141 6827 |h' | Jump_Zero 0x169
0142 00d8 | | Load_Top At_Offset_0
0143 0219 | | Execute Heap_Access,All_Read
0144 00d8 | | Load_Top At_Offset_0
0145 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0146 e00d | | Load 0x0,0xd
0147 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0148 e00e | | Load 0x0,0xe
0149 181e | | Execute Package,Field_Execute,Field_Number 0x1e
014a 00ea | | Load_Encached Null_String_Cache
014b e5ff | | Load 0x2,-0x1
014c 4800 |H | Short_Literal 0x0
014d e006 | | Load 0x0,0x6
014e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014f 00d9 | | Load_Top At_Offset_1
0150 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0151 00d1 | | Pop_Control Pop_Count_1
0152 7816 |x | Jump 0x169
0153 00d8 | | Load_Top At_Offset_0
0154 0219 | | Execute Heap_Access,All_Read
0155 00d8 | | Load_Top At_Offset_0
0156 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0157 e00d | | Load 0x0,0xd
0158 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0159 e00e | | Load 0x0,0xe
015a 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
015b e00e | | Load 0x0,0xe
015c 181e | | Execute Package,Field_Execute,Field_Number 0x1e
015d 00ea | | Load_Encached Null_String_Cache
015e e5ff | | Load 0x2,-0x1
015f 4801 |H | Short_Literal 0x1
0160 e006 | | Load 0x0,0x6
0161 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0162 00d9 | | Load_Top At_Offset_1
0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0164 00d1 | | Pop_Control Pop_Count_1
0165 00db | | Load_Top At_Offset_3
0166 e5fe | | Load 0x2,-0x2
0167 00da | | Load_Top At_Offset_2
0168 8234 | 4 | Call 0x1,0x34
0169 00d8 | | Load_Top At_Offset_0
016a a5fd | | Store_Unchecked 0x2,-0x3
016b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
016c TRAP_0110:
016c 0007 | | Action Break_Optional
016d e00f | | Load 0x0,0xf
016e 180e | | Execute Package,Field_Execute,Field_Number 0xe
016f 4808 |H | Short_Literal 0x8
0170 0092 09d6 | | Action Push_String_Extended,0x9d6 ; "Cannot open "
0172 e5ff | | Load 0x2,-0x1
0173 01cc | | Execute Vector,Catenate
0174 0092 09d7 | | Action Push_String_Extended,0x9d7 ; " ("
0176 01cc | | Execute Vector,Catenate
0177 4800 |H | Short_Literal 0x0
0178 4801 |H | Short_Literal 0x1
0179 e010 | | Load 0x0,0x10
017a 1815 | | Execute Package,Field_Execute,Field_Number 0x15
017b 01cc | | Execute Vector,Catenate
017c 0092 09d8 | | Action Push_String_Extended,0x9d8 ; ")"
017e 01cc | | Execute Vector,Catenate
017f e011 | | Load 0x0,0x11
0180 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0181 e22d | - | Load 0x1,0x2d
0182 a5fd | | Store_Unchecked 0x2,-0x3
0183 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018d | | .CONST 0x018d ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0002 | | .CONST 0x0002 ; Number of locals
018b INIT_0188:
018b e007 | | Load 0x0,0x7
018c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
018d BODY_0188:
018d e5fe | | Load 0x2,-0x2
018e 0217 | | Execute Heap_Access,All_Reference
018f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0190 6802 |h | Jump_Zero 0x193
0191 e5fe | | Load 0x2,-0x2
0192 8217 | | Call 0x1,0x17
0193 e5fe | | Load 0x2,-0x2
0194 0217 | | Execute Heap_Access,All_Reference
0195 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0196 e006 | | Load 0x0,0x6
0197 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0198 6809 |h | Jump_Zero 0x1a2
0199 e5fe | | Load 0x2,-0x2
019a 0219 | | Execute Heap_Access,All_Read
019b 00d8 | | Load_Top At_Offset_0
019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019d e006 | | Load 0x0,0x6
019e 1819 | | Execute Package,Field_Execute,Field_Number 0x19
019f 00d9 | | Load_Top At_Offset_1
01a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a1 00d1 | | Pop_Control Pop_Count_1
01a2 e5fe | | Load 0x2,-0x2
01a3 0217 | | Execute Heap_Access,All_Reference
01a4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a5 e007 | | Load 0x0,0x7
01a6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
01a7 680c |h | Jump_Zero 0x1b4
01a8 e5fe | | Load 0x2,-0x2
01a9 0219 | | Execute Heap_Access,All_Read
01aa e007 | | Load 0x0,0x7
01ab 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ac 00d9 | | Load_Top At_Offset_1
01ad 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ae e007 | | Load 0x0,0x7
01af 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01b0 00da | | Load_Top At_Offset_2
01b1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01b2 005a | Z | Store_Top Discrete,At_Offset_2
01b3 00d1 | | Pop_Control Pop_Count_1
01b4 e5fe | | Load 0x2,-0x2
01b5 8236 | 6 | Call 0x1,0x36
01b6 e22d | - | Load 0x1,0x2d
01b7 a5fe | | Store_Unchecked 0x2,-0x2
01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 00da | | Load_Top At_Offset_2
01c4 021c | | Execute Heap_Access,Not_Null
01c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c6 0000 0000 | | .XXX[0x2]
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 8237 | 7 | Call 0x1,0x37
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 0000 0000 | | .XXX[0x2]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d8 | | .CONST 0x01d8 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 0217 | | Execute Heap_Access,All_Reference
01d5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01d6 e006 | | Load 0x0,0x6
01d7 181f | | Execute Package,Field_Execute,Field_Number 0x1f
01d8 BODY_01d0:
01d8 00db | | Load_Top At_Offset_3
01d9 0217 | | Execute Heap_Access,All_Reference
01da 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01db 6802 |h | Jump_Zero 0x1de
01dc 00db | | Load_Top At_Offset_3
01dd 8217 | | Call 0x1,0x17
01de e5fe | | Load 0x2,-0x2
01df 4602 |F | Jump_Case 0x3
01e0 781b |x | Jump 0x1fc ; case 0x0
01e1 782a |x* | Jump 0x20c ; case 0x1
01e2 7800 |x | Jump 0x1e3 ; case 0x2
01e3 00db | | Load_Top At_Offset_3
01e4 0219 | | Execute Heap_Access,All_Read
01e5 00d8 | | Load_Top At_Offset_0
01e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e7 e006 | | Load 0x0,0x6
01e8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01e9 00d9 | | Load_Top At_Offset_1
01ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01eb 00d1 | | Pop_Control Pop_Count_1
01ec 00db | | Load_Top At_Offset_3
01ed 0219 | | Execute Heap_Access,All_Read
01ee 00d8 | | Load_Top At_Offset_0
01ef 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f0 e00d | | Load 0x0,0xd
01f1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f2 e00e | | Load 0x0,0xe
01f3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01f4 00ea | | Load_Encached Null_String_Cache
01f5 e402 | | Load 0x2,0x2
01f6 e006 | | Load 0x0,0x6
01f7 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f8 00d9 | | Load_Top At_Offset_1
01f9 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01fa 00d1 | | Pop_Control Pop_Count_1
01fb 781a |x | Jump 0x216
01fc 00db | | Load_Top At_Offset_3
01fd 0217 | | Execute Heap_Access,All_Reference
01fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01ff e006 | | Load 0x0,0x6
0200 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0201 6814 |h | Jump_Zero 0x216
0202 00db | | Load_Top At_Offset_3
0203 0219 | | Execute Heap_Access,All_Read
0204 00d8 | | Load_Top At_Offset_0
0205 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0206 e006 | | Load 0x0,0x6
0207 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0208 00d9 | | Load_Top At_Offset_1
0209 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020a 00d1 | | Pop_Control Pop_Count_1
020b 780a |x | Jump 0x216
020c 00db | | Load_Top At_Offset_3
020d 0219 | | Execute Heap_Access,All_Read
020e 00d8 | | Load_Top At_Offset_0
020f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0210 4801 |H | Short_Literal 0x1
0211 e006 | | Load 0x0,0x6
0212 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0213 00d9 | | Load_Top At_Offset_1
0214 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0215 00d1 | | Pop_Control Pop_Count_1
0216 00d8 | | Load_Top At_Offset_0
0217 e5fe | | Load 0x2,-0x2
0218 e5ff | | Load 0x2,-0x1
0219 8235 | 5 | Call 0x1,0x35
021a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0248 | H | .CONST 0x0248 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 00da | | Load_Top At_Offset_2
0224 0217 | | Execute Heap_Access,All_Reference
0225 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0226 6804 |h | Jump_Zero 0x22b
0227 e5fd | | Load 0x2,-0x3
0228 00db | | Load_Top At_Offset_3
0229 8232 | 2 | Call 0x1,0x32
022a 7811 |x | Jump 0x23c
022b 00cf | | Action Mark_Auxiliary
022c 00db | | Load_Top At_Offset_3
022d 8231 | 1 | Call 0x1,0x31
022e e5fd | | Load 0x2,-0x3
022f 017d | } | Execute Record,Structure_Write
0230 00db | | Load_Top At_Offset_3
0231 0217 | | Execute Heap_Access,All_Reference
0232 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0233 0c01 | | Execute_Immediate Greater_Equal,0x1
0234 7004 |p | Jump_Nonzero 0x239
0235 e5fe | | Load 0x2,-0x2
0236 7002 |p | Jump_Nonzero 0x239
0237 00c9 | | Action Pop_Auxiliary_Loop
0238 7ff3 | | Jump 0x22c
0239 00ce | | Action Pop_Auxiliary
023a 00da | | Load_Top At_Offset_2
023b 823a | : | Call 0x1,0x3a
023c 4801 |H | Short_Literal 0x1
023d 00db | | Load_Top At_Offset_3
023e 0217 | | Execute Heap_Access,All_Reference
023f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0240 00da | | Load_Top At_Offset_2
0241 0217 | | Execute Heap_Access,All_Reference
0242 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0243 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0244 00db | | Load_Top At_Offset_3
0245 0217 | | Execute Heap_Access,All_Reference
0246 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0247 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0248 TRAP_0220:
0248 00d8 | | Load_Top At_Offset_0
0249 0107 | | Execute Exception,Get_Name
024a 4950 |IP | Short_Literal 0x150
024b 495f |I_ | Short_Literal 0x15f
024c 0262 | b | Execute Discrete,In_Range
024d 6809 |h | Jump_Zero 0x257
024e 4800 |H | Short_Literal 0x0
024f e5ff | | Load 0x2,-0x1
0250 0217 | | Execute Heap_Access,All_Reference
0251 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0252 4800 |H | Short_Literal 0x0
0253 e5ff | | Load 0x2,-0x1
0254 0217 | | Execute Heap_Access,All_Reference
0255 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0256 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0257 0100 | | Execute Exception,Raise
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 0217 | | Execute Heap_Access,All_Reference
025d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025e 6802 |h | Jump_Zero 0x261
025f 4900 |I | Short_Literal 0x100
0260 0257 | W | Execute Discrete,Raise
0261 00cf | | Action Mark_Auxiliary
0262 7822 |x" | Jump 0x285
0263 00db | | Load_Top At_Offset_3
0264 8231 | 1 | Call 0x1,0x31
0265 e5fc | | Load 0x2,-0x4
0266 017d | } | Execute Record,Structure_Write
0267 e5fd | | Load 0x2,-0x3
0268 7003 |p | Jump_Nonzero 0x26c
0269 00db | | Load_Top At_Offset_3
026a 821f | | Call 0x1,0x1f
026b 7018 |p | Jump_Nonzero 0x284
026c 00db | | Load_Top At_Offset_3
026d 0217 | | Execute Heap_Access,All_Reference
026e 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
026f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0270 e012 | | Load 0x0,0x12
0271 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0272 e5fe | | Load 0x2,-0x2
0273 e013 | | Load 0x0,0x13
0274 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0275 680e |h | Jump_Zero 0x284
0276 00db | | Load_Top At_Offset_3
0277 823a | : | Call 0x1,0x3a
0278 00db | | Load_Top At_Offset_3
0279 0217 | | Execute Heap_Access,All_Reference
027a 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
027b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
027c e5ff | | Load 0x2,-0x1
027d 0217 | | Execute Heap_Access,All_Reference
027e 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
027f 4801 |H | Short_Literal 0x1
0280 e5ff | | Load 0x2,-0x1
0281 0217 | | Execute Heap_Access,All_Reference
0282 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0283 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0284 00c9 | | Action Pop_Auxiliary_Loop
0285 00db | | Load_Top At_Offset_3
0286 8237 | 7 | Call 0x1,0x37
0287 6fdb |o | Jump_Zero 0x263
0288 00ce | | Action Pop_Auxiliary
0289 8014 | | Call 0x0,0x14
028a e5fc | | Load 0x2,-0x4
028b 017d | } | Execute Record,Structure_Write
028c 4504 |E | Exit_Suprogram New_Top_Offset 0x4
028d 0000 0000 | | .XXX[0x3]
028f 0000 | |
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 821b | | Call 0x1,0x1b
0295 6820 |h | Jump_Zero 0x2b6
0296 00da | | Load_Top At_Offset_2
0297 0217 | | Execute Heap_Access,All_Reference
0298 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0299 6818 |h | Jump_Zero 0x2b2
029a 7800 |x | Jump 0x29b
029b 00da | | Load_Top At_Offset_2
029c 821d | | Call 0x1,0x1d
029d 0c01 | | Execute_Immediate Greater_Equal,0x1
029e 6813 |h | Jump_Zero 0x2b2
029f 4801 |H | Short_Literal 0x1
02a0 00db | | Load_Top At_Offset_3
02a1 821d | | Call 0x1,0x1d
02a2 e015 | | Load 0x0,0x15
02a3 1b12 | | Execute Package,Field_Read,Field_Number 0x12
02a4 035b | [ | Declare_Type Array,Constrained
02a5 0337 | 7 | Declare_Variable Array
02a6 00d8 | | Load_Top At_Offset_0
02a7 01dc | | Execute Vector,Last
02a8 4801 |H | Short_Literal 0x1
02a9 0263 | c | Execute Discrete,Above_Bound
02aa 7005 |p | Jump_Nonzero 0x2b0
02ab 4800 |H | Short_Literal 0x0
02ac 00d9 | | Load_Top At_Offset_1
02ad e402 | | Load 0x2,0x2
02ae 01d6 | | Execute Vector,Field_Write
02af 3ffb |? | Loop_Increasing 0x2ab
02b0 00db | | Load_Top At_Offset_3
02b1 8228 | ( | Call 0x1,0x28
02b2 4800 |H | Short_Literal 0x0
02b3 00db | | Load_Top At_Offset_3
02b4 0217 | | Execute Heap_Access,All_Reference
02b5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
02b6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 0217 | | Execute Heap_Access,All_Reference
02bd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02be 6813 |h | Jump_Zero 0x2d2
02bf 00da | | Load_Top At_Offset_2
02c0 0217 | | Execute Heap_Access,All_Reference
02c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02c2 700f |p | Jump_Nonzero 0x2d2
02c3 00da | | Load_Top At_Offset_2
02c4 0217 | | Execute Heap_Access,All_Reference
02c5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02c6 0c01 | | Execute_Immediate Greater_Equal,0x1
02c7 6809 |h | Jump_Zero 0x2d1
02c8 00da | | Load_Top At_Offset_2
02c9 0217 | | Execute Heap_Access,All_Reference
02ca 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02cb 0275 | u | Execute Discrete,Unary_Minus
02cc 00db | | Load_Top At_Offset_3
02cd 0217 | | Execute Heap_Access,All_Reference
02ce 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02cf 00da | | Load_Top At_Offset_2
02d0 8233 | 3 | Call 0x1,0x33
02d1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02d2 4900 |I | Short_Literal 0x100
02d3 0257 | W | Execute Discrete,Raise
02d4 0000 0000 | | .BLANK 0000[0x4]
02d8 ; --------------------------------------------------------------------------------------
02d8 ; SUBPROGRAM
02d8 ; --------------------------------------------------------------------------------------
02d8 02db | | .CONST 0x02db ; Address of begin
02d9 0004 | | .CONST 0x0004 ; Address of exception handler
02da 0001 | | .CONST 0x0001 ; Number of locals
02db BODY_02d8:
02db INIT_02d8:
02db 00da | | Load_Top At_Offset_2
02dc 0217 | | Execute Heap_Access,All_Reference
02dd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02de 6813 |h | Jump_Zero 0x2f2
02df 00da | | Load_Top At_Offset_2
02e0 0217 | | Execute Heap_Access,All_Reference
02e1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02e2 700f |p | Jump_Nonzero 0x2f2
02e3 00da | | Load_Top At_Offset_2
02e4 0217 | | Execute Heap_Access,All_Reference
02e5 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02e6 0d00 | | Execute_Immediate Less,0x0
02e7 6809 |h | Jump_Zero 0x2f1
02e8 00da | | Load_Top At_Offset_2
02e9 0217 | | Execute Heap_Access,All_Reference
02ea 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
02eb 0275 | u | Execute Discrete,Unary_Minus
02ec 00db | | Load_Top At_Offset_3
02ed 0217 | | Execute Heap_Access,All_Reference
02ee 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
02ef 00da | | Load_Top At_Offset_2
02f0 8233 | 3 | Call 0x1,0x33
02f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02f2 4900 |I | Short_Literal 0x100
02f3 0257 | W | Execute Discrete,Raise
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 0217 | | Execute Heap_Access,All_Reference
02fd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02fe 680c |h | Jump_Zero 0x30b
02ff 00da | | Load_Top At_Offset_2
0300 0219 | | Execute Heap_Access,All_Read
0301 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0302 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0303 00d8 | | Load_Top At_Offset_0
0304 e5fe | | Load 0x2,-0x2
0305 e012 | | Load 0x0,0x12
0306 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0307 00d2 | | Pop_Control Pop_Count_2
0308 00da | | Load_Top At_Offset_2
0309 8233 | 3 | Call 0x1,0x33
030a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
030b 4900 |I | Short_Literal 0x100
030c 0257 | W | Execute Discrete,Raise
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 6804 |h | Jump_Zero 0x319
0315 00da | | Load_Top At_Offset_2
0316 0217 | | Execute Heap_Access,All_Reference
0317 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0318 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0319 4800 |H | Short_Literal 0x0
031a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 821b | | Call 0x1,0x1b
0325 6805 |h | Jump_Zero 0x32b
0326 00da | | Load_Top At_Offset_2
0327 0217 | | Execute Heap_Access,All_Reference
0328 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0329 0d01 | | Execute_Immediate Less,0x1
032a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032b 4801 |H | Short_Literal 0x1
032c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 0217 | | Execute Heap_Access,All_Reference
0335 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 0000 | | .XXX[0x1]
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 033b | ; | .CONST 0x033b ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0001 | | .CONST 0x0001 ; Number of locals
033b BODY_0338:
033b INIT_0338:
033b 00da | | Load_Top At_Offset_2
033c 821b | | Call 0x1,0x1b
033d 6806 |h | Jump_Zero 0x344
033e 00da | | Load_Top At_Offset_2
033f 0217 | | Execute Heap_Access,All_Reference
0340 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0341 0320 | | Declare_Variable Record,Duplicate
0342 00cd | | Action Spare6_Action
0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0344 8014 | | Call 0x0,0x14
0345 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0346 0000 0000 | | .XXX[0x2]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 0217 | | Execute Heap_Access,All_Reference
034d 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
034e 0d00 | | Execute_Immediate Less,0x0
034f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00da | | Load_Top At_Offset_2
0354 0217 | | Execute Heap_Access,All_Reference
0355 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0356 0274 | t | Execute Discrete,Absolute_Value
0357 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00da | | Load_Top At_Offset_2
035c 0217 | | Execute Heap_Access,All_Reference
035d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
035e 7011 |p | Jump_Nonzero 0x370
035f 00da | | Load_Top At_Offset_2
0360 0217 | | Execute Heap_Access,All_Reference
0361 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0362 700d |p | Jump_Nonzero 0x370
0363 00db | | Load_Top At_Offset_3
0364 00d8 | | Load_Top At_Offset_0
0365 e22f | / | Load 0x1,0x2f
0366 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0367 0260 | ` | Execute Discrete,In_Type
0368 7001 |p | Jump_Nonzero 0x36a
0369 0801 | | Execute_Immediate Raise,0x1
036a 00db | | Load_Top At_Offset_3
036b 0217 | | Execute Heap_Access,All_Reference
036c 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
036d e22f | / | Load 0x1,0x2f
036e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
036f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0370 4900 |I | Short_Literal 0x100
0371 0257 | W | Execute Discrete,Raise
0372 0000 0000 | | .BLANK 0000[0x6]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 0217 | | Execute Heap_Access,All_Reference
037d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
037e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
037f 0000 | | .XXX[0x1]
0380 ; --------------------------------------------------------------------------------------
0380 ; SUBPROGRAM
0380 ; --------------------------------------------------------------------------------------
0380 0384 | | .CONST 0x0384 ; Address of begin
0381 0004 | | .CONST 0x0004 ; Address of exception handler
0382 0002 | | .CONST 0x0002 ; Number of locals
0383 INIT_0380:
0383 00e2 | | Load_Encached Integer_Cache
0384 BODY_0380:
0384 00db | | Load_Top At_Offset_3
0385 0217 | | Execute Heap_Access,All_Reference
0386 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0387 6802 |h | Jump_Zero 0x38a
0388 4900 |I | Short_Literal 0x100
0389 0257 | W | Execute Discrete,Raise
038a e5fd | | Load 0x2,-0x3
038b e5ff | | Load 0x2,-0x1
038c 8232 | 2 | Call 0x1,0x32
038d 00e2 | | Load_Encached Integer_Cache
038e e5ff | | Load 0x2,-0x1
038f 0217 | | Execute Heap_Access,All_Reference
0390 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0391 e5fc | | Load 0x2,-0x4
0392 e5fe | | Load 0x2,-0x2
0393 8016 | | Call 0x0,0x16
0394 0059 | Y | Store_Top Discrete,At_Offset_1
0395 00d8 | | Load_Top At_Offset_0
0396 e5fd | | Load 0x2,-0x3
0397 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0398 027e | ~ | Execute Discrete,Not_Equal
0399 6802 |h | Jump_Zero 0x39c
039a 4960 |I` | Short_Literal 0x160
039b 0257 | W | Execute Discrete,Raise
039c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
039d 0000 0000 | | .XXX[0x3]
039f 0000 | |
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a8 | | .CONST 0x03a8 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0003 | | .CONST 0x0003 ; Number of locals
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 821d | | Call 0x1,0x1d
03a5 00e2 | | Load_Encached Integer_Cache
03a6 03f1 | | Declare_Variable Discrete,With_Value
03a7 00e2 | | Load_Encached Integer_Cache
03a8 BODY_03a0:
03a8 e5ff | | Load 0x2,-0x1
03a9 823b | ; | Call 0x1,0x3b
03aa 00d9 | | Load_Top At_Offset_1
03ab e5fe | | Load 0x2,-0x2
03ac 01db | | Execute Vector,Length
03ad 027b | { | Execute Discrete,Greater_Equal
03ae 6812 |h | Jump_Zero 0x3c1
03af e5ff | | Load 0x2,-0x1
03b0 0219 | | Execute Heap_Access,All_Read
03b1 00e3 | | Load_Encached Natural_Cache
03b2 e5fe | | Load 0x2,-0x2
03b3 00da | | Load_Top At_Offset_2
03b4 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03b5 e5ff | | Load 0x2,-0x1
03b6 0217 | | Execute Heap_Access,All_Reference
03b7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03b8 e007 | | Load 0x0,0x7
03b9 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
03ba 180f | | Execute Package,Field_Execute,Field_Number 0xf
03bb 00db | | Load_Top At_Offset_3
03bc 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03bd 00d1 | | Pop_Control Pop_Count_1
03be 005a | Z | Store_Top Discrete,At_Offset_2
03bf 00d1 | | Pop_Control Pop_Count_1
03c0 7828 |x( | Jump 0x3e9
03c1 00d9 | | Load_Top At_Offset_1
03c2 0c01 | | Execute_Immediate Greater_Equal,0x1
03c3 6823 |h# | Jump_Zero 0x3e7
03c4 e5fe | | Load 0x2,-0x2
03c5 00d8 | | Load_Top At_Offset_0
03c6 01dd | | Execute Vector,First
03c7 e5fe | | Load 0x2,-0x2
03c8 01dd | | Execute Vector,First
03c9 e402 | | Load 0x2,0x2
03ca 0273 | s | Execute Discrete,Plus
03cb 0aff | | Execute_Immediate Plus,-0x1
03cc 00d8 | | Load_Top At_Offset_0
03cd 00e2 | | Load_Encached Integer_Cache
03ce 0260 | ` | Execute Discrete,In_Type
03cf 7001 |p | Jump_Nonzero 0x3d1
03d0 0801 | | Execute_Immediate Raise,0x1
03d1 00da | | Load_Top At_Offset_2
03d2 035b | [ | Declare_Type Array,Constrained
03d3 00d0 | | Action Swap_Control
03d4 01cd | | Execute Vector,Slice_Reference
03d5 e5ff | | Load 0x2,-0x1
03d6 0219 | | Execute Heap_Access,All_Read
03d7 00e3 | | Load_Encached Natural_Cache
03d8 00da | | Load_Top At_Offset_2
03d9 00da | | Load_Top At_Offset_2
03da 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03db e5ff | | Load 0x2,-0x1
03dc 0217 | | Execute Heap_Access,All_Reference
03dd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03de e007 | | Load 0x0,0x7
03df 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
03e0 180f | | Execute Package,Field_Execute,Field_Number 0xf
03e1 00db | | Load_Top At_Offset_3
03e2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
03e3 00d1 | | Pop_Control Pop_Count_1
03e4 005b | [ | Store_Top Discrete,At_Offset_3
03e5 00d2 | | Pop_Control Pop_Count_2
03e6 7802 |x | Jump 0x3e9
03e7 4950 |IP | Short_Literal 0x150
03e8 0257 | W | Execute Discrete,Raise
03e9 e5ff | | Load 0x2,-0x1
03ea 0217 | | Execute Heap_Access,All_Reference
03eb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
03ec 00d9 | | Load_Top At_Offset_1
03ed 0272 | r | Execute Discrete,Minus
03ee e5ff | | Load 0x2,-0x1
03ef 0217 | | Execute Heap_Access,All_Reference
03f0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
03f1 00d8 | | Load_Top At_Offset_0
03f2 c5fd | | Store 0x2,-0x3
03f3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03f4 0000 0000 | | .BLANK 0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0400 | | .CONST 0x0400 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0003 | | .CONST 0x0003 ; Number of locals
03fb INIT_03f8:
03fb 00da | | Load_Top At_Offset_2
03fc 821d | | Call 0x1,0x1d
03fd 00e2 | | Load_Encached Integer_Cache
03fe 03f1 | | Declare_Variable Discrete,With_Value
03ff 00e2 | | Load_Encached Integer_Cache
0400 BODY_03f8:
0400 e5ff | | Load 0x2,-0x1
0401 823b | ; | Call 0x1,0x3b
0402 00d9 | | Load_Top At_Offset_1
0403 e5fe | | Load 0x2,-0x2
0404 01db | | Execute Vector,Length
0405 027b | { | Execute Discrete,Greater_Equal
0406 6812 |h | Jump_Zero 0x419
0407 e5ff | | Load 0x2,-0x1
0408 0219 | | Execute Heap_Access,All_Read
0409 00e3 | | Load_Encached Natural_Cache
040a e5fe | | Load 0x2,-0x2
040b 00da | | Load_Top At_Offset_2
040c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
040d e5ff | | Load 0x2,-0x1
040e 0217 | | Execute Heap_Access,All_Reference
040f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0410 e007 | | Load 0x0,0x7
0411 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0412 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0413 00db | | Load_Top At_Offset_3
0414 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0415 00d1 | | Pop_Control Pop_Count_1
0416 005a | Z | Store_Top Discrete,At_Offset_2
0417 00d1 | | Pop_Control Pop_Count_1
0418 7828 |x( | Jump 0x441
0419 00d9 | | Load_Top At_Offset_1
041a 0c01 | | Execute_Immediate Greater_Equal,0x1
041b 6823 |h# | Jump_Zero 0x43f
041c e5fe | | Load 0x2,-0x2
041d 00d8 | | Load_Top At_Offset_0
041e 01dd | | Execute Vector,First
041f e5fe | | Load 0x2,-0x2
0420 01dd | | Execute Vector,First
0421 e402 | | Load 0x2,0x2
0422 0273 | s | Execute Discrete,Plus
0423 0aff | | Execute_Immediate Plus,-0x1
0424 00d8 | | Load_Top At_Offset_0
0425 00e2 | | Load_Encached Integer_Cache
0426 0260 | ` | Execute Discrete,In_Type
0427 7001 |p | Jump_Nonzero 0x429
0428 0801 | | Execute_Immediate Raise,0x1
0429 00da | | Load_Top At_Offset_2
042a 035b | [ | Declare_Type Array,Constrained
042b 00d0 | | Action Swap_Control
042c 01cd | | Execute Vector,Slice_Reference
042d e5ff | | Load 0x2,-0x1
042e 0219 | | Execute Heap_Access,All_Read
042f 00e3 | | Load_Encached Natural_Cache
0430 00da | | Load_Top At_Offset_2
0431 00da | | Load_Top At_Offset_2
0432 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0433 e5ff | | Load 0x2,-0x1
0434 0217 | | Execute Heap_Access,All_Reference
0435 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0436 e007 | | Load 0x0,0x7
0437 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0438 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0439 00db | | Load_Top At_Offset_3
043a 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
043b 00d1 | | Pop_Control Pop_Count_1
043c 005b | [ | Store_Top Discrete,At_Offset_3
043d 00d2 | | Pop_Control Pop_Count_2
043e 7802 |x | Jump 0x441
043f 4950 |IP | Short_Literal 0x150
0440 0257 | W | Execute Discrete,Raise
0441 e5ff | | Load 0x2,-0x1
0442 0217 | | Execute Heap_Access,All_Reference
0443 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0444 00d9 | | Load_Top At_Offset_1
0445 0272 | r | Execute Discrete,Minus
0446 e5ff | | Load 0x2,-0x1
0447 0217 | | Execute Heap_Access,All_Reference
0448 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0449 00d8 | | Load_Top At_Offset_0
044a c5fd | | Store 0x2,-0x3
044b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
044c 0000 0000 | | .BLANK 0000[0x4]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0461 | a | .CONST 0x0461 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0005 | | .CONST 0x0005 ; Number of locals
0453 INIT_0450:
0453 e007 | | Load 0x0,0x7
0454 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0455 02c7 | | Declare_Variable Any
0456 00db | | Load_Top At_Offset_3
0457 0217 | | Execute Heap_Access,All_Reference
0458 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0459 a402 | | Store_Unchecked 0x2,0x2
045a e015 | | Load 0x0,0x15
045b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
045c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
045d 00e2 | | Load_Encached Integer_Cache
045e 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
045f 029f 099b | | Declare_Subprogram INIT_0998,For_Call
0461 BODY_0450:
0461 e5ff | | Load 0x2,-0x1
0462 823b | ; | Call 0x1,0x3b
0463 e5ff | | Load 0x2,-0x1
0464 0217 | | Execute Heap_Access,All_Reference
0465 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0466 7002 |p | Jump_Nonzero 0x469
0467 4950 |IP | Short_Literal 0x150
0468 0257 | W | Execute Discrete,Raise
0469 00cf | | Action Mark_Auxiliary
046a 781f |x | Jump 0x48a
046b e5ff | | Load 0x2,-0x1
046c 0219 | | Execute Heap_Access,All_Read
046d e007 | | Load 0x0,0x7
046e 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
046f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0470 00d9 | | Load_Top At_Offset_1
0471 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0472 e5ff | | Load 0x2,-0x1
0473 0217 | | Execute Heap_Access,All_Reference
0474 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0475 e007 | | Load 0x0,0x7
0476 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0477 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0478 00da | | Load_Top At_Offset_2
0479 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
047a c403 | | Store 0x2,0x3
047b 00d1 | | Pop_Control Pop_Count_1
047c e5ff | | Load 0x2,-0x1
047d 0217 | | Execute Heap_Access,All_Reference
047e 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
047f 0aff | | Execute_Immediate Plus,-0x1
0480 e5ff | | Load 0x2,-0x1
0481 0217 | | Execute Heap_Access,All_Reference
0482 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0483 00db | | Load_Top At_Offset_3
0484 0f0a | | Execute_Immediate Equal,0xa
0485 7009 |p | Jump_Nonzero 0x48f
0486 00da | | Load_Top At_Offset_2
0487 0a01 | | Execute_Immediate Plus,0x1
0488 005b | [ | Store_Top Discrete,At_Offset_3
0489 00c9 | | Action Pop_Auxiliary_Loop
048a e5ff | | Load 0x2,-0x1
048b 0217 | | Execute Heap_Access,All_Reference
048c 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
048d 0c01 | | Execute_Immediate Greater_Equal,0x1
048e 77dc |w | Jump_Nonzero 0x46b
048f 00ce | | Action Pop_Auxiliary
0490 8405 | | Call 0x2,0x5
0491 0831 | 1 | Execute_Immediate Raise,0x31
0492 0000 0000 | | .BLANK 0000[0x6]
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 04a9 | | .CONST 0x04a9 ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0006 | | .CONST 0x0006 ; Number of locals
049b INIT_0498:
049b e5fd | | Load 0x2,-0x3
049c 00e2 | | Load_Encached Integer_Cache
049d 03f1 | | Declare_Variable Discrete,With_Value
049e 00db | | Load_Top At_Offset_3
049f 821d | | Call 0x1,0x1d
04a0 00e2 | | Load_Encached Integer_Cache
04a1 03f1 | | Declare_Variable Discrete,With_Value
04a2 e5fe | | Load 0x2,-0x2
04a3 8017 | | Call 0x0,0x17
04a4 00e2 | | Load_Encached Integer_Cache
04a5 03f1 | | Declare_Variable Discrete,With_Value
04a6 00e2 | | Load_Encached Integer_Cache
04a7 e00a | | Load 0x0,0xa
04a8 0337 | 7 | Declare_Variable Array
04a9 BODY_0498:
04a9 e5ff | | Load 0x2,-0x1
04aa 823b | ; | Call 0x1,0x3b
04ab 00db | | Load_Top At_Offset_3
04ac e402 | | Load 0x2,0x2
04ad 027c | | | Execute Discrete,Less
04ae 6802 |h | Jump_Zero 0x4b1
04af 00db | | Load_Top At_Offset_3
04b0 a402 | | Store_Unchecked 0x2,0x2
04b1 00da | | Load_Top At_Offset_2
04b2 e402 | | Load 0x2,0x2
04b3 027c | | | Execute Discrete,Less
04b4 6802 |h | Jump_Zero 0x4b7
04b5 00da | | Load_Top At_Offset_2
04b6 a402 | | Store_Unchecked 0x2,0x2
04b7 e402 | | Load 0x2,0x2
04b8 c5fc | | Store 0x2,-0x4
04b9 e5ff | | Load 0x2,-0x1
04ba 0217 | | Execute Heap_Access,All_Reference
04bb 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
04bc e402 | | Load 0x2,0x2
04bd 0272 | r | Execute Discrete,Minus
04be e5ff | | Load 0x2,-0x1
04bf 0217 | | Execute Heap_Access,All_Reference
04c0 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
04c1 00cf | | Action Mark_Auxiliary
04c2 781a |x | Jump 0x4dd
04c3 e5ff | | Load 0x2,-0x1
04c4 0217 | | Execute Heap_Access,All_Reference
04c5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04c6 e5ff | | Load 0x2,-0x1
04c7 0217 | | Execute Heap_Access,All_Reference
04c8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04c9 e238 | 8 | Load 0x1,0x38
04ca 1811 | | Execute Package,Field_Execute,Field_Number 0x11
04cb e5fe | | Load 0x2,-0x2
04cc 8018 | | Call 0x0,0x18
04cd e5ff | | Load 0x2,-0x1
04ce 0217 | | Execute Heap_Access,All_Reference
04cf 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04d0 e5ff | | Load 0x2,-0x1
04d1 0217 | | Execute Heap_Access,All_Reference
04d2 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04d3 e238 | 8 | Load 0x1,0x38
04d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
04d5 e5ff | | Load 0x2,-0x1
04d6 0217 | | Execute Heap_Access,All_Reference
04d7 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04d8 e402 | | Load 0x2,0x2
04d9 4c00 |L | Short_Literal -0x400
04da 0273 | s | Execute Discrete,Plus
04db c402 | | Store 0x2,0x2
04dc 00c9 | | Action Pop_Auxiliary_Loop
04dd e402 | | Load 0x2,0x2
04de 6025 |`% | Indirect_Literal Discrete,0x504,{0x00000000, 0x00000400}
04df 027b | { | Execute Discrete,Greater_Equal
04e0 77e2 |w | Jump_Nonzero 0x4c3
04e1 00ce | | Action Pop_Auxiliary
04e2 e402 | | Load 0x2,0x2
04e3 0c01 | | Execute_Immediate Greater_Equal,0x1
04e4 681e |h | Jump_Zero 0x503
04e5 00d8 | | Load_Top At_Offset_0
04e6 4801 |H | Short_Literal 0x1
04e7 e402 | | Load 0x2,0x2
04e8 00da | | Load_Top At_Offset_2
04e9 035b | [ | Declare_Type Array,Constrained
04ea 00d0 | | Action Swap_Control
04eb 01cd | | Execute Vector,Slice_Reference
04ec e5ff | | Load 0x2,-0x1
04ed 0219 | | Execute Heap_Access,All_Read
04ee 00e3 | | Load_Encached Natural_Cache
04ef 00da | | Load_Top At_Offset_2
04f0 00da | | Load_Top At_Offset_2
04f1 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
04f2 e5ff | | Load 0x2,-0x1
04f3 0217 | | Execute Heap_Access,All_Reference
04f4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
04f5 e007 | | Load 0x0,0x7
04f6 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
04f7 180f | | Execute Package,Field_Execute,Field_Number 0xf
04f8 00db | | Load_Top At_Offset_3
04f9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
04fa 00d1 | | Pop_Control Pop_Count_1
04fb c405 | | Store 0x2,0x5
04fc 00d2 | | Pop_Control Pop_Count_2
04fd 4801 |H | Short_Literal 0x1
04fe 00da | | Load_Top At_Offset_2
04ff 00da | | Load_Top At_Offset_2
0500 01cf | | Execute Vector,Slice_Read
0501 e5fe | | Load 0x2,-0x2
0502 8018 | | Call 0x0,0x18
0503 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0504 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b 00da | | Load_Top At_Offset_2
050c 0217 | | Execute Heap_Access,All_Reference
050d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
050e e5fe | | Load 0x2,-0x2
050f 01db | | Execute Vector,Length
0510 027b | { | Execute Discrete,Greater_Equal
0511 6810 |h | Jump_Zero 0x522
0512 00db | | Load_Top At_Offset_3
0513 00db | | Load_Top At_Offset_3
0514 0217 | | Execute Heap_Access,All_Reference
0515 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0516 e006 | | Load 0x0,0x6
0517 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0518 00da | | Load_Top At_Offset_2
0519 0217 | | Execute Heap_Access,All_Reference
051a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
051b e5fe | | Load 0x2,-0x2
051c 01db | | Execute Vector,Length
051d 0272 | r | Execute Discrete,Minus
051e 00db | | Load_Top At_Offset_3
051f 0217 | | Execute Heap_Access,All_Reference
0520 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0521 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0522 4950 |IP | Short_Literal 0x150
0523 0257 | W | Execute Discrete,Raise
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 0217 | | Execute Heap_Access,All_Reference
052d 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
052e e5fe | | Load 0x2,-0x2
052f 01db | | Execute Vector,Length
0530 027b | { | Execute Discrete,Greater_Equal
0531 6810 |h | Jump_Zero 0x542
0532 00db | | Load_Top At_Offset_3
0533 00db | | Load_Top At_Offset_3
0534 0217 | | Execute Heap_Access,All_Reference
0535 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0536 e006 | | Load 0x0,0x6
0537 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0538 00da | | Load_Top At_Offset_2
0539 0217 | | Execute Heap_Access,All_Reference
053a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
053b e5fe | | Load 0x2,-0x2
053c 01db | | Execute Vector,Length
053d 0272 | r | Execute Discrete,Minus
053e 00db | | Load_Top At_Offset_3
053f 0217 | | Execute Heap_Access,All_Reference
0540 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0541 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0542 4950 |IP | Short_Literal 0x150
0543 0257 | W | Execute Discrete,Raise
0544 0000 0000 | | .BLANK 0000[0x4]
0548 ; --------------------------------------------------------------------------------------
0548 ; SUBPROGRAM
0548 ; --------------------------------------------------------------------------------------
0548 055a | Z | .CONST 0x055a ; Address of begin
0549 0004 | | .CONST 0x0004 ; Address of exception handler
054a 0006 | | .CONST 0x0006 ; Number of locals
054b INIT_0548:
054b e5fd | | Load 0x2,-0x3
054c 00e2 | | Load_Encached Integer_Cache
054d 03f1 | | Declare_Variable Discrete,With_Value
054e e5fe | | Load 0x2,-0x2
054f 8017 | | Call 0x0,0x17
0550 00e2 | | Load_Encached Integer_Cache
0551 03f1 | | Declare_Variable Discrete,With_Value
0552 e5ff | | Load 0x2,-0x1
0553 0217 | | Execute Heap_Access,All_Reference
0554 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0555 00e2 | | Load_Encached Integer_Cache
0556 03f1 | | Declare_Variable Discrete,With_Value
0557 e00a | | Load 0x0,0xa
0558 0337 | 7 | Declare_Variable Array
0559 00e2 | | Load_Encached Integer_Cache
055a BODY_0548:
055a 00da | | Load_Top At_Offset_2
055b e402 | | Load 0x2,0x2
055c 027c | | | Execute Discrete,Less
055d 6802 |h | Jump_Zero 0x560
055e 00da | | Load_Top At_Offset_2
055f a402 | | Store_Unchecked 0x2,0x2
0560 00db | | Load_Top At_Offset_3
0561 e402 | | Load 0x2,0x2
0562 027c | | | Execute Discrete,Less
0563 6802 |h | Jump_Zero 0x566
0564 00db | | Load_Top At_Offset_3
0565 a402 | | Store_Unchecked 0x2,0x2
0566 e402 | | Load 0x2,0x2
0567 c5fc | | Store 0x2,-0x4
0568 e5ff | | Load 0x2,-0x1
0569 0217 | | Execute Heap_Access,All_Reference
056a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
056b e402 | | Load 0x2,0x2
056c 0272 | r | Execute Discrete,Minus
056d e5ff | | Load 0x2,-0x1
056e 0217 | | Execute Heap_Access,All_Reference
056f 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0570 00cf | | Action Mark_Auxiliary
0571 7814 |x | Jump 0x586
0572 00e3 | | Load_Encached Natural_Cache
0573 00db | | Load_Top At_Offset_3
0574 e5fe | | Load 0x2,-0x2
0575 8019 | | Call 0x0,0x19
0576 00d1 | | Pop_Control Pop_Count_1
0577 005a | Z | Store_Top Discrete,At_Offset_2
0578 4801 |H | Short_Literal 0x1
0579 00da | | Load_Top At_Offset_2
057a e405 | | Load 0x2,0x5
057b 01cf | | Execute Vector,Slice_Read
057c e5ff | | Load 0x2,-0x1
057d 0217 | | Execute Heap_Access,All_Reference
057e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
057f e006 | | Load 0x0,0x6
0580 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0581 e402 | | Load 0x2,0x2
0582 00da | | Load_Top At_Offset_2
0583 0272 | r | Execute Discrete,Minus
0584 c402 | | Store 0x2,0x2
0585 00c9 | | Action Pop_Auxiliary_Loop
0586 e402 | | Load 0x2,0x2
0587 6024 |`$ | Indirect_Literal Discrete,0x5ac,{0x00000000, 0x00000400}
0588 027d | } | Execute Discrete,Greater
0589 77e8 |w | Jump_Nonzero 0x572
058a 00c9 | | Action Pop_Auxiliary_Loop
058b 781c |x | Jump 0x5a8
058c 00da | | Load_Top At_Offset_2
058d 4801 |H | Short_Literal 0x1
058e e402 | | Load 0x2,0x2
058f 00da | | Load_Top At_Offset_2
0590 035b | [ | Declare_Type Array,Constrained
0591 00d0 | | Action Swap_Control
0592 01cd | | Execute Vector,Slice_Reference
0593 00e3 | | Load_Encached Natural_Cache
0594 00d9 | | Load_Top At_Offset_1
0595 e5fe | | Load 0x2,-0x2
0596 8019 | | Call 0x0,0x19
0597 00d1 | | Pop_Control Pop_Count_1
0598 005b | [ | Store_Top Discrete,At_Offset_3
0599 00d1 | | Pop_Control Pop_Count_1
059a 4801 |H | Short_Literal 0x1
059b 00da | | Load_Top At_Offset_2
059c e405 | | Load 0x2,0x5
059d 01cf | | Execute Vector,Slice_Read
059e e5ff | | Load 0x2,-0x1
059f 0217 | | Execute Heap_Access,All_Reference
05a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
05a1 e006 | | Load 0x0,0x6
05a2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
05a3 e402 | | Load 0x2,0x2
05a4 00da | | Load_Top At_Offset_2
05a5 0272 | r | Execute Discrete,Minus
05a6 c402 | | Store 0x2,0x2
05a7 00c9 | | Action Pop_Auxiliary_Loop
05a8 e402 | | Load 0x2,0x2
05a9 0c01 | | Execute_Immediate Greater_Equal,0x1
05aa 77e1 |w | Jump_Nonzero 0x58c
05ab 4504 |E | Exit_Suprogram New_Top_Offset 0x4
05ac 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05c1 | | .CONST 0x05c1 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0006 | | .CONST 0x0006 ; Number of locals
05b3 INIT_05b0:
05b3 00da | | Load_Top At_Offset_2
05b4 0217 | | Execute Heap_Access,All_Reference
05b5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05b6 00e1 | | Load_Encached Boolean_Cache
05b7 03f1 | | Declare_Variable Discrete,With_Value
05b8 e5fe | | Load 0x2,-0x2
05b9 0217 | | Execute Heap_Access,All_Reference
05ba 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
05bb 00e1 | | Load_Encached Boolean_Cache
05bc 03f1 | | Declare_Variable Discrete,With_Value
05bd 00e2 | | Load_Encached Integer_Cache
05be 00e2 | | Load_Encached Integer_Cache
05bf e00a | | Load 0x0,0xa
05c0 0337 | 7 | Declare_Variable Array
05c1 BODY_05b0:
05c1 e402 | | Load 0x2,0x2
05c2 7008 |p | Jump_Nonzero 0x5cb
05c3 e5ff | | Load 0x2,-0x1
05c4 0219 | | Execute Heap_Access,All_Read
05c5 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05c6 00d8 | | Load_Top At_Offset_0
05c7 4800 |H | Short_Literal 0x0
05c8 e5ff | | Load 0x2,-0x1
05c9 8215 | | Call 0x1,0x15
05ca 00d2 | | Pop_Control Pop_Count_2
05cb 00db | | Load_Top At_Offset_3
05cc 7008 |p | Jump_Nonzero 0x5d5
05cd e5ff | | Load 0x2,-0x1
05ce 0219 | | Execute Heap_Access,All_Read
05cf 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
05d0 00d8 | | Load_Top At_Offset_0
05d1 4800 |H | Short_Literal 0x0
05d2 e5fe | | Load 0x2,-0x2
05d3 8215 | | Call 0x1,0x15
05d4 00d2 | | Pop_Control Pop_Count_2
05d5 e5fe | | Load 0x2,-0x2
05d6 0217 | | Execute Heap_Access,All_Reference
05d7 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05d8 e5ff | | Load 0x2,-0x1
05d9 0217 | | Execute Heap_Access,All_Reference
05da 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05db 027c | | | Execute Discrete,Less
05dc 6805 |h | Jump_Zero 0x5e2
05dd e5fe | | Load 0x2,-0x2
05de 0217 | | Execute Heap_Access,All_Reference
05df 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05e0 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05e1 7804 |x | Jump 0x5e6
05e2 e5ff | | Load 0x2,-0x1
05e3 0217 | | Execute Heap_Access,All_Reference
05e4 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05e5 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
05e6 00da | | Load_Top At_Offset_2
05e7 a5fd | | Store_Unchecked 0x2,-0x3
05e8 e5ff | | Load 0x2,-0x1
05e9 0217 | | Execute Heap_Access,All_Reference
05ea 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05eb 00db | | Load_Top At_Offset_3
05ec 0272 | r | Execute Discrete,Minus
05ed e5ff | | Load 0x2,-0x1
05ee 0217 | | Execute Heap_Access,All_Reference
05ef 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05f0 e5fe | | Load 0x2,-0x2
05f1 0217 | | Execute Heap_Access,All_Reference
05f2 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
05f3 00db | | Load_Top At_Offset_3
05f4 0272 | r | Execute Discrete,Minus
05f5 e5fe | | Load 0x2,-0x2
05f6 0217 | | Execute Heap_Access,All_Reference
05f7 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
05f8 e5ff | | Load 0x2,-0x1
05f9 823b | ; | Call 0x1,0x3b
05fa 00cf | | Action Mark_Auxiliary
05fb 781d |x | Jump 0x619
05fc e5ff | | Load 0x2,-0x1
05fd 0217 | | Execute Heap_Access,All_Reference
05fe 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
05ff e5ff | | Load 0x2,-0x1
0600 0217 | | Execute Heap_Access,All_Reference
0601 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0602 e238 | 8 | Load 0x1,0x38
0603 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0604 e5fe | | Load 0x2,-0x2
0605 0217 | | Execute Heap_Access,All_Reference
0606 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0607 e006 | | Load 0x0,0x6
0608 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0609 e5ff | | Load 0x2,-0x1
060a 0217 | | Execute Heap_Access,All_Reference
060b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
060c e5ff | | Load 0x2,-0x1
060d 0217 | | Execute Heap_Access,All_Reference
060e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
060f e238 | 8 | Load 0x1,0x38
0610 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0611 e5ff | | Load 0x2,-0x1
0612 0217 | | Execute Heap_Access,All_Reference
0613 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0614 00db | | Load_Top At_Offset_3
0615 4c00 |L | Short_Literal -0x400
0616 0273 | s | Execute Discrete,Plus
0617 c404 | | Store 0x2,0x4
0618 00c9 | | Action Pop_Auxiliary_Loop
0619 00db | | Load_Top At_Offset_3
061a 6791 |g | Indirect_Literal Discrete,0x5ac,{0x00000000, 0x00000400}
061b 027b | { | Execute Discrete,Greater_Equal
061c 77df |w | Jump_Nonzero 0x5fc
061d 00ce | | Action Pop_Auxiliary
061e 00da | | Load_Top At_Offset_2
061f 0c01 | | Execute_Immediate Greater_Equal,0x1
0620 6821 |h! | Jump_Zero 0x642
0621 00d8 | | Load_Top At_Offset_0
0622 4801 |H | Short_Literal 0x1
0623 e404 | | Load 0x2,0x4
0624 00da | | Load_Top At_Offset_2
0625 035b | [ | Declare_Type Array,Constrained
0626 00d0 | | Action Swap_Control
0627 01cd | | Execute Vector,Slice_Reference
0628 e5ff | | Load 0x2,-0x1
0629 0219 | | Execute Heap_Access,All_Read
062a 00e3 | | Load_Encached Natural_Cache
062b 00da | | Load_Top At_Offset_2
062c 00da | | Load_Top At_Offset_2
062d 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
062e e5ff | | Load 0x2,-0x1
062f 0217 | | Execute Heap_Access,All_Reference
0630 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0631 e007 | | Load 0x0,0x7
0632 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0633 180f | | Execute Package,Field_Execute,Field_Number 0xf
0634 00db | | Load_Top At_Offset_3
0635 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0636 00d1 | | Pop_Control Pop_Count_1
0637 c405 | | Store 0x2,0x5
0638 00d2 | | Pop_Control Pop_Count_2
0639 4801 |H | Short_Literal 0x1
063a 00da | | Load_Top At_Offset_2
063b 00da | | Load_Top At_Offset_2
063c 01cf | | Execute Vector,Slice_Read
063d e5fe | | Load 0x2,-0x2
063e 0217 | | Execute Heap_Access,All_Reference
063f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0640 e006 | | Load 0x0,0x6
0641 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0642 e402 | | Load 0x2,0x2
0643 7002 |p | Jump_Nonzero 0x646
0644 e5ff | | Load 0x2,-0x1
0645 8217 | | Call 0x1,0x17
0646 00db | | Load_Top At_Offset_3
0647 7002 |p | Jump_Nonzero 0x64a
0648 e5fe | | Load 0x2,-0x2
0649 8217 | | Call 0x1,0x17
064a 4503 |E | Exit_Suprogram New_Top_Offset 0x3
064b 0000 0000 | | .BLANK 0000[0x5]
0650 ; --------------------------------------------------------------------------------------
0650 ; SUBPROGRAM
0650 ; --------------------------------------------------------------------------------------
0650 0653 | S | .CONST 0x0653 ; Address of begin
0651 0004 | | .CONST 0x0004 ; Address of exception handler
0652 0001 | | .CONST 0x0001 ; Number of locals
0653 BODY_0650:
0653 INIT_0650:
0653 4601 |F | Jump_Case 0x2
0654 7801 |x | Jump 0x656 ; case 0x0
0655 7804 |x | Jump 0x65a ; case 0x1
0656 00da | | Load_Top At_Offset_2
0657 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0658 1c00 | | Execute_Immediate Run_Utility,0x0
0659 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
065a 00da | | Load_Top At_Offset_2
065b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
065c 1c01 | | Execute_Immediate Run_Utility,0x1
065d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
065e 0000 0000 | | .XXX[0x2]
0660 ; --------------------------------------------------------------------------------------
0660 ; SUBPROGRAM
0660 ; --------------------------------------------------------------------------------------
0660 0663 | c | .CONST 0x0663 ; Address of begin
0661 0004 | | .CONST 0x0004 ; Address of exception handler
0662 0001 | | .CONST 0x0001 ; Number of locals
0663 BODY_0660:
0663 INIT_0660:
0663 4601 |F | Jump_Case 0x2
0664 7801 |x | Jump 0x666 ; case 0x0
0665 7816 |x | Jump 0x67c ; case 0x1
0666 00da | | Load_Top At_Offset_2
0667 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0668 0125 | % | Execute Any,Set_Constraint
0669 00da | | Load_Top At_Offset_2
066a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
066b 1c00 | | Execute_Immediate Run_Utility,0x0
066c 00da | | Load_Top At_Offset_2
066d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
066e 0125 | % | Execute Any,Set_Constraint
066f 00da | | Load_Top At_Offset_2
0670 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0671 1c00 | | Execute_Immediate Run_Utility,0x0
0672 00da | | Load_Top At_Offset_2
0673 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0674 0125 | % | Execute Any,Set_Constraint
0675 00da | | Load_Top At_Offset_2
0676 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0677 1c00 | | Execute_Immediate Run_Utility,0x0
0678 00da | | Load_Top At_Offset_2
0679 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
067a 1c00 | | Execute_Immediate Run_Utility,0x0
067b 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
067c 00da | | Load_Top At_Offset_2
067d 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
067e 1c01 | | Execute_Immediate Run_Utility,0x1
067f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0680 ; --------------------------------------------------------------------------------------
0680 ; SUBPROGRAM
0680 ; --------------------------------------------------------------------------------------
0680 0694 | | .CONST 0x0694 ; Address of begin
0681 0004 | | .CONST 0x0004 ; Address of exception handler
0682 0005 | | .CONST 0x0005 ; Number of locals
0683 INIT_0680:
0683 e22e | . | Load 0x1,0x2e
0684 0322 | " | Declare_Variable Record
0685 00d8 | | Load_Top At_Offset_0
0686 1c00 | | Execute_Immediate Run_Utility,0x0
0687 e00e | | Load 0x0,0xe
0688 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0689 1b0f | | Execute Package,Field_Read,Field_Number 0xf
068a 02c7 | | Declare_Variable Any
068b 00d8 | | Load_Top At_Offset_0
068c 1c00 | | Execute_Immediate Run_Utility,0x0
068d e00e | | Load 0x0,0xe
068e 1b14 | | Execute Package,Field_Read,Field_Number 0x14
068f 02ff | | Declare_Variable Variant_Record
0690 00d8 | | Load_Top At_Offset_0
0691 1c00 | | Execute_Immediate Run_Utility,0x0
0692 e00e | | Load 0x0,0xe
0693 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0694 BODY_0680:
0694 e5ff | | Load 0x2,-0x1
0695 0217 | | Execute Heap_Access,All_Reference
0696 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0697 6858 |hX | Jump_Zero 0x6f0
0698 e5ff | | Load 0x2,-0x1
0699 0217 | | Execute Heap_Access,All_Reference
069a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
069b e006 | | Load 0x0,0x6
069c 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
069d 00da | | Load_Top At_Offset_2
069e 016d | m | Execute Variant_Record,Structure_Write
069f e00e | | Load 0x0,0xe
06a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
06a1 00db | | Load_Top At_Offset_3
06a2 0120 | | Execute Any,Is_Value
06a3 6804 |h | Jump_Zero 0x6a8
06a4 e00e | | Load 0x0,0xe
06a5 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
06a7 7801 |x | Jump 0x6a9
06a8 00db | | Load_Top At_Offset_3
06a9 605e |`^ | Indirect_Literal Discrete,0x708,{0x00000000, 0x00004000}
06aa e5ff | | Load 0x2,-0x1
06ab 0217 | | Execute Heap_Access,All_Reference
06ac 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
06ad e006 | | Load 0x0,0x6
06ae 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
06af e404 | | Load 0x2,0x4
06b0 e00e | | Load 0x0,0xe
06b1 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06b2 1811 | | Execute Package,Field_Execute,Field_Number 0x11
06b3 c403 | | Store 0x2,0x3
06b4 0059 | Y | Store_Top Discrete,At_Offset_1
06b5 481e |H | Short_Literal 0x1e
06b6 00da | | Load_Top At_Offset_2
06b7 e00e | | Load 0x0,0xe
06b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
06b9 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
06ba e012 | | Load 0x0,0x12
06bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
06bc e5ff | | Load 0x2,-0x1
06bd 0217 | | Execute Heap_Access,All_Reference
06be 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
06c0 00da | | Load_Top At_Offset_2
06c1 e00e | | Load 0x0,0xe
06c2 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06c3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
06c4 0a07 | | Execute_Immediate Plus,0x7
06c5 09fd | | Execute_Immediate Binary_Scale,-0x3
06c6 00d8 | | Load_Top At_Offset_0
06c7 00e2 | | Load_Encached Integer_Cache
06c8 0260 | ` | Execute Discrete,In_Type
06c9 7001 |p | Jump_Nonzero 0x6cb
06ca 0801 | | Execute_Immediate Raise,0x1
06cb 0aef | | Execute_Immediate Plus,-0x11
06cc e5ff | | Load 0x2,-0x1
06cd 0217 | | Execute Heap_Access,All_Reference
06ce 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06cf 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
06d0 4800 |H | Short_Literal 0x0
06d1 e5ff | | Load 0x2,-0x1
06d2 0217 | | Execute Heap_Access,All_Reference
06d3 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06d4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
06d5 4800 |H | Short_Literal 0x0
06d6 e5ff | | Load 0x2,-0x1
06d7 0217 | | Execute Heap_Access,All_Reference
06d8 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
06da 00da | | Load_Top At_Offset_2
06db e00e | | Load 0x0,0xe
06dc 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
06dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
06de e5ff | | Load 0x2,-0x1
06df 0217 | | Execute Heap_Access,All_Reference
06e0 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06e1 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
06e2 4f9d |O | Short_Literal -0x63
06e3 e5ff | | Load 0x2,-0x1
06e4 0217 | | Execute Heap_Access,All_Reference
06e5 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
06e6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
06e7 4801 |H | Short_Literal 0x1
06e8 e5ff | | Load 0x2,-0x1
06e9 0217 | | Execute Heap_Access,All_Reference
06ea 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
06eb 4800 |H | Short_Literal 0x0
06ec e5ff | | Load 0x2,-0x1
06ed 0217 | | Execute Heap_Access,All_Reference
06ee 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
06ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
06f0 00db | | Load_Top At_Offset_3
06f1 e5ff | | Load 0x2,-0x1
06f2 0217 | | Execute Heap_Access,All_Reference
06f3 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
06f4 e22f | / | Load 0x1,0x2f
06f5 181f | | Execute Package,Field_Execute,Field_Number 0x1f
06f6 00d1 | | Pop_Control Pop_Count_1
06f7 00db | | Load_Top At_Offset_3
06f8 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
06f9 e5ff | | Load 0x2,-0x1
06fa 0217 | | Execute Heap_Access,All_Reference
06fb 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
06fc 00db | | Load_Top At_Offset_3
06fd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
06fe e5ff | | Load 0x2,-0x1
06ff 0217 | | Execute Heap_Access,All_Reference
0700 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0701 00db | | Load_Top At_Offset_3
0702 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0703 e5ff | | Load 0x2,-0x1
0704 0217 | | Execute Heap_Access,All_Reference
0705 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0706 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0707 0000 | | .XXX[0x1]
0708 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
070c 0000 0000 | | .BLANK 0000[0x4]
0710 ; --------------------------------------------------------------------------------------
0710 ; SUBPROGRAM
0710 ; --------------------------------------------------------------------------------------
0710 0713 | | .CONST 0x0713 ; Address of begin
0711 0004 | | .CONST 0x0004 ; Address of exception handler
0712 0001 | | .CONST 0x0001 ; Number of locals
0713 BODY_0710:
0713 INIT_0710:
0713 00da | | Load_Top At_Offset_2
0714 8230 | 0 | Call 0x1,0x30
0715 00da | | Load_Top At_Offset_2
0716 0217 | | Execute Heap_Access,All_Reference
0717 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0718 0320 | | Declare_Variable Record,Duplicate
0719 00cd | | Action Spare6_Action
071a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
071b 0000 0000 | | .BLANK 0000[0x5]
0720 ; --------------------------------------------------------------------------------------
0720 ; SUBPROGRAM
0720 ; --------------------------------------------------------------------------------------
0720 0723 | # | .CONST 0x0723 ; Address of begin
0721 0004 | | .CONST 0x0004 ; Address of exception handler
0722 0001 | | .CONST 0x0001 ; Number of locals
0723 BODY_0720:
0723 INIT_0720:
0723 00da | | Load_Top At_Offset_2
0724 0217 | | Execute Heap_Access,All_Reference
0725 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0726 0a01 | | Execute_Immediate Plus,0x1
0727 00db | | Load_Top At_Offset_3
0728 0217 | | Execute Heap_Access,All_Reference
0729 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
072a 00da | | Load_Top At_Offset_2
072b 0217 | | Execute Heap_Access,All_Reference
072c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
072d 00db | | Load_Top At_Offset_3
072e 0217 | | Execute Heap_Access,All_Reference
072f 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0730 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0731 0273 | s | Execute Discrete,Plus
0732 00db | | Load_Top At_Offset_3
0733 0217 | | Execute Heap_Access,All_Reference
0734 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0735 00db | | Load_Top At_Offset_3
0736 00db | | Load_Top At_Offset_3
0737 0217 | | Execute Heap_Access,All_Reference
0738 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0739 e22e | . | Load 0x1,0x2e
073a 0322 | " | Declare_Variable Record
073b 00d8 | | Load_Top At_Offset_0
073c 1c01 | | Execute_Immediate Run_Utility,0x1
073d 00db | | Load_Top At_Offset_3
073e 0217 | | Execute Heap_Access,All_Reference
073f 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0740 00d9 | | Load_Top At_Offset_1
0741 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0742 00db | | Load_Top At_Offset_3
0743 0217 | | Execute Heap_Access,All_Reference
0744 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0745 00d9 | | Load_Top At_Offset_1
0746 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0747 e5fe | | Load 0x2,-0x2
0748 00d9 | | Load_Top At_Offset_1
0749 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
074a 00db | | Load_Top At_Offset_3
074b 0217 | | Execute Heap_Access,All_Reference
074c 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
074d e22f | / | Load 0x1,0x2f
074e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
074f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 00da | | Load_Top At_Offset_2
0754 0217 | | Execute Heap_Access,All_Reference
0755 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0756 e22f | / | Load 0x1,0x2f
0757 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0758 4801 |H | Short_Literal 0x1
0759 4802 |H | Short_Literal 0x2
075a 0262 | b | Execute Discrete,In_Range
075b 700b |p | Jump_Nonzero 0x767
075c 7800 |x | Jump 0x75d
075d 00da | | Load_Top At_Offset_2
075e 0219 | | Execute Heap_Access,All_Read
075f 00d8 | | Load_Top At_Offset_0
0760 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0761 4801 |H | Short_Literal 0x1
0762 e22f | / | Load 0x1,0x2f
0763 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0764 00d9 | | Load_Top At_Offset_1
0765 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0766 00d1 | | Pop_Control Pop_Count_1
0767 00da | | Load_Top At_Offset_2
0768 0217 | | Execute Heap_Access,All_Reference
0769 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
076a 0274 | t | Execute Discrete,Absolute_Value
076b 00d8 | | Load_Top At_Offset_0
076c e22f | / | Load 0x1,0x2f
076d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
076e 0260 | ` | Execute Discrete,In_Type
076f 7001 |p | Jump_Nonzero 0x771
0770 0801 | | Execute_Immediate Raise,0x1
0771 e22e | . | Load 0x1,0x2e
0772 0322 | " | Declare_Variable Record
0773 00d8 | | Load_Top At_Offset_0
0774 1c01 | | Execute_Immediate Run_Utility,0x1
0775 e5ff | | Load 0x2,-0x1
0776 0217 | | Execute Heap_Access,All_Reference
0777 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0778 00d9 | | Load_Top At_Offset_1
0779 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
077a e5ff | | Load 0x2,-0x1
077b 0217 | | Execute Heap_Access,All_Reference
077c 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
077d 00d9 | | Load_Top At_Offset_1
077e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
077f e5ff | | Load 0x2,-0x1
0780 0217 | | Execute Heap_Access,All_Reference
0781 3406 |4 | Execute Record,Field_Reference,Field_Number 0x6
0782 00d9 | | Load_Top At_Offset_1
0783 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0784 e5ff | | Load 0x2,-0x1
0785 0217 | | Execute Heap_Access,All_Reference
0786 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0787 e22f | / | Load 0x1,0x2f
0788 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0789 4502 |E | Exit_Suprogram New_Top_Offset 0x2
078a 0000 0000 | | .BLANK 0000[0x6]
0790 ; --------------------------------------------------------------------------------------
0790 ; SUBPROGRAM
0790 ; --------------------------------------------------------------------------------------
0790 0799 | | .CONST 0x0799 ; Address of begin
0791 0004 | | .CONST 0x0004 ; Address of exception handler
0792 0003 | | .CONST 0x0003 ; Number of locals
0793 INIT_0790:
0793 e5fd | | Load 0x2,-0x3
0794 0092 09d9 | | Action Push_String_Extended,0x9d9 ; ".Toc"
0796 01cc | | Execute Vector,Catenate
0797 029f 09bb | | Declare_Subprogram INIT_09b8,For_Call
0799 BODY_0790:
0799 4800 |H | Short_Literal 0x0
079a e5ff | | Load 0x2,-0x1
079b 0217 | | Execute Heap_Access,All_Reference
079c 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
079d 4800 |H | Short_Literal 0x0
079e e5ff | | Load 0x2,-0x1
079f 0217 | | Execute Heap_Access,All_Reference
07a0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
07a1 8014 | | Call 0x0,0x14
07a2 e5ff | | Load 0x2,-0x1
07a3 0217 | | Execute Heap_Access,All_Reference
07a4 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
07a5 4800 |H | Short_Literal 0x0
07a6 e5ff | | Load 0x2,-0x1
07a7 0217 | | Execute Heap_Access,All_Reference
07a8 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
07a9 e5fe | | Load 0x2,-0x2
07aa 4602 |F | Jump_Case 0x3
07ab 7836 |x6 | Jump 0x7e2 ; case 0x0
07ac 7837 |x7 | Jump 0x7e4 ; case 0x1
07ad 7800 |x | Jump 0x7ae ; case 0x2
07ae e5ff | | Load 0x2,-0x1
07af 0219 | | Execute Heap_Access,All_Read
07b0 00d8 | | Load_Top At_Offset_0
07b1 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07b2 00ea | | Load_Encached Null_String_Cache
07b3 e402 | | Load 0x2,0x2
07b4 4802 |H | Short_Literal 0x2
07b5 e22f | / | Load 0x1,0x2f
07b6 1815 | | Execute Package,Field_Execute,Field_Number 0x15
07b7 00d9 | | Load_Top At_Offset_1
07b8 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07b9 00d1 | | Pop_Control Pop_Count_1
07ba e5ff | | Load 0x2,-0x1
07bb 0217 | | Execute Heap_Access,All_Reference
07bc 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07bd e22f | / | Load 0x1,0x2f
07be 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
07bf e5ff | | Load 0x2,-0x1
07c0 0217 | | Execute Heap_Access,All_Reference
07c1 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07c2 e5ff | | Load 0x2,-0x1
07c3 0217 | | Execute Heap_Access,All_Reference
07c4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
07c5 0c01 | | Execute_Immediate Greater_Equal,0x1
07c6 681a |h | Jump_Zero 0x7e1
07c7 e5ff | | Load 0x2,-0x1
07c8 0217 | | Execute Heap_Access,All_Reference
07c9 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
07ca 00d8 | | Load_Top At_Offset_0
07cb e22f | / | Load 0x1,0x2f
07cc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
07cd 0260 | ` | Execute Discrete,In_Type
07ce 7001 |p | Jump_Nonzero 0x7d0
07cf 0801 | | Execute_Immediate Raise,0x1
07d0 e5ff | | Load 0x2,-0x1
07d1 0217 | | Execute Heap_Access,All_Reference
07d2 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07d3 e22f | / | Load 0x1,0x2f
07d4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
07d5 e5ff | | Load 0x2,-0x1
07d6 8230 | 0 | Call 0x1,0x30
07d7 e5ff | | Load 0x2,-0x1
07d8 0217 | | Execute Heap_Access,All_Reference
07d9 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
07da e5ff | | Load 0x2,-0x1
07db 0217 | | Execute Heap_Access,All_Reference
07dc 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
07dd 0273 | s | Execute Discrete,Plus
07de e5ff | | Load 0x2,-0x1
07df 0217 | | Execute Heap_Access,All_Reference
07e0 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
07e1 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07e2 8403 | | Call 0x2,0x3
07e3 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07e4 e5ff | | Load 0x2,-0x1
07e5 0219 | | Execute Heap_Access,All_Read
07e6 00d8 | | Load_Top At_Offset_0
07e7 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
07e8 00ea | | Load_Encached Null_String_Cache
07e9 e402 | | Load 0x2,0x2
07ea 4802 |H | Short_Literal 0x2
07eb e22f | / | Load 0x1,0x2f
07ec 1814 | | Execute Package,Field_Execute,Field_Number 0x14
07ed 00d9 | | Load_Top At_Offset_1
07ee 380a |8 | Execute Record,Field_Write,Field_Number 0xa
07ef 00d1 | | Pop_Control Pop_Count_1
07f0 4504 |E | Exit_Suprogram New_Top_Offset 0x4
07f1 0000 0000 | | .BLANK 0000[0x7]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb | | .CONST 0x07fb ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0001 | | .CONST 0x0001 ; Number of locals
07fb BODY_07f8:
07fb INIT_07f8:
07fb 4800 |H | Short_Literal 0x0
07fc 00db | | Load_Top At_Offset_3
07fd 0217 | | Execute Heap_Access,All_Reference
07fe 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
07ff 4800 |H | Short_Literal 0x0
0800 00db | | Load_Top At_Offset_3
0801 0217 | | Execute Heap_Access,All_Reference
0802 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0803 8014 | | Call 0x0,0x14
0804 00db | | Load_Top At_Offset_3
0805 0217 | | Execute Heap_Access,All_Reference
0806 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0807 00db | | Load_Top At_Offset_3
0808 4602 |F | Jump_Case 0x3
0809 7820 |x | Jump 0x82a ; case 0x0
080a 782a |x* | Jump 0x835 ; case 0x1
080b 7800 |x | Jump 0x80c ; case 0x2
080c 00da | | Load_Top At_Offset_2
080d 0219 | | Execute Heap_Access,All_Read
080e 00d8 | | Load_Top At_Offset_0
080f 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0810 4802 |H | Short_Literal 0x2
0811 e22f | / | Load 0x1,0x2f
0812 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0813 00d9 | | Load_Top At_Offset_1
0814 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0815 00d1 | | Pop_Control Pop_Count_1
0816 00e2 | | Load_Encached Integer_Cache
0817 00db | | Load_Top At_Offset_3
0818 0217 | | Execute Heap_Access,All_Reference
0819 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
081a e22f | / | Load 0x1,0x2f
081b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
081c 0268 | h | Execute Discrete,Successor
081d e22f | / | Load 0x1,0x2f
081e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
081f 00d9 | | Load_Top At_Offset_1
0820 00d0 | | Action Swap_Control
0821 0260 | ` | Execute Discrete,In_Type
0822 7001 |p | Jump_Nonzero 0x824
0823 0801 | | Execute_Immediate Raise,0x1
0824 00db | | Load_Top At_Offset_3
0825 0217 | | Execute Heap_Access,All_Reference
0826 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0827 e22f | / | Load 0x1,0x2f
0828 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0829 4504 |E | Exit_Suprogram New_Top_Offset 0x4
082a 00da | | Load_Top At_Offset_2
082b 0219 | | Execute Heap_Access,All_Read
082c 00d8 | | Load_Top At_Offset_0
082d 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
082e 4801 |H | Short_Literal 0x1
082f e22f | / | Load 0x1,0x2f
0830 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0831 00d9 | | Load_Top At_Offset_1
0832 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0833 00d1 | | Pop_Control Pop_Count_1
0834 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0835 00da | | Load_Top At_Offset_2
0836 0219 | | Execute Heap_Access,All_Read
0837 00d8 | | Load_Top At_Offset_0
0838 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0839 4802 |H | Short_Literal 0x2
083a e22f | / | Load 0x1,0x2f
083b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
083c 00d9 | | Load_Top At_Offset_1
083d 380a |8 | Execute Record,Field_Write,Field_Number 0xa
083e 00d1 | | Pop_Control Pop_Count_1
083f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0840 ; --------------------------------------------------------------------------------------
0840 ; SUBPROGRAM
0840 ; --------------------------------------------------------------------------------------
0840 0843 | C | .CONST 0x0843 ; Address of begin
0841 0004 | | .CONST 0x0004 ; Address of exception handler
0842 0001 | | .CONST 0x0001 ; Number of locals
0843 BODY_0840:
0843 INIT_0840:
0843 00da | | Load_Top At_Offset_2
0844 0217 | | Execute Heap_Access,All_Reference
0845 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0846 7009 |p | Jump_Nonzero 0x850
0847 00da | | Load_Top At_Offset_2
0848 0219 | | Execute Heap_Access,All_Read
0849 00d8 | | Load_Top At_Offset_0
084a 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
084b e22f | / | Load 0x1,0x2f
084c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
084d 00d9 | | Load_Top At_Offset_1
084e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
084f 00d1 | | Pop_Control Pop_Count_1
0850 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0851 0000 0000 | | .BLANK 0000[0x7]
0858 ; --------------------------------------------------------------------------------------
0858 ; SUBPROGRAM
0858 ; --------------------------------------------------------------------------------------
0858 085b | [ | .CONST 0x085b ; Address of begin
0859 0004 | | .CONST 0x0004 ; Address of exception handler
085a 0001 | | .CONST 0x0001 ; Number of locals
085b BODY_0858:
085b INIT_0858:
085b 00da | | Load_Top At_Offset_2
085c 0217 | | Execute Heap_Access,All_Reference
085d 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
085e 6805 |h | Jump_Zero 0x864
085f 00da | | Load_Top At_Offset_2
0860 0217 | | Execute Heap_Access,All_Reference
0861 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0862 0c01 | | Execute_Immediate Greater_Equal,0x1
0863 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0864 00da | | Load_Top At_Offset_2
0865 0217 | | Execute Heap_Access,All_Reference
0866 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0867 e22f | / | Load 0x1,0x2f
0868 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0869 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
086a 0000 0000 | | .BLANK 0000[0x6]
0870 ; --------------------------------------------------------------------------------------
0870 ; SUBPROGRAM
0870 ; --------------------------------------------------------------------------------------
0870 0885 | | .CONST 0x0885 ; Address of begin
0871 0004 | | .CONST 0x0004 ; Address of exception handler
0872 0006 | | .CONST 0x0006 ; Number of locals
0873 INIT_0870:
0873 e01a | | Load 0x0,0x1a
0874 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0875 02c7 | | Declare_Variable Any
0876 00d8 | | Load_Top At_Offset_0
0877 1c00 | | Execute_Immediate Run_Utility,0x0
0878 e00e | | Load 0x0,0xe
0879 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
087a 1b17 | | Execute Package,Field_Read,Field_Number 0x17
087b e00e | | Load 0x0,0xe
087c 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
087d 1b17 | | Execute Package,Field_Read,Field_Number 0x17
087e e00e | | Load 0x0,0xe
087f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0880 e00e | | Load 0x0,0xe
0881 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0882 02ff | | Declare_Variable Variant_Record
0883 00d8 | | Load_Top At_Offset_0
0884 1c00 | | Execute_Immediate Run_Utility,0x0
0885 BODY_0870:
0885 4801 |H | Short_Literal 0x1
0886 a5fc | | Store_Unchecked 0x2,-0x4
0887 e007 | | Load 0x0,0x7
0888 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0889 e5fd | | Load 0x2,-0x3
088a 4800 |H | Short_Literal 0x0
088b 60b4 |` | Indirect_Literal Discrete,0x940,{0x00000000, 0x00004000}
088c e00d | | Load 0x0,0xd
088d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
088e e00b | | Load 0x0,0xb
088f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0890 e00e | | Load 0x0,0xe
0891 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0892 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0893 4800 |H | Short_Literal 0x0
0894 e5ff | | Load 0x2,-0x1
0895 e5fe | | Load 0x2,-0x2
0896 e007 | | Load 0x0,0x7
0897 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0898 c5fd | | Store 0x2,-0x3
0899 005a | Z | Store_Top Discrete,At_Offset_2
089a 00d9 | | Load_Top At_Offset_1
089b 460e |F | Jump_Case 0xf
089c 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; case 0x0
089d 780d |x | Jump 0x8ab ; case 0x1
089e 780c |x | Jump 0x8ab ; case 0x2
089f 780b |x | Jump 0x8ab ; case 0x3
08a0 780a |x | Jump 0x8ab ; case 0x4
08a1 7809 |x | Jump 0x8ab ; case 0x5
08a2 7808 |x | Jump 0x8ab ; case 0x6
08a3 7807 |x | Jump 0x8ab ; case 0x7
08a4 7806 |x | Jump 0x8ab ; case 0x8
08a5 781a |x | Jump 0x8c0 ; case 0x9
08a6 7804 |x | Jump 0x8ab ; case 0xa
08a7 7803 |x | Jump 0x8ab ; case 0xb
08a8 7802 |x | Jump 0x8ab ; case 0xc
08a9 7801 |x | Jump 0x8ab ; case 0xd
08aa 7800 |x | Jump 0x8ab ; case 0xe
08ab e00f | | Load 0x0,0xf
08ac 180e | | Execute Package,Field_Execute,Field_Number 0xe
08ad 4802 |H | Short_Literal 0x2
08ae 4829 |H) | Short_Literal 0x29
08af 0092 09da | | Action Push_String_Extended,0x9da ; "Cannot resolve file name "
08b1 e5ff | | Load 0x2,-0x1
08b2 01cc | | Execute Vector,Catenate
08b3 0092 09d7 | | Action Push_String_Extended,0x9d7 ; " ("
08b5 01cc | | Execute Vector,Catenate
08b6 e405 | | Load 0x2,0x5
08b7 e00e | | Load 0x0,0xe
08b8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08b9 011c | | Execute Any,Convert_Unchecked
08ba 1c01 | | Execute_Immediate Run_Utility,0x1
08bb 01cc | | Execute Vector,Catenate
08bc 01cb | | Execute Vector,Append
08bd e011 | | Load 0x0,0x11
08be 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08bf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08c0 e5fe | | Load 0x2,-0x2
08c1 700c |p | Jump_Nonzero 0x8ce
08c2 e00f | | Load 0x0,0xf
08c3 180e | | Execute Package,Field_Execute,Field_Number 0xe
08c4 4805 |H | Short_Literal 0x5
08c5 0092 09db | | Action Push_String_Extended,0x9db ; "Cannot find a file named "
08c7 e5ff | | Load 0x2,-0x1
08c8 01cc | | Execute Vector,Catenate
08c9 e011 | | Load 0x0,0x11
08ca 1813 | | Execute Package,Field_Execute,Field_Number 0x13
08cb 4800 |H | Short_Literal 0x0
08cc a5fc | | Store_Unchecked 0x2,-0x4
08cd 4503 |E | Exit_Suprogram New_Top_Offset 0x3
08ce e00e | | Load 0x0,0xe
08cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d0 00f1 | | Load_Encached Diana_Temp_Seq
08d1 e00e | | Load 0x0,0xe
08d2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
08d3 1b17 | | Execute Package,Field_Read,Field_Number 0x17
08d4 e402 | | Load 0x2,0x2
08d5 0120 | | Execute Any,Is_Value
08d6 6803 |h | Jump_Zero 0x8da
08d7 e01a | | Load 0x0,0x1a
08d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
08d9 7801 |x | Jump 0x8db
08da e402 | | Load 0x2,0x2
08db e406 | | Load 0x2,0x6
08dc 6063 |`c | Indirect_Literal Discrete,0x940,{0x00000000, 0x00004000}
08dd e00d | | Load 0x0,0xd
08de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08df 4800 |H | Short_Literal 0x0
08e0 e00e | | Load 0x0,0xe
08e1 1b34 | 4 | Execute Package,Field_Read,Field_Number 0x34
08e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
08e3 e00e | | Load 0x0,0xe
08e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
08e5 6056 |`V | Indirect_Literal Discrete,0x93c,{0x00000000, 0x7fffffff}
08e6 4ffc |O | Short_Literal -0x4
08e7 4ffd |O | Short_Literal -0x3
08e8 e00b | | Load 0x0,0xb
08e9 1811 | | Execute Package,Field_Execute,Field_Number 0x11
08ea e00e | | Load 0x0,0xe
08eb 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
08ec 1816 | | Execute Package,Field_Execute,Field_Number 0x16
08ed e00e | | Load 0x0,0xe
08ee 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
08ef e007 | | Load 0x0,0x7
08f0 180f | | Execute Package,Field_Execute,Field_Number 0xf
08f1 e5ff | | Load 0x2,-0x1
08f2 e00e | | Load 0x0,0xe
08f3 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
08f4 180f | | Execute Package,Field_Execute,Field_Number 0xf
08f5 00d1 | | Pop_Control Pop_Count_1
08f6 c402 | | Store 0x2,0x2
08f7 c403 | | Store 0x2,0x3
08f8 c404 | | Store 0x2,0x4
08f9 005a | Z | Store_Top Discrete,At_Offset_2
08fa 00d9 | | Load_Top At_Offset_1
08fb 6818 |h | Jump_Zero 0x914
08fc e00f | | Load 0x0,0xf
08fd 180e | | Execute Package,Field_Execute,Field_Number 0xe
08fe 4802 |H | Short_Literal 0x2
08ff 0092 09dc | | Action Push_String_Extended,0x9dc ; "Cannot create a file named "
0901 e5ff | | Load 0x2,-0x1
0902 01cc | | Execute Vector,Catenate
0903 0092 09d7 | | Action Push_String_Extended,0x9d7 ; " ("
0905 01cc | | Execute Vector,Catenate
0906 e405 | | Load 0x2,0x5
0907 e00e | | Load 0x0,0xe
0908 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0909 011c | | Execute Any,Convert_Unchecked
090a 1c01 | | Execute_Immediate Run_Utility,0x1
090b 01cc | | Execute Vector,Catenate
090c 0092 09d8 | | Action Push_String_Extended,0x9d8 ; ")"
090e 01cc | | Execute Vector,Catenate
090f e011 | | Load 0x0,0x11
0910 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0911 4800 |H | Short_Literal 0x0
0912 a5fc | | Store_Unchecked 0x2,-0x4
0913 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0914 e007 | | Load 0x0,0x7
0915 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0916 00d9 | | Load_Top At_Offset_1
0917 e5fd | | Load 0x2,-0x3
0918 4801 |H | Short_Literal 0x1
0919 6026 |`& | Indirect_Literal Discrete,0x940,{0x00000000, 0x00004000}
091a e00d | | Load 0x0,0xd
091b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
091c e5fe | | Load 0x2,-0x2
091d e007 | | Load 0x0,0x7
091e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
091f c5fd | | Store 0x2,-0x3
0920 00d1 | | Pop_Control Pop_Count_1
0921 005a | Z | Store_Top Discrete,At_Offset_2
0922 00d9 | | Load_Top At_Offset_1
0923 6814 |h | Jump_Zero 0x938
0924 e00f | | Load 0x0,0xf
0925 180e | | Execute Package,Field_Execute,Field_Number 0xe
0926 4802 |H | Short_Literal 0x2
0927 4829 |H) | Short_Literal 0x29
0928 0092 09dd | | Action Push_String_Extended,0x9dd ; "Cannot open file "
092a e5ff | | Load 0x2,-0x1
092b 01cc | | Execute Vector,Catenate
092c 0092 09d7 | | Action Push_String_Extended,0x9d7 ; " ("
092e 01cc | | Execute Vector,Catenate
092f e405 | | Load 0x2,0x5
0930 e00e | | Load 0x0,0xe
0931 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0932 011c | | Execute Any,Convert_Unchecked
0933 1c01 | | Execute_Immediate Run_Utility,0x1
0934 01cc | | Execute Vector,Catenate
0935 01cb | | Execute Vector,Append
0936 e011 | | Load 0x0,0x11
0937 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0938 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0939 0000 0000 | | .XXX[0x3]
093b 0000 | |
093c 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0940 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0944 0000 0000 | | .BLANK 0000[0x4]
0948 ; --------------------------------------------------------------------------------------
0948 ; SUBPROGRAM
0948 ; --------------------------------------------------------------------------------------
0948 094b | K | .CONST 0x094b ; Address of begin
0949 0004 | | .CONST 0x0004 ; Address of exception handler
094a 0001 | | .CONST 0x0001 ; Number of locals
094b BODY_0948:
094b INIT_0948:
094b e007 | | Load 0x0,0x7
094c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
094d e007 | | Load 0x0,0x7
094e 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
094f 00db | | Load_Top At_Offset_3
0950 0217 | | Execute Heap_Access,All_Reference
0951 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0952 0903 | | Execute_Immediate Binary_Scale,0x3
0953 0273 | s | Execute Discrete,Plus
0954 e007 | | Load 0x0,0x7
0955 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0956 00db | | Load_Top At_Offset_3
0957 0217 | | Execute Heap_Access,All_Reference
0958 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0959 4502 |E | Exit_Suprogram New_Top_Offset 0x2
095a 0000 0000 | | .BLANK 0000[0x6]
0960 ; --------------------------------------------------------------------------------------
0960 ; SUBPROGRAM
0960 ; --------------------------------------------------------------------------------------
0960 0964 | d | .CONST 0x0964 ; Address of begin
0961 0004 | | .CONST 0x0004 ; Address of exception handler
0962 0002 | | .CONST 0x0002 ; Number of locals
0963 INIT_0960:
0963 00e1 | | Load_Encached Boolean_Cache
0964 BODY_0960:
0964 00db | | Load_Top At_Offset_3
0965 0217 | | Execute Heap_Access,All_Reference
0966 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0967 e007 | | Load 0x0,0x7
0968 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0969 702a |p* | Jump_Nonzero 0x994
096a 00db | | Load_Top At_Offset_3
096b 0217 | | Execute Heap_Access,All_Reference
096c 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
096d 6811 |h | Jump_Zero 0x97f
096e 00db | | Load_Top At_Offset_3
096f 0219 | | Execute Heap_Access,All_Read
0970 00e1 | | Load_Encached Boolean_Cache
0971 00d9 | | Load_Top At_Offset_1
0972 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0973 4800 |H | Short_Literal 0x0
0974 e5ff | | Load 0x2,-0x1
0975 0217 | | Execute Heap_Access,All_Reference
0976 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0977 e006 | | Load 0x0,0x6
0978 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0979 8239 | 9 | Call 0x1,0x39
097a 00da | | Load_Top At_Offset_2
097b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
097c 005a | Z | Store_Top Discrete,At_Offset_2
097d 00d1 | | Pop_Control Pop_Count_1
097e 7813 |x | Jump 0x992
097f 00db | | Load_Top At_Offset_3
0980 0219 | | Execute Heap_Access,All_Read
0981 00e1 | | Load_Encached Boolean_Cache
0982 00d9 | | Load_Top At_Offset_1
0983 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0984 4800 |H | Short_Literal 0x0
0985 e5ff | | Load 0x2,-0x1
0986 0217 | | Execute Heap_Access,All_Reference
0987 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
0988 e22f | / | Load 0x1,0x2f
0989 181b | | Execute Package,Field_Execute,Field_Number 0x1b
098a e00e | | Load 0x0,0xe
098b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
098c 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
098d 8239 | 9 | Call 0x1,0x39
098e 00da | | Load_Top At_Offset_2
098f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0990 005a | Z | Store_Top Discrete,At_Offset_2
0991 00d1 | | Pop_Control Pop_Count_1
0992 00db | | Load_Top At_Offset_3
0993 823a | : | Call 0x1,0x3a
0994 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0995 0000 0000 | | .XXX[0x3]
0997 0000 | |
0998 ; --------------------------------------------------------------------------------------
0998 ; SUBPROGRAM
0998 ; --------------------------------------------------------------------------------------
0998 09a0 | | .CONST 0x09a0 ; Address of begin
0999 0004 | | .CONST 0x0004 ; Address of exception handler
099a 0002 | | .CONST 0x0002 ; Number of locals
099b INIT_0998:
099b 4801 |H | Short_Literal 0x1
099c e404 | | Load 0x2,0x4
099d 00e9 | | Load_Encached String_Cache
099e 035b | [ | Declare_Type Array,Constrained
099f 0337 | 7 | Declare_Variable Array
09a0 BODY_0998:
09a0 00e3 | | Load_Encached Natural_Cache
09a1 00d9 | | Load_Top At_Offset_1
09a2 e402 | | Load 0x2,0x2
09a3 e5ff | | Load 0x2,-0x1
09a4 0217 | | Execute Heap_Access,All_Reference
09a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
09a6 e007 | | Load 0x0,0x7
09a7 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
09a8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
09a9 c402 | | Store 0x2,0x2
09aa 00d1 | | Pop_Control Pop_Count_1
09ab c404 | | Store 0x2,0x4
09ac 00d8 | | Load_Top At_Offset_0
09ad 00e9 | | Load_Encached String_Cache
09ae 01c6 | | Execute Vector,Convert_To_Formal
09af 00cb | | Action Pop_Block_With_Result
09b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
09b1 0000 0000 | | .BLANK 0000[0x7]
09b8 ; --------------------------------------------------------------------------------------
09b8 ; SUBPROGRAM
09b8 ; --------------------------------------------------------------------------------------
09b8 09bb | | .CONST 0x09bb ; Address of begin
09b9 09c7 | | .CONST 0x09c7 ; Address of exception handler
09ba 0001 | | .CONST 0x0001 ; Number of locals
09bb BODY_09b8:
09bb INIT_09b8:
09bb e5ff | | Load 0x2,-0x1
09bc 0219 | | Execute Heap_Access,All_Read
09bd 00d8 | | Load_Top At_Offset_0
09be 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
09bf 00ea | | Load_Encached Null_String_Cache
09c0 e402 | | Load 0x2,0x2
09c1 4800 |H | Short_Literal 0x0
09c2 e22f | / | Load 0x1,0x2f
09c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
09c4 00d9 | | Load_Top At_Offset_1
09c5 380a |8 | Execute Record,Field_Write,Field_Number 0xa
09c6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09c7 TRAP_09b8:
09c7 00d8 | | Load_Top At_Offset_0
09c8 0107 | | Execute Exception,Get_Name
09c9 4920 |I | Short_Literal 0x120
09ca 492f |I/ | Short_Literal 0x12f
09cb 0262 | b | Execute Discrete,In_Range
09cc 6805 |h | Jump_Zero 0x9d2
09cd 4801 |H | Short_Literal 0x1
09ce e5ff | | Load 0x2,-0x1
09cf 0217 | | Execute Heap_Access,All_Reference
09d0 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
09d1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
09d2 0100 | | Execute Exception,Raise
09d3 ; --------------------------------------------------------------------------------------
09d3 ; STRING TABLE
09d3 ; --------------------------------------------------------------------------------------
09d3 0018 | | .STRTAB 0x0018->0x09df ; "READ"
09d4 001a | | .STRTAB 0x001a->0x09e1 ; "WRITE"
09d5 001d | | .STRTAB 0x001d->0x09e3 ; "APPEND"
09d6 0021 | ! | .STRTAB 0x0021->0x09e6 ; "Cannot open "
09d7 002b | + | .STRTAB 0x002b->0x09ec ; " ("
09d8 002b | + | .STRTAB 0x002b->0x09ed ; ")"
09d9 002a | * | .STRTAB 0x002a->0x09ee ; ".Toc"
09da 002c | , | .STRTAB 0x002c->0x09f0 ; "Cannot resolve file name "
09db 0043 | C | .STRTAB 0x0043->0x09fc ; "Cannot find a file named "
09dc 005a | Z | .STRTAB 0x005a->0x0a09 ; "Cannot create a file named "
09dd 0073 | s | .STRTAB 0x0073->0x0a16 ; "Cannot open file "
09de 0082 | | .STREND 0x0082->0x0a1f
09df 5245 4144 |READ| .STRTAB_STRINGS
0a1f 0000 | | .XXX[0x1]
0a20 ; --------------------------------------------------------------------------------------
0a20 ; Debug Table
0a20 ; --------------------------------------------------------------------------------------
0a20 0004 0011 | | .DEBUG4 0x0004,0x0011,0x34bf,0x0000,0x0001,0x0000
0a26 0000 0000 | | .XXX[0x49]
0a28 01ec 2e10 | . |
0a2a 7b19 081e |{ |
0a2c c6de 0000 | |
0a2e ccc4 81ec | |
0a30 23d0 0000 |# |
0a32 001e c385 | |
0a34 07b1 45c0 | E |
0a36 0000 0000 | |
0a38 04cc 481e | H |
0a3a c2e1 0000 | |
0a3c 0001 ec7f | |
0a3e 107b 1280 | { |
0a40 0000 0000 | |
0a42 004e c5c1 | N |
0a44 ec7f 1000 | |
0a46 0000 0130 | 0|
0a48 1c00 cf50 | P|
0a4a 9d8b 83d8 | |
0a4c 70a0 0000 |p |
0a4e 000a a038 | 8|
0a50 01a7 a33b | ;|
0a52 1707 b0b8 | |
0a54 4000 0000 |@ |
0a56 0040 7003 | @p |
0a58 9512 5c10 | \ |
0a5a 0f63 2100 | c! |
0a5c 0000 0040 | @|
0a5e c080 0610 | |
0a60 f844 0000 | D |
0a62 0007 b163 | c|
0a64 a112 60f6 | ` |
0a66 11e8 0000 | |
0a68 000f 6306 | c |
0a6a 8001 ec58 | X|
0a6c e000 0002 | |
0a6e 3b1a |; |
0a6f 0000 0000 | | .BLANK 0000[0x5]
0a74 3d8d 4335 |= C5| .XXX[0x7]
0a76 0b07 b1fc | |
0a78 4000 0000 |@ |
0a7a 05a0 | |
0a7b 0000 0000 | | .BLANK 0000[0x4]
0a7f 4cc4 81ec |L | .XXX[0x8]
0a81 3850 0000 |8P |
0a83 001e c757 | W|
0a85 07b1 0a40 | @|
0a87 0000 0000 | | .BLANK 0000[0x4]
0a8b 832d 8000 | - | .XXX[0x4c]
0a8d 0000 0000 | |
0a8f 003d 92a8 | = |
0a91 0f66 5a83 | fZ |
0a93 d9aa 2000 | |
0a95 1998 903d | =|
0a97 9160 0000 | ` |
0a99 0003 d93f | ?|
0a9b 00f6 5c50 | \P|
0a9d 0000 0000 | |
0a9f 0099 8903 | |
0aa1 d92a 8000 | * |
0aa3 0000 3d9c | = |
0aa5 c80f 6589 | e |
0aa7 8000 0000 | |
0aa9 0009 d8b8 | |
0aab 3d9c c800 |= |
0aad 0000 0026 | &|
0aaf 0380 19ea | |
0ab1 13b1 707b | p{|
0ab3 27e0 0000 |' |
0ab5 0001 5407 | T |
0ab7 0034 f467 | 4 g|
0ab9 62e0 f64a |b J|
0abb a000 0000 | |
0abd 0008 0e00 | |
0abf 72a2 4b82 |r K |
0ac1 01ec cb50 | P|
0ac3 0000 0008 | |
0ac5 1810 00c2 | |
0ac7 1f08 8000 | |
0ac9 0000 f660 | `|
0acb 0c22 4c1e | "L |
0acd c8b0 0000 | |
0acf 0001 ecc8 | |
0ad1 0000 3d98 | = |
0ad3 0200 0000 | |
0ad5 4763 4000 |Gc@ |
0ad7 0000 0000 | | .BLANK 0000[0x4]
0adb 07b3 4526 | E&| .XXX[0x7]
0add a160 f673 | ` s|
0adf 2000 0000 | |
0ae1 00b4 | |
0ae2 0000 0000 | | .BLANK 0000[0x4]
0ae6 0998 903d | =| .XXX[0x8]
0ae8 93f0 0000 | |
0aea 0003 d9b9 | |
0aec 40f6 54e0 |@ T |
0aee 0000 0000 | | .BLANK 0000[0x4]
0af2 1065 b000 | e | .XXX[0x41]
0af4 0000 0000 | |
0af6 0007 b3f1 | |
0af8 c1ed 2740 | '@|
0afa 7b4c 4000 |{L@ |
0afc 0333 1207 | 3 |
0afe b3c8 c000 | |
0b00 0000 7b41 | {A|
0b02 ac1e d1fd | |
0b04 0000 0000 | |
0b06 0013 3120 | 1 |
0b08 7b3f 1c00 |{? |
0b0a 0000 07b5 | |
0b0c 08c1 ed18 | |
0b0e 6000 0000 |` |
0b10 0001 3b17 | ; |
0b12 07b5 08c0 | |
0b14 0000 0004 | |
0b16 c070 033d | p =|
0b18 4276 2e0f |Bv. |
0b1a 6835 8000 |h5 |
0b1c 0000 0640 | @|
0b1e e00f 8c74 | t|
0b20 ec5c 1ecf | \ |
0b22 c700 0000 | |
0b24 0050 81c0 | P |
0b26 2209 9844 |" D|
0b28 983d 9e46 | = F|
0b2a 0000 0000 | |
0b2c 0000 0070 | p|
0b2e 0892 e800 | |
0b30 0000 8ec6 | |
0b32 8000 | |
0b33 0000 0000 | | .BLANK 0000[0x4]
0b37 0f69 69cd | ii | .XXX[0x7]
0b39 42c1 ed42 |B B|
0b3b 3000 0000 |0 |
0b3d 0168 | h |
0b3e 0000 0000 | | .BLANK 0000[0x4]
0b42 1331 207b | 1 {| .XXX[0x8]
0b44 41ac 0000 |A |
0b46 0007 b4e2 | |
0b48 41ed 10f0 |A |
0b4a 0000 0000 | | .BLANK 0000[0x4]
0b4e 20cb 6000 | ` | .XXX[0x40]
0b50 0000 0000 | |
0b52 000f 6ac3 | j |
0b54 03db 0660 | `|
0b56 f6c6 7800 | x |
0b58 0666 240f | f$ |
0b5a 6a71 0000 |jq |
0b5c 0000 f6b1 | |
0b5e 503d af78 |P= x|
0b60 0000 0000 | |
0b62 0026 6240 | &b@|
0b64 f6ac 3000 | 0 |
0b66 0000 0f6c | l|
0b68 f103 dae8 | |
0b6a a000 0000 | |
0b6c 0002 762e | v.|
0b6e 0f6c f100 | l |
0b70 0000 0009 | |
0b72 80e0 067a | z|
0b74 84ec 5c1e | \ |
0b76 d62a 0000 | * |
0b78 0000 0c81 | |
0b7a c01f 18e9 | |
0b7c d8b8 3dab | = |
0b7e 0c00 0000 | |
0b80 00a1 0380 | |
0b82 4413 3089 |D 0 |
0b84 307b 5388 |0{S |
0b86 0000 0000 | |
0b88 0000 00e0 | |
0b8a 1125 d000 | % |
0b8c 0001 1d8d | |
0b8e 0000 0000 | | .BLANK 0000[0x5]
0b93 1ed8 929a | | .XXX[0x7]
0b95 8583 db3c | <|
0b97 4000 0000 |@ |
0b99 02d0 | |
0b9a 0000 0000 | | .BLANK 0000[0x4]
0b9e 2662 40f6 |&b@ | .XXX[0x8]
0ba0 b150 0000 | P |
0ba2 000f 6ca4 | l |
0ba4 03da d9c0 | |
0ba6 0000 0000 | | .BLANK 0000[0x4]
0baa 4196 c000 |A | .XXX[0x40]
0bac 0000 0000 | |
0bae 001e db45 | E|
0bb0 07b7 7c81 | | |
0bb2 ede8 e000 | |
0bb4 0ccc 481e | H |
0bb6 daa1 0000 | |
0bb8 0001 edbe | |
0bba 907b 75ec | {u |
0bbc 0000 0000 | |
0bbe 004c c481 | L |
0bc0 edb4 5000 | P |
0bc2 0000 1edf | |
0bc4 a107 b741 | A|
0bc6 0000 0000 | |
0bc8 0004 ec5c | \|
0bca 1edf a100 | |
0bcc 0000 0013 | |
0bce 01c0 0cf5 | |
0bd0 09d8 b83d | =|
0bd2 b7d2 0000 | |
0bd4 0000 a203 | |
0bd6 8050 7793 | Pw |
0bd8 b170 7b6d | p{m|
0bda 1400 0000 | |
0bdc 0142 0700 | B |
0bde ab83 2112 | ! |
0be0 60f6 d508 |` |
0be2 0000 0000 | |
0be4 0000 01c0 | |
0be6 2b22 d000 |+" |
0be8 0002 3b1a | ; |
0bea 0000 0000 | | .BLANK 0000[0x5]
0bef 3dbc a335 |= 5| .XXX[0x7]
0bf1 0b07 b7e8 | |
0bf3 4000 0000 |@ |
0bf5 05a0 | |
0bf6 0000 0000 | | .BLANK 0000[0x4]
0bfa 4cc4 81ed |L | .XXX[0x6]
0bfc be90 0000 | |
0bfe 001e df07 | |