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