|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1188cd9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0558 | X | .CONST 0x0558 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003a | : | .CONST 0x003a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram INIT_0040,For_Outer_Call,Visible,Unelaborated
000d 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
000f 00bf | | Action Accept_Activation
0010 0092 0456 | V| Action Push_String_Extended,0x456 ; "<NIL>"
0012 0007 | | Action Break_Optional
0013 0007 | | Action Break_Optional
0014 0007 | | Action Break_Optional
0015 029d 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call
0017 029d 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call
0019 e001 | | Load 0x0,0x1
001a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
001b 1919 | | Execute Package,Field_Reference,Field_Number 0x19
001c 00c6 | | Action Check_Subprogram_Elaborated
001d e002 | | Load 0x0,0x2
001e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0020 e003 | | Load 0x0,0x3
0021 e004 | | Load 0x0,0x4
0022 4800 |H | Short_Literal 0x0
0023 0007 | | Action Break_Optional
0024 029d 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call
0026 e001 | | Load 0x0,0x1
0027 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0028 1919 | | Execute Package,Field_Reference,Field_Number 0x19
0029 00c6 | | Action Check_Subprogram_Elaborated
002a 00e3 | | Load_Encached Natural_Cache
002b 1d17 | | Execute_Immediate Reference_Lex_1,0x17
002c e005 | | Load 0x0,0x5
002d e006 | | Load 0x0,0x6
002e 4800 |H | Short_Literal 0x0
002f 0007 | | Action Break_Optional
0030 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call
0032 029d 019b | | Declare_Subprogram INIT_0198,For_Outer_Call
0034 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call
0036 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0037 00c7 | | Action Elaborate_Subprogram
0038 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0039 00c7 | | Action Elaborate_Subprogram
003a BODY_0008:
003a 00bc | | Action Signal_Activated
003b 00bb | | Action Signal_Completion
003c 0000 0000 | | .BLANK 0000[0x4]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 006d | m | .CONST 0x006d ; Address of begin
0041 0071 | q | .CONST 0x0071 ; Address of exception handler
0042 0004 | | .CONST 0x0004 ; Number of locals
0043 INIT_0040:
0043 e002 | | Load 0x0,0x2
0044 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0045 02c7 | | Declare_Variable Any
0046 e5fe | | Load 0x2,-0x2
0047 e002 | | Load 0x0,0x2
0048 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0049 a402 | | Store_Unchecked 0x2,0x2
004a e007 | | Load 0x0,0x7
004b e008 | | Load 0x0,0x8
004c e002 | | Load 0x0,0x2
004d 180e | | Execute Package,Field_Execute,Field_Number 0xe
004e 00db | | Load_Top At_Offset_3
004f 00d8 | | Load_Top At_Offset_0
0050 0120 | | Execute Any,Is_Value
0051 7002 |p | Jump_Nonzero 0x54
0052 00d8 | | Load_Top At_Offset_0
0053 011e | | Execute Any,Convert
0054 0092 0457 | W| Action Push_String_Extended,0x457 ; "Destroy_All ("
0056 e5fd | | Load 0x2,-0x3
0057 01cc | | Execute Vector,Catenate
0058 0092 0458 | X| Action Push_String_Extended,0x458 ; ")"
005a 01cc | | Execute Vector,Catenate
005b 0092 0459 | Y| Action Push_String_Extended,0x459 ; "Of_These => \x22"
005d e5ff | | Load 0x2,-0x1
005e 01cc | | Execute Vector,Catenate
005f 0092 045a | Z| Action Push_String_Extended,0x45a ; "\x22, Response => \x22"
0061 01cc | | Execute Vector,Catenate
0062 e5fe | | Load 0x2,-0x2
0063 01cc | | Execute Vector,Catenate
0064 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22"
0066 01cc | | Execute Vector,Catenate
0067 e009 | | Load 0x0,0x9
0068 0387 | | Declare_Variable Package
0069 00d8 | | Load_Top At_Offset_0
006a 020f | | Execute Module,Activate
006b 029f 01e3 | | Declare_Subprogram INIT_01e0,For_Call
006d BODY_0040:
006d 00d9 | | Load_Top At_Offset_1
006e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
006f 8404 | | Call 0x2,0x4
0070 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0071 TRAP_0040:
0071 00da | | Load_Top At_Offset_2
0072 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0073 010f | | Execute Exception,Equal
0074 6802 |h | Jump_Zero 0x77
0075 00d8 | | Load_Top At_Offset_0
0076 0101 | | Execute Exception,Reraise
0077 00da | | Load_Top At_Offset_2
0078 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0079 010f | | Execute Exception,Equal
007a 6801 |h | Jump_Zero 0x7c
007b 4504 |E | Exit_Suprogram New_Top_Offset 0x4
007c 4800 |H | Short_Literal 0x0
007d 4800 |H | Short_Literal 0x0
007e 4801 |H | Short_Literal 0x1
007f 4808 |H | Short_Literal 0x8
0080 0092 045c | \| Action Push_String_Extended,0x45c ; "EXCEPTION: "
0082 4800 |H | Short_Literal 0x0
0083 4801 |H | Short_Literal 0x1
0084 e00a | | Load 0x0,0xa
0085 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0086 01cc | | Execute Vector,Catenate
0087 e403 | | Load 0x2,0x3
0088 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0089 4504 |E | Exit_Suprogram New_Top_Offset 0x4
008a 0000 0000 | | .BLANK 0000[0x6]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 00b3 | | .CONST 0x00b3 ; Address of begin
0091 00b5 | | .CONST 0x00b5 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 e00b | | Load 0x0,0xb
0094 e00c | | Load 0x0,0xc
0095 e002 | | Load 0x0,0x2
0096 180e | | Execute Package,Field_Execute,Field_Number 0xe
0097 e5fe | | Load 0x2,-0x2
0098 e002 | | Load 0x0,0x2
0099 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
009a 0092 045d | ]| Action Push_String_Extended,0x45d ; "Destroy_Users ("
009c e5fd | | Load 0x2,-0x3
009d 01cc | | Execute Vector,Catenate
009e 0092 0458 | X| Action Push_String_Extended,0x458 ; ")"
00a0 01cc | | Execute Vector,Catenate
00a1 0092 045e | ^| Action Push_String_Extended,0x45e ; "Named => \x22"
00a3 e5ff | | Load 0x2,-0x1
00a4 01cc | | Execute Vector,Catenate
00a5 0092 045a | Z| Action Push_String_Extended,0x45a ; "\x22, Response => \x22"
00a7 01cc | | Execute Vector,Catenate
00a8 e5fe | | Load 0x2,-0x2
00a9 01cc | | Execute Vector,Catenate
00aa 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22"
00ac 01cc | | Execute Vector,Catenate
00ad e009 | | Load 0x0,0x9
00ae 0387 | | Declare_Variable Package
00af 00d8 | | Load_Top At_Offset_0
00b0 020f | | Execute Module,Activate
00b1 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
00b3 BODY_0090:
00b3 8403 | | Call 0x2,0x3
00b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b5 TRAP_0090:
00b5 00da | | Load_Top At_Offset_2
00b6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00b7 010f | | Execute Exception,Equal
00b8 6802 |h | Jump_Zero 0xbb
00b9 00d8 | | Load_Top At_Offset_0
00ba 0101 | | Execute Exception,Reraise
00bb 00da | | Load_Top At_Offset_2
00bc 1b16 | | Execute Package,Field_Read,Field_Number 0x16
00bd 010f | | Execute Exception,Equal
00be 6801 |h | Jump_Zero 0xc0
00bf 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00c0 4800 |H | Short_Literal 0x0
00c1 4800 |H | Short_Literal 0x0
00c2 4801 |H | Short_Literal 0x1
00c3 4808 |H | Short_Literal 0x8
00c4 0092 045c | \| Action Push_String_Extended,0x45c ; "EXCEPTION: "
00c6 4800 |H | Short_Literal 0x0
00c7 4801 |H | Short_Literal 0x1
00c8 e00a | | Load 0x0,0xa
00c9 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00ca 01cc | | Execute Vector,Catenate
00cb e402 | | Load 0x2,0x2
00cc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00cd 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00de | | .CONST 0x00de ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0004 | | .CONST 0x0004 ; Number of locals
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 e001 | | Load 0x0,0x1
00d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d7 e00d | | Load 0x0,0xd
00d8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d9 02c7 | | Declare_Variable Any
00da 00d8 | | Load_Top At_Offset_0
00db 1c00 | | Execute_Immediate Run_Utility,0x0
00dc e00d | | Load 0x0,0xd
00dd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00de BODY_00d0:
00de e002 | | Load 0x0,0x2
00df 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e0 4802 |H | Short_Literal 0x2
00e1 0092 045f | _| Action Push_String_Extended,0x45f ; "PROCESSING "
00e3 e402 | | Load 0x2,0x2
00e4 01cc | | Execute Vector,Catenate
00e5 e00e | | Load 0x0,0xe
00e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e7 e20f | | Load 0x1,0xf
00e8 00db | | Load_Top At_Offset_3
00e9 0092 0460 | `| Action Push_String_Extended,0x460 ; "Network_Public => RWCOD"
00eb e00f | | Load 0x0,0xf
00ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ed e20f | | Load 0x1,0xf
00ee 4800 |H | Short_Literal 0x0
00ef e402 | | Load 0x2,0x2
00f0 e010 | | Load 0x0,0x10
00f1 181f | | Execute Package,Field_Execute,Field_Number 0x1f
00f2 e00d | | Load 0x0,0xd
00f3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f4 00da | | Load_Top At_Offset_2
00f5 0120 | | Execute Any,Is_Value
00f6 6803 |h | Jump_Zero 0xfa
00f7 e00d | | Load 0x0,0xd
00f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f9 7801 |x | Jump 0xfb
00fa 00da | | Load_Top At_Offset_2
00fb e5ff | | Load 0x2,-0x1
00fc e001 | | Load 0x0,0x1
00fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00fe 1b56 | V | Execute Package,Field_Read,Field_Number 0x56
00ff 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0100 c403 | | Store 0x2,0x3
0101 0059 | Y | Store_Top Discrete,At_Offset_1
0102 e00d | | Load 0x0,0xd
0103 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0104 62e3 |b | Indirect_Literal Discrete,0x3e8,{0x00000000, 0x00004000}
0105 e011 | | Load 0x0,0x11
0106 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0107 4800 |H | Short_Literal 0x0
0108 e403 | | Load 0x2,0x3
0109 e00d | | Load 0x0,0xd
010a 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
010b 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
010c 0059 | Y | Store_Top Discrete,At_Offset_1
010d e00d | | Load 0x0,0xd
010e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
010f 62d8 |b | Indirect_Literal Discrete,0x3e8,{0x00000000, 0x00004000}
0110 e011 | | Load 0x0,0x11
0111 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0112 4800 |H | Short_Literal 0x0
0113 e403 | | Load 0x2,0x3
0114 e00d | | Load 0x0,0xd
0115 1b3b | ; | Execute Package,Field_Read,Field_Number 0x3b
0116 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0117 0059 | Y | Store_Top Discrete,At_Offset_1
0118 00d9 | | Load_Top At_Offset_1
0119 e00d | | Load 0x0,0xd
011a 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
011b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
011c e00d | | Load 0x0,0xd
011d 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
011e 1814 | | Execute Package,Field_Execute,Field_Number 0x14
011f 6808 |h | Jump_Zero 0x128
0120 00da | | Load_Top At_Offset_2
0121 8012 | | Call 0x0,0x12
0122 e20f | | Load 0x1,0xf
0123 0092 0461 | a| Action Push_String_Extended,0x461 ; "WORLD"
0125 e402 | | Load 0x2,0x2
0126 e010 | | Load 0x0,0x10
0127 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0128 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0129 0000 0000 | | .BLANK 0000[0x7]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e5fd | | Load 0x2,-0x3
0134 e5fe | | Load 0x2,-0x2
0135 8210 | | Call 0x1,0x10
0136 c5fd | | Store 0x2,-0x3
0137 e001 | | Load 0x0,0x1
0138 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0139 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
013a c5fc | | Store 0x2,-0x4
013b 4800 |H | Short_Literal 0x0
013c a5fb | | Store_Unchecked 0x2,-0x5
013d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013e 0000 0000 | | .XXX[0x2]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e5fd | | Load 0x2,-0x3
0144 0a01 | | Execute_Immediate Plus,0x1
0145 c5fd | | Store 0x2,-0x3
0146 e001 | | Load 0x0,0x1
0147 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0148 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
0149 c5fc | | Store 0x2,-0x4
014a 4800 |H | Short_Literal 0x0
014b a5fb | | Store_Unchecked 0x2,-0x5
014c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0163 | c | .CONST 0x0163 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0005 | | .CONST 0x0005 ; Number of locals
0153 INIT_0150:
0153 e001 | | Load 0x0,0x1
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0156 02c7 | | Declare_Variable Any
0157 00db | | Load_Top At_Offset_3
0158 a402 | | Store_Unchecked 0x2,0x2
0159 00e3 | | Load_Encached Natural_Cache
015a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
015b e001 | | Load 0x0,0x1
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
015e 02c7 | | Declare_Variable Any
015f 00d8 | | Load_Top At_Offset_0
0160 1c00 | | Execute_Immediate Run_Utility,0x0
0161 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
0163 BODY_0150:
0163 00db | | Load_Top At_Offset_3
0164 e001 | | Load 0x0,0x1
0165 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0166 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0167 e5fe | | Load 0x2,-0x2
0168 4601 |F | Jump_Case 0x2
0169 7801 |x | Jump 0x16b ; case 0x0
016a 7813 |x | Jump 0x17e ; case 0x1
016b 00cf | | Action Mark_Auxiliary
016c 7809 |x | Jump 0x176
016d 00db | | Load_Top At_Offset_3
016e 0a01 | | Execute_Immediate Plus,0x1
016f c403 | | Store 0x2,0x3
0170 e402 | | Load 0x2,0x2
0171 e001 | | Load 0x0,0x1
0172 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0173 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0174 c402 | | Store 0x2,0x2
0175 00c9 | | Action Pop_Auxiliary_Loop
0176 e402 | | Load 0x2,0x2
0177 e001 | | Load 0x0,0x1
0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0179 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
017a 6ff2 |o | Jump_Zero 0x16d
017b 00ce | | Action Pop_Auxiliary
017c 00da | | Load_Top At_Offset_2
017d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
017e 00cf | | Action Mark_Auxiliary
017f 780a |x | Jump 0x18a
0180 00db | | Load_Top At_Offset_3
0181 0a01 | | Execute_Immediate Plus,0x1
0182 c403 | | Store 0x2,0x3
0183 8405 | | Call 0x2,0x5
0184 e402 | | Load 0x2,0x2
0185 e001 | | Load 0x0,0x1
0186 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0187 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0188 c402 | | Store 0x2,0x2
0189 00c9 | | Action Pop_Auxiliary_Loop
018a e402 | | Load 0x2,0x2
018b e001 | | Load 0x0,0x1
018c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
018e 6ff1 |o | Jump_Zero 0x180
018f 00ce | | Action Pop_Auxiliary
0190 00da | | Load_Top At_Offset_2
0191 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0192 0000 0000 | | .BLANK 0000[0x6]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 0f01 | | Execute_Immediate Equal,0x1
019d 6802 |h | Jump_Zero 0x1a0
019e 00ea | | Load_Encached Null_String_Cache
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a0 0092 0462 | b| Action Push_String_Extended,0x462 ; "s"
01a2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3 | | .CONST 0x01b3 ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0003 | | .CONST 0x0003 ; Number of locals
01ab INIT_01a8:
01ab e001 | | Load 0x0,0x1
01ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ad 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01ae 02c7 | | Declare_Variable Any
01af 00db | | Load_Top At_Offset_3
01b0 a402 | | Store_Unchecked 0x2,0x2
01b1 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
01b3 BODY_01a8:
01b3 00d9 | | Load_Top At_Offset_1
01b4 e001 | | Load 0x0,0x1
01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b6 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01b7 4800 |H | Short_Literal 0x0
01b8 00da | | Load_Top At_Offset_2
01b9 821d | | Call 0x1,0x1d
01ba 0b00 | | Execute_Immediate Case_Compare,0x0
01bb 700f |p | Jump_Nonzero 0x1cb
01bc 0b01 | | Execute_Immediate Case_Compare,0x1
01bd 7010 |p | Jump_Nonzero 0x1ce
01be 00da | | Load_Top At_Offset_2
01bf e001 | | Load 0x0,0x1
01c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01c2 0092 0463 | c| Action Push_String_Extended,0x463 ; "["
01c4 00db | | Load_Top At_Offset_3
01c5 8403 | | Call 0x2,0x3
01c6 01cc | | Execute Vector,Catenate
01c7 0092 0464 | d| Action Push_String_Extended,0x464 ; "]"
01c9 01cc | | Execute Vector,Catenate
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb 0092 0465 | e| Action Push_String_Extended,0x465 ; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
01cd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ce 00da | | Load_Top At_Offset_2
01cf e001 | | Load 0x0,0x1
01d0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d1 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01d2 00da | | Load_Top At_Offset_2
01d3 e001 | | Load 0x0,0x1
01d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d5 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
01d6 e001 | | Load 0x0,0x1
01d7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01da 0000 0000 | | .BLANK 0000[0x6]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01fa | | .CONST 0x01fa ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0005 | | .CONST 0x0005 ; Number of locals
01e3 INIT_01e0:
01e3 e001 | | Load 0x0,0x1
01e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e5 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
01e6 02c7 | | Declare_Variable Any
01e7 00d8 | | Load_Top At_Offset_0
01e8 1c00 | | Execute_Immediate Run_Utility,0x0
01e9 e001 | | Load 0x0,0x1
01ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01eb 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
01ec 02c7 | | Declare_Variable Any
01ed 4801 |H | Short_Literal 0x1
01ee e001 | | Load 0x0,0x1
01ef 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f1 e5ff | | Load 0x2,-0x1
01f2 e001 | | Load 0x0,0x1
01f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f4 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
01f5 a603 | | Store_Unchecked 0x3,0x3
01f6 00d8 | | Load_Top At_Offset_0
01f7 821f | | Call 0x1,0x1f
01f8 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
01fa BODY_01e0:
01fa 00da | | Load_Top At_Offset_2
01fb e001 | | Load 0x0,0x1
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
01fe 00da | | Load_Top At_Offset_2
01ff e001 | | Load 0x0,0x1
0200 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0201 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0202 6812 |h | Jump_Zero 0x215
0203 4800 |H | Short_Literal 0x0
0204 4801 |H | Short_Literal 0x1
0205 4800 |H | Short_Literal 0x0
0206 4806 |H | Short_Literal 0x6
0207 0092 0466 | f| Action Push_String_Extended,0x466 ; "Cannot resolve any objects in \x22"
0209 e5ff | | Load 0x2,-0x1
020a 01cc | | Execute Vector,Catenate
020b 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22"
020d 01cc | | Execute Vector,Catenate
020e e403 | | Load 0x2,0x3
020f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0210 e403 | | Load 0x2,0x3
0211 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0212 e403 | | Load 0x2,0x3
0213 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0214 0257 | W | Execute Discrete,Raise
0215 4801 |H | Short_Literal 0x1
0216 e013 | | Load 0x0,0x13
0217 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0218 e20f | | Load 0x1,0xf
0219 0092 0467 | g| Action Push_String_Extended,0x467 ; "<CURRENT_USER>"
021b 0092 0468 | h| Action Push_String_Extended,0x468 ; "<>"
021d e014 | | Load 0x0,0x14
021e 180d | | Execute Package,Field_Execute,Field_Number 0xd
021f e402 | | Load 0x2,0x2
0220 00db | | Load_Top At_Offset_3
0221 e001 | | Load 0x0,0x1
0222 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0223 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0224 8210 | | Call 0x1,0x10
0225 c402 | | Store 0x2,0x2
0226 00cf | | Action Mark_Auxiliary
0227 7823 |x# | Jump 0x24b
0228 e602 | | Load 0x3,0x2
0229 0120 | | Execute Any,Is_Value
022a 6804 |h | Jump_Zero 0x22f
022b e001 | | Load 0x0,0x1
022c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
022d 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
022e 7801 |x | Jump 0x230
022f e602 | | Load 0x3,0x2
0230 e402 | | Load 0x2,0x2
0231 4800 |H | Short_Literal 0x0
0232 4801 |H | Short_Literal 0x1
0233 4801 |H | Short_Literal 0x1
0234 4801 |H | Short_Literal 0x1
0235 4801 |H | Short_Literal 0x1
0236 4800 |H | Short_Literal 0x0
0237 0092 0469 | i| Action Push_String_Extended,0x469 ; "@"
0239 e603 | | Load 0x3,0x3
023a e001 | | Load 0x0,0x1
023b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
023c 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
023d e212 | | Load 0x1,0x12
023e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
023f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0240 e001 | | Load 0x0,0x1
0241 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0242 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0243 c402 | | Store 0x2,0x2
0244 c602 | | Store 0x3,0x2
0245 00db | | Load_Top At_Offset_3
0246 e001 | | Load 0x0,0x1
0247 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0248 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0249 c603 | | Store 0x3,0x3
024a 00c9 | | Action Pop_Auxiliary_Loop
024b 00db | | Load_Top At_Offset_3
024c e001 | | Load 0x0,0x1
024d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
024e 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
024f 6fd8 |o | Jump_Zero 0x228
0250 00ce | | Action Pop_Auxiliary
0251 0092 046a | j| Action Push_String_Extended,0x46a ; "PERSEVERE,"
0253 e5fe | | Load 0x2,-0x2
0254 01cc | | Execute Vector,Catenate
0255 0092 046b | k| Action Push_String_Extended,0x46b ; "<ALL_WORLDS>"
0257 618c |a | Indirect_Literal Discrete,0x3e4,{0x00000000, 0x7fffffff}
0258 e604 | | Load 0x3,0x4
0259 e015 | | Load 0x0,0x15
025a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
025b 8605 | | Call 0x3,0x5
025c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0281 | | .CONST 0x0281 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 000a | | .CONST 0x000a ; Number of locals
0263 INIT_0260:
0263 e001 | | Load 0x0,0x1
0264 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0265 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0266 02c7 | | Declare_Variable Any
0267 4801 |H | Short_Literal 0x1
0268 e001 | | Load 0x0,0x1
0269 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
026b e5ff | | Load 0x2,-0x1
026c e001 | | Load 0x0,0x1
026d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
026e 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
026f a602 | | Store_Unchecked 0x3,0x2
0270 00d8 | | Load_Top At_Offset_0
0271 821f | | Call 0x1,0x1f
0272 4800 |H | Short_Literal 0x0
0273 00da | | Load_Top At_Offset_2
0274 821d | | Call 0x1,0x1d
0275 00e3 | | Load_Encached Natural_Cache
0276 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0277 029f 032b | +| Declare_Subprogram INIT_0328,For_Call
0279 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
027b 029f 0373 | s| Declare_Subprogram INIT_0370,For_Call
027d 029f 03f3 | | Declare_Subprogram INIT_03f0,For_Call
027f 029f 042b | +| Declare_Subprogram INIT_0428,For_Call
0281 BODY_0260:
0281 e402 | | Load 0x2,0x2
0282 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0283 8607 | | Call 0x3,0x7
0284 4801 |H | Short_Literal 0x1
0285 e013 | | Load 0x0,0x13
0286 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0287 e602 | | Load 0x3,0x2
0288 e001 | | Load 0x0,0x1
0289 1b0d | | Execute Package,Field_Read,Field_Number 0xd
028a 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
028b 00cf | | Action Mark_Auxiliary
028c 7810 |x | Jump 0x29d
028d e602 | | Load 0x3,0x2
028e e001 | | Load 0x0,0x1
028f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0290 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0291 e001 | | Load 0x0,0x1
0292 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0293 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0294 8606 | | Call 0x3,0x6
0295 6801 |h | Jump_Zero 0x297
0296 860a | | Call 0x3,0xa
0297 e602 | | Load 0x3,0x2
0298 e001 | | Load 0x0,0x1
0299 1b0d | | Execute Package,Field_Read,Field_Number 0xd
029a 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
029b c602 | | Store 0x3,0x2
029c 00c9 | | Action Pop_Auxiliary_Loop
029d e602 | | Load 0x3,0x2
029e e001 | | Load 0x0,0x1
029f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a0 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02a1 6feb |o | Jump_Zero 0x28d
02a2 00ce | | Action Pop_Auxiliary
02a3 8609 | | Call 0x3,0x9
02a4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02a5 0000 0000 | | .XXX[0x3]
02a7 0000 | |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ad | | .CONST 0x02ad ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0002 | | .CONST 0x0002 ; Number of locals
02ab INIT_02a8:
02ab 00e3 | | Load_Encached Natural_Cache
02ac 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
02ad BODY_02a8:
02ad e404 | | Load 0x2,0x4
02ae 0120 | | Execute Any,Is_Value
02af 6804 |h | Jump_Zero 0x2b4
02b0 e001 | | Load 0x0,0x1
02b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b2 1b30 | 0 | Execute Package,Field_Read,Field_Number 0x30
02b3 7801 |x | Jump 0x2b5
02b4 e404 | | Load 0x2,0x4
02b5 00d9 | | Load_Top At_Offset_1
02b6 4800 |H | Short_Literal 0x0
02b7 4801 |H | Short_Literal 0x1
02b8 4801 |H | Short_Literal 0x1
02b9 4801 |H | Short_Literal 0x1
02ba 4801 |H | Short_Literal 0x1
02bb 4800 |H | Short_Literal 0x0
02bc 0092 0469 | i| Action Push_String_Extended,0x469 ; "@"
02be e402 | | Load 0x2,0x2
02bf e001 | | Load 0x0,0x1
02c0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02c1 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02c2 e218 | | Load 0x1,0x18
02c3 1d19 | | Execute_Immediate Reference_Lex_1,0x19
02c4 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
02c5 e001 | | Load 0x0,0x1
02c6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c7 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02c8 005a | Z | Store_Top Discrete,At_Offset_2
02c9 c404 | | Store 0x2,0x4
02ca e403 | | Load 0x2,0x3
02cb 00d9 | | Load_Top At_Offset_1
02cc 0273 | s | Execute Discrete,Plus
02cd c403 | | Store 0x2,0x3
02ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02cf 0000 | | .XXX[0x1]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02e0 | | .CONST 0x02e0 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0003 | | .CONST 0x0003 ; Number of locals
02d3 INIT_02d0:
02d3 e001 | | Load 0x0,0x1
02d4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d5 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
02d6 02c7 | | Declare_Variable Any
02d7 00db | | Load_Top At_Offset_3
02d8 a602 | | Store_Unchecked 0x3,0x2
02d9 00d8 | | Load_Top At_Offset_0
02da e001 | | Load 0x0,0x1
02db 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02dc 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02dd e001 | | Load 0x0,0x1
02de 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02df 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02e0 BODY_02d0:
02e0 00d9 | | Load_Top At_Offset_1
02e1 e001 | | Load 0x0,0x1
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
02e4 c602 | | Store 0x3,0x2
02e5 00d9 | | Load_Top At_Offset_1
02e6 e001 | | Load 0x0,0x1
02e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e8 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
02e9 6802 |h | Jump_Zero 0x2ec
02ea 00d8 | | Load_Top At_Offset_0
02eb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02ec 00d8 | | Load_Top At_Offset_0
02ed 0092 046c | l| Action Push_String_Extended,0x46c ; ","
02ef 01cc | | Execute Vector,Catenate
02f0 00da | | Load_Top At_Offset_2
02f1 8403 | | Call 0x2,0x3
02f2 01cc | | Execute Vector,Catenate
02f3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f4 0000 0000 | | .BLANK 0000[0x4]
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 0305 | | .CONST 0x0305 ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0002 | | .CONST 0x0002 ; Number of locals
02fb INIT_02f8:
02fb 4801 |H | Short_Literal 0x1
02fc 4801 |H | Short_Literal 0x1
02fd e001 | | Load 0x0,0x1
02fe 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02ff 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0300 e604 | | Load 0x3,0x4
0301 e001 | | Load 0x0,0x1
0302 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0303 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0304 821d | | Call 0x1,0x1d
0305 BODY_02f8:
0305 00d8 | | Load_Top At_Offset_0
0306 0c01 | | Execute_Immediate Greater_Equal,0x1
0307 6816 |h | Jump_Zero 0x31e
0308 4800 |H | Short_Literal 0x0
0309 4801 |H | Short_Literal 0x1
030a 4801 |H | Short_Literal 0x1
030b 4807 |H | Short_Literal 0x7
030c 0092 046d | m| Action Push_String_Extended,0x46d ; "Unable to destroy "
030e 4820 |H | Short_Literal 0x20
030f e802 | | Load 0x4,0x2
0310 00e0 | | Load_Encached Standard_Cache
0311 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0312 e016 | | Load 0x0,0x16
0313 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0314 01cc | | Execute Vector,Catenate
0315 0092 046e | n| Action Push_String_Extended,0x46e ; " object"
0317 01cc | | Execute Vector,Catenate
0318 e802 | | Load 0x4,0x2
0319 821e | | Call 0x1,0x1e
031a 01cc | | Execute Vector,Catenate
031b e403 | | Load 0x2,0x3
031c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
031d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
031e e403 | | Load 0x2,0x3
031f 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0320 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0321 0000 0000 | | .BLANK 0000[0x7]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c e017 | | Load 0x0,0x17
032d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
032e 6808 |h | Jump_Zero 0x337
032f 00da | | Load_Top At_Offset_2
0330 e001 | | Load 0x0,0x1
0331 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0332 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0333 0092 046f | o| Action Push_String_Extended,0x46f ; "!USERS"
0335 01df | | Execute Vector,Equal
0336 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0337 4800 |H | Short_Literal 0x0
0338 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0339 0000 0000 | | .BLANK 0000[0x7]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0345 | E | .CONST 0x0345 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0002 | | .CONST 0x0002 ; Number of locals
0343 INIT_0340:
0343 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
0345 BODY_0340:
0345 e602 | | Load 0x3,0x2
0346 e001 | | Load 0x0,0x1
0347 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0348 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0349 00cf | | Action Mark_Auxiliary
034a 7807 |x | Jump 0x352
034b 8802 | | Call 0x4,0x2
034c e602 | | Load 0x3,0x2
034d e001 | | Load 0x0,0x1
034e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
034f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0350 c602 | | Store 0x3,0x2
0351 00c9 | | Action Pop_Auxiliary_Loop
0352 e602 | | Load 0x3,0x2
0353 e001 | | Load 0x0,0x1
0354 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0355 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0356 6ff4 |o | Jump_Zero 0x34b
0357 00ce | | Action Pop_Auxiliary
0358 e605 | | Load 0x3,0x5
0359 7012 |p | Jump_Nonzero 0x36c
035a 4800 |H | Short_Literal 0x0
035b 4801 |H | Short_Literal 0x1
035c 4800 |H | Short_Literal 0x0
035d 4806 |H | Short_Literal 0x6
035e 0092 0470 | p| Action Push_String_Extended,0x470 ; "Cannot resolve any users in \x22"
0360 e5ff | | Load 0x2,-0x1
0361 01cc | | Execute Vector,Catenate
0362 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22"
0364 01cc | | Execute Vector,Catenate
0365 e402 | | Load 0x2,0x2
0366 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0367 e402 | | Load 0x2,0x2
0368 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0369 e402 | | Load 0x2,0x2
036a 1b16 | | Execute Package,Field_Read,Field_Number 0x16
036b 0257 | W | Execute Discrete,Raise
036c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
036d 0000 0000 | | .XXX[0x3]
036f 0000 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037b | { | .CONST 0x037b ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0003 | | .CONST 0x0003 ; Number of locals
0373 INIT_0370:
0373 00da | | Load_Top At_Offset_2
0374 e001 | | Load 0x0,0x1
0375 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0376 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0377 00db | | Load_Top At_Offset_3
0378 e001 | | Load 0x0,0x1
0379 1b0e | | Execute Package,Field_Read,Field_Number 0xe
037a 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
037b BODY_0370:
037b e002 | | Load 0x0,0x2
037c 180e | | Execute Package,Field_Execute,Field_Number 0xe
037d 4802 |H | Short_Literal 0x2
037e 0092 0471 | q| Action Push_String_Extended,0x471 ; "DELETING USER \x22"
0380 e802 | | Load 0x4,0x2
0381 01cc | | Execute Vector,Catenate
0382 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22"
0384 01cc | | Execute Vector,Catenate
0385 e00e | | Load 0x0,0xe
0386 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0387 e20f | | Load 0x1,0xf
0388 00d9 | | Load_Top At_Offset_1
0389 e013 | | Load 0x0,0x13
038a 180f | | Execute Package,Field_Execute,Field_Number 0xf
038b e5fd | | Load 0x2,-0x3
038c e20f | | Load 0x1,0xf
038d 0092 0472 | r| Action Push_String_Extended,0x472 ; "!MACHINE.GROUPS."
038f 00db | | Load_Top At_Offset_3
0390 01cc | | Execute Vector,Catenate
0391 820d | | Call 0x1,0xd
0392 e5fd | | Load 0x2,-0x3
0393 e20f | | Load 0x1,0xf
0394 0092 0473 | s| Action Push_String_Extended,0x473 ; "!MACHINE.USERS."
0396 00db | | Load_Top At_Offset_3
0397 01cc | | Execute Vector,Catenate
0398 820d | | Call 0x1,0xd
0399 e5fd | | Load 0x2,-0x3
039a e20f | | Load 0x1,0xf
039b 0092 0474 | t| Action Push_String_Extended,0x474 ; "!MACHINE.ERROR_LOGS."
039d 00db | | Load_Top At_Offset_3
039e 01cc | | Execute Vector,Catenate
039f 0092 0475 | u| Action Push_String_Extended,0x475 ; "_@"
03a1 01cc | | Execute Vector,Catenate
03a2 820d | | Call 0x1,0xd
03a3 e5fd | | Load 0x2,-0x3
03a4 e20f | | Load 0x1,0xf
03a5 0092 0476 | v| Action Push_String_Extended,0x476 ; "!MACHINE.SEARCH_LISTS."
03a7 00db | | Load_Top At_Offset_3
03a8 01cc | | Execute Vector,Catenate
03a9 0092 0475 | u| Action Push_String_Extended,0x475 ; "_@"
03ab 01cc | | Execute Vector,Catenate
03ac 820d | | Call 0x1,0xd
03ad e20f | | Load 0x1,0xf
03ae 4800 |H | Short_Literal 0x0
03af 00ea | | Load_Encached Null_String_Cache
03b0 00db | | Load_Top At_Offset_3
03b1 e013 | | Load 0x0,0x13
03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b3 e20f | | Load 0x1,0xf
03b4 00d9 | | Load_Top At_Offset_1
03b5 e013 | | Load 0x0,0x13
03b6 180f | | Execute Package,Field_Execute,Field_Number 0xf
03b7 e5fd | | Load 0x2,-0x3
03b8 e20f | | Load 0x1,0xf
03b9 0092 0472 | r| Action Push_String_Extended,0x472 ; "!MACHINE.GROUPS."
03bb 00db | | Load_Top At_Offset_3
03bc 01cc | | Execute Vector,Catenate
03bd 820d | | Call 0x1,0xd
03be e5fd | | Load 0x2,-0x3
03bf e20f | | Load 0x1,0xf
03c0 0092 0473 | s| Action Push_String_Extended,0x473 ; "!MACHINE.USERS."
03c2 00db | | Load_Top At_Offset_3
03c3 01cc | | Execute Vector,Catenate
03c4 820d | | Call 0x1,0xd
03c5 e5fd | | Load 0x2,-0x3
03c6 e20f | | Load 0x1,0xf
03c7 0092 0474 | t| Action Push_String_Extended,0x474 ; "!MACHINE.ERROR_LOGS."
03c9 00db | | Load_Top At_Offset_3
03ca 01cc | | Execute Vector,Catenate
03cb 0092 0475 | u| Action Push_String_Extended,0x475 ; "_@"
03cd 01cc | | Execute Vector,Catenate
03ce 820d | | Call 0x1,0xd
03cf e5fd | | Load 0x2,-0x3
03d0 e20f | | Load 0x1,0xf
03d1 0092 0476 | v| Action Push_String_Extended,0x476 ; "!MACHINE.SEARCH_LISTS."
03d3 00db | | Load_Top At_Offset_3
03d4 01cc | | Execute Vector,Catenate
03d5 0092 0475 | u| Action Push_String_Extended,0x475 ; "_@"
03d7 01cc | | Execute Vector,Catenate
03d8 820d | | Call 0x1,0xd
03d9 e5fd | | Load 0x2,-0x3
03da 0092 0477 | w| Action Push_String_Extended,0x477 ; "PROPAGATE,"
03dc e9fe | | Load 0x4,-0x2
03dd 01cc | | Execute Vector,Catenate
03de 0092 0478 | x| Action Push_String_Extended,0x478 ; "!USERS."
03e0 00db | | Load_Top At_Offset_3
03e1 01cc | | Execute Vector,Catenate
03e2 820d | | Call 0x1,0xd
03e3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
03e4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
03e8 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
03ec 0000 0000 | | .BLANK 0000[0x4]
03f0 ; --------------------------------------------------------------------------------------
03f0 ; SUBPROGRAM
03f0 ; --------------------------------------------------------------------------------------
03f0 0407 | | .CONST 0x0407 ; Address of begin
03f1 0004 | | .CONST 0x0004 ; Address of exception handler
03f2 0004 | | .CONST 0x0004 ; Number of locals
03f3 INIT_03f0:
03f3 4800 |H | Short_Literal 0x0
03f4 4801 |H | Short_Literal 0x1
03f5 e001 | | Load 0x0,0x1
03f6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03f8 e603 | | Load 0x3,0x3
03f9 e001 | | Load 0x0,0x1
03fa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03fb 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
03fc 821d | | Call 0x1,0x1d
03fd e604 | | Load 0x3,0x4
03fe e605 | | Load 0x3,0x5
03ff 0272 | r | Execute Discrete,Minus
0400 00e3 | | Load_Encached Natural_Cache
0401 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0402 00d9 | | Load_Top At_Offset_1
0403 00d9 | | Load_Top At_Offset_1
0404 0272 | r | Execute Discrete,Minus
0405 00e3 | | Load_Encached Natural_Cache
0406 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0407 BODY_03f0:
0407 00d8 | | Load_Top At_Offset_0
0408 0c01 | | Execute_Immediate Greater_Equal,0x1
0409 6816 |h | Jump_Zero 0x420
040a 4800 |H | Short_Literal 0x0
040b 4801 |H | Short_Literal 0x1
040c 4801 |H | Short_Literal 0x1
040d 4807 |H | Short_Literal 0x7
040e 0092 046d | m| Action Push_String_Extended,0x46d ; "Unable to destroy "
0410 4820 |H | Short_Literal 0x20
0411 e804 | | Load 0x4,0x4
0412 00e0 | | Load_Encached Standard_Cache
0413 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0414 e016 | | Load 0x0,0x16
0415 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0416 01cc | | Execute Vector,Catenate
0417 0092 0479 | y| Action Push_String_Extended,0x479 ; " user"
0419 01cc | | Execute Vector,Catenate
041a e804 | | Load 0x4,0x4
041b 821e | | Call 0x1,0x1e
041c 01cc | | Execute Vector,Catenate
041d e402 | | Load 0x2,0x2
041e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
041f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0420 e402 | | Load 0x2,0x2
0421 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0422 e402 | | Load 0x2,0x2
0423 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0424 0257 | W | Execute Discrete,Raise
0425 0000 0000 | | .XXX[0x3]
0427 0000 | |
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0432 | 2 | .CONST 0x0432 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b e5fe | | Load 0x2,-0x2
042c e602 | | Load 0x3,0x2
042d e001 | | Load 0x0,0x1
042e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
042f 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0430 8608 | | Call 0x3,0x8
0431 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0432 TRAP_0428:
0432 0007 | | Action Break_Optional
0433 8609 | | Call 0x3,0x9
0434 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0435 0000 0000 | | .XXX[0x3]
0437 0000 | |
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 0442 | B | .CONST 0x0442 ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0002 | | .CONST 0x0002 ; Number of locals
043b INIT_0438:
043b e602 | | Load 0x3,0x2
043c e001 | | Load 0x0,0x1
043d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
043e 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
043f e001 | | Load 0x0,0x1
0440 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0441 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0442 BODY_0438:
0442 00d8 | | Load_Top At_Offset_0
0443 8606 | | Call 0x3,0x6
0444 6804 |h | Jump_Zero 0x449
0445 e605 | | Load 0x3,0x5
0446 0a01 | | Execute_Immediate Plus,0x1
0447 c605 | | Store 0x3,0x5
0448 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0449 e002 | | Load 0x0,0x2
044a 180e | | Execute Package,Field_Execute,Field_Number 0xe
044b 4806 |H | Short_Literal 0x6
044c 0092 047a | z| Action Push_String_Extended,0x47a ; "Invalid user name \x22"
044e 00db | | Load_Top At_Offset_3
044f 01cc | | Execute Vector,Catenate
0450 0092 045b | [| Action Push_String_Extended,0x45b ; "\x22"
0452 01cc | | Execute Vector,Catenate
0453 e00e | | Load 0x0,0xe
0454 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0455 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0456 ; --------------------------------------------------------------------------------------
0456 ; STRING TABLE
0456 ; --------------------------------------------------------------------------------------
0456 004c | L | .STRTAB 0x004c->0x047c ; "<NIL>"
0457 004f | O | .STRTAB 0x004f->0x047e ; "Destroy_All ("
0458 005a | Z | .STRTAB 0x005a->0x0485 ; ")"
0459 0059 | Y | .STRTAB 0x0059->0x0485 ; "Of_These => \x22"
045a 0064 | d | .STRTAB 0x0064->0x048c ; "\x22, Response => \x22"
045b 0072 | r | .STRTAB 0x0072->0x0494 ; "\x22"
045c 0071 | q | .STRTAB 0x0071->0x0494 ; "EXCEPTION: "
045d 007a | z | .STRTAB 0x007a->0x049a ; "Destroy_Users ("
045e 0087 | | .STRTAB 0x0087->0x04a1 ; "Named => \x22"
045f 008f | | .STRTAB 0x008f->0x04a6 ; "PROCESSING "
0460 0098 | | .STRTAB 0x0098->0x04ac ; "Network_Public => RWCOD"
0461 00ad | | .STRTAB 0x00ad->0x04b7 ; "WORLD"
0462 00b0 | | .STRTAB 0x00b0->0x04ba ; "s"
0463 00af | | .STRTAB 0x00af->0x04ba ; "["
0464 00ae | | .STRTAB 0x00ae->0x04bb ; "]"
0465 00ad | | .STRTAB 0x00ad->0x04bb ; "*** NOTHING RESOLVES TO THIS EXPRESSION ***"
0466 00d6 | | .STRTAB 0x00d6->0x04d1 ; "Cannot resolve any objects in \x22"
0467 00f3 | | .STRTAB 0x00f3->0x04e0 ; "<CURRENT_USER>"
0468 00ff | | .STRTAB 0x00ff->0x04e7 ; "<>"
0469 00ff | | .STRTAB 0x00ff->0x04e8 ; "@"
046a 00fe | | .STRTAB 0x00fe->0x04e9 ; "PERSEVERE,"
046b 0106 | | .STRTAB 0x0106->0x04ee ; "<ALL_WORLDS>"
046c 0110 | | .STRTAB 0x0110->0x04f4 ; ","
046d 010f | | .STRTAB 0x010f->0x04f4 ; "Unable to destroy "
046e 011f | | .STRTAB 0x011f->0x04fd ; " object"
046f 0124 | $ | .STRTAB 0x0124->0x0501 ; "!USERS"
0470 0128 | ( | .STRTAB 0x0128->0x0504 ; "Cannot resolve any users in \x22"
0471 0143 | C | .STRTAB 0x0143->0x0512 ; "DELETING USER \x22"
0472 0150 | P | .STRTAB 0x0150->0x051a ; "!MACHINE.GROUPS."
0473 015e | ^ | .STRTAB 0x015e->0x0522 ; "!MACHINE.USERS."
0474 016b | k | .STRTAB 0x016b->0x0529 ; "!MACHINE.ERROR_LOGS."
0475 017d | } | .STRTAB 0x017d->0x0533 ; "_@"
0476 017d | } | .STRTAB 0x017d->0x0534 ; "!MACHINE.SEARCH_LISTS."
0477 0191 | | .STRTAB 0x0191->0x053f ; "PROPAGATE,"
0478 0199 | | .STRTAB 0x0199->0x0544 ; "!USERS."
0479 019e | | .STRTAB 0x019e->0x0548 ; " user"
047a 01a1 | | .STRTAB 0x01a1->0x054a ; "Invalid user name \x22"
047b 01b2 | | .STREND 0x01b2->0x0554
047c 3c4e 494c |<NIL| .STRTAB_STRINGS
0554 0000 0000 | | .BLANK 0000[0x4]
0558 ; --------------------------------------------------------------------------------------
0558 ; Debug Table
0558 ; --------------------------------------------------------------------------------------
0558 0004 000c | | .DEBUG4 0x0004,0x000c,0x71f9,0x0000,0x0001,0x0000
055e 0000 0000 | | .BLANK 0000[0xa2]