|
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_03c0fe
└─⟦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 0490 | | .CONST 0x0490 ; 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 00ed | | .CONST 0x00ed ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002e | . | .CONST 0x002e ; Number of locals
000b INIT_0008:
000b 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0
000d 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
000f 029a 01a3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01a0
0011 029a 01c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01c0
0013 029a 0223 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0220
0015 029a 024b | K| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0248
0017 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
0019 029a 0323 | #| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0320
001b 029a 033b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0338
001d 029a 0353 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0350
001f 4802 |H | Short_Literal 0x2
0020 e001 | | Load 0x0,0x1
0021 01d7 | | Execute Vector,Field_Read
0022 02a8 | | Declare_Subprogram For_Call,Visible,Unelaborated,With_Address
0023 0093 0000 | | PushFullAddress InMicrocode
0025 615a |aZ | Indirect_Literal Discrete,0x180,{0x80000000, 0x00010000}
0026 0273 | s | Execute Discrete,Plus
0027 0129 | ) | Execute Any,Make_Visible
0028 0093 0000 | | PushFullAddress InMicrocode
002a 6151 |aQ | Indirect_Literal Discrete,0x17c,{0x80000000, 0x00020000}
002b 0273 | s | Execute Discrete,Plus
002c 0129 | ) | Execute Any,Make_Visible
002d 0093 0000 | | PushFullAddress InMicrocode
002f 6148 |aH | Indirect_Literal Discrete,0x178,{0x80000000, 0x00030000}
0030 0273 | s | Execute Discrete,Plus
0031 0129 | ) | Execute Any,Make_Visible
0032 0093 0000 | | PushFullAddress InMicrocode
0034 613f |a? | Indirect_Literal Discrete,0x174,{0x80000000, 0x00040000}
0035 0273 | s | Execute Discrete,Plus
0036 0129 | ) | Execute Any,Make_Visible
0037 00bf | | Action Accept_Activation
0038 4801 |H | Short_Literal 0x1
0039 483c |H< | Short_Literal 0x3c
003a 00e9 | | Load_Encached String_Cache
003b 035b | [ | Declare_Type Array,Constrained
003c e002 | | Load 0x0,0x2
003d e003 | | Load 0x0,0x3
003e e004 | | Load 0x0,0x4
003f e005 | | Load 0x0,0x5
0040 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0041 0387 | | Declare_Variable Package
0042 00d8 | | Load_Top At_Offset_0
0043 020f | | Execute Module,Activate
0044 e006 | | Load 0x0,0x6
0045 e007 | | Load 0x0,0x7
0046 00e9 | | Load_Encached String_Cache
0047 e005 | | Load 0x0,0x5
0048 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0049 0387 | | Declare_Variable Package
004a 00d8 | | Load_Top At_Offset_0
004b 020f | | Execute Module,Activate
004c e008 | | Load 0x0,0x8
004d e009 | | Load 0x0,0x9
004e 00e2 | | Load_Encached Integer_Cache
004f e005 | | Load 0x0,0x5
0050 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0051 0387 | | Declare_Variable Package
0052 00d8 | | Load_Top At_Offset_0
0053 020f | | Execute Module,Activate
0054 e00a | | Load 0x0,0xa
0055 e00b | | Load 0x0,0xb
0056 e004 | | Load 0x0,0x4
0057 e00c | | Load 0x0,0xc
0058 0387 | | Declare_Variable Package
0059 00d8 | | Load_Top At_Offset_0
005a 020f | | Execute Module,Activate
005b e00d | | Load 0x0,0xd
005c e00e | | Load 0x0,0xe
005d e21c | | Load 0x1,0x1c
005e e00c | | Load 0x0,0xc
005f 0387 | | Declare_Variable Package
0060 00d8 | | Load_Top At_Offset_0
0061 020f | | Execute Module,Activate
0062 4801 |H | Short_Literal 0x1
0063 4832 |H2 | Short_Literal 0x32
0064 00e9 | | Load_Encached String_Cache
0065 035b | [ | Declare_Type Array,Constrained
0066 4801 |H | Short_Literal 0x1
0067 4850 |HP | Short_Literal 0x50
0068 00e9 | | Load_Encached String_Cache
0069 035b | [ | Declare_Type Array,Constrained
006a e004 | | Load 0x0,0x4
006b 00da | | Load_Top At_Offset_2
006c 00da | | Load_Top At_Offset_2
006d 02a0 | | Declare_Subprogram Null_Subprogram
006e 4803 |H | Short_Literal 0x3
006f 032d | - | Declare_Type Record,Defined
0070 e00f | | Load 0x0,0xf
0071 e010 | | Load 0x0,0x10
0072 00da | | Load_Top At_Offset_2
0073 e00c | | Load 0x0,0xc
0074 0387 | | Declare_Variable Package
0075 00d8 | | Load_Top At_Offset_0
0076 020f | | Execute Module,Activate
0077 e005 | | Load 0x0,0x5
0078 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0079 02c7 | | Declare_Variable Any
007a 00d8 | | Load_Top At_Offset_0
007b 1c00 | | Execute_Immediate Run_Utility,0x0
007c e221 | ! | Load 0x1,0x21
007d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
007e e220 | | Load 0x1,0x20
007f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0080 00db | | Load_Top At_Offset_3
0081 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0082 e221 | ! | Load 0x1,0x21
0083 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0084 00e1 | | Load_Encached Boolean_Cache
0085 4801 |H | Short_Literal 0x1
0086 4811 |H | Short_Literal 0x11
0087 00e9 | | Load_Encached String_Cache
0088 035b | [ | Declare_Type Array,Constrained
0089 0337 | 7 | Declare_Variable Array
008a 00d8 | | Load_Top At_Offset_0
008b 0335 | 5 | Declare_Variable Array,Duplicate
008c 00cd | | Action Spare6_Action
008d 4821 |H! | Short_Literal 0x21
008e 4801 |H | Short_Literal 0x1
008f 00da | | Load_Top At_Offset_2
0090 01d6 | | Execute Vector,Field_Write
0091 4875 |Hu | Short_Literal 0x75
0092 4802 |H | Short_Literal 0x2
0093 00da | | Load_Top At_Offset_2
0094 01d6 | | Execute Vector,Field_Write
0095 4863 |Hc | Short_Literal 0x63
0096 4803 |H | Short_Literal 0x3
0097 00da | | Load_Top At_Offset_2
0098 01d6 | | Execute Vector,Field_Write
0099 486f |Ho | Short_Literal 0x6f
009a 4804 |H | Short_Literal 0x4
009b 00da | | Load_Top At_Offset_2
009c 01d6 | | Execute Vector,Field_Write
009d 4864 |Hd | Short_Literal 0x64
009e 4805 |H | Short_Literal 0x5
009f 00da | | Load_Top At_Offset_2
00a0 01d6 | | Execute Vector,Field_Write
00a1 4865 |He | Short_Literal 0x65
00a2 4806 |H | Short_Literal 0x6
00a3 00da | | Load_Top At_Offset_2
00a4 01d6 | | Execute Vector,Field_Write
00a5 482e |H. | Short_Literal 0x2e
00a6 4807 |H | Short_Literal 0x7
00a7 00da | | Load_Top At_Offset_2
00a8 01d6 | | Execute Vector,Field_Write
00a9 486d |Hm | Short_Literal 0x6d
00aa 4808 |H | Short_Literal 0x8
00ab 00da | | Load_Top At_Offset_2
00ac 01d6 | | Execute Vector,Field_Write
00ad 4869 |Hi | Short_Literal 0x69
00ae 4809 |H | Short_Literal 0x9
00af 00da | | Load_Top At_Offset_2
00b0 01d6 | | Execute Vector,Field_Write
00b1 4863 |Hc | Short_Literal 0x63
00b2 480a |H | Short_Literal 0xa
00b3 00da | | Load_Top At_Offset_2
00b4 01d6 | | Execute Vector,Field_Write
00b5 4872 |Hr | Short_Literal 0x72
00b6 480b |H | Short_Literal 0xb
00b7 00da | | Load_Top At_Offset_2
00b8 01d6 | | Execute Vector,Field_Write
00b9 486f |Ho | Short_Literal 0x6f
00ba 480c |H | Short_Literal 0xc
00bb 00da | | Load_Top At_Offset_2
00bc 01d6 | | Execute Vector,Field_Write
00bd 4863 |Hc | Short_Literal 0x63
00be 480d |H | Short_Literal 0xd
00bf 00da | | Load_Top At_Offset_2
00c0 01d6 | | Execute Vector,Field_Write
00c1 486f |Ho | Short_Literal 0x6f
00c2 480e |H | Short_Literal 0xe
00c3 00da | | Load_Top At_Offset_2
00c4 01d6 | | Execute Vector,Field_Write
00c5 4864 |Hd | Short_Literal 0x64
00c6 480f |H | Short_Literal 0xf
00c7 00da | | Load_Top At_Offset_2
00c8 01d6 | | Execute Vector,Field_Write
00c9 4865 |He | Short_Literal 0x65
00ca 4810 |H | Short_Literal 0x10
00cb 00da | | Load_Top At_Offset_2
00cc 01d6 | | Execute Vector,Field_Write
00cd 485f |H_ | Short_Literal 0x5f
00ce 4811 |H | Short_Literal 0x11
00cf 00da | | Load_Top At_Offset_2
00d0 01d6 | | Execute Vector,Field_Write
00d1 00d9 | | Load_Top At_Offset_1
00d2 01d4 | | Execute Vector,Structure_Write
00d3 1d0d | | Execute_Immediate Reference_Lex_1,0xd
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d0e | | Execute_Immediate Reference_Lex_1,0xe
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d10 | | Execute_Immediate Reference_Lex_1,0x10
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d0f | | Execute_Immediate Reference_Lex_1,0xf
00da 00c7 | | Action Elaborate_Subprogram
00db 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00dc 00c7 | | Action Elaborate_Subprogram
00dd 1d11 | | Execute_Immediate Reference_Lex_1,0x11
00de 00c7 | | Action Elaborate_Subprogram
00df 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00e0 00c7 | | Action Elaborate_Subprogram
00e1 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00e2 00c7 | | Action Elaborate_Subprogram
00e3 029d 036b | k| Declare_Subprogram For_Outer_Call,INIT_0368
00e5 029d 03a3 | | Declare_Subprogram For_Outer_Call,INIT_03a0
00e7 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00e8 00c7 | | Action Elaborate_Subprogram
00e9 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00ea 00c7 | | Action Elaborate_Subprogram
00eb 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00ec 00c7 | | Action Elaborate_Subprogram
00ed BODY_0008:
00ed 00bc | | Action Signal_Activated
00ee 00bb | | Action Signal_Completion
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0168 | h | .CONST 0x0168 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 4801 |H | Short_Literal 0x1
00f4 0092 03d8 | | Action Push_String_Extended,0x3d8 ; "<default>"
00f6 e5fe | | Load 0x2,-0x2
00f7 e011 | | Load 0x0,0x11
00f8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00f9 6831 |h1 | Jump_Zero 0x12b
00fa e226 | & | Load 0x1,0x26
00fb 00ea | | Load_Encached Null_String_Cache
00fc e22c | , | Load 0x1,0x2c
00fd e5ff | | Load 0x2,-0x1
00fe 01cc | | Execute Vector,Catenate
00ff 0092 03d9 | | Action Push_String_Extended,0x3d9 ; ".packages"
0101 01cc | | Execute Vector,Catenate
0102 4800 |H | Short_Literal 0x0
0103 e005 | | Load 0x0,0x5
0104 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0105 c226 | & | Store 0x1,0x26
0106 e227 | ' | Load 0x1,0x27
0107 00ea | | Load_Encached Null_String_Cache
0108 e22c | , | Load 0x1,0x2c
0109 e5ff | | Load 0x2,-0x1
010a 01cc | | Execute Vector,Catenate
010b 0092 03da | | Action Push_String_Extended,0x3da ; ".labels"
010d 01cc | | Execute Vector,Catenate
010e 4800 |H | Short_Literal 0x0
010f e221 | ! | Load 0x1,0x21
0110 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0111 c227 | ' | Store 0x1,0x27
0112 e228 | ( | Load 0x1,0x28
0113 00ea | | Load_Encached Null_String_Cache
0114 e22c | , | Load 0x1,0x2c
0115 e5ff | | Load 0x2,-0x1
0116 01cc | | Execute Vector,Catenate
0117 0092 03db | | Action Push_String_Extended,0x3db ; ".addresses"
0119 01cc | | Execute Vector,Catenate
011a 4800 |H | Short_Literal 0x0
011b e220 | | Load 0x1,0x20
011c 1815 | | Execute Package,Field_Execute,Field_Number 0x15
011d c228 | ( | Store 0x1,0x28
011e e229 | ) | Load 0x1,0x29
011f 00ea | | Load_Encached Null_String_Cache
0120 e22c | , | Load 0x1,0x2c
0121 e5ff | | Load 0x2,-0x1
0122 01cc | | Execute Vector,Catenate
0123 0092 03dc | | Action Push_String_Extended,0x3dc ; ".reasons"
0125 01cc | | Execute Vector,Catenate
0126 4800 |H | Short_Literal 0x0
0127 e225 | % | Load 0x1,0x25
0128 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0129 c229 | ) | Store 0x1,0x29
012a 4503 |E | Exit_Subprogram 0x3
012b e226 | & | Load 0x1,0x26
012c 00ea | | Load_Encached Null_String_Cache
012d e5fe | | Load 0x2,-0x2
012e 0092 03dd | | Action Push_String_Extended,0x3dd ; ".microcode_"
0130 01cc | | Execute Vector,Catenate
0131 e5ff | | Load 0x2,-0x1
0132 01cc | | Execute Vector,Catenate
0133 0092 03d9 | | Action Push_String_Extended,0x3d9 ; ".packages"
0135 01cc | | Execute Vector,Catenate
0136 4800 |H | Short_Literal 0x0
0137 e005 | | Load 0x0,0x5
0138 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0139 c226 | & | Store 0x1,0x26
013a e227 | ' | Load 0x1,0x27
013b 00ea | | Load_Encached Null_String_Cache
013c e5fe | | Load 0x2,-0x2
013d 0092 03de | | Action Push_String_Extended,0x3de ; ".Microcode_"
013f 01cc | | Execute Vector,Catenate
0140 e5ff | | Load 0x2,-0x1
0141 01cc | | Execute Vector,Catenate
0142 0092 03da | | Action Push_String_Extended,0x3da ; ".labels"
0144 01cc | | Execute Vector,Catenate
0145 4800 |H | Short_Literal 0x0
0146 e221 | ! | Load 0x1,0x21
0147 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0148 c227 | ' | Store 0x1,0x27
0149 e228 | ( | Load 0x1,0x28
014a 00ea | | Load_Encached Null_String_Cache
014b e5fe | | Load 0x2,-0x2
014c 0092 03de | | Action Push_String_Extended,0x3de ; ".Microcode_"
014e 01cc | | Execute Vector,Catenate
014f e5ff | | Load 0x2,-0x1
0150 01cc | | Execute Vector,Catenate
0151 0092 03db | | Action Push_String_Extended,0x3db ; ".addresses"
0153 01cc | | Execute Vector,Catenate
0154 4800 |H | Short_Literal 0x0
0155 e220 | | Load 0x1,0x20
0156 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0157 c228 | ( | Store 0x1,0x28
0158 e229 | ) | Load 0x1,0x29
0159 00ea | | Load_Encached Null_String_Cache
015a e5fe | | Load 0x2,-0x2
015b 0092 03de | | Action Push_String_Extended,0x3de ; ".Microcode_"
015d 01cc | | Execute Vector,Catenate
015e e5ff | | Load 0x2,-0x1
015f 01cc | | Execute Vector,Catenate
0160 0092 03dc | | Action Push_String_Extended,0x3dc ; ".reasons"
0162 01cc | | Execute Vector,Catenate
0163 4800 |H | Short_Literal 0x0
0164 e225 | % | Load 0x1,0x25
0165 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0166 c229 | ) | Store 0x1,0x29
0167 4503 |E | Exit_Subprogram 0x3
0168 TRAP_00f0:
0168 00d8 | | Load_Top At_Offset_0
0169 0107 | | Execute Exception,Get_Name
016a 4920 |I | Short_Literal 0x120
016b 492f |I/ | Short_Literal 0x12f
016c 0262 | b | Execute Discrete,In_Range
016d 6802 |h | Jump_Zero 0x170
016e e21a | | Load 0x1,0x1a
016f 0257 | W | Execute Discrete,Raise
0170 0100 | | Execute Exception,Raise
0171 0000 0000 | | .XXX[0x3]
0173 0000 | |
0174 8000 0000 | | .LITERAL {0x80000000, 0x00040000}
0178 8000 0000 | | .LITERAL {0x80000000, 0x00030000}
017c 8000 0000 | | .LITERAL {0x80000000, 0x00020000}
0180 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0184 0000 0000 | | .BLANK 0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e226 | & | Load 0x1,0x26
018c e005 | | Load 0x0,0x5
018d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018e c226 | & | Store 0x1,0x26
018f e227 | ' | Load 0x1,0x27
0190 e221 | ! | Load 0x1,0x21
0191 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0192 c227 | ' | Store 0x1,0x27
0193 e228 | ( | Load 0x1,0x28
0194 e220 | | Load 0x1,0x20
0195 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0196 c228 | ( | Store 0x1,0x28
0197 e229 | ) | Load 0x1,0x29
0198 e225 | % | Load 0x1,0x25
0199 1816 | | Execute Package,Field_Execute,Field_Number 0x16
019a c229 | ) | Store 0x1,0x29
019b 4501 |E | Exit_Subprogram 0x1
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a5 | | .CONST 0x01a5 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 00e2 | | Load_Encached Integer_Cache
01a4 00e1 | | Load_Encached Boolean_Cache
01a5 BODY_01a0:
01a5 00e1 | | Load_Encached Boolean_Cache
01a6 00e2 | | Load_Encached Integer_Cache
01a7 4810 |H | Short_Literal 0x10
01a8 e5ff | | Load 0x2,-0x1
01a9 e011 | | Load 0x0,0x11
01aa 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ab 005b | [ | Store_Top Discrete,At_Offset_3
01ac 0059 | Y | Store_Top Discrete,At_Offset_1
01ad 00d8 | | Load_Top At_Offset_0
01ae 7002 |p | Jump_Nonzero 0x1b1
01af e219 | | Load 0x1,0x19
01b0 0257 | W | Execute Discrete,Raise
01b1 00d9 | | Load_Top At_Offset_1
01b2 00d8 | | Load_Top At_Offset_0
01b3 e004 | | Load 0x0,0x4
01b4 0260 | ` | Execute Discrete,In_Type
01b5 7001 |p | Jump_Nonzero 0x1b7
01b6 0801 | | Execute_Immediate Raise,0x1
01b7 8210 | | Call 0x1,0x10
01b8 4401 |D | Exit_Subprogram With_Result,0x1
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01cf | | .CONST 0x01cf ; Address of begin
01c1 0213 | | .CONST 0x0213 ; Address of exception handler
01c2 0006 | | .CONST 0x0006 ; Number of locals
01c3 INIT_01c0:
01c3 e004 | | Load 0x0,0x4
01c4 0007 | | Action Break_Optional
01c5 00d8 | | Load_Top At_Offset_0
01c6 0007 | | Action Break_Optional
01c7 4801 |H | Short_Literal 0x1
01c8 483c |H< | Short_Literal 0x3c
01c9 00e9 | | Load_Encached String_Cache
01ca 035b | [ | Declare_Type Array,Constrained
01cb 0337 | 7 | Declare_Variable Array
01cc 00e2 | | Load_Encached Integer_Cache
01cd 00e3 | | Load_Encached Natural_Cache
01ce 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
01cf BODY_01c0:
01cf e5ff | | Load 0x2,-0x1
01d0 4900 |I | Short_Literal 0x100
01d1 49ff |I | Short_Literal 0x1ff
01d2 0262 | b | Execute Discrete,In_Range
01d3 6803 |h | Jump_Zero 0x1d7
01d4 0092 03df | | Action Push_String_Extended,0x3df ; "EVENT"
01d6 4401 |D | Exit_Subprogram With_Result,0x1
01d7 e226 | & | Load 0x1,0x26
01d8 e005 | | Load 0x0,0x5
01d9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01da c226 | & | Store 0x1,0x26
01db 00cf | | Action Mark_Auxiliary
01dc e21d | | Load 0x1,0x1d
01dd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01de e226 | & | Load 0x1,0x26
01df e21d | | Load 0x1,0x1d
01e0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e1 c402 | | Store 0x2,0x2
01e2 e21d | | Load 0x1,0x1d
01e3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e4 e226 | & | Load 0x1,0x26
01e5 e21d | | Load 0x1,0x1d
01e6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e7 c403 | | Store 0x2,0x3
01e8 00db | | Load_Top At_Offset_3
01e9 e226 | & | Load 0x1,0x26
01ea e21e | | Load 0x1,0x1e
01eb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01ec 00d1 | | Pop_Control Pop_Count_1
01ed e21f | | Load 0x1,0x1f
01ee 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ef e226 | & | Load 0x1,0x26
01f0 e21f | | Load 0x1,0x1f
01f1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01f2 005b | [ | Store_Top Discrete,At_Offset_3
01f3 e5ff | | Load 0x2,-0x1
01f4 e403 | | Load 0x2,0x3
01f5 027a | z | Execute Discrete,Less_Equal
01f6 7002 |p | Jump_Nonzero 0x1f9
01f7 00c9 | | Action Pop_Auxiliary_Loop
01f8 7fe3 | | Jump 0x1dc
01f9 00ce | | Action Pop_Auxiliary
01fa e402 | | Load 0x2,0x2
01fb e5ff | | Load 0x2,-0x1
01fc 027a | z | Execute Discrete,Less_Equal
01fd 7002 |p | Jump_Nonzero 0x200
01fe e21b | | Load 0x1,0x1b
01ff 0257 | W | Execute Discrete,Raise
0200 00cf | | Action Mark_Auxiliary
0201 7804 |x | Jump 0x206
0202 00d9 | | Load_Top At_Offset_1
0203 0a01 | | Execute_Immediate Plus,0x1
0204 005a | Z | Store_Top Discrete,At_Offset_2
0205 00c9 | | Action Pop_Auxiliary_Loop
0206 00d9 | | Load_Top At_Offset_1
0207 e404 | | Load 0x2,0x4
0208 01d7 | | Execute Vector,Field_Read
0209 77f8 |w | Jump_Nonzero 0x202
020a 00ce | | Action Pop_Auxiliary
020b 4801 |H | Short_Literal 0x1
020c 00d9 | | Load_Top At_Offset_1
020d 0aff | | Execute_Immediate Plus,-0x1
020e e404 | | Load 0x2,0x4
020f 01cf | | Execute Vector,Slice_Read
0210 00e9 | | Load_Encached String_Cache
0211 01c6 | | Execute Vector,Convert_To_Formal
0212 4401 |D | Exit_Subprogram With_Result,0x1
0213 TRAP_01c0:
0213 00d8 | | Load_Top At_Offset_0
0214 0107 | | Execute Exception,Get_Name
0215 4950 |IP | Short_Literal 0x150
0216 495f |I_ | Short_Literal 0x15f
0217 0262 | b | Execute Discrete,In_Range
0218 6802 |h | Jump_Zero 0x21b
0219 e21b | | Load 0x1,0x1b
021a 0257 | W | Execute Discrete,Raise
021b 0100 | | Execute Exception,Raise
021c 0000 0000 | | .BLANK 0000[0x4]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0227 | ' | .CONST 0x0227 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0003 | | .CONST 0x0003 ; Number of locals
0223 INIT_0220:
0223 e004 | | Load 0x0,0x4
0224 0007 | | Action Break_Optional
0225 00d8 | | Load_Top At_Offset_0
0226 0007 | | Action Break_Optional
0227 BODY_0220:
0227 e004 | | Load 0x0,0x4
0228 00d8 | | Load_Top At_Offset_0
0229 e5ff | | Load 0x2,-0x1
022a 8212 | | Call 0x1,0x12
022b 005a | Z | Store_Top Discrete,At_Offset_2
022c 005a | Z | Store_Top Discrete,At_Offset_2
022d 4820 |H | Short_Literal 0x20
022e 4805 |H | Short_Literal 0x5
022f 4810 |H | Short_Literal 0x10
0230 00db | | Load_Top At_Offset_3
0231 e011 | | Load 0x0,0x11
0232 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0233 4801 |H | Short_Literal 0x1
0234 4805 |H | Short_Literal 0x5
0235 e5fe | | Load 0x2,-0x2
0236 01ce | | Execute Vector,Slice_Write
0237 4820 |H | Short_Literal 0x20
0238 4805 |H | Short_Literal 0x5
0239 4810 |H | Short_Literal 0x10
023a e402 | | Load 0x2,0x2
023b e011 | | Load 0x0,0x11
023c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
023d 4801 |H | Short_Literal 0x1
023e 4805 |H | Short_Literal 0x5
023f e5fd | | Load 0x2,-0x3
0240 01ce | | Execute Vector,Slice_Write
0241 4502 |E | Exit_Subprogram 0x2
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0251 | Q | .CONST 0x0251 ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b 4801 |H | Short_Literal 0x1
024c 4832 |H2 | Short_Literal 0x32
024d 00e9 | | Load_Encached String_Cache
024e 035b | [ | Declare_Type Array,Constrained
024f 0337 | 7 | Declare_Variable Array
0250 00e2 | | Load_Encached Integer_Cache
0251 BODY_0248:
0251 e226 | & | Load 0x1,0x26
0252 e005 | | Load 0x0,0x5
0253 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0254 c226 | & | Store 0x1,0x26
0255 00cf | | Action Mark_Auxiliary
0256 e21d | | Load 0x1,0x1d
0257 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0258 e226 | & | Load 0x1,0x26
0259 e21d | | Load 0x1,0x1d
025a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
025b c5fe | | Store 0x2,-0x2
025c e21d | | Load 0x1,0x1d
025d 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025e e226 | & | Load 0x1,0x26
025f e21d | | Load 0x1,0x1d
0260 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0261 c5fd | | Store 0x2,-0x3
0262 00da | | Load_Top At_Offset_2
0263 e226 | & | Load 0x1,0x26
0264 e21e | | Load 0x1,0x1e
0265 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0266 00d1 | | Pop_Control Pop_Count_1
0267 e21f | | Load 0x1,0x1f
0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0269 e226 | & | Load 0x1,0x26
026a e21f | | Load 0x1,0x1f
026b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
026c 005a | Z | Store_Top Discrete,At_Offset_2
026d e5ff | | Load 0x2,-0x1
026e 01da | | Execute Vector,Bounds
026f e402 | | Load 0x2,0x2
0270 01cf | | Execute Vector,Slice_Read
0271 e5ff | | Load 0x2,-0x1
0272 01df | | Execute Vector,Equal
0273 7002 |p | Jump_Nonzero 0x276
0274 00c9 | | Action Pop_Auxiliary_Loop
0275 7fe0 | | Jump 0x256
0276 4502 |E | Exit_Subprogram 0x2
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0295 | | .CONST 0x0295 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0007 | | .CONST 0x0007 ; Number of locals
027b INIT_0278:
027b e004 | | Load 0x0,0x4
027c 0007 | | Action Break_Optional
027d e21c | | Load 0x1,0x1c
027e 0337 | 7 | Declare_Variable Array
027f 00e3 | | Load_Encached Natural_Cache
0280 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0281 00e2 | | Load_Encached Integer_Cache
0282 e228 | ( | Load 0x1,0x28
0283 e220 | | Load 0x1,0x20
0284 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0285 e220 | | Load 0x1,0x20
0286 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0287 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0288 00d8 | | Load_Top At_Offset_0
0289 e5ff | | Load 0x2,-0x1
028a 0271 | q | Execute Discrete,Times
028b 09f2 | | Execute_Immediate Binary_Scale,-0xe
028c 00d8 | | Load_Top At_Offset_0
028d e220 | | Load 0x1,0x20
028e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
028f 0260 | ` | Execute Discrete,In_Type
0290 7001 |p | Jump_Nonzero 0x292
0291 0801 | | Execute_Immediate Raise,0x1
0292 e220 | | Load 0x1,0x20
0293 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0294 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0295 BODY_0278:
0295 e220 | | Load 0x1,0x20
0296 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0297 00d9 | | Load_Top At_Offset_1
0298 e228 | ( | Load 0x1,0x28
0299 e220 | | Load 0x1,0x20
029a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
029b c402 | | Store 0x2,0x2
029c e402 | | Load 0x2,0x2
029d e5ff | | Load 0x2,-0x1
029e 027b | { | Execute Discrete,Greater_Equal
029f 6813 |h | Jump_Zero 0x2b3
02a0 00cf | | Action Mark_Auxiliary
02a1 780b |x | Jump 0x2ad
02a2 00d9 | | Load_Top At_Offset_1
02a3 0aff | | 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 00c9 | | Action Pop_Auxiliary_Loop
02ad e402 | | Load 0x2,0x2
02ae e5ff | | Load 0x2,-0x1
02af 027d | } | Execute Discrete,Greater
02b0 77f1 |w | Jump_Nonzero 0x2a2
02b1 00ce | | Action Pop_Auxiliary
02b2 782b |x+ | Jump 0x2de
02b3 00cf | | Action Mark_Auxiliary
02b4 00d9 | | Load_Top At_Offset_1
02b5 00db | | Load_Top At_Offset_3
02b6 027b | { | Execute Discrete,Greater_Equal
02b7 6801 |h | Jump_Zero 0x2b9
02b8 7824 |x$ | Jump 0x2dd
02b9 00d9 | | Load_Top At_Offset_1
02ba 0a01 | | Execute_Immediate Plus,0x1
02bb 005a | Z | Store_Top Discrete,At_Offset_2
02bc e220 | | Load 0x1,0x20
02bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02be 00da | | Load_Top At_Offset_2
02bf e228 | ( | Load 0x1,0x28
02c0 e220 | | Load 0x1,0x20
02c1 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02c2 c402 | | Store 0x2,0x2
02c3 e402 | | Load 0x2,0x2
02c4 e5ff | | Load 0x2,-0x1
02c5 027d | } | Execute Discrete,Greater
02c6 680b |h | Jump_Zero 0x2d2
02c7 00d9 | | Load_Top At_Offset_1
02c8 0aff | | Execute_Immediate Plus,-0x1
02c9 005a | Z | Store_Top Discrete,At_Offset_2
02ca e220 | | Load 0x1,0x20
02cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02cc 00da | | Load_Top At_Offset_2
02cd e228 | ( | Load 0x1,0x28
02ce e220 | | Load 0x1,0x20
02cf 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02d0 c402 | | Store 0x2,0x2
02d1 780b |x | Jump 0x2dd
02d2 e402 | | Load 0x2,0x2
02d3 e5ff | | Load 0x2,-0x1
02d4 027f | | Execute Discrete,Equal
02d5 00da | | Load_Top At_Offset_2
02d6 e406 | | Load 0x2,0x6
02d7 027f | | Execute Discrete,Equal
02d8 0278 | x | Execute Discrete,Or
02d9 6801 |h | Jump_Zero 0x2db
02da 7802 |x | Jump 0x2dd
02db 00c9 | | Action Pop_Auxiliary_Loop
02dc 7fd7 | | Jump 0x2b4
02dd 00ce | | Action Pop_Auxiliary
02de e5ff | | Load 0x2,-0x1
02df e402 | | Load 0x2,0x2
02e0 0272 | r | Execute Discrete,Minus
02e1 0053 | S | Store_Top_Unchecked Discrete,At_Offset_3
02e2 e403 | | Load 0x2,0x3
02e3 00d9 | | Load_Top At_Offset_1
02e4 00d8 | | Load_Top At_Offset_0
02e5 e221 | ! | Load 0x1,0x21
02e6 1b13 | | Execute Package,Field_Read,Field_Number 0x13
02e7 0260 | ` | Execute Discrete,In_Type
02e8 7001 |p | Jump_Nonzero 0x2ea
02e9 0801 | | Execute_Immediate Raise,0x1
02ea e227 | ' | Load 0x1,0x27
02eb e221 | ! | Load 0x1,0x21
02ec 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02ed 00d1 | | Pop_Control Pop_Count_1
02ee 00cf | | Action Mark_Auxiliary
02ef 7804 |x | Jump 0x2f4
02f0 e404 | | Load 0x2,0x4
02f1 0a01 | | Execute_Immediate Plus,0x1
02f2 c404 | | Store 0x2,0x4
02f3 00c9 | | Action Pop_Auxiliary_Loop
02f4 e404 | | Load 0x2,0x4
02f5 e403 | | Load 0x2,0x3
02f6 01d7 | | Execute Vector,Field_Read
02f7 77f8 |w | Jump_Nonzero 0x2f0
02f8 00ce | | Action Pop_Auxiliary
02f9 00da | | Load_Top At_Offset_2
02fa 700c |p | Jump_Nonzero 0x307
02fb e5ff | | Load 0x2,-0x1
02fc 8210 | | Call 0x1,0x10
02fd 0092 03e0 | | Action Push_String_Extended,0x3e0 ; "."
02ff 01cc | | Execute Vector,Catenate
0300 4801 |H | Short_Literal 0x1
0301 e404 | | Load 0x2,0x4
0302 0aff | | Execute_Immediate Plus,-0x1
0303 e403 | | Load 0x2,0x3
0304 01cf | | Execute Vector,Slice_Read
0305 01cc | | Execute Vector,Catenate
0306 4401 |D | Exit_Subprogram With_Result,0x1
0307 482b |H+ | Short_Literal 0x2b
0308 482e |H. | Short_Literal 0x2e
0309 e5ff | | Load 0x2,-0x1
030a 8210 | | Call 0x1,0x10
030b 01cb | | Execute Vector,Append
030c 4801 |H | Short_Literal 0x1
030d e404 | | Load 0x2,0x4
030e 0aff | | Execute_Immediate Plus,-0x1
030f e403 | | Load 0x2,0x3
0310 01cf | | Execute Vector,Slice_Read
0311 01cc | | Execute Vector,Catenate
0312 01cb | | Execute Vector,Append
0313 4820 |H | Short_Literal 0x20
0314 4800 |H | Short_Literal 0x0
0315 480a |H | Short_Literal 0xa
0316 e405 | | Load 0x2,0x5
0317 e011 | | Load 0x0,0x11
0318 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0319 01cc | | Execute Vector,Catenate
031a 4401 |D | Exit_Subprogram With_Result,0x1
031b 0000 0000 | | .BLANK 0000[0x5]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 032b | + | .CONST 0x032b ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 00d8 | | Load_Top At_Offset_0
0325 e004 | | Load 0x0,0x4
0326 0260 | ` | Execute Discrete,In_Type
0327 7001 |p | Jump_Nonzero 0x329
0328 0801 | | Execute_Immediate Raise,0x1
0329 8213 | | Call 0x1,0x13
032a 4401 |D | Exit_Subprogram With_Result,0x1
032b TRAP_0320:
032b 0007 | | Action Break_Optional
032c 4820 |H | Short_Literal 0x20
032d 4805 |H | Short_Literal 0x5
032e 4810 |H | Short_Literal 0x10
032f e5ff | | Load 0x2,-0x1
0330 e011 | | Load 0x0,0x11
0331 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0332 0092 03e1 | | Action Push_String_Extended,0x3e1 ; " *** could not resolve"
0334 01cc | | Execute Vector,Catenate
0335 4401 |D | Exit_Subprogram With_Result,0x1
0336 0000 0000 | | .XXX[0x2]
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 480a |H | Short_Literal 0xa
033c 0092 03e2 | | Action Push_String_Extended,0x3e2 ; "Error - "
033e e5ff | | Load 0x2,-0x1
033f 822e | . | Call 0x1,0x2e
0340 01cc | | Execute Vector,Catenate
0341 01cb | | Execute Vector,Append
0342 0092 03e3 | | Action Push_String_Extended,0x3e3 ; "For reason - "
0344 01cc | | Execute Vector,Catenate
0345 e5fe | | Load 0x2,-0x2
0346 822d | - | Call 0x1,0x2d
0347 01cc | | Execute Vector,Catenate
0348 4402 |D | Exit_Subprogram With_Result,0x2
0349 0000 0000 | | .BLANK 0000[0x7]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 00db | | Load_Top At_Offset_3
0354 00d8 | | Load_Top At_Offset_0
0355 e004 | | Load 0x0,0x4
0356 0260 | ` | Execute Discrete,In_Type
0357 7001 |p | Jump_Nonzero 0x359
0358 0801 | | Execute_Immediate Raise,0x1
0359 00db | | Load_Top At_Offset_3
035a 00d8 | | Load_Top At_Offset_0
035b e004 | | Load 0x0,0x4
035c 0260 | ` | Execute Discrete,In_Type
035d 7001 |p | Jump_Nonzero 0x35f
035e 0801 | | Execute_Immediate Raise,0x1
035f 8215 | | Call 0x1,0x15
0360 4402 |D | Exit_Subprogram With_Result,0x2
0361 0000 0000 | | .BLANK 0000[0x7]
0368 ; --------------------------------------------------------------------------------------
0368 ; SUBPROGRAM
0368 ; --------------------------------------------------------------------------------------
0368 036d | m | .CONST 0x036d ; Address of begin
0369 0004 | | .CONST 0x0004 ; Address of exception handler
036a 0002 | | .CONST 0x0002 ; Number of locals
036b INIT_0368:
036b e224 | $ | Load 0x1,0x24
036c 0322 | " | Declare_Variable Record
036d BODY_0368:
036d 00cf | | Action Mark_Auxiliary
036e e229 | ) | Load 0x1,0x29
036f e225 | % | Load 0x1,0x25
0370 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0371 4801 |H | Short_Literal 0x1
0372 0263 | c | Execute Discrete,Above_Bound
0373 7026 |p& | Jump_Nonzero 0x39a
0374 00db | | Load_Top At_Offset_3
0375 00d9 | | Load_Top At_Offset_1
0376 e225 | % | Load 0x1,0x25
0377 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0378 00d9 | | Load_Top At_Offset_1
0379 00d0 | | Action Swap_Control
037a 0260 | ` | Execute Discrete,In_Type
037b 7001 |p | Jump_Nonzero 0x37d
037c 0801 | | Execute_Immediate Raise,0x1
037d e229 | ) | Load 0x1,0x29
037e e225 | % | Load 0x1,0x25
037f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0380 00d1 | | Pop_Control Pop_Count_1
0381 00db | | Load_Top At_Offset_3
0382 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0383 e5ff | | Load 0x2,-0x1
0384 027f | | Execute Discrete,Equal
0385 6812 |h | Jump_Zero 0x398
0386 4820 |H | Short_Literal 0x20
0387 e402 | | Load 0x2,0x2
0388 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0389 e011 | | Load 0x0,0x11
038a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
038b 0092 03e4 | | Action Push_String_Extended,0x3e4 ; " : "
038d 01cc | | Execute Vector,Catenate
038e 4809 |H | Short_Literal 0x9
038f 4820 |H | Short_Literal 0x20
0390 e402 | | Load 0x2,0x2
0391 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0392 e011 | | Load 0x0,0x11
0393 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0394 e011 | | Load 0x0,0x11
0395 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0396 01cc | | Execute Vector,Catenate
0397 4401 |D | Exit_Subprogram With_Result,0x1
0398 00c8 | | Action Pop_Auxiliary_Range
0399 3fda |? | Loop_Increasing 0x374
039a 00ce | | Action Pop_Auxiliary
039b 0092 03e5 | | Action Push_String_Extended,0x3e5 ; "not found"
039d 4401 |D | Exit_Subprogram With_Result,0x1
039e 0000 0000 | | .XXX[0x2]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03a3 | | .CONST 0x03a3 ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0001 | | .CONST 0x0001 ; Number of locals
03a3 BODY_03a0:
03a3 INIT_03a0:
03a3 00da | | Load_Top At_Offset_2
03a4 00d8 | | Load_Top At_Offset_0
03a5 4a00 |J | Short_Literal 0x200
03a6 4a09 |J | Short_Literal 0x209
03a7 0262 | b | Execute Discrete,In_Range
03a8 682b |h+ | Jump_Zero 0x3d4
03a9 4e00 |N | Short_Literal 0x600
03aa 0273 | s | Execute Discrete,Plus
03ab 4609 |F | Jump_Case 0x9
03ac 780c |x | Jump 0x3b9 ; case 0x0
03ad 780e |x | Jump 0x3bc ; case 0x1
03ae 7810 |x | Jump 0x3bf ; case 0x2
03af 7812 |x | Jump 0x3c2 ; case 0x3
03b0 7814 |x | Jump 0x3c5 ; case 0x4
03b1 7816 |x | Jump 0x3c8 ; case 0x5
03b2 7818 |x | Jump 0x3cb ; case 0x6
03b3 781a |x | Jump 0x3ce ; case 0x7
03b4 781c |x | Jump 0x3d1 ; case 0x8
03b5 7800 |x | Jump 0x3b6 ; case 0x9
03b6 0092 03e6 | | Action Push_String_Extended,0x3e6 ; "SOFTWARE CRASH"
03b8 4401 |D | Exit_Subprogram With_Result,0x1
03b9 0092 03e7 | | Action Push_String_Extended,0x3e7 ; "SYSTEM ERROR"
03bb 4401 |D | Exit_Subprogram With_Result,0x1
03bc 0092 03e8 | | Action Push_String_Extended,0x3e8 ; "IOP HARDWARE ERROR"
03be 4401 |D | Exit_Subprogram With_Result,0x1
03bf 0092 03e9 | | Action Push_String_Extended,0x3e9 ; "IOP SOFTWARE ERROR"
03c1 4401 |D | Exit_Subprogram With_Result,0x1
03c2 0092 03ea | | Action Push_String_Extended,0x3ea ; "CPU HARDWARE ERROR"
03c4 4401 |D | Exit_Subprogram With_Result,0x1
03c5 0092 03eb | | Action Push_String_Extended,0x3eb ; "MULTI BIT MEMORY ERROR"
03c7 4401 |D | Exit_Subprogram With_Result,0x1
03c8 0092 03ec | | Action Push_String_Extended,0x3ec ; "SYSBUS HARDWARE ERROR"
03ca 4401 |D | Exit_Subprogram With_Result,0x1
03cb 0092 03ed | | Action Push_String_Extended,0x3ed ; "CPU MICROCODE ERROR"
03cd 4401 |D | Exit_Subprogram With_Result,0x1
03ce 0092 03ee | | Action Push_String_Extended,0x3ee ; "CPU SOFTWARE ERROR"
03d0 4401 |D | Exit_Subprogram With_Result,0x1
03d1 0092 03ef | | Action Push_String_Extended,0x3ef ; "SYSTEM SHUTDOWN"
03d3 4401 |D | Exit_Subprogram With_Result,0x1
03d4 00d1 | | Pop_Control Pop_Count_1
03d5 0092 03e5 | | Action Push_String_Extended,0x3e5 ; "not found"
03d7 4401 |D | Exit_Subprogram With_Result,0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; STRING TABLE
03d8 ; --------------------------------------------------------------------------------------
03d8 0032 | 2 | .STRTAB 0x0032->0x03f1 ; "<default>"
03d9 0039 | 9 | .STRTAB 0x0039->0x03f5 ; ".packages"
; ".packages"
03da 0040 | @ | .STRTAB 0x0040->0x03fa ; ".labels"
; ".labels"
03db 0045 | E | .STRTAB 0x0045->0x03fd ; ".addresses"
; ".addresses"
03dc 004d | M | .STRTAB 0x004d->0x0402 ; ".reasons"
; ".reasons"
03dd 0053 | S | .STRTAB 0x0053->0x0406 ; ".microcode_"
03de 005c | \ | .STRTAB 0x005c->0x040c ; ".Microcode_"
; ".Microcode_"
; ".Microcode_"
03df 0065 | e | .STRTAB 0x0065->0x0411 ; "EVENT"
03e0 0068 | h | .STRTAB 0x0068->0x0414 ; "."
03e1 0067 | g | .STRTAB 0x0067->0x0414 ; " *** could not resolve"
03e2 007b | { | .STRTAB 0x007b->0x041f ; "Error - "
03e3 0086 | | .STRTAB 0x0086->0x0426 ; "For reason - "
03e4 0091 | | .STRTAB 0x0091->0x042c ; " : "
03e5 0092 | | .STRTAB 0x0092->0x042e ; "not found"
; "not found"
03e6 0099 | | .STRTAB 0x0099->0x0432 ; "SOFTWARE CRASH"
03e7 00a5 | | .STRTAB 0x00a5->0x0439 ; "SYSTEM ERROR"
03e8 00af | | .STRTAB 0x00af->0x043f ; "IOP HARDWARE ERROR"
03e9 00bf | | .STRTAB 0x00bf->0x0448 ; "IOP SOFTWARE ERROR"
03ea 00cf | | .STRTAB 0x00cf->0x0451 ; "CPU HARDWARE ERROR"
03eb 00df | | .STRTAB 0x00df->0x045a ; "MULTI BIT MEMORY ERROR"
03ec 00f3 | | .STRTAB 0x00f3->0x0465 ; "SYSBUS HARDWARE ERROR"
03ed 0106 | | .STRTAB 0x0106->0x0470 ; "CPU MICROCODE ERROR"
03ee 0117 | | .STRTAB 0x0117->0x0479 ; "CPU SOFTWARE ERROR"
03ef 0127 | ' | .STRTAB 0x0127->0x0482 ; "SYSTEM SHUTDOWN"
03f0 0134 | 4 | .STREND 0x0134->0x048a
03f1 3c64 6566 |<def| .STRTAB_STRINGS
048a 0000 0000 | | .BLANK 0000[0x6]
0490 ; --------------------------------------------------------------------------------------
0490 ; Debug Table
0490 ; --------------------------------------------------------------------------------------
0490 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf1f7,0x0000,0x0001,0x0000
0496 0000 0000 | | .BLANK 0000[0x16a]