|
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_191cd7
└─⟦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 0280 | | .CONST 0x0280 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00e3 | | .CONST 0x00e3 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0034 | 4 | .CONST 0x0034 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 480f |H | Short_Literal 0xf 000d 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 00d8 | | Load_Top At_Offset_0 0011 0266 | f | Execute Discrete,Bounds 0012 00e1 | | Load_Encached Boolean_Cache 0013 02a0 | | Declare_Subprogram Null_Subprogram 0014 4801 |H | Short_Literal 0x1 0015 035e | ^ | Declare_Type Array,Defined,Visible 0016 00d8 | | Load_Top At_Offset_0 0017 0336 | 6 | Declare_Variable Array,Visible 0018 00d8 | | Load_Top At_Offset_0 0019 0335 | 5 | Declare_Variable Array,Duplicate 001a 00cd | | Action Spare6_Action 001b 480f |H | Short_Literal 0xf 001c 4800 |H | Short_Literal 0x0 001d 4800 |H | Short_Literal 0x0 001e 00d9 | | Load_Top At_Offset_1 001f e210 | | Load 0x1,0x10 0020 01d6 | | Execute Vector,Field_Write 0021 3ffb |? | Loop_Increasing 0x1d 0022 00d9 | | Load_Top At_Offset_1 0023 01d4 | | Execute Vector,Structure_Write 0024 e003 | | Load 0x0,0x3 0025 00d8 | | Load_Top At_Offset_0 0026 e003 | | Load 0x0,0x3 0027 00d8 | | Load_Top At_Offset_0 0028 e003 | | Load 0x0,0x3 0029 e20e | | Load 0x1,0xe 002a 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 002c 4806 |H | Short_Literal 0x6 002d 032e | . | Declare_Type Record,Defined,Visible 002e e004 | | Load 0x0,0x4 002f 0266 | f | Execute Discrete,Bounds 0030 e004 | | Load 0x0,0x4 0031 0266 | f | Execute Discrete,Bounds 0032 e210 | | Load 0x1,0x10 0033 029f 0113 | | Declare_Subprogram INIT_0110,For_Call 0035 4802 |H | Short_Literal 0x2 0036 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0037 00d8 | | Load_Top At_Offset_0 0038 02a0 | | Declare_Subprogram Null_Subprogram 0039 4818 |H | Short_Literal 0x18 003a 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 003b 00d8 | | Load_Top At_Offset_0 003c 0221 | ! | Execute Access,Allow_Deallocate 003d 0007 | | Action Break_Optional 003e 00da | | Load_Top At_Offset_2 003f 0322 | " | Declare_Variable Record 0040 4800 |H | Short_Literal 0x0 0041 00d9 | | Load_Top At_Offset_1 0042 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0043 4800 |H | Short_Literal 0x0 0044 00d9 | | Load_Top At_Offset_1 0045 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0046 4800 |H | Short_Literal 0x0 0047 00d9 | | Load_Top At_Offset_1 0048 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0049 4800 |H | Short_Literal 0x0 004a 00d9 | | Load_Top At_Offset_1 004b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 004c 4800 |H | Short_Literal 0x0 004d 00d9 | | Load_Top At_Offset_1 004e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 004f e20f | | Load 0x1,0xf 0050 e210 | | Load 0x1,0x10 0051 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 0052 0119 | | Execute Any,Check_In_Formal_Type 0053 00d9 | | Load_Top At_Offset_1 0054 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 0055 0129 | ) | Execute Any,Make_Visible 0056 0007 | | Action Break_Optional 0057 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0059 a005 | | Store_Unchecked 0x0,0x5 005a 00c6 | | Action Check_Subprogram_Elaborated 005b 00db | | Load_Top At_Offset_3 005c 0129 | ) | Execute Any,Make_Visible 005d 00db | | Load_Top At_Offset_3 005e 0129 | ) | Execute Any,Make_Visible 005f e006 | | Load 0x0,0x6 0060 0129 | ) | Execute Any,Make_Visible 0061 e007 | | Load 0x0,0x7 0062 0129 | ) | Execute Any,Make_Visible 0063 4800 |H | Short_Literal 0x0 0064 0129 | ) | Execute Any,Make_Visible 0065 4808 |H | Short_Literal 0x8 0066 4800 |H | Short_Literal 0x0 0067 4801 |H | Short_Literal 0x1 0068 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 006a 03fb | | Declare_Type Discrete,Defined,Visible,With_Size 006b 0007 | | Action Break_Optional 006c e008 | | Load 0x0,0x8 006d e009 | | Load 0x0,0x9 006e 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0070 4802 |H | Short_Literal 0x2 0071 032e | . | Declare_Type Record,Defined,Visible 0072 e00a | | Load 0x0,0xa 0073 0266 | f | Execute Discrete,Bounds 0074 00da | | Load_Top At_Offset_2 0075 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 0077 4801 |H | Short_Literal 0x1 0078 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 0079 00d8 | | Load_Top At_Offset_0 007a 02a0 | | Declare_Subprogram Null_Subprogram 007b 4818 |H | Short_Literal 0x18 007c 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 007d 00d8 | | Load_Top At_Offset_0 007e 0221 | ! | Execute Access,Allow_Deallocate 007f 0007 | | Action Break_Optional 0080 00da | | Load_Top At_Offset_2 0081 0322 | " | Declare_Variable Record 0082 e002 | | Load 0x0,0x2 0083 00d9 | | Load_Top At_Offset_1 0084 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0085 4800 |H | Short_Literal 0x0 0086 00d9 | | Load_Top At_Offset_1 0087 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0088 0129 | ) | Execute Any,Make_Visible 0089 0007 | | Action Break_Optional 008a a005 | | Store_Unchecked 0x0,0x5 008b 00c6 | | Action Check_Subprogram_Elaborated 008c 00da | | Load_Top At_Offset_2 008d 0129 | ) | Execute Any,Make_Visible 008e 00da | | Load_Top At_Offset_2 008f 0129 | ) | Execute Any,Make_Visible 0090 e00b | | Load 0x0,0xb 0091 0129 | ) | Execute Any,Make_Visible 0092 e00c | | Load 0x0,0xc 0093 0129 | ) | Execute Any,Make_Visible 0094 4800 |H | Short_Literal 0x0 0095 0129 | ) | Execute Any,Make_Visible 0096 e00d | | Load 0x0,0xd 0097 e00e | | Load 0x0,0xe 0098 e21a | | Load 0x1,0x1a 0099 e00f | | Load 0x0,0xf 009a 00d8 | | Load_Top At_Offset_0 009b e004 | | Load 0x0,0x4 009c 00d8 | | Load_Top At_Offset_0 009d 00e1 | | Load_Encached Boolean_Cache 009e e010 | | Load 0x0,0x10 009f e21d | | Load 0x1,0x1d 00a0 e210 | | Load 0x1,0x10 00a1 00d8 | | Load_Top At_Offset_0 00a2 e212 | | Load 0x1,0x12 00a3 e003 | | Load 0x0,0x3 00a4 00d8 | | Load_Top At_Offset_0 00a5 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call 00a7 480f |H | Short_Literal 0xf 00a8 032e | . | Declare_Type Record,Defined,Visible 00a9 00d8 | | Load_Top At_Offset_0 00aa 02a0 | | Declare_Subprogram Null_Subprogram 00ab 4818 |H | Short_Literal 0x18 00ac 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 00ad 00d8 | | Load_Top At_Offset_0 00ae 0221 | ! | Execute Access,Allow_Deallocate 00af e00a | | Load 0x0,0xa 00b0 0266 | f | Execute Discrete,Bounds 00b1 00da | | Load_Top At_Offset_2 00b2 02a0 | | Declare_Subprogram Null_Subprogram 00b3 4801 |H | Short_Literal 0x1 00b4 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object 00b5 00d8 | | Load_Top At_Offset_0 00b6 02a0 | | Declare_Subprogram Null_Subprogram 00b7 4818 |H | Short_Literal 0x18 00b8 03d4 | | Declare_Type Access,Defined,Visible,Accesses_Protected 00b9 00d8 | | Load_Top At_Offset_0 00ba 0221 | ! | Execute Access,Allow_Deallocate 00bb 0007 | | Action Break_Optional 00bc 0007 | | Action Break_Optional 00bd a005 | | Store_Unchecked 0x0,0x5 00be 00c6 | | Action Check_Subprogram_Elaborated 00bf 00db | | Load_Top At_Offset_3 00c0 0129 | ) | Execute Any,Make_Visible 00c1 00db | | Load_Top At_Offset_3 00c2 0129 | ) | Execute Any,Make_Visible 00c3 e011 | | Load 0x0,0x11 00c4 0129 | ) | Execute Any,Make_Visible 00c5 e012 | | Load 0x0,0x12 00c6 0129 | ) | Execute Any,Make_Visible 00c7 4800 |H | Short_Literal 0x0 00c8 0129 | ) | Execute Any,Make_Visible 00c9 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 00cb 0007 | | Action Break_Optional 00cc 0007 | | Action Break_Optional 00cd e227 | ' | Load 0x1,0x27 00ce e013 | | Load 0x0,0x13 00cf 02a0 | | Declare_Subprogram Null_Subprogram 00d0 4802 |H | Short_Literal 0x2 00d1 032e | . | Declare_Type Record,Defined,Visible 00d2 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 00d4 00bf | | Action Accept_Activation 00d5 a005 | | Store_Unchecked 0x0,0x5 00d6 00c6 | | Action Check_Subprogram_Elaborated 00d7 e226 | & | Load 0x1,0x26 00d8 e227 | ' | Load 0x1,0x27 00d9 e014 | | Load 0x0,0x14 00da e015 | | Load 0x0,0x15 00db 4800 |H | Short_Literal 0x0 00dc 0007 | | Action Break_Optional 00dd 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00de 00c7 | | Action Elaborate_Subprogram 00df 1d2d | - | Execute_Immediate Reference_Lex_1,0x2d 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f 00e2 00c7 | | Action Elaborate_Subprogram 00e3 BODY_0008: 00e3 00bc | | Action Signal_Activated 00e4 00bb | | Action Signal_Completion 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 7807 |x | Jump 0xf5 ; case 0x1 00ee 780a |x | Jump 0xf9 ; case 0x2 00ef 780e |x | Jump 0xfe ; case 0x3 00f0 7811 |x | Jump 0x102 ; case 0x4 00f1 7812 |x | Jump 0x104 ; case 0x5 00f2 7813 |x | Jump 0x106 ; case 0x6 00f3 7816 |x | Jump 0x10a ; case 0x7 00f4 4302 |C | .XXX[0x1] 00f5 00da | | Load_Top At_Offset_2 00f6 0091 021d | | Action Push_String_Extended_Indexed,0x21d ; "XPCFI15" 00f8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00f9 00db | | Load_Top At_Offset_3 00fa 00db | | Load_Top At_Offset_3 00fb 00e0 | | Load_Encached Standard_Cache 00fc 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00fe 00da | | Load_Top At_Offset_2 00ff 00e0 | | Load_Encached Standard_Cache 0100 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0101 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0102 00db | | Load_Top At_Offset_3 0103 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0104 00db | | Load_Top At_Offset_3 0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0106 e20d | | Load 0x1,0xd 0107 00dc | | Load_Top At_Offset_4 0108 0267 | g | Execute Discrete,Predecessor 0109 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010a e20d | | Load 0x1,0xd 010b 00dc | | Load_Top At_Offset_4 010c 0268 | h | Execute Discrete,Successor 010d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 010e 0000 0000 | | .XXX[0x2] 0110 ; -------------------------------------------------------------------------------------- 0110 ; SUBPROGRAM 0110 ; -------------------------------------------------------------------------------------- 0110 0113 | | .CONST 0x0113 ; Address of begin 0111 0004 | | .CONST 0x0004 ; Address of exception handler 0112 0001 | | .CONST 0x0001 ; Number of locals 0113 BODY_0110: 0113 INIT_0110: 0113 00d1 | | Pop_Control Pop_Count_1 0114 00da | | Load_Top At_Offset_2 0115 01a8 | | Execute Matrix,Element_Type 0116 0322 | " | Declare_Variable Record 0117 00d8 | | Load_Top At_Offset_0 0118 1c00 | | Execute_Immediate Run_Utility,0x0 0119 4801 |H | Short_Literal 0x1 011a e5ff | | Load 0x2,-0x1 011b 01ac | | Execute Matrix,Last 011c 4801 |H | Short_Literal 0x1 011d e5ff | | Load 0x2,-0x1 011e 01ad | | Execute Matrix,First 011f 0263 | c | Execute Discrete,Above_Bound 0120 7011 |p | Jump_Nonzero 0x132 0121 4802 |H | Short_Literal 0x2 0122 e5ff | | Load 0x2,-0x1 0123 01ac | | Execute Matrix,Last 0124 4802 |H | Short_Literal 0x2 0125 e5ff | | Load 0x2,-0x1 0126 01ad | | Execute Matrix,First 0127 0263 | c | Execute Discrete,Above_Bound 0128 7007 |p | Jump_Nonzero 0x130 0129 e402 | | Load 0x2,0x2 012a 00d9 | | Load_Top At_Offset_1 012b e404 | | Load 0x2,0x4 012c e5ff | | Load 0x2,-0x1 012d 01a6 | | Execute Matrix,Field_Write 012e 0a01 | | Execute_Immediate Plus,0x1 012f 7ff7 | | Jump 0x127 0130 0a01 | | Execute_Immediate Plus,0x1 0131 7fed | | Jump 0x11f 0132 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0133 0000 0000 | | .BLANK 0000[0x5] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 013b | ; | .CONST 0x013b ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0001 | | .CONST 0x0001 ; Number of locals 013b BODY_0138: 013b INIT_0138: 013b 00da | | Load_Top At_Offset_2 013c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 013d 7009 |p | Jump_Nonzero 0x147 013e 00da | | Load_Top At_Offset_2 013f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0140 7004 |p | Jump_Nonzero 0x145 0141 00da | | Load_Top At_Offset_2 0142 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0143 0f00 | | Execute_Immediate Equal,0x0 0144 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0145 4800 |H | Short_Literal 0x0 0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0147 4800 |H | Short_Literal 0x0 0148 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0153 | S | .CONST 0x0153 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0001 | | .CONST 0x0001 ; Number of locals 0153 BODY_0150: 0153 INIT_0150: 0153 4607 |F | Jump_Case 0x8 0154 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0155 7807 |x | Jump 0x15d ; case 0x1 0156 780a |x | Jump 0x161 ; case 0x2 0157 780e |x | Jump 0x166 ; case 0x3 0158 7811 |x | Jump 0x16a ; case 0x4 0159 7812 |x | Jump 0x16c ; case 0x5 015a 7813 |x | Jump 0x16e ; case 0x6 015b 7816 |x | Jump 0x172 ; case 0x7 015c 4302 |C | .XXX[0x1] 015d 00da | | Load_Top At_Offset_2 015e 0091 022d | -| Action Push_String_Extended_Indexed,0x22d ; "FONT_LEFT_TO_RIGHT" 0160 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0161 00db | | Load_Top At_Offset_3 0162 00db | | Load_Top At_Offset_3 0163 00e0 | | Load_Encached Standard_Cache 0164 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0166 00da | | Load_Top At_Offset_2 0167 00e0 | | Load_Encached Standard_Cache 0168 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0169 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 016a 00db | | Load_Top At_Offset_3 016b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016c 00db | | Load_Top At_Offset_3 016d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 016e e21a | | Load 0x1,0x1a 016f 00dc | | Load_Top At_Offset_4 0170 0267 | g | Execute Discrete,Predecessor 0171 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0172 e21a | | Load 0x1,0x1a 0173 00dc | | Load_Top At_Offset_4 0174 0268 | h | Execute Discrete,Successor 0175 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0176 0000 0000 | | .XXX[0x2] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 00d1 | | Pop_Control Pop_Count_1 017c 00da | | Load_Top At_Offset_2 017d 01d8 | | Execute Vector,Element_Type 017e 0322 | " | Declare_Variable Record 017f 00d8 | | Load_Top At_Offset_0 0180 1c00 | | Execute_Immediate Run_Utility,0x0 0181 00db | | Load_Top At_Offset_3 0182 01dc | | Execute Vector,Last 0183 e5ff | | Load 0x2,-0x1 0184 01dd | | Execute Vector,First 0185 0263 | c | Execute Discrete,Above_Bound 0186 7006 |p | Jump_Nonzero 0x18d 0187 00da | | Load_Top At_Offset_2 0188 00d9 | | Load_Top At_Offset_1 0189 e5ff | | Load 0x2,-0x1 018a 01d6 | | Execute Vector,Field_Write 018b 0a01 | | Execute_Immediate Plus,0x1 018c 7ff8 | | Jump 0x185 018d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 018e 0000 0000 | | .XXX[0x2] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 00cf | | Action Mark_Auxiliary 0194 00db | | Load_Top At_Offset_3 0195 0227 | ' | Execute Access,All_Reference 0196 01d9 | | Execute Vector,Reverse_Bounds 0197 0263 | c | Execute Discrete,Above_Bound 0198 7010 |p | Jump_Nonzero 0x1a9 0199 e5ff | | Load 0x2,-0x1 019a 0229 | ) | Execute Access,All_Read 019b 00d9 | | Load_Top At_Offset_1 019c 00d8 | | Load_Top At_Offset_0 019d 00da | | Load_Top At_Offset_2 019e 01d7 | | Execute Vector,Field_Read 019f e228 | ( | Load 0x1,0x28 01a0 e229 | ) | Load 0x1,0x29 01a1 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a 01a2 8005 | | Call 0x0,0x5 01a3 00d9 | | Load_Top At_Offset_1 01a4 00db | | Load_Top At_Offset_3 01a5 01d6 | | Execute Vector,Field_Write 01a6 00d2 | | Pop_Control Pop_Count_2 01a7 00c8 | | Action Pop_Auxiliary_Range 01a8 3ff0 |? | Loop_Increasing 0x199 01a9 00ce | | Action Pop_Auxiliary 01aa 00da | | Load_Top At_Offset_2 01ab e230 | 0 | Load 0x1,0x30 01ac e231 | 1 | Load 0x1,0x31 01ad 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32 01ae 8005 | | Call 0x0,0x5 01af 003b | ; | Store_Top Access,At_Offset_3 01b0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01b1 0000 0000 | | .BLANK 0000[0x7] 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 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01bd 822d | - | Call 0x1,0x2d 01be 00db | | Load_Top At_Offset_3 01bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c0 00da | | Load_Top At_Offset_2 01c1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01c2 8016 | | Call 0x0,0x16 01c3 00db | | Load_Top At_Offset_3 01c4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01c5 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c6 0000 0000 | | .XXX[0x2] 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 4601 |F | Jump_Case 0x2 01cc 7801 |x | Jump 0x1ce ; case 0x0 01cd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ce 4800 |H | Short_Literal 0x0 01cf 00db | | Load_Top At_Offset_3 01d0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01d1 4800 |H | Short_Literal 0x0 01d2 00db | | Load_Top At_Offset_3 01d3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01d4 4800 |H | Short_Literal 0x0 01d5 00db | | Load_Top At_Offset_3 01d6 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01d7 4800 |H | Short_Literal 0x0 01d8 00db | | Load_Top At_Offset_3 01d9 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01da 4800 |H | Short_Literal 0x0 01db 00db | | Load_Top At_Offset_3 01dc 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 01dd e20f | | Load 0x1,0xf 01de 00db | | Load_Top At_Offset_3 01df 00d9 | | Load_Top At_Offset_1 01e0 00d9 | | Load_Top At_Offset_1 01e1 3005 |0 | Execute Record,Field_Type,Field_Number 0x5 01e2 0119 | | Execute Any,Check_In_Formal_Type 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 01e5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01e6 0000 0000 | | .XXX[0x2] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01eb | | .CONST 0x01eb ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0001 | | .CONST 0x0001 ; Number of locals 01eb BODY_01e8: 01eb INIT_01e8: 01eb 4601 |F | Jump_Case 0x2 01ec 7801 |x | Jump 0x1ee ; case 0x0 01ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01ee e002 | | Load 0x0,0x2 01ef 00db | | Load_Top At_Offset_3 01f0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01f1 4800 |H | Short_Literal 0x0 01f2 00db | | Load_Top At_Offset_3 01f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01f4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 01f5 0000 0000 | | .XXX[0x3] 01f7 0000 | | 01f8 ; -------------------------------------------------------------------------------------- 01f8 ; SUBPROGRAM 01f8 ; -------------------------------------------------------------------------------------- 01f8 01fb | | .CONST 0x01fb ; Address of begin 01f9 0004 | | .CONST 0x0004 ; Address of exception handler 01fa 0001 | | .CONST 0x0001 ; Number of locals 01fb BODY_01f8: 01fb INIT_01f8: 01fb 4601 |F | Jump_Case 0x2 01fc 7801 |x | Jump 0x1fe ; case 0x0 01fd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 01fe 4800 |H | Short_Literal 0x0 01ff 00db | | Load_Top At_Offset_3 0200 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0201 4800 |H | Short_Literal 0x0 0202 00db | | Load_Top At_Offset_3 0203 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0204 4800 |H | Short_Literal 0x0 0205 00db | | Load_Top At_Offset_3 0206 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0207 4800 |H | Short_Literal 0x0 0208 00db | | Load_Top At_Offset_3 0209 3805 |8 | Execute Record,Field_Write,Field_Number 0x5 020a 4800 |H | Short_Literal 0x0 020b 00db | | Load_Top At_Offset_3 020c 3806 |8 | Execute Record,Field_Write,Field_Number 0x6 020d 4800 |H | Short_Literal 0x0 020e 00db | | Load_Top At_Offset_3 020f 3807 |8 | Execute Record,Field_Write,Field_Number 0x7 0210 00da | | Load_Top At_Offset_2 0211 340a |4 | Execute Record,Field_Reference,Field_Number 0xa 0212 1c00 | | Execute_Immediate Run_Utility,0x0 0213 00da | | Load_Top At_Offset_2 0214 340b |4 | Execute Record,Field_Reference,Field_Number 0xb 0215 1c00 | | Execute_Immediate Run_Utility,0x0 0216 4800 |H | Short_Literal 0x0 0217 00db | | Load_Top At_Offset_3 0218 380d |8 | Execute Record,Field_Write,Field_Number 0xd 0219 4800 |H | Short_Literal 0x0 021a 00db | | Load_Top At_Offset_3 021b 380e |8 | Execute Record,Field_Write,Field_Number 0xe 021c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 021d ; -------------------------------------------------------------------------------------- 021d ; STRING TABLE 021d ; -------------------------------------------------------------------------------------- 021d 0026 | & | .STRTAB 0x0026->0x0230 ; "XPCFI15" 021e 002b | + | .STRTAB 0x002b->0x0233 ; "XPCFI14" 021f 0030 | 0 | .STRTAB 0x0030->0x0237 ; "XPCFI13" 0220 0035 | 5 | .STRTAB 0x0035->0x023a ; "XPCFI12" 0221 003a | : | .STRTAB 0x003a->0x023e ; "XPCFI11" 0222 003f | ? | .STRTAB 0x003f->0x0241 ; "XPCFI10" 0223 0044 | D | .STRTAB 0x0044->0x0245 ; "XPCFI09" 0224 0049 | I | .STRTAB 0x0049->0x0248 ; "XPCFI08" 0225 004e | N | .STRTAB 0x004e->0x024c ; "XPCFI07" 0226 0053 | S | .STRTAB 0x0053->0x024f ; "XPCFI06" 0227 0058 | X | .STRTAB 0x0058->0x0253 ; "XPCFI05" 0228 005d | ] | .STRTAB 0x005d->0x0256 ; "XPCFI04" 0229 0062 | b | .STRTAB 0x0062->0x025a ; "XPCFI03" 022a 0067 | g | .STRTAB 0x0067->0x025d ; "XPCFI02" 022b 006c | l | .STRTAB 0x006c->0x0261 ; "XPCFI01" 022c 0071 | q | .STRTAB 0x0071->0x0264 ; "XPCFI00" 022d 0076 | v | .STRTAB 0x0076->0x0268 ; "FONT_LEFT_TO_RIGHT" 022e 0086 | | .STRTAB 0x0086->0x0271 ; "FONT_RIGHT_TO_LEFT" 022f 0096 | | .STREND 0x0096->0x027a 0230 5850 4346 |XPCF| .STRTAB_STRINGS 027a 0000 0000 | | .BLANK 0000[0x6] 0280 ; -------------------------------------------------------------------------------------- 0280 ; Debug Table 0280 ; -------------------------------------------------------------------------------------- 0280 0004 0000 | | .DEBUG4 0x0004,0x0000,0x491e,0x0000,0x0001,0x000c 0286 000b 02b6 | | .DBG4T 0x000b,0x02b6,0x8000,0x0000 028a 00d5 02d8 | | .DBG4T 0x00d5,0x02d8,0x8000,0x0000 028e 00eb 0000 | | .DBG4T 0x00eb,0x0000,0x0005,0x0000 0292 0113 0000 | | .DBG4T 0x0113,0x0000,0x0005,0x0000 0296 013b 02de | ; | .DBG4T 0x013b,0x02de,0x0002,0x0000 029a 0153 0000 | S | .DBG4T 0x0153,0x0000,0x0005,0x0000 029e 017b 0000 | { | .DBG4T 0x017b,0x0000,0x0005,0x0000 02a2 0193 02e1 | | .DBG4T 0x0193,0x02e1,0x0001,0x0000 02a6 01bb 02e6 | | .DBG4T 0x01bb,0x02e6,0x0001,0x0000 02aa 01cb 0000 | | .DBG4T 0x01cb,0x0000,0x0005,0x0000 02ae 01eb 0000 | | .DBG4T 0x01eb,0x0000,0x0005,0x0000 02b2 01fb 0000 | | .DBG4T 0x01fb,0x0000,0x0005,0x0000 02b6 ; -------------------------------------------------------------------------------------- 02b6 ; Debug chain 02b6 ; -------------------------------------------------------------------------------------- 02b6 0020 0000 | | .DBGLEN 0x0020,0x0000 02b8 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0016,0x0024,0x002e,0x0037,0x003d,0x003e,0x0056,0x0057,0x0059,0x0065,0x006b,0x006c,0x0072,0x0079,0x007f,0x0080,0x0089,0x008a,0x0096,0x00a9,0x00af,0x00b5,0x00bb,0x00bc,0x00bd,0x00c9,0x00cb,0x00cc,0x00cd,0x00d2 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; Debug chain 02d8 ; -------------------------------------------------------------------------------------- 02d8 0004 0000 | | .DBGLEN 0x0004,0x0000 02da 00d5 00dd | | .DBGLNO 0x00d5,0x00dd,0x00df,0x00e1 02de ; -------------------------------------------------------------------------------------- 02de ; Debug chain 02de ; -------------------------------------------------------------------------------------- 02de 0000 0001 | | .DBGLEN 0x0000,0x0001 02e0 013b | ; | .DBGLNO 0x013b 02e1 ; -------------------------------------------------------------------------------------- 02e1 ; Debug chain 02e1 ; -------------------------------------------------------------------------------------- 02e1 0000 0003 | | .DBGLEN 0x0000,0x0003 02e3 0194 0199 | | .DBGLNO 0x0194,0x0199,0x01aa 02e6 ; -------------------------------------------------------------------------------------- 02e6 ; Debug chain 02e6 ; -------------------------------------------------------------------------------------- 02e6 0000 0002 | | .DBGLEN 0x0000,0x0002 02e8 01bb 01c0 | | .DBGLNO 0x01bb,0x01c0 02ea 0000 0000 | | .BLANK 0000[0x116]