|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »799763.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »799763.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »799763.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »799763.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »799763.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »799763.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e0 | | .CONST 0x01e0 ; 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 0023 | # | .CONST 0x0023 ; Address of begin
0009 0037 | 7 | .CONST 0x0037 ; Address of exception handler
000a 0015 | | .CONST 0x0015 ; Number of locals
000b INIT_0008:
000b 00bf | | Action Accept_Activation ; Debug Table 0x0 = .DEBUG 0x000b,0x021a,0x8000,0x0000,0x0036,0xbf74,0x0000,0x0003
000c 0007 | | Action Break_Optional ; Debug Table 0x1 = .DEBUG 0x000c,0x021c,0x8000,0x0000,0x0036,0xbf84,0x0000,0x0051
; Debug Table 0x1.0x0 = 0xc,0xffff
000d 0007 | | Action Break_Optional ; Debug Table 0x1.0x1 = 0xd,0xfffe
000e 0007 | | Action Break_Optional ; Debug Table 0x1.0x2 = 0xe,0xfffd
000f 0007 | | Action Break_Optional ; Debug Table 0x1.0x3 = 0xf,0xfffc
0010 029d 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call ; Debug Table 0x1.0x4 = 0x10,0xfffb
0012 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x5 = 0x12,0xfffa
0013 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0014 1918 | | Execute Package,Field_Reference,Field_Number 0x18
0015 00c6 | | Action Check_Subprogram_Elaborated
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0017 60c4 |` | Indirect_Literal Discrete,0xdc,{0x00000000, 0x0036bf84}
0018 4889 |H | Short_Literal 0x89
0019 4800 |H | Short_Literal 0x0
001a 0007 | | Action Break_Optional
001b 029d 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call ; Debug Table 0x1.0x6 = 0x1b,0xfff9
001d 029d 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call ; Debug Table 0x1.0x7 = 0x1d,0xfff8
001f 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0021 029f 0093 | | Declare_Subprogram INIT_0090,For_Call
0023 BODY_0008:
0023 4803 |H | Short_Literal 0x3 ; Debug Table 0x1.0x8 = 0x23,0x1
0024 e002 | | Load 0x0,0x2
0025 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0026 0092 00e0 | | Action Push_String_Extended,0xe0 ; "EEDB"
; Debug Table 0x1.0x9 = 0x26,0x2
0028 e003 | | Load 0x0,0x3
0029 1811 | | Execute Package,Field_Execute,Field_Number 0x11
002a 8212 | | Call 0x1,0x12 ; Debug Table 0x1.0xa = 0x2a,0x3
002b 6801 |h | Jump_Zero 0x2d
002c 8214 | | Call 0x1,0x14 ; Debug Table 0x1.0xb = 0x2c,0x4
002d 00cf | | Action Mark_Auxiliary
002e 0007 | | Action Break_Optional ; Debug Table 0x1.0xc = 0x2e,0x5
002f 8215 | | Call 0x1,0x15 ; Debug Table 0x1.0xd = 0x2f,0x6
0030 00c9 | | Action Pop_Auxiliary_Loop
0031 7ffd | | Jump 0x2f
0032 00ce | | Action Pop_Auxiliary
0033 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0xe = 0x33,0x7
0034 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0035 00bc | | Action Signal_Activated
0036 00bb | | Action Signal_Completion
0037 TRAP_0008:
0037 0007 | | Action Break_Optional
0038 e005 | | Load 0x0,0x5 ; Debug Table 0x1.0xf = 0x38,0x8
0039 180d | | Execute Package,Field_Execute,Field_Number 0xd
003a 0092 00e1 | | Action Push_String_Extended,0xe1 ; "Exception"
003c 4803 |H | Short_Literal 0x3
003d 0092 00e2 | | Action Push_String_Extended,0xe2 ; "EEDB_Main"
003f e006 | | Load 0x0,0x6
0040 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0041 00bc | | Action Signal_Activated
0042 00bb | | Action Signal_Completion
0043 0000 0000 | | .BLANK 0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 00da | | Load_Top At_Offset_2 ; Debug Table 0x2 = .DEBUG 0x004b,0x023e,0x0001,0x0000,0x0036,0xbf84,0x0000,0x0070
; Debug Table 0x2.0x0 = 0x4b,0x1
004c e007 | | Load 0x0,0x7
004d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004e e008 | | Load 0x0,0x8
004f 180d | | Execute Package,Field_Execute,Field_Number 0xd
0050 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0051 0000 0000 | | .BLANK 0000[0x7]
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 480e |H | Short_Literal 0xe ; Debug Table 0x3 = .DEBUG 0x005b,0x0242,0x0002,0x0000,0x0036,0xbf84,0x0000,0x0093
; Debug Table 0x3.0x0 = 0x5b,0x1
005c e002 | | Load 0x0,0x2
005d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
005e 00ca | | Action Exit_Nullary_Function
005f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0x4 = .DEBUG 0x0063,0x0246,0x0002,0x0000,0x0036,0xbf84,0x0000,0x00a5
; Debug Table 0x4.0x0 = 0x63,0x1
0064 01db | | Execute Vector,Length
0065 0c01 | | Execute_Immediate Greater_Equal,0x1
0066 6806 |h | Jump_Zero 0x6d
0067 00da | | Load_Top At_Offset_2
0068 01dd | | Execute Vector,First
0069 00db | | Load_Top At_Offset_3
006a 01d7 | | Execute Vector,Field_Read
006b 0f59 | Y | Execute_Immediate Equal,0x59
006c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006d 4800 |H | Short_Literal 0x0
006e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
006f 0000 | | .XXX[0x1]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 007c | | | .CONST 0x007c ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 e001 | | Load 0x0,0x1 ; Debug Table 0x5 = .DEBUG 0x0073,0x024a,0x0004,0x0000,0x0036,0xbf84,0x0000,0x0106
; Debug Table 0x5.0x0 = 0x73,0x1
0074 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0075 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0076 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0077 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0078 e001 | | Load 0x0,0x1
0079 1b19 | | Execute Package,Field_Read,Field_Number 0x19
007a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
007b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007c TRAP_0070:
007c e001 | | Load 0x0,0x1
007d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
007e 010f | | Execute Exception,Equal
007f 6805 |h | Jump_Zero 0x85
0080 e001 | | Load 0x0,0x1 ; Debug Table 0x5.0x1 = 0x80,0x2
0081 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0082 e008 | | Load 0x0,0x8
0083 180d | | Execute Package,Field_Execute,Field_Number 0xd
0084 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0085 e005 | | Load 0x0,0x5 ; Debug Table 0x5.0x2 = 0x85,0x3
0086 180d | | Execute Package,Field_Execute,Field_Number 0xd
0087 0092 00e3 | | Action Push_String_Extended,0xe3 ; "Exception during default elaboration: "
0089 4802 |H | Short_Literal 0x2
008a 0092 00e2 | | Action Push_String_Extended,0xe2 ; "EEDB_Main"
008c e006 | | Load 0x0,0x6
008d 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
008e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
008f 0000 | | .XXX[0x1]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 00cf | | .CONST 0x00cf ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e009 | | Load 0x0,0x9 ; Debug Table 0x6 = .DEBUG 0x0093,0x0252,0x0004,0x0000,0x0036,0xbf84,0x0000,0x018e
; Debug Table 0x6.0x0 = 0x93,0x1
0094 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0095 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0096 0092 00e4 | | Action Push_String_Extended,0xe4 ; "This command will result in immediate shutdown of the system."
; Debug Table 0x6.0x1 = 0x96,0x2
0098 e00a | | Load 0x0,0xa
0099 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009b 0092 00e5 | | Action Push_String_Extended,0xe5 ; "Users will not be warned or logged off and user activity may"
; Debug Table 0x6.0x2 = 0x9b,0x3
009d e00a | | Load 0x0,0xa
009e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a0 0092 00e6 | | Action Push_String_Extended,0xe6 ; "cause the shutdown to fail. Proceed only if all user activity"
; Debug Table 0x6.0x3 = 0xa0,0x4
00a2 e00a | | Load 0x0,0xa
00a3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a4 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00a5 0092 00e7 | | Action Push_String_Extended,0xe7 ; "has been quiesced or this is an emergency shutdown."
; Debug Table 0x6.0x4 = 0xa5,0x5
00a7 e00a | | Load 0x0,0xa
00a8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a9 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00aa 0092 00e8 | | Action Push_String_Extended,0xe8 ; "Use Operator.Shutdown for normal environment shutdowns."
; Debug Table 0x6.0x5 = 0xaa,0x6
00ac e00a | | Load 0x0,0xa
00ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ae 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00af e00a | | Load 0x0,0xa ; Debug Table 0x6.0x6 = 0xaf,0x7
00b0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b2 4801 |H | Short_Literal 0x1 ; Debug Table 0x6.0x7 = 0xb2,0x8
00b3 0092 00e9 | | Action Push_String_Extended,0xe9 ; "Do you want to shutdown the system (yes/no) ?"
00b5 e00a | | Load 0x0,0xa
00b6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b8 e00b | | Load 0x0,0xb
00b9 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ba 8213 | | Call 0x1,0x13
00bb 6812 |h | Jump_Zero 0xce
00bc e007 | | Load 0x0,0x7 ; Debug Table 0x6.0x8 = 0xbc,0x9
00bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00be 6803 |h | Jump_Zero 0xc2
00bf e004 | | Load 0x0,0x4
00c0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c1 6802 |h | Jump_Zero 0xc4
00c2 00cc | | Action Pop_Block
00c3 7f6e | n | Jump 0x32
00c4 0092 00ea | | Action Push_String_Extended,0xea ; "Shutdown is not possible from EEDB"
; Debug Table 0x6.0x9 = 0xc4,0xa
00c6 e00a | | Load 0x0,0xa
00c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00c9 0092 00eb | | Action Push_String_Extended,0xeb ; " OM_Mechanisms is up but has not registered"
; Debug Table 0x6.0xa = 0xc9,0xb
00cb e00a | | Load 0x0,0xa
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cf TRAP_0090:
00cf 0007 | | Action Break_Optional
00d0 e005 | | Load 0x0,0x5 ; Debug Table 0x6.0xb = 0xd0,0xc
00d1 180d | | Execute Package,Field_Execute,Field_Number 0xd
00d2 0092 00e1 | | Action Push_String_Extended,0xe1 ; "Exception"
00d4 4803 |H | Short_Literal 0x3
00d5 0092 00e2 | | Action Push_String_Extended,0xe2 ; "EEDB_Main"
00d7 e006 | | Load 0x0,0x6
00d8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00d9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00da 0000 0000 | | .XXX[0x2]
00dc 0000 0000 | | .LITERAL {0x00000000, 0x0036bf84}
00e0 ; --------------------------------------------------------------------------------------
00e0 ; STRING TABLE
00e0 ; --------------------------------------------------------------------------------------
00e0 001a | | .STRTAB 0x001a->0x00ed ; "EEDB"
00e1 001c | | .STRTAB 0x001c->0x00ef ; "Exception"
00e2 0023 | # | .STRTAB 0x0023->0x00f3 ; "EEDB_Main"
00e3 002a | * | .STRTAB 0x002a->0x00f8 ; "Exception during default elaboration: "
00e4 004e | N | .STRTAB 0x004e->0x010b ; "This command will result in immediate shutdown of the system."
00e5 0089 | | .STRTAB 0x0089->0x0129 ; "Users will not be warned or logged off and user activity may"
00e6 00c3 | | .STRTAB 0x00c3->0x0147 ; "cause the shutdown to fail. Proceed only if all user activity"
00e7 00ff | | .STRTAB 0x00ff->0x0166 ; "has been quiesced or this is an emergency shutdown."
00e8 0130 | 0 | .STRTAB 0x0130->0x0180 ; "Use Operator.Shutdown for normal environment shutdowns."
00e9 0165 | e | .STRTAB 0x0165->0x019b ; "Do you want to shutdown the system (yes/no) ?"
00ea 0190 | | .STRTAB 0x0190->0x01b2 ; "Shutdown is not possible from EEDB"
00eb 01b0 | | .STRTAB 0x01b0->0x01c3 ; " OM_Mechanisms is up but has not registered"
00ec 01da | | .STREND 0x01da->0x01d9
00ed 4545 4442 |EEDB| .STRTAB_STRINGS
01d9 0000 0000 | | .BLANK 0000[0x7]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; Debug Table
01e0 ; --------------------------------------------------------------------------------------
01e0 0003 0007 | | .CONST 0x0003,0x0007
01e2 000b 021a | | .DEBUG 0x000b,0x021a,0x8000,0x0000,0x0036,0xbf74,0x0000,0x0003
01ea 000c 021c | | .DEBUG 0x000c,0x021c,0x8000,0x0000,0x0036,0xbf84,0x0000,0x0051
01f2 004b 023e | K >| .DEBUG 0x004b,0x023e,0x0001,0x0000,0x0036,0xbf84,0x0000,0x0070
01fa 005b 0242 | [ B| .DEBUG 0x005b,0x0242,0x0002,0x0000,0x0036,0xbf84,0x0000,0x0093
0202 0063 0246 | c F| .DEBUG 0x0063,0x0246,0x0002,0x0000,0x0036,0xbf84,0x0000,0x00a5
020a 0073 024a | s J| .DEBUG 0x0073,0x024a,0x0004,0x0000,0x0036,0xbf84,0x0000,0x0106
0212 0093 0252 | R| .DEBUG 0x0093,0x0252,0x0004,0x0000,0x0036,0xbf84,0x0000,0x018e
021a ; --------------------------------------------------------------------------------------
021a ; Debug3 Subtable 0x0
021a ; --------------------------------------------------------------------------------------
021a 0000 0000 | | .DBG3TAB 0x0000,0x0000
021c ; --------------------------------------------------------------------------------------
021c ; Debug3 Subtable 0x1
021c ; --------------------------------------------------------------------------------------
021c 0008 0008 | | .DBG3TAB 0x0008,0x0008
021e 000c ffff | | .CONST 0x000c,0xffff
0220 000d fffe | | .CONST 0x000d,0xfffe
0222 000e fffd | | .CONST 0x000e,0xfffd
0224 000f fffc | | .CONST 0x000f,0xfffc
0226 0010 fffb | | .CONST 0x0010,0xfffb
0228 0012 fffa | | .CONST 0x0012,0xfffa
022a 001b fff9 | | .CONST 0x001b,0xfff9
022c 001d fff8 | | .CONST 0x001d,0xfff8
022e 0023 0001 | # | .CONST 0x0023,0x0001
0230 0026 0002 | & | .CONST 0x0026,0x0002
0232 002a 0003 | * | .CONST 0x002a,0x0003
0234 002c 0004 | , | .CONST 0x002c,0x0004
0236 002e 0005 | . | .CONST 0x002e,0x0005
0238 002f 0006 | / | .CONST 0x002f,0x0006
023a 0033 0007 | 3 | .CONST 0x0033,0x0007
023c 0038 0008 | 8 | .CONST 0x0038,0x0008
023e ; --------------------------------------------------------------------------------------
023e ; Debug3 Subtable 0x2
023e ; --------------------------------------------------------------------------------------
023e 0000 0001 | | .DBG3TAB 0x0000,0x0001
0240 004b 0001 | K | .CONST 0x004b,0x0001
0242 ; --------------------------------------------------------------------------------------
0242 ; Debug3 Subtable 0x3
0242 ; --------------------------------------------------------------------------------------
0242 0000 0001 | | .DBG3TAB 0x0000,0x0001
0244 005b 0001 | [ | .CONST 0x005b,0x0001
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug3 Subtable 0x4
0246 ; --------------------------------------------------------------------------------------
0246 0000 0001 | | .DBG3TAB 0x0000,0x0001
0248 0063 0001 | c | .CONST 0x0063,0x0001
024a ; --------------------------------------------------------------------------------------
024a ; Debug3 Subtable 0x5
024a ; --------------------------------------------------------------------------------------
024a 0000 0003 | | .DBG3TAB 0x0000,0x0003
024c 0073 0001 | s | .CONST 0x0073,0x0001
024e 0080 0002 | | .CONST 0x0080,0x0002
0250 0085 0003 | | .CONST 0x0085,0x0003
0252 ; --------------------------------------------------------------------------------------
0252 ; Debug3 Subtable 0x6
0252 ; --------------------------------------------------------------------------------------
0252 0000 000c | | .DBG3TAB 0x0000,0x000c
0254 0093 0001 | | .CONST 0x0093,0x0001
0256 0096 0002 | | .CONST 0x0096,0x0002
0258 009b 0003 | | .CONST 0x009b,0x0003
025a 00a0 0004 | | .CONST 0x00a0,0x0004
025c 00a5 0005 | | .CONST 0x00a5,0x0005
025e 00aa 0006 | | .CONST 0x00aa,0x0006
0260 00af 0007 | | .CONST 0x00af,0x0007
0262 00b2 0008 | | .CONST 0x00b2,0x0008
0264 00bc 0009 | | .CONST 0x00bc,0x0009
0266 00c4 000a | | .CONST 0x00c4,0x000a
0268 00c9 000b | | .CONST 0x00c9,0x000b
026a 00d0 000c | | .CONST 0x00d0,0x000c
026c 0000 0000 | | .BLANK 0000[0x194]