|
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]