|
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_06e8fd
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0c98 | | .CONST 0x0c98 ; 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 0797 | | Action Push_String_Extended,0x797 ; "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 0798 | | Action Push_String_Extended,0x798 ; "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 0799 | | Action Push_String_Extended,0x799 ; "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 079a | | Action Push_String_Extended,0x79a ; "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 079b | | Action Push_String_Extended,0x79b ; " 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 079b | | Action Push_String_Extended,0x79b ; " 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 079b | | Action Push_String_Extended,0x79b ; " 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 079b | | Action Push_String_Extended,0x79b ; " 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 079c | | Action Push_String_Extended,0x79c ; "!"
00b2 8406 | | Call 0x2,0x6
00b3 0092 079d | | Action Push_String_Extended,0x79d ; "!commands.@"
00b5 8406 | | Call 0x2,0x6
00b6 0092 079e | | Action Push_String_Extended,0x79e ; "!commands.abbreviations.@"
00b8 8406 | | Call 0x2,0x6
00b9 0092 079f | | Action Push_String_Extended,0x79f ; "!compiler_interface??"
00bb 8406 | | Call 0x2,0x6
00bc 0092 07a0 | | Action Push_String_Extended,0x7a0 ; "!implementation??"
00be 8406 | | Call 0x2,0x6
00bf 0092 07a1 | | Action Push_String_Extended,0x7a1 ; "!io??"
00c1 8406 | | Call 0x2,0x6
00c2 0092 07a2 | | Action Push_String_Extended,0x7a2 ; "!lrm??"
00c4 8406 | | Call 0x2,0x6
00c5 0092 07a3 | | Action Push_String_Extended,0x7a3 ; "!machine@"
00c7 8406 | | Call 0x2,0x6
00c8 0092 07a4 | | Action Push_String_Extended,0x7a4 ; "!model??"
00ca 8406 | | Call 0x2,0x6
00cb 0092 07a5 | | Action Push_String_Extended,0x7a5 ; "!tools.@"
00cd 8406 | | Call 0x2,0x6
00ce 0092 07a6 | | Action Push_String_Extended,0x7a6 ; "!tools.networking.@"
00d0 8406 | | Call 0x2,0x6
00d1 0092 07a7 | | Action Push_String_Extended,0x7a7 ; "!tools.@'c(subsystem)"
00d3 8407 | | Call 0x2,0x7
00d4 0092 07a8 | | Action Push_String_Extended,0x7a8 ; "!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 025e | ^ | Execute Discrete,Convert
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 07a9 | | Action Push_String_Extended,0x7a9 ; " 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 07aa | | Action Push_String_Extended,0x7aa ; " 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 07ab | | Action Push_String_Extended,0x7ab ; "------- "
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 07ac | | Action Push_String_Extended,0x7ac ; "------- 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 07ad | | Action Push_String_Extended,0x7ad ; "+++ ++* ***"
011d 4800 |H | Short_Literal 0x0
011e e7ff | | Load 0x3,-0x1
011f 0092 07ae | | Action Push_String_Extended,0x7ae ; "<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 0193 | | Declare_Subprogram INIT_0190,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 02b3 | | Declare_Subprogram INIT_02b0,For_Call
014d 029f 041b | | Declare_Subprogram INIT_0418,For_Call
014f 029f 049b | | Declare_Subprogram INIT_0498,For_Call
0151 029f 04b3 | | Declare_Subprogram INIT_04b0,For_Call
0153 029f 05fb | | Declare_Subprogram INIT_05f8,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 07af | | Action Push_String_Extended,0x7af ; "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 0181 | | .CONST 0x0181 ; 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 0248 | H | Execute Discrete,Check_In_Integer
0171 00e9 | | Load_Encached String_Cache
0172 0334 | 4 | Declare_Variable Array,With_Constraint
0173 00d8 | | Load_Top At_Offset_0
0174 0335 | 5 | Declare_Variable Array,Duplicate
0175 00cd | | Action Spare6_Action
0176 e802 | | Load 0x4,0x2
0177 01d9 | | Execute Vector,Reverse_Bounds
0178 0263 | c | Execute Discrete,Above_Bound
0179 7005 |p | Jump_Nonzero 0x17f
017a 4820 |H | Short_Literal 0x20
017b e805 | | Load 0x4,0x5
017c e803 | | Load 0x4,0x3
017d 01d6 | | Execute Vector,Field_Write
017e 3ffb |? | Loop_Increasing 0x17a
017f e802 | | Load 0x4,0x2
0180 01d4 | | Execute Vector,Structure_Write
0181 BODY_0168:
0181 e9ff | | Load 0x4,-0x1
0182 01db | | Execute Vector,Length
0183 e9fe | | Load 0x4,-0x2
0184 027d | } | Execute Discrete,Greater
0185 6802 |h | Jump_Zero 0x188
0186 e9ff | | Load 0x4,-0x1
0187 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0188 e9ff | | Load 0x4,-0x1
0189 e802 | | Load 0x4,0x2
018a 01cc | | Execute Vector,Catenate
018b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
018c 0000 0000 | | .BLANK 0000[0x4]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0195 | | .CONST 0x0195 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 029f 073b | ;| Declare_Subprogram INIT_0738,For_Call
0195 BODY_0190:
0195 e606 | | Load 0x3,0x6
0196 6806 |h | Jump_Zero 0x19d
0197 e9ff | | Load 0x4,-0x1
0198 0092 07b0 | | Action Push_String_Extended,0x7b0 ; "'c(world)"
019a 01cc | | Execute Vector,Catenate
019b 8802 | | Call 0x4,0x2
019c 7805 |x | Jump 0x1a2
019d e9ff | | Load 0x4,-0x1
019e 0092 07b1 | | Action Push_String_Extended,0x7b1 ; "'c(~library)"
01a0 01cc | | Execute Vector,Catenate
01a1 8802 | | Call 0x4,0x2
01a2 e5fa | | Load 0x2,-0x6
01a3 6804 |h | Jump_Zero 0x1a8
01a4 e9fe | | Load 0x4,-0x2
01a5 e9ff | | Load 0x4,-0x1
01a6 e001 | | Load 0x0,0x1
01a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01a8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a9 0000 0000 | | .BLANK 0000[0x7]
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 07b2 | | Action Push_String_Extended,0x7b2 ; "Def "
01b7 4823 |H# | Short_Literal 0x23
01b8 e9ff | | Load 0x4,-0x1
01b9 8607 | | Call 0x3,0x7
01ba 01cc | | Execute Vector,Catenate
01bb 0092 07b3 | | Action Push_String_Extended,0x7b3 ; ": "
01bd 01cc | | Execute Vector,Catenate
01be e9fe | | Load 0x4,-0x2
01bf 01cc | | Execute Vector,Catenate
01c0 e003 | | Load 0x0,0x3
01c1 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01c2 7806 |x | Jump 0x1c9
01c3 0092 07b4 | | Action Push_String_Extended,0x7b4 ; "<errors>"
01c5 e9ff | | Load 0x4,-0x1
01c6 e9fe | | Load 0x4,-0x2
01c7 e004 | | Load 0x0,0x4
01c8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01c9 e5fa | | Load 0x2,-0x6
01ca 6804 |h | Jump_Zero 0x1cf
01cb e9fe | | Load 0x4,-0x2
01cc e9ff | | Load 0x4,-0x1
01cd e001 | | Load 0x0,0x1
01ce 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01cf 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 0753 | S| Declare_Subprogram INIT_0750,For_Call
01d5 BODY_01d0:
01d5 e606 | | Load 0x3,0x6
01d6 6806 |h | Jump_Zero 0x1dd
01d7 e9ff | | Load 0x4,-0x1
01d8 0092 07b0 | | Action Push_String_Extended,0x7b0 ; "'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 07b1 | | Action Push_String_Extended,0x7b1 ; "'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 07b5 | | Action Push_String_Extended,0x7b5 ; "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 07b3 | | Action Push_String_Extended,0x7b3 ; ": "
01f5 01cc | | Execute Vector,Catenate
01f6 e9fe | | Load 0x4,-0x2
01f7 01cc | | Execute Vector,Catenate
01f8 e003 | | Load 0x0,0x3
01f9 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01fa 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01fb 0092 07b4 | | Action Push_String_Extended,0x7b4 ; "<errors>"
01fd e9ff | | Load 0x4,-0x1
01fe e9fe | | Load 0x4,-0x2
01ff e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
020f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0210 e005 | | Load 0x0,0x5
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 e006 | | Load 0x0,0x6
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 0773 | s| Declare_Subprogram INIT_0770,For_Call
0227 029f 078b | | Declare_Subprogram INIT_0788,For_Call
0229 BODY_0218:
0229 e802 | | Load 0x4,0x2
022a 4820 |H | Short_Literal 0x20
022b 4800 |H | Short_Literal 0x0
022c e006 | | Load 0x0,0x6
022d 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
022e 00d1 | | Pop_Control Pop_Count_1
022f e602 | | Load 0x3,0x2
0230 680d |h | Jump_Zero 0x23e
0231 e606 | | Load 0x3,0x6
0232 6803 |h | Jump_Zero 0x236
0233 0092 07b6 | | Action Push_String_Extended,0x7b6 ; "Network_Public=>RCO"
0235 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
0236 e9f9 | | Load 0x4,-0x7
0237 6803 |h | Jump_Zero 0x23b
0238 0092 07b7 | | Action Push_String_Extended,0x7b7 ; "Network_Public=>R"
023a 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
023b 0092 07b8 | | Action Push_String_Extended,0x7b8 ; "Network_Public=>RW"
023d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
023e e9ff | | Load 0x4,-0x1
023f 01db | | Execute Vector,Length
0240 6810 |h | Jump_Zero 0x251
0241 e9ff | | Load 0x4,-0x1
0242 01dd | | Execute Vector,First
0243 e9ff | | Load 0x4,-0x1
0244 01d7 | | Execute Vector,Field_Read
0245 0e7b | { | Execute_Immediate Not_Equal,0x7b
0246 7002 |p | Jump_Nonzero 0x249
0247 e605 | | Load 0x3,0x5
0248 7008 |p | Jump_Nonzero 0x251
0249 0092 07b9 | | Action Push_String_Extended,0x7b9 ; "Public=>"
024b e9ff | | Load 0x4,-0x1
024c 860c | | Call 0x3,0xc
024d 01cc | | Execute Vector,Catenate
024e 8805 | | Call 0x4,0x5
024f 4801 |H | Short_Literal 0x1
0250 a803 | | Store_Unchecked 0x4,0x3
0251 e603 | | Load 0x3,0x3
0252 6818 |h | Jump_Zero 0x26b
0253 e9fe | | Load 0x4,-0x2
0254 01db | | Execute Vector,Length
0255 6815 |h | Jump_Zero 0x26b
0256 e9fe | | Load 0x4,-0x2
0257 01dd | | Execute Vector,First
0258 e9fe | | Load 0x4,-0x2
0259 01d7 | | Execute Vector,Field_Read
025a 0e7b | { | Execute_Immediate Not_Equal,0x7b
025b 7002 |p | Jump_Nonzero 0x25e
025c e605 | | Load 0x3,0x5
025d 700d |p | Jump_Nonzero 0x26b
025e e803 | | Load 0x4,0x3
025f 7005 |p | Jump_Nonzero 0x265
0260 0092 07b9 | | Action Push_String_Extended,0x7b9 ; "Public=>"
0262 8805 | | Call 0x4,0x5
0263 4801 |H | Short_Literal 0x1
0264 a803 | | Store_Unchecked 0x4,0x3
0265 e802 | | Load 0x4,0x2
0266 e9fe | | Load 0x4,-0x2
0267 860c | | Call 0x3,0xc
0268 e006 | | Load 0x0,0x6
0269 1818 | | Execute Package,Field_Execute,Field_Number 0x18
026a 00d1 | | Pop_Control Pop_Count_1
026b e9fd | | Load 0x4,-0x3
026c 01db | | Execute Vector,Length
026d 680e |h | Jump_Zero 0x27c
026e e9fd | | Load 0x4,-0x3
026f 01dd | | Execute Vector,First
0270 e9fd | | Load 0x4,-0x3
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 7006 |p | Jump_Nonzero 0x27c
0276 0092 07ba | | Action Push_String_Extended,0x7ba ; "System=>"
0278 e9fd | | Load 0x4,-0x3
0279 860c | | Call 0x3,0xc
027a 01cc | | Execute Vector,Catenate
027b 8805 | | Call 0x4,0x5
027c e9fa | | Load 0x4,-0x6
027d 01db | | Execute Vector,Length
027e 6806 |h | Jump_Zero 0x285
027f 0092 07bb | | Action Push_String_Extended,0x7bb ; "Operator=>"
0281 e9fa | | Load 0x4,-0x6
0282 860c | | Call 0x3,0xc
0283 01cc | | Execute Vector,Catenate
0284 8805 | | Call 0x4,0x5
0285 e9f8 | | Load 0x4,-0x8
0286 01db | | Execute Vector,Length
0287 6802 |h | Jump_Zero 0x28a
0288 e9f8 | | Load 0x4,-0x8
0289 8806 | | Call 0x4,0x6
028a e7fd | | Load 0x3,-0x3
028b 680e |h | Jump_Zero 0x29a
028c e9fc | | Load 0x4,-0x4
028d 01db | | Execute Vector,Length
028e 680b |h | Jump_Zero 0x29a
028f e9fc | | Load 0x4,-0x4
0290 01dd | | Execute Vector,First
0291 e9fc | | Load 0x4,-0x4
0292 01d7 | | Execute Vector,Field_Read
0293 0e7b | { | Execute_Immediate Not_Equal,0x7b
0294 7002 |p | Jump_Nonzero 0x297
0295 e605 | | Load 0x3,0x5
0296 7003 |p | Jump_Nonzero 0x29a
0297 e9fc | | Load 0x4,-0x4
0298 860c | | Call 0x3,0xc
0299 8806 | | Call 0x4,0x6
029a e7fc | | Load 0x3,-0x4
029b 680e |h | Jump_Zero 0x2aa
029c e9fb | | Load 0x4,-0x5
029d 01db | | Execute Vector,Length
029e 680b |h | Jump_Zero 0x2aa
029f e9fb | | Load 0x4,-0x5
02a0 01dd | | Execute Vector,First
02a1 e9fb | | Load 0x4,-0x5
02a2 01d7 | | Execute Vector,Field_Read
02a3 0e7b | { | Execute_Immediate Not_Equal,0x7b
02a4 7002 |p | Jump_Nonzero 0x2a7
02a5 e605 | | Load 0x3,0x5
02a6 7003 |p | Jump_Nonzero 0x2aa
02a7 e9fb | | Load 0x4,-0x5
02a8 860c | | Call 0x3,0xc
02a9 8806 | | Call 0x4,0x6
02aa e802 | | Load 0x4,0x2
02ab e006 | | Load 0x0,0x6
02ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02ad e001 | | Load 0x0,0x1
02ae 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02af 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 4801 |H | Short_Literal 0x1
02b4 a606 | | Store_Unchecked 0x3,0x6
02b5 e5fa | | Load 0x2,-0x6
02b6 6805 |h | Jump_Zero 0x2bc
02b7 e7fa | | Load 0x3,-0x6
02b8 0092 07bc | | Action Push_String_Extended,0x7bc ; "World ACL's"
02ba e001 | | Load 0x0,0x1
02bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02bc 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02be 4800 |H | Short_Literal 0x0
02bf 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
02c1 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
02c3 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02c5 00ea | | Load_Encached Null_String_Cache
02c6 0092 07c0 | | Action Push_String_Extended,0x7c0 ; "CO"
02c8 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02ca 860d | | Call 0x3,0xd
02cb 0092 079c | | Action Push_String_Extended,0x79c ; "!"
02cd 8608 | | Call 0x3,0x8
02ce 00ea | | Load_Encached Null_String_Cache
02cf 4800 |H | Short_Literal 0x0
02d0 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
02d2 00ea | | Load_Encached Null_String_Cache
02d3 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02d5 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
02d7 00ea | | Load_Encached Null_String_Cache
02d8 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02da 860d | | Call 0x3,0xd
02db 0092 07c1 | | Action Push_String_Extended,0x7c1 ; "![Commands,Io,Lrm,Model??]"
02dd 8608 | | Call 0x3,0x8
02de 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02e0 4800 |H | Short_Literal 0x0
02e1 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
02e3 00ea | | Load_Encached Null_String_Cache
02e4 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02e6 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
02e8 00ea | | Load_Encached Null_String_Cache
02e9 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02eb 860d | | Call 0x3,0xd
02ec 0092 07c2 | | Action Push_String_Extended,0x7c2 ; "!tools"
02ee 8608 | | Call 0x3,0x8
02ef 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
02f1 4800 |H | Short_Literal 0x0
02f2 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
02f4 00ea | | Load_Encached Null_String_Cache
02f5 00ea | | Load_Encached Null_String_Cache
02f6 00ea | | Load_Encached Null_String_Cache
02f7 00ea | | Load_Encached Null_String_Cache
02f8 00ea | | Load_Encached Null_String_Cache
02f9 860d | | Call 0x3,0xd
02fa 0092 07c3 | | Action Push_String_Extended,0x7c3 ; "!compiler_interface"
02fc 8608 | | Call 0x3,0x8
02fd 00ea | | Load_Encached Null_String_Cache
02fe 4800 |H | Short_Literal 0x0
02ff 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0301 00ea | | Load_Encached Null_String_Cache
0302 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0304 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0306 00ea | | Load_Encached Null_String_Cache
0307 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0309 860d | | Call 0x3,0xd
030a 0092 07c4 | | Action Push_String_Extended,0x7c4 ; "!commands.abbreviations"
030c 8608 | | Call 0x3,0x8
030d e7fe | | Load 0x3,-0x2
030e 6810 |h | Jump_Zero 0x31f
030f 00ea | | Load_Encached Null_String_Cache
0310 4801 |H | Short_Literal 0x1
0311 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0313 00ea | | Load_Encached Null_String_Cache
0314 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0316 00ea | | Load_Encached Null_String_Cache
0317 00ea | | Load_Encached Null_String_Cache
0318 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
031a 860d | | Call 0x3,0xd
031b 0092 07c5 | | Action Push_String_Extended,0x7c5 ; "!Implementation"
031d 8608 | | Call 0x3,0x8
031e 780d |x | Jump 0x32c
031f 00ea | | Load_Encached Null_String_Cache
0320 4801 |H | Short_Literal 0x1
0321 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0323 00ea | | Load_Encached Null_String_Cache
0324 00ea | | Load_Encached Null_String_Cache
0325 00ea | | Load_Encached Null_String_Cache
0326 00ea | | Load_Encached Null_String_Cache
0327 00ea | | Load_Encached Null_String_Cache
0328 860d | | Call 0x3,0xd
0329 0092 07c5 | | Action Push_String_Extended,0x7c5 ; "!Implementation"
032b 8608 | | Call 0x3,0x8
032c 00ea | | Load_Encached Null_String_Cache
032d 4800 |H | Short_Literal 0x0
032e 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0330 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0332 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0334 00ea | | Load_Encached Null_String_Cache
0335 0092 07c0 | | Action Push_String_Extended,0x7c0 ; "CO"
0337 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0339 860d | | Call 0x3,0xd
033a 0092 07c6 | | Action Push_String_Extended,0x7c6 ; "!users"
033c 8608 | | Call 0x3,0x8
033d 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
033f 4800 |H | Short_Literal 0x0
0340 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0342 00ea | | Load_Encached Null_String_Cache
0343 00ea | | Load_Encached Null_String_Cache
0344 00ea | | Load_Encached Null_String_Cache
0345 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0347 00ea | | Load_Encached Null_String_Cache
0348 860d | | Call 0x3,0xd
0349 0092 07c7 | | Action Push_String_Extended,0x7c7 ; "!machine"
034b 8608 | | Call 0x3,0x8
034c 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
034e 4800 |H | Short_Literal 0x0
034f 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0351 00ea | | Load_Encached Null_String_Cache
0352 00ea | | Load_Encached Null_String_Cache
0353 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0355 00ea | | Load_Encached Null_String_Cache
0356 00ea | | Load_Encached Null_String_Cache
0357 860d | | Call 0x3,0xd
0358 0092 07c8 | | Action Push_String_Extended,0x7c8 ; "!machine.[cg_data,devices,editor_data]"
035a 8608 | | Call 0x3,0x8
035b 00ea | | Load_Encached Null_String_Cache
035c 4800 |H | Short_Literal 0x0
035d 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
035f 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
0361 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0363 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0365 0092 07cb | | Action Push_String_Extended,0x7cb ; "{CO}"
0367 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0369 860d | | Call 0x3,0xd
036a 0092 07cc | | Action Push_String_Extended,0x7cc ; "!machine.accounting"
036c 8608 | | Call 0x3,0x8
036d 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
036f 4800 |H | Short_Literal 0x0
0370 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0372 00ea | | Load_Encached Null_String_Cache
0373 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0375 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0377 0092 07cd | | Action Push_String_Extended,0x7cd ; "{RCO}"
0379 00ea | | Load_Encached Null_String_Cache
037a 860d | | Call 0x3,0xd
037b 0092 07ce | | Action Push_String_Extended,0x7ce ; "!machine.error_logs"
037d 8608 | | Call 0x3,0x8
037e 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0380 4800 |H | Short_Literal 0x0
0381 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0383 00ea | | Load_Encached Null_String_Cache
0384 00ea | | Load_Encached Null_String_Cache
0385 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0387 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
0389 00ea | | Load_Encached Null_String_Cache
038a 860d | | Call 0x3,0xd
038b 0092 07cf | | Action Push_String_Extended,0x7cf ; "!machine.[groups,users]"
038d 8608 | | Call 0x3,0x8
038e 00ea | | Load_Encached Null_String_Cache
038f 4800 |H | Short_Literal 0x0
0390 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
0392 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
0394 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0396 00ea | | Load_Encached Null_String_Cache
0397 0092 07cb | | Action Push_String_Extended,0x7cb ; "{CO}"
0399 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
039b 860d | | Call 0x3,0xd
039c 0092 07d0 | | Action Push_String_Extended,0x7d0 ; "!Machine.[Mail,Transfer].??"
039e 8608 | | Call 0x3,0x8
039f 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
03a1 4800 |H | Short_Literal 0x0
03a2 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
03a4 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
03a6 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
03a8 00ea | | Load_Encached Null_String_Cache
03a9 0092 07cd | | Action Push_String_Extended,0x7cd ; "{RCO}"
03ab 00ea | | Load_Encached Null_String_Cache
03ac 860d | | Call 0x3,0xd
03ad 0092 07d1 | | Action Push_String_Extended,0x7d1 ; "!machine.release??"
03af 8608 | | Call 0x3,0x8
03b0 00ea | | Load_Encached Null_String_Cache
03b1 4800 |H | Short_Literal 0x0
03b2 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
03b4 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
03b6 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
03b8 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
03ba 0092 07d2 | | Action Push_String_Extended,0x7d2 ; "O"
03bc 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
03be 860d | | Call 0x3,0xd
03bf 0092 07d3 | | Action Push_String_Extended,0x7d3 ; "!machine.search_lists"
03c1 8608 | | Call 0x3,0x8
03c2 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
03c4 4800 |H | Short_Literal 0x0
03c5 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
03c7 00ea | | Load_Encached Null_String_Cache
03c8 00ea | | Load_Encached Null_String_Cache
03c9 00ea | | Load_Encached Null_String_Cache
03ca 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
03cc 00ea | | Load_Encached Null_String_Cache
03cd 860d | | Call 0x3,0xd
03ce 0092 07d4 | | Action Push_String_Extended,0x7d4 ; "!machine.temporary"
03d0 8608 | | Call 0x3,0x8
03d1 00ea | | Load_Encached Null_String_Cache
03d2 4800 |H | Short_Literal 0x0
03d3 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
03d5 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
03d7 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
03d9 00ea | | Load_Encached Null_String_Cache
03da 0092 07d2 | | Action Push_String_Extended,0x7d2 ; "O"
03dc 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
03de 860d | | Call 0x3,0xd
03df 0092 07d5 | | Action Push_String_Extended,0x7d5 ; "!machine.[sims,sims.master,sims.to_rational]"
03e1 8608 | | Call 0x3,0x8
03e2 00ea | | Load_Encached Null_String_Cache
03e3 4800 |H | Short_Literal 0x0
03e4 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
03e6 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
03e8 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
03ea 00ea | | Load_Encached Null_String_Cache
03eb 0092 07d6 | | Action Push_String_Extended,0x7d6 ; "{O}"
03ed 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
03ef 860d | | Call 0x3,0xd
03f0 0092 07d7 | | Action Push_String_Extended,0x7d7 ; "!machine.sims.[database,detail]??"
03f2 8608 | | Call 0x3,0x8
03f3 00ea | | Load_Encached Null_String_Cache
03f4 4800 |H | Short_Literal 0x0
03f5 0092 07be | | Action Push_String_Extended,0x7be ; "RCO"
03f7 0092 07c9 | | Action Push_String_Extended,0x7c9 ; "{RC}"
03f9 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
03fb 00ea | | Load_Encached Null_String_Cache
03fc 0092 07d6 | | Action Push_String_Extended,0x7d6 ; "{O}"
03fe 0092 07bf | | Action Push_String_Extended,0x7bf ; "RC"
0400 860d | | Call 0x3,0xd
0401 0092 07d8 | | Action Push_String_Extended,0x7d8 ; "!machine.sims.to_rational??"
0403 8608 | | Call 0x3,0x8
0404 0092 07d9 | | Action Push_String_Extended,0x7d9 ; "Mailer=>RCO"
0406 0092 07da | | Action Push_String_Extended,0x7da ; "!Machine.[Mail,Transfer]??"
0408 860a | | Call 0x3,0xa
0409 0092 07db | | Action Push_String_Extended,0x7db ; "Mailer=>R"
040b 0092 07dc | | Action Push_String_Extended,0x7dc ; "!Users.@.Mailbox.Main_Set.[$,$^,$^^]"
040d 860a | | Call 0x3,0xa
040e e5fa | | Load 0x2,-0x6
040f 6802 |h | Jump_Zero 0x412
0410 e001 | | Load 0x0,0x1
0411 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0412 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0413 0000 0000 | | .BLANK 0000[0x5]
0418 ; --------------------------------------------------------------------------------------
0418 ; SUBPROGRAM
0418 ; --------------------------------------------------------------------------------------
0418 041b | | .CONST 0x041b ; Address of begin
0419 0004 | | .CONST 0x0004 ; Address of exception handler
041a 0001 | | .CONST 0x0001 ; Number of locals
041b BODY_0418:
041b INIT_0418:
041b e602 | | Load 0x3,0x2
041c 6824 |h$ | Jump_Zero 0x441
041d e7fb | | Load 0x3,-0x5
041e 680c |h | Jump_Zero 0x42b
041f 0092 07b2 | | Action Push_String_Extended,0x7b2 ; "Def "
0421 4823 |H# | Short_Literal 0x23
0422 e9ff | | Load 0x4,-0x1
0423 8607 | | Call 0x3,0x7
0424 01cc | | Execute Vector,Catenate
0425 0092 07dd | | Action Push_String_Extended,0x7dd ; ": Network_Public=>OWNER"
0427 01cc | | Execute Vector,Catenate
0428 e003 | | Load 0x0,0x3
0429 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
042a 4506 |E | Exit_Suprogram New_Top_Offset 0x6
042b 0092 07de | | Action Push_String_Extended,0x7de ; "*** ++*"
042d e9ff | | Load 0x4,-0x1
042e e002 | | Load 0x0,0x2
042f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0430 0092 07de | | Action Push_String_Extended,0x7de ; "*** ++*"
0432 e9ff | | Load 0x4,-0x1
0433 0092 07ae | | Action Push_String_Extended,0x7ae ; "<ALL>"
0435 e002 | | Load 0x0,0x2
0436 180f | | Execute Package,Field_Execute,Field_Number 0xf
0437 0092 07df | | Action Push_String_Extended,0x7df ; "++* ***"
0439 4801 |H | Short_Literal 0x1
043a e9ff | | Load 0x4,-0x1
043b 4803 |H | Short_Literal 0x3
043c 0092 07e0 | | Action Push_String_Extended,0x7e0 ; "network_public"
043e e002 | | Load 0x0,0x2
043f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0440 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0441 e7fb | | Load 0x3,-0x5
0442 6821 |h! | Jump_Zero 0x464
0443 0092 07b2 | | Action Push_String_Extended,0x7b2 ; "Def "
0445 4823 |H# | Short_Literal 0x23
0446 e9ff | | Load 0x4,-0x1
0447 8607 | | Call 0x3,0x7
0448 01cc | | Execute Vector,Catenate
0449 0092 07e1 | | Action Push_String_Extended,0x7e1 ; ": Public=>"
044b 01cc | | Execute Vector,Catenate
044c e9fe | | Load 0x4,-0x2
044d 8402 | | Call 0x2,0x2
044e 01cc | | Execute Vector,Catenate
044f 0092 07e2 | | Action Push_String_Extended,0x7e2 ; ", System=>"
0451 01cc | | Execute Vector,Catenate
0452 e9fd | | Load 0x4,-0x3
0453 8402 | | Call 0x2,0x2
0454 01cc | | Execute Vector,Catenate
0455 0092 07e3 | | Action Push_String_Extended,0x7e3 ; ", Operator=>"
0457 01cc | | Execute Vector,Catenate
0458 e9fc | | Load 0x4,-0x4
0459 8402 | | Call 0x2,0x2
045a 01cc | | Execute Vector,Catenate
045b 0092 07e4 | | Action Push_String_Extended,0x7e4 ; ", Network_Public=>"
045d 01cc | | Execute Vector,Catenate
045e e9fb | | Load 0x4,-0x5
045f 8402 | | Call 0x2,0x2
0460 01cc | | Execute Vector,Catenate
0461 e003 | | Load 0x0,0x3
0462 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0463 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0464 0092 07df | | Action Push_String_Extended,0x7df ; "++* ***"
0466 e9ff | | Load 0x4,-0x1
0467 e002 | | Load 0x0,0x2
0468 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0469 0092 07e5 | | Action Push_String_Extended,0x7e5 ; "***"
046b e9ff | | Load 0x4,-0x1
046c 0092 07ae | | Action Push_String_Extended,0x7ae ; "<ALL>"
046e e002 | | Load 0x0,0x2
046f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0470 0092 07df | | Action Push_String_Extended,0x7df ; "++* ***"
0472 4801 |H | Short_Literal 0x1
0473 e9ff | | Load 0x4,-0x1
0474 e9fe | | Load 0x4,-0x2
0475 0092 07e6 | | Action Push_String_Extended,0x7e6 ; "public"
0477 e002 | | Load 0x0,0x2
0478 180e | | Execute Package,Field_Execute,Field_Number 0xe
0479 0092 07df | | Action Push_String_Extended,0x7df ; "++* ***"
047b 4801 |H | Short_Literal 0x1
047c e9ff | | Load 0x4,-0x1
047d e9fd | | Load 0x4,-0x3
047e 0092 07e7 | | Action Push_String_Extended,0x7e7 ; "system"
0480 e002 | | Load 0x0,0x2
0481 180e | | Execute Package,Field_Execute,Field_Number 0xe
0482 0092 07df | | Action Push_String_Extended,0x7df ; "++* ***"
0484 4801 |H | Short_Literal 0x1
0485 e9ff | | Load 0x4,-0x1
0486 e9fc | | Load 0x4,-0x4
0487 0092 07e8 | | Action Push_String_Extended,0x7e8 ; "operator"
0489 e002 | | Load 0x0,0x2
048a 180e | | Execute Package,Field_Execute,Field_Number 0xe
048b 0092 07df | | Action Push_String_Extended,0x7df ; "++* ***"
048d 4801 |H | Short_Literal 0x1
048e e9ff | | Load 0x4,-0x1
048f e9fb | | Load 0x4,-0x5
0490 0092 07e0 | | Action Push_String_Extended,0x7e0 ; "network_public"
0492 e002 | | Load 0x0,0x2
0493 180e | | Execute Package,Field_Execute,Field_Number 0xe
0494 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0495 0000 0000 | | .XXX[0x3]
0497 0000 | |
0498 ; --------------------------------------------------------------------------------------
0498 ; SUBPROGRAM
0498 ; --------------------------------------------------------------------------------------
0498 049b | | .CONST 0x049b ; Address of begin
0499 0004 | | .CONST 0x0004 ; Address of exception handler
049a 0001 | | .CONST 0x0001 ; Number of locals
049b BODY_0498:
049b INIT_0498:
049b 4800 |H | Short_Literal 0x0
049c 4803 |H | Short_Literal 0x3
049d 4802 |H | Short_Literal 0x2
049e 4801 |H | Short_Literal 0x1
049f 0092 07a7 | | Action Push_String_Extended,0x7a7 ; "!tools.@'c(subsystem)"
04a1 860f | | Call 0x3,0xf
04a2 4800 |H | Short_Literal 0x0
04a3 4803 |H | Short_Literal 0x3
04a4 4802 |H | Short_Literal 0x2
04a5 4801 |H | Short_Literal 0x1
04a6 0092 07a8 | | Action Push_String_Extended,0x7a8 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
04a8 860f | | Call 0x3,0xf
04a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04aa 0000 0000 | | .BLANK 0000[0x6]
04b0 ; --------------------------------------------------------------------------------------
04b0 ; SUBPROGRAM
04b0 ; --------------------------------------------------------------------------------------
04b0 04b3 | | .CONST 0x04b3 ; Address of begin
04b1 0004 | | .CONST 0x0004 ; Address of exception handler
04b2 0001 | | .CONST 0x0001 ; Number of locals
04b3 BODY_04b0:
04b3 INIT_04b0:
04b3 4800 |H | Short_Literal 0x0
04b4 a606 | | Store_Unchecked 0x3,0x6
04b5 e5fa | | Load 0x2,-0x6
04b6 6805 |h | Jump_Zero 0x4bc
04b7 e7fa | | Load 0x3,-0x6
04b8 0092 07e9 | | Action Push_String_Extended,0x7e9 ; "World Default ACL's"
04ba e001 | | Load 0x0,0x1
04bb 1812 | | Execute Package,Field_Execute,Field_Number 0x12
04bc 00ea | | Load_Encached Null_String_Cache
04bd 4800 |H | Short_Literal 0x0
04be 00ea | | Load_Encached Null_String_Cache
04bf 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04c1 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
04c3 00ea | | Load_Encached Null_String_Cache
04c4 00ea | | Load_Encached Null_String_Cache
04c5 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04c7 860d | | Call 0x3,0xd
04c8 0092 079c | | Action Push_String_Extended,0x79c ; "!"
04ca 8609 | | Call 0x3,0x9
04cb 00ea | | Load_Encached Null_String_Cache
04cc 4800 |H | Short_Literal 0x0
04cd 00ea | | Load_Encached Null_String_Cache
04ce 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04d0 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
04d2 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04d4 00ea | | Load_Encached Null_String_Cache
04d5 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04d7 860d | | Call 0x3,0xd
04d8 0092 07eb | | Action Push_String_Extended,0x7eb ; "![commands,implementation,io,lrm,tools]"
04da 8609 | | Call 0x3,0x9
04db 00ea | | Load_Encached Null_String_Cache
04dc 4800 |H | Short_Literal 0x0
04dd 00ea | | Load_Encached Null_String_Cache
04de 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04e0 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
04e2 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04e4 00ea | | Load_Encached Null_String_Cache
04e5 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04e7 860d | | Call 0x3,0xd
04e8 0092 07c3 | | Action Push_String_Extended,0x7c3 ; "!compiler_interface"
04ea 8609 | | Call 0x3,0x9
04eb 00ea | | Load_Encached Null_String_Cache
04ec 4800 |H | Short_Literal 0x0
04ed 00ea | | Load_Encached Null_String_Cache
04ee 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04f0 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
04f2 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04f4 00ea | | Load_Encached Null_String_Cache
04f5 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04f7 860d | | Call 0x3,0xd
04f8 0092 07c4 | | Action Push_String_Extended,0x7c4 ; "!commands.abbreviations"
04fa 8609 | | Call 0x3,0x9
04fb 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
04fd 4800 |H | Short_Literal 0x0
04fe 00ea | | Load_Encached Null_String_Cache
04ff 00ea | | Load_Encached Null_String_Cache
0500 00ea | | Load_Encached Null_String_Cache
0501 00ea | | Load_Encached Null_String_Cache
0502 00ea | | Load_Encached Null_String_Cache
0503 00ea | | Load_Encached Null_String_Cache
0504 860d | | Call 0x3,0xd
0505 0092 07c7 | | Action Push_String_Extended,0x7c7 ; "!machine"
0507 8609 | | Call 0x3,0x9
0508 00ea | | Load_Encached Null_String_Cache
0509 4800 |H | Short_Literal 0x0
050a 00ea | | Load_Encached Null_String_Cache
050b 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
050d 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
050f 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0511 00ea | | Load_Encached Null_String_Cache
0512 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0514 860d | | Call 0x3,0xd
0515 0092 07ed | | Action Push_String_Extended,0x7ed ; "!Machine.accounting"
0517 8609 | | Call 0x3,0x9
0518 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
051a 4800 |H | Short_Literal 0x0
051b 00ea | | Load_Encached Null_String_Cache
051c 00ea | | Load_Encached Null_String_Cache
051d 00ea | | Load_Encached Null_String_Cache
051e 00ea | | Load_Encached Null_String_Cache
051f 00ea | | Load_Encached Null_String_Cache
0520 00ea | | Load_Encached Null_String_Cache
0521 860d | | Call 0x3,0xd
0522 0092 07ee | | Action Push_String_Extended,0x7ee ; "!Machine.Error_Logs"
0524 8609 | | Call 0x3,0x9
0525 00ea | | Load_Encached Null_String_Cache
0526 4800 |H | Short_Literal 0x0
0527 00ea | | Load_Encached Null_String_Cache
0528 00ea | | Load_Encached Null_String_Cache
0529 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
052b 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
052d 00ea | | Load_Encached Null_String_Cache
052e 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0530 860d | | Call 0x3,0xd
0531 0092 07ef | | Action Push_String_Extended,0x7ef ; "!Machine.[cg_data,devices,editor_data]"
0533 8609 | | Call 0x3,0x9
0534 00ea | | Load_Encached Null_String_Cache
0535 4800 |H | Short_Literal 0x0
0536 00ea | | Load_Encached Null_String_Cache
0537 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0539 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
053b 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
053d 00ea | | Load_Encached Null_String_Cache
053e 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0540 860d | | Call 0x3,0xd
0541 0092 07f0 | | Action Push_String_Extended,0x7f0 ; "!Machine.[groups,users]"
0543 8609 | | Call 0x3,0x9
0544 00ea | | Load_Encached Null_String_Cache
0545 4800 |H | Short_Literal 0x0
0546 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0548 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "{W}"
054a 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
054c 00ea | | Load_Encached Null_String_Cache
054d 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "{W}"
054f 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0551 860d | | Call 0x3,0xd
0552 0092 07f2 | | Action Push_String_Extended,0x7f2 ; "!Machine.[Mail,Transfer].[??,~Distribute]'c(world)"
0554 8609 | | Call 0x3,0x9
0555 00ea | | Load_Encached Null_String_Cache
0556 4800 |H | Short_Literal 0x0
0557 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0559 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
055b 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
055d 00ea | | Load_Encached Null_String_Cache
055e 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "{W}"
0560 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0562 860d | | Call 0x3,0xd
0563 0092 07f3 | | Action Push_String_Extended,0x7f3 ; "!Machine.[Mail,Transfer].Distribute'c(world)"
0565 8609 | | Call 0x3,0x9
0566 00ea | | Load_Encached Null_String_Cache
0567 4800 |H | Short_Literal 0x0
0568 00ea | | Load_Encached Null_String_Cache
0569 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
056b 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
056d 00ea | | Load_Encached Null_String_Cache
056e 00ea | | Load_Encached Null_String_Cache
056f 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0571 860d | | Call 0x3,0xd
0572 0092 07f4 | | Action Push_String_Extended,0x7f4 ; "!Machine.Release??'c(world)"
0574 8609 | | Call 0x3,0x9
0575 00ea | | Load_Encached Null_String_Cache
0576 4800 |H | Short_Literal 0x0
0577 00ea | | Load_Encached Null_String_Cache
0578 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
057a 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
057c 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
057e 00ea | | Load_Encached Null_String_Cache
057f 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0581 860d | | Call 0x3,0xd
0582 0092 07f5 | | Action Push_String_Extended,0x7f5 ; "!Machine.Search_Lists"
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 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
058a 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
058c 00ea | | Load_Encached Null_String_Cache
058d 00ea | | Load_Encached Null_String_Cache
058e 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0590 860d | | Call 0x3,0xd
0591 0092 07f6 | | Action Push_String_Extended,0x7f6 ; "!machine.sims"
0593 8609 | | Call 0x3,0x9
0594 00ea | | Load_Encached Null_String_Cache
0595 4800 |H | Short_Literal 0x0
0596 00ea | | Load_Encached Null_String_Cache
0597 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0599 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
059b 00ea | | Load_Encached Null_String_Cache
059c 00ea | | Load_Encached Null_String_Cache
059d 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
059f 860d | | Call 0x3,0xd
05a0 0092 07f7 | | Action Push_String_Extended,0x7f7 ; "!machine.sims.master"
05a2 8609 | | Call 0x3,0x9
05a3 00ea | | Load_Encached Null_String_Cache
05a4 4800 |H | Short_Literal 0x0
05a5 00ea | | Load_Encached Null_String_Cache
05a6 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
05a8 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
05aa 00ea | | Load_Encached Null_String_Cache
05ab 00ea | | Load_Encached Null_String_Cache
05ac 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
05ae 860d | | Call 0x3,0xd
05af 0092 07f8 | | Action Push_String_Extended,0x7f8 ; "!Machine.sims.[database,detail]"
05b1 8609 | | Call 0x3,0x9
05b2 00ea | | Load_Encached Null_String_Cache
05b3 4800 |H | Short_Literal 0x0
05b4 00ea | | Load_Encached Null_String_Cache
05b5 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
05b7 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
05b9 00ea | | Load_Encached Null_String_Cache
05ba 00ea | | Load_Encached Null_String_Cache
05bb 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
05bd 860d | | Call 0x3,0xd
05be 0092 07f9 | | Action Push_String_Extended,0x7f9 ; "!Machine.sims.to_rational.@'c(world)"
05c0 8609 | | Call 0x3,0x9
05c1 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
05c3 4800 |H | Short_Literal 0x0
05c4 00ea | | Load_Encached Null_String_Cache
05c5 00ea | | Load_Encached Null_String_Cache
05c6 00ea | | Load_Encached Null_String_Cache
05c7 00ea | | Load_Encached Null_String_Cache
05c8 00ea | | Load_Encached Null_String_Cache
05c9 00ea | | Load_Encached Null_String_Cache
05ca 860d | | Call 0x3,0xd
05cb 0092 07fa | | Action Push_String_Extended,0x7fa ; "!Machine.Temporary"
05cd 8609 | | Call 0x3,0x9
05ce 00ea | | Load_Encached Null_String_Cache
05cf 4800 |H | Short_Literal 0x0
05d0 00ea | | Load_Encached Null_String_Cache
05d1 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
05d3 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
05d5 00ea | | Load_Encached Null_String_Cache
05d6 00ea | | Load_Encached Null_String_Cache
05d7 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
05d9 860d | | Call 0x3,0xd
05da 0092 07fb | | Action Push_String_Extended,0x7fb ; "!model.??'c(world)"
05dc 8609 | | Call 0x3,0x9
05dd 00ea | | Load_Encached Null_String_Cache
05de 4800 |H | Short_Literal 0x0
05df 00ea | | Load_Encached Null_String_Cache
05e0 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
05e2 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
05e4 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
05e6 00ea | | Load_Encached Null_String_Cache
05e7 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
05e9 860d | | Call 0x3,0xd
05ea 0092 07c6 | | Action Push_String_Extended,0x7c6 ; "!users"
05ec 8609 | | Call 0x3,0x9
05ed 0092 07fc | | Action Push_String_Extended,0x7fc ; "Mailer=>RW"
05ef 0092 07fd | | Action Push_String_Extended,0x7fd ; "!Machine.[Mail,Transfer]??'c(world)"
05f1 860b | | Call 0x3,0xb
05f2 e5fa | | Load 0x2,-0x6
05f3 6802 |h | Jump_Zero 0x5f6
05f4 e001 | | Load 0x0,0x1
05f5 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05f6 4501 |E | Exit_Suprogram New_Top_Offset 0x1
05f7 0000 | | .XXX[0x1]
05f8 ; --------------------------------------------------------------------------------------
05f8 ; SUBPROGRAM
05f8 ; --------------------------------------------------------------------------------------
05f8 05fb | | .CONST 0x05fb ; Address of begin
05f9 0004 | | .CONST 0x0004 ; Address of exception handler
05fa 0001 | | .CONST 0x0001 ; Number of locals
05fb BODY_05f8:
05fb INIT_05f8:
05fb 4800 |H | Short_Literal 0x0
05fc a606 | | Store_Unchecked 0x3,0x6
05fd e5fa | | Load 0x2,-0x6
05fe 6805 |h | Jump_Zero 0x604
05ff e7fa | | Load 0x3,-0x6
0600 0092 07fe | | Action Push_String_Extended,0x7fe ; "Object ACL (Non-World)"
0602 e001 | | Load 0x0,0x1
0603 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0604 00ea | | Load_Encached Null_String_Cache
0605 4801 |H | Short_Literal 0x1
0606 00ea | | Load_Encached Null_String_Cache
0607 00ea | | Load_Encached Null_String_Cache
0608 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
060a 00ea | | Load_Encached Null_String_Cache
060b 00ea | | Load_Encached Null_String_Cache
060c 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
060e 860d | | Call 0x3,0xd
060f 0092 07ff | | Action Push_String_Extended,0x7ff ; "![commands,io,lrm,tools].?"
0611 8608 | | Call 0x3,0x8
0612 00ea | | Load_Encached Null_String_Cache
0613 4801 |H | Short_Literal 0x1
0614 00ea | | Load_Encached Null_String_Cache
0615 00ea | | Load_Encached Null_String_Cache
0616 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0618 00ea | | Load_Encached Null_String_Cache
0619 00ea | | Load_Encached Null_String_Cache
061a 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
061c 860d | | Call 0x3,0xd
061d 0092 0800 | | Action Push_String_Extended,0x800 ; "!commands.abbreviations.?"
061f 8608 | | Call 0x3,0x8
0620 00ea | | Load_Encached Null_String_Cache
0621 4801 |H | Short_Literal 0x1
0622 00ea | | Load_Encached Null_String_Cache
0623 00ea | | Load_Encached Null_String_Cache
0624 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0626 00ea | | Load_Encached Null_String_Cache
0627 00ea | | Load_Encached Null_String_Cache
0628 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
062a 860d | | Call 0x3,0xd
062b 0092 0801 | | Action Push_String_Extended,0x801 ; "![compiler_interface,implementation].?"
062d 8608 | | Call 0x3,0x8
062e 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0630 4800 |H | Short_Literal 0x0
0631 00ea | | Load_Encached Null_String_Cache
0632 00ea | | Load_Encached Null_String_Cache
0633 00ea | | Load_Encached Null_String_Cache
0634 00ea | | Load_Encached Null_String_Cache
0635 00ea | | Load_Encached Null_String_Cache
0636 00ea | | Load_Encached Null_String_Cache
0637 860d | | Call 0x3,0xd
0638 0092 0802 | | Action Push_String_Extended,0x802 ; "!compiler_interface.subsystem_interface"
063a 8608 | | Call 0x3,0x8
063b 00ea | | Load_Encached Null_String_Cache
063c 4800 |H | Short_Literal 0x0
063d 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
063f 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
0641 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0643 00ea | | Load_Encached Null_String_Cache
0644 00ea | | Load_Encached Null_String_Cache
0645 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0647 860d | | Call 0x3,0xd
0648 0092 0803 | | Action Push_String_Extended,0x803 ; "!machine.@'c(ada)"
064a 8608 | | Call 0x3,0x8
064b 00ea | | Load_Encached Null_String_Cache
064c 4800 |H | Short_Literal 0x0
064d 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
064f 00ea | | Load_Encached Null_String_Cache
0650 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0652 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0654 00ea | | Load_Encached Null_String_Cache
0655 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0657 860d | | Call 0x3,0xd
0658 0092 0804 | | Action Push_String_Extended,0x804 ; "!machine.[cg_data,editor_data].@"
065a 8608 | | Call 0x3,0x8
065b 00ea | | Load_Encached Null_String_Cache
065c 4800 |H | Short_Literal 0x0
065d 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
065f 00ea | | Load_Encached Null_String_Cache
0660 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0662 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0664 00ea | | Load_Encached Null_String_Cache
0665 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0667 860d | | Call 0x3,0xd
0668 0092 0805 | | Action Push_String_Extended,0x805 ; "!Machine.Accounting.@"
066a 8608 | | Call 0x3,0x8
066b 00ea | | Load_Encached Null_String_Cache
066c 4800 |H | Short_Literal 0x0
066d 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
066f 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "{W}"
0671 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0673 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0675 00ea | | Load_Encached Null_String_Cache
0676 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0678 860d | | Call 0x3,0xd
0679 0092 0806 | | Action Push_String_Extended,0x806 ; "!Machine.Error_Logs.[@,~Mail_Distribute_Server@]"
067b 8608 | | Call 0x3,0x8
067c 00ea | | Load_Encached Null_String_Cache
067d 4800 |H | Short_Literal 0x0
067e 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0680 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0682 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0684 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0686 00ea | | Load_Encached Null_String_Cache
0687 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0689 860d | | Call 0x3,0xd
068a 0092 0807 | | Action Push_String_Extended,0x807 ; "!Machine.Error_Logs.Mail_Distribute_Server@"
068c 8608 | | Call 0x3,0x8
068d 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
068f 4800 |H | Short_Literal 0x0
0690 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0692 00ea | | Load_Encached Null_String_Cache
0693 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0695 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
0697 00ea | | Load_Encached Null_String_Cache
0698 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
069a 860d | | Call 0x3,0xd
069b 0092 0808 | | Action Push_String_Extended,0x808 ; "!Machine.Machine_Name"
069d 8608 | | Call 0x3,0x8
069e 00ea | | Load_Encached Null_String_Cache
069f 4800 |H | Short_Literal 0x0
06a0 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06a2 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "{W}"
06a4 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
06a6 00ea | | Load_Encached Null_String_Cache
06a7 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "{W}"
06a9 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
06ab 860d | | Call 0x3,0xd
06ac 0092 0809 | | Action Push_String_Extended,0x809 ; "!Machine.[Mail,Transfer].[??,~Distribute.??]"
06ae 8608 | | Call 0x3,0x8
06af 00ea | | Load_Encached Null_String_Cache
06b0 4800 |H | Short_Literal 0x0
06b1 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06b3 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06b5 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06b7 00ea | | Load_Encached Null_String_Cache
06b8 0092 07f1 | | Action Push_String_Extended,0x7f1 ; "{W}"
06ba 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
06bc 860d | | Call 0x3,0xd
06bd 0092 080a | | Action Push_String_Extended,0x80a ; "!Machine.[Mail,Transfer].Distribute.??"
06bf 8608 | | Call 0x3,0x8
06c0 0092 07bd | | Action Push_String_Extended,0x7bd ; "R"
06c2 4800 |H | Short_Literal 0x0
06c3 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06c5 00ea | | Load_Encached Null_String_Cache
06c6 00ea | | Load_Encached Null_String_Cache
06c7 00ea | | Load_Encached Null_String_Cache
06c8 00ea | | Load_Encached Null_String_Cache
06c9 00ea | | Load_Encached Null_String_Cache
06ca 860d | | Call 0x3,0xd
06cb 0092 080b | | Action Push_String_Extended,0x80b ; "!Machine.release.??'c(file,ada)"
06cd 8608 | | Call 0x3,0x8
06ce 00ea | | Load_Encached Null_String_Cache
06cf 4800 |H | Short_Literal 0x0
06d0 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06d2 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
06d4 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
06d6 00ea | | Load_Encached Null_String_Cache
06d7 00ea | | Load_Encached Null_String_Cache
06d8 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06da 860d | | Call 0x3,0xd
06db 0092 080c | | Action Push_String_Extended,0x80c ; "!Machine.Search_lists.@"
06dd 8608 | | Call 0x3,0x8
06de 00ea | | Load_Encached Null_String_Cache
06df 4800 |H | Short_Literal 0x0
06e0 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06e2 00ea | | Load_Encached Null_String_Cache
06e3 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
06e5 00ea | | Load_Encached Null_String_Cache
06e6 00ea | | Load_Encached Null_String_Cache
06e7 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06e9 860d | | Call 0x3,0xd
06ea 0092 080d | | Action Push_String_Extended,0x80d ; "!Machine.sims.@'c(ada,file)"
06ec 8608 | | Call 0x3,0x8
06ed 00ea | | Load_Encached Null_String_Cache
06ee 4800 |H | Short_Literal 0x0
06ef 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06f1 00ea | | Load_Encached Null_String_Cache
06f2 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
06f4 00ea | | Load_Encached Null_String_Cache
06f5 00ea | | Load_Encached Null_String_Cache
06f6 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
06f8 860d | | Call 0x3,0xd
06f9 0092 080e | | Action Push_String_Extended,0x80e ; "!Machine.sims.[master,to_rational].@'c(ada,file)"
06fb 8608 | | Call 0x3,0x8
06fc 00ea | | Load_Encached Null_String_Cache
06fd 4800 |H | Short_Literal 0x0
06fe 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0700 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
0702 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0704 00ea | | Load_Encached Null_String_Cache
0705 00ea | | Load_Encached Null_String_Cache
0706 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0708 860d | | Call 0x3,0xd
0709 0092 080f | | Action Push_String_Extended,0x80f ; "!Machine.sims.[database,detail]@'c(ada,file)"
070b 8608 | | Call 0x3,0x8
070c 00ea | | Load_Encached Null_String_Cache
070d 4800 |H | Short_Literal 0x0
070e 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0710 0092 07ec | | Action Push_String_Extended,0x7ec ; "{RW}"
0712 0092 07ca | | Action Push_String_Extended,0x7ca ; "{R}"
0714 00ea | | Load_Encached Null_String_Cache
0715 00ea | | Load_Encached Null_String_Cache
0716 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
0718 860d | | Call 0x3,0xd
0719 0092 0810 | | Action Push_String_Extended,0x810 ; "!Machine.sims.to_rational.@'c(ada,file)"
071b 8608 | | Call 0x3,0x8
071c 0092 07ea | | Action Push_String_Extended,0x7ea ; "RW"
071e 4800 |H | Short_Literal 0x0
071f 00ea | | Load_Encached Null_String_Cache
0720 00ea | | Load_Encached Null_String_Cache
0721 00ea | | Load_Encached Null_String_Cache
0722 00ea | | Load_Encached Null_String_Cache
0723 00ea | | Load_Encached Null_String_Cache
0724 00ea | | Load_Encached Null_String_Cache
0725 860d | | Call 0x3,0xd
0726 0092 0811 | | Action Push_String_Extended,0x811 ; "!machine.temporary.@"
0728 8608 | | Call 0x3,0x8
0729 0092 07fc | | Action Push_String_Extended,0x7fc ; "Mailer=>RW"
072b 0092 07d0 | | Action Push_String_Extended,0x7d0 ; "!Machine.[Mail,Transfer].??"
072d 860a | | Call 0x3,0xa
072e 0092 07fc | | Action Push_String_Extended,0x7fc ; "Mailer=>RW"
0730 0092 0812 | | Action Push_String_Extended,0x812 ; "!Users.@.Mailbox.Main_@"
0732 860a | | Call 0x3,0xa
0733 e5fa | | Load 0x2,-0x6
0734 6802 |h | Jump_Zero 0x737
0735 e001 | | Load 0x0,0x1
0736 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0737 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0738 ; --------------------------------------------------------------------------------------
0738 ; SUBPROGRAM
0738 ; --------------------------------------------------------------------------------------
0738 073b | ; | .CONST 0x073b ; Address of begin
0739 0004 | | .CONST 0x0004 ; Address of exception handler
073a 0001 | | .CONST 0x0001 ; Number of locals
073b BODY_0738:
073b INIT_0738:
073b e7fb | | Load 0x3,-0x5
073c 680b |h | Jump_Zero 0x748
073d 4823 |H# | Short_Literal 0x23
073e ebff | | Load 0x5,-0x1
073f 8607 | | Call 0x3,0x7
0740 0092 07b3 | | Action Push_String_Extended,0x7b3 ; ": "
0742 01cc | | Execute Vector,Catenate
0743 e9fe | | Load 0x4,-0x2
0744 01cc | | Execute Vector,Catenate
0745 e003 | | Load 0x0,0x3
0746 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0747 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0748 0092 07b4 | | Action Push_String_Extended,0x7b4 ; "<errors>"
074a ebff | | Load 0x5,-0x1
074b e9fe | | Load 0x4,-0x2
074c e004 | | Load 0x0,0x4
074d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
074e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
074f 0000 | | .XXX[0x1]
0750 ; --------------------------------------------------------------------------------------
0750 ; SUBPROGRAM
0750 ; --------------------------------------------------------------------------------------
0750 0753 | S | .CONST 0x0753 ; Address of begin
0751 0004 | | .CONST 0x0004 ; Address of exception handler
0752 0001 | | .CONST 0x0001 ; Number of locals
0753 BODY_0750:
0753 INIT_0750:
0753 e7fb | | Load 0x3,-0x5
0754 680e |h | Jump_Zero 0x763
0755 0092 0813 | | Action Push_String_Extended,0x813 ; "Add "
0757 4823 |H# | Short_Literal 0x23
0758 ebff | | Load 0x5,-0x1
0759 8607 | | Call 0x3,0x7
075a 01cc | | Execute Vector,Catenate
075b 0092 07b3 | | Action Push_String_Extended,0x7b3 ; ": "
075d 01cc | | Execute Vector,Catenate
075e e9fe | | Load 0x4,-0x2
075f 01cc | | Execute Vector,Catenate
0760 e003 | | Load 0x0,0x3
0761 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0762 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0763 0092 07b4 | | Action Push_String_Extended,0x7b4 ; "<errors>"
0765 ebff | | Load 0x5,-0x1
0766 e9fe | | Load 0x4,-0x2
0767 e004 | | Load 0x0,0x4
0768 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0769 4502 |E | Exit_Suprogram New_Top_Offset 0x2
076a 0000 0000 | | .BLANK 0000[0x6]
0770 ; --------------------------------------------------------------------------------------
0770 ; SUBPROGRAM
0770 ; --------------------------------------------------------------------------------------
0770 0773 | s | .CONST 0x0773 ; Address of begin
0771 0004 | | .CONST 0x0004 ; Address of exception handler
0772 0001 | | .CONST 0x0001 ; Number of locals
0773 BODY_0770:
0773 INIT_0770:
0773 e802 | | Load 0x4,0x2
0774 e006 | | Load 0x0,0x6
0775 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0776 6809 |h | Jump_Zero 0x780
0777 e802 | | Load 0x4,0x2
0778 0092 0814 | | Action Push_String_Extended,0x814 ; ","
077a ebff | | Load 0x5,-0x1
077b 01cc | | Execute Vector,Catenate
077c e006 | | Load 0x0,0x6
077d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
077e 00d1 | | Pop_Control Pop_Count_1
077f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0780 e802 | | Load 0x4,0x2
0781 ebff | | Load 0x5,-0x1
0782 e006 | | Load 0x0,0x6
0783 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0784 00d1 | | Pop_Control Pop_Count_1
0785 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0786 0000 0000 | | .XXX[0x2]
0788 ; --------------------------------------------------------------------------------------
0788 ; SUBPROGRAM
0788 ; --------------------------------------------------------------------------------------
0788 078b | | .CONST 0x078b ; Address of begin
0789 0004 | | .CONST 0x0004 ; Address of exception handler
078a 0001 | | .CONST 0x0001 ; Number of locals
078b BODY_0788:
078b INIT_0788:
078b e804 | | Load 0x4,0x4
078c 7005 |p | Jump_Nonzero 0x792
078d 0092 0815 | | Action Push_String_Extended,0x815 ; "Network_Public=>"
078f 8805 | | Call 0x4,0x5
0790 4801 |H | Short_Literal 0x1
0791 a804 | | Store_Unchecked 0x4,0x4
0792 e802 | | Load 0x4,0x2
0793 ebff | | Load 0x5,-0x1
0794 e006 | | Load 0x0,0x6
0795 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0796 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0797 ; --------------------------------------------------------------------------------------
0797 ; STRING TABLE
0797 ; --------------------------------------------------------------------------------------
0797 0100 | | .STRTAB 0x0100->0x0817 ; "None "
0798 0104 | | .STRTAB 0x0104->0x081a ; "Open "
0799 0108 | | .STRTAB 0x0108->0x081d ; "Safe "
079a 010c | | .STRTAB 0x010c->0x0820 ; "Secure"
079b 0110 | | .STRTAB 0x0110->0x0823 ; " level"
079c 0114 | | .STRTAB 0x0114->0x0826 ; "!"
079d 0113 | | .STRTAB 0x0113->0x0826 ; "!commands.@"
079e 011c | | .STRTAB 0x011c->0x082c ; "!commands.abbreviations.@"
079f 0133 | 3 | .STRTAB 0x0133->0x0838 ; "!compiler_interface??"
07a0 0146 | F | .STRTAB 0x0146->0x0843 ; "!implementation??"
07a1 0155 | U | .STRTAB 0x0155->0x084b ; "!io??"
07a2 0158 | X | .STRTAB 0x0158->0x084e ; "!lrm??"
07a3 015c | \ | .STRTAB 0x015c->0x0851 ; "!machine@"
07a4 0163 | c | .STRTAB 0x0163->0x0855 ; "!model??"
07a5 0169 | i | .STRTAB 0x0169->0x0859 ; "!tools.@"
07a6 016f | o | .STRTAB 0x016f->0x085d ; "!tools.networking.@"
07a7 0180 | | .STRTAB 0x0180->0x0867 ; "!tools.@'c(subsystem)"
07a8 0193 | | .STRTAB 0x0193->0x0871 ; "!tools.@.@'c(load_view, spec_view, comb_view)"
07a9 01be | | .STRTAB 0x01be->0x0888 ; " with network Read"
07aa 01ce | | .STRTAB 0x01ce->0x0891 ; " with network Read and Write"
07ab 01e8 | | .STRTAB 0x01e8->0x089f ; "------- "
07ac 01ee | | .STRTAB 0x01ee->0x08a3 ; "------- defaults: "
07ad 01fe | | .STRTAB 0x01fe->0x08ac ; "+++ ++* ***"
07ae 0207 | | .STRTAB 0x0207->0x08b1 ; "<ALL>"
07af 020a | | .STRTAB 0x020a->0x08b4 ; "Illegal value of level parameter. Must be 0..3."
07b0 0238 | 8 | .STRTAB 0x0238->0x08cc ; "'c(world)"
07b1 023f | ? | .STRTAB 0x023f->0x08d0 ; "'c(~library)"
07b2 0249 | I | .STRTAB 0x0249->0x08d6 ; "Def "
07b3 024b | K | .STRTAB 0x024b->0x08d8 ; ": "
07b4 024b | K | .STRTAB 0x024b->0x08d9 ; "<errors>"
07b5 0251 | Q | .STRTAB 0x0251->0x08dd ; "Add_Def "
07b6 0257 | W | .STRTAB 0x0257->0x08e1 ; "Network_Public=>RCO"
07b7 0268 | h | .STRTAB 0x0268->0x08eb ; "Network_Public=>R"
07b8 0277 | w | .STRTAB 0x0277->0x08f3 ; "Network_Public=>RW"
07b9 0287 | | .STRTAB 0x0287->0x08fc ; "Public=>"
07ba 028d | | .STRTAB 0x028d->0x0900 ; "System=>"
07bb 0293 | | .STRTAB 0x0293->0x0904 ; "Operator=>"
07bc 029b | | .STRTAB 0x029b->0x0909 ; "World ACL's"
07bd 02a4 | | .STRTAB 0x02a4->0x090f ; "R"
07be 02a3 | | .STRTAB 0x02a3->0x090f ; "RCO"
07bf 02a4 | | .STRTAB 0x02a4->0x0911 ; "RC"
07c0 02a4 | | .STRTAB 0x02a4->0x0912 ; "CO"
07c1 02a4 | | .STRTAB 0x02a4->0x0913 ; "![Commands,Io,Lrm,Model??]"
07c2 02bc | | .STRTAB 0x02bc->0x0920 ; "!tools"
07c3 02c0 | | .STRTAB 0x02c0->0x0923 ; "!compiler_interface"
07c4 02d1 | | .STRTAB 0x02d1->0x092c ; "!commands.abbreviations"
07c5 02e6 | | .STRTAB 0x02e6->0x0938 ; "!Implementation"
07c6 02f3 | | .STRTAB 0x02f3->0x093f ; "!users"
07c7 02f7 | | .STRTAB 0x02f7->0x0942 ; "!machine"
07c8 02fd | | .STRTAB 0x02fd->0x0946 ; "!machine.[cg_data,devices,editor_data]"
07c9 0321 | ! | .STRTAB 0x0321->0x0959 ; "{RC}"
07ca 0323 | # | .STRTAB 0x0323->0x095b ; "{R}"
07cb 0324 | $ | .STRTAB 0x0324->0x095d ; "{CO}"
07cc 0326 | & | .STRTAB 0x0326->0x095f ; "!machine.accounting"
07cd 0337 | 7 | .STRTAB 0x0337->0x0968 ; "{RCO}"
07ce 033a | : | .STRTAB 0x033a->0x096b ; "!machine.error_logs"
07cf 034b | K | .STRTAB 0x034b->0x0974 ; "!machine.[groups,users]"
07d0 0360 | ` | .STRTAB 0x0360->0x0980 ; "!Machine.[Mail,Transfer].??"
07d1 0379 | y | .STRTAB 0x0379->0x098d ; "!machine.release??"
07d2 0389 | | .STRTAB 0x0389->0x0996 ; "O"
07d3 0388 | | .STRTAB 0x0388->0x0997 ; "!machine.search_lists"
07d4 039b | | .STRTAB 0x039b->0x09a1 ; "!machine.temporary"
07d5 03ab | | .STRTAB 0x03ab->0x09aa ; "!machine.[sims,sims.master,sims.to_rational]"
07d6 03d5 | | .STRTAB 0x03d5->0x09c0 ; "{O}"
07d7 03d6 | | .STRTAB 0x03d6->0x09c2 ; "!machine.sims.[database,detail]??"
07d8 03f5 | | .STRTAB 0x03f5->0x09d2 ; "!machine.sims.to_rational??"
07d9 040e | | .STRTAB 0x040e->0x09e0 ; "Mailer=>RCO"
07da 0417 | | .STRTAB 0x0417->0x09e5 ; "!Machine.[Mail,Transfer]??"
07db 042f | / | .STRTAB 0x042f->0x09f2 ; "Mailer=>R"
07dc 0436 | 6 | .STRTAB 0x0436->0x09f7 ; "!Users.@.Mailbox.Main_Set.[$,$^,$^^]"
07dd 0458 | X | .STRTAB 0x0458->0x0a09 ; ": Network_Public=>OWNER"
07de 046d | m | .STRTAB 0x046d->0x0a14 ; "*** ++*"
07df 0472 | r | .STRTAB 0x0472->0x0a18 ; "++* ***"
07e0 0477 | w | .STRTAB 0x0477->0x0a1b ; "network_public"
07e1 0483 | | .STRTAB 0x0483->0x0a22 ; ": Public=>"
07e2 048b | | .STRTAB 0x048b->0x0a27 ; ", System=>"
07e3 0493 | | .STRTAB 0x0493->0x0a2c ; ", Operator=>"
07e4 049d | | .STRTAB 0x049d->0x0a32 ; ", Network_Public=>"
07e5 04ad | | .STRTAB 0x04ad->0x0a3b ; "***"
07e6 04ae | | .STRTAB 0x04ae->0x0a3d ; "public"
07e7 04b2 | | .STRTAB 0x04b2->0x0a40 ; "system"
07e8 04b6 | | .STRTAB 0x04b6->0x0a43 ; "operator"
07e9 04bc | | .STRTAB 0x04bc->0x0a47 ; "World Default ACL's"
07ea 04cd | | .STRTAB 0x04cd->0x0a50 ; "RW"
07eb 04cd | | .STRTAB 0x04cd->0x0a51 ; "![commands,implementation,io,lrm,tools]"
07ec 04f2 | | .STRTAB 0x04f2->0x0a65 ; "{RW}"
07ed 04f4 | | .STRTAB 0x04f4->0x0a67 ; "!Machine.accounting"
07ee 0505 | | .STRTAB 0x0505->0x0a70 ; "!Machine.Error_Logs"
07ef 0516 | | .STRTAB 0x0516->0x0a7a ; "!Machine.[cg_data,devices,editor_data]"
07f0 053a | : | .STRTAB 0x053a->0x0a8d ; "!Machine.[groups,users]"
07f1 054f | O | .STRTAB 0x054f->0x0a98 ; "{W}"
07f2 0550 | P | .STRTAB 0x0550->0x0a9a ; "!Machine.[Mail,Transfer].[??,~Distribute]'c(world)"
07f3 0580 | | .STRTAB 0x0580->0x0ab3 ; "!Machine.[Mail,Transfer].Distribute'c(world)"
07f4 05aa | | .STRTAB 0x05aa->0x0ac9 ; "!Machine.Release??'c(world)"
07f5 05c3 | | .STRTAB 0x05c3->0x0ad6 ; "!Machine.Search_Lists"
07f6 05d6 | | .STRTAB 0x05d6->0x0ae1 ; "!machine.sims"
07f7 05e1 | | .STRTAB 0x05e1->0x0ae7 ; "!machine.sims.master"
07f8 05f3 | | .STRTAB 0x05f3->0x0af1 ; "!Machine.sims.[database,detail]"
07f9 0610 | | .STRTAB 0x0610->0x0b01 ; "!Machine.sims.to_rational.@'c(world)"
07fa 0632 | 2 | .STRTAB 0x0632->0x0b13 ; "!Machine.Temporary"
07fb 0642 | B | .STRTAB 0x0642->0x0b1c ; "!model.??'c(world)"
07fc 0652 | R | .STRTAB 0x0652->0x0b25 ; "Mailer=>RW"
07fd 065a | Z | .STRTAB 0x065a->0x0b2a ; "!Machine.[Mail,Transfer]??'c(world)"
07fe 067b | { | .STRTAB 0x067b->0x0b3b ; "Object ACL (Non-World)"
07ff 068f | | .STRTAB 0x068f->0x0b46 ; "![commands,io,lrm,tools].?"
0800 06a7 | | .STRTAB 0x06a7->0x0b53 ; "!commands.abbreviations.?"
0801 06be | | .STRTAB 0x06be->0x0b60 ; "![compiler_interface,implementation].?"
0802 06e2 | | .STRTAB 0x06e2->0x0b73 ; "!compiler_interface.subsystem_interface"
0803 0707 | | .STRTAB 0x0707->0x0b86 ; "!machine.@'c(ada)"
0804 0716 | | .STRTAB 0x0716->0x0b8f ; "!machine.[cg_data,editor_data].@"
0805 0734 | 4 | .STRTAB 0x0734->0x0b9f ; "!Machine.Accounting.@"
0806 0747 | G | .STRTAB 0x0747->0x0ba9 ; "!Machine.Error_Logs.[@,~Mail_Distribute_Server@]"
0807 0775 | u | .STRTAB 0x0775->0x0bc1 ; "!Machine.Error_Logs.Mail_Distribute_Server@"
0808 079e | | .STRTAB 0x079e->0x0bd7 ; "!Machine.Machine_Name"
0809 07b1 | | .STRTAB 0x07b1->0x0be1 ; "!Machine.[Mail,Transfer].[??,~Distribute.??]"
080a 07db | | .STRTAB 0x07db->0x0bf7 ; "!Machine.[Mail,Transfer].Distribute.??"
080b 07ff | | .STRTAB 0x07ff->0x0c0a ; "!Machine.release.??'c(file,ada)"
080c 081c | | .STRTAB 0x081c->0x0c1a ; "!Machine.Search_lists.@"
080d 0831 | 1 | .STRTAB 0x0831->0x0c25 ; "!Machine.sims.@'c(ada,file)"
080e 084a | J | .STRTAB 0x084a->0x0c33 ; "!Machine.sims.[master,to_rational].@'c(ada,file)"
080f 0878 | x | .STRTAB 0x0878->0x0c4b ; "!Machine.sims.[database,detail]@'c(ada,file)"
0810 08a2 | | .STRTAB 0x08a2->0x0c61 ; "!Machine.sims.to_rational.@'c(ada,file)"
0811 08c7 | | .STRTAB 0x08c7->0x0c74 ; "!machine.temporary.@"
0812 08d9 | | .STRTAB 0x08d9->0x0c7e ; "!Users.@.Mailbox.Main_@"
0813 08ee | | .STRTAB 0x08ee->0x0c8a ; "Add "
0814 08f0 | | .STRTAB 0x08f0->0x0c8c ; ","
0815 08ef | | .STRTAB 0x08ef->0x0c8c ; "Network_Public=>"
0816 08fd | | .STREND 0x08fd->0x0c94
0817 4e6f 6e65 |None| .STRTAB_STRINGS
0c95 0000 0000 | | .XXX[0x3]
0c97 0000 | |
0c98 ; --------------------------------------------------------------------------------------
0c98 ; Debug Table
0c98 ; --------------------------------------------------------------------------------------
0c98 0004 000b | | .DEBUG4 0x0004,0x000b,0xbb50,0x0000,0x0001,0x0000
0c9e 0000 42b2 | B | .XXX[0x36]
0ca0 0740 a804 | @ |
0ca2 0000 0036 | 6|
0ca4 0060 f408 | ` |
0ca6 0000 4fb2 | O |
0ca8 0740 a804 | @ |
0caa 0000 0036 | 6|
0cac 0060 f408 | ` |
0cae 0000 5132 | Q2|
0cb0 0740 a804 | @ |
0cb2 0000 0036 | 6|
0cb4 0060 f408 | ` |
0cb6 0000 52b2 | R |
0cb8 0001 0404 | |
0cba 0800 0bec | |
0cbc 0740 a804 | @ |
0cbe 0000 0001 | |
0cc0 000c a804 | |
0cc2 0000 0144 | D|
0cc4 0740 a804 | @ |
0cc6 0000 08d1 | |
0cc8 0001 ac04 | |
0cca 0000 0358 | X|
0ccc 0740 ac04 | @ |
0cce 0000 0000 | |
0cd0 0740 9404 | @ |
0cd2 0000 1344 | D|
0cd4 0000 0000 | | .BLANK 0000[0x4]
0cd8 0740 9404 | @ | .XXX[0x4]
0cda 0800 16b8 | |
0cdc 0000 0000 | | .BLANK 0000[0xa]
0ce6 0033 68a4 | 3h | .XXX[0x2]
0ce8 0000 0000 | | .BLANK 0000[0x7]
0cef 0064 | d | .XXX[0x1]
0cf0 0000 0000 | | .BLANK 0000[0x8]
0cf8 0740 a804 | @ | .XXX[0x34]
0cfa 0000 0016 | |
0cfc 0060 f408 | ` |
0cfe 0000 5432 | T2|
0d00 0740 a804 | @ |
0d02 0000 0016 | |
0d04 0060 f408 | ` |
0d06 0000 5832 | X2|
0d08 0740 a804 | @ |
0d0a 0000 0016 | |
0d0c 0060 f408 | ` |
0d0e 0000 5eb2 | ^ |
0d10 0740 a804 | @ |
0d12 0000 0016 | |
0d14 0060 f408 | ` |
0d16 0000 62b2 | b |
0d18 0740 a804 | @ |
0d1a 0000 0016 | |
0d1c 0060 f408 | ` |
0d1e 0000 6532 | e2|
0d20 0740 a804 | @ |
0d22 0000 0016 | |
0d24 0060 f408 | ` |
0d26 0000 66b2 | f |
0d28 0001 0404 | |
0d2a 0800 0400 | |
0d2c 0000 0000 | | .BLANK 0000[0x6]
0d32 3800 001f |8 | .XXX[0x1e]
0d34 0000 0000 | |
0d36 0000 0699 | |
0d38 0004 b404 | |
0d3a 0800 014c | L|
0d3c 0740 a804 | @ |
0d3e 0000 061a | |
0d40 0736 a404 | 6 |
0d42 0000 003f | ?|
0d44 0002 1017 | |
0d46 0000 0001 | |
0d48 0001 0404 | |
0d4a 0800 0400 | |
0d4c 0000 0000 | |
0d4e 0000 00b6 | |
0d50 0000 0000 | | .BLANK 0000[0x4]
0d54 0740 a804 | @ | .XXX[0xc]
0d56 0000 0000 | |
0d58 0736 a404 | 6 |
0d5a 0000 007f | |
0d5c 0013 0412 | |
0d5e 0000 0c02 | |
0d60 0000 0000 | | .BLANK 0000[0x7]
0d67 0003 0001 | | .XXX[0x9]
0d69 a804 0800 | |
0d6b 1280 0000 | |
0d6d 0000 0000 | |
0d6f 80b6 | |
0d70 0000 0000 | | .BLANK 0000[0x90]