|
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_ccb0b3
└─⟦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 0228 | ( | .CONST 0x0228 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0047 | G | .CONST 0x0047 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0018 | | .CONST 0x0018 ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
000f 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0011 00bf | | Action Accept_Activation
0012 00e1 | | Load_Encached Boolean_Cache
0013 e001 | | Load 0x0,0x1
0014 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0015 00e2 | | Load_Encached Integer_Cache
0016 4801 |H | Short_Literal 0x1
0017 60ac |` | Indirect_Literal Discrete,0xc4,{0x00000000, 0x00000400}
0018 00e9 | | Load_Encached String_Cache
0019 035b | [ | Declare_Type Array,Constrained
001a 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
001c 4804 |H | Short_Literal 0x4
001d 032d | - | Declare_Type Record,Defined
001e 4800 |H | Short_Literal 0x0
001f 48ff |H | Short_Literal 0xff
0020 00da | | Load_Top At_Offset_2
0021 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0023 4801 |H | Short_Literal 0x1
0024 035d | ] | Declare_Type Array,Defined
0025 00d8 | | Load_Top At_Offset_0
0026 0337 | 7 | Declare_Variable Array
0027 00d8 | | Load_Top At_Offset_0
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 e002 | | Load 0x0,0x2
002a e003 | | Load 0x0,0x3
002b e004 | | Load 0x0,0x4
002c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002d e004 | | Load 0x0,0x4
002e 1910 | | Execute Package,Field_Reference,Field_Number 0x10
002f e004 | | Load 0x0,0x4
0030 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0031 e004 | | Load 0x0,0x4
0032 1914 | | Execute Package,Field_Reference,Field_Number 0x14
0033 e005 | | Load 0x0,0x5
0034 0387 | | Declare_Variable Package
0035 00d8 | | Load_Top At_Offset_0
0036 020f | | Execute Module,Activate
0037 029d 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call
0039 029d 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call
003b 029d 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call
003d 029d 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call
003f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0040 00c7 | | Action Elaborate_Subprogram
0041 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
0043 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0044 00c7 | | Action Elaborate_Subprogram
0045 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0046 00c7 | | Action Elaborate_Subprogram
0047 BODY_0008:
0047 00bc | | Action Signal_Activated
0048 00bb | | Action Signal_Completion
0049 0000 0000 | | .BLANK 0000[0x7]
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0070 | p | .CONST 0x0070 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0007 | | .CONST 0x0007 ; Number of locals
0053 INIT_0050:
0053 e213 | | Load 0x1,0x13
0054 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0055 02c7 | | Declare_Variable Any
0056 00d8 | | Load_Top At_Offset_0
0057 1c00 | | Execute_Immediate Run_Utility,0x0
0058 e004 | | Load 0x0,0x4
0059 1b0e | | Execute Package,Field_Read,Field_Number 0xe
005a 0322 | " | Declare_Variable Record
005b 00d8 | | Load_Top At_Offset_0
005c 1c00 | | Execute_Immediate Run_Utility,0x0
005d 00d8 | | Load_Top At_Offset_0
005e 0322 | " | Declare_Variable Record
005f 00d8 | | Load_Top At_Offset_0
0060 1c00 | | Execute_Immediate Run_Utility,0x0
0061 e213 | | Load 0x1,0x13
0062 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0063 02c7 | | Declare_Variable Any
0064 00d8 | | Load_Top At_Offset_0
0065 1c00 | | Execute_Immediate Run_Utility,0x0
0066 e213 | | Load 0x1,0x13
0067 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0068 02c7 | | Declare_Variable Any
0069 00d8 | | Load_Top At_Offset_0
006a 1c00 | | Execute_Immediate Run_Utility,0x0
006b e006 | | Load 0x0,0x6
006c 180e | | Execute Package,Field_Execute,Field_Number 0xe
006d e007 | | Load 0x0,0x7
006e 1b15 | | Execute Package,Field_Read,Field_Number 0x15
006f 03f1 | | Declare_Variable Discrete,With_Value
0070 BODY_0050:
0070 00be | | Action Activate_Tasks
0071 00d8 | | Load_Top At_Offset_0
0072 e5ff | | Load 0x2,-0x1
0073 8216 | | Call 0x1,0x16
0074 6803 |h | Jump_Zero 0x78
0075 00d8 | | Load_Top At_Offset_0
0076 8218 | | Call 0x1,0x18
0077 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0078 e402 | | Load 0x2,0x2
0079 4800 |H | Short_Literal 0x0
007a e5fe | | Load 0x2,-0x2
007b 4800 |H | Short_Literal 0x0
007c e5ff | | Load 0x2,-0x1
007d e008 | | Load 0x0,0x8
007e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
007f 8214 | | Call 0x1,0x14
0080 e213 | | Load 0x1,0x13
0081 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0082 c402 | | Store 0x2,0x2
0083 e5ff | | Load 0x2,-0x1
0084 e403 | | Load 0x2,0x3
0085 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0086 00d9 | | Load_Top At_Offset_1
0087 0120 | | Execute Any,Is_Value
0088 6803 |h | Jump_Zero 0x8c
0089 e213 | | Load 0x1,0x13
008a 1b14 | | Execute Package,Field_Read,Field_Number 0x14
008b 7801 |x | Jump 0x8d
008c 00d9 | | Load_Top At_Offset_1
008d 00db | | Load_Top At_Offset_3
008e 0120 | | Execute Any,Is_Value
008f 6803 |h | Jump_Zero 0x93
0090 e213 | | Load 0x1,0x13
0091 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0092 7801 |x | Jump 0x94
0093 00db | | Load_Top At_Offset_3
0094 e404 | | Load 0x2,0x4
0095 e403 | | Load 0x2,0x3
0096 e402 | | Load 0x2,0x2
0097 e213 | | Load 0x1,0x13
0098 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0099 00d1 | | Pop_Control Pop_Count_1
009a c405 | | Store 0x2,0x5
009b c406 | | Store 0x2,0x6
009c e402 | | Load 0x2,0x2
009d 8215 | | Call 0x1,0x15
009e c402 | | Store 0x2,0x2
009f 00da | | Load_Top At_Offset_2
00a0 e213 | | Load 0x1,0x13
00a1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00a2 6807 |h | Jump_Zero 0xaa
00a3 00ea | | Load_Encached Null_String_Cache
00a4 4800 |H | Short_Literal 0x0
00a5 00da | | Load_Top At_Offset_2
00a6 e5ff | | Load 0x2,-0x1
00a7 8217 | | Call 0x1,0x17
00a8 00ea | | Load_Encached Null_String_Cache
00a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00aa 00db | | Load_Top At_Offset_3
00ab 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ac 6812 |h | Jump_Zero 0xbf
00ad 4801 |H | Short_Literal 0x1
00ae e404 | | Load 0x2,0x4
00af 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b0 e404 | | Load 0x2,0x4
00b1 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00b2 01cf | | Execute Vector,Slice_Read
00b3 e404 | | Load 0x2,0x4
00b4 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00b5 00da | | Load_Top At_Offset_2
00b6 e5ff | | Load 0x2,-0x1
00b7 8217 | | Call 0x1,0x17
00b8 4801 |H | Short_Literal 0x1
00b9 e404 | | Load 0x2,0x4
00ba 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00bb e404 | | Load 0x2,0x4
00bc 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00bd 01cf | | Execute Vector,Slice_Read
00be 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00bf 00ea | | Load_Encached Null_String_Cache
00c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c1 0000 0000 | | .XXX[0x3]
00c3 0000 | |
00c4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00e8 | | .CONST 0x00e8 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0007 | | .CONST 0x0007 ; Number of locals
00cb INIT_00c8:
00cb e213 | | Load 0x1,0x13
00cc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00cd 02c7 | | Declare_Variable Any
00ce 00d8 | | Load_Top At_Offset_0
00cf 1c00 | | Execute_Immediate Run_Utility,0x0
00d0 e004 | | Load 0x0,0x4
00d1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d2 0322 | " | Declare_Variable Record
00d3 00d8 | | Load_Top At_Offset_0
00d4 1c00 | | Execute_Immediate Run_Utility,0x0
00d5 00d8 | | Load_Top At_Offset_0
00d6 0322 | " | Declare_Variable Record
00d7 00d8 | | Load_Top At_Offset_0
00d8 1c00 | | Execute_Immediate Run_Utility,0x0
00d9 e213 | | Load 0x1,0x13
00da 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00db 02c7 | | Declare_Variable Any
00dc 00d8 | | Load_Top At_Offset_0
00dd 1c00 | | Execute_Immediate Run_Utility,0x0
00de e213 | | Load 0x1,0x13
00df 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00e0 02c7 | | Declare_Variable Any
00e1 00d8 | | Load_Top At_Offset_0
00e2 1c00 | | Execute_Immediate Run_Utility,0x0
00e3 e006 | | Load 0x0,0x6
00e4 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e5 e007 | | Load 0x0,0x7
00e6 1b15 | | Execute Package,Field_Read,Field_Number 0x15
00e7 03f1 | | Declare_Variable Discrete,With_Value
00e8 BODY_00c8:
00e8 00be | | Action Activate_Tasks
00e9 4800 |H | Short_Literal 0x0
00ea a5fc | | Store_Unchecked 0x2,-0x4
00eb e402 | | Load 0x2,0x2
00ec 4802 |H | Short_Literal 0x2
00ed e5fd | | Load 0x2,-0x3
00ee 4800 |H | Short_Literal 0x0
00ef e5ff | | Load 0x2,-0x1
00f0 e008 | | Load 0x0,0x8
00f1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f2 8214 | | Call 0x1,0x14
00f3 e213 | | Load 0x1,0x13
00f4 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f5 c402 | | Store 0x2,0x2
00f6 e5ff | | Load 0x2,-0x1
00f7 e403 | | Load 0x2,0x3
00f8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f9 00d9 | | Load_Top At_Offset_1
00fa 0120 | | Execute Any,Is_Value
00fb 6803 |h | Jump_Zero 0xff
00fc e213 | | Load 0x1,0x13
00fd 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00fe 7801 |x | Jump 0x100
00ff 00d9 | | Load_Top At_Offset_1
0100 00db | | Load_Top At_Offset_3
0101 0120 | | Execute Any,Is_Value
0102 6803 |h | Jump_Zero 0x106
0103 e213 | | Load 0x1,0x13
0104 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0105 7801 |x | Jump 0x107
0106 00db | | Load_Top At_Offset_3
0107 e404 | | Load 0x2,0x4
0108 e403 | | Load 0x2,0x3
0109 e402 | | Load 0x2,0x2
010a e213 | | Load 0x1,0x13
010b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
010c 00d1 | | Pop_Control Pop_Count_1
010d c405 | | Store 0x2,0x5
010e c406 | | Store 0x2,0x6
010f 00da | | Load_Top At_Offset_2
0110 e213 | | Load 0x1,0x13
0111 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0112 6816 |h | Jump_Zero 0x129
0113 e5fe | | Load 0x2,-0x2
0114 01db | | Execute Vector,Length
0115 e403 | | Load 0x2,0x3
0116 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0117 e5fe | | Load 0x2,-0x2
0118 4801 |H | Short_Literal 0x1
0119 e5fe | | Load 0x2,-0x2
011a 01db | | Execute Vector,Length
011b 00d8 | | Load_Top At_Offset_0
011c 00e2 | | Load_Encached Integer_Cache
011d 0260 | ` | Execute Discrete,In_Type
011e 7001 |p | Jump_Nonzero 0x120
011f 0801 | | Execute_Immediate Raise,0x1
0120 e403 | | Load 0x2,0x3
0121 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0122 01ce | | Execute Vector,Slice_Write
0123 00d9 | | Load_Top At_Offset_1
0124 e403 | | Load 0x2,0x3
0125 e402 | | Load 0x2,0x2
0126 e213 | | Load 0x1,0x13
0127 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0128 7815 |x | Jump 0x13e
0129 e5fe | | Load 0x2,-0x2
012a 01db | | Execute Vector,Length
012b e403 | | Load 0x2,0x3
012c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
012d e5fe | | Load 0x2,-0x2
012e 4801 |H | Short_Literal 0x1
012f e5fe | | Load 0x2,-0x2
0130 01db | | Execute Vector,Length
0131 00d8 | | Load_Top At_Offset_0
0132 00e2 | | Load_Encached Integer_Cache
0133 0260 | ` | Execute Discrete,In_Type
0134 7001 |p | Jump_Nonzero 0x136
0135 0801 | | Execute_Immediate Raise,0x1
0136 e403 | | Load 0x2,0x3
0137 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0138 01ce | | Execute Vector,Slice_Write
0139 00da | | Load_Top At_Offset_2
013a e403 | | Load 0x2,0x3
013b e402 | | Load 0x2,0x2
013c e213 | | Load 0x1,0x13
013d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
013e 00d8 | | Load_Top At_Offset_0
013f e212 | | Load 0x1,0x12
0140 01d5 | | Execute Vector,Field_Reference
0141 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0142 6809 |h | Jump_Zero 0x14c
0143 e5ff | | Load 0x2,-0x1
0144 00d9 | | Load_Top At_Offset_1
0145 e212 | | Load 0x1,0x12
0146 01d5 | | Execute Vector,Field_Reference
0147 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0148 012f | / | Execute Any,Equal
0149 6802 |h | Jump_Zero 0x14c
014a 00d8 | | Load_Top At_Offset_0
014b 820f | | Call 0x1,0xf
014c e402 | | Load 0x2,0x2
014d 8215 | | Call 0x1,0x15
014e c402 | | Store 0x2,0x2
014f 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4800 |H | Short_Literal 0x0
0154 00db | | Load_Top At_Offset_3
0155 e212 | | Load 0x1,0x12
0156 01d5 | | Execute Vector,Field_Reference
0157 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0158 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0159 0000 0000 | | .BLANK 0000[0x7]
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 4608 |F | Jump_Case 0x9
0164 7808 |x | Jump 0x16d ; case 0x0
0165 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0166 7810 |x | Jump 0x177 ; case 0x2
0167 780f |x | Jump 0x177 ; case 0x3
0168 780e |x | Jump 0x177 ; case 0x4
0169 780d |x | Jump 0x177 ; case 0x5
016a 780c |x | Jump 0x177 ; case 0x6
016b 780b |x | Jump 0x177 ; case 0x7
016c 780a |x | Jump 0x177 ; case 0x8
016d 4800 |H | Short_Literal 0x0
016e 00db | | Load_Top At_Offset_3
016f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0170 00da | | Load_Top At_Offset_2
0171 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0172 0125 | % | Execute Any,Set_Constraint
0173 00da | | Load_Top At_Offset_2
0174 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0175 1c00 | | Execute_Immediate Run_Utility,0x0
0176 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0177 0869 | i | Execute_Immediate Raise,0x69
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 00d1 | | Pop_Control Pop_Count_1
017c 00da | | Load_Top At_Offset_2
017d 01dc | | Execute Vector,Last
017e 00db | | Load_Top At_Offset_3
017f 01dd | | Execute Vector,First
0180 0263 | c | Execute Discrete,Above_Bound
0181 7006 |p | Jump_Nonzero 0x188
0182 00d8 | | Load_Top At_Offset_0
0183 e5ff | | Load 0x2,-0x1
0184 01d5 | | Execute Vector,Field_Reference
0185 1c00 | | Execute_Immediate Run_Utility,0x0
0186 0a01 | | Execute_Immediate Plus,0x1
0187 7ff8 | | Jump 0x180
0188 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0189 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
0194 e001 | | Load 0x0,0x1
0195 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0196 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0197 0092 0210 | | Action Push_String_Extended,0x210 ; "."
0199 01cc | | Execute Vector,Catenate
019a e009 | | Load 0x0,0x9
019b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
019c 01cc | | Execute Vector,Catenate
019d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019e 0000 0000 | | .XXX[0x2]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 01a8 | | .CONST 0x01a8 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 e213 | | Load 0x1,0x13
01a5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01a6 c5ff | | Store 0x2,-0x1
01a7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a8 TRAP_01a0:
01a8 0007 | | Action Break_Optional
01a9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01aa 0000 0000 | | .BLANK 0000[0x6]
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 00db | | Load_Top At_Offset_3
01b4 e212 | | Load 0x1,0x12
01b5 01d5 | | Execute Vector,Field_Reference
01b6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01b7 6809 |h | Jump_Zero 0x1c1
01b8 00db | | Load_Top At_Offset_3
01b9 e212 | | Load 0x1,0x12
01ba 01d5 | | Execute Vector,Field_Reference
01bb 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01bc 00db | | Load_Top At_Offset_3
01bd 012f | / | Execute Any,Equal
01be 6802 |h | Jump_Zero 0x1c1
01bf 4801 |H | Short_Literal 0x1
01c0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c1 4800 |H | Short_Literal 0x0
01c2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb e5fd | | Load 0x2,-0x3
01cc 0c01 | | Execute_Immediate Greater_Equal,0x1
01cd 6823 |h# | Jump_Zero 0x1f1
01ce e5fd | | Load 0x2,-0x3
01cf 6024 |`$ | Indirect_Literal Discrete,0x1f4,{0x00000000, 0x00000400}
01d0 027a | z | Execute Discrete,Less_Equal
01d1 6818 |h | Jump_Zero 0x1ea
01d2 e5fc | | Load 0x2,-0x4
01d3 4801 |H | Short_Literal 0x1
01d4 e5fd | | Load 0x2,-0x3
01d5 e5fe | | Load 0x2,-0x2
01d6 e212 | | Load 0x1,0x12
01d7 01d5 | | Execute Vector,Field_Reference
01d8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01d9 01ce | | Execute Vector,Slice_Write
01da 00da | | Load_Top At_Offset_2
01db e5fe | | Load 0x2,-0x2
01dc e212 | | Load 0x1,0x12
01dd 01d5 | | Execute Vector,Field_Reference
01de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01df e5fd | | Load 0x2,-0x3
01e0 e5fe | | Load 0x2,-0x2
01e1 e212 | | Load 0x1,0x12
01e2 01d5 | | Execute Vector,Field_Reference
01e3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e4 4801 |H | Short_Literal 0x1
01e5 e5fe | | Load 0x2,-0x2
01e6 e212 | | Load 0x1,0x12
01e7 01d5 | | Execute Vector,Field_Reference
01e8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01e9 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01ea e00a | | Load 0x0,0xa
01eb 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ec 4807 |H | Short_Literal 0x7
01ed 0092 0211 | | Action Push_String_Extended,0x211 ; "Unit options length exceeds 1024"
01ef e00b | | Load 0x0,0xb
01f0 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01f1 4505 |E | Exit_Suprogram New_Top_Offset 0x5
01f2 0000 0000 | | .XXX[0x2]
01f4 0000 0000 | | .LITERAL {0x00000000, 0x00000400}
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 00da | | Load_Top At_Offset_2
01fc e212 | | Load 0x1,0x12
01fd 01d5 | | Execute Vector,Field_Reference
01fe 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ff 0c01 | | Execute_Immediate Greater_Equal,0x1
0200 680d |h | Jump_Zero 0x20e
0201 4801 |H | Short_Literal 0x1
0202 00db | | Load_Top At_Offset_3
0203 e212 | | Load 0x1,0x12
0204 01d5 | | Execute Vector,Field_Reference
0205 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0206 e5ff | | Load 0x2,-0x1
0207 e212 | | Load 0x1,0x12
0208 01d5 | | Execute Vector,Field_Reference
0209 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
020a 01cf | | Execute Vector,Slice_Read
020b 0335 | 5 | Declare_Variable Array,Duplicate
020c 00cd | | Action Spare6_Action
020d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020e 00ea | | Load_Encached Null_String_Cache
020f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0210 ; --------------------------------------------------------------------------------------
0210 ; STRING TABLE
0210 ; --------------------------------------------------------------------------------------
0210 0006 | | .STRTAB 0x0006->0x0213 ; "."
0211 0005 | | .STRTAB 0x0005->0x0213 ; "Unit options length exceeds 1024"
0212 0024 | $ | .STREND 0x0024->0x0224
0213 2e55 6e69 |.Uni| .STRTAB_STRINGS
0224 0000 0000 | | .BLANK 0000[0x4]
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug Table
0228 ; --------------------------------------------------------------------------------------
0228 0004 000f | | .DEBUG4 0x0004,0x000f,0x2ddd,0x0000,0x0001,0x0000
022e 792e 7263 |y.rc| .XXX[0x71]
0230 695f 6c69 |i_li|
0232 6272 6172 |brar|
0234 795f 7265 |y_re|
0236 6769 7374 |gist|
0238 6572 5f6c |er_l|
023a 6f67 2229 |og")|
023c 3b4b 0011 |;K |
023e 2020 2020 | |
0240 656e 6420 |end |
0242 5265 6769 |Regi|
0244 7374 6572 |ster|
0246 3b11 0000 |; |
0248 0000 1b20 | |
024a 2020 2070 | p|
024c 726f 6365 |roce|
024e 6475 7265 |dure|
0250 2055 6e72 | Unr|
0252 6567 6973 |egis|
0254 7465 7220 |ter |
0256 6973 1b00 |is |
0258 0920 2020 | |
025a 2062 6567 | beg|
025c 696e 0900 |in |
025e 2e20 2020 |. |
0260 2020 2020 | |
0262 2052 6369 | Rci|
0264 5f43 7573 |_Cus|
0266 746f 6d69 |tomi|
0268 7a61 7469 |zati|
026a 6f6e 2e55 |on.U|
026c 6e72 6567 |nreg|
026e 6973 7465 |iste|
0270 7220 2854 |r (T|
0272 5f4e 616d |_Nam|
0274 6529 3b2e |e);.|
0276 0013 2020 | |
0278 2020 656e | en|
027a 6420 556e |d Un|
027c 7265 6769 |regi|
027e 7374 6572 |ster|
0280 3b13 0000 |; |
0282 0000 0000 | |
0284 000d 656e | en|
0286 6420 5465 |d Te|
0288 6d70 6c61 |mpla|
028a 7465 3b0d |te; |
028c 0000 0065 | e|
028e 7269 7374 |rist|
0290 6963 7320 |ics |
0292 3d3e 2047 |=> G|
0294 6574 5f41 |et_A|
0296 7474 7269 |ttri|
0298 6275 7465 |bute|
029a 5f49 6e66 |_Inf|
029c 6f2c 4000 |o,@ |
029e 3e20 |> |
029f 2020 2020 | | .BLANK 2020[0x5]
02a4 2054 6865 | The| .XXX[0x1b]
02a6 5f52 6570 |_Rep|
02a8 5f53 7065 |_Spe|
02aa 635f 4368 |c_Ch|
02ac 6172 6163 |arac|
02ae 7465 7269 |teri|
02b0 7374 6963 |stic|
02b2 7320 3d3e |s =>|
02b4 2047 6574 | Get|
02b6 5f52 6570 |_Rep|
02b8 5f53 7065 |_Spe|
02ba 635f 496e |c_In|
02bc 666f 2c3e |fo,>|
02be 003a | : |
02bf 2020 2020 | | .BLANK 2020[0x6]
02c5 5468 655f |The_| .XXX[0x19]
02c7 5465 6c6e |Teln|
02c9 6574 5f43 |et_C|
02cb 6861 7261 |hara|
02cd 6374 6572 |cter|
02cf 6973 7469 |isti|
02d1 6373 203d |cs =|
02d3 3e20 4765 |> Ge|
02d5 745f 5465 |t_Te|
02d7 6c6e 6574 |lnet|
02d9 5f49 6e66 |_Inf|
02db 6f2c 3a00 |o,: |
02dd 3e20 |> |
02de 2020 2020 | | .BLANK 2020[0x5]
02e3 2041 6c6c | All| .XXX[0x49]
02e5 6f77 5f53 |ow_S|
02e7 7461 6e64 |tand|
02e9 6172 645f |ard_|
02eb 5265 6275 |Rebu|
02ed 696c 6420 |ild |
02ef 3d3e 2041 |=> A|
02f1 6c6c 6f77 |llow|
02f3 5f53 7461 |_Sta|
02f5 6e64 6172 |ndar|
02f7 645f 5265 |d_Re|
02f9 6275 696c |buil|
02fb 6429 3b3e |d);>|
02fd 0000 0000 | |
02ff 0a20 2020 | |
0301 2020 2020 | |
0303 202d 2d0a | -- |
0305 a430 5b52 | 0[R|
0307 6570 6c61 |epla|
0309 6365 203e |ce >|
030b 3e79 6f75 |>you|
030d 725f 7375 |r_su|
030f 6273 7973 |bsys|
0311 7465 6d3c |tem<|
0313 3c20 7769 |< wi|
0315 7468 2073 |th s|
0317 7562 7379 |ubsy|
0319 7374 656d |stem|
031b 206e 616d | nam|
031d 655d 3000 |e]0 |
031f 1720 2020 | |
0321 2020 2020 | |
0323 2050 726f | Pro|
0325 6772 616d |gram|
0327 2e52 756e |.Run|
0329 5f4a 6f62 |_Job|
032b 1700 | |
032c 0000 0000 | | .BLANK 0000[0x4]
0330 0071 dbcc | q | .XXX[0x23]
0332 7f0d 43ee | C |
0334 7600 bc53 |v S|
0336 c800 0002 | |
0338 0000 0040 | @|
033a 0000 bc94 | |
033c 7c80 5e29 || ^)|
033e 8400 0000 | |
0340 0000 0000 | |
0342 0bc5 3c80 | < |
0344 0bc5 47c0 | G |
0346 0bc5 47c0 | G |
0348 05e2 9840 | @|
034a 0000 0000 | |
034c 33f1 00bc |3 |
034e 88a1 00bc | |
0350 53c8 00bc |S |
0352 53c8 |S |
0353 0000 0000 | | .BLANK 0000[0xad]