|
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 - metrics - download
Length: 2048 (0x800)
Types: SEG
Notes: 5805_R1K_CODE
Names: »1015826.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─⟦this⟧ »1015826.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─⟦this⟧ »1015826.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─⟦this⟧ »1015826.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─⟦this⟧ »1015826.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─⟦this⟧ »1015826.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5805 |X | .CONST 0x5805 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01d8 | | .CONST 0x01d8 ; 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 0070 | p | .CONST 0x0070 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001b | | .CONST 0x001b ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x020a,0x8000,0x0000,0x000d,0xf2e4,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4805 |H | Short_Literal 0x5
000f e001 | | Load 0x0,0x1
0010 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0011 035c | \ | Declare_Type Array,Constrained,Visible
0012 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x3 = 0x12,0xfffc
0013 484b |HK | Short_Literal 0x4b
0014 e001 | | Load 0x0,0x1
0015 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0016 035c | \ | Declare_Type Array,Constrained,Visible
0017 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x0.0x4 = 0x17,0xfffb
0018 00d9 | | Load_Top At_Offset_1
0019 02a0 | | Declare_Subprogram Null_Subprogram
001a 4802 |H | Short_Literal 0x2
001b 032e | . | Declare_Type Record,Defined,Visible
001c 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x5 = 0x1c,0xfffa
001d 0336 | 6 | Declare_Variable Array,Visible
001e 4800 |H | Short_Literal 0x0
001f 4805 |H | Short_Literal 0x5
0020 e001 | | Load 0x0,0x1
0021 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0022 0334 | 4 | Declare_Variable Array,With_Constraint
0023 4805 |H | Short_Literal 0x5
0024 4800 |H | Short_Literal 0x0
0025 4820 |H | Short_Literal 0x20
0026 00d9 | | Load_Top At_Offset_1
0027 e211 | | Load 0x1,0x11
0028 01d6 | | Execute Vector,Field_Write
0029 3ffb |? | Loop_Increasing 0x25
002a 00d9 | | Load_Top At_Offset_1
002b 01d4 | | Execute Vector,Structure_Write
002c 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x6 = 0x2c,0xfff9
002d 0336 | 6 | Declare_Variable Array,Visible
002e 4800 |H | Short_Literal 0x0
002f 484b |HK | Short_Literal 0x4b
0030 e001 | | Load 0x0,0x1
0031 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0032 0334 | 4 | Declare_Variable Array,With_Constraint
0033 484b |HK | Short_Literal 0x4b
0034 4800 |H | Short_Literal 0x0
0035 4820 |H | Short_Literal 0x20
0036 00d9 | | Load_Top At_Offset_1
0037 e212 | | Load 0x1,0x12
0038 01d6 | | Execute Vector,Field_Write
0039 3ffb |? | Loop_Increasing 0x35
003a 00d9 | | Load_Top At_Offset_1
003b 01d4 | | Execute Vector,Structure_Write
003c 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x7 = 0x3c,0xfff8
003d 0322 | " | Declare_Variable Record
003e 00da | | Load_Top At_Offset_2
003f e20d | | Load 0x1,0xd
0040 0119 | | Execute Any,Check_In_Formal_Type
0041 00d9 | | Load_Top At_Offset_1
0042 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0043 00d9 | | Load_Top At_Offset_1
0044 e20e | | Load 0x1,0xe
0045 0119 | | Execute Any,Check_In_Formal_Type
0046 00d9 | | Load_Top At_Offset_1
0047 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0048 0129 | ) | Execute Any,Make_Visible
0049 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x49,0xfff7
004a 4802 |H | Short_Literal 0x2
004b 029f 007b | {| Declare_Subprogram For_Call,INIT_0078
004d 03fe | | Declare_Type Discrete,Defined,Visible
004e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x4e,0xfff6
004f 4802 |H | Short_Literal 0x2
0050 029f 0093 | | Declare_Subprogram For_Call,INIT_0090
0052 03fe | | Declare_Type Discrete,Defined,Visible
0053 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0xa = 0x53,0xfff5
0054 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0055 0129 | ) | Execute Any,Make_Visible
0056 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0xb = 0x56,0xfff4
0057 4800 |H | Short_Literal 0x0
0058 e001 | | Load 0x0,0x1
0059 1b12 | | Execute Package,Field_Read,Field_Number 0x12
005a 0334 | 4 | Declare_Variable Array,With_Constraint
005b 0129 | ) | Execute Any,Make_Visible
005c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xc = 0x5c,0xfff3
005d 4804 |H | Short_Literal 0x4
005e 029f 00ab | | Declare_Subprogram For_Call,INIT_00a8
0060 03fe | | Declare_Type Discrete,Defined,Visible
0061 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0x61,0xfff2
0062 4808 |H | Short_Literal 0x8
0063 029f 00c3 | | Declare_Subprogram For_Call,INIT_00c0
0065 03fe | | Declare_Type Discrete,Defined,Visible
0066 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xe = 0x66,0xfff1
0067 4803 |H | Short_Literal 0x3
0068 029f 00db | | Declare_Subprogram For_Call,INIT_00d8
006a 03fe | | Declare_Type Discrete,Defined,Visible
006b 6088 |` | Indirect_Literal Discrete,0xf4,{0x00000000, 0x0df2e401} ; Debug Table 0x0.0xf = 0x6b,0xfff0
006c 0129 | ) | Execute Any,Make_Visible
006d 6082 |` | Indirect_Literal Discrete,0xf0,{0x00000000, 0x0df2e402} ; Debug Table 0x0.0x10 = 0x6d,0xffef
006e 0129 | ) | Execute Any,Make_Visible
006f 00bf | | Action Accept_Activation
0070 BODY_0008:
0070 00bc | | Action Signal_Activated
0071 00bb | | Action Signal_Completion
0072 0000 0000 | | .BLANK 0000[0x6]
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 4603 |F | Jump_Case 0x3 ; Debug Table 0x1 = .DEBUG 0x007b,0x022e,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0061
007c 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
007d 7802 |x | Jump 0x80 ; case 0x1
007e 7805 |x | Jump 0x84 ; case 0x2
007f 7809 |x | Jump 0x89 ; case 0x3
0080 00da | | Load_Top At_Offset_2
0081 0091 00f8 | | Action Push_String_Extended_Indexed,0xf8 ; "READING"
0083 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
0084 00db | | Load_Top At_Offset_3
0085 00db | | Load_Top At_Offset_3
0086 00e0 | | Load_Encached Standard_Cache
0087 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0088 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
0089 00da | | Load_Top At_Offset_2
008a 00e0 | | Load_Encached Standard_Cache
008b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
008c 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 4603 |F | Jump_Case 0x3 ; Debug Table 0x2 = .DEBUG 0x0093,0x0230,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0068
0094 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
0095 7802 |x | Jump 0x98 ; case 0x1
0096 7805 |x | Jump 0x9c ; case 0x2
0097 7809 |x | Jump 0xa1 ; case 0x3
0098 00da | | Load_Top At_Offset_2
0099 0091 00fb | | Action Push_String_Extended_Indexed,0xfb ; "UNLABELED_TAPE"
009b 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
009c 00db | | Load_Top At_Offset_3
009d 00db | | Load_Top At_Offset_3
009e 00e0 | | Load_Encached Standard_Cache
009f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00a0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00a1 00da | | Load_Top At_Offset_2
00a2 00e0 | | Load_Encached Standard_Cache
00a3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00a4 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00a5 0000 0000 | | .XXX[0x3]
00a7 0000 | |
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab 4603 |F | Jump_Case 0x3 ; Debug Table 0x3 = .DEBUG 0x00ab,0x0232,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0081
00ac 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00ad 7802 |x | Jump 0xb0 ; case 0x1
00ae 7805 |x | Jump 0xb4 ; case 0x2
00af 7809 |x | Jump 0xb9 ; case 0x3
00b0 00da | | Load_Top At_Offset_2
00b1 0091 00fe | | Action Push_String_Extended_Indexed,0xfe ; "MOUNTED"
00b3 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00b4 00db | | Load_Top At_Offset_3
00b5 00db | | Load_Top At_Offset_3
00b6 00e0 | | Load_Encached Standard_Cache
00b7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00b9 00da | | Load_Top At_Offset_2
00ba 00e0 | | Load_Encached Standard_Cache
00bb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00bc 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
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 4603 |F | Jump_Case 0x3 ; Debug Table 0x4 = .DEBUG 0x00c3,0x0234,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x008a
00c4 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00c5 7802 |x | Jump 0xc8 ; case 0x1
00c6 7805 |x | Jump 0xcc ; case 0x2
00c7 7809 |x | Jump 0xd1 ; case 0x3
00c8 00da | | Load_Top At_Offset_2
00c9 0091 0103 | | Action Push_String_Extended_Indexed,0x103 ; "DRIVE_NOT_ONLINE"
00cb 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00cc 00db | | Load_Top At_Offset_3
00cd 00db | | Load_Top At_Offset_3
00ce 00e0 | | Load_Encached Standard_Cache
00cf 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d0 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00d1 00da | | Load_Top At_Offset_2
00d2 00e0 | | Load_Encached Standard_Cache
00d3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00d4 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 4603 |F | Jump_Case 0x3 ; Debug Table 0x5 = .DEBUG 0x00db,0x0236,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0097
00dc 4302 |C | Exit_Subprogram From_Utility,0x2 ; case 0x0
00dd 7802 |x | Jump 0xe0 ; case 0x1
00de 7805 |x | Jump 0xe4 ; case 0x2
00df 7809 |x | Jump 0xe9 ; case 0x3
00e0 00da | | Load_Top At_Offset_2
00e1 0091 010c | | Action Push_String_Extended_Indexed,0x10c ; "SUCCESSFUL"
00e3 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00e4 00db | | Load_Top At_Offset_3
00e5 00db | | Load_Top At_Offset_3
00e6 00e0 | | Load_Encached Standard_Cache
00e7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00e8 4202 |B | Exit_Subprogram From_Utility,With_Result,0x2
00e9 00da | | Load_Top At_Offset_2
00ea 00e0 | | Load_Encached Standard_Cache
00eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00ec 4201 |B | Exit_Subprogram From_Utility,With_Result,0x1
00ed 0000 0000 | | .XXX[0x3]
00ef 0000 | |
00f0 0000 0000 | | .LITERAL {0x00000000, 0x0df2e402}
00f4 0000 0000 | | .LITERAL {0x00000000, 0x0df2e401}
00f8 ; --------------------------------------------------------------------------------------
00f8 ; STRING TABLE
00f8 ; --------------------------------------------------------------------------------------
00f8 0032 | 2 | .STRTAB 0x0032->0x0111 ; "READING"
00f9 0037 | 7 | .STRTAB 0x0037->0x0114 ; "WRITING"
00fa 003c | < | .STRTAB 0x003c->0x0118 ; "UPDATE"
00fb 0040 | @ | .STRTAB 0x0040->0x011b ; "UNLABELED_TAPE"
00fc 004c | L | .STRTAB 0x004c->0x0122 ; "STRAIGHT_ANSI"
00fd 0057 | W | .STRTAB 0x0057->0x0128 ; "CHAINED_ANSI"
00fe 0061 | a | .STRTAB 0x0061->0x012e ; "MOUNTED"
00ff 0066 | f | .STRTAB 0x0066->0x0132 ; "NO_DRIVE_AVAILABLE"
0100 0076 | v | .STRTAB 0x0076->0x013b ; "DESIRED_DRIVE_UNAVAILABLE"
0101 008d | | .STRTAB 0x008d->0x0147 ; "DESIRED_VOLUME_NOT_FOUND"
0102 00a3 | | .STRTAB 0x00a3->0x0153 ; "VOL_ACCESS_DENIED"
0103 00b2 | | .STRTAB 0x00b2->0x015c ; "DRIVE_NOT_ONLINE"
0104 00c0 | | .STRTAB 0x00c0->0x0164 ; "DRIVE_DOES_NOT_EXIST"
0105 00d2 | | .STRTAB 0x00d2->0x016e ; "MISSING_WRITE_RING"
0106 00e2 | | .STRTAB 0x00e2->0x0177 ; "VOL_IDS_DO_NOT_MATCH"
0107 00f4 | | .STRTAB 0x00f4->0x0181 ; "VOLUME_NOT_EMPTY"
0108 0102 | | .STRTAB 0x0102->0x0189 ; "DRIVE_ALREADY_IN_USE"
0109 0114 | | .STRTAB 0x0114->0x0193 ; "VOLUME_ERROR"
010a 011e | | .STRTAB 0x011e->0x0199 ; "UNRECOVERABLE_TAPE_ERROR"
010b 0134 | 4 | .STRTAB 0x0134->0x01a5 ; "WRONG_DRIVE"
010c 013d | = | .STRTAB 0x013d->0x01aa ; "SUCCESSFUL"
010d 0145 | E | .STRTAB 0x0145->0x01af ; "DESIRED_DRIVE_UNAVAILABLE"
010e 015c | \ | .STRTAB 0x015c->0x01bc ; "DESIRED_VOLUME_NOT_FOUND"
010f 0172 | r | .STRTAB 0x0172->0x01c8 ; "VOL_ACCESS_DENIED"
0110 0181 | | .STREND 0x0181->0x01d0
0111 5245 4144 |READ| .STRTAB_STRINGS
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0003 0006 | | .CONST 0x0003,0x0006
01da 000b 020a | | .DEBUG 0x000b,0x020a,0x8000,0x0000,0x000d,0xf2e4,0x0000,0x0007
01e2 007b 022e | { .| .DEBUG 0x007b,0x022e,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0061
01ea 0093 0230 | 0| .DEBUG 0x0093,0x0230,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0068
01f2 00ab 0232 | 2| .DEBUG 0x00ab,0x0232,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0081
01fa 00c3 0234 | 4| .DEBUG 0x00c3,0x0234,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x008a
0202 00db 0236 | 6| .DEBUG 0x00db,0x0236,0x0005,0x0000,0x000d,0xf2e4,0x0000,0x0097
020a ; --------------------------------------------------------------------------------------
020a ; Debug3 Subtable 0x0
020a ; --------------------------------------------------------------------------------------
020a 0011 0000 | | .DBG3TAB 0x0011,0x0000
020c 000b ffff | | .CONST 0x000b,0xffff
020e 000c fffe | | .CONST 0x000c,0xfffe
0210 000d fffd | | .CONST 0x000d,0xfffd
0212 0012 fffc | | .CONST 0x0012,0xfffc
0214 0017 fffb | | .CONST 0x0017,0xfffb
0216 001c fffa | | .CONST 0x001c,0xfffa
0218 002c fff9 | , | .CONST 0x002c,0xfff9
021a 003c fff8 | < | .CONST 0x003c,0xfff8
021c 0049 fff7 | I | .CONST 0x0049,0xfff7
021e 004e fff6 | N | .CONST 0x004e,0xfff6
0220 0053 fff5 | S | .CONST 0x0053,0xfff5
0222 0056 fff4 | V | .CONST 0x0056,0xfff4
0224 005c fff3 | \ | .CONST 0x005c,0xfff3
0226 0061 fff2 | a | .CONST 0x0061,0xfff2
0228 0066 fff1 | f | .CONST 0x0066,0xfff1
022a 006b fff0 | k | .CONST 0x006b,0xfff0
022c 006d ffef | m | .CONST 0x006d,0xffef
022e ; --------------------------------------------------------------------------------------
022e ; Debug3 Subtable 0x1
022e ; --------------------------------------------------------------------------------------
022e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug3 Subtable 0x2
0230 ; --------------------------------------------------------------------------------------
0230 0000 0000 | | .DBG3TAB 0x0000,0x0000
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x3
0232 ; --------------------------------------------------------------------------------------
0232 0000 0000 | | .DBG3TAB 0x0000,0x0000
0234 ; --------------------------------------------------------------------------------------
0234 ; Debug3 Subtable 0x4
0234 ; --------------------------------------------------------------------------------------
0234 0000 0000 | | .DBG3TAB 0x0000,0x0000
0236 ; --------------------------------------------------------------------------------------
0236 ; Debug3 Subtable 0x5
0236 ; --------------------------------------------------------------------------------------
0236 0000 0000 | | .DBG3TAB 0x0000,0x0000
0238 0000 0000 | | .BLANK 0000[0x1c8]