|
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_03bcfe
└─⟦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 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 8000 | | .CONST 0x8000 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 001d | | .CONST 0x001d ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0010 | | .CONST 0x0010 ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4809 |H | Short_Literal 0x9 000d 029f 0023 | #| Declare_Subprogram INIT_0020,For_Call 000f 03fe | | Declare_Type Discrete,Defined,Visible 0010 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated 0012 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated 0014 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 0016 00bf | | Action Accept_Activation 0017 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0018 00c7 | | Action Elaborate_Subprogram 0019 1d0f | | Execute_Immediate Reference_Lex_1,0xf 001a 00c7 | | Action Elaborate_Subprogram 001b 1d10 | | Execute_Immediate Reference_Lex_1,0x10 001c 00c7 | | Action Elaborate_Subprogram 001d BODY_0008: 001d 00bc | | Action Signal_Activated 001e 00bb | | Action Signal_Completion 001f 0000 | | .XXX[0x1] 0020 ; -------------------------------------------------------------------------------------- 0020 ; SUBPROGRAM 0020 ; -------------------------------------------------------------------------------------- 0020 0023 | # | .CONST 0x0023 ; Address of begin 0021 0004 | | .CONST 0x0004 ; Address of exception handler 0022 0001 | | .CONST 0x0001 ; Number of locals 0023 BODY_0020: 0023 INIT_0020: 0023 4607 |F | Jump_Case 0x8 0024 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 0025 7807 |x | Jump 0x2d ; case 0x1 0026 780a |x | Jump 0x31 ; case 0x2 0027 780e |x | Jump 0x36 ; case 0x3 0028 7811 |x | Jump 0x3a ; case 0x4 0029 7812 |x | Jump 0x3c ; case 0x5 002a 7813 |x | Jump 0x3e ; case 0x6 002b 7816 |x | Jump 0x42 ; case 0x7 002c 4302 |C | .XXX[0x1] 002d 00da | | Load_Top At_Offset_2 002e 0091 0111 | | Action Push_String_Extended_Indexed,0x111 ; "AVAILABILITY" 0030 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 0031 00db | | Load_Top At_Offset_3 0032 00db | | Load_Top At_Offset_3 0033 00e0 | | Load_Encached Standard_Cache 0034 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0035 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0036 00da | | Load_Top At_Offset_2 0037 00e0 | | Load_Encached Standard_Cache 0038 181c | | Execute Package,Field_Execute,Field_Number 0x1c 0039 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 003a 00db | | Load_Top At_Offset_3 003b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003c 00db | | Load_Top At_Offset_3 003d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 003e e20d | | Load 0x1,0xd 003f 00dc | | Load_Top At_Offset_4 0040 0267 | g | Execute Discrete,Predecessor 0041 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0042 e20d | | Load 0x1,0xd 0043 00dc | | Load_Top At_Offset_4 0044 0268 | h | Execute Discrete,Successor 0045 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 0046 0000 0000 | | .XXX[0x2] 0048 ; -------------------------------------------------------------------------------------- 0048 ; SUBPROGRAM 0048 ; -------------------------------------------------------------------------------------- 0048 0051 | Q | .CONST 0x0051 ; Address of begin 0049 0004 | | .CONST 0x0004 ; Address of exception handler 004a 0003 | | .CONST 0x0003 ; Number of locals 004b INIT_0048: 004b e002 | | Load 0x0,0x2 004c 1b0f | | Execute Package,Field_Read,Field_Number 0xf 004d 02c7 | | Declare_Variable Any 004e 00d8 | | Load_Top At_Offset_0 004f 1c00 | | Execute_Immediate Run_Utility,0x0 0050 00e7 | | Load_Encached Duration_Cache 0051 BODY_0048: 0051 e5ff | | Load 0x2,-0x1 0052 0f07 | | Execute_Immediate Equal,0x7 0053 6805 |h | Jump_Zero 0x59 0054 0092 011b | | Action Push_String_Extended,0x11b ; "System_Report.Generate Advice feature not yet implemented" 0056 e003 | | Load 0x0,0x3 0057 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0058 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0059 e402 | | Load 0x2,0x2 005a 00e7 | | Load_Encached Duration_Cache 005b e5fc | | Load 0x2,-0x4 005c e5fd | | Load 0x2,-0x3 005d e5fe | | Load 0x2,-0x2 005e 8004 | | Call 0x0,0x4 005f c403 | | Store 0x2,0x3 0060 c402 | | Store 0x2,0x2 0061 4801 |H | Short_Literal 0x1 0062 e402 | | Load 0x2,0x2 0063 e002 | | Load 0x0,0x2 0064 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0065 6806 |h | Jump_Zero 0x6c 0066 e402 | | Load 0x2,0x2 0067 e002 | | Load 0x0,0x2 0068 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0069 e003 | | Load 0x0,0x3 006a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 006b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 006c e5ff | | Load 0x2,-0x1 006d 4609 |F | Jump_Case 0xa 006e 780b |x | Jump 0x7a ; case 0x0 006f 780d |x | Jump 0x7d ; case 0x1 0070 7812 |x | Jump 0x83 ; case 0x2 0071 7814 |x | Jump 0x86 ; case 0x3 0072 780d |x | Jump 0x80 ; case 0x4 0073 7815 |x | Jump 0x89 ; case 0x5 0074 7817 |x | Jump 0x8c ; case 0x6 0075 7819 |x | Jump 0x8f ; case 0x7 0076 781d |x | Jump 0x94 ; case 0x8 0077 7800 |x | Jump 0x78 ; case 0x9 0078 8005 | | Call 0x0,0x5 0079 4505 |E | Exit_Suprogram New_Top_Offset 0x5 007a 00d8 | | Load_Top At_Offset_0 007b 8006 | | Call 0x0,0x6 007c 4505 |E | Exit_Suprogram New_Top_Offset 0x5 007d 00d8 | | Load_Top At_Offset_0 007e 8007 | | Call 0x0,0x7 007f 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0080 00d8 | | Load_Top At_Offset_0 0081 8008 | | Call 0x0,0x8 0082 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0083 00d8 | | Load_Top At_Offset_0 0084 8009 | | Call 0x0,0x9 0085 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0086 00d8 | | Load_Top At_Offset_0 0087 800a | | Call 0x0,0xa 0088 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0089 00d8 | | Load_Top At_Offset_0 008a 8006 | | Call 0x0,0x6 008b 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008c 00d8 | | Load_Top At_Offset_0 008d 800b | | Call 0x0,0xb 008e 4505 |E | Exit_Suprogram New_Top_Offset 0x5 008f 0092 011b | | Action Push_String_Extended,0x11b ; "System_Report.Generate Advice feature not yet implemented" 0091 e003 | | Load 0x0,0x3 0092 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0093 4505 |E | Exit_Suprogram New_Top_Offset 0x5 0094 00d8 | | Load_Top At_Offset_0 0095 8007 | | Call 0x0,0x7 0096 00d8 | | Load_Top At_Offset_0 0097 8008 | | Call 0x0,0x8 0098 00d8 | | Load_Top At_Offset_0 0099 8009 | | Call 0x0,0x9 009a 00d8 | | Load_Top At_Offset_0 009b 800a | | Call 0x0,0xa 009c 8005 | | Call 0x0,0x5 009d 00d8 | | Load_Top At_Offset_0 009e 8006 | | Call 0x0,0x6 009f 00d8 | | Load_Top At_Offset_0 00a0 800b | | Call 0x0,0xb 00a1 4505 |E | Exit_Suprogram New_Top_Offset 0x5 00a2 0000 0000 | | .BLANK 0000[0x6] 00a8 ; -------------------------------------------------------------------------------------- 00a8 ; SUBPROGRAM 00a8 ; -------------------------------------------------------------------------------------- 00a8 00ad | | .CONST 0x00ad ; Address of begin 00a9 0004 | | .CONST 0x0004 ; Address of exception handler 00aa 0002 | | .CONST 0x0002 ; Number of locals 00ab INIT_00a8: 00ab 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 00ad BODY_00a8: 00ad 00cf | | Action Mark_Auxiliary 00ae 4808 |H | Short_Literal 0x8 00af 4800 |H | Short_Literal 0x0 00b0 0007 | | Action Break_Optional 00b1 4801 |H | Short_Literal 0x1 00b2 e405 | | Load 0x2,0x5 00b3 e00c | | Load 0x0,0xc 00b4 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 00b5 0092 011c | | Action Push_String_Extended,0x11c ; "Manufacturers bad blocks" 00b7 e405 | | Load 0x2,0x5 00b8 8402 | | Call 0x2,0x2 00b9 4802 |H | Short_Literal 0x2 00ba e405 | | Load 0x2,0x5 00bb e00c | | Load 0x0,0xc 00bc 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c 00bd 0092 011d | | Action Push_String_Extended,0x11d ; "Additional bad blocks" 00bf e405 | | Load 0x2,0x5 00c0 8402 | | Call 0x2,0x2 00c1 00c8 | | Action Pop_Auxiliary_Range 00c2 3fee |? | Loop_Increasing 0xb1 00c3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00c4 0000 0000 | | .BLANK 0000[0x4] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 4801 |H | Short_Literal 0x1 00cc 800d | | Call 0x0,0xd 00cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d5 | | .CONST 0x00d5 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0002 | | .CONST 0x0002 ; Number of locals 00d3 INIT_00d0: 00d3 00e3 | | Load_Encached Natural_Cache 00d4 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 00d5 BODY_00d0: 00d5 e7fd | | Load 0x3,-0x3 00d6 01db | | Execute Vector,Length 00d7 6838 |h8 | Jump_Zero 0x110 00d8 e7fe | | Load 0x3,-0x2 00d9 0092 011e | | Action Push_String_Extended,0x11e ; ", Volume =" 00db 01cc | | Execute Vector,Catenate 00dc e7ff | | Load 0x3,-0x1 00dd 00e0 | | Load_Encached Standard_Cache 00de 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00df 01cc | | Execute Vector,Catenate 00e0 0092 011f | | Action Push_String_Extended,0x11f ; ", Count =" 00e2 01cc | | Execute Vector,Catenate 00e3 e7fd | | Load 0x3,-0x3 00e4 01db | | Execute Vector,Length 00e5 00d8 | | Load_Top At_Offset_0 00e6 00e2 | | Load_Encached Integer_Cache 00e7 0260 | ` | Execute Discrete,In_Type 00e8 7001 |p | Jump_Nonzero 0xea 00e9 0801 | | Execute_Immediate Raise,0x1 00ea 00e0 | | Load_Encached Standard_Cache 00eb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00ec 01cc | | Execute Vector,Catenate 00ed e003 | | Load 0x0,0x3 00ee 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00ef 00cf | | Action Mark_Auxiliary 00f0 e7fd | | Load 0x3,-0x3 00f1 01dc | | Execute Vector,Last 00f2 e7fd | | Load 0x3,-0x3 00f3 01dd | | Execute Vector,First 00f4 0263 | c | Execute Discrete,Above_Bound 00f5 7016 |p | Jump_Nonzero 0x10c 00f6 4820 |H | Short_Literal 0x20 00f7 480a |H | Short_Literal 0xa 00f8 4810 |H | Short_Literal 0x10 00f9 e605 | | Load 0x3,0x5 00fa e7fd | | Load 0x3,-0x3 00fb 01d7 | | Execute Vector,Field_Read 00fc e00e | | Load 0x0,0xe 00fd 1816 | | Execute Package,Field_Execute,Field_Number 0x16 00fe e003 | | Load 0x0,0x3 00ff 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f 0100 e602 | | Load 0x3,0x2 0101 0a01 | | Execute_Immediate Plus,0x1 0102 c602 | | Store 0x3,0x2 0103 e602 | | Load 0x3,0x2 0104 4803 |H | Short_Literal 0x3 0105 0279 | y | Execute Discrete,And 0106 7003 |p | Jump_Nonzero 0x10a 0107 4801 |H | Short_Literal 0x1 0108 e003 | | Load 0x0,0x3 0109 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 010a 00c8 | | Action Pop_Auxiliary_Range 010b 3fea |? | Loop_Increasing 0xf6 010c 00ce | | Action Pop_Auxiliary 010d 4802 |H | Short_Literal 0x2 010e e003 | | Load 0x0,0x3 010f 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0110 4504 |E | Exit_Suprogram New_Top_Offset 0x4 0111 ; -------------------------------------------------------------------------------------- 0111 ; STRING TABLE 0111 ; -------------------------------------------------------------------------------------- 0111 0020 | | .STRTAB 0x0020->0x0121 ; "AVAILABILITY" 0112 002a | * | .STRTAB 0x002a->0x0127 ; "USAGE" 0113 002d | - | .STRTAB 0x002d->0x0129 ; "DISK" 0114 002f | / | .STRTAB 0x002f->0x012b ; "DEVICES" 0115 0034 | 4 | .STRTAB 0x0034->0x012f ; "DAEMONS" 0116 0039 | 9 | .STRTAB 0x0039->0x0132 ; "OUTAGES" 0117 003e | > | .STRTAB 0x003e->0x0136 ; "TROUBLE" 0118 0043 | C | .STRTAB 0x0043->0x0139 ; "ADVICE" 0119 0047 | G | .STRTAB 0x0047->0x013c ; "EVERYTHING" 011a 004f | O | .STRTAB 0x004f->0x0141 ; "TAPE_MOUNTS" 011b 0058 | X | .STRTAB 0x0058->0x0147 ; "System_Report.Generate Advice feature not yet implemented" 011c 008f | | .STRTAB 0x008f->0x0163 ; "Manufacturers bad blocks" 011d 00a5 | | .STRTAB 0x00a5->0x016f ; "Additional bad blocks" 011e 00b8 | | .STRTAB 0x00b8->0x017a ; ", Volume =" 011f 00c0 | | .STRTAB 0x00c0->0x017f ; ", Count =" 0120 00c7 | | .STREND 0x00c7->0x0183 0121 4156 4149 |AVAI| .STRTAB_STRINGS 0184 0000 0000 | | .BLANK 0000[0x4] 0188 ; -------------------------------------------------------------------------------------- 0188 ; Debug Table 0188 ; -------------------------------------------------------------------------------------- 0188 0004 0011 | | .DEBUG4 0x0004,0x0011,0x2370,0x0000,0x0001,0x0000 018e 0000 0000 | | .BLANK 0000[0x72]