|
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: 7168 (0x1c00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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 0d60 | ` | .CONST 0x0d60 ; 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 8007 | | .CONST 0x8007 ; 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 0055 | U | .CONST 0x0055 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0008 | | .CONST 0x0008 ; Number of locals
001b INIT_0018:
001b 029f 00db | | Declare_Subprogram INIT_00d8,For_Call
001d 4800 |H | Short_Literal 0x0
001e 4803 |H | Short_Literal 0x3
001f 4801 |H | Short_Literal 0x1
0020 4806 |H | Short_Literal 0x6
0021 00e9 | | Load_Encached String_Cache
0022 035b | [ | Declare_Type Array,Constrained
0023 02a0 | | Declare_Subprogram Null_Subprogram
0024 4801 |H | Short_Literal 0x1
0025 035d | ] | Declare_Type Array,Defined
0026 00d8 | | Load_Top At_Offset_0
0027 0337 | 7 | Declare_Variable Array
0028 00d8 | | Load_Top At_Offset_0
0029 0335 | 5 | Declare_Variable Array,Duplicate
002a 00cd | | Action Spare6_Action
002b 0092 07f7 | | Action Push_String_Extended,0x7f7 ; "None "
002d e404 | | Load 0x2,0x4
002e 01d8 | | Execute Vector,Element_Type
002f 0119 | | Execute Any,Check_In_Formal_Type
0030 4800 |H | Short_Literal 0x0
0031 e405 | | Load 0x2,0x5
0032 01d6 | | Execute Vector,Field_Write
0033 0092 07f8 | | Action Push_String_Extended,0x7f8 ; "Open "
0035 e404 | | Load 0x2,0x4
0036 01d8 | | Execute Vector,Element_Type
0037 0119 | | Execute Any,Check_In_Formal_Type
0038 4801 |H | Short_Literal 0x1
0039 e405 | | Load 0x2,0x5
003a 01d6 | | Execute Vector,Field_Write
003b 0092 07f9 | | Action Push_String_Extended,0x7f9 ; "Safe "
003d e404 | | Load 0x2,0x4
003e 01d8 | | Execute Vector,Element_Type
003f 0119 | | Execute Any,Check_In_Formal_Type
0040 4802 |H | Short_Literal 0x2
0041 e405 | | Load 0x2,0x5
0042 01d6 | | Execute Vector,Field_Write
0043 0092 07fa | | Action Push_String_Extended,0x7fa ; "Secure"
0045 e404 | | Load 0x2,0x4
0046 01d8 | | Execute Vector,Element_Type
0047 0119 | | Execute Any,Check_In_Formal_Type
0048 4803 |H | Short_Literal 0x3
0049 e405 | | Load 0x2,0x5
004a 01d6 | | Execute Vector,Field_Write
004b e404 | | Load 0x2,0x4
004c 01d4 | | Execute Vector,Structure_Write
004d 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
004f 029f 0103 | | Declare_Subprogram INIT_0100,For_Call
0051 029f 011b | | Declare_Subprogram INIT_0118,For_Call
0053 029f 012b | +| Declare_Subprogram INIT_0128,For_Call
0055 BODY_0018:
0055 e5fa | | Load 0x2,-0x6
0056 684e |hN | Jump_Zero 0xa5
0057 e5f9 | | Load 0x2,-0x7
0058 e5ff | | Load 0x2,-0x1
0059 e404 | | Load 0x2,0x4
005a 01d5 | | Execute Vector,Field_Reference
005b 8002 | | Call 0x0,0x2
005c 4800 |H | Short_Literal 0x0
005d e404 | | Load 0x2,0x4
005e 01d5 | | Execute Vector,Field_Reference
005f 0092 07fb | | Action Push_String_Extended,0x7fb ; " level"
0061 01cc | | Execute Vector,Catenate
0062 4800 |H | Short_Literal 0x0
0063 4800 |H | Short_Literal 0x0
0064 8405 | | Call 0x2,0x5
0065 01cc | | Execute Vector,Catenate
0066 4801 |H | Short_Literal 0x1
0067 4800 |H | Short_Literal 0x0
0068 4800 |H | Short_Literal 0x0
0069 e5fe | | Load 0x2,-0x2
006a 4800 |H | Short_Literal 0x0
006b 8408 | | Call 0x2,0x8
006c 00cf | | Action Mark_Auxiliary
006d 4803 |H | Short_Literal 0x3
006e 4801 |H | Short_Literal 0x1
006f 0007 | | Action Break_Optional
0070 00d8 | | Load_Top At_Offset_0
0071 e404 | | Load 0x2,0x4
0072 01d5 | | Execute Vector,Field_Reference
0073 0092 07fb | | Action Push_String_Extended,0x7fb ; " level"
0075 01cc | | Execute Vector,Catenate
0076 4800 |H | Short_Literal 0x0
0077 4800 |H | Short_Literal 0x0
0078 8405 | | Call 0x2,0x5
0079 01cc | | Execute Vector,Catenate
007a 4801 |H | Short_Literal 0x1
007b 4800 |H | Short_Literal 0x0
007c 4800 |H | Short_Literal 0x0
007d e5fe | | Load 0x2,-0x2
007e e40b | | Load 0x2,0xb
007f 8408 | | Call 0x2,0x8
0080 00d8 | | Load_Top At_Offset_0
0081 e404 | | Load 0x2,0x4
0082 01d5 | | Execute Vector,Field_Reference
0083 0092 07fb | | Action Push_String_Extended,0x7fb ; " level"
0085 01cc | | Execute Vector,Catenate
0086 4800 |H | Short_Literal 0x0
0087 4801 |H | Short_Literal 0x1
0088 8405 | | Call 0x2,0x5
0089 01cc | | Execute Vector,Catenate
008a 4801 |H | Short_Literal 0x1
008b 4800 |H | Short_Literal 0x0
008c 4801 |H | Short_Literal 0x1
008d e5fe | | Load 0x2,-0x2
008e e40b | | Load 0x2,0xb
008f 8408 | | Call 0x2,0x8
0090 00d8 | | Load_Top At_Offset_0
0091 e404 | | Load 0x2,0x4
0092 01d5 | | Execute Vector,Field_Reference
0093 0092 07fb | | Action Push_String_Extended,0x7fb ; " level"
0095 01cc | | Execute Vector,Catenate
0096 4801 |H | Short_Literal 0x1
0097 4801 |H | Short_Literal 0x1
0098 8405 | | Call 0x2,0x5
0099 01cc | | Execute Vector,Catenate
009a 4801 |H | Short_Literal 0x1
009b 4801 |H | Short_Literal 0x1
009c 4801 |H | Short_Literal 0x1
009d e5fe | | Load 0x2,-0x2
009e e40b | | Load 0x2,0xb
009f 8408 | | Call 0x2,0x8
00a0 00c8 | | Action Pop_Auxiliary_Range
00a1 3fce |? | Loop_Increasing 0x70
00a2 00ce | | Action Pop_Auxiliary
00a3 8003 | | Call 0x0,0x3
00a4 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00a5 00ea | | Load_Encached Null_String_Cache
00a6 e5fb | | Load 0x2,-0x5
00a7 e5fc | | Load 0x2,-0x4
00a8 e5fd | | Load 0x2,-0x3
00a9 e5fe | | Load 0x2,-0x2
00aa e5ff | | Load 0x2,-0x1
00ab 8408 | | Call 0x2,0x8
00ac e5fb | | Load 0x2,-0x5
00ad 7027 |p' | Jump_Nonzero 0xd5
00ae 0092 07fc | | Action Push_String_Extended,0x7fc ; "!"
00b0 8406 | | Call 0x2,0x6
00b1 0092 07fd | | Action Push_String_Extended,0x7fd ; "!commands.@"
00b3 8406 | | Call 0x2,0x6
00b4 0092 07fe | | Action Push_String_Extended,0x7fe ; "!commands.abbreviations.@"
00b6 8406 | | Call 0x2,0x6
00b7 0092 07ff | | Action Push_String_Extended,0x7ff ; "!compiler_interface??"
00b9 8406 | | Call 0x2,0x6
00ba 0092 0800 | | Action Push_String_Extended,0x800 ; "!implementation??"
00bc 8406 | | Call 0x2,0x6
00bd 0092 0801 | | Action Push_String_Extended,0x801 ; "!io??"
00bf 8406 | | Call 0x2,0x6
00c0 0092 0802 | | Action Push_String_Extended,0x802 ; "!lrm??"
00c2 8406 | | Call 0x2,0x6
00c3 0092 0803 | | Action Push_String_Extended,0x803 ; "!machine@"
00c5 8406 | | Call 0x2,0x6
00c6 0092 0804 | | Action Push_String_Extended,0x804 ; "!model??"
00c8 8406 | | Call 0x2,0x6
00c9 0092 0805 | | Action Push_String_Extended,0x805 ; "!tools.@"
00cb 8406 | | Call 0x2,0x6
00cc 0092 0806 | | Action Push_String_Extended,0x806 ; "!tools.networking.@"
00ce 8406 | | Call 0x2,0x6
00cf 0092 0807 | | Action Push_String_Extended,0x807 ; "!tools.@'c(subsystem)"
00d1 8407 | | Call 0x2,0x7
00d2 0092 0808 | | Action Push_String_Extended,0x808 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
00d4 8407 | | Call 0x2,0x7
00d5 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e7ff | | Load 0x3,-0x1
00dc e004 | | Load 0x0,0x4
00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00de 011c | | Execute Any,Convert_Unchecked
00df 1c01 | | Execute_Immediate Run_Utility,0x1
00e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb e7ff | | Load 0x3,-0x1
00ec 6805 |h | Jump_Zero 0xf2
00ed e7fe | | Load 0x3,-0x2
00ee 7003 |p | Jump_Nonzero 0xf2
00ef 0092 0809 | | Action Push_String_Extended,0x809 ; " with network Read"
00f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f2 e7ff | | Load 0x3,-0x1
00f3 e7fe | | Load 0x3,-0x2
00f4 0279 | y | Execute Discrete,And
00f5 6803 |h | Jump_Zero 0xf9
00f6 0092 080a | | Action Push_String_Extended,0x80a ; " with network Read and Write"
00f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f9 00ea | | Load_Encached Null_String_Cache
00fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00fb 0000 0000 | | .BLANK 0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 0092 080b | | Action Push_String_Extended,0x80b ; "------- "
0105 e7ff | | Load 0x3,-0x1
0106 01cc | | Execute Vector,Catenate
0107 e005 | | Load 0x0,0x5
0108 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0109 e7ff | | Load 0x3,-0x1
010a e006 | | Load 0x0,0x6
010b 180f | | Execute Package,Field_Execute,Field_Number 0xf
010c 0092 080c | | Action Push_String_Extended,0x80c ; "------- defaults: "
010e e7ff | | Load 0x3,-0x1
010f 01cc | | Execute Vector,Catenate
0110 e005 | | Load 0x0,0x5
0111 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0112 e7ff | | Load 0x3,-0x1
0113 e006 | | Load 0x0,0x6
0114 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0115 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0116 0000 0000 | | .XXX[0x2]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 0092 080d | | Action Push_String_Extended,0x80d ; "+++ ++* ***"
011d 4800 |H | Short_Literal 0x0
011e e7ff | | Load 0x3,-0x1
011f 0092 080e | | Action Push_String_Extended,0x80e ; "<ALL>"
0121 e004 | | Load 0x0,0x4
0122 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0123 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 0155 | U | .CONST 0x0155 ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0012 | | .CONST 0x0012 ; Number of locals
012b INIT_0128:
012b e7ff | | Load 0x3,-0x1
012c 0f00 | | Execute_Immediate Equal,0x0
012d 00e1 | | Load_Encached Boolean_Cache
012e 03f1 | | Declare_Variable Discrete,With_Value
012f e7ff | | Load 0x3,-0x1
0130 0f01 | | Execute_Immediate Equal,0x1
0131 00e1 | | Load_Encached Boolean_Cache
0132 03f1 | | Declare_Variable Discrete,With_Value
0133 e7ff | | Load 0x3,-0x1
0134 0f02 | | Execute_Immediate Equal,0x2
0135 00e1 | | Load_Encached Boolean_Cache
0136 03f1 | | Declare_Variable Discrete,With_Value
0137 e7ff | | Load 0x3,-0x1
0138 0f03 | | Execute_Immediate Equal,0x3
0139 00e1 | | Load_Encached Boolean_Cache
013a 03f1 | | Declare_Variable Discrete,With_Value
013b 00e1 | | Load_Encached Boolean_Cache
013c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
013d 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
013f 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0141 029f 01b3 | | Declare_Subprogram INIT_01b0,For_Call
0143 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0145 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call
0147 029f 020b | | Declare_Subprogram INIT_0208,For_Call
0149 029f 021b | | Declare_Subprogram INIT_0218,For_Call
014b 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
014d 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
014f 029f 04cb | | Declare_Subprogram INIT_04c8,For_Call
0151 029f 04e3 | | Declare_Subprogram INIT_04e0,For_Call
0153 029f 063b | ;| Declare_Subprogram INIT_0638,For_Call
0155 BODY_0128:
0155 e602 | | Load 0x3,0x2
0156 e603 | | Load 0x3,0x3
0157 e604 | | Load 0x3,0x4
0158 e605 | | Load 0x3,0x5
0159 0278 | x | Execute Discrete,Or
015a 0278 | x | Execute Discrete,Or
015b 0278 | x | Execute Discrete,Or
015c 7005 |p | Jump_Nonzero 0x162
015d 0092 080f | | Action Push_String_Extended,0x80f ; "Illegal value of level parameter. Must be 0..3."
015f e005 | | Load 0x0,0x5
0160 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0161 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0162 860e | | Call 0x3,0xe
0163 8611 | | Call 0x3,0x11
0164 8610 | | Call 0x3,0x10
0165 8612 | | Call 0x3,0x12
0166 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0167 0000 | | .XXX[0x1]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0186 | | .CONST 0x0186 ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0002 | | .CONST 0x0002 ; Number of locals
016b INIT_0168:
016b 4801 |H | Short_Literal 0x1
016c e9fe | | Load 0x4,-0x2
016d e9ff | | Load 0x4,-0x1
016e 01db | | Execute Vector,Length
016f 0272 | r | Execute Discrete,Minus
0170 00d8 | | Load_Top At_Offset_0
0171 00e2 | | Load_Encached Integer_Cache
0172 0260 | ` | Execute Discrete,In_Type
0173 7001 |p | Jump_Nonzero 0x175
0174 0801 | | Execute_Immediate Raise,0x1
0175 00e9 | | Load_Encached String_Cache
0176 035b | [ | Declare_Type Array,Constrained
0177 0337 | 7 | Declare_Variable Array
0178 00d8 | | Load_Top At_Offset_0
0179 0335 | 5 | Declare_Variable Array,Duplicate
017a 00cd | | Action Spare6_Action
017b e802 | | Load 0x4,0x2
017c 01d9 | | Execute Vector,Reverse_Bounds
017d 0263 | c | Execute Discrete,Above_Bound
017e 7005 |p | Jump_Nonzero 0x184
017f 4820 |H | Short_Literal 0x20
0180 e805 | | Load 0x4,0x5
0181 e803 | | Load 0x4,0x3
0182 01d6 | | Execute Vector,Field_Write
0183 3ffb |? | Loop_Increasing 0x17f
0184 e802 | | Load 0x4,0x2
0185 01d4 | | Execute Vector,Structure_Write
0186 BODY_0168:
0186 e9ff | | Load 0x4,-0x1
0187 01db | | Execute Vector,Length
0188 e9fe | | Load 0x4,-0x2
0189 027d | } | Execute Discrete,Greater
018a 6802 |h | Jump_Zero 0x18d
018b e9ff | | Load 0x4,-0x1
018c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018d e9ff | | Load 0x4,-0x1
018e e802 | | Load 0x4,0x2
018f 01cc | | Execute Vector,Catenate
0190 00e9 | | Load_Encached String_Cache
0191 01c6 | | Execute Vector,Convert_To_Formal
0192 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019d | | .CONST 0x019d ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b 029f 079b | | Declare_Subprogram INIT_0798,For_Call
019d BODY_0198:
019d e606 | | Load 0x3,0x6
019e 6806 |h | Jump_Zero 0x1a5
019f e9ff | | Load 0x4,-0x1
01a0 0092 0810 | | Action Push_String_Extended,0x810 ; "'c(world)"
01a2 01cc | | Execute Vector,Catenate
01a3 8802 | | Call 0x4,0x2
01a4 7805 |x | Jump 0x1aa
01a5 e9ff | | Load 0x4,-0x1
01a6 0092 0811 | | Action Push_String_Extended,0x811 ; "'c(~library)"
01a8 01cc | | Execute Vector,Catenate
01a9 8802 | | Call 0x4,0x2
01aa e5fa | | Load 0x2,-0x6
01ab 6803 |h | Jump_Zero 0x1af
01ac e9fe | | Load 0x4,-0x2
01ad e9ff | | Load 0x4,-0x1
01ae 8007 | | Call 0x0,0x7
01af 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e7fb | | Load 0x3,-0x5
01b4 680e |h | Jump_Zero 0x1c3
01b5 0092 0812 | | Action Push_String_Extended,0x812 ; "Def "
01b7 4823 |H# | Short_Literal 0x23
01b8 e9ff | | Load 0x4,-0x1
01b9 8607 | | Call 0x3,0x7
01ba 01cc | | Execute Vector,Catenate
01bb 0092 0813 | | Action Push_String_Extended,0x813 ; ": "
01bd 01cc | | Execute Vector,Catenate
01be e9fe | | Load 0x4,-0x2
01bf 01cc | | Execute Vector,Catenate
01c0 e005 | | Load 0x0,0x5
01c1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01c2 7806 |x | Jump 0x1c9
01c3 0092 0814 | | Action Push_String_Extended,0x814 ; "<errors>"
01c5 e9ff | | Load 0x4,-0x1
01c6 e9fe | | Load 0x4,-0x2
01c7 e006 | | Load 0x0,0x6
01c8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01c9 e5fa | | Load 0x2,-0x6
01ca 6803 |h | Jump_Zero 0x1ce
01cb e9fe | | Load 0x4,-0x2
01cc e9ff | | Load 0x4,-0x1
01cd 8007 | | Call 0x0,0x7
01ce 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5 | | .CONST 0x01d5 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 029f 07b3 | | Declare_Subprogram INIT_07b0,For_Call
01d5 BODY_01d0:
01d5 e606 | | Load 0x3,0x6
01d6 6806 |h | Jump_Zero 0x1dd
01d7 e9ff | | Load 0x4,-0x1
01d8 0092 0810 | | Action Push_String_Extended,0x810 ; "'c(world)"
01da 01cc | | Execute Vector,Catenate
01db 8802 | | Call 0x4,0x2
01dc 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01dd e9ff | | Load 0x4,-0x1
01de 0092 0811 | | Action Push_String_Extended,0x811 ; "'c(~library)"
01e0 01cc | | Execute Vector,Catenate
01e1 8802 | | Call 0x4,0x2
01e2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e3 0000 0000 | | .BLANK 0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb e7fb | | Load 0x3,-0x5
01ec 680e |h | Jump_Zero 0x1fb
01ed 0092 0815 | | Action Push_String_Extended,0x815 ; "Add_Def "
01ef 481f |H | Short_Literal 0x1f
01f0 e9ff | | Load 0x4,-0x1
01f1 8607 | | Call 0x3,0x7
01f2 01cc | | Execute Vector,Catenate
01f3 0092 0813 | | Action Push_String_Extended,0x813 ; ": "
01f5 01cc | | Execute Vector,Catenate
01f6 e9fe | | Load 0x4,-0x2
01f7 01cc | | Execute Vector,Catenate
01f8 e005 | | Load 0x0,0x5
01f9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fb 0092 0814 | | Action Push_String_Extended,0x814 ; "<errors>"
01fd e9ff | | Load 0x4,-0x1
01fe e9fe | | Load 0x4,-0x2
01ff e006 | | Load 0x0,0x6
0200 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0201 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0202 0000 0000 | | .BLANK 0000[0x6]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 487d |H} | Short_Literal 0x7d
020c 487b |H{ | Short_Literal 0x7b
020d e9ff | | Load 0x4,-0x1
020e e008 | | Load 0x0,0x8
020f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0210 e008 | | Load 0x0,0x8
0211 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0212 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0213 0000 0000 | | .BLANK 0000[0x5]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0229 | ) | .CONST 0x0229 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0006 | | .CONST 0x0006 ; Number of locals
021b INIT_0218:
021b 48c8 |H | Short_Literal 0xc8
021c e009 | | Load 0x0,0x9
021d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
021e 1c08 | | Execute_Immediate Run_Utility,0x8
021f 00d8 | | Load_Top At_Offset_0
0220 1c00 | | Execute_Immediate Run_Utility,0x0
0221 00e1 | | Load_Encached Boolean_Cache
0222 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0223 00e1 | | Load_Encached Boolean_Cache
0224 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0225 029f 07d3 | | Declare_Subprogram INIT_07d0,For_Call
0227 029f 07eb | | Declare_Subprogram INIT_07e8,For_Call
0229 BODY_0218:
0229 e802 | | Load 0x4,0x2
022a 4820 |H | Short_Literal 0x20
022b 4800 |H | Short_Literal 0x0
022c e009 | | Load 0x0,0x9
022d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
022e 00d1 | | Pop_Control Pop_Count_1
022f e602 | | Load 0x3,0x2
0230 6825 |h% | Jump_Zero 0x256
0231 e606 | | Load 0x3,0x6
0232 6807 |h | Jump_Zero 0x23a
0233 e802 | | Load 0x4,0x2
0234 0092 0816 | | Action Push_String_Extended,0x816 ; "Network_Public=>RCO"
0236 e009 | | Load 0x0,0x9
0237 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0238 00d1 | | Pop_Control Pop_Count_1
0239 780f |x | Jump 0x249
023a e9f9 | | Load 0x4,-0x7
023b 6807 |h | Jump_Zero 0x243
023c e802 | | Load 0x4,0x2
023d 0092 0817 | | Action Push_String_Extended,0x817 ; "Network_Public=>R"
023f e009 | | Load 0x0,0x9
0240 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0241 00d1 | | Pop_Control Pop_Count_1
0242 7806 |x | Jump 0x249
0243 e802 | | Load 0x4,0x2
0244 0092 0818 | | Action Push_String_Extended,0x818 ; "Network_Public=>RW"
0246 e009 | | Load 0x0,0x9
0247 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0248 00d1 | | Pop_Control Pop_Count_1
0249 e9fd | | Load 0x4,-0x3
024a 01db | | Execute Vector,Length
024b 6806 |h | Jump_Zero 0x252
024c 0092 0819 | | Action Push_String_Extended,0x819 ; "System=>"
024e e9fd | | Load 0x4,-0x3
024f 860c | | Call 0x3,0xc
0250 01cc | | Execute Vector,Catenate
0251 8805 | | Call 0x4,0x5
0252 e802 | | Load 0x4,0x2
0253 e009 | | Load 0x0,0x9
0254 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0255 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0256 e9ff | | Load 0x4,-0x1
0257 01db | | Execute Vector,Length
0258 6810 |h | Jump_Zero 0x269
0259 e9ff | | Load 0x4,-0x1
025a 01dd | | Execute Vector,First
025b e9ff | | Load 0x4,-0x1
025c 01d7 | | Execute Vector,Field_Read
025d 0e7b | { | Execute_Immediate Not_Equal,0x7b
025e 7002 |p | Jump_Nonzero 0x261
025f e605 | | Load 0x3,0x5
0260 7008 |p | Jump_Nonzero 0x269
0261 0092 081a | | Action Push_String_Extended,0x81a ; "Public=>"
0263 e9ff | | Load 0x4,-0x1
0264 860c | | Call 0x3,0xc
0265 01cc | | Execute Vector,Catenate
0266 8805 | | Call 0x4,0x5
0267 4801 |H | Short_Literal 0x1
0268 a803 | | Store_Unchecked 0x4,0x3
0269 e603 | | Load 0x3,0x3
026a 6818 |h | Jump_Zero 0x283
026b e9fe | | Load 0x4,-0x2
026c 01db | | Execute Vector,Length
026d 6815 |h | Jump_Zero 0x283
026e e9fe | | Load 0x4,-0x2
026f 01dd | | Execute Vector,First
0270 e9fe | | Load 0x4,-0x2
0271 01d7 | | Execute Vector,Field_Read
0272 0e7b | { | Execute_Immediate Not_Equal,0x7b
0273 7002 |p | Jump_Nonzero 0x276
0274 e605 | | Load 0x3,0x5
0275 700d |p | Jump_Nonzero 0x283
0276 e803 | | Load 0x4,0x3
0277 7005 |p | Jump_Nonzero 0x27d
0278 0092 081a | | Action Push_String_Extended,0x81a ; "Public=>"
027a 8805 | | Call 0x4,0x5
027b 4801 |H | Short_Literal 0x1
027c a803 | | Store_Unchecked 0x4,0x3
027d e802 | | Load 0x4,0x2
027e e9fe | | Load 0x4,-0x2
027f 860c | | Call 0x3,0xc
0280 e009 | | Load 0x0,0x9
0281 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0282 00d1 | | Pop_Control Pop_Count_1
0283 e9fd | | Load 0x4,-0x3
0284 01db | | Execute Vector,Length
0285 680e |h | Jump_Zero 0x294
0286 e9fd | | Load 0x4,-0x3
0287 01dd | | Execute Vector,First
0288 e9fd | | Load 0x4,-0x3
0289 01d7 | | Execute Vector,Field_Read
028a 0e7b | { | Execute_Immediate Not_Equal,0x7b
028b 7002 |p | Jump_Nonzero 0x28e
028c e605 | | Load 0x3,0x5
028d 7006 |p | Jump_Nonzero 0x294
028e 0092 0819 | | Action Push_String_Extended,0x819 ; "System=>"
0290 e9fd | | Load 0x4,-0x3
0291 860c | | Call 0x3,0xc
0292 01cc | | Execute Vector,Catenate
0293 8805 | | Call 0x4,0x5
0294 e9fa | | Load 0x4,-0x6
0295 01db | | Execute Vector,Length
0296 6806 |h | Jump_Zero 0x29d
0297 0092 081b | | Action Push_String_Extended,0x81b ; "Operator=>"
0299 e9fa | | Load 0x4,-0x6
029a 860c | | Call 0x3,0xc
029b 01cc | | Execute Vector,Catenate
029c 8805 | | Call 0x4,0x5
029d e9f8 | | Load 0x4,-0x8
029e 01db | | Execute Vector,Length
029f 6802 |h | Jump_Zero 0x2a2
02a0 e9f8 | | Load 0x4,-0x8
02a1 8806 | | Call 0x4,0x6
02a2 e7fd | | Load 0x3,-0x3
02a3 680e |h | Jump_Zero 0x2b2
02a4 e9fc | | Load 0x4,-0x4
02a5 01db | | Execute Vector,Length
02a6 680b |h | Jump_Zero 0x2b2
02a7 e9fc | | Load 0x4,-0x4
02a8 01dd | | Execute Vector,First
02a9 e9fc | | Load 0x4,-0x4
02aa 01d7 | | Execute Vector,Field_Read
02ab 0e7b | { | Execute_Immediate Not_Equal,0x7b
02ac 7002 |p | Jump_Nonzero 0x2af
02ad e605 | | Load 0x3,0x5
02ae 7003 |p | Jump_Nonzero 0x2b2
02af e9fc | | Load 0x4,-0x4
02b0 860c | | Call 0x3,0xc
02b1 8806 | | Call 0x4,0x6
02b2 e7fc | | Load 0x3,-0x4
02b3 680e |h | Jump_Zero 0x2c2
02b4 e9fb | | Load 0x4,-0x5
02b5 01db | | Execute Vector,Length
02b6 680b |h | Jump_Zero 0x2c2
02b7 e9fb | | Load 0x4,-0x5
02b8 01dd | | Execute Vector,First
02b9 e9fb | | Load 0x4,-0x5
02ba 01d7 | | Execute Vector,Field_Read
02bb 0e7b | { | Execute_Immediate Not_Equal,0x7b
02bc 7002 |p | Jump_Nonzero 0x2bf
02bd e605 | | Load 0x3,0x5
02be 7003 |p | Jump_Nonzero 0x2c2
02bf e9fb | | Load 0x4,-0x5
02c0 860c | | Call 0x3,0xc
02c1 8806 | | Call 0x4,0x6
02c2 e802 | | Load 0x4,0x2
02c3 e009 | | Load 0x0,0x9
02c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c5 800a | | Call 0x0,0xa
02c6 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
02c7 0000 | | .XXX[0x1]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 4801 |H | Short_Literal 0x1
02cc a606 | | Store_Unchecked 0x3,0x6
02cd e5fa | | Load 0x2,-0x6
02ce 6804 |h | Jump_Zero 0x2d3
02cf e7fa | | Load 0x3,-0x6
02d0 0092 081c | | Action Push_String_Extended,0x81c ; "World ACL's"
02d2 800b | | Call 0x0,0xb
02d3 0092 081d | | Action Push_String_Extended,0x81d ; "R"
02d5 4800 |H | Short_Literal 0x0
02d6 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
02d8 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
02da 0092 081d | | Action Push_String_Extended,0x81d ; "R"
02dc 00ea | | Load_Encached Null_String_Cache
02dd 0092 0820 | | Action Push_String_Extended,0x820 ; "CO"
02df 0092 081d | | Action Push_String_Extended,0x81d ; "R"
02e1 860d | | Call 0x3,0xd
02e2 0092 07fc | | Action Push_String_Extended,0x7fc ; "!"
02e4 8608 | | Call 0x3,0x8
02e5 00ea | | Load_Encached Null_String_Cache
02e6 4800 |H | Short_Literal 0x0
02e7 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
02e9 00ea | | Load_Encached Null_String_Cache
02ea 0092 081d | | Action Push_String_Extended,0x81d ; "R"
02ec 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
02ee 00ea | | Load_Encached Null_String_Cache
02ef 0092 081d | | Action Push_String_Extended,0x81d ; "R"
02f1 860d | | Call 0x3,0xd
02f2 0092 0821 | !| Action Push_String_Extended,0x821 ; "![Commands,Io,Lrm,Model??]"
02f4 8608 | | Call 0x3,0x8
02f5 0092 081d | | Action Push_String_Extended,0x81d ; "R"
02f7 4800 |H | Short_Literal 0x0
02f8 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
02fa 00ea | | Load_Encached Null_String_Cache
02fb 0092 081d | | Action Push_String_Extended,0x81d ; "R"
02fd 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
02ff 00ea | | Load_Encached Null_String_Cache
0300 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0302 860d | | Call 0x3,0xd
0303 0092 0822 | "| Action Push_String_Extended,0x822 ; "!tools"
0305 8608 | | Call 0x3,0x8
0306 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0308 4800 |H | Short_Literal 0x0
0309 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
030b 00ea | | Load_Encached Null_String_Cache
030c 00ea | | Load_Encached Null_String_Cache
030d 00ea | | Load_Encached Null_String_Cache
030e 00ea | | Load_Encached Null_String_Cache
030f 00ea | | Load_Encached Null_String_Cache
0310 860d | | Call 0x3,0xd
0311 0092 0823 | #| Action Push_String_Extended,0x823 ; "!compiler_interface"
0313 8608 | | Call 0x3,0x8
0314 00ea | | Load_Encached Null_String_Cache
0315 4800 |H | Short_Literal 0x0
0316 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
0318 00ea | | Load_Encached Null_String_Cache
0319 0092 081d | | Action Push_String_Extended,0x81d ; "R"
031b 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
031d 00ea | | Load_Encached Null_String_Cache
031e 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0320 860d | | Call 0x3,0xd
0321 0092 0824 | $| Action Push_String_Extended,0x824 ; "!commands.abbreviations"
0323 8608 | | Call 0x3,0x8
0324 e7fe | | Load 0x3,-0x2
0325 6810 |h | Jump_Zero 0x336
0326 00ea | | Load_Encached Null_String_Cache
0327 4801 |H | Short_Literal 0x1
0328 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
032a 00ea | | Load_Encached Null_String_Cache
032b 0092 081d | | Action Push_String_Extended,0x81d ; "R"
032d 00ea | | Load_Encached Null_String_Cache
032e 00ea | | Load_Encached Null_String_Cache
032f 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0331 860d | | Call 0x3,0xd
0332 0092 0825 | %| Action Push_String_Extended,0x825 ; "!Implementation"
0334 8608 | | Call 0x3,0x8
0335 780d |x | Jump 0x343
0336 00ea | | Load_Encached Null_String_Cache
0337 4801 |H | Short_Literal 0x1
0338 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
033a 00ea | | Load_Encached Null_String_Cache
033b 00ea | | Load_Encached Null_String_Cache
033c 00ea | | Load_Encached Null_String_Cache
033d 00ea | | Load_Encached Null_String_Cache
033e 00ea | | Load_Encached Null_String_Cache
033f 860d | | Call 0x3,0xd
0340 0092 0825 | %| Action Push_String_Extended,0x825 ; "!Implementation"
0342 8608 | | Call 0x3,0x8
0343 00ea | | Load_Encached Null_String_Cache
0344 4800 |H | Short_Literal 0x0
0345 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
0347 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
0349 0092 081d | | Action Push_String_Extended,0x81d ; "R"
034b 00ea | | Load_Encached Null_String_Cache
034c 0092 0820 | | Action Push_String_Extended,0x820 ; "CO"
034e 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0350 860d | | Call 0x3,0xd
0351 0092 0826 | &| Action Push_String_Extended,0x826 ; "!users"
0353 8608 | | Call 0x3,0x8
0354 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
0356 4800 |H | Short_Literal 0x0
0357 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
0359 00ea | | Load_Encached Null_String_Cache
035a 00ea | | Load_Encached Null_String_Cache
035b 00ea | | Load_Encached Null_String_Cache
035c 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
035e 00ea | | Load_Encached Null_String_Cache
035f 860d | | Call 0x3,0xd
0360 0092 0827 | '| Action Push_String_Extended,0x827 ; "!machine"
0362 8608 | | Call 0x3,0x8
0363 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0365 4800 |H | Short_Literal 0x0
0366 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
0368 00ea | | Load_Encached Null_String_Cache
0369 00ea | | Load_Encached Null_String_Cache
036a 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
036c 00ea | | Load_Encached Null_String_Cache
036d 00ea | | Load_Encached Null_String_Cache
036e 860d | | Call 0x3,0xd
036f 0092 0828 | (| Action Push_String_Extended,0x828 ; "!machine.[cg_data,devices,editor_data]"
0371 8608 | | Call 0x3,0x8
0372 00ea | | Load_Encached Null_String_Cache
0373 4800 |H | Short_Literal 0x0
0374 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
0376 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
0378 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
037a 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
037c 0092 082b | +| Action Push_String_Extended,0x82b ; "{CO}"
037e 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0380 860d | | Call 0x3,0xd
0381 0092 082c | ,| Action Push_String_Extended,0x82c ; "!machine.accounting"
0383 8608 | | Call 0x3,0x8
0384 00ea | | Load_Encached Null_String_Cache
0385 4800 |H | Short_Literal 0x0
0386 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
0388 00ea | | Load_Encached Null_String_Cache
0389 00ea | | Load_Encached Null_String_Cache
038a 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
038c 0092 082d | -| Action Push_String_Extended,0x82d ; "{RCO}"
038e 00ea | | Load_Encached Null_String_Cache
038f 860d | | Call 0x3,0xd
0390 0092 082e | .| Action Push_String_Extended,0x82e ; "!machine.[initialization,initialization.[rational,site]]"
0392 8608 | | Call 0x3,0x8
0393 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
0395 4800 |H | Short_Literal 0x0
0396 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
0398 00ea | | Load_Encached Null_String_Cache
0399 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
039b 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
039d 0092 082d | -| Action Push_String_Extended,0x82d ; "{RCO}"
039f 00ea | | Load_Encached Null_String_Cache
03a0 860d | | Call 0x3,0xd
03a1 0092 082f | /| Action Push_String_Extended,0x82f ; "!machine.error_logs"
03a3 8608 | | Call 0x3,0x8
03a4 0092 081d | | Action Push_String_Extended,0x81d ; "R"
03a6 4800 |H | Short_Literal 0x0
03a7 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
03a9 00ea | | Load_Encached Null_String_Cache
03aa 00ea | | Load_Encached Null_String_Cache
03ab 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
03ad 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
03af 00ea | | Load_Encached Null_String_Cache
03b0 860d | | Call 0x3,0xd
03b1 0092 0830 | 0| Action Push_String_Extended,0x830 ; "!machine.[groups,users]"
03b3 8608 | | Call 0x3,0x8
03b4 00ea | | Load_Encached Null_String_Cache
03b5 4800 |H | Short_Literal 0x0
03b6 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
03b8 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
03ba 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
03bc 00ea | | Load_Encached Null_String_Cache
03bd 0092 082b | +| Action Push_String_Extended,0x82b ; "{CO}"
03bf 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
03c1 860d | | Call 0x3,0xd
03c2 0092 0831 | 1| Action Push_String_Extended,0x831 ; "!Machine.[Mail,Transfer].??"
03c4 8608 | | Call 0x3,0x8
03c5 0092 081d | | Action Push_String_Extended,0x81d ; "R"
03c7 4800 |H | Short_Literal 0x0
03c8 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
03ca 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
03cc 0092 081d | | Action Push_String_Extended,0x81d ; "R"
03ce 00ea | | Load_Encached Null_String_Cache
03cf 0092 082d | -| Action Push_String_Extended,0x82d ; "{RCO}"
03d1 00ea | | Load_Encached Null_String_Cache
03d2 860d | | Call 0x3,0xd
03d3 0092 0832 | 2| Action Push_String_Extended,0x832 ; "!machine.release??"
03d5 8608 | | Call 0x3,0x8
03d6 00ea | | Load_Encached Null_String_Cache
03d7 4800 |H | Short_Literal 0x0
03d8 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
03da 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
03dc 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
03de 0092 081d | | Action Push_String_Extended,0x81d ; "R"
03e0 0092 0833 | 3| Action Push_String_Extended,0x833 ; "O"
03e2 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
03e4 860d | | Call 0x3,0xd
03e5 0092 0834 | 4| Action Push_String_Extended,0x834 ; "!machine.search_lists"
03e7 8608 | | Call 0x3,0x8
03e8 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
03ea 4800 |H | Short_Literal 0x0
03eb 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
03ed 00ea | | Load_Encached Null_String_Cache
03ee 00ea | | Load_Encached Null_String_Cache
03ef 00ea | | Load_Encached Null_String_Cache
03f0 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
03f2 00ea | | Load_Encached Null_String_Cache
03f3 860d | | Call 0x3,0xd
03f4 0092 0835 | 5| Action Push_String_Extended,0x835 ; "!machine.temporary"
03f6 8608 | | Call 0x3,0x8
03f7 00ea | | Load_Encached Null_String_Cache
03f8 4800 |H | Short_Literal 0x0
03f9 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
03fb 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
03fd 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
03ff 00ea | | Load_Encached Null_String_Cache
0400 0092 0833 | 3| Action Push_String_Extended,0x833 ; "O"
0402 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
0404 860d | | Call 0x3,0xd
0405 0092 0836 | 6| Action Push_String_Extended,0x836 ; "!machine.[sims,sims.master,sims.to_rational]"
0407 8608 | | Call 0x3,0x8
0408 00ea | | Load_Encached Null_String_Cache
0409 4800 |H | Short_Literal 0x0
040a 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
040c 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
040e 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0410 00ea | | Load_Encached Null_String_Cache
0411 0092 0837 | 7| Action Push_String_Extended,0x837 ; "{O}"
0413 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
0415 860d | | Call 0x3,0xd
0416 0092 0838 | 8| Action Push_String_Extended,0x838 ; "!machine.sims.[database,detail]??"
0418 8608 | | Call 0x3,0x8
0419 00ea | | Load_Encached Null_String_Cache
041a 4800 |H | Short_Literal 0x0
041b 0092 081e | | Action Push_String_Extended,0x81e ; "RCO"
041d 0092 0829 | )| Action Push_String_Extended,0x829 ; "{RC}"
041f 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0421 00ea | | Load_Encached Null_String_Cache
0422 0092 0837 | 7| Action Push_String_Extended,0x837 ; "{O}"
0424 0092 081f | | Action Push_String_Extended,0x81f ; "RC"
0426 860d | | Call 0x3,0xd
0427 0092 0839 | 9| Action Push_String_Extended,0x839 ; "!machine.sims.to_rational??"
0429 8608 | | Call 0x3,0x8
042a 0092 083a | :| Action Push_String_Extended,0x83a ; "Mailer=>RCO"
042c 0092 083b | ;| Action Push_String_Extended,0x83b ; "!Machine.[Mail,Transfer]??"
042e 860a | | Call 0x3,0xa
042f 0092 083c | <| Action Push_String_Extended,0x83c ; "Mailer=>R"
0431 0092 083d | =| Action Push_String_Extended,0x83d ; "!Users.@.Mailbox.Main_Set.[$,$^,$^^]"
0433 860a | | Call 0x3,0xa
0434 e5fa | | Load 0x2,-0x6
0435 6801 |h | Jump_Zero 0x437
0436 800c | | Call 0x0,0xc
0437 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e602 | | Load 0x3,0x2
043c 6824 |h$ | Jump_Zero 0x461
043d e7fb | | Load 0x3,-0x5
043e 680c |h | Jump_Zero 0x44b
043f 0092 0812 | | Action Push_String_Extended,0x812 ; "Def "
0441 4823 |H# | Short_Literal 0x23
0442 e9ff | | Load 0x4,-0x1
0443 8607 | | Call 0x3,0x7
0444 01cc | | Execute Vector,Catenate
0445 0092 083e | >| Action Push_String_Extended,0x83e ; ": Network_Public=>OWNER"
0447 01cc | | Execute Vector,Catenate
0448 e005 | | Load 0x0,0x5
0449 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
044a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
044b 0092 083f | ?| Action Push_String_Extended,0x83f ; "*** ++*"
044d e9ff | | Load 0x4,-0x1
044e e004 | | Load 0x0,0x4
044f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0450 0092 083f | ?| Action Push_String_Extended,0x83f ; "*** ++*"
0452 e9ff | | Load 0x4,-0x1
0453 0092 080e | | Action Push_String_Extended,0x80e ; "<ALL>"
0455 e004 | | Load 0x0,0x4
0456 180f | | Execute Package,Field_Execute,Field_Number 0xf
0457 0092 0840 | @| Action Push_String_Extended,0x840 ; "++* ***"
0459 4801 |H | Short_Literal 0x1
045a e9ff | | Load 0x4,-0x1
045b 4803 |H | Short_Literal 0x3
045c 0092 0841 | A| Action Push_String_Extended,0x841 ; "network_public"
045e e004 | | Load 0x0,0x4
045f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0460 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0461 e7fb | | Load 0x3,-0x5
0462 682d |h- | Jump_Zero 0x490
0463 0092 0812 | | Action Push_String_Extended,0x812 ; "Def "
0465 4823 |H# | Short_Literal 0x23
0466 e9ff | | Load 0x4,-0x1
0467 8607 | | Call 0x3,0x7
0468 01cc | | Execute Vector,Catenate
0469 0092 0842 | B| Action Push_String_Extended,0x842 ; ": Public=>"
046b 01cc | | Execute Vector,Catenate
046c e9fe | | Load 0x4,-0x2
046d e004 | | Load 0x0,0x4
046e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
046f 011c | | Execute Any,Convert_Unchecked
0470 1c01 | | Execute_Immediate Run_Utility,0x1
0471 01cc | | Execute Vector,Catenate
0472 0092 0843 | C| Action Push_String_Extended,0x843 ; ", System=>"
0474 01cc | | Execute Vector,Catenate
0475 e9fd | | Load 0x4,-0x3
0476 e004 | | Load 0x0,0x4
0477 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0478 011c | | Execute Any,Convert_Unchecked
0479 1c01 | | Execute_Immediate Run_Utility,0x1
047a 01cc | | Execute Vector,Catenate
047b 0092 0844 | D| Action Push_String_Extended,0x844 ; ", Operator=>"
047d 01cc | | Execute Vector,Catenate
047e e9fc | | Load 0x4,-0x4
047f e004 | | Load 0x0,0x4
0480 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0481 011c | | Execute Any,Convert_Unchecked
0482 1c01 | | Execute_Immediate Run_Utility,0x1
0483 01cc | | Execute Vector,Catenate
0484 0092 0845 | E| Action Push_String_Extended,0x845 ; ", Network_Public=>"
0486 01cc | | Execute Vector,Catenate
0487 e9fb | | Load 0x4,-0x5
0488 e004 | | Load 0x0,0x4
0489 1b0d | | Execute Package,Field_Read,Field_Number 0xd
048a 011c | | Execute Any,Convert_Unchecked
048b 1c01 | | Execute_Immediate Run_Utility,0x1
048c 01cc | | Execute Vector,Catenate
048d e005 | | Load 0x0,0x5
048e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
048f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0490 0092 0840 | @| Action Push_String_Extended,0x840 ; "++* ***"
0492 e9ff | | Load 0x4,-0x1
0493 e004 | | Load 0x0,0x4
0494 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0495 0092 0846 | F| Action Push_String_Extended,0x846 ; "***"
0497 e9ff | | Load 0x4,-0x1
0498 0092 080e | | Action Push_String_Extended,0x80e ; "<ALL>"
049a e004 | | Load 0x0,0x4
049b 180f | | Execute Package,Field_Execute,Field_Number 0xf
049c 0092 0840 | @| Action Push_String_Extended,0x840 ; "++* ***"
049e 4801 |H | Short_Literal 0x1
049f e9ff | | Load 0x4,-0x1
04a0 e9fe | | Load 0x4,-0x2
04a1 0092 0847 | G| Action Push_String_Extended,0x847 ; "public"
04a3 e004 | | Load 0x0,0x4
04a4 180e | | Execute Package,Field_Execute,Field_Number 0xe
04a5 0092 0840 | @| Action Push_String_Extended,0x840 ; "++* ***"
04a7 4801 |H | Short_Literal 0x1
04a8 e9ff | | Load 0x4,-0x1
04a9 e9fd | | Load 0x4,-0x3
04aa 0092 0848 | H| Action Push_String_Extended,0x848 ; "system"
04ac e004 | | Load 0x0,0x4
04ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
04ae 0092 0840 | @| Action Push_String_Extended,0x840 ; "++* ***"
04b0 4801 |H | Short_Literal 0x1
04b1 e9ff | | Load 0x4,-0x1
04b2 e9fc | | Load 0x4,-0x4
04b3 0092 0849 | I| Action Push_String_Extended,0x849 ; "operator"
04b5 e004 | | Load 0x0,0x4
04b6 180e | | Execute Package,Field_Execute,Field_Number 0xe
04b7 0092 0840 | @| Action Push_String_Extended,0x840 ; "++* ***"
04b9 4801 |H | Short_Literal 0x1
04ba e9ff | | Load 0x4,-0x1
04bb e9fb | | Load 0x4,-0x5
04bc 0092 0841 | A| Action Push_String_Extended,0x841 ; "network_public"
04be e004 | | Load 0x0,0x4
04bf 180e | | Execute Package,Field_Execute,Field_Number 0xe
04c0 4506 |E | Exit_Suprogram New_Top_Offset 0x6
04c1 0000 0000 | | .BLANK 0000[0x7]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cb | | .CONST 0x04cb ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0001 | | .CONST 0x0001 ; Number of locals
04cb BODY_04c8:
04cb INIT_04c8:
04cb 4800 |H | Short_Literal 0x0
04cc 4803 |H | Short_Literal 0x3
04cd 4802 |H | Short_Literal 0x2
04ce 4801 |H | Short_Literal 0x1
04cf 0092 0807 | | Action Push_String_Extended,0x807 ; "!tools.@'c(subsystem)"
04d1 860f | | Call 0x3,0xf
04d2 4800 |H | Short_Literal 0x0
04d3 4803 |H | Short_Literal 0x3
04d4 4802 |H | Short_Literal 0x2
04d5 4801 |H | Short_Literal 0x1
04d6 0092 0808 | | Action Push_String_Extended,0x808 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
04d8 860f | | Call 0x3,0xf
04d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04da 0000 0000 | | .BLANK 0000[0x6]
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 4800 |H | Short_Literal 0x0
04e4 a606 | | Store_Unchecked 0x3,0x6
04e5 e5fa | | Load 0x2,-0x6
04e6 6804 |h | Jump_Zero 0x4eb
04e7 e7fa | | Load 0x3,-0x6
04e8 0092 084a | J| Action Push_String_Extended,0x84a ; "World Default ACL's"
04ea 800b | | Call 0x0,0xb
04eb 00ea | | Load_Encached Null_String_Cache
04ec 4800 |H | Short_Literal 0x0
04ed 00ea | | Load_Encached Null_String_Cache
04ee 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
04f0 0092 081d | | Action Push_String_Extended,0x81d ; "R"
04f2 00ea | | Load_Encached Null_String_Cache
04f3 00ea | | Load_Encached Null_String_Cache
04f4 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
04f6 860d | | Call 0x3,0xd
04f7 0092 07fc | | Action Push_String_Extended,0x7fc ; "!"
04f9 8609 | | Call 0x3,0x9
04fa 00ea | | Load_Encached Null_String_Cache
04fb 4800 |H | Short_Literal 0x0
04fc 00ea | | Load_Encached Null_String_Cache
04fd 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
04ff 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0501 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0503 00ea | | Load_Encached Null_String_Cache
0504 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0506 860d | | Call 0x3,0xd
0507 0092 084c | L| Action Push_String_Extended,0x84c ; "![commands,implementation,io,lrm,tools]"
0509 8609 | | Call 0x3,0x9
050a 00ea | | Load_Encached Null_String_Cache
050b 4800 |H | Short_Literal 0x0
050c 00ea | | Load_Encached Null_String_Cache
050d 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
050f 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0511 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0513 00ea | | Load_Encached Null_String_Cache
0514 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0516 860d | | Call 0x3,0xd
0517 0092 0823 | #| Action Push_String_Extended,0x823 ; "!compiler_interface"
0519 8609 | | Call 0x3,0x9
051a 00ea | | Load_Encached Null_String_Cache
051b 4800 |H | Short_Literal 0x0
051c 00ea | | Load_Encached Null_String_Cache
051d 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
051f 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0521 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0523 00ea | | Load_Encached Null_String_Cache
0524 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0526 860d | | Call 0x3,0xd
0527 0092 0824 | $| Action Push_String_Extended,0x824 ; "!commands.abbreviations"
0529 8609 | | Call 0x3,0x9
052a 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
052c 4800 |H | Short_Literal 0x0
052d 00ea | | Load_Encached Null_String_Cache
052e 00ea | | Load_Encached Null_String_Cache
052f 00ea | | Load_Encached Null_String_Cache
0530 00ea | | Load_Encached Null_String_Cache
0531 00ea | | Load_Encached Null_String_Cache
0532 00ea | | Load_Encached Null_String_Cache
0533 860d | | Call 0x3,0xd
0534 0092 0827 | '| Action Push_String_Extended,0x827 ; "!machine"
0536 8609 | | Call 0x3,0x9
0537 00ea | | Load_Encached Null_String_Cache
0538 4800 |H | Short_Literal 0x0
0539 00ea | | Load_Encached Null_String_Cache
053a 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
053c 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
053e 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0540 00ea | | Load_Encached Null_String_Cache
0541 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0543 860d | | Call 0x3,0xd
0544 0092 084e | N| Action Push_String_Extended,0x84e ; "!Machine.accounting"
0546 8609 | | Call 0x3,0x9
0547 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0549 4800 |H | Short_Literal 0x0
054a 00ea | | Load_Encached Null_String_Cache
054b 00ea | | Load_Encached Null_String_Cache
054c 00ea | | Load_Encached Null_String_Cache
054d 00ea | | Load_Encached Null_String_Cache
054e 00ea | | Load_Encached Null_String_Cache
054f 00ea | | Load_Encached Null_String_Cache
0550 860d | | Call 0x3,0xd
0551 0092 084f | O| Action Push_String_Extended,0x84f ; "!Machine.Error_Logs"
0553 8609 | | Call 0x3,0x9
0554 00ea | | Load_Encached Null_String_Cache
0555 4800 |H | Short_Literal 0x0
0556 00ea | | Load_Encached Null_String_Cache
0557 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
0559 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
055b 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
055d 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
055f 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0561 860d | | Call 0x3,0xd
0562 0092 0850 | P| Action Push_String_Extended,0x850 ; "!Machine.[initialization,initialization.[site,rational]]"
0564 8609 | | Call 0x3,0x9
0565 00ea | | Load_Encached Null_String_Cache
0566 4800 |H | Short_Literal 0x0
0567 00ea | | Load_Encached Null_String_Cache
0568 00ea | | Load_Encached Null_String_Cache
0569 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
056b 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
056d 00ea | | Load_Encached Null_String_Cache
056e 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0570 860d | | Call 0x3,0xd
0571 0092 0851 | Q| Action Push_String_Extended,0x851 ; "!Machine.[cg_data,devices,editor_data]"
0573 8609 | | Call 0x3,0x9
0574 00ea | | Load_Encached Null_String_Cache
0575 4800 |H | Short_Literal 0x0
0576 00ea | | Load_Encached Null_String_Cache
0577 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0579 0092 081d | | Action Push_String_Extended,0x81d ; "R"
057b 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
057d 00ea | | Load_Encached Null_String_Cache
057e 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0580 860d | | Call 0x3,0xd
0581 0092 0852 | R| Action Push_String_Extended,0x852 ; "!Machine.[groups,users]"
0583 8609 | | Call 0x3,0x9
0584 00ea | | Load_Encached Null_String_Cache
0585 4800 |H | Short_Literal 0x0
0586 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0588 0092 0853 | S| Action Push_String_Extended,0x853 ; "{W}"
058a 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
058c 00ea | | Load_Encached Null_String_Cache
058d 0092 0853 | S| Action Push_String_Extended,0x853 ; "{W}"
058f 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0591 860d | | Call 0x3,0xd
0592 0092 0854 | T| Action Push_String_Extended,0x854 ; "!Machine.[Mail,Transfer].[??,~Distribute]'c(world)"
0594 8609 | | Call 0x3,0x9
0595 00ea | | Load_Encached Null_String_Cache
0596 4800 |H | Short_Literal 0x0
0597 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0599 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
059b 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
059d 00ea | | Load_Encached Null_String_Cache
059e 0092 0853 | S| Action Push_String_Extended,0x853 ; "{W}"
05a0 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
05a2 860d | | Call 0x3,0xd
05a3 0092 0855 | U| Action Push_String_Extended,0x855 ; "!Machine.[Mail,Transfer].Distribute'c(world)"
05a5 8609 | | Call 0x3,0x9
05a6 00ea | | Load_Encached Null_String_Cache
05a7 4800 |H | Short_Literal 0x0
05a8 00ea | | Load_Encached Null_String_Cache
05a9 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
05ab 0092 081d | | Action Push_String_Extended,0x81d ; "R"
05ad 00ea | | Load_Encached Null_String_Cache
05ae 00ea | | Load_Encached Null_String_Cache
05af 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
05b1 860d | | Call 0x3,0xd
05b2 0092 0856 | V| Action Push_String_Extended,0x856 ; "!Machine.Release??'c(world)"
05b4 8609 | | Call 0x3,0x9
05b5 00ea | | Load_Encached Null_String_Cache
05b6 4800 |H | Short_Literal 0x0
05b7 00ea | | Load_Encached Null_String_Cache
05b8 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
05ba 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
05bc 0092 081d | | Action Push_String_Extended,0x81d ; "R"
05be 00ea | | Load_Encached Null_String_Cache
05bf 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
05c1 860d | | Call 0x3,0xd
05c2 0092 0857 | W| Action Push_String_Extended,0x857 ; "!Machine.Search_Lists"
05c4 8609 | | Call 0x3,0x9
05c5 00ea | | Load_Encached Null_String_Cache
05c6 4800 |H | Short_Literal 0x0
05c7 00ea | | Load_Encached Null_String_Cache
05c8 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
05ca 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
05cc 00ea | | Load_Encached Null_String_Cache
05cd 00ea | | Load_Encached Null_String_Cache
05ce 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
05d0 860d | | Call 0x3,0xd
05d1 0092 0858 | X| Action Push_String_Extended,0x858 ; "!machine.sims"
05d3 8609 | | Call 0x3,0x9
05d4 00ea | | Load_Encached Null_String_Cache
05d5 4800 |H | Short_Literal 0x0
05d6 00ea | | Load_Encached Null_String_Cache
05d7 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
05d9 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
05db 00ea | | Load_Encached Null_String_Cache
05dc 00ea | | Load_Encached Null_String_Cache
05dd 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
05df 860d | | Call 0x3,0xd
05e0 0092 0859 | Y| Action Push_String_Extended,0x859 ; "!machine.sims.master"
05e2 8609 | | Call 0x3,0x9
05e3 00ea | | Load_Encached Null_String_Cache
05e4 4800 |H | Short_Literal 0x0
05e5 00ea | | Load_Encached Null_String_Cache
05e6 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
05e8 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
05ea 00ea | | Load_Encached Null_String_Cache
05eb 00ea | | Load_Encached Null_String_Cache
05ec 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
05ee 860d | | Call 0x3,0xd
05ef 0092 085a | Z| Action Push_String_Extended,0x85a ; "!Machine.sims.[database,detail]"
05f1 8609 | | Call 0x3,0x9
05f2 00ea | | Load_Encached Null_String_Cache
05f3 4800 |H | Short_Literal 0x0
05f4 00ea | | Load_Encached Null_String_Cache
05f5 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
05f7 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
05f9 00ea | | Load_Encached Null_String_Cache
05fa 00ea | | Load_Encached Null_String_Cache
05fb 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
05fd 860d | | Call 0x3,0xd
05fe 0092 085b | [| Action Push_String_Extended,0x85b ; "!Machine.sims.to_rational.@'c(world)"
0600 8609 | | Call 0x3,0x9
0601 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0603 4800 |H | Short_Literal 0x0
0604 00ea | | Load_Encached Null_String_Cache
0605 00ea | | Load_Encached Null_String_Cache
0606 00ea | | Load_Encached Null_String_Cache
0607 00ea | | Load_Encached Null_String_Cache
0608 00ea | | Load_Encached Null_String_Cache
0609 00ea | | Load_Encached Null_String_Cache
060a 860d | | Call 0x3,0xd
060b 0092 085c | \| Action Push_String_Extended,0x85c ; "!Machine.Temporary"
060d 8609 | | Call 0x3,0x9
060e 00ea | | Load_Encached Null_String_Cache
060f 4800 |H | Short_Literal 0x0
0610 00ea | | Load_Encached Null_String_Cache
0611 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0613 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0615 00ea | | Load_Encached Null_String_Cache
0616 00ea | | Load_Encached Null_String_Cache
0617 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0619 860d | | Call 0x3,0xd
061a 0092 085d | ]| Action Push_String_Extended,0x85d ; "!model.??'c(world)"
061c 8609 | | Call 0x3,0x9
061d 00ea | | Load_Encached Null_String_Cache
061e 4800 |H | Short_Literal 0x0
061f 00ea | | Load_Encached Null_String_Cache
0620 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
0622 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0624 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0626 00ea | | Load_Encached Null_String_Cache
0627 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0629 860d | | Call 0x3,0xd
062a 0092 0826 | &| Action Push_String_Extended,0x826 ; "!users"
062c 8609 | | Call 0x3,0x9
062d 0092 085e | ^| Action Push_String_Extended,0x85e ; "Mailer=>RW"
062f 0092 085f | _| Action Push_String_Extended,0x85f ; "!Machine.[Mail,Transfer]??'c(world)"
0631 860b | | Call 0x3,0xb
0632 e5fa | | Load 0x2,-0x6
0633 6801 |h | Jump_Zero 0x635
0634 800c | | Call 0x0,0xc
0635 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0636 0000 0000 | | .XXX[0x2]
0638 ; --------------------------------------------------------------------------------------
0638 ; SUBPROGRAM
0638 ; --------------------------------------------------------------------------------------
0638 063b | ; | .CONST 0x063b ; Address of begin
0639 0004 | | .CONST 0x0004 ; Address of exception handler
063a 0001 | | .CONST 0x0001 ; Number of locals
063b BODY_0638:
063b INIT_0638:
063b 4800 |H | Short_Literal 0x0
063c a606 | | Store_Unchecked 0x3,0x6
063d e5fa | | Load 0x2,-0x6
063e 6804 |h | Jump_Zero 0x643
063f e7fa | | Load 0x3,-0x6
0640 0092 0860 | `| Action Push_String_Extended,0x860 ; "Object ACL (Non-World)"
0642 800b | | Call 0x0,0xb
0643 00ea | | Load_Encached Null_String_Cache
0644 4801 |H | Short_Literal 0x1
0645 00ea | | Load_Encached Null_String_Cache
0646 00ea | | Load_Encached Null_String_Cache
0647 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0649 00ea | | Load_Encached Null_String_Cache
064a 00ea | | Load_Encached Null_String_Cache
064b 0092 081d | | Action Push_String_Extended,0x81d ; "R"
064d 860d | | Call 0x3,0xd
064e 0092 0861 | a| Action Push_String_Extended,0x861 ; "![commands,io,lrm,tools].?"
0650 8608 | | Call 0x3,0x8
0651 00ea | | Load_Encached Null_String_Cache
0652 4801 |H | Short_Literal 0x1
0653 00ea | | Load_Encached Null_String_Cache
0654 00ea | | Load_Encached Null_String_Cache
0655 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0657 00ea | | Load_Encached Null_String_Cache
0658 00ea | | Load_Encached Null_String_Cache
0659 0092 081d | | Action Push_String_Extended,0x81d ; "R"
065b 860d | | Call 0x3,0xd
065c 0092 0862 | b| Action Push_String_Extended,0x862 ; "!commands.abbreviations.?"
065e 8608 | | Call 0x3,0x8
065f 00ea | | Load_Encached Null_String_Cache
0660 4801 |H | Short_Literal 0x1
0661 00ea | | Load_Encached Null_String_Cache
0662 00ea | | Load_Encached Null_String_Cache
0663 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0665 00ea | | Load_Encached Null_String_Cache
0666 00ea | | Load_Encached Null_String_Cache
0667 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0669 860d | | Call 0x3,0xd
066a 0092 0863 | c| Action Push_String_Extended,0x863 ; "![compiler_interface,implementation].?"
066c 8608 | | Call 0x3,0x8
066d 0092 081d | | Action Push_String_Extended,0x81d ; "R"
066f 4800 |H | Short_Literal 0x0
0670 00ea | | Load_Encached Null_String_Cache
0671 00ea | | Load_Encached Null_String_Cache
0672 00ea | | Load_Encached Null_String_Cache
0673 00ea | | Load_Encached Null_String_Cache
0674 00ea | | Load_Encached Null_String_Cache
0675 00ea | | Load_Encached Null_String_Cache
0676 860d | | Call 0x3,0xd
0677 0092 0864 | d| Action Push_String_Extended,0x864 ; "!compiler_interface.subsystem_interface"
0679 8608 | | Call 0x3,0x8
067a 00ea | | Load_Encached Null_String_Cache
067b 4800 |H | Short_Literal 0x0
067c 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
067e 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
0680 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0682 00ea | | Load_Encached Null_String_Cache
0683 00ea | | Load_Encached Null_String_Cache
0684 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0686 860d | | Call 0x3,0xd
0687 0092 0865 | e| Action Push_String_Extended,0x865 ; "!machine.@'c(ada)"
0689 8608 | | Call 0x3,0x8
068a 00ea | | Load_Encached Null_String_Cache
068b 4800 |H | Short_Literal 0x0
068c 0092 081d | | Action Push_String_Extended,0x81d ; "R"
068e 00ea | | Load_Encached Null_String_Cache
068f 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0691 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0693 00ea | | Load_Encached Null_String_Cache
0694 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0696 860d | | Call 0x3,0xd
0697 0092 0866 | f| Action Push_String_Extended,0x866 ; "!machine.[cg_data,editor_data].@"
0699 8608 | | Call 0x3,0x8
069a 00ea | | Load_Encached Null_String_Cache
069b 4800 |H | Short_Literal 0x0
069c 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
069e 00ea | | Load_Encached Null_String_Cache
069f 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06a1 0092 081d | | Action Push_String_Extended,0x81d ; "R"
06a3 00ea | | Load_Encached Null_String_Cache
06a4 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06a6 860d | | Call 0x3,0xd
06a7 0092 0867 | g| Action Push_String_Extended,0x867 ; "!machine.[initialization,initialization.[site,rational]].?"
06a9 8608 | | Call 0x3,0x8
06aa 00ea | | Load_Encached Null_String_Cache
06ab 4800 |H | Short_Literal 0x0
06ac 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06ae 00ea | | Load_Encached Null_String_Cache
06af 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06b1 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06b3 00ea | | Load_Encached Null_String_Cache
06b4 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06b6 860d | | Call 0x3,0xd
06b7 0092 0868 | h| Action Push_String_Extended,0x868 ; "!Machine.Accounting.@"
06b9 8608 | | Call 0x3,0x8
06ba 00ea | | Load_Encached Null_String_Cache
06bb 4800 |H | Short_Literal 0x0
06bc 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06be 0092 0853 | S| Action Push_String_Extended,0x853 ; "{W}"
06c0 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06c2 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06c4 00ea | | Load_Encached Null_String_Cache
06c5 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06c7 860d | | Call 0x3,0xd
06c8 0092 0869 | i| Action Push_String_Extended,0x869 ; "!Machine.Error_Logs.[@,~Mail_Distribute_Server@]"
06ca 8608 | | Call 0x3,0x8
06cb 00ea | | Load_Encached Null_String_Cache
06cc 4800 |H | Short_Literal 0x0
06cd 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06cf 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06d1 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06d3 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06d5 00ea | | Load_Encached Null_String_Cache
06d6 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06d8 860d | | Call 0x3,0xd
06d9 0092 086a | j| Action Push_String_Extended,0x86a ; "!Machine.Error_Logs.Mail_Distribute_Server@"
06db 8608 | | Call 0x3,0x8
06dc 0092 081d | | Action Push_String_Extended,0x81d ; "R"
06de 4800 |H | Short_Literal 0x0
06df 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06e1 00ea | | Load_Encached Null_String_Cache
06e2 0092 081d | | Action Push_String_Extended,0x81d ; "R"
06e4 0092 081d | | Action Push_String_Extended,0x81d ; "R"
06e6 00ea | | Load_Encached Null_String_Cache
06e7 0092 081d | | Action Push_String_Extended,0x81d ; "R"
06e9 860d | | Call 0x3,0xd
06ea 0092 086b | k| Action Push_String_Extended,0x86b ; "!Machine.Machine_Name"
06ec 8608 | | Call 0x3,0x8
06ed 00ea | | Load_Encached Null_String_Cache
06ee 4800 |H | Short_Literal 0x0
06ef 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
06f1 0092 0853 | S| Action Push_String_Extended,0x853 ; "{W}"
06f3 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06f5 00ea | | Load_Encached Null_String_Cache
06f6 0092 0853 | S| Action Push_String_Extended,0x853 ; "{W}"
06f8 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
06fa 860d | | Call 0x3,0xd
06fb 0092 086c | l| Action Push_String_Extended,0x86c ; "!Machine.[Mail,Transfer].[??,~Distribute.??]"
06fd 8608 | | Call 0x3,0x8
06fe 00ea | | Load_Encached Null_String_Cache
06ff 4800 |H | Short_Literal 0x0
0700 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0702 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0704 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0706 00ea | | Load_Encached Null_String_Cache
0707 0092 0853 | S| Action Push_String_Extended,0x853 ; "{W}"
0709 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
070b 860d | | Call 0x3,0xd
070c 0092 086d | m| Action Push_String_Extended,0x86d ; "!Machine.[Mail,Transfer].Distribute.??"
070e 8608 | | Call 0x3,0x8
070f 0092 081d | | Action Push_String_Extended,0x81d ; "R"
0711 4800 |H | Short_Literal 0x0
0712 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0714 00ea | | Load_Encached Null_String_Cache
0715 00ea | | Load_Encached Null_String_Cache
0716 00ea | | Load_Encached Null_String_Cache
0717 00ea | | Load_Encached Null_String_Cache
0718 00ea | | Load_Encached Null_String_Cache
0719 860d | | Call 0x3,0xd
071a 0092 086e | n| Action Push_String_Extended,0x86e ; "!Machine.release.??'c(file,ada)"
071c 8608 | | Call 0x3,0x8
071d 00ea | | Load_Encached Null_String_Cache
071e 4800 |H | Short_Literal 0x0
071f 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0721 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
0723 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0725 00ea | | Load_Encached Null_String_Cache
0726 00ea | | Load_Encached Null_String_Cache
0727 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0729 860d | | Call 0x3,0xd
072a 0092 086f | o| Action Push_String_Extended,0x86f ; "!Machine.Search_lists.@"
072c 8608 | | Call 0x3,0x8
072d 00ea | | Load_Encached Null_String_Cache
072e 4800 |H | Short_Literal 0x0
072f 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0731 00ea | | Load_Encached Null_String_Cache
0732 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0734 00ea | | Load_Encached Null_String_Cache
0735 00ea | | Load_Encached Null_String_Cache
0736 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0738 860d | | Call 0x3,0xd
0739 0092 0870 | p| Action Push_String_Extended,0x870 ; "!Machine.sims.@'c(ada,file)"
073b 8608 | | Call 0x3,0x8
073c 00ea | | Load_Encached Null_String_Cache
073d 4800 |H | Short_Literal 0x0
073e 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0740 00ea | | Load_Encached Null_String_Cache
0741 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0743 00ea | | Load_Encached Null_String_Cache
0744 00ea | | Load_Encached Null_String_Cache
0745 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0747 860d | | Call 0x3,0xd
0748 0092 0871 | q| Action Push_String_Extended,0x871 ; "!Machine.sims.[master,to_rational].@'c(ada,file)"
074a 8608 | | Call 0x3,0x8
074b 00ea | | Load_Encached Null_String_Cache
074c 4800 |H | Short_Literal 0x0
074d 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
074f 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
0751 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0753 00ea | | Load_Encached Null_String_Cache
0754 00ea | | Load_Encached Null_String_Cache
0755 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0757 860d | | Call 0x3,0xd
0758 0092 0872 | r| Action Push_String_Extended,0x872 ; "!Machine.sims.[database,detail]@'c(ada,file)"
075a 8608 | | Call 0x3,0x8
075b 00ea | | Load_Encached Null_String_Cache
075c 4800 |H | Short_Literal 0x0
075d 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
075f 0092 084d | M| Action Push_String_Extended,0x84d ; "{RW}"
0761 0092 082a | *| Action Push_String_Extended,0x82a ; "{R}"
0763 00ea | | Load_Encached Null_String_Cache
0764 00ea | | Load_Encached Null_String_Cache
0765 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
0767 860d | | Call 0x3,0xd
0768 0092 0873 | s| Action Push_String_Extended,0x873 ; "!Machine.sims.to_rational.@'c(ada,file)"
076a 8608 | | Call 0x3,0x8
076b 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
076d 4800 |H | Short_Literal 0x0
076e 00ea | | Load_Encached Null_String_Cache
076f 00ea | | Load_Encached Null_String_Cache
0770 00ea | | Load_Encached Null_String_Cache
0771 00ea | | Load_Encached Null_String_Cache
0772 00ea | | Load_Encached Null_String_Cache
0773 00ea | | Load_Encached Null_String_Cache
0774 860d | | Call 0x3,0xd
0775 0092 0874 | t| Action Push_String_Extended,0x874 ; "!Machine.Switch_Definitions"
0777 8608 | | Call 0x3,0x8
0778 0092 084b | K| Action Push_String_Extended,0x84b ; "RW"
077a 4800 |H | Short_Literal 0x0
077b 00ea | | Load_Encached Null_String_Cache
077c 00ea | | Load_Encached Null_String_Cache
077d 00ea | | Load_Encached Null_String_Cache
077e 00ea | | Load_Encached Null_String_Cache
077f 00ea | | Load_Encached Null_String_Cache
0780 00ea | | Load_Encached Null_String_Cache
0781 860d | | Call 0x3,0xd
0782 0092 0875 | u| Action Push_String_Extended,0x875 ; "!machine.temporary.@"
0784 8608 | | Call 0x3,0x8
0785 0092 085e | ^| Action Push_String_Extended,0x85e ; "Mailer=>RW"
0787 0092 0831 | 1| Action Push_String_Extended,0x831 ; "!Machine.[Mail,Transfer].??"
0789 860a | | Call 0x3,0xa
078a 0092 085e | ^| Action Push_String_Extended,0x85e ; "Mailer=>RW"
078c 0092 0876 | v| Action Push_String_Extended,0x876 ; "!Users.@.Mailbox.Main_@"
078e 860a | | Call 0x3,0xa
078f e5fa | | Load 0x2,-0x6
0790 6801 |h | Jump_Zero 0x792
0791 800c | | Call 0x0,0xc
0792 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0793 0000 0000 | | .BLANK 0000[0x5]
0798 ; --------------------------------------------------------------------------------------
0798 ; SUBPROGRAM
0798 ; --------------------------------------------------------------------------------------
0798 079b | | .CONST 0x079b ; Address of begin
0799 0004 | | .CONST 0x0004 ; Address of exception handler
079a 0001 | | .CONST 0x0001 ; Number of locals
079b BODY_0798:
079b INIT_0798:
079b e7fb | | Load 0x3,-0x5
079c 680b |h | Jump_Zero 0x7a8
079d 4823 |H# | Short_Literal 0x23
079e ebff | | Load 0x5,-0x1
079f 8607 | | Call 0x3,0x7
07a0 0092 0813 | | Action Push_String_Extended,0x813 ; ": "
07a2 01cc | | Execute Vector,Catenate
07a3 e9fe | | Load 0x4,-0x2
07a4 01cc | | Execute Vector,Catenate
07a5 e005 | | Load 0x0,0x5
07a6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
07a7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07a8 0092 0814 | | Action Push_String_Extended,0x814 ; "<errors>"
07aa ebff | | Load 0x5,-0x1
07ab e9fe | | Load 0x4,-0x2
07ac e006 | | Load 0x0,0x6
07ad 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07ae 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07af 0000 | | .XXX[0x1]
07b0 ; --------------------------------------------------------------------------------------
07b0 ; SUBPROGRAM
07b0 ; --------------------------------------------------------------------------------------
07b0 07b3 | | .CONST 0x07b3 ; Address of begin
07b1 0004 | | .CONST 0x0004 ; Address of exception handler
07b2 0001 | | .CONST 0x0001 ; Number of locals
07b3 BODY_07b0:
07b3 INIT_07b0:
07b3 e7fb | | Load 0x3,-0x5
07b4 680e |h | Jump_Zero 0x7c3
07b5 0092 0877 | w| Action Push_String_Extended,0x877 ; "Add "
07b7 4823 |H# | Short_Literal 0x23
07b8 ebff | | Load 0x5,-0x1
07b9 8607 | | Call 0x3,0x7
07ba 01cc | | Execute Vector,Catenate
07bb 0092 0813 | | Action Push_String_Extended,0x813 ; ": "
07bd 01cc | | Execute Vector,Catenate
07be e9fe | | Load 0x4,-0x2
07bf 01cc | | Execute Vector,Catenate
07c0 e005 | | Load 0x0,0x5
07c1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
07c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07c3 0092 0814 | | Action Push_String_Extended,0x814 ; "<errors>"
07c5 ebff | | Load 0x5,-0x1
07c6 e9fe | | Load 0x4,-0x2
07c7 e006 | | Load 0x0,0x6
07c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07ca 0000 0000 | | .BLANK 0000[0x6]
07d0 ; --------------------------------------------------------------------------------------
07d0 ; SUBPROGRAM
07d0 ; --------------------------------------------------------------------------------------
07d0 07d3 | | .CONST 0x07d3 ; Address of begin
07d1 0004 | | .CONST 0x0004 ; Address of exception handler
07d2 0001 | | .CONST 0x0001 ; Number of locals
07d3 BODY_07d0:
07d3 INIT_07d0:
07d3 e802 | | Load 0x4,0x2
07d4 e009 | | Load 0x0,0x9
07d5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07d6 6809 |h | Jump_Zero 0x7e0
07d7 e802 | | Load 0x4,0x2
07d8 0092 0878 | x| Action Push_String_Extended,0x878 ; ","
07da ebff | | Load 0x5,-0x1
07db 01cc | | Execute Vector,Catenate
07dc e009 | | Load 0x0,0x9
07dd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07de 00d1 | | Pop_Control Pop_Count_1
07df 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07e0 e802 | | Load 0x4,0x2
07e1 ebff | | Load 0x5,-0x1
07e2 e009 | | Load 0x0,0x9
07e3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07e4 00d1 | | Pop_Control Pop_Count_1
07e5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07e6 0000 0000 | | .XXX[0x2]
07e8 ; --------------------------------------------------------------------------------------
07e8 ; SUBPROGRAM
07e8 ; --------------------------------------------------------------------------------------
07e8 07eb | | .CONST 0x07eb ; Address of begin
07e9 0004 | | .CONST 0x0004 ; Address of exception handler
07ea 0001 | | .CONST 0x0001 ; Number of locals
07eb BODY_07e8:
07eb INIT_07e8:
07eb e804 | | Load 0x4,0x4
07ec 7005 |p | Jump_Nonzero 0x7f2
07ed 0092 0879 | y| Action Push_String_Extended,0x879 ; "Network_Public=>"
07ef 8805 | | Call 0x4,0x5
07f0 4801 |H | Short_Literal 0x1
07f1 a804 | | Store_Unchecked 0x4,0x4
07f2 e802 | | Load 0x4,0x2
07f3 ebff | | Load 0x5,-0x1
07f4 e009 | | Load 0x0,0x9
07f5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07f6 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07f7 ; --------------------------------------------------------------------------------------
07f7 ; STRING TABLE
07f7 ; --------------------------------------------------------------------------------------
07f7 0108 | | .STRTAB 0x0108->0x087b ; "None "
07f8 010c | | .STRTAB 0x010c->0x087e ; "Open "
07f9 0110 | | .STRTAB 0x0110->0x0881 ; "Safe "
07fa 0114 | | .STRTAB 0x0114->0x0884 ; "Secure"
07fb 0118 | | .STRTAB 0x0118->0x0887 ; " level"
07fc 011c | | .STRTAB 0x011c->0x088a ; "!"
07fd 011b | | .STRTAB 0x011b->0x088a ; "!commands.@"
07fe 0124 | $ | .STRTAB 0x0124->0x0890 ; "!commands.abbreviations.@"
07ff 013b | ; | .STRTAB 0x013b->0x089c ; "!compiler_interface??"
0800 014e | N | .STRTAB 0x014e->0x08a7 ; "!implementation??"
0801 015d | ] | .STRTAB 0x015d->0x08af ; "!io??"
0802 0160 | ` | .STRTAB 0x0160->0x08b2 ; "!lrm??"
0803 0164 | d | .STRTAB 0x0164->0x08b5 ; "!machine@"
0804 016b | k | .STRTAB 0x016b->0x08b9 ; "!model??"
0805 0171 | q | .STRTAB 0x0171->0x08bd ; "!tools.@"
0806 0177 | w | .STRTAB 0x0177->0x08c1 ; "!tools.networking.@"
0807 0188 | | .STRTAB 0x0188->0x08cb ; "!tools.@'c(subsystem)"
0808 019b | | .STRTAB 0x019b->0x08d5 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
0809 01c6 | | .STRTAB 0x01c6->0x08ec ; " with network Read"
080a 01d6 | | .STRTAB 0x01d6->0x08f5 ; " with network Read and Write"
080b 01f0 | | .STRTAB 0x01f0->0x0903 ; "------- "
080c 01f6 | | .STRTAB 0x01f6->0x0907 ; "------- defaults: "
080d 0206 | | .STRTAB 0x0206->0x0910 ; "+++ ++* ***"
080e 020f | | .STRTAB 0x020f->0x0915 ; "<ALL>"
080f 0212 | | .STRTAB 0x0212->0x0918 ; "Illegal value of level parameter. Must be 0..3."
0810 0240 | @ | .STRTAB 0x0240->0x0930 ; "'c(world)"
0811 0247 | G | .STRTAB 0x0247->0x0934 ; "'c(~library)"
0812 0251 | Q | .STRTAB 0x0251->0x093a ; "Def "
0813 0253 | S | .STRTAB 0x0253->0x093c ; ": "
0814 0253 | S | .STRTAB 0x0253->0x093d ; "<errors>"
0815 0259 | Y | .STRTAB 0x0259->0x0941 ; "Add_Def "
0816 025f | _ | .STRTAB 0x025f->0x0945 ; "Network_Public=>RCO"
0817 0270 | p | .STRTAB 0x0270->0x094f ; "Network_Public=>R"
0818 027f | | .STRTAB 0x027f->0x0957 ; "Network_Public=>RW"
0819 028f | | .STRTAB 0x028f->0x0960 ; "System=>"
081a 0295 | | .STRTAB 0x0295->0x0964 ; "Public=>"
081b 029b | | .STRTAB 0x029b->0x0968 ; "Operator=>"
081c 02a3 | | .STRTAB 0x02a3->0x096d ; "World ACL's"
081d 02ac | | .STRTAB 0x02ac->0x0973 ; "R"
081e 02ab | | .STRTAB 0x02ab->0x0973 ; "RCO"
081f 02ac | | .STRTAB 0x02ac->0x0975 ; "RC"
0820 02ac | | .STRTAB 0x02ac->0x0976 ; "CO"
0821 02ac | | .STRTAB 0x02ac->0x0977 ; "![Commands,Io,Lrm,Model??]"
0822 02c4 | | .STRTAB 0x02c4->0x0984 ; "!tools"
0823 02c8 | | .STRTAB 0x02c8->0x0987 ; "!compiler_interface"
0824 02d9 | | .STRTAB 0x02d9->0x0990 ; "!commands.abbreviations"
0825 02ee | | .STRTAB 0x02ee->0x099c ; "!Implementation"
0826 02fb | | .STRTAB 0x02fb->0x09a3 ; "!users"
0827 02ff | | .STRTAB 0x02ff->0x09a6 ; "!machine"
0828 0305 | | .STRTAB 0x0305->0x09aa ; "!machine.[cg_data,devices,editor_data]"
0829 0329 | ) | .STRTAB 0x0329->0x09bd ; "{RC}"
082a 032b | + | .STRTAB 0x032b->0x09bf ; "{R}"
082b 032c | , | .STRTAB 0x032c->0x09c1 ; "{CO}"
082c 032e | . | .STRTAB 0x032e->0x09c3 ; "!machine.accounting"
082d 033f | ? | .STRTAB 0x033f->0x09cc ; "{RCO}"
082e 0342 | B | .STRTAB 0x0342->0x09cf ; "!machine.[initialization,initialization.[rational,site]]"
082f 0378 | x | .STRTAB 0x0378->0x09eb ; "!machine.error_logs"
0830 0389 | | .STRTAB 0x0389->0x09f4 ; "!machine.[groups,users]"
0831 039e | | .STRTAB 0x039e->0x0a00 ; "!Machine.[Mail,Transfer].??"
0832 03b7 | | .STRTAB 0x03b7->0x0a0d ; "!machine.release??"
0833 03c7 | | .STRTAB 0x03c7->0x0a16 ; "O"
0834 03c6 | | .STRTAB 0x03c6->0x0a17 ; "!machine.search_lists"
0835 03d9 | | .STRTAB 0x03d9->0x0a21 ; "!machine.temporary"
0836 03e9 | | .STRTAB 0x03e9->0x0a2a ; "!machine.[sims,sims.master,sims.to_rational]"
0837 0413 | | .STRTAB 0x0413->0x0a40 ; "{O}"
0838 0414 | | .STRTAB 0x0414->0x0a42 ; "!machine.sims.[database,detail]??"
0839 0433 | 3 | .STRTAB 0x0433->0x0a52 ; "!machine.sims.to_rational??"
083a 044c | L | .STRTAB 0x044c->0x0a60 ; "Mailer=>RCO"
083b 0455 | U | .STRTAB 0x0455->0x0a65 ; "!Machine.[Mail,Transfer]??"
083c 046d | m | .STRTAB 0x046d->0x0a72 ; "Mailer=>R"
083d 0474 | t | .STRTAB 0x0474->0x0a77 ; "!Users.@.Mailbox.Main_Set.[$,$^,$^^]"
083e 0496 | | .STRTAB 0x0496->0x0a89 ; ": Network_Public=>OWNER"
083f 04ab | | .STRTAB 0x04ab->0x0a94 ; "*** ++*"
0840 04b0 | | .STRTAB 0x04b0->0x0a98 ; "++* ***"
0841 04b5 | | .STRTAB 0x04b5->0x0a9b ; "network_public"
0842 04c1 | | .STRTAB 0x04c1->0x0aa2 ; ": Public=>"
0843 04c9 | | .STRTAB 0x04c9->0x0aa7 ; ", System=>"
0844 04d1 | | .STRTAB 0x04d1->0x0aac ; ", Operator=>"
0845 04db | | .STRTAB 0x04db->0x0ab2 ; ", Network_Public=>"
0846 04eb | | .STRTAB 0x04eb->0x0abb ; "***"
0847 04ec | | .STRTAB 0x04ec->0x0abd ; "public"
0848 04f0 | | .STRTAB 0x04f0->0x0ac0 ; "system"
0849 04f4 | | .STRTAB 0x04f4->0x0ac3 ; "operator"
084a 04fa | | .STRTAB 0x04fa->0x0ac7 ; "World Default ACL's"
084b 050b | | .STRTAB 0x050b->0x0ad0 ; "RW"
084c 050b | | .STRTAB 0x050b->0x0ad1 ; "![commands,implementation,io,lrm,tools]"
084d 0530 | 0 | .STRTAB 0x0530->0x0ae5 ; "{RW}"
084e 0532 | 2 | .STRTAB 0x0532->0x0ae7 ; "!Machine.accounting"
084f 0543 | C | .STRTAB 0x0543->0x0af0 ; "!Machine.Error_Logs"
0850 0554 | T | .STRTAB 0x0554->0x0afa ; "!Machine.[initialization,initialization.[site,rational]]"
0851 058a | | .STRTAB 0x058a->0x0b16 ; "!Machine.[cg_data,devices,editor_data]"
0852 05ae | | .STRTAB 0x05ae->0x0b29 ; "!Machine.[groups,users]"
0853 05c3 | | .STRTAB 0x05c3->0x0b34 ; "{W}"
0854 05c4 | | .STRTAB 0x05c4->0x0b36 ; "!Machine.[Mail,Transfer].[??,~Distribute]'c(world)"
0855 05f4 | | .STRTAB 0x05f4->0x0b4f ; "!Machine.[Mail,Transfer].Distribute'c(world)"
0856 061e | | .STRTAB 0x061e->0x0b65 ; "!Machine.Release??'c(world)"
0857 0637 | 7 | .STRTAB 0x0637->0x0b72 ; "!Machine.Search_Lists"
0858 064a | J | .STRTAB 0x064a->0x0b7d ; "!machine.sims"
0859 0655 | U | .STRTAB 0x0655->0x0b83 ; "!machine.sims.master"
085a 0667 | g | .STRTAB 0x0667->0x0b8d ; "!Machine.sims.[database,detail]"
085b 0684 | | .STRTAB 0x0684->0x0b9d ; "!Machine.sims.to_rational.@'c(world)"
085c 06a6 | | .STRTAB 0x06a6->0x0baf ; "!Machine.Temporary"
085d 06b6 | | .STRTAB 0x06b6->0x0bb8 ; "!model.??'c(world)"
085e 06c6 | | .STRTAB 0x06c6->0x0bc1 ; "Mailer=>RW"
085f 06ce | | .STRTAB 0x06ce->0x0bc6 ; "!Machine.[Mail,Transfer]??'c(world)"
0860 06ef | | .STRTAB 0x06ef->0x0bd7 ; "Object ACL (Non-World)"
0861 0703 | | .STRTAB 0x0703->0x0be2 ; "![commands,io,lrm,tools].?"
0862 071b | | .STRTAB 0x071b->0x0bef ; "!commands.abbreviations.?"
0863 0732 | 2 | .STRTAB 0x0732->0x0bfc ; "![compiler_interface,implementation].?"
0864 0756 | V | .STRTAB 0x0756->0x0c0f ; "!compiler_interface.subsystem_interface"
0865 077b | { | .STRTAB 0x077b->0x0c22 ; "!machine.@'c(ada)"
0866 078a | | .STRTAB 0x078a->0x0c2b ; "!machine.[cg_data,editor_data].@"
0867 07a8 | | .STRTAB 0x07a8->0x0c3b ; "!machine.[initialization,initialization.[site,rational]].?"
0868 07e0 | | .STRTAB 0x07e0->0x0c58 ; "!Machine.Accounting.@"
0869 07f3 | | .STRTAB 0x07f3->0x0c62 ; "!Machine.Error_Logs.[@,~Mail_Distribute_Server@]"
086a 0821 | ! | .STRTAB 0x0821->0x0c7a ; "!Machine.Error_Logs.Mail_Distribute_Server@"
086b 084a | J | .STRTAB 0x084a->0x0c90 ; "!Machine.Machine_Name"
086c 085d | ] | .STRTAB 0x085d->0x0c9a ; "!Machine.[Mail,Transfer].[??,~Distribute.??]"
086d 0887 | | .STRTAB 0x0887->0x0cb0 ; "!Machine.[Mail,Transfer].Distribute.??"
086e 08ab | | .STRTAB 0x08ab->0x0cc3 ; "!Machine.release.??'c(file,ada)"
086f 08c8 | | .STRTAB 0x08c8->0x0cd3 ; "!Machine.Search_lists.@"
0870 08dd | | .STRTAB 0x08dd->0x0cde ; "!Machine.sims.@'c(ada,file)"
0871 08f6 | | .STRTAB 0x08f6->0x0cec ; "!Machine.sims.[master,to_rational].@'c(ada,file)"
0872 0924 | $ | .STRTAB 0x0924->0x0d04 ; "!Machine.sims.[database,detail]@'c(ada,file)"
0873 094e | N | .STRTAB 0x094e->0x0d1a ; "!Machine.sims.to_rational.@'c(ada,file)"
0874 0973 | s | .STRTAB 0x0973->0x0d2d ; "!Machine.Switch_Definitions"
0875 098c | | .STRTAB 0x098c->0x0d3b ; "!machine.temporary.@"
0876 099e | | .STRTAB 0x099e->0x0d45 ; "!Users.@.Mailbox.Main_@"
0877 09b3 | | .STRTAB 0x09b3->0x0d50 ; "Add "
0878 09b5 | | .STRTAB 0x09b5->0x0d52 ; ","
0879 09b4 | | .STRTAB 0x09b4->0x0d53 ; "Network_Public=>"
087a 09c2 | | .STREND 0x09c2->0x0d5b
087b 4e6f 6e65 |None| .STRTAB_STRINGS
0d5b 0000 0000 | | .BLANK 0000[0x5]
0d60 ; --------------------------------------------------------------------------------------
0d60 ; Debug Table
0d60 ; --------------------------------------------------------------------------------------
0d60 0004 0010 | | .DEBUG4 0x0004,0x0010,0xd8e7,0x0000,0x0001,0x0000
0d66 01cf e40f | | .XXX[0x74]
0d68 e40e 1813 | |
0d6a a602 e602 | |
0d6c e414 01d7 | |
0d6e 682b 4801 |h+H |
0d70 e420 e41f | |
0d72 01cf e7ff | |
0d74 e009 1863 | c|
0d76 00cf 781d | x |
0d78 4801 e41f |H |
0d7a 01d7 0f2f | /|
0d7c 701b 4801 |p H |
0d7e e420 e41f | |
0d80 01cf 0092 | |
0d82 0e5b 01df | [ |
0d84 6803 00ce |h |
0d86 00ce 7827 | x'|
0d88 4801 e41f |H |
0d8a 01d7 0e25 | %|
0d8c 6807 4801 |h H |
0d8e e420 e41f | |
0d90 01cf e7ff | |
0d92 e009 1863 | c|
0d94 00c9 e418 | |
0d96 842c 77e0 | ,w |
0d98 00ce 7802 | x |
0d9a e418 842b | +|
0d9c 00c9 4801 | H |
0d9e e41f 01d7 | |
0da0 0f2f 77bc | /w |
0da2 00ce 4801 | H |
0da4 e420 e41f | |
0da6 01cf 0092 | |
0da8 0e5b 01df | [ |
0daa 7004 00c9 |p |
0dac e418 842c | ,|
0dae 77ad 00ce |w |
0db0 0092 0e60 | `|
0db2 e7ff e009 | |
0db4 1863 4502 | cE |
0db6 0000 0000 | |
0db8 09c3 0004 | |
0dba 0002 e7ff | |
0dbc 01da 00e9 | |
0dbe 035b 0337 | [ 7|
0dc0 e7ff e602 | |
0dc2 01d4 00cf | |
0dc4 e602 01d9 | |
0dc6 0263 700d | cp |
0dc8 00d8 e602 | |
0dca 01d7 4800 | H |
0dcc 481f 0262 |H b|
0dce 6804 4820 |h H |
0dd0 e605 e602 | |
0dd2 01d6 00c8 | |
0dd4 3ff3 00ce |? |
0dd6 00d8 00e9 | |
0dd8 01c6 4401 | D |
0dda 0000 0000 | | .BLANK 0000[0x6]
0de0 09e3 0004 | | .XXX[0x20]
0de2 0001 e7ff | |
0de4 4800 8428 |H (|
0de6 c7ff 00cf | |
0de8 783e 4803 |x>H |
0dea e420 e41f | |
0dec 01cf e425 | %|
0dee 0227 01df | ' |
0df0 680b e7fe |h |
0df2 e422 0272 | " r|
0df4 00d8 00e2 | |
0df6 0260 7001 | `p |
0df8 0801 e7ff | |
0dfa 8427 782a | 'x*|
0dfc e420 0c08 | |
0dfe 6815 4801 |h H |