|
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 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦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 0478 | x | .CONST 0x0478 ; Offset of debug table 0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction 0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion 0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments) 0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00e5 | | .CONST 0x00e5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 002e | . | .CONST 0x002e ; Number of locals 000b INIT_0008: 000b 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 000d 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 000f 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0011 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated 0013 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated 0015 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated 0017 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated 0019 029a 030b | | Declare_Subprogram INIT_0308,For_Outer_Call,Visible,Unelaborated 001b 029a 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call,Visible,Unelaborated 001d 029a 033b | ;| Declare_Subprogram INIT_0338,For_Outer_Call,Visible,Unelaborated 001f e001 | | Load 0x0,0x1 0020 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address 0021 e002 | | Load 0x0,0x2 0022 0129 | ) | Execute Any,Make_Visible 0023 e003 | | Load 0x0,0x3 0024 0129 | ) | Execute Any,Make_Visible 0025 e004 | | Load 0x0,0x4 0026 0129 | ) | Execute Any,Make_Visible 0027 e005 | | Load 0x0,0x5 0028 0129 | ) | Execute Any,Make_Visible 0029 00bf | | Action Accept_Activation 002a 4801 |H | Short_Literal 0x1 002b 483c |H< | Short_Literal 0x3c 002c 00e9 | | Load_Encached String_Cache 002d 035b | [ | Declare_Type Array,Constrained 002e e006 | | Load 0x0,0x6 002f e007 | | Load 0x0,0x7 0030 e008 | | Load 0x0,0x8 0031 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0032 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0033 e009 | | Load 0x0,0x9 0034 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0035 0387 | | Declare_Variable Package 0036 00d8 | | Load_Top At_Offset_0 0037 020f | | Execute Module,Activate 0038 e00a | | Load 0x0,0xa 0039 e00b | | Load 0x0,0xb 003a 00e9 | | Load_Encached String_Cache 003b e009 | | Load 0x0,0x9 003c 1b19 | | Execute Package,Field_Read,Field_Number 0x19 003d 0387 | | Declare_Variable Package 003e 00d8 | | Load_Top At_Offset_0 003f 020f | | Execute Module,Activate 0040 e00c | | Load 0x0,0xc 0041 e00d | | Load 0x0,0xd 0042 00e2 | | Load_Encached Integer_Cache 0043 e009 | | Load 0x0,0x9 0044 1b19 | | Execute Package,Field_Read,Field_Number 0x19 0045 0387 | | Declare_Variable Package 0046 00d8 | | Load_Top At_Offset_0 0047 020f | | Execute Module,Activate 0048 e00e | | Load 0x0,0xe 0049 e00f | | Load 0x0,0xf 004a e008 | | Load 0x0,0x8 004b 1b16 | | Execute Package,Field_Read,Field_Number 0x16 004c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 004d e010 | | Load 0x0,0x10 004e 0387 | | Declare_Variable Package 004f 00d8 | | Load_Top At_Offset_0 0050 020f | | Execute Module,Activate 0051 e011 | | Load 0x0,0x11 0052 e012 | | Load 0x0,0x12 0053 e21c | | Load 0x1,0x1c 0054 e010 | | Load 0x0,0x10 0055 0387 | | Declare_Variable Package 0056 00d8 | | Load_Top At_Offset_0 0057 020f | | Execute Module,Activate 0058 4801 |H | Short_Literal 0x1 0059 4832 |H2 | Short_Literal 0x32 005a 00e9 | | Load_Encached String_Cache 005b 035b | [ | Declare_Type Array,Constrained 005c 4801 |H | Short_Literal 0x1 005d 4850 |HP | Short_Literal 0x50 005e 00e9 | | Load_Encached String_Cache 005f 035b | [ | Declare_Type Array,Constrained 0060 e008 | | Load 0x0,0x8 0061 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0062 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0063 00da | | Load_Top At_Offset_2 0064 00da | | Load_Top At_Offset_2 0065 02a0 | | Declare_Subprogram Null_Subprogram 0066 4803 |H | Short_Literal 0x3 0067 032d | - | Declare_Type Record,Defined 0068 e013 | | Load 0x0,0x13 0069 e014 | | Load 0x0,0x14 006a 00da | | Load_Top At_Offset_2 006b e010 | | Load 0x0,0x10 006c 0387 | | Declare_Variable Package 006d 00d8 | | Load_Top At_Offset_0 006e 020f | | Execute Module,Activate 006f e009 | | Load 0x0,0x9 0070 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0071 02c7 | | Declare_Variable Any 0072 00d8 | | Load_Top At_Offset_0 0073 1c00 | | Execute_Immediate Run_Utility,0x0 0074 e221 | ! | Load 0x1,0x21 0075 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0076 e220 | | Load 0x1,0x20 0077 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0078 00db | | Load_Top At_Offset_3 0079 1b10 | | Execute Package,Field_Read,Field_Number 0x10 007a e221 | ! | Load 0x1,0x21 007b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 007c 00e1 | | Load_Encached Boolean_Cache 007d 4801 |H | Short_Literal 0x1 007e 4811 |H | Short_Literal 0x11 007f 00e9 | | Load_Encached String_Cache 0080 035b | [ | Declare_Type Array,Constrained 0081 0337 | 7 | Declare_Variable Array 0082 00d8 | | Load_Top At_Offset_0 0083 0335 | 5 | Declare_Variable Array,Duplicate 0084 00cd | | Action Spare6_Action 0085 4821 |H! | Short_Literal 0x21 0086 4801 |H | Short_Literal 0x1 0087 00da | | Load_Top At_Offset_2 0088 01d6 | | Execute Vector,Field_Write 0089 4875 |Hu | Short_Literal 0x75 008a 4802 |H | Short_Literal 0x2 008b 00da | | Load_Top At_Offset_2 008c 01d6 | | Execute Vector,Field_Write 008d 4863 |Hc | Short_Literal 0x63 008e 4803 |H | Short_Literal 0x3 008f 00da | | Load_Top At_Offset_2 0090 01d6 | | Execute Vector,Field_Write 0091 486f |Ho | Short_Literal 0x6f 0092 4804 |H | Short_Literal 0x4 0093 00da | | Load_Top At_Offset_2 0094 01d6 | | Execute Vector,Field_Write 0095 4864 |Hd | Short_Literal 0x64 0096 4805 |H | Short_Literal 0x5 0097 00da | | Load_Top At_Offset_2 0098 01d6 | | Execute Vector,Field_Write 0099 4865 |He | Short_Literal 0x65 009a 4806 |H | Short_Literal 0x6 009b 00da | | Load_Top At_Offset_2 009c 01d6 | | Execute Vector,Field_Write 009d 482e |H. | Short_Literal 0x2e 009e 4807 |H | Short_Literal 0x7 009f 00da | | Load_Top At_Offset_2 00a0 01d6 | | Execute Vector,Field_Write 00a1 486d |Hm | Short_Literal 0x6d 00a2 4808 |H | Short_Literal 0x8 00a3 00da | | Load_Top At_Offset_2 00a4 01d6 | | Execute Vector,Field_Write 00a5 4869 |Hi | Short_Literal 0x69 00a6 4809 |H | Short_Literal 0x9 00a7 00da | | Load_Top At_Offset_2 00a8 01d6 | | Execute Vector,Field_Write 00a9 4863 |Hc | Short_Literal 0x63 00aa 480a |H | Short_Literal 0xa 00ab 00da | | Load_Top At_Offset_2 00ac 01d6 | | Execute Vector,Field_Write 00ad 4872 |Hr | Short_Literal 0x72 00ae 480b |H | Short_Literal 0xb 00af 00da | | Load_Top At_Offset_2 00b0 01d6 | | Execute Vector,Field_Write 00b1 486f |Ho | Short_Literal 0x6f 00b2 480c |H | Short_Literal 0xc 00b3 00da | | Load_Top At_Offset_2 00b4 01d6 | | Execute Vector,Field_Write 00b5 4863 |Hc | Short_Literal 0x63 00b6 480d |H | Short_Literal 0xd 00b7 00da | | Load_Top At_Offset_2 00b8 01d6 | | Execute Vector,Field_Write 00b9 486f |Ho | Short_Literal 0x6f 00ba 480e |H | Short_Literal 0xe 00bb 00da | | Load_Top At_Offset_2 00bc 01d6 | | Execute Vector,Field_Write 00bd 4864 |Hd | Short_Literal 0x64 00be 480f |H | Short_Literal 0xf 00bf 00da | | Load_Top At_Offset_2 00c0 01d6 | | Execute Vector,Field_Write 00c1 4865 |He | Short_Literal 0x65 00c2 4810 |H | Short_Literal 0x10 00c3 00da | | Load_Top At_Offset_2 00c4 01d6 | | Execute Vector,Field_Write 00c5 485f |H_ | Short_Literal 0x5f 00c6 4811 |H | Short_Literal 0x11 00c7 00da | | Load_Top At_Offset_2 00c8 01d6 | | Execute Vector,Field_Write 00c9 00d9 | | Load_Top At_Offset_1 00ca 01d4 | | Execute Vector,Structure_Write 00cb 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00cc 00c7 | | Action Elaborate_Subprogram 00cd 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00ce 00c7 | | Action Elaborate_Subprogram 00cf 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00d0 00c7 | | Action Elaborate_Subprogram 00d1 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00d2 00c7 | | Action Elaborate_Subprogram 00d3 1d12 | | Execute_Immediate Reference_Lex_1,0x12 00d4 00c7 | | Action Elaborate_Subprogram 00d5 1d11 | | Execute_Immediate Reference_Lex_1,0x11 00d6 00c7 | | Action Elaborate_Subprogram 00d7 1d13 | | Execute_Immediate Reference_Lex_1,0x13 00d8 00c7 | | Action Elaborate_Subprogram 00d9 1d14 | | Execute_Immediate Reference_Lex_1,0x14 00da 00c7 | | Action Elaborate_Subprogram 00db 029d 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call 00dd 029d 038b | | Declare_Subprogram INIT_0388,For_Outer_Call 00df 1d15 | | Execute_Immediate Reference_Lex_1,0x15 00e0 00c7 | | Action Elaborate_Subprogram 00e1 1d16 | | Execute_Immediate Reference_Lex_1,0x16 00e2 00c7 | | Action Elaborate_Subprogram 00e3 1d17 | | Execute_Immediate Reference_Lex_1,0x17 00e4 00c7 | | Action Elaborate_Subprogram 00e5 BODY_0008: 00e5 00be | | Action Activate_Tasks 00e6 00bc | | Action Signal_Activated 00e7 00bb | | Action Signal_Completion 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0160 | ` | .CONST 0x0160 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4801 |H | Short_Literal 0x1 00ec 0092 03c0 | | Action Push_String_Extended,0x3c0 ; "<default>" 00ee e5fe | | Load 0x2,-0x2 00ef e015 | | Load 0x0,0x15 00f0 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 00f1 6831 |h1 | Jump_Zero 0x123 00f2 e226 | & | Load 0x1,0x26 00f3 00ea | | Load_Encached Null_String_Cache 00f4 e22c | , | Load 0x1,0x2c 00f5 e5ff | | Load 0x2,-0x1 00f6 01cc | | Execute Vector,Catenate 00f7 0092 03c1 | | Action Push_String_Extended,0x3c1 ; ".packages" 00f9 01cc | | Execute Vector,Catenate 00fa 4800 |H | Short_Literal 0x0 00fb e009 | | Load 0x0,0x9 00fc 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00fd c226 | & | Store 0x1,0x26 00fe e227 | ' | Load 0x1,0x27 00ff 00ea | | Load_Encached Null_String_Cache 0100 e22c | , | Load 0x1,0x2c 0101 e5ff | | Load 0x2,-0x1 0102 01cc | | Execute Vector,Catenate 0103 0092 03c2 | | Action Push_String_Extended,0x3c2 ; ".labels" 0105 01cc | | Execute Vector,Catenate 0106 4800 |H | Short_Literal 0x0 0107 e221 | ! | Load 0x1,0x21 0108 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0109 c227 | ' | Store 0x1,0x27 010a e228 | ( | Load 0x1,0x28 010b 00ea | | Load_Encached Null_String_Cache 010c e22c | , | Load 0x1,0x2c 010d e5ff | | Load 0x2,-0x1 010e 01cc | | Execute Vector,Catenate 010f 0092 03c3 | | Action Push_String_Extended,0x3c3 ; ".addresses" 0111 01cc | | Execute Vector,Catenate 0112 4800 |H | Short_Literal 0x0 0113 e220 | | Load 0x1,0x20 0114 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0115 c228 | ( | Store 0x1,0x28 0116 e229 | ) | Load 0x1,0x29 0117 00ea | | Load_Encached Null_String_Cache 0118 e22c | , | Load 0x1,0x2c 0119 e5ff | | Load 0x2,-0x1 011a 01cc | | Execute Vector,Catenate 011b 0092 03c4 | | Action Push_String_Extended,0x3c4 ; ".reasons" 011d 01cc | | Execute Vector,Catenate 011e 4800 |H | Short_Literal 0x0 011f e225 | % | Load 0x1,0x25 0120 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0121 c229 | ) | Store 0x1,0x29 0122 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0123 e226 | & | Load 0x1,0x26 0124 00ea | | Load_Encached Null_String_Cache 0125 e5fe | | Load 0x2,-0x2 0126 0092 03c5 | | Action Push_String_Extended,0x3c5 ; ".microcode_" 0128 01cc | | Execute Vector,Catenate 0129 e5ff | | Load 0x2,-0x1 012a 01cc | | Execute Vector,Catenate 012b 0092 03c1 | | Action Push_String_Extended,0x3c1 ; ".packages" 012d 01cc | | Execute Vector,Catenate 012e 4800 |H | Short_Literal 0x0 012f e009 | | Load 0x0,0x9 0130 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0131 c226 | & | Store 0x1,0x26 0132 e227 | ' | Load 0x1,0x27 0133 00ea | | Load_Encached Null_String_Cache 0134 e5fe | | Load 0x2,-0x2 0135 0092 03c6 | | Action Push_String_Extended,0x3c6 ; ".Microcode_" 0137 01cc | | Execute Vector,Catenate 0138 e5ff | | Load 0x2,-0x1 0139 01cc | | Execute Vector,Catenate 013a 0092 03c2 | | Action Push_String_Extended,0x3c2 ; ".labels" 013c 01cc | | Execute Vector,Catenate 013d 4800 |H | Short_Literal 0x0 013e e221 | ! | Load 0x1,0x21 013f 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0140 c227 | ' | Store 0x1,0x27 0141 e228 | ( | Load 0x1,0x28 0142 00ea | | Load_Encached Null_String_Cache 0143 e5fe | | Load 0x2,-0x2 0144 0092 03c6 | | Action Push_String_Extended,0x3c6 ; ".Microcode_" 0146 01cc | | Execute Vector,Catenate 0147 e5ff | | Load 0x2,-0x1 0148 01cc | | Execute Vector,Catenate 0149 0092 03c3 | | Action Push_String_Extended,0x3c3 ; ".addresses" 014b 01cc | | Execute Vector,Catenate 014c 4800 |H | Short_Literal 0x0 014d e220 | | Load 0x1,0x20 014e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 014f c228 | ( | Store 0x1,0x28 0150 e229 | ) | Load 0x1,0x29 0151 00ea | | Load_Encached Null_String_Cache 0152 e5fe | | Load 0x2,-0x2 0153 0092 03c6 | | Action Push_String_Extended,0x3c6 ; ".Microcode_" 0155 01cc | | Execute Vector,Catenate 0156 e5ff | | Load 0x2,-0x1 0157 01cc | | Execute Vector,Catenate 0158 0092 03c4 | | Action Push_String_Extended,0x3c4 ; ".reasons" 015a 01cc | | Execute Vector,Catenate 015b 4800 |H | Short_Literal 0x0 015c e225 | % | Load 0x1,0x25 015d 1815 | | Execute Package,Field_Execute,Field_Number 0x15 015e c229 | ) | Store 0x1,0x29 015f 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0160 TRAP_00e8: 0160 00d8 | | Load_Top At_Offset_0 0161 0107 | | Execute Exception,Get_Name 0162 4920 |I | Short_Literal 0x120 0163 492f |I/ | Short_Literal 0x12f 0164 0262 | b | Execute Discrete,In_Range 0165 6802 |h | Jump_Zero 0x168 0166 e21a | | Load 0x1,0x1a 0167 0257 | W | Execute Discrete,Raise 0168 0100 | | Execute Exception,Raise 0169 0000 0000 | | .BLANK 0000[0x7] 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e226 | & | Load 0x1,0x26 0174 e009 | | Load 0x0,0x9 0175 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0176 c226 | & | Store 0x1,0x26 0177 e227 | ' | Load 0x1,0x27 0178 e221 | ! | Load 0x1,0x21 0179 1816 | | Execute Package,Field_Execute,Field_Number 0x16 017a c227 | ' | Store 0x1,0x27 017b e228 | ( | Load 0x1,0x28 017c e220 | | Load 0x1,0x20 017d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 017e c228 | ( | Store 0x1,0x28 017f e229 | ) | Load 0x1,0x29 0180 e225 | % | Load 0x1,0x25 0181 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0182 c229 | ) | Store 0x1,0x29 0183 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018d | | .CONST 0x018d ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0003 | | .CONST 0x0003 ; Number of locals 018b INIT_0188: 018b 00e2 | | Load_Encached Integer_Cache 018c 00e1 | | Load_Encached Boolean_Cache 018d BODY_0188: 018d 00e1 | | Load_Encached Boolean_Cache 018e 00e2 | | Load_Encached Integer_Cache 018f 4810 |H | Short_Literal 0x10 0190 e5ff | | Load 0x2,-0x1 0191 e015 | | Load 0x0,0x15 0192 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0193 005b | [ | Store_Top Discrete,At_Offset_3 0194 0059 | Y | Store_Top Discrete,At_Offset_1 0195 00d8 | | Load_Top At_Offset_0 0196 7002 |p | Jump_Nonzero 0x199 0197 e219 | | Load 0x1,0x19 0198 0257 | W | Execute Discrete,Raise 0199 00d9 | | Load_Top At_Offset_1 019a 00d8 | | Load_Top At_Offset_0 019b e008 | | Load 0x0,0x8 019c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 019d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 019e 0260 | ` | Execute Discrete,In_Type 019f 7001 |p | Jump_Nonzero 0x1a1 01a0 0801 | | Execute_Immediate Raise,0x1 01a1 8210 | | Call 0x1,0x10 01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a3 0000 0000 | | .BLANK 0000[0x5] 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01b9 | | .CONST 0x01b9 ; Address of begin 01a9 01fd | | .CONST 0x01fd ; Address of exception handler 01aa 0006 | | .CONST 0x0006 ; Number of locals 01ab INIT_01a8: 01ab e008 | | Load 0x0,0x8 01ac 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ae e008 | | Load 0x0,0x8 01af 1b16 | | Execute Package,Field_Read,Field_Number 0x16 01b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01b1 4801 |H | Short_Literal 0x1 01b2 483c |H< | Short_Literal 0x3c 01b3 00e9 | | Load_Encached String_Cache 01b4 035b | [ | Declare_Type Array,Constrained 01b5 0337 | 7 | Declare_Variable Array 01b6 00e2 | | Load_Encached Integer_Cache 01b7 00e3 | | Load_Encached Natural_Cache 01b8 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 01b9 BODY_01a8: 01b9 e5ff | | Load 0x2,-0x1 01ba 4900 |I | Short_Literal 0x100 01bb 49ff |I | Short_Literal 0x1ff 01bc 0262 | b | Execute Discrete,In_Range 01bd 6803 |h | Jump_Zero 0x1c1 01be 0092 03c7 | | Action Push_String_Extended,0x3c7 ; "EVENT" 01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01c1 e226 | & | Load 0x1,0x26 01c2 e009 | | Load 0x0,0x9 01c3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01c4 c226 | & | Store 0x1,0x26 01c5 00cf | | Action Mark_Auxiliary 01c6 e21d | | Load 0x1,0x1d 01c7 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01c8 e226 | & | Load 0x1,0x26 01c9 e21d | | Load 0x1,0x1d 01ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01cb c402 | | Store 0x2,0x2 01cc e21d | | Load 0x1,0x1d 01cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01ce e226 | & | Load 0x1,0x26 01cf e21d | | Load 0x1,0x1d 01d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d1 c403 | | Store 0x2,0x3 01d2 00db | | Load_Top At_Offset_3 01d3 e226 | & | Load 0x1,0x26 01d4 e21e | | Load 0x1,0x1e 01d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d6 00d1 | | Pop_Control Pop_Count_1 01d7 e21f | | Load 0x1,0x1f 01d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf 01d9 e226 | & | Load 0x1,0x26 01da e21f | | Load 0x1,0x1f 01db 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01dc 005b | [ | Store_Top Discrete,At_Offset_3 01dd e5ff | | Load 0x2,-0x1 01de e403 | | Load 0x2,0x3 01df 027a | z | Execute Discrete,Less_Equal 01e0 7002 |p | Jump_Nonzero 0x1e3 01e1 00c9 | | Action Pop_Auxiliary_Loop 01e2 7fe3 | | Jump 0x1c6 01e3 00ce | | Action Pop_Auxiliary 01e4 e402 | | Load 0x2,0x2 01e5 e5ff | | Load 0x2,-0x1 01e6 027a | z | Execute Discrete,Less_Equal 01e7 7002 |p | Jump_Nonzero 0x1ea 01e8 e21b | | Load 0x1,0x1b 01e9 0257 | W | Execute Discrete,Raise 01ea 00cf | | Action Mark_Auxiliary 01eb 7804 |x | Jump 0x1f0 01ec 00d9 | | Load_Top At_Offset_1 01ed 0a01 | | Execute_Immediate Plus,0x1 01ee 005a | Z | Store_Top Discrete,At_Offset_2 01ef 00c9 | | Action Pop_Auxiliary_Loop 01f0 00d9 | | Load_Top At_Offset_1 01f1 e404 | | Load 0x2,0x4 01f2 01d7 | | Execute Vector,Field_Read 01f3 77f8 |w | Jump_Nonzero 0x1ec 01f4 00ce | | Action Pop_Auxiliary 01f5 4801 |H | Short_Literal 0x1 01f6 00d9 | | Load_Top At_Offset_1 01f7 0aff | | Execute_Immediate Plus,-0x1 01f8 e404 | | Load 0x2,0x4 01f9 01cf | | Execute Vector,Slice_Read 01fa 00e9 | | Load_Encached String_Cache 01fb 01c6 | | Execute Vector,Convert_To_Formal 01fc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01fd TRAP_01a8: 01fd 00d8 | | Load_Top At_Offset_0 01fe 0107 | | Execute Exception,Get_Name 01ff 4950 |IP | Short_Literal 0x150 0200 495f |I_ | Short_Literal 0x15f 0201 0262 | b | Execute Discrete,In_Range 0202 6802 |h | Jump_Zero 0x205 0203 e21b | | Load 0x1,0x1b 0204 0257 | W | Execute Discrete,Raise 0205 0100 | | Execute Exception,Raise 0206 0000 0000 | | .XXX[0x2] 0208 ; -------------------------------------------------------------------------------------- 0208 ; SUBPROGRAM 0208 ; -------------------------------------------------------------------------------------- 0208 0211 | | .CONST 0x0211 ; Address of begin 0209 0004 | | .CONST 0x0004 ; Address of exception handler 020a 0003 | | .CONST 0x0003 ; Number of locals 020b INIT_0208: 020b e008 | | Load 0x0,0x8 020c 1b16 | | Execute Package,Field_Read,Field_Number 0x16 020d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 020e e008 | | Load 0x0,0x8 020f 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0210 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0211 BODY_0208: 0211 e008 | | Load 0x0,0x8 0212 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0213 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0214 e008 | | Load 0x0,0x8 0215 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0216 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0217 e5ff | | Load 0x2,-0x1 0218 8212 | | Call 0x1,0x12 0219 005a | Z | Store_Top Discrete,At_Offset_2 021a 005a | Z | Store_Top Discrete,At_Offset_2 021b 4820 |H | Short_Literal 0x20 021c 4805 |H | Short_Literal 0x5 021d 4810 |H | Short_Literal 0x10 021e 00db | | Load_Top At_Offset_3 021f e015 | | Load 0x0,0x15 0220 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0221 4801 |H | Short_Literal 0x1 0222 4805 |H | Short_Literal 0x5 0223 e5fe | | Load 0x2,-0x2 0224 01ce | | Execute Vector,Slice_Write 0225 4820 |H | Short_Literal 0x20 0226 4805 |H | Short_Literal 0x5 0227 4810 |H | Short_Literal 0x10 0228 e402 | | Load 0x2,0x2 0229 e015 | | Load 0x0,0x15 022a 1816 | | Execute Package,Field_Execute,Field_Number 0x16 022b 4801 |H | Short_Literal 0x1 022c 4805 |H | Short_Literal 0x5 022d e5fd | | Load 0x2,-0x3 022e 01ce | | Execute Vector,Slice_Write 022f 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0230 ; -------------------------------------------------------------------------------------- 0230 ; SUBPROGRAM 0230 ; -------------------------------------------------------------------------------------- 0230 0239 | 9 | .CONST 0x0239 ; Address of begin 0231 0004 | | .CONST 0x0004 ; Address of exception handler 0232 0003 | | .CONST 0x0003 ; Number of locals 0233 INIT_0230: 0233 4801 |H | Short_Literal 0x1 0234 4832 |H2 | Short_Literal 0x32 0235 00e9 | | Load_Encached String_Cache 0236 035b | [ | Declare_Type Array,Constrained 0237 0337 | 7 | Declare_Variable Array 0238 00e2 | | Load_Encached Integer_Cache 0239 BODY_0230: 0239 e226 | & | Load 0x1,0x26 023a e009 | | Load 0x0,0x9 023b 1814 | | Execute Package,Field_Execute,Field_Number 0x14 023c c226 | & | Store 0x1,0x26 023d 00cf | | Action Mark_Auxiliary 023e e21d | | Load 0x1,0x1d 023f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0240 e226 | & | Load 0x1,0x26 0241 e21d | | Load 0x1,0x1d 0242 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0243 c5fe | | Store 0x2,-0x2 0244 e21d | | Load 0x1,0x1d 0245 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0246 e226 | & | Load 0x1,0x26 0247 e21d | | Load 0x1,0x1d 0248 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0249 c5fd | | Store 0x2,-0x3 024a 00da | | Load_Top At_Offset_2 024b e226 | & | Load 0x1,0x26 024c e21e | | Load 0x1,0x1e 024d 1810 | | Execute Package,Field_Execute,Field_Number 0x10 024e 00d1 | | Pop_Control Pop_Count_1 024f e21f | | Load 0x1,0x1f 0250 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0251 e226 | & | Load 0x1,0x26 0252 e21f | | Load 0x1,0x1f 0253 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0254 005a | Z | Store_Top Discrete,At_Offset_2 0255 e5ff | | Load 0x2,-0x1 0256 01da | | Execute Vector,Bounds 0257 e402 | | Load 0x2,0x2 0258 01cf | | Execute Vector,Slice_Read 0259 e5ff | | Load 0x2,-0x1 025a 01df | | Execute Vector,Equal 025b 7002 |p | Jump_Nonzero 0x25e 025c 00c9 | | Action Pop_Auxiliary_Loop 025d 7fe0 | | Jump 0x23e 025e 4502 |E | Exit_Suprogram New_Top_Offset 0x2 025f 0000 | | .XXX[0x1] 0260 ; -------------------------------------------------------------------------------------- 0260 ; SUBPROGRAM 0260 ; -------------------------------------------------------------------------------------- 0260 027e | ~ | .CONST 0x027e ; Address of begin 0261 0004 | | .CONST 0x0004 ; Address of exception handler 0262 0007 | | .CONST 0x0007 ; Number of locals 0263 INIT_0260: 0263 e008 | | Load 0x0,0x8 0264 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0265 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0266 e21c | | Load 0x1,0x1c 0267 0337 | 7 | Declare_Variable Array 0268 00e3 | | Load_Encached Natural_Cache 0269 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 026a 00e2 | | Load_Encached Integer_Cache 026b e228 | ( | Load 0x1,0x28 026c e220 | | Load 0x1,0x20 026d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 026e e220 | | Load 0x1,0x20 026f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0270 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0271 00d8 | | Load_Top At_Offset_0 0272 e5ff | | Load 0x2,-0x1 0273 0271 | q | Execute Discrete,Times 0274 09f2 | | Execute_Immediate Binary_Scale,-0xe 0275 00d8 | | Load_Top At_Offset_0 0276 e220 | | Load 0x1,0x20 0277 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0278 0260 | ` | Execute Discrete,In_Type 0279 7001 |p | Jump_Nonzero 0x27b 027a 0801 | | Execute_Immediate Raise,0x1 027b e220 | | Load 0x1,0x20 027c 1b13 | | Execute Package,Field_Read,Field_Number 0x13 027d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 027e BODY_0260: 027e e220 | | Load 0x1,0x20 027f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0280 00d9 | | Load_Top At_Offset_1 0281 e228 | ( | Load 0x1,0x28 0282 e220 | | Load 0x1,0x20 0283 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0284 c402 | | Store 0x2,0x2 0285 e402 | | Load 0x2,0x2 0286 e5ff | | Load 0x2,-0x1 0287 027b | { | Execute Discrete,Greater_Equal 0288 6813 |h | Jump_Zero 0x29c 0289 00cf | | Action Mark_Auxiliary 028a 780b |x | Jump 0x296 028b 00d9 | | Load_Top At_Offset_1 028c 0aff | | Execute_Immediate Plus,-0x1 028d 005a | Z | Store_Top Discrete,At_Offset_2 028e e220 | | Load 0x1,0x20 028f 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0290 00da | | Load_Top At_Offset_2 0291 e228 | ( | Load 0x1,0x28 0292 e220 | | Load 0x1,0x20 0293 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0294 c402 | | Store 0x2,0x2 0295 00c9 | | Action Pop_Auxiliary_Loop 0296 e402 | | Load 0x2,0x2 0297 e5ff | | Load 0x2,-0x1 0298 027d | } | Execute Discrete,Greater 0299 77f1 |w | Jump_Nonzero 0x28b 029a 00ce | | Action Pop_Auxiliary 029b 782b |x+ | Jump 0x2c7 029c 00cf | | Action Mark_Auxiliary 029d 00d9 | | Load_Top At_Offset_1 029e 00db | | Load_Top At_Offset_3 029f 027b | { | Execute Discrete,Greater_Equal 02a0 6801 |h | Jump_Zero 0x2a2 02a1 7824 |x$ | Jump 0x2c6 02a2 00d9 | | Load_Top At_Offset_1 02a3 0a01 | | Execute_Immediate Plus,0x1 02a4 005a | Z | Store_Top Discrete,At_Offset_2 02a5 e220 | | Load 0x1,0x20 02a6 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02a7 00da | | Load_Top At_Offset_2 02a8 e228 | ( | Load 0x1,0x28 02a9 e220 | | Load 0x1,0x20 02aa 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02ab c402 | | Store 0x2,0x2 02ac e402 | | Load 0x2,0x2 02ad e5ff | | Load 0x2,-0x1 02ae 027d | } | Execute Discrete,Greater 02af 680b |h | Jump_Zero 0x2bb 02b0 00d9 | | Load_Top At_Offset_1 02b1 0aff | | Execute_Immediate Plus,-0x1 02b2 005a | Z | Store_Top Discrete,At_Offset_2 02b3 e220 | | Load 0x1,0x20 02b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf 02b5 00da | | Load_Top At_Offset_2 02b6 e228 | ( | Load 0x1,0x28 02b7 e220 | | Load 0x1,0x20 02b8 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02b9 c402 | | Store 0x2,0x2 02ba 780b |x | Jump 0x2c6 02bb e402 | | Load 0x2,0x2 02bc e5ff | | Load 0x2,-0x1 02bd 027f | | Execute Discrete,Equal 02be 00da | | Load_Top At_Offset_2 02bf e406 | | Load 0x2,0x6 02c0 027f | | Execute Discrete,Equal 02c1 0278 | x | Execute Discrete,Or 02c2 6801 |h | Jump_Zero 0x2c4 02c3 7802 |x | Jump 0x2c6 02c4 00c9 | | Action Pop_Auxiliary_Loop 02c5 7fd7 | | Jump 0x29d 02c6 00ce | | Action Pop_Auxiliary 02c7 e5ff | | Load 0x2,-0x1 02c8 e402 | | Load 0x2,0x2 02c9 0272 | r | Execute Discrete,Minus 02ca 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3 02cb e403 | | Load 0x2,0x3 02cc 00d9 | | Load_Top At_Offset_1 02cd 00d8 | | Load_Top At_Offset_0 02ce e221 | ! | Load 0x1,0x21 02cf 1b13 | | Execute Package,Field_Read,Field_Number 0x13 02d0 0260 | ` | Execute Discrete,In_Type 02d1 7001 |p | Jump_Nonzero 0x2d3 02d2 0801 | | Execute_Immediate Raise,0x1 02d3 e227 | ' | Load 0x1,0x27 02d4 e221 | ! | Load 0x1,0x21 02d5 181e | | Execute Package,Field_Execute,Field_Number 0x1e 02d6 00d1 | | Pop_Control Pop_Count_1 02d7 00cf | | Action Mark_Auxiliary 02d8 7804 |x | Jump 0x2dd 02d9 e404 | | Load 0x2,0x4 02da 0a01 | | Execute_Immediate Plus,0x1 02db c404 | | Store 0x2,0x4 02dc 00c9 | | Action Pop_Auxiliary_Loop 02dd e404 | | Load 0x2,0x4 02de e403 | | Load 0x2,0x3 02df 01d7 | | Execute Vector,Field_Read 02e0 77f8 |w | Jump_Nonzero 0x2d9 02e1 00ce | | Action Pop_Auxiliary 02e2 00da | | Load_Top At_Offset_2 02e3 700c |p | Jump_Nonzero 0x2f0 02e4 e5ff | | Load 0x2,-0x1 02e5 8210 | | Call 0x1,0x10 02e6 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "." 02e8 01cc | | Execute Vector,Catenate 02e9 4801 |H | Short_Literal 0x1 02ea e404 | | Load 0x2,0x4 02eb 0aff | | Execute_Immediate Plus,-0x1 02ec e403 | | Load 0x2,0x3 02ed 01cf | | Execute Vector,Slice_Read 02ee 01cc | | Execute Vector,Catenate 02ef 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 02f0 482b |H+ | Short_Literal 0x2b 02f1 482e |H. | Short_Literal 0x2e 02f2 e5ff | | Load 0x2,-0x1 02f3 8210 | | Call 0x1,0x10 02f4 01cb | | Execute Vector,Append 02f5 4801 |H | Short_Literal 0x1 02f6 e404 | | Load 0x2,0x4 02f7 0aff | | Execute_Immediate Plus,-0x1 02f8 e403 | | Load 0x2,0x3 02f9 01cf | | Execute Vector,Slice_Read 02fa 01cc | | Execute Vector,Catenate 02fb 01cb | | Execute Vector,Append 02fc 4820 |H | Short_Literal 0x20 02fd 4800 |H | Short_Literal 0x0 02fe 480a |H | Short_Literal 0xa 02ff e405 | | Load 0x2,0x5 0300 e015 | | Load 0x0,0x15 0301 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0302 01cc | | Execute Vector,Catenate 0303 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0304 0000 0000 | | .BLANK 0000[0x4] 0308 ; -------------------------------------------------------------------------------------- 0308 ; SUBPROGRAM 0308 ; -------------------------------------------------------------------------------------- 0308 030b | | .CONST 0x030b ; Address of begin 0309 0315 | | .CONST 0x0315 ; Address of exception handler 030a 0001 | | .CONST 0x0001 ; Number of locals 030b BODY_0308: 030b INIT_0308: 030b 00da | | Load_Top At_Offset_2 030c 00d8 | | Load_Top At_Offset_0 030d e008 | | Load 0x0,0x8 030e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 030f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0310 0260 | ` | Execute Discrete,In_Type 0311 7001 |p | Jump_Nonzero 0x313 0312 0801 | | Execute_Immediate Raise,0x1 0313 8213 | | Call 0x1,0x13 0314 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0315 TRAP_0308: 0315 0007 | | Action Break_Optional 0316 4820 |H | Short_Literal 0x20 0317 4805 |H | Short_Literal 0x5 0318 4810 |H | Short_Literal 0x10 0319 e5ff | | Load 0x2,-0x1 031a e015 | | Load 0x0,0x15 031b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 031c 0092 03c9 | | Action Push_String_Extended,0x3c9 ; " *** could not resolve" 031e 01cc | | Execute Vector,Catenate 031f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0320 ; -------------------------------------------------------------------------------------- 0320 ; SUBPROGRAM 0320 ; -------------------------------------------------------------------------------------- 0320 0323 | # | .CONST 0x0323 ; Address of begin 0321 0004 | | .CONST 0x0004 ; Address of exception handler 0322 0001 | | .CONST 0x0001 ; Number of locals 0323 BODY_0320: 0323 INIT_0320: 0323 480a |H | Short_Literal 0xa 0324 0092 03ca | | Action Push_String_Extended,0x3ca ; "Error - " 0326 e5ff | | Load 0x2,-0x1 0327 822e | . | Call 0x1,0x2e 0328 01cc | | Execute Vector,Catenate 0329 01cb | | Execute Vector,Append 032a 0092 03cb | | Action Push_String_Extended,0x3cb ; "For reason - " 032c 01cc | | Execute Vector,Catenate 032d e5fe | | Load 0x2,-0x2 032e 822d | - | Call 0x1,0x2d 032f 01cc | | Execute Vector,Catenate 0330 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 0331 0000 0000 | | .BLANK 0000[0x7] 0338 ; -------------------------------------------------------------------------------------- 0338 ; SUBPROGRAM 0338 ; -------------------------------------------------------------------------------------- 0338 033b | ; | .CONST 0x033b ; Address of begin 0339 0004 | | .CONST 0x0004 ; Address of exception handler 033a 0001 | | .CONST 0x0001 ; Number of locals 033b BODY_0338: 033b INIT_0338: 033b 00db | | Load_Top At_Offset_3 033c 00d8 | | Load_Top At_Offset_0 033d e008 | | Load 0x0,0x8 033e 1b16 | | Execute Package,Field_Read,Field_Number 0x16 033f 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0340 0260 | ` | Execute Discrete,In_Type 0341 7001 |p | Jump_Nonzero 0x343 0342 0801 | | Execute_Immediate Raise,0x1 0343 00db | | Load_Top At_Offset_3 0344 00d8 | | Load_Top At_Offset_0 0345 e008 | | Load 0x0,0x8 0346 1b16 | | Execute Package,Field_Read,Field_Number 0x16 0347 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0348 0260 | ` | Execute Discrete,In_Type 0349 7001 |p | Jump_Nonzero 0x34b 034a 0801 | | Execute_Immediate Raise,0x1 034b 8215 | | Call 0x1,0x15 034c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 034d 0000 0000 | | .XXX[0x3] 034f 0000 | | 0350 ; -------------------------------------------------------------------------------------- 0350 ; SUBPROGRAM 0350 ; -------------------------------------------------------------------------------------- 0350 0355 | U | .CONST 0x0355 ; Address of begin 0351 0004 | | .CONST 0x0004 ; Address of exception handler 0352 0002 | | .CONST 0x0002 ; Number of locals 0353 INIT_0350: 0353 e224 | $ | Load 0x1,0x24 0354 0322 | " | Declare_Variable Record 0355 BODY_0350: 0355 00cf | | Action Mark_Auxiliary 0356 e229 | ) | Load 0x1,0x29 0357 e225 | % | Load 0x1,0x25 0358 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 0359 4801 |H | Short_Literal 0x1 035a 0263 | c | Execute Discrete,Above_Bound 035b 7026 |p& | Jump_Nonzero 0x382 035c 00db | | Load_Top At_Offset_3 035d 00d9 | | Load_Top At_Offset_1 035e e225 | % | Load 0x1,0x25 035f 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0360 00d9 | | Load_Top At_Offset_1 0361 00d0 | | Action Swap_Control 0362 0260 | ` | Execute Discrete,In_Type 0363 7001 |p | Jump_Nonzero 0x365 0364 0801 | | Execute_Immediate Raise,0x1 0365 e229 | ) | Load 0x1,0x29 0366 e225 | % | Load 0x1,0x25 0367 181e | | Execute Package,Field_Execute,Field_Number 0x1e 0368 00d1 | | Pop_Control Pop_Count_1 0369 00db | | Load_Top At_Offset_3 036a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 036b e5ff | | Load 0x2,-0x1 036c 027f | | Execute Discrete,Equal 036d 6812 |h | Jump_Zero 0x380 036e 4820 |H | Short_Literal 0x20 036f e402 | | Load 0x2,0x2 0370 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1 0371 e015 | | Load 0x0,0x15 0372 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0373 0092 03cc | | Action Push_String_Extended,0x3cc ; " : " 0375 01cc | | Execute Vector,Catenate 0376 4809 |H | Short_Literal 0x9 0377 4820 |H | Short_Literal 0x20 0378 e402 | | Load 0x2,0x2 0379 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2 037a e015 | | Load 0x0,0x15 037b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 037c e015 | | Load 0x0,0x15 037d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 037e 01cc | | Execute Vector,Catenate 037f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0380 00c8 | | Action Pop_Auxiliary_Range 0381 3fda |? | Loop_Increasing 0x35c 0382 00ce | | Action Pop_Auxiliary 0383 0092 03cd | | Action Push_String_Extended,0x3cd ; "not found" 0385 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0386 0000 0000 | | .XXX[0x2] 0388 ; -------------------------------------------------------------------------------------- 0388 ; SUBPROGRAM 0388 ; -------------------------------------------------------------------------------------- 0388 038b | | .CONST 0x038b ; Address of begin 0389 0004 | | .CONST 0x0004 ; Address of exception handler 038a 0001 | | .CONST 0x0001 ; Number of locals 038b BODY_0388: 038b INIT_0388: 038b 00da | | Load_Top At_Offset_2 038c 00d8 | | Load_Top At_Offset_0 038d 4a00 |J | Short_Literal 0x200 038e 4a09 |J | Short_Literal 0x209 038f 0262 | b | Execute Discrete,In_Range 0390 682b |h+ | Jump_Zero 0x3bc 0391 4e00 |N | Short_Literal -0x200 0392 0273 | s | Execute Discrete,Plus 0393 4609 |F | Jump_Case 0xa 0394 780c |x | Jump 0x3a1 ; case 0x0 0395 780e |x | Jump 0x3a4 ; case 0x1 0396 7810 |x | Jump 0x3a7 ; case 0x2 0397 7812 |x | Jump 0x3aa ; case 0x3 0398 7814 |x | Jump 0x3ad ; case 0x4 0399 7816 |x | Jump 0x3b0 ; case 0x5 039a 7818 |x | Jump 0x3b3 ; case 0x6 039b 781a |x | Jump 0x3b6 ; case 0x7 039c 781c |x | Jump 0x3b9 ; case 0x8 039d 7800 |x | Jump 0x39e ; case 0x9 039e 0092 03ce | | Action Push_String_Extended,0x3ce ; "SOFTWARE CRASH" 03a0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a1 0092 03cf | | Action Push_String_Extended,0x3cf ; "SYSTEM ERROR" 03a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a4 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "IOP HARDWARE ERROR" 03a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03a7 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "IOP SOFTWARE ERROR" 03a9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03aa 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "CPU HARDWARE ERROR" 03ac 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03ad 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "MULTI BIT MEMORY ERROR" 03af 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b0 0092 03d4 | | Action Push_String_Extended,0x3d4 ; "SYSBUS HARDWARE ERROR" 03b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b3 0092 03d5 | | Action Push_String_Extended,0x3d5 ; "CPU MICROCODE ERROR" 03b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b6 0092 03d6 | | Action Push_String_Extended,0x3d6 ; "CPU SOFTWARE ERROR" 03b8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03b9 0092 03d7 | | Action Push_String_Extended,0x3d7 ; "SYSTEM SHUTDOWN" 03bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03bc 00d1 | | Pop_Control Pop_Count_1 03bd 0092 03cd | | Action Push_String_Extended,0x3cd ; "not found" 03bf 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 03c0 ; -------------------------------------------------------------------------------------- 03c0 ; STRING TABLE 03c0 ; -------------------------------------------------------------------------------------- 03c0 0032 | 2 | .STRTAB 0x0032->0x03d9 ; "<default>" 03c1 0039 | 9 | .STRTAB 0x0039->0x03dd ; ".packages" 03c2 0040 | @ | .STRTAB 0x0040->0x03e2 ; ".labels" 03c3 0045 | E | .STRTAB 0x0045->0x03e5 ; ".addresses" 03c4 004d | M | .STRTAB 0x004d->0x03ea ; ".reasons" 03c5 0053 | S | .STRTAB 0x0053->0x03ee ; ".microcode_" 03c6 005c | \ | .STRTAB 0x005c->0x03f4 ; ".Microcode_" 03c7 0065 | e | .STRTAB 0x0065->0x03f9 ; "EVENT" 03c8 0068 | h | .STRTAB 0x0068->0x03fc ; "." 03c9 0067 | g | .STRTAB 0x0067->0x03fc ; " *** could not resolve" 03ca 007b | { | .STRTAB 0x007b->0x0407 ; "Error - " 03cb 0086 | | .STRTAB 0x0086->0x040e ; "For reason - " 03cc 0091 | | .STRTAB 0x0091->0x0414 ; " : " 03cd 0092 | | .STRTAB 0x0092->0x0416 ; "not found" 03ce 0099 | | .STRTAB 0x0099->0x041a ; "SOFTWARE CRASH" 03cf 00a5 | | .STRTAB 0x00a5->0x0421 ; "SYSTEM ERROR" 03d0 00af | | .STRTAB 0x00af->0x0427 ; "IOP HARDWARE ERROR" 03d1 00bf | | .STRTAB 0x00bf->0x0430 ; "IOP SOFTWARE ERROR" 03d2 00cf | | .STRTAB 0x00cf->0x0439 ; "CPU HARDWARE ERROR" 03d3 00df | | .STRTAB 0x00df->0x0442 ; "MULTI BIT MEMORY ERROR" 03d4 00f3 | | .STRTAB 0x00f3->0x044d ; "SYSBUS HARDWARE ERROR" 03d5 0106 | | .STRTAB 0x0106->0x0458 ; "CPU MICROCODE ERROR" 03d6 0117 | | .STRTAB 0x0117->0x0461 ; "CPU SOFTWARE ERROR" 03d7 0127 | ' | .STRTAB 0x0127->0x046a ; "SYSTEM SHUTDOWN" 03d8 0134 | 4 | .STREND 0x0134->0x0472 03d9 3c64 6566 |<def| .STRTAB_STRINGS 0472 0000 0000 | | .BLANK 0000[0x6] 0478 ; -------------------------------------------------------------------------------------- 0478 ; Debug Table 0478 ; -------------------------------------------------------------------------------------- 0478 0004 000e | | .DEBUG4 0x0004,0x000e,0x1e7e,0x0000,0x0001,0x0000 047e 1d9d e858 | X| .XXX[0x1c] 0480 02d4 a630 | 0| 0482 0cd9 30d8 | 0 | 0484 0cd9 48f8 | H | 0486 0e55 e400 | U | 0488 0075 02fc | u | 048a 0ece f42c | ,| 048c 016a 4a40 | jJ@| 048e 066c a780 | l | 0490 066c 9b70 | l p| 0492 072a f200 | * | 0494 003a 86d8 | : | 0496 0767 7a16 | gz | 0498 00b5 2a7a | *z| 049a 0000 0000 | | .BLANK 0000[0x4] 049e 0395 7900 | y | .XXX[0x8] 04a0 001d 401b | @ | 04a2 03b3 bd0b | | 04a4 005a 91ec | Z | 04a6 0000 0000 | | .BLANK 0000[0x4] 04aa 00cd 9591 | | .XXX[0x59] 04ac 0000 0000 | | 04ae 0000 0007 | | 04b0 0000 0000 | | 04b2 00e5 5e40 | ^@| 04b4 0007 5081 | P | 04b6 c0ec ef42 | B| 04b8 c016 a665 | e| 04ba c066 cb89 | f | 04bc 8066 cb59 | f Y| 04be 4072 af20 |@r | 04c0 0003 a84f | O| 04c2 c076 77a1 | vw | 04c4 600b 5341 |` SA| 04c6 c000 0000 | | 04c8 0000 0000 | | 04ca 0039 5790 | 9W | 04cc 0001 d416 | | 04ce 303b 3bd0 |0;; | 04d0 b005 a98f | | 04d2 3000 0000 |0 | 04d4 0000 0000 | | 04d6 001c abc8 | | 04d8 0000 ea17 | | 04da a81d 9de8 | | 04dc 5802 d4d4 |X | 04de 280c d95f |( _| 04e0 180c d977 | w| 04e2 380e 55e4 |8 U | 04e4 0000 7502 | u | 04e6 fc0e cef4 | | 04e8 2c01 6a61 |, ja| 04ea 3c06 6cbe |< l | 04ec a006 6cb2 | l | 04ee 9007 2af2 | * | 04f0 0000 3a86 | : | 04f2 d807 677a | gz| 04f4 1600 b535 | 5| 04f6 f800 0000 | | 04f8 0000 0000 | | 04fa 0003 9579 | y| 04fc 0000 1d40 | @| 04fe 1b03 b3bd | | 0500 0b00 5a97 | Z | 0502 ab00 | | 0503 0000 0000 | | .BLANK 0000[0x4] 0507 cd98 7500 | u | .XXX[0x1c] 0509 0000 0000 | | 050b 0000 0700 | | 050d 0000 0000 | | 050f e55e 4000 | ^@ | 0511 0750 81c0 | P | 0513 ecef 42c0 | B | 0515 16a7 d580 | | 0517 66cc fb80 |f | 0519 66cc cb40 |f @| 051b 72af 2000 |r | 051d 03a8 4fc0 | O | 051f 7677 a160 |vw `| 0521 0b53 f9a0 | S | 0523 0000 0000 | | .BLANK 0000[0x4] 0527 3957 9000 |9W | .XXX[0x8] 0529 01d4 1630 | 0| 052b 3b3b d0b0 |;; | 052d 05a9 eb20 | | 052f 0000 0000 | | .BLANK 0000[0x4] 0533 1cab c800 | | .XXX[0x20] 0535 00ea 17a8 | | 0537 1d9d e858 | X| 0539 02d5 0220 | | 053b 0cd9 8d58 | X| 053d 0cd9 a578 | x| 053f 0e55 e400 | U | 0541 0075 02fc | u | 0543 0ece f42c | ,| 0545 016a 7838 | jx8| 0547 066c d5c0 | l | 0549 066c c9b0 | l | 054b 072a f200 | * | 054d 003a 86d8 | : | 054f 0767 7a16 | gz | 0551 00b5 4176 | Av| 0553 0000 0000 | | .BLANK 0000[0x4] 0557 0395 7900 | y | .XXX[0x8] 0559 001d 401b | @ | 055b 03b3 bd0b | | 055d 005a 9d6a | Z j| 055f 0000 0000 | | .BLANK 0000[0x4] 0563 00cd 9b59 | Y| .XXX[0x59] 0565 0000 0000 | | 0567 0000 0007 | | 0569 0000 0000 | | 056b 00e5 5e40 | ^@| 056d 0007 531b | S | 056f 80ec ef42 | B| 0571 c016 a945 | E| 0573 4066 ce6d |@f m| 0575 8066 ce3d | f =| 0577 4072 af20 |@r | 0579 0003 a99c | | 057b a076 77a1 | vw | 057d 600b 54b1 |` T | 057f 8000 0000 | | 0581 0000 0000 | | 0583 0039 5790 | 9W | 0585 0001 d4bc | | 0587 a03b 3bd0 | ;; | 0589 b005 aa47 | G| 058b 1000 0000 | | 058d 0000 0000 | | 058f 001c abc8 | | 0591 0000 ea6a | j| 0593 e01d 9de8 | | 0595 5802 d530 |X 0| 0597 180c d9bb | | 0599 980c d9d3 | | 059b b80e 55e4 | U | 059d 0000 752c | u,| 059f 980e cef4 | | 05a1 2c01 6a8f |, j | 05a3 3406 6cec |4 l | 05a5 e006 6ce0 | l | 05a7 d007 2af2 | * | 05a9 0000 3a9b | : | 05ab a607 677a | gz| 05ad 1600 b54c | L| 05af f400 0000 | | 05b1 0000 0000 | | 05b3 0003 9579 | y| 05b5 0000 1d4a | J| 05b7 8203 b3bd | | 05b9 0b00 5aa3 | Z | 05bb 2900 |) | 05bc 0000 0000 | | .BLANK 0000[0x4] 05c0 cd9e 3d00 | = | .XXX[0x1c] 05c2 0000 0000 | | 05c4 0000 0700 | | 05c6 0000 0000 | | 05c8 e55e 4000 | ^@ | 05ca 0753 1b80 | S | 05cc ecef 42c0 | B | 05ce 16aa a5c0 | | 05d0 66cf df80 |f | 05d2 66cf af40 |f @| 05d4 72af 2000 |r | 05d6 03a9 9ca0 | | 05d8 7677 a160 |vw `| 05da 0b55 61c0 | Ua | 05dc 0000 0000 | | .BLANK 0000[0x4] 05e0 3957 9000 |9W | .XXX[0x8] 05e2 01d4 bca0 | | 05e4 3b3b d0b0 |;; | 05e6 05aa 9f30 | 0| 05e8 0000 0000 | | .BLANK 0000[0x4] 05ec 1cab c800 | | .XXX[0x14] 05ee 00ea 6ae0 | j | 05f0 1d9d e858 | X| 05f2 02d5 5c28 | \(| 05f4 0cd9 e9d8 | | 05f6 0cda 01f8 | | 05f8 0e55 e400 | U | 05fa 0075 2c98 | u, | 05fc 0ece f42c | ,| 05fe 016a a53c | j <|