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