|
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: 3072 (0xc00) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0458 | X | .CONST 0x0458 ; 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 009b | | .CONST 0x009b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 000d 0129 | ) | Execute Any,Make_Visible 000e e002 | | Load 0x0,0x2 000f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0010 0129 | ) | Execute Any,Make_Visible 0011 4801 |H | Short_Literal 0x1 0012 0359 | Y | Declare_Type Array,Incomplete,Visible 0013 00c4 | | Action Make_Default 0014 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0016 e001 | | Load 0x0,0x1 0017 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0018 0129 | ) | Execute Any,Make_Visible 0019 e001 | | Load 0x0,0x1 001a 191f | | Execute Package,Field_Reference,Field_Number 0x1f 001b 0129 | ) | Execute Any,Make_Visible 001c e001 | | Load 0x0,0x1 001d 1920 | | Execute Package,Field_Reference,Field_Number 0x20 001e 0129 | ) | Execute Any,Make_Visible 001f 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated 0021 e20f | | Load 0x1,0xf 0022 0266 | f | Execute Discrete,Bounds 0023 e215 | | Load 0x1,0x15 0024 029f 011b | | Declare_Subprogram INIT_0118,For_Call 0026 e212 | | Load 0x1,0x12 0027 0343 | C | Complete_Type Array,By_Defining 0028 e212 | | Load 0x1,0x12 0029 0336 | 6 | Declare_Variable Array,Visible 002a 00d8 | | Load_Top At_Offset_0 002b 0335 | 5 | Declare_Variable Array,Duplicate 002c 00cd | | Action Spare6_Action 002d 00d9 | | Load_Top At_Offset_1 002e 01d9 | | Execute Vector,Reverse_Bounds 002f 0263 | c | Execute Discrete,Above_Bound 0030 7005 |p | Jump_Nonzero 0x36 0031 e216 | | Load 0x1,0x16 0032 00d9 | | Load_Top At_Offset_1 0033 e21a | | Load 0x1,0x1a 0034 01d6 | | Execute Vector,Field_Write 0035 3ffb |? | Loop_Increasing 0x31 0036 00d9 | | Load_Top At_Offset_1 0037 01d4 | | Execute Vector,Structure_Write 0038 c213 | | Store 0x1,0x13 0039 00bf | | Action Accept_Activation 003a 0092 02e5 | | Action Push_String_Extended,0x2e5 ; "FORMAT_INFORMATION" 003c e003 | | Load 0x0,0x3 003d e004 | | Load 0x0,0x4 003e e20f | | Load 0x1,0xf 003f 00c4 | | Action Make_Default 0040 00c4 | | Action Make_Default 0041 00c4 | | Action Make_Default 0042 0092 02e6 | | Action Push_String_Extended,0x2e6 ; "others => Unspecified" 0044 00ea | | Load_Encached Null_String_Cache 0045 00ea | | Load_Encached Null_String_Cache 0046 00c4 | | Action Make_Default 0047 00c4 | | Action Make_Default 0048 e21c | | Load 0x1,0x1c 0049 026a | j | Execute Discrete,First 004a 00d8 | | Load_Top At_Offset_0 004b e20f | | Load 0x1,0xf 004c 0260 | ` | Execute Discrete,In_Type 004d 7001 |p | Jump_Nonzero 0x4f 004e 0801 | | Execute_Immediate Raise,0x1 004f c21d | | Store 0x1,0x1d 0050 e20f | | Load 0x1,0xf 0051 0122 | " | Execute Any,Make_Root_Type 0052 e21d | | Load 0x1,0x1d 0053 0268 | h | Execute Discrete,Successor 0054 00d8 | | Load_Top At_Offset_0 0055 e20f | | Load 0x1,0xf 0056 0260 | ` | Execute Discrete,In_Type 0057 7001 |p | Jump_Nonzero 0x59 0058 0801 | | Execute_Immediate Raise,0x1 0059 c21e | | Store 0x1,0x1e 005a e21c | | Load 0x1,0x1c 005b 0269 | i | Execute Discrete,Last 005c 00d8 | | Load_Top At_Offset_0 005d e20f | | Load 0x1,0xf 005e 0260 | ` | Execute Discrete,In_Type 005f 7001 |p | Jump_Nonzero 0x61 0060 0801 | | Execute_Immediate Raise,0x1 0061 c21f | | Store 0x1,0x1f 0062 e21e | | Load 0x1,0x1e 0063 00d8 | | Load_Top At_Offset_0 0064 e20f | | Load 0x1,0xf 0065 0260 | ` | Execute Discrete,In_Type 0066 7001 |p | Jump_Nonzero 0x68 0067 0801 | | Execute_Immediate Raise,0x1 0068 c223 | # | Store 0x1,0x23 0069 e21f | | Load 0x1,0x1f 006a 00d8 | | Load_Top At_Offset_0 006b e20f | | Load 0x1,0xf 006c 0260 | ` | Execute Discrete,In_Type 006d 7001 |p | Jump_Nonzero 0x6f 006e 0801 | | Execute_Immediate Raise,0x1 006f c224 | $ | Store 0x1,0x24 0070 e005 | | Load 0x0,0x5 0071 0387 | | Declare_Variable Package 0072 00d8 | | Load_Top At_Offset_0 0073 020f | | Execute Module,Activate 0074 4800 |H | Short_Literal 0x0 0075 4804 |H | Short_Literal 0x4 0076 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call 0078 03fd | | Declare_Type Discrete,Defined 0079 e006 | | Load 0x0,0x6 007a e007 | | Load 0x0,0x7 007b 00da | | Load_Top At_Offset_2 007c 4800 |H | Short_Literal 0x0 007d 4801 |H | Short_Literal 0x1 007e 4804 |H | Short_Literal 0x4 007f 0092 02e7 | | Action Push_String_Extended,0x2e7 ; "Point_Size=Integer_Valued,others=Unspecified" 0081 0092 02e8 | | Action Push_String_Extended,0x2e8 ; "Point_Size=0,others=()" 0083 0092 02e9 | | Action Push_String_Extended,0x2e9 ; "Font_Family=FF,Font_Style=FS,Point_Size=PS,User_Info=UI" 0085 4801 |H | Short_Literal 0x1 0086 4804 |H | Short_Literal 0x4 0087 e005 | | Load 0x0,0x5 0088 0387 | | Declare_Variable Package 0089 00d8 | | Load_Top At_Offset_0 008a 020f | | Execute Module,Activate 008b 0092 02ea | | Action Push_String_Extended,0x2ea ; ",Font_Family=<>,Font_Style=<>,Point_Size=<>,User_Info=<>" 008d 029d 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call 008f 029d 018b | | Declare_Subprogram INIT_0188,For_Outer_Call 0091 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call 0093 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call 0095 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call 0097 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0098 00c7 | | Action Elaborate_Subprogram 0099 1d18 | | Execute_Immediate Reference_Lex_1,0x18 009a 00c7 | | Action Elaborate_Subprogram 009b BODY_0008: 009b 00bc | | Action Signal_Activated 009c 00bb | | Action Signal_Completion 009d 0000 0000 | | .XXX[0x3] 009f 0000 | | 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00b2 | | .CONST 0x00b2 ; Address of begin 00a1 00f2 | | .CONST 0x00f2 ; Address of exception handler 00a2 0007 | | .CONST 0x0007 ; Number of locals 00a3 INIT_00a0: 00a3 00db | | Load_Top At_Offset_3 00a4 01db | | Execute Vector,Length 00a5 0f00 | | Execute_Immediate Equal,0x0 00a6 0007 | | Action Break_Optional 00a7 00e1 | | Load_Encached Boolean_Cache 00a8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00a9 e5fe | | Load 0x2,-0x2 00aa e5ff | | Load 0x2,-0x1 00ab 8221 | ! | Call 0x1,0x21 00ac e21a | | Load 0x1,0x1a 00ad 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 00ae 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 00b0 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call 00b2 BODY_00a0: 00b2 e5fb | | Load 0x2,-0x5 00b3 e002 | | Load 0x0,0x2 00b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00b5 c5fb | | Store 0x2,-0x5 00b6 e213 | | Load 0x1,0x13 00b7 e5fc | | Load 0x2,-0x4 00b8 01d4 | | Execute Vector,Structure_Write 00b9 e5ff | | Load 0x2,-0x1 00ba e001 | | Load 0x0,0x1 00bb 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36 00bc 7007 |p | Jump_Nonzero 0xc4 00bd e5fb | | Load 0x2,-0x5 00be 0092 02eb | | Action Push_String_Extended,0x2eb ; "Specified document is not open, formatting style information cannot be initialized" 00c0 e002 | | Load 0x0,0x2 00c1 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00c2 8220 | | Call 0x1,0x20 00c3 c5fb | | Store 0x2,-0x5 00c4 8407 | | Call 0x2,0x7 00c5 00cf | | Action Mark_Auxiliary 00c6 7819 |x | Jump 0xe0 00c7 00ea | | Load_Encached Null_String_Cache 00c8 e21a | | Load 0x1,0x1a 00c9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00ca 00d8 | | Load_Top At_Offset_0 00cb e20f | | Load 0x1,0xf 00cc 0260 | ` | Execute Discrete,In_Type 00cd 7001 |p | Jump_Nonzero 0xcf 00ce 0801 | | Execute_Immediate Raise,0x1 00cf e405 | | Load 0x2,0x5 00d0 e21a | | Load 0x1,0x1a 00d1 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00d2 e405 | | Load 0x2,0x5 00d3 e21a | | Load 0x1,0x1a 00d4 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00d5 00d8 | | Load_Top At_Offset_0 00d6 e20f | | Load 0x1,0xf 00d7 0260 | ` | Execute Discrete,In_Type 00d8 7001 |p | Jump_Nonzero 0xda 00d9 0801 | | Execute_Immediate Raise,0x1 00da 8406 | | Call 0x2,0x6 00db 00db | | Load_Top At_Offset_3 00dc e21a | | Load 0x1,0x1a 00dd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00de c405 | | Store 0x2,0x5 00df 00c9 | | Action Pop_Auxiliary_Loop 00e0 00db | | Load_Top At_Offset_3 00e1 e21a | | Load 0x1,0x1a 00e2 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00e3 6fe3 |o | Jump_Zero 0xc7 00e4 00ce | | Action Pop_Auxiliary 00e5 e403 | | Load 0x2,0x3 00e6 680a |h | Jump_Zero 0xf1 00e7 e5fb | | Load 0x2,-0x5 00e8 0092 02ec | | Action Push_String_Extended,0x2ec ; "Syntax errors have been detected in format information file " 00ea e404 | | Load 0x2,0x4 00eb 01cc | | Execute Vector,Catenate 00ec e002 | | Load 0x0,0x2 00ed 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 00ee e002 | | Load 0x0,0x2 00ef 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00f0 c5fb | | Store 0x2,-0x5 00f1 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f2 TRAP_00a0: 00f2 e008 | | Load 0x0,0x8 00f3 010f | | Execute Exception,Equal 00f4 6801 |h | Jump_Zero 0xf6 00f5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00f6 e5fb | | Load 0x2,-0x5 00f7 4829 |H) | Short_Literal 0x29 00f8 0092 02ed | | Action Push_String_Extended,0x2ed ; "Unexpected exception in Format_Information.Initialize (" 00fa e002 | | Load 0x0,0x2 00fb 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00fc 01cc | | Execute Vector,Catenate 00fd 01cb | | Execute Vector,Append 00fe e002 | | Load 0x0,0x2 00ff 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21 0100 e002 | | Load 0x0,0x2 0101 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0102 c5fb | | Store 0x2,-0x5 0103 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0104 0000 0000 | | .BLANK 0000[0x4] 0108 ; -------------------------------------------------------------------------------------- 0108 ; SUBPROGRAM 0108 ; -------------------------------------------------------------------------------------- 0108 010b | | .CONST 0x010b ; Address of begin 0109 0004 | | .CONST 0x0004 ; Address of exception handler 010a 0001 | | .CONST 0x0001 ; Number of locals 010b BODY_0108: 010b INIT_0108: 010b 00da | | Load_Top At_Offset_2 010c e5fe | | Load 0x2,-0x2 010d 01d5 | | Execute Vector,Field_Reference 010e 02fd | | Declare_Variable Variant_Record,Duplicate 010f 00cd | | Action Spare6_Action 0110 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 00d1 | | Pop_Control Pop_Count_1 011c 00da | | Load_Top At_Offset_2 011d 01dc | | Execute Vector,Last 011e 00db | | Load_Top At_Offset_3 011f 01dd | | Execute Vector,First 0120 0263 | c | Execute Discrete,Above_Bound 0121 700a |p | Jump_Nonzero 0x12c 0122 00d8 | | Load_Top At_Offset_0 0123 e5ff | | Load 0x2,-0x1 0124 01d5 | | Execute Vector,Field_Reference 0125 0125 | % | Execute Any,Set_Constraint 0126 00d8 | | Load_Top At_Offset_0 0127 e5ff | | Load 0x2,-0x1 0128 01d5 | | Execute Vector,Field_Reference 0129 1c00 | | Execute_Immediate Run_Utility,0x0 012a 0a01 | | Execute_Immediate Plus,0x1 012b 7ff4 | | Jump 0x120 012c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 4607 |F | Jump_Case 0x8 0134 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0135 7806 |x | Jump 0x13c ; case 0x1 0136 7809 |x | Jump 0x140 ; case 0x2 0137 780d |x | Jump 0x145 ; case 0x3 0138 7810 |x | Jump 0x149 ; case 0x4 0139 7811 |x | Jump 0x14b ; case 0x5 013a 7812 |x | Jump 0x14d ; case 0x6 013b 7815 |x | Jump 0x151 ; case 0x7 013c 00da | | Load_Top At_Offset_2 013d 0091 02e0 | | Action Push_String_Extended_Indexed,0x2e0 ; "NIL" 013f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0140 00db | | Load_Top At_Offset_3 0141 00db | | Load_Top At_Offset_3 0142 00e0 | | Load_Encached Standard_Cache 0143 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0144 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0145 00da | | Load_Top At_Offset_2 0146 00e0 | | Load_Encached Standard_Cache 0147 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0148 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0149 00db | | Load_Top At_Offset_3 014a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 014b 00db | | Load_Top At_Offset_3 014c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 014d e21b | | Load 0x1,0x1b 014e 00dc | | Load_Top At_Offset_4 014f 0267 | g | Execute Discrete,Predecessor 0150 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0151 e21b | | Load 0x1,0x1b 0152 00dc | | Load_Top At_Offset_4 0153 0268 | h | Execute Discrete,Successor 0154 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0155 0000 0000 | | .XXX[0x3] 0157 0000 | | 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b 00db | | Load_Top At_Offset_3 015c e21c | | Load 0x1,0x1c 015d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 015e 7026 |p& | Jump_Nonzero 0x185 015f 4800 |H | Short_Literal 0x0 0160 4800 |H | Short_Literal 0x0 0161 4807 |H | Short_Literal 0x7 0162 0092 02ee | | Action Push_String_Extended,0x2ee ; "Errors detected while parsing " 0164 e5ff | | Load 0x2,-0x1 0165 01cc | | Execute Vector,Catenate 0166 00ea | | Load_Encached Null_String_Cache 0167 e002 | | Load 0x0,0x2 0168 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0169 00db | | Load_Top At_Offset_3 016a e21c | | Load 0x1,0x1c 016b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 016c c5fe | | Store 0x2,-0x2 016d 00cf | | Action Mark_Auxiliary 016e 780f |x | Jump 0x17e 016f 4800 |H | Short_Literal 0x0 0170 4800 |H | Short_Literal 0x0 0171 4805 |H | Short_Literal 0x5 0172 4800 |H | Short_Literal 0x0 0173 e5fe | | Load 0x2,-0x2 0174 e21c | | Load 0x1,0x1c 0175 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0176 00ea | | Load_Encached Null_String_Cache 0177 e002 | | Load 0x0,0x2 0178 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0179 e5fe | | Load 0x2,-0x2 017a e21c | | Load 0x1,0x1c 017b 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 017c c5fe | | Store 0x2,-0x2 017d 00c9 | | Action Pop_Auxiliary_Loop 017e e5fe | | Load 0x2,-0x2 017f e21c | | Load 0x1,0x1c 0180 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0181 6fed |o | Jump_Zero 0x16f 0182 00ce | | Action Pop_Auxiliary 0183 e008 | | Load 0x0,0x8 0184 0257 | W | Execute Discrete,Raise 0185 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b 00db | | Load_Top At_Offset_3 018c e21a | | Load 0x1,0x1a 018d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 018e 702c |p, | Jump_Nonzero 0x1bb 018f 4800 |H | Short_Literal 0x0 0190 4800 |H | Short_Literal 0x0 0191 4807 |H | Short_Literal 0x7 0192 0092 02ee | | Action Push_String_Extended,0x2ee ; "Errors detected while parsing " 0194 e5ff | | Load 0x2,-0x1 0195 01cc | | Execute Vector,Catenate 0196 00ea | | Load_Encached Null_String_Cache 0197 e002 | | Load 0x0,0x2 0198 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0199 00db | | Load_Top At_Offset_3 019a e21a | | Load 0x1,0x1a 019b 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 019c c5fe | | Store 0x2,-0x2 019d 00cf | | Action Mark_Auxiliary 019e 7815 |x | Jump 0x1b4 019f 4800 |H | Short_Literal 0x0 01a0 4800 |H | Short_Literal 0x0 01a1 4805 |H | Short_Literal 0x5 01a2 e21a | | Load 0x1,0x1a 01a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10 01a4 00d8 | | Load_Top At_Offset_0 01a5 e20f | | Load 0x1,0xf 01a6 0260 | ` | Execute Discrete,In_Type 01a7 7001 |p | Jump_Nonzero 0x1a9 01a8 0801 | | Execute_Immediate Raise,0x1 01a9 e5fe | | Load 0x2,-0x2 01aa e21a | | Load 0x1,0x1a 01ab 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 01ac 00ea | | Load_Encached Null_String_Cache 01ad e002 | | Load 0x0,0x2 01ae 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01af e5fe | | Load 0x2,-0x2 01b0 e21a | | Load 0x1,0x1a 01b1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 01b2 c5fe | | Store 0x2,-0x2 01b3 00c9 | | Action Pop_Auxiliary_Loop 01b4 e5fe | | Load 0x2,-0x2 01b5 e21a | | Load 0x1,0x1a 01b6 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 01b7 6fe7 |o | Jump_Zero 0x19f 01b8 00ce | | Action Pop_Auxiliary 01b9 e008 | | Load 0x0,0x8 01ba 0257 | W | Execute Discrete,Raise 01bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bc 0000 0000 | | .BLANK 0000[0x4] 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 e5fd | | Load 0x2,-0x3 01c4 e5fe | | Load 0x2,-0x2 01c5 e5ff | | Load 0x2,-0x1 01c6 e002 | | Load 0x0,0x2 01c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c8 c5fd | | Store 0x2,-0x3 01c9 e008 | | Load 0x0,0x8 01ca 0257 | W | Execute Discrete,Raise 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 01db | | Execute Vector,Length 01d5 700e |p | Jump_Nonzero 0x1e4 01d6 482e |H. | Short_Literal 0x2e 01d7 00db | | Load_Top At_Offset_3 01d8 e001 | | Load 0x0,0x1 01d9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01da e009 | | Load 0x0,0x9 01db 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01dd 01cb | | Execute Vector,Append 01de e219 | | Load 0x1,0x19 01df 01cc | | Execute Vector,Catenate 01e0 e009 | | Load 0x0,0x9 01e1 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01e2 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01e3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e4 482e |H. | Short_Literal 0x2e 01e5 00db | | Load_Top At_Offset_3 01e6 e001 | | Load 0x0,0x1 01e7 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38 01e8 e009 | | Load 0x0,0x9 01e9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01ea 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01eb 01cb | | Execute Vector,Append 01ec e5fe | | Load 0x2,-0x2 01ed 01cc | | Execute Vector,Catenate 01ee e009 | | Load 0x0,0x9 01ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01f0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01f2 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 01fc 01db | | Execute Vector,Length 01fd 0e00 | | Execute_Immediate Not_Equal,0x0 01fe 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01ff 0000 | | .XXX[0x1] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 0205 | | .CONST 0x0205 ; Address of begin 0201 023c | < | .CONST 0x023c ; Address of exception handler 0202 0002 | | .CONST 0x0002 ; Number of locals 0203 INIT_0200: 0203 e21c | | Load 0x1,0x1c 0204 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 0205 BODY_0200: 0205 e7fe | | Load 0x3,-0x2 0206 e21d | | Load 0x1,0x1d 0207 01cc | | Execute Vector,Catenate 0208 e21c | | Load 0x1,0x1c 0209 1820 | | Execute Package,Field_Execute,Field_Number 0x20 020a 0031 | 1 | Store_Top Heap_Access,At_Offset_1 020b 00d8 | | Load_Top At_Offset_0 020c 4829 |H) | Short_Literal 0x29 020d e7ff | | Load 0x3,-0x1 020e e20f | | Load 0x1,0xf 020f 0122 | " | Execute Any,Make_Root_Type 0210 011c | | Execute Any,Convert_Unchecked 0211 1c01 | | Execute_Immediate Run_Utility,0x1 0212 0092 02ef | | Action Push_String_Extended,0x2ef ; " => (" 0214 01cc | | Execute Vector,Catenate 0215 e7fe | | Load 0x3,-0x2 0216 01cc | | Execute Vector,Catenate 0217 01cb | | Execute Vector,Append 0218 821e | | Call 0x1,0x1e 0219 0031 | 1 | Store_Top Heap_Access,At_Offset_1 021a 00ea | | Load_Encached Null_String_Cache 021b 4804 |H | Short_Literal 0x4 021c 00da | | Load_Top At_Offset_2 021d e21c | | Load 0x1,0x1c 021e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 021f 6028 |`( | Indirect_Literal Discrete,0x248,{0x00000000, 0x7fffffff} 0220 4803 |H | Short_Literal 0x3 0221 00db | | Load_Top At_Offset_3 0222 e21c | | Load 0x1,0x1c 0223 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 0224 00d8 | | Load_Top At_Offset_0 0225 e001 | | Load 0x0,0x1 0226 1b1c | | Execute Package,Field_Read,Field_Number 0x1c 0227 0260 | ` | Execute Discrete,In_Type 0228 7001 |p | Jump_Nonzero 0x22a 0229 0801 | | Execute_Immediate Raise,0x1 022a 00ea | | Load_Encached Null_String_Cache 022b 4802 |H | Short_Literal 0x2 022c e602 | | Load 0x3,0x2 022d e21c | | Load 0x1,0x1c 022e 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 022f 00ea | | Load_Encached Null_String_Cache 0230 4801 |H | Short_Literal 0x1 0231 e602 | | Load 0x3,0x2 0232 e21c | | Load 0x1,0x1c 0233 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0234 e5ff | | Load 0x2,-0x1 0235 e001 | | Load 0x0,0x1 0236 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32 0237 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0238 e7ff | | Load 0x3,-0x1 0239 e5fc | | Load 0x2,-0x4 023a 01d6 | | Execute Vector,Field_Write 023b 4503 |E | Exit_Suprogram New_Top_Offset 0x3 023c TRAP_0200: 023c 010e | | Execute Exception,Is_Constraint_Error 023d 7003 |p | Jump_Nonzero 0x241 023e e008 | | Load 0x0,0x8 023f 010f | | Execute Exception,Equal 0240 6803 |h | Jump_Zero 0x244 0241 4801 |H | Short_Literal 0x1 0242 a403 | | Store_Unchecked 0x2,0x3 0243 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0244 0100 | | Execute Exception,Raise 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff} 024c 0000 0000 | | .BLANK 0000[0x4] 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 027c | | | .CONST 0x027c ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e404 | | Load 0x2,0x4 0254 8222 | " | Call 0x1,0x22 0255 680b |h | Jump_Zero 0x261 0256 482c |H, | Short_Literal 0x2c 0257 485f |H_ | Short_Literal 0x5f 0258 e404 | | Load 0x2,0x4 0259 01ca | | Execute Vector,Prepend 025a 01cb | | Execute Vector,Append 025b e5fd | | Load 0x2,-0x3 025c 01cc | | Execute Vector,Catenate 025d e21a | | Load 0x1,0x1a 025e 1820 | | Execute Package,Field_Execute,Field_Number 0x20 025f a405 | | Store_Unchecked 0x2,0x5 0260 7813 |x | Jump 0x274 0261 e402 | | Load 0x2,0x2 0262 6805 |h | Jump_Zero 0x268 0263 e5fd | | Load 0x2,-0x3 0264 e21a | | Load 0x1,0x1a 0265 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0266 a405 | | Store_Unchecked 0x2,0x5 0267 780c |x | Jump 0x274 0268 e5fb | | Load 0x2,-0x5 0269 0092 02f0 | | Action Push_String_Extended,0x2f0 ; "Format information file \x22" 026b e5fe | | Load 0x2,-0x2 026c 01cc | | Execute Vector,Catenate 026d 0092 02f1 | | Action Push_String_Extended,0x2f1 ; "\x22 does not exist" 026f 01cc | | Execute Vector,Catenate 0270 e002 | | Load 0x0,0x2 0271 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0272 8220 | | Call 0x1,0x20 0273 c5fb | | Store 0x2,-0x5 0274 e405 | | Load 0x2,0x5 0275 0092 02f2 | | Action Push_String_Extended,0x2f2 ; "format information file " 0277 e404 | | Load 0x2,0x4 0278 01cc | | Execute Vector,Catenate 0279 821f | | Call 0x1,0x1f 027a c405 | | Store 0x2,0x5 027b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 027c TRAP_0250: 027c 010e | | Execute Exception,Is_Constraint_Error 027d 680d |h | Jump_Zero 0x28b 027e e5fb | | Load 0x2,-0x5 027f 0092 02ec | | Action Push_String_Extended,0x2ec ; "Syntax errors have been detected in format information file " 0281 e404 | | Load 0x2,0x4 0282 01cc | | Execute Vector,Catenate 0283 0092 02f3 | | Action Push_String_Extended,0x2f3 ; " (Verify that parentheses are balanced)" 0285 01cc | | Execute Vector,Catenate 0286 e002 | | Load 0x0,0x2 0287 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0288 8220 | | Call 0x1,0x20 0289 c5fb | | Store 0x2,-0x5 028a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 028b 00d8 | | Load_Top At_Offset_0 028c 0107 | | Execute Exception,Get_Name 028d 4950 |IP | Short_Literal 0x150 028e 495f |I_ | Short_Literal 0x15f 028f 0262 | b | Execute Discrete,In_Range 0290 7006 |p | Jump_Nonzero 0x297 0291 00d8 | | Load_Top At_Offset_0 0292 0107 | | Execute Exception,Get_Name 0293 4920 |I | Short_Literal 0x120 0294 492f |I/ | Short_Literal 0x12f 0295 0262 | b | Execute Discrete,In_Range 0296 6821 |h! | Jump_Zero 0x2b8 0297 e402 | | Load 0x2,0x2 0298 6812 |h | Jump_Zero 0x2ab 0299 e5fb | | Load 0x2,-0x5 029a 0092 02f4 | | Action Push_String_Extended,0x2f4 ; "Format information file " 029c e404 | | Load 0x2,0x4 029d 01cc | | Execute Vector,Catenate 029e 0092 02f5 | | Action Push_String_Extended,0x2f5 ; " is empty or does not exist" 02a0 01cc | | Execute Vector,Catenate 02a1 e002 | | Load 0x0,0x2 02a2 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 02a3 e002 | | Load 0x0,0x2 02a4 1813 | | Execute Package,Field_Execute,Field_Number 0x13 02a5 c5fb | | Store 0x2,-0x5 02a6 e5fd | | Load 0x2,-0x3 02a7 e21a | | Load 0x1,0x1a 02a8 1820 | | Execute Package,Field_Execute,Field_Number 0x20 02a9 a405 | | Store_Unchecked 0x2,0x5 02aa 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02ab e5fb | | Load 0x2,-0x5 02ac 0092 02f4 | | Action Push_String_Extended,0x2f4 ; "Format information file " 02ae e404 | | Load 0x2,0x4 02af 01cc | | Execute Vector,Catenate 02b0 0092 02f5 | | Action Push_String_Extended,0x2f5 ; " is empty or does not exist" 02b2 01cc | | Execute Vector,Catenate 02b3 e002 | | Load 0x0,0x2 02b4 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02b5 8220 | | Call 0x1,0x20 02b6 c5fb | | Store 0x2,-0x5 02b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02b8 00d8 | | Load_Top At_Offset_0 02b9 0107 | | Execute Exception,Get_Name 02ba 4930 |I0 | Short_Literal 0x130 02bb 493f |I? | Short_Literal 0x13f 02bc 0262 | b | Execute Discrete,In_Range 02bd 680d |h | Jump_Zero 0x2cb 02be e5fb | | Load 0x2,-0x5 02bf 0092 02f6 | | Action Push_String_Extended,0x2f6 ; "Unable to open format information file " 02c1 e404 | | Load 0x2,0x4 02c2 01cc | | Execute Vector,Catenate 02c3 0092 02f7 | | Action Push_String_Extended,0x2f7 ; " (Use_Error)" 02c5 01cc | | Execute Vector,Catenate 02c6 e002 | | Load 0x0,0x2 02c7 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 02c8 8220 | | Call 0x1,0x20 02c9 c5fb | | Store 0x2,-0x5 02ca 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02cb e008 | | Load 0x0,0x8 02cc 010f | | Execute Exception,Equal 02cd 6811 |h | Jump_Zero 0x2df 02ce 4801 |H | Short_Literal 0x1 02cf e5fb | | Load 0x2,-0x5 02d0 e002 | | Load 0x0,0x2 02d1 1818 | | Execute Package,Field_Execute,Field_Number 0x18 02d2 6802 |h | Jump_Zero 0x2d5 02d3 00d8 | | Load_Top At_Offset_0 02d4 0101 | | Execute Exception,Reraise 02d5 e5fb | | Load 0x2,-0x5 02d6 0092 02ec | | Action Push_String_Extended,0x2ec ; "Syntax errors have been detected in format information file " 02d8 e404 | | Load 0x2,0x4 02d9 01cc | | Execute Vector,Catenate 02da e002 | | Load 0x0,0x2 02db 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 02dc 8220 | | Call 0x1,0x20 02dd c5fb | | Store 0x2,-0x5 02de 4501 |E | Exit_Suprogram New_Top_Offset 0x1 02df 0100 | | Execute Exception,Raise 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; STRING TABLE 02e0 ; -------------------------------------------------------------------------------------- 02e0 0032 | 2 | .STRTAB 0x0032->0x02f9 ; "NIL" 02e1 0033 | 3 | .STRTAB 0x0033->0x02fa ; "FONT_FAMILY" 02e2 003c | < | .STRTAB 0x003c->0x0300 ; "FONT_STYLE" 02e3 0044 | D | .STRTAB 0x0044->0x0305 ; "POINT_SIZE" 02e4 004c | L | .STRTAB 0x004c->0x030a ; "USER_INFO" 02e5 0053 | S | .STRTAB 0x0053->0x030e ; "FORMAT_INFORMATION" 02e6 0063 | c | .STRTAB 0x0063->0x0317 ; "others => Unspecified" 02e7 0076 | v | .STRTAB 0x0076->0x0322 ; "Point_Size=Integer_Valued,others=Unspecified" 02e8 00a0 | | .STRTAB 0x00a0->0x0338 ; "Point_Size=0,others=()" 02e9 00b4 | | .STRTAB 0x00b4->0x0343 ; "Font_Family=FF,Font_Style=FS,Point_Size=PS,User_Info=UI" 02ea 00e9 | | .STRTAB 0x00e9->0x035e ; ",Font_Family=<>,Font_Style=<>,Point_Size=<>,User_Info=<>" 02eb 011f | | .STRTAB 0x011f->0x037a ; "Specified document is not open, formatting style information cannot be initialized" 02ec 016f | o | .STRTAB 0x016f->0x03a3 ; "Syntax errors have been detected in format information file " 02ed 01a9 | | .STRTAB 0x01a9->0x03c1 ; "Unexpected exception in Format_Information.Initialize (" 02ee 01de | | .STRTAB 0x01de->0x03dd ; "Errors detected while parsing " 02ef 01fa | | .STRTAB 0x01fa->0x03ec ; " => (" 02f0 01fd | | .STRTAB 0x01fd->0x03ee ; "Format information file \x22" 02f1 0214 | | .STRTAB 0x0214->0x03fb ; "\x22 does not exist" 02f2 0222 | " | .STRTAB 0x0222->0x0403 ; "format information file " 02f3 0238 | 8 | .STRTAB 0x0238->0x040f ; " (Verify that parentheses are balanced)" 02f4 025d | ] | .STRTAB 0x025d->0x0422 ; "Format information file " 02f5 0273 | s | .STRTAB 0x0273->0x042e ; " is empty or does not exist" 02f6 028c | | .STRTAB 0x028c->0x043c ; "Unable to open format information file " 02f7 02b1 | | .STRTAB 0x02b1->0x044f ; " (Use_Error)" 02f8 02bb | | .STREND 0x02bb->0x0455 02f9 4e49 4c46 |NILF| .STRTAB_STRINGS 0456 0000 0000 | | .XXX[0x2] 0458 ; -------------------------------------------------------------------------------------- 0458 ; Debug Table 0458 ; -------------------------------------------------------------------------------------- 0458 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfca1,0x0000,0x0001,0x0000 045e 0002 0000 | | .XXX[0x9] 0460 0014 8000 | | 0462 060b d64a | J| 0464 8000 0401 | | 0466 b76c | l | 0467 0000 0000 | | .BLANK 0000[0x1a] 0481 0009 8000 | | .XXX[0x1c] 0483 3880 0038 |8 8| 0485 8468 0000 | h | 0487 8006 0005 | | 0489 8800 0000 | | 048b 22ae 0000 |" | 048d 1000 0000 | | 048f 1801 4000 | @ | 0491 0000 4000 | @ | 0493 0010 0000 | | 0495 0088 0000 | | 0497 0000 4000 | @ | 0499 0002 9000 | | 049b 0080 b1df | | 049d 0000 0000 | | .BLANK 0000[0x1d] 04ba 0001 3000 | 0 | .XXX[0x20] 04bc 0720 0007 | | 04be 108d 0000 | | 04c0 1000 c000 | | 04c2 b100 0000 | | 04c4 000a 4000 | @ | 04c6 0200 0000 | | 04c8 0500 2800 | ( | 04ca 0000 0800 | | 04cc 0002 0000 | | 04ce 0011 0000 | | 04d0 0000 0800 | | 04d2 0000 5200 | R | 04d4 0010 04b6 | | 04d6 f200 0010 | | 04d8 0693 c800 | | 04da 0000 0000 | | .BLANK 0000[0x1a] 04f4 2600 00e6 |& | .XXX[0x22] 04f6 0000 e211 | | 04f8 a000 0200 | | 04fa 1800 1620 | | 04fc 0000 0000 | | 04fe f000 0040 | @| 0500 0000 00e0 | | 0502 0500 0000 | | 0504 0100 0000 | | 0506 4000 0002 |@ | 0508 2000 0000 | | 050a 0100 0000 | | 050c 0a40 0002 | @ | 050e 0096 8340 | @| 0510 0002 00d1 | | 0512 3940 0002 |9@ | 0514 00c8 9f00 | | 0516 0000 0000 | | .BLANK 0000[0x17] 052d 04c0 001c | | .XXX[0x22] 052f c000 1c42 | B| 0531 3400 0040 |4 @| 0533 0300 02c4 | | 0535 0000 0000 | | 0537 1e00 0008 | | 0539 0000 001c | | 053b 00a0 0000 | | 053d 0020 0000 | | 053f 0800 0000 | | 0541 4400 0000 |D | 0543 0020 0000 | | 0545 0148 0000 | H | 0547 4012 d068 |@ h| 0549 0000 401a | @ | 054b 2728 0000 |'( | 054d 4019 13e0 |@ | 054f 0000 0000 | | .BLANK 0000[0x25] 0574 8014 0000 | | .XXX[0xb] 0576 0000 0000 | | 0578 0100 0000 | | 057a 0880 0000 | | 057c 0004 0000 | | 057e 0028 | ( | 057f 0000 0000 | | .BLANK 0000[0x2e] 05ad 1002 8000 | | .XXX[0xb] 05af 0000 0000 | | 05b1 0020 0000 | | 05b3 0110 0000 | | 05b5 0000 8000 | | 05b7 0005 | | 05b8 0000 0000 | | .BLANK 0000[0x48]