|
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 - metrics - 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 0278 | x | .CONST 0x0278 ; 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 0038 | 8 | .CONST 0x0038 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 0043 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0040
000d 029a 0053 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0050
000f 029a 005b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0058
0011 029a 0063 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0060
0013 029a 006b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0068
0015 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
0017 029a 0083 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0080
0019 029a 008b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0088
001b 029a 00c3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c0
001d 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
001f 029a 0143 | C| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0140
0021 00bf | | Action Accept_Activation
0022 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0023 00c7 | | Action Elaborate_Subprogram
0024 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0025 00c7 | | Action Elaborate_Subprogram
0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0027 00c7 | | Action Elaborate_Subprogram
0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0029 00c7 | | Action Elaborate_Subprogram
002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002b 00c7 | | Action Elaborate_Subprogram
002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002d 00c7 | | Action Elaborate_Subprogram
002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002f 00c7 | | Action Elaborate_Subprogram
0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0031 00c7 | | Action Elaborate_Subprogram
0032 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0033 00c7 | | Action Elaborate_Subprogram
0034 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0035 00c7 | | Action Elaborate_Subprogram
0036 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0037 00c7 | | Action Elaborate_Subprogram
0038 BODY_0008:
0038 00bc | | Action Signal_Activated
0039 00bb | | Action Signal_Completion
003a 0000 0000 | | .BLANK 0000[0x6]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043 | C | .CONST 0x0043 ; Address of begin
0041 0004 | | .CONST 0x0004 ; Address of exception handler
0042 0001 | | .CONST 0x0001 ; Number of locals
0043 BODY_0040:
0043 INIT_0040:
0043 4800 |H | Short_Literal 0x0
0044 4800 |H | Short_Literal 0x0
0045 e5ff | | Load 0x2,-0x1
0046 e001 | | Load 0x0,0x1
0047 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0048 4502 |E | Exit_Subprogram 0x2
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 0092 022b | +| Action Push_String_Extended,0x22b ; "Daily_Message"
0055 e002 | | Load 0x0,0x2
0056 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0057 4501 |E | Exit_Subprogram 0x1
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 e003 | | Load 0x0,0x3
005c 180d | | Execute Package,Field_Execute,Field_Number 0xd
005d 4501 |E | Exit_Subprogram 0x1
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 0092 022c | ,| Action Push_String_Extended,0x22c ; "Not implemented - Use the Kernel JOBS command."
0065 e004 | | Load 0x0,0x4
0066 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0067 4501 |E | Exit_Subprogram 0x1
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 4801 |H | Short_Literal 0x1
006c 4801 |H | Short_Literal 0x1
006d e5ff | | Load 0x2,-0x1
006e e005 | | Load 0x0,0x5
006f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0070 4502 |E | Exit_Subprogram 0x2
0071 0000 0000 | | .BLANK 0000[0x7]
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 e5ff | | Load 0x2,-0x1
007c e005 | | Load 0x0,0x5
007d 1815 | | Execute Package,Field_Execute,Field_Number 0x15
007e 4502 |E | Exit_Subprogram 0x2
007f 0000 | | .XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e003 | | Load 0x0,0x3
0084 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0085 4501 |E | Exit_Subprogram 0x1
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0090 | | .CONST 0x0090 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e006 | | Load 0x0,0x6
008c 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
008d 02c7 | | Declare_Variable Any
008e 00d8 | | Load_Top At_Offset_0
008f 1c00 | | Execute_Immediate Run_Utility,0x0
0090 BODY_0088:
0090 00be | | Action Activate_Tasks
0091 e5ff | | Load 0x2,-0x1
0092 7024 |p$ | Jump_Nonzero 0xb7
0093 00d8 | | Load_Top At_Offset_0
0094 0120 | | Execute Any,Is_Value
0095 6803 |h | Jump_Zero 0x99
0096 e006 | | Load 0x0,0x6
0097 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
0098 7801 |x | Jump 0x9a
0099 00d8 | | Load_Top At_Offset_0
009a e006 | | Load 0x0,0x6
009b 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
009c c402 | | Store 0x2,0x2
009d 00cf | | Action Mark_Auxiliary
009e 7812 |x | Jump 0xb1
009f e402 | | Load 0x2,0x2
00a0 e006 | | Load 0x0,0x6
00a1 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
00a2 0c10 | | Execute_Immediate Greater_Equal,0x10
00a3 6808 |h | Jump_Zero 0xac
00a4 e402 | | Load 0x2,0x2
00a5 e006 | | Load 0x0,0x6
00a6 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
00a7 e007 | | Load 0x0,0x7
00a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a9 025b | [ | Execute Discrete,Check_In_Type
00aa e007 | | Load 0x0,0x7
00ab 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ac e402 | | Load 0x2,0x2
00ad e006 | | Load 0x0,0x6
00ae 1854 | T | Execute Package,Field_Execute,Field_Number 0x54
00af c402 | | Store 0x2,0x2
00b0 00c9 | | Action Pop_Auxiliary_Loop
00b1 e402 | | Load 0x2,0x2
00b2 e006 | | Load 0x0,0x6
00b3 1853 | S | Execute Package,Field_Execute,Field_Number 0x53
00b4 6fea |o | Jump_Zero 0x9f
00b5 00ce | | Action Pop_Auxiliary
00b6 4502 |E | Exit_Subprogram 0x2
00b7 e5ff | | Load 0x2,-0x1
00b8 e007 | | Load 0x0,0x7
00b9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ba 4502 |E | Exit_Subprogram 0x2
00bb 0000 0000 | | .BLANK 0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e002 | | Load 0x0,0x2
00c4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00c5 4501 |E | Exit_Subprogram 0x1
00c6 0000 0000 | | .XXX[0x2]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 0106 | | .CONST 0x0106 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0009 | | .CONST 0x0009 ; Number of locals
00cb INIT_00c8:
00cb 0007 | | Action Break_Optional
00cc 4800 |H | Short_Literal 0x0
00cd 4804 |H | Short_Literal 0x4
00ce 029f 017b | {| Declare_Subprogram For_Call,INIT_0178
00d0 03fd | | Declare_Type Discrete,Defined
00d1 e008 | | Load 0x0,0x8
00d2 e009 | | Load 0x0,0x9
00d3 4805 |H | Short_Literal 0x5
00d4 0092 022d | -| Action Push_String_Extended,0x22d ; " "
00d6 e00a | | Load 0x0,0xa
00d7 0387 | | Declare_Variable Package
00d8 00d8 | | Load_Top At_Offset_0
00d9 020f | | Execute Module,Activate
00da e402 | | Load 0x2,0x2
00db 0266 | f | Execute Discrete,Bounds
00dc e403 | | Load 0x2,0x3
00dd 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00de 02a0 | | Declare_Subprogram Null_Subprogram
00df 4801 |H | Short_Literal 0x1
00e0 035d | ] | Declare_Type Array,Defined
00e1 00d8 | | Load_Top At_Offset_0
00e2 0337 | 7 | Declare_Variable Array
00e3 00d8 | | Load_Top At_Offset_0
00e4 0337 | 7 | Declare_Variable Array
00e5 4800 |H | Short_Literal 0x0
00e6 4800 |H | Short_Literal 0x0
00e7 e406 | | Load 0x2,0x6
00e8 01d6 | | Execute Vector,Field_Write
00e9 4800 |H | Short_Literal 0x0
00ea 4801 |H | Short_Literal 0x1
00eb e406 | | Load 0x2,0x6
00ec 01d6 | | Execute Vector,Field_Write
00ed 4801 |H | Short_Literal 0x1
00ee 4802 |H | Short_Literal 0x2
00ef e406 | | Load 0x2,0x6
00f0 01d6 | | Execute Vector,Field_Write
00f1 4801 |H | Short_Literal 0x1
00f2 4803 |H | Short_Literal 0x3
00f3 e406 | | Load 0x2,0x6
00f4 01d6 | | Execute Vector,Field_Write
00f5 4802 |H | Short_Literal 0x2
00f6 4804 |H | Short_Literal 0x4
00f7 e406 | | Load 0x2,0x6
00f8 01d6 | | Execute Vector,Field_Write
00f9 e405 | | Load 0x2,0x5
00fa 01d4 | | Execute Vector,Structure_Write
00fb e006 | | Load 0x0,0x6
00fc 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
00fd 02c7 | | Declare_Variable Any
00fe 00d8 | | Load_Top At_Offset_0
00ff 1c00 | | Execute_Immediate Run_Utility,0x0
0100 029f 0193 | | Declare_Subprogram For_Call,INIT_0190
0102 029f 01a3 | | Declare_Subprogram For_Call,INIT_01a0
0104 029f 01bb | | Declare_Subprogram For_Call,INIT_01b8
0106 BODY_00c8:
0106 00be | | Action Activate_Tasks
0107 00cf | | Action Mark_Auxiliary
0108 e402 | | Load 0x2,0x2
0109 0265 | e | Execute Discrete,Reverse_Bounds
010a 0007 | | Action Break_Optional
010b 00d8 | | Load_Top At_Offset_0
010c e405 | | Load 0x2,0x5
010d 01d7 | | Execute Vector,Field_Read
010e e40c | | Load 0x2,0xc
010f e402 | | Load 0x2,0x2
0110 025e | ^ | Execute Discrete,Convert
0111 1c01 | | Execute_Immediate Run_Utility,0x1
0112 e403 | | Load 0x2,0x3
0113 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0114 00c8 | | Action Pop_Auxiliary_Range
0115 3ff5 |? | Loop_Increasing 0x10b
0116 00ce | | Action Pop_Auxiliary
0117 e406 | | Load 0x2,0x6
0118 0120 | | Execute Any,Is_Value
0119 6803 |h | Jump_Zero 0x11d
011a e006 | | Load 0x0,0x6
011b 1b46 | F | Execute Package,Field_Read,Field_Number 0x46
011c 7801 |x | Jump 0x11e
011d e406 | | Load 0x2,0x6
011e e006 | | Load 0x0,0x6
011f 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0120 c406 | | Store 0x2,0x6
0121 00cf | | Action Mark_Auxiliary
0122 7809 |x | Jump 0x12c
0123 e406 | | Load 0x2,0x6
0124 e006 | | Load 0x0,0x6
0125 1848 | H | Execute Package,Field_Execute,Field_Number 0x48
0126 8409 | | Call 0x2,0x9
0127 e406 | | Load 0x2,0x6
0128 e006 | | Load 0x0,0x6
0129 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
012a c406 | | Store 0x2,0x6
012b 00c9 | | Action Pop_Auxiliary_Loop
012c e406 | | Load 0x2,0x6
012d e006 | | Load 0x0,0x6
012e 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
012f 6ff3 |o | Jump_Zero 0x123
0130 00ce | | Action Pop_Auxiliary
0131 4801 |H | Short_Literal 0x1
0132 e403 | | Load 0x2,0x3
0133 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0134 e004 | | Load 0x0,0x4
0135 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0136 e403 | | Load 0x2,0x3
0137 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0138 4501 |E | Exit_Subprogram 0x1
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0150 | P | .CONST 0x0150 ; Address of begin
0141 0169 | i | .CONST 0x0169 ; Address of exception handler
0142 0003 | | .CONST 0x0003 ; Number of locals
0143 INIT_0140:
0143 0092 022e | .| Action Push_String_Extended,0x22e ; "\x5cshow"
0145 e00b | | Load 0x0,0xb
0146 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0147 0092 022f | /| Action Push_String_Extended,0x22f ; ".Units.Commands.Help"
0149 01cc | | Execute Vector,Catenate
014a 0007 | | Action Break_Optional
014b e004 | | Load 0x0,0x4
014c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014d 02c7 | | Declare_Variable Any
014e 00d8 | | Load_Top At_Offset_0
014f 1c00 | | Execute_Immediate Run_Utility,0x0
0150 BODY_0140:
0150 00d8 | | Load_Top At_Offset_0
0151 00ea | | Load_Encached Null_String_Cache
0152 e402 | | Load 0x2,0x2
0153 4800 |H | Short_Literal 0x0
0154 e004 | | Load 0x0,0x4
0155 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0156 c403 | | Store 0x2,0x3
0157 00cf | | Action Mark_Auxiliary
0158 7806 |x | Jump 0x15f
0159 e403 | | Load 0x2,0x3
015a e004 | | Load 0x0,0x4
015b 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
015c e004 | | Load 0x0,0x4
015d 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
015e 00c9 | | Action Pop_Auxiliary_Loop
015f e403 | | Load 0x2,0x3
0160 e004 | | Load 0x0,0x4
0161 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0162 6ff6 |o | Jump_Zero 0x159
0163 00ce | | Action Pop_Auxiliary
0164 00d8 | | Load_Top At_Offset_0
0165 e004 | | Load 0x0,0x4
0166 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0167 c403 | | Store 0x2,0x3
0168 4501 |E | Exit_Subprogram 0x1
0169 TRAP_0140:
0169 0007 | | Action Break_Optional
016a 0092 0230 | 0| Action Push_String_Extended,0x230 ; "Error in Opening "
016c e402 | | Load 0x2,0x2
016d 01cc | | Execute Vector,Catenate
016e e004 | | Load 0x0,0x4
016f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0170 4501 |E | Exit_Subprogram 0x1
0171 0000 0000 | | .BLANK 0000[0x7]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b | { | .CONST 0x017b ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0001 | | .CONST 0x0001 ; Number of locals
017b BODY_0178:
017b INIT_0178:
017b 4603 |F | Jump_Case 0x3
017c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
017d 7802 |x | Jump 0x180 ; case 0x1
017e 7805 |x | Jump 0x184 ; case 0x2
017f 7809 |x | Jump 0x189 ; case 0x3
0180 e7ff | | Load 0x3,-0x1
0181 0091 0226 | &| Action Push_String_Extended_Indexed,0x226 ; "USER"
0183 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0184 e7fe | | Load 0x3,-0x2
0185 e7ff | | Load 0x3,-0x1
0186 00e0 | | Load_Encached Standard_Cache
0187 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0188 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0189 e7ff | | Load 0x3,-0x1
018a 00e0 | | Load_Encached Standard_Cache
018b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
018c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e7ff | | Load 0x3,-0x1
0194 e006 | | Load 0x0,0x6
0195 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0196 e00c | | Load 0x0,0xc
0197 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0198 4401 |D | Exit_Subprogram With_Result,0x1
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01af | | .CONST 0x01af ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0003 | | .CONST 0x0003 ; Number of locals
01a3 INIT_01a0:
01a3 e7ff | | Load 0x3,-0x1
01a4 00e0 | | Load_Encached Standard_Cache
01a5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a6 01dd | | Execute Vector,First
01a7 00e3 | | Load_Encached Natural_Cache
01a8 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01a9 e7ff | | Load 0x3,-0x1
01aa 00e0 | | Load_Encached Standard_Cache
01ab 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01ac 01dc | | Execute Vector,Last
01ad 00e3 | | Load_Encached Natural_Cache
01ae 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01af BODY_01a0:
01af e602 | | Load 0x3,0x2
01b0 0a01 | | Execute_Immediate Plus,0x1
01b1 0248 | H | Execute Discrete,Check_In_Integer
01b2 e603 | | Load 0x3,0x3
01b3 e7ff | | Load 0x3,-0x1
01b4 00e0 | | Load_Encached Standard_Cache
01b5 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01b6 01cf | | Execute Vector,Slice_Read
01b7 4401 |D | Exit_Subprogram With_Result,0x1
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c2 | | .CONST 0x01c2 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0003 | | .CONST 0x0003 ; Number of locals
01bb INIT_01b8:
01bb e006 | | Load 0x0,0x6
01bc 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
01bd 02c7 | | Declare_Variable Any
01be 00d8 | | Load_Top At_Offset_0
01bf 1c00 | | Execute_Immediate Run_Utility,0x0
01c0 029f 0213 | | Declare_Subprogram For_Call,INIT_0210
01c2 BODY_01b8:
01c2 00be | | Action Activate_Tasks
01c3 00cf | | Action Mark_Auxiliary
01c4 e402 | | Load 0x2,0x2
01c5 0265 | e | Execute Discrete,Reverse_Bounds
01c6 0007 | | Action Break_Optional
01c7 00d8 | | Load_Top At_Offset_0
01c8 4604 |F | Jump_Case 0x4
01c9 7804 |x | Jump 0x1ce ; case 0x0
01ca 7809 |x | Jump 0x1d4 ; case 0x1
01cb 780e |x | Jump 0x1da ; case 0x2
01cc 7815 |x | Jump 0x1e2 ; case 0x3
01cd 782d |x- | Jump 0x1fb ; case 0x4
01ce e7ff | | Load 0x3,-0x1
01cf e006 | | Load 0x0,0x6
01d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d1 e403 | | Load 0x2,0x3
01d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d3 7839 |x9 | Jump 0x20d
01d4 e7ff | | Load 0x3,-0x1
01d5 e006 | | Load 0x0,0x6
01d6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01d7 e403 | | Load 0x2,0x3
01d8 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d9 7833 |x3 | Jump 0x20d
01da e7ff | | Load 0x3,-0x1
01db e006 | | Load 0x0,0x6
01dc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01dd 00e0 | | Load_Encached Standard_Cache
01de 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01df e403 | | Load 0x2,0x3
01e0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e1 782b |x+ | Jump 0x20d
01e2 e602 | | Load 0x3,0x2
01e3 0120 | | Execute Any,Is_Value
01e4 6803 |h | Jump_Zero 0x1e8
01e5 e006 | | Load 0x0,0x6
01e6 1b4b | K | Execute Package,Field_Read,Field_Number 0x4b
01e7 7801 |x | Jump 0x1e9
01e8 e602 | | Load 0x3,0x2
01e9 e7ff | | Load 0x3,-0x1
01ea e006 | | Load 0x0,0x6
01eb 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
01ec c602 | | Store 0x3,0x2
01ed 00cf | | Action Mark_Auxiliary
01ee 7806 |x | Jump 0x1f5
01ef 8603 | | Call 0x3,0x3
01f0 e602 | | Load 0x3,0x2
01f1 e006 | | Load 0x0,0x6
01f2 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01f3 c602 | | Store 0x3,0x2
01f4 00c9 | | Action Pop_Auxiliary_Loop
01f5 e602 | | Load 0x3,0x2
01f6 e006 | | Load 0x0,0x6
01f7 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
01f8 6ff6 |o | Jump_Zero 0x1ef
01f9 00ce | | Action Pop_Auxiliary
01fa 7812 |x | Jump 0x20d
01fb e7ff | | Load 0x3,-0x1
01fc e006 | | Load 0x0,0x6
01fd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01fe e006 | | Load 0x0,0x6
01ff 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0200 8408 | | Call 0x2,0x8
0201 0092 0231 | 1| Action Push_String_Extended,0x231 ; "/"
0203 01cc | | Execute Vector,Catenate
0204 e7ff | | Load 0x3,-0x1
0205 e006 | | Load 0x0,0x6
0206 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0207 e006 | | Load 0x0,0x6
0208 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0209 8408 | | Call 0x2,0x8
020a 01cc | | Execute Vector,Catenate
020b e403 | | Load 0x2,0x3
020c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020d 00c8 | | Action Pop_Auxiliary_Range
020e 3fb8 |? | Loop_Increasing 0x1c7
020f 4502 |E | Exit_Subprogram 0x2
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0214 | | .CONST 0x0214 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 INIT_0210:
0213 0007 | | Action Break_Optional
0214 BODY_0210:
0214 e602 | | Load 0x3,0x2
0215 e006 | | Load 0x0,0x6
0216 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0217 e00d | | Load 0x0,0xd
0218 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0219 700b |p | Jump_Nonzero 0x225
021a e602 | | Load 0x3,0x2
021b e006 | | Load 0x0,0x6
021c 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
021d e006 | | Load 0x0,0x6
021e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
021f e00c | | Load 0x0,0xc
0220 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0221 e403 | | Load 0x2,0x3
0222 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0223 00cc | | Action Pop_Block
0224 7fd4 | | Jump 0x1f9
0225 4501 |E | Exit_Subprogram 0x1
0226 ; --------------------------------------------------------------------------------------
0226 ; STRING TABLE
0226 ; --------------------------------------------------------------------------------------
0226 001a | | .STRTAB 0x001a->0x0233 ; "USER"
0227 001c | | .STRTAB 0x001c->0x0235 ; "SESSION"
0228 0021 | ! | .STRTAB 0x0021->0x0238 ; "LINE"
0229 0023 | # | .STRTAB 0x0023->0x023a ; "TIME"
022a 0025 | % | .STRTAB 0x0025->0x023c ; "I_O_COUNT"
022b 002c | , | .STRTAB 0x002c->0x0241 ; "Daily_Message"
022c 0037 | 7 | .STRTAB 0x0037->0x0247 ; "Not implemented - Use the Kernel JOBS command."
022d 0063 | c | .STRTAB 0x0063->0x025e ; " "
022e 0062 | b | .STRTAB 0x0062->0x025f ; "\x5cshow"
022f 0065 | e | .STRTAB 0x0065->0x0261 ; ".Units.Commands.Help"
0230 0077 | w | .STRTAB 0x0077->0x026b ; "Error in Opening "
0231 0086 | | .STRTAB 0x0086->0x0274 ; "/"
0232 0085 | | .STREND 0x0085->0x0274
0233 5553 4552 |USER| .STRTAB_STRINGS
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug Table
0278 ; --------------------------------------------------------------------------------------
0278 0004 0000 | | .DEBUG4 0x0004,0x0000,0xb075,0x0000,0x0001,0x0000
027e 0000 0000 | | .BLANK 0000[0x182]