|
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_1188cd9
└─⟦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 00d8 | | .CONST 0x00d8 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0016 | | .CONST 0x0016 ; Number of locals 000b INIT_0008: 000b e001 | | Load 0x0,0x1 000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 000d 02c6 | | Declare_Variable Any,Visible 000e 00d8 | | Load_Top At_Offset_0 000f 1c00 | | Execute_Immediate Run_Utility,0x0 0010 e001 | | Load 0x0,0x1 0011 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0012 02c6 | | Declare_Variable Any,Visible 0013 00d8 | | Load_Top At_Offset_0 0014 1c00 | | Execute_Immediate Run_Utility,0x0 0015 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated 0017 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0019 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated 001b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 001d 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated 001f 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 0021 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated 0023 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated 0025 00bf | | Action Accept_Activation 0026 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0027 00c7 | | Action Elaborate_Subprogram 0028 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0029 00c7 | | Action Elaborate_Subprogram 002a 1d11 | | Execute_Immediate Reference_Lex_1,0x11 002b 00c7 | | Action Elaborate_Subprogram 002c 1d12 | | Execute_Immediate Reference_Lex_1,0x12 002d 00c7 | | Action Elaborate_Subprogram 002e 1d13 | | Execute_Immediate Reference_Lex_1,0x13 002f 00c7 | | Action Elaborate_Subprogram 0030 1d14 | | Execute_Immediate Reference_Lex_1,0x14 0031 00c7 | | Action Elaborate_Subprogram 0032 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0033 00c7 | | Action Elaborate_Subprogram 0034 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0035 00c7 | | Action Elaborate_Subprogram 0036 BODY_0008: 0036 00bc | | Action Signal_Activated 0037 00bb | | Action Signal_Completion 0038 ; -------------------------------------------------------------------------------------- 0038 ; SUBPROGRAM 0038 ; -------------------------------------------------------------------------------------- 0038 003b | ; | .CONST 0x003b ; Address of begin 0039 0004 | | .CONST 0x0004 ; Address of exception handler 003a 0001 | | .CONST 0x0001 ; Number of locals 003b BODY_0038: 003b INIT_0038: 003b e20d | | Load 0x1,0xd 003c 00ea | | Load_Encached Null_String_Cache 003d 0092 00c7 | | Action Push_String_Extended,0xc7 ; "SCRIPT WINDOW" 003f 4801 |H | Short_Literal 0x1 0040 e001 | | Load 0x0,0x1 0041 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0042 c20d | | Store 0x1,0xd 0043 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0044 0000 0000 | | .BLANK 0000[0x4] 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 e20d | | Load 0x1,0xd 004c e001 | | Load 0x0,0x1 004d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 004e c20d | | Store 0x1,0xd 004f 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e20e | | Load 0x1,0xe 0054 00ea | | Load_Encached Null_String_Cache 0055 0092 00c7 | | Action Push_String_Extended,0xc7 ; "SCRIPT WINDOW" 0057 4800 |H | Short_Literal 0x0 0058 e001 | | Load 0x0,0x1 0059 180f | | Execute Package,Field_Execute,Field_Number 0xf 005a c20e | | Store 0x1,0xe 005b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 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 e20e | | Load 0x1,0xe 0064 e001 | | Load 0x0,0x1 0065 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0066 c20e | | Store 0x1,0xe 0067 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0068 ; -------------------------------------------------------------------------------------- 0068 ; SUBPROGRAM 0068 ; -------------------------------------------------------------------------------------- 0068 006b | k | .CONST 0x006b ; Address of begin 0069 0004 | | .CONST 0x0004 ; Address of exception handler 006a 0001 | | .CONST 0x0001 ; Number of locals 006b BODY_0068: 006b INIT_0068: 006b e20e | | Load 0x1,0xe 006c e001 | | Load 0x0,0x1 006d 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006e 6801 |h | Jump_Zero 0x70 006f 8212 | | Call 0x1,0x12 0070 e20d | | Load 0x1,0xd 0071 e001 | | Load 0x0,0x1 0072 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0073 c20d | | Store 0x1,0xd 0074 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0075 0000 0000 | | .XXX[0x3] 0077 0000 | | 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 4800 |H | Short_Literal 0x0 007c 4801 |H | Short_Literal 0x1 007d 4801 |H | Short_Literal 0x1 007e e20d | | Load 0x1,0xd 007f e001 | | Load 0x0,0x1 0080 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 0081 e20d | | Load 0x1,0xd 0082 e001 | | Load 0x0,0x1 0083 183c | < | Execute Package,Field_Execute,Field_Number 0x3c 0084 e20d | | Load 0x1,0xd 0085 e001 | | Load 0x0,0x1 0086 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 0087 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0088 ; -------------------------------------------------------------------------------------- 0088 ; SUBPROGRAM 0088 ; -------------------------------------------------------------------------------------- 0088 008b | | .CONST 0x008b ; Address of begin 0089 0004 | | .CONST 0x0004 ; Address of exception handler 008a 0001 | | .CONST 0x0001 ; Number of locals 008b BODY_0088: 008b INIT_0088: 008b 00da | | Load_Top At_Offset_2 008c 0092 00c8 | | Action Push_String_Extended,0xc8 ; "Field_3" 008e e20d | | Load 0x1,0xd 008f e001 | | Load 0x0,0x1 0090 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31 0091 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0092 0000 0000 | | .BLANK 0000[0x6] 0098 ; -------------------------------------------------------------------------------------- 0098 ; SUBPROGRAM 0098 ; -------------------------------------------------------------------------------------- 0098 009d | | .CONST 0x009d ; Address of begin 0099 0004 | | .CONST 0x0004 ; Address of exception handler 009a 0002 | | .CONST 0x0002 ; Number of locals 009b INIT_0098: 009b 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 009d BODY_0098: 009d 4800 |H | Short_Literal 0x0 009e e5fd | | Load 0x2,-0x3 009f e5fe | | Load 0x2,-0x2 00a0 e20d | | Load 0x1,0xd 00a1 e001 | | Load 0x0,0x1 00a2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00a3 4801 |H | Short_Literal 0x1 00a4 e002 | | Load 0x0,0x2 00a5 1b10 | | Execute Package,Field_Read,Field_Number 0x10 00a6 e5ff | | Load 0x2,-0x1 00a7 e20d | | Load 0x1,0xd 00a8 e001 | | Load 0x0,0x1 00a9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29 00aa 4800 |H | Short_Literal 0x0 00ab e5fd | | Load 0x2,-0x3 00ac e5fe | | Load 0x2,-0x2 00ad e20e | | Load 0x1,0xe 00ae e001 | | Load 0x0,0x1 00af 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00b0 00ea | | Load_Encached Null_String_Cache 00b1 e20e | | Load 0x1,0xe 00b2 e001 | | Load 0x0,0x1 00b3 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30 00b4 8402 | | Call 0x2,0x2 00b5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00b6 0000 0000 | | .XXX[0x2] 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 4800 |H | Short_Literal 0x0 00bc e5fd | | Load 0x2,-0x3 00bd e5fe | | Load 0x2,-0x2 00be e20d | | Load 0x1,0xd 00bf e001 | | Load 0x0,0x1 00c0 1823 | # | Execute Package,Field_Execute,Field_Number 0x23 00c1 4801 |H | Short_Literal 0x1 00c2 e20d | | Load 0x1,0xd 00c3 e001 | | Load 0x0,0x1 00c4 182c | , | Execute Package,Field_Execute,Field_Number 0x2c 00c5 00da | | Load_Top At_Offset_2 00c6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00c7 ; -------------------------------------------------------------------------------------- 00c7 ; STRING TABLE 00c7 ; -------------------------------------------------------------------------------------- 00c7 0006 | | .STRTAB 0x0006->0x00ca ; "SCRIPT WINDOW" 00c8 0011 | | .STRTAB 0x0011->0x00d0 ; "Field_3" 00c9 0016 | | .STREND 0x0016->0x00d4 00ca 5343 5249 |SCRI| .STRTAB_STRINGS 00d4 0000 0000 | | .BLANK 0000[0x4] 00d8 ; -------------------------------------------------------------------------------------- 00d8 ; Debug Table 00d8 ; -------------------------------------------------------------------------------------- 00d8 0004 0006 | | .DEBUG4 0x0004,0x0006,0xeb80,0x0000,0x0001,0x0000 00de 0000 0000 | | .BLANK 0000[0x122]