|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦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 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 0000 f1b3 | | .XXX[0x1a] 0240 0000 0020 | | 0242 0000 0000 | | 0244 0001 0300 | | 0246 0000 005f | _| 0248 000e 1c04 | | 024a 4000 0300 |@ | 024c 0000 0000 | | 024e 0000 005f | _| 0250 0d05 000e | | 0252 0000 0000 | | 0254 0003 bcfe | | 0256 0000 00fe | | 0258 0000 0000 | | .BLANK 0000[0x4] 025c 09ac 1404 | | .XXX[0xc8] 025e 0000 0000 | | 0260 09ab f804 | | 0262 0000 0003 | | 0264 000b dc13 | | 0266 0000 5c32 | \2| 0268 09ab f804 | | 026a 0000 17bf | | 026c 0009 10b4 | | 026e 0000 059d | | 0270 ec00 0004 | | 0272 ed00 0004 | | 0274 002b cd01 | + | 0276 0000 0080 | | 0278 002b cd01 | + | 027a 0000 0080 | | 027c 0000 0000 | | 027e 0000 01b8 | | 0280 003f f021 | ? !| 0282 9000 0183 | | 0284 2000 00bd | | 0286 f800 4885 | H | 0288 0a02 3404 | 4 | 028a 0000 0521 | !| 028c 0000 f83b | ;| 028e 0000 0000 | | 0290 0d05 0000 | | 0292 0000 0029 | )| 0294 09ac 1404 | | 0296 0000 0000 | | 0298 f049 f3dd | I | 029a 2350 32fe |#P2 | 029c 234c 38b2 |#L8 | 029e e350 e34c | P L| 02a0 2350 2350 |#P#P| 02a2 234c 234e |#L#N| 02a4 2350 3970 |#P9p| 02a6 3849 7972 |8Iyr| 02a8 82fa 9a1a | | 02aa 922a 2a72 | **r| 02ac fa82 927a | z| 02ae 1a2a 22aa | *" | 02b0 922a 9972 | * r| 02b2 222a 620a |"*b | 02b4 cafa 1a7a | z| 02b6 aa72 a1cb | r | 02b8 30b8 008a |0 | 02ba 9aa2 0a72 | r| 02bc 220a 9221 |" !| 02be 7222 aa92 |r" | 02c0 0aa2 4a7a | Jz| 02c2 7000 4009 |p @ | 02c4 ffc0 0000 | | 02c6 0000 0000 | | 02c8 0002 3f08 | ? | 02ca 0000 0070 | p| 02cc 0000 0010 | | 02ce 0000 0440 | @| 02d0 0224 1505 | $ | 02d2 f534 3524 | 45$| 02d4 5454 e5f5 |TT | 02d6 0524 f434 | $ 4| 02d8 5445 5524 |TEU$| 02da 5532 e415 |U2 | 02dc 05f5 3544 | 5D| 02de 1545 5535 | EU5| 02e0 f524 f573 | $ s| 02e2 9661 7001 | ap | 02e4 0535 4414 | 5D | 02e6 e444 1524 | D $| 02e8 42e4 94e5 |B | 02ea 4454 7455 |DTtU| 02ec 2000 8000 | | 02ee 0000 0000 | | 02f0 0000 03d0 | | 02f2 0000 0000 | | 02f4 0000 00c0 | | 02f6 0000 0020 | | 02f8 0000 05e0 | | 02fa 0528 2a0b | (* | 02fc ea68 6a48 | hjH| 02fe a8a9 cbea | | 0300 09ab f804 | | 0302 0000 007f | | 0304 000b dc13 | | 0306 0000 5c32 | \2| 0308 09ab f804 | | 030a 0000 17bf | | 030c 0009 10b4 | | 030e 0000 059d | | 0310 0001 0404 | | 0312 0800 0100 | | 0314 8000 0000 | | 0316 0000 0000 | | 0318 0001 0404 | | 031a 0800 0100 | | 031c 002b cd01 | + | 031e 0000 0080 | | 0320 09ac 2004 | | 0322 0800 04b8 | | 0324 0000 0000 | | .BLANK 0000[0x4] 0328 09ac 1404 | | .XXX[0x20] 032a 0000 4796 | G | 032c 0001 bc13 | | 032e 0000 38b3 | 8 | 0330 09ac 2004 | | 0332 0800 04b8 | | 0334 0015 ffe9 | | 0336 00de dc9f | | 0338 09ac 1404 | | 033a 0000 47ff | G | 033c 0001 bc13 | | 033e 0000 0eb3 | | 0340 09ac 2004 | | 0342 0000 17bf | | 0344 0008 f071 | q| 0346 0000 059d | | 0348 0000 0000 | | .BLANK 0000[0x5] 034d 0001 0000 | | .XXX[0x47] 034f 08c1 20a8 | | 0351 2fa9 a1a9 |/ | 0353 22a2 a72f |" /| 0355 a829 27a1 | )' | 0357 a2a2 2aa9 | * | 0359 22a9 9720 |" | 035b a82f a9a1 | / | 035d a922 a2a7 | " | 035f 2fa1 a622 |/ "| 0361 a0a9 2fa0 | / | 0363 a722 2faa | "/ | 0365 27a8 1ebd |' | 0367 ca00 0000 | | 0369 0000 0000 | | 036b 000e 0000 | | 036d 0001 0000 | | 036f 0049 0027 | I '| 0371 4150 5f53 |AP_S| 0373 4352 4545 |CREE| 0375 4e5f 5052 |N_PR| 0377 4f43 4544 |OCED| 0379 5552 4553 |URES| 037b 2e41 505f |.AP_| 037d 4745 545f |GET_| 037f 5449 4d45 |TIME| 0381 5f53 5452 |_STR| 0383 494e 473d |ING=| 0385 7b94 7f90 |{ | 0387 2400 0454 |$ T| 0389 494d 4517 |IME | 038b 000f 5354 | ST| 038d 414e 4441 |ANDA| 038f 5244 2e53 |RD.S| 0391 5452 494e |TRIN| 0393 4700 |G | 0394 0000 0000 | | .BLANK 0000[0x4] 0398 4600 0000 |F | .XXX[0x50] 039a 0200 0000 | | 039c c600 5082 | P | 039e a0be a686 | | 03a0 a48a 8a9c | | 03a2 bea0 a49e | | 03a4 868a 88aa | | 03a6 a48a a65c | \| 03a8 82a0 bea6 | | 03aa 86a4 8a8a | | 03ac 9cbe 9092 | | 03ae 8e90 9892 | | 03b0 8e90 a87a | z| 03b2 f728 fd20 | ( | 03b4 4600 0890 |F | 03b6 9298 922e | .| 03b8 0020 a6a8 | | 03ba 829c 8882 | | 03bc a488 5c84 | \ | 03be 9e9e 988a | | 03c0 829c 2c00 | , | 03c2 2ca6 a882 |, | 03c4 9c88 82a4 | | 03c6 885c 849e | \ | 03c8 9e98 8a82 | | 03ca 9c5c 8c82 | \ | 03cc 98a6 8a00 | | 03ce 0000 0000 | | 03d0 0000 0034 | 4| 03d2 0000 0004 | | 03d4 0000 0124 | $| 03d6 009d 0541 | A| 03d8 7d4d 0d49 |}M I| 03da 1515 397d | 9}| 03dc 4149 3d0d |AI= | 03de 1511 5549 | UI| 03e0 154c b905 | L | 03e2 417d 1d15 |A} | 03e4 517d 1105 |Q} | 03e6 5115 7d4d |Q }M| 03e8 0000 0000 | | .BLANK 0000[0x4] 03ec 002b cd01 | + | .XXX[0x14] 03ee 0000 0004 | | 03f0 0001 0404 | | 03f2 0000 0700 | | 03f4 002b cd01 | + | 03f6 0000 1270 | p| 03f8 ff23 0023 | # #| 03fa 5000 0001 |P | 03fc 0000 0000 | | 03fe 0000 0003 | |