|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
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 0068 | h | .CONST 0x0068 ; 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 0010 | | .CONST 0x0010 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0001 | | .CONST 0x0001 ; Number of locals 000b INIT_0008: 000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x007a,0x8000,0x0000,0x002c,0xb604,0x0000,0x0003 000d 00bf | | Action Accept_Activation 000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 000f 00c7 | | Action Elaborate_Subprogram 0010 BODY_0008: 0010 00bc | | Action Signal_Activated 0011 00bb | | Action Signal_Completion 0012 0000 0000 | | .BLANK 0000[0x6] 0018 ; -------------------------------------------------------------------------------------- 0018 ; SUBPROGRAM 0018 ; -------------------------------------------------------------------------------------- 0018 001b | | .CONST 0x001b ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0001 | | .CONST 0x0001 ; Number of locals 001b BODY_0018: 001b INIT_0018: 001b e5f4 | | Load 0x2,-0xc ; Debug Table 0x1 = .DEBUG 0x001b,0x007c,0xa801,0x0002,0x002c,0xb604,0x0000,0x0003 ; Debug Table 0x1.0x0 = 0x1b,0x1 001c e5f5 | | Load 0x2,-0xb 001d 0119 | | Execute Any,Check_In_Formal_Type 001e 85f6 | | Call 0x2,-0xa 001f 0c01 | | Execute_Immediate Greater_Equal,0x1 0020 6841 |hA | Jump_Zero 0x62 0021 e5f2 | | Load 0x2,-0xe ; Debug Table 0x1.0x1 = 0x21,0x2 0022 6825 |h% | Jump_Zero 0x48 0023 e5f3 | | Load 0x2,-0xd ; Debug Table 0x1.0x2 = 0x23,0x3 0024 01db | | Execute Vector,Length 0025 6804 |h | Jump_Zero 0x2a 0026 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x3 = 0x26,0x4 0027 4800 |H | Short_Literal 0x0 0028 e5f3 | | Load 0x2,-0xd 0029 85f8 | | Call 0x2,-0x8 002a 85fc | | Call 0x2,-0x4 ; Debug Table 0x1.0x4 = 0x2a,0x5 002b e5f4 | | Load 0x2,-0xc ; Debug Table 0x1.0x5 = 0x2b,0x6 002c e5f5 | | Load 0x2,-0xb 002d 0119 | | Execute Any,Check_In_Formal_Type 002e 85f6 | | Call 0x2,-0xa 002f 4801 |H | Short_Literal 0x1 0030 0263 | c | Execute Discrete,Above_Bound 0031 7014 |p | Jump_Nonzero 0x46 0032 85fe | | Call 0x2,-0x2 ; Debug Table 0x1.0x6 = 0x32,0x7 0033 0092 0063 | c| Action Push_String_Extended,0x63 ; " " 0035 85fa | | Call 0x2,-0x6 0036 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x7 = 0x36,0x8 0037 e5f4 | | Load 0x2,-0xc 0038 e5f5 | | Load 0x2,-0xb 0039 0119 | | Execute Any,Check_In_Formal_Type 003a 85f7 | | Call 0x2,-0x9 003b e5f1 | | Load 0x2,-0xf ; Debug Table 0x1.0x8 = 0x3b,0x9 003c 7007 |p | Jump_Nonzero 0x44 003d 00d8 | | Load_Top At_Offset_0 003e e5f4 | | Load 0x2,-0xc 003f e5f5 | | Load 0x2,-0xb 0040 0119 | | Execute Any,Check_In_Formal_Type 0041 85f6 | | Call 0x2,-0xa 0042 027c | | | Execute Discrete,Less 0043 6801 |h | Jump_Zero 0x45 0044 85fb | | Call 0x2,-0x5 ; Debug Table 0x1.0x9 = 0x44,0xa 0045 3fec |? | Loop_Increasing 0x32 0046 85fd | | Call 0x2,-0x3 ; Debug Table 0x1.0xa = 0x46,0xb 0047 4510 |E | Exit_Suprogram New_Top_Offset 0x10 0048 e5f3 | | Load 0x2,-0xd ; Debug Table 0x1.0xb = 0x48,0xc 0049 01db | | Execute Vector,Length 004a 6804 |h | Jump_Zero 0x4f 004b 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0xc = 0x4b,0xd 004c 4800 |H | Short_Literal 0x0 004d e5f3 | | Load 0x2,-0xd 004e 85f8 | | Call 0x2,-0x8 004f e5f4 | | Load 0x2,-0xc ; Debug Table 0x1.0xd = 0x4f,0xe 0050 e5f5 | | Load 0x2,-0xb 0051 0119 | | Execute Any,Check_In_Formal_Type 0052 85f6 | | Call 0x2,-0xa 0053 4801 |H | Short_Literal 0x1 0054 0263 | c | Execute Discrete,Above_Bound 0055 7009 |p | Jump_Nonzero 0x5f 0056 0092 0063 | c| Action Push_String_Extended,0x63 ; " " ; Debug Table 0x1.0xe = 0x56,0xf 0058 85f9 | | Call 0x2,-0x7 0059 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0xf = 0x59,0x10 005a e5f4 | | Load 0x2,-0xc 005b e5f5 | | Load 0x2,-0xb 005c 0119 | | Execute Any,Check_In_Formal_Type 005d 85f7 | | Call 0x2,-0x9 005e 3ff7 |? | Loop_Increasing 0x56 005f e5f1 | | Load 0x2,-0xf ; Debug Table 0x1.0x10 = 0x5f,0x11 0060 6801 |h | Jump_Zero 0x62 0061 85fb | | Call 0x2,-0x5 ; Debug Table 0x1.0x11 = 0x61,0x12 0062 4510 |E | Exit_Suprogram New_Top_Offset 0x10 0063 ; -------------------------------------------------------------------------------------- 0063 ; STRING TABLE 0063 ; -------------------------------------------------------------------------------------- 0063 0004 | | .STRTAB 0x0004->0x0065 ; " " 0064 0003 | | .STREND 0x0003->0x0065 0065 2000 | | .STRTAB_STRINGS 0066 0000 0000 | | .XXX[0x2] 0068 ; -------------------------------------------------------------------------------------- 0068 ; Debug Table 0068 ; -------------------------------------------------------------------------------------- 0068 0003 0002 | | .CONST 0x0003,0x0002 006a 000b 007a | z| .DEBUG 0x000b,0x007a,0x8000,0x0000,0x002c,0xb604,0x0000,0x0003 0072 001b 007c | || .DEBUG 0x001b,0x007c,0xa801,0x0002,0x002c,0xb604,0x0000,0x0003 007a ; -------------------------------------------------------------------------------------- 007a ; Debug3 Subtable 0x0 007a ; -------------------------------------------------------------------------------------- 007a 0000 0000 | | .DBG3TAB 0x0000,0x0000 007c ; -------------------------------------------------------------------------------------- 007c ; Debug3 Subtable 0x1 007c ; -------------------------------------------------------------------------------------- 007c 0000 0012 | | .DBG3TAB 0x0000,0x0012 007e 001b 0001 | | .CONST 0x001b,0x0001 0080 0021 0002 | ! | .CONST 0x0021,0x0002 0082 0023 0003 | # | .CONST 0x0023,0x0003 0084 0026 0004 | & | .CONST 0x0026,0x0004 0086 002a 0005 | * | .CONST 0x002a,0x0005 0088 002b 0006 | + | .CONST 0x002b,0x0006 008a 0032 0007 | 2 | .CONST 0x0032,0x0007 008c 0036 0008 | 6 | .CONST 0x0036,0x0008 008e 003b 0009 | ; | .CONST 0x003b,0x0009 0090 0044 000a | D | .CONST 0x0044,0x000a 0092 0046 000b | F | .CONST 0x0046,0x000b 0094 0048 000c | H | .CONST 0x0048,0x000c 0096 004b 000d | K | .CONST 0x004b,0x000d 0098 004f 000e | O | .CONST 0x004f,0x000e 009a 0056 000f | V | .CONST 0x0056,0x000f 009c 0059 0010 | Y | .CONST 0x0059,0x0010 009e 005f 0011 | _ | .CONST 0x005f,0x0011 00a0 0061 0012 | a | .CONST 0x0061,0x0012 00a2 0000 0000 | | .BLANK 0000[0x15e]