|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 For_Outer_Call,Visible,Unelaborated,INIT_0060
000d 029a 007b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0078
000f 029a 0093 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0090
0011 029a 00eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e8
0013 029a 015b | [| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0158
0015 029a 0163 | c| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0160
0017 029a 016b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0168
0019 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
001b 029a 017b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0178
001d 029a 0183 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0180
001f 029a 018b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0188
0021 029a 0193 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0190
0023 00bf | | Action Accept_Activation
0024 00e3 | | Load_Encached Natural_Cache
0025 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0026 029b 01a3 | | Declare_Subprogram For_Outer_Call,Unelaborated,INIT_01a0
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 For_Outer_Call,INIT_01a8
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_Subprogram 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_Subprogram 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_Subprogram 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 For_Call,INIT_01c0
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_Subprogram 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_Subprogram 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_Subprogram 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_Result,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_Result,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_Result,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_Subprogram 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,0xc8
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,0xc8
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_Subprogram 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,0x9c87,0x0000,0x0001,0x0000
032e 0000 0000 | | .BLANK 0000[0xd2]