|
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: 4096 (0x1000)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_06e8fd
└─⟦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 06f8 | | .CONST 0x06f8 ; 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 8004 | | .CONST 0x8004 ; 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 0037 | 7 | .CONST 0x0037 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000f | | .CONST 0x000f ; Number of locals
001b INIT_0018:
001b 00e3 | | Load_Encached Natural_Cache
001c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
001d 0092 0449 | I| Action Push_String_Extended,0x449 ; "Public"
001f 0092 044a | J| Action Push_String_Extended,0x44a ; "network_public"
0021 0092 044b | K| Action Push_String_Extended,0x44b ; "System"
0023 0092 044c | L| Action Push_String_Extended,0x44c ; "R"
0025 0092 044d | M| Action Push_String_Extended,0x44d ; "RW"
0027 0092 044e | N| Action Push_String_Extended,0x44e ; "RC"
0029 0092 044f | O| Action Push_String_Extended,0x44f ; "RCOD"
002b 029f 015b | [| Declare_Subprogram INIT_0158,For_Call
002d 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
002f 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0031 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
0033 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0035 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0037 BODY_0018:
0037 00ea | | Load_Encached Null_String_Cache
0038 e406 | | Load 0x2,0x6
0039 e404 | | Load 0x2,0x4
003a 0092 0450 | P| Action Push_String_Extended,0x450 ; "!"
003c 840d | | Call 0x2,0xd
003d 00ea | | Load_Encached Null_String_Cache
003e e406 | | Load 0x2,0x6
003f e403 | | Load 0x2,0x3
0040 0092 0450 | P| Action Push_String_Extended,0x450 ; "!"
0042 840d | | Call 0x2,0xd
0043 00ea | | Load_Encached Null_String_Cache
0044 0092 0451 | Q| Action Push_String_Extended,0x451 ; "r"
0046 0092 044a | J| Action Push_String_Extended,0x44a ; "network_public"
0048 0092 0452 | R| Action Push_String_Extended,0x452 ; "!machine"
004a 840d | | Call 0x2,0xd
004b 00ea | | Load_Encached Null_String_Cache
004c e406 | | Load 0x2,0x6
004d e403 | | Load 0x2,0x3
004e 0092 0452 | R| Action Push_String_Extended,0x452 ; "!machine"
0050 840d | | Call 0x2,0xd
0051 e407 | | Load 0x2,0x7
0052 e404 | | Load 0x2,0x4
0053 0092 0452 | R| Action Push_String_Extended,0x452 ; "!machine"
0055 840e | | Call 0x2,0xe
0056 00ea | | Load_Encached Null_String_Cache
0057 e408 | | Load 0x2,0x8
0058 e404 | | Load 0x2,0x4
0059 0092 0453 | S| Action Push_String_Extended,0x453 ; "!machine.temporary"
005b 840d | | Call 0x2,0xd
005c 00ea | | Load_Encached Null_String_Cache
005d e408 | | Load 0x2,0x8
005e e403 | | Load 0x2,0x3
005f 0092 0453 | S| Action Push_String_Extended,0x453 ; "!machine.temporary"
0061 840d | | Call 0x2,0xd
0062 e407 | | Load 0x2,0x7
0063 e404 | | Load 0x2,0x4
0064 0092 0453 | S| Action Push_String_Extended,0x453 ; "!machine.temporary"
0066 840e | | Call 0x2,0xe
0067 00ea | | Load_Encached Null_String_Cache
0068 e406 | | Load 0x2,0x6
0069 e404 | | Load 0x2,0x4
006a 0092 0454 | T| Action Push_String_Extended,0x454 ; "!machine.editor_data"
006c 840d | | Call 0x2,0xd
006d 00ea | | Load_Encached Null_String_Cache
006e e406 | | Load 0x2,0x6
006f e404 | | Load 0x2,0x4
0070 0092 0455 | U| Action Push_String_Extended,0x455 ; "!machine.cg_data"
0072 840d | | Call 0x2,0xd
0073 00ea | | Load_Encached Null_String_Cache
0074 e406 | | Load 0x2,0x6
0075 e404 | | Load 0x2,0x4
0076 0092 0456 | V| Action Push_String_Extended,0x456 ; "!machine.machine_name"
0078 840d | | Call 0x2,0xd
0079 00ea | | Load_Encached Null_String_Cache
007a e406 | | Load 0x2,0x6
007b e403 | | Load 0x2,0x3
007c 0092 0457 | W| Action Push_String_Extended,0x457 ; "!Machine.machine_name"
007e 840d | | Call 0x2,0xd
007f 00ea | | Load_Encached Null_String_Cache
0080 e407 | | Load 0x2,0x7
0081 e404 | | Load 0x2,0x4
0082 0092 0458 | X| Action Push_String_Extended,0x458 ; "!Machine.Switch_Definitions"
0084 840d | | Call 0x2,0xd
0085 00ea | | Load_Encached Null_String_Cache
0086 e407 | | Load 0x2,0x7
0087 e403 | | Load 0x2,0x3
0088 0092 0458 | X| Action Push_String_Extended,0x458 ; "!Machine.Switch_Definitions"
008a 840d | | Call 0x2,0xd
008b 00ea | | Load_Encached Null_String_Cache
008c e408 | | Load 0x2,0x8
008d e404 | | Load 0x2,0x4
008e 0092 0459 | Y| Action Push_String_Extended,0x459 ; "!machine.error_logs"
0090 840d | | Call 0x2,0xd
0091 00ea | | Load_Encached Null_String_Cache
0092 e408 | | Load 0x2,0x8
0093 e403 | | Load 0x2,0x3
0094 0092 0459 | Y| Action Push_String_Extended,0x459 ; "!machine.error_logs"
0096 840d | | Call 0x2,0xd
0097 0092 045a | Z| Action Push_String_Extended,0x45a ; "rw"
0099 0092 044a | J| Action Push_String_Extended,0x44a ; "network_public"
009b 0092 0459 | Y| Action Push_String_Extended,0x459 ; "!machine.error_logs"
009d 840e | | Call 0x2,0xe
009e 0092 045a | Z| Action Push_String_Extended,0x45a ; "rw"
00a0 0092 045b | [| Action Push_String_Extended,0x45b ; "public"
00a2 0092 045c | \| Action Push_String_Extended,0x45c ; "!Machine.sims"
00a4 840e | | Call 0x2,0xe
00a5 00ea | | Load_Encached Null_String_Cache
00a6 e406 | | Load 0x2,0x6
00a7 e403 | | Load 0x2,0x3
00a8 0092 045d | ]| Action Push_String_Extended,0x45d ; "!compiler_interface"
00aa 840d | | Call 0x2,0xd
00ab 00ea | | Load_Encached Null_String_Cache
00ac e406 | | Load 0x2,0x6
00ad e404 | | Load 0x2,0x4
00ae 0092 045d | ]| Action Push_String_Extended,0x45d ; "!compiler_interface"
00b0 840d | | Call 0x2,0xd
00b1 00ea | | Load_Encached Null_String_Cache
00b2 e406 | | Load 0x2,0x6
00b3 e403 | | Load 0x2,0x3
00b4 0092 045e | ^| Action Push_String_Extended,0x45e ; "!compiler_interface.subsystem_interface"
00b6 840d | | Call 0x2,0xd
00b7 00ea | | Load_Encached Null_String_Cache
00b8 e406 | | Load 0x2,0x6
00b9 e404 | | Load 0x2,0x4
00ba 0092 045e | ^| Action Push_String_Extended,0x45e ; "!compiler_interface.subsystem_interface"
00bc 840d | | Call 0x2,0xd
00bd 00ea | | Load_Encached Null_String_Cache
00be 0092 044c | L| Action Push_String_Extended,0x44c ; "R"
00c0 0092 044a | J| Action Push_String_Extended,0x44a ; "network_public"
00c2 0092 045f | _| Action Push_String_Extended,0x45f ; "!machine.tcp_ip_host_id"
00c4 840d | | Call 0x2,0xd
00c5 00ea | | Load_Encached Null_String_Cache
00c6 0092 044c | L| Action Push_String_Extended,0x44c ; "R"
00c8 0092 044a | J| Action Push_String_Extended,0x44a ; "network_public"
00ca 0092 0460 | `| Action Push_String_Extended,0x460 ; "!machine.transport_name_map"
00cc 840d | | Call 0x2,0xd
00cd 00ea | | Load_Encached Null_String_Cache
00ce e406 | | Load 0x2,0x6
00cf e403 | | Load 0x2,0x3
00d0 0092 0461 | a| Action Push_String_Extended,0x461 ; "!Machine.Initialize@"
00d2 840d | | Call 0x2,0xd
00d3 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
00d5 0092 0451 | Q| Action Push_String_Extended,0x451 ; "r"
00d7 0092 044a | J| Action Push_String_Extended,0x44a ; "network_public"
00d9 0092 0452 | R| Action Push_String_Extended,0x452 ; "!machine"
00db 840d | | Call 0x2,0xd
00dc 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
00de e406 | | Load 0x2,0x6
00df e404 | | Load 0x2,0x4
00e0 0092 0463 | c| Action Push_String_Extended,0x463 ; "!machine.release"
00e2 840d | | Call 0x2,0xd
00e3 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
00e5 e406 | | Load 0x2,0x6
00e6 e404 | | Load 0x2,0x4
00e7 0092 0464 | d| Action Push_String_Extended,0x464 ; "!machine.release.current"
00e9 840d | | Call 0x2,0xd
00ea 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
00ec e406 | | Load 0x2,0x6
00ed e404 | | Load 0x2,0x4
00ee 0092 0465 | e| Action Push_String_Extended,0x465 ; "!machine.release.current.activity"
00f0 840d | | Call 0x2,0xd
00f1 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
00f3 e406 | | Load 0x2,0x6
00f4 e404 | | Load 0x2,0x4
00f5 0092 0466 | f| Action Push_String_Extended,0x466 ; "!machine.queues"
00f7 840d | | Call 0x2,0xd
00f8 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
00fa e406 | | Load 0x2,0x6
00fb e404 | | Load 0x2,0x4
00fc 0092 0467 | g| Action Push_String_Extended,0x467 ; "!tools"
00fe 840d | | Call 0x2,0xd
00ff 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
0101 e406 | | Load 0x2,0x6
0102 e404 | | Load 0x2,0x4
0103 0092 0468 | h| Action Push_String_Extended,0x468 ; "!tools.rpc_servers"
0105 840d | | Call 0x2,0xd
0106 0092 0462 | b| Action Push_String_Extended,0x462 ; "Queue server will not run"
0108 e406 | | Load 0x2,0x6
0109 e404 | | Load 0x2,0x4
010a 0092 0469 | i| Action Push_String_Extended,0x469 ; "!tools.rpc_servers.??'c(world)"
010c 840d | | Call 0x2,0xd
010d 0092 046a | j| Action Push_String_Extended,0x46a ; "cannot send mail"
010f e407 | | Load 0x2,0x7
0110 4804 |H | Short_Literal 0x4
0111 0092 046b | k| Action Push_String_Extended,0x46b ; "!Machine.[Mail,Transfer]??"
0113 840c | | Call 0x2,0xc
0114 0092 046c | l| Action Push_String_Extended,0x46c ; "Mail Distribute_Server cannot run as Network_Public."
0116 e406 | | Load 0x2,0x6
0117 e404 | | Load 0x2,0x4
0118 0092 046d | m| Action Push_String_Extended,0x46d ; "!Machine.[Transfer,Transfer.Distribute]"
011a 840d | | Call 0x2,0xd
011b 0092 046c | l| Action Push_String_Extended,0x46c ; "Mail Distribute_Server cannot run as Network_Public."
011d e406 | | Load 0x2,0x6
011e e404 | | Load 0x2,0x4
011f 0092 046e | n| Action Push_String_Extended,0x46e ; "!Machine.Transfer.Distribute.[Master,Slaves,Files]"
0121 840d | | Call 0x2,0xd
0122 0092 046c | l| Action Push_String_Extended,0x46c ; "Mail Distribute_Server cannot run as Network_Public."
0124 e407 | | Load 0x2,0x7
0125 e404 | | Load 0x2,0x4
0126 0092 046f | o| Action Push_String_Extended,0x46f ; "!Machine.Transfer.Distribute.Mailbox"
0128 840d | | Call 0x2,0xd
0129 0092 0470 | p| Action Push_String_Extended,0x470 ; "this is the standard output for Mail Distribute Server"
012b e407 | | Load 0x2,0x7
012c 0092 044a | J| Action Push_String_Extended,0x44a ; "network_public"
012e 0092 0471 | q| Action Push_String_Extended,0x471 ; "!Machine.Error_Logs.Mail_Distribute_Server@"
0130 840d | | Call 0x2,0xd
0131 840f | | Call 0x2,0xf
0132 e402 | | Load 0x2,0x2
0133 7005 |p | Jump_Nonzero 0x139
0134 0092 0472 | r| Action Push_String_Extended,0x472 ; "+++ No problems found."
0136 e001 | | Load 0x0,0x1
0137 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0138 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0139 e402 | | Load 0x2,0x2
013a 0f01 | | Execute_Immediate Equal,0x1
013b 680c |h | Jump_Zero 0x148
013c 0092 0473 | s| Action Push_String_Extended,0x473 ; "++*"
013e e402 | | Load 0x2,0x2
013f 00e0 | | Load_Encached Standard_Cache
0140 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0141 01cc | | Execute Vector,Catenate
0142 0092 0474 | t| Action Push_String_Extended,0x474 ; " problem."
0144 01cc | | Execute Vector,Catenate
0145 e001 | | Load 0x0,0x1
0146 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0147 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0148 0092 0473 | s| Action Push_String_Extended,0x473 ; "++*"
014a e402 | | Load 0x2,0x2
014b 00e0 | | Load_Encached Standard_Cache
014c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
014d 01cc | | Execute Vector,Catenate
014e 0092 0475 | u| Action Push_String_Extended,0x475 ; " problems."
0150 01cc | | Execute Vector,Catenate
0151 e001 | | Load 0x0,0x1
0152 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0153 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0154 0000 0000 | | .BLANK 0000[0x4]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e7ff | | Load 0x3,-0x1
015c 0b05 | | Execute_Immediate Case_Compare,0x5
015d 7009 |p | Jump_Nonzero 0x167
015e 0f04 | | Execute_Immediate Equal,0x4
015f 700b |p | Jump_Nonzero 0x16b
0160 0092 0476 | v| Action Push_String_Extended,0x476 ; "Group"
0162 e7ff | | Load 0x3,-0x1
0163 00e0 | | Load_Encached Standard_Cache
0164 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0165 01cc | | Execute Vector,Catenate
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 00d1 | | Pop_Control Pop_Count_1
0168 0092 0477 | w| Action Push_String_Extended,0x477 ; "Spooler"
016a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016b 0092 0478 | x| Action Push_String_Extended,0x478 ; "Mailer"
016d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016e 0000 0000 | | .XXX[0x2]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0181 | | .CONST 0x0181 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 e7ff | | Load 0x3,-0x1
0174 01da | | Execute Vector,Bounds
0175 00e9 | | Load_Encached String_Cache
0176 035b | [ | Declare_Type Array,Constrained
0177 0337 | 7 | Declare_Variable Array
0178 e7ff | | Load 0x3,-0x1
0179 e602 | | Load 0x3,0x2
017a 01d4 | | Execute Vector,Structure_Write
017b 00d8 | | Load_Top At_Offset_0
017c 01dc | | Execute Vector,Last
017d 00e3 | | Load_Encached Natural_Cache
017e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
017f 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
0181 BODY_0170:
0181 00cf | | Action Mark_Auxiliary
0182 e7fe | | Load 0x3,-0x2
0183 01d9 | | Execute Vector,Reverse_Bounds
0184 0263 | c | Execute Discrete,Above_Bound
0185 7031 |p1 | Jump_Nonzero 0x1b7
0186 00d8 | | Load_Top At_Offset_0
0187 e7fe | | Load 0x3,-0x2
0188 01d7 | | Execute Vector,Field_Read
0189 00d8 | | Load_Top At_Offset_0
018a 4861 |Ha | Short_Literal 0x61
018b 487a |Hz | Short_Literal 0x7a
018c 0262 | b | Execute Discrete,In_Range
018d 7009 |p | Jump_Nonzero 0x197
018e 4841 |HA | Short_Literal 0x41
018f 485a |HZ | Short_Literal 0x5a
0190 0262 | b | Execute Discrete,In_Range
0191 7015 |p | Jump_Nonzero 0x1a7
0192 00d8 | | Load_Top At_Offset_0
0193 e7fe | | Load 0x3,-0x2
0194 01d7 | | Execute Vector,Field_Read
0195 8604 | | Call 0x3,0x4
0196 781e |x | Jump 0x1b5
0197 00d1 | | Pop_Control Pop_Count_1
0198 00d8 | | Load_Top At_Offset_0
0199 e7fe | | Load 0x3,-0x2
019a 01d7 | | Execute Vector,Field_Read
019b 8604 | | Call 0x3,0x4
019c 00d8 | | Load_Top At_Offset_0
019d e7fe | | Load 0x3,-0x2
019e 01d7 | | Execute Vector,Field_Read
019f 0ae0 | | Execute_Immediate Plus,-0x20
01a0 00d8 | | Load_Top At_Offset_0
01a1 00e8 | | Load_Encached Character_Cache
01a2 0260 | ` | Execute Discrete,In_Type
01a3 7001 |p | Jump_Nonzero 0x1a5
01a4 0801 | | Execute_Immediate Raise,0x1
01a5 8604 | | Call 0x3,0x4
01a6 780e |x | Jump 0x1b5
01a7 00d8 | | Load_Top At_Offset_0
01a8 e7fe | | Load 0x3,-0x2
01a9 01d7 | | Execute Vector,Field_Read
01aa 0a20 | | Execute_Immediate Plus,0x20
01ab 00d8 | | Load_Top At_Offset_0
01ac 00e8 | | Load_Encached Character_Cache
01ad 0260 | ` | Execute Discrete,In_Type
01ae 7001 |p | Jump_Nonzero 0x1b0
01af 0801 | | Execute_Immediate Raise,0x1
01b0 8604 | | Call 0x3,0x4
01b1 00d8 | | Load_Top At_Offset_0
01b2 e7fe | | Load 0x3,-0x2
01b3 01d7 | | Execute Vector,Field_Read
01b4 8604 | | Call 0x3,0x4
01b5 00c8 | | Action Pop_Auxiliary_Range
01b6 3fcf |? | Loop_Increasing 0x186
01b7 00ce | | Action Pop_Auxiliary
01b8 e602 | | Load 0x3,0x2
01b9 01dd | | Execute Vector,First
01ba e603 | | Load 0x3,0x3
01bb e602 | | Load 0x3,0x2
01bc 01cf | | Execute Vector,Slice_Read
01bd 00e9 | | Load_Encached String_Cache
01be 01c6 | | Execute Vector,Convert_To_Formal
01bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01de | | .CONST 0x01de ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0008 | | .CONST 0x0008 ; Number of locals
01c3 INIT_01c0:
01c3 e002 | | Load 0x0,0x2
01c4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01c5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01c6 02c7 | | Declare_Variable Any
01c7 00d8 | | Load_Top At_Offset_0
01c8 1c00 | | Execute_Immediate Run_Utility,0x0
01c9 e002 | | Load 0x0,0x2
01ca 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01cb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cc e002 | | Load 0x0,0x2
01cd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ce e002 | | Load 0x0,0x2
01cf 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01d0 02ff | | Declare_Variable Variant_Record
01d1 00d8 | | Load_Top At_Offset_0
01d2 1c00 | | Execute_Immediate Run_Utility,0x0
01d3 e003 | | Load 0x0,0x3
01d4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01d5 0337 | 7 | Declare_Variable Array
01d6 e003 | | Load 0x0,0x3
01d7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01d8 e606 | | Load 0x3,0x6
01d9 01d4 | | Execute Vector,Structure_Write
01da 029f 03a3 | | Declare_Subprogram INIT_03a0,For_Call
01dc 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
01de BODY_01c0:
01de e002 | | Load 0x0,0x2
01df 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e1 e602 | | Load 0x3,0x2
01e2 606d |`m | Indirect_Literal Discrete,0x250,{0x00000000, 0x00004000}
01e3 e004 | | Load 0x0,0x4
01e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01e5 e005 | | Load 0x0,0x5
01e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e7 e006 | | Load 0x0,0x6
01e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e9 4801 |H | Short_Literal 0x1
01ea 4800 |H | Short_Literal 0x0
01eb e005 | | Load 0x0,0x5
01ec 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ed e002 | | Load 0x0,0x2
01ee 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f0 e7ff | | Load 0x3,-0x1
01f1 e002 | | Load 0x0,0x2
01f2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f4 c602 | | Store 0x3,0x2
01f5 c603 | | Store 0x3,0x3
01f6 e603 | | Load 0x3,0x3
01f7 7035 |p5 | Jump_Nonzero 0x22d
01f8 4801 |H | Short_Literal 0x1
01f9 e7fe | | Load 0x3,-0x2
01fa e606 | | Load 0x3,0x6
01fb 01d6 | | Execute Vector,Field_Write
01fc 4801 |H | Short_Literal 0x1
01fd 4800 |H | Short_Literal 0x0
01fe e606 | | Load 0x3,0x6
01ff 01d6 | | Execute Vector,Field_Write
0200 4801 |H | Short_Literal 0x1
0201 4801 |H | Short_Literal 0x1
0202 e606 | | Load 0x3,0x6
0203 01d6 | | Execute Vector,Field_Write
0204 00cf | | Action Mark_Auxiliary
0205 7820 |x | Jump 0x226
0206 e002 | | Load 0x0,0x2
0207 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0208 e605 | | Load 0x3,0x5
0209 6046 |`F | Indirect_Literal Discrete,0x250,{0x00000000, 0x00004000}
020a e004 | | Load 0x0,0x4
020b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
020c e602 | | Load 0x3,0x2
020d e002 | | Load 0x0,0x2
020e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
020f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0210 00d1 | | Pop_Control Pop_Count_1
0211 c604 | | Store 0x3,0x4
0212 e604 | | Load 0x3,0x4
0213 7002 |p | Jump_Nonzero 0x216
0214 8608 | | Call 0x3,0x8
0215 780a |x | Jump 0x220
0216 0092 0479 | y| Action Push_String_Extended,0x479 ; "*** Directory error getting object from iterator: "
0218 e604 | | Load 0x3,0x4
0219 e002 | | Load 0x0,0x2
021a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
021b 011c | | Execute Any,Convert_Unchecked
021c 1c01 | | Execute_Immediate Run_Utility,0x1
021d 01cc | | Execute Vector,Catenate
021e e001 | | Load 0x0,0x1
021f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0220 e602 | | Load 0x3,0x2
0221 e002 | | Load 0x0,0x2
0222 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0223 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0224 c602 | | Store 0x3,0x2
0225 00c9 | | Action Pop_Auxiliary_Loop
0226 e602 | | Load 0x3,0x2
0227 e002 | | Load 0x0,0x2
0228 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0229 181e | | Execute Package,Field_Execute,Field_Number 0x1e
022a 6fdb |o | Jump_Zero 0x206
022b 00ce | | Action Pop_Auxiliary
022c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
022d e603 | | Load 0x3,0x3
022e 0f03 | | Execute_Immediate Equal,0x3
022f 680a |h | Jump_Zero 0x23a
0230 0092 047a | z| Action Push_String_Extended,0x47a ; "!!! \x22"
0232 e7ff | | Load 0x3,-0x1
0233 01cc | | Execute Vector,Catenate
0234 0092 047b | {| Action Push_String_Extended,0x47b ; "\x22 is undefined."
0236 01cc | | Execute Vector,Catenate
0237 e001 | | Load 0x0,0x1
0238 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0239 4505 |E | Exit_Suprogram New_Top_Offset 0x5
023a 0092 047c | || Action Push_String_Extended,0x47c ; "*** \x22"
023c e7ff | | Load 0x3,-0x1
023d 01cc | | Execute Vector,Catenate
023e 0092 047d | }| Action Push_String_Extended,0x47d ; "\x22 cannot be resolved ("
0240 01cc | | Execute Vector,Catenate
0241 e603 | | Load 0x3,0x3
0242 e002 | | Load 0x0,0x2
0243 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0244 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0245 011c | | Execute Any,Convert_Unchecked
0246 1c01 | | Execute_Immediate Run_Utility,0x1
0247 01cc | | Execute Vector,Catenate
0248 0092 047e | ~| Action Push_String_Extended,0x47e ; ")"
024a 01cc | | Execute Vector,Catenate
024b e001 | | Load 0x0,0x1
024c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
024d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
024e 0000 0000 | | .XXX[0x2]
0250 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 026c | l | .CONST 0x026c ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0006 | | .CONST 0x0006 ; Number of locals
025b INIT_0258:
025b 00e1 | | Load_Encached Boolean_Cache
025c e002 | | Load 0x0,0x2
025d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
025e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
025f 02c7 | | Declare_Variable Any
0260 00d8 | | Load_Top At_Offset_0
0261 1c00 | | Execute_Immediate Run_Utility,0x0
0262 e002 | | Load 0x0,0x2
0263 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0264 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0265 e002 | | Load 0x0,0x2
0266 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0267 e002 | | Load 0x0,0x2
0268 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0269 02c7 | | Declare_Variable Any
026a 00d8 | | Load_Top At_Offset_0
026b 1c00 | | Execute_Immediate Run_Utility,0x0
026c BODY_0258:
026c e002 | | Load 0x0,0x2
026d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
026e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
026f e603 | | Load 0x3,0x3
0270 67df |g | Indirect_Literal Discrete,0x250,{0x00000000, 0x00004000}
0271 e004 | | Load 0x0,0x4
0272 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0273 e005 | | Load 0x0,0x5
0274 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0275 e006 | | Load 0x0,0x6
0276 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0277 4801 |H | Short_Literal 0x1
0278 4800 |H | Short_Literal 0x0
0279 e005 | | Load 0x0,0x5
027a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
027b e002 | | Load 0x0,0x2
027c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
027e e7ff | | Load 0x3,-0x1
027f e002 | | Load 0x0,0x2
0280 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0281 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0282 c603 | | Store 0x3,0x3
0283 c604 | | Store 0x3,0x4
0284 e604 | | Load 0x3,0x4
0285 7055 |pU | Jump_Nonzero 0x2db
0286 00cf | | Action Mark_Auxiliary
0287 784c |xL | Jump 0x2d4
0288 e002 | | Load 0x0,0x2
0289 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028a e606 | | Load 0x3,0x6
028b 0120 | | Execute Any,Is_Value
028c 6803 |h | Jump_Zero 0x290
028d e002 | | Load 0x0,0x2
028e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028f 7801 |x | Jump 0x291
0290 e606 | | Load 0x3,0x6
0291 e603 | | Load 0x3,0x3
0292 e002 | | Load 0x0,0x2
0293 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0294 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0295 c606 | | Store 0x3,0x6
0296 c605 | | Store 0x3,0x5
0297 e605 | | Load 0x3,0x5
0298 702b |p+ | Jump_Nonzero 0x2c4
0299 e7fd | | Load 0x3,-0x3
029a e606 | | Load 0x3,0x6
029b e002 | | Load 0x0,0x2
029c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
029d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
029e e7fe | | Load 0x3,-0x2
029f e007 | | Load 0x0,0x7
02a0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02a1 a602 | | Store_Unchecked 0x3,0x2
02a2 e602 | | Load 0x3,0x2
02a3 702a |p* | Jump_Nonzero 0x2ce
02a4 e402 | | Load 0x2,0x2
02a5 0a01 | | Execute_Immediate Plus,0x1
02a6 c402 | | Store 0x2,0x2
02a7 0092 047f | | Action Push_String_Extended,0x47f ; "*** "
02a9 e7fe | | Load 0x3,-0x2
02aa 01cc | | Execute Vector,Catenate
02ab 0092 0480 | | Action Push_String_Extended,0x480 ; " does not have "
02ad 01cc | | Execute Vector,Catenate
02ae e7fd | | Load 0x3,-0x3
02af 01cc | | Execute Vector,Catenate
02b0 0092 0481 | | Action Push_String_Extended,0x481 ; " access to "
02b2 01cc | | Execute Vector,Catenate
02b3 e606 | | Load 0x3,0x6
02b4 e002 | | Load 0x0,0x2
02b5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02b7 01cc | | Execute Vector,Catenate
02b8 e001 | | Load 0x0,0x1
02b9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ba e7fc | | Load 0x3,-0x4
02bb 01db | | Execute Vector,Length
02bc 6811 |h | Jump_Zero 0x2ce
02bd 0092 0482 | | Action Push_String_Extended,0x482 ; "--- "
02bf e7fc | | Load 0x3,-0x4
02c0 01cc | | Execute Vector,Catenate
02c1 e001 | | Load 0x0,0x1
02c2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02c3 780a |x | Jump 0x2ce
02c4 0092 0479 | y| Action Push_String_Extended,0x479 ; "*** Directory error getting object from iterator: "
02c6 e605 | | Load 0x3,0x5
02c7 e002 | | Load 0x0,0x2
02c8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c9 011c | | Execute Any,Convert_Unchecked
02ca 1c01 | | Execute_Immediate Run_Utility,0x1
02cb 01cc | | Execute Vector,Catenate
02cc e001 | | Load 0x0,0x1
02cd 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ce e603 | | Load 0x3,0x3
02cf e002 | | Load 0x0,0x2
02d0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02d2 c603 | | Store 0x3,0x3
02d3 00c9 | | Action Pop_Auxiliary_Loop
02d4 e603 | | Load 0x3,0x3
02d5 e002 | | Load 0x0,0x2
02d6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02d8 6faf |o | Jump_Zero 0x288
02d9 00ce | | Action Pop_Auxiliary
02da 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02db e604 | | Load 0x3,0x4
02dc 0f03 | | Execute_Immediate Equal,0x3
02dd 680a |h | Jump_Zero 0x2e8
02de 0092 047a | z| Action Push_String_Extended,0x47a ; "!!! \x22"
02e0 e7ff | | Load 0x3,-0x1
02e1 01cc | | Execute Vector,Catenate
02e2 0092 047b | {| Action Push_String_Extended,0x47b ; "\x22 is undefined."
02e4 01cc | | Execute Vector,Catenate
02e5 e001 | | Load 0x0,0x1
02e6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e7 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02e8 0092 047c | || Action Push_String_Extended,0x47c ; "*** \x22"
02ea e7ff | | Load 0x3,-0x1
02eb 01cc | | Execute Vector,Catenate
02ec 0092 047d | }| Action Push_String_Extended,0x47d ; "\x22 cannot be resolved ("
02ee 01cc | | Execute Vector,Catenate
02ef e604 | | Load 0x3,0x4
02f0 e002 | | Load 0x0,0x2
02f1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02f3 011c | | Execute Any,Convert_Unchecked
02f4 1c01 | | Execute_Immediate Run_Utility,0x1
02f5 01cc | | Execute Vector,Catenate
02f6 0092 047e | ~| Action Push_String_Extended,0x47e ; ")"
02f8 01cc | | Execute Vector,Catenate
02f9 e001 | | Load 0x0,0x1
02fa 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02fb 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02fc 0000 0000 | | .BLANK 0000[0x4]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0304 | | .CONST 0x0304 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0002 | | .CONST 0x0002 ; Number of locals
0303 INIT_0300:
0303 00e1 | | Load_Encached Boolean_Cache
0304 BODY_0300:
0304 e7fe | | Load 0x3,-0x2
0305 e7fd | | Load 0x3,-0x3
0306 e7ff | | Load 0x3,-0x1
0307 e007 | | Load 0x0,0x7
0308 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0309 e007 | | Load 0x0,0x7
030a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
030b a602 | | Store_Unchecked 0x3,0x2
030c 00d8 | | Load_Top At_Offset_0
030d 7013 |p | Jump_Nonzero 0x321
030e e402 | | Load 0x2,0x2
030f 0a01 | | Execute_Immediate Plus,0x1
0310 c402 | | Store 0x2,0x2
0311 0092 047f | | Action Push_String_Extended,0x47f ; "*** "
0313 e7fe | | Load 0x3,-0x2
0314 01cc | | Execute Vector,Catenate
0315 0092 0480 | | Action Push_String_Extended,0x480 ; " does not have "
0317 01cc | | Execute Vector,Catenate
0318 e7fd | | Load 0x3,-0x3
0319 01cc | | Execute Vector,Catenate
031a 0092 0483 | | Action Push_String_Extended,0x483 ; " default access to "
031c 01cc | | Execute Vector,Catenate
031d e7ff | | Load 0x3,-0x1
031e 01cc | | Execute Vector,Catenate
031f e001 | | Load 0x0,0x1
0320 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0321 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0322 0000 0000 | | .BLANK 0000[0x6]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0336 | 6 | .CONST 0x0336 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0004 | | .CONST 0x0004 ; Number of locals
032b INIT_0328:
032b e002 | | Load 0x0,0x2
032c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
032d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
032e 02c7 | | Declare_Variable Any
032f 00d8 | | Load_Top At_Offset_0
0330 1c00 | | Execute_Immediate Run_Utility,0x0
0331 e002 | | Load 0x0,0x2
0332 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0333 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0334 029f 0413 | | Declare_Subprogram INIT_0410,For_Call
0336 BODY_0328:
0336 e002 | | Load 0x0,0x2
0337 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0338 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0339 e602 | | Load 0x3,0x2
033a 602d |`- | Indirect_Literal Discrete,0x368,{0x00000000, 0x00004000}
033b e004 | | Load 0x0,0x4
033c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
033d e005 | | Load 0x0,0x5
033e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
033f e006 | | Load 0x0,0x6
0340 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0341 4801 |H | Short_Literal 0x1
0342 4800 |H | Short_Literal 0x0
0343 e005 | | Load 0x0,0x5
0344 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0345 e002 | | Load 0x0,0x2
0346 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0347 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0348 0092 0484 | | Action Push_String_Extended,0x484 ; "!Users.@.Mailbox.Main_Set"
034a e002 | | Load 0x0,0x2
034b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
034d c602 | | Store 0x3,0x2
034e c603 | | Store 0x3,0x3
034f e603 | | Load 0x3,0x3
0350 7016 |p | Jump_Nonzero 0x367
0351 0092 0485 | | Action Push_String_Extended,0x485 ; "cannot deliver mail"
0353 e406 | | Load 0x2,0x6
0354 4804 |H | Short_Literal 0x4
0355 0092 0486 | | Action Push_String_Extended,0x486 ; "!Users'c(world)"
0357 840c | | Call 0x2,0xc
0358 00cf | | Action Mark_Auxiliary
0359 7807 |x | Jump 0x361
035a 8604 | | Call 0x3,0x4
035b e602 | | Load 0x3,0x2
035c e002 | | Load 0x0,0x2
035d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
035e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
035f c602 | | Store 0x3,0x2
0360 00c9 | | Action Pop_Auxiliary_Loop
0361 e602 | | Load 0x3,0x2
0362 e002 | | Load 0x0,0x2
0363 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0364 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0365 6ff4 |o | Jump_Zero 0x35a
0366 00ce | | Action Pop_Auxiliary
0367 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0368 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0377 | w | .CONST 0x0377 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0002 | | .CONST 0x0002 ; Number of locals
0373 INIT_0370:
0373 e602 | | Load 0x3,0x2
0374 01dd | | Execute Vector,First
0375 00e3 | | Load_Encached Natural_Cache
0376 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0377 BODY_0370:
0377 00cf | | Action Mark_Auxiliary
0378 7821 |x! | Jump 0x39a
0379 e802 | | Load 0x4,0x2
037a e602 | | Load 0x3,0x2
037b 01d7 | | Execute Vector,Field_Read
037c e9ff | | Load 0x4,-0x1
037d 027f | | Execute Discrete,Equal
037e 6817 |h | Jump_Zero 0x396
037f e802 | | Load 0x4,0x2
0380 e603 | | Load 0x3,0x3
0381 027c | | | Execute Discrete,Less
0382 680f |h | Jump_Zero 0x392
0383 e802 | | Load 0x4,0x2
0384 0a01 | | Execute_Immediate Plus,0x1
0385 00d8 | | Load_Top At_Offset_0
0386 00e2 | | Load_Encached Integer_Cache
0387 0260 | ` | Execute Discrete,In_Type
0388 7001 |p | Jump_Nonzero 0x38a
0389 0801 | | Execute_Immediate Raise,0x1
038a e603 | | Load 0x3,0x3
038b e602 | | Load 0x3,0x2
038c 01cf | | Execute Vector,Slice_Read
038d e802 | | Load 0x4,0x2
038e e603 | | Load 0x3,0x3
038f 0aff | | Execute_Immediate Plus,-0x1
0390 e602 | | Load 0x3,0x2
0391 01ce | | Execute Vector,Slice_Write
0392 e603 | | Load 0x3,0x3
0393 0aff | | Execute_Immediate Plus,-0x1
0394 c603 | | Store 0x3,0x3
0395 7803 |x | Jump 0x399
0396 e802 | | Load 0x4,0x2
0397 0a01 | | Execute_Immediate Plus,0x1
0398 c802 | | Store 0x4,0x2
0399 00c9 | | Action Pop_Auxiliary_Loop
039a e802 | | Load 0x4,0x2
039b e603 | | Load 0x3,0x3
039c 027a | z | Execute Discrete,Less_Equal
039d 77db |w | Jump_Nonzero 0x379
039e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
039f 0000 | | .XXX[0x1]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03aa | | .CONST 0x03aa ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0003 | | .CONST 0x0003 ; Number of locals
03a3 INIT_03a0:
03a3 e002 | | Load 0x0,0x2
03a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03a5 02c7 | | Declare_Variable Any
03a6 00d8 | | Load_Top At_Offset_0
03a7 1c00 | | Execute_Immediate Run_Utility,0x0
03a8 e002 | | Load 0x0,0x2
03a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03aa BODY_03a0:
03aa e002 | | Load 0x0,0x2
03ab 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ac e802 | | Load 0x4,0x2
03ad 0120 | | Execute Any,Is_Value
03ae 6803 |h | Jump_Zero 0x3b2
03af e002 | | Load 0x0,0x2
03b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b1 7801 |x | Jump 0x3b3
03b2 e802 | | Load 0x4,0x2
03b3 601c |` | Indirect_Literal Discrete,0x3d0,{0x00000000, 0x00004000}
03b4 e004 | | Load 0x0,0x4
03b5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03b6 e9fe | | Load 0x4,-0x2
03b7 e002 | | Load 0x0,0x2
03b8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03b9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03ba c802 | | Store 0x4,0x2
03bb c803 | | Store 0x4,0x3
03bc 00d8 | | Load_Top At_Offset_0
03bd 6802 |h | Jump_Zero 0x3c0
03be e9ff | | Load 0x4,-0x1
03bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03c0 e802 | | Load 0x4,0x2
03c1 e002 | | Load 0x0,0x2
03c2 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c4 6805 |h | Jump_Zero 0x3ca
03c5 0092 0487 | | Action Push_String_Extended,0x487 ; "W"
03c7 e9ff | | Load 0x4,-0x1
03c8 840b | | Call 0x2,0xb
03c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ca 0092 0488 | | Action Push_String_Extended,0x488 ; "COD"
03cc e9ff | | Load 0x4,-0x1
03cd 840b | | Call 0x2,0xb
03ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03cf 0000 | | .XXX[0x1]
03d0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03d4 0000 0000 | | .BLANK 0000[0x4]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03de | | .CONST 0x03de ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0002 | | .CONST 0x0002 ; Number of locals
03db INIT_03d8:
03db e605 | | Load 0x3,0x5
03dc e7fd | | Load 0x3,-0x3
03dd 8607 | | Call 0x3,0x7
03de BODY_03d8:
03de e004 | | Load 0x0,0x4
03df 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e0 e802 | | Load 0x4,0x2
03e1 e008 | | Load 0x0,0x8
03e2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03e3 e605 | | Load 0x3,0x5
03e4 e606 | | Load 0x3,0x6
03e5 e008 | | Load 0x0,0x8
03e6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03e7 7020 |p | Jump_Nonzero 0x408
03e8 e402 | | Load 0x2,0x2
03e9 0a01 | | Execute_Immediate Plus,0x1
03ea c402 | | Store 0x2,0x2
03eb 0092 047f | | Action Push_String_Extended,0x47f ; "*** "
03ed e7fe | | Load 0x3,-0x2
03ee 840a | | Call 0x2,0xa
03ef 01cc | | Execute Vector,Catenate
03f0 0092 0480 | | Action Push_String_Extended,0x480 ; " does not have "
03f2 01cc | | Execute Vector,Catenate
03f3 e802 | | Load 0x4,0x2
03f4 01cc | | Execute Vector,Catenate
03f5 0092 0481 | | Action Push_String_Extended,0x481 ; " access to "
03f7 01cc | | Execute Vector,Catenate
03f8 e605 | | Load 0x3,0x5
03f9 e002 | | Load 0x0,0x2
03fa 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
03fb 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
03fc 01cc | | Execute Vector,Catenate
03fd e001 | | Load 0x0,0x1
03fe 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
03ff e7fc | | Load 0x3,-0x4
0400 01db | | Execute Vector,Length
0401 6806 |h | Jump_Zero 0x408
0402 0092 0482 | | Action Push_String_Extended,0x482 ; "--- "
0404 e7fc | | Load 0x3,-0x4
0405 01cc | | Execute Vector,Catenate
0406 e001 | | Load 0x0,0x1
0407 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0408 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0409 0000 0000 | | .BLANK 0000[0x7]
0410 ; --------------------------------------------------------------------------------------
0410 ; SUBPROGRAM
0410 ; --------------------------------------------------------------------------------------
0410 0419 | | .CONST 0x0419 ; Address of begin
0411 0004 | | .CONST 0x0004 ; Address of exception handler
0412 0002 | | .CONST 0x0002 ; Number of locals
0413 INIT_0410:
0413 0092 0489 | | Action Push_String_Extended,0x489 ; "@"
0415 e602 | | Load 0x3,0x2
0416 e002 | | Load 0x0,0x2
0417 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0418 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0419 BODY_0410:
0419 0092 048a | | Action Push_String_Extended,0x48a ; "cannot deliver mail to "
041b e802 | | Load 0x4,0x2
041c 01cc | | Execute Vector,Catenate
041d e406 | | Load 0x2,0x6
041e 4804 |H | Short_Literal 0x4
041f 0092 048b | | Action Push_String_Extended,0x48b ; "!Users.["
0421 e802 | | Load 0x4,0x2
0422 01cc | | Execute Vector,Catenate
0423 0092 048c | | Action Push_String_Extended,0x48c ; ","
0425 01cc | | Execute Vector,Catenate
0426 e802 | | Load 0x4,0x2
0427 01cc | | Execute Vector,Catenate
0428 0092 048d | | Action Push_String_Extended,0x48d ; ".Mailbox]'c(world)"
042a 01cc | | Execute Vector,Catenate
042b 840c | | Call 0x2,0xc
042c 0092 048a | | Action Push_String_Extended,0x48a ; "cannot deliver mail to "
042e e802 | | Load 0x4,0x2
042f 01cc | | Execute Vector,Catenate
0430 e407 | | Load 0x2,0x7
0431 4804 |H | Short_Literal 0x4
0432 0092 048e | | Action Push_String_Extended,0x48e ; "!Users."
0434 e802 | | Load 0x4,0x2
0435 01cc | | Execute Vector,Catenate
0436 0092 048f | | Action Push_String_Extended,0x48f ; ".Mailbox.Main_Set"
0438 01cc | | Execute Vector,Catenate
0439 840c | | Call 0x2,0xc
043a 00d8 | | Load_Top At_Offset_0
043b 0092 0490 | | Action Push_String_Extended,0x490 ; " cannot read mail."
043d 01cc | | Execute Vector,Catenate
043e e407 | | Load 0x2,0x7
043f e802 | | Load 0x4,0x2
0440 0092 048e | | Action Push_String_Extended,0x48e ; "!Users."
0442 e802 | | Load 0x4,0x2
0443 01cc | | Execute Vector,Catenate
0444 0092 0491 | | Action Push_String_Extended,0x491 ; ".Mailbox.[@_Headers,@_Set]"
0446 01cc | | Execute Vector,Catenate
0447 840d | | Call 0x2,0xd
0448 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0449 ; --------------------------------------------------------------------------------------
0449 ; STRING TABLE
0449 ; --------------------------------------------------------------------------------------
0449 0094 | | .STRTAB 0x0094->0x0493 ; "Public"
044a 0098 | | .STRTAB 0x0098->0x0496 ; "network_public"
044b 00a4 | | .STRTAB 0x00a4->0x049d ; "System"
044c 00a8 | | .STRTAB 0x00a8->0x04a0 ; "R"
044d 00a7 | | .STRTAB 0x00a7->0x04a0 ; "RW"
044e 00a7 | | .STRTAB 0x00a7->0x04a1 ; "RC"
044f 00a7 | | .STRTAB 0x00a7->0x04a2 ; "RCOD"
0450 00a9 | | .STRTAB 0x00a9->0x04a4 ; "!"
0451 00a8 | | .STRTAB 0x00a8->0x04a5 ; "r"
0452 00a7 | | .STRTAB 0x00a7->0x04a5 ; "!machine"
0453 00ad | | .STRTAB 0x00ad->0x04a9 ; "!machine.temporary"
0454 00bd | | .STRTAB 0x00bd->0x04b2 ; "!machine.editor_data"
0455 00cf | | .STRTAB 0x00cf->0x04bc ; "!machine.cg_data"
0456 00dd | | .STRTAB 0x00dd->0x04c4 ; "!machine.machine_name"
0457 00f0 | | .STRTAB 0x00f0->0x04cf ; "!Machine.machine_name"
0458 0103 | | .STRTAB 0x0103->0x04d9 ; "!Machine.Switch_Definitions"
0459 011c | | .STRTAB 0x011c->0x04e7 ; "!machine.error_logs"
045a 012d | - | .STRTAB 0x012d->0x04f0 ; "rw"
045b 012d | - | .STRTAB 0x012d->0x04f1 ; "public"
045c 0131 | 1 | .STRTAB 0x0131->0x04f4 ; "!Machine.sims"
045d 013c | < | .STRTAB 0x013c->0x04fb ; "!compiler_interface"
045e 014d | M | .STRTAB 0x014d->0x0504 ; "!compiler_interface.subsystem_interface"
045f 0172 | r | .STRTAB 0x0172->0x0518 ; "!machine.tcp_ip_host_id"
0460 0187 | | .STRTAB 0x0187->0x0523 ; "!machine.transport_name_map"
0461 01a0 | | .STRTAB 0x01a0->0x0531 ; "!Machine.Initialize@"
0462 01b2 | | .STRTAB 0x01b2->0x053b ; "Queue server will not run"
0463 01c9 | | .STRTAB 0x01c9->0x0547 ; "!machine.release"
0464 01d7 | | .STRTAB 0x01d7->0x054f ; "!machine.release.current"
0465 01ed | | .STRTAB 0x01ed->0x055b ; "!machine.release.current.activity"
0466 020c | | .STRTAB 0x020c->0x056c ; "!machine.queues"
0467 0219 | | .STRTAB 0x0219->0x0573 ; "!tools"
0468 021d | | .STRTAB 0x021d->0x0576 ; "!tools.rpc_servers"
0469 022d | - | .STRTAB 0x022d->0x057f ; "!tools.rpc_servers.??'c(world)"
046a 0249 | I | .STRTAB 0x0249->0x058e ; "cannot send mail"
046b 0257 | W | .STRTAB 0x0257->0x0596 ; "!Machine.[Mail,Transfer]??"
046c 026f | o | .STRTAB 0x026f->0x05a3 ; "Mail Distribute_Server cannot run as Network_Public."
046d 02a1 | | .STRTAB 0x02a1->0x05bd ; "!Machine.[Transfer,Transfer.Distribute]"
046e 02c6 | | .STRTAB 0x02c6->0x05d1 ; "!Machine.Transfer.Distribute.[Master,Slaves,Files]"
046f 02f6 | | .STRTAB 0x02f6->0x05ea ; "!Machine.Transfer.Distribute.Mailbox"
0470 0318 | | .STRTAB 0x0318->0x05fc ; "this is the standard output for Mail Distribute Server"
0471 034c | L | .STRTAB 0x034c->0x0617 ; "!Machine.Error_Logs.Mail_Distribute_Server@"
0472 0375 | u | .STRTAB 0x0375->0x062c ; "+++ No problems found."
0473 0389 | | .STRTAB 0x0389->0x0637 ; "++*"
0474 038a | | .STRTAB 0x038a->0x0639 ; " problem."
0475 0391 | | .STRTAB 0x0391->0x063d ; " problems."
0476 0399 | | .STRTAB 0x0399->0x0642 ; "Group"
0477 039c | | .STRTAB 0x039c->0x0645 ; "Spooler"
0478 03a1 | | .STRTAB 0x03a1->0x0648 ; "Mailer"
0479 03a5 | | .STRTAB 0x03a5->0x064b ; "*** Directory error getting object from iterator: "
047a 03d5 | | .STRTAB 0x03d5->0x0664 ; "!!! \x22"
047b 03d8 | | .STRTAB 0x03d8->0x0667 ; "\x22 is undefined."
047c 03e5 | | .STRTAB 0x03e5->0x066e ; "*** \x22"
047d 03e8 | | .STRTAB 0x03e8->0x0671 ; "\x22 cannot be resolved ("
047e 03fc | | .STRTAB 0x03fc->0x067c ; ")"
047f 03fb | | .STRTAB 0x03fb->0x067c ; "*** "
0480 03fd | | .STRTAB 0x03fd->0x067e ; " does not have "
0481 040a | | .STRTAB 0x040a->0x0686 ; " access to "
0482 0413 | | .STRTAB 0x0413->0x068b ; "--- "
0483 0415 | | .STRTAB 0x0415->0x068d ; " default access to "
0484 0426 | & | .STRTAB 0x0426->0x0697 ; "!Users.@.Mailbox.Main_Set"
0485 043d | = | .STRTAB 0x043d->0x06a3 ; "cannot deliver mail"
0486 044e | N | .STRTAB 0x044e->0x06ad ; "!Users'c(world)"
0487 045b | [ | .STRTAB 0x045b->0x06b4 ; "W"
0488 045a | Z | .STRTAB 0x045a->0x06b5 ; "COD"
0489 045b | [ | .STRTAB 0x045b->0x06b6 ; "@"
048a 045a | Z | .STRTAB 0x045a->0x06b7 ; "cannot deliver mail to "
048b 046f | o | .STRTAB 0x046f->0x06c2 ; "!Users.["
048c 0475 | u | .STRTAB 0x0475->0x06c6 ; ","
048d 0474 | t | .STRTAB 0x0474->0x06c7 ; ".Mailbox]'c(world)"
048e 0484 | | .STRTAB 0x0484->0x06d0 ; "!Users."
048f 0489 | | .STRTAB 0x0489->0x06d3 ; ".Mailbox.Main_Set"
0490 0498 | | .STRTAB 0x0498->0x06dc ; " cannot read mail."
0491 04a8 | | .STRTAB 0x04a8->0x06e5 ; ".Mailbox.[@_Headers,@_Set]"
0492 04c0 | | .STREND 0x04c0->0x06f2
0493 5075 626c |Publ| .STRTAB_STRINGS
06f2 0000 0000 | | .BLANK 0000[0x6]
06f8 ; --------------------------------------------------------------------------------------
06f8 ; Debug Table
06f8 ; --------------------------------------------------------------------------------------
06f8 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb3e,0x0000,0x0001,0x0000
06fe 0000 0000 | | .BLANK 0000[0x102]