|
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_03b8fe
└─⟦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 0768 | h | .CONST 0x0768 ; 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 0469 | i| Action Push_String_Extended,0x469 ; "Public"
001f 0092 046a | j| Action Push_String_Extended,0x46a ; "network_public"
0021 0092 046b | k| Action Push_String_Extended,0x46b ; "System"
0023 0092 046c | l| Action Push_String_Extended,0x46c ; "R"
0025 0092 046d | m| Action Push_String_Extended,0x46d ; "RW"
0027 0092 046e | n| Action Push_String_Extended,0x46e ; "RC"
0029 0092 046f | o| Action Push_String_Extended,0x46f ; "RCOD"
002b 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
002d 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
002f 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
0031 029f 027b | {| Declare_Subprogram INIT_0278,For_Call
0033 029f 0323 | #| Declare_Subprogram INIT_0320,For_Call
0035 029f 034b | K| Declare_Subprogram INIT_0348,For_Call
0037 BODY_0018:
0037 00ea | | Load_Encached Null_String_Cache
0038 e406 | | Load 0x2,0x6
0039 e404 | | Load 0x2,0x4
003a 0092 0470 | p| Action Push_String_Extended,0x470 ; "!"
003c 840d | | Call 0x2,0xd
003d 00ea | | Load_Encached Null_String_Cache
003e e406 | | Load 0x2,0x6
003f e403 | | Load 0x2,0x3
0040 0092 0470 | p| Action Push_String_Extended,0x470 ; "!"
0042 840d | | Call 0x2,0xd
0043 00ea | | Load_Encached Null_String_Cache
0044 0092 0471 | q| Action Push_String_Extended,0x471 ; "r"
0046 0092 046a | j| Action Push_String_Extended,0x46a ; "network_public"
0048 0092 0472 | r| Action Push_String_Extended,0x472 ; "!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 0472 | r| Action Push_String_Extended,0x472 ; "!machine"
0050 840d | | Call 0x2,0xd
0051 e407 | | Load 0x2,0x7
0052 e404 | | Load 0x2,0x4
0053 0092 0472 | r| Action Push_String_Extended,0x472 ; "!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 0473 | s| Action Push_String_Extended,0x473 ; "!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 0473 | s| Action Push_String_Extended,0x473 ; "!machine.temporary"
0061 840d | | Call 0x2,0xd
0062 e407 | | Load 0x2,0x7
0063 e404 | | Load 0x2,0x4
0064 0092 0473 | s| Action Push_String_Extended,0x473 ; "!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 0474 | t| Action Push_String_Extended,0x474 ; "!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 0475 | u| Action Push_String_Extended,0x475 ; "!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 0476 | v| Action Push_String_Extended,0x476 ; "!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 0477 | w| Action Push_String_Extended,0x477 ; "!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 0478 | x| Action Push_String_Extended,0x478 ; "!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 0478 | x| Action Push_String_Extended,0x478 ; "!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 0479 | y| Action Push_String_Extended,0x479 ; "!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 0479 | y| Action Push_String_Extended,0x479 ; "!machine.error_logs"
0096 840d | | Call 0x2,0xd
0097 0092 047a | z| Action Push_String_Extended,0x47a ; "rw"
0099 0092 046a | j| Action Push_String_Extended,0x46a ; "network_public"
009b 0092 0479 | y| Action Push_String_Extended,0x479 ; "!machine.error_logs"
009d 840e | | Call 0x2,0xe
009e 0092 047a | z| Action Push_String_Extended,0x47a ; "rw"
00a0 0092 047b | {| Action Push_String_Extended,0x47b ; "public"
00a2 0092 047c | || Action Push_String_Extended,0x47c ; "!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 047d | }| Action Push_String_Extended,0x47d ; "!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 047d | }| Action Push_String_Extended,0x47d ; "!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 047e | ~| Action Push_String_Extended,0x47e ; "!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 047e | ~| Action Push_String_Extended,0x47e ; "!compiler_interface.subsystem_interface"
00bc 840d | | Call 0x2,0xd
00bd 00ea | | Load_Encached Null_String_Cache
00be 0092 046c | l| Action Push_String_Extended,0x46c ; "R"
00c0 0092 046a | j| Action Push_String_Extended,0x46a ; "network_public"
00c2 0092 047f | | Action Push_String_Extended,0x47f ; "!machine.tcp_ip_host_id"
00c4 840d | | Call 0x2,0xd
00c5 00ea | | Load_Encached Null_String_Cache
00c6 0092 046c | l| Action Push_String_Extended,0x46c ; "R"
00c8 0092 046a | j| Action Push_String_Extended,0x46a ; "network_public"
00ca 0092 0480 | | Action Push_String_Extended,0x480 ; "!machine.transport_name_map"
00cc 840d | | Call 0x2,0xd
00cd 00ea | | Load_Encached Null_String_Cache
00ce e406 | | Load 0x2,0x6
00cf e405 | | Load 0x2,0x5
00d0 0092 0481 | | Action Push_String_Extended,0x481 ; "!machine.initialization"
00d2 840d | | Call 0x2,0xd
00d3 00ea | | Load_Encached Null_String_Cache
00d4 e406 | | Load 0x2,0x6
00d5 e405 | | Load 0x2,0x5
00d6 0092 0482 | | Action Push_String_Extended,0x482 ; "!machine.Initialization.?"
00d8 840d | | Call 0x2,0xd
00d9 00ea | | Load_Encached Null_String_Cache
00da e406 | | Load 0x2,0x6
00db e405 | | Load 0x2,0x5
00dc 0092 0483 | | Action Push_String_Extended,0x483 ; "!machine.Initialization.rational"
00de 840d | | Call 0x2,0xd
00df 00ea | | Load_Encached Null_String_Cache
00e0 e406 | | Load 0x2,0x6
00e1 e405 | | Load 0x2,0x5
00e2 0092 0484 | | Action Push_String_Extended,0x484 ; "!machine.Initialization.rational.?"
00e4 840d | | Call 0x2,0xd
00e5 00ea | | Load_Encached Null_String_Cache
00e6 e406 | | Load 0x2,0x6
00e7 e405 | | Load 0x2,0x5
00e8 0092 0485 | | Action Push_String_Extended,0x485 ; "!machine.Initialization.site"
00ea 840d | | Call 0x2,0xd
00eb 00ea | | Load_Encached Null_String_Cache
00ec e406 | | Load 0x2,0x6
00ed e405 | | Load 0x2,0x5
00ee 0092 0486 | | Action Push_String_Extended,0x486 ; "!machine.Initialization.site.?"
00f0 840d | | Call 0x2,0xd
00f1 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
00f3 0092 0471 | q| Action Push_String_Extended,0x471 ; "r"
00f5 0092 046a | j| Action Push_String_Extended,0x46a ; "network_public"
00f7 0092 0472 | r| Action Push_String_Extended,0x472 ; "!machine"
00f9 840d | | Call 0x2,0xd
00fa 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
00fc e406 | | Load 0x2,0x6
00fd e404 | | Load 0x2,0x4
00fe 0092 0488 | | Action Push_String_Extended,0x488 ; "!machine.release"
0100 840d | | Call 0x2,0xd
0101 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
0103 e406 | | Load 0x2,0x6
0104 e404 | | Load 0x2,0x4
0105 0092 0489 | | Action Push_String_Extended,0x489 ; "!machine.release.current"
0107 840d | | Call 0x2,0xd
0108 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
010a e406 | | Load 0x2,0x6
010b e404 | | Load 0x2,0x4
010c 0092 048a | | Action Push_String_Extended,0x48a ; "!machine.release.current.activity"
010e 840d | | Call 0x2,0xd
010f 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
0111 e406 | | Load 0x2,0x6
0112 e404 | | Load 0x2,0x4
0113 0092 048b | | Action Push_String_Extended,0x48b ; "!machine.queues"
0115 840d | | Call 0x2,0xd
0116 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
0118 e406 | | Load 0x2,0x6
0119 e404 | | Load 0x2,0x4
011a 0092 048c | | Action Push_String_Extended,0x48c ; "!tools"
011c 840d | | Call 0x2,0xd
011d 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
011f e406 | | Load 0x2,0x6
0120 e404 | | Load 0x2,0x4
0121 0092 048d | | Action Push_String_Extended,0x48d ; "!tools.rpc_servers"
0123 840d | | Call 0x2,0xd
0124 0092 0487 | | Action Push_String_Extended,0x487 ; "Queue server will not run"
0126 e406 | | Load 0x2,0x6
0127 e404 | | Load 0x2,0x4
0128 0092 048e | | Action Push_String_Extended,0x48e ; "!tools.rpc_servers.??'c(world)"
012a 840d | | Call 0x2,0xd
012b 0092 048f | | Action Push_String_Extended,0x48f ; "cannot send mail"
012d e407 | | Load 0x2,0x7
012e 4804 |H | Short_Literal 0x4
012f 0092 0490 | | Action Push_String_Extended,0x490 ; "!Machine.[Mail,Transfer]??"
0131 840c | | Call 0x2,0xc
0132 0092 0491 | | Action Push_String_Extended,0x491 ; "Mail Distribute_Server cannot run as Network_Public."
0134 e406 | | Load 0x2,0x6
0135 e404 | | Load 0x2,0x4
0136 0092 0492 | | Action Push_String_Extended,0x492 ; "!Machine.[Transfer,Transfer.Distribute]"
0138 840d | | Call 0x2,0xd
0139 0092 0491 | | Action Push_String_Extended,0x491 ; "Mail Distribute_Server cannot run as Network_Public."
013b e406 | | Load 0x2,0x6
013c e404 | | Load 0x2,0x4
013d 0092 0493 | | Action Push_String_Extended,0x493 ; "!Machine.Transfer.Distribute.[Master,Slaves,Files]"
013f 840d | | Call 0x2,0xd
0140 0092 0491 | | Action Push_String_Extended,0x491 ; "Mail Distribute_Server cannot run as Network_Public."
0142 e407 | | Load 0x2,0x7
0143 e404 | | Load 0x2,0x4
0144 0092 0494 | | Action Push_String_Extended,0x494 ; "!Machine.Transfer.Distribute.Mailbox"
0146 840d | | Call 0x2,0xd
0147 0092 0495 | | Action Push_String_Extended,0x495 ; "this is the standard output for Mail Distribute Server"
0149 e407 | | Load 0x2,0x7
014a 0092 046a | j| Action Push_String_Extended,0x46a ; "network_public"
014c 0092 0496 | | Action Push_String_Extended,0x496 ; "!Machine.Error_Logs.Mail_Distribute_Server@"
014e 840d | | Call 0x2,0xd
014f 840f | | Call 0x2,0xf
0150 e402 | | Load 0x2,0x2
0151 7005 |p | Jump_Nonzero 0x157
0152 0092 0497 | | Action Push_String_Extended,0x497 ; "+++ No problems found."
0154 e001 | | Load 0x0,0x1
0155 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0156 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0157 e402 | | Load 0x2,0x2
0158 0f01 | | Execute_Immediate Equal,0x1
0159 680c |h | Jump_Zero 0x166
015a 0092 0498 | | Action Push_String_Extended,0x498 ; "++*"
015c e402 | | Load 0x2,0x2
015d 00e0 | | Load_Encached Standard_Cache
015e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015f 01cc | | Execute Vector,Catenate
0160 0092 0499 | | Action Push_String_Extended,0x499 ; " problem."
0162 01cc | | Execute Vector,Catenate
0163 e001 | | Load 0x0,0x1
0164 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0165 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0166 0092 0498 | | Action Push_String_Extended,0x498 ; "++*"
0168 e402 | | Load 0x2,0x2
0169 00e0 | | Load_Encached Standard_Cache
016a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
016b 01cc | | Execute Vector,Catenate
016c 0092 049a | | Action Push_String_Extended,0x49a ; " problems."
016e 01cc | | Execute Vector,Catenate
016f e001 | | Load 0x0,0x1
0170 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0171 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0172 0000 0000 | | .BLANK 0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b e7ff | | Load 0x3,-0x1
017c 0b05 | | Execute_Immediate Case_Compare,0x5
017d 7009 |p | Jump_Nonzero 0x187
017e 0f04 | | Execute_Immediate Equal,0x4
017f 700b |p | Jump_Nonzero 0x18b
0180 0092 049b | | Action Push_String_Extended,0x49b ; "Group"
0182 e7ff | | Load 0x3,-0x1
0183 00e0 | | Load_Encached Standard_Cache
0184 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0185 01cc | | Execute Vector,Catenate
0186 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0187 00d1 | | Pop_Control Pop_Count_1
0188 0092 049c | | Action Push_String_Extended,0x49c ; "Spooler"
018a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018b 0092 049d | | Action Push_String_Extended,0x49d ; "Mailer"
018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018e 0000 0000 | | .XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 01a1 | | .CONST 0x01a1 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0004 | | .CONST 0x0004 ; Number of locals
0193 INIT_0190:
0193 e7ff | | Load 0x3,-0x1
0194 01da | | Execute Vector,Bounds
0195 00e9 | | Load_Encached String_Cache
0196 035b | [ | Declare_Type Array,Constrained
0197 0337 | 7 | Declare_Variable Array
0198 e7ff | | Load 0x3,-0x1
0199 e602 | | Load 0x3,0x2
019a 01d4 | | Execute Vector,Structure_Write
019b 00d8 | | Load_Top At_Offset_0
019c 01dc | | Execute Vector,Last
019d 00e3 | | Load_Encached Natural_Cache
019e 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
019f 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
01a1 BODY_0190:
01a1 00cf | | Action Mark_Auxiliary
01a2 e7fe | | Load 0x3,-0x2
01a3 01d9 | | Execute Vector,Reverse_Bounds
01a4 0263 | c | Execute Discrete,Above_Bound
01a5 7031 |p1 | Jump_Nonzero 0x1d7
01a6 00d8 | | Load_Top At_Offset_0
01a7 e7fe | | Load 0x3,-0x2
01a8 01d7 | | Execute Vector,Field_Read
01a9 00d8 | | Load_Top At_Offset_0
01aa 4861 |Ha | Short_Literal 0x61
01ab 487a |Hz | Short_Literal 0x7a
01ac 0262 | b | Execute Discrete,In_Range
01ad 7009 |p | Jump_Nonzero 0x1b7
01ae 4841 |HA | Short_Literal 0x41
01af 485a |HZ | Short_Literal 0x5a
01b0 0262 | b | Execute Discrete,In_Range
01b1 7015 |p | Jump_Nonzero 0x1c7
01b2 00d8 | | Load_Top At_Offset_0
01b3 e7fe | | Load 0x3,-0x2
01b4 01d7 | | Execute Vector,Field_Read
01b5 8604 | | Call 0x3,0x4
01b6 781e |x | Jump 0x1d5
01b7 00d1 | | Pop_Control Pop_Count_1
01b8 00d8 | | Load_Top At_Offset_0
01b9 e7fe | | Load 0x3,-0x2
01ba 01d7 | | Execute Vector,Field_Read
01bb 8604 | | Call 0x3,0x4
01bc 00d8 | | Load_Top At_Offset_0
01bd e7fe | | Load 0x3,-0x2
01be 01d7 | | Execute Vector,Field_Read
01bf 0ae0 | | Execute_Immediate Plus,-0x20
01c0 00d8 | | Load_Top At_Offset_0
01c1 00e8 | | Load_Encached Character_Cache
01c2 0260 | ` | Execute Discrete,In_Type
01c3 7001 |p | Jump_Nonzero 0x1c5
01c4 0801 | | Execute_Immediate Raise,0x1
01c5 8604 | | Call 0x3,0x4
01c6 780e |x | Jump 0x1d5
01c7 00d8 | | Load_Top At_Offset_0
01c8 e7fe | | Load 0x3,-0x2
01c9 01d7 | | Execute Vector,Field_Read
01ca 0a20 | | Execute_Immediate Plus,0x20
01cb 00d8 | | Load_Top At_Offset_0
01cc 00e8 | | Load_Encached Character_Cache
01cd 0260 | ` | Execute Discrete,In_Type
01ce 7001 |p | Jump_Nonzero 0x1d0
01cf 0801 | | Execute_Immediate Raise,0x1
01d0 8604 | | Call 0x3,0x4
01d1 00d8 | | Load_Top At_Offset_0
01d2 e7fe | | Load 0x3,-0x2
01d3 01d7 | | Execute Vector,Field_Read
01d4 8604 | | Call 0x3,0x4
01d5 00c8 | | Action Pop_Auxiliary_Range
01d6 3fcf |? | Loop_Increasing 0x1a6
01d7 00ce | | Action Pop_Auxiliary
01d8 e602 | | Load 0x3,0x2
01d9 01dd | | Execute Vector,First
01da e603 | | Load 0x3,0x3
01db e602 | | Load 0x3,0x2
01dc 01cf | | Execute Vector,Slice_Read
01dd 00e9 | | Load_Encached String_Cache
01de 01c6 | | Execute Vector,Convert_To_Formal
01df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01fe | | .CONST 0x01fe ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0008 | | .CONST 0x0008 ; Number of locals
01e3 INIT_01e0:
01e3 e002 | | Load 0x0,0x2
01e4 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e5 1b18 | | Execute Package,Field_Read,Field_Number 0x18
01e6 02c7 | | Declare_Variable Any
01e7 00d8 | | Load_Top At_Offset_0
01e8 1c00 | | Execute_Immediate Run_Utility,0x0
01e9 e002 | | Load 0x0,0x2
01ea 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01eb 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ec e002 | | Load 0x0,0x2
01ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ee e002 | | Load 0x0,0x2
01ef 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01f0 02ff | | Declare_Variable Variant_Record
01f1 00d8 | | Load_Top At_Offset_0
01f2 1c00 | | Execute_Immediate Run_Utility,0x0
01f3 e003 | | Load 0x0,0x3
01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f5 0337 | 7 | Declare_Variable Array
01f6 e003 | | Load 0x0,0x3
01f7 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01f8 e606 | | Load 0x3,0x6
01f9 01d4 | | Execute Vector,Structure_Write
01fa 029f 03c3 | | Declare_Subprogram INIT_03c0,For_Call
01fc 029f 03fb | | Declare_Subprogram INIT_03f8,For_Call
01fe BODY_01e0:
01fe e002 | | Load 0x0,0x2
01ff 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0200 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0201 e602 | | Load 0x3,0x2
0202 606d |`m | Indirect_Literal Discrete,0x270,{0x00000000, 0x00004000}
0203 e004 | | Load 0x0,0x4
0204 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0205 e005 | | Load 0x0,0x5
0206 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0207 e006 | | Load 0x0,0x6
0208 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0209 4801 |H | Short_Literal 0x1
020a 4800 |H | Short_Literal 0x0
020b e005 | | Load 0x0,0x5
020c 1811 | | Execute Package,Field_Execute,Field_Number 0x11
020d e002 | | Load 0x0,0x2
020e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
020f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0210 e7ff | | Load 0x3,-0x1
0211 e002 | | Load 0x0,0x2
0212 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0213 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0214 c602 | | Store 0x3,0x2
0215 c603 | | Store 0x3,0x3
0216 e603 | | Load 0x3,0x3
0217 7035 |p5 | Jump_Nonzero 0x24d
0218 4801 |H | Short_Literal 0x1
0219 e7fe | | Load 0x3,-0x2
021a e606 | | Load 0x3,0x6
021b 01d6 | | Execute Vector,Field_Write
021c 4801 |H | Short_Literal 0x1
021d 4800 |H | Short_Literal 0x0
021e e606 | | Load 0x3,0x6
021f 01d6 | | Execute Vector,Field_Write
0220 4801 |H | Short_Literal 0x1
0221 4801 |H | Short_Literal 0x1
0222 e606 | | Load 0x3,0x6
0223 01d6 | | Execute Vector,Field_Write
0224 00cf | | Action Mark_Auxiliary
0225 7820 |x | Jump 0x246
0226 e002 | | Load 0x0,0x2
0227 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0228 e605 | | Load 0x3,0x5
0229 6046 |`F | Indirect_Literal Discrete,0x270,{0x00000000, 0x00004000}
022a e004 | | Load 0x0,0x4
022b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022c e602 | | Load 0x3,0x2
022d e002 | | Load 0x0,0x2
022e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
022f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0230 00d1 | | Pop_Control Pop_Count_1
0231 c604 | | Store 0x3,0x4
0232 e604 | | Load 0x3,0x4
0233 7002 |p | Jump_Nonzero 0x236
0234 8608 | | Call 0x3,0x8
0235 780a |x | Jump 0x240
0236 0092 049e | | Action Push_String_Extended,0x49e ; "*** Directory error getting object from iterator: "
0238 e604 | | Load 0x3,0x4
0239 e002 | | Load 0x0,0x2
023a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023b 011c | | Execute Any,Convert_Unchecked
023c 1c01 | | Execute_Immediate Run_Utility,0x1
023d 01cc | | Execute Vector,Catenate
023e e001 | | Load 0x0,0x1
023f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0240 e602 | | Load 0x3,0x2
0241 e002 | | Load 0x0,0x2
0242 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0243 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0244 c602 | | Store 0x3,0x2
0245 00c9 | | Action Pop_Auxiliary_Loop
0246 e602 | | Load 0x3,0x2
0247 e002 | | Load 0x0,0x2
0248 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0249 181e | | Execute Package,Field_Execute,Field_Number 0x1e
024a 6fdb |o | Jump_Zero 0x226
024b 00ce | | Action Pop_Auxiliary
024c 4505 |E | Exit_Suprogram New_Top_Offset 0x5
024d e603 | | Load 0x3,0x3
024e 0f03 | | Execute_Immediate Equal,0x3
024f 680a |h | Jump_Zero 0x25a
0250 0092 049f | | Action Push_String_Extended,0x49f ; "!!! \x22"
0252 e7ff | | Load 0x3,-0x1
0253 01cc | | Execute Vector,Catenate
0254 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "\x22 is undefined."
0256 01cc | | Execute Vector,Catenate
0257 e001 | | Load 0x0,0x1
0258 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0259 4505 |E | Exit_Suprogram New_Top_Offset 0x5
025a 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "*** \x22"
025c e7ff | | Load 0x3,-0x1
025d 01cc | | Execute Vector,Catenate
025e 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "\x22 cannot be resolved ("
0260 01cc | | Execute Vector,Catenate
0261 e603 | | Load 0x3,0x3
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 011c | | Execute Any,Convert_Unchecked
0266 1c01 | | Execute_Immediate Run_Utility,0x1
0267 01cc | | Execute Vector,Catenate
0268 0092 04a3 | | Action Push_String_Extended,0x4a3 ; ")"
026a 01cc | | Execute Vector,Catenate
026b e001 | | Load 0x0,0x1
026c 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
026d 4505 |E | Exit_Suprogram New_Top_Offset 0x5
026e 0000 0000 | | .XXX[0x2]
0270 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0274 0000 0000 | | .BLANK 0000[0x4]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 028c | | .CONST 0x028c ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0006 | | .CONST 0x0006 ; Number of locals
027b INIT_0278:
027b 00e1 | | Load_Encached Boolean_Cache
027c e002 | | Load 0x0,0x2
027d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
027e 1b18 | | Execute Package,Field_Read,Field_Number 0x18
027f 02c7 | | Declare_Variable Any
0280 00d8 | | Load_Top At_Offset_0
0281 1c00 | | Execute_Immediate Run_Utility,0x0
0282 e002 | | Load 0x0,0x2
0283 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0284 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0285 e002 | | Load 0x0,0x2
0286 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0287 e002 | | Load 0x0,0x2
0288 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0289 02c7 | | Declare_Variable Any
028a 00d8 | | Load_Top At_Offset_0
028b 1c00 | | Execute_Immediate Run_Utility,0x0
028c BODY_0278:
028c e002 | | Load 0x0,0x2
028d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
028e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
028f e603 | | Load 0x3,0x3
0290 67df |g | Indirect_Literal Discrete,0x270,{0x00000000, 0x00004000}
0291 e004 | | Load 0x0,0x4
0292 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0293 e005 | | Load 0x0,0x5
0294 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0295 e006 | | Load 0x0,0x6
0296 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0297 4801 |H | Short_Literal 0x1
0298 4800 |H | Short_Literal 0x0
0299 e005 | | Load 0x0,0x5
029a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
029b e002 | | Load 0x0,0x2
029c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
029d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
029e e7ff | | Load 0x3,-0x1
029f e002 | | Load 0x0,0x2
02a0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02a1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02a2 c603 | | Store 0x3,0x3
02a3 c604 | | Store 0x3,0x4
02a4 e604 | | Load 0x3,0x4
02a5 7055 |pU | Jump_Nonzero 0x2fb
02a6 00cf | | Action Mark_Auxiliary
02a7 784c |xL | Jump 0x2f4
02a8 e002 | | Load 0x0,0x2
02a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02aa e606 | | Load 0x3,0x6
02ab 0120 | | Execute Any,Is_Value
02ac 6803 |h | Jump_Zero 0x2b0
02ad e002 | | Load 0x0,0x2
02ae 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02af 7801 |x | Jump 0x2b1
02b0 e606 | | Load 0x3,0x6
02b1 e603 | | Load 0x3,0x3
02b2 e002 | | Load 0x0,0x2
02b3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02b4 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
02b5 c606 | | Store 0x3,0x6
02b6 c605 | | Store 0x3,0x5
02b7 e605 | | Load 0x3,0x5
02b8 702b |p+ | Jump_Nonzero 0x2e4
02b9 e7fd | | Load 0x3,-0x3
02ba e606 | | Load 0x3,0x6
02bb e002 | | Load 0x0,0x2
02bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02bd 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02be e7fe | | Load 0x3,-0x2
02bf e007 | | Load 0x0,0x7
02c0 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02c1 a602 | | Store_Unchecked 0x3,0x2
02c2 e602 | | Load 0x3,0x2
02c3 702a |p* | Jump_Nonzero 0x2ee
02c4 e402 | | Load 0x2,0x2
02c5 0a01 | | Execute_Immediate Plus,0x1
02c6 c402 | | Store 0x2,0x2
02c7 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "*** "
02c9 e7fe | | Load 0x3,-0x2
02ca 01cc | | Execute Vector,Catenate
02cb 0092 04a5 | | Action Push_String_Extended,0x4a5 ; " does not have "
02cd 01cc | | Execute Vector,Catenate
02ce e7fd | | Load 0x3,-0x3
02cf 01cc | | Execute Vector,Catenate
02d0 0092 04a6 | | Action Push_String_Extended,0x4a6 ; " access to "
02d2 01cc | | Execute Vector,Catenate
02d3 e606 | | Load 0x3,0x6
02d4 e002 | | Load 0x0,0x2
02d5 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02d6 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02d7 01cc | | Execute Vector,Catenate
02d8 e001 | | Load 0x0,0x1
02d9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02da e7fc | | Load 0x3,-0x4
02db 01db | | Execute Vector,Length
02dc 6811 |h | Jump_Zero 0x2ee
02dd 0092 04a7 | | Action Push_String_Extended,0x4a7 ; "--- "
02df e7fc | | Load 0x3,-0x4
02e0 01cc | | Execute Vector,Catenate
02e1 e001 | | Load 0x0,0x1
02e2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02e3 780a |x | Jump 0x2ee
02e4 0092 049e | | Action Push_String_Extended,0x49e ; "*** Directory error getting object from iterator: "
02e6 e605 | | Load 0x3,0x5
02e7 e002 | | Load 0x0,0x2
02e8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e9 011c | | Execute Any,Convert_Unchecked
02ea 1c01 | | Execute_Immediate Run_Utility,0x1
02eb 01cc | | Execute Vector,Catenate
02ec e001 | | Load 0x0,0x1
02ed 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
02ee e603 | | Load 0x3,0x3
02ef e002 | | Load 0x0,0x2
02f0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f2 c603 | | Store 0x3,0x3
02f3 00c9 | | Action Pop_Auxiliary_Loop
02f4 e603 | | Load 0x3,0x3
02f5 e002 | | Load 0x0,0x2
02f6 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
02f7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02f8 6faf |o | Jump_Zero 0x2a8
02f9 00ce | | Action Pop_Auxiliary
02fa 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02fb e604 | | Load 0x3,0x4
02fc 0f03 | | Execute_Immediate Equal,0x3
02fd 680a |h | Jump_Zero 0x308
02fe 0092 049f | | Action Push_String_Extended,0x49f ; "!!! \x22"
0300 e7ff | | Load 0x3,-0x1
0301 01cc | | Execute Vector,Catenate
0302 0092 04a0 | | Action Push_String_Extended,0x4a0 ; "\x22 is undefined."
0304 01cc | | Execute Vector,Catenate
0305 e001 | | Load 0x0,0x1
0306 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0307 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0308 0092 04a1 | | Action Push_String_Extended,0x4a1 ; "*** \x22"
030a e7ff | | Load 0x3,-0x1
030b 01cc | | Execute Vector,Catenate
030c 0092 04a2 | | Action Push_String_Extended,0x4a2 ; "\x22 cannot be resolved ("
030e 01cc | | Execute Vector,Catenate
030f e604 | | Load 0x3,0x4
0310 e002 | | Load 0x0,0x2
0311 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0312 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0313 011c | | Execute Any,Convert_Unchecked
0314 1c01 | | Execute_Immediate Run_Utility,0x1
0315 01cc | | Execute Vector,Catenate
0316 0092 04a3 | | Action Push_String_Extended,0x4a3 ; ")"
0318 01cc | | Execute Vector,Catenate
0319 e001 | | Load 0x0,0x1
031a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
031b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
031c 0000 0000 | | .BLANK 0000[0x4]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0324 | $ | .CONST 0x0324 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0002 | | .CONST 0x0002 ; Number of locals
0323 INIT_0320:
0323 00e1 | | Load_Encached Boolean_Cache
0324 BODY_0320:
0324 e7fe | | Load 0x3,-0x2
0325 e7fd | | Load 0x3,-0x3
0326 e7ff | | Load 0x3,-0x1
0327 e007 | | Load 0x0,0x7
0328 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0329 e007 | | Load 0x0,0x7
032a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
032b a602 | | Store_Unchecked 0x3,0x2
032c 00d8 | | Load_Top At_Offset_0
032d 7013 |p | Jump_Nonzero 0x341
032e e402 | | Load 0x2,0x2
032f 0a01 | | Execute_Immediate Plus,0x1
0330 c402 | | Store 0x2,0x2
0331 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "*** "
0333 e7fe | | Load 0x3,-0x2
0334 01cc | | Execute Vector,Catenate
0335 0092 04a5 | | Action Push_String_Extended,0x4a5 ; " does not have "
0337 01cc | | Execute Vector,Catenate
0338 e7fd | | Load 0x3,-0x3
0339 01cc | | Execute Vector,Catenate
033a 0092 04a8 | | Action Push_String_Extended,0x4a8 ; " default access to "
033c 01cc | | Execute Vector,Catenate
033d e7ff | | Load 0x3,-0x1
033e 01cc | | Execute Vector,Catenate
033f e001 | | Load 0x0,0x1
0340 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0341 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0342 0000 0000 | | .BLANK 0000[0x6]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0356 | V | .CONST 0x0356 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0004 | | .CONST 0x0004 ; Number of locals
034b INIT_0348:
034b e002 | | Load 0x0,0x2
034c 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034d 1b18 | | Execute Package,Field_Read,Field_Number 0x18
034e 02c7 | | Declare_Variable Any
034f 00d8 | | Load_Top At_Offset_0
0350 1c00 | | Execute_Immediate Run_Utility,0x0
0351 e002 | | Load 0x0,0x2
0352 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0353 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0354 029f 0433 | 3| Declare_Subprogram INIT_0430,For_Call
0356 BODY_0348:
0356 e002 | | Load 0x0,0x2
0357 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0358 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0359 e602 | | Load 0x3,0x2
035a 602d |`- | Indirect_Literal Discrete,0x388,{0x00000000, 0x00004000}
035b e004 | | Load 0x0,0x4
035c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035d e005 | | Load 0x0,0x5
035e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
035f e006 | | Load 0x0,0x6
0360 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0361 4801 |H | Short_Literal 0x1
0362 4800 |H | Short_Literal 0x0
0363 e005 | | Load 0x0,0x5
0364 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0365 e002 | | Load 0x0,0x2
0366 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0367 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0368 0092 04a9 | | Action Push_String_Extended,0x4a9 ; "!Users.@.Mailbox.Main_Set"
036a e002 | | Load 0x0,0x2
036b 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
036c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
036d c602 | | Store 0x3,0x2
036e c603 | | Store 0x3,0x3
036f e603 | | Load 0x3,0x3
0370 7016 |p | Jump_Nonzero 0x387
0371 0092 04aa | | Action Push_String_Extended,0x4aa ; "cannot deliver mail"
0373 e406 | | Load 0x2,0x6
0374 4804 |H | Short_Literal 0x4
0375 0092 04ab | | Action Push_String_Extended,0x4ab ; "!Users'c(world)"
0377 840c | | Call 0x2,0xc
0378 00cf | | Action Mark_Auxiliary
0379 7807 |x | Jump 0x381
037a 8604 | | Call 0x3,0x4
037b e602 | | Load 0x3,0x2
037c e002 | | Load 0x0,0x2
037d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
037e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
037f c602 | | Store 0x3,0x2
0380 00c9 | | Action Pop_Auxiliary_Loop
0381 e602 | | Load 0x3,0x2
0382 e002 | | Load 0x0,0x2
0383 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0384 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0385 6ff4 |o | Jump_Zero 0x37a
0386 00ce | | Action Pop_Auxiliary
0387 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0388 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
038c 0000 0000 | | .BLANK 0000[0x4]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0397 | | .CONST 0x0397 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 e602 | | Load 0x3,0x2
0394 01dd | | Execute Vector,First
0395 00e3 | | Load_Encached Natural_Cache
0396 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0397 BODY_0390:
0397 00cf | | Action Mark_Auxiliary
0398 7821 |x! | Jump 0x3ba
0399 e802 | | Load 0x4,0x2
039a e602 | | Load 0x3,0x2
039b 01d7 | | Execute Vector,Field_Read
039c e9ff | | Load 0x4,-0x1
039d 027f | | Execute Discrete,Equal
039e 6817 |h | Jump_Zero 0x3b6
039f e802 | | Load 0x4,0x2
03a0 e603 | | Load 0x3,0x3
03a1 027c | | | Execute Discrete,Less
03a2 680f |h | Jump_Zero 0x3b2
03a3 e802 | | Load 0x4,0x2
03a4 0a01 | | Execute_Immediate Plus,0x1
03a5 00d8 | | Load_Top At_Offset_0
03a6 00e2 | | Load_Encached Integer_Cache
03a7 0260 | ` | Execute Discrete,In_Type
03a8 7001 |p | Jump_Nonzero 0x3aa
03a9 0801 | | Execute_Immediate Raise,0x1
03aa e603 | | Load 0x3,0x3
03ab e602 | | Load 0x3,0x2
03ac 01cf | | Execute Vector,Slice_Read
03ad e802 | | Load 0x4,0x2
03ae e603 | | Load 0x3,0x3
03af 0aff | | Execute_Immediate Plus,-0x1
03b0 e602 | | Load 0x3,0x2
03b1 01ce | | Execute Vector,Slice_Write
03b2 e603 | | Load 0x3,0x3
03b3 0aff | | Execute_Immediate Plus,-0x1
03b4 c603 | | Store 0x3,0x3
03b5 7803 |x | Jump 0x3b9
03b6 e802 | | Load 0x4,0x2
03b7 0a01 | | Execute_Immediate Plus,0x1
03b8 c802 | | Store 0x4,0x2
03b9 00c9 | | Action Pop_Auxiliary_Loop
03ba e802 | | Load 0x4,0x2
03bb e603 | | Load 0x3,0x3
03bc 027a | z | Execute Discrete,Less_Equal
03bd 77db |w | Jump_Nonzero 0x399
03be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03bf 0000 | | .XXX[0x1]
03c0 ; --------------------------------------------------------------------------------------
03c0 ; SUBPROGRAM
03c0 ; --------------------------------------------------------------------------------------
03c0 03ca | | .CONST 0x03ca ; Address of begin
03c1 0004 | | .CONST 0x0004 ; Address of exception handler
03c2 0003 | | .CONST 0x0003 ; Number of locals
03c3 INIT_03c0:
03c3 e002 | | Load 0x0,0x2
03c4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03c5 02c7 | | Declare_Variable Any
03c6 00d8 | | Load_Top At_Offset_0
03c7 1c00 | | Execute_Immediate Run_Utility,0x0
03c8 e002 | | Load 0x0,0x2
03c9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ca BODY_03c0:
03ca e002 | | Load 0x0,0x2
03cb 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03cc e802 | | Load 0x4,0x2
03cd 0120 | | Execute Any,Is_Value
03ce 6803 |h | Jump_Zero 0x3d2
03cf e002 | | Load 0x0,0x2
03d0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03d1 7801 |x | Jump 0x3d3
03d2 e802 | | Load 0x4,0x2
03d3 601c |` | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x00004000}
03d4 e004 | | Load 0x0,0x4
03d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03d6 e9fe | | Load 0x4,-0x2
03d7 e002 | | Load 0x0,0x2
03d8 1b39 | 9 | Execute Package,Field_Read,Field_Number 0x39
03d9 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03da c802 | | Store 0x4,0x2
03db c803 | | Store 0x4,0x3
03dc 00d8 | | Load_Top At_Offset_0
03dd 6802 |h | Jump_Zero 0x3e0
03de e9ff | | Load 0x4,-0x1
03df 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03e0 e802 | | Load 0x4,0x2
03e1 e002 | | Load 0x0,0x2
03e2 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
03e3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03e4 6805 |h | Jump_Zero 0x3ea
03e5 0092 04ac | | Action Push_String_Extended,0x4ac ; "W"
03e7 e9ff | | Load 0x4,-0x1
03e8 840b | | Call 0x2,0xb
03e9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ea 0092 04ad | | Action Push_String_Extended,0x4ad ; "COD"
03ec e9ff | | Load 0x4,-0x1
03ed 840b | | Call 0x2,0xb
03ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ef 0000 | | .XXX[0x1]
03f0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03f4 0000 0000 | | .BLANK 0000[0x4]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 03fe | | .CONST 0x03fe ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e605 | | Load 0x3,0x5
03fc e7fd | | Load 0x3,-0x3
03fd 8607 | | Call 0x3,0x7
03fe BODY_03f8:
03fe e004 | | Load 0x0,0x4
03ff 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0400 e802 | | Load 0x4,0x2
0401 e008 | | Load 0x0,0x8
0402 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0403 e605 | | Load 0x3,0x5
0404 e606 | | Load 0x3,0x6
0405 e008 | | Load 0x0,0x8
0406 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0407 7020 |p | Jump_Nonzero 0x428
0408 e402 | | Load 0x2,0x2
0409 0a01 | | Execute_Immediate Plus,0x1
040a c402 | | Store 0x2,0x2
040b 0092 04a4 | | Action Push_String_Extended,0x4a4 ; "*** "
040d e7fe | | Load 0x3,-0x2
040e 840a | | Call 0x2,0xa
040f 01cc | | Execute Vector,Catenate
0410 0092 04a5 | | Action Push_String_Extended,0x4a5 ; " does not have "
0412 01cc | | Execute Vector,Catenate
0413 e802 | | Load 0x4,0x2
0414 01cc | | Execute Vector,Catenate
0415 0092 04a6 | | Action Push_String_Extended,0x4a6 ; " access to "
0417 01cc | | Execute Vector,Catenate
0418 e605 | | Load 0x3,0x5
0419 e002 | | Load 0x0,0x2
041a 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
041b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
041c 01cc | | Execute Vector,Catenate
041d e001 | | Load 0x0,0x1
041e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
041f e7fc | | Load 0x3,-0x4
0420 01db | | Execute Vector,Length
0421 6806 |h | Jump_Zero 0x428
0422 0092 04a7 | | Action Push_String_Extended,0x4a7 ; "--- "
0424 e7fc | | Load 0x3,-0x4
0425 01cc | | Execute Vector,Catenate
0426 e001 | | Load 0x0,0x1
0427 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0428 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0429 0000 0000 | | .BLANK 0000[0x7]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0439 | 9 | .CONST 0x0439 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0002 | | .CONST 0x0002 ; Number of locals
0433 INIT_0430:
0433 0092 04ae | | Action Push_String_Extended,0x4ae ; "@"
0435 e602 | | Load 0x3,0x2
0436 e002 | | Load 0x0,0x2
0437 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0438 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0439 BODY_0430:
0439 0092 04af | | Action Push_String_Extended,0x4af ; "cannot deliver mail to "
043b e802 | | Load 0x4,0x2
043c 01cc | | Execute Vector,Catenate
043d e406 | | Load 0x2,0x6
043e 4804 |H | Short_Literal 0x4
043f 0092 04b0 | | Action Push_String_Extended,0x4b0 ; "!Users.["
0441 e802 | | Load 0x4,0x2
0442 01cc | | Execute Vector,Catenate
0443 0092 04b1 | | Action Push_String_Extended,0x4b1 ; ","
0445 01cc | | Execute Vector,Catenate
0446 e802 | | Load 0x4,0x2
0447 01cc | | Execute Vector,Catenate
0448 0092 04b2 | | Action Push_String_Extended,0x4b2 ; ".Mailbox]'c(world)"
044a 01cc | | Execute Vector,Catenate
044b 840c | | Call 0x2,0xc
044c 0092 04af | | Action Push_String_Extended,0x4af ; "cannot deliver mail to "
044e e802 | | Load 0x4,0x2
044f 01cc | | Execute Vector,Catenate
0450 e407 | | Load 0x2,0x7
0451 4804 |H | Short_Literal 0x4
0452 0092 04b3 | | Action Push_String_Extended,0x4b3 ; "!Users."
0454 e802 | | Load 0x4,0x2
0455 01cc | | Execute Vector,Catenate
0456 0092 04b4 | | Action Push_String_Extended,0x4b4 ; ".Mailbox.Main_Set"
0458 01cc | | Execute Vector,Catenate
0459 840c | | Call 0x2,0xc
045a 00d8 | | Load_Top At_Offset_0
045b 0092 04b5 | | Action Push_String_Extended,0x4b5 ; " cannot read mail."
045d 01cc | | Execute Vector,Catenate
045e e407 | | Load 0x2,0x7
045f e802 | | Load 0x4,0x2
0460 0092 04b3 | | Action Push_String_Extended,0x4b3 ; "!Users."
0462 e802 | | Load 0x4,0x2
0463 01cc | | Execute Vector,Catenate
0464 0092 04b6 | | Action Push_String_Extended,0x4b6 ; ".Mailbox.[@_Headers,@_Set]"
0466 01cc | | Execute Vector,Catenate
0467 840d | | Call 0x2,0xd
0468 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0469 ; --------------------------------------------------------------------------------------
0469 ; STRING TABLE
0469 ; --------------------------------------------------------------------------------------
0469 009e | | .STRTAB 0x009e->0x04b8 ; "Public"
046a 00a2 | | .STRTAB 0x00a2->0x04bb ; "network_public"
046b 00ae | | .STRTAB 0x00ae->0x04c2 ; "System"
046c 00b2 | | .STRTAB 0x00b2->0x04c5 ; "R"
046d 00b1 | | .STRTAB 0x00b1->0x04c5 ; "RW"
046e 00b1 | | .STRTAB 0x00b1->0x04c6 ; "RC"
046f 00b1 | | .STRTAB 0x00b1->0x04c7 ; "RCOD"
0470 00b3 | | .STRTAB 0x00b3->0x04c9 ; "!"
0471 00b2 | | .STRTAB 0x00b2->0x04ca ; "r"
0472 00b1 | | .STRTAB 0x00b1->0x04ca ; "!machine"
0473 00b7 | | .STRTAB 0x00b7->0x04ce ; "!machine.temporary"
0474 00c7 | | .STRTAB 0x00c7->0x04d7 ; "!machine.editor_data"
0475 00d9 | | .STRTAB 0x00d9->0x04e1 ; "!machine.cg_data"
0476 00e7 | | .STRTAB 0x00e7->0x04e9 ; "!machine.machine_name"
0477 00fa | | .STRTAB 0x00fa->0x04f4 ; "!Machine.machine_name"
0478 010d | | .STRTAB 0x010d->0x04fe ; "!Machine.Switch_Definitions"
0479 0126 | & | .STRTAB 0x0126->0x050c ; "!machine.error_logs"
047a 0137 | 7 | .STRTAB 0x0137->0x0515 ; "rw"
047b 0137 | 7 | .STRTAB 0x0137->0x0516 ; "public"
047c 013b | ; | .STRTAB 0x013b->0x0519 ; "!Machine.sims"
047d 0146 | F | .STRTAB 0x0146->0x0520 ; "!compiler_interface"
047e 0157 | W | .STRTAB 0x0157->0x0529 ; "!compiler_interface.subsystem_interface"
047f 017c | | | .STRTAB 0x017c->0x053d ; "!machine.tcp_ip_host_id"
0480 0191 | | .STRTAB 0x0191->0x0548 ; "!machine.transport_name_map"
0481 01aa | | .STRTAB 0x01aa->0x0556 ; "!machine.initialization"
0482 01bf | | .STRTAB 0x01bf->0x0561 ; "!machine.Initialization.?"
0483 01d6 | | .STRTAB 0x01d6->0x056e ; "!machine.Initialization.rational"
0484 01f4 | | .STRTAB 0x01f4->0x057e ; "!machine.Initialization.rational.?"
0485 0214 | | .STRTAB 0x0214->0x058f ; "!machine.Initialization.site"
0486 022e | . | .STRTAB 0x022e->0x059d ; "!machine.Initialization.site.?"
0487 024a | J | .STRTAB 0x024a->0x05ac ; "Queue server will not run"
0488 0261 | a | .STRTAB 0x0261->0x05b8 ; "!machine.release"
0489 026f | o | .STRTAB 0x026f->0x05c0 ; "!machine.release.current"
048a 0285 | | .STRTAB 0x0285->0x05cc ; "!machine.release.current.activity"
048b 02a4 | | .STRTAB 0x02a4->0x05dd ; "!machine.queues"
048c 02b1 | | .STRTAB 0x02b1->0x05e4 ; "!tools"
048d 02b5 | | .STRTAB 0x02b5->0x05e7 ; "!tools.rpc_servers"
048e 02c5 | | .STRTAB 0x02c5->0x05f0 ; "!tools.rpc_servers.??'c(world)"
048f 02e1 | | .STRTAB 0x02e1->0x05ff ; "cannot send mail"
0490 02ef | | .STRTAB 0x02ef->0x0607 ; "!Machine.[Mail,Transfer]??"
0491 0307 | | .STRTAB 0x0307->0x0614 ; "Mail Distribute_Server cannot run as Network_Public."
0492 0339 | 9 | .STRTAB 0x0339->0x062e ; "!Machine.[Transfer,Transfer.Distribute]"
0493 035e | ^ | .STRTAB 0x035e->0x0642 ; "!Machine.Transfer.Distribute.[Master,Slaves,Files]"
0494 038e | | .STRTAB 0x038e->0x065b ; "!Machine.Transfer.Distribute.Mailbox"
0495 03b0 | | .STRTAB 0x03b0->0x066d ; "this is the standard output for Mail Distribute Server"
0496 03e4 | | .STRTAB 0x03e4->0x0688 ; "!Machine.Error_Logs.Mail_Distribute_Server@"
0497 040d | | .STRTAB 0x040d->0x069d ; "+++ No problems found."
0498 0421 | ! | .STRTAB 0x0421->0x06a8 ; "++*"
0499 0422 | " | .STRTAB 0x0422->0x06aa ; " problem."
049a 0429 | ) | .STRTAB 0x0429->0x06ae ; " problems."
049b 0431 | 1 | .STRTAB 0x0431->0x06b3 ; "Group"
049c 0434 | 4 | .STRTAB 0x0434->0x06b6 ; "Spooler"
049d 0439 | 9 | .STRTAB 0x0439->0x06b9 ; "Mailer"
049e 043d | = | .STRTAB 0x043d->0x06bc ; "*** Directory error getting object from iterator: "
049f 046d | m | .STRTAB 0x046d->0x06d5 ; "!!! \x22"
04a0 0470 | p | .STRTAB 0x0470->0x06d8 ; "\x22 is undefined."
04a1 047d | } | .STRTAB 0x047d->0x06df ; "*** \x22"
04a2 0480 | | .STRTAB 0x0480->0x06e2 ; "\x22 cannot be resolved ("
04a3 0494 | | .STRTAB 0x0494->0x06ed ; ")"
04a4 0493 | | .STRTAB 0x0493->0x06ed ; "*** "
04a5 0495 | | .STRTAB 0x0495->0x06ef ; " does not have "
04a6 04a2 | | .STRTAB 0x04a2->0x06f7 ; " access to "
04a7 04ab | | .STRTAB 0x04ab->0x06fc ; "--- "
04a8 04ad | | .STRTAB 0x04ad->0x06fe ; " default access to "
04a9 04be | | .STRTAB 0x04be->0x0708 ; "!Users.@.Mailbox.Main_Set"
04aa 04d5 | | .STRTAB 0x04d5->0x0714 ; "cannot deliver mail"
04ab 04e6 | | .STRTAB 0x04e6->0x071e ; "!Users'c(world)"
04ac 04f3 | | .STRTAB 0x04f3->0x0725 ; "W"
04ad 04f2 | | .STRTAB 0x04f2->0x0726 ; "COD"
04ae 04f3 | | .STRTAB 0x04f3->0x0727 ; "@"
04af 04f2 | | .STRTAB 0x04f2->0x0728 ; "cannot deliver mail to "
04b0 0507 | | .STRTAB 0x0507->0x0733 ; "!Users.["
04b1 050d | | .STRTAB 0x050d->0x0737 ; ","
04b2 050c | | .STRTAB 0x050c->0x0738 ; ".Mailbox]'c(world)"
04b3 051c | | .STRTAB 0x051c->0x0741 ; "!Users."
04b4 0521 | ! | .STRTAB 0x0521->0x0744 ; ".Mailbox.Main_Set"
04b5 0530 | 0 | .STRTAB 0x0530->0x074d ; " cannot read mail."
04b6 0540 | @ | .STRTAB 0x0540->0x0756 ; ".Mailbox.[@_Headers,@_Set]"
04b7 0558 | X | .STREND 0x0558->0x0763
04b8 5075 626c |Publ| .STRTAB_STRINGS
0763 0000 0000 | | .BLANK 0000[0x5]
0768 ; --------------------------------------------------------------------------------------
0768 ; Debug Table
0768 ; --------------------------------------------------------------------------------------
0768 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb3e,0x0000,0x0001,0x0000
076e 0000 0000 | | .BLANK 0000[0xb]
0779 41c2 |A | .XXX[0x1]
077a 0000 0000 | | .BLANK 0000[0x8]
0782 0080 0000 | | .XXX[0x9]
0784 0000 0000 | |
0786 0180 0032 | 2|
0788 b400 46ec | F |
078a 7500 |u |
078b 0000 0000 | | .BLANK 0000[0x4]
078f 2376 4b40 |#vK@| .XXX[0xd]
0791 0000 94da | |
0793 0392 88a2 | |
0795 0000 0000 | |
0797 0501 c944 | D|
0799 5100 0000 |Q |
079b 0002 | |
079c 0000 0000 | | .BLANK 0000[0x4]
07a0 001d 08a8 | | .XXX[0xa]
07a2 0000 0004 | |
07a4 001d 08e8 | |
07a6 0000 0004 | |
07a8 0002 6000 | ` |
07aa 0000 0000 | | .BLANK 0000[0x4]
07ae 0007 423a | B:| .XXX[0x12]
07b0 0000 0001 | |
07b2 0080 e4a2 | |
07b4 2880 0000 |( |
07b6 0001 0000 | |
07b8 0009 0000 | |
07ba 7e3a 0000 |~: |
07bc 0002 0000 | |
07be 0004 0098 | |
07c0 0000 0000 | | .BLANK 0000[0x9]
07c9 2070 128a | p | .XXX[0x1b]
07cb 75b1 4000 |u @ |
07cd 0040 0000 | @ |
07cf 0240 001f | @ |
07d1 8e80 0000 | |
07d3 0080 0000 | |
07d5 0100 46ee | F |
07d7 ce30 0001 | 0 |
07d9 2924 0e02 |)$ |
07db 514e 4d00 |QNM |
07dd 0000 0a07 | |
07df 0128 a73b | ( ;|
07e1 6800 0004 |h |
07e3 1000 | |
07e4 0000 0000 | | .BLANK 0000[0xb]
07ef 0004 c000 | | .XXX[0x2]
07f1 0000 0000 | | .BLANK 0000[0x8]
07f9 0103 8094 | | .XXX[0x7]
07fb 539d b400 |S |
07fd 0002 0000 | |
07ff 0012 | |