|
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_03b8fe
└─⟦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 0190 | | .CONST 0x0190 ; 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 0027 | ' | .CONST 0x0027 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0012 | | .CONST 0x0012 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 4800 |H | Short_Literal 0x0
0012 4809 |H | Short_Literal 0x9
0013 029f 0033 | 3| Declare_Subprogram INIT_0030,For_Call
0015 03fe | | Declare_Type Discrete,Defined,Visible
0016 c212 | | Store 0x1,0x12
0017 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
0019 c20e | | Store 0x1,0xe
001a 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
001c c20f | | Store 0x1,0xf
001d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001f c210 | | Store 0x1,0x10
0020 00bf | | Action Accept_Activation
0021 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0022 00c7 | | Action Elaborate_Subprogram
0023 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0024 00c7 | | Action Elaborate_Subprogram
0025 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0026 00c7 | | Action Elaborate_Subprogram
0027 BODY_0008:
0027 00bc | | Action Signal_Activated
0028 00bb | | Action Signal_Completion
0029 0000 0000 | | .BLANK 0000[0x7]
0030 ; --------------------------------------------------------------------------------------
0030 ; SUBPROGRAM
0030 ; --------------------------------------------------------------------------------------
0030 0033 | 3 | .CONST 0x0033 ; Address of begin
0031 0004 | | .CONST 0x0004 ; Address of exception handler
0032 0001 | | .CONST 0x0001 ; Number of locals
0033 BODY_0030:
0033 INIT_0030:
0033 4607 |F | Jump_Case 0x8
0034 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0035 7806 |x | Jump 0x3c ; case 0x1
0036 7809 |x | Jump 0x40 ; case 0x2
0037 780d |x | Jump 0x45 ; case 0x3
0038 7810 |x | Jump 0x49 ; case 0x4
0039 7811 |x | Jump 0x4b ; case 0x5
003a 7812 |x | Jump 0x4d ; case 0x6
003b 7815 |x | Jump 0x51 ; case 0x7
003c 00da | | Load_Top At_Offset_2
003d 0091 0129 | )| Action Push_String_Extended_Indexed,0x129 ; "AVAILABILITY"
003f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0040 00db | | Load_Top At_Offset_3
0041 00db | | Load_Top At_Offset_3
0042 00e0 | | Load_Encached Standard_Cache
0043 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0044 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0045 00da | | Load_Top At_Offset_2
0046 00e0 | | Load_Encached Standard_Cache
0047 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0048 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0049 00db | | Load_Top At_Offset_3
004a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004b 00db | | Load_Top At_Offset_3
004c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004d e212 | | Load 0x1,0x12
004e 00dc | | Load_Top At_Offset_4
004f 0267 | g | Execute Discrete,Predecessor
0050 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0051 e212 | | Load 0x1,0x12
0052 00dc | | Load_Top At_Offset_4
0053 0268 | h | Execute Discrete,Successor
0054 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0055 0000 0000 | | .XXX[0x3]
0057 0000 | |
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 0061 | a | .CONST 0x0061 ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0003 | | .CONST 0x0003 ; Number of locals
005b INIT_0058:
005b e001 | | Load 0x0,0x1
005c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005d 02c7 | | Declare_Variable Any
005e 00d8 | | Load_Top At_Offset_0
005f 1c00 | | Execute_Immediate Run_Utility,0x0
0060 00e7 | | Load_Encached Duration_Cache
0061 BODY_0058:
0061 e402 | | Load 0x2,0x2
0062 00e7 | | Load_Encached Duration_Cache
0063 e5fc | | Load 0x2,-0x4
0064 e5fd | | Load 0x2,-0x3
0065 e5fe | | Load 0x2,-0x2
0066 e002 | | Load 0x0,0x2
0067 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0068 c403 | | Store 0x2,0x3
0069 c402 | | Store 0x2,0x2
006a 4801 |H | Short_Literal 0x1
006b e402 | | Load 0x2,0x2
006c e001 | | Load 0x0,0x1
006d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
006e 6806 |h | Jump_Zero 0x75
006f e402 | | Load 0x2,0x2
0070 e001 | | Load 0x0,0x1
0071 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0072 e003 | | Load 0x0,0x3
0073 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0074 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0075 e5ff | | Load 0x2,-0x1
0076 4609 |F | Jump_Case 0xa
0077 780c |x | Jump 0x84 ; case 0x0
0078 780f |x | Jump 0x88 ; case 0x1
0079 7816 |x | Jump 0x90 ; case 0x2
007a 7819 |x | Jump 0x94 ; case 0x3
007b 7810 |x | Jump 0x8c ; case 0x4
007c 781b |x | Jump 0x98 ; case 0x5
007d 781e |x | Jump 0x9c ; case 0x6
007e 7821 |x! | Jump 0xa0 ; case 0x7
007f 7825 |x% | Jump 0xa5 ; case 0x8
0080 7800 |x | Jump 0x81 ; case 0x9
0081 e004 | | Load 0x0,0x4
0082 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0083 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0084 00d8 | | Load_Top At_Offset_0
0085 e005 | | Load 0x0,0x5
0086 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0087 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0088 00d8 | | Load_Top At_Offset_0
0089 e006 | | Load 0x0,0x6
008a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
008c 00d8 | | Load_Top At_Offset_0
008d e007 | | Load 0x0,0x7
008e 180d | | Execute Package,Field_Execute,Field_Number 0xd
008f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0090 00d8 | | Load_Top At_Offset_0
0091 e007 | | Load 0x0,0x7
0092 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0093 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0094 00d8 | | Load_Top At_Offset_0
0095 e008 | | Load 0x0,0x8
0096 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0097 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0098 00d8 | | Load_Top At_Offset_0
0099 e005 | | Load 0x0,0x5
009a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
009c 00d8 | | Load_Top At_Offset_0
009d e009 | | Load 0x0,0x9
009e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
009f 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00a0 0092 0133 | 3| Action Push_String_Extended,0x133 ; "Don't take any wooden nickels"
00a2 e003 | | Load 0x0,0x3
00a3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00a4 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00a5 00d8 | | Load_Top At_Offset_0
00a6 e006 | | Load 0x0,0x6
00a7 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00a8 00d8 | | Load_Top At_Offset_0
00a9 e007 | | Load 0x0,0x7
00aa 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ab 00d8 | | Load_Top At_Offset_0
00ac e007 | | Load 0x0,0x7
00ad 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00ae 00d8 | | Load_Top At_Offset_0
00af e008 | | Load 0x0,0x8
00b0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b1 e004 | | Load 0x0,0x4
00b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b3 00d8 | | Load_Top At_Offset_0
00b4 e005 | | Load 0x0,0x5
00b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b6 00d8 | | Load_Top At_Offset_0
00b7 e009 | | Load 0x0,0x9
00b8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5 | | .CONST 0x00c5 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 029f 00eb | | Declare_Subprogram INIT_00e8,For_Call
00c5 BODY_00c0:
00c5 00cf | | Action Mark_Auxiliary
00c6 4808 |H | Short_Literal 0x8
00c7 4800 |H | Short_Literal 0x0
00c8 0007 | | Action Break_Optional
00c9 4801 |H | Short_Literal 0x1
00ca e405 | | Load 0x2,0x5
00cb e00a | | Load 0x0,0xa
00cc 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
00cd 0092 0134 | 4| Action Push_String_Extended,0x134 ; "Manufacturers bad blocks"
00cf e405 | | Load 0x2,0x5
00d0 8402 | | Call 0x2,0x2
00d1 4802 |H | Short_Literal 0x2
00d2 e405 | | Load 0x2,0x5
00d3 e00a | | Load 0x0,0xa
00d4 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
00d5 0092 0135 | 5| Action Push_String_Extended,0x135 ; "Additional bad blocks"
00d7 e405 | | Load 0x2,0x5
00d8 8402 | | Call 0x2,0x2
00d9 00c8 | | Action Pop_Auxiliary_Range
00da 3fee |? | Loop_Increasing 0xc9
00db 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4801 |H | Short_Literal 0x1
00e4 800b | | Call 0x0,0xb
00e5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e6 0000 0000 | | .XXX[0x2]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00ed | | .CONST 0x00ed ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0002 | | .CONST 0x0002 ; Number of locals
00eb INIT_00e8:
00eb 00e3 | | Load_Encached Natural_Cache
00ec 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00ed BODY_00e8:
00ed e7fd | | Load 0x3,-0x3
00ee 01db | | Execute Vector,Length
00ef 6838 |h8 | Jump_Zero 0x128
00f0 e7fe | | Load 0x3,-0x2
00f1 0092 0136 | 6| Action Push_String_Extended,0x136 ; ", Volume ="
00f3 01cc | | Execute Vector,Catenate
00f4 e7ff | | Load 0x3,-0x1
00f5 00e0 | | Load_Encached Standard_Cache
00f6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00f7 01cc | | Execute Vector,Catenate
00f8 0092 0137 | 7| Action Push_String_Extended,0x137 ; ", Count ="
00fa 01cc | | Execute Vector,Catenate
00fb e7fd | | Load 0x3,-0x3
00fc 01db | | Execute Vector,Length
00fd 00d8 | | Load_Top At_Offset_0
00fe 00e2 | | Load_Encached Integer_Cache
00ff 0260 | ` | Execute Discrete,In_Type
0100 7001 |p | Jump_Nonzero 0x102
0101 0801 | | Execute_Immediate Raise,0x1
0102 00e0 | | Load_Encached Standard_Cache
0103 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0104 01cc | | Execute Vector,Catenate
0105 e003 | | Load 0x0,0x3
0106 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0107 00cf | | Action Mark_Auxiliary
0108 e7fd | | Load 0x3,-0x3
0109 01dc | | Execute Vector,Last
010a e7fd | | Load 0x3,-0x3
010b 01dd | | Execute Vector,First
010c 0263 | c | Execute Discrete,Above_Bound
010d 7016 |p | Jump_Nonzero 0x124
010e 4820 |H | Short_Literal 0x20
010f 480a |H | Short_Literal 0xa
0110 4810 |H | Short_Literal 0x10
0111 e605 | | Load 0x3,0x5
0112 e7fd | | Load 0x3,-0x3
0113 01d7 | | Execute Vector,Field_Read
0114 e00c | | Load 0x0,0xc
0115 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0116 e003 | | Load 0x0,0x3
0117 185f | _ | Execute Package,Field_Execute,Field_Number 0x5f
0118 e602 | | Load 0x3,0x2
0119 0a01 | | Execute_Immediate Plus,0x1
011a c602 | | Store 0x3,0x2
011b e602 | | Load 0x3,0x2
011c 4803 |H | Short_Literal 0x3
011d 0279 | y | Execute Discrete,And
011e 7003 |p | Jump_Nonzero 0x122
011f 4801 |H | Short_Literal 0x1
0120 e003 | | Load 0x0,0x3
0121 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0122 00c8 | | Action Pop_Auxiliary_Range
0123 3fea |? | Loop_Increasing 0x10e
0124 00ce | | Action Pop_Auxiliary
0125 4802 |H | Short_Literal 0x2
0126 e003 | | Load 0x0,0x3
0127 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0128 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0129 ; --------------------------------------------------------------------------------------
0129 ; STRING TABLE
0129 ; --------------------------------------------------------------------------------------
0129 0020 | | .STRTAB 0x0020->0x0139 ; "AVAILABILITY"
012a 002a | * | .STRTAB 0x002a->0x013f ; "USAGE"
012b 002d | - | .STRTAB 0x002d->0x0141 ; "DISK"
012c 002f | / | .STRTAB 0x002f->0x0143 ; "DEVICES"
012d 0034 | 4 | .STRTAB 0x0034->0x0147 ; "DAEMONS"
012e 0039 | 9 | .STRTAB 0x0039->0x014a ; "OUTAGES"
012f 003e | > | .STRTAB 0x003e->0x014e ; "TROUBLE"
0130 0043 | C | .STRTAB 0x0043->0x0151 ; "ADVICE"
0131 0047 | G | .STRTAB 0x0047->0x0154 ; "EVERYTHING"
0132 004f | O | .STRTAB 0x004f->0x0159 ; "TAPE_MOUNTS"
0133 0058 | X | .STRTAB 0x0058->0x015f ; "Don't take any wooden nickels"
0134 0073 | s | .STRTAB 0x0073->0x016d ; "Manufacturers bad blocks"
0135 0089 | | .STRTAB 0x0089->0x0179 ; "Additional bad blocks"
0136 009c | | .STRTAB 0x009c->0x0184 ; ", Volume ="
0137 00a4 | | .STRTAB 0x00a4->0x0189 ; ", Count ="
0138 00ab | | .STREND 0x00ab->0x018d
0139 4156 4149 |AVAI| .STRTAB_STRINGS
018e 0000 0000 | | .XXX[0x2]
0190 ; --------------------------------------------------------------------------------------
0190 ; Debug Table
0190 ; --------------------------------------------------------------------------------------
0190 0004 000d | | .DEBUG4 0x0004,0x000d,0x401e,0x0000,0x0001,0x0000
0196 0000 4ec5 | N | .XXX[0x18]
0198 c043 9e80 | C |
019a 0000 0005 | |
019c e800 0000 | |
019e 0099 8900 | |
01a0 877f c000 | |
01a2 0000 0872 | r|
01a4 e202 1c7d | }|
01a6 0000 0000 | |
01a8 0008 a118 | |
01aa 0877 0800 | w |
01ac 0000 00be | |
01ae 0000 0000 | | .BLANK 0000[0x6]
01b4 0001 0000 | | .XXX[0x18]
01b6 0000 43a8 | C |
01b8 c844 8008 | D |
01ba 77fc 0000 |w |
01bc 0000 8769 | i|
01be e000 0002 | |
01c0 34fc 021e |4 |
01c2 4900 0000 |I |
01c4 0021 dc20 | ! |
01c6 0873 d002 | s |
01c8 1c2b 2192 | +! |
01ca 8021 e910 | ! |
01cc 0000 0000 | | .BLANK 0000[0x6]
01d2 202f 6021 | /`!| .XXX[0x10]
01d4 f5b0 0000 | |
01d6 0002 1e49 | I|
01d8 4d9d c043 |M C|
01da eb60 0000 | ` |
01dc 0118 2c01 | , |
01de 0fad 8045 | E|
01e0 09f0 17e0 | |
01e2 0000 0000 | | .BLANK 0000[0x7]
01e9 087b 8e00 | { | .XXX[0x11]
01eb e20c 7a00 | z |
01ed 56bb 8000 |V |
01ef 0000 21ee | ! |
01f1 3808 7a44 |8 zD|
01f3 021e c080 | |
01f5 0020 22cf | " |
01f7 5808 7d6d |X }m|
01f9 0c8c | |
01fa 0000 0000 | | .BLANK 0000[0x5]
01ff 0011 | | .XXX[0x1]