|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_1224c3
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 00b8 | | .CONST 0x00b8 ; 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 002b | + | .CONST 0x002b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000a | | .CONST 0x000a ; Number of locals
000b INIT_0008:
000b e007 | | Load 0x0,0x7
000c 02c7 | | Declare_Variable Any
000d 00d8 | | Load_Top At_Offset_0
000e 1c00 | | Execute_Immediate Run_Utility,0x0
000f e021 | ! | Load 0x0,0x21
0010 02c7 | | Declare_Variable Any
0011 00d8 | | Load_Top At_Offset_0
0012 1c00 | | Execute_Immediate Run_Utility,0x0
0013 e022 | " | Load 0x0,0x22
0014 02c7 | | Declare_Variable Any
0015 00d8 | | Load_Top At_Offset_0
0016 1c00 | | Execute_Immediate Run_Utility,0x0
0017 e023 | # | Load 0x0,0x23
0018 02c7 | | Declare_Variable Any
0019 00d8 | | Load_Top At_Offset_0
001a 1c00 | | Execute_Immediate Run_Utility,0x0
001b e023 | # | Load 0x0,0x23
001c 02c7 | | Declare_Variable Any
001d 00d8 | | Load_Top At_Offset_0
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f e023 | # | Load 0x0,0x23
0020 02c7 | | Declare_Variable Any
0021 00d8 | | Load_Top At_Offset_0
0022 1c00 | | Execute_Immediate Run_Utility,0x0
0023 e00f | | Load 0x0,0xf
0024 0007 | | Action Break_Optional
0025 e024 | $ | Load 0x0,0x24
0026 02c7 | | Declare_Variable Any
0027 00d8 | | Load_Top At_Offset_0
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 e00c | | Load 0x0,0xc
002a 0007 | | Action Break_Optional
002b BODY_0008:
002b 4801 |H | Short_Literal 0x1
002c e00a | | Load 0x0,0xa
002d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
002e 0092 008c | | Action Push_String_Extended,0x8c ; "+++ Received registration "
0030 e5ff | | Load 0x2,-0x1
0031 8015 | | Call 0x0,0x15
0032 8018 | | Call 0x0,0x18
0033 01cc | | Execute Vector,Catenate
0034 e00a | | Load 0x0,0xa
0035 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0036 e5ff | | Load 0x2,-0x1
0037 8015 | | Call 0x0,0x15
0038 8025 | % | Call 0x0,0x25
0039 c404 | | Store 0x2,0x4
003a 00d9 | | Load_Top At_Offset_1
003b e404 | | Load 0x2,0x4
003c 8026 | & | Call 0x0,0x26
003d c409 | | Store 0x2,0x9
003e 00d9 | | Load_Top At_Offset_1
003f 8027 | ' | Call 0x0,0x27
0040 c405 | | Store 0x2,0x5
0041 00d9 | | Load_Top At_Offset_1
0042 8028 | ( | Call 0x0,0x28
0043 c409 | | Store 0x2,0x9
0044 00d9 | | Load_Top At_Offset_1
0045 8027 | ' | Call 0x0,0x27
0046 c406 | | Store 0x2,0x6
0047 e406 | | Load 0x2,0x6
0048 8029 | ) | Call 0x0,0x29
0049 00e5 | | Load_Encached Long_Integer_Cache
004a 00e0 | | Load_Encached Standard_Cache
004b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
004c 00d8 | | Load_Top At_Offset_0
004d e00b | | Load 0x0,0xb
004e 0260 | ` | Execute Discrete,In_Type
004f 7001 |p | Jump_Nonzero 0x51
0050 0801 | | Execute_Immediate Raise,0x1
0051 e405 | | Load 0x2,0x5
0052 8029 | ) | Call 0x0,0x29
0053 802a | * | Call 0x0,0x2a
0054 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0055 00da | | Load_Top At_Offset_2
0056 802b | + | Call 0x0,0x2b
0057 00e0 | | Load_Encached Standard_Cache
0058 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0059 e035 | 5 | Load 0x0,0x35
005a e036 | 6 | Load 0x0,0x36
005b 802e | . | Call 0x0,0x2e
005c c407 | | Store 0x2,0x7
005d 802f | / | Call 0x0,0x2f
005e c404 | | Store 0x2,0x4
005f e404 | | Load 0x2,0x4
0060 4801 |H | Short_Literal 0x1
0061 e407 | | Load 0x2,0x7
0062 8030 | 0 | Call 0x0,0x30
0063 c404 | | Store 0x2,0x4
0064 e404 | | Load 0x2,0x4
0065 e037 | 7 | Load 0x0,0x37
0066 8032 | 2 | Call 0x0,0x32
0067 c403 | | Store 0x2,0x3
0068 e403 | | Load 0x2,0x3
0069 8005 | | Call 0x0,0x5
006a 802b | + | Call 0x0,0x2b
006b e408 | | Load 0x2,0x8
006c 802b | + | Call 0x0,0x2b
006d 4804 |H | Short_Literal 0x4
006e 8033 | 3 | Call 0x0,0x33
006f c402 | | Store 0x2,0x2
0070 e00c | | Load 0x0,0xc
0071 6016 |` | Indirect_Literal Discrete,0x88,{0x00000000, 0x00000ccd}
0072 480a |H | Short_Literal 0xa
0073 e408 | | Load 0x2,0x8
0074 8006 | | Call 0x0,0x6
0075 e408 | | Load 0x2,0x8
0076 8010 | | Call 0x0,0x10
0077 e402 | | Load 0x2,0x2
0078 8011 | | Call 0x0,0x11
0079 8012 | | Call 0x0,0x12
007a 0059 | Y | Store_Top Discrete,At_Offset_1
007b 00d8 | | Load_Top At_Offset_0
007c 7005 |p | Jump_Nonzero 0x82
007d 0092 008d | | Action Push_String_Extended,0x8d ; "+++ BEHAVIOR REGISTERED"
007f e00a | | Load 0x0,0xa
0080 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0081 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0082 0092 008e | | Action Push_String_Extended,0x8e ; "*** BEHAVIOR NOT REGISTERED"
0084 e00a | | Load 0x0,0xa
0085 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0086 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0087 0000 | | .XXX[0x1]
0088 0000 0000 | | .LITERAL {0x00000000, 0x00000ccd}
008c ; --------------------------------------------------------------------------------------
008c ; STRING TABLE
008c ; --------------------------------------------------------------------------------------
008c 0008 | | .STRTAB 0x0008->0x0090 ; "+++ Received registration "
008d 0020 | | .STRTAB 0x0020->0x009d ; "+++ BEHAVIOR REGISTERED"
008e 0035 | 5 | .STRTAB 0x0035->0x00a8 ; "*** BEHAVIOR NOT REGISTERED"
008f 004e | N | .STREND 0x004e->0x00b6
0090 2b2b 2b20 |+++ | .STRTAB_STRINGS
00b6 0000 0000 | | .XXX[0x2]
00b8 ; --------------------------------------------------------------------------------------
00b8 ; Debug Table
00b8 ; --------------------------------------------------------------------------------------
00b8 0004 0009 | | .DEBUG4 0x0004,0x0009,0x9138,0x0000,0x0001,0x0001
00be 000b 00c2 | | .DBG4T 0x000b,0x00c2,0x0001,0x0000
00c2 ; --------------------------------------------------------------------------------------
00c2 ; Debug chain
00c2 ; --------------------------------------------------------------------------------------
00c2 0009 0011 | | .DBGLEN 0x0009,0x0011
00c4 000b 000f | | .DBGLNO 0x000b,0x000f,0x0013,0x0017,0x001b,0x001f,0x0023,0x0025,0x0029,0x002b,0x002e,0x0036,0x003a,0x003e,0x0041,0x0044,0x0047,0x0055,0x005d,0x005f,0x0064,0x0068,0x0070,0x007b,0x007d,0x0082
00de 0000 0000 | | .BLANK 0000[0x122]