|
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: 1024 (0x400)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00b8 | | .CONST 0x00b8 ; 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 0000 | | .CONST 0x0000 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001c | | .CONST 0x001c ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0011 | | .CONST 0x0011 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1 ; Debug Table 0x0 = .DEBUG 0x000b,0x00e2,0x8000,0x0000,0x0058,0x1d45,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b11 | | Execute Package,Field_Read,Field_Number 0x11
000d 0129 | ) | Execute Any,Make_Visible
000e e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0010 0129 | ) | Execute Any,Make_Visible
0011 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0x11,0xfffd
0013 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x13,0xfffc
0015 00bf | | Action Accept_Activation
0016 029d 008b | | Declare_Subprogram INIT_0088,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0016,0x00ec,0x8000,0x0000,0x0058,0x7015,0x0000,0x0011
; Debug Table 0x1.0x0 = 0x16,0xffff
0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 00c7 | | Action Elaborate_Subprogram
001a 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 00c7 | | Action Elaborate_Subprogram
001c BODY_0008:
001c 00bc | | Action Signal_Activated
001d 00bb | | Action Signal_Completion
001e 0000 0000 | | .XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 002c | , | .CONST 0x002c ; Address of begin
0021 006e | n | .CONST 0x006e ; Address of exception handler
0022 0004 | | .CONST 0x0004 ; Number of locals
0023 INIT_0020:
0023 e003 | | Load 0x0,0x3 ; Debug Table 0x2 = .DEBUG 0x0023,0x00f4,0x0001,0x0000,0x0058,0x1d45,0x0000,0x0014
; Debug Table 0x2.0x0 = 0x23,0xffff
0024 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0025 02ff | | Declare_Variable Variant_Record
0026 00d8 | | Load_Top At_Offset_0
0027 1c00 | | Execute_Immediate Run_Utility,0x0
0028 e20d | | Load 0x1,0xd ; Debug Table 0x2.0x1 = 0x28,0xfffe
0029 0007 | | Action Break_Optional
002a e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x2 = 0x2a,0xfffd
002b 8211 | | Call 0x1,0x11
002c BODY_0020:
002c 487e |H~ | Short_Literal 0x7e ; Debug Table 0x2.0x3 = 0x2c,0x1
002d a5fd | | Store_Unchecked 0x2,-0x3
002e 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0x4 = 0x2e,0x2
002f a5fe | | Store_Unchecked 0x2,-0x2
0030 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x5 = 0x30,0x3
0031 0092 0096 | | Action Push_String_Extended,0x96 ; "<CURRENT_USER>"
0033 01df | | Execute Vector,Equal
0034 6804 |h | Jump_Zero 0x39
0035 e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x6 = 0x35,0x4
0036 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0037 a5fe | | Store_Unchecked 0x2,-0x2
0038 7832 |x2 | Jump 0x6b
0039 e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x7 = 0x39,0x5
003a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003b 00db | | Load_Top At_Offset_3
003c 00da | | Load_Top At_Offset_2
003d 0092 0097 | | Action Push_String_Extended,0x97 ; "["
003f 01cc | | Execute Vector,Catenate
0040 e5ff | | Load 0x2,-0x1
0041 01cc | | Execute Vector,Catenate
0042 0092 0098 | | Action Push_String_Extended,0x98 ; "]'C(SESSION)"
0044 01cc | | Execute Vector,Catenate
0045 e005 | | Load 0x0,0x5
0046 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0047 00d1 | | Pop_Control Pop_Count_1
0048 005a | Z | Store_Top Discrete,At_Offset_2
0049 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x8 = 0x49,0x6
004a e001 | | Load 0x0,0x1
004b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
004c 6810 |h | Jump_Zero 0x5d
004d e005 | | Load 0x0,0x5 ; Debug Table 0x2.0x9 = 0x4d,0x7
004e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
004f 00db | | Load_Top At_Offset_3
0050 00da | | Load_Top At_Offset_2
0051 0092 0097 | | Action Push_String_Extended,0x97 ; "["
0053 01cc | | Execute Vector,Catenate
0054 e5ff | | Load 0x2,-0x1
0055 01cc | | Execute Vector,Catenate
0056 0092 0099 | | Action Push_String_Extended,0x99 ; "].S_1'C(SESSION)"
0058 01cc | | Execute Vector,Catenate
0059 e005 | | Load 0x0,0x5
005a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005b 00d1 | | Pop_Control Pop_Count_1
005c 005a | Z | Store_Top Discrete,At_Offset_2
005d 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xa = 0x5d,0x8
005e e001 | | Load 0x0,0x1
005f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0060 6805 |h | Jump_Zero 0x66
0061 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xb = 0x61,0x9
0062 a5fd | | Store_Unchecked 0x2,-0x3
0063 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0xc = 0x63,0xa
0064 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0065 0257 | W | Execute Discrete,Raise
0066 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xd = 0x66,0xb
0067 e006 | | Load 0x0,0x6
0068 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0069 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
006a a5fe | | Store_Unchecked 0x2,-0x2
006b 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xe = 0x6b,0xc
006c a5fd | | Store_Unchecked 0x2,-0x3
006d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
006e TRAP_0020:
006e e001 | | Load 0x0,0x1
006f 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0070 010f | | Execute Exception,Equal
0071 6801 |h | Jump_Zero 0x73
0072 4502 |E | Exit_Suprogram New_Top_Offset 0x2 ; Debug Table 0x2.0xf = 0x72,0xd
0073 0100 | | Execute Exception,Raise
0074 0000 0000 | | .BLANK 0000[0x4]
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 482e |H. | Short_Literal 0x2e ; Debug Table 0x3 = .DEBUG 0x007b,0x0116,0x0002,0x0000,0x0058,0x1d45,0x0000,0x0025
; Debug Table 0x3.0x0 = 0x7b,0x1
007c 00db | | Load_Top At_Offset_3
007d e004 | | Load 0x0,0x4
007e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
007f 01cb | | Execute Vector,Append
0080 00db | | Load_Top At_Offset_3
0081 e004 | | Load 0x0,0x4
0082 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0083 01cc | | Execute Vector,Catenate
0084 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0085 0000 0000 | | .XXX[0x3]
0087 0000 | |
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 4800 |H | Short_Literal 0x0 ; Debug Table 0x4 = .DEBUG 0x008b,0x011a,0x0002,0x0000,0x0058,0x7015,0x0000,0x0012
; Debug Table 0x4.0x0 = 0x8b,0x1
008c 00db | | Load_Top At_Offset_3
008d 4821 |H! | Short_Literal 0x21
008e e007 | | Load 0x0,0x7
008f 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0090 7003 |p | Jump_Nonzero 0x94
0091 0092 009a | | Action Push_String_Extended,0x9a ; "[!USERS,[]]."
; Debug Table 0x4.0x1 = 0x91,0x2
0093 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0094 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x4.0x2 = 0x94,0x3
0095 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0096 ; --------------------------------------------------------------------------------------
0096 ; STRING TABLE
0096 ; --------------------------------------------------------------------------------------
0096 000c | | .STRTAB 0x000c->0x009c ; "<CURRENT_USER>"
0097 0018 | | .STRTAB 0x0018->0x00a3 ; "["
0098 0017 | | .STRTAB 0x0017->0x00a3 ; "]'C(SESSION)"
0099 0021 | ! | .STRTAB 0x0021->0x00a9 ; "].S_1'C(SESSION)"
009a 002f | / | .STRTAB 0x002f->0x00b1 ; "[!USERS,[]]."
009b 0039 | 9 | .STREND 0x0039->0x00b7
009c 3c43 5552 |<CUR| .STRTAB_STRINGS
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0003 0005 | | .CONST 0x0003,0x0005
00ba 000b 00e2 | | .DEBUG 0x000b,0x00e2,0x8000,0x0000,0x0058,0x1d45,0x0000,0x0007
00c2 0016 00ec | | .DEBUG 0x0016,0x00ec,0x8000,0x0000,0x0058,0x7015,0x0000,0x0011
00ca 0023 00f4 | # | .DEBUG 0x0023,0x00f4,0x0001,0x0000,0x0058,0x1d45,0x0000,0x0014
00d2 007b 0116 | { | .DEBUG 0x007b,0x0116,0x0002,0x0000,0x0058,0x1d45,0x0000,0x0025
00da 008b 011a | | .DEBUG 0x008b,0x011a,0x0002,0x0000,0x0058,0x7015,0x0000,0x0012
00e2 ; --------------------------------------------------------------------------------------
00e2 ; Debug3 Subtable 0x0
00e2 ; --------------------------------------------------------------------------------------
00e2 0004 0000 | | .DBG3TAB 0x0004,0x0000
00e4 000b ffff | | .CONST 0x000b,0xffff
00e6 000e fffe | | .CONST 0x000e,0xfffe
00e8 0011 fffd | | .CONST 0x0011,0xfffd
00ea 0013 fffc | | .CONST 0x0013,0xfffc
00ec ; --------------------------------------------------------------------------------------
00ec ; Debug3 Subtable 0x1
00ec ; --------------------------------------------------------------------------------------
00ec 0003 0000 | | .DBG3TAB 0x0003,0x0000
00ee 0016 ffff | | .CONST 0x0016,0xffff
00f0 0018 fffe | | .CONST 0x0018,0xfffe
00f2 001a fffd | | .CONST 0x001a,0xfffd
00f4 ; --------------------------------------------------------------------------------------
00f4 ; Debug3 Subtable 0x2
00f4 ; --------------------------------------------------------------------------------------
00f4 0003 000d | | .DBG3TAB 0x0003,0x000d
00f6 0023 ffff | # | .CONST 0x0023,0xffff
00f8 0028 fffe | ( | .CONST 0x0028,0xfffe
00fa 002a fffd | * | .CONST 0x002a,0xfffd
00fc 002c 0001 | , | .CONST 0x002c,0x0001
00fe 002e 0002 | . | .CONST 0x002e,0x0002
0100 0030 0003 | 0 | .CONST 0x0030,0x0003
0102 0035 0004 | 5 | .CONST 0x0035,0x0004
0104 0039 0005 | 9 | .CONST 0x0039,0x0005
0106 0049 0006 | I | .CONST 0x0049,0x0006
0108 004d 0007 | M | .CONST 0x004d,0x0007
010a 005d 0008 | ] | .CONST 0x005d,0x0008
010c 0061 0009 | a | .CONST 0x0061,0x0009
010e 0063 000a | c | .CONST 0x0063,0x000a
0110 0066 000b | f | .CONST 0x0066,0x000b
0112 006b 000c | k | .CONST 0x006b,0x000c
0114 0072 000d | r | .CONST 0x0072,0x000d
0116 ; --------------------------------------------------------------------------------------
0116 ; Debug3 Subtable 0x3
0116 ; --------------------------------------------------------------------------------------
0116 0000 0001 | | .DBG3TAB 0x0000,0x0001
0118 007b 0001 | { | .CONST 0x007b,0x0001
011a ; --------------------------------------------------------------------------------------
011a ; Debug3 Subtable 0x4
011a ; --------------------------------------------------------------------------------------
011a 0000 0003 | | .DBG3TAB 0x0000,0x0003
011c 008b 0001 | | .CONST 0x008b,0x0001
011e 0091 0002 | | .CONST 0x0091,0x0002
0120 0094 0003 | | .CONST 0x0094,0x0003
0122 0000 0000 | | .BLANK 0000[0xde]