|
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, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_779ce4
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 00b0 | | .CONST 0x00b0 ; 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 0018 | | .CONST 0x0018 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000f | | .CONST 0x000f ; Number of locals 000b INIT_0008: 000b 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated 000d 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 000f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0011 00bf | | Action Accept_Activation 0012 1d0d | | Execute_Immediate Reference_Lex_1,0xd 0013 00c7 | | Action Elaborate_Subprogram 0014 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0015 00c7 | | Action Elaborate_Subprogram 0016 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0017 00c7 | | Action Elaborate_Subprogram 0018 BODY_0008: 0018 00bc | | Action Signal_Activated 0019 00bb | | Action Signal_Completion 001a 0000 0000 | | .BLANK 0000[0x6] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 00da | | Load_Top At_Offset_2 0024 01db | | Execute Vector,Length 0025 7002 |p | Jump_Nonzero 0x28 0026 4800 |H | Short_Literal 0x0 0027 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0028 00cf | | Action Mark_Auxiliary 0029 00db | | Load_Top At_Offset_3 002a 01dc | | Execute Vector,Last 002b e5ff | | Load 0x2,-0x1 002c 01dd | | Execute Vector,First 002d 0263 | c | Execute Discrete,Above_Bound 002e 7011 |p | Jump_Nonzero 0x40 002f 00d8 | | Load_Top At_Offset_0 0030 e5ff | | Load 0x2,-0x1 0031 01d7 | | Execute Vector,Field_Read 0032 00d8 | | Load_Top At_Offset_0 0033 4861 |Ha | Short_Literal 0x61 0034 487a |Hz | Short_Literal 0x7a 0035 0262 | b | Execute Discrete,In_Range 0036 7006 |p | Jump_Nonzero 0x3d 0037 4841 |HA | Short_Literal 0x41 0038 485a |HZ | Short_Literal 0x5a 0039 0262 | b | Execute Discrete,In_Range 003a 7003 |p | Jump_Nonzero 0x3e 003b 4800 |H | Short_Literal 0x0 003c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 003d 00d1 | | Pop_Control Pop_Count_1 003e 00c8 | | Action Pop_Auxiliary_Range 003f 3fef |? | Loop_Increasing 0x2f 0040 00ce | | Action Pop_Auxiliary 0041 4801 |H | Short_Literal 0x1 0042 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0043 0000 0000 | | .BLANK 0000[0x5] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 004b | K | .CONST 0x004b ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0001 | | .CONST 0x0001 ; Number of locals 004b BODY_0048: 004b INIT_0048: 004b 00da | | Load_Top At_Offset_2 004c 01db | | Execute Vector,Length 004d 7002 |p | Jump_Nonzero 0x50 004e 4800 |H | Short_Literal 0x0 004f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0050 00cf | | Action Mark_Auxiliary 0051 00db | | Load_Top At_Offset_3 0052 01dc | | Execute Vector,Last 0053 e5ff | | Load 0x2,-0x1 0054 01dd | | Execute Vector,First 0055 0263 | c | Execute Discrete,Above_Bound 0056 7019 |p | Jump_Nonzero 0x70 0057 00d8 | | Load_Top At_Offset_0 0058 e5ff | | Load 0x2,-0x1 0059 01d7 | | Execute Vector,Field_Read 005a 00d8 | | Load_Top At_Offset_0 005b 0d41 | A | Execute_Immediate Less,0x41 005c 700a |p | Jump_Nonzero 0x67 005d 00d8 | | Load_Top At_Offset_0 005e 0c5b | [ | Execute_Immediate Greater_Equal,0x5b 005f 7002 |p | Jump_Nonzero 0x62 0060 00d1 | | Pop_Control Pop_Count_1 0061 780c |x | Jump 0x6e 0062 4861 |Ha | Short_Literal 0x61 0063 487a |Hz | Short_Literal 0x7a 0064 0262 | b | Execute Discrete,In_Range 0065 7008 |p | Jump_Nonzero 0x6e 0066 7805 |x | Jump 0x6c 0067 4830 |H0 | Short_Literal 0x30 0068 4839 |H9 | Short_Literal 0x39 0069 0262 | b | Execute Discrete,In_Range 006a 7003 |p | Jump_Nonzero 0x6e 006b 7800 |x | Jump 0x6c 006c 4800 |H | Short_Literal 0x0 006d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 006e 00c8 | | Action Pop_Auxiliary_Range 006f 3fe7 |? | Loop_Increasing 0x57 0070 00ce | | Action Pop_Auxiliary 0071 4801 |H | Short_Literal 0x1 0072 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0073 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 007c 01db | | Execute Vector,Length 007d 7002 |p | Jump_Nonzero 0x80 007e 4800 |H | Short_Literal 0x0 007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0080 00cf | | Action Mark_Auxiliary 0081 00db | | Load_Top At_Offset_3 0082 01dc | | Execute Vector,Last 0083 e5ff | | Load 0x2,-0x1 0084 01dd | | Execute Vector,First 0085 0263 | c | Execute Discrete,Above_Bound 0086 701f |p | Jump_Nonzero 0xa6 0087 00d8 | | Load_Top At_Offset_0 0088 e5ff | | Load 0x2,-0x1 0089 01d7 | | Execute Vector,Field_Read 008a 00d8 | | Load_Top At_Offset_0 008b 0d5b | [ | Execute_Immediate Less,0x5b 008c 7009 |p | Jump_Nonzero 0x96 008d 00d8 | | Load_Top At_Offset_0 008e 0c61 | a | Execute_Immediate Greater_Equal,0x61 008f 7003 |p | Jump_Nonzero 0x93 0090 0f5f | _ | Execute_Immediate Equal,0x5f 0091 7012 |p | Jump_Nonzero 0xa4 0092 780f |x | Jump 0xa2 0093 0c7b | { | Execute_Immediate Greater_Equal,0x7b 0094 680f |h | Jump_Zero 0xa4 0095 780c |x | Jump 0xa2 0096 00d8 | | Load_Top At_Offset_0 0097 4830 |H0 | Short_Literal 0x30 0098 4839 |H9 | Short_Literal 0x39 0099 0262 | b | Execute Discrete,In_Range 009a 7005 |p | Jump_Nonzero 0xa0 009b 4841 |HA | Short_Literal 0x41 009c 485a |HZ | Short_Literal 0x5a 009d 0262 | b | Execute Discrete,In_Range 009e 7005 |p | Jump_Nonzero 0xa4 009f 7802 |x | Jump 0xa2 00a0 00d1 | | Pop_Control Pop_Count_1 00a1 7802 |x | Jump 0xa4 00a2 4800 |H | Short_Literal 0x0 00a3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a4 00c8 | | Action Pop_Auxiliary_Range 00a5 3fe1 |? | Loop_Increasing 0x87 00a6 00ce | | Action Pop_Auxiliary 00a7 4801 |H | Short_Literal 0x1 00a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00a9 0000 0000 | | .BLANK 0000[0x7] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; Debug Table 00b0 ; -------------------------------------------------------------------------------------- 00b0 0004 000a | | .DEBUG4 0x0004,0x000a,0x6fdd,0x0000,0x0001,0x0000 00b6 0000 0000 | | .BLANK 0000[0x14a]