|
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 - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 06c8 | | .CONST 0x06c8 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0072 | r | .CONST 0x0072 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4802 |H | Short_Literal 0x2
000d 029f 007b | {| Declare_Subprogram For_Call,INIT_0078
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 4802 |H | Short_Literal 0x2
0012 029f 00a3 | | Declare_Subprogram For_Call,INIT_00a0
0014 03fe | | Declare_Type Discrete,Defined,Visible
0015 4800 |H | Short_Literal 0x0
0016 4802 |H | Short_Literal 0x2
0017 029f 00cb | | Declare_Subprogram For_Call,INIT_00c8
0019 03fe | | Declare_Type Discrete,Defined,Visible
001a 4800 |H | Short_Literal 0x0
001b 4815 |H | Short_Literal 0x15
001c 029f 00f3 | | Declare_Subprogram For_Call,INIT_00f0
001e 03fe | | Declare_Type Discrete,Defined,Visible
001f 4800 |H | Short_Literal 0x0
0020 480f |H | Short_Literal 0xf
0021 00da | | Load_Top At_Offset_2
0022 03f9 | | Declare_Type Discrete,Constrained,Visible
0023 4811 |H | Short_Literal 0x11
0024 4815 |H | Short_Literal 0x15
0025 00db | | Load_Top At_Offset_3
0026 03f9 | | Declare_Type Discrete,Constrained,Visible
0027 4800 |H | Short_Literal 0x0
0028 4bff |K | Short_Literal 0x3ff
0029 e001 | | Load 0x0,0x1
002a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
002b 02a0 | | Declare_Subprogram Null_Subprogram
002c 4801 |H | Short_Literal 0x1
002d 035e | ^ | Declare_Type Array,Defined,Visible
002e 4818 |H | Short_Literal 0x18
002f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0030 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0032 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
0034 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0036 029a 01f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01f0
0038 029a 0203 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0200
003a 029a 0243 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0240
003c 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
003e 029a 0273 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0270
0040 029a 0283 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0280
0042 029a 03c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_03c0
0044 4805 |H | Short_Literal 0x5
0045 032a | * | Declare_Type Record,Incomplete
0046 00d8 | | Load_Top At_Offset_0
0047 02a0 | | Declare_Subprogram Null_Subprogram
0048 e214 | | Load 0x1,0x14
0049 03c7 | | Complete_Type Access,By_Defining
004a 00bf | | Action Accept_Activation
004b e002 | | Load 0x0,0x2
004c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
004d e002 | | Load 0x0,0x2
004e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
004f e002 | | Load 0x0,0x2
0050 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
0051 e002 | | Load 0x0,0x2
0052 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0053 e002 | | Load 0x0,0x2
0054 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 e21f | | Load 0x1,0x1f
0057 0326 | & | Complete_Type Record,By_Defining
0058 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0059 00c7 | | Action Elaborate_Subprogram
005a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005b 00c7 | | Action Elaborate_Subprogram
005c 029d 03fb | | Declare_Subprogram For_Outer_Call,INIT_03f8
005e 029d 0433 | 3| Declare_Subprogram For_Outer_Call,INIT_0430
0060 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0061 00c7 | | Action Elaborate_Subprogram
0062 029d 0473 | s| Declare_Subprogram For_Outer_Call,INIT_0470
0064 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0065 00c7 | | Action Elaborate_Subprogram
0066 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
006b 00c7 | | Action Elaborate_Subprogram
006c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0071 00c7 | | Action Elaborate_Subprogram
0072 BODY_0008:
0072 00bc | | Action Signal_Activated
0073 00bb | | Action Signal_Completion
0074 0000 0000 | | .BLANK 0000[0x4]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 4607 |F | Jump_Case 0x7
007c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
007d 7806 |x | Jump 0x84 ; case 0x1
007e 7809 |x | Jump 0x88 ; case 0x2
007f 780d |x | Jump 0x8d ; case 0x3
0080 7810 |x | Jump 0x91 ; case 0x4
0081 7811 |x | Jump 0x93 ; case 0x5
0082 7812 |x | Jump 0x95 ; case 0x6
0083 7815 |x | Jump 0x99 ; case 0x7
0084 00da | | Load_Top At_Offset_2
0085 0091 0583 | | Action Push_String_Extended_Indexed,0x583 ; "IGNORE_ERRORS"
0087 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0088 00db | | Load_Top At_Offset_3
0089 00db | | Load_Top At_Offset_3
008a 00e0 | | Load_Encached Standard_Cache
008b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
008c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
008d 00da | | Load_Top At_Offset_2
008e 00e0 | | Load_Encached Standard_Cache
008f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0090 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0091 00db | | Load_Top At_Offset_3
0092 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0093 00db | | Load_Top At_Offset_3
0094 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0095 e20d | | Load 0x1,0xd
0096 00dc | | Load_Top At_Offset_4
0097 0267 | g | Execute Discrete,Predecessor
0098 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0099 e20d | | Load 0x1,0xd
009a 00dc | | Load_Top At_Offset_4
009b 0268 | h | Execute Discrete,Successor
009c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4607 |F | Jump_Case 0x7
00a4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00a5 7806 |x | Jump 0xac ; case 0x1
00a6 7809 |x | Jump 0xb0 ; case 0x2
00a7 780d |x | Jump 0xb5 ; case 0x3
00a8 7810 |x | Jump 0xb9 ; case 0x4
00a9 7811 |x | Jump 0xbb ; case 0x5
00aa 7812 |x | Jump 0xbd ; case 0x6
00ab 7815 |x | Jump 0xc1 ; case 0x7
00ac 00da | | Load_Top At_Offset_2
00ad 0091 0586 | | Action Push_String_Extended_Indexed,0x586 ; "MUST_EXIST"
00af 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00b0 00db | | Load_Top At_Offset_3
00b1 00db | | Load_Top At_Offset_3
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00b5 00da | | Load_Top At_Offset_2
00b6 00e0 | | Load_Encached Standard_Cache
00b7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b8 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00b9 00db | | Load_Top At_Offset_3
00ba 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00bb 00db | | Load_Top At_Offset_3
00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00bd e20e | | Load 0x1,0xe
00be 00dc | | Load_Top At_Offset_4
00bf 0267 | g | Execute Discrete,Predecessor
00c0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c1 e20e | | Load 0x1,0xe
00c2 00dc | | Load_Top At_Offset_4
00c3 0268 | h | Execute Discrete,Successor
00c4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4607 |F | Jump_Case 0x7
00cc 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00cd 7806 |x | Jump 0xd4 ; case 0x1
00ce 7809 |x | Jump 0xd8 ; case 0x2
00cf 780d |x | Jump 0xdd ; case 0x3
00d0 7810 |x | Jump 0xe1 ; case 0x4
00d1 7811 |x | Jump 0xe3 ; case 0x5
00d2 7812 |x | Jump 0xe5 ; case 0x6
00d3 7815 |x | Jump 0xe9 ; case 0x7
00d4 00da | | Load_Top At_Offset_2
00d5 0091 0589 | | Action Push_String_Extended_Indexed,0x589 ; "CLOSE"
00d7 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00d8 00db | | Load_Top At_Offset_3
00d9 00db | | Load_Top At_Offset_3
00da 00e0 | | Load_Encached Standard_Cache
00db 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00dd 00da | | Load_Top At_Offset_2
00de 00e0 | | Load_Encached Standard_Cache
00df 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e0 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00e1 00db | | Load_Top At_Offset_3
00e2 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e3 00db | | Load_Top At_Offset_3
00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e5 e20f | | Load 0x1,0xf
00e6 00dc | | Load_Top At_Offset_4
00e7 0267 | g | Execute Discrete,Predecessor
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e9 e20f | | Load 0x1,0xf
00ea 00dc | | Load_Top At_Offset_4
00eb 0268 | h | Execute Discrete,Successor
00ec 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4607 |F | Jump_Case 0x7
00f4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00f5 7806 |x | Jump 0xfc ; case 0x1
00f6 7809 |x | Jump 0x100 ; case 0x2
00f7 780d |x | Jump 0x105 ; case 0x3
00f8 7810 |x | Jump 0x109 ; case 0x4
00f9 7811 |x | Jump 0x10b ; case 0x5
00fa 7812 |x | Jump 0x10d ; case 0x6
00fb 7815 |x | Jump 0x111 ; case 0x7
00fc 00da | | Load_Top At_Offset_2
00fd 0091 058c | | Action Push_String_Extended_Indexed,0x58c ; "FS_OK"
00ff 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0100 00db | | Load_Top At_Offset_3
0101 00db | | Load_Top At_Offset_3
0102 00e0 | | Load_Encached Standard_Cache
0103 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0104 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0105 00da | | Load_Top At_Offset_2
0106 00e0 | | Load_Encached Standard_Cache
0107 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0108 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0109 00db | | Load_Top At_Offset_3
010a 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
010b 00db | | Load_Top At_Offset_3
010c 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
010d e210 | | Load 0x1,0x10
010e 00dc | | Load_Top At_Offset_4
010f 0267 | g | Execute Discrete,Predecessor
0110 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0111 e210 | | Load 0x1,0x10
0112 00dc | | Load_Top At_Offset_4
0113 0268 | h | Execute Discrete,Successor
0114 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0115 0000 0000 | | .XXX[0x3]
0117 0000 | |
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0123 | # | .CONST 0x0123 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b e002 | | Load 0x0,0x2
011c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
011d 4850 |HP | Short_Literal 0x50
011e e003 | | Load 0x0,0x3
011f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0120 1c08 | | Execute_Immediate Run_Utility,0x8
0121 00d8 | | Load_Top At_Offset_0
0122 1c00 | | Execute_Immediate Run_Utility,0x0
0123 BODY_0118:
0123 00d8 | | Load_Top At_Offset_0
0124 e5ff | | Load 0x2,-0x1
0125 e003 | | Load 0x0,0x3
0126 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0127 00d1 | | Pop_Control Pop_Count_1
0128 e214 | | Load 0x1,0x14
0129 03bc | | Declare_Variable Access,By_Allocation
012a a5fb | | Store_Unchecked 0x2,-0x5
012b e002 | | Load 0x0,0x2
012c 1b25 | % | Execute Package,Field_Read,Field_Number 0x25
012d 03bc | | Declare_Variable Access,By_Allocation
012e 003a | : | Store_Top Access,At_Offset_2
012f 00d9 | | Load_Top At_Offset_1
0130 e5fa | | Load 0x2,-0x6
0131 e5fd | | Load 0x2,-0x3
0132 e5fc | | Load 0x2,-0x4
0133 e5fe | | Load 0x2,-0x2
0134 e403 | | Load 0x2,0x3
0135 e004 | | Load 0x0,0x4
0136 180d | | Execute Package,Field_Execute,Field_Number 0xd
0137 c5fa | | Store 0x2,-0x6
0138 003a | : | Store_Top Access,At_Offset_2
0139 e5fa | | Load 0x2,-0x6
013a 6801 |h | Jump_Zero 0x13c
013b 4505 |E | Exit_Subprogram 0x5
013c 00cf | | Action Mark_Auxiliary
013d 481e |H | Short_Literal 0x1e
013e 4801 |H | Short_Literal 0x1
013f 0007 | | Action Break_Optional
0140 00d8 | | Load_Top At_Offset_0
0141 e402 | | Load 0x2,0x2
0142 0227 | ' | Execute Access,All_Reference
0143 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0144 01d7 | | Execute Vector,Field_Read
0145 00d9 | | Load_Top At_Offset_1
0146 e5fb | | Load 0x2,-0x5
0147 0227 | ' | Execute Access,All_Reference
0148 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0149 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014a 01d6 | | Execute Vector,Field_Write
014b 00c8 | | Action Pop_Auxiliary_Range
014c 3ff3 |? | Loop_Increasing 0x140
014d 00ce | | Action Pop_Auxiliary
014e 00d9 | | Load_Top At_Offset_1
014f 0227 | ' | Execute Access,All_Reference
0150 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0151 e5fb | | Load 0x2,-0x5
0152 0227 | ' | Execute Access,All_Reference
0153 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0154 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0155 00d9 | | Load_Top At_Offset_1
0156 0227 | ' | Execute Access,All_Reference
0157 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0158 e5fb | | Load 0x2,-0x5
0159 0227 | ' | Execute Access,All_Reference
015a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
015b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
015c 4800 |H | Short_Literal 0x0
015d e5fb | | Load 0x2,-0x5
015e 0227 | ' | Execute Access,All_Reference
015f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0160 4800 |H | Short_Literal 0x0
0161 e5fb | | Load 0x2,-0x5
0162 0227 | ' | Execute Access,All_Reference
0163 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0164 e5fb | | Load 0x2,-0x5
0165 0227 | ' | Execute Access,All_Reference
0166 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0167 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0168 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0169 e5fb | | Load 0x2,-0x5
016a 0227 | ' | Execute Access,All_Reference
016b 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
016c 4505 |E | Exit_Subprogram 0x5
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00db | | Load_Top At_Offset_3
0174 0227 | ' | Execute Access,All_Reference
0175 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0176 e5fe | | Load 0x2,-0x2
0177 0227 | ' | Execute Access,All_Reference
0178 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0179 027c | | | Execute Discrete,Less
017a 681b |h | Jump_Zero 0x196
017b e5fc | | Load 0x2,-0x4
017c e5fd | | Load 0x2,-0x3
017d e5ff | | Load 0x2,-0x1
017e e5fe | | Load 0x2,-0x2
017f 0227 | ' | Execute Access,All_Reference
0180 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0181 e5fe | | Load 0x2,-0x2
0182 0227 | ' | Execute Access,All_Reference
0183 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0184 e5fe | | Load 0x2,-0x2
0185 0227 | ' | Execute Access,All_Reference
0186 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0187 e5fe | | Load 0x2,-0x2
0188 0227 | ' | Execute Access,All_Reference
0189 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
018a e005 | | Load 0x0,0x5
018b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018c 00d1 | | Pop_Control Pop_Count_1
018d c5fc | | Store 0x2,-0x4
018e 00db | | Load_Top At_Offset_3
018f 0227 | ' | Execute Access,All_Reference
0190 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0191 0a01 | | Execute_Immediate Plus,0x1
0192 e5fe | | Load 0x2,-0x2
0193 0227 | ' | Execute Access,All_Reference
0194 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0195 4502 |E | Exit_Subprogram 0x2
0196 4809 |H | Short_Literal 0x9
0197 a5fc | | Store_Unchecked 0x2,-0x4
0198 4502 |E | Exit_Subprogram 0x2
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01ab | | .CONST 0x01ab ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e210 | | Load 0x1,0x10
01a4 0007 | | Action Break_Optional
01a5 4850 |HP | Short_Literal 0x50
01a6 e003 | | Load 0x0,0x3
01a7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a8 1c08 | | Execute_Immediate Run_Utility,0x8
01a9 00d8 | | Load_Top At_Offset_0
01aa 1c00 | | Execute_Immediate Run_Utility,0x0
01ab BODY_01a0:
01ab 00d9 | | Load_Top At_Offset_1
01ac 4800 |H | Short_Literal 0x0
01ad e5fd | | Load 0x2,-0x3
01ae e5fe | | Load 0x2,-0x2
01af e5ff | | Load 0x2,-0x1
01b0 8221 | ! | Call 0x1,0x21
01b1 005a | Z | Store_Top Discrete,At_Offset_2
01b2 00d9 | | Load_Top At_Offset_1
01b3 4615 |F | Jump_Case 0x15
01b4 7829 |x) | Jump 0x1de ; case 0x0
01b5 7828 |x( | Jump 0x1de ; case 0x1
01b6 7827 |x' | Jump 0x1de ; case 0x2
01b7 7826 |x& | Jump 0x1de ; case 0x3
01b8 7825 |x% | Jump 0x1de ; case 0x4
01b9 7824 |x$ | Jump 0x1de ; case 0x5
01ba 7823 |x# | Jump 0x1de ; case 0x6
01bb 7822 |x" | Jump 0x1de ; case 0x7
01bc 7821 |x! | Jump 0x1de ; case 0x8
01bd 7820 |x | Jump 0x1de ; case 0x9
01be 781f |x | Jump 0x1de ; case 0xa
01bf 781e |x | Jump 0x1de ; case 0xb
01c0 781d |x | Jump 0x1de ; case 0xc
01c1 781c |x | Jump 0x1de ; case 0xd
01c2 781b |x | Jump 0x1de ; case 0xe
01c3 781a |x | Jump 0x1de ; case 0xf
01c4 7819 |x | Jump 0x1de ; case 0x10
01c5 4504 |E | Exit_Subprogram 0x4 ; case 0x11
01c6 780d |x | Jump 0x1d4 ; case 0x12
01c7 7811 |x | Jump 0x1d9 ; case 0x13
01c8 7806 |x | Jump 0x1cf ; case 0x14
01c9 7800 |x | Jump 0x1ca ; case 0x15
01ca 0092 05a2 | | Action Push_String_Extended,0x5a2 ; "Error accessing environment file"
01cc e006 | | Load 0x0,0x6
01cd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ce 4504 |E | Exit_Subprogram 0x4
01cf 0092 05a3 | | Action Push_String_Extended,0x5a3 ; "Environment file already open"
01d1 e006 | | Load 0x0,0x6
01d2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d3 4504 |E | Exit_Subprogram 0x4
01d4 0092 05a4 | | Action Push_String_Extended,0x5a4 ; "Invalid environment file name"
01d6 e006 | | Load 0x0,0x6
01d7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d8 4504 |E | Exit_Subprogram 0x4
01d9 0092 05a5 | | Action Push_String_Extended,0x5a5 ; "Environment file already exists, not overwritten"
01db e006 | | Load 0x0,0x6
01dc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01dd 4504 |E | Exit_Subprogram 0x4
01de 00d8 | | Load_Top At_Offset_0
01df 00da | | Load_Top At_Offset_2
01e0 00d8 | | Load_Top At_Offset_0
01e1 e211 | | Load 0x1,0x11
01e2 0260 | ` | Execute Discrete,In_Type
01e3 7001 |p | Jump_Nonzero 0x1e5
01e4 0801 | | Execute_Immediate Raise,0x1
01e5 e005 | | Load 0x0,0x5
01e6 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01e7 00d1 | | Pop_Control Pop_Count_1
01e8 00d8 | | Load_Top At_Offset_0
01e9 e003 | | Load 0x0,0x3
01ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01eb e006 | | Load 0x0,0x6
01ec 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ed 4504 |E | Exit_Subprogram 0x4
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e5fc | | Load 0x2,-0x4
01f4 4801 |H | Short_Literal 0x1
01f5 e5fd | | Load 0x2,-0x3
01f6 e5fe | | Load 0x2,-0x2
01f7 e5ff | | Load 0x2,-0x1
01f8 8221 | ! | Call 0x1,0x21
01f9 c5fc | | Store 0x2,-0x4
01fa 4504 |E | Exit_Subprogram 0x4
01fb 0000 0000 | | .BLANK 0000[0x5]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0219 | | .CONST 0x0219 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0009 | | .CONST 0x0009 ; Number of locals
0203 INIT_0200:
0203 e214 | | Load 0x1,0x14
0204 0007 | | Action Break_Optional
0205 e213 | | Load 0x1,0x13
0206 0337 | 7 | Declare_Variable Array
0207 00e2 | | Load_Encached Integer_Cache
0208 e007 | | Load 0x0,0x7
0209 1b0d | | Execute Package,Field_Read,Field_Number 0xd
020a 02c7 | | Declare_Variable Any
020b 00d8 | | Load_Top At_Offset_0
020c 1c00 | | Execute_Immediate Run_Utility,0x0
020d e211 | | Load 0x1,0x11
020e 0007 | | Action Break_Optional
020f e210 | | Load 0x1,0x10
0210 0007 | | Action Break_Optional
0211 4850 |HP | Short_Literal 0x50
0212 e003 | | Load 0x0,0x3
0213 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0214 1c08 | | Execute_Immediate Run_Utility,0x8
0215 00d8 | | Load_Top At_Offset_0
0216 1c00 | | Execute_Immediate Run_Utility,0x0
0217 029f 0483 | | Declare_Subprogram For_Call,INIT_0480
0219 BODY_0200:
0219 00db | | Load_Top At_Offset_3
021a e402 | | Load 0x2,0x2
021b 4801 |H | Short_Literal 0x1
021c 4800 |H | Short_Literal 0x0
021d 4800 |H | Short_Literal 0x0
021e e5ff | | Load 0x2,-0x1
021f 8215 | | Call 0x1,0x15
0220 c402 | | Store 0x2,0x2
0221 c406 | | Store 0x2,0x6
0222 00db | | Load_Top At_Offset_3
0223 7002 |p | Jump_Nonzero 0x226
0224 8409 | | Call 0x2,0x9
0225 7802 |x | Jump 0x228
0226 00db | | Load_Top At_Offset_3
0227 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
0228 00da | | Load_Top At_Offset_2
0229 0e10 | | Execute_Immediate Not_Equal,0x10
022a 680f |h | Jump_Zero 0x23a
022b 00d9 | | Load_Top At_Offset_1
022c 00db | | Load_Top At_Offset_3
022d 00d8 | | Load_Top At_Offset_0
022e e211 | | Load 0x1,0x11
022f 0260 | ` | Execute Discrete,In_Type
0230 7001 |p | Jump_Nonzero 0x232
0231 0801 | | Execute_Immediate Raise,0x1
0232 e005 | | Load 0x0,0x5
0233 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0234 00d1 | | Pop_Control Pop_Count_1
0235 00d9 | | Load_Top At_Offset_1
0236 e003 | | Load 0x0,0x3
0237 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0238 e006 | | Load 0x0,0x6
0239 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
023a 4502 |E | Exit_Subprogram 0x2
023b 0000 0000 | | .BLANK 0000[0x5]
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 00db | | Load_Top At_Offset_3
0244 00db | | Load_Top At_Offset_3
0245 e005 | | Load 0x0,0x5
0246 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0247 4503 |E | Exit_Subprogram 0x3
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c 0227 | ' | Execute Access,All_Reference
024d 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
024e a5fe | | Store_Unchecked 0x2,-0x2
024f 00da | | Load_Top At_Offset_2
0250 0227 | ' | Execute Access,All_Reference
0251 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0252 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0253 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0254 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0255 a5fd | | Store_Unchecked 0x2,-0x3
0256 00da | | Load_Top At_Offset_2
0257 0227 | ' | Execute Access,All_Reference
0258 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0259 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
025a 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
025b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
025c a5fc | | Store_Unchecked 0x2,-0x4
025d 00da | | Load_Top At_Offset_2
025e 0227 | ' | Execute Access,All_Reference
025f 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0260 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0261 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0262 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0263 a5fb | | Store_Unchecked 0x2,-0x5
0264 00da | | Load_Top At_Offset_2
0265 0227 | ' | Execute Access,All_Reference
0266 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0267 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0268 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0269 e5fa | | Load 0x2,-0x6
026a 017d | } | Execute Record,Structure_Write
026b 4502 |E | Exit_Subprogram 0x2
026c 0000 0000 | | .BLANK 0000[0x4]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0279 | y | .CONST 0x0279 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0002 | | .CONST 0x0002 ; Number of locals
0273 INIT_0270:
0273 481e |H | Short_Literal 0x1e
0274 e003 | | Load 0x0,0x3
0275 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0276 1c08 | | Execute_Immediate Run_Utility,0x8
0277 00d8 | | Load_Top At_Offset_0
0278 1c00 | | Execute_Immediate Run_Utility,0x0
0279 BODY_0270:
0279 00d8 | | Load_Top At_Offset_0
027a e5fd | | Load 0x2,-0x3
027b e003 | | Load 0x0,0x3
027c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
027d 4504 |E | Exit_Subprogram 0x4
027e 0000 0000 | | .XXX[0x2]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 02a0 | | .CONST 0x02a0 ; Address of begin
0281 0399 | | .CONST 0x0399 ; Address of exception handler
0282 000b | | .CONST 0x000b ; Number of locals
0283 INIT_0280:
0283 e008 | | Load 0x0,0x8
0284 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
0285 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0286 02c7 | | Declare_Variable Any
0287 00d8 | | Load_Top At_Offset_0
0288 1c00 | | Execute_Immediate Run_Utility,0x0
0289 e213 | | Load 0x1,0x13
028a 0337 | 7 | Declare_Variable Array
028b 00e2 | | Load_Encached Integer_Cache
028c e007 | | Load 0x0,0x7
028d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028e 02c7 | | Declare_Variable Any
028f 00d8 | | Load_Top At_Offset_0
0290 1c00 | | Execute_Immediate Run_Utility,0x0
0291 e008 | | Load 0x0,0x8
0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0293 e211 | | Load 0x1,0x11
0294 0007 | | Action Break_Optional
0295 e008 | | Load 0x0,0x8
0296 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0297 02c7 | | Declare_Variable Any
0298 00d8 | | Load_Top At_Offset_0
0299 1c00 | | Execute_Immediate Run_Utility,0x0
029a 00e2 | | Load_Encached Integer_Cache
029b e008 | | Load 0x0,0x8
029c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
029d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
029e e214 | | Load 0x1,0x14
029f 0007 | | Action Break_Optional
02a0 BODY_0280:
02a0 e5fe | | Load 0x2,-0x2
02a1 8220 | | Call 0x1,0x20
02a2 700c |p | Jump_Nonzero 0x2af
02a3 4815 |H | Short_Literal 0x15
02a4 a5fd | | Store_Unchecked 0x2,-0x3
02a5 0092 05a6 | | Action Push_String_Extended,0x5a6 ; "Environment file "
02a7 e5fe | | Load 0x2,-0x2
02a8 01cc | | Execute Vector,Catenate
02a9 0092 05a7 | | Action Push_String_Extended,0x5a7 ; " does not exist."
02ab 01cc | | Execute Vector,Catenate
02ac e006 | | Load 0x0,0x6
02ad 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ae 4503 |E | Exit_Subprogram 0x3
02af e008 | | Load 0x0,0x8
02b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b2 e408 | | Load 0x2,0x8
02b3 0120 | | Execute Any,Is_Value
02b4 6803 |h | Jump_Zero 0x2b8
02b5 e008 | | Load 0x0,0x8
02b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02b7 7801 |x | Jump 0x2b9
02b8 e408 | | Load 0x2,0x8
02b9 60fe |` | Indirect_Literal Discrete,0x3b8,{0x00000000, 0x00004000}
02ba e009 | | Load 0x0,0x9
02bb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02bc e00a | | Load 0x0,0xa
02bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02be e008 | | Load 0x0,0x8
02bf 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c0 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02c1 e5fe | | Load 0x2,-0x2
02c2 e008 | | Load 0x0,0x8
02c3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02c4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02c5 c408 | | Store 0x2,0x8
02c6 005a | Z | Store_Top Discrete,At_Offset_2
02c7 00d9 | | Load_Top At_Offset_1
02c8 6807 |h | Jump_Zero 0x2d0
02c9 4815 |H | Short_Literal 0x15
02ca a5fd | | Store_Unchecked 0x2,-0x3
02cb 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Error accessing environment file information"
02cd e006 | | Load 0x0,0x6
02ce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02cf 4503 |E | Exit_Subprogram 0x3
02d0 e008 | | Load 0x0,0x8
02d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d2 e402 | | Load 0x2,0x2
02d3 0120 | | Execute Any,Is_Value
02d4 6804 |h | Jump_Zero 0x2d9
02d5 e008 | | Load 0x0,0x8
02d6 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
02d7 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02d8 7801 |x | Jump 0x2da
02d9 e402 | | Load 0x2,0x2
02da 60dd |` | Indirect_Literal Discrete,0x3b8,{0x00000000, 0x00004000}
02db e009 | | Load 0x0,0x9
02dc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02dd 4800 |H | Short_Literal 0x0
02de e408 | | Load 0x2,0x8
02df e008 | | Load 0x0,0x8
02e0 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
02e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02e2 c402 | | Store 0x2,0x2
02e3 c406 | | Store 0x2,0x6
02e4 e406 | | Load 0x2,0x6
02e5 6807 |h | Jump_Zero 0x2ed
02e6 4815 |H | Short_Literal 0x15
02e7 a5fd | | Store_Unchecked 0x2,-0x3
02e8 0092 05a8 | | Action Push_String_Extended,0x5a8 ; "Error accessing environment file information"
02ea e006 | | Load 0x0,0x6
02eb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ec 4503 |E | Exit_Subprogram 0x3
02ed e402 | | Load 0x2,0x2
02ee e008 | | Load 0x0,0x8
02ef 1b3f | ? | Execute Package,Field_Read,Field_Number 0x3f
02f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f1 00d8 | | Load_Top At_Offset_0
02f2 00e2 | | Load_Encached Integer_Cache
02f3 0260 | ` | Execute Discrete,In_Type
02f4 7001 |p | Jump_Nonzero 0x2f6
02f5 0801 | | Execute_Immediate Raise,0x1
02f6 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
02f7 e405 | | Load 0x2,0x5
02f8 e009 | | Load 0x0,0x9
02f9 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02fa e008 | | Load 0x0,0x8
02fb 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02fc 00ea | | Load_Encached Null_String_Cache
02fd e5fe | | Load 0x2,-0x2
02fe 4800 |H | Short_Literal 0x0
02ff e007 | | Load 0x0,0x7
0300 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0301 c405 | | Store 0x2,0x5
0302 e407 | | Load 0x2,0x7
0303 00d9 | | Load_Top At_Offset_1
0304 4801 |H | Short_Literal 0x1
0305 e409 | | Load 0x2,0x9
0306 4802 |H | Short_Literal 0x2
0307 e5ff | | Load 0x2,-0x1
0308 8215 | | Call 0x1,0x15
0309 003a | : | Store_Top Access,At_Offset_2
030a c407 | | Store 0x2,0x7
030b e407 | | Load 0x2,0x7
030c 7089 |p | Jump_Nonzero 0x396
030d 4811 |H | Short_Literal 0x11
030e a5fd | | Store_Unchecked 0x2,-0x3
030f 00cf | | Action Mark_Auxiliary
0310 787b |x{ | Jump 0x38c
0311 4bff |K | Short_Literal 0x3ff
0312 a409 | | Store_Unchecked 0x2,0x9
0313 00e3 | | Load_Encached Natural_Cache
0314 e403 | | Load 0x2,0x3
0315 00d8 | | Load_Top At_Offset_0
0316 01da | | Execute Vector,Bounds
0317 e001 | | Load 0x0,0x1
0318 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0319 0334 | 4 | Declare_Variable Array,With_Constraint
031a 00d0 | | Action Swap_Control
031b 00d8 | | Load_Top At_Offset_0
031c 01dd | | Execute Vector,First
031d 00da | | Load_Top At_Offset_2
031e 01dd | | Execute Vector,First
031f 0272 | r | Execute Discrete,Minus
0320 00da | | Load_Top At_Offset_2
0321 01d9 | | Execute Vector,Reverse_Bounds
0322 0263 | c | Execute Discrete,Above_Bound
0323 700a |p | Jump_Nonzero 0x32e
0324 00d8 | | Load_Top At_Offset_0
0325 00db | | Load_Top At_Offset_3
0326 0273 | s | Execute Discrete,Plus
0327 e40f | | Load 0x2,0xf
0328 01d7 | | Execute Vector,Field_Read
0329 00d9 | | Load_Top At_Offset_1
032a e40e | | Load 0x2,0xe
032b 01d5 | | Execute Vector,Field_Reference
032c 0118 | | Execute Any,Write_Unchecked
032d 3ff6 |? | Loop_Increasing 0x324
032e 00d2 | | Pop_Control Pop_Count_2
032f e405 | | Load 0x2,0x5
0330 e007 | | Load 0x0,0x7
0331 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0332 00d8 | | Load_Top At_Offset_0
0333 01db | | Execute Vector,Length
0334 e213 | | Load 0x1,0x13
0335 01db | | Execute Vector,Length
0336 027f | | Execute Discrete,Equal
0337 7001 |p | Jump_Nonzero 0x339
0338 08e0 | | Execute_Immediate Raise,0xe0
0339 e213 | | Load 0x1,0x13
033a 0337 | 7 | Declare_Variable Array
033b 00d0 | | Action Swap_Control
033c 00d8 | | Load_Top At_Offset_0
033d 01dd | | Execute Vector,First
033e 00da | | Load_Top At_Offset_2
033f 01dd | | Execute Vector,First
0340 0272 | r | Execute Discrete,Minus
0341 00da | | Load_Top At_Offset_2
0342 01d9 | | Execute Vector,Reverse_Bounds
0343 0263 | c | Execute Discrete,Above_Bound
0344 700a |p | Jump_Nonzero 0x34f
0345 00d8 | | Load_Top At_Offset_0
0346 00db | | Load_Top At_Offset_3
0347 0273 | s | Execute Discrete,Plus
0348 e40f | | Load 0x2,0xf
0349 01d7 | | Execute Vector,Field_Read
034a 00d9 | | Load_Top At_Offset_1
034b e40e | | Load 0x2,0xe
034c 01d5 | | Execute Vector,Field_Reference
034d 0118 | | Execute Any,Write_Unchecked
034e 3ff6 |? | Loop_Increasing 0x345
034f 00d2 | | Pop_Control Pop_Count_2
0350 e403 | | Load 0x2,0x3
0351 01d4 | | Execute Vector,Structure_Write
0352 c409 | | Store 0x2,0x9
0353 00db | | Load_Top At_Offset_3
0354 4bff |K | Short_Literal 0x3ff
0355 027c | | | Execute Discrete,Less
0356 6812 |h | Jump_Zero 0x369
0357 00cf | | Action Mark_Auxiliary
0358 4bff |K | Short_Literal 0x3ff
0359 e409 | | Load 0x2,0x9
035a 0a01 | | Execute_Immediate Plus,0x1
035b 00d8 | | Load_Top At_Offset_0
035c 00e2 | | Load_Encached Integer_Cache
035d 0260 | ` | Execute Discrete,In_Type
035e 7001 |p | Jump_Nonzero 0x360
035f 0801 | | Execute_Immediate Raise,0x1
0360 0263 | c | Execute Discrete,Above_Bound
0361 7006 |p | Jump_Nonzero 0x368
0362 4800 |H | Short_Literal 0x0
0363 00d9 | | Load_Top At_Offset_1
0364 e403 | | Load 0x2,0x3
0365 01d6 | | Execute Vector,Field_Write
0366 00c8 | | Action Pop_Auxiliary_Range
0367 3ffa |? | Loop_Increasing 0x362
0368 00ce | | Action Pop_Auxiliary
0369 e407 | | Load 0x2,0x7
036a e403 | | Load 0x2,0x3
036b 4801 |H | Short_Literal 0x1
036c e40b | | Load 0x2,0xb
036d 0227 | ' | Execute Access,All_Reference
036e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
036f e40b | | Load 0x2,0xb
0370 0227 | ' | Execute Access,All_Reference
0371 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0372 e40b | | Load 0x2,0xb
0373 0227 | ' | Execute Access,All_Reference
0374 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0375 e40b | | Load 0x2,0xb
0376 0227 | ' | Execute Access,All_Reference
0377 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0378 e005 | | Load 0x0,0x5
0379 1815 | | Execute Package,Field_Execute,Field_Number 0x15
037a c407 | | Store 0x2,0x7
037b 00d9 | | Load_Top At_Offset_1
037c 0227 | ' | Execute Access,All_Reference
037d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
037e 0a01 | | Execute_Immediate Plus,0x1
037f 00da | | Load_Top At_Offset_2
0380 0227 | ' | Execute Access,All_Reference
0381 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0382 e407 | | Load 0x2,0x7
0383 6807 |h | Jump_Zero 0x38b
0384 e407 | | Load 0x2,0x7
0385 a5fd | | Store_Unchecked 0x2,-0x3
0386 e405 | | Load 0x2,0x5
0387 e007 | | Load 0x0,0x7
0388 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0389 c405 | | Store 0x2,0x5
038a 7805 |x | Jump 0x390
038b 00c9 | | Action Pop_Auxiliary_Loop
038c e405 | | Load 0x2,0x5
038d e007 | | Load 0x0,0x7
038e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
038f 6f81 |o | Jump_Zero 0x311
0390 00ce | | Action Pop_Auxiliary
0391 e405 | | Load 0x2,0x5
0392 e007 | | Load 0x0,0x7
0393 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0394 c405 | | Store 0x2,0x5
0395 4503 |E | Exit_Subprogram 0x3
0396 e407 | | Load 0x2,0x7
0397 a5fd | | Store_Unchecked 0x2,-0x3
0398 4503 |E | Exit_Subprogram 0x3
0399 TRAP_0280:
0399 00d8 | | Load_Top At_Offset_0
039a 0107 | | Execute Exception,Get_Name
039b 4900 |I | Short_Literal 0x100
039c 490f |I | Short_Literal 0x10f
039d 0262 | b | Execute Discrete,In_Range
039e 6803 |h | Jump_Zero 0x3a2
039f 4814 |H | Short_Literal 0x14
03a0 a5fd | | Store_Unchecked 0x2,-0x3
03a1 4503 |E | Exit_Subprogram 0x3
03a2 00d8 | | Load_Top At_Offset_0
03a3 0107 | | Execute Exception,Get_Name
03a4 4920 |I | Short_Literal 0x120
03a5 492f |I/ | Short_Literal 0x12f
03a6 0262 | b | Execute Discrete,In_Range
03a7 6803 |h | Jump_Zero 0x3ab
03a8 4812 |H | Short_Literal 0x12
03a9 a5fd | | Store_Unchecked 0x2,-0x3
03aa 4503 |E | Exit_Subprogram 0x3
03ab 00d8 | | Load_Top At_Offset_0
03ac 0107 | | Execute Exception,Get_Name
03ad 4930 |I0 | Short_Literal 0x130
03ae 493f |I? | Short_Literal 0x13f
03af 0262 | b | Execute Discrete,In_Range
03b0 6803 |h | Jump_Zero 0x3b4
03b1 4815 |H | Short_Literal 0x15
03b2 a5fd | | Store_Unchecked 0x2,-0x3
03b3 4503 |E | Exit_Subprogram 0x3
03b4 0100 | | Execute Exception,Raise
03b5 0000 0000 | | .XXX[0x3]
03b7 0000 | |
03b8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03bc 0000 0000 | | .BLANK 0000[0x4]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03d0 | | .CONST 0x03d0 ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0002 | | .CONST 0x0002 ; Number of locals
03c3 INIT_03c0:
03c3 00db | | Load_Top At_Offset_3
03c4 0227 | ' | Execute Access,All_Reference
03c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
03c6 0aff | | Execute_Immediate Plus,-0x1
03c7 00d8 | | Load_Top At_Offset_0
03c8 e002 | | Load 0x0,0x2
03c9 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03ca 0260 | ` | Execute Discrete,In_Type
03cb 7001 |p | Jump_Nonzero 0x3cd
03cc 0801 | | Execute_Immediate Raise,0x1
03cd e002 | | Load 0x0,0x2
03ce 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
03cf 03f1 | | Declare_Variable Discrete,With_Value
03d0 BODY_03c0:
03d0 e5fb | | Load 0x2,-0x5
03d1 e5fd | | Load 0x2,-0x3
03d2 e5ff | | Load 0x2,-0x1
03d3 e5fe | | Load 0x2,-0x2
03d4 0227 | ' | Execute Access,All_Reference
03d5 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
03d6 e5fe | | Load 0x2,-0x2
03d7 0227 | ' | Execute Access,All_Reference
03d8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d9 e402 | | Load 0x2,0x2
03da e5fe | | Load 0x2,-0x2
03db 0227 | ' | Execute Access,All_Reference
03dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
03dd e005 | | Load 0x0,0x5
03de 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03df 00d1 | | Pop_Control Pop_Count_1
03e0 c5fb | | Store 0x2,-0x5
03e1 4bff |K | Short_Literal 0x3ff
03e2 a5fc | | Store_Unchecked 0x2,-0x4
03e3 00cf | | Action Mark_Auxiliary
03e4 4800 |H | Short_Literal 0x0
03e5 4bff |K | Short_Literal 0x3ff
03e6 0007 | | Action Break_Optional
03e7 00d8 | | Load_Top At_Offset_0
03e8 e5fd | | Load 0x2,-0x3
03e9 01d7 | | Execute Vector,Field_Read
03ea 6804 |h | Jump_Zero 0x3ef
03eb 00d8 | | Load_Top At_Offset_0
03ec a5fc | | Store_Unchecked 0x2,-0x4
03ed 00d2 | | Pop_Control Pop_Count_2
03ee 4502 |E | Exit_Subprogram 0x2
03ef 00c8 | | Action Pop_Auxiliary_Range
03f0 37f6 |7 | Loop_Decreasing 0x3e7
03f1 4502 |E | Exit_Subprogram 0x2
03f2 0000 0000 | | .BLANK 0000[0x6]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0400 | | .CONST 0x0400 ; Address of begin
03f9 0411 | | .CONST 0x0411 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e007 | | Load 0x0,0x7
03fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03fd 02c7 | | Declare_Variable Any
03fe 00d8 | | Load_Top At_Offset_0
03ff 1c00 | | Execute_Immediate Run_Utility,0x0
0400 BODY_03f8:
0400 00d8 | | Load_Top At_Offset_0
0401 e009 | | Load 0x0,0x9
0402 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0403 e008 | | Load 0x0,0x8
0404 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0405 00ea | | Load_Encached Null_String_Cache
0406 e5ff | | Load 0x2,-0x1
0407 4801 |H | Short_Literal 0x1
0408 e007 | | Load 0x0,0x7
0409 1814 | | Execute Package,Field_Execute,Field_Number 0x14
040a c402 | | Store 0x2,0x2
040b 00d8 | | Load_Top At_Offset_0
040c e007 | | Load 0x0,0x7
040d 1819 | | Execute Package,Field_Execute,Field_Number 0x19
040e c402 | | Store 0x2,0x2
040f 4800 |H | Short_Literal 0x0
0410 4401 |D | Exit_Subprogram With_Result,0x1
0411 TRAP_03f8:
0411 00d8 | | Load_Top At_Offset_0
0412 0107 | | Execute Exception,Get_Name
0413 4900 |I | Short_Literal 0x100
0414 490f |I | Short_Literal 0x10f
0415 0262 | b | Execute Discrete,In_Range
0416 6802 |h | Jump_Zero 0x419
0417 4801 |H | Short_Literal 0x1
0418 4401 |D | Exit_Subprogram With_Result,0x1
0419 00d8 | | Load_Top At_Offset_0
041a 0107 | | Execute Exception,Get_Name
041b 4920 |I | Short_Literal 0x120
041c 492f |I/ | Short_Literal 0x12f
041d 0262 | b | Execute Discrete,In_Range
041e 6802 |h | Jump_Zero 0x421
041f 4800 |H | Short_Literal 0x0
0420 4401 |D | Exit_Subprogram With_Result,0x1
0421 00d8 | | Load_Top At_Offset_0
0422 0107 | | Execute Exception,Get_Name
0423 4930 |I0 | Short_Literal 0x130
0424 493f |I? | Short_Literal 0x13f
0425 0262 | b | Execute Discrete,In_Range
0426 6802 |h | Jump_Zero 0x429
0427 4801 |H | Short_Literal 0x1
0428 4401 |D | Exit_Subprogram With_Result,0x1
0429 0100 | | Execute Exception,Raise
042a 0000 0000 | | .BLANK 0000[0x6]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0440 | @ | .CONST 0x0440 ; Address of begin
0431 0450 | P | .CONST 0x0450 ; Address of exception handler
0432 0007 | | .CONST 0x0007 ; Number of locals
0433 INIT_0430:
0433 e214 | | Load 0x1,0x14
0434 0007 | | Action Break_Optional
0435 e213 | | Load 0x1,0x13
0436 0337 | 7 | Declare_Variable Array
0437 00e2 | | Load_Encached Integer_Cache
0438 e007 | | Load 0x0,0x7
0439 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043a 02c7 | | Declare_Variable Any
043b 00d8 | | Load_Top At_Offset_0
043c 1c00 | | Execute_Immediate Run_Utility,0x0
043d e211 | | Load 0x1,0x11
043e 029f 04fb | | Declare_Subprogram For_Call,INIT_04f8
0440 BODY_0430:
0440 00d9 | | Load_Top At_Offset_1
0441 e402 | | Load 0x2,0x2
0442 4801 |H | Short_Literal 0x1
0443 4800 |H | Short_Literal 0x0
0444 4800 |H | Short_Literal 0x0
0445 e5ff | | Load 0x2,-0x1
0446 8215 | | Call 0x1,0x15
0447 c402 | | Store 0x2,0x2
0448 005a | Z | Store_Top Discrete,At_Offset_2
0449 00d9 | | Load_Top At_Offset_1
044a 7002 |p | Jump_Nonzero 0x44d
044b 8407 | | Call 0x2,0x7
044c 4505 |E | Exit_Subprogram 0x5
044d 00d9 | | Load_Top At_Offset_1
044e a5fb | | Store_Unchecked 0x2,-0x5
044f 4505 |E | Exit_Subprogram 0x5
0450 TRAP_0430:
0450 00d8 | | Load_Top At_Offset_0
0451 0107 | | Execute Exception,Get_Name
0452 4900 |I | Short_Literal 0x100
0453 490f |I | Short_Literal 0x10f
0454 0262 | b | Execute Discrete,In_Range
0455 6803 |h | Jump_Zero 0x459
0456 4814 |H | Short_Literal 0x14
0457 a5fb | | Store_Unchecked 0x2,-0x5
0458 4505 |E | Exit_Subprogram 0x5
0459 00d8 | | Load_Top At_Offset_0
045a 0107 | | Execute Exception,Get_Name
045b 4920 |I | Short_Literal 0x120
045c 492f |I/ | Short_Literal 0x12f
045d 0262 | b | Execute Discrete,In_Range
045e 6803 |h | Jump_Zero 0x462
045f 4812 |H | Short_Literal 0x12
0460 a5fb | | Store_Unchecked 0x2,-0x5
0461 4505 |E | Exit_Subprogram 0x5
0462 00d8 | | Load_Top At_Offset_0
0463 0107 | | Execute Exception,Get_Name
0464 4930 |I0 | Short_Literal 0x130
0465 493f |I? | Short_Literal 0x13f
0466 0262 | b | Execute Discrete,In_Range
0467 6803 |h | Jump_Zero 0x46b
0468 4815 |H | Short_Literal 0x15
0469 a5fb | | Store_Unchecked 0x2,-0x5
046a 4505 |E | Exit_Subprogram 0x5
046b 0100 | | Execute Exception,Raise
046c 0000 0000 | | .BLANK 0000[0x4]
0470 ; --------------------------------------------------------------------------------------
0470 ; SUBPROGRAM
0470 ; --------------------------------------------------------------------------------------
0470 0473 | s | .CONST 0x0473 ; Address of begin
0471 0004 | | .CONST 0x0004 ; Address of exception handler
0472 0001 | | .CONST 0x0001 ; Number of locals
0473 BODY_0470:
0473 INIT_0470:
0473 00da | | Load_Top At_Offset_2
0474 e00b | | Load 0x0,0xb
0475 180d | | Execute Package,Field_Execute,Field_Number 0xd
0476 e006 | | Load 0x0,0x6
0477 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0478 4502 |E | Exit_Subprogram 0x2
0479 0000 0000 | | .BLANK 0000[0x7]
0480 ; --------------------------------------------------------------------------------------
0480 ; SUBPROGRAM
0480 ; --------------------------------------------------------------------------------------
0480 0483 | | .CONST 0x0483 ; Address of begin
0481 0004 | | .CONST 0x0004 ; Address of exception handler
0482 0001 | | .CONST 0x0001 ; Number of locals
0483 BODY_0480:
0483 INIT_0480:
0483 4810 |H | Short_Literal 0x10
0484 a407 | | Store_Unchecked 0x2,0x7
0485 00cf | | Action Mark_Auxiliary
0486 e402 | | Load 0x2,0x2
0487 0227 | ' | Execute Access,All_Reference
0488 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0489 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
048a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
048b 0aff | | Execute_Immediate Plus,-0x1
048c 4801 |H | Short_Literal 0x1
048d 0263 | c | Execute Discrete,Above_Bound
048e 702d |p- | Jump_Nonzero 0x4bc
048f e406 | | Load 0x2,0x6
0490 e403 | | Load 0x2,0x3
0491 e402 | | Load 0x2,0x2
0492 4801 |H | Short_Literal 0x1
0493 8216 | | Call 0x1,0x16
0494 c402 | | Store 0x2,0x2
0495 00d1 | | Pop_Control Pop_Count_1
0496 c406 | | Store 0x2,0x6
0497 e406 | | Load 0x2,0x6
0498 701d |p | Jump_Nonzero 0x4b6
0499 e403 | | Load 0x2,0x3
049a 00d8 | | Load_Top At_Offset_0
049b 01da | | Execute Vector,Bounds
049c e001 | | Load 0x0,0x1
049d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
049e 0334 | 4 | Declare_Variable Array,With_Constraint
049f 00d0 | | Action Swap_Control
04a0 00d8 | | Load_Top At_Offset_0
04a1 01dd | | Execute Vector,First
04a2 00da | | Load_Top At_Offset_2
04a3 01dd | | Execute Vector,First
04a4 0272 | r | Execute Discrete,Minus
04a5 00da | | Load_Top At_Offset_2
04a6 01d9 | | Execute Vector,Reverse_Bounds
04a7 0263 | c | Execute Discrete,Above_Bound
04a8 700a |p | Jump_Nonzero 0x4b3
04a9 00d8 | | Load_Top At_Offset_0
04aa 00db | | Load_Top At_Offset_3
04ab 0273 | s | Execute Discrete,Plus
04ac e606 | | Load 0x3,0x6
04ad 01d7 | | Execute Vector,Field_Read
04ae 00d9 | | Load_Top At_Offset_1
04af e605 | | Load 0x3,0x5
04b0 01d5 | | Execute Vector,Field_Reference
04b1 0118 | | Execute Any,Write_Unchecked
04b2 3ff6 |? | Loop_Increasing 0x4a9
04b3 00d2 | | Pop_Control Pop_Count_2
04b4 8222 | " | Call 0x1,0x22
04b5 7804 |x | Jump 0x4ba
04b6 e406 | | Load 0x2,0x6
04b7 a407 | | Store_Unchecked 0x2,0x7
04b8 00d2 | | Pop_Control Pop_Count_2
04b9 7802 |x | Jump 0x4bc
04ba 00c8 | | Action Pop_Auxiliary_Range
04bb 3fd3 |? | Loop_Increasing 0x48f
04bc 00ce | | Action Pop_Auxiliary
04bd e407 | | Load 0x2,0x7
04be 0f10 | | Execute_Immediate Equal,0x10
04bf 6836 |h6 | Jump_Zero 0x4f6
04c0 e406 | | Load 0x2,0x6
04c1 e403 | | Load 0x2,0x3
04c2 e402 | | Load 0x2,0x2
04c3 4801 |H | Short_Literal 0x1
04c4 8216 | | Call 0x1,0x16
04c5 c402 | | Store 0x2,0x2
04c6 00d1 | | Pop_Control Pop_Count_1
04c7 c406 | | Store 0x2,0x6
04c8 00cf | | Action Mark_Auxiliary
04c9 4800 |H | Short_Literal 0x0
04ca 4bff |K | Short_Literal 0x3ff
04cb 0007 | | Action Break_Optional
04cc 00d8 | | Load_Top At_Offset_0
04cd e403 | | Load 0x2,0x3
04ce 01d7 | | Execute Vector,Field_Read
04cf 6804 |h | Jump_Zero 0x4d4
04d0 00d8 | | Load_Top At_Offset_0
04d1 a404 | | Store_Unchecked 0x2,0x4
04d2 00d2 | | Pop_Control Pop_Count_2
04d3 7802 |x | Jump 0x4d6
04d4 00c8 | | Action Pop_Auxiliary_Range
04d5 37f6 |7 | Loop_Decreasing 0x4cc
04d6 00ce | | Action Pop_Auxiliary
04d7 4800 |H | Short_Literal 0x0
04d8 e404 | | Load 0x2,0x4
04d9 e403 | | Load 0x2,0x3
04da 01cf | | Execute Vector,Slice_Read
04db 00d8 | | Load_Top At_Offset_0
04dc 01da | | Execute Vector,Bounds
04dd e001 | | Load 0x0,0x1
04de 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04df 0334 | 4 | Declare_Variable Array,With_Constraint
04e0 00d0 | | Action Swap_Control
04e1 00d8 | | Load_Top At_Offset_0
04e2 01dd | | Execute Vector,First
04e3 00da | | Load_Top At_Offset_2
04e4 01dd | | Execute Vector,First
04e5 0272 | r | Execute Discrete,Minus
04e6 00da | | Load_Top At_Offset_2
04e7 01d9 | | Execute Vector,Reverse_Bounds
04e8 0263 | c | Execute Discrete,Above_Bound
04e9 700a |p | Jump_Nonzero 0x4f4
04ea 00d8 | | Load_Top At_Offset_0
04eb 00db | | Load_Top At_Offset_3
04ec 0273 | s | Execute Discrete,Plus
04ed e603 | | Load 0x3,0x3
04ee 01d7 | | Execute Vector,Field_Read
04ef 00d9 | | Load_Top At_Offset_1
04f0 e602 | | Load 0x3,0x2
04f1 01d5 | | Execute Vector,Field_Reference
04f2 0118 | | Execute Any,Write_Unchecked
04f3 3ff6 |? | Loop_Increasing 0x4ea
04f4 00d2 | | Pop_Control Pop_Count_2
04f5 8222 | " | Call 0x1,0x22
04f6 4501 |E | Exit_Subprogram 0x1
04f7 0000 | | .XXX[0x1]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; SUBPROGRAM
04f8 ; --------------------------------------------------------------------------------------
04f8 04fb | | .CONST 0x04fb ; Address of begin
04f9 0004 | | .CONST 0x0004 ; Address of exception handler
04fa 0001 | | .CONST 0x0001 ; Number of locals
04fb BODY_04f8:
04fb INIT_04f8:
04fb e5fd | | Load 0x2,-0x3
04fc 7006 |p | Jump_Nonzero 0x503
04fd e5fe | | Load 0x2,-0x2
04fe 8220 | | Call 0x1,0x20
04ff 6803 |h | Jump_Zero 0x503
0500 4813 |H | Short_Literal 0x13
0501 a5fb | | Store_Unchecked 0x2,-0x5
0502 4501 |E | Exit_Subprogram 0x1
0503 e405 | | Load 0x2,0x5
0504 e009 | | Load 0x0,0x9
0505 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0506 e008 | | Load 0x0,0x8
0507 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0508 e008 | | Load 0x0,0x8
0509 181e | | Execute Package,Field_Execute,Field_Number 0x1e
050a 00ea | | Load_Encached Null_String_Cache
050b e5fe | | Load 0x2,-0x2
050c 4801 |H | Short_Literal 0x1
050d e007 | | Load 0x0,0x7
050e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
050f c405 | | Store 0x2,0x5
0510 4811 |H | Short_Literal 0x11
0511 a5fb | | Store_Unchecked 0x2,-0x5
0512 00cf | | Action Mark_Auxiliary
0513 e402 | | Load 0x2,0x2
0514 0227 | ' | Execute Access,All_Reference
0515 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0516 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0517 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0518 0aff | | Execute_Immediate Plus,-0x1
0519 4801 |H | Short_Literal 0x1
051a 0263 | c | Execute Discrete,Above_Bound
051b 702f |p/ | Jump_Nonzero 0x54b
051c e406 | | Load 0x2,0x6
051d e403 | | Load 0x2,0x3
051e e402 | | Load 0x2,0x2
051f 4801 |H | Short_Literal 0x1
0520 8216 | | Call 0x1,0x16
0521 c402 | | Store 0x2,0x2
0522 00d1 | | Pop_Control Pop_Count_1
0523 c406 | | Store 0x2,0x6
0524 e406 | | Load 0x2,0x6
0525 701f |p | Jump_Nonzero 0x545
0526 e403 | | Load 0x2,0x3
0527 00d8 | | Load_Top At_Offset_0
0528 01da | | Execute Vector,Bounds
0529 e001 | | Load 0x0,0x1
052a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
052b 0334 | 4 | Declare_Variable Array,With_Constraint
052c 00d0 | | Action Swap_Control
052d 00d8 | | Load_Top At_Offset_0
052e 01dd | | Execute Vector,First
052f 00da | | Load_Top At_Offset_2
0530 01dd | | Execute Vector,First
0531 0272 | r | Execute Discrete,Minus
0532 00da | | Load_Top At_Offset_2
0533 01d9 | | Execute Vector,Reverse_Bounds
0534 0263 | c | Execute Discrete,Above_Bound
0535 700a |p | Jump_Nonzero 0x540
0536 00d8 | | Load_Top At_Offset_0
0537 00db | | Load_Top At_Offset_3
0538 0273 | s | Execute Discrete,Plus
0539 e606 | | Load 0x3,0x6
053a 01d7 | | Execute Vector,Field_Read
053b 00d9 | | Load_Top At_Offset_1
053c e605 | | Load 0x3,0x5
053d 01d5 | | Execute Vector,Field_Reference
053e 0118 | | Execute Any,Write_Unchecked
053f 3ff6 |? | Loop_Increasing 0x536
0540 00d2 | | Pop_Control Pop_Count_2
0541 e405 | | Load 0x2,0x5
0542 e007 | | Load 0x0,0x7
0543 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0544 7804 |x | Jump 0x549
0545 e406 | | Load 0x2,0x6
0546 a5fb | | Store_Unchecked 0x2,-0x5
0547 00d2 | | Pop_Control Pop_Count_2
0548 7802 |x | Jump 0x54b
0549 00c8 | | Action Pop_Auxiliary_Range
054a 3fd1 |? | Loop_Increasing 0x51c
054b 00ce | | Action Pop_Auxiliary
054c e406 | | Load 0x2,0x6
054d 7030 |p0 | Jump_Nonzero 0x57e
054e e406 | | Load 0x2,0x6
054f e404 | | Load 0x2,0x4
0550 e403 | | Load 0x2,0x3
0551 e402 | | Load 0x2,0x2
0552 4801 |H | Short_Literal 0x1
0553 821e | | Call 0x1,0x1e
0554 c402 | | Store 0x2,0x2
0555 00d1 | | Pop_Control Pop_Count_1
0556 c404 | | Store 0x2,0x4
0557 c406 | | Store 0x2,0x6
0558 e406 | | Load 0x2,0x6
0559 7022 |p" | Jump_Nonzero 0x57c
055a 4800 |H | Short_Literal 0x0
055b e404 | | Load 0x2,0x4
055c e403 | | Load 0x2,0x3
055d 01cf | | Execute Vector,Slice_Read
055e 00d8 | | Load_Top At_Offset_0
055f 01da | | Execute Vector,Bounds
0560 e001 | | Load 0x0,0x1
0561 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0562 0334 | 4 | Declare_Variable Array,With_Constraint
0563 00d0 | | Action Swap_Control
0564 00d8 | | Load_Top At_Offset_0
0565 01dd | | Execute Vector,First
0566 00da | | Load_Top At_Offset_2
0567 01dd | | Execute Vector,First
0568 0272 | r | Execute Discrete,Minus
0569 00da | | Load_Top At_Offset_2
056a 01d9 | | Execute Vector,Reverse_Bounds
056b 0263 | c | Execute Discrete,Above_Bound
056c 700a |p | Jump_Nonzero 0x577
056d 00d8 | | Load_Top At_Offset_0
056e 00db | | Load_Top At_Offset_3
056f 0273 | s | Execute Discrete,Plus
0570 e603 | | Load 0x3,0x3
0571 01d7 | | Execute Vector,Field_Read
0572 00d9 | | Load_Top At_Offset_1
0573 e602 | | Load 0x3,0x2
0574 01d5 | | Execute Vector,Field_Reference
0575 0118 | | Execute Any,Write_Unchecked
0576 3ff6 |? | Loop_Increasing 0x56d
0577 00d2 | | Pop_Control Pop_Count_2
0578 e405 | | Load 0x2,0x5
0579 e007 | | Load 0x0,0x7
057a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
057b 7802 |x | Jump 0x57e
057c e406 | | Load 0x2,0x6
057d a5fb | | Store_Unchecked 0x2,-0x5
057e e405 | | Load 0x2,0x5
057f e007 | | Load 0x0,0x7
0580 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0581 c405 | | Store 0x2,0x5
0582 4501 |E | Exit_Subprogram 0x1
0583 ; --------------------------------------------------------------------------------------
0583 ; STRING TABLE
0583 ; --------------------------------------------------------------------------------------
0583 004e | N | .STRTAB 0x004e->0x05aa ; "IGNORE_ERRORS"
0584 0059 | Y | .STRTAB 0x0059->0x05b0 ; "REPORT_ERRORS"
0585 0064 | d | .STRTAB 0x0064->0x05b7 ; "DIE_ON_ERRORS"
0586 006f | o | .STRTAB 0x006f->0x05bd ; "MUST_EXIST"
0587 0077 | w | .STRTAB 0x0077->0x05c2 ; "NEED_NOT_EXIST"
0588 0083 | | .STRTAB 0x0083->0x05c9 ; "MUST_NOT_EXIST"
0589 008f | | .STRTAB 0x008f->0x05d0 ; "CLOSE"
058a 0092 | | .STRTAB 0x0092->0x05d3 ; "RENAME"
058b 0096 | | .STRTAB 0x0096->0x05d6 ; "DELETE"
058c 009a | | .STRTAB 0x009a->0x05d9 ; "FS_OK"
058d 009d | | .STRTAB 0x009d->0x05db ; "BAD_FILENAME"
058e 00a7 | | .STRTAB 0x00a7->0x05e1 ; "FILE_DOES_NOT_EXIST"
058f 00b8 | | .STRTAB 0x00b8->0x05eb ; "FILE_IS_NOT_OPEN"
0590 00c6 | | .STRTAB 0x00c6->0x05f3 ; "DISK_FULL"
0591 00cd | | .STRTAB 0x00cd->0x05f7 ; "DIRECTORY_FULL"
0592 00d9 | | .STRTAB 0x00d9->0x05fe ; "FILE_ALLREADY_EXISTS"
0593 00eb | | .STRTAB 0x00eb->0x0608 ; "CANT_RENAME"
0594 00f4 | | .STRTAB 0x00f4->0x060e ; "CANT_DELETE"
0595 00fd | | .STRTAB 0x00fd->0x0613 ; "PAGE_ERROR"
0596 0105 | | .STRTAB 0x0105->0x0618 ; "SLICE_ERROR"
0597 010e | | .STRTAB 0x010e->0x061e ; "BAD_ADDRESS"
0598 0117 | | .STRTAB 0x0117->0x0623 ; "DISK_ERROR"
0599 011f | | .STRTAB 0x011f->0x0628 ; "NO_LABELS"
059a 0126 | & | .STRTAB 0x0126->0x062d ; "NO_DOS"
059b 012a | * | .STRTAB 0x012a->0x0630 ; "NO_DISK"
059c 012f | / | .STRTAB 0x012f->0x0633 ; "DFS_OK"
059d 0133 | 3 | .STRTAB 0x0133->0x0636 ; "ENV_OK"
059e 0137 | 7 | .STRTAB 0x0137->0x0639 ; "ENV_NAME_ERROR"
059f 0143 | C | .STRTAB 0x0143->0x0640 ; "ENV_ALREADY_EXISTS"
05a0 0153 | S | .STRTAB 0x0153->0x0649 ; "ENV_STATUS_ERROR"
05a1 0161 | a | .STRTAB 0x0161->0x0651 ; "ENV_USE_ERROR"
05a2 016c | l | .STRTAB 0x016c->0x0658 ; "Error accessing environment file"
05a3 018a | | .STRTAB 0x018a->0x0668 ; "Environment file already open"
05a4 01a5 | | .STRTAB 0x01a5->0x0676 ; "Invalid environment file name"
05a5 01c0 | | .STRTAB 0x01c0->0x0685 ; "Environment file already exists, not overwritten"
05a6 01ee | | .STRTAB 0x01ee->0x069d ; "Environment file "
05a7 01fd | | .STRTAB 0x01fd->0x06a5 ; " does not exist."
05a8 020b | | .STRTAB 0x020b->0x06ad ; "Error accessing environment file information"
; "Error accessing environment file information"
05a9 0235 | 5 | .STREND 0x0235->0x06c3
05aa 4947 4e4f |IGNO| .STRTAB_STRINGS
06c4 0000 0000 | | .BLANK 0000[0x4]
06c8 ; --------------------------------------------------------------------------------------
06c8 ; Debug Table
06c8 ; --------------------------------------------------------------------------------------
06c8 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b47,0x0000,0x0001,0x0000
06ce 0000 0000 | | .XXX[0x4]
06d0 1029 2000 | ) |
06d2 0000 0000 | | .BLANK 0000[0x4]
06d6 001f 9c00 | | .XXX[0x1a]
06d8 0000 9555 | U|
06da 3925 514c |9%QL|
06dc b955 4d15 | UM |
06de 497d 4149 |I}AI|
06e0 3d0d 1511 |= |
06e2 5549 154c |UI L|
06e4 b925 3925 | %9%|
06e6 5125 0531 |Q% 1|
06e8 2569 149d |%i |
06ea 093d 1164 | = d|
06ec 0008 c900 | |
06ee 0008 b7e8 | |
06f0 0000 0000 | | .BLANK 0000[0x5]
06f5 0fca 0000 | | .XXX[0x1d]
06f7 0038 aa9c | 8 |
06f9 92a8 a65c | \|
06fb 8c9e a49a | |
06fd 82a8 a88a | |
06ff a4be 8e98 | |
0701 9e84 8298 | |
0703 a64e 849e | N |
0705 88b2 0004 | |
0707 6852 0004 |hR |
0709 4966 0000 |If |
070b 0000 0004 | |
070d 78a1 0001 |x |
070f 800f 0002 | |
0711 35ca |5 |
0712 0000 0000 | | .BLANK 0000[0xa]
071c 0014 5918 | Y | .XXX[0x8]
071e 0014 7118 | q |
0720 0000 0ef0 | |
0722 000a 2688 | & |
0724 0000 0000 | | .BLANK 0000[0x5]
0729 0008 0000 | | .XXX[0x3]
072b 0090 | |
072c 0000 0000 | | .BLANK 0000[0x5]
0731 0240 0000 | @ | .XXX[0xb]
0733 0000 0000 | |
0735 0080 0000 | |
0737 0000 0000 | |
0739 0030 000e | 0 |
073b 05d6 | |
073c 0000 0000 | | .BLANK 0000[0xf]
074b 1474 1800 | t | .XXX[0x4]
074d 109c 7000 | p |
074f 0000 0000 | | .BLANK 0000[0x5]
0754 0400 0004 | | .XXX[0x3]
0756 0200 | |
0757 0000 0000 | | .BLANK 0000[0x10]
0767 001f a400 | | .XXX[0x1c]
0769 0000 6155 | aU|
076b 3925 514c |9%QL|
076d b93d 3931 | =91|
076f 2539 157d |%9 }|
0771 1149 2559 | I%Y|
0773 1548 9d4d | H M|
0775 4115 0c00 |A |
0777 08ed 4000 | @ |
0779 0600 3c00 | < |
077b 0000 0000 | |
077d 0000 0200 | |
077f 0210 1e00 | |
0781 0479 a200 | y |
0783 0000 0000 | | .BLANK 0000[0xa]
078d 2ee9 4000 |. @ | .XXX[0x8]
078f 0000 0000 | |
0791 001d e000 | |
0793 1766 9800 | f |
0795 0000 0000 | | .BLANK 0000[0x5]
079a 1000 0001 | | .XXX[0x3]
079c 2000 | |
079d 0000 0000 | | .BLANK 0000[0x4]
07a1 0004 8000 | | .XXX[0x5]
07a3 0000 0000 | |
07a5 0001 | |
07a6 0000 0000 | | .BLANK 0000[0x4]
07aa 6000 1c33 |` 3| .XXX[0x3]
07ac 5c00 |\ |
07ad 0000 0000 | | .BLANK 0000[0xe]
07bb 002f 0740 | / @| .XXX[0x4]
07bd 0024 1380 | $ |
07bf 0000 0000 | | .BLANK 0000[0x5]
07c4 0008 0000 | | .XXX[0x4]
07c6 0804 2fe0 | / |
07c8 0000 0000 | | .BLANK 0000[0x10]
07d8 3f08 0000 |? | .XXX[0x28]
07da 0102 aa72 | r|
07dc 4aa2 9972 |J r|
07de 8292 7a1a | z |
07e0 2a22 aa92 |*" |
07e2 2afa 4a72 |* Jr|
07e4 a22a 9282 | * |
07e6 922a a22a | * *|
07e8 913a 9a82 | : |
07ea 2a18 0012 |* |
07ec 12b8 0008 | |
07ee 4078 0011 |@x |
07f0 aa48 0012 | H |
07f2 32c0 0000 |2 |
07f4 0000 0002 | |
07f6 fc1c 0004 | |
07f8 203c 0000 | < |
07fa 1f6c 0000 | l |
07fc 00d1 5539 | U9|
07fe 2551 4cb9 |%QL |