|
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_0698fd
└─⟦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 00d0 | | .CONST 0x00d0 ; 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 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 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 0068 | h | .CONST 0x0068 ; Address of begin 0019 0004 | | .CONST 0x0004 ; Address of exception handler 001a 0010 | | .CONST 0x0010 ; Number of locals 001b INIT_0018: 001b e001 | | Load 0x0,0x1 001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 001d 02c7 | | Declare_Variable Any 001e e5fd | | Load 0x2,-0x3 001f e001 | | Load 0x0,0x1 0020 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0021 a402 | | Store_Unchecked 0x2,0x2 0022 e001 | | Load 0x0,0x1 0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0024 02c7 | | Declare_Variable Any 0025 e5fc | | Load 0x2,-0x4 0026 e001 | | Load 0x0,0x1 0027 184b | K | Execute Package,Field_Execute,Field_Number 0x4b 0028 a403 | | Store_Unchecked 0x2,0x3 0029 e5ff | | Load 0x2,-0x1 002a e002 | | Load 0x0,0x2 002b 1813 | | Execute Package,Field_Execute,Field_Number 0x13 002c 00da | | Load_Top At_Offset_2 002d e002 | | Load 0x0,0x2 002e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 002f 00e1 | | Load_Encached Boolean_Cache 0030 e001 | | Load 0x0,0x1 0031 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0032 029e 00a3 | | Declare_Subprogram INIT_00a0,For_Call,Unelaborated 0034 029e 00ab | | Declare_Subprogram INIT_00a8,For_Call,Unelaborated 0036 029e 00bb | | Declare_Subprogram INIT_00b8,For_Call,Unelaborated 0038 029e 00c3 | | Declare_Subprogram INIT_00c0,For_Call,Unelaborated 003a e003 | | Load 0x0,0x3 003b e004 | | Load 0x0,0x4 003c e406 | | Load 0x2,0x6 003d e407 | | Load 0x2,0x7 003e 4808 |H | Short_Literal 0x8 003f 4802 |H | Short_Literal 0x2 0040 0099 | | Action Reference_Dynamic 0041 4809 |H | Short_Literal 0x9 0042 4802 |H | Short_Literal 0x2 0043 0099 | | Action Reference_Dynamic 0044 480a |H | Short_Literal 0xa 0045 4802 |H | Short_Literal 0x2 0046 0099 | | Action Reference_Dynamic 0047 480b |H | Short_Literal 0xb 0048 4802 |H | Short_Literal 0x2 0049 0099 | | Action Reference_Dynamic 004a e005 | | Load 0x0,0x5 004b 0387 | | Declare_Variable Package 004c 00d8 | | Load_Top At_Offset_0 004d 020f | | Execute Module,Activate 004e 00d8 | | Load_Top At_Offset_0 004f 1b15 | | Execute Package,Field_Read,Field_Number 0x15 0050 00e1 | | Load_Encached Boolean_Cache 0051 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0052 4801 |H | Short_Literal 0x1 0053 4880 |H | Short_Literal 0x80 0054 00e9 | | Load_Encached String_Cache 0055 035b | [ | Declare_Type Array,Constrained 0056 0337 | 7 | Declare_Variable Array 0057 00e3 | | Load_Encached Natural_Cache 0058 4808 |H | Short_Literal 0x8 0059 4802 |H | Short_Literal 0x2 005a 0099 | | Action Reference_Dynamic 005b 00c7 | | Action Elaborate_Subprogram 005c 4809 |H | Short_Literal 0x9 005d 4802 |H | Short_Literal 0x2 005e 0099 | | Action Reference_Dynamic 005f 00c7 | | Action Elaborate_Subprogram 0060 480a |H | Short_Literal 0xa 0061 4802 |H | Short_Literal 0x2 0062 0099 | | Action Reference_Dynamic 0063 00c7 | | Action Elaborate_Subprogram 0064 480b |H | Short_Literal 0xb 0065 4802 |H | Short_Literal 0x2 0066 0099 | | Action Reference_Dynamic 0067 00c7 | | Action Elaborate_Subprogram 0068 BODY_0018: 0068 00db | | Load_Top At_Offset_3 0069 e402 | | Load 0x2,0x2 006a 4800 |H | Short_Literal 0x0 006b e403 | | Load 0x2,0x3 006c e404 | | Load 0x2,0x4 006d e5fe | | Load 0x2,-0x2 006e e002 | | Load 0x0,0x2 006f 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0070 e404 | | Load 0x2,0x4 0071 e40c | | Load 0x2,0xc 0072 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0073 c40d | | Store 0x2,0xd 0074 00cf | | Action Mark_Auxiliary 0075 781c |x | Jump 0x92 0076 e404 | | Load 0x2,0x4 0077 0092 00c9 | | Action Push_String_Extended,0xc9 ; "> " 0079 01cc | | Execute Vector,Catenate 007a e006 | | Load 0x0,0x6 007b 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 007c 00e3 | | Load_Encached Natural_Cache 007d 00db | | Load_Top At_Offset_3 007e e006 | | Load 0x0,0x6 007f 1862 | b | Execute Package,Field_Execute,Field_Number 0x62 0080 00d1 | | Pop_Control Pop_Count_1 0081 005a | Z | Store_Top Discrete,At_Offset_2 0082 00d9 | | Load_Top At_Offset_1 0083 0f01 | | Execute_Immediate Equal,0x1 0084 4801 |H | Short_Literal 0x1 0085 e40f | | Load 0x2,0xf 0086 01d7 | | Execute Vector,Field_Read 0087 0f2e | . | Execute_Immediate Equal,0x2e 0088 0279 | y | Execute Discrete,And 0089 700a |p | Jump_Nonzero 0x94 008a e40d | | Load 0x2,0xd 008b 4801 |H | Short_Literal 0x1 008c 00db | | Load_Top At_Offset_3 008d e40f | | Load 0x2,0xf 008e 01cf | | Execute Vector,Slice_Read 008f e40c | | Load 0x2,0xc 0090 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0091 00c9 | | Action Pop_Auxiliary_Loop 0092 00db | | Load_Top At_Offset_3 0093 6fe2 |o | Jump_Zero 0x76 0094 00ce | | Action Pop_Auxiliary 0095 00db | | Load_Top At_Offset_3 0096 e40c | | Load 0x2,0xc 0097 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0098 c40d | | Store 0x2,0xd 0099 00da | | Load_Top At_Offset_2 009a 6803 |h | Jump_Zero 0x9e 009b e403 | | Load 0x2,0x3 009c e002 | | Load 0x0,0x2 009d 1817 | | Execute Package,Field_Execute,Field_Number 0x17 009e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 009f 0000 | | .XXX[0x1] 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 e403 | | Load 0x2,0x3 00a4 c7fd | | Store 0x3,-0x3 00a5 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00a6 0000 0000 | | .XXX[0x2] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ab | | .CONST 0x00ab ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0001 | | .CONST 0x0001 ; Number of locals 00ab BODY_00a8: 00ab INIT_00a8: 00ab e7fd | | Load 0x3,-0x3 00ac e7fe | | Load 0x3,-0x2 00ad e7ff | | Load 0x3,-0x1 00ae e007 | | Load 0x0,0x7 00af 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00b0 e7fc | | Load 0x3,-0x4 00b1 6804 |h | Jump_Zero 0xb6 00b2 e40e | | Load 0x2,0xe 00b3 7002 |p | Jump_Nonzero 0xb6 00b4 4801 |H | Short_Literal 0x1 00b5 a40e | | Store_Unchecked 0x2,0xe 00b6 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00b7 0000 | | .XXX[0x1] 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 e405 | | Load 0x2,0x5 00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00bd 0000 0000 | | .XXX[0x3] 00bf 0000 | | 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 e402 | | Load 0x2,0x2 00c4 4801 |H | Short_Literal 0x1 00c5 e7ff | | Load 0x3,-0x1 00c6 e007 | | Load 0x0,0x7 00c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00c8 4503 |E | Exit_Suprogram New_Top_Offset 0x3 00c9 ; -------------------------------------------------------------------------------------- 00c9 ; STRING TABLE 00c9 ; -------------------------------------------------------------------------------------- 00c9 0004 | | .STRTAB 0x0004->0x00cb ; "> " 00ca 0004 | | .STREND 0x0004->0x00cc 00cb 3e20 |> | .STRTAB_STRINGS 00cc 0000 0000 | | .BLANK 0000[0x4] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; Debug Table 00d0 ; -------------------------------------------------------------------------------------- 00d0 0004 0001 | | .DEBUG4 0x0004,0x0001,0xc871,0x0000,0x0001,0x0000 00d6 0000 0000 | | .BLANK 0000[0x12a]