|
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_0440fe
└─⟦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 0530 | 0 | .CONST 0x0530 ; 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 006a | j | .CONST 0x006a ; 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 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 0007 | | Action Break_Optional 0013 0007 | | Action Break_Optional 0014 0007 | | Action Break_Optional 0015 0007 | | Action Break_Optional 0016 0007 | | Action Break_Optional 0017 4804 |H | Short_Literal 0x4 0018 032a | * | Declare_Type Record,Incomplete 0019 00d8 | | Load_Top At_Offset_0 001a 02a0 | | Declare_Subprogram Null_Subprogram 001b 4818 |H | Short_Literal 0x18 001c 03d5 | | Declare_Type Access,Defined 001d e001 | | Load 0x0,0x1 001e e002 | | Load 0x0,0x2 001f e211 | | Load 0x1,0x11 0020 e003 | | Load 0x0,0x3 0021 0387 | | Declare_Variable Package 0022 00d8 | | Load_Top At_Offset_0 0023 020f | | Execute Module,Activate 0024 00d8 | | Load_Top At_Offset_0 0025 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0026 0266 | f | Execute Discrete,Bounds 0027 00e1 | | Load_Encached Boolean_Cache 0028 02a0 | | Declare_Subprogram Null_Subprogram 0029 4801 |H | Short_Literal 0x1 002a 035d | ] | Declare_Type Array,Defined 002b e212 | | Load 0x1,0x12 002c 1b10 | | Execute Package,Field_Read,Field_Number 0x10 002d 00e1 | | Load_Encached Boolean_Cache 002e 00e1 | | Load_Encached Boolean_Cache 002f e213 | | Load 0x1,0x13 0030 02a0 | | Declare_Subprogram Null_Subprogram 0031 e210 | | Load 0x1,0x10 0032 0326 | & | Complete_Type Record,By_Defining 0033 e211 | | Load 0x1,0x11 0034 03c4 | | Complete_Type Access,By_Component_Completion 0035 0007 | | Action Break_Optional 0036 029d 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call 0038 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call 003a 029d 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call 003c 029d 028b | | Declare_Subprogram INIT_0288,For_Outer_Call 003e e004 | | Load 0x0,0x4 003f e005 | | Load 0x0,0x5 0040 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0041 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0043 e212 | | Load 0x1,0x12 0044 192f | / | Execute Package,Field_Reference,Field_Number 0x2f 0045 e212 | | Load 0x1,0x12 0046 1936 | 6 | Execute Package,Field_Reference,Field_Number 0x36 0047 e212 | | Load 0x1,0x12 0048 1934 | 4 | Execute Package,Field_Reference,Field_Number 0x34 0049 4850 |HP | Short_Literal 0x50 004a 4818 |H | Short_Literal 0x18 004b 4830 |H0 | Short_Literal 0x30 004c 4801 |H | Short_Literal 0x1 004d e212 | | Load 0x1,0x12 004e 1b37 | 7 | Execute Package,Field_Read,Field_Number 0x37 004f 0387 | | Declare_Variable Package 0050 00d8 | | Load_Top At_Offset_0 0051 020f | | Execute Module,Activate 0052 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call 0054 029d 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call 0056 029d 02db | | Declare_Subprogram INIT_02d8,For_Outer_Call 0058 029d 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call 005a 029d 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call 005c e212 | | Load 0x1,0x12 005d 193a | : | Execute Package,Field_Reference,Field_Number 0x3a 005e 00c6 | | Action Check_Subprogram_Elaborated 005f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0060 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 0061 1d1d | | Execute_Immediate Reference_Lex_1,0x1d 0062 e006 | | Load 0x0,0x6 0063 e007 | | Load 0x0,0x7 0064 4800 |H | Short_Literal 0x0 0065 0007 | | Action Break_Optional 0066 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0067 00c7 | | Action Elaborate_Subprogram 0068 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0069 00c7 | | Action Elaborate_Subprogram 006a BODY_0008: 006a 00bc | | Action Signal_Activated 006b 00bb | | Action Signal_Completion 006c 0000 0000 | | .BLANK 0000[0x4] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 00f0 | | .CONST 0x00f0 ; Address of begin 0071 0137 | 7 | .CONST 0x0137 ; Address of exception handler 0072 0010 | | .CONST 0x0010 ; Number of locals 0073 INIT_0070: 0073 e211 | | Load 0x1,0x11 0074 e210 | | Load 0x1,0x10 0075 0322 | " | Declare_Variable Record 0076 e212 | | Load 0x1,0x12 0077 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0078 e403 | | Load 0x2,0x3 0079 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 007a 4801 |H | Short_Literal 0x1 007b e403 | | Load 0x2,0x3 007c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 007d e5fe | | Load 0x2,-0x2 007e e403 | | Load 0x2,0x3 007f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0080 e213 | | Load 0x1,0x13 0081 0337 | 7 | Declare_Variable Array 0082 e5fa | | Load 0x2,-0x6 0083 4800 |H | Short_Literal 0x0 0084 e404 | | Load 0x2,0x4 0085 01d6 | | Execute Vector,Field_Write 0086 e5f9 | | Load 0x2,-0x7 0087 4801 |H | Short_Literal 0x1 0088 e404 | | Load 0x2,0x4 0089 01d6 | | Execute Vector,Field_Write 008a e5f8 | | Load 0x2,-0x8 008b 4802 |H | Short_Literal 0x2 008c e404 | | Load 0x2,0x4 008d 01d6 | | Execute Vector,Field_Write 008e e5f7 | | Load 0x2,-0x9 008f 4803 |H | Short_Literal 0x3 0090 e404 | | Load 0x2,0x4 0091 01d6 | | Execute Vector,Field_Write 0092 e5f6 | | Load 0x2,-0xa 0093 4804 |H | Short_Literal 0x4 0094 e404 | | Load 0x2,0x4 0095 01d6 | | Execute Vector,Field_Write 0096 e5fd | | Load 0x2,-0x3 0097 4805 |H | Short_Literal 0x5 0098 e404 | | Load 0x2,0x4 0099 01d6 | | Execute Vector,Field_Write 009a e5fc | | Load 0x2,-0x4 009b 4806 |H | Short_Literal 0x6 009c e404 | | Load 0x2,0x4 009d 01d6 | | Execute Vector,Field_Write 009e e5f5 | | Load 0x2,-0xb 009f 4807 |H | Short_Literal 0x7 00a0 e404 | | Load 0x2,0x4 00a1 01d6 | | Execute Vector,Field_Write 00a2 e5f4 | | Load 0x2,-0xc 00a3 4808 |H | Short_Literal 0x8 00a4 e404 | | Load 0x2,0x4 00a5 01d6 | | Execute Vector,Field_Write 00a6 e5f3 | | Load 0x2,-0xd 00a7 4809 |H | Short_Literal 0x9 00a8 e404 | | Load 0x2,0x4 00a9 01d6 | | Execute Vector,Field_Write 00aa e5f2 | | Load 0x2,-0xe 00ab 480a |H | Short_Literal 0xa 00ac e404 | | Load 0x2,0x4 00ad 01d6 | | Execute Vector,Field_Write 00ae e5fb | | Load 0x2,-0x5 00af 480b |H | Short_Literal 0xb 00b0 e404 | | Load 0x2,0x4 00b1 01d6 | | Execute Vector,Field_Write 00b2 e5f1 | | Load 0x2,-0xf 00b3 480c |H | Short_Literal 0xc 00b4 e404 | | Load 0x2,0x4 00b5 01d6 | | Execute Vector,Field_Write 00b6 e5f0 | | Load 0x2,-0x10 00b7 480d |H | Short_Literal 0xd 00b8 e404 | | Load 0x2,0x4 00b9 01d6 | | Execute Vector,Field_Write 00ba e5ef | | Load 0x2,-0x11 00bb 480e |H | Short_Literal 0xe 00bc e404 | | Load 0x2,0x4 00bd 01d6 | | Execute Vector,Field_Write 00be 4800 |H | Short_Literal 0x0 00bf 480f |H | Short_Literal 0xf 00c0 e404 | | Load 0x2,0x4 00c1 01d6 | | Execute Vector,Field_Write 00c2 e213 | | Load 0x1,0x13 00c3 01c3 | | Execute Vector,Check_In_Type 00c4 e210 | | Load 0x1,0x10 00c5 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 00c6 0119 | | Execute Any,Check_In_Formal_Type 00c7 e403 | | Load 0x2,0x3 00c8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 00c9 e211 | | Load 0x1,0x11 00ca 03b6 | | Declare_Variable Access,By_Allocation,With_Value 00cb c402 | | Store 0x2,0x2 00cc 00e1 | | Load_Encached Boolean_Cache 00cd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00ce e008 | | Load 0x0,0x8 00cf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d0 02c7 | | Declare_Variable Any 00d1 00d8 | | Load_Top At_Offset_0 00d2 1c00 | | Execute_Immediate Run_Utility,0x0 00d3 e009 | | Load 0x0,0x9 00d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 00d6 02c7 | | Declare_Variable Any 00d7 e009 | | Load 0x0,0x9 00d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00d9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 00da c405 | | Store 0x2,0x5 00db 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call 00dd e212 | | Load 0x1,0x12 00de 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 00df 00c6 | | Action Check_Subprogram_Elaborated 00e0 1d19 | | Execute_Immediate Reference_Lex_1,0x19 00e1 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00e2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 00e3 e00a | | Load 0x0,0xa 00e4 e00b | | Load 0x0,0xb 00e5 480c |H | Short_Literal 0xc 00e6 0007 | | Action Break_Optional 00e7 e212 | | Load 0x1,0x12 00e8 191e | | Execute Package,Field_Reference,Field_Number 0x1e 00e9 00c6 | | Action Check_Subprogram_Elaborated 00ea e212 | | Load 0x1,0x12 00eb 191d | | Execute Package,Field_Reference,Field_Number 0x1d 00ec e00c | | Load 0x0,0xc 00ed e00d | | Load 0x0,0xd 00ee 4810 |H | Short_Literal 0x10 00ef 0007 | | Action Break_Optional 00f0 BODY_0070: 00f0 e5ec | | Load 0x2,-0x14 00f1 01db | | Execute Vector,Length 00f2 0c01 | | Execute_Immediate Greater_Equal,0x1 00f3 680c |h | Jump_Zero 0x100 00f4 e404 | | Load 0x2,0x4 00f5 00ea | | Load_Encached Null_String_Cache 00f6 e5ec | | Load 0x2,-0x14 00f7 4801 |H | Short_Literal 0x1 00f8 e008 | | Load 0x0,0x8 00f9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00fa c404 | | Store 0x2,0x4 00fb e404 | | Load 0x2,0x4 00fc e008 | | Load 0x0,0x8 00fd 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00fe 4801 |H | Short_Literal 0x1 00ff a403 | | Store_Unchecked 0x2,0x3 0100 e5ff | | Load 0x2,-0x1 0101 8406 | | Call 0x2,0x6 0102 480d |H | Short_Literal 0xd 0103 4802 |H | Short_Literal 0x2 0104 0099 | | Action Reference_Dynamic 0105 480e |H | Short_Literal 0xe 0106 4802 |H | Short_Literal 0x2 0107 0099 | | Action Reference_Dynamic 0108 e212 | | Load 0x1,0x12 0109 181e | | Execute Package,Field_Execute,Field_Number 0x1e 010a e402 | | Load 0x2,0x2 010b 4807 |H | Short_Literal 0x7 010c 4802 |H | Short_Literal 0x2 010d 0099 | | Action Reference_Dynamic 010e 4808 |H | Short_Literal 0x8 010f 4802 |H | Short_Literal 0x2 0110 0099 | | Action Reference_Dynamic 0111 4809 |H | Short_Literal 0x9 0112 4802 |H | Short_Literal 0x2 0113 0099 | | Action Reference_Dynamic 0114 480a |H | Short_Literal 0xa 0115 4802 |H | Short_Literal 0x2 0116 0099 | | Action Reference_Dynamic 0117 e212 | | Load 0x1,0x12 0118 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0119 c402 | | Store 0x2,0x2 011a e402 | | Load 0x2,0x2 011b 4801 |H | Short_Literal 0x1 011c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 011d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 011e 1d20 | | Execute_Immediate Reference_Lex_1,0x20 011f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0120 e212 | | Load 0x1,0x12 0121 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0122 c402 | | Store 0x2,0x2 0123 4800 |H | Short_Literal 0x0 0124 e402 | | Load 0x2,0x2 0125 0227 | ' | Execute Access,All_Reference 0126 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0127 e402 | | Load 0x2,0x2 0128 4800 |H | Short_Literal 0x0 0129 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 012a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 012b 1d20 | | Execute_Immediate Reference_Lex_1,0x20 012c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 012d e212 | | Load 0x1,0x12 012e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 012f c402 | | Store 0x2,0x2 0130 e403 | | Load 0x2,0x3 0131 6804 |h | Jump_Zero 0x136 0132 e404 | | Load 0x2,0x4 0133 e008 | | Load 0x0,0x8 0134 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0135 c404 | | Store 0x2,0x4 0136 4515 |E | Exit_Suprogram New_Top_Offset 0x15 0137 TRAP_0070: 0137 00d8 | | Load_Top At_Offset_0 0138 0107 | | Execute Exception,Get_Name 0139 4900 |I | Short_Literal 0x100 013a 490f |I | Short_Literal 0x10f 013b 0262 | b | Execute Discrete,In_Range 013c 7006 |p | Jump_Nonzero 0x143 013d 00d8 | | Load_Top At_Offset_0 013e 0107 | | Execute Exception,Get_Name 013f 4920 |I | Short_Literal 0x120 0140 492f |I/ | Short_Literal 0x12f 0141 0262 | b | Execute Discrete,In_Range 0142 680a |h | Jump_Zero 0x14d 0143 e00e | | Load 0x0,0xe 0144 180e | | Execute Package,Field_Execute,Field_Number 0xe 0145 4807 |H | Short_Literal 0x7 0146 0092 049b | | Action Push_String_Extended,0x49b ; "Cannot create list file " 0148 e5ec | | Load 0x2,-0x14 0149 01cc | | Execute Vector,Catenate 014a e00f | | Load 0x0,0xf 014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 014c 4515 |E | Exit_Suprogram New_Top_Offset 0x15 014d e010 | | Load 0x0,0x10 014e 010f | | Execute Exception,Equal 014f 680b |h | Jump_Zero 0x15b 0150 e403 | | Load 0x2,0x3 0151 6804 |h | Jump_Zero 0x156 0152 e404 | | Load 0x2,0x4 0153 e008 | | Load 0x0,0x8 0154 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0155 c404 | | Store 0x2,0x4 0156 0092 049c | | Action Push_String_Extended,0x49c ; "** Failed **" 0158 e011 | | Load 0x0,0x11 0159 1814 | | Execute Package,Field_Execute,Field_Number 0x14 015a 4515 |E | Exit_Suprogram New_Top_Offset 0x15 015b 0100 | | Execute Exception,Raise 015c 0000 0000 | | .BLANK 0000[0x4] 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 01e0 | | .CONST 0x01e0 ; Address of begin 0161 0227 | ' | .CONST 0x0227 ; Address of exception handler 0162 0010 | | .CONST 0x0010 ; Number of locals 0163 INIT_0160: 0163 e211 | | Load 0x1,0x11 0164 e210 | | Load 0x1,0x10 0165 0322 | " | Declare_Variable Record 0166 e212 | | Load 0x1,0x12 0167 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0168 e403 | | Load 0x2,0x3 0169 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 016a 4801 |H | Short_Literal 0x1 016b e403 | | Load 0x2,0x3 016c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 016d 4800 |H | Short_Literal 0x0 016e e403 | | Load 0x2,0x3 016f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0170 e213 | | Load 0x1,0x13 0171 0337 | 7 | Declare_Variable Array 0172 e5fb | | Load 0x2,-0x5 0173 4800 |H | Short_Literal 0x0 0174 e404 | | Load 0x2,0x4 0175 01d6 | | Execute Vector,Field_Write 0176 e5fa | | Load 0x2,-0x6 0177 4801 |H | Short_Literal 0x1 0178 e404 | | Load 0x2,0x4 0179 01d6 | | Execute Vector,Field_Write 017a e5f9 | | Load 0x2,-0x7 017b 4802 |H | Short_Literal 0x2 017c e404 | | Load 0x2,0x4 017d 01d6 | | Execute Vector,Field_Write 017e e5f8 | | Load 0x2,-0x8 017f 4803 |H | Short_Literal 0x3 0180 e404 | | Load 0x2,0x4 0181 01d6 | | Execute Vector,Field_Write 0182 e5f7 | | Load 0x2,-0x9 0183 4804 |H | Short_Literal 0x4 0184 e404 | | Load 0x2,0x4 0185 01d6 | | Execute Vector,Field_Write 0186 e5fe | | Load 0x2,-0x2 0187 4805 |H | Short_Literal 0x5 0188 e404 | | Load 0x2,0x4 0189 01d6 | | Execute Vector,Field_Write 018a e5fd | | Load 0x2,-0x3 018b 4806 |H | Short_Literal 0x6 018c e404 | | Load 0x2,0x4 018d 01d6 | | Execute Vector,Field_Write 018e e5f6 | | Load 0x2,-0xa 018f 4807 |H | Short_Literal 0x7 0190 e404 | | Load 0x2,0x4 0191 01d6 | | Execute Vector,Field_Write 0192 e5f5 | | Load 0x2,-0xb 0193 4808 |H | Short_Literal 0x8 0194 e404 | | Load 0x2,0x4 0195 01d6 | | Execute Vector,Field_Write 0196 e5f4 | | Load 0x2,-0xc 0197 4809 |H | Short_Literal 0x9 0198 e404 | | Load 0x2,0x4 0199 01d6 | | Execute Vector,Field_Write 019a e5f3 | | Load 0x2,-0xd 019b 480a |H | Short_Literal 0xa 019c e404 | | Load 0x2,0x4 019d 01d6 | | Execute Vector,Field_Write 019e e5fc | | Load 0x2,-0x4 019f 480b |H | Short_Literal 0xb 01a0 e404 | | Load 0x2,0x4 01a1 01d6 | | Execute Vector,Field_Write 01a2 e5f2 | | Load 0x2,-0xe 01a3 480c |H | Short_Literal 0xc 01a4 e404 | | Load 0x2,0x4 01a5 01d6 | | Execute Vector,Field_Write 01a6 e5f1 | | Load 0x2,-0xf 01a7 480d |H | Short_Literal 0xd 01a8 e404 | | Load 0x2,0x4 01a9 01d6 | | Execute Vector,Field_Write 01aa e5f0 | | Load 0x2,-0x10 01ab 480e |H | Short_Literal 0xe 01ac e404 | | Load 0x2,0x4 01ad 01d6 | | Execute Vector,Field_Write 01ae 4800 |H | Short_Literal 0x0 01af 480f |H | Short_Literal 0xf 01b0 e404 | | Load 0x2,0x4 01b1 01d6 | | Execute Vector,Field_Write 01b2 e213 | | Load 0x1,0x13 01b3 01c3 | | Execute Vector,Check_In_Type 01b4 e210 | | Load 0x1,0x10 01b5 3003 |0 | Execute Record,Field_Type,Field_Number 0x3 01b6 0119 | | Execute Any,Check_In_Formal_Type 01b7 e403 | | Load 0x2,0x3 01b8 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01b9 e211 | | Load 0x1,0x11 01ba 03b6 | | Declare_Variable Access,By_Allocation,With_Value 01bb c402 | | Store 0x2,0x2 01bc 00e1 | | Load_Encached Boolean_Cache 01bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01be e008 | | Load 0x0,0x8 01bf 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c0 02c7 | | Declare_Variable Any 01c1 00d8 | | Load_Top At_Offset_0 01c2 1c00 | | Execute_Immediate Run_Utility,0x0 01c3 e009 | | Load 0x0,0x9 01c4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 01c6 02c7 | | Declare_Variable Any 01c7 e009 | | Load 0x0,0x9 01c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01c9 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 01ca c405 | | Store 0x2,0x5 01cb 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call 01cd e212 | | Load 0x1,0x12 01ce 1939 | 9 | Execute Package,Field_Reference,Field_Number 0x39 01cf 00c6 | | Action Check_Subprogram_Elaborated 01d0 1d19 | | Execute_Immediate Reference_Lex_1,0x19 01d1 1d14 | | Execute_Immediate Reference_Lex_1,0x14 01d2 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 01d3 e012 | | Load 0x0,0x12 01d4 e013 | | Load 0x0,0x13 01d5 480c |H | Short_Literal 0xc 01d6 0007 | | Action Break_Optional 01d7 e212 | | Load 0x1,0x12 01d8 191e | | Execute Package,Field_Reference,Field_Number 0x1e 01d9 00c6 | | Action Check_Subprogram_Elaborated 01da e212 | | Load 0x1,0x12 01db 191d | | Execute Package,Field_Reference,Field_Number 0x1d 01dc e014 | | Load 0x0,0x14 01dd e015 | | Load 0x0,0x15 01de 4810 |H | Short_Literal 0x10 01df 0007 | | Action Break_Optional 01e0 BODY_0160: 01e0 e5ee | | Load 0x2,-0x12 01e1 01db | | Execute Vector,Length 01e2 0c01 | | Execute_Immediate Greater_Equal,0x1 01e3 680c |h | Jump_Zero 0x1f0 01e4 e404 | | Load 0x2,0x4 01e5 00ea | | Load_Encached Null_String_Cache 01e6 e5ee | | Load 0x2,-0x12 01e7 4801 |H | Short_Literal 0x1 01e8 e008 | | Load 0x0,0x8 01e9 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ea c404 | | Store 0x2,0x4 01eb e404 | | Load 0x2,0x4 01ec e008 | | Load 0x0,0x8 01ed 181f | | Execute Package,Field_Execute,Field_Number 0x1f 01ee 4801 |H | Short_Literal 0x1 01ef a403 | | Store_Unchecked 0x2,0x3 01f0 e5ff | | Load 0x2,-0x1 01f1 8406 | | Call 0x2,0x6 01f2 480d |H | Short_Literal 0xd 01f3 4802 |H | Short_Literal 0x2 01f4 0099 | | Action Reference_Dynamic 01f5 480e |H | Short_Literal 0xe 01f6 4802 |H | Short_Literal 0x2 01f7 0099 | | Action Reference_Dynamic 01f8 e212 | | Load 0x1,0x12 01f9 181e | | Execute Package,Field_Execute,Field_Number 0x1e 01fa e402 | | Load 0x2,0x2 01fb 4807 |H | Short_Literal 0x7 01fc 4802 |H | Short_Literal 0x2 01fd 0099 | | Action Reference_Dynamic 01fe 4808 |H | Short_Literal 0x8 01ff 4802 |H | Short_Literal 0x2 0200 0099 | | Action Reference_Dynamic 0201 4809 |H | Short_Literal 0x9 0202 4802 |H | Short_Literal 0x2 0203 0099 | | Action Reference_Dynamic 0204 480a |H | Short_Literal 0xa 0205 4802 |H | Short_Literal 0x2 0206 0099 | | Action Reference_Dynamic 0207 e212 | | Load 0x1,0x12 0208 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 0209 c402 | | Store 0x2,0x2 020a e402 | | Load 0x2,0x2 020b 4801 |H | Short_Literal 0x1 020c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 020d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 020e 1d20 | | Execute_Immediate Reference_Lex_1,0x20 020f 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 0210 e212 | | Load 0x1,0x12 0211 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 0212 c402 | | Store 0x2,0x2 0213 4800 |H | Short_Literal 0x0 0214 e402 | | Load 0x2,0x2 0215 0227 | ' | Execute Access,All_Reference 0216 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0217 e402 | | Load 0x2,0x2 0218 4800 |H | Short_Literal 0x0 0219 1d1e | | Execute_Immediate Reference_Lex_1,0x1e 021a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f 021b 1d20 | | Execute_Immediate Reference_Lex_1,0x20 021c 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21 021d e212 | | Load 0x1,0x12 021e 183a | : | Execute Package,Field_Execute,Field_Number 0x3a 021f c402 | | Store 0x2,0x2 0220 e403 | | Load 0x2,0x3 0221 6804 |h | Jump_Zero 0x226 0222 e404 | | Load 0x2,0x4 0223 e008 | | Load 0x0,0x8 0224 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0225 c404 | | Store 0x2,0x4 0226 4513 |E | Exit_Suprogram New_Top_Offset 0x13 0227 TRAP_0160: 0227 00d8 | | Load_Top At_Offset_0 0228 0107 | | Execute Exception,Get_Name 0229 4900 |I | Short_Literal 0x100 022a 490f |I | Short_Literal 0x10f 022b 0262 | b | Execute Discrete,In_Range 022c 7006 |p | Jump_Nonzero 0x233 022d 00d8 | | Load_Top At_Offset_0 022e 0107 | | Execute Exception,Get_Name 022f 4920 |I | Short_Literal 0x120 0230 492f |I/ | Short_Literal 0x12f 0231 0262 | b | Execute Discrete,In_Range 0232 680e |h | Jump_Zero 0x241 0233 e00e | | Load 0x0,0xe 0234 180e | | Execute Package,Field_Execute,Field_Number 0xe 0235 4807 |H | Short_Literal 0x7 0236 0092 049d | | Action Push_String_Extended,0x49d ; "Cross_reference: Cannot create list file " 0238 e5ee | | Load 0x2,-0x12 0239 01cc | | Execute Vector,Catenate 023a e00f | | Load 0x0,0xf 023b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 023c 0092 049e | | Action Push_String_Extended,0x49e ; "** Cross_Reference: Couldn't open list file **" 023e e011 | | Load 0x0,0x11 023f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0240 4513 |E | Exit_Suprogram New_Top_Offset 0x13 0241 e010 | | Load 0x0,0x10 0242 010f | | Execute Exception,Equal 0243 680b |h | Jump_Zero 0x24f 0244 e403 | | Load 0x2,0x3 0245 6804 |h | Jump_Zero 0x24a 0246 e404 | | Load 0x2,0x4 0247 e008 | | Load 0x0,0x8 0248 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0249 c404 | | Store 0x2,0x4 024a 0092 049c | | Action Push_String_Extended,0x49c ; "** Failed **" 024c e011 | | Load 0x0,0x11 024d 1814 | | Execute Package,Field_Execute,Field_Number 0x14 024e 4513 |E | Exit_Suprogram New_Top_Offset 0x13 024f 0100 | | Execute Exception,Raise 0250 ; -------------------------------------------------------------------------------------- 0250 ; SUBPROGRAM 0250 ; -------------------------------------------------------------------------------------- 0250 0253 | S | .CONST 0x0253 ; Address of begin 0251 0004 | | .CONST 0x0004 ; Address of exception handler 0252 0001 | | .CONST 0x0001 ; Number of locals 0253 BODY_0250: 0253 INIT_0250: 0253 e5fe | | Load 0x2,-0x2 0254 0227 | ' | Execute Access,All_Reference 0255 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0256 6807 |h | Jump_Zero 0x25e 0257 e5ff | | Load 0x2,-0x1 0258 e212 | | Load 0x1,0x12 0259 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 025a 7003 |p | Jump_Nonzero 0x25e 025b 4800 |H | Short_Literal 0x0 025c a5fd | | Store_Unchecked 0x2,-0x3 025d 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025e e5ff | | Load 0x2,-0x1 025f e212 | | Load 0x1,0x12 0260 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0261 e212 | | Load 0x1,0x12 0262 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0263 e5fe | | Load 0x2,-0x2 0264 0227 | ' | Execute Access,All_Reference 0265 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 0266 01d7 | | Execute Vector,Field_Read 0267 a5fd | | Store_Unchecked 0x2,-0x3 0268 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0269 0000 0000 | | .BLANK 0000[0x7] 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 e5ff | | Load 0x2,-0x1 0274 e008 | | Load 0x0,0x8 0275 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0276 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0277 0000 | | .XXX[0x1] 0278 ; -------------------------------------------------------------------------------------- 0278 ; SUBPROGRAM 0278 ; -------------------------------------------------------------------------------------- 0278 027b | { | .CONST 0x027b ; Address of begin 0279 0004 | | .CONST 0x0004 ; Address of exception handler 027a 0001 | | .CONST 0x0001 ; Number of locals 027b BODY_0278: 027b INIT_0278: 027b 4801 |H | Short_Literal 0x1 027c e008 | | Load 0x0,0x8 027d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 027e e5ff | | Load 0x2,-0x1 027f e212 | | Load 0x1,0x12 0280 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0281 7005 |p | Jump_Nonzero 0x287 0282 4801 |H | Short_Literal 0x1 0283 4802 |H | Short_Literal 0x2 0284 e5ff | | Load 0x2,-0x1 0285 e212 | | Load 0x1,0x12 0286 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 0287 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0288 ; -------------------------------------------------------------------------------------- 0288 ; SUBPROGRAM 0288 ; -------------------------------------------------------------------------------------- 0288 028b | | .CONST 0x028b ; Address of begin 0289 0004 | | .CONST 0x0004 ; Address of exception handler 028a 0001 | | .CONST 0x0001 ; Number of locals 028b BODY_0288: 028b INIT_0288: 028b e5ff | | Load 0x2,-0x1 028c e008 | | Load 0x0,0x8 028d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 028e 025b | [ | Execute Discrete,Check_In_Type 028f e008 | | Load 0x0,0x8 0290 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b 0291 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0292 0000 0000 | | .BLANK 0000[0x6] 0298 ; -------------------------------------------------------------------------------------- 0298 ; SUBPROGRAM 0298 ; -------------------------------------------------------------------------------------- 0298 029b | | .CONST 0x029b ; Address of begin 0299 0004 | | .CONST 0x0004 ; Address of exception handler 029a 0001 | | .CONST 0x0001 ; Number of locals 029b BODY_0298: 029b INIT_0298: 029b e5ff | | Load 0x2,-0x1 029c 700b |p | Jump_Nonzero 0x2a8 029d e5fe | | Load 0x2,-0x2 029e 0229 | ) | Execute Access,All_Read 029f 00d8 | | Load_Top At_Offset_0 02a0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02a1 e5fe | | Load 0x2,-0x2 02a2 e218 | | Load 0x1,0x18 02a3 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02a4 c5fe | | Store 0x2,-0x2 02a5 e402 | | Load 0x2,0x2 02a6 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02a7 00d1 | | Pop_Control Pop_Count_1 02a8 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02a9 0000 0000 | | .BLANK 0000[0x7] 02b0 ; -------------------------------------------------------------------------------------- 02b0 ; SUBPROGRAM 02b0 ; -------------------------------------------------------------------------------------- 02b0 02b3 | | .CONST 0x02b3 ; Address of begin 02b1 0004 | | .CONST 0x0004 ; Address of exception handler 02b2 0001 | | .CONST 0x0001 ; Number of locals 02b3 BODY_02b0: 02b3 INIT_02b0: 02b3 e008 | | Load 0x0,0x8 02b4 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 02b5 0c3c | < | Execute_Immediate Greater_Equal,0x3c 02b6 680d |h | Jump_Zero 0x2c4 02b7 e008 | | Load 0x0,0x8 02b8 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 02b9 e5fe | | Load 0x2,-0x2 02ba 0229 | ) | Execute Access,All_Read 02bb 00d8 | | Load_Top At_Offset_0 02bc 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02bd e5fe | | Load 0x2,-0x2 02be e218 | | Load 0x1,0x18 02bf 181a | | Execute Package,Field_Execute,Field_Number 0x1a 02c0 c5fe | | Store 0x2,-0x2 02c1 e402 | | Load 0x2,0x2 02c2 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02c3 00d1 | | Pop_Control Pop_Count_1 02c4 e5fe | | Load 0x2,-0x2 02c5 0229 | ) | Execute Access,All_Read 02c6 00d8 | | Load_Top At_Offset_0 02c7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 02c8 e5fe | | Load 0x2,-0x2 02c9 4800 |H | Short_Literal 0x0 02ca e5ff | | Load 0x2,-0x1 02cb e218 | | Load 0x1,0x18 02cc 1819 | | Execute Package,Field_Execute,Field_Number 0x19 02cd c5fe | | Store 0x2,-0x2 02ce e402 | | Load 0x2,0x2 02cf 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 02d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02d1 0000 0000 | | .BLANK 0000[0x7] 02d8 ; -------------------------------------------------------------------------------------- 02d8 ; SUBPROGRAM 02d8 ; -------------------------------------------------------------------------------------- 02d8 02db | | .CONST 0x02db ; Address of begin 02d9 0004 | | .CONST 0x0004 ; Address of exception handler 02da 0001 | | .CONST 0x0001 ; Number of locals 02db BODY_02d8: 02db INIT_02d8: 02db e5ff | | Load 0x2,-0x1 02dc 700f |p | Jump_Nonzero 0x2ec 02dd e008 | | Load 0x0,0x8 02de 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 02df e5fe | | Load 0x2,-0x2 02e0 0227 | ' | Execute Access,All_Reference 02e1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 02e2 6805 |h | Jump_Zero 0x2e8 02e3 e5fe | | Load 0x2,-0x2 02e4 e218 | | Load 0x1,0x18 02e5 181c | | Execute Package,Field_Execute,Field_Number 0x1c 02e6 c5fe | | Store 0x2,-0x2 02e7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02e8 e5fe | | Load 0x2,-0x2 02e9 e218 | | Load 0x1,0x18 02ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d 02eb c5fe | | Store 0x2,-0x2 02ec 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02ed 0000 0000 | | .XXX[0x3] 02ef 0000 | | 02f0 ; -------------------------------------------------------------------------------------- 02f0 ; SUBPROGRAM 02f0 ; -------------------------------------------------------------------------------------- 02f0 02f3 | | .CONST 0x02f3 ; Address of begin 02f1 0004 | | .CONST 0x0004 ; Address of exception handler 02f2 0001 | | .CONST 0x0001 ; Number of locals 02f3 BODY_02f0: 02f3 INIT_02f0: 02f3 e5ff | | Load 0x2,-0x1 02f4 e212 | | Load 0x1,0x12 02f5 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 02f6 6803 |h | Jump_Zero 0x2fa 02f7 4801 |H | Short_Literal 0x1 02f8 a5fd | | Store_Unchecked 0x2,-0x3 02f9 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02fa 4800 |H | Short_Literal 0x0 02fb a5fd | | Store_Unchecked 0x2,-0x3 02fc 4502 |E | Exit_Suprogram New_Top_Offset 0x2 02fd 0000 0000 | | .XXX[0x3] 02ff 0000 | | 0300 ; -------------------------------------------------------------------------------------- 0300 ; SUBPROGRAM 0300 ; -------------------------------------------------------------------------------------- 0300 0303 | | .CONST 0x0303 ; Address of begin 0301 0004 | | .CONST 0x0004 ; Address of exception handler 0302 0001 | | .CONST 0x0001 ; Number of locals 0303 BODY_0300: 0303 INIT_0300: 0303 e008 | | Load 0x0,0x8 0304 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0305 0c3c | < | Execute_Immediate Greater_Equal,0x3c 0306 680f |h | Jump_Zero 0x316 0307 e008 | | Load 0x0,0x8 0308 1833 | 3 | Execute Package,Field_Execute,Field_Number 0x33 0309 e5fe | | Load 0x2,-0x2 030a 0227 | ' | Execute Access,All_Reference 030b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 030c 6805 |h | Jump_Zero 0x312 030d e5fe | | Load 0x2,-0x2 030e e218 | | Load 0x1,0x18 030f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0310 c5fe | | Store 0x2,-0x2 0311 7804 |x | Jump 0x316 0312 e5fe | | Load 0x2,-0x2 0313 e218 | | Load 0x1,0x18 0314 181d | | Execute Package,Field_Execute,Field_Number 0x1d 0315 c5fe | | Store 0x2,-0x2 0316 e5fe | | Load 0x2,-0x2 0317 e5ff | | Load 0x2,-0x1 0318 e218 | | Load 0x1,0x18 0319 181b | | Execute Package,Field_Execute,Field_Number 0x1b 031a c5fe | | Store 0x2,-0x2 031b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 031c 0000 0000 | | .BLANK 0000[0x4] 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 032f | / | .CONST 0x032f ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0006 | | .CONST 0x0006 ; Number of locals 0323 INIT_0320: 0323 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call 0325 e212 | | Load 0x1,0x12 0326 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0327 00c6 | | Action Check_Subprogram_Elaborated 0328 4802 |H | Short_Literal 0x2 0329 4803 |H | Short_Literal 0x3 032a 0099 | | Action Reference_Dynamic 032b e016 | | Load 0x0,0x16 032c e017 | | Load 0x0,0x17 032d 4806 |H | Short_Literal 0x6 032e 0007 | | Action Break_Optional 032f BODY_0320: 032f e402 | | Load 0x2,0x2 0330 4803 |H | Short_Literal 0x3 0331 4803 |H | Short_Literal 0x3 0332 0099 | | Action Reference_Dynamic 0333 4804 |H | Short_Literal 0x4 0334 4803 |H | Short_Literal 0x3 0335 0099 | | Action Reference_Dynamic 0336 e212 | | Load 0x1,0x12 0337 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0338 c402 | | Store 0x2,0x2 0339 4502 |E | Exit_Suprogram New_Top_Offset 0x2 033a 0000 0000 | | .BLANK 0000[0x6] 0340 ; -------------------------------------------------------------------------------------- 0340 ; SUBPROGRAM 0340 ; -------------------------------------------------------------------------------------- 0340 034f | O | .CONST 0x034f ; Address of begin 0341 0004 | | .CONST 0x0004 ; Address of exception handler 0342 0006 | | .CONST 0x0006 ; Number of locals 0343 INIT_0340: 0343 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call 0345 e212 | | Load 0x1,0x12 0346 191c | | Execute Package,Field_Reference,Field_Number 0x1c 0347 00c6 | | Action Check_Subprogram_Elaborated 0348 4802 |H | Short_Literal 0x2 0349 4803 |H | Short_Literal 0x3 034a 0099 | | Action Reference_Dynamic 034b e018 | | Load 0x0,0x18 034c e019 | | Load 0x0,0x19 034d 4806 |H | Short_Literal 0x6 034e 0007 | | Action Break_Optional 034f BODY_0340: 034f e402 | | Load 0x2,0x2 0350 4803 |H | Short_Literal 0x3 0351 4803 |H | Short_Literal 0x3 0352 0099 | | Action Reference_Dynamic 0353 4804 |H | Short_Literal 0x4 0354 4803 |H | Short_Literal 0x3 0355 0099 | | Action Reference_Dynamic 0356 e212 | | Load 0x1,0x12 0357 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0358 c402 | | Store 0x2,0x2 0359 4502 |E | Exit_Suprogram New_Top_Offset 0x2 035a 0000 0000 | | .BLANK 0000[0x6] 0360 ; -------------------------------------------------------------------------------------- 0360 ; SUBPROGRAM 0360 ; -------------------------------------------------------------------------------------- 0360 0369 | i | .CONST 0x0369 ; Address of begin 0361 0004 | | .CONST 0x0004 ; Address of exception handler 0362 0002 | | .CONST 0x0002 ; Number of locals 0363 INIT_0360: 0363 e009 | | Load 0x0,0x9 0364 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0365 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 0366 02c7 | | Declare_Variable Any 0367 00d8 | | Load_Top At_Offset_0 0368 1c00 | | Execute_Immediate Run_Utility,0x0 0369 BODY_0360: 0369 e5ed | | Load 0x2,-0x13 036a 01db | | Execute Vector,Length 036b 0c01 | | Execute_Immediate Greater_Equal,0x1 036c e5ee | | Load 0x2,-0x12 036d 01db | | Execute Vector,Length 036e 0c01 | | Execute_Immediate Greater_Equal,0x1 036f 0279 | y | Execute Discrete,And 0370 6809 |h | Jump_Zero 0x37a 0371 e00e | | Load 0x0,0xe 0372 180e | | Execute Package,Field_Execute,Field_Number 0xe 0373 4807 |H | Short_Literal 0x7 0374 0092 049f | | Action Push_String_Extended,0x49f ; "Cannot specifiy both 'Only' and 'Exclude'" 0376 e00f | | Load 0x0,0xf 0377 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0378 e010 | | Load 0x0,0x10 0379 0257 | W | Execute Discrete,Raise 037a 4801 |H | Short_Literal 0x1 037b e009 | | Load 0x0,0x9 037c 1b0e | | Execute Package,Field_Read,Field_Number 0xe 037d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 037e e7ff | | Load 0x3,-0x1 037f e009 | | Load 0x0,0x9 0380 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0381 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0382 c802 | | Store 0x4,0x2 0383 00d8 | | Load_Top At_Offset_0 0384 e009 | | Load 0x0,0x9 0385 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0386 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 0387 680f |h | Jump_Zero 0x397 0388 e00e | | Load 0x0,0xe 0389 180e | | Execute Package,Field_Execute,Field_Number 0xe 038a 4807 |H | Short_Literal 0x7 038b 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "Error in List_Of_Names" 038d e00f | | Load 0x0,0xf 038e 1813 | | Execute Package,Field_Execute,Field_Number 0x13 038f e00e | | Load 0x0,0xe 0390 180e | | Execute Package,Field_Execute,Field_Number 0xe 0391 e802 | | Load 0x4,0x2 0392 e009 | | Load 0x0,0x9 0393 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0394 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0395 e010 | | Load 0x0,0x10 0396 0257 | W | Execute Discrete,Raise 0397 00d8 | | Load_Top At_Offset_0 0398 c9fe | | Store 0x4,-0x2 0399 e5ee | | Load 0x2,-0x12 039a 01db | | Execute Vector,Length 039b 0c01 | | Execute_Immediate Greater_Equal,0x1 039c 6820 |h | Jump_Zero 0x3bd 039d 4801 |H | Short_Literal 0x1 039e e009 | | Load 0x0,0x9 039f 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03a1 e5ee | | Load 0x2,-0x12 03a2 e009 | | Load 0x0,0x9 03a3 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03a4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03a5 c802 | | Store 0x4,0x2 03a6 00d8 | | Load_Top At_Offset_0 03a7 e009 | | Load 0x0,0x9 03a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03a9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03aa 680f |h | Jump_Zero 0x3ba 03ab e00e | | Load 0x0,0xe 03ac 180e | | Execute Package,Field_Execute,Field_Number 0xe 03ad 4807 |H | Short_Literal 0x7 03ae 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "Error in Exclude_References_to" 03b0 e00f | | Load 0x0,0xf 03b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03b2 e00e | | Load 0x0,0xe 03b3 180e | | Execute Package,Field_Execute,Field_Number 0xe 03b4 e802 | | Load 0x4,0x2 03b5 e009 | | Load 0x0,0x9 03b6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03b7 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 03b8 e010 | | Load 0x0,0x10 03b9 0257 | W | Execute Discrete,Raise 03ba 00d8 | | Load_Top At_Offset_0 03bb c9fc | | Store 0x4,-0x4 03bc 7804 |x | Jump 0x3c1 03bd e009 | | Load 0x0,0x9 03be 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03bf 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03c0 c9fc | | Store 0x4,-0x4 03c1 e5ed | | Load 0x2,-0x13 03c2 01db | | Execute Vector,Length 03c3 0c01 | | Execute_Immediate Greater_Equal,0x1 03c4 6820 |h | Jump_Zero 0x3e5 03c5 4801 |H | Short_Literal 0x1 03c6 e009 | | Load 0x0,0x9 03c7 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03c9 e5ed | | Load 0x2,-0x13 03ca e009 | | Load 0x0,0x9 03cb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 03cc 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 03cd c802 | | Store 0x4,0x2 03ce 00d8 | | Load_Top At_Offset_0 03cf e009 | | Load 0x0,0x9 03d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03d1 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 03d2 680f |h | Jump_Zero 0x3e2 03d3 e00e | | Load 0x0,0xe 03d4 180e | | Execute Package,Field_Execute,Field_Number 0xe 03d5 4807 |H | Short_Literal 0x7 03d6 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "Error in only_References_to" 03d8 e00f | | Load 0x0,0xf 03d9 1813 | | Execute Package,Field_Execute,Field_Number 0x13 03da e00e | | Load 0x0,0xe 03db 180e | | Execute Package,Field_Execute,Field_Number 0xe 03dc e802 | | Load 0x4,0x2 03dd e009 | | Load 0x0,0x9 03de 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03df 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 03e0 e010 | | Load 0x0,0x10 03e1 0257 | W | Execute Discrete,Raise 03e2 00d8 | | Load_Top At_Offset_0 03e3 c9fd | | Store 0x4,-0x3 03e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03e5 e009 | | Load 0x0,0x9 03e6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03e7 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 03e8 c9fd | | Store 0x4,-0x3 03e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 03ea 0000 0000 | | .BLANK 0000[0x6] 03f0 ; -------------------------------------------------------------------------------------- 03f0 ; SUBPROGRAM 03f0 ; -------------------------------------------------------------------------------------- 03f0 040e | | .CONST 0x040e ; Address of begin 03f1 0004 | | .CONST 0x0004 ; Address of exception handler 03f2 0006 | | .CONST 0x0006 ; Number of locals 03f3 INIT_03f0: 03f3 e009 | | Load 0x0,0x9 03f4 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03f5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03f6 02c7 | | Declare_Variable Any 03f7 00d8 | | Load_Top At_Offset_0 03f8 1c00 | | Execute_Immediate Run_Utility,0x0 03f9 e009 | | Load 0x0,0x9 03fa 1b0d | | Execute Package,Field_Read,Field_Number 0xd 03fb 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 03fc 02c7 | | Declare_Variable Any 03fd 00d8 | | Load_Top At_Offset_0 03fe 1c00 | | Execute_Immediate Run_Utility,0x0 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 e009 | | Load 0x0,0x9 0404 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0405 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0406 c804 | | Store 0x4,0x4 0407 e009 | | Load 0x0,0x9 0408 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0409 1b23 | # | Execute Package,Field_Read,Field_Number 0x23 040a 02c7 | | Declare_Variable Any 040b 00d8 | | Load_Top At_Offset_0 040c 1c00 | | Execute_Immediate Run_Utility,0x0 040d 00e1 | | Load_Encached Boolean_Cache 040e BODY_03f0: 040e e009 | | Load 0x0,0x9 040f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0410 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0411 c9fc | | Store 0x4,-0x4 0412 4800 |H | Short_Literal 0x0 0413 e009 | | Load 0x0,0x9 0414 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0415 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0416 e7ff | | Load 0x3,-0x1 0417 e009 | | Load 0x0,0x9 0418 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0419 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 041a c802 | | Store 0x4,0x2 041b e802 | | Load 0x4,0x2 041c e009 | | Load 0x0,0x9 041d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 041e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 041f 680f |h | Jump_Zero 0x42f 0420 e00e | | Load 0x0,0xe 0421 180e | | Execute Package,Field_Execute,Field_Number 0xe 0422 4807 |H | Short_Literal 0x7 0423 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "Error in List_Of_Names" 0425 e00f | | Load 0x0,0xf 0426 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0427 e00e | | Load 0x0,0xe 0428 180e | | Execute Package,Field_Execute,Field_Number 0xe 0429 e802 | | Load 0x4,0x2 042a e009 | | Load 0x0,0x9 042b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 042c 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 042d e010 | | Load 0x0,0x10 042e 0257 | W | Execute Discrete,Raise 042f 4801 |H | Short_Literal 0x1 0430 e009 | | Load 0x0,0x9 0431 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0432 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0433 e5ef | | Load 0x2,-0x11 0434 e009 | | Load 0x0,0x9 0435 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0436 182a | * | Execute Package,Field_Execute,Field_Number 0x2a 0437 c805 | | Store 0x4,0x5 0438 e805 | | Load 0x4,0x5 0439 e009 | | Load 0x0,0x9 043a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 043b 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 043c 680f |h | Jump_Zero 0x44c 043d e00e | | Load 0x0,0xe 043e 180e | | Execute Package,Field_Execute,Field_Number 0xe 043f 4807 |H | Short_Literal 0x7 0440 0092 04a3 | | Action Push_String_Extended,0x4a3 ; "Error in Exclude_References_From" 0442 e00f | | Load 0x0,0xf 0443 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0444 e00e | | Load 0x0,0xe 0445 180e | | Execute Package,Field_Execute,Field_Number 0xe 0446 e805 | | Load 0x4,0x5 0447 e009 | | Load 0x0,0x9 0448 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0449 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 044a e010 | | Load 0x0,0x10 044b 0257 | W | Execute Discrete,Raise 044c 00cf | | Action Mark_Auxiliary 044d 783e |x> | Jump 0x48c 044e e802 | | Load 0x4,0x2 044f e009 | | Load 0x0,0x9 0450 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0451 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0452 e009 | | Load 0x0,0x9 0453 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0454 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 0455 c803 | | Store 0x4,0x3 0456 e803 | | Load 0x4,0x3 0457 e009 | | Load 0x0,0x9 0458 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0459 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 045a 6807 |h | Jump_Zero 0x462 045b e00e | | Load 0x0,0xe 045c 180e | | Execute Package,Field_Execute,Field_Number 0xe 045d e803 | | Load 0x4,0x3 045e e009 | | Load 0x0,0x9 045f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0460 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 0461 7824 |x$ | Jump 0x486 0462 00cf | | Action Mark_Auxiliary 0463 781c |x | Jump 0x480 0464 e803 | | Load 0x4,0x3 0465 e009 | | Load 0x0,0x9 0466 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0467 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0468 e805 | | Load 0x4,0x5 0469 e009 | | Load 0x0,0x9 046a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 046b 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 046c 700d |p | Jump_Nonzero 0x47a 046d 00e1 | | Load_Encached Boolean_Cache 046e e009 | | Load 0x0,0x9 046f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0470 180e | | Execute Package,Field_Execute,Field_Number 0xe 0471 e803 | | Load 0x4,0x3 0472 e009 | | Load 0x0,0x9 0473 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0474 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 0475 e804 | | Load 0x4,0x4 0476 e009 | | Load 0x0,0x9 0477 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0478 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 0479 c806 | | Store 0x4,0x6 047a e803 | | Load 0x4,0x3 047b e009 | | Load 0x0,0x9 047c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 047d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 047e c803 | | Store 0x4,0x3 047f 00c9 | | Action Pop_Auxiliary_Loop 0480 e803 | | Load 0x4,0x3 0481 e009 | | Load 0x0,0x9 0482 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0483 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0484 6fdf |o | Jump_Zero 0x464 0485 00ce | | Action Pop_Auxiliary 0486 e802 | | Load 0x4,0x2 0487 e009 | | Load 0x0,0x9 0488 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0489 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 048a c802 | | Store 0x4,0x2 048b 00c9 | | Action Pop_Auxiliary_Loop 048c e802 | | Load 0x4,0x2 048d e009 | | Load 0x0,0x9 048e 1b0d | | Execute Package,Field_Read,Field_Number 0xd 048f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0490 6fbd |o | Jump_Zero 0x44e 0491 00ce | | Action Pop_Auxiliary 0492 e802 | | Load 0x4,0x2 0493 e009 | | Load 0x0,0x9 0494 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0495 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27 0496 e802 | | Load 0x4,0x2 0497 c9fd | | Store 0x4,-0x3 0498 e804 | | Load 0x4,0x4 0499 c9fe | | Store 0x4,-0x2 049a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 049b ; -------------------------------------------------------------------------------------- 049b ; STRING TABLE 049b ; -------------------------------------------------------------------------------------- 049b 0014 | | .STRTAB 0x0014->0x04a5 ; "Cannot create list file " 049c 002a | * | .STRTAB 0x002a->0x04b1 ; "** Failed **" 049d 0034 | 4 | .STRTAB 0x0034->0x04b7 ; "Cross_reference: Cannot create list file " 049e 005b | [ | .STRTAB 0x005b->0x04cb ; "** Cross_Reference: Couldn't open list file **" 049f 0087 | | .STRTAB 0x0087->0x04e2 ; "Cannot specifiy both 'Only' and 'Exclude'" 04a0 00ae | | .STRTAB 0x00ae->0x04f7 ; "Error in List_Of_Names" 04a1 00c2 | | .STRTAB 0x00c2->0x0502 ; "Error in Exclude_References_to" 04a2 00de | | .STRTAB 0x00de->0x0511 ; "Error in only_References_to" 04a3 00f7 | | .STRTAB 0x00f7->0x051e ; "Error in Exclude_References_From" 04a4 0115 | | .STREND 0x0115->0x052e 04a5 4361 6e6e |Cann| .STRTAB_STRINGS 052f 0000 | | .XXX[0x1] 0530 ; -------------------------------------------------------------------------------------- 0530 ; Debug Table 0530 ; -------------------------------------------------------------------------------------- 0530 0004 0003 | | .DEBUG4 0x0004,0x0003,0xe46d,0x0000,0x0001,0x0000 0536 6900 cec5 |i | .XXX[0xca] 0538 c033 2560 | 3%`| 053a 0000 0001 | | 053c 7800 0128 |x (| 053e 1384 4980 | I | 0540 6632 e000 |f2 | 0542 0000 0000 | | 0544 0101 0016 | | 0546 0000 0000 | | 0548 0019 92b0 | | 054a 033a 208d | : | 054c 3f00 6a05 |? j | 054e 8000 0000 | | 0550 066c 8801 | l | 0552 9b51 8066 | Q f| 0554 e348 a118 | H | 0556 066c 8800 | l | 0558 0000 0089 | | 055a 0000 2c17 | , | 055c 0019 b8d0 | | 055e 0003 354c | 5L| 0560 000b 0000 | | 0562 0000 3354 | 3T| 0564 c844 8006 | D | 0566 6970 0000 |ip | 0568 0000 66c1 | f | 056a f3b1 700c | p | 056c d2e0 0000 | | 056e 0001 0800 | | 0570 0057 d6a4 | W | 0572 0200 19a5 | | 0574 c006 7394 | s | 0576 019b ec80 | | 0578 672d 6000 |g-` | 057a 0582 e000 | | 057c 06bb a54c | L| 057e c480 3371 | 3q| 0580 a000 0000 | | 0582 0338 7d00 | 8} | 0584 ce3d 0000 | = | 0586 0000 0004 | | 0588 ec5c 0337 | \ 7| 058a d900 0000 | | 058c 000c 8000 | | 058e 0d20 19d8 | | 0590 b806 6fb2 | o | 0592 0000 0000 | | 0594 8900 0034 | 4| 0596 5390 8930 |S 0| 0598 0cdc 6800 | h | 059a 0000 0000 | | 059c 0020 2002 | | 059e c000 0000 | | 05a0 0003 37d9 | 7 | 05a2 0067 f471 | g q| 05a4 a7e0 0d40 | @| 05a6 b000 0000 | | 05a8 00ce f1c0 | | 05aa 33c2 600c |3 ` | 05ac f275 1423 | u #| 05ae 00ce f1c0 | | 05b0 0000 000d | | 05b2 4000 0973 |@ s| 05b4 7803 3c9d |x < | 05b6 0000 6759 | gY| 05b8 e001 2000 | | 05ba 0000 0675 | u| 05bc 9f08 9000 | | 05be ce8e c000 | | 05c0 0000 0cee | | 05c2 4a76 2e01 |Jv. | 05c4 9d1d 8000 | | 05c6 0000 2540 | %@| 05c8 0012 dc04 | | 05ca 8040 033a | @ :| 05cc 3b00 cfd3 |; | 05ce 4033 d5c0 |@3 | 05d0 0cfb b800 | | 05d2 012e 6f00 | .o | 05d4 00d7 8b69 | i| 05d6 9890 0679 | y| 05d8 3a00 0000 |: | 05da 0067 c000 | g | 05dc 19f3 b800 | | 05de 0000 0000 | | 05e0 9d8b 8067 | g| 05e2 ab80 0000 | | 05e4 0001 9000 | | 05e6 01a4 033b | ;| 05e8 1700 cf57 | W| 05ea 0000 0000 | | 05ec 0d40 0009 | @ | 05ee b52e 1126 | . &| 05f0 019e 4e80 | N | 05f2 0000 0000 | | 05f4 0004 0400 | | 05f6 5800 0000 |X | 05f8 0000 67ab | g | 05fa 800d 149a | | 05fc 34fc 01a8 |4 | 05fe 1600 0000 | |