|
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_6148f2
└─⟦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 0078 | x | .CONST 0x0078 ; 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 000b | | .CONST 0x000b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b BODY_0008:
000b INIT_0008:
000b 0092 0050 | P| Action Push_String_Extended,0x50 ; " x/y=("
000d e010 | | Load 0x0,0x10
000e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
000f 00da | | Load_Top At_Offset_2
0010 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0011 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0012 822e | . | Call 0x1,0x2e
0013 482c |H, | Short_Literal 0x2c
0014 e010 | | Load 0x0,0x10
0015 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0016 00da | | Load_Top At_Offset_2
0017 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0018 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0019 822e | . | Call 0x1,0x2e
001a 0092 0051 | Q| Action Push_String_Extended,0x51 ; "), width="
001c e010 | | Load 0x0,0x10
001d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
001e 00da | | Load_Top At_Offset_2
001f 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0020 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0021 822e | . | Call 0x1,0x2e
0022 0092 0052 | R| Action Push_String_Extended,0x52 ; ", height="
0024 e010 | | Load 0x0,0x10
0025 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0026 00da | | Load_Top At_Offset_2
0027 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0028 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0029 822e | . | Call 0x1,0x2e
002a 0092 0053 | S| Action Push_String_Extended,0x53 ; ", count="
002c e010 | | Load 0x0,0x10
002d 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
002e 00da | | Load_Top At_Offset_2
002f 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
0030 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0031 822e | . | Call 0x1,0x2e
0032 482c |H, | Short_Literal 0x2c
0033 e010 | | Load 0x0,0x10
0034 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
0035 4801 |H | Short_Literal 0x1
0036 e010 | | Load 0x0,0x10
0037 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0038 0092 0054 | T| Action Push_String_Extended,0x54 ; " major="
003a e010 | | Load 0x0,0x10
003b 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
003c 00da | | Load_Top At_Offset_2
003d 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
003e 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
003f e025 | % | Load 0x0,0x25
0040 011c | | Execute Any,Convert_Unchecked
0041 1c01 | | Execute_Immediate Run_Utility,0x1
0042 e010 | | Load 0x0,0x10
0043 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0044 0092 0055 | U| Action Push_String_Extended,0x55 ; ", minor="
0046 e010 | | Load 0x0,0x10
0047 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0048 00da | | Load_Top At_Offset_2
0049 260d |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xd
004a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
004b 822e | . | Call 0x1,0x2e
004c 4801 |H | Short_Literal 0x1
004d e010 | | Load 0x0,0x10
004e 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
004f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0050 ; --------------------------------------------------------------------------------------
0050 ; STRING TABLE
0050 ; --------------------------------------------------------------------------------------
0050 000e | | .STRTAB 0x000e->0x0057 ; " x/y=("
0051 0015 | | .STRTAB 0x0015->0x005b ; "), width="
0052 001c | | .STRTAB 0x001c->0x0060 ; ", height="
0053 0023 | # | .STRTAB 0x0023->0x0064 ; ", count="
0054 0029 | ) | .STRTAB 0x0029->0x0068 ; " major="
0055 0031 | 1 | .STRTAB 0x0031->0x006d ; ", minor="
0056 0037 | 7 | .STREND 0x0037->0x0071
0057 2020 2020 | | .STRTAB_STRINGS
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; Debug Table
0078 ; --------------------------------------------------------------------------------------
0078 0004 0000 | | .DEBUG4 0x0004,0x0000,0x6874,0x0000,0x0001,0x0001
007e 000b 0082 | | .DBG4T 0x000b,0x0082,0x0001,0x0000
0082 ; --------------------------------------------------------------------------------------
0082 ; Debug chain
0082 ; --------------------------------------------------------------------------------------
0082 0000 0011 | | .DBGLEN 0x0000,0x0011
0084 000b 000f | | .DBGLNO 0x000b,0x000f,0x0013,0x0016,0x001a,0x001e,0x0022,0x0026,0x002a,0x002e,0x0032,0x0035,0x0038,0x003c,0x0044,0x0048,0x004c
0095 0000 0000 | | .BLANK 0000[0x16b]