|
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_03b8fe
└─⟦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 0528 | ( | .CONST 0x0528 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0064 | d | .CONST 0x0064 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0023 | # | .CONST 0x0023 ; Number of locals 000b INIT_0008: 000b 00ea | | Load_Encached Null_String_Cache 000c 0129 | ) | Execute Any,Make_Visible 000d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 000f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 4804 |H | Short_Literal 0x4 0013 032a | * | Declare_Type Record,Incomplete 0014 00d8 | | Load_Top At_Offset_0 0015 02a0 | | Declare_Subprogram Null_Subprogram 0016 4818 |H | Short_Literal 0x18 0017 03d5 | | Declare_Type Access,Defined 0018 e001 | | Load 0x0,0x1 0019 e002 | | Load 0x0,0x2 001a 00da | | Load_Top At_Offset_2 001b e003 | | Load 0x0,0x3 001c 0387 | | Declare_Variable Package 001d 00d8 | | Load_Top At_Offset_0 001e 020f | | Execute Module,Activate 001f 00d8 | | Load_Top At_Offset_0 0020 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0021 0266 | f | Execute Discrete,Bounds 0022 00e1 | | Load_Encached Boolean_Cache 0023 02a0 | | Declare_Subprogram Null_Subprogram 0024 4801 |H | Short_Literal 0x1 0025 035d | ] | Declare_Type Array,Defined 0026 00d9 | | Load_Top At_Offset_1 0027 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0028 00e1 | | Load_Encached Boolean_Cache 0029 00e1 | | Load_Encached Boolean_Cache 002a 00db | | Load_Top At_Offset_3 002b 02a0 | | Declare_Subprogram Null_Subprogram 002c e210 | | Load 0x1,0x10 002d 0326 | & | Complete_Type Record,By_Defining 002e 00da | | Load_Top At_Offset_2 002f 03c4 | | Complete_Type Access,By_Component_Completion 0030 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call 0032 029d 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call 0034 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 0036 029d 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call 0038 e004 | | Load 0x0,0x4 0039 e005 | | Load 0x0,0x5 003a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003b 1d17 | | Execute_Immediate Reference_Lex_1,0x17 003c 1d16 | | Execute_Immediate Reference_Lex_1,0x16 003d e212 | | Load 0x1,0x12 003e 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 003f e212 | | Load 0x1,0x12 0040 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36 0041 e212 | | Load 0x1,0x12 0042 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0043 4850 |HP | Short_Literal 0x50 0044 4818 |H | Short_Literal 0x18 0045 4830 |H0 | Short_Literal 0x30 0046 4801 |H | Short_Literal 0x1 0047 e212 | | Load 0x1,0x12 0048 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 0049 0387 | | Declare_Variable Package 004a 00d8 | | Load_Top At_Offset_0 004b 020f | | Execute Module,Activate 004c 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call 004e 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call 0050 029d 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call 0052 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call 0054 029d 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call 0056 e212 | | Load 0x1,0x12 0057 193a | : | Execute Package,Field_Reference,Field_Number 0x3a 0058 00c6 | | Action Check_Subprogram_Elaborated 0059 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 005c e006 | | Load 0x0,0x6 005d e007 | | Load 0x0,0x7 005e 4800 |H | Short_Literal 0x0 005f 0007 | | Action Break_Optional 0060 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0061 00c7 | | Action Elaborate_Subprogram 0062 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0063 00c7 | | Action Elaborate_Subprogram 0064 BODY_0008: 0064 00bc | | Action Signal_Activated 0065 00bb | | Action Signal_Completion 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 00e6 | | .CONST 0x00e6 ; Address of begin 0069 012d | - | .CONST 0x012d ; Address of exception handler 006a 0010 | | .CONST 0x0010 ; Number of locals 006b INIT_0068: 006b e210 | | Load 0x1,0x10 006c 0322 | " | Declare_Variable Record 006d e212 | | Load 0x1,0x12 006e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 006f 00d9 | | Load_Top At_Offset_1 0070 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0071 4801 |H | Short_Literal 0x1 0072 00d9 | | Load_Top At_Offset_1 0073 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0074 e5fe | | Load 0x2,-0x2 0075 00d9 | | Load_Top At_Offset_1 0076 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0077 e213 | | Load 0x1,0x13 0078 0337 | 7 | Declare_Variable Array 0079 e5fa | | Load 0x2,-0x6 007a 4800 |H | Short_Literal 0x0 007b 00da | | Load_Top At_Offset_2 007c 01d6 | | Execute Vector,Field_Write 007d e5f9 | | Load 0x2,-0x7 007e 4801 |H | Short_Literal 0x1 007f 00da | | Load_Top At_Offset_2 0080 01d6 | | Execute Vector,Field_Write 0081 e5f8 | | Load 0x2,-0x8 0082 4802 |H | Short_Literal 0x2 0083 00da | | Load_Top At_Offset_2 0084 01d6 | | Execute Vector,Field_Write 0085 e5f7 | | Load 0x2,-0x9 0086 4803 |H | Short_Literal 0x3 0087 00da | | Load_Top At_Offset_2 0088 01d6 | | Execute Vector,Field_Write 0089 e5f6 | | Load 0x2,-0xa 008a 4804 |H | Short_Literal 0x4 008b 00da | | Load_Top At_Offset_2 008c 01d6 | | Execute Vector,Field_Write 008d e5fd | | Load 0x2,-0x3 008e 4805 |H | Short_Literal 0x5 008f 00da | | Load_Top At_Offset_2 0090 01d6 | | Execute Vector,Field_Write 0091 e5fc | | Load 0x2,-0x4 0092 4806 |H | Short_Literal 0x6 0093 00da | | Load_Top At_Offset_2 0094 01d6 | | Execute Vector,Field_Write 0095 e5f5 | | Load 0x2,-0xb 0096 4807 |H | Short_Literal 0x7 0097 00da | | Load_Top At_Offset_2 0098 01d6 | | Execute Vector,Field_Write 0099 e5f4 | | Load 0x2,-0xc 009a 4808 |H | Short_Literal 0x8 009b 00da | | Load_Top At_Offset_2 009c 01d6 | | Execute Vector,Field_Write 009d e5f3 | | Load 0x2,-0xd 009e 4809 |H | Short_Literal 0x9 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 e5f2 | | Load 0x2,-0xe 00a2 480a |H | Short_Literal 0xa 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 e5fb | | Load 0x2,-0x5 00a6 480b |H | Short_Literal 0xb 00a7 00da | | Load_Top At_Offset_2 00a8 01d6 | | Execute Vector,Field_Write 00a9 e5f1 | | Load 0x2,-0xf 00aa 480c |H | Short_Literal 0xc 00ab 00da | | Load_Top At_Offset_2 00ac 01d6 | | Execute Vector,Field_Write 00ad e5f0 | | Load 0x2,-0x10 00ae 480d |H | Short_Literal 0xd 00af 00da | | Load_Top At_Offset_2 00b0 01d6 | | Execute Vector,Field_Write 00b1 e5ef | | Load 0x2,-0x11 00b2 480e |H | Short_Literal 0xe 00b3 00da | | Load_Top At_Offset_2 00b4 01d6 | | Execute Vector,Field_Write 00b5 4800 |H | Short_Literal 0x0 00b6 480f |H | Short_Literal 0xf 00b7 00da | | Load_Top At_Offset_2 00b8 01d6 | | Execute Vector,Field_Write 00b9 e213 | | Load 0x1,0x13 00ba 01c3 | | Execute Vector,Check_In_Type 00bb e210 | | Load 0x1,0x10 00bc 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 00bd 0119 | | Execute Any,Check_In_Formal_Type 00be 00d9 | | Load_Top At_Offset_1 00bf 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c0 e211 | | Load 0x1,0x11 00c1 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00c2 00e1 | | Load_Encached Boolean_Cache 00c3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00c4 e008 | | Load 0x0,0x8 00c5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00c6 02c7 | | Declare_Variable Any 00c7 00d8 | | Load_Top At_Offset_0 00c8 1c00 | | Execute_Immediate Run_Utility,0x0 00c9 e009 | | Load 0x0,0x9 00ca 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00cb 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00cc 02c7 | | Declare_Variable Any 00cd e009 | | Load 0x0,0x9 00ce 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00cf 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00d0 a405 | | Store_Unchecked 0x2,0x5 00d1 029f 031b | | Declare_Subprogram INIT_0318,For_Call 00d3 e212 | | Load 0x1,0x12 00d4 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 00d5 00c6 | | Action Check_Subprogram_Elaborated 00d6 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00d7 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00d8 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00d9 e00a | | Load 0x0,0xa 00da e00b | | Load 0x0,0xb 00db 480c |H | Short_Literal 0xc 00dc 0007 | | Action Break_Optional 00dd e212 | | Load 0x1,0x12 00de 191e | | Execute Package,Field_Reference,Field_Number 0x1e 00df 00c6 | | Action Check_Subprogram_Elaborated 00e0 e212 | | Load 0x1,0x12 00e1 191d | | Execute Package,Field_Reference,Field_Number 0x1d 00e2 e00c | | Load 0x0,0xc 00e3 e00d | | Load 0x0,0xd 00e4 4810 |H | Short_Literal 0x10 00e5 0007 | | Action Break_Optional 00e6 BODY_0068: 00e6 e5ec | | Load 0x2,-0x14 00e7 01db | | Execute Vector,Length 00e8 0c01 | | Execute_Immediate Greater_Equal,0x1 00e9 680c |h | Jump_Zero 0xf6 00ea e404 | | Load 0x2,0x4 00eb 00ea | | Load_Encached Null_String_Cache 00ec e5ec | | Load 0x2,-0x14 00ed 4801 |H | Short_Literal 0x1 00ee e008 | | Load 0x0,0x8 00ef 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f0 c404 | | Store 0x2,0x4 00f1 e404 | | Load 0x2,0x4 00f2 e008 | | Load 0x0,0x8 00f3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00f4 4801 |H | Short_Literal 0x1 00f5 a403 | | Store_Unchecked 0x2,0x3 00f6 e5ff | | Load 0x2,-0x1 00f7 8406 | | Call 0x2,0x6 00f8 480d |H | Short_Literal 0xd 00f9 4802 |H | Short_Literal 0x2 00fa 0099 | | Action Reference_Dynamic 00fb 480e |H | Short_Literal 0xe 00fc 4802 |H | Short_Literal 0x2 00fd 0099 | | Action Reference_Dynamic 00fe e212 | | Load 0x1,0x12 00ff 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0100 e402 | | Load 0x2,0x2 0101 4807 |H | Short_Literal 0x7 0102 4802 |H | Short_Literal 0x2 0103 0099 | | Action Reference_Dynamic 0104 4808 |H | Short_Literal 0x8 0105 4802 |H | Short_Literal 0x2 0106 0099 | | Action Reference_Dynamic 0107 4809 |H | Short_Literal 0x9 0108 4802 |H | Short_Literal 0x2 0109 0099 | | Action Reference_Dynamic 010a 480a |H | Short_Literal 0xa 010b 4802 |H | Short_Literal 0x2 010c 0099 | | Action Reference_Dynamic 010d e212 | | Load 0x1,0x12 010e 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 010f c402 | | Store 0x2,0x2 0110 e402 | | Load 0x2,0x2 0111 4801 |H | Short_Literal 0x1 0112 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0113 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0114 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0115 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0116 e212 | | Load 0x1,0x12 0117 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0118 c402 | | Store 0x2,0x2 0119 4800 |H | Short_Literal 0x0 011a e402 | | Load 0x2,0x2 011b 0227 | ' | Execute Access,All_Reference 011c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 011d e402 | | Load 0x2,0x2 011e 4800 |H | Short_Literal 0x0 011f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0120 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0121 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0122 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0123 e212 | | Load 0x1,0x12 0124 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0125 c402 | | Store 0x2,0x2 0126 e403 | | Load 0x2,0x3 0127 6804 |h | Jump_Zero 0x12c 0128 e404 | | Load 0x2,0x4 0129 e008 | | Load 0x0,0x8 012a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 012b c404 | | Store 0x2,0x4 012c 4515 |E | Exit_Suprogram New_Top_Offset 0x15 012d TRAP_0068: 012d 00d8 | | Load_Top At_Offset_0 012e 0107 | | Execute Exception,Get_Name 012f 4900 |I | Short_Literal 0x100 0130 490f |I | Short_Literal 0x10f 0131 0262 | b | Execute Discrete,In_Range 0132 7006 |p | Jump_Nonzero 0x139 0133 00d8 | | Load_Top At_Offset_0 0134 0107 | | Execute Exception,Get_Name 0135 4920 |I | Short_Literal 0x120 0136 492f |I/ | Short_Literal 0x12f 0137 0262 | b | Execute Discrete,In_Range 0138 680a |h | Jump_Zero 0x143 0139 e00e | | Load 0x0,0xe 013a 180e | | Execute Package,Field_Execute,Field_Number 0xe 013b 4807 |H | Short_Literal 0x7 013c 0092 0493 | | Action Push_String_Extended,0x493 ; "Cannot create list file " 013e e5ec | | Load 0x2,-0x14 013f 01cc | | Execute Vector,Catenate 0140 e00f | | Load 0x0,0xf 0141 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0142 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0143 e010 | | Load 0x0,0x10 0144 010f | | Execute Exception,Equal 0145 680b |h | Jump_Zero 0x151 0146 e403 | | Load 0x2,0x3 0147 6804 |h | Jump_Zero 0x14c 0148 e404 | | Load 0x2,0x4 0149 e008 | | Load 0x0,0x8 014a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 014b c404 | | Store 0x2,0x4 014c 0092 0494 | | Action Push_String_Extended,0x494 ; "** Failed **" 014e e011 | | Load 0x0,0x11 014f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0150 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0151 0100 | | Execute Exception,Raise 0152 0000 0000 | | .BLANK 0000[0x6] 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 01d6 | | .CONST 0x01d6 ; Address of begin 0159 021d | | .CONST 0x021d ; Address of exception handler 015a 0010 | | .CONST 0x0010 ; Number of locals 015b INIT_0158: 015b e210 | | Load 0x1,0x10 015c 0322 | " | Declare_Variable Record 015d e212 | | Load 0x1,0x12 015e 1811 | | Execute Package,Field_Execute,Field_Number 0x11 015f 00d9 | | Load_Top At_Offset_1 0160 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0161 4801 |H | Short_Literal 0x1 0162 00d9 | | Load_Top At_Offset_1 0163 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0164 4800 |H | Short_Literal 0x0 0165 00d9 | | Load_Top At_Offset_1 0166 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0167 e213 | | Load 0x1,0x13 0168 0337 | 7 | Declare_Variable Array 0169 e5fb | | Load 0x2,-0x5 016a 4800 |H | Short_Literal 0x0 016b 00da | | Load_Top At_Offset_2 016c 01d6 | | Execute Vector,Field_Write 016d e5fa | | Load 0x2,-0x6 016e 4801 |H | Short_Literal 0x1 016f 00da | | Load_Top At_Offset_2 0170 01d6 | | Execute Vector,Field_Write 0171 e5f9 | | Load 0x2,-0x7 0172 4802 |H | Short_Literal 0x2 0173 00da | | Load_Top At_Offset_2 0174 01d6 | | Execute Vector,Field_Write 0175 e5f8 | | Load 0x2,-0x8 0176 4803 |H | Short_Literal 0x3 0177 00da | | Load_Top At_Offset_2 0178 01d6 | | Execute Vector,Field_Write 0179 e5f7 | | Load 0x2,-0x9 017a 4804 |H | Short_Literal 0x4 017b 00da | | Load_Top At_Offset_2 017c 01d6 | | Execute Vector,Field_Write 017d e5fe | | Load 0x2,-0x2 017e 4805 |H | Short_Literal 0x5 017f 00da | | Load_Top At_Offset_2 0180 01d6 | | Execute Vector,Field_Write 0181 e5fd | | Load 0x2,-0x3 0182 4806 |H | Short_Literal 0x6 0183 00da | | Load_Top At_Offset_2 0184 01d6 | | Execute Vector,Field_Write 0185 e5f6 | | Load 0x2,-0xa 0186 4807 |H | Short_Literal 0x7 0187 00da | | Load_Top At_Offset_2 0188 01d6 | | Execute Vector,Field_Write 0189 e5f5 | | Load 0x2,-0xb 018a 4808 |H | Short_Literal 0x8 018b 00da | | Load_Top At_Offset_2 018c 01d6 | | Execute Vector,Field_Write 018d e5f4 | | Load 0x2,-0xc 018e 4809 |H | Short_Literal 0x9 018f 00da | | Load_Top At_Offset_2 0190 01d6 | | Execute Vector,Field_Write 0191 e5f3 | | Load 0x2,-0xd 0192 480a |H | Short_Literal 0xa 0193 00da | | Load_Top At_Offset_2 0194 01d6 | | Execute Vector,Field_Write 0195 e5fc | | Load 0x2,-0x4 0196 480b |H | Short_Literal 0xb 0197 00da | | Load_Top At_Offset_2 0198 01d6 | | Execute Vector,Field_Write 0199 e5f2 | | Load 0x2,-0xe 019a 480c |H | Short_Literal 0xc 019b 00da | | Load_Top At_Offset_2 019c 01d6 | | Execute Vector,Field_Write 019d e5f1 | | Load 0x2,-0xf 019e 480d |H | Short_Literal 0xd 019f 00da | | Load_Top At_Offset_2 01a0 01d6 | | Execute Vector,Field_Write 01a1 e5f0 | | Load 0x2,-0x10 01a2 480e |H | Short_Literal 0xe 01a3 00da | | Load_Top At_Offset_2 01a4 01d6 | | Execute Vector,Field_Write 01a5 4800 |H | Short_Literal 0x0 01a6 480f |H | Short_Literal 0xf 01a7 00da | | Load_Top At_Offset_2 01a8 01d6 | | Execute Vector,Field_Write 01a9 e213 | | Load 0x1,0x13 01aa 01c3 | | Execute Vector,Check_In_Type 01ab e210 | | Load 0x1,0x10 01ac 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 01ad 0119 | | Execute Any,Check_In_Formal_Type 01ae 00d9 | | Load_Top At_Offset_1 01af 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01b0 e211 | | Load 0x1,0x11 01b1 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01b2 00e1 | | Load_Encached Boolean_Cache 01b3 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01b4 e008 | | Load 0x0,0x8 01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b6 02c7 | | Declare_Variable Any 01b7 00d8 | | Load_Top At_Offset_0 01b8 1c00 | | Execute_Immediate Run_Utility,0x0 01b9 e009 | | Load 0x0,0x9 01ba 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bb 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01bc 02c7 | | Declare_Variable Any 01bd e009 | | Load 0x0,0x9 01be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01bf 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01c0 a405 | | Store_Unchecked 0x2,0x5 01c1 029f 033b | ;| Declare_Subprogram INIT_0338,For_Call 01c3 e212 | | Load 0x1,0x12 01c4 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 01c5 00c6 | | Action Check_Subprogram_Elaborated 01c6 1d19 | | Execute_Immediate Reference_Lex_1,0x19 01c7 1d14 | | Execute_Immediate Reference_Lex_1,0x14 01c8 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 01c9 e012 | | Load 0x0,0x12 01ca e013 | | Load 0x0,0x13 01cb 480c |H | Short_Literal 0xc 01cc 0007 | | Action Break_Optional 01cd e212 | | Load 0x1,0x12 01ce 191e | | Execute Package,Field_Reference,Field_Number 0x1e 01cf 00c6 | | Action Check_Subprogram_Elaborated 01d0 e212 | | Load 0x1,0x12 01d1 191d | | Execute Package,Field_Reference,Field_Number 0x1d 01d2 e014 | | Load 0x0,0x14 01d3 e015 | | Load 0x0,0x15 01d4 4810 |H | Short_Literal 0x10 01d5 0007 | | Action Break_Optional 01d6 BODY_0158: 01d6 e5ee | | Load 0x2,-0x12 01d7 01db | | Execute Vector,Length 01d8 0c01 | | Execute_Immediate Greater_Equal,0x1 01d9 680c |h | Jump_Zero 0x1e6 01da e404 | | Load 0x2,0x4 01db 00ea | | Load_Encached Null_String_Cache 01dc e5ee | | Load 0x2,-0x12 01dd 4801 |H | Short_Literal 0x1 01de e008 | | Load 0x0,0x8 01df 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01e0 c404 | | Store 0x2,0x4 01e1 e404 | | Load 0x2,0x4 01e2 e008 | | Load 0x0,0x8 01e3 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01e4 4801 |H | Short_Literal 0x1 01e5 a403 | | Store_Unchecked 0x2,0x3 01e6 e5ff | | Load 0x2,-0x1 01e7 8406 | | Call 0x2,0x6 01e8 480d |H | Short_Literal 0xd 01e9 4802 |H | Short_Literal 0x2 01ea 0099 | | Action Reference_Dynamic 01eb 480e |H | Short_Literal 0xe 01ec 4802 |H | Short_Literal 0x2 01ed 0099 | | Action Reference_Dynamic 01ee e212 | | Load 0x1,0x12 01ef 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01f0 e402 | | Load 0x2,0x2 01f1 4807 |H | Short_Literal 0x7 01f2 4802 |H | Short_Literal 0x2 01f3 0099 | | Action Reference_Dynamic 01f4 4808 |H | Short_Literal 0x8 01f5 4802 |H | Short_Literal 0x2 01f6 0099 | | Action Reference_Dynamic 01f7 4809 |H | Short_Literal 0x9 01f8 4802 |H | Short_Literal 0x2 01f9 0099 | | Action Reference_Dynamic 01fa 480a |H | Short_Literal 0xa 01fb 4802 |H | Short_Literal 0x2 01fc 0099 | | Action Reference_Dynamic 01fd e212 | | Load 0x1,0x12 01fe 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 01ff c402 | | Store 0x2,0x2 0200 e402 | | Load 0x2,0x2 0201 4801 |H | Short_Literal 0x1 0202 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0203 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0204 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0205 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0206 e212 | | Load 0x1,0x12 0207 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0208 c402 | | Store 0x2,0x2 0209 4800 |H | Short_Literal 0x0 020a e402 | | Load 0x2,0x2 020b 0227 | ' | Execute Access,All_Reference 020c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 020d e402 | | Load 0x2,0x2 020e 4800 |H | Short_Literal 0x0 020f 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 0210 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 0211 1d20 | | Execute_Immediate Reference_Lex_1,0x20 0212 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0213 e212 | | Load 0x1,0x12 0214 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0215 c402 | | Store 0x2,0x2 0216 e403 | | Load 0x2,0x3 0217 6804 |h | Jump_Zero 0x21c 0218 e404 | | Load 0x2,0x4 0219 e008 | | Load 0x0,0x8 021a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 021b c404 | | Store 0x2,0x4 021c 4513 |E | Exit_Suprogram New_Top_Offset 0x13 021d TRAP_0158: 021d 00d8 | | Load_Top At_Offset_0 021e 0107 | | Execute Exception,Get_Name 021f 4900 |I | Short_Literal 0x100 0220 490f |I | Short_Literal 0x10f 0221 0262 | b | Execute Discrete,In_Range 0222 7006 |p | Jump_Nonzero 0x229 0223 00d8 | | Load_Top At_Offset_0 0224 0107 | | Execute Exception,Get_Name 0225 4920 |I | Short_Literal 0x120 0226 492f |I/ | Short_Literal 0x12f 0227 0262 | b | Execute Discrete,In_Range 0228 680e |h | Jump_Zero 0x237 0229 e00e | | Load 0x0,0xe 022a 180e | | Execute Package,Field_Execute,Field_Number 0xe 022b 4807 |H | Short_Literal 0x7 022c 0092 0495 | | Action Push_String_Extended,0x495 ; "Cross_reference: Cannot create list file " 022e e5ee | | Load 0x2,-0x12 022f 01cc | | Execute Vector,Catenate 0230 e00f | | Load 0x0,0xf 0231 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0232 0092 0496 | | Action Push_String_Extended,0x496 ; "** Cross_Reference: Couldn't open list file **" 0234 e011 | | Load 0x0,0x11 0235 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0236 4513 |E | Exit_Suprogram New_Top_Offset 0x13 0237 e010 | | Load 0x0,0x10 0238 010f | | Execute Exception,Equal 0239 680b |h | Jump_Zero 0x245 023a e403 | | Load 0x2,0x3 023b 6804 |h | Jump_Zero 0x240 023c e404 | | Load 0x2,0x4 023d e008 | | Load 0x0,0x8 023e 1816 | | Execute Package,Field_Execute,Field_Number 0x16 023f c404 | | Store 0x2,0x4 0240 0092 0494 | | Action Push_String_Extended,0x494 ; "** Failed **" 0242 e011 | | Load 0x0,0x11 0243 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0244 4513 |E | Exit_Suprogram New_Top_Offset 0x13 0245 0100 | | Execute Exception,Raise 0246 0000 0000 | | .XXX[0x2] 0248 ; -------------------------------------------------------------------------------------- 0248 ; SUBPROGRAM 0248 ; -------------------------------------------------------------------------------------- 0248 024b | K | .CONST 0x024b ; Address of begin 0249 0004 | | .CONST 0x0004 ; Address of exception handler 024a 0001 | | .CONST 0x0001 ; Number of locals 024b BODY_0248: 024b INIT_0248: 024b 00db | | Load_Top At_Offset_3 024c 0227 | ' | Execute Access,All_Reference 024d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 024e 6807 |h | Jump_Zero 0x256 024f 00da | | Load_Top At_Offset_2 0250 e212 | | Load 0x1,0x12 0251 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0252 7003 |p | Jump_Nonzero 0x256 0253 4800 |H | Short_Literal 0x0 0254 a5fd | | Store_Unchecked 0x2,-0x3 0255 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0256 00da | | Load_Top At_Offset_2 0257 e212 | | Load 0x1,0x12 0258 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0259 e212 | | Load 0x1,0x12 025a 181b | | Execute Package,Field_Execute,Field_Number 0x1b 025b e5fe | | Load 0x2,-0x2 025c 0227 | ' | Execute Access,All_Reference 025d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 025e 01d7 | | Execute Vector,Field_Read 025f a5fd | | Store_Unchecked 0x2,-0x3 0260 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0261 0000 0000 | | .BLANK 0000[0x7] 0268 ; -------------------------------------------------------------------------------------- 0268 ; SUBPROGRAM 0268 ; -------------------------------------------------------------------------------------- 0268 026b | k | .CONST 0x026b ; Address of begin 0269 0004 | | .CONST 0x0004 ; Address of exception handler 026a 0001 | | .CONST 0x0001 ; Number of locals 026b BODY_0268: 026b INIT_0268: 026b 00da | | Load_Top At_Offset_2 026c e008 | | Load 0x0,0x8 026d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 026e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 026f 0000 | | .XXX[0x1] 0270 ; -------------------------------------------------------------------------------------- 0270 ; SUBPROGRAM 0270 ; -------------------------------------------------------------------------------------- 0270 0273 | s | .CONST 0x0273 ; Address of begin 0271 0004 | | .CONST 0x0004 ; Address of exception handler 0272 0001 | | .CONST 0x0001 ; Number of locals 0273 BODY_0270: 0273 INIT_0270: 0273 4801 |H | Short_Literal 0x1 0274 e008 | | Load 0x0,0x8 0275 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0276 00da | | Load_Top At_Offset_2 0277 e212 | | Load 0x1,0x12 0278 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0279 7005 |p | Jump_Nonzero 0x27f 027a 4801 |H | Short_Literal 0x1 027b 4802 |H | Short_Literal 0x2 027c e5ff | | Load 0x2,-0x1 027d e212 | | Load 0x1,0x12 027e 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 027f 4502 |E | Exit_Suprogram New_Top_Offset 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 00da | | Load_Top At_Offset_2 0284 00d8 | | Load_Top At_Offset_0 0285 e008 | | Load 0x0,0x8 0286 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0287 0260 | ` | Execute Discrete,In_Type 0288 7001 |p | Jump_Nonzero 0x28a 0289 0801 | | Execute_Immediate Raise,0x1 028a e008 | | Load 0x0,0x8 028b 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 028c 4502 |E | Exit_Suprogram New_Top_Offset 0x2 028d 0000 0000 | | .XXX[0x3] 028f 0000 | | 0290 ; -------------------------------------------------------------------------------------- 0290 ; SUBPROGRAM 0290 ; -------------------------------------------------------------------------------------- 0290 0293 | | .CONST 0x0293 ; Address of begin 0291 0004 | | .CONST 0x0004 ; Address of exception handler 0292 0001 | | .CONST 0x0001 ; Number of locals 0293 BODY_0290: 0293 INIT_0290: 0293 00da | | Load_Top At_Offset_2 0294 700b |p | Jump_Nonzero 0x2a0 0295 00db | | Load_Top At_Offset_3 0296 0229 | ) | Execute Access,All_Read 0297 00d8 | | Load_Top At_Offset_0 0298 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0299 e5fe | | Load 0x2,-0x2 029a e218 | | Load 0x1,0x18 029b 181a | | Execute Package,Field_Execute,Field_Number 0x1a 029c c5fe | | Store 0x2,-0x2 029d 00d9 | | Load_Top At_Offset_1 029e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 029f 00d1 | | Pop_Control Pop_Count_1 02a0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a1 0000 0000 | | .BLANK 0000[0x7] 02a8 ; -------------------------------------------------------------------------------------- 02a8 ; SUBPROGRAM 02a8 ; -------------------------------------------------------------------------------------- 02a8 02ab | | .CONST 0x02ab ; Address of begin 02a9 0004 | | .CONST 0x0004 ; Address of exception handler 02aa 0001 | | .CONST 0x0001 ; Number of locals 02ab BODY_02a8: 02ab INIT_02a8: 02ab e008 | | Load 0x0,0x8 02ac 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 02ad 0c3c | < | Execute_Immediate Greater_Equal,0x3c 02ae 680d |h | Jump_Zero 0x2bc 02af e008 | | Load 0x0,0x8 02b0 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 02b1 00db | | Load_Top At_Offset_3 02b2 0229 | ) | Execute Access,All_Read 02b3 00d8 | | Load_Top At_Offset_0 02b4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02b5 e5fe | | Load 0x2,-0x2 02b6 e218 | | Load 0x1,0x18 02b7 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02b8 c5fe | | Store 0x2,-0x2 02b9 00d9 | | Load_Top At_Offset_1 02ba 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02bb 00d1 | | Pop_Control Pop_Count_1 02bc 00db | | Load_Top At_Offset_3 02bd 0229 | ) | Execute Access,All_Read 02be 00d8 | | Load_Top At_Offset_0 02bf 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c0 e5fe | | Load 0x2,-0x2 02c1 4800 |H | Short_Literal 0x0 02c2 e5ff | | Load 0x2,-0x1 02c3 e218 | | Load 0x1,0x18 02c4 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02c5 c5fe | | Store 0x2,-0x2 02c6 00d9 | | Load_Top At_Offset_1 02c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02c9 0000 0000 | | .BLANK 0000[0x7] 02d0 ; -------------------------------------------------------------------------------------- 02d0 ; SUBPROGRAM 02d0 ; -------------------------------------------------------------------------------------- 02d0 02d3 | | .CONST 0x02d3 ; Address of begin 02d1 0004 | | .CONST 0x0004 ; Address of exception handler 02d2 0001 | | .CONST 0x0001 ; Number of locals 02d3 BODY_02d0: 02d3 INIT_02d0: 02d3 00da | | Load_Top At_Offset_2 02d4 700f |p | Jump_Nonzero 0x2e4 02d5 e008 | | Load 0x0,0x8 02d6 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 02d7 00db | | Load_Top At_Offset_3 02d8 0227 | ' | Execute Access,All_Reference 02d9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02da 6805 |h | Jump_Zero 0x2e0 02db 00db | | Load_Top At_Offset_3 02dc e218 | | Load 0x1,0x18 02dd 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02de c5fe | | Store 0x2,-0x2 02df 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e0 00db | | Load_Top At_Offset_3 02e1 e218 | | Load 0x1,0x18 02e2 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02e3 c5fe | | Store 0x2,-0x2 02e4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e5 0000 0000 | | .XXX[0x3] 02e7 0000 | | 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; SUBPROGRAM 02e8 ; -------------------------------------------------------------------------------------- 02e8 02eb | | .CONST 0x02eb ; Address of begin 02e9 0004 | | .CONST 0x0004 ; Address of exception handler 02ea 0001 | | .CONST 0x0001 ; Number of locals 02eb BODY_02e8: 02eb INIT_02e8: 02eb 00da | | Load_Top At_Offset_2 02ec e212 | | Load 0x1,0x12 02ed 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02ee 6803 |h | Jump_Zero 0x2f2 02ef 4801 |H | Short_Literal 0x1 02f0 a5fd | | Store_Unchecked 0x2,-0x3 02f1 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f2 4800 |H | Short_Literal 0x0 02f3 a5fd | | Store_Unchecked 0x2,-0x3 02f4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02f5 0000 0000 | | .XXX[0x3] 02f7 0000 | | 02f8 ; -------------------------------------------------------------------------------------- 02f8 ; SUBPROGRAM 02f8 ; -------------------------------------------------------------------------------------- 02f8 02fb | | .CONST 0x02fb ; Address of begin 02f9 0004 | | .CONST 0x0004 ; Address of exception handler 02fa 0001 | | .CONST 0x0001 ; Number of locals 02fb BODY_02f8: 02fb INIT_02f8: 02fb e008 | | Load 0x0,0x8 02fc 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 02fd 0c3c | < | Execute_Immediate Greater_Equal,0x3c 02fe 680f |h | Jump_Zero 0x30e 02ff e008 | | Load 0x0,0x8 0300 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0301 00db | | Load_Top At_Offset_3 0302 0227 | ' | Execute Access,All_Reference 0303 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0304 6805 |h | Jump_Zero 0x30a 0305 00db | | Load_Top At_Offset_3 0306 e218 | | Load 0x1,0x18 0307 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0308 c5fe | | Store 0x2,-0x2 0309 7804 |x | Jump 0x30e 030a 00db | | Load_Top At_Offset_3 030b e218 | | Load 0x1,0x18 030c 181d | | Execute Package,Field_Execute,Field_Number 0x1d 030d c5fe | | Store 0x2,-0x2 030e 00db | | Load_Top At_Offset_3 030f 00db | | Load_Top At_Offset_3 0310 e218 | | Load 0x1,0x18 0311 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0312 c5fe | | Store 0x2,-0x2 0313 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0314 0000 0000 | | .BLANK 0000[0x4] 0318 ; -------------------------------------------------------------------------------------- 0318 ; SUBPROGRAM 0318 ; -------------------------------------------------------------------------------------- 0318 0327 | ' | .CONST 0x0327 ; Address of begin 0319 0004 | | .CONST 0x0004 ; Address of exception handler 031a 0006 | | .CONST 0x0006 ; Number of locals 031b INIT_0318: 031b 029f 035b | [| Declare_Subprogram INIT_0358,For_Call 031d e212 | | Load 0x1,0x12 031e 191c | | Execute Package,Field_Reference,Field_Number 0x1c 031f 00c6 | | Action Check_Subprogram_Elaborated 0320 4802 |H | Short_Literal 0x2 0321 4803 |H | Short_Literal 0x3 0322 0099 | | Action Reference_Dynamic 0323 e016 | | Load 0x0,0x16 0324 e017 | | Load 0x0,0x17 0325 4806 |H | Short_Literal 0x6 0326 0007 | | Action Break_Optional 0327 BODY_0318: 0327 e402 | | Load 0x2,0x2 0328 4803 |H | Short_Literal 0x3 0329 4803 |H | Short_Literal 0x3 032a 0099 | | Action Reference_Dynamic 032b 4804 |H | Short_Literal 0x4 032c 4803 |H | Short_Literal 0x3 032d 0099 | | Action Reference_Dynamic 032e e212 | | Load 0x1,0x12 032f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0330 c402 | | Store 0x2,0x2 0331 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0332 0000 0000 | | .BLANK 0000[0x6] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 0347 | G | .CONST 0x0347 ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0006 | | .CONST 0x0006 ; Number of locals 033b INIT_0338: 033b 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call 033d e212 | | Load 0x1,0x12 033e 191c | | Execute Package,Field_Reference,Field_Number 0x1c 033f 00c6 | | Action Check_Subprogram_Elaborated 0340 4802 |H | Short_Literal 0x2 0341 4803 |H | Short_Literal 0x3 0342 0099 | | Action Reference_Dynamic 0343 e018 | | Load 0x0,0x18 0344 e019 | | Load 0x0,0x19 0345 4806 |H | Short_Literal 0x6 0346 0007 | | Action Break_Optional 0347 BODY_0338: 0347 e402 | | Load 0x2,0x2 0348 4803 |H | Short_Literal 0x3 0349 4803 |H | Short_Literal 0x3 034a 0099 | | Action Reference_Dynamic 034b 4804 |H | Short_Literal 0x4 034c 4803 |H | Short_Literal 0x3 034d 0099 | | Action Reference_Dynamic 034e e212 | | Load 0x1,0x12 034f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0350 c402 | | Store 0x2,0x2 0351 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0352 0000 0000 | | .BLANK 0000[0x6] 0358 ; -------------------------------------------------------------------------------------- 0358 ; SUBPROGRAM 0358 ; -------------------------------------------------------------------------------------- 0358 0361 | a | .CONST 0x0361 ; Address of begin 0359 0004 | | .CONST 0x0004 ; Address of exception handler 035a 0002 | | .CONST 0x0002 ; Number of locals 035b INIT_0358: 035b e009 | | Load 0x0,0x9 035c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 035d 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 035e 02c7 | | Declare_Variable Any 035f 00d8 | | Load_Top At_Offset_0 0360 1c00 | | Execute_Immediate Run_Utility,0x0 0361 BODY_0358: 0361 e5ed | | Load 0x2,-0x13 0362 01db | | Execute Vector,Length 0363 0c01 | | Execute_Immediate Greater_Equal,0x1 0364 e5ee | | Load 0x2,-0x12 0365 01db | | Execute Vector,Length 0366 0c01 | | Execute_Immediate Greater_Equal,0x1 0367 0279 | y | Execute Discrete,And 0368 6809 |h | Jump_Zero 0x372 0369 e00e | | Load 0x0,0xe 036a 180e | | Execute Package,Field_Execute,Field_Number 0xe 036b 4807 |H | Short_Literal 0x7 036c 0092 0497 | | Action Push_String_Extended,0x497 ; "Cannot specifiy both 'Only' and 'Exclude'" 036e e00f | | Load 0x0,0xf 036f 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0370 e010 | | Load 0x0,0x10 0371 0257 | W | Execute Discrete,Raise 0372 4801 |H | Short_Literal 0x1 0373 e009 | | Load 0x0,0x9 0374 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0375 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0376 e7ff | | Load 0x3,-0x1 0377 e009 | | Load 0x0,0x9 0378 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0379 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 037a c802 | | Store 0x4,0x2 037b 00d8 | | Load_Top At_Offset_0 037c e009 | | Load 0x0,0x9 037d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 037e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 037f 680f |h | Jump_Zero 0x38f 0380 e00e | | Load 0x0,0xe 0381 180e | | Execute Package,Field_Execute,Field_Number 0xe 0382 4807 |H | Short_Literal 0x7 0383 0092 0498 | | Action Push_String_Extended,0x498 ; "Error in List_Of_Names" 0385 e00f | | Load 0x0,0xf 0386 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0387 e00e | | Load 0x0,0xe 0388 180e | | Execute Package,Field_Execute,Field_Number 0xe 0389 00d9 | | Load_Top At_Offset_1 038a e009 | | Load 0x0,0x9 038b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 038c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 038d e010 | | Load 0x0,0x10 038e 0257 | W | Execute Discrete,Raise 038f 00d8 | | Load_Top At_Offset_0 0390 c9fe | | Store 0x4,-0x2 0391 e5ee | | Load 0x2,-0x12 0392 01db | | Execute Vector,Length 0393 0c01 | | Execute_Immediate Greater_Equal,0x1 0394 6820 |h | Jump_Zero 0x3b5 0395 4801 |H | Short_Literal 0x1 0396 e009 | | Load 0x0,0x9 0397 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0398 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0399 e5ee | | Load 0x2,-0x12 039a e009 | | Load 0x0,0x9 039b 1b0e | | Execute Package,Field_Read,Field_Number 0xe 039c 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 039d c802 | | Store 0x4,0x2 039e 00d8 | | Load_Top At_Offset_0 039f e009 | | Load 0x0,0x9 03a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a1 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03a2 680f |h | Jump_Zero 0x3b2 03a3 e00e | | Load 0x0,0xe 03a4 180e | | Execute Package,Field_Execute,Field_Number 0xe 03a5 4807 |H | Short_Literal 0x7 03a6 0092 0499 | | Action Push_String_Extended,0x499 ; "Error in Exclude_References_to" 03a8 e00f | | Load 0x0,0xf 03a9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03aa e00e | | Load 0x0,0xe 03ab 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ac 00d9 | | Load_Top At_Offset_1 03ad e009 | | Load 0x0,0x9 03ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03af 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 03b0 e010 | | Load 0x0,0x10 03b1 0257 | W | Execute Discrete,Raise 03b2 00d8 | | Load_Top At_Offset_0 03b3 c9fc | | Store 0x4,-0x4 03b4 7804 |x | Jump 0x3b9 03b5 e009 | | Load 0x0,0x9 03b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03b8 c9fc | | Store 0x4,-0x4 03b9 e5ed | | Load 0x2,-0x13 03ba 01db | | Execute Vector,Length 03bb 0c01 | | Execute_Immediate Greater_Equal,0x1 03bc 6820 |h | Jump_Zero 0x3dd 03bd 4801 |H | Short_Literal 0x1 03be e009 | | Load 0x0,0x9 03bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c1 e5ed | | Load 0x2,-0x13 03c2 e009 | | Load 0x0,0x9 03c3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03c5 c802 | | Store 0x4,0x2 03c6 00d8 | | Load_Top At_Offset_0 03c7 e009 | | Load 0x0,0x9 03c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03c9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03ca 680f |h | Jump_Zero 0x3da 03cb e00e | | Load 0x0,0xe 03cc 180e | | Execute Package,Field_Execute,Field_Number 0xe 03cd 4807 |H | Short_Literal 0x7 03ce 0092 049a | | Action Push_String_Extended,0x49a ; "Error in only_References_to" 03d0 e00f | | Load 0x0,0xf 03d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03d2 e00e | | Load 0x0,0xe 03d3 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d4 00d9 | | Load_Top At_Offset_1 03d5 e009 | | Load 0x0,0x9 03d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d7 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 03d8 e010 | | Load 0x0,0x10 03d9 0257 | W | Execute Discrete,Raise 03da 00d8 | | Load_Top At_Offset_0 03db c9fd | | Store 0x4,-0x3 03dc 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03dd e009 | | Load 0x0,0x9 03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03df 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03e0 c9fd | | Store 0x4,-0x3 03e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e2 0000 0000 | | .BLANK 0000[0x6] 03e8 ; -------------------------------------------------------------------------------------- 03e8 ; SUBPROGRAM 03e8 ; -------------------------------------------------------------------------------------- 03e8 0406 | | .CONST 0x0406 ; Address of begin 03e9 0004 | | .CONST 0x0004 ; Address of exception handler 03ea 0006 | | .CONST 0x0006 ; Number of locals 03eb INIT_03e8: 03eb e009 | | Load 0x0,0x9 03ec 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03ed 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03ee 02c7 | | Declare_Variable Any 03ef 00d8 | | Load_Top At_Offset_0 03f0 1c00 | | Execute_Immediate Run_Utility,0x0 03f1 e009 | | Load 0x0,0x9 03f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f3 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03f4 02c7 | | Declare_Variable Any 03f5 00d8 | | Load_Top At_Offset_0 03f6 1c00 | | Execute_Immediate Run_Utility,0x0 03f7 e009 | | Load 0x0,0x9 03f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f9 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03fa 02c7 | | Declare_Variable Any 03fb e009 | | Load 0x0,0x9 03fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fd 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 03fe a804 | | Store_Unchecked 0x4,0x4 03ff e009 | | Load 0x0,0x9 0400 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0401 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0402 02c7 | | Declare_Variable Any 0403 00d8 | | Load_Top At_Offset_0 0404 1c00 | | Execute_Immediate Run_Utility,0x0 0405 00e1 | | Load_Encached Boolean_Cache 0406 BODY_03e8: 0406 e009 | | Load 0x0,0x9 0407 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0408 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0409 c9fc | | Store 0x4,-0x4 040a 4800 |H | Short_Literal 0x0 040b e009 | | Load 0x0,0x9 040c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 040d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 040e e7ff | | Load 0x3,-0x1 040f e009 | | Load 0x0,0x9 0410 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0411 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0412 c802 | | Store 0x4,0x2 0413 e802 | | Load 0x4,0x2 0414 e009 | | Load 0x0,0x9 0415 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0416 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0417 680f |h | Jump_Zero 0x427 0418 e00e | | Load 0x0,0xe 0419 180e | | Execute Package,Field_Execute,Field_Number 0xe 041a 4807 |H | Short_Literal 0x7 041b 0092 0498 | | Action Push_String_Extended,0x498 ; "Error in List_Of_Names" 041d e00f | | Load 0x0,0xf 041e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 041f e00e | | Load 0x0,0xe 0420 180e | | Execute Package,Field_Execute,Field_Number 0xe 0421 e802 | | Load 0x4,0x2 0422 e009 | | Load 0x0,0x9 0423 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0424 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0425 e010 | | Load 0x0,0x10 0426 0257 | W | Execute Discrete,Raise 0427 4801 |H | Short_Literal 0x1 0428 e009 | | Load 0x0,0x9 0429 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042a 1813 | | Execute Package,Field_Execute,Field_Number 0x13 042b e5ef | | Load 0x2,-0x11 042c e009 | | Load 0x0,0x9 042d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 042e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 042f c805 | | Store 0x4,0x5 0430 00d9 | | Load_Top At_Offset_1 0431 e009 | | Load 0x0,0x9 0432 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0433 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0434 680f |h | Jump_Zero 0x444 0435 e00e | | Load 0x0,0xe 0436 180e | | Execute Package,Field_Execute,Field_Number 0xe 0437 4807 |H | Short_Literal 0x7 0438 0092 049b | | Action Push_String_Extended,0x49b ; "Error in Exclude_References_From" 043a e00f | | Load 0x0,0xf 043b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 043c e00e | | Load 0x0,0xe 043d 180e | | Execute Package,Field_Execute,Field_Number 0xe 043e 00da | | Load_Top At_Offset_2 043f e009 | | Load 0x0,0x9 0440 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0441 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0442 e010 | | Load 0x0,0x10 0443 0257 | W | Execute Discrete,Raise 0444 00cf | | Action Mark_Auxiliary 0445 783e |x> | Jump 0x484 0446 e802 | | Load 0x4,0x2 0447 e009 | | Load 0x0,0x9 0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0449 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 044a e009 | | Load 0x0,0x9 044b 1b11 | | Execute Package,Field_Read,Field_Number 0x11 044c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 044d c803 | | Store 0x4,0x3 044e e803 | | Load 0x4,0x3 044f e009 | | Load 0x0,0x9 0450 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0451 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0452 6807 |h | Jump_Zero 0x45a 0453 e00e | | Load 0x0,0xe 0454 180e | | Execute Package,Field_Execute,Field_Number 0xe 0455 e803 | | Load 0x4,0x3 0456 e009 | | Load 0x0,0x9 0457 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0458 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0459 7824 |x$ | Jump 0x47e 045a 00cf | | Action Mark_Auxiliary 045b 781c |x | Jump 0x478 045c e803 | | Load 0x4,0x3 045d e009 | | Load 0x0,0x9 045e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 045f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0460 e805 | | Load 0x4,0x5 0461 e009 | | Load 0x0,0x9 0462 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0463 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0464 700d |p | Jump_Nonzero 0x472 0465 00e1 | | Load_Encached Boolean_Cache 0466 e009 | | Load 0x0,0x9 0467 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0468 180e | | Execute Package,Field_Execute,Field_Number 0xe 0469 e803 | | Load 0x4,0x3 046a e009 | | Load 0x0,0x9 046b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 046d e804 | | Load 0x4,0x4 046e e009 | | Load 0x0,0x9 046f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0470 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0471 005b | [ | Store_Top Discrete,At_Offset_3 0472 e803 | | Load 0x4,0x3 0473 e009 | | Load 0x0,0x9 0474 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0475 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0476 c803 | | Store 0x4,0x3 0477 00c9 | | Action Pop_Auxiliary_Loop 0478 e803 | | Load 0x4,0x3 0479 e009 | | Load 0x0,0x9 047a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 047c 6fdf |o | Jump_Zero 0x45c 047d 00ce | | Action Pop_Auxiliary 047e e802 | | Load 0x4,0x2 047f e009 | | Load 0x0,0x9 0480 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0481 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0482 c802 | | Store 0x4,0x2 0483 00c9 | | Action Pop_Auxiliary_Loop 0484 e802 | | Load 0x4,0x2 0485 e009 | | Load 0x0,0x9 0486 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0487 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0488 6fbd |o | Jump_Zero 0x446 0489 00ce | | Action Pop_Auxiliary 048a e802 | | Load 0x4,0x2 048b e009 | | Load 0x0,0x9 048c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048d 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 048e e802 | | Load 0x4,0x2 048f c9fd | | Store 0x4,-0x3 0490 00da | | Load_Top At_Offset_2 0491 c9fe | | Store 0x4,-0x2 0492 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0493 ; -------------------------------------------------------------------------------------- 0493 ; STRING TABLE 0493 ; -------------------------------------------------------------------------------------- 0493 0014 | | .STRTAB 0x0014->0x049d ; "Cannot create list file " 0494 002a | * | .STRTAB 0x002a->0x04a9 ; "** Failed **" 0495 0034 | 4 | .STRTAB 0x0034->0x04af ; "Cross_reference: Cannot create list file " 0496 005b | [ | .STRTAB 0x005b->0x04c3 ; "** Cross_Reference: Couldn't open list file **" 0497 0087 | | .STRTAB 0x0087->0x04da ; "Cannot specifiy both 'Only' and 'Exclude'" 0498 00ae | | .STRTAB 0x00ae->0x04ef ; "Error in List_Of_Names" 0499 00c2 | | .STRTAB 0x00c2->0x04fa ; "Error in Exclude_References_to" 049a 00de | | .STRTAB 0x00de->0x0509 ; "Error in only_References_to" 049b 00f7 | | .STRTAB 0x00f7->0x0516 ; "Error in Exclude_References_From" 049c 0115 | | .STREND 0x0115->0x0526 049d 4361 6e6e |Cann| .STRTAB_STRINGS 0527 0000 | | .XXX[0x1] 0528 ; -------------------------------------------------------------------------------------- 0528 ; Debug Table 0528 ; -------------------------------------------------------------------------------------- 0528 0004 000c | | .DEBUG4 0x0004,0x000c,0xa084,0x0000,0x0001,0x0000 052e 0000 0000 | | .BLANK 0000[0x17] 0545 0e54 | T | .XXX[0x1] 0546 0000 0000 | | .BLANK 0000[0x69] 05af 0202 0038 | 8| .XXX[0x2] 05b1 0000 0000 | | .BLANK 0000[0x8] 05b9 0017 bac0 | | .XXX[0x15] 05bb 0002 d03c | <| 05bd 0000 004f | O| 05bf aac0 0000 | | 05c1 0005 f5cc | | 05c3 00cc 00f6 | | 05c5 0c60 9e00 | ` | 05c7 0000 0000 | | 05c9 0030 c018 | 0 | 05cb 12b0 05ef | | 05cd a400 | | 05ce 0000 0000 | | .BLANK 0000[0x4] 05d2 05f4 d800 | | .XXX[0xb] 05d4 00bd f480 | | 05d6 0000 1063 | c| 05d8 00f0 05f1 | | 05da 3800 0000 |8 | 05dc 2400 |$ | 05dd 0000 0000 | | .BLANK 0000[0x4] 05e1 05f8 9800 | | .XXX[0x8] 05e3 00bd f480 | | 05e5 0000 10c9 | | 05e7 4005 fbcc |@ | 05e9 0000 0000 | | .BLANK 0000[0x6] 05ef 1017 b006 | | .XXX[0x11] 05f1 021c 0000 | | 05f3 0000 5f98 | _ | 05f5 e6ce e00c | | 05f7 0438 0000 | 8 | 05f9 008c 1600 | | 05fb 3010 e00c |0 | 05fd 9380 02b0 | | 05ff 0000 | |