|
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: 2048 (0x800)
Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0230eb
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02e8 | | .CONST 0x02e8 ; 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 0084 | | .CONST 0x0084 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002b | + | .CONST 0x002b ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4805 |H | Short_Literal 0x5
000d 029f 008b | | Declare_Subprogram INIT_0088,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0012 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0014 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0016 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0018 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
001a 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001c 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001e 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0020 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0022 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0024 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0026 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated
0028 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
002a 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
002c 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
002e 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0030 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0032 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0034 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0036 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
0038 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
003a 029a 028b | | Declare_Subprogram INIT_0288,For_Outer_Call,Visible,Unelaborated
003c 0093 0000 | | push_full_address 0x0
003e 6071 |`q | Indirect_Literal Discrete,0xb0,{0x80000000, 0x00010000}
003f 0273 | s | Execute Discrete,Plus
0040 0129 | ) | Execute Any,Make_Visible
0041 e20d | | Load 0x1,0xd
0042 00e3 | | Load_Encached Natural_Cache
0043 00e3 | | Load_Encached Natural_Cache
0044 00e3 | | Load_Encached Natural_Cache
0045 e002 | | Load 0x0,0x2
0046 e003 | | Load 0x0,0x3
0047 029f 0293 | | Declare_Subprogram INIT_0290,For_Call
0049 4806 |H | Short_Literal 0x6
004a 032e | . | Declare_Type Record,Defined,Visible
004b 00bf | | Action Accept_Activation
004c 0092 02aa | | Action Push_String_Extended,0x2aa ; "(header=>"
004e 0092 02ab | | Action Push_String_Extended,0x2ab ; ",Mess_Id=>"
0050 0092 02ac | | Action Push_String_Extended,0x2ac ; ",Transmitter=>"
0052 0092 02ad | | Action Push_String_Extended,0x2ad ; ",Receiver=>"
0054 0092 02ae | | Action Push_String_Extended,0x2ae ; ",Orb=>"
0056 0092 02af | | Action Push_String_Extended,0x2af ; ",Method=>"
0058 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0059 00c7 | | Action Elaborate_Subprogram
005a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
005b 00c7 | | Action Elaborate_Subprogram
005c 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005d 00c7 | | Action Elaborate_Subprogram
005e 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005f 00c7 | | Action Elaborate_Subprogram
0060 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0061 00c7 | | Action Elaborate_Subprogram
0062 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0063 00c7 | | Action Elaborate_Subprogram
0064 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0065 00c7 | | Action Elaborate_Subprogram
0066 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0067 00c7 | | Action Elaborate_Subprogram
0068 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0069 00c7 | | Action Elaborate_Subprogram
006a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
006b 00c7 | | Action Elaborate_Subprogram
006c 1d10 | | Execute_Immediate Reference_Lex_1,0x10
006d 00c7 | | Action Elaborate_Subprogram
006e 1d11 | | Execute_Immediate Reference_Lex_1,0x11
006f 00c7 | | Action Elaborate_Subprogram
0070 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0071 00c7 | | Action Elaborate_Subprogram
0072 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0073 00c7 | | Action Elaborate_Subprogram
0074 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0075 00c7 | | Action Elaborate_Subprogram
0076 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
007b 00c7 | | Action Elaborate_Subprogram
007c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007d 00c7 | | Action Elaborate_Subprogram
007e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007f 00c7 | | Action Elaborate_Subprogram
0080 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0081 00c7 | | Action Elaborate_Subprogram
0082 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0083 00c7 | | Action Elaborate_Subprogram
0084 BODY_0008:
0084 00bc | | Action Signal_Activated
0085 00bb | | Action Signal_Completion
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 4607 |F | Jump_Case 0x8
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7807 |x | Jump 0x95 ; case 0x1
008e 780a |x | Jump 0x99 ; case 0x2
008f 780e |x | Jump 0x9e ; case 0x3
0090 7811 |x | Jump 0xa2 ; case 0x4
0091 7812 |x | Jump 0xa4 ; case 0x5
0092 7813 |x | Jump 0xa6 ; case 0x6
0093 7816 |x | Jump 0xaa ; case 0x7
0094 4302 |C | .XXX[0x1]
0095 00da | | Load_Top At_Offset_2
0096 0091 02a4 | | Action Push_String_Extended_Indexed,0x2a4 ; "REQUEST"
0098 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0099 00db | | Load_Top At_Offset_3
009a 00db | | Load_Top At_Offset_3
009b 00e0 | | Load_Encached Standard_Cache
009c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
009d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
009e 00da | | Load_Top At_Offset_2
009f 00e0 | | Load_Encached Standard_Cache
00a0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00a2 00db | | Load_Top At_Offset_3
00a3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a4 00db | | Load_Top At_Offset_3
00a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00a6 e20d | | Load 0x1,0xd
00a7 00dc | | Load_Top At_Offset_4
00a8 0267 | g | Execute Discrete,Predecessor
00a9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00aa e20d | | Load 0x1,0xd
00ab 00dc | | Load_Top At_Offset_4
00ac 0268 | h | Execute Discrete,Successor
00ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00ae 0000 0000 | | .XXX[0x2]
00b0 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00b4 0000 0000 | | .BLANK 0000[0x4]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 00da | | Load_Top At_Offset_2
00bc e5f9 | | Load 0x2,-0x7
00bd 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00be 00db | | Load_Top At_Offset_3
00bf e5f9 | | Load 0x2,-0x7
00c0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00c1 e5fd | | Load 0x2,-0x3
00c2 e5f9 | | Load 0x2,-0x7
00c3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c4 e5fc | | Load 0x2,-0x4
00c5 e5f9 | | Load 0x2,-0x7
00c6 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c7 e5fb | | Load 0x2,-0x5
00c8 e5f9 | | Load 0x2,-0x7
00c9 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00ca e5fa | | Load 0x2,-0x6
00cb e5f9 | | Load 0x2,-0x7
00cc 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00cd 4507 |E | Exit_Suprogram New_Top_Offset 0x7
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d7 | | .CONST 0x00d7 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0002 | | .CONST 0x0002 ; Number of locals
00d3 INIT_00d0:
00d3 e225 | % | Load 0x1,0x25
00d4 0322 | " | Declare_Variable Record
00d5 00d8 | | Load_Top At_Offset_0
00d6 1c00 | | Execute_Immediate Run_Utility,0x0
00d7 BODY_00d0:
00d7 00db | | Load_Top At_Offset_3
00d8 00d9 | | Load_Top At_Offset_1
00d9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00da e5fe | | Load 0x2,-0x2
00db 00d9 | | Load_Top At_Offset_1
00dc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00dd e5fd | | Load 0x2,-0x3
00de 00d9 | | Load_Top At_Offset_1
00df 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00e0 e5fc | | Load 0x2,-0x4
00e1 00d9 | | Load_Top At_Offset_1
00e2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00e3 e5fb | | Load 0x2,-0x5
00e4 00d9 | | Load_Top At_Offset_1
00e5 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00e6 e5fa | | Load 0x2,-0x6
00e7 00d9 | | Load_Top At_Offset_1
00e8 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00e9 00d8 | | Load_Top At_Offset_0
00ea 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
00eb 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
00f4 e5fe | | Load 0x2,-0x2
00f5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 00da | | Load_Top At_Offset_2
00fc e5fe | | Load 0x2,-0x2
00fd 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ff 0000 | | .XXX[0x1]
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
0104 e5fe | | Load 0x2,-0x2
0105 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0106 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c e5fe | | Load 0x2,-0x2
010d 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
010e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
010f 0000 | | .XXX[0x1]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 e5fe | | Load 0x2,-0x2
0115 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0116 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0117 0000 | | .XXX[0x1]
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
011c e5fe | | Load 0x2,-0x2
011d 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
011e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011f 0000 | | .XXX[0x1]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00da | | Load_Top At_Offset_2
0124 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0125 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0126 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
012c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0135 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0136 0000 0000 | | .XXX[0x2]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2
013c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
013d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0145 0320 | | Declare_Variable Record,Duplicate
0146 00cd | | Action Spare6_Action
0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b 00da | | Load_Top At_Offset_2
014c 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
014d 0320 | | Declare_Variable Record,Duplicate
014e 00cd | | Action Spare6_Action
014f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4829 |H) | Short_Literal 0x29
0154 e226 | & | Load 0x1,0x26
0155 e5ff | | Load 0x2,-0x1
0156 8216 | | Call 0x1,0x16
0157 e20d | | Load 0x1,0xd
0158 011c | | Execute Any,Convert_Unchecked
0159 1c01 | | Execute_Immediate Run_Utility,0x1
015a 01cc | | Execute Vector,Catenate
015b e227 | ' | Load 0x1,0x27
015c 01cc | | Execute Vector,Catenate
015d e5ff | | Load 0x2,-0x1
015e 8217 | | Call 0x1,0x17
015f 00e0 | | Load_Encached Standard_Cache
0160 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0161 01cc | | Execute Vector,Catenate
0162 e228 | ( | Load 0x1,0x28
0163 01cc | | Execute Vector,Catenate
0164 e5ff | | Load 0x2,-0x1
0165 8218 | | Call 0x1,0x18
0166 00e0 | | Load_Encached Standard_Cache
0167 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0168 01cc | | Execute Vector,Catenate
0169 e229 | ) | Load 0x1,0x29
016a 01cc | | Execute Vector,Catenate
016b e5ff | | Load 0x2,-0x1
016c 8219 | | Call 0x1,0x19
016d 00e0 | | Load_Encached Standard_Cache
016e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
016f 01cc | | Execute Vector,Catenate
0170 e22a | * | Load 0x1,0x2a
0171 01cc | | Execute Vector,Catenate
0172 e5ff | | Load 0x2,-0x1
0173 821a | | Call 0x1,0x1a
0174 8004 | | Call 0x0,0x4
0175 01cc | | Execute Vector,Catenate
0176 e22b | + | Load 0x1,0x2b
0177 01cc | | Execute Vector,Catenate
0178 e5ff | | Load 0x2,-0x1
0179 821b | | Call 0x1,0x1b
017a 8005 | | Call 0x0,0x5
017b 01cc | | Execute Vector,Catenate
017c 01cb | | Execute Vector,Append
017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0198 | | .CONST 0x0198 ; Address of begin
0181 0257 | W | .CONST 0x0257 ; Address of exception handler
0182 000d | | .CONST 0x000d ; Number of locals
0183 INIT_0180:
0183 00e3 | | Load_Encached Natural_Cache
0184 00e3 | | Load_Encached Natural_Cache
0185 00e3 | | Load_Encached Natural_Cache
0186 00e3 | | Load_Encached Natural_Cache
0187 00e3 | | Load_Encached Natural_Cache
0188 00e3 | | Load_Encached Natural_Cache
0189 00e3 | | Load_Encached Natural_Cache
018a 00e3 | | Load_Encached Natural_Cache
018b 00e3 | | Load_Encached Natural_Cache
018c e002 | | Load 0x0,0x2
018d 0322 | " | Declare_Variable Record
018e 00d8 | | Load_Top At_Offset_0
018f 1c00 | | Execute_Immediate Run_Utility,0x0
0190 e003 | | Load 0x0,0x3
0191 0322 | " | Declare_Variable Record
0192 00d8 | | Load_Top At_Offset_0
0193 1c00 | | Execute_Immediate Run_Utility,0x0
0194 e225 | % | Load 0x1,0x25
0195 0322 | " | Declare_Variable Record
0196 00d8 | | Load_Top At_Offset_0
0197 1c00 | | Execute_Immediate Run_Utility,0x0
0198 BODY_0180:
0198 e5ff | | Load 0x2,-0x1
0199 01dd | | Execute Vector,First
019a 0a09 | | Execute_Immediate Plus,0x9
019b c403 | | Store 0x2,0x3
019c e5ff | | Load 0x2,-0x1
019d 01dd | | Execute Vector,First
019e e403 | | Load 0x2,0x3
019f 0aff | | Execute_Immediate Plus,-0x1
01a0 e5ff | | Load 0x2,-0x1
01a1 01cf | | Execute Vector,Slice_Read
01a2 e226 | & | Load 0x1,0x26
01a3 01de | | Execute Vector,Not_Equal
01a4 6802 |h | Jump_Zero 0x1a7
01a5 e224 | $ | Load 0x1,0x24
01a6 0257 | W | Execute Discrete,Raise
01a7 4801 |H | Short_Literal 0x1
01a8 e403 | | Load 0x2,0x3
01a9 e5ff | | Load 0x2,-0x1
01aa 01dc | | Execute Vector,Last
01ab e5ff | | Load 0x2,-0x1
01ac 01cf | | Execute Vector,Slice_Read
01ad e227 | ' | Load 0x1,0x27
01ae 8006 | | Call 0x0,0x6
01af a402 | | Store_Unchecked 0x2,0x2
01b0 e402 | | Load 0x2,0x2
01b1 7002 |p | Jump_Nonzero 0x1b4
01b2 e224 | $ | Load 0x1,0x24
01b3 0257 | W | Execute Discrete,Raise
01b4 e402 | | Load 0x2,0x2
01b5 0aff | | Execute_Immediate Plus,-0x1
01b6 c404 | | Store 0x2,0x4
01b7 e402 | | Load 0x2,0x2
01b8 0a0a | | Execute_Immediate Plus,0xa
01b9 c405 | | Store 0x2,0x5
01ba 4801 |H | Short_Literal 0x1
01bb e405 | | Load 0x2,0x5
01bc e5ff | | Load 0x2,-0x1
01bd 01dc | | Execute Vector,Last
01be e5ff | | Load 0x2,-0x1
01bf 01cf | | Execute Vector,Slice_Read
01c0 e228 | ( | Load 0x1,0x28
01c1 8006 | | Call 0x0,0x6
01c2 a402 | | Store_Unchecked 0x2,0x2
01c3 e402 | | Load 0x2,0x2
01c4 7002 |p | Jump_Nonzero 0x1c7
01c5 e224 | $ | Load 0x1,0x24
01c6 0257 | W | Execute Discrete,Raise
01c7 e402 | | Load 0x2,0x2
01c8 0aff | | Execute_Immediate Plus,-0x1
01c9 c406 | | Store 0x2,0x6
01ca e402 | | Load 0x2,0x2
01cb 0a0e | | Execute_Immediate Plus,0xe
01cc c407 | | Store 0x2,0x7
01cd 4801 |H | Short_Literal 0x1
01ce e407 | | Load 0x2,0x7
01cf e5ff | | Load 0x2,-0x1
01d0 01dc | | Execute Vector,Last
01d1 e5ff | | Load 0x2,-0x1
01d2 01cf | | Execute Vector,Slice_Read
01d3 e229 | ) | Load 0x1,0x29
01d4 8006 | | Call 0x0,0x6
01d5 a402 | | Store_Unchecked 0x2,0x2
01d6 e402 | | Load 0x2,0x2
01d7 7002 |p | Jump_Nonzero 0x1da
01d8 e224 | $ | Load 0x1,0x24
01d9 0257 | W | Execute Discrete,Raise
01da e402 | | Load 0x2,0x2
01db 0aff | | Execute_Immediate Plus,-0x1
01dc c408 | | Store 0x2,0x8
01dd e402 | | Load 0x2,0x2
01de 0a0b | | Execute_Immediate Plus,0xb
01df c409 | | Store 0x2,0x9
01e0 4801 |H | Short_Literal 0x1
01e1 e409 | | Load 0x2,0x9
01e2 e5ff | | Load 0x2,-0x1
01e3 01dc | | Execute Vector,Last
01e4 e5ff | | Load 0x2,-0x1
01e5 01cf | | Execute Vector,Slice_Read
01e6 e22a | * | Load 0x1,0x2a
01e7 8006 | | Call 0x0,0x6
01e8 a402 | | Store_Unchecked 0x2,0x2
01e9 e402 | | Load 0x2,0x2
01ea 7002 |p | Jump_Nonzero 0x1ed
01eb e224 | $ | Load 0x1,0x24
01ec 0257 | W | Execute Discrete,Raise
01ed e402 | | Load 0x2,0x2
01ee 0aff | | Execute_Immediate Plus,-0x1
01ef c40a | | Store 0x2,0xa
01f0 e402 | | Load 0x2,0x2
01f1 0a06 | | Execute_Immediate Plus,0x6
01f2 c402 | | Store 0x2,0x2
01f3 e402 | | Load 0x2,0x2
01f4 00db | | Load_Top At_Offset_3
01f5 e402 | | Load 0x2,0x2
01f6 e5ff | | Load 0x2,-0x1
01f7 01dc | | Execute Vector,Last
01f8 e5ff | | Load 0x2,-0x1
01f9 01cf | | Execute Vector,Slice_Read
01fa 8007 | | Call 0x0,0x7
01fb 00d1 | | Pop_Control Pop_Count_1
01fc c402 | | Store 0x2,0x2
01fd e402 | | Load 0x2,0x2
01fe 0a01 | | Execute_Immediate Plus,0x1
01ff c402 | | Store 0x2,0x2
0200 e402 | | Load 0x2,0x2
0201 00d8 | | Load_Top At_Offset_0
0202 0a08 | | Execute_Immediate Plus,0x8
0203 00d8 | | Load_Top At_Offset_0
0204 00e2 | | Load_Encached Integer_Cache
0205 0260 | ` | Execute Discrete,In_Type
0206 7001 |p | Jump_Nonzero 0x208
0207 0801 | | Execute_Immediate Raise,0x1
0208 e5ff | | Load 0x2,-0x1
0209 01cf | | Execute Vector,Slice_Read
020a e22b | + | Load 0x1,0x2b
020b 01de | | Execute Vector,Not_Equal
020c 6802 |h | Jump_Zero 0x20f
020d e224 | $ | Load 0x1,0x24
020e 0257 | W | Execute Discrete,Raise
020f e402 | | Load 0x2,0x2
0210 0a09 | | Execute_Immediate Plus,0x9
0211 c402 | | Store 0x2,0x2
0212 e402 | | Load 0x2,0x2
0213 00da | | Load_Top At_Offset_2
0214 e402 | | Load 0x2,0x2
0215 e5ff | | Load 0x2,-0x1
0216 01dc | | Execute Vector,Last
0217 e5ff | | Load 0x2,-0x1
0218 01cf | | Execute Vector,Slice_Read
0219 8008 | | Call 0x0,0x8
021a 00d1 | | Pop_Control Pop_Count_1
021b c402 | | Store 0x2,0x2
021c e402 | | Load 0x2,0x2
021d 0a01 | | Execute_Immediate Plus,0x1
021e c402 | | Store 0x2,0x2
021f e402 | | Load 0x2,0x2
0220 e5ff | | Load 0x2,-0x1
0221 01d7 | | Execute Vector,Field_Read
0222 0e29 | ) | Execute_Immediate Not_Equal,0x29
0223 6802 |h | Jump_Zero 0x226
0224 e224 | $ | Load 0x1,0x24
0225 0257 | W | Execute Discrete,Raise
0226 00d8 | | Load_Top At_Offset_0
0227 00da | | Load_Top At_Offset_2
0228 e40b | | Load 0x2,0xb
0229 e409 | | Load 0x2,0x9
022a e40a | | Load 0x2,0xa
022b e5ff | | Load 0x2,-0x1
022c 01cf | | Execute Vector,Slice_Read
022d 00e2 | | Load_Encached Integer_Cache
022e 00e0 | | Load_Encached Standard_Cache
022f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0230 00d8 | | Load_Top At_Offset_0
0231 00e3 | | Load_Encached Natural_Cache
0232 0260 | ` | Execute Discrete,In_Type
0233 7001 |p | Jump_Nonzero 0x235
0234 0801 | | Execute_Immediate Raise,0x1
0235 e407 | | Load 0x2,0x7
0236 e408 | | Load 0x2,0x8
0237 e5ff | | Load 0x2,-0x1
0238 01cf | | Execute Vector,Slice_Read
0239 00e2 | | Load_Encached Integer_Cache
023a 00e0 | | Load_Encached Standard_Cache
023b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
023c 00d8 | | Load_Top At_Offset_0
023d 00e3 | | Load_Encached Natural_Cache
023e 0260 | ` | Execute Discrete,In_Type
023f 7001 |p | Jump_Nonzero 0x241
0240 0801 | | Execute_Immediate Raise,0x1
0241 e405 | | Load 0x2,0x5
0242 e406 | | Load 0x2,0x6
0243 e5ff | | Load 0x2,-0x1
0244 01cf | | Execute Vector,Slice_Read
0245 00e2 | | Load_Encached Integer_Cache
0246 00e0 | | Load_Encached Standard_Cache
0247 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0248 00d8 | | Load_Top At_Offset_0
0249 00e3 | | Load_Encached Natural_Cache
024a 0260 | ` | Execute Discrete,In_Type
024b 7001 |p | Jump_Nonzero 0x24d
024c 0801 | | Execute_Immediate Raise,0x1
024d e403 | | Load 0x2,0x3
024e e404 | | Load 0x2,0x4
024f e5ff | | Load 0x2,-0x1
0250 01cf | | Execute Vector,Slice_Read
0251 e20d | | Load 0x1,0xd
0252 1c02 | | Execute_Immediate Run_Utility,0x2
0253 820e | | Call 0x1,0xe
0254 00d1 | | Pop_Control Pop_Count_1
0255 00d8 | | Load_Top At_Offset_0
0256 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0257 TRAP_0180:
0257 0007 | | Action Break_Optional
0258 e224 | $ | Load 0x1,0x24
0259 0257 | W | Execute Discrete,Raise
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 8216 | | Call 0x1,0x16
0265 0f00 | | Execute_Immediate Equal,0x0
0266 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0267 0000 | | .XXX[0x1]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 8216 | | Call 0x1,0x16
026d 0f01 | | Execute_Immediate Equal,0x1
026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00da | | Load_Top At_Offset_2
0274 8216 | | Call 0x1,0x16
0275 0f02 | | Execute_Immediate Equal,0x2
0276 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0277 0000 | | .XXX[0x1]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b 00da | | Load_Top At_Offset_2
027c 8216 | | Call 0x1,0x16
027d 0f03 | | Execute_Immediate Equal,0x3
027e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 00da | | Load_Top At_Offset_2
0284 8216 | | Call 0x1,0x16
0285 0f04 | | Execute_Immediate Equal,0x4
0286 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0287 0000 | | .XXX[0x1]
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 00da | | Load_Top At_Offset_2
028c 8216 | | Call 0x1,0x16
028d 0f05 | | Execute_Immediate Equal,0x5
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f 0000 | | .XXX[0x1]
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 4601 |F | Jump_Case 0x2
0294 7801 |x | Jump 0x296 ; case 0x0
0295 7807 |x | Jump 0x29d ; case 0x1
0296 00da | | Load_Top At_Offset_2
0297 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0298 1c00 | | Execute_Immediate Run_Utility,0x0
0299 00da | | Load_Top At_Offset_2
029a 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
029b 1c00 | | Execute_Immediate Run_Utility,0x0
029c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
029d 00da | | Load_Top At_Offset_2
029e 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
029f 1c01 | | Execute_Immediate Run_Utility,0x1
02a0 00da | | Load_Top At_Offset_2
02a1 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
02a2 1c01 | | Execute_Immediate Run_Utility,0x1
02a3 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
02a4 ; --------------------------------------------------------------------------------------
02a4 ; STRING TABLE
02a4 ; --------------------------------------------------------------------------------------
02a4 001a | | .STRTAB 0x001a->0x02b1 ; "REQUEST"
02a5 001f | | .STRTAB 0x001f->0x02b4 ; "REPLY"
02a6 0022 | " | .STRTAB 0x0022->0x02b7 ; "NOTIFICATION"
02a7 002c | , | .STRTAB 0x002c->0x02bd ; "ERROR"
02a8 002f | / | .STRTAB 0x002f->0x02bf ; "DUNNO"
02a9 0032 | 2 | .STRTAB 0x0032->0x02c2 ; "ACKNOLEDGE"
02aa 003a | : | .STRTAB 0x003a->0x02c7 ; "(header=>"
02ab 0041 | A | .STRTAB 0x0041->0x02cb ; ",Mess_Id=>"
02ac 0049 | I | .STRTAB 0x0049->0x02d0 ; ",Transmitter=>"
02ad 0055 | U | .STRTAB 0x0055->0x02d7 ; ",Receiver=>"
02ae 005e | ^ | .STRTAB 0x005e->0x02dd ; ",Orb=>"
02af 0062 | b | .STRTAB 0x0062->0x02e0 ; ",Method=>"
02b0 0069 | i | .STREND 0x0069->0x02e4
02b1 5245 5155 |REQU| .STRTAB_STRINGS
02e5 0000 0000 | | .XXX[0x3]
02e7 0000 | |
02e8 ; --------------------------------------------------------------------------------------
02e8 ; Debug Table
02e8 ; --------------------------------------------------------------------------------------
02e8 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd169,0x0000,0x0001,0x0000
02ee 0dcc 2dac | - | .XXX[0x38]
02f0 a7a7 ca6a | j|
02f2 aa0a 098b | |
02f4 258c 6d8c |% m |
02f6 2e6e 67a7 |.ng |
02f8 ca6a aa0a | j |
02fa 0989 28aa | ( |
02fc 458e 6d2c |E m,|
02fe edcc 2e8e | . |
0300 ae4c a7a7 | L |
0302 c50d cead | |
0304 ac4c ae47 | L G|
0306 a7c4 0625 | %|
0308 850d cc2d | -|
030a aca7 a7ca | |
030c 6aaa 0a09 |j |
030e 8b25 8c6d | % m|
0310 8c2e 6e67 | .ng|
0312 a7ca 6e8e | n |
0314 4d2d cce5 |M- |
0316 8dad ec8c | |
0318 a7a7 c9a9 | |
031a e888 abe9 | |
031c eaaa 858e | |
031e cc2d 8eac | - |
0320 a7a7 cb64 | d|
0322 062b a805 | + |
0324 2525 2520 |%%% |
0326 0000 0000 | | .BLANK 0000[0xda]