|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0188 | | .CONST 0x0188 ; 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 ; Debug Table 0x0 = .DEBUG 0x000b,0x019a,0x8000,0x0000,0x002c,0xbc64,0x0000,0x000d 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 002f | / | .CONST 0x002f ; Address of begin 0019 00e5 | | .CONST 0x00e5 ; Address of exception handler 001a 0008 | | .CONST 0x0008 ; Number of locals 001b INIT_0018: 001b 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1 = .DEBUG 0x001b,0x019c,0x8001,0x0000,0x002c,0xbc64,0x0000,0x000d ; Debug Table 0x1.0x0 = 0x1b,0xffff 001c 0610 | | Execute_Immediate Set_Value_Unchecked,0x10 001d 4801 |H | Short_Literal 0x1 ; Debug Table 0x1.0x1 = 0x1d,0xfffe 001e 00d9 | | Load_Top At_Offset_1 001f e001 | | Load 0x0,0x1 0020 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0021 02a0 | | Declare_Subprogram Null_Subprogram 0022 4801 |H | Short_Literal 0x1 0023 035d | ] | Declare_Type Array,Defined 0024 00d8 | | Load_Top At_Offset_0 0025 0337 | 7 | Declare_Variable Array 0026 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x2 = 0x26,0xfffd 0027 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x1.0x3 = 0x27,0xfffc 0028 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0029 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x4 = 0x29,0xfffb 002a 1b17 | | Execute Package,Field_Read,Field_Number 0x17 002b 0322 | " | Declare_Variable Record 002c 00d8 | | Load_Top At_Offset_0 002d 1c00 | | Execute_Immediate Run_Utility,0x0 002e 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x5 = 0x2e,0xfffa 002f BODY_0018: 002f 0092 00f0 | | Action Push_String_Extended,0xf0 ; "Test job manager back door maps" ; Debug Table 0x1.0x6 = 0x2f,0x1 0031 0092 00f1 | | Action Push_String_Extended,0xf1 ; "Job_Map" 0033 e003 | | Load 0x0,0x3 0034 180e | | Execute Package,Field_Execute,Field_Number 0xe 0035 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x7 = 0x35,0x2 0036 e004 | | Load 0x0,0x4 0037 1a0d | | Execute Package,Field_Write,Field_Number 0xd 0038 4800 |H | Short_Literal 0x0 ; Debug Table 0x1.0x8 = 0x38,0x3 0039 e004 | | Load 0x0,0x4 003a 1a0e | | Execute Package,Field_Write,Field_Number 0xe 003b 0092 00f2 | | Action Push_String_Extended,0xf2 ; "Create some jobs" ; Debug Table 0x1.0x9 = 0x3b,0x4 003d e003 | | Load 0x0,0x3 003e 1810 | | Execute Package,Field_Execute,Field_Number 0x10 003f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xa = 0x3f,0x5 0040 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0041 4801 |H | Short_Literal 0x1 0042 e404 | | Load 0x2,0x4 0043 01d7 | | Execute Vector,Field_Read 0044 00d1 | | Pop_Control Pop_Count_1 0045 4800 |H | Short_Literal 0x0 0046 e005 | | Load 0x0,0x5 0047 1b10 | | Execute Package,Field_Read,Field_Number 0x10 0048 4800 |H | Short_Literal 0x0 0049 482b |H+ | Short_Literal 0x2b 004a e002 | | Load 0x0,0x2 004b 181c | | Execute Package,Field_Execute,Field_Number 0x1c 004c 4801 |H | Short_Literal 0x1 004d e404 | | Load 0x2,0x4 004e 01d6 | | Execute Vector,Field_Write 004f e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xb = 0x4f,0x6 0050 4802 |H | Short_Literal 0x2 0051 0263 | c | Execute Discrete,Above_Bound 0052 7014 |p | Jump_Nonzero 0x67 0053 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0xc = 0x53,0x7 0054 00d9 | | Load_Top At_Offset_1 0055 e002 | | Load 0x0,0x2 0056 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0057 00d9 | | Load_Top At_Offset_1 0058 00db | | Load_Top At_Offset_3 0059 01d7 | | Execute Vector,Field_Read 005a 00d1 | | Pop_Control Pop_Count_1 005b 4800 |H | Short_Literal 0x0 005c e005 | | Load 0x0,0x5 005d 1b10 | | Execute Package,Field_Read,Field_Number 0x10 005e 4802 |H | Short_Literal 0x2 005f 482b |H+ | Short_Literal 0x2b 0060 e002 | | Load 0x0,0x2 0061 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0062 00d9 | | Load_Top At_Offset_1 0063 00db | | Load_Top At_Offset_3 0064 01d6 | | Execute Vector,Field_Write 0065 00d2 | | Pop_Control Pop_Count_2 0066 3fec |? | Loop_Increasing 0x53 0067 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0xd = 0x67,0x8 0068 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0069 e402 | | Load 0x2,0x2 006a 0901 | | Execute_Immediate Binary_Scale,0x1 006b 027e | ~ | Execute Discrete,Not_Equal 006c 6804 |h | Jump_Zero 0x71 006d 0092 00f3 | | Action Push_String_Extended,0xf3 ; "Init not called properly" ; Debug Table 0x1.0xe = 0x6d,0x9 006f e003 | | Load 0x0,0x3 0070 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0071 0092 00f4 | | Action Push_String_Extended,0xf4 ; "Check map values" ; Debug Table 0x1.0xf = 0x71,0xa 0073 e003 | | Load 0x0,0x3 0074 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0075 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x10 = 0x75,0xb 0076 4801 |H | Short_Literal 0x1 0077 0263 | c | Execute Discrete,Above_Bound 0078 7010 |p | Jump_Nonzero 0x89 0079 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x11 = 0x79,0xc 007a e404 | | Load 0x2,0x4 007b 01d7 | | Execute Vector,Field_Read 007c e004 | | Load 0x0,0x4 007d 1b11 | | Execute Package,Field_Read,Field_Number 0x11 007e 1817 | | Execute Package,Field_Execute,Field_Number 0x17 007f 00d9 | | Load_Top At_Offset_1 0080 e404 | | Load 0x2,0x4 0081 01d7 | | Execute Vector,Field_Read 0082 027e | ~ | Execute Discrete,Not_Equal 0083 6804 |h | Jump_Zero 0x88 0084 0092 00f5 | | Action Push_String_Extended,0xf5 ; "Bad eval" ; Debug Table 0x1.0x12 = 0x84,0xd 0086 e003 | | Load 0x0,0x3 0087 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0088 3ff0 |? | Loop_Increasing 0x79 0089 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x13 = 0x89,0xe 008a 1b0d | | Execute Package,Field_Read,Field_Number 0xd 008b e402 | | Load 0x2,0x2 008c 0901 | | Execute_Immediate Binary_Scale,0x1 008d 027e | ~ | Execute Discrete,Not_Equal 008e 6804 |h | Jump_Zero 0x93 008f 0092 00f6 | | Action Push_String_Extended,0xf6 ; "Init called for already initialized entries" ; Debug Table 0x1.0x14 = 0x8f,0xf 0091 e003 | | Load 0x0,0x3 0092 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0093 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x15 = 0x93,0x10 0094 4801 |H | Short_Literal 0x1 0095 0263 | c | Execute Discrete,Above_Bound 0096 7011 |p | Jump_Nonzero 0xa8 0097 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x16 = 0x97,0x11 0098 e406 | | Load 0x2,0x6 0099 00da | | Load_Top At_Offset_2 009a e404 | | Load 0x2,0x4 009b 01d7 | | Execute Vector,Field_Read 009c e004 | | Load 0x0,0x4 009d 1b13 | | Execute Package,Field_Read,Field_Number 0x13 009e 1818 | | Execute Package,Field_Execute,Field_Number 0x18 009f c406 | | Store 0x2,0x6 00a0 c405 | | Store 0x2,0x5 00a1 e405 | | Load 0x2,0x5 ; Debug Table 0x1.0x17 = 0xa1,0x12 00a2 6804 |h | Jump_Zero 0xa7 00a3 0092 00f7 | | Action Push_String_Extended,0xf7 ; "Value found in uninitialized map" ; Debug Table 0x1.0x18 = 0xa3,0x13 00a5 e003 | | Load 0x0,0x3 00a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00a7 3fef |? | Loop_Increasing 0x97 00a8 0092 00f8 | | Action Push_String_Extended,0xf8 ; "Test eval and undefine" ; Debug Table 0x1.0x19 = 0xa8,0x14 00aa e003 | | Load 0x0,0x3 00ab 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ac e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x1a = 0xac,0x15 00ad 4801 |H | Short_Literal 0x1 00ae 0263 | c | Execute Discrete,Above_Bound 00af 7016 |p | Jump_Nonzero 0xc6 00b0 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1b = 0xb0,0x16 00b1 e404 | | Load 0x2,0x4 00b2 01d7 | | Execute Vector,Field_Read 00b3 e004 | | Load 0x0,0x4 00b4 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00b5 1817 | | Execute Package,Field_Execute,Field_Number 0x17 00b6 00d9 | | Load_Top At_Offset_1 00b7 e404 | | Load 0x2,0x4 00b8 01d7 | | Execute Vector,Field_Read 00b9 027e | ~ | Execute Discrete,Not_Equal 00ba 6804 |h | Jump_Zero 0xbf 00bb 0092 00f9 | | Action Push_String_Extended,0xf9 ; "Define failed" ; Debug Table 0x1.0x1c = 0xbb,0x17 00bd e003 | | Load 0x0,0x3 00be 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00bf 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x1.0x1d = 0xbf,0x18 00c0 e404 | | Load 0x2,0x4 00c1 01d7 | | Execute Vector,Field_Read 00c2 e004 | | Load 0x0,0x4 00c3 1b13 | | Execute Package,Field_Read,Field_Number 0x13 00c4 181a | | Execute Package,Field_Execute,Field_Number 0x1a 00c5 3fea |? | Loop_Increasing 0xb0 00c6 0092 00fa | | Action Push_String_Extended,0xfa ; "Release all job id's" ; Debug Table 0x1.0x1e = 0xc6,0x19 00c8 e003 | | Load 0x0,0x3 00c9 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00ca e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x1f = 0xca,0x1a 00cb 4801 |H | Short_Literal 0x1 00cc 0263 | c | Execute Discrete,Above_Bound 00cd 700a |p | Jump_Nonzero 0xd8 00ce 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x20 = 0xce,0x1b 00cf e407 | | Load 0x2,0x7 00d0 00da | | Load_Top At_Offset_2 00d1 e404 | | Load 0x2,0x4 00d2 01d7 | | Execute Vector,Field_Read 00d3 e002 | | Load 0x0,0x2 00d4 181d | | Execute Package,Field_Execute,Field_Number 0x1d 00d5 00d1 | | Pop_Control Pop_Count_1 00d6 005b | [ | Store_Top Discrete,At_Offset_3 00d7 3ff6 |? | Loop_Increasing 0xce 00d8 e004 | | Load 0x0,0x4 ; Debug Table 0x1.0x21 = 0xd8,0x1c 00d9 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00da e402 | | Load 0x2,0x2 00db 0901 | | Execute_Immediate Binary_Scale,0x1 00dc 027e | ~ | Execute Discrete,Not_Equal 00dd 6804 |h | Jump_Zero 0xe2 00de 0092 00fb | | Action Push_String_Extended,0xfb ; "Fin called improperly" ; Debug Table 0x1.0x22 = 0xde,0x1d 00e0 e003 | | Load 0x0,0x3 00e1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00e2 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x23 = 0xe2,0x1e 00e3 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e4 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00e5 TRAP_0018: 00e5 0007 | | Action Break_Optional 00e6 0092 00fc | | Action Push_String_Extended,0xfc ; "FAILED: Exception " ; Debug Table 0x1.0x24 = 0xe6,0x1f 00e8 e006 | | Load 0x0,0x6 00e9 180d | | Execute Package,Field_Execute,Field_Number 0xd 00ea 01cc | | Execute Vector,Catenate 00eb e003 | | Load 0x0,0x3 00ec 1812 | | Execute Package,Field_Execute,Field_Number 0x12 00ed e003 | | Load 0x0,0x3 ; Debug Table 0x1.0x25 = 0xed,0x20 00ee 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00ef 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00f0 ; -------------------------------------------------------------------------------------- 00f0 ; STRING TABLE 00f0 ; -------------------------------------------------------------------------------------- 00f0 001c | | .STRTAB 0x001c->0x00fe ; "Test job manager back door maps" 00f1 0039 | 9 | .STRTAB 0x0039->0x010d ; "Job_Map" 00f2 003e | > | .STRTAB 0x003e->0x0111 ; "Create some jobs" 00f3 004c | L | .STRTAB 0x004c->0x0119 ; "Init not called properly" 00f4 0062 | b | .STRTAB 0x0062->0x0125 ; "Check map values" 00f5 0070 | p | .STRTAB 0x0070->0x012d ; "Bad eval" 00f6 0076 | v | .STRTAB 0x0076->0x0131 ; "Init called for already initialized entries" 00f7 009f | | .STRTAB 0x009f->0x0146 ; "Value found in uninitialized map" 00f8 00bd | | .STRTAB 0x00bd->0x0156 ; "Test eval and undefine" 00f9 00d1 | | .STRTAB 0x00d1->0x0161 ; "Define failed" 00fa 00dc | | .STRTAB 0x00dc->0x0168 ; "Release all job id's" 00fb 00ee | | .STRTAB 0x00ee->0x0172 ; "Fin called improperly" 00fc 0101 | | .STRTAB 0x0101->0x017c ; "FAILED: Exception " 00fd 0111 | | .STREND 0x0111->0x0185 00fe 5465 7374 |Test| .STRTAB_STRINGS 0186 0000 0000 | | .XXX[0x2] 0188 ; -------------------------------------------------------------------------------------- 0188 ; Debug Table 0188 ; -------------------------------------------------------------------------------------- 0188 0003 0002 | | .CONST 0x0003,0x0002 018a 000b 019a | | .DEBUG 0x000b,0x019a,0x8000,0x0000,0x002c,0xbc64,0x0000,0x000d 0192 001b 019c | | .DEBUG 0x001b,0x019c,0x8001,0x0000,0x002c,0xbc64,0x0000,0x000d 019a ; -------------------------------------------------------------------------------------- 019a ; Debug3 Subtable 0x0 019a ; -------------------------------------------------------------------------------------- 019a 0000 0000 | | .DBG3TAB 0x0000,0x0000 019c ; -------------------------------------------------------------------------------------- 019c ; Debug3 Subtable 0x1 019c ; -------------------------------------------------------------------------------------- 019c 0006 0020 | | .DBG3TAB 0x0006,0x0020 019e 001b ffff | | .CONST 0x001b,0xffff 01a0 001d fffe | | .CONST 0x001d,0xfffe 01a2 0026 fffd | & | .CONST 0x0026,0xfffd 01a4 0027 fffc | ' | .CONST 0x0027,0xfffc 01a6 0029 fffb | ) | .CONST 0x0029,0xfffb 01a8 002e fffa | . | .CONST 0x002e,0xfffa 01aa 002f 0001 | / | .CONST 0x002f,0x0001 01ac 0035 0002 | 5 | .CONST 0x0035,0x0002 01ae 0038 0003 | 8 | .CONST 0x0038,0x0003 01b0 003b 0004 | ; | .CONST 0x003b,0x0004 01b2 003f 0005 | ? | .CONST 0x003f,0x0005 01b4 004f 0006 | O | .CONST 0x004f,0x0006 01b6 0053 0007 | S | .CONST 0x0053,0x0007 01b8 0067 0008 | g | .CONST 0x0067,0x0008 01ba 006d 0009 | m | .CONST 0x006d,0x0009 01bc 0071 000a | q | .CONST 0x0071,0x000a 01be 0075 000b | u | .CONST 0x0075,0x000b 01c0 0079 000c | y | .CONST 0x0079,0x000c 01c2 0084 000d | | .CONST 0x0084,0x000d 01c4 0089 000e | | .CONST 0x0089,0x000e 01c6 008f 000f | | .CONST 0x008f,0x000f 01c8 0093 0010 | | .CONST 0x0093,0x0010 01ca 0097 0011 | | .CONST 0x0097,0x0011 01cc 00a1 0012 | | .CONST 0x00a1,0x0012 01ce 00a3 0013 | | .CONST 0x00a3,0x0013 01d0 00a8 0014 | | .CONST 0x00a8,0x0014 01d2 00ac 0015 | | .CONST 0x00ac,0x0015 01d4 00b0 0016 | | .CONST 0x00b0,0x0016 01d6 00bb 0017 | | .CONST 0x00bb,0x0017 01d8 00bf 0018 | | .CONST 0x00bf,0x0018 01da 00c6 0019 | | .CONST 0x00c6,0x0019 01dc 00ca 001a | | .CONST 0x00ca,0x001a 01de 00ce 001b | | .CONST 0x00ce,0x001b 01e0 00d8 001c | | .CONST 0x00d8,0x001c 01e2 00de 001d | | .CONST 0x00de,0x001d 01e4 00e2 001e | | .CONST 0x00e2,0x001e 01e6 00e6 001f | | .CONST 0x00e6,0x001f 01e8 00ed 0020 | | .CONST 0x00ed,0x0020 01ea 0000 0000 | | .BLANK 0000[0x16]