|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1b488b
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 02e0 | | .CONST 0x02e0 ; 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 007b | { | .CONST 0x007b ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 0093 0000 | | push_full_address 0x0 000d 60a2 |` | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00010000} 000e 0273 | s | Execute Discrete,Plus 000f 0129 | ) | Execute Any,Make_Visible 0010 4800 |H | Short_Literal 0x0 0011 4802 |H | Short_Literal 0x2 0012 029f 0083 | | Declare_Subprogram INIT_0080,For_Call 0014 03fe | | Declare_Type Discrete,Defined,Visible 0015 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated 0017 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0019 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated 001b 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated 001d 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated 001f 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated 0021 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated 0023 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0025 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0027 4820 |H | Short_Literal 0x20 0028 e002 | | Load 0x0,0x2 0029 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002a 1c07 | | Execute_Immediate Run_Utility,0x7 002b 0129 | ) | Execute Any,Make_Visible 002c 4820 |H | Short_Literal 0x20 002d e002 | | Load 0x0,0x2 002e 1b0e | | Execute Package,Field_Read,Field_Number 0xe 002f 1c07 | | Execute_Immediate Run_Utility,0x7 0030 0129 | ) | Execute Any,Make_Visible 0031 4820 |H | Short_Literal 0x20 0032 e002 | | Load 0x0,0x2 0033 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0034 1c07 | | Execute_Immediate Run_Utility,0x7 0035 0129 | ) | Execute Any,Make_Visible 0036 e20e | | Load 0x1,0xe 0037 029f 0283 | | Declare_Subprogram INIT_0280,For_Call 0039 4804 |H | Short_Literal 0x4 003a 032e | . | Declare_Type Record,Defined,Visible 003b 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated 003d 0093 0000 | | push_full_address 0x0 003f 606c |`l | Indirect_Literal Discrete,0xac,{0x80000000, 0x00010000} 0040 0273 | s | Execute Discrete,Plus 0041 e003 | | Load 0x0,0x3 0042 0273 | s | Execute Discrete,Plus 0043 e004 | | Load 0x0,0x4 0044 0273 | s | Execute Discrete,Plus 0045 00da | | Load_Top At_Offset_2 0046 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0047 e005 | | Load 0x0,0x5 0048 0386 | | Declare_Variable Package,Visible 0049 00d8 | | Load_Top At_Offset_0 004a 020f | | Execute Module,Activate 004b e006 | | Load 0x0,0x6 004c 00d9 | | Load_Top At_Offset_1 004d 0098 | | Execute Package,Field_Read_Dynamic 004e 02a0 | | Declare_Subprogram Null_Subprogram 004f 4801 |H | Short_Literal 0x1 0050 032e | . | Declare_Type Record,Defined,Visible 0051 00bf | | Action Accept_Activation 0052 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0053 00c7 | | Action Elaborate_Subprogram 0054 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call 0056 e007 | | Load 0x0,0x7 0057 00db | | Load_Top At_Offset_3 0058 0095 | | Execute Package,Field_Reference_Dynamic 0059 00c6 | | Action Check_Subprogram_Elaborated 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b 0093 0000 | | push_full_address 0x0 005d 604a |`J | Indirect_Literal Discrete,0xa8,{0x80000000, 0x00020000} 005e 0273 | s | Execute Discrete,Plus 005f e003 | | Load 0x0,0x3 0060 0273 | s | Execute Discrete,Plus 0061 e008 | | Load 0x0,0x8 0062 0273 | s | Execute Discrete,Plus 0063 4800 |H | Short_Literal 0x0 0064 0007 | | Action Break_Optional 0065 029d 021b | | Declare_Subprogram INIT_0218,For_Outer_Call 0067 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0068 00c7 | | Action Elaborate_Subprogram 0069 1d10 | | Execute_Immediate Reference_Lex_1,0x10 006a 00c7 | | Action Elaborate_Subprogram 006b 1d11 | | Execute_Immediate Reference_Lex_1,0x11 006c 00c7 | | Action Elaborate_Subprogram 006d 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 006f 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0070 00c7 | | Action Elaborate_Subprogram 0071 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0072 00c7 | | Action Elaborate_Subprogram 0073 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0074 00c7 | | Action Elaborate_Subprogram 0075 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0076 00c7 | | Action Elaborate_Subprogram 0077 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0078 00c7 | | Action Elaborate_Subprogram 0079 1d17 | | Execute_Immediate Reference_Lex_1,0x17 007a 00c7 | | Action Elaborate_Subprogram 007b BODY_0008: 007b 00bc | | Action Signal_Activated 007c 00bb | | Action Signal_Completion 007d 0000 0000 | | .XXX[0x3] 007f 0000 | | 0080 ; -------------------------------------------------------------------------------------- 0080 ; SUBPROGRAM 0080 ; -------------------------------------------------------------------------------------- 0080 0083 | | .CONST 0x0083 ; Address of begin 0081 0004 | | .CONST 0x0004 ; Address of exception handler 0082 0001 | | .CONST 0x0001 ; Number of locals 0083 BODY_0080: 0083 INIT_0080: 0083 4607 |F | Jump_Case 0x8 0084 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0085 7807 |x | Jump 0x8d ; case 0x1 0086 780a |x | Jump 0x91 ; case 0x2 0087 780e |x | Jump 0x96 ; case 0x3 0088 7811 |x | Jump 0x9a ; case 0x4 0089 7812 |x | Jump 0x9c ; case 0x5 008a 7813 |x | Jump 0x9e ; case 0x6 008b 7816 |x | Jump 0xa2 ; case 0x7 008c 4302 |C | .XXX[0x1] 008d 00da | | Load_Top At_Offset_2 008e 0091 02a3 | | Action Push_String_Extended_Indexed,0x2a3 ; "NO_STATE" 0090 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0091 00db | | Load_Top At_Offset_3 0092 00db | | Load_Top At_Offset_3 0093 00e0 | | Load_Encached Standard_Cache 0094 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0095 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0096 00da | | Load_Top At_Offset_2 0097 00e0 | | Load_Encached Standard_Cache 0098 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0099 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 009a 00db | | Load_Top At_Offset_3 009b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009c 00db | | Load_Top At_Offset_3 009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 009e e20e | | Load 0x1,0xe 009f 00dc | | Load_Top At_Offset_4 00a0 0267 | g | Execute Discrete,Predecessor 00a1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a2 e20e | | Load 0x1,0xe 00a3 00dc | | Load_Top At_Offset_4 00a4 0268 | h | Execute Discrete,Successor 00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00a6 0000 0000 | | .XXX[0x2] 00a8 8000 0000 | | .LITERAL {0x80000000, 0x00020000} 00ac 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00b0 8000 0000 | | .LITERAL {0x80000000, 0x00010000} 00b4 0000 0000 | | .BLANK 0000[0x4] 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e009 | | Load 0x0,0x9 00bc e21a | | Load 0x1,0x1a 00bd 0096 | | Execute Package,Entry 00be 00db | | Load_Top At_Offset_3 00bf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00c0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c1 0000 0000 | | .BLANK 0000[0x7] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00cd e00a | | Load 0x0,0xa 00ce e21a | | Load 0x1,0x1a 00cf 0096 | | Execute Package,Entry 00d0 00db | | Load_Top At_Offset_3 00d1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00d2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00d3 0000 0000 | | .BLANK 0000[0x5] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00df | | .CONST 0x00df ; Address of begin 00d9 00ed | | .CONST 0x00ed ; Address of exception handler 00da 0002 | | .CONST 0x0002 ; Number of locals 00db INIT_00d8: 00db e218 | | Load 0x1,0x18 00dc 0322 | " | Declare_Variable Record 00dd 00d8 | | Load_Top At_Offset_0 00de 1c00 | | Execute_Immediate Run_Utility,0x0 00df BODY_00d8: 00df e5fc | | Load 0x2,-0x4 00e0 e5fd | | Load 0x2,-0x3 00e1 e5fe | | Load 0x2,-0x2 00e2 e5ff | | Load 0x2,-0x1 00e3 8220 | | Call 0x1,0x20 00e4 00d9 | | Load_Top At_Offset_1 00e5 017d | } | Execute Record,Structure_Write 00e6 e5fb | | Load 0x2,-0x5 00e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00e8 00d9 | | Load_Top At_Offset_1 00e9 e00b | | Load 0x0,0xb 00ea e21a | | Load 0x1,0x1a 00eb 0096 | | Execute Package,Entry 00ec 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00ed TRAP_00d8: 00ed e00c | | Load 0x0,0xc 00ee e21a | | Load 0x1,0x1a 00ef 0098 | | Execute Package,Field_Read_Dynamic 00f0 010f | | Execute Exception,Equal 00f1 6802 |h | Jump_Zero 0xf4 00f2 e20d | | Load 0x1,0xd 00f3 0257 | W | Execute Discrete,Raise 00f4 0100 | | Execute Exception,Raise 00f5 0000 0000 | | .XXX[0x3] 00f7 0000 | | 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; SUBPROGRAM 00f8 ; -------------------------------------------------------------------------------------- 00f8 0104 | | .CONST 0x0104 ; Address of begin 00f9 0004 | | .CONST 0x0004 ; Address of exception handler 00fa 0004 | | .CONST 0x0004 ; Number of locals 00fb INIT_00f8: 00fb e218 | | Load 0x1,0x18 00fc 0322 | " | Declare_Variable Record 00fd 00d8 | | Load_Top At_Offset_0 00fe 1c00 | | Execute_Immediate Run_Utility,0x0 00ff 00d8 | | Load_Top At_Offset_0 0100 0322 | " | Declare_Variable Record 0101 00d8 | | Load_Top At_Offset_0 0102 1c00 | | Execute_Immediate Run_Utility,0x0 0103 00e1 | | Load_Encached Boolean_Cache 0104 BODY_00f8: 0104 00e1 | | Load_Encached Boolean_Cache 0105 00db | | Load_Top At_Offset_3 0106 e5fc | | Load 0x2,-0x4 0107 e5fe | | Load 0x2,-0x2 0108 e5ff | | Load 0x2,-0x1 0109 8221 | ! | Call 0x1,0x21 010a 00d1 | | Pop_Control Pop_Count_1 010b 0059 | Y | Store_Top Discrete,At_Offset_1 010c 00d8 | | Load_Top At_Offset_0 010d 680d |h | Jump_Zero 0x11b 010e e5fd | | Load 0x2,-0x3 010f 00db | | Load_Top At_Offset_3 0110 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0111 00d9 | | Load_Top At_Offset_1 0112 00e1 | | Load_Encached Boolean_Cache 0113 e5fc | | Load 0x2,-0x4 0114 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0115 e402 | | Load 0x2,0x2 0116 e00d | | Load 0x0,0xd 0117 e21a | | Load 0x1,0x1a 0118 0096 | | Execute Package,Entry 0119 005a | Z | Store_Top Discrete,At_Offset_2 011a 00d1 | | Pop_Control Pop_Count_1 011b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 011c 0000 0000 | | .BLANK 0000[0x4] 0120 ; -------------------------------------------------------------------------------------- 0120 ; SUBPROGRAM 0120 ; -------------------------------------------------------------------------------------- 0120 0128 | ( | .CONST 0x0128 ; Address of begin 0121 0004 | | .CONST 0x0004 ; Address of exception handler 0122 0003 | | .CONST 0x0003 ; Number of locals 0123 INIT_0120: 0123 e218 | | Load 0x1,0x18 0124 0322 | " | Declare_Variable Record 0125 00d8 | | Load_Top At_Offset_0 0126 1c00 | | Execute_Immediate Run_Utility,0x0 0127 00e1 | | Load_Encached Boolean_Cache 0128 BODY_0120: 0128 00e1 | | Load_Encached Boolean_Cache 0129 00da | | Load_Top At_Offset_2 012a e5fd | | Load 0x2,-0x3 012b e5fe | | Load 0x2,-0x2 012c e5ff | | Load 0x2,-0x1 012d 8221 | ! | Call 0x1,0x21 012e 00d1 | | Pop_Control Pop_Count_1 012f 0059 | Y | Store_Top Discrete,At_Offset_1 0130 00d8 | | Load_Top At_Offset_0 0131 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0132 0000 0000 | | .BLANK 0000[0x6] 0138 ; -------------------------------------------------------------------------------------- 0138 ; SUBPROGRAM 0138 ; -------------------------------------------------------------------------------------- 0138 0140 | @ | .CONST 0x0140 ; Address of begin 0139 0004 | | .CONST 0x0004 ; Address of exception handler 013a 0003 | | .CONST 0x0003 ; Number of locals 013b INIT_0138: 013b e218 | | Load 0x1,0x18 013c 0322 | " | Declare_Variable Record 013d 00d8 | | Load_Top At_Offset_0 013e 1c00 | | Execute_Immediate Run_Utility,0x0 013f 00e1 | | Load_Encached Boolean_Cache 0140 BODY_0138: 0140 00e1 | | Load_Encached Boolean_Cache 0141 00da | | Load_Top At_Offset_2 0142 e5fd | | Load 0x2,-0x3 0143 e5fe | | Load 0x2,-0x2 0144 e5ff | | Load 0x2,-0x1 0145 8221 | ! | Call 0x1,0x21 0146 00d1 | | Pop_Control Pop_Count_1 0147 0059 | Y | Store_Top Discrete,At_Offset_1 0148 00d8 | | Load_Top At_Offset_0 0149 6803 |h | Jump_Zero 0x14d 014a 00d9 | | Load_Top At_Offset_1 014b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 014c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 014d 4800 |H | Short_Literal 0x0 014e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 014f 0000 | | .XXX[0x1] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0158 | X | .CONST 0x0158 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0003 | | .CONST 0x0003 ; Number of locals 0153 INIT_0150: 0153 e218 | | Load 0x1,0x18 0154 0322 | " | Declare_Variable Record 0155 00d8 | | Load_Top At_Offset_0 0156 1c00 | | Execute_Immediate Run_Utility,0x0 0157 00e1 | | Load_Encached Boolean_Cache 0158 BODY_0150: 0158 00e1 | | Load_Encached Boolean_Cache 0159 00da | | Load_Top At_Offset_2 015a e5fd | | Load 0x2,-0x3 015b e5fe | | Load 0x2,-0x2 015c e5ff | | Load 0x2,-0x1 015d 8221 | ! | Call 0x1,0x21 015e 00d1 | | Pop_Control Pop_Count_1 015f 0059 | Y | Store_Top Discrete,At_Offset_1 0160 00d9 | | Load_Top At_Offset_1 0161 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0162 e002 | | Load 0x0,0x2 0163 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0164 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 0173 | s | .CONST 0x0173 ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0003 | | .CONST 0x0003 ; Number of locals 016b INIT_0168: 016b e218 | | Load 0x1,0x18 016c 0322 | " | Declare_Variable Record 016d 00d8 | | Load_Top At_Offset_0 016e 1c00 | | Execute_Immediate Run_Utility,0x0 016f e00e | | Load 0x0,0xe 0170 e21a | | Load 0x1,0x1a 0171 0098 | | Execute Package,Field_Read_Dynamic 0172 0007 | | Action Break_Optional 0173 BODY_0168: 0173 e5fe | | Load 0x2,-0x2 0174 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0175 e00f | | Load 0x0,0xf 0176 e21a | | Load 0x1,0x1a 0177 0096 | | Execute Package,Entry 0178 0039 | 9 | Store_Top Access,At_Offset_1 0179 00cf | | Action Mark_Auxiliary 017a 7826 |x& | Jump 0x1a1 017b 00da | | Load_Top At_Offset_2 017c 00da | | Load_Top At_Offset_2 017d e010 | | Load 0x0,0x10 017e e21a | | Load 0x1,0x1a 017f 0096 | | Execute Package,Entry 0180 003b | ; | Store_Top Access,At_Offset_3 0181 00d1 | | Pop_Control Pop_Count_1 0182 00da | | Load_Top At_Offset_2 0183 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0184 e002 | | Load 0x0,0x2 0185 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0186 e5ff | | Load 0x2,-0x1 0187 01df | | Execute Vector,Equal 0188 6817 |h | Jump_Zero 0x1a0 0189 00da | | Load_Top At_Offset_2 018a 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 018b e002 | | Load 0x0,0x2 018c 1813 | | Execute Package,Field_Execute,Field_Number 0x13 018d 0092 02a6 | | Action Push_String_Extended,0x2a6 ; "," 018f 01cc | | Execute Vector,Catenate 0190 00db | | Load_Top At_Offset_3 0191 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0192 e002 | | Load 0x0,0x2 0193 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0194 01cc | | Execute Vector,Catenate 0195 0092 02a7 | | Action Push_String_Extended,0x2a7 ; "/ State ->" 0197 01cc | | Execute Vector,Catenate 0198 00db | | Load_Top At_Offset_3 0199 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 019a e20e | | Load 0x1,0xe 019b 011c | | Execute Any,Convert_Unchecked 019c 1c01 | | Execute_Immediate Run_Utility,0x1 019d 01cc | | Execute Vector,Catenate 019e e011 | | Load 0x0,0x11 019f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 01a0 00c9 | | Action Pop_Auxiliary_Loop 01a1 00d9 | | Load_Top At_Offset_1 01a2 e012 | | Load 0x0,0x12 01a3 e21a | | Load 0x1,0x1a 01a4 0096 | | Execute Package,Entry 01a5 77d5 |w | Jump_Nonzero 0x17b 01a6 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01a7 0000 | | .XXX[0x1] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab 4800 |H | Short_Literal 0x0 01ac 00db | | Load_Top At_Offset_3 01ad 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ae 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 01af 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 01b0 e007 | | Load 0x0,0x7 01b1 e21a | | Load 0x1,0x1a 01b2 0096 | | Execute Package,Entry 01b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01b4 0000 0000 | | .BLANK 0000[0x4] 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 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01bd e002 | | Load 0x0,0x2 01be 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01bf e5fe | | Load 0x2,-0x2 01c0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01c1 e002 | | Load 0x0,0x2 01c2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c3 01df | | Execute Vector,Equal 01c4 00db | | Load_Top At_Offset_3 01c5 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01c6 e002 | | Load 0x0,0x2 01c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c8 e5fe | | Load 0x2,-0x2 01c9 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01ca e002 | | Load 0x0,0x2 01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cc 01df | | Execute Vector,Equal 01cd 0279 | y | Execute Discrete,And 01ce 00db | | Load_Top At_Offset_3 01cf 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01d0 e002 | | Load 0x0,0x2 01d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d2 e5fe | | Load 0x2,-0x2 01d3 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 01d4 e002 | | Load 0x0,0x2 01d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d6 01df | | Execute Vector,Equal 01d7 0279 | y | Execute Discrete,And 01d8 6802 |h | Jump_Zero 0x1db 01d9 4800 |H | Short_Literal 0x0 01da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01db 00da | | Load_Top At_Offset_2 01dc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01dd e002 | | Load 0x0,0x2 01de 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01df e5fe | | Load 0x2,-0x2 01e0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01e1 e002 | | Load 0x0,0x2 01e2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01e3 01c1 | | Execute Vector,Less 01e4 6802 |h | Jump_Zero 0x1e7 01e5 4fff |O | Short_Literal -0x1 01e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e7 4801 |H | Short_Literal 0x1 01e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01e9 0000 0000 | | .BLANK 0000[0x7] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f3 | | .CONST 0x01f3 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0001 | | .CONST 0x0001 ; Number of locals 01f3 BODY_01f0: 01f3 INIT_01f0: 01f3 0092 02a8 | | Action Push_String_Extended,0x2a8 ; "Source ->" 01f5 00db | | Load_Top At_Offset_3 01f6 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01f7 e002 | | Load 0x0,0x2 01f8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01f9 01cc | | Execute Vector,Catenate 01fa 0092 02a9 | | Action Push_String_Extended,0x2a9 ; " / Destination ->" 01fc 01cc | | Execute Vector,Catenate 01fd 00db | | Load_Top At_Offset_3 01fe 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 01ff e002 | | Load 0x0,0x2 0200 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0201 01cc | | Execute Vector,Catenate 0202 0092 02aa | | Action Push_String_Extended,0x2aa ; " / Qualification ->" 0204 01cc | | Execute Vector,Catenate 0205 00db | | Load_Top At_Offset_3 0206 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0207 e002 | | Load 0x0,0x2 0208 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0209 01cc | | Execute Vector,Catenate 020a 0092 02ab | | Action Push_String_Extended,0x2ab ; " / State ->" 020c 01cc | | Execute Vector,Catenate 020d 00db | | Load_Top At_Offset_3 020e 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 020f e20e | | Load 0x1,0xe 0210 011c | | Execute Any,Convert_Unchecked 0211 1c01 | | Execute_Immediate Run_Utility,0x1 0212 01cc | | Execute Vector,Catenate 0213 e011 | | Load 0x0,0x11 0214 184f | O | Execute Package,Field_Execute,Field_Number 0x4f 0215 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0216 0000 0000 | | .XXX[0x2] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 021f | | .CONST 0x021f ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0002 | | .CONST 0x0002 ; Number of locals 021b INIT_0218: 021b e218 | | Load 0x1,0x18 021c 0322 | " | Declare_Variable Record 021d 00d8 | | Load_Top At_Offset_0 021e 1c00 | | Execute_Immediate Run_Utility,0x0 021f BODY_0218: 021f 00d8 | | Load_Top At_Offset_0 0220 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0221 e002 | | Load 0x0,0x2 0222 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0223 00d1 | | Pop_Control Pop_Count_1 0224 00d8 | | Load_Top At_Offset_0 0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0226 e002 | | Load 0x0,0x2 0227 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0228 00d1 | | Pop_Control Pop_Count_1 0229 00d8 | | Load_Top At_Offset_0 022a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 022b e002 | | Load 0x0,0x2 022c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 022d 00d1 | | Pop_Control Pop_Count_1 022e 00d8 | | Load_Top At_Offset_0 022f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0230 e5ff | | Load 0x2,-0x1 0231 e002 | | Load 0x0,0x2 0232 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0233 00d1 | | Pop_Control Pop_Count_1 0234 00d8 | | Load_Top At_Offset_0 0235 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0236 e5fe | | Load 0x2,-0x2 0237 e002 | | Load 0x0,0x2 0238 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0239 00d1 | | Pop_Control Pop_Count_1 023a 00d8 | | Load_Top At_Offset_0 023b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 023c e5fd | | Load 0x2,-0x3 023d e002 | | Load 0x0,0x2 023e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 023f 00d1 | | Pop_Control Pop_Count_1 0240 e5fc | | Load 0x2,-0x4 0241 00d9 | | Load_Top At_Offset_1 0242 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0243 00d8 | | Load_Top At_Offset_0 0244 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4 0245 0000 0000 | | .XXX[0x3] 0247 0000 | | 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 0253 | S | .CONST 0x0253 ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0003 | | .CONST 0x0003 ; Number of locals 024b INIT_0248: 024b e218 | | Load 0x1,0x18 024c 0322 | " | Declare_Variable Record 024d 00d8 | | Load_Top At_Offset_0 024e 1c00 | | Execute_Immediate Run_Utility,0x0 024f e00e | | Load 0x0,0xe 0250 e21a | | Load 0x1,0x1a 0251 0098 | | Execute Package,Field_Read_Dynamic 0252 0007 | | Action Break_Optional 0253 BODY_0248: 0253 4800 |H | Short_Literal 0x0 0254 a5fb | | Store_Unchecked 0x2,-0x5 0255 e5fd | | Load 0x2,-0x3 0256 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0257 e00f | | Load 0x0,0xf 0258 e21a | | Load 0x1,0x1a 0259 0096 | | Execute Package,Entry 025a 0039 | 9 | Store_Top Access,At_Offset_1 025b 00cf | | Action Mark_Auxiliary 025c 781b |x | Jump 0x278 025d 00da | | Load_Top At_Offset_2 025e 00da | | Load_Top At_Offset_2 025f e010 | | Load 0x0,0x10 0260 e21a | | Load 0x1,0x1a 0261 0096 | | Execute Package,Entry 0262 003b | ; | Store_Top Access,At_Offset_3 0263 00d1 | | Pop_Control Pop_Count_1 0264 00da | | Load_Top At_Offset_2 0265 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0266 e002 | | Load 0x0,0x2 0267 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0268 e5ff | | Load 0x2,-0x1 0269 01df | | Execute Vector,Equal 026a 00db | | Load_Top At_Offset_3 026b 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 026c e002 | | Load 0x0,0x2 026d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 026e e5fe | | Load 0x2,-0x2 026f 01df | | Execute Vector,Equal 0270 0279 | y | Execute Discrete,And 0271 6805 |h | Jump_Zero 0x277 0272 00da | | Load_Top At_Offset_2 0273 e5fc | | Load 0x2,-0x4 0274 017d | } | Execute Record,Structure_Write 0275 4801 |H | Short_Literal 0x1 0276 a5fb | | Store_Unchecked 0x2,-0x5 0277 00c9 | | Action Pop_Auxiliary_Loop 0278 00d9 | | Load_Top At_Offset_1 0279 e012 | | Load 0x0,0x12 027a e21a | | Load 0x1,0x1a 027b 0096 | | Execute Package,Entry 027c 77e0 |w | Jump_Nonzero 0x25d 027d 4504 |E | Exit_Suprogram New_Top_Offset 0x4 027e 0000 0000 | | .XXX[0x2] 0280 ; -------------------------------------------------------------------------------------- 0280 ; SUBPROGRAM 0280 ; -------------------------------------------------------------------------------------- 0280 0283 | | .CONST 0x0283 ; Address of begin 0281 0004 | | .CONST 0x0004 ; Address of exception handler 0282 0001 | | .CONST 0x0001 ; Number of locals 0283 BODY_0280: 0283 INIT_0280: 0283 4601 |F | Jump_Case 0x2 0284 7801 |x | Jump 0x286 ; case 0x0 0285 7813 |x | Jump 0x299 ; case 0x1 0286 00da | | Load_Top At_Offset_2 0287 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 0288 0125 | % | Execute Any,Set_Constraint 0289 00da | | Load_Top At_Offset_2 028a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 028b 1c00 | | Execute_Immediate Run_Utility,0x0 028c 00da | | Load_Top At_Offset_2 028d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 028e 0125 | % | Execute Any,Set_Constraint 028f 00da | | Load_Top At_Offset_2 0290 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0291 1c00 | | Execute_Immediate Run_Utility,0x0 0292 00da | | Load_Top At_Offset_2 0293 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0294 0125 | % | Execute Any,Set_Constraint 0295 00da | | Load_Top At_Offset_2 0296 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 0297 1c00 | | Execute_Immediate Run_Utility,0x0 0298 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 0299 00da | | Load_Top At_Offset_2 029a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 029b 0125 | % | Execute Any,Set_Constraint 029c 00da | | Load_Top At_Offset_2 029d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 029e 0125 | % | Execute Any,Set_Constraint 029f 00da | | Load_Top At_Offset_2 02a0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 02a1 0125 | % | Execute Any,Set_Constraint 02a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 02a3 ; -------------------------------------------------------------------------------------- 02a3 ; STRING TABLE 02a3 ; -------------------------------------------------------------------------------------- 02a3 0014 | | .STRTAB 0x0014->0x02ad ; "NO_STATE" 02a4 001a | | .STRTAB 0x001a->0x02b1 ; "LINKED" 02a5 001e | | .STRTAB 0x001e->0x02b4 ; "UNLINKED" 02a6 0024 | $ | .STRTAB 0x0024->0x02b8 ; "," 02a7 0023 | # | .STRTAB 0x0023->0x02b8 ; "/ State ->" 02a8 002b | + | .STRTAB 0x002b->0x02bd ; "Source ->" 02a9 0032 | 2 | .STRTAB 0x0032->0x02c2 ; " / Destination ->" 02aa 0041 | A | .STRTAB 0x0041->0x02ca ; " / Qualification ->" 02ab 0052 | R | .STRTAB 0x0052->0x02d4 ; " / State ->" 02ac 005b | [ | .STREND 0x005b->0x02d9 02ad 4e4f 5f53 |NO_S| .STRTAB_STRINGS 02da 0000 0000 | | .BLANK 0000[0x6] 02e0 ; -------------------------------------------------------------------------------------- 02e0 ; Debug Table 02e0 ; -------------------------------------------------------------------------------------- 02e0 0004 0008 | | .DEBUG4 0x0004,0x0008,0x54f0,0x0000,0x0001,0x0011 02e6 000b 032a | *| .DBG4T 0x000b,0x032a,0x8000,0x8000 02ea 0052 034a | R J| .DBG4T 0x0052,0x034a,0x8000,0x8000 02ee 0083 0000 | | .DBG4T 0x0083,0x0000,0x0005,0x0000 02f2 00bb 0368 | h| .DBG4T 0x00bb,0x0368,0x0001,0x0000 02f6 00cb 036b | k| .DBG4T 0x00cb,0x036b,0x0001,0x0000 02fa 00db 036e | n| .DBG4T 0x00db,0x036e,0x0001,0x0000 02fe 00fb 0374 | t| .DBG4T 0x00fb,0x0374,0x0001,0x0000 0302 0123 037c | # || .DBG4T 0x0123,0x037c,0x0002,0x0000 0306 013b 0382 | ; | .DBG4T 0x013b,0x0382,0x0002,0x0000 030a 0153 038a | S | .DBG4T 0x0153,0x038a,0x0002,0x0000 030e 016b 0390 | k | .DBG4T 0x016b,0x0390,0x0001,0x4000 0312 01ab 039e | | .DBG4T 0x01ab,0x039e,0x0001,0x0000 0316 01bb 03a1 | | .DBG4T 0x01bb,0x03a1,0x0002,0x0000 031a 01f3 03a8 | | .DBG4T 0x01f3,0x03a8,0x0001,0x0000 031e 021b 03ab | | .DBG4T 0x021b,0x03ab,0x0002,0x0000 0322 024b 03b6 | K | .DBG4T 0x024b,0x03b6,0x0001,0x4000 0326 0283 0000 | | .DBG4T 0x0283,0x0000,0x0005,0x0000 032a ; -------------------------------------------------------------------------------------- 032a ; Debug chain 032a ; -------------------------------------------------------------------------------------- 032a 000f 0000 | | .DBGLEN 0x000f,0x0000 032c 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x0017,0x0019,0x001b,0x001d,0x001f,0x0021,0x0023,0x0025,0x0027,0x003b,0x003d,0x004b 033b 0001 0003 | | .XXX[0xf] 033d 0004 0005 | | 033f 0006 0007 | | 0341 0008 0009 | | 0343 000a 000b | | 0345 000c 000d | | 0347 000e 000f | | 0349 0010 | | 034a ; -------------------------------------------------------------------------------------- 034a ; Debug chain 034a ; -------------------------------------------------------------------------------------- 034a 000e 0000 | | .DBGLEN 0x000e,0x0000 034c 0052 0054 | R T| .DBGLNO 0x0052,0x0054,0x0056,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079 035a 0004 0005 | | .XXX[0xe] 035c 0006 0007 | | 035e 0008 0009 | | 0360 000a 000b | | 0362 000c 000d | | 0364 000e 000f | | 0366 0010 0011 | | 0368 ; -------------------------------------------------------------------------------------- 0368 ; Debug chain 0368 ; -------------------------------------------------------------------------------------- 0368 0000 0001 | | .DBGLEN 0x0000,0x0001 036a 00bb | | .DBGLNO 0x00bb 036b ; -------------------------------------------------------------------------------------- 036b ; Debug chain 036b ; -------------------------------------------------------------------------------------- 036b 0000 0001 | | .DBGLEN 0x0000,0x0001 036d 00cb | | .DBGLNO 0x00cb 036e ; -------------------------------------------------------------------------------------- 036e ; Debug chain 036e ; -------------------------------------------------------------------------------------- 036e 0001 0003 | | .DBGLEN 0x0001,0x0003 0370 00db 00df | | .DBGLNO 0x00db,0x00df,0x00e6,0x00f2 0374 ; -------------------------------------------------------------------------------------- 0374 ; Debug chain 0374 ; -------------------------------------------------------------------------------------- 0374 0002 0004 | | .DBGLEN 0x0002,0x0004 0376 00fb 0103 | | .DBGLNO 0x00fb,0x0103,0x0104,0x010c,0x010e,0x0111 037c ; -------------------------------------------------------------------------------------- 037c ; Debug chain 037c ; -------------------------------------------------------------------------------------- 037c 0002 0002 | | .DBGLEN 0x0002,0x0002 037e 0123 0127 | # '| .DBGLNO 0x0123,0x0127,0x0128,0x0130 0382 ; -------------------------------------------------------------------------------------- 0382 ; Debug chain 0382 ; -------------------------------------------------------------------------------------- 0382 0002 0004 | | .DBGLEN 0x0002,0x0004 0384 013b 013f | ; ?| .DBGLNO 0x013b,0x013f,0x0140,0x0148,0x014a,0x014d 038a ; -------------------------------------------------------------------------------------- 038a ; Debug chain 038a ; -------------------------------------------------------------------------------------- 038a 0002 0002 | | .DBGLEN 0x0002,0x0002 038c 0153 0157 | S W| .DBGLNO 0x0153,0x0157,0x0158,0x0160 0390 ; -------------------------------------------------------------------------------------- 0390 ; Debug chain 0390 ; -------------------------------------------------------------------------------------- 0390 0002 0005 | | .DBGLEN 0x0002,0x0005 0392 016b 016f | k o| .DBGLNO 0x016b,0x016f,0x0173,0x017b,0x0182,0x0189,0x01a1 0399 0001 0003 | | .XXX[0x5] 039b 0004 0005 | | 039d 0002 | | 039e ; -------------------------------------------------------------------------------------- 039e ; Debug chain 039e ; -------------------------------------------------------------------------------------- 039e 0000 0001 | | .DBGLEN 0x0000,0x0001 03a0 01ab | | .DBGLNO 0x01ab 03a1 ; -------------------------------------------------------------------------------------- 03a1 ; Debug chain 03a1 ; -------------------------------------------------------------------------------------- 03a1 0000 0005 | | .DBGLEN 0x0000,0x0005 03a3 01bb 01d9 | | .DBGLNO 0x01bb,0x01d9,0x01db,0x01e5,0x01e7 03a8 ; -------------------------------------------------------------------------------------- 03a8 ; Debug chain 03a8 ; -------------------------------------------------------------------------------------- 03a8 0000 0001 | | .DBGLEN 0x0000,0x0001 03aa 01f3 | | .DBGLNO 0x01f3 03ab ; -------------------------------------------------------------------------------------- 03ab ; Debug chain 03ab ; -------------------------------------------------------------------------------------- 03ab 0001 0008 | | .DBGLEN 0x0001,0x0008 03ad 021b 021f | | .DBGLNO 0x021b,0x021f,0x0224,0x0229,0x022e,0x0234,0x023a,0x0240,0x0243 03b6 ; -------------------------------------------------------------------------------------- 03b6 ; Debug chain 03b6 ; -------------------------------------------------------------------------------------- 03b6 0002 0007 | | .DBGLEN 0x0002,0x0007 03b8 024b 024f | K O| .DBGLNO 0x024b,0x024f,0x0253,0x0255,0x025d,0x0264,0x0272,0x0275,0x0278 03c1 0001 0002 | | .XXX[0x7] 03c3 0004 0005 | | 03c5 0006 0007 | | 03c7 0003 | | 03c8 0000 0000 | | .BLANK 0000[0x38]