|
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_0ea8df
└─⟦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 00f0 | | .CONST 0x00f0 ; 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 001a | | .CONST 0x001a ; 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,0x011a,0x8000,0x0000,0x0059,0xeda5,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b14 | | Execute Package,Field_Read,Field_Number 0x14
000d 0129 | ) | Execute Any,Make_Visible
000e e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
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 00bf | | Action Accept_Activation
0014 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0014,0x0122,0x8000,0x0000,0x0059,0xf695,0x0000,0x000f
; Debug Table 0x1.0x0 = 0x14,0xffff
0016 029d 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call ; Debug Table 0x1.0x1 = 0x16,0xfffe
0018 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x18,0xfffd
0019 00c7 | | Action Elaborate_Subprogram
001a BODY_0008:
001a 00bc | | Action Signal_Activated
001b 00bb | | Action Signal_Completion
001c 0000 0000 | | .BLANK 0000[0x4]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 0028 | ( | .CONST 0x0028 ; Address of begin
0021 004c | L | .CONST 0x004c ; Address of exception handler
0022 0003 | | .CONST 0x0003 ; Number of locals
0023 INIT_0020:
0023 e20e | | Load 0x1,0xe ; Debug Table 0x2 = .DEBUG 0x0023,0x012a,0x0001,0x0000,0x0059,0xeda5,0x0000,0x0016
; Debug Table 0x2.0x0 = 0x23,0xffff
0024 0007 | | Action Break_Optional
0025 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x25,0xfffe
0026 e003 | | Load 0x0,0x3
0027 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0028 BODY_0020:
0028 487e |H~ | Short_Literal 0x7e ; Debug Table 0x2.0x2 = 0x28,0x1
0029 a5fd | | Store_Unchecked 0x2,-0x3
002a e004 | | Load 0x0,0x4 ; Debug Table 0x2.0x3 = 0x2a,0x2
002b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
002c e5fe | | Load 0x2,-0x2
002d 016d | m | Execute Variant_Record,Structure_Write
002e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x2.0x4 = 0x2e,0x3
002f e004 | | Load 0x0,0x4
0030 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0031 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0032 7005 |p | Jump_Nonzero 0x38
0033 4879 |Hy | Short_Literal 0x79 ; Debug Table 0x2.0x5 = 0x33,0x4
0034 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
0035 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x6 = 0x35,0x5
0036 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0037 0257 | W | Execute Discrete,Raise
0038 e20e | | Load 0x1,0xe ; Debug Table 0x2.0x7 = 0x38,0x6
0039 e5fe | | Load 0x2,-0x2
003a 00da | | Load_Top At_Offset_2
003b e5ff | | Load 0x2,-0x1
003c 8210 | | Call 0x1,0x10
003d 00d1 | | Pop_Control Pop_Count_1
003e 005a | Z | Store_Top Discrete,At_Offset_2
003f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x8 = 0x3f,0x7
0040 e002 | | Load 0x0,0x2
0041 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0042 6806 |h | Jump_Zero 0x49
0043 e20e | | Load 0x1,0xe ; Debug Table 0x2.0x9 = 0x43,0x8
0044 e5fe | | Load 0x2,-0x2
0045 00da | | Load_Top At_Offset_2
0046 8211 | | Call 0x1,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.0xa = 0x49,0x9
004a a5fd | | Store_Unchecked 0x2,-0x3
004b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
004c TRAP_0020:
004c e002 | | Load 0x0,0x2
004d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
004e 010f | | Execute Exception,Equal
004f 6803 |h | Jump_Zero 0x53
0050 00da | | Load_Top At_Offset_2 ; Debug Table 0x2.0xb = 0x50,0xa
0051 a5fd | | Store_Unchecked 0x2,-0x3
0052 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0053 0100 | | Execute Exception,Raise
0054 0000 0000 | | .BLANK 0000[0x4]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005d | ] | .CONST 0x005d ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0002 | | .CONST 0x0002 ; Number of locals
005b INIT_0058:
005b e20e | | Load 0x1,0xe ; Debug Table 0x3 = .DEBUG 0x005b,0x0144,0x0001,0x0000,0x0059,0xf695,0x0000,0x0010
; Debug Table 0x3.0x0 = 0x5b,0xffff
005c 0007 | | Action Break_Optional
005d BODY_0058:
005d e005 | | Load 0x0,0x5 ; Debug Table 0x3.0x1 = 0x5d,0x1
005e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005f e5fd | | Load 0x2,-0x3
0060 0092 00c4 | | Action Push_String_Extended,0xc4 ; "!USERS."
0062 e5fe | | Load 0x2,-0x2
0063 01cc | | Execute Vector,Catenate
0064 0092 00c5 | | Action Push_String_Extended,0xc5 ; "_SWITCHES'C(SWITCH)"
0066 01cc | | Execute Vector,Catenate
0067 e005 | | Load 0x0,0x5
0068 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0069 00d1 | | Pop_Control Pop_Count_1
006a 0059 | Y | Store_Top Discrete,At_Offset_1
006b 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x2 = 0x6b,0x2
006c e002 | | Load 0x0,0x2
006d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
006e 6817 |h | Jump_Zero 0x86
006f 00db | | Load_Top At_Offset_3
0070 e006 | | Load 0x0,0x6
0071 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0072 0092 00c6 | | Action Push_String_Extended,0xc6 ; "S_1"
0074 01de | | Execute Vector,Not_Equal
0075 6810 |h | Jump_Zero 0x86
0076 e005 | | Load 0x0,0x5 ; Debug Table 0x3.0x3 = 0x76,0x3
0077 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0078 e5fd | | Load 0x2,-0x3
0079 0092 00c4 | | Action Push_String_Extended,0xc4 ; "!USERS."
007b e5ff | | Load 0x2,-0x1
007c e006 | | Load 0x0,0x6
007d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
007e 01cc | | Execute Vector,Catenate
007f 0092 00c7 | | Action Push_String_Extended,0xc7 ; ".S_1_SWITCHES'C(SWITCH)"
0081 01cc | | Execute Vector,Catenate
0082 e005 | | Load 0x0,0x5
0083 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0084 00d1 | | Pop_Control Pop_Count_1
0085 0059 | Y | Store_Top Discrete,At_Offset_1
0086 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x4 = 0x86,0x4
0087 a5fc | | Store_Unchecked 0x2,-0x4
0088 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0089 0000 0000 | | .BLANK 0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 009a | | .CONST 0x009a ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0003 | | .CONST 0x0003 ; Number of locals
0093 INIT_0090:
0093 e004 | | Load 0x0,0x4 ; Debug Table 0x4 = .DEBUG 0x0093,0x0150,0x0001,0x0000,0x0059,0xf695,0x0000,0x006c
; Debug Table 0x4.0x0 = 0x93,0xffff
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 e007 | | Load 0x0,0x7 ; Debug Table 0x4.0x1 = 0x95,0xfffe
0096 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0097 02c7 | | Declare_Variable Any
0098 00d8 | | Load_Top At_Offset_0
0099 1c00 | | Execute_Immediate Run_Utility,0x0
009a BODY_0090:
009a 00be | | Action Activate_Tasks
009b 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x2 = 0x9b,0x1
009c e002 | | Load 0x0,0x2
009d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
009e 681e |h | Jump_Zero 0xbd
009f e004 | | Load 0x0,0x4 ; Debug Table 0x4.0x3 = 0x9f,0x2
00a0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a1 00d9 | | Load_Top At_Offset_1
00a2 e5fe | | Load 0x2,-0x2
00a3 4853 |HS | Short_Literal 0x53
00a4 601b |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x00004000}
00a5 e008 | | Load 0x0,0x8
00a6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00a7 0092 00c4 | | Action Push_String_Extended,0xc4 ; "!USERS."
00a9 e5ff | | Load 0x2,-0x1
00aa 01cc | | Execute Vector,Catenate
00ab 0092 00c8 | | Action Push_String_Extended,0xc8 ; "_SWITCHES"
00ad 01cc | | Execute Vector,Catenate
00ae e007 | | Load 0x0,0x7
00af 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00b0 00d1 | | Pop_Control Pop_Count_1
00b1 c403 | | Store 0x2,0x3
00b2 005a | Z | Store_Top Discrete,At_Offset_2
00b3 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x4.0x4 = 0xb3,0x3
00b4 e005 | | Load 0x0,0x5
00b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b6 a5fd | | Store_Unchecked 0x2,-0x3
00b7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x4.0x5 = 0xb7,0x4
00b8 e007 | | Load 0x0,0x7
00b9 1b50 | P | Execute Package,Field_Read,Field_Number 0x50
00ba 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bb c403 | | Store 0x2,0x3
00bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bd 487e |H~ | Short_Literal 0x7e ; Debug Table 0x4.0x6 = 0xbd,0x5
00be a5fd | | Store_Unchecked 0x2,-0x3
00bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c0 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
00c4 ; --------------------------------------------------------------------------------------
00c4 ; STRING TABLE
00c4 ; --------------------------------------------------------------------------------------
00c4 000c | | .STRTAB 0x000c->0x00ca ; "!USERS."
00c5 0011 | | .STRTAB 0x0011->0x00cd ; "_SWITCHES'C(SWITCH)"
00c6 0022 | " | .STRTAB 0x0022->0x00d7 ; "S_1"
00c7 0023 | # | .STRTAB 0x0023->0x00d8 ; ".S_1_SWITCHES'C(SWITCH)"
00c8 0038 | 8 | .STRTAB 0x0038->0x00e4 ; "_SWITCHES"
00c9 003f | ? | .STREND 0x003f->0x00e8
00ca 2155 5345 |!USE| .STRTAB_STRINGS
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; Debug Table
00f0 ; --------------------------------------------------------------------------------------
00f0 0003 0005 | | .CONST 0x0003,0x0005
00f2 000b 011a | | .DEBUG 0x000b,0x011a,0x8000,0x0000,0x0059,0xeda5,0x0000,0x0009
00fa 0014 0122 | "| .DEBUG 0x0014,0x0122,0x8000,0x0000,0x0059,0xf695,0x0000,0x000f
0102 0023 012a | # *| .DEBUG 0x0023,0x012a,0x0001,0x0000,0x0059,0xeda5,0x0000,0x0016
010a 005b 0144 | [ D| .DEBUG 0x005b,0x0144,0x0001,0x0000,0x0059,0xf695,0x0000,0x0010
0112 0093 0150 | P| .DEBUG 0x0093,0x0150,0x0001,0x0000,0x0059,0xf695,0x0000,0x006c
011a ; --------------------------------------------------------------------------------------
011a ; Debug3 Subtable 0x0
011a ; --------------------------------------------------------------------------------------
011a 0003 0000 | | .DBG3TAB 0x0003,0x0000
011c 000b ffff | | .CONST 0x000b,0xffff
011e 000e fffe | | .CONST 0x000e,0xfffe
0120 0011 fffd | | .CONST 0x0011,0xfffd
0122 ; --------------------------------------------------------------------------------------
0122 ; Debug3 Subtable 0x1
0122 ; --------------------------------------------------------------------------------------
0122 0003 0000 | | .DBG3TAB 0x0003,0x0000
0124 0014 ffff | | .CONST 0x0014,0xffff
0126 0016 fffe | | .CONST 0x0016,0xfffe
0128 0018 fffd | | .CONST 0x0018,0xfffd
012a ; --------------------------------------------------------------------------------------
012a ; Debug3 Subtable 0x2
012a ; --------------------------------------------------------------------------------------
012a 0002 000a | | .DBG3TAB 0x0002,0x000a
012c 0023 ffff | # | .CONST 0x0023,0xffff
012e 0025 fffe | % | .CONST 0x0025,0xfffe
0130 0028 0001 | ( | .CONST 0x0028,0x0001
0132 002a 0002 | * | .CONST 0x002a,0x0002
0134 002e 0003 | . | .CONST 0x002e,0x0003
0136 0033 0004 | 3 | .CONST 0x0033,0x0004
0138 0035 0005 | 5 | .CONST 0x0035,0x0005
013a 0038 0006 | 8 | .CONST 0x0038,0x0006
013c 003f 0007 | ? | .CONST 0x003f,0x0007
013e 0043 0008 | C | .CONST 0x0043,0x0008
0140 0049 0009 | I | .CONST 0x0049,0x0009
0142 0050 000a | P | .CONST 0x0050,0x000a
0144 ; --------------------------------------------------------------------------------------
0144 ; Debug3 Subtable 0x3
0144 ; --------------------------------------------------------------------------------------
0144 0001 0004 | | .DBG3TAB 0x0001,0x0004
0146 005b ffff | [ | .CONST 0x005b,0xffff
0148 005d 0001 | ] | .CONST 0x005d,0x0001
014a 006b 0002 | k | .CONST 0x006b,0x0002
014c 0076 0003 | v | .CONST 0x0076,0x0003
014e 0086 0004 | | .CONST 0x0086,0x0004
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug3 Subtable 0x4
0150 ; --------------------------------------------------------------------------------------
0150 0002 0005 | | .DBG3TAB 0x0002,0x0005
0152 0093 ffff | | .CONST 0x0093,0xffff
0154 0095 fffe | | .CONST 0x0095,0xfffe
0156 009b 0001 | | .CONST 0x009b,0x0001
0158 009f 0002 | | .CONST 0x009f,0x0002
015a 00b3 0003 | | .CONST 0x00b3,0x0003
015c 00b7 0004 | | .CONST 0x00b7,0x0004
015e 00bd 0005 | | .CONST 0x00bd,0x0005
0160 0000 0000 | | .BLANK 0000[0xa0]