|
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 - metrics - 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 For_Outer_Call,Visible,Unelaborated,INIT_00e8
000d 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
000f 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0011 029a 01ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a8
0013 029a 020b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0208
0015 029a 0233 | 3| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0230
0017 029a 0263 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0260
0019 029a 030b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0308
001b 029a 0323 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0320
001d 029a 033b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0338
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 For_Outer_Call,INIT_0350
00dd 029d 038b | | Declare_Subprogram For_Outer_Call,INIT_0388
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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Result,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_Subprogram 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_Subprogram 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_Unchecked 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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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_Result,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 0x600
0392 0273 | s | Execute Discrete,Plus
0393 4609 |F | Jump_Case 0x9
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_Result,0x1
03a1 0092 03cf | | Action Push_String_Extended,0x3cf ; "SYSTEM ERROR"
03a3 4401 |D | Exit_Subprogram With_Result,0x1
03a4 0092 03d0 | | Action Push_String_Extended,0x3d0 ; "IOP HARDWARE ERROR"
03a6 4401 |D | Exit_Subprogram With_Result,0x1
03a7 0092 03d1 | | Action Push_String_Extended,0x3d1 ; "IOP SOFTWARE ERROR"
03a9 4401 |D | Exit_Subprogram With_Result,0x1
03aa 0092 03d2 | | Action Push_String_Extended,0x3d2 ; "CPU HARDWARE ERROR"
03ac 4401 |D | Exit_Subprogram With_Result,0x1
03ad 0092 03d3 | | Action Push_String_Extended,0x3d3 ; "MULTI BIT MEMORY ERROR"
03af 4401 |D | Exit_Subprogram With_Result,0x1
03b0 0092 03d4 | | Action Push_String_Extended,0x3d4 ; "SYSBUS HARDWARE ERROR"
03b2 4401 |D | Exit_Subprogram With_Result,0x1
03b3 0092 03d5 | | Action Push_String_Extended,0x3d5 ; "CPU MICROCODE ERROR"
03b5 4401 |D | Exit_Subprogram With_Result,0x1
03b6 0092 03d6 | | Action Push_String_Extended,0x3d6 ; "CPU SOFTWARE ERROR"
03b8 4401 |D | Exit_Subprogram With_Result,0x1
03b9 0092 03d7 | | Action Push_String_Extended,0x3d7 ; "SYSTEM SHUTDOWN"
03bb 4401 |D | Exit_Subprogram With_Result,0x1
03bc 00d1 | | Pop_Control Pop_Count_1
03bd 0092 03cd | | Action Push_String_Extended,0x3cd ; "not found"
03bf 4401 |D | Exit_Subprogram With_Result,0x1
03c0 ; --------------------------------------------------------------------------------------
03c0 ; STRING TABLE
03c0 ; --------------------------------------------------------------------------------------
03c0 0032 | 2 | .STRTAB 0x0032->0x03d9 ; "<default>"
03c1 0039 | 9 | .STRTAB 0x0039->0x03dd ; ".packages"
; ".packages"
03c2 0040 | @ | .STRTAB 0x0040->0x03e2 ; ".labels"
; ".labels"
03c3 0045 | E | .STRTAB 0x0045->0x03e5 ; ".addresses"
; ".addresses"
03c4 004d | M | .STRTAB 0x004d->0x03ea ; ".reasons"
; ".reasons"
03c5 0053 | S | .STRTAB 0x0053->0x03ee ; ".microcode_"
03c6 005c | \ | .STRTAB 0x005c->0x03f4 ; ".Microcode_"
; ".Microcode_"
; ".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"
; "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 <|