|
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 0040 | @ | .CONST 0x0040 ; 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 0011 | | .CONST 0x0011 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0002 | | .CONST 0x0002 ; Number of locals
000b INIT_0008:
000b 00da | | Load_Top At_Offset_2
000c 2621 |&! | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
000d 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
000e e211 | | Load 0x1,0x11
000f 8024 | $ | Call 0x0,0x24
0010 801f | | Call 0x0,0x1f
0011 BODY_0008:
0011 0092 002c | ,| Action Push_String_Extended,0x2c ; " message_type="
0013 e010 | | Load 0x0,0x10
0014 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0015 00db | | Load_Top At_Offset_3
0016 2621 |&! | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
0017 3404 |4 | Execute Record,Field_Reference,Field_Number 0x4
0018 8215 | | Call 0x1,0x15
0019 0092 002d | -| Action Push_String_Extended,0x2d ; " ("
001b e010 | | Load 0x0,0x10
001c 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
001d 00d8 | | Load_Top At_Offset_0
001e e010 | | Load 0x0,0x10
001f 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0020 0092 002e | .| Action Push_String_Extended,0x2e ; "), format="
0022 e010 | | Load 0x0,0x10
0023 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0024 00db | | Load_Top At_Offset_3
0025 2621 |&! | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x21
0026 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0027 822f | / | Call 0x1,0x2f
0028 4801 |H | Short_Literal 0x1
0029 e010 | | Load 0x0,0x10
002a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
002b 4502 |E | Exit_Suprogram New_Top_Offset 0x2
002c ; --------------------------------------------------------------------------------------
002c ; STRING TABLE
002c ; --------------------------------------------------------------------------------------
002c 0008 | | .STRTAB 0x0008->0x0030 ; " message_type="
002d 0017 | | .STRTAB 0x0017->0x0038 ; " ("
002e 0017 | | .STRTAB 0x0017->0x0039 ; "), format="
002f 001f | | .STREND 0x001f->0x003e
0030 2020 2020 | | .STRTAB_STRINGS
003f 0000 | | .XXX[0x1]
0040 ; --------------------------------------------------------------------------------------
0040 ; Debug Table
0040 ; --------------------------------------------------------------------------------------
0040 0004 0000 | | .DEBUG4 0x0004,0x0000,0x686b,0x0000,0x0001,0x0001
0046 000b 004a | J| .DBG4T 0x000b,0x004a,0x0001,0x0000
004a ; --------------------------------------------------------------------------------------
004a ; Debug chain
004a ; --------------------------------------------------------------------------------------
004a 0001 0007 | | .DBGLEN 0x0001,0x0007
004c 000b 0011 | | .DBGLNO 0x000b,0x0011,0x0015,0x0019,0x001d,0x0020,0x0024,0x0028
0054 0000 0000 | | .BLANK 0000[0x1ac]