|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0238 | 8 | .CONST 0x0238 ; 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 0050 | P | .CONST 0x0050 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000a | | .CONST 0x000a ; Number of locals 000b INIT_0008: 000b 4800 |H | Short_Literal 0x0 000c 4806 |H | Short_Literal 0x6 000d 029f 00a3 | | Declare_Subprogram INIT_00a0,For_Call 000f 03fd | | Declare_Type Discrete,Defined 0010 4800 |H | Short_Literal 0x0 0011 4805 |H | Short_Literal 0x5 0012 00da | | Load_Top At_Offset_2 0013 03f8 | | Declare_Type Discrete,Constrained 0014 0007 | | Action Break_Optional 0015 4801 |H | Short_Literal 0x1 0016 4808 |H | Short_Literal 0x8 0017 00e9 | | Load_Encached String_Cache 0018 0334 | 4 | Declare_Variable Array,With_Constraint 0019 00d8 | | Load_Top At_Offset_0 001a 0335 | 5 | Declare_Variable Array,Duplicate 001b 00d0 | | Action Swap_Control 001c 00d1 | | Pop_Control Pop_Count_1 001d 4808 |H | Short_Literal 0x8 001e 4801 |H | Short_Literal 0x1 001f 4820 |H | Short_Literal 0x20 0020 00d9 | | Load_Top At_Offset_1 0021 e405 | | Load 0x2,0x5 0022 01d6 | | Execute Vector,Field_Write 0023 3ffb |? | Loop_Increasing 0x1f 0024 00d9 | | Load_Top At_Offset_1 0025 01d4 | | Execute Vector,Structure_Write 0026 00da | | Load_Top At_Offset_2 0027 0266 | f | Execute Discrete,Bounds 0028 00e1 | | Load_Encached Boolean_Cache 0029 02a0 | | Declare_Subprogram Null_Subprogram 002a 4801 |H | Short_Literal 0x1 002b 035d | ] | Declare_Type Array,Defined 002c 00d8 | | Load_Top At_Offset_0 002d 0337 | 7 | Declare_Variable Array 002e 4801 |H | Short_Literal 0x1 002f 4803 |H | Short_Literal 0x3 0030 00da | | Load_Top At_Offset_2 0031 01d6 | | Execute Vector,Field_Write 0032 4801 |H | Short_Literal 0x1 0033 4804 |H | Short_Literal 0x4 0034 00da | | Load_Top At_Offset_2 0035 01d6 | | Execute Vector,Field_Write 0036 4802 |H | Short_Literal 0x2 0037 4800 |H | Short_Literal 0x0 0038 4800 |H | Short_Literal 0x0 0039 00d9 | | Load_Top At_Offset_1 003a e406 | | Load 0x2,0x6 003b 01d6 | | Execute Vector,Field_Write 003c 3ffb |? | Loop_Increasing 0x38 003d 4800 |H | Short_Literal 0x0 003e 4805 |H | Short_Literal 0x5 003f 00da | | Load_Top At_Offset_2 0040 01d6 | | Execute Vector,Field_Write 0041 4800 |H | Short_Literal 0x0 0042 4806 |H | Short_Literal 0x6 0043 00da | | Load_Top At_Offset_2 0044 01d6 | | Execute Vector,Field_Write 0045 00d9 | | Load_Top At_Offset_1 0046 01c3 | | Execute Vector,Check_In_Type 0047 0007 | | Action Break_Optional 0048 029f 00bb | | Declare_Subprogram INIT_00b8,For_Call 004a 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call 004c 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call 004e 029f 00d3 | | Declare_Subprogram INIT_00d0,For_Call 0050 BODY_0008: 0050 e5fa | | Load 0x2,-0x6 0051 6811 |h | Jump_Zero 0x63 0052 e405 | | Load 0x2,0x5 0053 0337 | 7 | Declare_Variable Array 0054 4800 |H | Short_Literal 0x0 0055 4806 |H | Short_Literal 0x6 0056 00da | | Load_Top At_Offset_2 0057 01d6 | | Execute Vector,Field_Write 0058 4805 |H | Short_Literal 0x5 0059 4800 |H | Short_Literal 0x0 005a 4801 |H | Short_Literal 0x1 005b 00d9 | | Load_Top At_Offset_1 005c e40b | | Load 0x2,0xb 005d 01d6 | | Execute Vector,Field_Write 005e 3ffb |? | Loop_Increasing 0x5a 005f e405 | | Load 0x2,0x5 0060 01c3 | | Execute Vector,Check_In_Type 0061 e406 | | Load 0x2,0x6 0062 01d4 | | Execute Vector,Structure_Write 0063 e5fb | | Load 0x2,-0x5 0064 6804 |h | Jump_Zero 0x69 0065 4801 |H | Short_Literal 0x1 0066 4806 |H | Short_Literal 0x6 0067 e406 | | Load 0x2,0x6 0068 01d6 | | Execute Vector,Field_Write 0069 e5fd | | Load 0x2,-0x3 006a 6817 |h | Jump_Zero 0x82 006b e20e | | Load 0x1,0xe 006c 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006d e20e | | Load 0x1,0xe 006e 1815 | | Execute Package,Field_Execute,Field_Number 0x15 006f e20e | | Load 0x1,0xe 0070 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0071 e20e | | Load 0x1,0xe 0072 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0073 e20e | | Load 0x1,0xe 0074 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0075 e20e | | Load 0x1,0xe 0076 1811 | | Execute Package,Field_Execute,Field_Number 0x11 0077 e20e | | Load 0x1,0xe 0078 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0079 e20e | | Load 0x1,0xe 007a 180f | | Execute Package,Field_Execute,Field_Number 0xf 007b e20e | | Load 0x1,0xe 007c 180e | | Execute Package,Field_Execute,Field_Number 0xe 007d e20e | | Load 0x1,0xe 007e 180d | | Execute Package,Field_Execute,Field_Number 0xd 007f 0092 01db | | Action Push_String_Extended,0x1db ; "Load Time Version" 0081 840a | | Call 0x2,0xa 0082 e5fc | | Load 0x2,-0x4 0083 6815 |h | Jump_Zero 0x99 0084 00ea | | Load_Encached Null_String_Cache 0085 e20f | | Load 0x1,0xf 0086 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0087 e20f | | Load 0x1,0xf 0088 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0089 00ea | | Load_Encached Null_String_Cache 008a e20f | | Load 0x1,0xf 008b 1812 | | Execute Package,Field_Execute,Field_Number 0x12 008c e20f | | Load 0x1,0xf 008d 1811 | | Execute Package,Field_Execute,Field_Number 0x11 008e e20f | | Load 0x1,0xf 008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10 0090 e20f | | Load 0x1,0xf 0091 180f | | Execute Package,Field_Execute,Field_Number 0xf 0092 e20f | | Load 0x1,0xf 0093 180e | | Execute Package,Field_Execute,Field_Number 0xe 0094 e20f | | Load 0x1,0xf 0095 180d | | Execute Package,Field_Execute,Field_Number 0xd 0096 0092 01dc | | Action Push_String_Extended,0x1dc ; "Execution Time" 0098 840a | | Call 0x2,0xa 0099 4507 |E | Exit_Suprogram New_Top_Offset 0x7 009a 0000 0000 | | .BLANK 0000[0x6] 00a0 ; -------------------------------------------------------------------------------------- 00a0 ; SUBPROGRAM 00a0 ; -------------------------------------------------------------------------------------- 00a0 00a3 | | .CONST 0x00a3 ; Address of begin 00a1 0004 | | .CONST 0x0004 ; Address of exception handler 00a2 0001 | | .CONST 0x0001 ; Number of locals 00a3 BODY_00a0: 00a3 INIT_00a0: 00a3 4603 |F | Jump_Case 0x4 00a4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0 00a5 7802 |x | Jump 0xa8 ; case 0x1 00a6 7805 |x | Jump 0xac ; case 0x2 00a7 7809 |x | Jump 0xb1 ; case 0x3 00a8 00da | | Load_Top At_Offset_2 00a9 0091 01d4 | | Action Push_String_Extended_Indexed,0x1d4 ; "MACHINE" 00ab 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00ac 00db | | Load_Top At_Offset_3 00ad 00db | | Load_Top At_Offset_3 00ae 00e0 | | Load_Encached Standard_Cache 00af 181b | | Execute Package,Field_Execute,Field_Number 0x1b 00b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2 00b1 00da | | Load_Top At_Offset_2 00b2 00e0 | | Load_Encached Standard_Cache 00b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c 00b4 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1 00b5 0000 0000 | | .XXX[0x3] 00b7 0000 | | 00b8 ; -------------------------------------------------------------------------------------- 00b8 ; SUBPROGRAM 00b8 ; -------------------------------------------------------------------------------------- 00b8 00bb | | .CONST 0x00bb ; Address of begin 00b9 0004 | | .CONST 0x0004 ; Address of exception handler 00ba 0001 | | .CONST 0x0001 ; Number of locals 00bb BODY_00b8: 00bb INIT_00b8: 00bb 00da | | Load_Top At_Offset_2 00bc e5ff | | Load 0x2,-0x1 00bd e00c | | Load 0x0,0xc 00be 185e | ^ | Execute Package,Field_Execute,Field_Number 0x5e 00bf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c0 ; -------------------------------------------------------------------------------------- 00c0 ; SUBPROGRAM 00c0 ; -------------------------------------------------------------------------------------- 00c0 00c3 | | .CONST 0x00c3 ; Address of begin 00c1 0004 | | .CONST 0x0004 ; Address of exception handler 00c2 0001 | | .CONST 0x0001 ; Number of locals 00c3 BODY_00c0: 00c3 INIT_00c0: 00c3 00da | | Load_Top At_Offset_2 00c4 e5ff | | Load 0x2,-0x1 00c5 e00c | | Load 0x0,0xc 00c6 1863 | c | Execute Package,Field_Execute,Field_Number 0x63 00c7 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00cb | | .CONST 0x00cb ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0001 | | .CONST 0x0001 ; Number of locals 00cb BODY_00c8: 00cb INIT_00c8: 00cb 00da | | Load_Top At_Offset_2 00cc e5ff | | Load 0x2,-0x1 00cd e00c | | Load 0x0,0xc 00ce 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f 00cf 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00db | | .CONST 0x00db ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0005 | | .CONST 0x0005 ; Number of locals 00d3 INIT_00d0: 00d3 029f 011b | | Declare_Subprogram INIT_0118,For_Call 00d5 029f 014b | K| Declare_Subprogram INIT_0148,For_Call 00d7 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call 00d9 029f 017b | {| Declare_Subprogram INIT_0178,For_Call 00db BODY_00d0: 00db 4802 |H | Short_Literal 0x2 00dc 8409 | | Call 0x2,0x9 00dd 4820 |H | Short_Literal 0x20 00de e5fe | | Load 0x2,-0x2 00df e005 | | Load 0x0,0x5 00e0 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00e1 01cb | | Execute Vector,Append 00e2 e7ff | | Load 0x3,-0x1 00e3 01cc | | Execute Vector,Catenate 00e4 0092 01dd | | Action Push_String_Extended,0x1dd ; " Information" 00e6 01cc | | Execute Vector,Catenate 00e7 8602 | | Call 0x3,0x2 00e8 e7fe | | Load 0x3,-0x2 00e9 0092 01de | | Action Push_String_Extended,0x1de ; " (" 00eb 01cc | | Execute Vector,Catenate 00ec e7fd | | Load 0x3,-0x3 00ed 01cc | | Execute Vector,Catenate 00ee 0092 01df | | Action Push_String_Extended,0x1df ; ")" 00f0 01cc | | Execute Vector,Catenate 00f1 4800 |H | Short_Literal 0x0 00f2 8604 | | Call 0x3,0x4 00f3 482e |H. | Short_Literal 0x2e 00f4 e7fc | | Load 0x3,-0x4 00f5 01cb | | Execute Vector,Append 00f6 e7fb | | Load 0x3,-0x5 00f7 01cc | | Execute Vector,Catenate 00f8 4801 |H | Short_Literal 0x1 00f9 8604 | | Call 0x3,0x4 00fa e7f9 | | Load 0x3,-0x7 00fb 0092 01e0 | | Action Push_String_Extended,0x1e0 ; " at " 00fd 01cc | | Execute Vector,Catenate 00fe e7fa | | Load 0x3,-0x6 00ff 01cc | | Execute Vector,Catenate 0100 4802 |H | Short_Literal 0x2 0101 8604 | | Call 0x3,0x4 0102 e7f5 | | Load 0x3,-0xb 0103 4805 |H | Short_Literal 0x5 0104 8604 | | Call 0x3,0x4 0105 e7f8 | | Load 0x3,-0x8 0106 4803 |H | Short_Literal 0x3 0107 8604 | | Call 0x3,0x4 0108 e7f7 | | Load 0x3,-0x9 0109 4804 |H | Short_Literal 0x4 010a 8604 | | Call 0x3,0x4 010b e7f6 | | Load 0x3,-0xa 010c 4806 |H | Short_Literal 0x6 010d 8605 | | Call 0x3,0x5 010e 4801 |H | Short_Literal 0x1 010f 8409 | | Call 0x2,0x9 0110 450c |E | Exit_Suprogram New_Top_Offset 0xc 0111 0000 0000 | | .BLANK 0000[0x7] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 0138 | 8 | .CONST 0x0138 ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0005 | | .CONST 0x0005 ; Number of locals 011b INIT_0118: 011b 0092 01e1 | | Action Push_String_Extended,0x1e1 ; "== " 011d 0092 01e2 | | Action Push_String_Extended,0x1e2 ; " ==" 011f e9ff | | Load 0x4,-0x1 0120 01db | | Execute Vector,Length 0121 0a03 | | Execute_Immediate Plus,0x3 0122 0a03 | | Execute_Immediate Plus,0x3 0123 00e2 | | Load_Encached Integer_Cache 0124 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 0125 4801 |H | Short_Literal 0x1 0126 00d9 | | Load_Top At_Offset_1 0127 00e9 | | Load_Encached String_Cache 0128 0334 | 4 | Declare_Variable Array,With_Constraint 0129 00d8 | | Load_Top At_Offset_0 012a 0335 | 5 | Declare_Variable Array,Duplicate 012b 00d0 | | Action Swap_Control 012c 00d1 | | Pop_Control Pop_Count_1 012d 00d9 | | Load_Top At_Offset_1 012e 01d9 | | Execute Vector,Reverse_Bounds 012f 0263 | c | Execute Discrete,Above_Bound 0130 7005 |p | Jump_Nonzero 0x136 0131 483d |H= | Short_Literal 0x3d 0132 00d9 | | Load_Top At_Offset_1 0133 e806 | | Load 0x4,0x6 0134 01d6 | | Execute Vector,Field_Write 0135 3ffb |? | Loop_Increasing 0x131 0136 00d9 | | Load_Top At_Offset_1 0137 01d4 | | Execute Vector,Structure_Write 0138 BODY_0118: 0138 00d8 | | Load_Top At_Offset_0 0139 8408 | | Call 0x2,0x8 013a 00db | | Load_Top At_Offset_3 013b 8407 | | Call 0x2,0x7 013c e9ff | | Load 0x4,-0x1 013d 8407 | | Call 0x2,0x7 013e 00da | | Load_Top At_Offset_2 013f 8408 | | Call 0x2,0x8 0140 00d8 | | Load_Top At_Offset_0 0141 8408 | | Call 0x2,0x8 0142 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0143 0000 0000 | | .BLANK 0000[0x5] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014f | O | .CONST 0x014f ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0002 | | .CONST 0x0002 ; Number of locals 014b INIT_0148: 014b 00da | | Load_Top At_Offset_2 014c e402 | | Load 0x2,0x2 014d 025e | ^ | Execute Discrete,Convert 014e 1c01 | | Execute_Immediate Run_Utility,0x1 014f BODY_0148: 014f 00d8 | | Load_Top At_Offset_0 0150 4801 |H | Short_Literal 0x1 0151 4808 |H | Short_Literal 0x8 0152 00db | | Load_Top At_Offset_3 0153 01db | | Execute Vector,Length 0154 0272 | r | Execute Discrete,Minus 0155 e404 | | Load 0x2,0x4 0156 01cf | | Execute Vector,Slice_Read 0157 01cc | | Execute Vector,Catenate 0158 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 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 00da | | Load_Top At_Offset_2 0164 e406 | | Load 0x2,0x6 0165 01d7 | | Execute Vector,Field_Read 0166 680b |h | Jump_Zero 0x172 0167 00db | | Load_Top At_Offset_3 0168 01db | | Execute Vector,Length 0169 6808 |h | Jump_Zero 0x172 016a 00da | | Load_Top At_Offset_2 016b 8603 | | Call 0x3,0x3 016c 8407 | | Call 0x2,0x7 016d 0092 01e3 | | Action Push_String_Extended,0x1e3 ; " => " 016f 8407 | | Call 0x2,0x7 0170 00db | | Load_Top At_Offset_3 0171 8408 | | Call 0x2,0x8 0172 4503 |E | Exit_Suprogram New_Top_Offset 0x3 0173 0000 0000 | | .BLANK 0000[0x5] 0178 ; -------------------------------------------------------------------------------------- 0178 ; SUBPROGRAM 0178 ; -------------------------------------------------------------------------------------- 0178 0186 | | .CONST 0x0186 ; Address of begin 0179 0004 | | .CONST 0x0004 ; Address of exception handler 017a 0003 | | .CONST 0x0003 ; Number of locals 017b INIT_0178: 017b e00d | | Load 0x0,0xd 017c e00e | | Load 0x0,0xe 017d 4804 |H | Short_Literal 0x4 017e 0092 01e4 | | Action Push_String_Extended,0x1e4 ; " " 0180 e00f | | Load 0x0,0xf 0181 0387 | | Declare_Variable Package 0182 00d8 | | Load_Top At_Offset_0 0183 020f | | Execute Module,Activate 0184 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call 0186 BODY_0178: 0186 e9ff | | Load 0x4,-0x1 0187 e406 | | Load 0x2,0x6 0188 01d7 | | Execute Vector,Field_Read 0189 6829 |h) | Jump_Zero 0x1b3 018a e9fe | | Load 0x4,-0x2 018b 01db | | Execute Vector,Length 018c 0c01 | | Execute_Immediate Greater_Equal,0x1 018d 6825 |h% | Jump_Zero 0x1b3 018e 4800 |H | Short_Literal 0x0 018f 0092 01e5 | | Action Push_String_Extended,0x1e5 ; "Subsystem" 0191 00db | | Load_Top At_Offset_3 0192 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0193 4800 |H | Short_Literal 0x0 0194 0092 01e6 | | Action Push_String_Extended,0x1e6 ; "Spec_View" 0196 00db | | Load_Top At_Offset_3 0197 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0198 4800 |H | Short_Literal 0x0 0199 0092 01e7 | | Action Push_String_Extended,0x1e7 ; "Load_View" 019b 00db | | Load_Top At_Offset_3 019c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 019d 4800 |H | Short_Literal 0x0 019e 0092 01e8 | | Action Push_String_Extended,0x1e8 ; "Context" 01a0 00db | | Load_Top At_Offset_3 01a1 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01a2 00cf | | Action Mark_Auxiliary 01a3 e9fe | | Load 0x4,-0x2 01a4 01d9 | | Execute Vector,Reverse_Bounds 01a5 0263 | c | Execute Discrete,Above_Bound 01a6 7003 |p | Jump_Nonzero 0x1aa 01a7 8803 | | Call 0x4,0x3 01a8 00c8 | | Action Pop_Auxiliary_Range 01a9 3ffd |? | Loop_Increasing 0x1a7 01aa 00ce | | Action Pop_Auxiliary 01ab 4801 |H | Short_Literal 0x1 01ac 00da | | Load_Top At_Offset_2 01ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18 01ae 4801 |H | Short_Literal 0x1 01af 8409 | | Call 0x2,0x9 01b0 e5ff | | Load 0x2,-0x1 01b1 00da | | Load_Top At_Offset_2 01b2 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b3 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01b4 0000 0000 | | .BLANK 0000[0x4] 01b8 ; -------------------------------------------------------------------------------------- 01b8 ; SUBPROGRAM 01b8 ; -------------------------------------------------------------------------------------- 01b8 01bf | | .CONST 0x01bf ; Address of begin 01b9 0004 | | .CONST 0x0004 ; Address of exception handler 01ba 0002 | | .CONST 0x0002 ; Number of locals 01bb INIT_01b8: 01bb e806 | | Load 0x4,0x6 01bc e9fe | | Load 0x4,-0x2 01bd 01d7 | | Execute Vector,Field_Read 01be 0007 | | Action Break_Optional 01bf BODY_01b8: 01bf 00d8 | | Load_Top At_Offset_0 01c0 e20d | | Load 0x1,0xd 01c1 1811 | | Execute Package,Field_Execute,Field_Number 0x11 01c2 e802 | | Load 0x4,0x2 01c3 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c4 00d8 | | Load_Top At_Offset_0 01c5 e20d | | Load 0x1,0xd 01c6 1812 | | Execute Package,Field_Execute,Field_Number 0x12 01c7 e802 | | Load 0x4,0x2 01c8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01c9 00d8 | | Load_Top At_Offset_0 01ca e20d | | Load 0x1,0xd 01cb 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01cc e802 | | Load 0x4,0x2 01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01ce 00d8 | | Load_Top At_Offset_0 01cf e20d | | Load 0x1,0xd 01d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10 01d1 e802 | | Load 0x4,0x2 01d2 1813 | | Execute Package,Field_Execute,Field_Number 0x13 01d3 4501 |E | Exit_Suprogram New_Top_Offset 0x1 01d4 ; -------------------------------------------------------------------------------------- 01d4 ; STRING TABLE 01d4 ; -------------------------------------------------------------------------------------- 01d4 002c | , | .STRTAB 0x002c->0x01ea ; "MACHINE" 01d5 0031 | 1 | .STRTAB 0x0031->0x01ed ; "USER" 01d6 0033 | 3 | .STRTAB 0x0033->0x01ef ; "DATE" 01d7 0035 | 5 | .STRTAB 0x0035->0x01f1 ; "VERSION" 01d8 003a | : | .STRTAB 0x003a->0x01f5 ; "ACTIVITY" 01d9 0040 | @ | .STRTAB 0x0040->0x01f9 ; "COMMENTS" 01da 0046 | F | .STRTAB 0x0046->0x01fd ; "SUBSYSTEMS" 01db 004e | N | .STRTAB 0x004e->0x0202 ; "Load Time Version" 01dc 005d | ] | .STRTAB 0x005d->0x020a ; "Execution Time" 01dd 0069 | i | .STRTAB 0x0069->0x0211 ; " Information" 01de 0073 | s | .STRTAB 0x0073->0x0217 ; " (" 01df 0073 | s | .STRTAB 0x0073->0x0218 ; ")" 01e0 0072 | r | .STRTAB 0x0072->0x0219 ; " at " 01e1 0074 | t | .STRTAB 0x0074->0x021b ; "== " 01e2 0075 | u | .STRTAB 0x0075->0x021c ; " ==" 01e3 0076 | v | .STRTAB 0x0076->0x021e ; " => " 01e4 0078 | x | .STRTAB 0x0078->0x0220 ; " " 01e5 0077 | w | .STRTAB 0x0077->0x0220 ; "Subsystem" 01e6 007e | ~ | .STRTAB 0x007e->0x0225 ; "Spec_View" 01e7 0085 | | .STRTAB 0x0085->0x0229 ; "Load_View" 01e8 008c | | .STRTAB 0x008c->0x022e ; "Context" 01e9 0091 | | .STREND 0x0091->0x0231 01ea 4d41 4348 |MACH| .STRTAB_STRINGS 0232 0000 0000 | | .BLANK 0000[0x6] 0238 ; -------------------------------------------------------------------------------------- 0238 ; Debug Table 0238 ; -------------------------------------------------------------------------------------- 0238 0004 0006 | | .DEBUG4 0x0004,0x0006,0x28ce,0x0000,0x0001,0x0000 023e 1d22 8000 | " | .XXX[0x28] 0240 0097 0000 | | 0242 0001 0000 | | 0244 0077 0023 | w #| 0246 4d49 4352 |MICR| 0248 4f43 4f44 |OCOD| 024a 455f 5459 |E_TY| 024c 5045 532e |PES.| 024e 4e41 5455 |NATU| 0250 5241 4c53 |RALS| 0252 2e4e 4154 |.NAT| 0254 5552 414c |URAL| 0256 5f32 333c |_23<| 0258 6617 0015 |f | 025a 5354 414e |STAN| 025c 4441 5244 |DARD| 025e 2e4c 4f4e |.LON| 0260 475f 494e |G_IN| 0262 5445 4745 |TEGE| 0264 5261 0800 |Ra | 0266 0000 0000 | | .BLANK 0000[0x4] 026a 1000 1500 | | .XXX[0x8] 026c 012d 9310 | - | 026e 0015 0002 | | 0270 2a2a 9308 |** | 0272 0000 0000 | | .BLANK 0000[0x4] 0276 0208 | | .XXX[0x1] 0277 0000 0000 | | .BLANK 0000[0x4] 027b 1708 | | .XXX[0x1] 027c 0000 0000 | | .BLANK 0000[0x4] 0280 0100 083e | >| .XXX[0x1d] 0282 1c00 0001 | | 0284 b000 0000 | | 0286 0200 0000 | | 0288 b600 489a | H | 028a 9286 a49e | | 028c 869e 888a | | 028e bea8 b2a0 | | 0290 8aa6 5cac | \ | 0292 82a4 9282 | | 0294 9ca8 be86 | | 0296 9882 aaa6 | | 0298 8abe 929c | | 029a 888a b077 | w| 029c 32da |2 | 029d 0000 0000 | | .BLANK 0000[0x4] 02a1 cc2e 0044 | . D| .XXX[0x127] 02a3 9a92 86a4 | | 02a5 9e86 9e88 | | 02a7 8abe a8b2 | | 02a9 a08a a65c | \| 02ab 9c82 a8aa | | 02ad a482 98a6 | | 02af 5c9c 82a8 |\ | 02b1 aaa4 8298 | | 02b3 be70 0000 | p | 02b5 0000 0010 | | 02b7 8716 0000 | | 02b9 0488 0000 | | 02bb 0004 0000 | | 02bd 0738 0091 | 8 | 02bf 3525 0d49 |5% I| 02c1 3d0d 3d11 |= = | 02c3 157d 5165 | }Qe| 02c5 4115 4cb9 |A L | 02c7 0555 6125 | Ua%| 02c9 3125 0549 |1% I| 02cb 657d 4d51 |e}MQ| 02cd 0551 157d | Q }| 02cf 5165 4114 |QeA | 02d1 ee65 c8e6 | e | 02d3 4070 003d |@p =| 02d5 4555 1555 |EU U| 02d7 157d 4d55 | }MU| 02d9 0d0d 154d | M| 02db 4d3d 4998 |M=I | 02dd 5c00 6d35 |\ m5| 02df 250d 493d |% I=| 02e1 0d3d 1115 | = | 02e3 7d51 6541 |}QeA| 02e5 154c b935 | L 5| 02e7 3d11 5531 |= U1| 02e9 157d 3905 | }9 | 02eb 3514 0000 |5 | 02ed e640 7000 | @p | 02ef 3119 2531 |1 %1| 02f1 3115 497c |1 I|| 02f3 ccc9 7ccc | | | 02f5 d598 5c00 | \ | 02f7 8935 250d | 5% | 02f9 493d 0d3d |I= =| 02fb 1115 7d51 | }Q| 02fd 6541 154c |eA L| 02ff b939 0551 | 9 Q| 0301 5549 0531 |UI 1| 0303 4cb9 3905 |L 9 | 0305 5155 4905 |QUI | 0307 317c d000 |1| | 0309 00e6 4070 | @p| 030b 0045 2105 | E! | 030d 4d7d 3525 |M}5%| 030f 0d49 3d7d | I=}| 0311 0d3d 3951 | =9Q| 0313 1561 5198 | aQ | 0315 5c00 414d |\ AM| 0317 5105 3911 |Q 9 | 0319 0549 10b9 | I | 031b 093d 3d31 | ==1| 031d 1505 3800 | 8 | 031f 00e6 4070 | @p| 0321 0021 5165 | !Qe| 0323 4115 7d51 |A }Q| 0325 3d4d 985c |=M \| 0327 0085 3525 | 5%| 0329 0d49 3d0d | I= | 032b 3d11 157d |= }| 032d 5165 4115 |QeA | 032f 4cb9 5165 |L Qe| 0331 4115 7d11 |A } | 0333 254d 4131 |%MA1| 0335 050d 1535 | 5| 0337 1539 5000 | 9P | 0339 00e6 4070 | @p| 033b 001d 3d19 | = | 033d 7d2d 2539 |}-%9| 033f 1198 5c00 | \ | 0341 6535 250d |e5% | 0343 493d 0d3d |I= =| 0345 1115 7d51 | }Q| 0347 6541 154c |eA L| 0349 b95d 3d49 | ]=I| 034b 117d 2d25 | }-%| 034d 3910 0000 |9 | 034f e640 7000 | @p | 0351 350d 5549 |5 UI| 0353 4915 3951 |I 9Q| 0355 7d19 4905 |} I | 0357 3515 985c |5 \| 0359 0091 3525 | 5%| 035b 0d49 3d0d | I= | 035d 3d11 157d |= }| 035f 5165 4115 |QeA | 0361 4cb9 0d3d |L =| 0363 3951 493d |9QI=| 0365 317d 1125 |1} %| 0367 4d41 3105 |MA1 | 0369 0d15 3515 | 5 | 036b 3950 0000 |9P | 036d e640 7000 | @p | 036f 3119 2531 |1 %1| 0371 3115 497c |1 I|| 0373 e0d1 7ce4 | | | 0375 d598 5c00 | \ | 0377 8d35 250d | 5% | 0379 493d 0d3d |I= =| 037b 1115 7d51 | }Q| 037d 6541 154c |eA L| 037f b939 0551 | 9 Q| 0381 5549 0531 |UI 1| 0383 4cb9 3905 |L 9 | 0385 5155 4905 |QUI | 0387 317c c4c8 |1| | 0389 0000 e640 | @| 038b 7000 2111 |p ! | 038d 0551 057d | Q }| 038f 513d 4d98 |Q=M | 0391 5c00 8535 |\ 5| 0393 250d 493d |% I=| 0395 0d3d 1115 | = | 0397 7d51 6541 |}QeA| 0399 154c b911 | L | 039b 0551 057d | Q }| 039d 1125 4d41 | %MA| 039f 3105 0d15 |1 | 03a1 3515 3950 |5 9P| 03a3 0000 0000 | | 03a5 0021 1f08 | ! | 03a7 0000 0a08 | | 03a9 0000 0008 | | 03ab 0000 01c8 | | 03ad 00d2 6a4a | jJ| 03af 1a92 7a1a | z | 03b1 7a22 2afa |z"* | 03b3 a2ca 822a | *| 03b5 9972 1a0a | r | 03b7 820a 124a | J| 03b9 624a a2c9 |bJ | 03bb dccb 6800 | h | 03bd 0000 0000 | | 03bf 0000 0330 | 0| 03c1 b800 5272 | Rr| 03c3 0aa2 aa92 | | 03c5 0a62 f999 | b | 03c7 9000 | | 03c8 0000 0000 | | .BLANK 0000[0x4] 03cc 0002 c000 | | .XXX[0x34] 03ce 0000 1000 | | 03d0 000d 1002 | | 03d2 44d4 9435 |D 5| 03d4 24f4 34f4 |$ 4 | 03d6 4455 f545 |DU E| 03d8 9504 5532 | U2| 03da e554 e494 | T | 03dc e495 4494 | D | 03de 14c4 95a4 | | 03e0 5445 f464 |TE d| 03e2 14d4 94c5 | | 03e4 93b9 9723 | #| 03e6 9901 c000 | | 03e8 a454 e545 | T E| 03ea 2595 f4e4 |% | 03ec 14d4 5661 | Va| 03ee 7002 44d4 |p D | 03f0 9435 24f4 | 5$ | 03f2 34f4 4455 |4 DU| 03f4 f545 9504 | E | 03f6 5532 e4f4 |U2 | 03f8 6465 3455 |de4U| 03fa 45f5 44f5 |E D | 03fc f454 e545 | T E| 03fe 2595 f444 |% D|