|
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_f4d031
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01e8 | | .CONST 0x01e8 ; 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 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00db | | .CONST 0x00db ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 0003 | | .CONST 0x0003 ; Number of locals
001b INIT_0018:
001b 00e1 | | Load_Encached Boolean_Cache
001c e001 | | Load 0x0,0x1
001d e002 | | Load 0x0,0x2
001e 0092 00e8 | | Action Push_String_Extended,0xe8 ; "RB"
0020 4803 |H | Short_Literal 0x3
0021 4800 |H | Short_Literal 0x0
0022 0092 00e9 | | Action Push_String_Extended,0xe9 ; "PACK_IT"
0024 e003 | | Load 0x0,0x3
0025 190d | | Execute Package,Field_Reference,Field_Number 0xd
0026 e004 | | Load 0x0,0x4
0027 190d | | Execute Package,Field_Reference,Field_Number 0xd
0028 0092 00ea | | Action Push_String_Extended,0xea ; "take_test"
002a e003 | | Load 0x0,0x3
002b 190e | | Execute Package,Field_Reference,Field_Number 0xe
002c e004 | | Load 0x0,0x4
002d 1911 | | Execute Package,Field_Reference,Field_Number 0x11
002e 0092 00eb | | Action Push_String_Extended,0xeb ; "put_to_case"
0030 e003 | | Load 0x0,0x3
0031 190f | | Execute Package,Field_Reference,Field_Number 0xf
0032 e004 | | Load 0x0,0x4
0033 190f | | Execute Package,Field_Reference,Field_Number 0xf
0034 0092 00ec | | Action Push_String_Extended,0xec ; "Rule number 04"
0036 e005 | | Load 0x0,0x5
0037 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0038 e006 | | Load 0x0,0x6
0039 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
003a 0092 00ed | | Action Push_String_Extended,0xed ; "Rule number 05"
003c e005 | | Load 0x0,0x5
003d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
003e e006 | | Load 0x0,0x6
003f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0040 0092 00ee | | Action Push_String_Extended,0xee ; "Rule number 06"
0042 e005 | | Load 0x0,0x5
0043 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0044 e006 | | Load 0x0,0x6
0045 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0046 0092 00ef | | Action Push_String_Extended,0xef ; "Rule number 07"
0048 e005 | | Load 0x0,0x5
0049 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
004a e006 | | Load 0x0,0x6
004b 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
004c 0092 00f0 | | Action Push_String_Extended,0xf0 ; "Rule number 08"
004e e005 | | Load 0x0,0x5
004f 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0050 e006 | | Load 0x0,0x6
0051 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0052 0092 00f1 | | Action Push_String_Extended,0xf1 ; "Rule number 09"
0054 e005 | | Load 0x0,0x5
0055 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0056 e006 | | Load 0x0,0x6
0057 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0058 0092 00f2 | | Action Push_String_Extended,0xf2 ; "Rule number 10"
005a e005 | | Load 0x0,0x5
005b 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
005c e006 | | Load 0x0,0x6
005d 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
005e 0092 00f3 | | Action Push_String_Extended,0xf3 ; "Rule number 11"
0060 e005 | | Load 0x0,0x5
0061 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0062 e006 | | Load 0x0,0x6
0063 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0064 0092 00f4 | | Action Push_String_Extended,0xf4 ; "Rule number 12"
0066 e005 | | Load 0x0,0x5
0067 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0068 e006 | | Load 0x0,0x6
0069 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
006a 0092 00f5 | | Action Push_String_Extended,0xf5 ; "Rule number 13"
006c e005 | | Load 0x0,0x5
006d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
006e e006 | | Load 0x0,0x6
006f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0070 0092 00f6 | | Action Push_String_Extended,0xf6 ; "Rule number 14"
0072 e005 | | Load 0x0,0x5
0073 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0074 e006 | | Load 0x0,0x6
0075 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0076 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Rule number 15"
0078 e005 | | Load 0x0,0x5
0079 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
007a e006 | | Load 0x0,0x6
007b 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
007c 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Rule number 16"
007e e005 | | Load 0x0,0x5
007f 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0080 e006 | | Load 0x0,0x6
0081 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0082 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Rule number 17"
0084 e005 | | Load 0x0,0x5
0085 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0086 e006 | | Load 0x0,0x6
0087 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0088 0092 00fa | | Action Push_String_Extended,0xfa ; "Rule number 18"
008a e005 | | Load 0x0,0x5
008b 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
008c e006 | | Load 0x0,0x6
008d 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
008e 0092 00fb | | Action Push_String_Extended,0xfb ; "Rule number 19"
0090 e005 | | Load 0x0,0x5
0091 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0092 e006 | | Load 0x0,0x6
0093 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
0094 0092 00fc | | Action Push_String_Extended,0xfc ; "Rule number 20"
0096 e005 | | Load 0x0,0x5
0097 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
0098 e006 | | Load 0x0,0x6
0099 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
009a 0092 00fd | | Action Push_String_Extended,0xfd ; "Rule number 21"
009c e005 | | Load 0x0,0x5
009d 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
009e e006 | | Load 0x0,0x6
009f 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00a0 0092 00fe | | Action Push_String_Extended,0xfe ; "Rule number 22"
00a2 e005 | | Load 0x0,0x5
00a3 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00a4 e006 | | Load 0x0,0x6
00a5 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00a6 0092 00ff | | Action Push_String_Extended,0xff ; "Rule number 23"
00a8 e005 | | Load 0x0,0x5
00a9 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00aa e006 | | Load 0x0,0x6
00ab 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00ac 0092 0100 | | Action Push_String_Extended,0x100 ; "Rule number 24"
00ae e005 | | Load 0x0,0x5
00af 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00b0 e006 | | Load 0x0,0x6
00b1 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00b2 0092 0101 | | Action Push_String_Extended,0x101 ; "Rule number 25"
00b4 e005 | | Load 0x0,0x5
00b5 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00b6 e006 | | Load 0x0,0x6
00b7 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00b8 0092 0102 | | Action Push_String_Extended,0x102 ; "Rule number 26"
00ba e005 | | Load 0x0,0x5
00bb 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00bc e006 | | Load 0x0,0x6
00bd 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00be 0092 0103 | | Action Push_String_Extended,0x103 ; "Rule number 27"
00c0 e005 | | Load 0x0,0x5
00c1 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00c2 e006 | | Load 0x0,0x6
00c3 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00c4 0092 0104 | | Action Push_String_Extended,0x104 ; "Rule number 28"
00c6 e005 | | Load 0x0,0x5
00c7 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00c8 e006 | | Load 0x0,0x6
00c9 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00ca 0092 0105 | | Action Push_String_Extended,0x105 ; "Rule number 29"
00cc e005 | | Load 0x0,0x5
00cd 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00ce e006 | | Load 0x0,0x6
00cf 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00d0 0092 0106 | | Action Push_String_Extended,0x106 ; "Rule number 30"
00d2 e005 | | Load 0x0,0x5
00d3 194c | L | Execute Package,Field_Reference,Field_Number 0x4c
00d4 e006 | | Load 0x0,0x6
00d5 1942 | B | Execute Package,Field_Reference,Field_Number 0x42
00d6 4803 |H | Short_Literal 0x3
00d7 e007 | | Load 0x0,0x7
00d8 0387 | | Declare_Variable Package
00d9 00d8 | | Load_Top At_Offset_0
00da 020f | | Execute Module,Activate
00db BODY_0018:
00db e008 | | Load 0x0,0x8
00dc 180d | | Execute Package,Field_Execute,Field_Number 0xd
00dd 6006 |` | Indirect_Literal Discrete,0xe4,{0x00000000, 0x7fffffff}
00de 00d9 | | Load_Top At_Offset_1
00df 186d | m | Execute Package,Field_Execute,Field_Number 0x6d
00e0 0052 | R | Store_Top_Unchecked Discrete,At_Offset_2
00e1 e008 | | Load 0x0,0x8
00e2 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; STRING TABLE
00e8 ; --------------------------------------------------------------------------------------
00e8 0040 | @ | .STRTAB 0x0040->0x0108 ; "RB"
00e9 0040 | @ | .STRTAB 0x0040->0x0109 ; "PACK_IT"
00ea 0045 | E | .STRTAB 0x0045->0x010c ; "take_test"
00eb 004c | L | .STRTAB 0x004c->0x0111 ; "put_to_case"
00ec 0055 | U | .STRTAB 0x0055->0x0116 ; "Rule number 04"
00ed 0062 | b | .STRTAB 0x0062->0x011e ; "Rule number 05"
00ee 006f | o | .STRTAB 0x006f->0x0125 ; "Rule number 06"
00ef 007c | | | .STRTAB 0x007c->0x012d ; "Rule number 07"
00f0 0089 | | .STRTAB 0x0089->0x0134 ; "Rule number 08"
00f1 0096 | | .STRTAB 0x0096->0x013c ; "Rule number 09"
00f2 00a3 | | .STRTAB 0x00a3->0x0143 ; "Rule number 10"
00f3 00b0 | | .STRTAB 0x00b0->0x014b ; "Rule number 11"
00f4 00bd | | .STRTAB 0x00bd->0x0152 ; "Rule number 12"
00f5 00ca | | .STRTAB 0x00ca->0x015a ; "Rule number 13"
00f6 00d7 | | .STRTAB 0x00d7->0x0161 ; "Rule number 14"
00f7 00e4 | | .STRTAB 0x00e4->0x0169 ; "Rule number 15"
00f8 00f1 | | .STRTAB 0x00f1->0x0170 ; "Rule number 16"
00f9 00fe | | .STRTAB 0x00fe->0x0178 ; "Rule number 17"
00fa 010b | | .STRTAB 0x010b->0x017f ; "Rule number 18"
00fb 0118 | | .STRTAB 0x0118->0x0187 ; "Rule number 19"
00fc 0125 | % | .STRTAB 0x0125->0x018e ; "Rule number 20"
00fd 0132 | 2 | .STRTAB 0x0132->0x0196 ; "Rule number 21"
00fe 013f | ? | .STRTAB 0x013f->0x019d ; "Rule number 22"
00ff 014c | L | .STRTAB 0x014c->0x01a5 ; "Rule number 23"
0100 0159 | Y | .STRTAB 0x0159->0x01ac ; "Rule number 24"
0101 0166 | f | .STRTAB 0x0166->0x01b4 ; "Rule number 25"
0102 0173 | s | .STRTAB 0x0173->0x01bb ; "Rule number 26"
0103 0180 | | .STRTAB 0x0180->0x01c3 ; "Rule number 27"
0104 018d | | .STRTAB 0x018d->0x01ca ; "Rule number 28"
0105 019a | | .STRTAB 0x019a->0x01d2 ; "Rule number 29"
0106 01a7 | | .STRTAB 0x01a7->0x01d9 ; "Rule number 30"
0107 01b4 | | .STREND 0x01b4->0x01e1
0108 5242 5041 |RBPA| .STRTAB_STRINGS
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; Debug Table
01e8 ; --------------------------------------------------------------------------------------
01e8 0004 0001 | | .DEBUG4 0x0004,0x0001,0xdf2e,0x0000,0x0001,0x0002
01ee 000b 0000 | | .DBG4T 0x000b,0x0000,0x8000,0x0000
01f2 001b 01f6 | | .DBG4T 0x001b,0x01f6,0x8001,0x0000
01f6 ; --------------------------------------------------------------------------------------
01f6 ; Debug chain
01f6 ; --------------------------------------------------------------------------------------
01f6 0002 0003 | | .DBGLEN 0x0002,0x0003
01f8 001b 001c | | .DBGLNO 0x001b,0x001c,0x00db,0x00dd,0x00e1
01fd 0000 0000 | | .XXX[0x3]
01ff 0000 | |