|
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_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 0d70 | p | .CONST 0x0d70 ; 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 0807 | | Action Push_String_Extended,0x807 ; "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 0808 | | Action Push_String_Extended,0x808 ; "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 0809 | | Action Push_String_Extended,0x809 ; "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 080a | | Action Push_String_Extended,0x80a ; "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 6850 |hP | Jump_Zero 0xa7
0057 e5f9 | | Load 0x2,-0x7
0058 e5ff | | Load 0x2,-0x1
0059 e404 | | Load 0x2,0x4
005a 01d5 | | Execute Vector,Field_Reference
005b e001 | | Load 0x0,0x1
005c 180d | | Execute Package,Field_Execute,Field_Number 0xd
005d 4800 |H | Short_Literal 0x0
005e e404 | | Load 0x2,0x4
005f 01d5 | | Execute Vector,Field_Reference
0060 0092 080b | | Action Push_String_Extended,0x80b ; " level"
0062 01cc | | Execute Vector,Catenate
0063 4800 |H | Short_Literal 0x0
0064 4800 |H | Short_Literal 0x0
0065 8405 | | Call 0x2,0x5
0066 01cc | | Execute Vector,Catenate
0067 4801 |H | Short_Literal 0x1
0068 4800 |H | Short_Literal 0x0
0069 4800 |H | Short_Literal 0x0
006a e5fe | | Load 0x2,-0x2
006b 4800 |H | Short_Literal 0x0
006c 8408 | | Call 0x2,0x8
006d 00cf | | Action Mark_Auxiliary
006e 4803 |H | Short_Literal 0x3
006f 4801 |H | Short_Literal 0x1
0070 0007 | | Action Break_Optional
0071 00d8 | | Load_Top At_Offset_0
0072 e404 | | Load 0x2,0x4
0073 01d5 | | Execute Vector,Field_Reference
0074 0092 080b | | Action Push_String_Extended,0x80b ; " level"
0076 01cc | | Execute Vector,Catenate
0077 4800 |H | Short_Literal 0x0
0078 4800 |H | Short_Literal 0x0
0079 8405 | | Call 0x2,0x5
007a 01cc | | Execute Vector,Catenate
007b 4801 |H | Short_Literal 0x1
007c 4800 |H | Short_Literal 0x0
007d 4800 |H | Short_Literal 0x0
007e e5fe | | Load 0x2,-0x2
007f e40b | | Load 0x2,0xb
0080 8408 | | Call 0x2,0x8
0081 00d8 | | Load_Top At_Offset_0
0082 e404 | | Load 0x2,0x4
0083 01d5 | | Execute Vector,Field_Reference
0084 0092 080b | | Action Push_String_Extended,0x80b ; " level"
0086 01cc | | Execute Vector,Catenate
0087 4800 |H | Short_Literal 0x0
0088 4801 |H | Short_Literal 0x1
0089 8405 | | Call 0x2,0x5
008a 01cc | | Execute Vector,Catenate
008b 4801 |H | Short_Literal 0x1
008c 4800 |H | Short_Literal 0x0
008d 4801 |H | Short_Literal 0x1
008e e5fe | | Load 0x2,-0x2
008f e40b | | Load 0x2,0xb
0090 8408 | | Call 0x2,0x8
0091 00d8 | | Load_Top At_Offset_0
0092 e404 | | Load 0x2,0x4
0093 01d5 | | Execute Vector,Field_Reference
0094 0092 080b | | Action Push_String_Extended,0x80b ; " level"
0096 01cc | | Execute Vector,Catenate
0097 4801 |H | Short_Literal 0x1
0098 4801 |H | Short_Literal 0x1
0099 8405 | | Call 0x2,0x5
009a 01cc | | Execute Vector,Catenate
009b 4801 |H | Short_Literal 0x1
009c 4801 |H | Short_Literal 0x1
009d 4801 |H | Short_Literal 0x1
009e e5fe | | Load 0x2,-0x2
009f e40b | | Load 0x2,0xb
00a0 8408 | | Call 0x2,0x8
00a1 00c8 | | Action Pop_Auxiliary_Range
00a2 3fce |? | Loop_Increasing 0x71
00a3 00ce | | Action Pop_Auxiliary
00a4 e001 | | Load 0x0,0x1
00a5 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a6 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00a7 00ea | | Load_Encached Null_String_Cache
00a8 e5fb | | Load 0x2,-0x5
00a9 e5fc | | Load 0x2,-0x4
00aa e5fd | | Load 0x2,-0x3
00ab e5fe | | Load 0x2,-0x2
00ac e5ff | | Load 0x2,-0x1
00ad 8408 | | Call 0x2,0x8
00ae e5fb | | Load 0x2,-0x5
00af 7027 |p' | Jump_Nonzero 0xd7
00b0 0092 080c | | Action Push_String_Extended,0x80c ; "!"
00b2 8406 | | Call 0x2,0x6
00b3 0092 080d | | Action Push_String_Extended,0x80d ; "!commands.@"
00b5 8406 | | Call 0x2,0x6
00b6 0092 080e | | Action Push_String_Extended,0x80e ; "!commands.abbreviations.@"
00b8 8406 | | Call 0x2,0x6
00b9 0092 080f | | Action Push_String_Extended,0x80f ; "!compiler_interface??"
00bb 8406 | | Call 0x2,0x6
00bc 0092 0810 | | Action Push_String_Extended,0x810 ; "!implementation??"
00be 8406 | | Call 0x2,0x6
00bf 0092 0811 | | Action Push_String_Extended,0x811 ; "!io??"
00c1 8406 | | Call 0x2,0x6
00c2 0092 0812 | | Action Push_String_Extended,0x812 ; "!lrm??"
00c4 8406 | | Call 0x2,0x6
00c5 0092 0813 | | Action Push_String_Extended,0x813 ; "!machine@"
00c7 8406 | | Call 0x2,0x6
00c8 0092 0814 | | Action Push_String_Extended,0x814 ; "!model??"
00ca 8406 | | Call 0x2,0x6
00cb 0092 0815 | | Action Push_String_Extended,0x815 ; "!tools.@"
00cd 8406 | | Call 0x2,0x6
00ce 0092 0816 | | Action Push_String_Extended,0x816 ; "!tools.networking.@"
00d0 8406 | | Call 0x2,0x6
00d1 0092 0817 | | Action Push_String_Extended,0x817 ; "!tools.@'c(subsystem)"
00d3 8407 | | Call 0x2,0x7
00d4 0092 0818 | | Action Push_String_Extended,0x818 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
00d6 8407 | | Call 0x2,0x7
00d7 4508 |E | Exit_Suprogram New_Top_Offset 0x8
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 e002 | | Load 0x0,0x2
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 0819 | | Action Push_String_Extended,0x819 ; " 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 081a | | Action Push_String_Extended,0x81a ; " 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 081b | | Action Push_String_Extended,0x81b ; "------- "
0105 e7ff | | Load 0x3,-0x1
0106 01cc | | Execute Vector,Catenate
0107 e003 | | Load 0x0,0x3
0108 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0109 e7ff | | Load 0x3,-0x1
010a e004 | | Load 0x0,0x4
010b 180f | | Execute Package,Field_Execute,Field_Number 0xf
010c 0092 081c | | Action Push_String_Extended,0x81c ; "------- defaults: "
010e e7ff | | Load 0x3,-0x1
010f 01cc | | Execute Vector,Catenate
0110 e003 | | Load 0x0,0x3
0111 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0112 e7ff | | Load 0x3,-0x1
0113 e004 | | Load 0x0,0x4
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 081d | | Action Push_String_Extended,0x81d ; "+++ ++* ***"
011d 4800 |H | Short_Literal 0x0
011e e7ff | | Load 0x3,-0x1
011f 0092 081e | | Action Push_String_Extended,0x81e ; "<ALL>"
0121 e002 | | Load 0x0,0x2
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 01bb | | Declare_Subprogram INIT_01b8,For_Call
0143 029f 01db | | Declare_Subprogram INIT_01d8,For_Call
0145 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call
0147 029f 0213 | | Declare_Subprogram INIT_0210,For_Call
0149 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
014b 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
014d 029f 044b | K| Declare_Subprogram INIT_0448,For_Call
014f 029f 04db | | Declare_Subprogram INIT_04d8,For_Call
0151 029f 04f3 | | Declare_Subprogram INIT_04f0,For_Call
0153 029f 064b | K| Declare_Subprogram INIT_0648,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 081f | | Action Push_String_Extended,0x81f ; "Illegal value of level parameter. Must be 0..3."
015f e003 | | Load 0x0,0x3
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 07ab | | Declare_Subprogram INIT_07a8,For_Call
019d BODY_0198:
019d e606 | | Load 0x3,0x6
019e 6806 |h | Jump_Zero 0x1a5
019f e9ff | | Load 0x4,-0x1
01a0 0092 0820 | | Action Push_String_Extended,0x820 ; "'c(world)"
01a2 01cc | | Execute Vector,Catenate
01a3 8802 | | Call 0x4,0x2
01a4 7805 |x | Jump 0x1aa
01a5 e9ff | | Load 0x4,-0x1
01a6 0092 0821 | !| Action Push_String_Extended,0x821 ; "'c(~library)"
01a8 01cc | | Execute Vector,Catenate
01a9 8802 | | Call 0x4,0x2
01aa e5fa | | Load 0x2,-0x6
01ab 6804 |h | Jump_Zero 0x1b0
01ac e9fe | | Load 0x4,-0x2
01ad e9ff | | Load 0x4,-0x1
01ae e001 | | Load 0x0,0x1
01af 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01b1 0000 0000 | | .BLANK 0000[0x7]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb e7fb | | Load 0x3,-0x5
01bc 680e |h | Jump_Zero 0x1cb
01bd 0092 0822 | "| Action Push_String_Extended,0x822 ; "Def "
01bf 4823 |H# | Short_Literal 0x23
01c0 e9ff | | Load 0x4,-0x1
01c1 8607 | | Call 0x3,0x7
01c2 01cc | | Execute Vector,Catenate
01c3 0092 0823 | #| Action Push_String_Extended,0x823 ; ": "
01c5 01cc | | Execute Vector,Catenate
01c6 e9fe | | Load 0x4,-0x2
01c7 01cc | | Execute Vector,Catenate
01c8 e003 | | Load 0x0,0x3
01c9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01ca 7806 |x | Jump 0x1d1
01cb 0092 0824 | $| Action Push_String_Extended,0x824 ; "<errors>"
01cd e9ff | | Load 0x4,-0x1
01ce e9fe | | Load 0x4,-0x2
01cf e004 | | Load 0x0,0x4
01d0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01d1 e5fa | | Load 0x2,-0x6
01d2 6804 |h | Jump_Zero 0x1d7
01d3 e9fe | | Load 0x4,-0x2
01d4 e9ff | | Load 0x4,-0x1
01d5 e001 | | Load 0x0,0x1
01d6 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d7 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01dd | | .CONST 0x01dd ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0002 | | .CONST 0x0002 ; Number of locals
01db INIT_01d8:
01db 029f 07c3 | | Declare_Subprogram INIT_07c0,For_Call
01dd BODY_01d8:
01dd e606 | | Load 0x3,0x6
01de 6806 |h | Jump_Zero 0x1e5
01df e9ff | | Load 0x4,-0x1
01e0 0092 0820 | | Action Push_String_Extended,0x820 ; "'c(world)"
01e2 01cc | | Execute Vector,Catenate
01e3 8802 | | Call 0x4,0x2
01e4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01e5 e9ff | | Load 0x4,-0x1
01e6 0092 0821 | !| Action Push_String_Extended,0x821 ; "'c(~library)"
01e8 01cc | | Execute Vector,Catenate
01e9 8802 | | Call 0x4,0x2
01ea 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 e7fb | | Load 0x3,-0x5
01f4 680e |h | Jump_Zero 0x203
01f5 0092 0825 | %| Action Push_String_Extended,0x825 ; "Add_Def "
01f7 481f |H | Short_Literal 0x1f
01f8 e9ff | | Load 0x4,-0x1
01f9 8607 | | Call 0x3,0x7
01fa 01cc | | Execute Vector,Catenate
01fb 0092 0823 | #| Action Push_String_Extended,0x823 ; ": "
01fd 01cc | | Execute Vector,Catenate
01fe e9fe | | Load 0x4,-0x2
01ff 01cc | | Execute Vector,Catenate
0200 e003 | | Load 0x0,0x3
0201 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0202 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0203 0092 0824 | $| Action Push_String_Extended,0x824 ; "<errors>"
0205 e9ff | | Load 0x4,-0x1
0206 e9fe | | Load 0x4,-0x2
0207 e004 | | Load 0x0,0x4
0208 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0209 4503 |E | Exit_Suprogram New_Top_Offset 0x3
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 487d |H} | Short_Literal 0x7d
0214 487b |H{ | Short_Literal 0x7b
0215 e9ff | | Load 0x4,-0x1
0216 e005 | | Load 0x0,0x5
0217 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0218 e005 | | Load 0x0,0x5
0219 181b | | Execute Package,Field_Execute,Field_Number 0x1b
021a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0231 | 1 | .CONST 0x0231 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0006 | | .CONST 0x0006 ; Number of locals
0223 INIT_0220:
0223 48c8 |H | Short_Literal 0xc8
0224 e006 | | Load 0x0,0x6
0225 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0226 1c08 | | Execute_Immediate Run_Utility,0x8
0227 00d8 | | Load_Top At_Offset_0
0228 1c00 | | Execute_Immediate Run_Utility,0x0
0229 00e1 | | Load_Encached Boolean_Cache
022a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
022b 00e1 | | Load_Encached Boolean_Cache
022c 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
022d 029f 07e3 | | Declare_Subprogram INIT_07e0,For_Call
022f 029f 07fb | | Declare_Subprogram INIT_07f8,For_Call
0231 BODY_0220:
0231 e802 | | Load 0x4,0x2
0232 4820 |H | Short_Literal 0x20
0233 4800 |H | Short_Literal 0x0
0234 e006 | | Load 0x0,0x6
0235 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0236 00d1 | | Pop_Control Pop_Count_1
0237 e602 | | Load 0x3,0x2
0238 6825 |h% | Jump_Zero 0x25e
0239 e606 | | Load 0x3,0x6
023a 6807 |h | Jump_Zero 0x242
023b e802 | | Load 0x4,0x2
023c 0092 0826 | &| Action Push_String_Extended,0x826 ; "Network_Public=>RCO"
023e e006 | | Load 0x0,0x6
023f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0240 00d1 | | Pop_Control Pop_Count_1
0241 780f |x | Jump 0x251
0242 e9f9 | | Load 0x4,-0x7
0243 6807 |h | Jump_Zero 0x24b
0244 e802 | | Load 0x4,0x2
0245 0092 0827 | '| Action Push_String_Extended,0x827 ; "Network_Public=>R"
0247 e006 | | Load 0x0,0x6
0248 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0249 00d1 | | Pop_Control Pop_Count_1
024a 7806 |x | Jump 0x251
024b e802 | | Load 0x4,0x2
024c 0092 0828 | (| Action Push_String_Extended,0x828 ; "Network_Public=>RW"
024e e006 | | Load 0x0,0x6
024f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0250 00d1 | | Pop_Control Pop_Count_1
0251 e9fd | | Load 0x4,-0x3
0252 01db | | Execute Vector,Length
0253 6806 |h | Jump_Zero 0x25a
0254 0092 0829 | )| Action Push_String_Extended,0x829 ; "System=>"
0256 e9fd | | Load 0x4,-0x3
0257 860c | | Call 0x3,0xc
0258 01cc | | Execute Vector,Catenate
0259 8805 | | Call 0x4,0x5
025a e802 | | Load 0x4,0x2
025b e006 | | Load 0x0,0x6
025c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
025e e9ff | | Load 0x4,-0x1
025f 01db | | Execute Vector,Length
0260 6810 |h | Jump_Zero 0x271
0261 e9ff | | Load 0x4,-0x1
0262 01dd | | Execute Vector,First
0263 e9ff | | Load 0x4,-0x1
0264 01d7 | | Execute Vector,Field_Read
0265 0e7b | { | Execute_Immediate Not_Equal,0x7b
0266 7002 |p | Jump_Nonzero 0x269
0267 e605 | | Load 0x3,0x5
0268 7008 |p | Jump_Nonzero 0x271
0269 0092 082a | *| Action Push_String_Extended,0x82a ; "Public=>"
026b e9ff | | Load 0x4,-0x1
026c 860c | | Call 0x3,0xc
026d 01cc | | Execute Vector,Catenate
026e 8805 | | Call 0x4,0x5
026f 4801 |H | Short_Literal 0x1
0270 a803 | | Store_Unchecked 0x4,0x3
0271 e603 | | Load 0x3,0x3
0272 6818 |h | Jump_Zero 0x28b
0273 e9fe | | Load 0x4,-0x2
0274 01db | | Execute Vector,Length
0275 6815 |h | Jump_Zero 0x28b
0276 e9fe | | Load 0x4,-0x2
0277 01dd | | Execute Vector,First
0278 e9fe | | Load 0x4,-0x2
0279 01d7 | | Execute Vector,Field_Read
027a 0e7b | { | Execute_Immediate Not_Equal,0x7b
027b 7002 |p | Jump_Nonzero 0x27e
027c e605 | | Load 0x3,0x5
027d 700d |p | Jump_Nonzero 0x28b
027e e803 | | Load 0x4,0x3
027f 7005 |p | Jump_Nonzero 0x285
0280 0092 082a | *| Action Push_String_Extended,0x82a ; "Public=>"
0282 8805 | | Call 0x4,0x5
0283 4801 |H | Short_Literal 0x1
0284 a803 | | Store_Unchecked 0x4,0x3
0285 e802 | | Load 0x4,0x2
0286 e9fe | | Load 0x4,-0x2
0287 860c | | Call 0x3,0xc
0288 e006 | | Load 0x0,0x6
0289 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028a 00d1 | | Pop_Control Pop_Count_1
028b e9fd | | Load 0x4,-0x3
028c 01db | | Execute Vector,Length
028d 680e |h | Jump_Zero 0x29c
028e e9fd | | Load 0x4,-0x3
028f 01dd | | Execute Vector,First
0290 e9fd | | Load 0x4,-0x3
0291 01d7 | | Execute Vector,Field_Read
0292 0e7b | { | Execute_Immediate Not_Equal,0x7b
0293 7002 |p | Jump_Nonzero 0x296
0294 e605 | | Load 0x3,0x5
0295 7006 |p | Jump_Nonzero 0x29c
0296 0092 0829 | )| Action Push_String_Extended,0x829 ; "System=>"
0298 e9fd | | Load 0x4,-0x3
0299 860c | | Call 0x3,0xc
029a 01cc | | Execute Vector,Catenate
029b 8805 | | Call 0x4,0x5
029c e9fa | | Load 0x4,-0x6
029d 01db | | Execute Vector,Length
029e 6806 |h | Jump_Zero 0x2a5
029f 0092 082b | +| Action Push_String_Extended,0x82b ; "Operator=>"
02a1 e9fa | | Load 0x4,-0x6
02a2 860c | | Call 0x3,0xc
02a3 01cc | | Execute Vector,Catenate
02a4 8805 | | Call 0x4,0x5
02a5 e9f8 | | Load 0x4,-0x8
02a6 01db | | Execute Vector,Length
02a7 6802 |h | Jump_Zero 0x2aa
02a8 e9f8 | | Load 0x4,-0x8
02a9 8806 | | Call 0x4,0x6
02aa e7fd | | Load 0x3,-0x3
02ab 680e |h | Jump_Zero 0x2ba
02ac e9fc | | Load 0x4,-0x4
02ad 01db | | Execute Vector,Length
02ae 680b |h | Jump_Zero 0x2ba
02af e9fc | | Load 0x4,-0x4
02b0 01dd | | Execute Vector,First
02b1 e9fc | | Load 0x4,-0x4
02b2 01d7 | | Execute Vector,Field_Read
02b3 0e7b | { | Execute_Immediate Not_Equal,0x7b
02b4 7002 |p | Jump_Nonzero 0x2b7
02b5 e605 | | Load 0x3,0x5
02b6 7003 |p | Jump_Nonzero 0x2ba
02b7 e9fc | | Load 0x4,-0x4
02b8 860c | | Call 0x3,0xc
02b9 8806 | | Call 0x4,0x6
02ba e7fc | | Load 0x3,-0x4
02bb 680e |h | Jump_Zero 0x2ca
02bc e9fb | | Load 0x4,-0x5
02bd 01db | | Execute Vector,Length
02be 680b |h | Jump_Zero 0x2ca
02bf e9fb | | Load 0x4,-0x5
02c0 01dd | | Execute Vector,First
02c1 e9fb | | Load 0x4,-0x5
02c2 01d7 | | Execute Vector,Field_Read
02c3 0e7b | { | Execute_Immediate Not_Equal,0x7b
02c4 7002 |p | Jump_Nonzero 0x2c7
02c5 e605 | | Load 0x3,0x5
02c6 7003 |p | Jump_Nonzero 0x2ca
02c7 e9fb | | Load 0x4,-0x5
02c8 860c | | Call 0x3,0xc
02c9 8806 | | Call 0x4,0x6
02ca e802 | | Load 0x4,0x2
02cb e006 | | Load 0x0,0x6
02cc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cd e001 | | Load 0x0,0x1
02ce 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02cf 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4801 |H | Short_Literal 0x1
02d4 a606 | | Store_Unchecked 0x3,0x6
02d5 e5fa | | Load 0x2,-0x6
02d6 6805 |h | Jump_Zero 0x2dc
02d7 e7fa | | Load 0x3,-0x6
02d8 0092 082c | ,| Action Push_String_Extended,0x82c ; "World ACL's"
02da e001 | | Load 0x0,0x1
02db 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02dc 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
02de 4800 |H | Short_Literal 0x0
02df 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
02e1 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
02e3 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
02e5 00ea | | Load_Encached Null_String_Cache
02e6 0092 0830 | 0| Action Push_String_Extended,0x830 ; "CO"
02e8 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
02ea 860d | | Call 0x3,0xd
02eb 0092 080c | | Action Push_String_Extended,0x80c ; "!"
02ed 8608 | | Call 0x3,0x8
02ee 00ea | | Load_Encached Null_String_Cache
02ef 4800 |H | Short_Literal 0x0
02f0 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
02f2 00ea | | Load_Encached Null_String_Cache
02f3 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
02f5 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
02f7 00ea | | Load_Encached Null_String_Cache
02f8 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
02fa 860d | | Call 0x3,0xd
02fb 0092 0831 | 1| Action Push_String_Extended,0x831 ; "![Commands,Io,Lrm,Model??]"
02fd 8608 | | Call 0x3,0x8
02fe 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0300 4800 |H | Short_Literal 0x0
0301 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0303 00ea | | Load_Encached Null_String_Cache
0304 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0306 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
0308 00ea | | Load_Encached Null_String_Cache
0309 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
030b 860d | | Call 0x3,0xd
030c 0092 0832 | 2| Action Push_String_Extended,0x832 ; "!tools"
030e 8608 | | Call 0x3,0x8
030f 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0311 4800 |H | Short_Literal 0x0
0312 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0314 00ea | | Load_Encached Null_String_Cache
0315 00ea | | Load_Encached Null_String_Cache
0316 00ea | | Load_Encached Null_String_Cache
0317 00ea | | Load_Encached Null_String_Cache
0318 00ea | | Load_Encached Null_String_Cache
0319 860d | | Call 0x3,0xd
031a 0092 0833 | 3| Action Push_String_Extended,0x833 ; "!compiler_interface"
031c 8608 | | Call 0x3,0x8
031d 00ea | | Load_Encached Null_String_Cache
031e 4800 |H | Short_Literal 0x0
031f 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0321 00ea | | Load_Encached Null_String_Cache
0322 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0324 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
0326 00ea | | Load_Encached Null_String_Cache
0327 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0329 860d | | Call 0x3,0xd
032a 0092 0834 | 4| Action Push_String_Extended,0x834 ; "!commands.abbreviations"
032c 8608 | | Call 0x3,0x8
032d e7fe | | Load 0x3,-0x2
032e 6810 |h | Jump_Zero 0x33f
032f 00ea | | Load_Encached Null_String_Cache
0330 4801 |H | Short_Literal 0x1
0331 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0333 00ea | | Load_Encached Null_String_Cache
0334 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0336 00ea | | Load_Encached Null_String_Cache
0337 00ea | | Load_Encached Null_String_Cache
0338 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
033a 860d | | Call 0x3,0xd
033b 0092 0835 | 5| Action Push_String_Extended,0x835 ; "!Implementation"
033d 8608 | | Call 0x3,0x8
033e 780d |x | Jump 0x34c
033f 00ea | | Load_Encached Null_String_Cache
0340 4801 |H | Short_Literal 0x1
0341 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0343 00ea | | Load_Encached Null_String_Cache
0344 00ea | | Load_Encached Null_String_Cache
0345 00ea | | Load_Encached Null_String_Cache
0346 00ea | | Load_Encached Null_String_Cache
0347 00ea | | Load_Encached Null_String_Cache
0348 860d | | Call 0x3,0xd
0349 0092 0835 | 5| Action Push_String_Extended,0x835 ; "!Implementation"
034b 8608 | | Call 0x3,0x8
034c 00ea | | Load_Encached Null_String_Cache
034d 4800 |H | Short_Literal 0x0
034e 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0350 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
0352 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0354 00ea | | Load_Encached Null_String_Cache
0355 0092 0830 | 0| Action Push_String_Extended,0x830 ; "CO"
0357 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0359 860d | | Call 0x3,0xd
035a 0092 0836 | 6| Action Push_String_Extended,0x836 ; "!users"
035c 8608 | | Call 0x3,0x8
035d 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
035f 4800 |H | Short_Literal 0x0
0360 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0362 00ea | | Load_Encached Null_String_Cache
0363 00ea | | Load_Encached Null_String_Cache
0364 00ea | | Load_Encached Null_String_Cache
0365 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0367 00ea | | Load_Encached Null_String_Cache
0368 860d | | Call 0x3,0xd
0369 0092 0837 | 7| Action Push_String_Extended,0x837 ; "!machine"
036b 8608 | | Call 0x3,0x8
036c 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
036e 4800 |H | Short_Literal 0x0
036f 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0371 00ea | | Load_Encached Null_String_Cache
0372 00ea | | Load_Encached Null_String_Cache
0373 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
0375 00ea | | Load_Encached Null_String_Cache
0376 00ea | | Load_Encached Null_String_Cache
0377 860d | | Call 0x3,0xd
0378 0092 0838 | 8| Action Push_String_Extended,0x838 ; "!machine.[cg_data,devices,editor_data]"
037a 8608 | | Call 0x3,0x8
037b 00ea | | Load_Encached Null_String_Cache
037c 4800 |H | Short_Literal 0x0
037d 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
037f 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
0381 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0383 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
0385 0092 083b | ;| Action Push_String_Extended,0x83b ; "{CO}"
0387 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0389 860d | | Call 0x3,0xd
038a 0092 083c | <| Action Push_String_Extended,0x83c ; "!machine.accounting"
038c 8608 | | Call 0x3,0x8
038d 00ea | | Load_Encached Null_String_Cache
038e 4800 |H | Short_Literal 0x0
038f 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0391 00ea | | Load_Encached Null_String_Cache
0392 00ea | | Load_Encached Null_String_Cache
0393 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
0395 0092 083d | =| Action Push_String_Extended,0x83d ; "{RCO}"
0397 00ea | | Load_Encached Null_String_Cache
0398 860d | | Call 0x3,0xd
0399 0092 083e | >| Action Push_String_Extended,0x83e ; "!machine.[initialization,initialization.[rational,site]]"
039b 8608 | | Call 0x3,0x8
039c 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
039e 4800 |H | Short_Literal 0x0
039f 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
03a1 00ea | | Load_Encached Null_String_Cache
03a2 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
03a4 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
03a6 0092 083d | =| Action Push_String_Extended,0x83d ; "{RCO}"
03a8 00ea | | Load_Encached Null_String_Cache
03a9 860d | | Call 0x3,0xd
03aa 0092 083f | ?| Action Push_String_Extended,0x83f ; "!machine.error_logs"
03ac 8608 | | Call 0x3,0x8
03ad 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
03af 4800 |H | Short_Literal 0x0
03b0 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
03b2 00ea | | Load_Encached Null_String_Cache
03b3 00ea | | Load_Encached Null_String_Cache
03b4 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
03b6 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
03b8 00ea | | Load_Encached Null_String_Cache
03b9 860d | | Call 0x3,0xd
03ba 0092 0840 | @| Action Push_String_Extended,0x840 ; "!machine.[groups,users]"
03bc 8608 | | Call 0x3,0x8
03bd 00ea | | Load_Encached Null_String_Cache
03be 4800 |H | Short_Literal 0x0
03bf 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
03c1 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
03c3 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
03c5 00ea | | Load_Encached Null_String_Cache
03c6 0092 083b | ;| Action Push_String_Extended,0x83b ; "{CO}"
03c8 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
03ca 860d | | Call 0x3,0xd
03cb 0092 0841 | A| Action Push_String_Extended,0x841 ; "!Machine.[Mail,Transfer].??"
03cd 8608 | | Call 0x3,0x8
03ce 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
03d0 4800 |H | Short_Literal 0x0
03d1 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
03d3 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
03d5 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
03d7 00ea | | Load_Encached Null_String_Cache
03d8 0092 083d | =| Action Push_String_Extended,0x83d ; "{RCO}"
03da 00ea | | Load_Encached Null_String_Cache
03db 860d | | Call 0x3,0xd
03dc 0092 0842 | B| Action Push_String_Extended,0x842 ; "!machine.release??"
03de 8608 | | Call 0x3,0x8
03df 00ea | | Load_Encached Null_String_Cache
03e0 4800 |H | Short_Literal 0x0
03e1 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
03e3 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
03e5 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
03e7 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
03e9 0092 0843 | C| Action Push_String_Extended,0x843 ; "O"
03eb 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
03ed 860d | | Call 0x3,0xd
03ee 0092 0844 | D| Action Push_String_Extended,0x844 ; "!machine.search_lists"
03f0 8608 | | Call 0x3,0x8
03f1 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
03f3 4800 |H | Short_Literal 0x0
03f4 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
03f6 00ea | | Load_Encached Null_String_Cache
03f7 00ea | | Load_Encached Null_String_Cache
03f8 00ea | | Load_Encached Null_String_Cache
03f9 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
03fb 00ea | | Load_Encached Null_String_Cache
03fc 860d | | Call 0x3,0xd
03fd 0092 0845 | E| Action Push_String_Extended,0x845 ; "!machine.temporary"
03ff 8608 | | Call 0x3,0x8
0400 00ea | | Load_Encached Null_String_Cache
0401 4800 |H | Short_Literal 0x0
0402 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0404 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
0406 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0408 00ea | | Load_Encached Null_String_Cache
0409 0092 0843 | C| Action Push_String_Extended,0x843 ; "O"
040b 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
040d 860d | | Call 0x3,0xd
040e 0092 0846 | F| Action Push_String_Extended,0x846 ; "!machine.[sims,sims.master,sims.to_rational]"
0410 8608 | | Call 0x3,0x8
0411 00ea | | Load_Encached Null_String_Cache
0412 4800 |H | Short_Literal 0x0
0413 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0415 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
0417 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0419 00ea | | Load_Encached Null_String_Cache
041a 0092 0847 | G| Action Push_String_Extended,0x847 ; "{O}"
041c 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
041e 860d | | Call 0x3,0xd
041f 0092 0848 | H| Action Push_String_Extended,0x848 ; "!machine.sims.[database,detail]??"
0421 8608 | | Call 0x3,0x8
0422 00ea | | Load_Encached Null_String_Cache
0423 4800 |H | Short_Literal 0x0
0424 0092 082e | .| Action Push_String_Extended,0x82e ; "RCO"
0426 0092 0839 | 9| Action Push_String_Extended,0x839 ; "{RC}"
0428 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
042a 00ea | | Load_Encached Null_String_Cache
042b 0092 0847 | G| Action Push_String_Extended,0x847 ; "{O}"
042d 0092 082f | /| Action Push_String_Extended,0x82f ; "RC"
042f 860d | | Call 0x3,0xd
0430 0092 0849 | I| Action Push_String_Extended,0x849 ; "!machine.sims.to_rational??"
0432 8608 | | Call 0x3,0x8
0433 0092 084a | J| Action Push_String_Extended,0x84a ; "Mailer=>RCO"
0435 0092 084b | K| Action Push_String_Extended,0x84b ; "!Machine.[Mail,Transfer]??"
0437 860a | | Call 0x3,0xa
0438 0092 084c | L| Action Push_String_Extended,0x84c ; "Mailer=>R"
043a 0092 084d | M| Action Push_String_Extended,0x84d ; "!Users.@.Mailbox.Main_Set.[$,$^,$^^]"
043c 860a | | Call 0x3,0xa
043d e5fa | | Load 0x2,-0x6
043e 6802 |h | Jump_Zero 0x441
043f e001 | | Load 0x0,0x1
0440 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0441 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0442 0000 0000 | | .BLANK 0000[0x6]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e602 | | Load 0x3,0x2
044c 6824 |h$ | Jump_Zero 0x471
044d e7fb | | Load 0x3,-0x5
044e 680c |h | Jump_Zero 0x45b
044f 0092 0822 | "| Action Push_String_Extended,0x822 ; "Def "
0451 4823 |H# | Short_Literal 0x23
0452 e9ff | | Load 0x4,-0x1
0453 8607 | | Call 0x3,0x7
0454 01cc | | Execute Vector,Catenate
0455 0092 084e | N| Action Push_String_Extended,0x84e ; ": Network_Public=>OWNER"
0457 01cc | | Execute Vector,Catenate
0458 e003 | | Load 0x0,0x3
0459 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
045a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
045b 0092 084f | O| Action Push_String_Extended,0x84f ; "*** ++*"
045d e9ff | | Load 0x4,-0x1
045e e002 | | Load 0x0,0x2
045f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0460 0092 084f | O| Action Push_String_Extended,0x84f ; "*** ++*"
0462 e9ff | | Load 0x4,-0x1
0463 0092 081e | | Action Push_String_Extended,0x81e ; "<ALL>"
0465 e002 | | Load 0x0,0x2
0466 180f | | Execute Package,Field_Execute,Field_Number 0xf
0467 0092 0850 | P| Action Push_String_Extended,0x850 ; "++* ***"
0469 4801 |H | Short_Literal 0x1
046a e9ff | | Load 0x4,-0x1
046b 4803 |H | Short_Literal 0x3
046c 0092 0851 | Q| Action Push_String_Extended,0x851 ; "network_public"
046e e002 | | Load 0x0,0x2
046f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0470 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0471 e7fb | | Load 0x3,-0x5
0472 682d |h- | Jump_Zero 0x4a0
0473 0092 0822 | "| Action Push_String_Extended,0x822 ; "Def "
0475 4823 |H# | Short_Literal 0x23
0476 e9ff | | Load 0x4,-0x1
0477 8607 | | Call 0x3,0x7
0478 01cc | | Execute Vector,Catenate
0479 0092 0852 | R| Action Push_String_Extended,0x852 ; ": Public=>"
047b 01cc | | Execute Vector,Catenate
047c e9fe | | Load 0x4,-0x2
047d e002 | | Load 0x0,0x2
047e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
047f 011c | | Execute Any,Convert_Unchecked
0480 1c01 | | Execute_Immediate Run_Utility,0x1
0481 01cc | | Execute Vector,Catenate
0482 0092 0853 | S| Action Push_String_Extended,0x853 ; ", System=>"
0484 01cc | | Execute Vector,Catenate
0485 e9fd | | Load 0x4,-0x3
0486 e002 | | Load 0x0,0x2
0487 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0488 011c | | Execute Any,Convert_Unchecked
0489 1c01 | | Execute_Immediate Run_Utility,0x1
048a 01cc | | Execute Vector,Catenate
048b 0092 0854 | T| Action Push_String_Extended,0x854 ; ", Operator=>"
048d 01cc | | Execute Vector,Catenate
048e e9fc | | Load 0x4,-0x4
048f e002 | | Load 0x0,0x2
0490 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0491 011c | | Execute Any,Convert_Unchecked
0492 1c01 | | Execute_Immediate Run_Utility,0x1
0493 01cc | | Execute Vector,Catenate
0494 0092 0855 | U| Action Push_String_Extended,0x855 ; ", Network_Public=>"
0496 01cc | | Execute Vector,Catenate
0497 e9fb | | Load 0x4,-0x5
0498 e002 | | Load 0x0,0x2
0499 1b0d | | Execute Package,Field_Read,Field_Number 0xd
049a 011c | | Execute Any,Convert_Unchecked
049b 1c01 | | Execute_Immediate Run_Utility,0x1
049c 01cc | | Execute Vector,Catenate
049d e003 | | Load 0x0,0x3
049e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
049f 4506 |E | Exit_Suprogram New_Top_Offset 0x6
04a0 0092 0850 | P| Action Push_String_Extended,0x850 ; "++* ***"
04a2 e9ff | | Load 0x4,-0x1
04a3 e002 | | Load 0x0,0x2
04a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04a5 0092 0856 | V| Action Push_String_Extended,0x856 ; "***"
04a7 e9ff | | Load 0x4,-0x1
04a8 0092 081e | | Action Push_String_Extended,0x81e ; "<ALL>"
04aa e002 | | Load 0x0,0x2
04ab 180f | | Execute Package,Field_Execute,Field_Number 0xf
04ac 0092 0850 | P| Action Push_String_Extended,0x850 ; "++* ***"
04ae 4801 |H | Short_Literal 0x1
04af e9ff | | Load 0x4,-0x1
04b0 e9fe | | Load 0x4,-0x2
04b1 0092 0857 | W| Action Push_String_Extended,0x857 ; "public"
04b3 e002 | | Load 0x0,0x2
04b4 180e | | Execute Package,Field_Execute,Field_Number 0xe
04b5 0092 0850 | P| Action Push_String_Extended,0x850 ; "++* ***"
04b7 4801 |H | Short_Literal 0x1
04b8 e9ff | | Load 0x4,-0x1
04b9 e9fd | | Load 0x4,-0x3
04ba 0092 0858 | X| Action Push_String_Extended,0x858 ; "system"
04bc e002 | | Load 0x0,0x2
04bd 180e | | Execute Package,Field_Execute,Field_Number 0xe
04be 0092 0850 | P| Action Push_String_Extended,0x850 ; "++* ***"
04c0 4801 |H | Short_Literal 0x1
04c1 e9ff | | Load 0x4,-0x1
04c2 e9fc | | Load 0x4,-0x4
04c3 0092 0859 | Y| Action Push_String_Extended,0x859 ; "operator"
04c5 e002 | | Load 0x0,0x2
04c6 180e | | Execute Package,Field_Execute,Field_Number 0xe
04c7 0092 0850 | P| Action Push_String_Extended,0x850 ; "++* ***"
04c9 4801 |H | Short_Literal 0x1
04ca e9ff | | Load 0x4,-0x1
04cb e9fb | | Load 0x4,-0x5
04cc 0092 0851 | Q| Action Push_String_Extended,0x851 ; "network_public"
04ce e002 | | Load 0x0,0x2
04cf 180e | | Execute Package,Field_Execute,Field_Number 0xe
04d0 4506 |E | Exit_Suprogram New_Top_Offset 0x6
04d1 0000 0000 | | .BLANK 0000[0x7]
04d8 ; --------------------------------------------------------------------------------------
04d8 ; SUBPROGRAM
04d8 ; --------------------------------------------------------------------------------------
04d8 04db | | .CONST 0x04db ; Address of begin
04d9 0004 | | .CONST 0x0004 ; Address of exception handler
04da 0001 | | .CONST 0x0001 ; Number of locals
04db BODY_04d8:
04db INIT_04d8:
04db 4800 |H | Short_Literal 0x0
04dc 4803 |H | Short_Literal 0x3
04dd 4802 |H | Short_Literal 0x2
04de 4801 |H | Short_Literal 0x1
04df 0092 0817 | | Action Push_String_Extended,0x817 ; "!tools.@'c(subsystem)"
04e1 860f | | Call 0x3,0xf
04e2 4800 |H | Short_Literal 0x0
04e3 4803 |H | Short_Literal 0x3
04e4 4802 |H | Short_Literal 0x2
04e5 4801 |H | Short_Literal 0x1
04e6 0092 0818 | | Action Push_String_Extended,0x818 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
04e8 860f | | Call 0x3,0xf
04e9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04ea 0000 0000 | | .BLANK 0000[0x6]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f3 | | .CONST 0x04f3 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0001 | | .CONST 0x0001 ; Number of locals
04f3 BODY_04f0:
04f3 INIT_04f0:
04f3 4800 |H | Short_Literal 0x0
04f4 a606 | | Store_Unchecked 0x3,0x6
04f5 e5fa | | Load 0x2,-0x6
04f6 6805 |h | Jump_Zero 0x4fc
04f7 e7fa | | Load 0x3,-0x6
04f8 0092 085a | Z| Action Push_String_Extended,0x85a ; "World Default ACL's"
04fa e001 | | Load 0x0,0x1
04fb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04fc 00ea | | Load_Encached Null_String_Cache
04fd 4800 |H | Short_Literal 0x0
04fe 00ea | | Load_Encached Null_String_Cache
04ff 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0501 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0503 00ea | | Load_Encached Null_String_Cache
0504 00ea | | Load_Encached Null_String_Cache
0505 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0507 860d | | Call 0x3,0xd
0508 0092 080c | | Action Push_String_Extended,0x80c ; "!"
050a 8609 | | Call 0x3,0x9
050b 00ea | | Load_Encached Null_String_Cache
050c 4800 |H | Short_Literal 0x0
050d 00ea | | Load_Encached Null_String_Cache
050e 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0510 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0512 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0514 00ea | | Load_Encached Null_String_Cache
0515 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0517 860d | | Call 0x3,0xd
0518 0092 085c | \| Action Push_String_Extended,0x85c ; "![commands,implementation,io,lrm,tools]"
051a 8609 | | Call 0x3,0x9
051b 00ea | | Load_Encached Null_String_Cache
051c 4800 |H | Short_Literal 0x0
051d 00ea | | Load_Encached Null_String_Cache
051e 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0520 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0522 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0524 00ea | | Load_Encached Null_String_Cache
0525 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0527 860d | | Call 0x3,0xd
0528 0092 0833 | 3| Action Push_String_Extended,0x833 ; "!compiler_interface"
052a 8609 | | Call 0x3,0x9
052b 00ea | | Load_Encached Null_String_Cache
052c 4800 |H | Short_Literal 0x0
052d 00ea | | Load_Encached Null_String_Cache
052e 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0530 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0532 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0534 00ea | | Load_Encached Null_String_Cache
0535 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0537 860d | | Call 0x3,0xd
0538 0092 0834 | 4| Action Push_String_Extended,0x834 ; "!commands.abbreviations"
053a 8609 | | Call 0x3,0x9
053b 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
053d 4800 |H | Short_Literal 0x0
053e 00ea | | Load_Encached Null_String_Cache
053f 00ea | | Load_Encached Null_String_Cache
0540 00ea | | Load_Encached Null_String_Cache
0541 00ea | | Load_Encached Null_String_Cache
0542 00ea | | Load_Encached Null_String_Cache
0543 00ea | | Load_Encached Null_String_Cache
0544 860d | | Call 0x3,0xd
0545 0092 0837 | 7| Action Push_String_Extended,0x837 ; "!machine"
0547 8609 | | Call 0x3,0x9
0548 00ea | | Load_Encached Null_String_Cache
0549 4800 |H | Short_Literal 0x0
054a 00ea | | Load_Encached Null_String_Cache
054b 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
054d 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
054f 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0551 00ea | | Load_Encached Null_String_Cache
0552 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0554 860d | | Call 0x3,0xd
0555 0092 085e | ^| Action Push_String_Extended,0x85e ; "!Machine.accounting"
0557 8609 | | Call 0x3,0x9
0558 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
055a 4800 |H | Short_Literal 0x0
055b 00ea | | Load_Encached Null_String_Cache
055c 00ea | | Load_Encached Null_String_Cache
055d 00ea | | Load_Encached Null_String_Cache
055e 00ea | | Load_Encached Null_String_Cache
055f 00ea | | Load_Encached Null_String_Cache
0560 00ea | | Load_Encached Null_String_Cache
0561 860d | | Call 0x3,0xd
0562 0092 085f | _| Action Push_String_Extended,0x85f ; "!Machine.Error_Logs"
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 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
056a 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
056c 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
056e 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
0570 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0572 860d | | Call 0x3,0xd
0573 0092 0860 | `| Action Push_String_Extended,0x860 ; "!Machine.[initialization,initialization.[site,rational]]"
0575 8609 | | Call 0x3,0x9
0576 00ea | | Load_Encached Null_String_Cache
0577 4800 |H | Short_Literal 0x0
0578 00ea | | Load_Encached Null_String_Cache
0579 00ea | | Load_Encached Null_String_Cache
057a 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
057c 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
057e 00ea | | Load_Encached Null_String_Cache
057f 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0581 860d | | Call 0x3,0xd
0582 0092 0861 | a| Action Push_String_Extended,0x861 ; "!Machine.[cg_data,devices,editor_data]"
0584 8609 | | Call 0x3,0x9
0585 00ea | | Load_Encached Null_String_Cache
0586 4800 |H | Short_Literal 0x0
0587 00ea | | Load_Encached Null_String_Cache
0588 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
058a 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
058c 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
058e 00ea | | Load_Encached Null_String_Cache
058f 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0591 860d | | Call 0x3,0xd
0592 0092 0862 | b| Action Push_String_Extended,0x862 ; "!Machine.[groups,users]"
0594 8609 | | Call 0x3,0x9
0595 00ea | | Load_Encached Null_String_Cache
0596 4800 |H | Short_Literal 0x0
0597 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0599 0092 0863 | c| Action Push_String_Extended,0x863 ; "{W}"
059b 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
059d 00ea | | Load_Encached Null_String_Cache
059e 0092 0863 | c| Action Push_String_Extended,0x863 ; "{W}"
05a0 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
05a2 860d | | Call 0x3,0xd
05a3 0092 0864 | d| Action Push_String_Extended,0x864 ; "!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 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
05aa 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
05ac 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
05ae 00ea | | Load_Encached Null_String_Cache
05af 0092 0863 | c| Action Push_String_Extended,0x863 ; "{W}"
05b1 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
05b3 860d | | Call 0x3,0xd
05b4 0092 0865 | e| Action Push_String_Extended,0x865 ; "!Machine.[Mail,Transfer].Distribute'c(world)"
05b6 8609 | | Call 0x3,0x9
05b7 00ea | | Load_Encached Null_String_Cache
05b8 4800 |H | Short_Literal 0x0
05b9 00ea | | Load_Encached Null_String_Cache
05ba 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
05bc 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
05be 00ea | | Load_Encached Null_String_Cache
05bf 00ea | | Load_Encached Null_String_Cache
05c0 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
05c2 860d | | Call 0x3,0xd
05c3 0092 0866 | f| Action Push_String_Extended,0x866 ; "!Machine.Release??'c(world)"
05c5 8609 | | Call 0x3,0x9
05c6 00ea | | Load_Encached Null_String_Cache
05c7 4800 |H | Short_Literal 0x0
05c8 00ea | | Load_Encached Null_String_Cache
05c9 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
05cb 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
05cd 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
05cf 00ea | | Load_Encached Null_String_Cache
05d0 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
05d2 860d | | Call 0x3,0xd
05d3 0092 0867 | g| Action Push_String_Extended,0x867 ; "!Machine.Search_Lists"
05d5 8609 | | Call 0x3,0x9
05d6 00ea | | Load_Encached Null_String_Cache
05d7 4800 |H | Short_Literal 0x0
05d8 00ea | | Load_Encached Null_String_Cache
05d9 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
05db 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
05dd 00ea | | Load_Encached Null_String_Cache
05de 00ea | | Load_Encached Null_String_Cache
05df 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
05e1 860d | | Call 0x3,0xd
05e2 0092 0868 | h| Action Push_String_Extended,0x868 ; "!machine.sims"
05e4 8609 | | Call 0x3,0x9
05e5 00ea | | Load_Encached Null_String_Cache
05e6 4800 |H | Short_Literal 0x0
05e7 00ea | | Load_Encached Null_String_Cache
05e8 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
05ea 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
05ec 00ea | | Load_Encached Null_String_Cache
05ed 00ea | | Load_Encached Null_String_Cache
05ee 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
05f0 860d | | Call 0x3,0xd
05f1 0092 0869 | i| Action Push_String_Extended,0x869 ; "!machine.sims.master"
05f3 8609 | | Call 0x3,0x9
05f4 00ea | | Load_Encached Null_String_Cache
05f5 4800 |H | Short_Literal 0x0
05f6 00ea | | Load_Encached Null_String_Cache
05f7 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
05f9 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
05fb 00ea | | Load_Encached Null_String_Cache
05fc 00ea | | Load_Encached Null_String_Cache
05fd 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
05ff 860d | | Call 0x3,0xd
0600 0092 086a | j| Action Push_String_Extended,0x86a ; "!Machine.sims.[database,detail]"
0602 8609 | | Call 0x3,0x9
0603 00ea | | Load_Encached Null_String_Cache
0604 4800 |H | Short_Literal 0x0
0605 00ea | | Load_Encached Null_String_Cache
0606 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
0608 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
060a 00ea | | Load_Encached Null_String_Cache
060b 00ea | | Load_Encached Null_String_Cache
060c 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
060e 860d | | Call 0x3,0xd
060f 0092 086b | k| Action Push_String_Extended,0x86b ; "!Machine.sims.to_rational.@'c(world)"
0611 8609 | | Call 0x3,0x9
0612 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0614 4800 |H | Short_Literal 0x0
0615 00ea | | Load_Encached Null_String_Cache
0616 00ea | | Load_Encached Null_String_Cache
0617 00ea | | Load_Encached Null_String_Cache
0618 00ea | | Load_Encached Null_String_Cache
0619 00ea | | Load_Encached Null_String_Cache
061a 00ea | | Load_Encached Null_String_Cache
061b 860d | | Call 0x3,0xd
061c 0092 086c | l| Action Push_String_Extended,0x86c ; "!Machine.Temporary"
061e 8609 | | Call 0x3,0x9
061f 00ea | | Load_Encached Null_String_Cache
0620 4800 |H | Short_Literal 0x0
0621 00ea | | Load_Encached Null_String_Cache
0622 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0624 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0626 00ea | | Load_Encached Null_String_Cache
0627 00ea | | Load_Encached Null_String_Cache
0628 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
062a 860d | | Call 0x3,0xd
062b 0092 086d | m| Action Push_String_Extended,0x86d ; "!model.??'c(world)"
062d 8609 | | Call 0x3,0x9
062e 00ea | | Load_Encached Null_String_Cache
062f 4800 |H | Short_Literal 0x0
0630 00ea | | Load_Encached Null_String_Cache
0631 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
0633 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0635 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0637 00ea | | Load_Encached Null_String_Cache
0638 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
063a 860d | | Call 0x3,0xd
063b 0092 0836 | 6| Action Push_String_Extended,0x836 ; "!users"
063d 8609 | | Call 0x3,0x9
063e 0092 086e | n| Action Push_String_Extended,0x86e ; "Mailer=>RW"
0640 0092 086f | o| Action Push_String_Extended,0x86f ; "!Machine.[Mail,Transfer]??'c(world)"
0642 860b | | Call 0x3,0xb
0643 e5fa | | Load 0x2,-0x6
0644 6802 |h | Jump_Zero 0x647
0645 e001 | | Load 0x0,0x1
0646 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0647 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0648 ; --------------------------------------------------------------------------------------
0648 ; SUBPROGRAM
0648 ; --------------------------------------------------------------------------------------
0648 064b | K | .CONST 0x064b ; Address of begin
0649 0004 | | .CONST 0x0004 ; Address of exception handler
064a 0001 | | .CONST 0x0001 ; Number of locals
064b BODY_0648:
064b INIT_0648:
064b 4800 |H | Short_Literal 0x0
064c a606 | | Store_Unchecked 0x3,0x6
064d e5fa | | Load 0x2,-0x6
064e 6805 |h | Jump_Zero 0x654
064f e7fa | | Load 0x3,-0x6
0650 0092 0870 | p| Action Push_String_Extended,0x870 ; "Object ACL (Non-World)"
0652 e001 | | Load 0x0,0x1
0653 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0654 00ea | | Load_Encached Null_String_Cache
0655 4801 |H | Short_Literal 0x1
0656 00ea | | Load_Encached Null_String_Cache
0657 00ea | | Load_Encached Null_String_Cache
0658 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
065a 00ea | | Load_Encached Null_String_Cache
065b 00ea | | Load_Encached Null_String_Cache
065c 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
065e 860d | | Call 0x3,0xd
065f 0092 0871 | q| Action Push_String_Extended,0x871 ; "![commands,io,lrm,tools].?"
0661 8608 | | Call 0x3,0x8
0662 00ea | | Load_Encached Null_String_Cache
0663 4801 |H | Short_Literal 0x1
0664 00ea | | Load_Encached Null_String_Cache
0665 00ea | | Load_Encached Null_String_Cache
0666 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0668 00ea | | Load_Encached Null_String_Cache
0669 00ea | | Load_Encached Null_String_Cache
066a 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
066c 860d | | Call 0x3,0xd
066d 0092 0872 | r| Action Push_String_Extended,0x872 ; "!commands.abbreviations.?"
066f 8608 | | Call 0x3,0x8
0670 00ea | | Load_Encached Null_String_Cache
0671 4801 |H | Short_Literal 0x1
0672 00ea | | Load_Encached Null_String_Cache
0673 00ea | | Load_Encached Null_String_Cache
0674 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0676 00ea | | Load_Encached Null_String_Cache
0677 00ea | | Load_Encached Null_String_Cache
0678 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
067a 860d | | Call 0x3,0xd
067b 0092 0873 | s| Action Push_String_Extended,0x873 ; "![compiler_interface,implementation].?"
067d 8608 | | Call 0x3,0x8
067e 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0680 4800 |H | Short_Literal 0x0
0681 00ea | | Load_Encached Null_String_Cache
0682 00ea | | Load_Encached Null_String_Cache
0683 00ea | | Load_Encached Null_String_Cache
0684 00ea | | Load_Encached Null_String_Cache
0685 00ea | | Load_Encached Null_String_Cache
0686 00ea | | Load_Encached Null_String_Cache
0687 860d | | Call 0x3,0xd
0688 0092 0874 | t| Action Push_String_Extended,0x874 ; "!compiler_interface.subsystem_interface"
068a 8608 | | Call 0x3,0x8
068b 00ea | | Load_Encached Null_String_Cache
068c 4800 |H | Short_Literal 0x0
068d 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
068f 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
0691 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0693 00ea | | Load_Encached Null_String_Cache
0694 00ea | | Load_Encached Null_String_Cache
0695 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0697 860d | | Call 0x3,0xd
0698 0092 0875 | u| Action Push_String_Extended,0x875 ; "!machine.@'c(ada)"
069a 8608 | | Call 0x3,0x8
069b 00ea | | Load_Encached Null_String_Cache
069c 4800 |H | Short_Literal 0x0
069d 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
069f 00ea | | Load_Encached Null_String_Cache
06a0 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06a2 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06a4 00ea | | Load_Encached Null_String_Cache
06a5 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
06a7 860d | | Call 0x3,0xd
06a8 0092 0876 | v| Action Push_String_Extended,0x876 ; "!machine.[cg_data,editor_data].@"
06aa 8608 | | Call 0x3,0x8
06ab 00ea | | Load_Encached Null_String_Cache
06ac 4800 |H | Short_Literal 0x0
06ad 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06af 00ea | | Load_Encached Null_String_Cache
06b0 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06b2 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
06b4 00ea | | Load_Encached Null_String_Cache
06b5 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06b7 860d | | Call 0x3,0xd
06b8 0092 0877 | w| Action Push_String_Extended,0x877 ; "!machine.[initialization,initialization.[site,rational]].?"
06ba 8608 | | Call 0x3,0x8
06bb 00ea | | Load_Encached Null_String_Cache
06bc 4800 |H | Short_Literal 0x0
06bd 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06bf 00ea | | Load_Encached Null_String_Cache
06c0 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06c2 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06c4 00ea | | Load_Encached Null_String_Cache
06c5 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06c7 860d | | Call 0x3,0xd
06c8 0092 0878 | x| Action Push_String_Extended,0x878 ; "!Machine.Accounting.@"
06ca 8608 | | Call 0x3,0x8
06cb 00ea | | Load_Encached Null_String_Cache
06cc 4800 |H | Short_Literal 0x0
06cd 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06cf 0092 0863 | c| Action Push_String_Extended,0x863 ; "{W}"
06d1 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06d3 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06d5 00ea | | Load_Encached Null_String_Cache
06d6 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06d8 860d | | Call 0x3,0xd
06d9 0092 0879 | y| Action Push_String_Extended,0x879 ; "!Machine.Error_Logs.[@,~Mail_Distribute_Server@]"
06db 8608 | | Call 0x3,0x8
06dc 00ea | | Load_Encached Null_String_Cache
06dd 4800 |H | Short_Literal 0x0
06de 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06e0 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06e2 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06e4 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06e6 00ea | | Load_Encached Null_String_Cache
06e7 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
06e9 860d | | Call 0x3,0xd
06ea 0092 087a | z| Action Push_String_Extended,0x87a ; "!Machine.Error_Logs.Mail_Distribute_Server@"
06ec 8608 | | Call 0x3,0x8
06ed 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
06ef 4800 |H | Short_Literal 0x0
06f0 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
06f2 00ea | | Load_Encached Null_String_Cache
06f3 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
06f5 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
06f7 00ea | | Load_Encached Null_String_Cache
06f8 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
06fa 860d | | Call 0x3,0xd
06fb 0092 087b | {| Action Push_String_Extended,0x87b ; "!Machine.Machine_Name"
06fd 8608 | | Call 0x3,0x8
06fe 00ea | | Load_Encached Null_String_Cache
06ff 4800 |H | Short_Literal 0x0
0700 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0702 0092 0863 | c| Action Push_String_Extended,0x863 ; "{W}"
0704 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0706 00ea | | Load_Encached Null_String_Cache
0707 0092 0863 | c| Action Push_String_Extended,0x863 ; "{W}"
0709 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
070b 860d | | Call 0x3,0xd
070c 0092 087c | || Action Push_String_Extended,0x87c ; "!Machine.[Mail,Transfer].[??,~Distribute.??]"
070e 8608 | | Call 0x3,0x8
070f 00ea | | Load_Encached Null_String_Cache
0710 4800 |H | Short_Literal 0x0
0711 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0713 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0715 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0717 00ea | | Load_Encached Null_String_Cache
0718 0092 0863 | c| Action Push_String_Extended,0x863 ; "{W}"
071a 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
071c 860d | | Call 0x3,0xd
071d 0092 087d | }| Action Push_String_Extended,0x87d ; "!Machine.[Mail,Transfer].Distribute.??"
071f 8608 | | Call 0x3,0x8
0720 0092 082d | -| Action Push_String_Extended,0x82d ; "R"
0722 4800 |H | Short_Literal 0x0
0723 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0725 00ea | | Load_Encached Null_String_Cache
0726 00ea | | Load_Encached Null_String_Cache
0727 00ea | | Load_Encached Null_String_Cache
0728 00ea | | Load_Encached Null_String_Cache
0729 00ea | | Load_Encached Null_String_Cache
072a 860d | | Call 0x3,0xd
072b 0092 087e | ~| Action Push_String_Extended,0x87e ; "!Machine.release.??'c(file,ada)"
072d 8608 | | Call 0x3,0x8
072e 00ea | | Load_Encached Null_String_Cache
072f 4800 |H | Short_Literal 0x0
0730 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0732 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
0734 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0736 00ea | | Load_Encached Null_String_Cache
0737 00ea | | Load_Encached Null_String_Cache
0738 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
073a 860d | | Call 0x3,0xd
073b 0092 087f | | Action Push_String_Extended,0x87f ; "!Machine.Search_lists.@"
073d 8608 | | Call 0x3,0x8
073e 00ea | | Load_Encached Null_String_Cache
073f 4800 |H | Short_Literal 0x0
0740 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0742 00ea | | Load_Encached Null_String_Cache
0743 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0745 00ea | | Load_Encached Null_String_Cache
0746 00ea | | Load_Encached Null_String_Cache
0747 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0749 860d | | Call 0x3,0xd
074a 0092 0880 | | Action Push_String_Extended,0x880 ; "!Machine.sims.@'c(ada,file)"
074c 8608 | | Call 0x3,0x8
074d 00ea | | Load_Encached Null_String_Cache
074e 4800 |H | Short_Literal 0x0
074f 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0751 00ea | | Load_Encached Null_String_Cache
0752 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0754 00ea | | Load_Encached Null_String_Cache
0755 00ea | | Load_Encached Null_String_Cache
0756 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0758 860d | | Call 0x3,0xd
0759 0092 0881 | | Action Push_String_Extended,0x881 ; "!Machine.sims.[master,to_rational].@'c(ada,file)"
075b 8608 | | Call 0x3,0x8
075c 00ea | | Load_Encached Null_String_Cache
075d 4800 |H | Short_Literal 0x0
075e 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0760 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
0762 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0764 00ea | | Load_Encached Null_String_Cache
0765 00ea | | Load_Encached Null_String_Cache
0766 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0768 860d | | Call 0x3,0xd
0769 0092 0882 | | Action Push_String_Extended,0x882 ; "!Machine.sims.[database,detail]@'c(ada,file)"
076b 8608 | | Call 0x3,0x8
076c 00ea | | Load_Encached Null_String_Cache
076d 4800 |H | Short_Literal 0x0
076e 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0770 0092 085d | ]| Action Push_String_Extended,0x85d ; "{RW}"
0772 0092 083a | :| Action Push_String_Extended,0x83a ; "{R}"
0774 00ea | | Load_Encached Null_String_Cache
0775 00ea | | Load_Encached Null_String_Cache
0776 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
0778 860d | | Call 0x3,0xd
0779 0092 0883 | | Action Push_String_Extended,0x883 ; "!Machine.sims.to_rational.@'c(ada,file)"
077b 8608 | | Call 0x3,0x8
077c 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
077e 4800 |H | Short_Literal 0x0
077f 00ea | | Load_Encached Null_String_Cache
0780 00ea | | Load_Encached Null_String_Cache
0781 00ea | | Load_Encached Null_String_Cache
0782 00ea | | Load_Encached Null_String_Cache
0783 00ea | | Load_Encached Null_String_Cache
0784 00ea | | Load_Encached Null_String_Cache
0785 860d | | Call 0x3,0xd
0786 0092 0884 | | Action Push_String_Extended,0x884 ; "!Machine.Switch_Definitions"
0788 8608 | | Call 0x3,0x8
0789 0092 085b | [| Action Push_String_Extended,0x85b ; "RW"
078b 4800 |H | Short_Literal 0x0
078c 00ea | | Load_Encached Null_String_Cache
078d 00ea | | Load_Encached Null_String_Cache
078e 00ea | | Load_Encached Null_String_Cache
078f 00ea | | Load_Encached Null_String_Cache
0790 00ea | | Load_Encached Null_String_Cache
0791 00ea | | Load_Encached Null_String_Cache
0792 860d | | Call 0x3,0xd
0793 0092 0885 | | Action Push_String_Extended,0x885 ; "!machine.temporary.@"
0795 8608 | | Call 0x3,0x8
0796 0092 086e | n| Action Push_String_Extended,0x86e ; "Mailer=>RW"
0798 0092 0841 | A| Action Push_String_Extended,0x841 ; "!Machine.[Mail,Transfer].??"
079a 860a | | Call 0x3,0xa
079b 0092 086e | n| Action Push_String_Extended,0x86e ; "Mailer=>RW"
079d 0092 0886 | | Action Push_String_Extended,0x886 ; "!Users.@.Mailbox.Main_@"
079f 860a | | Call 0x3,0xa
07a0 e5fa | | Load 0x2,-0x6
07a1 6802 |h | Jump_Zero 0x7a4
07a2 e001 | | Load 0x0,0x1
07a3 1811 | | Execute Package,Field_Execute,Field_Number 0x11
07a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
07a5 0000 0000 | | .XXX[0x3]
07a7 0000 | |
07a8 ; --------------------------------------------------------------------------------------
07a8 ; SUBPROGRAM
07a8 ; --------------------------------------------------------------------------------------
07a8 07ab | | .CONST 0x07ab ; Address of begin
07a9 0004 | | .CONST 0x0004 ; Address of exception handler
07aa 0001 | | .CONST 0x0001 ; Number of locals
07ab BODY_07a8:
07ab INIT_07a8:
07ab e7fb | | Load 0x3,-0x5
07ac 680b |h | Jump_Zero 0x7b8
07ad 4823 |H# | Short_Literal 0x23
07ae ebff | | Load 0x5,-0x1
07af 8607 | | Call 0x3,0x7
07b0 0092 0823 | #| Action Push_String_Extended,0x823 ; ": "
07b2 01cc | | Execute Vector,Catenate
07b3 e9fe | | Load 0x4,-0x2
07b4 01cc | | Execute Vector,Catenate
07b5 e003 | | Load 0x0,0x3
07b6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
07b7 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07b8 0092 0824 | $| Action Push_String_Extended,0x824 ; "<errors>"
07ba ebff | | Load 0x5,-0x1
07bb e9fe | | Load 0x4,-0x2
07bc e004 | | Load 0x0,0x4
07bd 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07be 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07bf 0000 | | .XXX[0x1]
07c0 ; --------------------------------------------------------------------------------------
07c0 ; SUBPROGRAM
07c0 ; --------------------------------------------------------------------------------------
07c0 07c3 | | .CONST 0x07c3 ; Address of begin
07c1 0004 | | .CONST 0x0004 ; Address of exception handler
07c2 0001 | | .CONST 0x0001 ; Number of locals
07c3 BODY_07c0:
07c3 INIT_07c0:
07c3 e7fb | | Load 0x3,-0x5
07c4 680e |h | Jump_Zero 0x7d3
07c5 0092 0887 | | Action Push_String_Extended,0x887 ; "Add "
07c7 4823 |H# | Short_Literal 0x23
07c8 ebff | | Load 0x5,-0x1
07c9 8607 | | Call 0x3,0x7
07ca 01cc | | Execute Vector,Catenate
07cb 0092 0823 | #| Action Push_String_Extended,0x823 ; ": "
07cd 01cc | | Execute Vector,Catenate
07ce e9fe | | Load 0x4,-0x2
07cf 01cc | | Execute Vector,Catenate
07d0 e003 | | Load 0x0,0x3
07d1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
07d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07d3 0092 0824 | $| Action Push_String_Extended,0x824 ; "<errors>"
07d5 ebff | | Load 0x5,-0x1
07d6 e9fe | | Load 0x4,-0x2
07d7 e004 | | Load 0x0,0x4
07d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
07d9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07da 0000 0000 | | .BLANK 0000[0x6]
07e0 ; --------------------------------------------------------------------------------------
07e0 ; SUBPROGRAM
07e0 ; --------------------------------------------------------------------------------------
07e0 07e3 | | .CONST 0x07e3 ; Address of begin
07e1 0004 | | .CONST 0x0004 ; Address of exception handler
07e2 0001 | | .CONST 0x0001 ; Number of locals
07e3 BODY_07e0:
07e3 INIT_07e0:
07e3 e802 | | Load 0x4,0x2
07e4 e006 | | Load 0x0,0x6
07e5 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
07e6 6809 |h | Jump_Zero 0x7f0
07e7 e802 | | Load 0x4,0x2
07e8 0092 0888 | | Action Push_String_Extended,0x888 ; ","
07ea ebff | | Load 0x5,-0x1
07eb 01cc | | Execute Vector,Catenate
07ec e006 | | Load 0x0,0x6
07ed 1818 | | Execute Package,Field_Execute,Field_Number 0x18
07ee 00d1 | | Pop_Control Pop_Count_1
07ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07f0 e802 | | Load 0x4,0x2
07f1 ebff | | Load 0x5,-0x1
07f2 e006 | | Load 0x0,0x6
07f3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
07f4 00d1 | | Pop_Control Pop_Count_1
07f5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
07f6 0000 0000 | | .XXX[0x2]
07f8 ; --------------------------------------------------------------------------------------
07f8 ; SUBPROGRAM
07f8 ; --------------------------------------------------------------------------------------
07f8 07fb | | .CONST 0x07fb ; Address of begin
07f9 0004 | | .CONST 0x0004 ; Address of exception handler
07fa 0001 | | .CONST 0x0001 ; Number of locals
07fb BODY_07f8:
07fb INIT_07f8:
07fb e804 | | Load 0x4,0x4
07fc 7005 |p | Jump_Nonzero 0x802
07fd 0092 0889 | | Action Push_String_Extended,0x889 ; "Network_Public=>"
07ff 8805 | | Call 0x4,0x5
0800 4801 |H | Short_Literal 0x1
0801 a804 | | Store_Unchecked 0x4,0x4
0802 e802 | | Load 0x4,0x2
0803 ebff | | Load 0x5,-0x1
0804 e006 | | Load 0x0,0x6
0805 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0806 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0807 ; --------------------------------------------------------------------------------------
0807 ; STRING TABLE
0807 ; --------------------------------------------------------------------------------------
0807 0108 | | .STRTAB 0x0108->0x088b ; "None "
0808 010c | | .STRTAB 0x010c->0x088e ; "Open "
0809 0110 | | .STRTAB 0x0110->0x0891 ; "Safe "
080a 0114 | | .STRTAB 0x0114->0x0894 ; "Secure"
080b 0118 | | .STRTAB 0x0118->0x0897 ; " level"
080c 011c | | .STRTAB 0x011c->0x089a ; "!"
080d 011b | | .STRTAB 0x011b->0x089a ; "!commands.@"
080e 0124 | $ | .STRTAB 0x0124->0x08a0 ; "!commands.abbreviations.@"
080f 013b | ; | .STRTAB 0x013b->0x08ac ; "!compiler_interface??"
0810 014e | N | .STRTAB 0x014e->0x08b7 ; "!implementation??"
0811 015d | ] | .STRTAB 0x015d->0x08bf ; "!io??"
0812 0160 | ` | .STRTAB 0x0160->0x08c2 ; "!lrm??"
0813 0164 | d | .STRTAB 0x0164->0x08c5 ; "!machine@"
0814 016b | k | .STRTAB 0x016b->0x08c9 ; "!model??"
0815 0171 | q | .STRTAB 0x0171->0x08cd ; "!tools.@"
0816 0177 | w | .STRTAB 0x0177->0x08d1 ; "!tools.networking.@"
0817 0188 | | .STRTAB 0x0188->0x08db ; "!tools.@'c(subsystem)"
0818 019b | | .STRTAB 0x019b->0x08e5 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
0819 01c6 | | .STRTAB 0x01c6->0x08fc ; " with network Read"
081a 01d6 | | .STRTAB 0x01d6->0x0905 ; " with network Read and Write"
081b 01f0 | | .STRTAB 0x01f0->0x0913 ; "------- "
081c 01f6 | | .STRTAB 0x01f6->0x0917 ; "------- defaults: "
081d 0206 | | .STRTAB 0x0206->0x0920 ; "+++ ++* ***"
081e 020f | | .STRTAB 0x020f->0x0925 ; "<ALL>"
081f 0212 | | .STRTAB 0x0212->0x0928 ; "Illegal value of level parameter. Must be 0..3."
0820 0240 | @ | .STRTAB 0x0240->0x0940 ; "'c(world)"
0821 0247 | G | .STRTAB 0x0247->0x0944 ; "'c(~library)"
0822 0251 | Q | .STRTAB 0x0251->0x094a ; "Def "
0823 0253 | S | .STRTAB 0x0253->0x094c ; ": "
0824 0253 | S | .STRTAB 0x0253->0x094d ; "<errors>"
0825 0259 | Y | .STRTAB 0x0259->0x0951 ; "Add_Def "
0826 025f | _ | .STRTAB 0x025f->0x0955 ; "Network_Public=>RCO"
0827 0270 | p | .STRTAB 0x0270->0x095f ; "Network_Public=>R"
0828 027f | | .STRTAB 0x027f->0x0967 ; "Network_Public=>RW"
0829 028f | | .STRTAB 0x028f->0x0970 ; "System=>"
082a 0295 | | .STRTAB 0x0295->0x0974 ; "Public=>"
082b 029b | | .STRTAB 0x029b->0x0978 ; "Operator=>"
082c 02a3 | | .STRTAB 0x02a3->0x097d ; "World ACL's"
082d 02ac | | .STRTAB 0x02ac->0x0983 ; "R"
082e 02ab | | .STRTAB 0x02ab->0x0983 ; "RCO"
082f 02ac | | .STRTAB 0x02ac->0x0985 ; "RC"
0830 02ac | | .STRTAB 0x02ac->0x0986 ; "CO"
0831 02ac | | .STRTAB 0x02ac->0x0987 ; "![Commands,Io,Lrm,Model??]"
0832 02c4 | | .STRTAB 0x02c4->0x0994 ; "!tools"
0833 02c8 | | .STRTAB 0x02c8->0x0997 ; "!compiler_interface"
0834 02d9 | | .STRTAB 0x02d9->0x09a0 ; "!commands.abbreviations"
0835 02ee | | .STRTAB 0x02ee->0x09ac ; "!Implementation"
0836 02fb | | .STRTAB 0x02fb->0x09b3 ; "!users"
0837 02ff | | .STRTAB 0x02ff->0x09b6 ; "!machine"
0838 0305 | | .STRTAB 0x0305->0x09ba ; "!machine.[cg_data,devices,editor_data]"
0839 0329 | ) | .STRTAB 0x0329->0x09cd ; "{RC}"
083a 032b | + | .STRTAB 0x032b->0x09cf ; "{R}"
083b 032c | , | .STRTAB 0x032c->0x09d1 ; "{CO}"
083c 032e | . | .STRTAB 0x032e->0x09d3 ; "!machine.accounting"
083d 033f | ? | .STRTAB 0x033f->0x09dc ; "{RCO}"
083e 0342 | B | .STRTAB 0x0342->0x09df ; "!machine.[initialization,initialization.[rational,site]]"
083f 0378 | x | .STRTAB 0x0378->0x09fb ; "!machine.error_logs"
0840 0389 | | .STRTAB 0x0389->0x0a04 ; "!machine.[groups,users]"
0841 039e | | .STRTAB 0x039e->0x0a10 ; "!Machine.[Mail,Transfer].??"
0842 03b7 | | .STRTAB 0x03b7->0x0a1d ; "!machine.release??"
0843 03c7 | | .STRTAB 0x03c7->0x0a26 ; "O"
0844 03c6 | | .STRTAB 0x03c6->0x0a27 ; "!machine.search_lists"
0845 03d9 | | .STRTAB 0x03d9->0x0a31 ; "!machine.temporary"
0846 03e9 | | .STRTAB 0x03e9->0x0a3a ; "!machine.[sims,sims.master,sims.to_rational]"
0847 0413 | | .STRTAB 0x0413->0x0a50 ; "{O}"
0848 0414 | | .STRTAB 0x0414->0x0a52 ; "!machine.sims.[database,detail]??"
0849 0433 | 3 | .STRTAB 0x0433->0x0a62 ; "!machine.sims.to_rational??"
084a 044c | L | .STRTAB 0x044c->0x0a70 ; "Mailer=>RCO"
084b 0455 | U | .STRTAB 0x0455->0x0a75 ; "!Machine.[Mail,Transfer]??"
084c 046d | m | .STRTAB 0x046d->0x0a82 ; "Mailer=>R"
084d 0474 | t | .STRTAB 0x0474->0x0a87 ; "!Users.@.Mailbox.Main_Set.[$,$^,$^^]"
084e 0496 | | .STRTAB 0x0496->0x0a99 ; ": Network_Public=>OWNER"
084f 04ab | | .STRTAB 0x04ab->0x0aa4 ; "*** ++*"
0850 04b0 | | .STRTAB 0x04b0->0x0aa8 ; "++* ***"
0851 04b5 | | .STRTAB 0x04b5->0x0aab ; "network_public"
0852 04c1 | | .STRTAB 0x04c1->0x0ab2 ; ": Public=>"
0853 04c9 | | .STRTAB 0x04c9->0x0ab7 ; ", System=>"
0854 04d1 | | .STRTAB 0x04d1->0x0abc ; ", Operator=>"
0855 04db | | .STRTAB 0x04db->0x0ac2 ; ", Network_Public=>"
0856 04eb | | .STRTAB 0x04eb->0x0acb ; "***"
0857 04ec | | .STRTAB 0x04ec->0x0acd ; "public"
0858 04f0 | | .STRTAB 0x04f0->0x0ad0 ; "system"
0859 04f4 | | .STRTAB 0x04f4->0x0ad3 ; "operator"
085a 04fa | | .STRTAB 0x04fa->0x0ad7 ; "World Default ACL's"
085b 050b | | .STRTAB 0x050b->0x0ae0 ; "RW"
085c 050b | | .STRTAB 0x050b->0x0ae1 ; "![commands,implementation,io,lrm,tools]"
085d 0530 | 0 | .STRTAB 0x0530->0x0af5 ; "{RW}"
085e 0532 | 2 | .STRTAB 0x0532->0x0af7 ; "!Machine.accounting"
085f 0543 | C | .STRTAB 0x0543->0x0b00 ; "!Machine.Error_Logs"
0860 0554 | T | .STRTAB 0x0554->0x0b0a ; "!Machine.[initialization,initialization.[site,rational]]"
0861 058a | | .STRTAB 0x058a->0x0b26 ; "!Machine.[cg_data,devices,editor_data]"
0862 05ae | | .STRTAB 0x05ae->0x0b39 ; "!Machine.[groups,users]"
0863 05c3 | | .STRTAB 0x05c3->0x0b44 ; "{W}"
0864 05c4 | | .STRTAB 0x05c4->0x0b46 ; "!Machine.[Mail,Transfer].[??,~Distribute]'c(world)"
0865 05f4 | | .STRTAB 0x05f4->0x0b5f ; "!Machine.[Mail,Transfer].Distribute'c(world)"
0866 061e | | .STRTAB 0x061e->0x0b75 ; "!Machine.Release??'c(world)"
0867 0637 | 7 | .STRTAB 0x0637->0x0b82 ; "!Machine.Search_Lists"
0868 064a | J | .STRTAB 0x064a->0x0b8d ; "!machine.sims"
0869 0655 | U | .STRTAB 0x0655->0x0b93 ; "!machine.sims.master"
086a 0667 | g | .STRTAB 0x0667->0x0b9d ; "!Machine.sims.[database,detail]"
086b 0684 | | .STRTAB 0x0684->0x0bad ; "!Machine.sims.to_rational.@'c(world)"
086c 06a6 | | .STRTAB 0x06a6->0x0bbf ; "!Machine.Temporary"
086d 06b6 | | .STRTAB 0x06b6->0x0bc8 ; "!model.??'c(world)"
086e 06c6 | | .STRTAB 0x06c6->0x0bd1 ; "Mailer=>RW"
086f 06ce | | .STRTAB 0x06ce->0x0bd6 ; "!Machine.[Mail,Transfer]??'c(world)"
0870 06ef | | .STRTAB 0x06ef->0x0be7 ; "Object ACL (Non-World)"
0871 0703 | | .STRTAB 0x0703->0x0bf2 ; "![commands,io,lrm,tools].?"
0872 071b | | .STRTAB 0x071b->0x0bff ; "!commands.abbreviations.?"
0873 0732 | 2 | .STRTAB 0x0732->0x0c0c ; "![compiler_interface,implementation].?"
0874 0756 | V | .STRTAB 0x0756->0x0c1f ; "!compiler_interface.subsystem_interface"
0875 077b | { | .STRTAB 0x077b->0x0c32 ; "!machine.@'c(ada)"
0876 078a | | .STRTAB 0x078a->0x0c3b ; "!machine.[cg_data,editor_data].@"
0877 07a8 | | .STRTAB 0x07a8->0x0c4b ; "!machine.[initialization,initialization.[site,rational]].?"
0878 07e0 | | .STRTAB 0x07e0->0x0c68 ; "!Machine.Accounting.@"
0879 07f3 | | .STRTAB 0x07f3->0x0c72 ; "!Machine.Error_Logs.[@,~Mail_Distribute_Server@]"
087a 0821 | ! | .STRTAB 0x0821->0x0c8a ; "!Machine.Error_Logs.Mail_Distribute_Server@"
087b 084a | J | .STRTAB 0x084a->0x0ca0 ; "!Machine.Machine_Name"
087c 085d | ] | .STRTAB 0x085d->0x0caa ; "!Machine.[Mail,Transfer].[??,~Distribute.??]"
087d 0887 | | .STRTAB 0x0887->0x0cc0 ; "!Machine.[Mail,Transfer].Distribute.??"
087e 08ab | | .STRTAB 0x08ab->0x0cd3 ; "!Machine.release.??'c(file,ada)"
087f 08c8 | | .STRTAB 0x08c8->0x0ce3 ; "!Machine.Search_lists.@"
0880 08dd | | .STRTAB 0x08dd->0x0cee ; "!Machine.sims.@'c(ada,file)"
0881 08f6 | | .STRTAB 0x08f6->0x0cfc ; "!Machine.sims.[master,to_rational].@'c(ada,file)"
0882 0924 | $ | .STRTAB 0x0924->0x0d14 ; "!Machine.sims.[database,detail]@'c(ada,file)"
0883 094e | N | .STRTAB 0x094e->0x0d2a ; "!Machine.sims.to_rational.@'c(ada,file)"
0884 0973 | s | .STRTAB 0x0973->0x0d3d ; "!Machine.Switch_Definitions"
0885 098c | | .STRTAB 0x098c->0x0d4b ; "!machine.temporary.@"
0886 099e | | .STRTAB 0x099e->0x0d55 ; "!Users.@.Mailbox.Main_@"
0887 09b3 | | .STRTAB 0x09b3->0x0d60 ; "Add "
0888 09b5 | | .STRTAB 0x09b5->0x0d62 ; ","
0889 09b4 | | .STRTAB 0x09b4->0x0d63 ; "Network_Public=>"
088a 09c2 | | .STREND 0x09c2->0x0d6b
088b 4e6f 6e65 |None| .STRTAB_STRINGS
0d6b 0000 0000 | | .BLANK 0000[0x5]
0d70 ; --------------------------------------------------------------------------------------
0d70 ; Debug Table
0d70 ; --------------------------------------------------------------------------------------
0d70 0004 000d | | .DEBUG4 0x0004,0x000d,0xe986,0x0000,0x0001,0x0000
0d76 0000 06a0 | | .XXX[0x6]
0d78 0001 0404 | |
0d7a 0800 0888 | |
0d7c 0000 0000 | | .BLANK 0000[0xa]
0d86 004e e8b5 | N | .XXX[0x2]
0d88 0000 0000 | | .BLANK 0000[0x7]
0d8f 0048 | H | .XXX[0x1]
0d90 0000 0000 | | .BLANK 0000[0x8]
0d98 0014 a4fe | | .XXX[0x5]
0d9a 0800 0480 | |
0d9c 8000 | |
0d9d 0000 0000 | | .BLANK 0000[0x9]
0da6 004e e8b5 | N | .XXX[0x2]
0da8 0000 0000 | | .BLANK 0000[0x7]
0daf 0054 | T | .XXX[0x1]
0db0 0000 0000 | | .BLANK 0000[0x8]
0db8 0014 a4fe | | .XXX[0x5]
0dba 0800 0600 | |
0dbc 8000 | |
0dbd 0000 0000 | | .BLANK 0000[0x9]
0dc6 004e e8b5 | N | .XXX[0x2]
0dc8 0000 0000 | | .BLANK 0000[0x7]
0dcf 0060 | ` | .XXX[0x1]
0dd0 0000 0000 | | .BLANK 0000[0x8]
0dd8 0001 0404 | | .XXX[0x5]
0dda 0000 0280 | |
0ddc 8000 | |
0ddd 0000 0000 | | .BLANK 0000[0x9]
0de6 004e e8b5 | N | .XXX[0x2]
0de8 0000 0000 | | .BLANK 0000[0x7]
0def 006c | l | .XXX[0x1]
0df0 0000 0000 | | .BLANK 0000[0x8]
0df8 0001 0404 | | .XXX[0x8]
0dfa 0000 0700 | |
0dfc 8000 0000 | |
0dfe 0000 0000 | |