|
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: »988179.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »988179.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »988179.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »988179.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »988179.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »988179.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 01d0 | | .CONST 0x01d0 ; 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 0101 | | .CONST 0x0101 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0202,0x8000,0x0000,0x0037,0x08a4,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 4803 |H | Short_Literal 0x3
0010 00e3 | | Load_Encached Natural_Cache
0011 03f9 | | Declare_Type Discrete,Constrained,Visible
0012 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0x12,0xfffb
0013 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x13,0xfffa
0014 60bb |` | Indirect_Literal Discrete,0xd0,{0x00000000, 0x00002000}
0015 00e3 | | Load_Encached Natural_Cache
0016 03f9 | | Declare_Type Discrete,Constrained,Visible
0017 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x6 = 0x17,0xfff9
0018 4804 |H | Short_Literal 0x4
0019 029f 005b | [| Declare_Subprogram INIT_0058,For_Call
001b 03fe | | Declare_Type Discrete,Defined,Visible
001c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x7 = 0x1c,0xfff8
001d 4801 |H | Short_Literal 0x1
001e 029f 0073 | s| Declare_Subprogram INIT_0070,For_Call
0020 03fe | | Declare_Type Discrete,Defined,Visible
0021 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x8 = 0x21,0xfff7
0022 4805 |H | Short_Literal 0x5
0023 029f 008b | | Declare_Subprogram INIT_0088,For_Call
0025 03fe | | Declare_Type Discrete,Defined,Visible
0026 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x9 = 0x26,0xfff6
0027 4802 |H | Short_Literal 0x2
0028 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call
002a 03fe | | Declare_Type Discrete,Defined,Visible
002b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xa = 0x2b,0xfff5
002c 480e |H | Short_Literal 0xe
002d 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call
002f 03fe | | Declare_Type Discrete,Defined,Visible
0030 e20e | | Load 0x1,0xe ; Debug Table 0x0.0xb = 0x30,0xfff4
0031 00da | | Load_Top At_Offset_2
0032 00e1 | | Load_Encached Boolean_Cache
0033 00db | | Load_Top At_Offset_3
0034 02a0 | | Declare_Subprogram Null_Subprogram
0035 4804 |H | Short_Literal 0x4
0036 032e | . | Declare_Type Record,Defined,Visible
0037 0007 | | Action Break_Optional ; Debug Table 0x0.0xc = 0x37,0xfff3
0038 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xd = 0x38,0xfff2
0039 4808 |H | Short_Literal 0x8
003a 00e3 | | Load_Encached Natural_Cache
003b 03f9 | | Declare_Type Discrete,Constrained,Visible
003c 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xe = 0x3c,0xfff1
003d 4808 |H | Short_Literal 0x8
003e 00e3 | | Load_Encached Natural_Cache
003f 03f9 | | Declare_Type Discrete,Constrained,Visible
0040 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0xf = 0x40,0xfff0
0041 4808 |H | Short_Literal 0x8
0042 00da | | Load_Top At_Offset_2
0043 03f9 | | Declare_Type Discrete,Constrained,Visible
0044 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x10 = 0x44,0xffef
0045 0266 | f | Execute Discrete,Bounds
0046 e001 | | Load 0x0,0x1
0047 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0048 02a0 | | Declare_Subprogram Null_Subprogram
0049 4801 |H | Short_Literal 0x1
004a 0351 | Q | Declare_Type Array,Defined,Visible,Bounds_With_Object
004b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0x11 = 0x4b,0xffee
004c 4805 |H | Short_Literal 0x5
004d e211 | | Load 0x1,0x11
004e 03f9 | | Declare_Type Discrete,Constrained,Visible
004f 00bf | | Action Accept_Activation ; Debug Table 0x0.0x12 = 0x4f,0xffed
0050 BODY_0008:
0050 00bc | | Action Signal_Activated
0051 00bb | | Action Signal_Completion
0052 0000 0000 | | .BLANK 0000[0x6]
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 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x005b,0x022a,0x0005,0x0000,0x0037,0x08a4,0x0000,0x003d
005c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
005d 7802 |x | Jump 0x60 ; case 0x1
005e 7805 |x | Jump 0x64 ; case 0x2
005f 7809 |x | Jump 0x69 ; case 0x3
0060 00da | | Load_Top At_Offset_2
0061 0091 00d4 | | Action Push_String_Extended_Indexed,0xd4 ; "SUCCESSFUL"
0063 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0064 00db | | Load_Top At_Offset_3
0065 00db | | Load_Top At_Offset_3
0066 00e0 | | Load_Encached Standard_Cache
0067 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0068 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0069 00da | | Load_Top At_Offset_2
006a 00e0 | | Load_Encached Standard_Cache
006b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
006c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
006d 0000 0000 | | .XXX[0x3]
006f 0000 | |
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x0073,0x022c,0x0005,0x0000,0x0037,0x08a4,0x0000,0x0046
0074 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0075 7802 |x | Jump 0x78 ; case 0x1
0076 7805 |x | Jump 0x7c ; case 0x2
0077 7809 |x | Jump 0x81 ; case 0x3
0078 00da | | Load_Top At_Offset_2
0079 0091 00d9 | | Action Push_String_Extended_Indexed,0xd9 ; "SUCCESSFUL"
007b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007c 00db | | Load_Top At_Offset_3
007d 00db | | Load_Top At_Offset_3
007e 00e0 | | Load_Encached Standard_Cache
007f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0080 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0081 00da | | Load_Top At_Offset_2
0082 00e0 | | Load_Encached Standard_Cache
0083 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0084 4201 |B | Exit_Subprogram From_Utility,With_Result,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 4603 |F | Jump_Case 0x4 ; Debug Table 0x3 = .DEBUG 0x008b,0x022e,0x0005,0x0000,0x0037,0x08a4,0x0000,0x004c
008c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
008d 7802 |x | Jump 0x90 ; case 0x1
008e 7805 |x | Jump 0x94 ; case 0x2
008f 7809 |x | Jump 0x99 ; case 0x3
0090 00da | | Load_Top At_Offset_2
0091 0091 00db | | Action Push_String_Extended_Indexed,0xdb ; "REWIND"
0093 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0094 00db | | Load_Top At_Offset_3
0095 00db | | Load_Top At_Offset_3
0096 00e0 | | Load_Encached Standard_Cache
0097 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0098 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0099 00da | | Load_Top At_Offset_2
009a 00e0 | | Load_Encached Standard_Cache
009b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
009c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 4603 |F | Jump_Case 0x4 ; Debug Table 0x4 = .DEBUG 0x00a3,0x0230,0x0005,0x0000,0x0037,0x08a4,0x0000,0x0056
00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00a5 7802 |x | Jump 0xa8 ; case 0x1
00a6 7805 |x | Jump 0xac ; case 0x2
00a7 7809 |x | Jump 0xb1 ; case 0x3
00a8 00da | | Load_Top At_Offset_2
00a9 0091 00e1 | | Action Push_String_Extended_Indexed,0xe1 ; "START_STOP"
00ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00ac 00db | | Load_Top At_Offset_3
00ad 00db | | Load_Top At_Offset_3
00ae 00e0 | | Load_Encached Standard_Cache
00af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00b1 00da | | Load_Top At_Offset_2
00b2 00e0 | | Load_Encached Standard_Cache
00b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb 4603 |F | Jump_Case 0x4 ; Debug Table 0x5 = .DEBUG 0x00bb,0x0232,0x0005,0x0000,0x0037,0x08a4,0x0000,0x005d
00bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00bd 7802 |x | Jump 0xc0 ; case 0x1
00be 7805 |x | Jump 0xc4 ; case 0x2
00bf 7809 |x | Jump 0xc9 ; case 0x3
00c0 00da | | Load_Top At_Offset_2
00c1 0091 00e4 | | Action Push_String_Extended_Indexed,0xe4 ; "SUCCESSFUL"
00c3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00c4 00db | | Load_Top At_Offset_3
00c5 00db | | Load_Top At_Offset_3
00c6 00e0 | | Load_Encached Standard_Cache
00c7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00c9 00da | | Load_Top At_Offset_2
00ca 00e0 | | Load_Encached Standard_Cache
00cb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00cc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
00d4 ; --------------------------------------------------------------------------------------
00d4 ; STRING TABLE
00d4 ; --------------------------------------------------------------------------------------
00d4 0040 | @ | .STRTAB 0x0040->0x00f4 ; "SUCCESSFUL"
00d5 0048 | H | .STRTAB 0x0048->0x00f9 ; "ALREADY_OPEN"
00d6 0052 | R | .STRTAB 0x0052->0x00ff ; "DOES_NOT_EXIST"
00d7 005e | ^ | .STRTAB 0x005e->0x0106 ; "UNABLE_TO_REGISTER"
00d8 006e | n | .STRTAB 0x006e->0x010f ; "NOT_ON_LINE"
00d9 0077 | w | .STRTAB 0x0077->0x0114 ; "SUCCESSFUL"
00da 007f | | .STRTAB 0x007f->0x0119 ; "NOT_OPEN"
00db 0085 | | .STRTAB 0x0085->0x011d ; "REWIND"
00dc 0089 | | .STRTAB 0x0089->0x0120 ; "UNLOAD"
00dd 008d | | .STRTAB 0x008d->0x0123 ; "SKIP_TAPE_RECORD"
00de 009b | | .STRTAB 0x009b->0x012b ; "SKIP_TAPE_RECORD_REVERSE"
00df 00b1 | | .STRTAB 0x00b1->0x0137 ; "SKIP_TAPE_MARK"
00e0 00bd | | .STRTAB 0x00bd->0x013e ; "SKIP_TAPE_MARK_REVERSE"
00e1 00d1 | | .STRTAB 0x00d1->0x0149 ; "START_STOP"
00e2 00d9 | | .STRTAB 0x00d9->0x014e ; "STREAMING_READ"
00e3 00e5 | | .STRTAB 0x00e5->0x0155 ; "STREAMING_WRITE"
00e4 00f2 | | .STRTAB 0x00f2->0x015d ; "SUCCESSFUL"
00e5 00fa | | .STRTAB 0x00fa->0x0162 ; "NOT_OPEN"
00e6 0100 | | .STRTAB 0x0100->0x0166 ; "NOT_ON_LINE"
00e7 0109 | | .STRTAB 0x0109->0x016b ; "WRONG_MODE"
00e8 0111 | | .STRTAB 0x0111->0x0170 ; "WRONG_CLIENT"
00e9 011b | | .STRTAB 0x011b->0x0176 ; "READ_FILE_MARK"
00ea 0127 | ' | .STRTAB 0x0127->0x017d ; "RECORD_TOO_LONG"
00eb 0134 | 4 | .STRTAB 0x0134->0x0185 ; "RECORD_TOO_SHORT"
00ec 0142 | B | .STRTAB 0x0142->0x018d ; "MISSING_WRITE_RING"
00ed 0152 | R | .STRTAB 0x0152->0x0196 ; "RETRY_COUNT_EXHAUSTED"
00ee 0165 | e | .STRTAB 0x0165->0x01a0 ; "WRONG_DENSITY"
00ef 0170 | p | .STRTAB 0x0170->0x01a7 ; "UNEXPECTED_TAPE_ERROR"
00f0 0183 | | .STRTAB 0x0183->0x01b1 ; "UNIT_IS_BAD"
00f1 018c | | .STRTAB 0x018c->0x01b7 ; "READ_DOUBLE_FILE_MARK"
00f2 019f | | .STRTAB 0x019f->0x01c1 ; "REVERSE_INTO_BOT"
00f3 01ad | | .STREND 0x01ad->0x01c9
00f4 5355 4343 |SUCC| .STRTAB_STRINGS
01ca 0000 0000 | | .BLANK 0000[0x6]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; Debug Table
01d0 ; --------------------------------------------------------------------------------------
01d0 0003 0006 | | .CONST 0x0003,0x0006
01d2 000b 0202 | | .DEBUG 0x000b,0x0202,0x8000,0x0000,0x0037,0x08a4,0x0000,0x0009
01da 005b 022a | [ *| .DEBUG 0x005b,0x022a,0x0005,0x0000,0x0037,0x08a4,0x0000,0x003d
01e2 0073 022c | s ,| .DEBUG 0x0073,0x022c,0x0005,0x0000,0x0037,0x08a4,0x0000,0x0046
01ea 008b 022e | .| .DEBUG 0x008b,0x022e,0x0005,0x0000,0x0037,0x08a4,0x0000,0x004c
01f2 00a3 0230 | 0| .DEBUG 0x00a3,0x0230,0x0005,0x0000,0x0037,0x08a4,0x0000,0x0056
01fa 00bb 0232 | 2| .DEBUG 0x00bb,0x0232,0x0005,0x0000,0x0037,0x08a4,0x0000,0x005d
0202 ; --------------------------------------------------------------------------------------
0202 ; Debug3 Subtable 0x0
0202 ; --------------------------------------------------------------------------------------
0202 0013 0000 | | .DBG3TAB 0x0013,0x0000
0204 000b ffff | | .CONST 0x000b,0xffff
0206 000c fffe | | .CONST 0x000c,0xfffe
0208 000d fffd | | .CONST 0x000d,0xfffd
020a 000e fffc | | .CONST 0x000e,0xfffc
020c 0012 fffb | | .CONST 0x0012,0xfffb
020e 0013 fffa | | .CONST 0x0013,0xfffa
0210 0017 fff9 | | .CONST 0x0017,0xfff9
0212 001c fff8 | | .CONST 0x001c,0xfff8
0214 0021 fff7 | ! | .CONST 0x0021,0xfff7
0216 0026 fff6 | & | .CONST 0x0026,0xfff6
0218 002b fff5 | + | .CONST 0x002b,0xfff5
021a 0030 fff4 | 0 | .CONST 0x0030,0xfff4
021c 0037 fff3 | 7 | .CONST 0x0037,0xfff3
021e 0038 fff2 | 8 | .CONST 0x0038,0xfff2
0220 003c fff1 | < | .CONST 0x003c,0xfff1
0222 0040 fff0 | @ | .CONST 0x0040,0xfff0
0224 0044 ffef | D | .CONST 0x0044,0xffef
0226 004b ffee | K | .CONST 0x004b,0xffee
0228 004f ffed | O | .CONST 0x004f,0xffed
022a ; --------------------------------------------------------------------------------------
022a ; Debug3 Subtable 0x1
022a ; --------------------------------------------------------------------------------------
022a 0000 0000 | | .DBG3TAB 0x0000,0x0000
022c ; --------------------------------------------------------------------------------------
022c ; Debug3 Subtable 0x2
022c ; --------------------------------------------------------------------------------------
022c 0000 0000 | | .DBG3TAB 0x0000,0x0000
022e ; --------------------------------------------------------------------------------------
022e ; Debug3 Subtable 0x3
022e ; --------------------------------------------------------------------------------------
022e 0000 0000 | | .DBG3TAB 0x0000,0x0000
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug3 Subtable 0x4
0230 ; --------------------------------------------------------------------------------------
0230 0000 0000 | | .DBG3TAB 0x0000,0x0000
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x5
0232 ; --------------------------------------------------------------------------------------
0232 0000 0000 | | .DBG3TAB 0x0000,0x0000
0234 0000 0000 | | .BLANK 0000[0x1cc]