|
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_6148f2
└─⟦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 0130 | 0 | .CONST 0x0130 ; 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 0052 | R | .CONST 0x0052 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 00bf | | Action Accept_Activation ; Debug Table 0x0 = .DEBUG 0x000b,0x0162,0x0000,0x0000,0x004c,0x5bb6,0x0000,0x0048
000c 4800 |H | Short_Literal 0x0 ; Debug Table 0x1 = .DEBUG 0x000c,0x0164,0x0000,0x0000,0x004c,0x5bc6,0x0000,0x0006
; Debug Table 0x1.0x0 = 0xc,0xffff
000d 60d2 |` | Indirect_Literal Discrete,0xe0,{0x0091980d, 0x000000b0}
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 037a | z | Declare_Type Task,Defined,Not_Elaborated
0010 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x1 = 0x10,0xfffe
0011 60ca |` | Indirect_Literal Discrete,0xdc,{0x00b38814, 0x000000b0}
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 037a | z | Declare_Type Task,Defined,Not_Elaborated
0014 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call ; Debug Table 0x1.0x2 = 0x14,0xfffd
0016 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x3 = 0x16,0xfffc
0017 e002 | | Load 0x0,0x2
0018 e003 | | Load 0x0,0x3
0019 e004 | | Load 0x0,0x4
001a e005 | | Load 0x0,0x5
001b a006 | | Store_Unchecked 0x0,0x6
001c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
001d a007 | | Store_Unchecked 0x0,0x7
001e e008 | | Load 0x0,0x8
001f e009 | | Load 0x0,0x9
0020 e00a | | Load 0x0,0xa
0021 a00b | | Store_Unchecked 0x0,0xb
0022 a00c | | Store_Unchecked 0x0,0xc
0023 e00d | | Load 0x0,0xd
0024 e00e | | Load 0x0,0xe
0025 480f |H | Short_Literal 0xf
0026 e20d | | Load 0x1,0xd
0027 020e | | Execute Module,Augment_Imports
0028 00da | | Load_Top At_Offset_2
0029 020d | | Execute Module,Elaborate
002a 0007 | | Action Break_Optional
002b e00f | | Load 0x0,0xf ; Debug Table 0x1.0x4 = 0x2b,0xfffb
002c e002 | | Load 0x0,0x2
002d e00a | | Load 0x0,0xa
002e e004 | | Load 0x0,0x4
002f e010 | | Load 0x0,0x10
0030 e001 | | Load 0x0,0x1
0031 e011 | | Load 0x0,0x11
0032 e012 | | Load 0x0,0x12
0033 e013 | | Load 0x0,0x13
0034 e005 | | Load 0x0,0x5
0035 a007 | | Store_Unchecked 0x0,0x7
0036 e008 | | Load 0x0,0x8
0037 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0038 a006 | | Store_Unchecked 0x0,0x6
0039 e014 | | Load 0x0,0x14
003a e015 | | Load 0x0,0x15
003b e016 | | Load 0x0,0x16
003c e017 | | Load 0x0,0x17
003d e018 | | Load 0x0,0x18
003e e019 | | Load 0x0,0x19
003f e01a | | Load 0x0,0x1a
0040 a01b | | Store_Unchecked 0x0,0x1b
0041 e01c | | Load 0x0,0x1c
0042 e009 | | Load 0x0,0x9
0043 e003 | | Load 0x0,0x3
0044 a00b | | Store_Unchecked 0x0,0xb
0045 a00c | | Store_Unchecked 0x0,0xc
0046 e01d | | Load 0x0,0x1d
0047 e01e | | Load 0x0,0x1e
0048 e01f | | Load 0x0,0x1f
0049 e00d | | Load 0x0,0xd
004a 481f |H | Short_Literal 0x1f
004b e20e | | Load 0x1,0xe
004c 020e | | Execute Module,Augment_Imports
004d 00d9 | | Load_Top At_Offset_1
004e 020d | | Execute Module,Elaborate
004f 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0051 00bc | | Action Signal_Activated
0052 BODY_0008:
0052 e020 | | Load 0x0,0x20 ; Debug Table 0x1.0x5 = 0x52,0x1
0053 0c01 | | Execute_Immediate Greater_Equal,0x1
0054 6801 |h | Jump_Zero 0x56
0055 8210 | | Call 0x1,0x10 ; Debug Table 0x1.0x6 = 0x55,0x2
0056 00bb | | Action Signal_Completion
0057 0000 | | .XXX[0x1]
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 029f 00b3 | | Declare_Subprogram INIT_00b0,For_Call ; Debug Table 0x2 = .DEBUG 0x005b,0x0174,0x0001,0x0000,0x004c,0x5bc6,0x0000,0x0019
; Debug Table 0x2.0x0 = 0x5b,0xffff
005d BODY_0058:
005d 0092 00e4 | | Action Push_String_Extended,0xe4 ; "Unrecoverable Error: "
; Debug Table 0x2.0x1 = 0x5d,0x1
005f e5ff | | Load 0x2,-0x1
0060 01cc | | Execute Vector,Catenate
0061 0092 00e5 | | Action Push_String_Extended,0xe5 ; " in task "
0063 01cc | | Execute Vector,Catenate
0064 e5fe | | Load 0x2,-0x2
0065 01cc | | Execute Vector,Catenate
0066 8402 | | Call 0x2,0x2
0067 0092 00e6 | | Action Push_String_Extended,0xe6 ; "Shutting Down SMTP Server"
; Debug Table 0x2.0x2 = 0x67,0x2
0069 8402 | | Call 0x2,0x2
006a e00a | | Load 0x0,0xa ; Debug Table 0x2.0x3 = 0x6a,0x3
006b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
006c 020b | | Execute Module,Is_Terminated
006d 7007 |p | Jump_Nonzero 0x75
006e e00a | | Load 0x0,0xa ; Debug Table 0x2.0x4 = 0x6e,0x4
006f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0070 0209 | | Execute Task,Abort
0071 0007 | | Action Break_Optional
0072 0092 00e7 | | Action Push_String_Extended,0xe7 ; "Terminating Outgoing_Message_Scheduler"
; Debug Table 0x2.0x5 = 0x72,0x5
0074 8402 | | Call 0x2,0x2
0075 e021 | ! | Load 0x0,0x21 ; Debug Table 0x2.0x6 = 0x75,0x6
0076 020b | | Execute Module,Is_Terminated
0077 7006 |p | Jump_Nonzero 0x7e
0078 0092 00e8 | | Action Push_String_Extended,0xe8 ; "Terminating Recv"
; Debug Table 0x2.0x7 = 0x78,0x7
007a 8402 | | Call 0x2,0x2
007b e021 | ! | Load 0x0,0x21 ; Debug Table 0x2.0x8 = 0x7b,0x8
007c 0209 | | Execute Task,Abort
007d 0007 | | Action Break_Optional
007e 0092 00e9 | | Action Push_String_Extended,0xe9 ; "Terminating"
; Debug Table 0x2.0x9 = 0x7e,0x9
0080 8402 | | Call 0x2,0x2
0081 00b6 | | Action Make_Scope ; Debug Table 0x2.0xa = 0x81,0xa
0082 0209 | | Execute Task,Abort
0083 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0084 0000 0000 | | .BLANK 0000[0x4]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 0098 | | .CONST 0x0098 ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0004 | | .CONST 0x0004 ; Number of locals
008b INIT_0088:
008b e20d | | Load 0x1,0xd ; Debug Table 0x3 = .DEBUG 0x008b,0x018c,0x0004,0x0000,0x004c,0x5bc6,0x0000,0x00df
; Debug Table 0x3.0x0 = 0x8b,0xffff
008c 036f | o | Declare_Variable Task
008d 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x1 = 0x8d,0xfffe
008e e020 | | Load 0x0,0x20
008f e20e | | Load 0x1,0xe
0090 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0092 4801 |H | Short_Literal 0x1
0093 035d | ] | Declare_Type Array,Defined
0094 00d8 | | Load_Top At_Offset_0
0095 0337 | 7 | Declare_Variable Array
0096 00d8 | | Load_Top At_Offset_0
0097 1c00 | | Execute_Immediate Run_Utility,0x0
0098 BODY_0088:
0098 00be | | Action Activate_Tasks
0099 4801 |H | Short_Literal 0x1 ; Debug Table 0x3.0x2 = 0x99,0x1
009a 4801 |H | Short_Literal 0x1
009b 4801 |H | Short_Literal 0x1
009c 00db | | Load_Top At_Offset_3
009d 01d7 | | Execute Vector,Field_Read
009e 170d | | Execute Task,Entry_Call,Field_Number 0xd
009f 00cf | | Action Mark_Auxiliary
00a0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0xa0,0x2
00a1 01dc | | Execute Vector,Last
00a2 4802 |H | Short_Literal 0x2
00a3 0263 | c | Execute Discrete,Above_Bound
00a4 7008 |p | Jump_Nonzero 0xad
00a5 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x4 = 0xa5,0x3
00a6 4801 |H | Short_Literal 0x1
00a7 00da | | Load_Top At_Offset_2
00a8 e404 | | Load 0x2,0x4
00a9 01d7 | | Execute Vector,Field_Read
00aa 170d | | Execute Task,Entry_Call,Field_Number 0xd
00ab 00c8 | | Action Pop_Auxiliary_Range
00ac 3ff8 |? | Loop_Increasing 0xa5
00ad 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00ae 0000 0000 | | .XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b3 | | .CONST 0x00b3 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0001 | | .CONST 0x0001 ; Number of locals
00b3 BODY_00b0:
00b3 INIT_00b0:
00b3 00ea | | Load_Encached Null_String_Cache ; Debug Table 0x4 = .DEBUG 0x00b3,0x0198,0x0001,0x0000,0x004c,0x5bc6,0x0000,0x0024
; Debug Table 0x4.0x0 = 0xb3,0x1
00b4 e007 | | Load 0x0,0x7
00b5 4807 |H | Short_Literal 0x7
00b6 00ea | | Load_Encached Null_String_Cache
00b7 e008 | | Load 0x0,0x8
00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b9 0092 00ea | | Action Push_String_Extended,0xea ; "Send"
; Debug Table 0x4.0x1 = 0xb9,0x2
00bb e007 | | Load 0x0,0x7
00bc 4807 |H | Short_Literal 0x7
00bd e7ff | | Load 0x3,-0x1
00be e008 | | Load 0x0,0x8
00bf 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00c0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00c1 0000 0000 | | .BLANK 0000[0x7]
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 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x5 = .DEBUG 0x00cb,0x019e,0x0005,0x0000,0x004c,0x5bc6,0x0000,0x00ab
00cc 00da | | Load_Top At_Offset_2
00cd 01dc | | Execute Vector,Last
00ce 00db | | Load_Top At_Offset_3
00cf 01dd | | Execute Vector,First
00d0 0263 | c | Execute Discrete,Above_Bound
00d1 7006 |p | Jump_Nonzero 0xd8
00d2 00d8 | | Load_Top At_Offset_0
00d3 e7ff | | Load 0x3,-0x1
00d4 01d5 | | Execute Vector,Field_Reference
00d5 036b | k | Declare_Variable Task,As_Component
00d6 0a01 | | Execute_Immediate Plus,0x1
00d7 7ff8 | | Jump 0xd0
00d8 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
00d9 0000 0000 | | .XXX[0x3]
00db 0000 | |
00dc 00b3 8814 | | .LITERAL {0x00b38814, 0x000000b0}
00e0 0091 980d | | .LITERAL {0x0091980d, 0x000000b0}
00e4 ; --------------------------------------------------------------------------------------
00e4 ; STRING TABLE
00e4 ; --------------------------------------------------------------------------------------
00e4 0010 | | .STRTAB 0x0010->0x00ec ; "Unrecoverable Error: "
00e5 0023 | # | .STRTAB 0x0023->0x00f6 ; " in task "
00e6 002a | * | .STRTAB 0x002a->0x00fb ; "Shutting Down SMTP Server"
00e7 0041 | A | .STRTAB 0x0041->0x0107 ; "Terminating Outgoing_Message_Scheduler"
00e8 0065 | e | .STRTAB 0x0065->0x011a ; "Terminating Recv"
00e9 0073 | s | .STRTAB 0x0073->0x0122 ; "Terminating"
00ea 007c | | | .STRTAB 0x007c->0x0128 ; "Send"
00eb 007e | ~ | .STREND 0x007e->0x012a
00ec 556e 7265 |Unre| .STRTAB_STRINGS
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; Debug Table
0130 ; --------------------------------------------------------------------------------------
0130 0003 0006 | | .CONST 0x0003,0x0006
0132 000b 0162 | b| .DEBUG 0x000b,0x0162,0x0000,0x0000,0x004c,0x5bb6,0x0000,0x0048
013a 000c 0164 | d| .DEBUG 0x000c,0x0164,0x0000,0x0000,0x004c,0x5bc6,0x0000,0x0006
0142 005b 0174 | [ t| .DEBUG 0x005b,0x0174,0x0001,0x0000,0x004c,0x5bc6,0x0000,0x0019
014a 008b 018c | | .DEBUG 0x008b,0x018c,0x0004,0x0000,0x004c,0x5bc6,0x0000,0x00df
0152 00b3 0198 | | .DEBUG 0x00b3,0x0198,0x0001,0x0000,0x004c,0x5bc6,0x0000,0x0024
015a 00cb 019e | | .DEBUG 0x00cb,0x019e,0x0005,0x0000,0x004c,0x5bc6,0x0000,0x00ab
0162 ; --------------------------------------------------------------------------------------
0162 ; Debug3 Subtable 0x0
0162 ; --------------------------------------------------------------------------------------
0162 0000 0000 | | .DBG3TAB 0x0000,0x0000
0164 ; --------------------------------------------------------------------------------------
0164 ; Debug3 Subtable 0x1
0164 ; --------------------------------------------------------------------------------------
0164 0005 0002 | | .DBG3TAB 0x0005,0x0002
0166 000c ffff | | .CONST 0x000c,0xffff
0168 0010 fffe | | .CONST 0x0010,0xfffe
016a 0014 fffd | | .CONST 0x0014,0xfffd
016c 0016 fffc | | .CONST 0x0016,0xfffc
016e 002b fffb | + | .CONST 0x002b,0xfffb
0170 0052 0001 | R | .CONST 0x0052,0x0001
0172 0055 0002 | U | .CONST 0x0055,0x0002
0174 ; --------------------------------------------------------------------------------------
0174 ; Debug3 Subtable 0x2
0174 ; --------------------------------------------------------------------------------------
0174 0001 000a | | .DBG3TAB 0x0001,0x000a
0176 005b ffff | [ | .CONST 0x005b,0xffff
0178 005d 0001 | ] | .CONST 0x005d,0x0001
017a 0067 0002 | g | .CONST 0x0067,0x0002
017c 006a 0003 | j | .CONST 0x006a,0x0003
017e 006e 0004 | n | .CONST 0x006e,0x0004
0180 0072 0005 | r | .CONST 0x0072,0x0005
0182 0075 0006 | u | .CONST 0x0075,0x0006
0184 0078 0007 | x | .CONST 0x0078,0x0007
0186 007b 0008 | { | .CONST 0x007b,0x0008
0188 007e 0009 | ~ | .CONST 0x007e,0x0009
018a 0081 000a | | .CONST 0x0081,0x000a
018c ; --------------------------------------------------------------------------------------
018c ; Debug3 Subtable 0x3
018c ; --------------------------------------------------------------------------------------
018c 0002 0003 | | .DBG3TAB 0x0002,0x0003
018e 008b ffff | | .CONST 0x008b,0xffff
0190 008d fffe | | .CONST 0x008d,0xfffe
0192 0099 0001 | | .CONST 0x0099,0x0001
0194 00a0 0002 | | .CONST 0x00a0,0x0002
0196 00a5 0003 | | .CONST 0x00a5,0x0003
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug3 Subtable 0x4
0198 ; --------------------------------------------------------------------------------------
0198 0000 0002 | | .DBG3TAB 0x0000,0x0002
019a 00b3 0001 | | .CONST 0x00b3,0x0001
019c 00b9 0002 | | .CONST 0x00b9,0x0002
019e ; --------------------------------------------------------------------------------------
019e ; Debug3 Subtable 0x5
019e ; --------------------------------------------------------------------------------------
019e 0000 0000 | | .DBG3TAB 0x0000,0x0000
01a0 0000 0000 | | .BLANK 0000[0x60]