|
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_0698fd
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0330 | 0 | .CONST 0x0330 ; 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 0062 | b | .CONST 0x0062 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 029a 006b | k| Declare_Subprogram INIT_0068,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
0011 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0013 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0015 029a 016b | k| Declare_Subprogram INIT_0168,For_Outer_Call,Visible,Unelaborated
0017 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0019 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001b 00e2 | | Load_Encached Integer_Cache
001c 0129 | ) | Execute Any,Make_Visible
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 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0025 00bf | | Action Accept_Activation
0026 00e3 | | Load_Encached Natural_Cache
0027 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0028 029b 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Unelaborated
002a e001 | | Load 0x0,0x1
002b 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
002c e001 | | Load 0x0,0x1
002d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
002e e001 | | Load 0x0,0x1
002f 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0030 e002 | | Load 0x0,0x2
0031 e003 | | Load 0x0,0x3
0032 4861 |Ha | Short_Literal 0x61
0033 00e4 | | Load_Encached Positive_Cache
0034 e21e | | Load 0x1,0x1e
0035 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0036 e004 | | Load 0x0,0x4
0037 0387 | | Declare_Variable Package
0038 00d8 | | Load_Top At_Offset_0
0039 020f | | Execute Module,Activate
003a 00d8 | | Load_Top At_Offset_0
003b 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003c 00e3 | | Load_Encached Natural_Cache
003d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
003e 00e3 | | Load_Encached Natural_Cache
003f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0040 00e3 | | Load_Encached Natural_Cache
0041 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0042 00e3 | | Load_Encached Natural_Cache
0043 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0044 00e3 | | Load_Encached Natural_Cache
0045 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0046 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0047 00c7 | | Action Elaborate_Subprogram
0048 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0049 00c7 | | Action Elaborate_Subprogram
004a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
004b 00c7 | | Action Elaborate_Subprogram
004c 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
004e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
004f 00c7 | | Action Elaborate_Subprogram
0050 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0051 00c7 | | Action Elaborate_Subprogram
0052 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0053 00c7 | | Action Elaborate_Subprogram
0054 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0055 00c7 | | Action Elaborate_Subprogram
0056 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0057 00c7 | | Action Elaborate_Subprogram
0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0059 00c7 | | Action Elaborate_Subprogram
005a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
005b 00c7 | | Action Elaborate_Subprogram
005c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
005d 00c7 | | Action Elaborate_Subprogram
005e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
005f 00c7 | | Action Elaborate_Subprogram
0060 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0061 00c7 | | Action Elaborate_Subprogram
0062 BODY_0008:
0062 00bc | | Action Signal_Activated
0063 00bb | | Action Signal_Completion
0064 0000 0000 | | .BLANK 0000[0x4]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006b | k | .CONST 0x006b ; Address of begin
0069 0004 | | .CONST 0x0004 ; Address of exception handler
006a 0001 | | .CONST 0x0001 ; Number of locals
006b BODY_0068:
006b INIT_0068:
006b e21f | | Load 0x1,0x1f
006c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
006d 4861 |Ha | Short_Literal 0x61
006e e21f | | Load 0x1,0x1f
006f 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0070 c220 | | Store 0x1,0x20
0071 4801 |H | Short_Literal 0x1
0072 a21a | | Store_Unchecked 0x1,0x1a
0073 4800 |H | Short_Literal 0x0
0074 a221 | ! | Store_Unchecked 0x1,0x21
0075 4800 |H | Short_Literal 0x0
0076 a222 | " | Store_Unchecked 0x1,0x22
0077 4800 |H | Short_Literal 0x0
0078 a224 | $ | Store_Unchecked 0x1,0x24
0079 4800 |H | Short_Literal 0x0
007a a223 | # | Store_Unchecked 0x1,0x23
007b 4800 |H | Short_Literal 0x0
007c a225 | % | Store_Unchecked 0x1,0x25
007d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
007e 0000 0000 | | .XXX[0x2]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e220 | | Load 0x1,0x20
0084 e21f | | Load 0x1,0x1f
0085 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0086 c220 | | Store 0x1,0x20
0087 4801 |H | Short_Literal 0x1
0088 a21a | | Store_Unchecked 0x1,0x1a
0089 4800 |H | Short_Literal 0x0
008a a221 | ! | Store_Unchecked 0x1,0x21
008b 4800 |H | Short_Literal 0x0
008c a222 | " | Store_Unchecked 0x1,0x22
008d 4800 |H | Short_Literal 0x0
008e a224 | $ | Store_Unchecked 0x1,0x24
008f 4800 |H | Short_Literal 0x0
0090 a223 | # | Store_Unchecked 0x1,0x23
0091 4800 |H | Short_Literal 0x0
0092 a225 | % | Store_Unchecked 0x1,0x25
0093 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0094 0000 0000 | | .BLANK 0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009d | | .CONST 0x009d ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e21e | | Load 0x1,0x1e
009c 0322 | " | Declare_Variable Record
009d BODY_0098:
009d e5ff | | Load 0x2,-0x1
009e e402 | | Load 0x2,0x2
009f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a0 e5fe | | Load 0x2,-0x2
00a1 0092 022b | +| Action Push_String_Extended,0x22b ; " "
00a3 01cc | | Execute Vector,Catenate
00a4 e5fd | | Load 0x2,-0x3
00a5 01cc | | Execute Vector,Catenate
00a6 e001 | | Load 0x0,0x1
00a7 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
00a8 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00a9 e402 | | Load 0x2,0x2
00aa 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00ab e5fe | | Load 0x2,-0x2
00ac 0092 022c | ,| Action Push_String_Extended,0x22c ; "Memory"
00ae 01df | | Execute Vector,Equal
00af 6807 |h | Jump_Zero 0xb7
00b0 e221 | ! | Load 0x1,0x21
00b1 0a01 | | Execute_Immediate Plus,0x1
00b2 c221 | ! | Store 0x1,0x21
00b3 4803 |H | Short_Literal 0x3
00b4 e402 | | Load 0x2,0x2
00b5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00b6 7827 |x' | Jump 0xde
00b7 e5fe | | Load 0x2,-0x2
00b8 0092 022d | -| Action Push_String_Extended,0x22d ; "Tape"
00ba 01df | | Execute Vector,Equal
00bb 6807 |h | Jump_Zero 0xc3
00bc e223 | # | Load 0x1,0x23
00bd 0a01 | | Execute_Immediate Plus,0x1
00be c223 | # | Store 0x1,0x23
00bf 4801 |H | Short_Literal 0x1
00c0 e402 | | Load 0x2,0x2
00c1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c2 781b |x | Jump 0xde
00c3 e5fe | | Load 0x2,-0x2
00c4 0092 022e | .| Action Push_String_Extended,0x22e ; "Disk"
00c6 01df | | Execute Vector,Equal
00c7 6807 |h | Jump_Zero 0xcf
00c8 e222 | " | Load 0x1,0x22
00c9 0a01 | | Execute_Immediate Plus,0x1
00ca c222 | " | Store 0x1,0x22
00cb 4800 |H | Short_Literal 0x0
00cc e402 | | Load 0x2,0x2
00cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ce 780f |x | Jump 0xde
00cf e5fe | | Load 0x2,-0x2
00d0 0092 022f | /| Action Push_String_Extended,0x22f ; "Ethernet"
00d2 01df | | Execute Vector,Equal
00d3 6807 |h | Jump_Zero 0xdb
00d4 e224 | $ | Load 0x1,0x24
00d5 0a01 | | Execute_Immediate Plus,0x1
00d6 c224 | $ | Store 0x1,0x24
00d7 4802 |H | Short_Literal 0x2
00d8 e402 | | Load 0x2,0x2
00d9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00da 7803 |x | Jump 0xde
00db 4804 |H | Short_Literal 0x4
00dc e402 | | Load 0x2,0x2
00dd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00de e220 | | Load 0x1,0x20
00df 4800 |H | Short_Literal 0x0
00e0 e402 | | Load 0x2,0x2
00e1 e21a | | Load 0x1,0x1a
00e2 00d8 | | Load_Top At_Offset_0
00e3 00e4 | | Load_Encached Positive_Cache
00e4 0260 | ` | Execute Discrete,In_Type
00e5 7001 |p | Jump_Nonzero 0xe7
00e6 0801 | | Execute_Immediate Raise,0x1
00e7 e21f | | Load 0x1,0x1f
00e8 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00e9 c220 | | Store 0x1,0x20
00ea e21a | | Load 0x1,0x1a
00eb 0a01 | | Execute_Immediate Plus,0x1
00ec c21a | | Store 0x1,0x1a
00ed 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00ee 0000 0000 | | .XXX[0x2]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f5 | | .CONST 0x00f5 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
00f5 BODY_00f0:
00f5 4802 |H | Short_Literal 0x2
00f6 e005 | | Load 0x0,0x5
00f7 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00f8 0092 0230 | 0| Action Push_String_Extended,0x230 ; "Device Events"
00fa e005 | | Load 0x0,0x5
00fb 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00fc 4802 |H | Short_Literal 0x2
00fd e005 | | Load 0x0,0x5
00fe 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
00ff 0092 0231 | 1| Action Push_String_Extended,0x231 ; "Total Disk messages = "
0101 e222 | " | Load 0x1,0x22
0102 00e0 | | Load_Encached Standard_Cache
0103 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0104 01cc | | Execute Vector,Catenate
0105 e005 | | Load 0x0,0x5
0106 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0107 0092 0232 | 2| Action Push_String_Extended,0x232 ; "Total Tape messages = "
0109 e223 | # | Load 0x1,0x23
010a 00e0 | | Load_Encached Standard_Cache
010b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
010c 01cc | | Execute Vector,Catenate
010d e005 | | Load 0x0,0x5
010e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
010f 0092 0233 | 3| Action Push_String_Extended,0x233 ; "Total Memory messages = "
0111 e221 | ! | Load 0x1,0x21
0112 00e0 | | Load_Encached Standard_Cache
0113 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0114 01cc | | Execute Vector,Catenate
0115 e005 | | Load 0x0,0x5
0116 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0117 0092 0234 | 4| Action Push_String_Extended,0x234 ; "Total Ethernet messages = "
0119 e224 | $ | Load 0x1,0x24
011a 00e0 | | Load_Encached Standard_Cache
011b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011c 01cc | | Execute Vector,Catenate
011d e005 | | Load 0x0,0x5
011e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
011f 4802 |H | Short_Literal 0x2
0120 e005 | | Load 0x0,0x5
0121 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
0122 e222 | " | Load 0x1,0x22
0123 6817 |h | Jump_Zero 0x13b
0124 0092 0235 | 5| Action Push_String_Extended,0x235 ; "Log messages concerning disk errors:"
0126 e005 | | Load 0x0,0x5
0127 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0128 0092 0236 | 6| Action Push_String_Extended,0x236 ; "------------------------------------"
012a e005 | | Load 0x0,0x5
012b 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
012c 00cf | | Action Mark_Auxiliary
012d e21a | | Load 0x1,0x1a
012e 0aff | | Execute_Immediate Plus,-0x1
012f 4801 |H | Short_Literal 0x1
0130 0263 | c | Execute Discrete,Above_Bound
0131 7008 |p | Jump_Nonzero 0x13a
0132 4800 |H | Short_Literal 0x0
0133 e405 | | Load 0x2,0x5
0134 e220 | | Load 0x1,0x20
0135 e21f | | Load 0x1,0x1f
0136 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0137 8226 | & | Call 0x1,0x26
0138 00c8 | | Action Pop_Auxiliary_Range
0139 3ff8 |? | Loop_Increasing 0x132
013a 00ce | | Action Pop_Auxiliary
013b 4802 |H | Short_Literal 0x2
013c e005 | | Load 0x0,0x5
013d 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
013e e221 | ! | Load 0x1,0x21
013f 6817 |h | Jump_Zero 0x157
0140 0092 0237 | 7| Action Push_String_Extended,0x237 ; "Log messages concerning memory errors:"
0142 e005 | | Load 0x0,0x5
0143 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0144 0092 0236 | 6| Action Push_String_Extended,0x236 ; "------------------------------------"
0146 e005 | | Load 0x0,0x5
0147 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0148 00cf | | Action Mark_Auxiliary
0149 e21a | | Load 0x1,0x1a
014a 0aff | | Execute_Immediate Plus,-0x1
014b 4801 |H | Short_Literal 0x1
014c 0263 | c | Execute Discrete,Above_Bound
014d 7008 |p | Jump_Nonzero 0x156
014e 4803 |H | Short_Literal 0x3
014f e405 | | Load 0x2,0x5
0150 e220 | | Load 0x1,0x20
0151 e21f | | Load 0x1,0x1f
0152 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0153 8226 | & | Call 0x1,0x26
0154 00c8 | | Action Pop_Auxiliary_Range
0155 3ff8 |? | Loop_Increasing 0x14e
0156 00ce | | Action Pop_Auxiliary
0157 4802 |H | Short_Literal 0x2
0158 e005 | | Load 0x0,0x5
0159 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
015a 8402 | | Call 0x2,0x2
015b 0092 0238 | 8| Action Push_String_Extended,0x238 ; "\x0c"
015d e005 | | Load 0x0,0x5
015e 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
015f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 e222 | " | Load 0x1,0x22
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 e223 | # | Load 0x1,0x23
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 e225 | % | Load 0x1,0x25
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 e221 | ! | Load 0x1,0x21
017c 00ca | | Action Exit_Nullary_Function
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
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 4801 |H | Short_Literal 0x1
0184 a5ff | | Store_Unchecked 0x2,-0x1
0185 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0186 0000 0000 | | .XXX[0x2]
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 0a01 | | Execute_Immediate Plus,0x1
018d c5ff | | Store 0x2,-0x1
018e 4501 |E | Exit_Suprogram 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 e21a | | Load 0x1,0x1a
0195 027b | { | Execute Discrete,Greater_Equal
0196 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b e5ff | | Load 0x2,-0x1
019c 00d8 | | Load_Top At_Offset_0
019d 00e4 | | Load_Encached Positive_Cache
019e 0260 | ` | Execute Discrete,In_Type
019f 7001 |p | Jump_Nonzero 0x1a1
01a0 0801 | | Execute_Immediate Raise,0x1
01a1 e220 | | Load 0x1,0x20
01a2 e21f | | Load 0x1,0x1f
01a3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
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 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 e5ff | | Load 0x2,-0x1
01b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01b5 e5fe | | Load 0x2,-0x2
01b6 027f | | Execute Discrete,Equal
01b7 680d |h | Jump_Zero 0x1c5
01b8 e5ff | | Load 0x2,-0x1
01b9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ba e006 | | Load 0x0,0x6
01bb 180d | | Execute Package,Field_Execute,Field_Number 0xd
01bc 0092 022b | +| Action Push_String_Extended,0x22b ; " "
01be 01cc | | Execute Vector,Catenate
01bf e5ff | | Load 0x2,-0x1
01c0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c1 0227 | ' | Execute Access,All_Reference
01c2 01cc | | Execute Vector,Catenate
01c3 e005 | | Load 0x0,0x5
01c4 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01c5 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c6 0000 0000 | | .XXX[0x2]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d1 | | .CONST 0x01d1 ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0004 | | .CONST 0x0004 ; Number of locals
01cb INIT_01c8:
01cb e21e | | Load 0x1,0x1e
01cc 0322 | " | Declare_Variable Record
01cd 00e3 | | Load_Encached Natural_Cache
01ce 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01cf 00e3 | | Load_Encached Natural_Cache
01d0 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01d1 BODY_01c8:
01d1 e224 | $ | Load 0x1,0x24
01d2 6857 |hW | Jump_Zero 0x22a
01d3 0092 0239 | 9| Action Push_String_Extended,0x239 ; "Log messages concerning Ethernet errors:"
01d5 e005 | | Load 0x0,0x5
01d6 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01d7 0092 023a | :| Action Push_String_Extended,0x23a ; "----------------------------------------"
01d9 e005 | | Load 0x0,0x5
01da 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
01db 00cf | | Action Mark_Auxiliary
01dc e21a | | Load 0x1,0x1a
01dd 0aff | | Execute_Immediate Plus,-0x1
01de 4801 |H | Short_Literal 0x1
01df 0263 | c | Execute Discrete,Above_Bound
01e0 7028 |p( | Jump_Nonzero 0x209
01e1 00d8 | | Load_Top At_Offset_0
01e2 e220 | | Load 0x1,0x20
01e3 e21f | | Load 0x1,0x1f
01e4 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01e5 e602 | | Load 0x3,0x2
01e6 017d | } | Execute Record,Structure_Write
01e7 e602 | | Load 0x3,0x2
01e8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e9 0f02 | | Execute_Immediate Equal,0x2
01ea 681c |h | Jump_Zero 0x207
01eb e604 | | Load 0x3,0x4
01ec 0a01 | | Execute_Immediate Plus,0x1
01ed c604 | | Store 0x3,0x4
01ee 4801 |H | Short_Literal 0x1
01ef e602 | | Load 0x3,0x2
01f0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f1 0227 | ' | Execute Access,All_Reference
01f2 0092 023b | ;| Action Push_String_Extended,0x23b ; "EXOS CODE 0003 rxmt"
01f4 e007 | | Load 0x0,0x7
01f5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01f6 680a |h | Jump_Zero 0x201
01f7 e603 | | Load 0x3,0x3
01f8 0a01 | | Execute_Immediate Plus,0x1
01f9 c603 | | Store 0x3,0x3
01fa e603 | | Load 0x3,0x3
01fb 0d32 | 2 | Execute_Immediate Less,0x32
01fc 680a |h | Jump_Zero 0x207
01fd 4802 |H | Short_Literal 0x2
01fe e602 | | Load 0x3,0x2
01ff 8226 | & | Call 0x1,0x26
0200 7806 |x | Jump 0x207
0201 e604 | | Load 0x3,0x4
0202 0dc8 | | Execute_Immediate Less,-0x38
0203 6803 |h | Jump_Zero 0x207
0204 4802 |H | Short_Literal 0x2
0205 e602 | | Load 0x3,0x2
0206 8226 | & | Call 0x1,0x26
0207 00c8 | | Action Pop_Auxiliary_Range
0208 3fd8 |? | Loop_Increasing 0x1e1
0209 00ce | | Action Pop_Auxiliary
020a e603 | | Load 0x3,0x3
020b 6817 |h | Jump_Zero 0x223
020c 4801 |H | Short_Literal 0x1
020d e005 | | Load 0x0,0x5
020e 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
020f 0092 023c | <| Action Push_String_Extended,0x23c ; "Total messages concerning re-transmits ="
0211 e603 | | Load 0x3,0x3
0212 00e0 | | Load_Encached Standard_Cache
0213 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0214 01cc | | Execute Vector,Catenate
0215 e005 | | Load 0x0,0x5
0216 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0217 e603 | | Load 0x3,0x3
0218 0c33 | 3 | Execute_Immediate Greater_Equal,0x33
0219 6809 |h | Jump_Zero 0x223
021a e603 | | Load 0x3,0x3
021b 0ace | | Execute_Immediate Plus,-0x32
021c 00e0 | | Load_Encached Standard_Cache
021d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
021e 0092 023d | =| Action Push_String_Extended,0x23d ; " messages were not displayed."
0220 01cc | | Execute Vector,Catenate
0221 e005 | | Load 0x0,0x5
0222 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0223 00d8 | | Load_Top At_Offset_0
0224 0cc8 | | Execute_Immediate Greater_Equal,-0x38
0225 6804 |h | Jump_Zero 0x22a
0226 0092 023e | >| Action Push_String_Extended,0x23e ; "Too many messages; additional messages not displayed."
0228 e005 | | Load 0x0,0x5
0229 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
022a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
022b ; --------------------------------------------------------------------------------------
022b ; STRING TABLE
022b ; --------------------------------------------------------------------------------------
022b 002a | * | .STRTAB 0x002a->0x0240 ; " "
022c 0029 | ) | .STRTAB 0x0029->0x0240 ; "Memory"
022d 002d | - | .STRTAB 0x002d->0x0243 ; "Tape"
022e 002f | / | .STRTAB 0x002f->0x0245 ; "Disk"
022f 0031 | 1 | .STRTAB 0x0031->0x0247 ; "Ethernet"
0230 0037 | 7 | .STRTAB 0x0037->0x024b ; "Device Events"
0231 0042 | B | .STRTAB 0x0042->0x0252 ; "Total Disk messages = "
0232 005a | Z | .STRTAB 0x005a->0x025f ; "Total Tape messages = "
0233 0072 | r | .STRTAB 0x0072->0x026c ; "Total Memory messages = "
0234 008a | | .STRTAB 0x008a->0x0279 ; "Total Ethernet messages = "
0235 00a2 | | .STRTAB 0x00a2->0x0286 ; "Log messages concerning disk errors:"
0236 00c4 | | .STRTAB 0x00c4->0x0298 ; "------------------------------------"
0237 00e6 | | .STRTAB 0x00e6->0x02aa ; "Log messages concerning memory errors:"
0238 010a | | .STRTAB 0x010a->0x02bd ; "\x0c"
0239 0109 | | .STRTAB 0x0109->0x02bd ; "Log messages concerning Ethernet errors:"
023a 012f | / | .STRTAB 0x012f->0x02d1 ; "----------------------------------------"
023b 0155 | U | .STRTAB 0x0155->0x02e5 ; "EXOS CODE 0003 rxmt"
023c 0166 | f | .STRTAB 0x0166->0x02ef ; "Total messages concerning re-transmits ="
023d 018c | | .STRTAB 0x018c->0x0303 ; " messages were not displayed."
023e 01a7 | | .STRTAB 0x01a7->0x0311 ; "Too many messages; additional messages not displayed."
023f 01db | | .STREND 0x01db->0x032c
0240 204d 656d | Mem| .STRTAB_STRINGS
032d 0000 0000 | | .XXX[0x3]
032f 0000 | |
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug Table
0330 ; --------------------------------------------------------------------------------------
0330 0004 000d | | .DEBUG4 0x0004,0x000d,0x4015,0x0000,0x0001,0x0000
0336 00c7 029d | | .XXX[0xca]
0338 18fb 1d5f | _|
033a 00c7 029d | |
033c 1943 029d | C |
033e 1953 029d | S |
0340 1963 029d | c |
0342 1973 1d4c | s L|
0344 00c6 1d73 | s|
0346 1d74 1d76 | t v|
0348 1d75 62be | ub |
034a 62b9 4800 |b H |
034c 0007 1d61 | a|
034e 00c7 1d5e | ^|
0350 00c7 029d | |
0352 199b 029d | |
0354 19c3 029d | |
0356 1a03 029d | |
0358 1a6b 1d6b | k k|
035a 00c7 1d69 | i|
035c 00c7 1d6a | j|
035e 00c7 029d | |
0360 1aab 029d | |
0362 1b1b 1d65 | e|
0364 00c7 1d67 | g|
0366 00c7 1d68 | h|
0368 00c7 1d64 | d|
036a 00c7 029d | |
036c 1be3 029d | |
036e 1c13 029d | |
0370 1c73 1d66 | s f|
0372 00c7 0007 | |
0374 029d 1cb3 | |
0376 1d26 00c7 | & |
0378 029d 1cdb | |
037a 1d25 00c7 | % |
037c 029d 1d3b | ;|
037e 029d 1da3 | |
0380 1d28 00c7 | ( |
0382 029d 1de3 | |
0384 029d 1e63 | c|
0386 1d27 00c7 | ' |
0388 1d2e 00c7 | . |
038a 029d 1ebb | |
038c 1d2f 00c7 | / |
038e 029d 1ee3 | |
0390 029d 1f0b | |
0392 029d 1f3b | ;|
0394 029d 20e3 | |
0396 1d2d 00c7 | - |
0398 029b 2143 | !C|
039a 029d 22cb | " |
039c 1d92 00c7 | |
039e 1d2c 00c7 | , |
03a0 1d2b 00c7 | + |
03a2 1d29 00c7 | ) |
03a4 1d2a 00c7 | * |
03a6 1d37 00c7 | 7 |
03a8 029d 2333 | #3|
03aa 1d30 00c7 | 0 |
03ac 1d31 00c7 | 1 |
03ae 029d 237b | #{|
03b0 1d32 00c7 | 2 |
03b2 1d33 00c7 | 3 |
03b4 029d 23bb | # |
03b6 1d36 00c7 | 6 |
03b8 029d 23cb | # |
03ba 1d35 00c7 | 5 |
03bc 1d34 00c7 | 4 |
03be 0007 1d38 | 8|
03c0 00c7 029d | |
03c2 23d3 029d |# |
03c4 2483 029d |$ |
03c6 24ab 1d3a |$ :|
03c8 00c7 1d39 | 9|
03ca 00c7 1d3b | ;|
03cc 00c7 1d3c | <|
03ce 00c7 0007 | |
03d0 1d3f 00c7 | ? |
03d2 1d41 00c7 | A |
03d4 1d42 00c7 | B |
03d6 1d43 00c7 | C |
03d8 029d 24db | $ |
03da 1d44 00c7 | D |
03dc 1d45 00c7 | E |
03de 1d47 00c7 | G |
03e0 1d48 00c7 | H |
03e2 1d46 00c7 | F |
03e4 029d 24eb | $ |
03e6 1d40 00c7 | @ |
03e8 1d49 00c7 | I |
03ea 1d4a 00c7 | J |
03ec 1d4b 00c7 | K |
03ee e003 190d | |
03f0 0007 029d | |
03f2 2533 029d |%3 |
03f4 256b 1d4d |%k M|
03f6 00c7 029d | |
03f8 2593 029d |% |
03fa 25cb 1d4e |% N|
03fc 00c7 1d4f | O|
03fe 00c7 1d4b | K|