|
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: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_02f8e7
└─⟦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 02e8 | | .CONST 0x02e8 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0020 | | .CONST 0x0020 ; Address of begin 0009 002c | , | .CONST 0x002c ; Address of exception handler 000a 0008 | | .CONST 0x0008 ; Number of locals 000b INIT_0008: 000b e210 | | Load 0x1,0x10 000c 0322 | " | Declare_Variable Record 000d 00d8 | | Load_Top At_Offset_0 000e 1c00 | | Execute_Immediate Run_Utility,0x0 000f 0007 | | Action Break_Optional 0010 6223 |b# | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000400} 0011 e211 | | Load 0x1,0x11 0012 1b12 | | Execute Package,Field_Read,Field_Number 0x12 0013 1c08 | | Execute_Immediate Run_Utility,0x8 0014 00d8 | | Load_Top At_Offset_0 0015 1c00 | | Execute_Immediate Run_Utility,0x0 0016 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call 0018 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call 001a 029f 007b | {| Declare_Subprogram INIT_0078,For_Call 001c 029f 008b | | Declare_Subprogram INIT_0088,For_Call 001e 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call 0020 BODY_0008: 0020 e402 | | Load 0x2,0x2 0021 0092 0238 | 8| Action Push_String_Extended,0x238 ; "None" 0023 4800 |H | Short_Literal 0x0 0024 e5ff | | Load 0x2,-0x1 0025 8215 | | Call 0x1,0x15 0026 00d1 | | Pop_Control Pop_Count_1 0027 00cf | | Action Mark_Auxiliary 0028 0007 | | Action Break_Optional 0029 8408 | | Call 0x2,0x8 002a 00c9 | | Action Pop_Auxiliary_Loop 002b 7ffd | | Jump 0x29 002c TRAP_0008: 002c 0007 | | Action Break_Optional 002d e402 | | Load 0x2,0x2 002e 8216 | | Call 0x1,0x16 002f 00d1 | | Pop_Control Pop_Count_1 0030 0092 0239 | 9| Action Push_String_Extended,0x239 ; "CI.Login" 0032 8212 | | Call 0x1,0x12 0033 00d8 | | Load_Top At_Offset_0 0034 0101 | | Execute Exception,Reraise 0035 0000 0000 | | .XXX[0x3] 0037 0000 | | 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e7ff | | Load 0x3,-0x1 003c 00d8 | | Load_Top At_Offset_0 003d 0c00 | | Execute_Immediate Greater_Equal,0x0 003e 7003 |p | Jump_Nonzero 0x42 003f 61f0 |a | Indirect_Literal Discrete,0x230,{0xffffffff, 0xffffc000} 0040 0273 | s | Execute Discrete,Plus 0041 7802 |x | Jump 0x44 0042 61e9 |a | Indirect_Literal Discrete,0x22c,{0x00000000, 0x00004000} 0043 0273 | s | Execute Discrete,Plus 0044 09f1 | | Execute_Immediate Binary_Scale,-0xf 0045 00e2 | | Load_Encached Integer_Cache 0046 025e | ^ | Execute Discrete,Convert 0047 00e0 | | Load_Encached Standard_Cache 0048 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0049 0092 023a | :| Action Push_String_Extended,0x23a ; ".0" 004b 01cc | | Execute Vector,Catenate 004c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 004d 0000 0000 | | .XXX[0x3] 004f 0000 | | 0050 ; -------------------------------------------------------------------------------------- 0050 ; SUBPROGRAM 0050 ; -------------------------------------------------------------------------------------- 0050 006d | m | .CONST 0x006d ; Address of begin 0051 0004 | | .CONST 0x0004 ; Address of exception handler 0052 000d | | .CONST 0x000d ; Number of locals 0053 INIT_0050: 0053 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 0055 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 0057 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0059 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call 005b e211 | | Load 0x1,0x11 005c 1914 | | Execute Package,Field_Reference,Field_Number 0x14 005d 00c6 | | Action Check_Subprogram_Elaborated 005e e210 | | Load 0x1,0x10 005f 4804 |H | Short_Literal 0x4 0060 4803 |H | Short_Literal 0x3 0061 0099 | | Action Reference_Dynamic 0062 4805 |H | Short_Literal 0x5 0063 4803 |H | Short_Literal 0x3 0064 0099 | | Action Reference_Dynamic 0065 e012 | | Load 0x0,0x12 0066 e013 | | Load 0x0,0x13 0067 480b |H | Short_Literal 0xb 0068 0007 | | Action Break_Optional 0069 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call 006b 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 006d BODY_0050: 006d e402 | | Load 0x2,0x2 006e 8214 | | Call 0x1,0x14 006f 00d1 | | Pop_Control Pop_Count_1 0070 860d | | Call 0x3,0xd 0071 4831 |H1 | Short_Literal 0x31 0072 0257 | W | Execute Discrete,Raise 0073 0000 0000 | | .BLANK 0000[0x5] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e7ff | | Load 0x3,-0x1 007c 01db | | Execute Vector,Length 007d 7003 |p | Jump_Nonzero 0x81 007e 0092 023b | ;| Action Push_String_Extended,0x23b ; "S_1" 0080 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0081 e7ff | | Load 0x3,-0x1 0082 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0083 0000 0000 | | .BLANK 0000[0x5] 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 0099 | | .CONST 0x0099 ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0005 | | .CONST 0x0005 ; Number of locals 008b INIT_0088: 008b 0092 023c | <| Action Push_String_Extended,0x23c ; "!Users." 008d e7ff | | Load 0x3,-0x1 008e 01cc | | Execute Vector,Catenate 008f 0007 | | Action Break_Optional 0090 e00a | | Load 0x0,0xa 0091 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0092 e00a | | Load 0x0,0xa 0093 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0094 02c7 | | Declare_Variable Any 0095 00d8 | | Load_Top At_Offset_0 0096 1c00 | | Execute_Immediate Run_Utility,0x0 0097 029f 016b | k| Declare_Subprogram INIT_0168,For_Call 0099 BODY_0088: 0099 e005 | | Load 0x0,0x5 009a 180e | | Execute Package,Field_Execute,Field_Number 0xe 009b 4802 |H | Short_Literal 0x2 009c 482e |H. | Short_Literal 0x2e 009d e7ff | | Load 0x3,-0x1 009e 01cb | | Execute Vector,Append 009f e7fd | | Load 0x3,-0x3 00a0 01cc | | Execute Vector,Catenate 00a1 0092 023d | =| Action Push_String_Extended,0x23d ; " logging in." 00a3 01cc | | Execute Vector,Catenate 00a4 e006 | | Load 0x0,0x6 00a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00a6 8605 | | Call 0x3,0x5 00a7 4504 |E | Exit_Suprogram New_Top_Offset 0x4 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ad | | .CONST 0x00ad ; Address of begin 00a9 00b3 | | .CONST 0x00b3 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 029f 01db | | Declare_Subprogram INIT_01d8,For_Call 00ad BODY_00a8: 00ad 0092 023e | >| Action Push_String_Extended,0x23e ; "username: " 00af e003 | | Load 0x0,0x3 00b0 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 00b1 8602 | | Call 0x3,0x2 00b2 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b3 TRAP_00a8: 00b3 e014 | | Load 0x0,0x14 00b4 010f | | Execute Exception,Equal 00b5 6801 |h | Jump_Zero 0xb7 00b6 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00b7 0100 | | Execute Exception,Raise 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb e9ff | | Load 0x4,-0x1 00bc e402 | | Load 0x2,0x2 00bd 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00be e003 | | Load 0x0,0x3 00bf 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 00c0 e00b | | Load 0x0,0xb 00c1 182d | - | Execute Package,Field_Execute,Field_Number 0x2d 00c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c3 0000 0000 | | .BLANK 0000[0x5] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 480a |H | Short_Literal 0xa 00cc e9ff | | Load 0x4,-0x1 00cd 01cb | | Execute Vector,Append 00ce 8602 | | Call 0x3,0x2 00cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 00e3 | | Load_Encached Natural_Cache 00d4 e9fd | | Load 0x4,-0x3 00d5 e9ff | | Load 0x4,-0x1 00d6 e9fe | | Load 0x4,-0x2 00d7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d8 e003 | | Load 0x0,0x3 00d9 1842 | B | Execute Package,Field_Execute,Field_Number 0x42 00da e00c | | Load 0x0,0xc 00db 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00dc 00d1 | | Pop_Control Pop_Count_1 00dd c9fc | | Store 0x4,-0x4 00de 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00df 0000 | | .XXX[0x1] 00e0 ; -------------------------------------------------------------------------------------- 00e0 ; SUBPROGRAM 00e0 ; -------------------------------------------------------------------------------------- 00e0 00e3 | | .CONST 0x00e3 ; Address of begin 00e1 0004 | | .CONST 0x0004 ; Address of exception handler 00e2 0001 | | .CONST 0x0001 ; Number of locals 00e3 BODY_00e0: 00e3 INIT_00e0: 00e3 e7ff | | Load 0x3,-0x1 00e4 6802 |h | Jump_Zero 0xe7 00e5 e9ff | | Load 0x4,-0x1 00e6 8602 | | Call 0x3,0x2 00e7 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00f1 | | .CONST 0x00f1 ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0004 | | .CONST 0x0004 ; Number of locals 00eb INIT_00e8: 00eb 4801 |H | Short_Literal 0x1 00ec 6147 |aG | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000400} 00ed 00e9 | | Load_Encached String_Cache 00ee 0334 | 4 | Declare_Variable Array,With_Constraint 00ef 00e3 | | Load_Encached Natural_Cache 00f0 00e3 | | Load_Encached Natural_Cache 00f1 BODY_00e8: 00f1 e403 | | Load 0x2,0x3 00f2 00e3 | | Load_Encached Natural_Cache 00f3 e802 | | Load 0x4,0x2 00f4 e402 | | Load 0x2,0x2 00f5 480a |H | Short_Literal 0xa 00f6 e211 | | Load 0x1,0x11 00f7 1b11 | | Execute Package,Field_Read,Field_Number 0x11 00f8 e211 | | Load 0x1,0x11 00f9 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00fa e7fe | | Load 0x3,-0x2 00fb e606 | | Load 0x3,0x6 00fc 4807 |H | Short_Literal 0x7 00fd 4803 |H | Short_Literal 0x3 00fe 0099 | | Action Reference_Dynamic 00ff 4808 |H | Short_Literal 0x8 0100 4803 |H | Short_Literal 0x3 0101 0099 | | Action Reference_Dynamic 0102 4809 |H | Short_Literal 0x9 0103 4803 |H | Short_Literal 0x3 0104 0099 | | Action Reference_Dynamic 0105 e211 | | Load 0x1,0x11 0106 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0107 00d2 | | Pop_Control Pop_Count_2 0108 c803 | | Store 0x4,0x3 0109 00d1 | | Pop_Control Pop_Count_1 010a e803 | | Load 0x4,0x3 010b 7002 |p | Jump_Nonzero 0x10e 010c e014 | | Load 0x0,0x14 010d 0257 | W | Execute Discrete,Raise 010e 00cf | | Action Mark_Auxiliary 010f 0007 | | Action Break_Optional 0110 e803 | | Load 0x4,0x3 0111 e802 | | Load 0x4,0x2 0112 01d7 | | Execute Vector,Field_Read 0113 0f0a | | Execute_Immediate Equal,0xa 0114 6807 |h | Jump_Zero 0x11c 0115 4801 |H | Short_Literal 0x1 0116 e803 | | Load 0x4,0x3 0117 0aff | | Execute_Immediate Plus,-0x1 0118 0248 | H | Execute Discrete,Check_In_Integer 0119 e802 | | Load 0x4,0x2 011a 01cf | | Execute Vector,Slice_Read 011b 00ca | | Action Exit_Nullary_Function 011c e803 | | Load 0x4,0x3 011d 6116 |a | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000400} 011e 027b | { | Execute Discrete,Greater_Equal 011f 6804 |h | Jump_Zero 0x124 0120 e802 | | Load 0x4,0x2 0121 860c | | Call 0x3,0xc 0122 01cc | | Execute Vector,Catenate 0123 00ca | | Action Exit_Nullary_Function 0124 e802 | | Load 0x4,0x2 0125 e803 | | Load 0x4,0x3 0126 0a01 | | Execute_Immediate Plus,0x1 0127 0248 | H | Execute Discrete,Check_In_Integer 0128 610b |a | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000400} 0129 e806 | | Load 0x4,0x6 012a 035b | [ | Declare_Type Array,Constrained 012b 00d0 | | Action Swap_Control 012c 01cd | | Execute Vector,Slice_Reference 012d e403 | | Load 0x2,0x3 012e 00e3 | | Load_Encached Natural_Cache 012f e806 | | Load 0x4,0x6 0130 e402 | | Load 0x2,0x2 0131 480a |H | Short_Literal 0xa 0132 e211 | | Load 0x1,0x11 0133 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0134 e211 | | Load 0x1,0x11 0135 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0136 e7fe | | Load 0x3,-0x2 0137 e606 | | Load 0x3,0x6 0138 4807 |H | Short_Literal 0x7 0139 4803 |H | Short_Literal 0x3 013a 0099 | | Action Reference_Dynamic 013b 4808 |H | Short_Literal 0x8 013c 4803 |H | Short_Literal 0x3 013d 0099 | | Action Reference_Dynamic 013e 4809 |H | Short_Literal 0x9 013f 4803 |H | Short_Literal 0x3 0140 0099 | | Action Reference_Dynamic 0141 e211 | | Load 0x1,0x11 0142 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0143 00d2 | | Pop_Control Pop_Count_2 0144 c804 | | Store 0x4,0x4 0145 00d2 | | Pop_Control Pop_Count_2 0146 e804 | | Load 0x4,0x4 0147 7002 |p | Jump_Nonzero 0x14a 0148 e014 | | Load 0x0,0x14 0149 0257 | W | Execute Discrete,Raise 014a e803 | | Load 0x4,0x3 014b e804 | | Load 0x4,0x4 014c 0273 | s | Execute Discrete,Plus 014d c803 | | Store 0x4,0x3 014e 00c9 | | Action Pop_Auxiliary_Loop 014f 7fc0 | | Jump 0x110 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0157 | W | .CONST 0x0157 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 01f3 | | Declare_Subprogram INIT_01f0,For_Call 0155 BODY_0150: 0155 8802 | | Call 0x4,0x2 0156 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0157 TRAP_0150: 0157 e014 | | Load 0x0,0x14 0158 010f | | Execute Exception,Equal 0159 6807 |h | Jump_Zero 0x161 015a e20f | | Load 0x1,0xf 015b 8603 | | Call 0x3,0x3 015c e402 | | Load 0x2,0x2 015d 8214 | | Call 0x1,0x14 015e 00d1 | | Pop_Control Pop_Count_1 015f 00d8 | | Load_Top At_Offset_0 0160 0101 | | Execute Exception,Reraise 0161 0100 | | Execute Exception,Raise 0162 0000 0000 | | .BLANK 0000[0x6] 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 01bf | | .CONST 0x01bf ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e604 | | Load 0x3,0x4 016c e00a | | Load 0x0,0xa 016d 1b0d | | Execute Package,Field_Read,Field_Number 0xd 016e 0092 023f | ?| Action Push_String_Extended,0x23f ; "<PROFILE>" 0170 0092 0240 | @| Action Push_String_Extended,0x240 ; "User=>" 0172 e7ff | | Load 0x3,-0x1 0173 01cc | | Execute Vector,Catenate 0174 0092 0241 | A| Action Push_String_Extended,0x241 ; ",Password=>" 0176 01cc | | Execute Vector,Catenate 0177 e7fe | | Load 0x3,-0x2 0178 01cc | | Execute Vector,Catenate 0179 0092 0242 | B| Action Push_String_Extended,0x242 ; ",Session=>" 017b 01cc | | Execute Vector,Catenate 017c e7fd | | Load 0x3,-0x3 017d 01cc | | Execute Vector,Catenate 017e 4800 |H | Short_Literal 0x0 017f e602 | | Load 0x3,0x2 0180 4800 |H | Short_Literal 0x0 0181 0092 0243 | C| Action Push_String_Extended,0x243 ; "!Machine.Release.Current.Activity" 0183 0092 0244 | D| Action Push_String_Extended,0x244 ; "(\x22" 0185 e5ff | | Load 0x2,-0x1 0186 01cc | | Execute Vector,Catenate 0187 0092 0245 | E| Action Push_String_Extended,0x245 ; "\x22, " 0189 01cc | | Execute Vector,Catenate 018a e5fe | | Load 0x2,-0x2 018b 8404 | | Call 0x2,0x4 018c 01cc | | Execute Vector,Catenate 018d 0092 0246 | F| Action Push_String_Extended,0x246 ; ")" 018f 01cc | | Execute Vector,Catenate 0190 0092 0247 | G| Action Push_String_Extended,0x247 ; "Ci.Interpret" 0192 0092 0248 | H| Action Push_String_Extended,0x248 ; "!Tools.Ci" 0194 e00a | | Load 0x0,0xa 0195 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0196 e00a | | Load 0x0,0xa 0197 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0198 c603 | | Store 0x3,0x3 0199 c604 | | Store 0x3,0x4 019a e604 | | Load 0x3,0x4 019b e00a | | Load 0x0,0xa 019c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 019d 6811 |h | Jump_Zero 0x1af 019e e603 | | Load 0x3,0x3 019f e00a | | Load 0x0,0xa 01a0 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01a1 e005 | | Load 0x0,0x5 01a2 180e | | Execute Package,Field_Execute,Field_Number 0xe 01a3 4802 |H | Short_Literal 0x2 01a4 482e |H. | Short_Literal 0x2e 01a5 e7ff | | Load 0x3,-0x1 01a6 01cb | | Execute Vector,Append 01a7 e7fd | | Load 0x3,-0x3 01a8 01cc | | Execute Vector,Catenate 01a9 0092 0249 | I| Action Push_String_Extended,0x249 ; " logged out." 01ab 01cc | | Execute Vector,Catenate 01ac e006 | | Load 0x0,0x6 01ad 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ae 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01af e005 | | Load 0x0,0x5 01b0 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b1 4807 |H | Short_Literal 0x7 01b2 e604 | | Load 0x3,0x4 01b3 e011 | | Load 0x0,0x11 01b4 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01b5 e006 | | Load 0x0,0x6 01b6 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01b7 e005 | | Load 0x0,0x5 01b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b9 4805 |H | Short_Literal 0x5 01ba 0092 024a | J| Action Push_String_Extended,0x24a ; "Login failed." 01bc e006 | | Load 0x0,0x6 01bd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01be 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01bf TRAP_0168: 01bf 010e | | Execute Exception,Is_Constraint_Error 01c0 6808 |h | Jump_Zero 0x1c9 01c1 e005 | | Load 0x0,0x5 01c2 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c3 4808 |H | Short_Literal 0x8 01c4 0092 024b | K| Action Push_String_Extended,0x24b ; "Login failed: Program.Create_Job raised Constraint_Error." 01c6 e006 | | Load 0x0,0x6 01c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c8 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01c9 e005 | | Load 0x0,0x5 01ca 180e | | Execute Package,Field_Execute,Field_Number 0xe 01cb 4808 |H | Short_Literal 0x8 01cc 0092 024c | L| Action Push_String_Extended,0x24c ; "Login failed: Program.Create_Job raised an exception." 01ce e006 | | Load 0x0,0x6 01cf 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d0 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d1 0000 0000 | | .BLANK 0000[0x7] 01d8 ; -------------------------------------------------------------------------------------- 01d8 ; SUBPROGRAM 01d8 ; -------------------------------------------------------------------------------------- 01d8 01e3 | | .CONST 0x01e3 ; Address of begin 01d9 0004 | | .CONST 0x0004 ; Address of exception handler 01da 0003 | | .CONST 0x0003 ; Number of locals 01db INIT_01d8: 01db 4820 |H | Short_Literal 0x20 01dc 604b |`K | Indirect_Literal Discrete,0x228,{0x00007fff, 0xffffffff} 01dd 4801 |H | Short_Literal 0x1 01de 8405 | | Call 0x2,0x5 01df e00f | | Load 0x0,0xf 01e0 181c | | Execute Package,Field_Execute,Field_Number 0x1c 01e1 029f 0203 | | Declare_Subprogram INIT_0200,For_Call 01e3 BODY_01d8: 01e3 e802 | | Load 0x4,0x2 01e4 01db | | Execute Vector,Length 01e5 6805 |h | Jump_Zero 0x1eb 01e6 0092 024d | M| Action Push_String_Extended,0x24d ; "password: " 01e8 e003 | | Load 0x0,0x3 01e9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 01ea 8803 | | Call 0x4,0x3 01eb 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01ec 0000 0000 | | .BLANK 0000[0x4] 01f0 ; -------------------------------------------------------------------------------------- 01f0 ; SUBPROGRAM 01f0 ; -------------------------------------------------------------------------------------- 01f0 01f4 | | .CONST 0x01f4 ; Address of begin 01f1 0004 | | .CONST 0x0004 ; Address of exception handler 01f2 0002 | | .CONST 0x0002 ; Number of locals 01f3 INIT_01f0: 01f3 860c | | Call 0x3,0xc 01f4 BODY_01f0: 01f4 e7ff | | Load 0x3,-0x1 01f5 7002 |p | Jump_Nonzero 0x1f8 01f6 00ea | | Load_Encached Null_String_Cache 01f7 8603 | | Call 0x3,0x3 01f8 00d8 | | Load_Top At_Offset_0 01f9 00cb | | Action Pop_Block_With_Result 01fa 00cb | | Action Pop_Block_With_Result 01fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 01fc 0000 0000 | | .BLANK 0000[0x4] 0200 ; -------------------------------------------------------------------------------------- 0200 ; SUBPROGRAM 0200 ; -------------------------------------------------------------------------------------- 0200 020b | | .CONST 0x020b ; Address of begin 0201 0004 | | .CONST 0x0004 ; Address of exception handler 0202 0003 | | .CONST 0x0003 ; Number of locals 0203 INIT_0200: 0203 4820 |H | Short_Literal 0x20 0204 e5fe | | Load 0x2,-0x2 0205 4800 |H | Short_Literal 0x0 0206 8405 | | Call 0x2,0x5 0207 e00f | | Load 0x0,0xf 0208 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0209 029f 021b | | Declare_Subprogram INIT_0218,For_Call 020b BODY_0200: 020b 0092 024e | N| Action Push_String_Extended,0x24e ; "session: " 020d e003 | | Load 0x0,0x3 020e 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35 020f 8a03 | | Call 0x5,0x3 0210 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0211 0000 0000 | | .BLANK 0000[0x7] 0218 ; -------------------------------------------------------------------------------------- 0218 ; SUBPROGRAM 0218 ; -------------------------------------------------------------------------------------- 0218 0222 | " | .CONST 0x0222 ; Address of begin 0219 0004 | | .CONST 0x0004 ; Address of exception handler 021a 0002 | | .CONST 0x0002 ; Number of locals 021b INIT_0218: 021b 4820 |H | Short_Literal 0x20 021c e5fe | | Load 0x2,-0x2 021d 4801 |H | Short_Literal 0x1 021e 8405 | | Call 0x2,0x5 021f 8406 | | Call 0x2,0x6 0220 e00f | | Load 0x0,0xf 0221 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0222 BODY_0218: 0222 00d8 | | Load_Top At_Offset_0 0223 ea02 | | Load 0x5,0x2 0224 e802 | | Load 0x4,0x2 0225 8407 | | Call 0x2,0x7 0226 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0227 0000 | | .XXX[0x1] 0228 0000 7fff | | .LITERAL {0x00007fff, 0xffffffff} 022c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0230 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 0234 0000 0000 | | .LITERAL {0x00000000, 0x00000400} 0238 ; -------------------------------------------------------------------------------------- 0238 ; STRING TABLE 0238 ; -------------------------------------------------------------------------------------- 0238 0030 | 0 | .STRTAB 0x0030->0x0250 ; "None" 0239 0032 | 2 | .STRTAB 0x0032->0x0252 ; "CI.Login" 023a 0038 | 8 | .STRTAB 0x0038->0x0256 ; ".0" 023b 0038 | 8 | .STRTAB 0x0038->0x0257 ; "S_1" 023c 0039 | 9 | .STRTAB 0x0039->0x0258 ; "!Users." 023d 003e | > | .STRTAB 0x003e->0x025c ; " logging in." 023e 0048 | H | .STRTAB 0x0048->0x0262 ; "username: " 023f 0050 | P | .STRTAB 0x0050->0x0267 ; "<PROFILE>" 0240 0057 | W | .STRTAB 0x0057->0x026b ; "User=>" 0241 005b | [ | .STRTAB 0x005b->0x026e ; ",Password=>" 0242 0064 | d | .STRTAB 0x0064->0x0274 ; ",Session=>" 0243 006c | l | .STRTAB 0x006c->0x0279 ; "!Machine.Release.Current.Activity" 0244 008b | | .STRTAB 0x008b->0x0289 ; "(\x22" 0245 008b | | .STRTAB 0x008b->0x028a ; "\x22, " 0246 008c | | .STRTAB 0x008c->0x028c ; ")" 0247 008b | | .STRTAB 0x008b->0x028c ; "Ci.Interpret" 0248 0095 | | .STRTAB 0x0095->0x0292 ; "!Tools.Ci" 0249 009c | | .STRTAB 0x009c->0x0297 ; " logged out." 024a 00a6 | | .STRTAB 0x00a6->0x029d ; "Login failed." 024b 00b1 | | .STRTAB 0x00b1->0x02a3 ; "Login failed: Program.Create_Job raised Constraint_Error." 024c 00e8 | | .STRTAB 0x00e8->0x02c0 ; "Login failed: Program.Create_Job raised an exception." 024d 011b | | .STRTAB 0x011b->0x02da ; "password: " 024e 0123 | # | .STRTAB 0x0123->0x02df ; "session: " 024f 012a | * | .STREND 0x012a->0x02e4 0250 4e6f 6e65 |None| .STRTAB_STRINGS 02e4 0000 0000 | | .BLANK 0000[0x4] 02e8 ; -------------------------------------------------------------------------------------- 02e8 ; Debug Table 02e8 ; -------------------------------------------------------------------------------------- 02e8 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb05d,0x0000,0x0001,0x0000 02ee abaf a1a4 | | .XXX[0x17] 02f0 27a4 a1a2 |' | 02f2 a99e bdca | | 02f4 3f48 1180 |?H | 02f6 04a3 2927 | )'| 02f8 a6af a4aa | | 02fa 22a6 8b80 |" | 02fc 0829 aa20 | ) | 02fe a722 20a9 | " | 0300 2217 24a7 |" $ | 0302 2a22 a3a2 |*" | 0304 a904 | | 0305 0000 0000 | | .BLANK 0000[0x4] 0309 00bf 4811 | H | .XXX[0x58] 030b 8003 aa27 | '| 030d afa4 aa22 | "| 030f a68b 8008 | | 0311 29aa 20a7 |) | 0313 2220 a922 |" "| 0315 1724 a72a | $ *| 0317 22a3 a2a9 |" | 0319 0b00 1020 | | 031b a82f a1a7 | / | 031d a6a6 a7a7 | | 031f 2fa1 20a9 |/ | 0321 a297 20a8 | | 0323 2fa9 22a1 |/ " | 0325 afa4 aa22 | "| 0327 a6af a624 | $| 0329 a6a4 aa00 | | 032b 0001 9dd6 | | 032d 8000 0042 | B| 032f 0000 0001 | | 0331 0000 0177 | w| 0333 0038 4150 | 8AP| 0335 5f43 4f4d |_COM| 0337 4d4f 4e5f |MON_| 0339 5052 4f43 |PROC| 033b 4544 5552 |EDUR| 033d 4553 2e41 |ES.A| 033f 505f 5355 |P_SU| 0341 425f 4d4f |B_MO| 0343 4449 4659 |DIFY| 0345 5f45 5849 |_EXI| 0347 5354 494e |STIN| 0349 475f 4954 |G_IT| 034b 454d 5f43 |EM_C| 034d 4f4d 4d41 |OMMA| 034f 4e44 3d7b |ND={| 0351 947e 9023 | ~ #| 0353 0006 4652 | FR| 0355 4f4d 5f58 |OM_X| 0357 1700 1053 | S| 0359 5441 4e44 |TAND| 035b 4152 442e |ARD.| 035d 494e 5445 |INTE| 035f 4745 5208 |GER | 0361 0000 0000 | | .BLANK 0000[0x4] 0365 017e 9023 | ~ #| .XXX[0xf] 0367 0004 544f | TO| 0369 5f58 1700 |_X | 036b 1053 5441 | STA| 036d 4e44 4152 |NDAR| 036f 442e 494e |D.IN| 0371 5445 4745 |TEGE| 0373 5208 |R | 0374 0000 0000 | | .BLANK 0000[0x4] 0378 027e 9023 | ~ #| .XXX[0x4f] 037a 000d 4150 | AP| 037c 504c 4943 |PLIC| 037e 5f4e 554d |_NUM| 0380 4245 5217 |BER | 0382 0010 5354 | ST| 0384 414e 4441 |ANDA| 0386 5244 2e49 |RD.I| 0388 4e54 4547 |NTEG| 038a 4552 0800 |ER | 038c 0000 0000 | | 038e 0000 0001 | | 0390 7e90 2300 |~ # | 0392 0c47 4554 | GET| 0394 5f55 5345 |_USE| 0396 525f 4b45 |R_KE| 0398 5917 0018 |Y | 039a 4150 5f43 |AP_C| 039c 4f4d 4d4f |OMMO| 039e 4e5f 4241 |N_BA| 03a0 5345 2e41 |SE.A| 03a2 505f 5357 |P_SW| 03a4 4954 4348 |ITCH| 03a6 1600 1c41 | A| 03a8 505f 434f |P_CO| 03aa 4d4d 4f4e |MMON| 03ac 5f42 4153 |_BAS| 03ae 452e 4150 |E.AP| 03b0 5f53 5749 |_SWI| 03b2 5443 482e |TCH.| 03b4 4f46 467e |OFF~| 03b6 9023 000a | # | 03b8 5553 455f |USE_| 03ba 4b45 595f |KEY_| 03bc 4e4f 1700 |NO | 03be 1053 5441 | STA| 03c0 4e44 4152 |NDAR| 03c2 442e 494e |D.IN| 03c4 5445 4745 |TEGE| 03c6 5208 |R | 03c7 0000 0000 | | .BLANK 0000[0x4] 03cb 017e 9023 | ~ #| .XXX[0x23] 03cd 0014 414c | AL| 03cf 4c4f 575f |LOW_| 03d1 4544 4954 |EDIT| 03d3 5f50 524f |_PRO| 03d5 5445 4354 |TECT| 03d7 4544 1700 |ED | 03d9 1053 5441 | STA| 03db 4e44 4152 |NDAR| 03dd 442e 424f |D.BO| 03df 4f4c 4541 |OLEA| 03e1 4e16 0016 |N | 03e3 5354 414e |STAN| 03e5 4441 5244 |DARD| 03e7 2e42 4f4f |.BOO| 03e9 4c45 414e |LEAN| 03eb 2e46 414c |.FAL| 03ed 5345 |SE | 03ee 0000 0000 | | .BLANK 0000[0x4] 03f2 5a00 0000 |Z | .XXX[0xe] 03f4 0200 0000 | | 03f6 9400 5082 | P | 03f8 a0be 869e | | 03fa 9a9a 9e9c | | 03fc bea0 a49e | | 03fe 868a 88aa | |