|
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: 2048 (0x800) 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 0328 | ( | .CONST 0x0328 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 005a | Z | .CONST 0x005a ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0022 | " | .CONST 0x0022 ; Number of locals 000b INIT_0008: 000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000d 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated 000f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 0013 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0015 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0017 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated 0019 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated 001b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 001d 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated 001f 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated 0021 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 0023 00bf | | Action Accept_Activation 0024 00e3 | | Load_Encached Natural_Cache 0025 0601 | | Execute_Immediate Set_Value_Unchecked,0x1 0026 029b 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Unelaborated 0028 e002 | | Load 0x0,0x2 0029 e003 | | Load 0x0,0x3 002a 4861 |Ha | Short_Literal 0x61 002b 00e4 | | Load_Encached Positive_Cache 002c e004 | | Load 0x0,0x4 002d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 002e e005 | | Load 0x0,0x5 002f 0387 | | Declare_Variable Package 0030 00d8 | | Load_Top At_Offset_0 0031 020f | | Execute Module,Activate 0032 00d8 | | Load_Top At_Offset_0 0033 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0034 00e3 | | Load_Encached Natural_Cache 0035 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0036 00e3 | | Load_Encached Natural_Cache 0037 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0038 00e3 | | Load_Encached Natural_Cache 0039 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003a 00e3 | | Load_Encached Natural_Cache 003b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003c 00e3 | | Load_Encached Natural_Cache 003d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 003e 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003f 00c7 | | Action Elaborate_Subprogram 0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe 0041 00c7 | | Action Elaborate_Subprogram 0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0043 00c7 | | Action Elaborate_Subprogram 0044 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 0046 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0047 00c7 | | Action Elaborate_Subprogram 0048 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0049 00c7 | | Action Elaborate_Subprogram 004a 1d12 | | Execute_Immediate Reference_Lex_1,0x12 004b 00c7 | | Action Elaborate_Subprogram 004c 1d13 | | Execute_Immediate Reference_Lex_1,0x13 004d 00c7 | | Action Elaborate_Subprogram 004e 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004f 00c7 | | Action Elaborate_Subprogram 0050 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0051 00c7 | | Action Elaborate_Subprogram 0052 1d15 | | Execute_Immediate Reference_Lex_1,0x15 0053 00c7 | | Action Elaborate_Subprogram 0054 1d16 | | Execute_Immediate Reference_Lex_1,0x16 0055 00c7 | | Action Elaborate_Subprogram 0056 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0057 00c7 | | Action Elaborate_Subprogram 0058 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0059 00c7 | | Action Elaborate_Subprogram 005a BODY_0008: 005a 00bc | | Action Signal_Activated 005b 00bb | | Action Signal_Completion 005c 0000 0000 | | .BLANK 0000[0x4] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 e21b | | Load 0x1,0x1b 0064 1b13 | | Execute Package,Field_Read,Field_Number 0x13 0065 4861 |Ha | Short_Literal 0x61 0066 e21b | | Load 0x1,0x1b 0067 181a | | Execute Package,Field_Execute,Field_Number 0x1a 0068 c21c | | Store 0x1,0x1c 0069 4801 |H | Short_Literal 0x1 006a a219 | | Store_Unchecked 0x1,0x19 006b 4800 |H | Short_Literal 0x0 006c a21d | | Store_Unchecked 0x1,0x1d 006d 4800 |H | Short_Literal 0x0 006e a21e | | Store_Unchecked 0x1,0x1e 006f 4800 |H | Short_Literal 0x0 0070 a220 | | Store_Unchecked 0x1,0x20 0071 4800 |H | Short_Literal 0x0 0072 a21f | | Store_Unchecked 0x1,0x1f 0073 4800 |H | Short_Literal 0x0 0074 a221 | ! | Store_Unchecked 0x1,0x21 0075 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0076 0000 0000 | | .XXX[0x2] 0078 ; -------------------------------------------------------------------------------------- 0078 ; SUBPROGRAM 0078 ; -------------------------------------------------------------------------------------- 0078 007b | { | .CONST 0x007b ; Address of begin 0079 0004 | | .CONST 0x0004 ; Address of exception handler 007a 0001 | | .CONST 0x0001 ; Number of locals 007b BODY_0078: 007b INIT_0078: 007b e21c | | Load 0x1,0x1c 007c e21b | | Load 0x1,0x1b 007d 181c | | Execute Package,Field_Execute,Field_Number 0x1c 007e c21c | | Store 0x1,0x1c 007f 4801 |H | Short_Literal 0x1 0080 a219 | | Store_Unchecked 0x1,0x19 0081 4800 |H | Short_Literal 0x0 0082 a21d | | Store_Unchecked 0x1,0x1d 0083 4800 |H | Short_Literal 0x0 0084 a21e | | Store_Unchecked 0x1,0x1e 0085 4800 |H | Short_Literal 0x0 0086 a220 | | Store_Unchecked 0x1,0x20 0087 4800 |H | Short_Literal 0x0 0088 a21f | | Store_Unchecked 0x1,0x1f 0089 4800 |H | Short_Literal 0x0 008a a221 | ! | Store_Unchecked 0x1,0x21 008b 4501 |E | Exit_Suprogram New_Top_Offset 0x1 008c 0000 0000 | | .BLANK 0000[0x4] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0095 | | .CONST 0x0095 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0002 | | .CONST 0x0002 ; Number of locals 0093 INIT_0090: 0093 e004 | | Load 0x0,0x4 0094 0322 | " | Declare_Variable Record 0095 BODY_0090: 0095 e5ff | | Load 0x2,-0x1 0096 e402 | | Load 0x2,0x2 0097 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 0098 e5fe | | Load 0x2,-0x2 0099 0092 0223 | #| Action Push_String_Extended,0x223 ; " " 009b 01cc | | Execute Vector,Catenate 009c e5fd | | Load 0x2,-0x3 009d 01cc | | Execute Vector,Catenate 009e e006 | | Load 0x0,0x6 009f e007 | | Load 0x0,0x7 00a0 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value 00a1 e402 | | Load 0x2,0x2 00a2 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 00a3 e5fe | | Load 0x2,-0x2 00a4 0092 0224 | $| Action Push_String_Extended,0x224 ; "Memory" 00a6 01df | | Execute Vector,Equal 00a7 6807 |h | Jump_Zero 0xaf 00a8 e21d | | Load 0x1,0x1d 00a9 0a01 | | Execute_Immediate Plus,0x1 00aa c21d | | Store 0x1,0x1d 00ab 4803 |H | Short_Literal 0x3 00ac e402 | | Load 0x2,0x2 00ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ae 7827 |x' | Jump 0xd6 00af e5fe | | Load 0x2,-0x2 00b0 0092 0225 | %| Action Push_String_Extended,0x225 ; "Tape" 00b2 01df | | Execute Vector,Equal 00b3 6807 |h | Jump_Zero 0xbb 00b4 e21f | | Load 0x1,0x1f 00b5 0a01 | | Execute_Immediate Plus,0x1 00b6 c21f | | Store 0x1,0x1f 00b7 4801 |H | Short_Literal 0x1 00b8 e402 | | Load 0x2,0x2 00b9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00ba 781b |x | Jump 0xd6 00bb e5fe | | Load 0x2,-0x2 00bc 0092 0226 | &| Action Push_String_Extended,0x226 ; "Disk" 00be 01df | | Execute Vector,Equal 00bf 6807 |h | Jump_Zero 0xc7 00c0 e21e | | Load 0x1,0x1e 00c1 0a01 | | Execute_Immediate Plus,0x1 00c2 c21e | | Store 0x1,0x1e 00c3 4800 |H | Short_Literal 0x0 00c4 e402 | | Load 0x2,0x2 00c5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00c6 780f |x | Jump 0xd6 00c7 e5fe | | Load 0x2,-0x2 00c8 0092 0227 | '| Action Push_String_Extended,0x227 ; "Ethernet" 00ca 01df | | Execute Vector,Equal 00cb 6807 |h | Jump_Zero 0xd3 00cc e220 | | Load 0x1,0x20 00cd 0a01 | | Execute_Immediate Plus,0x1 00ce c220 | | Store 0x1,0x20 00cf 4802 |H | Short_Literal 0x2 00d0 e402 | | Load 0x2,0x2 00d1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d2 7803 |x | Jump 0xd6 00d3 4804 |H | Short_Literal 0x4 00d4 e402 | | Load 0x2,0x2 00d5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 00d6 e21c | | Load 0x1,0x1c 00d7 4800 |H | Short_Literal 0x0 00d8 e402 | | Load 0x2,0x2 00d9 e219 | | Load 0x1,0x19 00da 00d8 | | Load_Top At_Offset_0 00db 00e4 | | Load_Encached Positive_Cache 00dc 0260 | ` | Execute Discrete,In_Type 00dd 7001 |p | Jump_Nonzero 0xdf 00de 0801 | | Execute_Immediate Raise,0x1 00df e21b | | Load 0x1,0x1b 00e0 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00e1 c21c | | Store 0x1,0x1c 00e2 e219 | | Load 0x1,0x19 00e3 0a01 | | Execute_Immediate Plus,0x1 00e4 c219 | | Store 0x1,0x19 00e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4 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 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call 00ed BODY_00e8: 00ed 4802 |H | Short_Literal 0x2 00ee e008 | | Load 0x0,0x8 00ef 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00f0 0092 0228 | (| Action Push_String_Extended,0x228 ; "Device Events" 00f2 e008 | | Load 0x0,0x8 00f3 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00f4 4802 |H | Short_Literal 0x2 00f5 e008 | | Load 0x0,0x8 00f6 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 00f7 0092 0229 | )| Action Push_String_Extended,0x229 ; "Total Disk messages = " 00f9 e21e | | Load 0x1,0x1e 00fa 00e0 | | Load_Encached Standard_Cache 00fb 1818 | | Execute Package,Field_Execute,Field_Number 0x18 00fc 01cc | | Execute Vector,Catenate 00fd e008 | | Load 0x0,0x8 00fe 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 00ff 0092 022a | *| Action Push_String_Extended,0x22a ; "Total Tape messages = " 0101 e21f | | Load 0x1,0x1f 0102 00e0 | | Load_Encached Standard_Cache 0103 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0104 01cc | | Execute Vector,Catenate 0105 e008 | | Load 0x0,0x8 0106 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0107 0092 022b | +| Action Push_String_Extended,0x22b ; "Total Memory messages = " 0109 e21d | | Load 0x1,0x1d 010a 00e0 | | Load_Encached Standard_Cache 010b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 010c 01cc | | Execute Vector,Catenate 010d e008 | | Load 0x0,0x8 010e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 010f 0092 022c | ,| Action Push_String_Extended,0x22c ; "Total Ethernet messages = " 0111 e220 | | Load 0x1,0x20 0112 00e0 | | Load_Encached Standard_Cache 0113 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0114 01cc | | Execute Vector,Catenate 0115 e008 | | Load 0x0,0x8 0116 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0117 4802 |H | Short_Literal 0x2 0118 e008 | | Load 0x0,0x8 0119 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 011a e21e | | Load 0x1,0x1e 011b 6817 |h | Jump_Zero 0x133 011c 0092 022d | -| Action Push_String_Extended,0x22d ; "Log messages concerning disk errors:" 011e e008 | | Load 0x0,0x8 011f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0120 0092 022e | .| Action Push_String_Extended,0x22e ; "------------------------------------" 0122 e008 | | Load 0x0,0x8 0123 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0124 00cf | | Action Mark_Auxiliary 0125 e219 | | Load 0x1,0x19 0126 0aff | | Execute_Immediate Plus,-0x1 0127 4801 |H | Short_Literal 0x1 0128 0263 | c | Execute Discrete,Above_Bound 0129 7008 |p | Jump_Nonzero 0x132 012a 4800 |H | Short_Literal 0x0 012b e405 | | Load 0x2,0x5 012c e21c | | Load 0x1,0x1c 012d e21b | | Load 0x1,0x1b 012e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 012f 8222 | " | Call 0x1,0x22 0130 00c8 | | Action Pop_Auxiliary_Range 0131 3ff8 |? | Loop_Increasing 0x12a 0132 00ce | | Action Pop_Auxiliary 0133 4802 |H | Short_Literal 0x2 0134 e008 | | Load 0x0,0x8 0135 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0136 e21d | | Load 0x1,0x1d 0137 6817 |h | Jump_Zero 0x14f 0138 0092 022f | /| Action Push_String_Extended,0x22f ; "Log messages concerning memory errors:" 013a e008 | | Load 0x0,0x8 013b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 013c 0092 022e | .| Action Push_String_Extended,0x22e ; "------------------------------------" 013e e008 | | Load 0x0,0x8 013f 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0140 00cf | | Action Mark_Auxiliary 0141 e219 | | Load 0x1,0x19 0142 0aff | | Execute_Immediate Plus,-0x1 0143 4801 |H | Short_Literal 0x1 0144 0263 | c | Execute Discrete,Above_Bound 0145 7008 |p | Jump_Nonzero 0x14e 0146 4803 |H | Short_Literal 0x3 0147 e405 | | Load 0x2,0x5 0148 e21c | | Load 0x1,0x1c 0149 e21b | | Load 0x1,0x1b 014a 1815 | | Execute Package,Field_Execute,Field_Number 0x15 014b 8222 | " | Call 0x1,0x22 014c 00c8 | | Action Pop_Auxiliary_Range 014d 3ff8 |? | Loop_Increasing 0x146 014e 00ce | | Action Pop_Auxiliary 014f 4802 |H | Short_Literal 0x2 0150 e008 | | Load 0x0,0x8 0151 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0152 8402 | | Call 0x2,0x2 0153 0092 0230 | 0| Action Push_String_Extended,0x230 ; "\x0c" 0155 e008 | | Load 0x0,0x8 0156 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0157 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 015b | [ | .CONST 0x015b ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0001 | | .CONST 0x0001 ; Number of locals 015b BODY_0158: 015b INIT_0158: 015b e21e | | Load 0x1,0x1e 015c 00ca | | Action Exit_Nullary_Function 015d 0000 0000 | | .XXX[0x3] 015f 0000 | | 0160 ; -------------------------------------------------------------------------------------- 0160 ; SUBPROGRAM 0160 ; -------------------------------------------------------------------------------------- 0160 0163 | c | .CONST 0x0163 ; Address of begin 0161 0004 | | .CONST 0x0004 ; Address of exception handler 0162 0001 | | .CONST 0x0001 ; Number of locals 0163 BODY_0160: 0163 INIT_0160: 0163 e21f | | Load 0x1,0x1f 0164 00ca | | Action Exit_Nullary_Function 0165 0000 0000 | | .XXX[0x3] 0167 0000 | | 0168 ; -------------------------------------------------------------------------------------- 0168 ; SUBPROGRAM 0168 ; -------------------------------------------------------------------------------------- 0168 016b | k | .CONST 0x016b ; Address of begin 0169 0004 | | .CONST 0x0004 ; Address of exception handler 016a 0001 | | .CONST 0x0001 ; Number of locals 016b BODY_0168: 016b INIT_0168: 016b e221 | ! | Load 0x1,0x21 016c 00ca | | Action Exit_Nullary_Function 016d 0000 0000 | | .XXX[0x3] 016f 0000 | | 0170 ; -------------------------------------------------------------------------------------- 0170 ; SUBPROGRAM 0170 ; -------------------------------------------------------------------------------------- 0170 0173 | s | .CONST 0x0173 ; Address of begin 0171 0004 | | .CONST 0x0004 ; Address of exception handler 0172 0001 | | .CONST 0x0001 ; Number of locals 0173 BODY_0170: 0173 INIT_0170: 0173 e21d | | Load 0x1,0x1d 0174 00ca | | Action Exit_Nullary_Function 0175 0000 0000 | | .XXX[0x3] 0177 0000 | | 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 017b | { | .CONST 0x017b ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0001 | | .CONST 0x0001 ; Number of locals 017b BODY_0178: 017b INIT_0178: 017b 4801 |H | Short_Literal 0x1 017c a5ff | | Store_Unchecked 0x2,-0x1 017d 4501 |E | Exit_Suprogram New_Top_Offset 0x1 017e 0000 0000 | | .XXX[0x2] 0180 ; -------------------------------------------------------------------------------------- 0180 ; SUBPROGRAM 0180 ; -------------------------------------------------------------------------------------- 0180 0183 | | .CONST 0x0183 ; Address of begin 0181 0004 | | .CONST 0x0004 ; Address of exception handler 0182 0001 | | .CONST 0x0001 ; Number of locals 0183 BODY_0180: 0183 INIT_0180: 0183 e5ff | | Load 0x2,-0x1 0184 0a01 | | Execute_Immediate Plus,0x1 0185 c5ff | | Store 0x2,-0x1 0186 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0187 0000 | | .XXX[0x1] 0188 ; -------------------------------------------------------------------------------------- 0188 ; SUBPROGRAM 0188 ; -------------------------------------------------------------------------------------- 0188 018b | | .CONST 0x018b ; Address of begin 0189 0004 | | .CONST 0x0004 ; Address of exception handler 018a 0001 | | .CONST 0x0001 ; Number of locals 018b BODY_0188: 018b INIT_0188: 018b e5ff | | Load 0x2,-0x1 018c e219 | | Load 0x1,0x19 018d 027b | { | Execute Discrete,Greater_Equal 018e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 018f 0000 | | .XXX[0x1] 0190 ; -------------------------------------------------------------------------------------- 0190 ; SUBPROGRAM 0190 ; -------------------------------------------------------------------------------------- 0190 0193 | | .CONST 0x0193 ; Address of begin 0191 0004 | | .CONST 0x0004 ; Address of exception handler 0192 0001 | | .CONST 0x0001 ; Number of locals 0193 BODY_0190: 0193 INIT_0190: 0193 e5ff | | Load 0x2,-0x1 0194 00d8 | | Load_Top At_Offset_0 0195 00e4 | | Load_Encached Positive_Cache 0196 0260 | ` | Execute Discrete,In_Type 0197 7001 |p | Jump_Nonzero 0x199 0198 0801 | | Execute_Immediate Raise,0x1 0199 e21c | | Load 0x1,0x1c 019a e21b | | Load 0x1,0x1b 019b 1815 | | Execute Package,Field_Execute,Field_Number 0x15 019c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 019d 0000 0000 | | .XXX[0x3] 019f 0000 | | 01a0 ; -------------------------------------------------------------------------------------- 01a0 ; SUBPROGRAM 01a0 ; -------------------------------------------------------------------------------------- 01a0 01a3 | | .CONST 0x01a3 ; Address of begin 01a1 0004 | | .CONST 0x0004 ; Address of exception handler 01a2 0001 | | .CONST 0x0001 ; Number of locals 01a3 BODY_01a0: 01a3 INIT_01a0: 01a3 e5ff | | Load 0x2,-0x1 01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01a5 0000 0000 | | .XXX[0x3] 01a7 0000 | | 01a8 ; -------------------------------------------------------------------------------------- 01a8 ; SUBPROGRAM 01a8 ; -------------------------------------------------------------------------------------- 01a8 01ab | | .CONST 0x01ab ; Address of begin 01a9 0004 | | .CONST 0x0004 ; Address of exception handler 01aa 0001 | | .CONST 0x0001 ; Number of locals 01ab BODY_01a8: 01ab INIT_01a8: 01ab e5ff | | Load 0x2,-0x1 01ac 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01ad e5fe | | Load 0x2,-0x2 01ae 027f | | Execute Discrete,Equal 01af 680c |h | Jump_Zero 0x1bc 01b0 e5ff | | Load 0x2,-0x1 01b1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0 01b2 8009 | | Call 0x0,0x9 01b3 0092 0223 | #| Action Push_String_Extended,0x223 ; " " 01b5 01cc | | Execute Vector,Catenate 01b6 e5ff | | Load 0x2,-0x1 01b7 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01b8 0217 | | Execute Heap_Access,All_Reference 01b9 01cc | | Execute Vector,Catenate 01ba e008 | | Load 0x0,0x8 01bb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01bc 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01bd 0000 0000 | | .XXX[0x3] 01bf 0000 | | 01c0 ; -------------------------------------------------------------------------------------- 01c0 ; SUBPROGRAM 01c0 ; -------------------------------------------------------------------------------------- 01c0 01c9 | | .CONST 0x01c9 ; Address of begin 01c1 0004 | | .CONST 0x0004 ; Address of exception handler 01c2 0004 | | .CONST 0x0004 ; Number of locals 01c3 INIT_01c0: 01c3 e004 | | Load 0x0,0x4 01c4 0322 | " | Declare_Variable Record 01c5 00e3 | | Load_Encached Natural_Cache 01c6 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c7 00e3 | | Load_Encached Natural_Cache 01c8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 01c9 BODY_01c0: 01c9 e220 | | Load 0x1,0x20 01ca 6857 |hW | Jump_Zero 0x222 01cb 0092 0231 | 1| Action Push_String_Extended,0x231 ; "Log messages concerning Ethernet errors:" 01cd e008 | | Load 0x0,0x8 01ce 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01cf 0092 0232 | 2| Action Push_String_Extended,0x232 ; "----------------------------------------" 01d1 e008 | | Load 0x0,0x8 01d2 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 01d3 00cf | | Action Mark_Auxiliary 01d4 e219 | | Load 0x1,0x19 01d5 0aff | | Execute_Immediate Plus,-0x1 01d6 4801 |H | Short_Literal 0x1 01d7 0263 | c | Execute Discrete,Above_Bound 01d8 7028 |p( | Jump_Nonzero 0x201 01d9 00d8 | | Load_Top At_Offset_0 01da e21c | | Load 0x1,0x1c 01db e21b | | Load 0x1,0x1b 01dc 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01dd e602 | | Load 0x3,0x2 01de 017d | } | Execute Record,Structure_Write 01df e602 | | Load 0x3,0x2 01e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 01e1 0f02 | | Execute_Immediate Equal,0x2 01e2 681c |h | Jump_Zero 0x1ff 01e3 e604 | | Load 0x3,0x4 01e4 0a01 | | Execute_Immediate Plus,0x1 01e5 c604 | | Store 0x3,0x4 01e6 4801 |H | Short_Literal 0x1 01e7 e602 | | Load 0x3,0x2 01e8 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 01e9 0217 | | Execute Heap_Access,All_Reference 01ea 0092 0233 | 3| Action Push_String_Extended,0x233 ; "EXOS CODE 0003 rxmt" 01ec e00a | | Load 0x0,0xa 01ed 181d | | Execute Package,Field_Execute,Field_Number 0x1d 01ee 680a |h | Jump_Zero 0x1f9 01ef e603 | | Load 0x3,0x3 01f0 0a01 | | Execute_Immediate Plus,0x1 01f1 c603 | | Store 0x3,0x3 01f2 e603 | | Load 0x3,0x3 01f3 0d32 | 2 | Execute_Immediate Less,0x32 01f4 680a |h | Jump_Zero 0x1ff 01f5 4802 |H | Short_Literal 0x2 01f6 e602 | | Load 0x3,0x2 01f7 8222 | " | Call 0x1,0x22 01f8 7806 |x | Jump 0x1ff 01f9 e604 | | Load 0x3,0x4 01fa 0dc8 | | Execute_Immediate Less,-0x38 01fb 6803 |h | Jump_Zero 0x1ff 01fc 4802 |H | Short_Literal 0x2 01fd e602 | | Load 0x3,0x2 01fe 8222 | " | Call 0x1,0x22 01ff 00c8 | | Action Pop_Auxiliary_Range 0200 3fd8 |? | Loop_Increasing 0x1d9 0201 00ce | | Action Pop_Auxiliary 0202 e603 | | Load 0x3,0x3 0203 6817 |h | Jump_Zero 0x21b 0204 4801 |H | Short_Literal 0x1 0205 e008 | | Load 0x0,0x8 0206 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40 0207 0092 0234 | 4| Action Push_String_Extended,0x234 ; "Total messages concerning re-transmits =" 0209 e603 | | Load 0x3,0x3 020a 00e0 | | Load_Encached Standard_Cache 020b 1818 | | Execute Package,Field_Execute,Field_Number 0x18 020c 01cc | | Execute Vector,Catenate 020d e008 | | Load 0x0,0x8 020e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 020f e603 | | Load 0x3,0x3 0210 0c33 | 3 | Execute_Immediate Greater_Equal,0x33 0211 6809 |h | Jump_Zero 0x21b 0212 e603 | | Load 0x3,0x3 0213 0ace | | Execute_Immediate Plus,-0x32 0214 00e0 | | Load_Encached Standard_Cache 0215 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0216 0092 0235 | 5| Action Push_String_Extended,0x235 ; " messages were not displayed." 0218 01cc | | Execute Vector,Catenate 0219 e008 | | Load 0x0,0x8 021a 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 021b 00d8 | | Load_Top At_Offset_0 021c 0cc8 | | Execute_Immediate Greater_Equal,-0x38 021d 6804 |h | Jump_Zero 0x222 021e 0092 0236 | 6| Action Push_String_Extended,0x236 ; "Too many messages; additional messages not displayed." 0220 e008 | | Load 0x0,0x8 0221 1864 | d | Execute Package,Field_Execute,Field_Number 0x64 0222 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0223 ; -------------------------------------------------------------------------------------- 0223 ; STRING TABLE 0223 ; -------------------------------------------------------------------------------------- 0223 002a | * | .STRTAB 0x002a->0x0238 ; " " 0224 0029 | ) | .STRTAB 0x0029->0x0238 ; "Memory" 0225 002d | - | .STRTAB 0x002d->0x023b ; "Tape" 0226 002f | / | .STRTAB 0x002f->0x023d ; "Disk" 0227 0031 | 1 | .STRTAB 0x0031->0x023f ; "Ethernet" 0228 0037 | 7 | .STRTAB 0x0037->0x0243 ; "Device Events" 0229 0042 | B | .STRTAB 0x0042->0x024a ; "Total Disk messages = " 022a 005a | Z | .STRTAB 0x005a->0x0257 ; "Total Tape messages = " 022b 0072 | r | .STRTAB 0x0072->0x0264 ; "Total Memory messages = " 022c 008a | | .STRTAB 0x008a->0x0271 ; "Total Ethernet messages = " 022d 00a2 | | .STRTAB 0x00a2->0x027e ; "Log messages concerning disk errors:" 022e 00c4 | | .STRTAB 0x00c4->0x0290 ; "------------------------------------" 022f 00e6 | | .STRTAB 0x00e6->0x02a2 ; "Log messages concerning memory errors:" 0230 010a | | .STRTAB 0x010a->0x02b5 ; "\x0c" 0231 0109 | | .STRTAB 0x0109->0x02b5 ; "Log messages concerning Ethernet errors:" 0232 012f | / | .STRTAB 0x012f->0x02c9 ; "----------------------------------------" 0233 0155 | U | .STRTAB 0x0155->0x02dd ; "EXOS CODE 0003 rxmt" 0234 0166 | f | .STRTAB 0x0166->0x02e7 ; "Total messages concerning re-transmits =" 0235 018c | | .STRTAB 0x018c->0x02fb ; " messages were not displayed." 0236 01a7 | | .STRTAB 0x01a7->0x0309 ; "Too many messages; additional messages not displayed." 0237 01db | | .STREND 0x01db->0x0324 0238 204d 656d | Mem| .STRTAB_STRINGS 0325 0000 0000 | | .XXX[0x3] 0327 0000 | | 0328 ; -------------------------------------------------------------------------------------- 0328 ; Debug Table 0328 ; -------------------------------------------------------------------------------------- 0328 0004 0011 | | .DEBUG4 0x0004,0x0011,0x2356,0x0000,0x0001,0x0000 032e 0000 0000 | | .BLANK 0000[0xd2]