|
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: 1024 (0x400)
Types: SEG
Notes: 5811_R1K_CODE
Names: »1048595.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1048595.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1048595.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1048595.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1048595.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1048595.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 0098 | | .CONST 0x0098 ; 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 0100 | | .CONST 0x0100 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 004e | N | .CONST 0x004e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0 = .DEBUG 0x000b,0x00b2,0x8000,0x0000,0x0037,0x16a4,0x0000,0x0009
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 4820 |H | Short_Literal 0x20
000d 00e2 | | Load_Encached Integer_Cache
000e 03f9 | | Declare_Type Discrete,Constrained,Visible
000f 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x1 = 0xf,0xfffe
0010 4820 |H | Short_Literal 0x20
0011 00e1 | | Load_Encached Boolean_Cache
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 4801 |H | Short_Literal 0x1
0014 035e | ^ | Declare_Type Array,Defined,Visible
0015 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x2 = 0x15,0xfffd
0016 0336 | 6 | Declare_Variable Array,Visible
0017 00d9 | | Load_Top At_Offset_1
0018 0337 | 7 | Declare_Variable Array
0019 4820 |H | Short_Literal 0x20
001a 4800 |H | Short_Literal 0x0
001b 4800 |H | Short_Literal 0x0
001c 00d9 | | Load_Top At_Offset_1
001d e210 | | Load 0x1,0x10
001e 01d6 | | Execute Vector,Field_Write
001f 3ffb |? | Loop_Increasing 0x1b
0020 00d9 | | Load_Top At_Offset_1
0021 01d4 | | Execute Vector,Structure_Write
0022 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x3 = 0x22,0xfffc
0023 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0024 0129 | ) | Execute Any,Make_Visible
0025 00db | | Load_Top At_Offset_3 ; Debug Table 0x0.0x4 = 0x25,0xfffb
0026 00d9 | | Load_Top At_Offset_1
0027 00e1 | | Load_Encached Boolean_Cache
0028 02a0 | | Declare_Subprogram Null_Subprogram
0029 4803 |H | Short_Literal 0x3
002a 032e | . | Declare_Type Record,Defined,Visible
002b 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x2b,0xfffa
002c 6053 |`S | Indirect_Literal Discrete,0x80,{0x00000000, 0x00000400}
002d 00e3 | | Load_Encached Natural_Cache
002e 03f9 | | Declare_Type Discrete,Constrained,Visible
002f 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x6 = 0x2f,0xfff9
0030 604f |`O | Indirect_Literal Discrete,0x80,{0x00000000, 0x00000400}
0031 00e4 | | Load_Encached Positive_Cache
0032 03f9 | | Declare_Type Discrete,Constrained,Visible
0033 e002 | | Load 0x0,0x2 ; Debug Table 0x0.0x7 = 0x33,0xfff8
0034 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0035 0129 | ) | Execute Any,Make_Visible
0036 00da | | Load_Top At_Offset_2 ; Debug Table 0x0.0x8 = 0x36,0xfff7
0037 4801 |H | Short_Literal 0x1
0038 6047 |`G | Indirect_Literal Discrete,0x80,{0x00000000, 0x00000400}
0039 00db | | Load_Top At_Offset_3
003a 035c | \ | Declare_Type Array,Constrained,Visible
003b 02a0 | | Declare_Subprogram Null_Subprogram
003c 4802 |H | Short_Literal 0x2
003d 032e | . | Declare_Type Record,Defined,Visible
003e e211 | | Load 0x1,0x11 ; Debug Table 0x0.0x9 = 0x3e,0xfff6
003f 00d9 | | Load_Top At_Offset_1
0040 02a0 | | Declare_Subprogram Null_Subprogram
0041 4802 |H | Short_Literal 0x2
0042 032e | . | Declare_Type Record,Defined,Visible
0043 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xa = 0x43,0xfff5
0044 4801 |H | Short_Literal 0x1
0045 029f 0053 | S| Declare_Subprogram INIT_0050,For_Call
0047 03fe | | Declare_Type Discrete,Defined,Visible
0048 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0xb = 0x48,0xfff4
0049 4801 |H | Short_Literal 0x1
004a 029f 006b | k| Declare_Subprogram INIT_0068,For_Call
004c 03fe | | Declare_Type Discrete,Defined,Visible
004d 00bf | | Action Accept_Activation
004e BODY_0008:
004e 00bc | | Action Signal_Activated
004f 00bb | | Action Signal_Completion
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4603 |F | Jump_Case 0x4 ; Debug Table 0x1 = .DEBUG 0x0053,0x00cc,0x0005,0x0000,0x0037,0x16a4,0x0000,0x007b
0054 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0055 7802 |x | Jump 0x58 ; case 0x1
0056 7805 |x | Jump 0x5c ; case 0x2
0057 7809 |x | Jump 0x61 ; case 0x3
0058 00da | | Load_Top At_Offset_2
0059 0091 0084 | | Action Push_String_Extended_Indexed,0x84 ; "OK"
005b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
005c 00db | | Load_Top At_Offset_3
005d 00db | | Load_Top At_Offset_3
005e 00e0 | | Load_Encached Standard_Cache
005f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0060 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0061 00da | | Load_Top At_Offset_2
0062 00e0 | | Load_Encached Standard_Cache
0063 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0064 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0065 0000 0000 | | .XXX[0x3]
0067 0000 | |
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b 4603 |F | Jump_Case 0x4 ; Debug Table 0x2 = .DEBUG 0x006b,0x00ce,0x0005,0x0000,0x0037,0x16a4,0x0000,0x0081
006c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
006d 7802 |x | Jump 0x70 ; case 0x1
006e 7805 |x | Jump 0x74 ; case 0x2
006f 7809 |x | Jump 0x79 ; case 0x3
0070 00da | | Load_Top At_Offset_2
0071 0091 0086 | | Action Push_String_Extended_Indexed,0x86 ; "OK"
0073 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0074 00db | | Load_Top At_Offset_3
0075 00db | | Load_Top At_Offset_3
0076 00e0 | | Load_Encached Standard_Cache
0077 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0078 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0079 00da | | Load_Top At_Offset_2
007a 00e0 | | Load_Encached Standard_Cache
007b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
007c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
007d 0000 0000 | | .XXX[0x3]
007f 0000 | |
0080 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
0084 ; --------------------------------------------------------------------------------------
0084 ; STRING TABLE
0084 ; --------------------------------------------------------------------------------------
0084 000a | | .STRTAB 0x000a->0x0089 ; "OK"
0085 000a | | .STRTAB 0x000a->0x008a ; "BUFFER_FULL"
0086 0013 | | .STRTAB 0x0013->0x008f ; "OK"
0087 0013 | | .STRTAB 0x0013->0x0090 ; "BUFFER_EMPTY"
0088 001d | | .STREND 0x001d->0x0096
0089 4f4b 4255 |OKBU| .STRTAB_STRINGS
0097 0000 | | .XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; Debug Table
0098 ; --------------------------------------------------------------------------------------
0098 0003 0003 | | .CONST 0x0003,0x0003
009a 000b 00b2 | | .DEBUG 0x000b,0x00b2,0x8000,0x0000,0x0037,0x16a4,0x0000,0x0009
00a2 0053 00cc | S | .DEBUG 0x0053,0x00cc,0x0005,0x0000,0x0037,0x16a4,0x0000,0x007b
00aa 006b 00ce | k | .DEBUG 0x006b,0x00ce,0x0005,0x0000,0x0037,0x16a4,0x0000,0x0081
00b2 ; --------------------------------------------------------------------------------------
00b2 ; Debug3 Subtable 0x0
00b2 ; --------------------------------------------------------------------------------------
00b2 000c 0000 | | .DBG3TAB 0x000c,0x0000
00b4 000b ffff | | .CONST 0x000b,0xffff
00b6 000f fffe | | .CONST 0x000f,0xfffe
00b8 0015 fffd | | .CONST 0x0015,0xfffd
00ba 0022 fffc | " | .CONST 0x0022,0xfffc
00bc 0025 fffb | % | .CONST 0x0025,0xfffb
00be 002b fffa | + | .CONST 0x002b,0xfffa
00c0 002f fff9 | / | .CONST 0x002f,0xfff9
00c2 0033 fff8 | 3 | .CONST 0x0033,0xfff8
00c4 0036 fff7 | 6 | .CONST 0x0036,0xfff7
00c6 003e fff6 | > | .CONST 0x003e,0xfff6
00c8 0043 fff5 | C | .CONST 0x0043,0xfff5
00ca 0048 fff4 | H | .CONST 0x0048,0xfff4
00cc ; --------------------------------------------------------------------------------------
00cc ; Debug3 Subtable 0x1
00cc ; --------------------------------------------------------------------------------------
00cc 0000 0000 | | .DBG3TAB 0x0000,0x0000
00ce ; --------------------------------------------------------------------------------------
00ce ; Debug3 Subtable 0x2
00ce ; --------------------------------------------------------------------------------------
00ce 0000 0000 | | .DBG3TAB 0x0000,0x0000
00d0 0000 0000 | | .BLANK 0000[0x130]