|
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_09dc33
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0120 | | .CONST 0x0120 ; 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 0048 | H | .CONST 0x0048 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0019 | | .CONST 0x0019 ; Number of locals 000b INIT_0008: 000b 00e3 | | Load_Encached Natural_Cache 000c 00e1 | | Load_Encached Boolean_Cache 000d 029f 00db | | Declare_Subprogram INIT_00d8,For_Call 000f 4802 |H | Short_Literal 0x2 0010 032e | . | Declare_Type Record,Defined,Visible 0011 e001 | | Load 0x0,0x1 0012 e002 | | Load 0x0,0x2 0013 00da | | Load_Top At_Offset_2 0014 0092 00ed | | Action Push_String_Extended,0xed ; "BOXES " 0016 e003 | | Load 0x0,0x3 0017 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0018 01c7 | | Execute Vector,Convert 0019 48c8 |H | Short_Literal 0xc8 001a e003 | | Load 0x0,0x3 001b 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 001c 190f | | Execute Package,Field_Reference,Field_Number 0xf 001d e003 | | Load 0x0,0x3 001e 1b1f | | Execute Package,Field_Read,Field_Number 0x1f 001f 0386 | | Declare_Variable Package,Visible 0020 00d8 | | Load_Top At_Offset_0 0021 020f | | Execute Module,Activate 0022 e003 | | Load 0x0,0x3 0023 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0024 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0025 02fe | | Declare_Variable Variant_Record,Visible 0026 00d8 | | Load_Top At_Offset_0 0027 1c00 | | Execute_Immediate Run_Utility,0x0 0028 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 002a 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 002c 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 002e 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0030 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0032 00bf | | Action Accept_Activation 0033 029d 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call 0035 e003 | | Load 0x0,0x3 0036 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 0037 1910 | | Execute Package,Field_Reference,Field_Number 0x10 0038 00c6 | | Action Check_Subprogram_Elaborated 0039 1d15 | | Execute_Immediate Reference_Lex_1,0x15 003a e004 | | Load 0x0,0x4 003b e005 | | Load 0x0,0x5 003c 4800 |H | Short_Literal 0x0 003d 0007 | | Action Break_Optional 003e 1d10 | | Execute_Immediate Reference_Lex_1,0x10 003f 00c7 | | Action Elaborate_Subprogram 0040 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0041 00c7 | | Action Elaborate_Subprogram 0042 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0043 00c7 | | Action Elaborate_Subprogram 0044 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0045 00c7 | | Action Elaborate_Subprogram 0046 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0047 00c7 | | Action Elaborate_Subprogram 0048 BODY_0008: 0048 00bc | | Action Signal_Activated 0049 00bb | | Action Signal_Completion 004a 0000 0000 | | .BLANK 0000[0x6] 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 4800 |H | Short_Literal 0x0 0054 e20e | | Load 0x1,0xe 0055 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0056 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0057 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0058 e003 | | Load 0x0,0x3 0059 1b1d | | Execute Package,Field_Read,Field_Number 0x1d 005a 1810 | | Execute Package,Field_Execute,Field_Number 0x10 005b 00ca | | Action Exit_Nullary_Function 005c 0000 0000 | | .BLANK 0000[0x4] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 00da | | Load_Top At_Offset_2 0064 e20e | | Load 0x1,0xe 0065 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0066 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0067 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006f | o | .CONST 0x006f ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0002 | | .CONST 0x0002 ; Number of locals 006b INIT_0068: 006b e20d | | Load 0x1,0xd 006c 0322 | " | Declare_Variable Record 006d 00d8 | | Load_Top At_Offset_0 006e 1c00 | | Execute_Immediate Run_Utility,0x0 006f BODY_0068: 006f 0092 00ee | | Action Push_String_Extended,0xee ; "Taille de la boite: " 0071 e003 | | Load 0x0,0x3 0072 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0073 00db | | Load_Top At_Offset_3 0074 e20e | | Load 0x1,0xe 0075 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0076 00d9 | | Load_Top At_Offset_1 0077 017d | } | Execute Record,Structure_Write 0078 00d8 | | Load_Top At_Offset_0 0079 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 007a e003 | | Load 0x0,0x3 007b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 007c 0092 00ef | | Action Push_String_Extended,0xef ; " " 007e e003 | | Load 0x0,0x3 007f 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0080 4801 |H | Short_Literal 0x1 0081 00d9 | | Load_Top At_Offset_1 0082 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0083 00d8 | | Load_Top At_Offset_0 0084 e5ff | | Load 0x2,-0x1 0085 e20e | | Load 0x1,0xe 0086 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 0087 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008f | | .CONST 0x008f ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0002 | | .CONST 0x0002 ; Number of locals 008b INIT_0088: 008b e20d | | Load 0x1,0xd 008c 0322 | " | Declare_Variable Record 008d 00d8 | | Load_Top At_Offset_0 008e 1c00 | | Execute_Immediate Run_Utility,0x0 008f BODY_0088: 008f 00db | | Load_Top At_Offset_3 0090 e20e | | Load 0x1,0xe 0091 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0092 00d9 | | Load_Top At_Offset_1 0093 017d | } | Execute Record,Structure_Write 0094 4800 |H | Short_Literal 0x0 0095 00d9 | | Load_Top At_Offset_1 0096 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0097 00d8 | | Load_Top At_Offset_0 0098 e5ff | | Load 0x2,-0x1 0099 e20e | | Load 0x1,0xe 009a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21 009b 4502 |E | Exit_Suprogram New_Top_Offset 0x2 009c 0000 0000 | | .BLANK 0000[0x4] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a7 | | .CONST 0x00a7 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0002 | | .CONST 0x0002 ; Number of locals 00a3 INIT_00a0: 00a3 e20d | | Load 0x1,0xd 00a4 0322 | " | Declare_Variable Record 00a5 00d8 | | Load_Top At_Offset_0 00a6 1c00 | | Execute_Immediate Run_Utility,0x0 00a7 BODY_00a0: 00a7 0092 00f0 | | Action Push_String_Extended,0xf0 ; "Creation de boites vides de differentes tailles" 00a9 e003 | | Load 0x0,0x3 00aa 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00ab 00cf | | Action Mark_Auxiliary 00ac 4838 |H8 | Short_Literal 0x38 00ad 4807 |H | Short_Literal 0x7 00ae 0007 | | Action Break_Optional 00af 00d8 | | Load_Top At_Offset_0 00b0 4806 |H | Short_Literal 0x6 00b1 0271 | q | Execute Discrete,Times 00b2 e402 | | Load 0x2,0x2 00b3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00b4 00db | | Load_Top At_Offset_3 00b5 e20e | | Load 0x1,0xe 00b6 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00b7 00c8 | | Action Pop_Auxiliary_Range 00b8 3ff6 |? | Loop_Increasing 0xaf 00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ba 0000 0000 | | .BLANK 0000[0x6] 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 00da | | Load_Top At_Offset_2 00c4 e20e | | Load 0x1,0xe 00c5 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00c6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 00c7 0f00 | | Execute_Immediate Equal,0x0 00c8 00db | | Load_Top At_Offset_3 00c9 e20e | | Load 0x1,0xe 00ca 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00cc 0c32 | 2 | Execute_Immediate Greater_Equal,0x32 00cd 0279 | y | Execute Discrete,And 00ce 00db | | Load_Top At_Offset_3 00cf e20e | | Load 0x1,0xe 00d0 1820 | | Execute Package,Field_Execute,Field_Number 0x20 00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00d2 0dc9 | | Execute_Immediate Less,-0x37 00d3 0279 | y | Execute Discrete,And 00d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00d5 0000 0000 | | .XXX[0x3] 00d7 0000 | | 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; SUBPROGRAM 00d8 ; -------------------------------------------------------------------------------------- 00d8 00db | | .CONST 0x00db ; Address of begin 00d9 0004 | | .CONST 0x0004 ; Address of exception handler 00da 0001 | | .CONST 0x0001 ; Number of locals 00db BODY_00d8: 00db INIT_00d8: 00db 4608 |F | Jump_Case 0x9 00dc 7808 |x | Jump 0xe5 ; case 0x0 00dd 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1 00de 780d |x | Jump 0xec ; case 0x2 00df 780c |x | Jump 0xec ; case 0x3 00e0 780b |x | Jump 0xec ; case 0x4 00e1 780a |x | Jump 0xec ; case 0x5 00e2 7809 |x | Jump 0xec ; case 0x6 00e3 7808 |x | Jump 0xec ; case 0x7 00e4 7807 |x | Jump 0xec ; case 0x8 00e5 4801 |H | Short_Literal 0x1 00e6 00db | | Load_Top At_Offset_3 00e7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 00e8 4800 |H | Short_Literal 0x0 00e9 00db | | Load_Top At_Offset_3 00ea 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00eb 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 00ec 0869 | i | Execute_Immediate Raise,0x69 00ed ; -------------------------------------------------------------------------------------- 00ed ; STRING TABLE 00ed ; -------------------------------------------------------------------------------------- 00ed 000a | | .STRTAB 0x000a->0x00f2 ; "BOXES " 00ee 0012 | | .STRTAB 0x0012->0x00f7 ; "Taille de la boite: " 00ef 0024 | $ | .STRTAB 0x0024->0x0101 ; " " 00f0 0023 | # | .STRTAB 0x0023->0x0101 ; "Creation de boites vides de differentes tailles" 00f1 0050 | P | .STREND 0x0050->0x0119 00f2 424f 5845 |BOXE| .STRTAB_STRINGS 0119 0000 0000 | | .BLANK 0000[0x7] 0120 ; -------------------------------------------------------------------------------------- 0120 ; Debug Table 0120 ; -------------------------------------------------------------------------------------- 0120 0004 0001 | | .DEBUG4 0x0004,0x0001,0x89f4,0x0000,0x0001,0x0009 0126 000b 014a | J| .DBG4T 0x000b,0x014a,0x8000,0x0000 012a 0033 0154 | 3 T| .DBG4T 0x0033,0x0154,0x8000,0x0000 012e 0053 015d | S ]| .DBG4T 0x0053,0x015d,0x0002,0x0000 0132 0063 0160 | c `| .DBG4T 0x0063,0x0160,0x0002,0x0000 0136 006b 0163 | k c| .DBG4T 0x006b,0x0163,0x0001,0x0000 013a 008b 016c | l| .DBG4T 0x008b,0x016c,0x0001,0x0000 013e 00a3 0172 | r| .DBG4T 0x00a3,0x0172,0x0001,0x0000 0142 00c3 0179 | y| .DBG4T 0x00c3,0x0179,0x0002,0x0000 0146 00db 0000 | | .DBG4T 0x00db,0x0000,0x0005,0x0000 014a ; -------------------------------------------------------------------------------------- 014a ; Debug chain 014a ; -------------------------------------------------------------------------------------- 014a 0008 0000 | | .DBGLEN 0x0008,0x0000 014c 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0022,0x0028,0x002a,0x002c,0x002e,0x0030 0154 ; -------------------------------------------------------------------------------------- 0154 ; Debug chain 0154 ; -------------------------------------------------------------------------------------- 0154 0007 0000 | | .DBGLEN 0x0007,0x0000 0156 0033 0035 | 3 5| .DBGLNO 0x0033,0x0035,0x003e,0x0040,0x0042,0x0044,0x0046 015d ; -------------------------------------------------------------------------------------- 015d ; Debug chain 015d ; -------------------------------------------------------------------------------------- 015d 0000 0001 | | .DBGLEN 0x0000,0x0001 015f 0053 | S | .DBGLNO 0x0053 0160 ; -------------------------------------------------------------------------------------- 0160 ; Debug chain 0160 ; -------------------------------------------------------------------------------------- 0160 0000 0001 | | .DBGLEN 0x0000,0x0001 0162 0063 | c | .DBGLNO 0x0063 0163 ; -------------------------------------------------------------------------------------- 0163 ; Debug chain 0163 ; -------------------------------------------------------------------------------------- 0163 0001 0006 | | .DBGLEN 0x0001,0x0006 0165 006b 006f | k o| .DBGLNO 0x006b,0x006f,0x0073,0x0078,0x007c,0x0080,0x0083 016c ; -------------------------------------------------------------------------------------- 016c ; Debug chain 016c ; -------------------------------------------------------------------------------------- 016c 0001 0003 | | .DBGLEN 0x0001,0x0003 016e 008b 008f | | .DBGLNO 0x008b,0x008f,0x0094,0x0097 0172 ; -------------------------------------------------------------------------------------- 0172 ; Debug chain 0172 ; -------------------------------------------------------------------------------------- 0172 0001 0004 | | .DBGLEN 0x0001,0x0004 0174 00a3 00a7 | | .DBGLNO 0x00a3,0x00a7,0x00ac,0x00af,0x00b4 0179 ; -------------------------------------------------------------------------------------- 0179 ; Debug chain 0179 ; -------------------------------------------------------------------------------------- 0179 0000 0001 | | .DBGLEN 0x0000,0x0001 017b 00c3 | | .DBGLNO 0x00c3 017c 0000 0000 | | .BLANK 0000[0x84]