|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 03f8 | | .CONST 0x03f8 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0092 | | .CONST 0x0092 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 003c | < | .CONST 0x003c ; Number of locals 000b INIT_0008: 000b 00c4 | | Action Make_Default 000c 00c4 | | Action Make_Default 000d 00c4 | | Action Make_Default 000e 00c4 | | Action Make_Default 000f 00c4 | | Action Make_Default 0010 00c4 | | Action Make_Default 0011 00c4 | | Action Make_Default 0012 00c4 | | Action Make_Default 0013 00c4 | | Action Make_Default 0014 00c4 | | Action Make_Default 0015 00c4 | | Action Make_Default 0016 00c4 | | Action Make_Default 0017 00c4 | | Action Make_Default 0018 00c4 | | Action Make_Default 0019 00c4 | | Action Make_Default 001a 00c4 | | Action Make_Default 001b 00c4 | | Action Make_Default 001c 00c4 | | Action Make_Default 001d 00c4 | | Action Make_Default 001e 00c4 | | Action Make_Default 001f 00c4 | | Action Make_Default 0020 00c4 | | Action Make_Default 0021 00c4 | | Action Make_Default 0022 00c4 | | Action Make_Default 0023 00c4 | | Action Make_Default 0024 00c4 | | Action Make_Default 0025 00c4 | | Action Make_Default 0026 00c4 | | Action Make_Default 0027 00c4 | | Action Make_Default 0028 00c4 | | Action Make_Default 0029 00c4 | | Action Make_Default 002a 00c4 | | Action Make_Default 002b 00c4 | | Action Make_Default 002c 00c4 | | Action Make_Default 002d 00c4 | | Action Make_Default 002e 00c4 | | Action Make_Default 002f 00c4 | | Action Make_Default 0030 00c4 | | Action Make_Default 0031 00c4 | | Action Make_Default 0032 00c4 | | Action Make_Default 0033 00c4 | | Action Make_Default 0034 00c4 | | Action Make_Default 0035 00c4 | | Action Make_Default 0036 00c4 | | Action Make_Default 0037 00c4 | | Action Make_Default 0038 00c4 | | Action Make_Default 0039 4800 |H | Short_Literal 0x0 003a 4802 |H | Short_Literal 0x2 003b 029f 009b | | Declare_Subprogram INIT_0098,For_Call 003d 03fe | | Declare_Type Discrete,Defined,Visible 003e c215 | | Store 0x1,0x15 003f 4800 |H | Short_Literal 0x0 0040 4802 |H | Short_Literal 0x2 0041 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 0043 03fe | | Declare_Type Discrete,Defined,Visible 0044 c216 | | Store 0x1,0x16 0045 4800 |H | Short_Literal 0x0 0046 4815 |H | Short_Literal 0x15 0047 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 0049 03fe | | Declare_Type Discrete,Defined,Visible 004a c23a | : | Store 0x1,0x3a 004b 4800 |H | Short_Literal 0x0 004c 480f |H | Short_Literal 0xf 004d 00da | | Load_Top At_Offset_2 004e 03f9 | | Declare_Type Discrete,Constrained,Visible 004f c235 | 5 | Store 0x1,0x35 0050 4811 |H | Short_Literal 0x11 0051 4815 |H | Short_Literal 0x15 0052 00da | | Load_Top At_Offset_2 0053 03f9 | | Declare_Type Discrete,Constrained,Visible 0054 c236 | 6 | Store 0x1,0x36 0055 4800 |H | Short_Literal 0x0 0056 4bff |K | Short_Literal 0x3ff 0057 e001 | | Load 0x0,0x1 0058 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0059 02a0 | | Declare_Subprogram Null_Subprogram 005a 4801 |H | Short_Literal 0x1 005b 035e | ^ | Declare_Type Array,Defined,Visible 005c c22c | , | Store 0x1,0x2c 005d 4818 |H | Short_Literal 0x18 005e 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected 005f c237 | 7 | Store 0x1,0x37 0060 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated 0062 c22e | . | Store 0x1,0x2e 0063 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated 0065 c22f | / | Store 0x1,0x2f 0066 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 0068 c20f | | Store 0x1,0xf 0069 029a 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call,Visible,Unelaborated 006b c238 | 8 | Store 0x1,0x38 006c 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated 006e c233 | 3 | Store 0x1,0x33 006f 4805 |H | Short_Literal 0x5 0070 032a | * | Declare_Type Record,Incomplete 0071 c239 | 9 | Store 0x1,0x39 0072 00d9 | | Load_Top At_Offset_1 0073 02a0 | | Declare_Subprogram Null_Subprogram 0074 e237 | 7 | Load 0x1,0x37 0075 03c7 | | Complete_Type Access,By_Defining 0076 00bf | | Action Accept_Activation 0077 e002 | | Load 0x0,0x2 0078 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0079 e002 | | Load 0x0,0x2 007a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 007b e002 | | Load 0x0,0x2 007c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 007d e002 | | Load 0x0,0x2 007e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 007f e002 | | Load 0x0,0x2 0080 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0081 02a0 | | Declare_Subprogram Null_Subprogram 0082 e239 | 9 | Load 0x1,0x39 0083 0326 | & | Complete_Type Record,By_Defining 0084 1d2e | . | Execute_Immediate Reference_Lex_1,0x2e 0085 00c7 | | Action Elaborate_Subprogram 0086 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 0087 00c7 | | Action Elaborate_Subprogram 0088 029d 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call 008a 029d 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call 008c 1d0f | | Execute_Immediate Reference_Lex_1,0xf 008d 00c7 | | Action Elaborate_Subprogram 008e 1d38 | 8 | Execute_Immediate Reference_Lex_1,0x38 008f 00c7 | | Action Elaborate_Subprogram 0090 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33 0091 00c7 | | Action Elaborate_Subprogram 0092 BODY_0008: 0092 00bc | | Action Signal_Activated 0093 00bb | | Action Signal_Completion 0094 0000 0000 | | .BLANK 0000[0x4] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009b | | .CONST 0x009b ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0001 | | .CONST 0x0001 ; Number of locals 009b BODY_0098: 009b INIT_0098: 009b 4607 |F | Jump_Case 0x8 009c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 009d 7806 |x | Jump 0xa4 ; case 0x1 009e 7809 |x | Jump 0xa8 ; case 0x2 009f 780d |x | Jump 0xad ; case 0x3 00a0 7810 |x | Jump 0xb1 ; case 0x4 00a1 7811 |x | Jump 0xb3 ; case 0x5 00a2 7812 |x | Jump 0xb5 ; case 0x6 00a3 7815 |x | Jump 0xb9 ; case 0x7 00a4 00da | | Load_Top At_Offset_2 00a5 0091 02e5 | | Action Push_String_Extended_Indexed,0x2e5 ; "IGNORE_ERRORS" 00a7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00a8 00db | | Load_Top At_Offset_3 00a9 00db | | Load_Top At_Offset_3 00aa 00e0 | | Load_Encached Standard_Cache 00ab 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00ad 00da | | Load_Top At_Offset_2 00ae 00e0 | | Load_Encached Standard_Cache 00af 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b1 00db | | Load_Top At_Offset_3 00b2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b3 00db | | Load_Top At_Offset_3 00b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b5 e215 | | Load 0x1,0x15 00b6 00dc | | Load_Top At_Offset_4 00b7 0267 | g | Execute Discrete,Predecessor 00b8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b9 e215 | | Load 0x1,0x15 00ba 00dc | | Load_Top At_Offset_4 00bb 0268 | h | Execute Discrete,Successor 00bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 4607 |F | Jump_Case 0x8 00c4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00c5 7806 |x | Jump 0xcc ; case 0x1 00c6 7809 |x | Jump 0xd0 ; case 0x2 00c7 780d |x | Jump 0xd5 ; case 0x3 00c8 7810 |x | Jump 0xd9 ; case 0x4 00c9 7811 |x | Jump 0xdb ; case 0x5 00ca 7812 |x | Jump 0xdd ; case 0x6 00cb 7815 |x | Jump 0xe1 ; case 0x7 00cc 00da | | Load_Top At_Offset_2 00cd 0091 02e8 | | Action Push_String_Extended_Indexed,0x2e8 ; "MUST_EXIST" 00cf 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d0 00db | | Load_Top At_Offset_3 00d1 00db | | Load_Top At_Offset_3 00d2 00e0 | | Load_Encached Standard_Cache 00d3 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00d5 00da | | Load_Top At_Offset_2 00d6 00e0 | | Load_Encached Standard_Cache 00d7 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00d8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00d9 00db | | Load_Top At_Offset_3 00da 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00db 00db | | Load_Top At_Offset_3 00dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00dd e216 | | Load 0x1,0x16 00de 00dc | | Load_Top At_Offset_4 00df 0267 | g | Execute Discrete,Predecessor 00e0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e1 e216 | | Load 0x1,0x16 00e2 00dc | | Load_Top At_Offset_4 00e3 0268 | h | Execute Discrete,Successor 00e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00e5 0000 0000 | | .XXX[0x3] 00e7 0000 | | 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4607 |F | Jump_Case 0x8 00ec 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00ed 7806 |x | Jump 0xf4 ; case 0x1 00ee 7809 |x | Jump 0xf8 ; case 0x2 00ef 780d |x | Jump 0xfd ; case 0x3 00f0 7810 |x | Jump 0x101 ; case 0x4 00f1 7811 |x | Jump 0x103 ; case 0x5 00f2 7812 |x | Jump 0x105 ; case 0x6 00f3 7815 |x | Jump 0x109 ; case 0x7 00f4 00da | | Load_Top At_Offset_2 00f5 0091 02eb | | Action Push_String_Extended_Indexed,0x2eb ; "FS_OK" 00f7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f8 00db | | Load_Top At_Offset_3 00f9 00db | | Load_Top At_Offset_3 00fa 00e0 | | Load_Encached Standard_Cache 00fb 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fd 00da | | Load_Top At_Offset_2 00fe 00e0 | | Load_Encached Standard_Cache 00ff 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0100 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0101 00db | | Load_Top At_Offset_3 0102 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0103 00db | | Load_Top At_Offset_3 0104 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0105 e23a | : | Load 0x1,0x3a 0106 00dc | | Load_Top At_Offset_4 0107 0267 | g | Execute Discrete,Predecessor 0108 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0109 e23a | : | Load 0x1,0x3a 010a 00dc | | Load_Top At_Offset_4 010b 0268 | h | Execute Discrete,Successor 010c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010d 0000 0000 | | .XXX[0x3] 010f 0000 | | 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0119 | | .CONST 0x0119 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0002 | | .CONST 0x0002 ; Number of locals 0113 INIT_0110: 0113 4850 |HP | Short_Literal 0x50 0114 e003 | | Load 0x0,0x3 0115 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0116 1c08 | | Execute_Immediate Run_Utility,0x8 0117 00d8 | | Load_Top At_Offset_0 0118 1c00 | | Execute_Immediate Run_Utility,0x0 0119 BODY_0110: 0119 00d8 | | Load_Top At_Offset_0 011a e5ff | | Load 0x2,-0x1 011b e003 | | Load 0x0,0x3 011c 1810 | | Execute Package,Field_Execute,Field_Number 0x10 011d 00d1 | | Pop_Control Pop_Count_1 011e e237 | 7 | Load 0x1,0x37 011f 03bc | | Declare_Variable Access,By_Allocation 0120 a5fc | | Store_Unchecked 0x2,-0x4 0121 e5fc | | Load 0x2,-0x4 0122 0229 | ) | Execute Access,All_Read 0123 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0124 00d8 | | Load_Top At_Offset_0 0125 e5fb | | Load 0x2,-0x5 0126 4800 |H | Short_Literal 0x0 0127 e5fd | | Load 0x2,-0x3 0128 e5fe | | Load 0x2,-0x2 0129 e402 | | Load 0x2,0x2 012a e004 | | Load 0x0,0x4 012b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 012c c5fb | | Store 0x2,-0x5 012d 00d2 | | Pop_Control Pop_Count_2 012e 4800 |H | Short_Literal 0x0 012f e5fc | | Load 0x2,-0x4 0130 0227 | ' | Execute Access,All_Reference 0131 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0132 4800 |H | Short_Literal 0x0 0133 e5fc | | Load 0x2,-0x4 0134 0227 | ' | Execute Access,All_Reference 0135 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0136 e5fc | | Load 0x2,-0x4 0137 0227 | ' | Execute Access,All_Reference 0138 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0139 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 013a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 013b e5fc | | Load 0x2,-0x4 013c 0227 | ' | Execute Access,All_Reference 013d 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 013e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 013f 0000 | | .XXX[0x1] 0140 ; -------------------------------------------------------------------------------------- 0140 ; SUBPROGRAM 0140 ; -------------------------------------------------------------------------------------- 0140 0143 | C | .CONST 0x0143 ; Address of begin 0141 0004 | | .CONST 0x0004 ; Address of exception handler 0142 0001 | | .CONST 0x0001 ; Number of locals 0143 BODY_0140: 0143 INIT_0140: 0143 00db | | Load_Top At_Offset_3 0144 0227 | ' | Execute Access,All_Reference 0145 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0146 e5fe | | Load 0x2,-0x2 0147 0227 | ' | Execute Access,All_Reference 0148 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0149 027c | | | Execute Discrete,Less 014a 681b |h | Jump_Zero 0x166 014b e5fc | | Load 0x2,-0x4 014c e5fd | | Load 0x2,-0x3 014d e5ff | | Load 0x2,-0x1 014e e5fe | | Load 0x2,-0x2 014f 0227 | ' | Execute Access,All_Reference 0150 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0151 e5fe | | Load 0x2,-0x2 0152 0227 | ' | Execute Access,All_Reference 0153 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0154 e5fe | | Load 0x2,-0x2 0155 0227 | ' | Execute Access,All_Reference 0156 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0157 e5fe | | Load 0x2,-0x2 0158 0227 | ' | Execute Access,All_Reference 0159 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 015a e004 | | Load 0x0,0x4 015b 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 015c 00d1 | | Pop_Control Pop_Count_1 015d c5fc | | Store 0x2,-0x4 015e 00db | | Load_Top At_Offset_3 015f 0227 | ' | Execute Access,All_Reference 0160 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0161 0a01 | | Execute_Immediate Plus,0x1 0162 e5fe | | Load 0x2,-0x2 0163 0227 | ' | Execute Access,All_Reference 0164 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0165 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0166 4809 |H | Short_Literal 0x9 0167 a5fc | | Store_Unchecked 0x2,-0x4 0168 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 017b | { | .CONST 0x017b ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0003 | | .CONST 0x0003 ; Number of locals 0173 INIT_0170: 0173 e23a | : | Load 0x1,0x3a 0174 0007 | | Action Break_Optional 0175 4850 |HP | Short_Literal 0x50 0176 e003 | | Load 0x0,0x3 0177 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0178 1c08 | | Execute_Immediate Run_Utility,0x8 0179 00d8 | | Load_Top At_Offset_0 017a 1c00 | | Execute_Immediate Run_Utility,0x0 017b BODY_0170: 017b 00d9 | | Load_Top At_Offset_1 017c 4800 |H | Short_Literal 0x0 017d e5fd | | Load 0x2,-0x3 017e e5fe | | Load 0x2,-0x2 017f e5ff | | Load 0x2,-0x1 0180 823c | < | Call 0x1,0x3c 0181 005a | Z | Store_Top Discrete,At_Offset_2 0182 00d9 | | Load_Top At_Offset_1 0183 4615 |F | Jump_Case 0x16 0184 7829 |x) | Jump 0x1ae ; case 0x0 0185 7828 |x( | Jump 0x1ae ; case 0x1 0186 7827 |x' | Jump 0x1ae ; case 0x2 0187 7826 |x& | Jump 0x1ae ; case 0x3 0188 7825 |x% | Jump 0x1ae ; case 0x4 0189 7824 |x$ | Jump 0x1ae ; case 0x5 018a 7823 |x# | Jump 0x1ae ; case 0x6 018b 7822 |x" | Jump 0x1ae ; case 0x7 018c 7821 |x! | Jump 0x1ae ; case 0x8 018d 7820 |x | Jump 0x1ae ; case 0x9 018e 781f |x | Jump 0x1ae ; case 0xa 018f 781e |x | Jump 0x1ae ; case 0xb 0190 781d |x | Jump 0x1ae ; case 0xc 0191 781c |x | Jump 0x1ae ; case 0xd 0192 781b |x | Jump 0x1ae ; case 0xe 0193 781a |x | Jump 0x1ae ; case 0xf 0194 7819 |x | Jump 0x1ae ; case 0x10 0195 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; case 0x11 0196 780d |x | Jump 0x1a4 ; case 0x12 0197 7811 |x | Jump 0x1a9 ; case 0x13 0198 7806 |x | Jump 0x19f ; case 0x14 0199 7800 |x | Jump 0x19a ; case 0x15 019a 0092 0301 | | Action Push_String_Extended,0x301 ; "Error accessing environment file" 019c e005 | | Load 0x0,0x5 019d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 019e 4504 |E | Exit_Suprogram New_Top_Offset 0x4 019f 0092 0302 | | Action Push_String_Extended,0x302 ; "Environment file already open" 01a1 e005 | | Load 0x0,0x5 01a2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01a3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01a4 0092 0303 | | Action Push_String_Extended,0x303 ; "Invalid environment file name" 01a6 e005 | | Load 0x0,0x5 01a7 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01a8 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01a9 0092 0304 | | Action Push_String_Extended,0x304 ; "Environment file already exists, not overwritten" 01ab e005 | | Load 0x0,0x5 01ac 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01ad 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01ae 00d8 | | Load_Top At_Offset_0 01af 00da | | Load_Top At_Offset_2 01b0 00d8 | | Load_Top At_Offset_0 01b1 e235 | 5 | Load 0x1,0x35 01b2 0260 | ` | Execute Discrete,In_Type 01b3 7001 |p | Jump_Nonzero 0x1b5 01b4 0801 | | Execute_Immediate Raise,0x1 01b5 e004 | | Load 0x0,0x4 01b6 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01b7 00d1 | | Pop_Control Pop_Count_1 01b8 00d8 | | Load_Top At_Offset_0 01b9 e003 | | Load 0x0,0x3 01ba 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01bb e005 | | Load 0x0,0x5 01bc 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01bd 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01be 0000 0000 | | .XXX[0x2] 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c3 | | .CONST 0x01c3 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0001 | | .CONST 0x0001 ; Number of locals 01c3 BODY_01c0: 01c3 INIT_01c0: 01c3 e5fc | | Load 0x2,-0x4 01c4 4801 |H | Short_Literal 0x1 01c5 e5fd | | Load 0x2,-0x3 01c6 e5fe | | Load 0x2,-0x2 01c7 e5ff | | Load 0x2,-0x1 01c8 823c | < | Call 0x1,0x3c 01c9 c5fc | | Store 0x2,-0x4 01ca 4504 |E | Exit_Suprogram New_Top_Offset 0x4 01cb 0000 0000 | | .BLANK 0000[0x5] 01d0 ; -------------------------------------------------------------------------------------- 01d0 ; SUBPROGRAM 01d0 ; -------------------------------------------------------------------------------------- 01d0 01d3 | | .CONST 0x01d3 ; Address of begin 01d1 0004 | | .CONST 0x0004 ; Address of exception handler 01d2 0001 | | .CONST 0x0001 ; Number of locals 01d3 BODY_01d0: 01d3 INIT_01d0: 01d3 00db | | Load_Top At_Offset_3 01d4 00db | | Load_Top At_Offset_3 01d5 e004 | | Load 0x0,0x4 01d6 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e0 | | .CONST 0x01e0 ; Address of begin 01d9 01f1 | | .CONST 0x01f1 ; Address of exception handler 01da 0002 | | .CONST 0x0002 ; Number of locals 01db INIT_01d8: 01db e006 | | Load 0x0,0x6 01dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01dd 02c7 | | Declare_Variable Any 01de 00d8 | | Load_Top At_Offset_0 01df 1c00 | | Execute_Immediate Run_Utility,0x0 01e0 BODY_01d8: 01e0 00d8 | | Load_Top At_Offset_0 01e1 e007 | | Load 0x0,0x7 01e2 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e3 e008 | | Load 0x0,0x8 01e4 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01e5 00ea | | Load_Encached Null_String_Cache 01e6 e5ff | | Load 0x2,-0x1 01e7 4801 |H | Short_Literal 0x1 01e8 e006 | | Load 0x0,0x6 01e9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ea c402 | | Store 0x2,0x2 01eb 00d8 | | Load_Top At_Offset_0 01ec e006 | | Load 0x0,0x6 01ed 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01ee c402 | | Store 0x2,0x2 01ef 4800 |H | Short_Literal 0x0 01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f1 TRAP_01d8: 01f1 00d8 | | Load_Top At_Offset_0 01f2 0107 | | Execute Exception,Get_Name 01f3 4900 |I | Short_Literal 0x100 01f4 490f |I | Short_Literal 0x10f 01f5 0262 | b | Execute Discrete,In_Range 01f6 6802 |h | Jump_Zero 0x1f9 01f7 4801 |H | Short_Literal 0x1 01f8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01f9 00d8 | | Load_Top At_Offset_0 01fa 0107 | | Execute Exception,Get_Name 01fb 4920 |I | Short_Literal 0x120 01fc 492f |I/ | Short_Literal 0x12f 01fd 0262 | b | Execute Discrete,In_Range 01fe 6802 |h | Jump_Zero 0x201 01ff 4800 |H | Short_Literal 0x0 0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0201 00d8 | | Load_Top At_Offset_0 0202 0107 | | Execute Exception,Get_Name 0203 4930 |I0 | Short_Literal 0x130 0204 493f |I? | Short_Literal 0x13f 0205 0262 | b | Execute Discrete,In_Range 0206 6802 |h | Jump_Zero 0x209 0207 4801 |H | Short_Literal 0x1 0208 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0209 0100 | | Execute Exception,Raise 020a 0000 0000 | | .BLANK 0000[0x6] 0210 ; -------------------------------------------------------------------------------------- 0210 ; SUBPROGRAM 0210 ; -------------------------------------------------------------------------------------- 0210 0220 | | .CONST 0x0220 ; Address of begin 0211 022f | / | .CONST 0x022f ; Address of exception handler 0212 0007 | | .CONST 0x0007 ; Number of locals 0213 INIT_0210: 0213 e237 | 7 | Load 0x1,0x37 0214 0007 | | Action Break_Optional 0215 e22c | , | Load 0x1,0x2c 0216 0337 | 7 | Declare_Variable Array 0217 00e2 | | Load_Encached Integer_Cache 0218 e006 | | Load 0x0,0x6 0219 1b0d | | Execute Package,Field_Read,Field_Number 0xd 021a 02c7 | | Declare_Variable Any 021b 00d8 | | Load_Top At_Offset_0 021c 1c00 | | Execute_Immediate Run_Utility,0x0 021d e235 | 5 | Load 0x1,0x35 021e 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0220 BODY_0210: 0220 00d9 | | Load_Top At_Offset_1 0221 e402 | | Load 0x2,0x2 0222 4801 |H | Short_Literal 0x1 0223 4800 |H | Short_Literal 0x0 0224 e5ff | | Load 0x2,-0x1 0225 822e | . | Call 0x1,0x2e 0226 c402 | | Store 0x2,0x2 0227 005a | Z | Store_Top Discrete,At_Offset_2 0228 00d9 | | Load_Top At_Offset_1 0229 7002 |p | Jump_Nonzero 0x22c 022a 8407 | | Call 0x2,0x7 022b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 022c 00d9 | | Load_Top At_Offset_1 022d a5fb | | Store_Unchecked 0x2,-0x5 022e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 022f TRAP_0210: 022f 00d8 | | Load_Top At_Offset_0 0230 0107 | | Execute Exception,Get_Name 0231 4900 |I | Short_Literal 0x100 0232 490f |I | Short_Literal 0x10f 0233 0262 | b | Execute Discrete,In_Range 0234 6803 |h | Jump_Zero 0x238 0235 4814 |H | Short_Literal 0x14 0236 a5fb | | Store_Unchecked 0x2,-0x5 0237 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0238 00d8 | | Load_Top At_Offset_0 0239 0107 | | Execute Exception,Get_Name 023a 4920 |I | Short_Literal 0x120 023b 492f |I/ | Short_Literal 0x12f 023c 0262 | b | Execute Discrete,In_Range 023d 6803 |h | Jump_Zero 0x241 023e 4812 |H | Short_Literal 0x12 023f a5fb | | Store_Unchecked 0x2,-0x5 0240 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0241 00d8 | | Load_Top At_Offset_0 0242 0107 | | Execute Exception,Get_Name 0243 4930 |I0 | Short_Literal 0x130 0244 493f |I? | Short_Literal 0x13f 0245 0262 | b | Execute Discrete,In_Range 0246 6803 |h | Jump_Zero 0x24a 0247 4815 |H | Short_Literal 0x15 0248 a5fb | | Store_Unchecked 0x2,-0x5 0249 4505 |E | Exit_Suprogram New_Top_Offset 0x5 024a 0100 | | Execute Exception,Raise 024b 0000 0000 | | .BLANK 0000[0x5] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e5fd | | Load 0x2,-0x3 0254 7006 |p | Jump_Nonzero 0x25b 0255 e5fe | | Load 0x2,-0x2 0256 823b | ; | Call 0x1,0x3b 0257 6803 |h | Jump_Zero 0x25b 0258 4813 |H | Short_Literal 0x13 0259 a5fb | | Store_Unchecked 0x2,-0x5 025a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 025b e405 | | Load 0x2,0x5 025c e007 | | Load 0x0,0x7 025d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 025e e008 | | Load 0x0,0x8 025f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0260 e008 | | Load 0x0,0x8 0261 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0262 00ea | | Load_Encached Null_String_Cache 0263 e5fe | | Load 0x2,-0x2 0264 4801 |H | Short_Literal 0x1 0265 e006 | | Load 0x0,0x6 0266 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0267 c405 | | Store 0x2,0x5 0268 4811 |H | Short_Literal 0x11 0269 a5fb | | Store_Unchecked 0x2,-0x5 026a 00cf | | Action Mark_Auxiliary 026b e402 | | Load 0x2,0x2 026c 0227 | ' | Execute Access,All_Reference 026d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 026e 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 026f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0270 0aff | | Execute_Immediate Plus,-0x1 0271 4801 |H | Short_Literal 0x1 0272 0263 | c | Execute Discrete,Above_Bound 0273 702f |p/ | Jump_Nonzero 0x2a3 0274 e406 | | Load 0x2,0x6 0275 e403 | | Load 0x2,0x3 0276 e402 | | Load 0x2,0x2 0277 4801 |H | Short_Literal 0x1 0278 822f | / | Call 0x1,0x2f 0279 c402 | | Store 0x2,0x2 027a 00d1 | | Pop_Control Pop_Count_1 027b c406 | | Store 0x2,0x6 027c e406 | | Load 0x2,0x6 027d 701f |p | Jump_Nonzero 0x29d 027e e403 | | Load 0x2,0x3 027f 00d8 | | Load_Top At_Offset_0 0280 01da | | Execute Vector,Bounds 0281 e001 | | Load 0x0,0x1 0282 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0283 0334 | 4 | Declare_Variable Array,With_Constraint 0284 00d0 | | Action Swap_Control 0285 00d8 | | Load_Top At_Offset_0 0286 01dd | | Execute Vector,First 0287 00da | | Load_Top At_Offset_2 0288 01dd | | Execute Vector,First 0289 0272 | r | Execute Discrete,Minus 028a 00da | | Load_Top At_Offset_2 028b 01d9 | | Execute Vector,Reverse_Bounds 028c 0263 | c | Execute Discrete,Above_Bound 028d 700a |p | Jump_Nonzero 0x298 028e 00d8 | | Load_Top At_Offset_0 028f 00db | | Load_Top At_Offset_3 0290 0273 | s | Execute Discrete,Plus 0291 e606 | | Load 0x3,0x6 0292 01d7 | | Execute Vector,Field_Read 0293 00d9 | | Load_Top At_Offset_1 0294 e605 | | Load 0x3,0x5 0295 01d5 | | Execute Vector,Field_Reference 0296 0118 | | Execute Any,Write_Unchecked 0297 3ff6 |? | Loop_Increasing 0x28e 0298 00d2 | | Pop_Control Pop_Count_2 0299 e405 | | Load 0x2,0x5 029a e006 | | Load 0x0,0x6 029b 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 029c 7804 |x | Jump 0x2a1 029d e406 | | Load 0x2,0x6 029e a5fb | | Store_Unchecked 0x2,-0x5 029f 00d2 | | Pop_Control Pop_Count_2 02a0 7802 |x | Jump 0x2a3 02a1 00c8 | | Action Pop_Auxiliary_Range 02a2 3fd1 |? | Loop_Increasing 0x274 02a3 00ce | | Action Pop_Auxiliary 02a4 e406 | | Load 0x2,0x6 02a5 703a |p: | Jump_Nonzero 0x2e0 02a6 e406 | | Load 0x2,0x6 02a7 e403 | | Load 0x2,0x3 02a8 e402 | | Load 0x2,0x2 02a9 4801 |H | Short_Literal 0x1 02aa 822f | / | Call 0x1,0x2f 02ab c402 | | Store 0x2,0x2 02ac 00d1 | | Pop_Control Pop_Count_1 02ad c406 | | Store 0x2,0x6 02ae 4bff |K | Short_Literal 0x3ff 02af a404 | | Store_Unchecked 0x2,0x4 02b0 00cf | | Action Mark_Auxiliary 02b1 4800 |H | Short_Literal 0x0 02b2 4bff |K | Short_Literal 0x3ff 02b3 0007 | | Action Break_Optional 02b4 00d8 | | Load_Top At_Offset_0 02b5 e403 | | Load 0x2,0x3 02b6 01d7 | | Execute Vector,Field_Read 02b7 6804 |h | Jump_Zero 0x2bc 02b8 00d8 | | Load_Top At_Offset_0 02b9 a404 | | Store_Unchecked 0x2,0x4 02ba 00d2 | | Pop_Control Pop_Count_2 02bb 7802 |x | Jump 0x2be 02bc 00c8 | | Action Pop_Auxiliary_Range 02bd 37f6 |7 | Loop_Decreasing 0x2b4 02be 00ce | | Action Pop_Auxiliary 02bf 4800 |H | Short_Literal 0x0 02c0 e404 | | Load 0x2,0x4 02c1 e403 | | Load 0x2,0x3 02c2 01cf | | Execute Vector,Slice_Read 02c3 00d8 | | Load_Top At_Offset_0 02c4 01da | | Execute Vector,Bounds 02c5 e001 | | Load 0x0,0x1 02c6 1b12 | | Execute Package,Field_Read,Field_Number 0x12 02c7 0334 | 4 | Declare_Variable Array,With_Constraint 02c8 00d0 | | Action Swap_Control 02c9 00d8 | | Load_Top At_Offset_0 02ca 01dd | | Execute Vector,First 02cb 00da | | Load_Top At_Offset_2 02cc 01dd | | Execute Vector,First 02cd 0272 | r | Execute Discrete,Minus 02ce 00da | | Load_Top At_Offset_2 02cf 01d9 | | Execute Vector,Reverse_Bounds 02d0 0263 | c | Execute Discrete,Above_Bound 02d1 700a |p | Jump_Nonzero 0x2dc 02d2 00d8 | | Load_Top At_Offset_0 02d3 00db | | Load_Top At_Offset_3 02d4 0273 | s | Execute Discrete,Plus 02d5 e603 | | Load 0x3,0x3 02d6 01d7 | | Execute Vector,Field_Read 02d7 00d9 | | Load_Top At_Offset_1 02d8 e602 | | Load 0x3,0x2 02d9 01d5 | | Execute Vector,Field_Reference 02da 0118 | | Execute Any,Write_Unchecked 02db 3ff6 |? | Loop_Increasing 0x2d2 02dc 00d2 | | Pop_Control Pop_Count_2 02dd e405 | | Load 0x2,0x5 02de e006 | | Load 0x0,0x6 02df 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 02e0 e405 | | Load 0x2,0x5 02e1 e006 | | Load 0x0,0x6 02e2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02e3 c405 | | Store 0x2,0x5 02e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02e5 ; -------------------------------------------------------------------------------------- 02e5 ; STRING TABLE 02e5 ; -------------------------------------------------------------------------------------- 02e5 0042 | B | .STRTAB 0x0042->0x0306 ; "IGNORE_ERRORS" 02e6 004d | M | .STRTAB 0x004d->0x030c ; "REPORT_ERRORS" 02e7 0058 | X | .STRTAB 0x0058->0x0313 ; "DIE_ON_ERRORS" 02e8 0063 | c | .STRTAB 0x0063->0x0319 ; "MUST_EXIST" 02e9 006b | k | .STRTAB 0x006b->0x031e ; "NEED_NOT_EXIST" 02ea 0077 | w | .STRTAB 0x0077->0x0325 ; "MUST_NOT_EXIST" 02eb 0083 | | .STRTAB 0x0083->0x032c ; "FS_OK" 02ec 0086 | | .STRTAB 0x0086->0x032f ; "BAD_FILENAME" 02ed 0090 | | .STRTAB 0x0090->0x0335 ; "FILE_DOES_NOT_EXIST" 02ee 00a1 | | .STRTAB 0x00a1->0x033e ; "FILE_IS_NOT_OPEN" 02ef 00af | | .STRTAB 0x00af->0x0346 ; "DISK_FULL" 02f0 00b6 | | .STRTAB 0x00b6->0x034b ; "DIRECTORY_FULL" 02f1 00c2 | | .STRTAB 0x00c2->0x0352 ; "FILE_ALLREADY_EXISTS" 02f2 00d4 | | .STRTAB 0x00d4->0x035c ; "CANT_RENAME" 02f3 00dd | | .STRTAB 0x00dd->0x0361 ; "CANT_DELETE" 02f4 00e6 | | .STRTAB 0x00e6->0x0367 ; "PAGE_ERROR" 02f5 00ee | | .STRTAB 0x00ee->0x036c ; "SLICE_ERROR" 02f6 00f7 | | .STRTAB 0x00f7->0x0371 ; "BAD_ADDRESS" 02f7 0100 | | .STRTAB 0x0100->0x0377 ; "DISK_ERROR" 02f8 0108 | | .STRTAB 0x0108->0x037c ; "NO_LABELS" 02f9 010f | | .STRTAB 0x010f->0x0380 ; "NO_DOS" 02fa 0113 | | .STRTAB 0x0113->0x0383 ; "NO_DISK" 02fb 0118 | | .STRTAB 0x0118->0x0387 ; "DFS_OK" 02fc 011c | | .STRTAB 0x011c->0x038a ; "ENV_OK" 02fd 0120 | | .STRTAB 0x0120->0x038d ; "ENV_NAME_ERROR" 02fe 012c | , | .STRTAB 0x012c->0x0394 ; "ENV_ALREADY_EXISTS" 02ff 013c | < | .STRTAB 0x013c->0x039d ; "ENV_STATUS_ERROR" 0300 014a | J | .STRTAB 0x014a->0x03a5 ; "ENV_USE_ERROR" 0301 0155 | U | .STRTAB 0x0155->0x03ab ; "Error accessing environment file" 0302 0173 | s | .STRTAB 0x0173->0x03bb ; "Environment file already open" 0303 018e | | .STRTAB 0x018e->0x03ca ; "Invalid environment file name" 0304 01a9 | | .STRTAB 0x01a9->0x03d8 ; "Environment file already exists, not overwritten" 0305 01d7 | | .STREND 0x01d7->0x03f0 0306 4947 4e4f |IGNO| .STRTAB_STRINGS 03f1 0000 0000 | | .BLANK 0000[0x7] 03f8 ; -------------------------------------------------------------------------------------- 03f8 ; Debug Table 03f8 ; -------------------------------------------------------------------------------------- 03f8 0004 000e | | .DEBUG4 0x0004,0x000e,0x9f76,0x0000,0x0001,0x0000 03fe 0000 0003 | | .XXX[0x2]