|
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 | |