|
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_0510e2
└─⟦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 0230 | 0 | .CONST 0x0230 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0039 | 9 | .CONST 0x0039 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000a | | .CONST 0x000a ; Number of locals
001b INIT_0018:
001b 0007 | | Action Break_Optional
001c e001 | | Load 0x0,0x1
001d 1917 | | Execute Package,Field_Reference,Field_Number 0x17
001e 0007 | | Action Break_Optional
001f e002 | | Load 0x0,0x2
0020 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0021 02c7 | | Declare_Variable Any
0022 e002 | | Load 0x0,0x2
0023 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0024 c403 | | Store 0x2,0x3
0025 e003 | | Load 0x0,0x3
0026 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
0027 02c7 | | Declare_Variable Any
0028 00d8 | | Load_Top At_Offset_0
0029 1c00 | | Execute_Immediate Run_Utility,0x0
002a e003 | | Load 0x0,0x3
002b 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
002c 02c7 | | Declare_Variable Any
002d 00d8 | | Load_Top At_Offset_0
002e 1c00 | | Execute_Immediate Run_Utility,0x0
002f 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
0031 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
0033 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0035 029f 009b | | Declare_Subprogram INIT_0098,For_Call
0037 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0039 BODY_0018:
0039 0092 01f0 | | Action Push_String_Extended,0x1f0 ; "Rational Environment "
003b e003 | | Load 0x0,0x3
003c 1856 | V | Execute Package,Field_Execute,Field_Number 0x56
003d 01cc | | Execute Vector,Catenate
003e 0092 01f1 | | Action Push_String_Extended,0x1f1 ; ", Last boot: "
0040 01cc | | Execute Vector,Catenate
0041 4800 |H | Short_Literal 0x0
0042 4800 |H | Short_Literal 0x0
0043 4800 |H | Short_Literal 0x0
0044 e003 | | Load 0x0,0x3
0045 1855 | U | Execute Package,Field_Execute,Field_Number 0x55
0046 e004 | | Load 0x0,0x4
0047 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0048 e004 | | Load 0x0,0x4
0049 181f | | Execute Package,Field_Execute,Field_Number 0x1f
004a 01cc | | Execute Vector,Catenate
004b e403 | | Load 0x2,0x3
004c e002 | | Load 0x0,0x2
004d 1863 | c | Execute Package,Field_Execute,Field_Number 0x63
004e 4801 |H | Short_Literal 0x1
004f e002 | | Load 0x0,0x2
0050 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0051 8409 | | Call 0x2,0x9
0052 e5ff | | Load 0x2,-0x1
0053 6801 |h | Jump_Zero 0x55
0054 840a | | Call 0x2,0xa
0055 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0056 0000 0000 | | .XXX[0x2]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e7ff | | Load 0x3,-0x1
005c e003 | | Load 0x0,0x3
005d 1816 | | Execute Package,Field_Execute,Field_Number 0x16
005e e004 | | Load 0x0,0x4
005f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0060 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0061 0000 0000 | | .BLANK 0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e7ff | | Load 0x3,-0x1
006c 01db | | Execute Vector,Length
006d e7fe | | Load 0x3,-0x2
006e 027d | } | Execute Discrete,Greater
006f 6816 |h | Jump_Zero 0x86
0070 e7fd | | Load 0x3,-0x3
0071 680a |h | Jump_Zero 0x7c
0072 e7ff | | Load 0x3,-0x1
0073 01dc | | Execute Vector,Last
0074 e7fe | | Load 0x3,-0x2
0075 0272 | r | Execute Discrete,Minus
0076 0248 | H | Execute Discrete,Check_In_Integer
0077 e7ff | | Load 0x3,-0x1
0078 01dc | | Execute Vector,Last
0079 e7ff | | Load 0x3,-0x1
007a 01cf | | Execute Vector,Slice_Read
007b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
007c e7ff | | Load 0x3,-0x1
007d 01dd | | Execute Vector,First
007e e7ff | | Load 0x3,-0x1
007f 01dd | | Execute Vector,First
0080 e7fe | | Load 0x3,-0x2
0081 0273 | s | Execute Discrete,Plus
0082 0248 | H | Execute Discrete,Check_In_Integer
0083 e7ff | | Load 0x3,-0x1
0084 01cf | | Execute Vector,Slice_Read
0085 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0086 e7ff | | Load 0x3,-0x1
0087 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008b | | .CONST 0x008b ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0001 | | .CONST 0x0001 ; Number of locals
008b BODY_0088:
008b INIT_0088:
008b 482e |H. | Short_Literal 0x2e
008c e7ff | | Load 0x3,-0x1
008d e003 | | Load 0x0,0x3
008e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008f 01cb | | Execute Vector,Append
0090 e7ff | | Load 0x3,-0x1
0091 e003 | | Load 0x0,0x3
0092 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0093 01cc | | Execute Vector,Catenate
0094 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a6 | | .CONST 0x00a6 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0003 | | .CONST 0x0003 ; Number of locals
009b INIT_0098:
009b e005 | | Load 0x0,0x5
009c e006 | | Load 0x0,0x6
009d 4805 |H | Short_Literal 0x5
009e 0092 01f2 | | Action Push_String_Extended,0x1f2 ; " "
00a0 e007 | | Load 0x0,0x7
00a1 0387 | | Declare_Variable Package
00a2 00d8 | | Load_Top At_Offset_0
00a3 020f | | Execute Module,Activate
00a4 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
00a6 BODY_0098:
00a6 4800 |H | Short_Literal 0x0
00a7 0092 01f3 | | Action Push_String_Extended,0x1f3 ; "Session"
00a9 e602 | | Load 0x3,0x2
00aa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ab 4801 |H | Short_Literal 0x1
00ac 0092 01f4 | | Action Push_String_Extended,0x1f4 ; "Line"
00ae e602 | | Load 0x3,0x2
00af 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b0 4801 |H | Short_Literal 0x1
00b1 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Job"
00b3 e602 | | Load 0x3,0x2
00b4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b5 4801 |H | Short_Literal 0x1
00b6 0092 01f6 | | Action Push_String_Extended,0x1f6 ; "Time"
00b8 e602 | | Load 0x3,0x2
00b9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ba 4802 |H | Short_Literal 0x2
00bb 0092 01f7 | | Action Push_String_Extended,0x1f7 ; "IO Count"
00bd e602 | | Load 0x3,0x2
00be 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00bf e404 | | Load 0x2,0x4
00c0 0120 | | Execute Any,Is_Value
00c1 6803 |h | Jump_Zero 0xc5
00c2 e003 | | Load 0x0,0x3
00c3 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
00c4 7801 |x | Jump 0xc6
00c5 e404 | | Load 0x2,0x4
00c6 e003 | | Load 0x0,0x3
00c7 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
00c8 c404 | | Store 0x2,0x4
00c9 00cf | | Action Mark_Auxiliary
00ca 7809 |x | Jump 0xd4
00cb e404 | | Load 0x2,0x4
00cc e003 | | Load 0x0,0x3
00cd 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
00ce 8603 | | Call 0x3,0x3
00cf e404 | | Load 0x2,0x4
00d0 e003 | | Load 0x0,0x3
00d1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00d2 c404 | | Store 0x2,0x4
00d3 00c9 | | Action Pop_Auxiliary_Loop
00d4 e404 | | Load 0x2,0x4
00d5 e003 | | Load 0x0,0x3
00d6 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
00d7 6ff3 |o | Jump_Zero 0xcb
00d8 00ce | | Action Pop_Auxiliary
00d9 4801 |H | Short_Literal 0x1
00da e602 | | Load 0x3,0x2
00db 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00dc e403 | | Load 0x2,0x3
00dd e602 | | Load 0x3,0x2
00de 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00df 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00f1 | | .CONST 0x00f1 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0003 | | .CONST 0x0003 ; Number of locals
00e3 INIT_00e0:
00e3 e008 | | Load 0x0,0x8
00e4 e009 | | Load 0x0,0x9
00e5 4805 |H | Short_Literal 0x5
00e6 0092 01f2 | | Action Push_String_Extended,0x1f2 ; " "
00e8 e007 | | Load 0x0,0x7
00e9 0387 | | Declare_Variable Package
00ea 00d8 | | Load_Top At_Offset_0
00eb 020f | | Execute Module,Activate
00ec e003 | | Load 0x0,0x3
00ed 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
00ee 02c7 | | Declare_Variable Any
00ef 00d8 | | Load_Top At_Offset_0
00f0 1c00 | | Execute_Immediate Run_Utility,0x0
00f1 BODY_00e0:
00f1 4801 |H | Short_Literal 0x1
00f2 e002 | | Load 0x0,0x2
00f3 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00f4 4800 |H | Short_Literal 0x0
00f5 0092 01f8 | | Action Push_String_Extended,0x1f8 ; "Owner"
00f7 e602 | | Load 0x3,0x2
00f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f9 4800 |H | Short_Literal 0x0
00fa 0092 01f5 | | Action Push_String_Extended,0x1f5 ; "Job"
00fc e602 | | Load 0x3,0x2
00fd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00fe 4801 |H | Short_Literal 0x1
00ff 0092 01f9 | | Action Push_String_Extended,0x1f9 ; "Elapsed"
0101 e602 | | Load 0x3,0x2
0102 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0103 4801 |H | Short_Literal 0x1
0104 0092 01fa | | Action Push_String_Extended,0x1fa ; "CPU"
0106 e602 | | Load 0x3,0x2
0107 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0108 4800 |H | Short_Literal 0x0
0109 0092 01fb | | Action Push_String_Extended,0x1fb ; "Job Name"
010b e602 | | Load 0x3,0x2
010c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
010d e404 | | Load 0x2,0x4
010e 0120 | | Execute Any,Is_Value
010f 6803 |h | Jump_Zero 0x113
0110 e003 | | Load 0x0,0x3
0111 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
0112 7801 |x | Jump 0x114
0113 e404 | | Load 0x2,0x4
0114 e003 | | Load 0x0,0x3
0115 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0116 c404 | | Store 0x2,0x4
0117 00cf | | Action Mark_Auxiliary
0118 784f |xO | Jump 0x168
0119 e603 | | Load 0x3,0x3
011a 0120 | | Execute Any,Is_Value
011b 6803 |h | Jump_Zero 0x11f
011c e003 | | Load 0x0,0x3
011d 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
011e 7801 |x | Jump 0x120
011f e603 | | Load 0x3,0x3
0120 e404 | | Load 0x2,0x4
0121 e003 | | Load 0x0,0x3
0122 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0123 e003 | | Load 0x0,0x3
0124 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0125 c603 | | Store 0x3,0x3
0126 00cf | | Action Mark_Auxiliary
0127 7836 |x6 | Jump 0x15e
0128 4800 |H | Short_Literal 0x0
0129 480e |H | Short_Literal 0xe
012a e404 | | Load 0x2,0x4
012b e003 | | Load 0x0,0x3
012c 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
012d 8408 | | Call 0x2,0x8
012e 8407 | | Call 0x2,0x7
012f e602 | | Load 0x3,0x2
0130 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0131 4820 |H | Short_Literal 0x20
0132 4800 |H | Short_Literal 0x0
0133 480a |H | Short_Literal 0xa
0134 e603 | | Load 0x3,0x3
0135 e003 | | Load 0x0,0x3
0136 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0137 8402 | | Call 0x2,0x2
0138 e602 | | Load 0x3,0x2
0139 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013a 4800 |H | Short_Literal 0x0
013b 4808 |H | Short_Literal 0x8
013c e603 | | Load 0x3,0x3
013d e003 | | Load 0x0,0x3
013e 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
013f 8406 | | Call 0x2,0x6
0140 8407 | | Call 0x2,0x7
0141 e602 | | Load 0x3,0x2
0142 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0143 4800 |H | Short_Literal 0x0
0144 4808 |H | Short_Literal 0x8
0145 e603 | | Load 0x3,0x3
0146 e003 | | Load 0x0,0x3
0147 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0148 e003 | | Load 0x0,0x3
0149 1817 | | Execute Package,Field_Execute,Field_Number 0x17
014a e004 | | Load 0x0,0x4
014b 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
014c 8407 | | Call 0x2,0x7
014d e602 | | Load 0x3,0x2
014e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014f 4800 |H | Short_Literal 0x0
0150 4825 |H% | Short_Literal 0x25
0151 e603 | | Load 0x3,0x3
0152 e003 | | Load 0x0,0x3
0153 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0154 e003 | | Load 0x0,0x3
0155 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0156 8407 | | Call 0x2,0x7
0157 e602 | | Load 0x3,0x2
0158 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0159 e603 | | Load 0x3,0x3
015a e003 | | Load 0x0,0x3
015b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
015c c603 | | Store 0x3,0x3
015d 00c9 | | Action Pop_Auxiliary_Loop
015e e603 | | Load 0x3,0x3
015f e003 | | Load 0x0,0x3
0160 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0161 6fc6 |o | Jump_Zero 0x128
0162 00ce | | Action Pop_Auxiliary
0163 e404 | | Load 0x2,0x4
0164 e003 | | Load 0x0,0x3
0165 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0166 c404 | | Store 0x2,0x4
0167 00c9 | | Action Pop_Auxiliary_Loop
0168 e404 | | Load 0x2,0x4
0169 e003 | | Load 0x0,0x3
016a 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
016b 6fad |o | Jump_Zero 0x119
016c 00ce | | Action Pop_Auxiliary
016d 4801 |H | Short_Literal 0x1
016e e602 | | Load 0x3,0x2
016f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0170 e403 | | Load 0x2,0x3
0171 e602 | | Load 0x3,0x2
0172 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0173 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0174 0000 0000 | | .BLANK 0000[0x4]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0184 | | .CONST 0x0184 ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0004 | | .CONST 0x0004 ; Number of locals
017b INIT_0178:
017b e003 | | Load 0x0,0x3
017c 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
017d 02c7 | | Declare_Variable Any
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 00e1 | | Load_Encached Boolean_Cache
0181 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0182 029f 01d3 | | Declare_Subprogram INIT_01d0,For_Call
0184 BODY_0178:
0184 e9ff | | Load 0x4,-0x1
0185 8408 | | Call 0x2,0x8
0186 e602 | | Load 0x3,0x2
0187 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0188 e9ff | | Load 0x4,-0x1
0189 e003 | | Load 0x0,0x3
018a 181d | | Execute Package,Field_Execute,Field_Number 0x1d
018b 00e0 | | Load_Encached Standard_Cache
018c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
018d e602 | | Load 0x3,0x2
018e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
018f e802 | | Load 0x4,0x2
0190 0120 | | Execute Any,Is_Value
0191 6803 |h | Jump_Zero 0x195
0192 e003 | | Load 0x0,0x3
0193 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
0194 7801 |x | Jump 0x196
0195 e802 | | Load 0x4,0x2
0196 e9ff | | Load 0x4,-0x1
0197 e003 | | Load 0x0,0x3
0198 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0199 c802 | | Store 0x4,0x2
019a 00cf | | Action Mark_Auxiliary
019b 7806 |x | Jump 0x1a2
019c 8804 | | Call 0x4,0x4
019d e802 | | Load 0x4,0x2
019e e003 | | Load 0x0,0x3
019f 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a0 c802 | | Store 0x4,0x2
01a1 00c9 | | Action Pop_Auxiliary_Loop
01a2 e802 | | Load 0x4,0x2
01a3 e003 | | Load 0x0,0x3
01a4 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
01a5 6ff6 |o | Jump_Zero 0x19c
01a6 00ce | | Action Pop_Auxiliary
01a7 e803 | | Load 0x4,0x3
01a8 7008 |p | Jump_Nonzero 0x1b1
01a9 0092 01fc | | Action Push_String_Extended,0x1fc ; "?"
01ab e602 | | Load 0x3,0x2
01ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ad 0092 01fc | | Action Push_String_Extended,0x1fc ; "?"
01af e602 | | Load 0x3,0x2
01b0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b1 4820 |H | Short_Literal 0x20
01b2 4800 |H | Short_Literal 0x0
01b3 480a |H | Short_Literal 0xa
01b4 e9ff | | Load 0x4,-0x1
01b5 e003 | | Load 0x0,0x3
01b6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b7 e003 | | Load 0x0,0x3
01b8 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01b9 8402 | | Call 0x2,0x2
01ba 0092 01fd | | Action Push_String_Extended,0x1fd ; "/"
01bc 01cc | | Execute Vector,Catenate
01bd 4820 |H | Short_Literal 0x20
01be 4800 |H | Short_Literal 0x0
01bf 480a |H | Short_Literal 0xa
01c0 e9ff | | Load 0x4,-0x1
01c1 e003 | | Load 0x0,0x3
01c2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01c3 e003 | | Load 0x0,0x3
01c4 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01c5 8402 | | Call 0x2,0x2
01c6 01cc | | Execute Vector,Catenate
01c7 e602 | | Load 0x3,0x2
01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c9 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e802 | | Load 0x4,0x2
01d4 e003 | | Load 0x0,0x3
01d5 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
01d6 e00a | | Load 0x0,0xa
01d7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01d8 7016 |p | Jump_Nonzero 0x1ef
01d9 4820 |H | Short_Literal 0x20
01da 4800 |H | Short_Literal 0x0
01db 480a |H | Short_Literal 0xa
01dc e802 | | Load 0x4,0x2
01dd e003 | | Load 0x0,0x3
01de 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
01df 8402 | | Call 0x2,0x2
01e0 e602 | | Load 0x3,0x2
01e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e2 e802 | | Load 0x4,0x2
01e3 e003 | | Load 0x0,0x3
01e4 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
01e5 e003 | | Load 0x0,0x3
01e6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e7 e004 | | Load 0x0,0x4
01e8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01e9 e602 | | Load 0x3,0x2
01ea 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01eb 4801 |H | Short_Literal 0x1
01ec a803 | | Store_Unchecked 0x4,0x3
01ed 00cc | | Action Pop_Block
01ee 7fb7 | | Jump 0x1a6
01ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f0 ; --------------------------------------------------------------------------------------
01f0 ; STRING TABLE
01f0 ; --------------------------------------------------------------------------------------
01f0 001e | | .STRTAB 0x001e->0x01ff ; "Rational Environment "
01f1 0031 | 1 | .STRTAB 0x0031->0x0209 ; ", Last boot: "
01f2 003c | < | .STRTAB 0x003c->0x0210 ; " "
01f3 003b | ; | .STRTAB 0x003b->0x0210 ; "Session"
01f4 0040 | @ | .STRTAB 0x0040->0x0214 ; "Line"
01f5 0042 | B | .STRTAB 0x0042->0x0216 ; "Job"
01f6 0043 | C | .STRTAB 0x0043->0x0217 ; "Time"
01f7 0045 | E | .STRTAB 0x0045->0x0219 ; "IO Count"
01f8 004b | K | .STRTAB 0x004b->0x021d ; "Owner"
01f9 004e | N | .STRTAB 0x004e->0x0220 ; "Elapsed"
01fa 0053 | S | .STRTAB 0x0053->0x0223 ; "CPU"
01fb 0054 | T | .STRTAB 0x0054->0x0225 ; "Job Name"
01fc 005a | Z | .STRTAB 0x005a->0x0229 ; "?"
01fd 0059 | Y | .STRTAB 0x0059->0x0229 ; "/"
01fe 0058 | X | .STREND 0x0058->0x022a
01ff 5261 7469 |Rati| .STRTAB_STRINGS
022a 0000 0000 | | .BLANK 0000[0x6]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 0000 | | .DEBUG4 0x0004,0x0000,0x169f,0x0000,0x0001,0x0009
0236 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
023a 001b 025a | Z| .DBG4T 0x001b,0x025a,0x8001,0x0000
023e 005b 026b | [ k| .DBG4T 0x005b,0x026b,0x0002,0x0000
0242 006b 026e | k n| .DBG4T 0x006b,0x026e,0x0002,0x0000
0246 008b 0275 | u| .DBG4T 0x008b,0x0275,0x0002,0x0000
024a 009b 0278 | x| .DBG4T 0x009b,0x0278,0x0001,0x4000
024e 00e3 0292 | | .DBG4T 0x00e3,0x0292,0x0001,0x4000
0252 017b 02bc | { | .DBG4T 0x017b,0x02bc,0x0001,0x4000
0256 01d3 02d4 | | .DBG4T 0x01d3,0x02d4,0x0004,0x0000
025a ; --------------------------------------------------------------------------------------
025a ; Debug chain
025a ; --------------------------------------------------------------------------------------
025a 000a 0005 | | .DBGLEN 0x000a,0x0005
025c 001b 001c | | .DBGLNO 0x001b,0x001c,0x001f,0x0025,0x002a,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x004e,0x0051,0x0052,0x0054
026b ; --------------------------------------------------------------------------------------
026b ; Debug chain
026b ; --------------------------------------------------------------------------------------
026b 0000 0001 | | .DBGLEN 0x0000,0x0001
026d 005b | [ | .DBGLNO 0x005b
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 0000 0005 | | .DBGLEN 0x0000,0x0005
0270 006b 0070 | k p| .DBGLNO 0x006b,0x0070,0x0072,0x007c,0x0086
0275 ; --------------------------------------------------------------------------------------
0275 ; Debug chain
0275 ; --------------------------------------------------------------------------------------
0275 0000 0001 | | .DBGLEN 0x0000,0x0001
0277 008b | | .DBGLNO 0x008b
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug chain
0278 ; --------------------------------------------------------------------------------------
0278 0002 000b | | .DBGLEN 0x0002,0x000b
027a 009b 00a4 | | .DBGLNO 0x009b,0x00a4,0x00a6,0x00ab,0x00b0,0x00b5,0x00ba,0x00bf,0x00cb,0x00cf,0x00d4,0x00d9,0x00dc
0287 0001 0002 | | .XXX[0xb]
0289 0003 0004 | |
028b 0005 0006 | |
028d 0008 0009 | |
028f 0007 000a | |
0291 000b | |
0292 ; --------------------------------------------------------------------------------------
0292 ; Debug chain
0292 ; --------------------------------------------------------------------------------------
0292 0002 0013 | | .DBGLEN 0x0002,0x0013
0294 00e3 00ec | | .DBGLNO 0x00e3,0x00ec,0x00f1,0x00f4,0x00f9,0x00fe,0x0103,0x0108,0x010d,0x0119,0x0128,0x0131,0x013a,0x0143,0x014f,0x0159,0x015e,0x0163,0x0168,0x016d,0x0170
02a9 0001 0002 | | .XXX[0x13]
02ab 0003 0004 | |
02ad 0005 0006 | |
02af 0007 0009 | |
02b1 000b 000c | |
02b3 000d 000e | |
02b5 000f 0010 | |
02b7 000a 0011 | |
02b9 0008 0012 | |
02bb 0013 | |
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug chain
02bc ; --------------------------------------------------------------------------------------
02bc 0002 000a | | .DBGLEN 0x0002,0x000a
02be 017b 0180 | { | .DBGLNO 0x017b,0x0180,0x0184,0x0188,0x018f,0x019c,0x019d,0x01a2,0x01a7,0x01a9,0x01ad,0x01b1
02ca 0001 0002 | | .XXX[0xa]
02cc 0003 0005 | |
02ce 0006 0004 | |
02d0 0007 0008 | |
02d2 0009 000a | |
02d4 ; --------------------------------------------------------------------------------------
02d4 ; Debug chain
02d4 ; --------------------------------------------------------------------------------------
02d4 0000 0005 | | .DBGLEN 0x0000,0x0005
02d6 01d3 01d9 | | .DBGLNO 0x01d3,0x01d9,0x01e2,0x01eb,0x01ed
02db 0000 0000 | | .BLANK 0000[0x125]