|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0340e4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00f8 | | .CONST 0x00f8 ; 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 001c | | .CONST 0x001c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0005 | | .CONST 0x0005 ; Number of locals 000b INIT_0008: 000b e00d | | Load 0x0,0xd 000c 1b3c | < | Execute Package,Field_Read,Field_Number 0x3c 000d 0322 | " | Declare_Variable Record 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e00d | | Load 0x0,0xd 0011 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0012 0322 | " | Declare_Variable Record 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 e00d | | Load 0x0,0xd 0016 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24 0017 02c7 | | Declare_Variable Any 0018 00d8 | | Load_Top At_Offset_0 0019 1c00 | | Execute_Immediate Run_Utility,0x0 001a 029f 0093 | | Declare_Subprogram INIT_0090,For_Call 001c BODY_0008: 001c 4800 |H | Short_Literal 0x0 001d 0092 00a5 | | Action Push_String_Extended,0xa5 ; "Transport_Stream" 001f e00e | | Load 0x0,0xe 0020 180d | | Execute Package,Field_Execute,Field_Number 0xd 0021 8405 | | Call 0x2,0x5 0022 00da | | Load_Top At_Offset_2 0023 e5ff | | Load 0x2,-0x1 0024 e00d | | Load 0x0,0xd 0025 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0026 00d1 | | Pop_Control Pop_Count_1 0027 00cf | | Action Mark_Auxiliary 0028 780c |x | Jump 0x35 0029 4800 |H | Short_Literal 0x0 002a e403 | | Load 0x2,0x3 002b e00d | | Load 0x0,0xd 002c 1814 | | Execute Package,Field_Execute,Field_Number 0x14 002d e00e | | Load 0x0,0xe 002e 180d | | Execute Package,Field_Execute,Field_Number 0xd 002f 8405 | | Call 0x2,0x5 0030 00db | | Load_Top At_Offset_3 0031 e00d | | Load 0x0,0xd 0032 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0033 00d1 | | Pop_Control Pop_Count_1 0034 00c9 | | Action Pop_Auxiliary_Loop 0035 00db | | Load_Top At_Offset_3 0036 e00d | | Load 0x0,0xd 0037 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0038 6ff0 |o | Jump_Zero 0x29 0039 00ce | | Action Pop_Auxiliary 003a 4801 |H | Short_Literal 0x1 003b 4800 |H | Short_Literal 0x0 003c e5fe | | Load 0x2,-0x2 003d e013 | | Load 0x0,0x13 003e 180f | | Execute Package,Field_Execute,Field_Number 0xf 003f e00e | | Load 0x0,0xe 0040 180f | | Execute Package,Field_Execute,Field_Number 0xf 0041 8405 | | Call 0x2,0x5 0042 00db | | Load_Top At_Offset_3 0043 e5ff | | Load 0x2,-0x1 0044 e00d | | Load 0x0,0xd 0045 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0046 00d1 | | Pop_Control Pop_Count_1 0047 00cf | | Action Mark_Auxiliary 0048 7838 |x8 | Jump 0x81 0049 e402 | | Load 0x2,0x2 004a e00d | | Load 0x0,0xd 004b 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 004c c404 | | Store 0x2,0x4 004d 00da | | Load_Top At_Offset_2 004e e214 | | Load 0x1,0x14 004f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0050 702b |p+ | Jump_Nonzero 0x7c 0051 4801 |H | Short_Literal 0x1 0052 0092 00a6 | | Action Push_String_Extended,0xa6 ; "Into : Transport_Stream.Stream_Id; \x0aData : " 0054 e404 | | Load 0x2,0x4 0055 e00d | | Load 0x0,0xd 0056 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0057 01cc | | Execute Vector,Catenate 0058 4800 |H | Short_Literal 0x0 0059 0092 00a7 | | Action Push_String_Extended,0xa7 ; "Put" 005b e00e | | Load 0x0,0xe 005c 1811 | | Execute Package,Field_Execute,Field_Number 0x11 005d 8405 | | Call 0x2,0x5 005e 00da | | Load_Top At_Offset_2 005f e214 | | Load 0x1,0x14 0060 180d | | Execute Package,Field_Execute,Field_Number 0xd 0061 680e |h | Jump_Zero 0x70 0062 4801 |H | Short_Literal 0x1 0063 0092 00a8 | | Action Push_String_Extended,0xa8 ; "From : Transport_Stream.Stream_Id; \x0aData : out " 0065 e404 | | Load 0x2,0x4 0066 e00d | | Load 0x0,0xd 0067 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0068 01cc | | Execute Vector,Catenate 0069 4800 |H | Short_Literal 0x0 006a 0092 00a9 | | Action Push_String_Extended,0xa9 ; "Get" 006c e00e | | Load 0x0,0xe 006d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 006e 8405 | | Call 0x2,0x5 006f 780c |x | Jump 0x7c 0070 4801 |H | Short_Literal 0x1 0071 00db | | Load_Top At_Offset_3 0072 e00d | | Load 0x0,0xd 0073 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0074 0092 00aa | | Action Push_String_Extended,0xaa ; "From : Transport_Stream.Stream_Id" 0076 4800 |H | Short_Literal 0x0 0077 0092 00a9 | | Action Push_String_Extended,0xa9 ; "Get" 0079 e00e | | Load 0x0,0xe 007a 1812 | | Execute Package,Field_Execute,Field_Number 0x12 007b 8405 | | Call 0x2,0x5 007c e402 | | Load 0x2,0x2 007d e00d | | Load 0x0,0xd 007e 1841 | A | Execute Package,Field_Execute,Field_Number 0x41 007f 00d1 | | Pop_Control Pop_Count_1 0080 00c9 | | Action Pop_Auxiliary_Loop 0081 e402 | | Load 0x2,0x2 0082 e00d | | Load 0x0,0xd 0083 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 0084 6fc4 |o | Jump_Zero 0x49 0085 00ce | | Action Pop_Auxiliary 0086 4800 |H | Short_Literal 0x0 0087 00ea | | Load_Encached Null_String_Cache 0088 e00e | | Load 0x0,0xe 0089 1819 | | Execute Package,Field_Execute,Field_Number 0x19 008a 8405 | | Call 0x2,0x5 008b 4504 |E | Exit_Suprogram New_Top_Offset 0x4 008c 0000 0000 | | .BLANK 0000[0x4] 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 00da | | Load_Top At_Offset_2 0094 e5fd | | Load 0x2,-0x3 0095 e015 | | Load 0x0,0x15 0096 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 0097 00db | | Load_Top At_Offset_3 0098 0c01 | | Execute_Immediate Greater_Equal,0x1 0099 680a |h | Jump_Zero 0xa4 009a 00db | | Load_Top At_Offset_3 009b 00d8 | | Load_Top At_Offset_0 009c e015 | | Load 0x0,0x15 009d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 009e 0260 | ` | Execute Discrete,In_Type 009f 7001 |p | Jump_Nonzero 0xa1 00a0 0801 | | Execute_Immediate Raise,0x1 00a1 e5fd | | Load 0x2,-0x3 00a2 e015 | | Load 0x0,0x15 00a3 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 00a4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a5 ; -------------------------------------------------------------------------------------- 00a5 ; STRING TABLE 00a5 ; -------------------------------------------------------------------------------------- 00a5 000e | | .STRTAB 0x000e->0x00ac ; "Transport_Stream" 00a6 001c | | .STRTAB 0x001c->0x00b4 ; "Into : Transport_Stream.Stream_Id; \x0aData : " 00a7 0046 | F | .STRTAB 0x0046->0x00ca ; "Put" 00a8 0047 | G | .STRTAB 0x0047->0x00cb ; "From : Transport_Stream.Stream_Id; \x0aData : out " 00a9 0075 | u | .STRTAB 0x0075->0x00e3 ; "Get" 00aa 0076 | v | .STRTAB 0x0076->0x00e5 ; "From : Transport_Stream.Stream_Id" 00ab 0095 | | .STREND 0x0095->0x00f5 00ac 5472 616e |Tran| .STRTAB_STRINGS 00f6 0000 0000 | | .XXX[0x2] 00f8 ; -------------------------------------------------------------------------------------- 00f8 ; Debug Table 00f8 ; -------------------------------------------------------------------------------------- 00f8 0004 0004 | | .DEBUG4 0x0004,0x0004,0x2f19,0x0000,0x0001,0x0002 00fe 000b 0106 | | .DBG4T 0x000b,0x0106,0x0001,0x4000 0102 0093 012c | ,| .DBG4T 0x0093,0x012c,0x0001,0x0000 0106 ; -------------------------------------------------------------------------------------- 0106 ; Debug chain 0106 ; -------------------------------------------------------------------------------------- 0106 0004 0010 | | .DBGLEN 0x0004,0x0010 0108 000b 0010 | | .DBGLNO 0x000b,0x0010,0x0015,0x001a,0x001c,0x0022,0x0029,0x0030,0x0035,0x003a,0x0042,0x0049,0x004d,0x0051,0x005e,0x0062,0x0070,0x007c,0x0081,0x0086 011c 0001 0002 | | .XXX[0x10] 011e 0004 0005 | | 0120 0003 0006 | | 0122 0007 0009 | | 0124 000a 000b | | 0126 000c 000d | | 0128 000e 000f | | 012a 0008 0010 | | 012c ; -------------------------------------------------------------------------------------- 012c ; Debug chain 012c ; -------------------------------------------------------------------------------------- 012c 0000 0003 | | .DBGLEN 0x0000,0x0003 012e 0093 0097 | | .DBGLNO 0x0093,0x0097,0x009a 0131 0000 0000 | | .BLANK 0000[0xcf]