|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0358 | X | .CONST 0x0358 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0089 | | .CONST 0x0089 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002d | - | .CONST 0x002d ; Number of locals
000b INIT_0008:
000b 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x0402,0x0000,0x0000,0x0058,0xc925,0x0000,0x009d
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x13,0xfffb
0015 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1d,0xfff6
001f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1f,0xfff5
0021 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x21,0xfff4
0023 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x23,0xfff3
0025 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x25,0xfff2
0027 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x27,0xfff1
0029 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xf = 0x29,0xffff
002b 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x10 = 0x2b,0xfffe
002d 00bf | | Action Accept_Activation
002e 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x002e,0x0426,0x0000,0x0000,0x0058,0xc9a5,0x0000,0x000a
; Debug Table 0x1.0x0 = 0x2e,0xffff
002f e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x2f,0xfffe
0030 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0031 02ff | | Declare_Variable Variant_Record
0032 00d8 | | Load_Top At_Offset_0
0033 1c00 | | Execute_Immediate Run_Utility,0x0
0034 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x2 = 0x34,0xfffd
0035 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0036 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x3 = 0x36,0xfffc
0037 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0038 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x4 = 0x38,0xfffb
0039 0322 | " | Declare_Variable Record
003a 00d8 | | Load_Top At_Offset_0
003b 1c00 | | Execute_Immediate Run_Utility,0x0
003c e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x5 = 0x3c,0xfffa
003d 0322 | " | Declare_Variable Record
003e e005 | | Load 0x0,0x5 ; Debug Table 0x1.0x6 = 0x3e,0xfff9
003f 0322 | " | Declare_Variable Record
0040 00d8 | | Load_Top At_Offset_0
0041 1c00 | | Execute_Immediate Run_Utility,0x0
0042 e006 | | Load 0x0,0x6 ; Debug Table 0x1.0x7 = 0x42,0xfff8
0043 0322 | " | Declare_Variable Record
0044 e007 | | Load 0x0,0x7 ; Debug Table 0x1.0x8 = 0x44,0xfff7
0045 0322 | " | Declare_Variable Record
0046 e008 | | Load 0x0,0x8 ; Debug Table 0x1.0x9 = 0x46,0xfff6
0047 0322 | " | Declare_Variable Record
0048 00d8 | | Load_Top At_Offset_0
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0xa = 0x4a,0xfff5
004b 4840 |H@ | Short_Literal 0x40
004c e009 | | Load 0x0,0x9
004d 0334 | 4 | Declare_Variable Array,With_Constraint
004e 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0xb = 0x4e,0xfff4
004f 00c7 | | Action Elaborate_Subprogram
0050 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0xc = 0x50,0xfff3
0051 00c7 | | Action Elaborate_Subprogram
0052 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0xd = 0x52,0xfff2
0053 00c7 | | Action Elaborate_Subprogram
0054 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0xe = 0x54,0xfff1
0055 00c7 | | Action Elaborate_Subprogram
0056 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0xf = 0x56,0xfff0
0057 00c7 | | Action Elaborate_Subprogram
0058 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x10 = 0x58,0xffef
0059 00c7 | | Action Elaborate_Subprogram
005a 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x11 = 0x5a,0xffee
005b 00c7 | | Action Elaborate_Subprogram
005c 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x12 = 0x5c,0xffed
005d 00c7 | | Action Elaborate_Subprogram
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x13 = 0x5e,0xffec
005f 00c7 | | Action Elaborate_Subprogram
0060 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x14 = 0x60,0xffeb
0061 00c7 | | Action Elaborate_Subprogram
0062 625d |b] | Indirect_Literal Discrete,0x2c0,{0x00000000, 0x0058c9a5} ; Debug Table 0x1.0x15 = 0x62,0xffea
0063 4930 |I0 | Short_Literal 0x130
0064 e001 | | Load 0x0,0x1
0065 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
0066 e001 | | Load 0x0,0x1
0067 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0068 e00a | | Load 0x0,0xa
0069 1b18 | | Execute Package,Field_Read,Field_Number 0x18
006a 0387 | | Declare_Variable Package
006b 00d8 | | Load_Top At_Offset_0
006c 020f | | Execute Module,Activate
006d 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x16 = 0x6d,0xffe9
006e 00c7 | | Action Elaborate_Subprogram
006f 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x17 = 0x6f,0xffe8
0070 00c7 | | Action Elaborate_Subprogram
0071 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x18 = 0x71,0xffe7
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0x19 = 0x73,0xffe6
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0x1a = 0x75,0xffe5
0076 00c7 | | Action Elaborate_Subprogram
0077 0007 | | Action Break_Optional ; Debug Table 0x1.0x1b = 0x77,0xffff
0078 e00b | | Load 0x0,0xb ; Debug Table 0x1.0x1c = 0x78,0xfffe
0079 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007a 02c7 | | Declare_Variable Any
007b 00d8 | | Load_Top At_Offset_0
007c 1c00 | | Execute_Immediate Run_Utility,0x0
007d e00c | | Load 0x0,0xc ; Debug Table 0x1.0x1d = 0x7d,0xfffd
007e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
007f e00d | | Load 0x0,0xd ; Debug Table 0x1.0x1e = 0x7f,0xfffc
0080 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0081 029d 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call ; Debug Table 0x1.0x1f = 0x81,0xfffb
0083 1d1c | | Execute_Immediate Reference_Lex_1,0x1c ; Debug Table 0x1.0x20 = 0x83,0xfffa
0084 00c7 | | Action Elaborate_Subprogram
0085 1d1d | | Execute_Immediate Reference_Lex_1,0x1d ; Debug Table 0x1.0x21 = 0x85,0xfff9
0086 00c7 | | Action Elaborate_Subprogram
0087 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call ; Debug Table 0x1.0x22 = 0x87,0xfff8
0089 BODY_0008:
0089 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x23 = 0x89,0x1
008a e221 | ! | Load 0x1,0x21
008b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
008c 00bc | | Action Signal_Activated
008d 00bb | | Action Signal_Completion
008e 0000 0000 | | .XXX[0x2]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e221 | ! | Load 0x1,0x21 ; Debug Table 0x2 = .DEBUG 0x0093,0x0470,0x0002,0x0000,0x0058,0xc925,0x0000,0x009e
; Debug Table 0x2.0x0 = 0x93,0x1
0094 e00e | | Load 0x0,0xe
0095 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0096 e21f | | Load 0x1,0x1f
0097 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0098 00ca | | Action Exit_Nullary_Function
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e222 | " | Load 0x1,0x22 ; Debug Table 0x3 = .DEBUG 0x00a3,0x0474,0x0002,0x0000,0x0058,0xc925,0x0000,0x00a5
; Debug Table 0x3.0x0 = 0xa3,0x1
00a4 e00e | | Load 0x0,0xe
00a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a6 e21f | | Load 0x1,0x1f
00a7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00a8 00ca | | Action Exit_Nullary_Function
00a9 0000 0000 | | .BLANK 0000[0x7]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 e223 | # | Load 0x1,0x23 ; Debug Table 0x4 = .DEBUG 0x00b3,0x0478,0x0002,0x0000,0x0058,0xc925,0x0000,0x00ac
; Debug Table 0x4.0x0 = 0xb3,0x1
00b4 e00e | | Load 0x0,0xe
00b5 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
00b6 e21f | | Load 0x1,0x1f
00b7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00b8 00ca | | Action Exit_Nullary_Function
00b9 0000 0000 | | .BLANK 0000[0x7]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e224 | $ | Load 0x1,0x24 ; Debug Table 0x5 = .DEBUG 0x00c3,0x047c,0x0002,0x0000,0x0058,0xc925,0x0000,0x00b1
; Debug Table 0x5.0x0 = 0xc3,0x1
00c4 e00e | | Load 0x0,0xe
00c5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
00c6 e21f | | Load 0x1,0x1f
00c7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00c8 00ca | | Action Exit_Nullary_Function
00c9 0000 0000 | | .BLANK 0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 e225 | % | Load 0x1,0x25 ; Debug Table 0x6 = .DEBUG 0x00d3,0x0480,0x0002,0x0000,0x0058,0xc925,0x0000,0x00b8
; Debug Table 0x6.0x0 = 0xd3,0x1
00d4 e00e | | Load 0x0,0xe
00d5 1b1a | | Execute Package,Field_Read,Field_Number 0x1a
00d6 e21f | | Load 0x1,0x1f
00d7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00d8 00ca | | Action Exit_Nullary_Function
00d9 0000 0000 | | .BLANK 0000[0x7]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2 ; Debug Table 0x7 = .DEBUG 0x00e3,0x0484,0x0002,0x0000,0x0058,0xc925,0x0000,0x00bf
; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 49a4 |I | Short_Literal 0x1a4
00e5 00eb | | Load_Encached Diana_Cache
00e6 0098 | | Execute Package,Field_Read_Dynamic
00e7 e21f | | Load 0x1,0x1f
00e8 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00e9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ea 0000 0000 | | .BLANK 0000[0x6]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e226 | & | Load 0x1,0x26 ; Debug Table 0x8 = .DEBUG 0x00f3,0x0488,0x0002,0x0000,0x0058,0xc925,0x0000,0x00cc
; Debug Table 0x8.0x0 = 0xf3,0x1
00f4 e00e | | Load 0x0,0xe
00f5 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00f6 e21f | | Load 0x1,0x1f
00f7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
00f8 00ca | | Action Exit_Nullary_Function
00f9 0000 0000 | | .BLANK 0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2 ; Debug Table 0x9 = .DEBUG 0x0103,0x048c,0x0002,0x0000,0x0058,0xc925,0x0000,0x00d1
; Debug Table 0x9.0x0 = 0x103,0x1
0104 0d41 | A | Execute_Immediate Less,0x41
0105 6809 |h | Jump_Zero 0x10f
0106 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x1 = 0x106,0x2
0107 00db | | Load_Top At_Offset_3
0108 e227 | ' | Load 0x1,0x27
0109 01cf | | Execute Vector,Slice_Read
010a e00e | | Load 0x0,0xe
010b 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
010c e21f | | Load 0x1,0x1f
010d 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010f 4801 |H | Short_Literal 0x1 ; Debug Table 0x9.0x2 = 0x10f,0x4
0110 00db | | Load_Top At_Offset_3
0111 e00e | | Load 0x0,0xe
0112 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0113 e21f | | Load 0x1,0x1f
0114 039a | | Declare_Variable Heap_Access,By_Allocation,With_Constraint
0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x011b,0x0494,0x0002,0x0000,0x0058,0xc925,0x0000,0x00da
; Debug Table 0xa.0x0 = 0x11b,0x1
011c e00e | | Load 0x0,0xe
011d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
011e e21f | | Load 0x1,0x1f
011f 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0120 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0121 0000 0000 | | .BLANK 0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e220 | | Load 0x1,0x20 ; Debug Table 0xb = .DEBUG 0x012b,0x0498,0x0002,0x0000,0x0058,0xc925,0x0000,0x00e3
; Debug Table 0xb.0x0 = 0x12b,0x1
012c 00ca | | Action Exit_Nullary_Function
012d 0000 0000 | | .XXX[0x3]
012f 0000 | |
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 013a | : | .CONST 0x013a ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0004 | | .CONST 0x0004 ; Number of locals
0133 INIT_0130:
0133 e00f | | Load 0x0,0xf ; Debug Table 0xc = .DEBUG 0x0133,0x049c,0x0001,0x0000,0x0058,0xc925,0x0000,0x00ea
; Debug Table 0xc.0x0 = 0x133,0xffff
0134 0007 | | Action Break_Optional
0135 e010 | | Load 0x0,0x10 ; Debug Table 0xc.0x1 = 0x135,0xfffe
0136 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0137 0322 | " | Declare_Variable Record
0138 e011 | | Load 0x0,0x11 ; Debug Table 0xc.0x2 = 0x138,0xfffd
0139 1b17 | | Execute Package,Field_Read,Field_Number 0x17
013a BODY_0130:
013a e5fe | | Load 0x2,-0x2 ; Debug Table 0xc.0x3 = 0x13a,0x1
013b 6804 |h | Jump_Zero 0x140
013c e012 | | Load 0x0,0x12 ; Debug Table 0xc.0x4 = 0x13c,0x2
013d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
013e 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
013f 7802 |x | Jump 0x142
0140 4800 |H | Short_Literal 0x0 ; Debug Table 0xc.0x5 = 0x140,0x3
0141 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0142 e00f | | Load 0x0,0xf ; Debug Table 0xc.0x6 = 0x142,0x4
0143 e001 | | Load 0x0,0x1
0144 1b1b | | Execute Package,Field_Read,Field_Number 0x1b
0145 e21e | | Load 0x1,0x1e
0146 4800 |H | Short_Literal 0x0
0147 e404 | | Load 0x2,0x4
0148 e013 | | Load 0x0,0x13
0149 4802 |H | Short_Literal 0x2
014a e014 | | Load 0x0,0x14
014b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014c e014 | | Load 0x0,0x14
014d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
014e e5ff | | Load 0x2,-0x1
014f 8015 | | Call 0x0,0x15
0150 00d1 | | Pop_Control Pop_Count_1
0151 c21f | | Store 0x1,0x1f
0152 005b | [ | Store_Top Discrete,At_Offset_3
0153 00da | | Load_Top At_Offset_2 ; Debug Table 0xc.0x7 = 0x153,0x5
0154 4605 |F | Jump_Case 0x6
0155 782d |x- | Jump 0x183 ; case 0x0
0156 781f |x | Jump 0x176 ; case 0x1
0157 781e |x | Jump 0x176 ; case 0x2
0158 7802 |x | Jump 0x15b ; case 0x3
0159 781c |x | Jump 0x176 ; case 0x4
015a 7819 |x | Jump 0x174 ; case 0x5
015b e013 | | Load 0x0,0x13 ; Debug Table 0xc.0x8 = 0x15b,0x7
015c 7009 |p | Jump_Nonzero 0x166
015d 0092 02c4 | | Action Push_String_Extended,0x2c4 ; "Code_Archive database for "
; Debug Table 0xc.0x9 = 0x15d,0x8
015f e5ff | | Load 0x2,-0x1
0160 01cc | | Execute Vector,Catenate
0161 0092 02c5 | | Action Push_String_Extended,0x2c5 ; " already exists and Overwrite=>False was specified"
0163 01cc | | Execute Vector,Catenate
0164 8016 | | Call 0x0,0x16
0165 781d |x | Jump 0x183
0166 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "Unable to create code_archive database for "
; Debug Table 0xc.0xa = 0x166,0x9
0168 e5ff | | Load 0x2,-0x1
0169 01cc | | Execute Vector,Catenate
016a 0092 02c7 | | Action Push_String_Extended,0x2c7 ; ": "
016c 01cc | | Execute Vector,Catenate
016d 00db | | Load_Top At_Offset_3
016e e00f | | Load 0x0,0xf
016f 025e | ^ | Execute Discrete,Convert
0170 1c01 | | Execute_Immediate Run_Utility,0x1
0171 01cc | | Execute Vector,Catenate
0172 8016 | | Call 0x0,0x16
0173 780f |x | Jump 0x183
0174 6147 |aG | Indirect_Literal Discrete,0x2bc,{0x00000000, 0x57338501} ; Debug Table 0xc.0xb = 0x174,0xa
0175 0257 | W | Execute Discrete,Raise
0176 0092 02c6 | | Action Push_String_Extended,0x2c6 ; "Unable to create code_archive database for "
; Debug Table 0xc.0xc = 0x176,0xb
0178 e5ff | | Load 0x2,-0x1
0179 01cc | | Execute Vector,Catenate
017a 0092 02c7 | | Action Push_String_Extended,0x2c7 ; ": "
017c 01cc | | Execute Vector,Catenate
017d 00db | | Load_Top At_Offset_3
017e e00f | | Load 0x0,0xf
017f 025e | ^ | Execute Discrete,Convert
0180 1c01 | | Execute_Immediate Run_Utility,0x1
0181 01cc | | Execute Vector,Catenate
0182 8016 | | Call 0x0,0x16
0183 e21f | | Load 0x1,0x1f ; Debug Table 0xc.0xd = 0x183,0xc
0184 e228 | ( | Load 0x1,0x28
0185 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0186 e00a | | Load 0x0,0xa
0187 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0188 00da | | Load_Top At_Offset_2
0189 017d | } | Execute Record,Structure_Write
018a 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0xe = 0x18a,0xd
018b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
018c 00da | | Load_Top At_Offset_2
018d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018e e002 | | Load 0x0,0x2
018f 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0190 a220 | | Store_Unchecked 0x1,0x20
0191 e012 | | Load 0x0,0x12 ; Debug Table 0xc.0xf = 0x191,0xe
0192 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0193 e017 | | Load 0x0,0x17
0194 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0195 025b | [ | Execute Discrete,Check_In_Type
0196 e21f | | Load 0x1,0x1f
0197 0217 | | Execute Heap_Access,All_Reference
0198 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0199 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xc.0x10 = 0x199,0xf
019a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019b 821d | | Call 0x1,0x1d
019c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
019d 0000 0000 | | .XXX[0x3]
019f 0000 | |
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a4 | | .CONST 0x01a4 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd = .DEBUG 0x01a3,0x04c0,0x0001,0x0000,0x0058,0xc925,0x0000,0x00fb
; Debug Table 0xd.0x0 = 0x1a3,0xffff
01a4 BODY_01a0:
01a4 e21f | | Load 0x1,0x1f ; Debug Table 0xd.0x1 = 0x1a4,0x1
01a5 0219 | | Execute Heap_Access,All_Read
01a6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a7 00d8 | | Load_Top At_Offset_0
01a8 e001 | | Load 0x0,0x1
01a9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01aa 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01ab 00d2 | | Pop_Control Pop_Count_2
01ac e21f | | Load 0x1,0x1f ; Debug Table 0xd.0x2 = 0x1ac,0x2
01ad 0217 | | Execute Heap_Access,All_Reference
01ae 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01af e001 | | Load 0x0,0x1
01b0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01b1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01b2 e21f | | Load 0x1,0x1f ; Debug Table 0xd.0x3 = 0x1b2,0x3
01b3 0217 | | Execute Heap_Access,All_Reference
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 e001 | | Load 0x0,0x1
01b6 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01b7 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01b8 e21f | | Load 0x1,0x1f ; Debug Table 0xd.0x4 = 0x1b8,0x4
01b9 0217 | | Execute Heap_Access,All_Reference
01ba 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01bb e001 | | Load 0x0,0x1
01bc 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01bd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01be e21f | | Load 0x1,0x1f ; Debug Table 0xd.0x5 = 0x1be,0x5
01bf 0217 | | Execute Heap_Access,All_Reference
01c0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01c1 e001 | | Load 0x0,0x1
01c2 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01c3 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c4 e21f | | Load 0x1,0x1f ; Debug Table 0xd.0x6 = 0x1c4,0x6
01c5 0217 | | Execute Heap_Access,All_Reference
01c6 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01c7 e001 | | Load 0x0,0x1
01c8 1b19 | | Execute Package,Field_Read,Field_Number 0x19
01c9 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
01ca 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xd.0x7 = 0x1ca,0x7
01cb e21f | | Load 0x1,0x1f
01cc e014 | | Load 0x0,0x14
01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ce e014 | | Load 0x0,0x14
01cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01d0 e21e | | Load 0x1,0x1e
01d1 8018 | | Call 0x0,0x18
01d2 c21f | | Store 0x1,0x1f
01d3 0059 | Y | Store_Top Discrete,At_Offset_1
01d4 4800 |H | Short_Literal 0x0 ; Debug Table 0xd.0x8 = 0x1d4,0x8
01d5 a220 | | Store_Unchecked 0x1,0x20
01d6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x9 = 0x1d6,0x9
01d7 7003 |p | Jump_Nonzero 0x1db
01d8 0092 02c8 | | Action Push_String_Extended,0x2c8 ; "Error in closing newly created code_archive database"
; Debug Table 0xd.0xa = 0x1d8,0xa
01da 8016 | | Call 0x0,0x16
01db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01dc 0000 0000 | | .BLANK 0000[0x4]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e7 | | .CONST 0x01e7 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0003 | | .CONST 0x0003 ; Number of locals
01e3 INIT_01e0:
01e3 e001 | | Load 0x0,0x1 ; Debug Table 0xe = .DEBUG 0x01e3,0x04d8,0x0001,0x0000,0x0058,0xc925,0x0000,0x00ff
; Debug Table 0xe.0x0 = 0x1e3,0xffff
01e4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01e5 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01e6 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0xe.0x1 = 0x1e6,0xfffe
01e7 BODY_01e0:
01e7 e21f | | Load 0x1,0x1f ; Debug Table 0xe.0x2 = 0x1e7,0x1
01e8 0219 | | Execute Heap_Access,All_Read
01e9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01ea 00e1 | | Load_Encached Boolean_Cache
01eb e001 | | Load 0x0,0x1
01ec 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01ed 1b16 | | Execute Package,Field_Read,Field_Number 0x16
01ee 00da | | Load_Top At_Offset_2
01ef e5fe | | Load 0x2,-0x2
01f0 e001 | | Load 0x0,0x1
01f1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01f2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01f3 00d1 | | Pop_Control Pop_Count_1
01f4 c402 | | Store 0x2,0x2
01f5 005a | Z | Store_Top Discrete,At_Offset_2
01f6 00d1 | | Pop_Control Pop_Count_1
01f7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xe.0x3 = 0x1f7,0x2
01f8 7005 |p | Jump_Nonzero 0x1fe
01f9 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "Restoring multiple units with same simple name: "
; Debug Table 0xe.0x4 = 0x1f9,0x3
01fb e5fe | | Load 0x2,-0x2
01fc 01cc | | Execute Vector,Catenate
01fd 8016 | | Call 0x0,0x16
01fe e5fe | | Load 0x2,-0x2 ; Debug Table 0xe.0x5 = 0x1fe,0x4
01ff e001 | | Load 0x0,0x1
0200 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0201 e21f | | Load 0x1,0x1f
0202 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
0203 00da | | Load_Top At_Offset_2
0204 0217 | | Execute Heap_Access,All_Reference
0205 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0206 0007 | | Action Break_Optional ; Debug Table 0xe.0x6 = 0x206,0x5
0207 e5ff | | Load 0x2,-0x1 ; Debug Table 0xe.0x7 = 0x207,0x6
0208 00da | | Load_Top At_Offset_2
0209 0217 | | Execute Heap_Access,All_Reference
020a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
020b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020c 0000 0000 | | .BLANK 0000[0x4]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 4801 |H | Short_Literal 0x1 ; Debug Table 0xf = .DEBUG 0x0213,0x04ea,0x0001,0x0000,0x0058,0xc925,0x0000,0x0111
; Debug Table 0xf.0x0 = 0x213,0x1
0214 e5fe | | Load 0x2,-0x2
0215 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0216 e5ff | | Load 0x2,-0x1
0217 e21f | | Load 0x1,0x1f
0218 0217 | | Execute Heap_Access,All_Reference
0219 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
021a e001 | | Load 0x0,0x1
021b 1b12 | | Execute Package,Field_Read,Field_Number 0x12
021c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021d 4801 |H | Short_Literal 0x1 ; Debug Table 0xf.0x1 = 0x21d,0x2
021e 00db | | Load_Top At_Offset_3
021f e5fe | | Load 0x2,-0x2
0220 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0221 e21f | | Load 0x1,0x1f
0222 0217 | | Execute Heap_Access,All_Reference
0223 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0224 e001 | | Load 0x0,0x1
0225 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0226 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0227 00db | | Load_Top At_Offset_3 ; Debug Table 0xf.0x2 = 0x227,0x3
0228 e21f | | Load 0x1,0x1f
0229 0217 | | Execute Heap_Access,All_Reference
022a 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
022b e001 | | Load 0x0,0x1
022c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
022d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
022e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
022f 0000 | | .XXX[0x1]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0234 | 4 | .CONST 0x0234 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10 = .DEBUG 0x0233,0x04f2,0x0001,0x0000,0x0058,0xc925,0x0000,0x011f
; Debug Table 0x10.0x0 = 0x233,0xffff
0234 BODY_0230:
0234 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x10.0x1 = 0x234,0x1
0235 e5fe | | Load 0x2,-0x2
0236 e5ff | | Load 0x2,-0x1
0237 e21f | | Load 0x1,0x1f
0238 0217 | | Execute Heap_Access,All_Reference
0239 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
023a e001 | | Load 0x0,0x1
023b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
023c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023d c5fe | | Store 0x2,-0x2
023e 0059 | Y | Store_Top Discrete,At_Offset_1
023f 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x2 = 0x23f,0x2
0240 a5fd | | Store_Unchecked 0x2,-0x3
0241 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x10.0x3 = 0x241,0x3
0242 7012 |p | Jump_Nonzero 0x255
0243 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x4 = 0x243,0x4
0244 e5fe | | Load 0x2,-0x2
0245 e5ff | | Load 0x2,-0x1
0246 e21f | | Load 0x1,0x1f
0247 0217 | | Execute Heap_Access,All_Reference
0248 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0249 e001 | | Load 0x0,0x1
024a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
024b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024c 4801 |H | Short_Literal 0x1 ; Debug Table 0x10.0x5 = 0x24c,0x5
024d e5ff | | Load 0x2,-0x1
024e e5fe | | Load 0x2,-0x2
024f e21f | | Load 0x1,0x1f
0250 0217 | | Execute Heap_Access,All_Reference
0251 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0252 e001 | | Load 0x0,0x1
0253 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0254 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0255 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b e00d | | Load 0x0,0xd ; Debug Table 0x11 = .DEBUG 0x025b,0x0500,0x0001,0x0000,0x0058,0xc925,0x0000,0x0134
; Debug Table 0x11.0x0 = 0x25b,0x1
025c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
025d 00db | | Load_Top At_Offset_3
025e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
025f e229 | ) | Load 0x1,0x29
0260 4800 |H | Short_Literal 0x0
0261 4800 |H | Short_Literal 0x0
0262 4800 |H | Short_Literal 0x0
0263 e019 | | Load 0x0,0x19
0264 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0265 4800 |H | Short_Literal 0x0
0266 e22a | * | Load 0x1,0x2a
0267 e00c | | Load 0x0,0xc
0268 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0269 00d1 | | Pop_Control Pop_Count_1
026a c22b | + | Store 0x1,0x2b
026b 0092 02ca | | Action Push_String_Extended,0x2ca ; "creating"
; Debug Table 0x11.0x1 = 0x26b,0x2
026d 822c | , | Call 0x1,0x2c
026e e00d | | Load 0x0,0xd ; Debug Table 0x11.0x2 = 0x26e,0x3
026f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0270 e5fe | | Load 0x2,-0x2
0271 0120 | | Execute Any,Is_Value
0272 6803 |h | Jump_Zero 0x276
0273 e00c | | Load 0x0,0xc
0274 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0275 7801 |x | Jump 0x277
0276 e5fe | | Load 0x2,-0x2
0277 e229 | ) | Load 0x1,0x29
0278 4800 |H | Short_Literal 0x0
0279 e00c | | Load 0x0,0xc
027a 1b13 | | Execute Package,Field_Read,Field_Number 0x13
027b e019 | | Load 0x0,0x19
027c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
027d 4802 |H | Short_Literal 0x2
027e e5ff | | Load 0x2,-0x1
027f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0280 e00c | | Load 0x0,0xc
0281 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0282 c5fe | | Store 0x2,-0x2
0283 c22b | + | Store 0x1,0x2b
0284 0092 02cb | | Action Push_String_Extended,0x2cb ; "opening"
; Debug Table 0x11.0x3 = 0x284,0x4
0286 822c | , | Call 0x1,0x2c
0287 00db | | Load_Top At_Offset_3 ; Debug Table 0x11.0x4 = 0x287,0x5
0288 e00c | | Load 0x0,0xc
0289 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
028a 00db | | Load_Top At_Offset_3
028b 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
028c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
028d 0000 0000 | | .XXX[0x3]
028f 0000 | |
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 e014 | | Load 0x0,0x14 ; Debug Table 0x12 = .DEBUG 0x0293,0x050c,0x0001,0x0000,0x0058,0xc925,0x0000,0x0142
; Debug Table 0x12.0x0 = 0x293,0x1
0294 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0295 e014 | | Load 0x0,0x14
0296 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0297 c229 | ) | Store 0x1,0x29
0298 00da | | Load_Top At_Offset_2 ; Debug Table 0x12.0x1 = 0x298,0x2
0299 a22a | * | Store_Unchecked 0x1,0x2a
029a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 e22b | + | Load 0x1,0x2b ; Debug Table 0x13 = .DEBUG 0x02a3,0x0512,0x0001,0x0000,0x0058,0xc9b5,0x0000,0x0026
; Debug Table 0x13.0x0 = 0x2a3,0x1
02a4 680e |h | Jump_Zero 0x2b3
02a5 0092 02cc | | Action Push_String_Extended,0x2cc ; "Bad status "
; Debug Table 0x13.0x1 = 0x2a5,0x2
02a7 00db | | Load_Top At_Offset_3
02a8 01cc | | Execute Vector,Catenate
02a9 0092 02cd | | Action Push_String_Extended,0x2cd ; " new code segment: "
02ab 01cc | | Execute Vector,Catenate
02ac e22b | + | Load 0x1,0x2b
02ad e00d | | Load 0x0,0xd
02ae 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02af 025e | ^ | Execute Discrete,Convert
02b0 1c01 | | Execute_Immediate Run_Utility,0x1
02b1 01cc | | Execute Vector,Catenate
02b2 801a | | Call 0x0,0x1a
02b3 4502 |E | Exit_Suprogram New_Top_Offset 0x2
02b4 0000 0000 | | .BLANK 0000[0x4]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02bb | | .CONST 0x02bb ; Address of begin
02b9 0004 | | .CONST 0x0004 ; Address of exception handler
02ba 0001 | | .CONST 0x0001 ; Number of locals
02bb BODY_02b8:
02bb INIT_02b8:
02bb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x14 = .DEBUG 0x02bb,0x0518,0x0001,0x0000,0x0058,0xc9b5,0x0000,0x00b5
; Debug Table 0x14.0x0 = 0x2bb,0x1
02bc 0000 0000 | | .LITERAL {0x00000000, 0x57338501}
02c0 0000 0000 | | .LITERAL {0x00000000, 0x0058c9a5}
02c4 ; --------------------------------------------------------------------------------------
02c4 ; STRING TABLE
02c4 ; --------------------------------------------------------------------------------------
02c4 0016 | | .STRTAB 0x0016->0x02cf ; "Code_Archive database for "
02c5 002e | . | .STRTAB 0x002e->0x02dc ; " already exists and Overwrite=>False was specified"
02c6 005e | ^ | .STRTAB 0x005e->0x02f5 ; "Unable to create code_archive database for "
02c7 0087 | | .STRTAB 0x0087->0x030a ; ": "
02c8 0087 | | .STRTAB 0x0087->0x030b ; "Error in closing newly created code_archive database"
02c9 00b9 | | .STRTAB 0x00b9->0x0325 ; "Restoring multiple units with same simple name: "
02ca 00e7 | | .STRTAB 0x00e7->0x033d ; "creating"
02cb 00ed | | .STRTAB 0x00ed->0x0341 ; "opening"
02cc 00f2 | | .STRTAB 0x00f2->0x0345 ; "Bad status "
02cd 00fb | | .STRTAB 0x00fb->0x034a ; " new code segment: "
02ce 010c | | .STREND 0x010c->0x0354
02cf 436f 6465 |Code| .STRTAB_STRINGS
0354 0000 0000 | | .BLANK 0000[0x4]
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug Table
0358 ; --------------------------------------------------------------------------------------
0358 0003 0015 | | .CONST 0x0003,0x0015
035a 000b 0402 | | .DEBUG 0x000b,0x0402,0x0000,0x0000,0x0058,0xc925,0x0000,0x009d
0362 002e 0426 | . &| .DEBUG 0x002e,0x0426,0x0000,0x0000,0x0058,0xc9a5,0x0000,0x000a
036a 0093 0470 | p| .DEBUG 0x0093,0x0470,0x0002,0x0000,0x0058,0xc925,0x0000,0x009e
0372 00a3 0474 | t| .DEBUG 0x00a3,0x0474,0x0002,0x0000,0x0058,0xc925,0x0000,0x00a5
037a 00b3 0478 | x| .DEBUG 0x00b3,0x0478,0x0002,0x0000,0x0058,0xc925,0x0000,0x00ac
0382 00c3 047c | || .DEBUG 0x00c3,0x047c,0x0002,0x0000,0x0058,0xc925,0x0000,0x00b1
038a 00d3 0480 | | .DEBUG 0x00d3,0x0480,0x0002,0x0000,0x0058,0xc925,0x0000,0x00b8
0392 00e3 0484 | | .DEBUG 0x00e3,0x0484,0x0002,0x0000,0x0058,0xc925,0x0000,0x00bf
039a 00f3 0488 | | .DEBUG 0x00f3,0x0488,0x0002,0x0000,0x0058,0xc925,0x0000,0x00cc
03a2 0103 048c | | .DEBUG 0x0103,0x048c,0x0002,0x0000,0x0058,0xc925,0x0000,0x00d1
03aa 011b 0494 | | .DEBUG 0x011b,0x0494,0x0002,0x0000,0x0058,0xc925,0x0000,0x00da
03b2 012b 0498 | + | .DEBUG 0x012b,0x0498,0x0002,0x0000,0x0058,0xc925,0x0000,0x00e3
03ba 0133 049c | 3 | .DEBUG 0x0133,0x049c,0x0001,0x0000,0x0058,0xc925,0x0000,0x00ea
03c2 01a3 04c0 | | .DEBUG 0x01a3,0x04c0,0x0001,0x0000,0x0058,0xc925,0x0000,0x00fb
03ca 01e3 04d8 | | .DEBUG 0x01e3,0x04d8,0x0001,0x0000,0x0058,0xc925,0x0000,0x00ff
03d2 0213 04ea | | .DEBUG 0x0213,0x04ea,0x0001,0x0000,0x0058,0xc925,0x0000,0x0111
03da 0233 04f2 | 3 | .DEBUG 0x0233,0x04f2,0x0001,0x0000,0x0058,0xc925,0x0000,0x011f
03e2 025b 0500 | [ | .DEBUG 0x025b,0x0500,0x0001,0x0000,0x0058,0xc925,0x0000,0x0134
03ea 0293 050c | | .DEBUG 0x0293,0x050c,0x0001,0x0000,0x0058,0xc925,0x0000,0x0142
03f2 02a3 0512 | | .DEBUG 0x02a3,0x0512,0x0001,0x0000,0x0058,0xc9b5,0x0000,0x0026
03fa 02bb 0518 | | .DEBUG 0x02bb,0x0518,0x0001,0x0000,0x0058,0xc9b5,0x0000,0x00b5
0402 ; --------------------------------------------------------------------------------------
0402 ; Debug3 Subtable 0x0
0402 ; --------------------------------------------------------------------------------------
0402 0011 0000 | | .DBG3TAB 0x0011,0x0000
0404 000b ffff | | .CONST 0x000b,0xffff
0406 000d fffe | | .CONST 0x000d,0xfffe
0408 000f fffd | | .CONST 0x000f,0xfffd
040a 0011 fffc | | .CONST 0x0011,0xfffc
040c 0013 fffb | | .CONST 0x0013,0xfffb
040e 0015 fffa | | .CONST 0x0015,0xfffa
0410 0017 fff9 | | .CONST 0x0017,0xfff9
0412 0019 fff8 | | .CONST 0x0019,0xfff8
0414 001b fff7 | | .CONST 0x001b,0xfff7
0416 001d fff6 | | .CONST 0x001d,0xfff6
0418 001f fff5 | | .CONST 0x001f,0xfff5
041a 0021 fff4 | ! | .CONST 0x0021,0xfff4
041c 0023 fff3 | # | .CONST 0x0023,0xfff3
041e 0025 fff2 | % | .CONST 0x0025,0xfff2
0420 0027 fff1 | ' | .CONST 0x0027,0xfff1
0422 0029 ffff | ) | .CONST 0x0029,0xffff
0424 002b fffe | + | .CONST 0x002b,0xfffe
0426 ; --------------------------------------------------------------------------------------
0426 ; Debug3 Subtable 0x1
0426 ; --------------------------------------------------------------------------------------
0426 0023 0001 | # | .DBG3TAB 0x0023,0x0001
0428 002e ffff | . | .CONST 0x002e,0xffff
042a 002f fffe | / | .CONST 0x002f,0xfffe
042c 0034 fffd | 4 | .CONST 0x0034,0xfffd
042e 0036 fffc | 6 | .CONST 0x0036,0xfffc
0430 0038 fffb | 8 | .CONST 0x0038,0xfffb
0432 003c fffa | < | .CONST 0x003c,0xfffa
0434 003e fff9 | > | .CONST 0x003e,0xfff9
0436 0042 fff8 | B | .CONST 0x0042,0xfff8
0438 0044 fff7 | D | .CONST 0x0044,0xfff7
043a 0046 fff6 | F | .CONST 0x0046,0xfff6
043c 004a fff5 | J | .CONST 0x004a,0xfff5
043e 004e fff4 | N | .CONST 0x004e,0xfff4
0440 0050 fff3 | P | .CONST 0x0050,0xfff3
0442 0052 fff2 | R | .CONST 0x0052,0xfff2
0444 0054 fff1 | T | .CONST 0x0054,0xfff1
0446 0056 fff0 | V | .CONST 0x0056,0xfff0
0448 0058 ffef | X | .CONST 0x0058,0xffef
044a 005a ffee | Z | .CONST 0x005a,0xffee
044c 005c ffed | \ | .CONST 0x005c,0xffed
044e 005e ffec | ^ | .CONST 0x005e,0xffec
0450 0060 ffeb | ` | .CONST 0x0060,0xffeb
0452 0062 ffea | b | .CONST 0x0062,0xffea
0454 006d ffe9 | m | .CONST 0x006d,0xffe9
0456 006f ffe8 | o | .CONST 0x006f,0xffe8
0458 0071 ffe7 | q | .CONST 0x0071,0xffe7
045a 0073 ffe6 | s | .CONST 0x0073,0xffe6
045c 0075 ffe5 | u | .CONST 0x0075,0xffe5
045e 0077 ffff | w | .CONST 0x0077,0xffff
0460 0078 fffe | x | .CONST 0x0078,0xfffe
0462 007d fffd | } | .CONST 0x007d,0xfffd
0464 007f fffc | | .CONST 0x007f,0xfffc
0466 0081 fffb | | .CONST 0x0081,0xfffb
0468 0083 fffa | | .CONST 0x0083,0xfffa
046a 0085 fff9 | | .CONST 0x0085,0xfff9
046c 0087 fff8 | | .CONST 0x0087,0xfff8
046e 0089 0001 | | .CONST 0x0089,0x0001
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug3 Subtable 0x2
0470 ; --------------------------------------------------------------------------------------
0470 0000 0001 | | .DBG3TAB 0x0000,0x0001
0472 0093 0001 | | .CONST 0x0093,0x0001
0474 ; --------------------------------------------------------------------------------------
0474 ; Debug3 Subtable 0x3
0474 ; --------------------------------------------------------------------------------------
0474 0000 0001 | | .DBG3TAB 0x0000,0x0001
0476 00a3 0001 | | .CONST 0x00a3,0x0001
0478 ; --------------------------------------------------------------------------------------
0478 ; Debug3 Subtable 0x4
0478 ; --------------------------------------------------------------------------------------
0478 0000 0001 | | .DBG3TAB 0x0000,0x0001
047a 00b3 0001 | | .CONST 0x00b3,0x0001
047c ; --------------------------------------------------------------------------------------
047c ; Debug3 Subtable 0x5
047c ; --------------------------------------------------------------------------------------
047c 0000 0001 | | .DBG3TAB 0x0000,0x0001
047e 00c3 0001 | | .CONST 0x00c3,0x0001
0480 ; --------------------------------------------------------------------------------------
0480 ; Debug3 Subtable 0x6
0480 ; --------------------------------------------------------------------------------------
0480 0000 0001 | | .DBG3TAB 0x0000,0x0001
0482 00d3 0001 | | .CONST 0x00d3,0x0001
0484 ; --------------------------------------------------------------------------------------
0484 ; Debug3 Subtable 0x7
0484 ; --------------------------------------------------------------------------------------
0484 0000 0001 | | .DBG3TAB 0x0000,0x0001
0486 00e3 0001 | | .CONST 0x00e3,0x0001
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug3 Subtable 0x8
0488 ; --------------------------------------------------------------------------------------
0488 0000 0001 | | .DBG3TAB 0x0000,0x0001
048a 00f3 0001 | | .CONST 0x00f3,0x0001
048c ; --------------------------------------------------------------------------------------
048c ; Debug3 Subtable 0x9
048c ; --------------------------------------------------------------------------------------
048c 0000 0003 | | .DBG3TAB 0x0000,0x0003
048e 0103 0001 | | .CONST 0x0103,0x0001
0490 0106 0002 | | .CONST 0x0106,0x0002
0492 010f 0004 | | .CONST 0x010f,0x0004
0494 ; --------------------------------------------------------------------------------------
0494 ; Debug3 Subtable 0xa
0494 ; --------------------------------------------------------------------------------------
0494 0000 0001 | | .DBG3TAB 0x0000,0x0001
0496 011b 0001 | | .CONST 0x011b,0x0001
0498 ; --------------------------------------------------------------------------------------
0498 ; Debug3 Subtable 0xb
0498 ; --------------------------------------------------------------------------------------
0498 0000 0001 | | .DBG3TAB 0x0000,0x0001
049a 012b 0001 | + | .CONST 0x012b,0x0001
049c ; --------------------------------------------------------------------------------------
049c ; Debug3 Subtable 0xc
049c ; --------------------------------------------------------------------------------------
049c 0003 000e | | .DBG3TAB 0x0003,0x000e
049e 0133 ffff | 3 | .CONST 0x0133,0xffff
04a0 0135 fffe | 5 | .CONST 0x0135,0xfffe
04a2 0138 fffd | 8 | .CONST 0x0138,0xfffd
04a4 013a 0001 | : | .CONST 0x013a,0x0001
04a6 013c 0002 | < | .CONST 0x013c,0x0002
04a8 0140 0003 | @ | .CONST 0x0140,0x0003
04aa 0142 0004 | B | .CONST 0x0142,0x0004
04ac 0153 0005 | S | .CONST 0x0153,0x0005
04ae 015b 0007 | [ | .CONST 0x015b,0x0007
04b0 015d 0008 | ] | .CONST 0x015d,0x0008
04b2 0166 0009 | f | .CONST 0x0166,0x0009
04b4 0174 000a | t | .CONST 0x0174,0x000a
04b6 0176 000b | v | .CONST 0x0176,0x000b
04b8 0183 000c | | .CONST 0x0183,0x000c
04ba 018a 000d | | .CONST 0x018a,0x000d
04bc 0191 000e | | .CONST 0x0191,0x000e
04be 0199 000f | | .CONST 0x0199,0x000f
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug3 Subtable 0xd
04c0 ; --------------------------------------------------------------------------------------
04c0 0001 000a | | .DBG3TAB 0x0001,0x000a
04c2 01a3 ffff | | .CONST 0x01a3,0xffff
04c4 01a4 0001 | | .CONST 0x01a4,0x0001
04c6 01ac 0002 | | .CONST 0x01ac,0x0002
04c8 01b2 0003 | | .CONST 0x01b2,0x0003
04ca 01b8 0004 | | .CONST 0x01b8,0x0004
04cc 01be 0005 | | .CONST 0x01be,0x0005
04ce 01c4 0006 | | .CONST 0x01c4,0x0006
04d0 01ca 0007 | | .CONST 0x01ca,0x0007
04d2 01d4 0008 | | .CONST 0x01d4,0x0008
04d4 01d6 0009 | | .CONST 0x01d6,0x0009
04d6 01d8 000a | | .CONST 0x01d8,0x000a
04d8 ; --------------------------------------------------------------------------------------
04d8 ; Debug3 Subtable 0xe
04d8 ; --------------------------------------------------------------------------------------
04d8 0002 0006 | | .DBG3TAB 0x0002,0x0006
04da 01e3 ffff | | .CONST 0x01e3,0xffff
04dc 01e6 fffe | | .CONST 0x01e6,0xfffe
04de 01e7 0001 | | .CONST 0x01e7,0x0001
04e0 01f7 0002 | | .CONST 0x01f7,0x0002
04e2 01f9 0003 | | .CONST 0x01f9,0x0003
04e4 01fe 0004 | | .CONST 0x01fe,0x0004
04e6 0206 0005 | | .CONST 0x0206,0x0005
04e8 0207 0006 | | .CONST 0x0207,0x0006
04ea ; --------------------------------------------------------------------------------------
04ea ; Debug3 Subtable 0xf
04ea ; --------------------------------------------------------------------------------------
04ea 0000 0003 | | .DBG3TAB 0x0000,0x0003
04ec 0213 0001 | | .CONST 0x0213,0x0001
04ee 021d 0002 | | .CONST 0x021d,0x0002
04f0 0227 0003 | ' | .CONST 0x0227,0x0003
04f2 ; --------------------------------------------------------------------------------------
04f2 ; Debug3 Subtable 0x10
04f2 ; --------------------------------------------------------------------------------------
04f2 0001 0005 | | .DBG3TAB 0x0001,0x0005
04f4 0233 ffff | 3 | .CONST 0x0233,0xffff
04f6 0234 0001 | 4 | .CONST 0x0234,0x0001
04f8 023f 0002 | ? | .CONST 0x023f,0x0002
04fa 0241 0003 | A | .CONST 0x0241,0x0003
04fc 0243 0004 | C | .CONST 0x0243,0x0004
04fe 024c 0005 | L | .CONST 0x024c,0x0005
0500 ; --------------------------------------------------------------------------------------
0500 ; Debug3 Subtable 0x11
0500 ; --------------------------------------------------------------------------------------
0500 0000 0005 | | .DBG3TAB 0x0000,0x0005
0502 025b 0001 | [ | .CONST 0x025b,0x0001
0504 026b 0002 | k | .CONST 0x026b,0x0002
0506 026e 0003 | n | .CONST 0x026e,0x0003
0508 0284 0004 | | .CONST 0x0284,0x0004
050a 0287 0005 | | .CONST 0x0287,0x0005
050c ; --------------------------------------------------------------------------------------
050c ; Debug3 Subtable 0x12
050c ; --------------------------------------------------------------------------------------
050c 0000 0002 | | .DBG3TAB 0x0000,0x0002
050e 0293 0001 | | .CONST 0x0293,0x0001
0510 0298 0002 | | .CONST 0x0298,0x0002
0512 ; --------------------------------------------------------------------------------------
0512 ; Debug3 Subtable 0x13
0512 ; --------------------------------------------------------------------------------------
0512 0000 0002 | | .DBG3TAB 0x0000,0x0002
0514 02a3 0001 | | .CONST 0x02a3,0x0001
0516 02a5 0002 | | .CONST 0x02a5,0x0002
0518 ; --------------------------------------------------------------------------------------
0518 ; Debug3 Subtable 0x14
0518 ; --------------------------------------------------------------------------------------
0518 0000 0001 | | .DBG3TAB 0x0000,0x0001
051a 02bb 0001 | | .CONST 0x02bb,0x0001
051c 0000 0000 | | .BLANK 0000[0xe4]