|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_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 0428 | ( | .CONST 0x0428 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 005b | [ | .CONST 0x005b ; Address of begin
0019 00e3 | | .CONST 0x00e3 ; Address of exception handler
001a 0011 | | .CONST 0x0011 ; Number of locals
001b INIT_0018:
001b 0093 0000 | | push_full_address 0x0
001d 60ee |` | Indirect_Literal Discrete,0x10c,{0x80000000, 0x00010000}
001e 0273 | s | Execute Discrete,Plus
001f 0007 | | Action Break_Optional
0020 e002 | | Load 0x0,0x2
0021 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0022 02c7 | | Declare_Variable Any
0023 e002 | | Load 0x0,0x2
0024 180e | | Execute Package,Field_Execute,Field_Number 0xe
0025 a403 | | Store_Unchecked 0x2,0x3
0026 e003 | | Load 0x0,0x3
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 02c7 | | Declare_Variable Any
0029 00d8 | | Load_Top At_Offset_0
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b e004 | | Load 0x0,0x4
002c 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
002d 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002e 02c7 | | Declare_Variable Any
002f 00d8 | | Load_Top At_Offset_0
0030 1c00 | | Execute_Immediate Run_Utility,0x0
0031 e004 | | Load 0x0,0x4
0032 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0033 02c7 | | Declare_Variable Any
0034 00d8 | | Load_Top At_Offset_0
0035 1c00 | | Execute_Immediate Run_Utility,0x0
0036 e004 | | Load 0x0,0x4
0037 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0038 02c7 | | Declare_Variable Any
0039 00d8 | | Load_Top At_Offset_0
003a 1c00 | | Execute_Immediate Run_Utility,0x0
003b 00ec | | Load_Encached Diana_Tree_Cache
003c e004 | | Load 0x0,0x4
003d 1b52 | R | Execute Package,Field_Read,Field_Number 0x52
003e 02c7 | | Declare_Variable Any
003f 00d8 | | Load_Top At_Offset_0
0040 1c00 | | Execute_Immediate Run_Utility,0x0
0041 e003 | | Load 0x0,0x3
0042 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0043 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0044 e005 | | Load 0x0,0x5
0045 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0046 02c7 | | Declare_Variable Any
0047 e006 | | Load 0x0,0x6
0048 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0049 4801 |H | Short_Literal 0x1
004a e005 | | Load 0x0,0x5
004b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
004c e005 | | Load 0x0,0x5
004d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
004e a40b | | Store_Unchecked 0x2,0xb
004f 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
0051 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0053 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0055 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0057 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0059 029f 0233 | 3| Declare_Subprogram INIT_0230,For_Call
005b BODY_0018:
005b e5fe | | Load 0x2,-0x2
005c e002 | | Load 0x0,0x2
005d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
005e e002 | | Load 0x0,0x2
005f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0060 e002 | | Load 0x0,0x2
0061 180e | | Execute Package,Field_Execute,Field_Number 0xe
0062 4800 |H | Short_Literal 0x0
0063 0092 030a | | Action Push_String_Extended,0x30a ; "[Discover_Load_Proc_Unit_Names (\x22"
0065 e5ff | | Load 0x2,-0x1
0066 01cc | | Execute Vector,Catenate
0067 0092 030b | | Action Push_String_Extended,0x30b ; "\x22);]"
0069 01cc | | Execute Vector,Catenate
006a e007 | | Load 0x0,0x7
006b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006c e003 | | Load 0x0,0x3
006d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
006e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006f e404 | | Load 0x2,0x4
0070 0120 | | Execute Any,Is_Value
0071 6803 |h | Jump_Zero 0x75
0072 e003 | | Load 0x0,0x3
0073 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0074 7801 |x | Jump 0x76
0075 e404 | | Load 0x2,0x4
0076 6091 |` | Indirect_Literal Discrete,0x108,{0x00000000, 0x00004000}
0077 e005 | | Load 0x0,0x5
0078 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0079 e008 | | Load 0x0,0x8
007a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
007b e003 | | Load 0x0,0x3
007c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
007d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
007e e5ff | | Load 0x2,-0x1
007f e003 | | Load 0x0,0x3
0080 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0081 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0082 c404 | | Store 0x2,0x4
0083 c40a | | Store 0x2,0xa
0084 e40a | | Load 0x2,0xa
0085 6818 |h | Jump_Zero 0x9e
0086 e002 | | Load 0x0,0x2
0087 180e | | Execute Package,Field_Execute,Field_Number 0xe
0088 4807 |H | Short_Literal 0x7
0089 0092 030c | | Action Push_String_Extended,0x30c ; "Could not locate Load_Proc: "
008b e5ff | | Load 0x2,-0x1
008c 01cc | | Execute Vector,Catenate
008d 0092 030d | | Action Push_String_Extended,0x30d ; " ("
008f 01cc | | Execute Vector,Catenate
0090 e40a | | Load 0x2,0xa
0091 e003 | | Load 0x0,0x3
0092 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0093 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0094 011c | | Execute Any,Convert_Unchecked
0095 1c01 | | Execute_Immediate Run_Utility,0x1
0096 01cc | | Execute Vector,Catenate
0097 0092 030e | | Action Push_String_Extended,0x30e ; ")"
0099 01cc | | Execute Vector,Catenate
009a e007 | | Load 0x0,0x7
009b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009c e402 | | Load 0x2,0x2
009d 0257 | W | Execute Discrete,Raise
009e 840c | | Call 0x2,0xc
009f 840d | | Call 0x2,0xd
00a0 840e | | Call 0x2,0xe
00a1 840f | | Call 0x2,0xf
00a2 8410 | | Call 0x2,0x10
00a3 e406 | | Load 0x2,0x6
00a4 e004 | | Load 0x0,0x4
00a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a6 012f | / | Execute Any,Equal
00a7 7005 |p | Jump_Nonzero 0xad
00a8 e406 | | Load 0x2,0x6
00a9 e004 | | Load 0x0,0x4
00aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00ab 012f | / | Execute Any,Equal
00ac 6809 |h | Jump_Zero 0xb6
00ad e002 | | Load 0x0,0x2
00ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
00af 4807 |H | Short_Literal 0x7
00b0 0092 030f | | Action Push_String_Extended,0x30f ; "Could not open Program_Library for world of Load_Proc."
00b2 e007 | | Load 0x0,0x7
00b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b4 e402 | | Load 0x2,0x2
00b5 0257 | W | Execute Discrete,Raise
00b6 e404 | | Load 0x2,0x4
00b7 e003 | | Load 0x0,0x3
00b8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b9 183b | ; | Execute Package,Field_Execute,Field_Number 0x3b
00ba e406 | | Load 0x2,0x6
00bb e004 | | Load 0x0,0x4
00bc 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
00bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00be c407 | | Store 0x2,0x7
00bf e407 | | Load 0x2,0x7
00c0 e004 | | Load 0x0,0x4
00c1 1b6c | l | Execute Package,Field_Read,Field_Number 0x6c
00c2 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00c3 c409 | | Store 0x2,0x9
00c4 e409 | | Load 0x2,0x9
00c5 e004 | | Load 0x0,0x4
00c6 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
00c7 012f | / | Execute Any,Equal
00c8 6808 |h | Jump_Zero 0xd1
00c9 e002 | | Load 0x0,0x2
00ca 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cb 4805 |H | Short_Literal 0x5
00cc 0092 0310 | | Action Push_String_Extended,0x310 ; "This Load_Proc has no associated code segments?"
00ce e007 | | Load 0x0,0x7
00cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d0 7801 |x | Jump 0xd2
00d1 8411 | | Call 0x2,0x11
00d2 e40b | | Load 0x2,0xb
00d3 4801 |H | Short_Literal 0x1
00d4 4800 |H | Short_Literal 0x0
00d5 e005 | | Load 0x0,0x5
00d6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00d7 c40b | | Store 0x2,0xb
00d8 e002 | | Load 0x0,0x2
00d9 180e | | Execute Package,Field_Execute,Field_Number 0xe
00da 4800 |H | Short_Literal 0x0
00db 0092 0311 | | Action Push_String_Extended,0x311 ; "[End Discover_Load_Proc_Unit_Names]"
00dd e007 | | Load 0x0,0x7
00de 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00df e403 | | Load 0x2,0x3
00e0 e002 | | Load 0x0,0x2
00e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e3 TRAP_0018:
00e3 e402 | | Load 0x2,0x2
00e4 010f | | Execute Exception,Equal
00e5 680a |h | Jump_Zero 0xf0
00e6 e40b | | Load 0x2,0xb
00e7 4801 |H | Short_Literal 0x1
00e8 4800 |H | Short_Literal 0x0
00e9 e005 | | Load 0x0,0x5
00ea 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00eb c40b | | Store 0x2,0xb
00ec e403 | | Load 0x2,0x3
00ed e002 | | Load 0x0,0x2
00ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f0 e002 | | Load 0x0,0x2
00f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f2 4808 |H | Short_Literal 0x8
00f3 0092 0312 | | Action Push_String_Extended,0x312 ; "Unexpected exception: "
00f5 4801 |H | Short_Literal 0x1
00f6 4801 |H | Short_Literal 0x1
00f7 e009 | | Load 0x0,0x9
00f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f9 01cc | | Execute Vector,Catenate
00fa e007 | | Load 0x0,0x7
00fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00fc e40b | | Load 0x2,0xb
00fd 4801 |H | Short_Literal 0x1
00fe 4800 |H | Short_Literal 0x0
00ff e005 | | Load 0x0,0x5
0100 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0101 c40b | | Store 0x2,0xb
0102 e403 | | Load 0x2,0x3
0103 e002 | | Load 0x0,0x2
0104 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0105 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0106 0000 0000 | | .XXX[0x2]
0108 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
010c 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0118 | | .CONST 0x0118 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e404 | | Load 0x2,0x4
0114 e003 | | Load 0x0,0x3
0115 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0116 e003 | | Load 0x0,0x3
0117 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0118 BODY_0110:
0118 00d8 | | Load_Top At_Offset_0
0119 01db | | Execute Vector,Length
011a 0d06 | | Execute_Immediate Less,0x6
011b 7010 |p | Jump_Nonzero 0x12c
011c 00d8 | | Load_Top At_Offset_0
011d 01dd | | Execute Vector,First
011e e602 | | Load 0x3,0x2
011f 01dd | | Execute Vector,First
0120 0a05 | | Execute_Immediate Plus,0x5
0121 00d8 | | Load_Top At_Offset_0
0122 00e2 | | Load_Encached Integer_Cache
0123 0260 | ` | Execute Discrete,In_Type
0124 7001 |p | Jump_Nonzero 0x126
0125 0801 | | Execute_Immediate Raise,0x1
0126 e602 | | Load 0x3,0x2
0127 01cf | | Execute Vector,Slice_Read
0128 0092 0313 | | Action Push_String_Extended,0x313 ; "LOADED"
012a 01de | | Execute Vector,Not_Equal
012b 680e |h | Jump_Zero 0x13a
012c e002 | | Load 0x0,0x2
012d 180e | | Execute Package,Field_Execute,Field_Number 0xe
012e 4807 |H | Short_Literal 0x7
012f 0092 0314 | | Action Push_String_Extended,0x314 ; "Not a 'c(Load_Proc/Func): "
0131 e404 | | Load 0x2,0x4
0132 e003 | | Load 0x0,0x3
0133 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0134 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0135 01cc | | Execute Vector,Catenate
0136 e007 | | Load 0x0,0x7
0137 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0138 e402 | | Load 0x2,0x2
0139 0257 | W | Execute Discrete,Raise
013a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 014b | K | .CONST 0x014b ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 e003 | | Load 0x0,0x3
0144 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0145 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0146 02c7 | | Declare_Variable Any
0147 00d8 | | Load_Top At_Offset_0
0148 1c00 | | Execute_Immediate Run_Utility,0x0
0149 e003 | | Load 0x0,0x3
014a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014b BODY_0140:
014b e003 | | Load 0x0,0x3
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d e602 | | Load 0x3,0x2
014e 0120 | | Execute Any,Is_Value
014f 6804 |h | Jump_Zero 0x154
0150 e003 | | Load 0x0,0x3
0151 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0152 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0153 7801 |x | Jump 0x155
0154 e602 | | Load 0x3,0x2
0155 e003 | | Load 0x0,0x3
0156 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0157 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0158 6033 |`3 | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000}
0159 4801 |H | Short_Literal 0x1
015a 4800 |H | Short_Literal 0x0
015b 4800 |H | Short_Literal 0x0
015c e008 | | Load 0x0,0x8
015d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
015e e003 | | Load 0x0,0x3
015f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0160 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0161 e40b | | Load 0x2,0xb
0162 4800 |H | Short_Literal 0x0
0163 e404 | | Load 0x2,0x4
0164 e003 | | Load 0x0,0x3
0165 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0166 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0167 e003 | | Load 0x0,0x3
0168 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
0169 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
016a c408 | | Store 0x2,0x8
016b c602 | | Store 0x3,0x2
016c c603 | | Store 0x3,0x3
016d 00d8 | | Load_Top At_Offset_0
016e 681a |h | Jump_Zero 0x189
016f e002 | | Load 0x0,0x2
0170 180e | | Execute Package,Field_Execute,Field_Number 0xe
0171 4807 |H | Short_Literal 0x7
0172 0092 0315 | | Action Push_String_Extended,0x315 ; "Could not get Diana tree for Load_Proc "
0174 e404 | | Load 0x2,0x4
0175 e003 | | Load 0x0,0x3
0176 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0177 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0178 01cc | | Execute Vector,Catenate
0179 0092 030d | | Action Push_String_Extended,0x30d ; " ("
017b 01cc | | Execute Vector,Catenate
017c e603 | | Load 0x3,0x3
017d e003 | | Load 0x0,0x3
017e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
017f 011c | | Execute Any,Convert_Unchecked
0180 1c01 | | Execute_Immediate Run_Utility,0x1
0181 01cc | | Execute Vector,Catenate
0182 0092 030e | | Action Push_String_Extended,0x30e ; ")"
0184 01cc | | Execute Vector,Catenate
0185 e007 | | Load 0x0,0x7
0186 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0187 e402 | | Load 0x2,0x2
0188 0257 | W | Execute Discrete,Raise
0189 4501 |E | Exit_Suprogram New_Top_Offset 0x1
018a 0000 0000 | | .XXX[0x2]
018c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0198 | | .CONST 0x0198 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0003 | | .CONST 0x0003 ; Number of locals
0193 INIT_0190:
0193 e003 | | Load 0x0,0x3
0194 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
0195 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0196 e003 | | Load 0x0,0x3
0197 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0198 BODY_0190:
0198 e003 | | Load 0x0,0x3
0199 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019a e003 | | Load 0x0,0x3
019b 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019d 67ee |g | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000}
019e e005 | | Load 0x0,0x5
019f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01a0 e408 | | Load 0x2,0x8
01a1 e003 | | Load 0x0,0x3
01a2 1b3a | : | Execute Package,Field_Read,Field_Number 0x3a
01a3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a4 c602 | | Store 0x3,0x2
01a5 c603 | | Store 0x3,0x3
01a6 00d8 | | Load_Top At_Offset_0
01a7 681a |h | Jump_Zero 0x1c2
01a8 e002 | | Load 0x0,0x2
01a9 180e | | Execute Package,Field_Execute,Field_Number 0xe
01aa 4807 |H | Short_Literal 0x7
01ab 0092 0316 | | Action Push_String_Extended,0x316 ; "Could not state of Diana tree for Load_Proc "
01ad e404 | | Load 0x2,0x4
01ae e003 | | Load 0x0,0x3
01af 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01b0 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01b1 01cc | | Execute Vector,Catenate
01b2 0092 030d | | Action Push_String_Extended,0x30d ; " ("
01b4 01cc | | Execute Vector,Catenate
01b5 e603 | | Load 0x3,0x3
01b6 e003 | | Load 0x0,0x3
01b7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b8 011c | | Execute Any,Convert_Unchecked
01b9 1c01 | | Execute_Immediate Run_Utility,0x1
01ba 01cc | | Execute Vector,Catenate
01bb 0092 030e | | Action Push_String_Extended,0x30e ; ")"
01bd 01cc | | Execute Vector,Catenate
01be e007 | | Load 0x0,0x7
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 e402 | | Load 0x2,0x2
01c1 0257 | W | Execute Discrete,Raise
01c2 e602 | | Load 0x3,0x2
01c3 0e04 | | Execute_Immediate Not_Equal,0x4
01c4 681a |h | Jump_Zero 0x1df
01c5 e002 | | Load 0x0,0x2
01c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
01c7 4807 |H | Short_Literal 0x7
01c8 0092 0317 | | Action Push_String_Extended,0x317 ; "Load_Proc is not coded: "
01ca e404 | | Load 0x2,0x4
01cb e003 | | Load 0x0,0x3
01cc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01ce 01cc | | Execute Vector,Catenate
01cf 0092 030d | | Action Push_String_Extended,0x30d ; " ("
01d1 01cc | | Execute Vector,Catenate
01d2 e603 | | Load 0x3,0x3
01d3 e003 | | Load 0x0,0x3
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 011c | | Execute Any,Convert_Unchecked
01d6 1c01 | | Execute_Immediate Run_Utility,0x1
01d7 01cc | | Execute Vector,Catenate
01d8 0092 030e | | Action Push_String_Extended,0x30e ; ")"
01da 01cc | | Execute Vector,Catenate
01db e007 | | Load 0x0,0x7
01dc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01dd e402 | | Load 0x2,0x2
01de 0257 | W | Execute Discrete,Raise
01df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e8 | | .CONST 0x01e8 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0002 | | .CONST 0x0002 ; Number of locals
01e3 INIT_01e0:
01e3 e00a | | Load 0x0,0xa
01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e5 02c7 | | Declare_Variable Any
01e6 00d8 | | Load_Top At_Offset_0
01e7 1c00 | | Execute_Immediate Run_Utility,0x0
01e8 BODY_01e0:
01e8 4800 |H | Short_Literal 0x0
01e9 4800 |H | Short_Literal 0x0
01ea 4801 |H | Short_Literal 0x1
01eb e602 | | Load 0x3,0x2
01ec e40b | | Load 0x2,0xb
01ed e008 | | Load 0x0,0x8
01ee 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ef e00b | | Load 0x0,0xb
01f0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01f1 e004 | | Load 0x0,0x4
01f2 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
01f3 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01f4 c405 | | Store 0x2,0x5
01f5 00d8 | | Load_Top At_Offset_0
01f6 e00a | | Load 0x0,0xa
01f7 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01f8 7010 |p | Jump_Nonzero 0x209
01f9 e002 | | Load 0x0,0x2
01fa 180e | | Execute Package,Field_Execute,Field_Number 0xe
01fb 4807 |H | Short_Literal 0x7
01fc 0092 0318 | | Action Push_String_Extended,0x318 ; "Error initializing a Program_Library.Pl_State.State? ("
01fe e602 | | Load 0x3,0x2
01ff e00a | | Load 0x0,0xa
0200 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0201 01cc | | Execute Vector,Catenate
0202 0092 030e | | Action Push_String_Extended,0x30e ; ")"
0204 01cc | | Execute Vector,Catenate
0205 e007 | | Load 0x0,0x7
0206 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0207 e402 | | Load 0x2,0x2
0208 0257 | W | Execute Discrete,Raise
0209 4501 |E | Exit_Suprogram New_Top_Offset 0x1
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0223 | # | .CONST 0x0223 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 e406 | | Load 0x2,0x6
0214 0120 | | Execute Any,Is_Value
0215 6803 |h | Jump_Zero 0x219
0216 e004 | | Load 0x0,0x4
0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0218 7801 |x | Jump 0x21a
0219 e406 | | Load 0x2,0x6
021a 4800 |H | Short_Literal 0x0
021b 4801 |H | Short_Literal 0x1
021c e408 | | Load 0x2,0x8
021d e405 | | Load 0x2,0x5
021e e004 | | Load 0x0,0x4
021f 1b6a | j | Execute Package,Field_Read,Field_Number 0x6a
0220 180e | | Execute Package,Field_Execute,Field_Number 0xe
0221 c406 | | Store 0x2,0x6
0222 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0223 TRAP_0210:
0223 4887 |H | Short_Literal 0x87
0224 010f | | Execute Exception,Equal
0225 6809 |h | Jump_Zero 0x22f
0226 e002 | | Load 0x0,0x2
0227 180e | | Execute Package,Field_Execute,Field_Number 0xe
0228 4807 |H | Short_Literal 0x7
0229 0092 030f | | Action Push_String_Extended,0x30f ; "Could not open Program_Library for world of Load_Proc."
022b e007 | | Load 0x0,0x7
022c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
022d e402 | | Load 0x2,0x2
022e 0257 | W | Execute Discrete,Raise
022f 0100 | | Execute Exception,Raise
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0245 | E | .CONST 0x0245 ; Address of begin
0231 02e8 | | .CONST 0x02e8 ; Address of exception handler
0232 0007 | | .CONST 0x0007 ; Number of locals
0233 INIT_0230:
0233 e003 | | Load 0x0,0x3
0234 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0235 02ff | | Declare_Variable Variant_Record
0236 00d8 | | Load_Top At_Offset_0
0237 1c00 | | Execute_Immediate Run_Utility,0x0
0238 e00c | | Load 0x0,0xc
0239 1b15 | | Execute Package,Field_Read,Field_Number 0x15
023a 02c7 | | Declare_Variable Any
023b 00d8 | | Load_Top At_Offset_0
023c 1c00 | | Execute_Immediate Run_Utility,0x0
023d e00d | | Load 0x0,0xd
023e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023f e00e | | Load 0x0,0xe
0240 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0241 e00e | | Load 0x0,0xe
0242 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0243 e00e | | Load 0x0,0xe
0244 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0245 BODY_0230:
0245 00be | | Action Activate_Tasks
0246 00cf | | Action Mark_Auxiliary
0247 789a |x | Jump 0x2e2
0248 e409 | | Load 0x2,0x9
0249 e004 | | Load 0x0,0x4
024a 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
024b e602 | | Load 0x3,0x2
024c 016d | m | Execute Variant_Record,Structure_Write
024d e00d | | Load 0x0,0xd
024e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024f e603 | | Load 0x3,0x3
0250 0120 | | Execute Any,Is_Value
0251 6803 |h | Jump_Zero 0x255
0252 e00c | | Load 0x0,0xc
0253 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0254 7801 |x | Jump 0x256
0255 e603 | | Load 0x3,0x3
0256 e40b | | Load 0x2,0xb
0257 4800 |H | Short_Literal 0x0
0258 e00c | | Load 0x0,0xc
0259 1b13 | | Execute Package,Field_Read,Field_Number 0x13
025a e00f | | Load 0x0,0xf
025b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
025c e00c | | Load 0x0,0xc
025d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
025e 0161 | a | Execute Variant_Record,Check_In_Formal_Type
025f 4801 |H | Short_Literal 0x1
0260 e602 | | Load 0x3,0x2
0261 e00c | | Load 0x0,0xc
0262 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0263 0162 | b | Execute Variant_Record,Check_In_Type
0264 e00c | | Load 0x0,0xc
0265 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0266 c603 | | Store 0x3,0x3
0267 c604 | | Store 0x3,0x4
0268 e604 | | Load 0x3,0x4
0269 6802 |h | Jump_Zero 0x26c
026a e402 | | Load 0x2,0x2
026b 0257 | W | Execute Discrete,Raise
026c e00d | | Load 0x0,0xd
026d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
026e e00c | | Load 0x0,0xc
026f 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0270 e603 | | Load 0x3,0x3
0271 4803 |H | Short_Literal 0x3
0272 e00c | | Load 0x0,0xc
0273 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0274 c603 | | Store 0x3,0x3
0275 c605 | | Store 0x3,0x5
0276 c604 | | Store 0x3,0x4
0277 e604 | | Load 0x3,0x4
0278 6802 |h | Jump_Zero 0x27b
0279 e402 | | Load 0x2,0x2
027a 0257 | W | Execute Discrete,Raise
027b e00d | | Load 0x0,0xd
027c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
027d e00c | | Load 0x0,0xc
027e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
027f e603 | | Load 0x3,0x3
0280 e605 | | Load 0x3,0x5
0281 0a01 | | Execute_Immediate Plus,0x1
0282 00d8 | | Load_Top At_Offset_0
0283 e00e | | Load 0x0,0xe
0284 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0285 0260 | ` | Execute Discrete,In_Type
0286 7001 |p | Jump_Nonzero 0x288
0287 0801 | | Execute_Immediate Raise,0x1
0288 e00c | | Load 0x0,0xc
0289 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
028a c603 | | Store 0x3,0x3
028b c606 | | Store 0x3,0x6
028c c604 | | Store 0x3,0x4
028d e604 | | Load 0x3,0x4
028e 6802 |h | Jump_Zero 0x291
028f e402 | | Load 0x2,0x2
0290 0257 | W | Execute Discrete,Raise
0291 e00d | | Load 0x0,0xd
0292 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0293 e00c | | Load 0x0,0xc
0294 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0295 e603 | | Load 0x3,0x3
0296 e605 | | Load 0x3,0x5
0297 0a02 | | Execute_Immediate Plus,0x2
0298 00d8 | | Load_Top At_Offset_0
0299 e00e | | Load 0x0,0xe
029a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
029b 0260 | ` | Execute Discrete,In_Type
029c 7001 |p | Jump_Nonzero 0x29e
029d 0801 | | Execute_Immediate Raise,0x1
029e e00c | | Load 0x0,0xc
029f 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
02a0 c603 | | Store 0x3,0x3
02a1 c607 | | Store 0x3,0x7
02a2 c604 | | Store 0x3,0x4
02a3 e604 | | Load 0x3,0x4
02a4 6802 |h | Jump_Zero 0x2a7
02a5 e402 | | Load 0x2,0x2
02a6 0257 | W | Execute Discrete,Raise
02a7 0092 0319 | | Action Push_String_Extended,0x319 ; "Library.Resolve (\x22<[ADA,"
02a9 e010 | | Load 0x0,0x10
02aa 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02ab 480a |H | Short_Literal 0xa
02ac 4808 |H | Short_Literal 0x8
02ad e606 | | Load 0x3,0x6
02ae 0910 | | Execute_Immediate Binary_Scale,0x10
02af e607 | | Load 0x3,0x7
02b0 0273 | s | Execute Discrete,Plus
02b1 00d8 | | Load_Top At_Offset_0
02b2 00e2 | | Load_Encached Integer_Cache
02b3 0260 | ` | Execute Discrete,In_Type
02b4 7001 |p | Jump_Nonzero 0x2b6
02b5 0801 | | Execute_Immediate Raise,0x1
02b6 e010 | | Load 0x0,0x10
02b7 186c | l | Execute Package,Field_Execute,Field_Number 0x6c
02b8 0092 031a | | Action Push_String_Extended,0x31a ; ",1]>\x22);"
02ba e010 | | Load 0x0,0x10
02bb 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
02bc 4801 |H | Short_Literal 0x1
02bd e010 | | Load 0x0,0x10
02be 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
02bf 0092 031b | | Action Push_String_Extended,0x31b ; "<VERBOSE> ~::: ~*** ~++*"
02c1 4801 |H | Short_Literal 0x1
02c2 00ea | | Load_Encached Null_String_Cache
02c3 0092 031c | | Action Push_String_Extended,0x31c ; "<[ADA,"
02c5 e606 | | Load 0x3,0x6
02c6 0910 | | Execute_Immediate Binary_Scale,0x10
02c7 e607 | | Load 0x3,0x7
02c8 0273 | s | Execute Discrete,Plus
02c9 00d8 | | Load_Top At_Offset_0
02ca 00e2 | | Load_Encached Integer_Cache
02cb 0260 | ` | Execute Discrete,In_Type
02cc 7001 |p | Jump_Nonzero 0x2ce
02cd 0801 | | Execute_Immediate Raise,0x1
02ce 00e0 | | Load_Encached Standard_Cache
02cf 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02d0 01cc | | Execute Vector,Catenate
02d1 0092 031d | | Action Push_String_Extended,0x31d ; ",1]>"
02d3 01cc | | Execute Vector,Catenate
02d4 e011 | | Load 0x0,0x11
02d5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02d6 e00d | | Load 0x0,0xd
02d7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d8 e603 | | Load 0x3,0x3
02d9 e00c | | Load 0x0,0xc
02da 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02db c603 | | Store 0x3,0x3
02dc c604 | | Store 0x3,0x4
02dd e409 | | Load 0x2,0x9
02de e004 | | Load 0x0,0x4
02df 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
02e0 c409 | | Store 0x2,0x9
02e1 00c9 | | Action Pop_Auxiliary_Loop
02e2 e409 | | Load 0x2,0x9
02e3 e004 | | Load 0x0,0x4
02e4 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
02e5 012f | / | Execute Any,Equal
02e6 6f61 |oa | Jump_Zero 0x248
02e7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02e8 TRAP_0230:
02e8 e402 | | Load 0x2,0x2
02e9 010f | | Execute Exception,Equal
02ea 6816 |h | Jump_Zero 0x301
02eb e002 | | Load 0x0,0x2
02ec 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ed 4807 |H | Short_Literal 0x7
02ee 0092 031e | | Action Push_String_Extended,0x31e ; "Got error accessing Load_Proc code segment: "
02f0 e604 | | Load 0x3,0x4
02f1 e00d | | Load 0x0,0xd
02f2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f3 011c | | Execute Any,Convert_Unchecked
02f4 1c01 | | Execute_Immediate Run_Utility,0x1
02f5 01cc | | Execute Vector,Catenate
02f6 e007 | | Load 0x0,0x7
02f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02f8 e00d | | Load 0x0,0xd
02f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02fa e603 | | Load 0x3,0x3
02fb e00c | | Load 0x0,0xc
02fc 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02fd c603 | | Store 0x3,0x3
02fe c604 | | Store 0x3,0x4
02ff 00d8 | | Load_Top At_Offset_0
0300 0101 | | Execute Exception,Reraise
0301 e00d | | Load 0x0,0xd
0302 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0303 e603 | | Load 0x3,0x3
0304 e00c | | Load 0x0,0xc
0305 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0306 c603 | | Store 0x3,0x3
0307 c604 | | Store 0x3,0x4
0308 00d8 | | Load_Top At_Offset_0
0309 0101 | | Execute Exception,Reraise
030a ; --------------------------------------------------------------------------------------
030a ; STRING TABLE
030a ; --------------------------------------------------------------------------------------
030a 002c | , | .STRTAB 0x002c->0x0320 ; "[Discover_Load_Proc_Unit_Names (\x22"
030b 004b | K | .STRTAB 0x004b->0x0330 ; "\x22);]"
030c 004d | M | .STRTAB 0x004d->0x0332 ; "Could not locate Load_Proc: "
030d 0067 | g | .STRTAB 0x0067->0x0340 ; " ("
030e 0067 | g | .STRTAB 0x0067->0x0341 ; ")"
030f 0066 | f | .STRTAB 0x0066->0x0342 ; "Could not open Program_Library for world of Load_Proc."
0310 009a | | .STRTAB 0x009a->0x035d ; "This Load_Proc has no associated code segments?"
0311 00c7 | | .STRTAB 0x00c7->0x0374 ; "[End Discover_Load_Proc_Unit_Names]"
0312 00e8 | | .STRTAB 0x00e8->0x0386 ; "Unexpected exception: "
0313 00fc | | .STRTAB 0x00fc->0x0391 ; "LOADED"
0314 0100 | | .STRTAB 0x0100->0x0394 ; "Not a 'c(Load_Proc/Func): "
0315 0118 | | .STRTAB 0x0118->0x03a1 ; "Could not get Diana tree for Load_Proc "
0316 013d | = | .STRTAB 0x013d->0x03b4 ; "Could not state of Diana tree for Load_Proc "
0317 0167 | g | .STRTAB 0x0167->0x03ca ; "Load_Proc is not coded: "
0318 017d | } | .STRTAB 0x017d->0x03d6 ; "Error initializing a Program_Library.Pl_State.State? ("
0319 01b1 | | .STRTAB 0x01b1->0x03f1 ; "Library.Resolve (\x22<[ADA,"
031a 01c7 | | .STRTAB 0x01c7->0x03fd ; ",1]>\x22);"
031b 01cc | | .STRTAB 0x01cc->0x0401 ; "<VERBOSE> ~::: ~*** ~++*"
031c 01e2 | | .STRTAB 0x01e2->0x040d ; "<[ADA,"
031d 01e6 | | .STRTAB 0x01e6->0x0410 ; ",1]>"
031e 01e8 | | .STRTAB 0x01e8->0x0412 ; "Got error accessing Load_Proc code segment: "
031f 0212 | | .STREND 0x0212->0x0428
0320 5b44 6973 |[Dis| .STRTAB_STRINGS
0428 ; --------------------------------------------------------------------------------------
0428 ; Debug Table
0428 ; --------------------------------------------------------------------------------------
0428 0004 0011 | | .DEBUG4 0x0004,0x0011,0x978e,0x0000,0x0001,0x0000
042e 0000 0000 | | .BLANK 0000[0x1d2]