|
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: 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 INIT_0078,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 4800 |H | Short_Literal 0x0 0011 4802 |H | Short_Literal 0x2 0012 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 4800 |H | Short_Literal 0x0 0016 4802 |H | Short_Literal 0x2 0017 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0019 03fe | | Declare_Type Discrete,Defined,Visible 001a 4800 |H | Short_Literal 0x0 001b 4815 |H | Short_Literal 0x15 001c 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call 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 INIT_0118,For_Outer_Call,Visible,Unelaborated 0032 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0034 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated 0036 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated 0038 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated 003a 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated 003c 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated 003e 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated 0040 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated 0042 029a 03c3 | | Declare_Subprogram INIT_03c0,For_Outer_Call,Visible,Unelaborated 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 INIT_03f8,For_Outer_Call 005e 029d 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call 0060 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0061 00c7 | | Action Elaborate_Subprogram 0062 029d 0473 | s| Declare_Subprogram INIT_0470,For_Outer_Call 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 0x8 007c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 0091 00db | | Load_Top At_Offset_3 0092 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0093 00db | | Load_Top At_Offset_3 0094 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0x8 00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 00b9 00db | | Load_Top At_Offset_3 00ba 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00bb 00db | | Load_Top At_Offset_3 00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0x8 00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 00e1 00db | | Load_Top At_Offset_3 00e2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e3 00db | | Load_Top At_Offset_3 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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 0x8 00f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 0x1 0109 00db | | Load_Top At_Offset_3 010a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010b 00db | | Load_Top At_Offset_3 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 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,New_Top_Offset 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,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2 0196 4809 |H | Short_Literal 0x9 0197 a5fc | | Store_Unchecked 0x2,-0x4 0198 4502 |E | Exit_Suprogram New_Top_Offset 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 0x16 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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 INIT_0480,For_Call 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_Uncheched 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Uncheched 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_Suprogram New_Top_Offset 0x3 0396 e407 | | Load 0x2,0x7 0397 a5fd | | Store_Unchecked 0x2,-0x3 0398 4503 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 0x2 03ef 00c8 | | Action Pop_Auxiliary_Range 03f0 37f6 |7 | Loop_Decreasing 0x3e7 03f1 4502 |E | Exit_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 INIT_04f8,For_Call 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_Suprogram New_Top_Offset 0x5 044d 00d9 | | Load_Top At_Offset_1 044e a5fb | | Store_Unchecked 0x2,-0x5 044f 4505 |E | Exit_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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" 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 |