|
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_0698fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0290 | | .CONST 0x0290 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 007e | ~ | .CONST 0x007e ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 001b | | .CONST 0x001b ; Number of locals 000b INIT_0008: 000b 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 000d 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 000f 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated 0011 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 e001 | | Load 0x0,0x1 0015 1b22 | " | Execute Package,Field_Read,Field_Number 0x22 0016 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0017 e001 | | Load 0x0,0x1 0018 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0019 03f1 | | Declare_Variable Discrete,With_Value 001a 4800 |H | Short_Literal 0x0 001b 4805 |H | Short_Literal 0x5 001c 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call 001e 03fd | | Declare_Type Discrete,Defined 001f 00d8 | | Load_Top At_Offset_0 0020 0266 | f | Execute Discrete,Bounds 0021 e001 | | Load 0x0,0x1 0022 1b17 | | Execute Package,Field_Read,Field_Number 0x17 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4801 |H | Short_Literal 0x1 0025 035d | ] | Declare_Type Array,Defined 0026 00d8 | | Load_Top At_Offset_0 0027 0337 | 7 | Declare_Variable Array 0028 00d8 | | Load_Top At_Offset_0 0029 0335 | 5 | Declare_Variable Array,Duplicate 002a 00cd | | Action Spare6_Action 002b 4800 |H | Short_Literal 0x0 002c 4800 |H | Short_Literal 0x0 002d 00da | | Load_Top At_Offset_2 002e 01d6 | | Execute Vector,Field_Write 002f 4801 |H | Short_Literal 0x1 0030 4801 |H | Short_Literal 0x1 0031 00da | | Load_Top At_Offset_2 0032 01d6 | | Execute Vector,Field_Write 0033 4802 |H | Short_Literal 0x2 0034 4802 |H | Short_Literal 0x2 0035 00da | | Load_Top At_Offset_2 0036 01d6 | | Execute Vector,Field_Write 0037 4803 |H | Short_Literal 0x3 0038 4803 |H | Short_Literal 0x3 0039 00da | | Load_Top At_Offset_2 003a 01d6 | | Execute Vector,Field_Write 003b 4804 |H | Short_Literal 0x4 003c 4804 |H | Short_Literal 0x4 003d 00da | | Load_Top At_Offset_2 003e 01d6 | | Execute Vector,Field_Write 003f 4805 |H | Short_Literal 0x5 0040 4805 |H | Short_Literal 0x5 0041 00da | | Load_Top At_Offset_2 0042 01d6 | | Execute Vector,Field_Write 0043 00d9 | | Load_Top At_Offset_1 0044 01d4 | | Execute Vector,Structure_Write 0045 00da | | Load_Top At_Offset_2 0046 0266 | f | Execute Discrete,Bounds 0047 e001 | | Load 0x0,0x1 0048 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0049 02a0 | | Declare_Subprogram Null_Subprogram 004a 4801 |H | Short_Literal 0x1 004b 035d | ] | Declare_Type Array,Defined 004c 00d8 | | Load_Top At_Offset_0 004d 0337 | 7 | Declare_Variable Array 004e 00d8 | | Load_Top At_Offset_0 004f 0335 | 5 | Declare_Variable Array,Duplicate 0050 00cd | | Action Spare6_Action 0051 4802 |H | Short_Literal 0x2 0052 4800 |H | Short_Literal 0x0 0053 00da | | Load_Top At_Offset_2 0054 01d6 | | Execute Vector,Field_Write 0055 4802 |H | Short_Literal 0x2 0056 4801 |H | Short_Literal 0x1 0057 00da | | Load_Top At_Offset_2 0058 01d6 | | Execute Vector,Field_Write 0059 4802 |H | Short_Literal 0x2 005a 4802 |H | Short_Literal 0x2 005b 00da | | Load_Top At_Offset_2 005c 01d6 | | Execute Vector,Field_Write 005d 4802 |H | Short_Literal 0x2 005e 4803 |H | Short_Literal 0x3 005f 00da | | Load_Top At_Offset_2 0060 01d6 | | Execute Vector,Field_Write 0061 4802 |H | Short_Literal 0x2 0062 4804 |H | Short_Literal 0x4 0063 00da | | Load_Top At_Offset_2 0064 01d6 | | Execute Vector,Field_Write 0065 4802 |H | Short_Literal 0x2 0066 4805 |H | Short_Literal 0x5 0067 00da | | Load_Top At_Offset_2 0068 01d6 | | Execute Vector,Field_Write 0069 00d9 | | Load_Top At_Offset_1 006a 01d4 | | Execute Vector,Structure_Write 006b e001 | | Load 0x0,0x1 006c 1b18 | | Execute Package,Field_Read,Field_Number 0x18 006d 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 006e 029d 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call 0070 029d 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call 0072 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call 0074 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call 0076 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0077 00c7 | | Action Elaborate_Subprogram 0078 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0079 00c7 | | Action Elaborate_Subprogram 007a 1d0f | | Execute_Immediate Reference_Lex_1,0xf 007b 00c7 | | Action Elaborate_Subprogram 007c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 007d 00c7 | | Action Elaborate_Subprogram 007e BODY_0008: 007e 00bc | | Action Signal_Activated 007f 00bb | | Action Signal_Completion 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0088 | | .CONST 0x0088 ; Address of begin 0081 00a2 | | .CONST 0x00a2 ; Address of exception handler 0082 0004 | | .CONST 0x0004 ; Number of locals 0083 INIT_0080: 0083 e002 | | Load 0x0,0x2 0084 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0085 00e1 | | Load_Encached Boolean_Cache 0086 e001 | | Load 0x0,0x1 0087 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0088 BODY_0080: 0088 00e1 | | Load_Encached Boolean_Cache 0089 e002 | | Load 0x0,0x2 008a 1b0e | | Execute Package,Field_Read,Field_Number 0xe 008b e5fb | | Load 0x2,-0x5 008c 4800 |H | Short_Literal 0x0 008d 486f |Ho | Short_Literal 0x6f 008e e5ff | | Load 0x2,-0x1 008f e002 | | Load 0x0,0x2 0090 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0091 c402 | | Store 0x2,0x2 0092 005a | Z | Store_Top Discrete,At_Offset_2 0093 00d9 | | Load_Top At_Offset_1 0094 7002 |p | Jump_Nonzero 0x97 0095 4800 |H | Short_Literal 0x0 0096 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 0097 e5fc | | Load 0x2,-0x4 0098 e5fd | | Load 0x2,-0x3 0099 e5fe | | Load 0x2,-0x2 009a e402 | | Load 0x2,0x2 009b 820e | | Call 0x1,0xe 009c 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1 009d 00da | | Load_Top At_Offset_2 009e e002 | | Load 0x0,0x2 009f 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00a0 00d8 | | Load_Top At_Offset_0 00a1 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00a2 TRAP_0080: 00a2 010e | | Execute Exception,Is_Constraint_Error 00a3 7004 |p | Jump_Nonzero 0xa8 00a4 e003 | | Load 0x0,0x3 00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00a6 010f | | Execute Exception,Equal 00a7 6802 |h | Jump_Zero 0xaa 00a8 4800 |H | Short_Literal 0x0 00a9 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00aa 0100 | | Execute Exception,Raise 00ab 0000 0000 | | .BLANK 0000[0x5] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00ba | | .CONST 0x00ba ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0002 | | .CONST 0x0002 ; Number of locals 00b3 INIT_00b0: 00b3 00da | | Load_Top At_Offset_2 00b4 e002 | | Load 0x0,0x2 00b5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00b6 6801 |h | Jump_Zero 0xb8 00b7 0887 | | Execute_Immediate Raise,0x87 00b8 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 00ba BODY_00b0: 00ba 4803 |H | Short_Literal 0x3 00bb 8219 | | Call 0x1,0x19 00bc e5ff | | Load 0x2,-0x1 00bd e002 | | Load 0x0,0x2 00be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00bf e5fe | | Load 0x2,-0x2 00c0 e5ff | | Load 0x2,-0x1 00c1 e002 | | Load 0x0,0x2 00c2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c4 e5fd | | Load 0x2,-0x3 00c5 e5ff | | Load 0x2,-0x1 00c6 e002 | | Load 0x0,0x2 00c7 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00c8 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00c9 e5fc | | Load 0x2,-0x4 00ca 821b | | Call 0x1,0x1b 00cb e5ff | | Load 0x2,-0x1 00cc e002 | | Load 0x0,0x2 00cd 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ce 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00cf 4800 |H | Short_Literal 0x0 00d0 e5ff | | Load 0x2,-0x1 00d1 e002 | | Load 0x0,0x2 00d2 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00d3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00d4 00db | | Load_Top At_Offset_3 00d5 e002 | | Load 0x0,0x2 00d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00d7 8402 | | Call 0x2,0x2 00d8 0831 | 1 | Execute_Immediate Raise,0x31 00d9 0000 0000 | | .BLANK 0000[0x7] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00ea | | .CONST 0x00ea ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0002 | | .CONST 0x0002 ; Number of locals 00e3 INIT_00e0: 00e3 e5fd | | Load 0x2,-0x3 00e4 e002 | | Load 0x0,0x2 00e5 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00e6 6801 |h | Jump_Zero 0xe8 00e7 0887 | | Execute_Immediate Raise,0x87 00e8 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 00ea BODY_00e0: 00ea 4804 |H | Short_Literal 0x4 00eb 8219 | | Call 0x1,0x19 00ec e5fd | | Load 0x2,-0x3 00ed e002 | | Load 0x0,0x2 00ee 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00ef e5fd | | Load 0x2,-0x3 00f0 e002 | | Load 0x0,0x2 00f1 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00f2 8402 | | Call 0x2,0x2 00f3 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f4 0000 0000 | | .BLANK 0000[0x4] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0102 | | .CONST 0x0102 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0002 | | .CONST 0x0002 ; Number of locals 00fb INIT_00f8: 00fb e5fc | | Load 0x2,-0x4 00fc e002 | | Load 0x0,0x2 00fd 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00fe 6801 |h | Jump_Zero 0x100 00ff 0887 | | Execute_Immediate Raise,0x87 0100 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 0102 BODY_00f8: 0102 4805 |H | Short_Literal 0x5 0103 8219 | | Call 0x1,0x19 0104 e5fc | | Load 0x2,-0x4 0105 e002 | | Load 0x0,0x2 0106 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0107 e5fb | | Load 0x2,-0x5 0108 e5fc | | Load 0x2,-0x4 0109 e002 | | Load 0x0,0x2 010a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 010b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 010c e5fa | | Load 0x2,-0x6 010d e5fc | | Load 0x2,-0x4 010e e002 | | Load 0x0,0x2 010f 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0110 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0111 e5f9 | | Load 0x2,-0x7 0112 e5fc | | Load 0x2,-0x4 0113 e002 | | Load 0x0,0x2 0114 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0115 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0116 e5fc | | Load 0x2,-0x4 0117 85fd | | Call 0x2,-0x3 0118 e5fc | | Load 0x2,-0x4 0119 e002 | | Load 0x0,0x2 011a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 011b 8402 | | Call 0x2,0x2 011c 4508 |E | Exit_Suprogram New_Top_Offset 0x8 011d 0000 0000 | | .XXX[0x3] 011f 0000 | | 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0123 | # | .CONST 0x0123 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0001 | | .CONST 0x0001 ; Number of locals 0123 BODY_0120: 0123 INIT_0120: 0123 4607 |F | Jump_Case 0x8 0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0125 7806 |x | Jump 0x12c ; case 0x1 0126 7809 |x | Jump 0x130 ; case 0x2 0127 780d |x | Jump 0x135 ; case 0x3 0128 7810 |x | Jump 0x139 ; case 0x4 0129 7811 |x | Jump 0x13b ; case 0x5 012a 7812 |x | Jump 0x13d ; case 0x6 012b 7815 |x | Jump 0x141 ; case 0x7 012c 00da | | Load_Top At_Offset_2 012d 0091 0278 | x| Action Push_String_Extended_Indexed,0x278 ; "NIL" 012f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0130 00db | | Load_Top At_Offset_3 0131 00db | | Load_Top At_Offset_3 0132 00e0 | | Load_Encached Standard_Cache 0133 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0135 00da | | Load_Top At_Offset_2 0136 00e0 | | Load_Encached Standard_Cache 0137 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0138 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0139 00db | | Load_Top At_Offset_3 013a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013b 00db | | Load_Top At_Offset_3 013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 013d e212 | | Load 0x1,0x12 013e 00dc | | Load_Top At_Offset_4 013f 0267 | g | Execute Discrete,Predecessor 0140 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0141 e212 | | Load 0x1,0x12 0142 00dc | | Load_Top At_Offset_4 0143 0268 | h | Execute Discrete,Successor 0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014d | M | .CONST 0x014d ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b e217 | | Load 0x1,0x17 014c 0007 | | Action Break_Optional 014d BODY_0148: 014d 00d8 | | Load_Top At_Offset_0 014e 600d |` | Indirect_Literal Discrete,0x15c,{0x00000000, 0xffffffff} 014f 027f | | Execute Discrete,Equal 0150 6803 |h | Jump_Zero 0x154 0151 4800 |H | Short_Literal 0x0 0152 a217 | | Store_Unchecked 0x1,0x17 0153 7804 |x | Jump 0x158 0154 00e5 | | Load_Encached Long_Integer_Cache 0155 00d9 | | Load_Top At_Offset_1 0156 0268 | h | Execute Discrete,Successor 0157 c217 | | Store 0x1,0x17 0158 00d8 | | Load_Top At_Offset_0 0159 00ca | | Action Exit_Nullary_Function 015a 0000 0000 | | .XXX[0x2] 015c 0000 0000 | | .LITERAL {0x00000000, 0xffffffff} 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 4800 |H | Short_Literal 0x0 0164 e001 | | Load 0x0,0x1 0165 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 0166 1c08 | | Execute_Immediate Run_Utility,0x8 0167 8218 | | Call 0x1,0x18 0168 00d9 | | Load_Top At_Offset_1 0169 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2 016a 00d8 | | Load_Top At_Offset_0 016b 2603 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x3 016c e211 | | Load 0x1,0x11 016d 00d9 | | Load_Top At_Offset_1 016e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 016f 6044 |`D | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x000186a0} 0170 00d9 | | Load_Top At_Offset_1 0171 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0172 e5ff | | Load 0x2,-0x1 0173 e216 | | Load 0x1,0x16 0174 01d7 | | Execute Vector,Field_Read 0175 00d9 | | Load_Top At_Offset_1 0176 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0177 e5ff | | Load 0x2,-0x1 0178 e214 | | Load 0x1,0x14 0179 01d7 | | Execute Vector,Field_Read 017a 00d9 | | Load_Top At_Offset_1 017b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 017c 00d8 | | Load_Top At_Offset_0 017d 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4 017e 4800 |H | Short_Literal 0x0 017f 00d9 | | Load_Top At_Offset_1 0180 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0181 4800 |H | Short_Literal 0x0 0182 00d9 | | Load_Top At_Offset_1 0183 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0184 e001 | | Load 0x0,0x1 0185 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0186 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0187 0337 | 7 | Declare_Variable Array 0188 4990 |I | Short_Literal 0x190 0189 4801 |H | Short_Literal 0x1 018a 4800 |H | Short_Literal 0x0 018b 00d9 | | Load_Top At_Offset_1 018c e405 | | Load 0x2,0x5 018d 01d6 | | Execute Vector,Field_Write 018e 3ffb |? | Loop_Increasing 0x18a 018f e001 | | Load 0x0,0x1 0190 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 0191 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 0192 0119 | | Execute Any,Check_In_Formal_Type 0193 00d0 | | Action Swap_Control 0194 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0195 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5 0196 4800 |H | Short_Literal 0x0 0197 00d9 | | Load_Top At_Offset_1 0198 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0199 4800 |H | Short_Literal 0x0 019a 00d9 | | Load_Top At_Offset_1 019b 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 019c e001 | | Load 0x0,0x1 019d 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 019e 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 019f 0337 | 7 | Declare_Variable Array 01a0 4990 |I | Short_Literal 0x190 01a1 4801 |H | Short_Literal 0x1 01a2 4800 |H | Short_Literal 0x0 01a3 00d9 | | Load_Top At_Offset_1 01a4 e404 | | Load 0x2,0x4 01a5 01d6 | | Execute Vector,Field_Write 01a6 3ffb |? | Loop_Increasing 0x1a2 01a7 e001 | | Load 0x0,0x1 01a8 1b1a | | Execute Package,Field_Read,Field_Number 0x1a 01a9 3002 |0 | Execute Record,Field_Type,Field_Number 0x2 01aa 0119 | | Execute Any,Check_In_Formal_Type 01ab 00d0 | | Action Swap_Control 01ac 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ad e002 | | Load 0x0,0x2 01ae 1b11 | | Execute Package,Field_Read,Field_Number 0x11 01af 0161 | a | Execute Variant_Record,Check_In_Formal_Type 01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b1 0000 0000 | | .XXX[0x3] 01b3 0000 | | 01b4 0000 0000 | | .LITERAL {0x00000000, 0x000186a0} 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bb | | .CONST 0x01bb ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0001 | | .CONST 0x0001 ; Number of locals 01bb BODY_01b8: 01bb INIT_01b8: 01bb 00da | | Load_Top At_Offset_2 01bc 0b06 | | Execute_Immediate Case_Compare,0x6 01bd 7004 |p | Jump_Nonzero 0x1c2 01be 0f11 | | Execute_Immediate Equal,0x11 01bf 7005 |p | Jump_Nonzero 0x1c5 01c0 4802 |H | Short_Literal 0x2 01c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c2 00d1 | | Pop_Control Pop_Count_1 01c3 4801 |H | Short_Literal 0x1 01c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c5 4800 |H | Short_Literal 0x0 01c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c7 0000 | | .XXX[0x1] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb 00da | | Load_Top At_Offset_2 01cc 4602 |F | Jump_Case 0x3 01cd 7806 |x | Jump 0x1d4 ; case 0x0 01ce 7803 |x | Jump 0x1d2 ; case 0x1 01cf 7800 |x | Jump 0x1d0 ; case 0x2 01d0 4800 |H | Short_Literal 0x0 01d1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d2 4806 |H | Short_Literal 0x6 01d3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d4 4811 |H | Short_Literal 0x11 01d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01d6 0000 0000 | | .XXX[0x2] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e1 | | .CONST 0x01e1 ; Address of begin 01d9 01f3 | | .CONST 0x01f3 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db 4800 |H | Short_Literal 0x0 01dc e5ff | | Load 0x2,-0x1 01dd e002 | | Load 0x0,0x2 01de 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01df e001 | | Load 0x0,0x1 01e0 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01e1 BODY_01d8: 01e1 00d9 | | Load_Top At_Offset_1 01e2 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 01e3 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 01e4 6803 |h | Jump_Zero 0x1e8 01e5 4800 |H | Short_Literal 0x0 01e6 00cb | | Action Pop_Block_With_Result 01e7 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01e8 e003 | | Load 0x0,0x3 01e9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 01ea 4800 |H | Short_Literal 0x0 01eb e5ff | | Load 0x2,-0x1 01ec e002 | | Load 0x0,0x2 01ed 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01ee 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 01ef 0059 | Y | Store_Top Discrete,At_Offset_1 01f0 00d8 | | Load_Top At_Offset_0 01f1 00cb | | Action Pop_Block_With_Result 01f2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01f3 TRAP_01d8: 01f3 010e | | Execute Exception,Is_Constraint_Error 01f4 7004 |p | Jump_Nonzero 0x1f9 01f5 e003 | | Load 0x0,0x3 01f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01f7 010f | | Execute Exception,Equal 01f8 6803 |h | Jump_Zero 0x1fc 01f9 4800 |H | Short_Literal 0x0 01fa 00cb | | Action Pop_Block_With_Result 01fb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 01fc 0100 | | Execute Exception,Raise 01fd 0000 0000 | | .XXX[0x3] 01ff 0000 | | 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0210 | | .CONST 0x0210 ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0007 | | .CONST 0x0007 ; Number of locals 0203 INIT_0200: 0203 4801 |H | Short_Literal 0x1 0204 e5fd | | Load 0x2,-0x3 0205 e002 | | Load 0x0,0x2 0206 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0207 00e1 | | Load_Encached Boolean_Cache 0208 e001 | | Load 0x0,0x1 0209 1b15 | | Execute Package,Field_Read,Field_Number 0x15 020a e001 | | Load 0x0,0x1 020b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 020c e003 | | Load 0x0,0x3 020d 1b12 | | Execute Package,Field_Read,Field_Number 0x12 020e e001 | | Load 0x0,0x1 020f 1b14 | | Execute Package,Field_Read,Field_Number 0x14 0210 BODY_0200: 0210 e602 | | Load 0x3,0x2 0211 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 0212 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 0213 0f01 | | Execute_Immediate Equal,0x1 0214 7034 |p4 | Jump_Nonzero 0x249 0215 7800 |x | Jump 0x216 0216 00cf | | Action Mark_Auxiliary 0217 00e1 | | Load_Encached Boolean_Cache 0218 4801 |H | Short_Literal 0x1 0219 e5fd | | Load 0x2,-0x3 021a e002 | | Load 0x0,0x2 021b 1b10 | | Execute Package,Field_Read,Field_Number 0x10 021c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 021d c603 | | Store 0x3,0x3 021e e603 | | Load 0x3,0x3 021f 6828 |h( | Jump_Zero 0x248 0220 e003 | | Load 0x0,0x3 0221 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0222 4801 |H | Short_Literal 0x1 0223 e5fd | | Load 0x2,-0x3 0224 e002 | | Load 0x0,0x2 0225 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0226 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0227 c604 | | Store 0x3,0x4 0228 e003 | | Load 0x0,0x3 0229 1b12 | | Execute Package,Field_Read,Field_Number 0x12 022a 4801 |H | Short_Literal 0x1 022b e5fd | | Load 0x2,-0x3 022c e002 | | Load 0x0,0x2 022d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 022e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 022f c605 | | Store 0x3,0x5 0230 e003 | | Load 0x0,0x3 0231 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0232 4801 |H | Short_Literal 0x1 0233 e5fd | | Load 0x2,-0x3 0234 e002 | | Load 0x0,0x2 0235 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0236 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0237 005b | [ | Store_Top Discrete,At_Offset_3 0238 e003 | | Load 0x0,0x3 0239 1b12 | | Execute Package,Field_Read,Field_Number 0x12 023a 4801 |H | Short_Literal 0x1 023b e5fd | | Load 0x2,-0x3 023c e002 | | Load 0x0,0x2 023d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 023e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 023f 005a | Z | Store_Top Discrete,At_Offset_2 0240 00d9 | | Load_Top At_Offset_1 0241 00db | | Load_Top At_Offset_3 0242 821a | | Call 0x1,0x1a 0243 e605 | | Load 0x3,0x5 0244 e604 | | Load 0x3,0x4 0245 85fe | | Call 0x2,-0x2 0246 00c9 | | Action Pop_Auxiliary_Loop 0247 7fcf | | Jump 0x217 0248 00ce | | Action Pop_Auxiliary 0249 4501 |E | Exit_Suprogram New_Top_Offset 0x1 024a 0000 0000 | | .BLANK 0000[0x6] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0259 | Y | .CONST 0x0259 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0003 | | .CONST 0x0003 ; Number of locals 0253 INIT_0250: 0253 4801 |H | Short_Literal 0x1 0254 e5fc | | Load 0x2,-0x4 0255 e002 | | Load 0x0,0x2 0256 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0257 e003 | | Load 0x0,0x3 0258 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0259 BODY_0250: 0259 00d9 | | Load_Top At_Offset_1 025a 2604 |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x4 025b 2c01 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1 025c 0f01 | | Execute_Immediate Equal,0x1 025d 7019 |p | Jump_Nonzero 0x277 025e 7800 |x | Jump 0x25f 025f e003 | | Load 0x0,0x3 0260 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0261 4801 |H | Short_Literal 0x1 0262 e5fc | | Load 0x2,-0x4 0263 e002 | | Load 0x0,0x2 0264 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0265 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0266 c5f8 | | Store 0x2,-0x8 0267 e003 | | Load 0x0,0x3 0268 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0269 4801 |H | Short_Literal 0x1 026a e5fc | | Load 0x2,-0x4 026b e002 | | Load 0x0,0x2 026c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 026d 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 026e 0059 | Y | Store_Top Discrete,At_Offset_1 026f 00d8 | | Load_Top At_Offset_0 0270 00d8 | | Load_Top At_Offset_0 0271 00e3 | | Load_Encached Natural_Cache 0272 0260 | ` | Execute Discrete,In_Type 0273 7001 |p | Jump_Nonzero 0x275 0274 0801 | | Execute_Immediate Raise,0x1 0275 e5fc | | Load 0x2,-0x4 0276 85fe | | Call 0x2,-0x2 0277 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0278 ; -------------------------------------------------------------------------------------- 0278 ; STRING TABLE 0278 ; -------------------------------------------------------------------------------------- 0278 000e | | .STRTAB 0x000e->0x027f ; "NIL" 0279 000f | | .STRTAB 0x000f->0x0280 ; "SET" 027a 0010 | | .STRTAB 0x0010->0x0282 ; "UNSET" 027b 0013 | | .STRTAB 0x0013->0x0284 ; "GETPORT" 027c 0018 | | .STRTAB 0x0018->0x0288 ; "DUMP_MAP" 027d 001e | | .STRTAB 0x001e->0x028c ; "CALLIT" 027e 0022 | " | .STREND 0x0022->0x028f 027f 4e49 4c53 |NILS| .STRTAB_STRINGS 028f 0000 | | .XXX[0x1] 0290 ; -------------------------------------------------------------------------------------- 0290 ; Debug Table 0290 ; -------------------------------------------------------------------------------------- 0290 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc886,0x0000,0x0001,0x0000 0296 0000 0000 | | .BLANK 0000[0x16a]