|
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: 1024 (0x400) Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_043cfb
└─⟦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 01c8 | | .CONST 0x01c8 ; 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 005c | \ | .CONST 0x005c ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0021 | ! | .CONST 0x0021 ; Number of locals 000b INIT_0008: 000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated 000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated 000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated 0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated 0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated 0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated 0017 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated 0019 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated 001b 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 001d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated 001f 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated 0021 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated 0023 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated 0025 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated 0027 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated 0029 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated 002b 00bf | | Action Accept_Activation 002c 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call 002e e001 | | Load 0x0,0x1 002f 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0030 1938 | 8 | Execute Package,Field_Reference,Field_Number 0x38 0031 0007 | | Action Break_Optional 0032 e001 | | Load 0x0,0x1 0033 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0034 1937 | 7 | Execute Package,Field_Reference,Field_Number 0x37 0035 0007 | | Action Break_Optional 0036 e002 | | Load 0x0,0x2 0037 191b | | Execute Package,Field_Reference,Field_Number 0x1b 0038 0007 | | Action Break_Optional 0039 e002 | | Load 0x0,0x2 003a 191c | | Execute Package,Field_Reference,Field_Number 0x1c 003b 0007 | | Action Break_Optional 003c 1d0d | | Execute_Immediate Reference_Lex_1,0xd 003d 00c7 | | Action Elaborate_Subprogram 003e 1d0e | | Execute_Immediate Reference_Lex_1,0xe 003f 00c7 | | Action Elaborate_Subprogram 0040 1d0f | | Execute_Immediate Reference_Lex_1,0xf 0041 00c7 | | Action Elaborate_Subprogram 0042 1d10 | | Execute_Immediate Reference_Lex_1,0x10 0043 00c7 | | Action Elaborate_Subprogram 0044 1d11 | | Execute_Immediate Reference_Lex_1,0x11 0045 00c7 | | Action Elaborate_Subprogram 0046 1d12 | | Execute_Immediate Reference_Lex_1,0x12 0047 00c7 | | Action Elaborate_Subprogram 0048 1d13 | | Execute_Immediate Reference_Lex_1,0x13 0049 00c7 | | Action Elaborate_Subprogram 004a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 004b 00c7 | | Action Elaborate_Subprogram 004c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 004d 00c7 | | Action Elaborate_Subprogram 004e 1d16 | | Execute_Immediate Reference_Lex_1,0x16 004f 00c7 | | Action Elaborate_Subprogram 0050 1d17 | | Execute_Immediate Reference_Lex_1,0x17 0051 00c7 | | Action Elaborate_Subprogram 0052 1d18 | | Execute_Immediate Reference_Lex_1,0x18 0053 00c7 | | Action Elaborate_Subprogram 0054 1d19 | | Execute_Immediate Reference_Lex_1,0x19 0055 00c7 | | Action Elaborate_Subprogram 0056 1d1a | | Execute_Immediate Reference_Lex_1,0x1a 0057 00c7 | | Action Elaborate_Subprogram 0058 1d1b | | Execute_Immediate Reference_Lex_1,0x1b 0059 00c7 | | Action Elaborate_Subprogram 005a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c 005b 00c7 | | Action Elaborate_Subprogram 005c BODY_0008: 005c 00bc | | Action Signal_Activated 005d 00bb | | Action Signal_Completion 005e 0000 0000 | | .XXX[0x2] 0060 ; -------------------------------------------------------------------------------------- 0060 ; SUBPROGRAM 0060 ; -------------------------------------------------------------------------------------- 0060 0063 | c | .CONST 0x0063 ; Address of begin 0061 0004 | | .CONST 0x0004 ; Address of exception handler 0062 0001 | | .CONST 0x0001 ; Number of locals 0063 BODY_0060: 0063 INIT_0060: 0063 4820 |H | Short_Literal 0x20 0064 4820 |H | Short_Literal 0x20 0065 4804 |H | Short_Literal 0x4 0066 480a |H | Short_Literal 0xa 0067 e5ff | | Load 0x2,-0x1 0068 e003 | | Load 0x0,0x3 0069 1816 | | Execute Package,Field_Execute,Field_Number 0x16 006a 01cb | | Execute Vector,Append 006b e5fe | | Load 0x2,-0x2 006c 01cc | | Execute Vector,Catenate 006d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 006e 0000 0000 | | .XXX[0x2] 0070 ; -------------------------------------------------------------------------------------- 0070 ; SUBPROGRAM 0070 ; -------------------------------------------------------------------------------------- 0070 0073 | s | .CONST 0x0073 ; Address of begin 0071 0004 | | .CONST 0x0004 ; Address of exception handler 0072 0001 | | .CONST 0x0001 ; Number of locals 0073 BODY_0070: 0073 INIT_0070: 0073 4820 |H | Short_Literal 0x20 0074 00db | | Load_Top At_Offset_3 0075 821f | | Call 0x1,0x1f 0076 01cb | | Execute Vector,Append 0077 e5fe | | Load 0x2,-0x2 0078 01cc | | Execute Vector,Catenate 0079 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 007a 0000 0000 | | .BLANK 0000[0x6] 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 4820 |H | Short_Literal 0x20 0084 00db | | Load_Top At_Offset_3 0085 01cb | | Execute Vector,Append 0086 e5fe | | Load 0x2,-0x2 0087 821f | | Call 0x1,0x1f 0088 01cc | | Execute Vector,Catenate 0089 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 008a 0000 0000 | | .BLANK 0000[0x6] 0090 ; -------------------------------------------------------------------------------------- 0090 ; SUBPROGRAM 0090 ; -------------------------------------------------------------------------------------- 0090 0093 | | .CONST 0x0093 ; Address of begin 0091 0004 | | .CONST 0x0004 ; Address of exception handler 0092 0001 | | .CONST 0x0001 ; Number of locals 0093 BODY_0090: 0093 INIT_0090: 0093 4820 |H | Short_Literal 0x20 0094 00db | | Load_Top At_Offset_3 0095 821e | | Call 0x1,0x1e 0096 01cb | | Execute Vector,Append 0097 e5fe | | Load 0x2,-0x2 0098 01cc | | Execute Vector,Catenate 0099 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 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 4820 |H | Short_Literal 0x20 00a4 00db | | Load_Top At_Offset_3 00a5 01cb | | Execute Vector,Append 00a6 e5fe | | Load 0x2,-0x2 00a7 821e | | Call 0x1,0x1e 00a8 01cc | | Execute Vector,Catenate 00a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2 00aa 0000 0000 | | .BLANK 0000[0x6] 00b0 ; -------------------------------------------------------------------------------------- 00b0 ; SUBPROGRAM 00b0 ; -------------------------------------------------------------------------------------- 00b0 00b3 | | .CONST 0x00b3 ; Address of begin 00b1 0004 | | .CONST 0x0004 ; Address of exception handler 00b2 0001 | | .CONST 0x0001 ; Number of locals 00b3 BODY_00b0: 00b3 INIT_00b0: 00b3 4820 |H | Short_Literal 0x20 00b4 00db | | Load_Top At_Offset_3 00b5 01cb | | Execute Vector,Append 00b6 e5fe | | Load 0x2,-0x2 00b7 821e | | Call 0x1,0x1e 00b8 01cc | | Execute Vector,Catenate 00b9 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and " 00bb 01cc | | Execute Vector,Catenate 00bc e5fd | | Load 0x2,-0x3 00bd 821e | | Call 0x1,0x1e 00be 01cc | | Execute Vector,Catenate 00bf 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 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 4820 |H | Short_Literal 0x20 00c4 4820 |H | Short_Literal 0x20 00c5 e5ff | | Load 0x2,-0x1 00c6 01cb | | Execute Vector,Append 00c7 e5fe | | Load 0x2,-0x2 00c8 821e | | Call 0x1,0x1e 00c9 01cc | | Execute Vector,Catenate 00ca 01cb | | Execute Vector,Append 00cb e5fd | | Load 0x2,-0x3 00cc 01cc | | Execute Vector,Catenate 00cd 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00ce 0000 0000 | | .XXX[0x2] 00d0 ; -------------------------------------------------------------------------------------- 00d0 ; SUBPROGRAM 00d0 ; -------------------------------------------------------------------------------------- 00d0 00d3 | | .CONST 0x00d3 ; Address of begin 00d1 0004 | | .CONST 0x0004 ; Address of exception handler 00d2 0001 | | .CONST 0x0001 ; Number of locals 00d3 BODY_00d0: 00d3 INIT_00d0: 00d3 4820 |H | Short_Literal 0x20 00d4 4820 |H | Short_Literal 0x20 00d5 4820 |H | Short_Literal 0x20 00d6 4820 |H | Short_Literal 0x20 00d7 e5ff | | Load 0x2,-0x1 00d8 01cb | | Execute Vector,Append 00d9 e5fe | | Load 0x2,-0x2 00da 821e | | Call 0x1,0x1e 00db 01cc | | Execute Vector,Catenate 00dc 01cb | | Execute Vector,Append 00dd e5fd | | Load 0x2,-0x3 00de 01cc | | Execute Vector,Catenate 00df 01cb | | Execute Vector,Append 00e0 e5fc | | Load 0x2,-0x4 00e1 821e | | Call 0x1,0x1e 00e2 01cc | | Execute Vector,Catenate 00e3 01cb | | Execute Vector,Append 00e4 e5fb | | Load 0x2,-0x5 00e5 01cc | | Execute Vector,Catenate 00e6 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 00eb | | .CONST 0x00eb ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0001 | | .CONST 0x0001 ; Number of locals 00eb BODY_00e8: 00eb INIT_00e8: 00eb 4820 |H | Short_Literal 0x20 00ec 00db | | Load_Top At_Offset_3 00ed 01cb | | Execute Vector,Append 00ee e5fe | | Load 0x2,-0x2 00ef 821e | | Call 0x1,0x1e 00f0 01cc | | Execute Vector,Catenate 00f1 0092 01b2 | | Action Push_String_Extended,0x1b2 ; ": " 00f3 01cc | | Execute Vector,Catenate 00f4 e5fd | | Load 0x2,-0x3 00f5 e001 | | Load 0x0,0x1 00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f7 011c | | Execute Any,Convert_Unchecked 00f8 1c01 | | Execute_Immediate Run_Utility,0x1 00f9 01cc | | Execute Vector,Catenate 00fa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 00fb 0000 0000 | | .BLANK 0000[0x5] 0100 ; -------------------------------------------------------------------------------------- 0100 ; SUBPROGRAM 0100 ; -------------------------------------------------------------------------------------- 0100 0103 | | .CONST 0x0103 ; Address of begin 0101 0004 | | .CONST 0x0004 ; Address of exception handler 0102 0001 | | .CONST 0x0001 ; Number of locals 0103 BODY_0100: 0103 INIT_0100: 0103 4829 |H) | Short_Literal 0x29 0104 4820 |H | Short_Literal 0x20 0105 e5ff | | Load 0x2,-0x1 0106 01cb | | Execute Vector,Append 0107 e5fe | | Load 0x2,-0x2 0108 e001 | | Load 0x0,0x1 0109 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 010a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39 010b 01cc | | Execute Vector,Catenate 010c 0092 01b3 | | Action Push_String_Extended,0x1b3 ; " (" 010e 01cc | | Execute Vector,Catenate 010f e5fd | | Load 0x2,-0x3 0110 e004 | | Load 0x0,0x4 0111 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0112 011c | | Execute Any,Convert_Unchecked 0113 1c01 | | Execute_Immediate Run_Utility,0x1 0114 01cc | | Execute Vector,Catenate 0115 01cb | | Execute Vector,Append 0116 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0117 0000 | | .XXX[0x1] 0118 ; -------------------------------------------------------------------------------------- 0118 ; SUBPROGRAM 0118 ; -------------------------------------------------------------------------------------- 0118 011b | | .CONST 0x011b ; Address of begin 0119 0004 | | .CONST 0x0004 ; Address of exception handler 011a 0001 | | .CONST 0x0001 ; Number of locals 011b BODY_0118: 011b INIT_0118: 011b 4820 |H | Short_Literal 0x20 011c 00db | | Load_Top At_Offset_3 011d 01cb | | Execute Vector,Append 011e e5fe | | Load 0x2,-0x2 011f e001 | | Load 0x0,0x1 0120 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35 0121 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 0122 01cc | | Execute Vector,Catenate 0123 0092 01b2 | | Action Push_String_Extended,0x1b2 ; ": " 0125 01cc | | Execute Vector,Catenate 0126 e5fd | | Load 0x2,-0x3 0127 e001 | | Load 0x0,0x1 0128 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0129 011c | | Execute Any,Convert_Unchecked 012a 1c01 | | Execute_Immediate Run_Utility,0x1 012b 01cc | | Execute Vector,Catenate 012c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 012d 0000 0000 | | .XXX[0x3] 012f 0000 | | 0130 ; -------------------------------------------------------------------------------------- 0130 ; SUBPROGRAM 0130 ; -------------------------------------------------------------------------------------- 0130 0133 | 3 | .CONST 0x0133 ; Address of begin 0131 0004 | | .CONST 0x0004 ; Address of exception handler 0132 0001 | | .CONST 0x0001 ; Number of locals 0133 BODY_0130: 0133 INIT_0130: 0133 4820 |H | Short_Literal 0x20 0134 0092 01b4 | | Action Push_String_Extended,0x1b4 ; "Views " 0136 e5ff | | Load 0x2,-0x1 0137 821e | | Call 0x1,0x1e 0138 01cc | | Execute Vector,Catenate 0139 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and " 013b 01cc | | Execute Vector,Catenate 013c e5fe | | Load 0x2,-0x2 013d 821e | | Call 0x1,0x1e 013e 01cc | | Execute Vector,Catenate 013f 01cb | | Execute Vector,Append 0140 e5fd | | Load 0x2,-0x3 0141 01cc | | Execute Vector,Catenate 0142 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0143 0000 0000 | | .BLANK 0000[0x5] 0148 ; -------------------------------------------------------------------------------------- 0148 ; SUBPROGRAM 0148 ; -------------------------------------------------------------------------------------- 0148 014b | K | .CONST 0x014b ; Address of begin 0149 0004 | | .CONST 0x0004 ; Address of exception handler 014a 0001 | | .CONST 0x0001 ; Number of locals 014b BODY_0148: 014b INIT_0148: 014b 4820 |H | Short_Literal 0x20 014c 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "Units " 014e e5ff | | Load 0x2,-0x1 014f 821e | | Call 0x1,0x1e 0150 01cc | | Execute Vector,Catenate 0151 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and " 0153 01cc | | Execute Vector,Catenate 0154 e5fe | | Load 0x2,-0x2 0155 821e | | Call 0x1,0x1e 0156 01cc | | Execute Vector,Catenate 0157 01cb | | Execute Vector,Append 0158 e5fd | | Load 0x2,-0x3 0159 01cc | | Execute Vector,Catenate 015a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 015b 0000 0000 | | .BLANK 0000[0x5] 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 4820 |H | Short_Literal 0x20 0164 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "Units " 0166 e5ff | | Load 0x2,-0x1 0167 821f | | Call 0x1,0x1f 0168 01cc | | Execute Vector,Catenate 0169 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and " 016b 01cc | | Execute Vector,Catenate 016c e5fe | | Load 0x2,-0x2 016d 821f | | Call 0x1,0x1f 016e 01cc | | Execute Vector,Catenate 016f 01cb | | Execute Vector,Append 0170 e5fd | | Load 0x2,-0x3 0171 01cc | | Execute Vector,Catenate 0172 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 0173 0000 0000 | | .BLANK 0000[0x5] 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 4820 |H | Short_Literal 0x20 017c 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "Units " 017e e5ff | | Load 0x2,-0x1 017f 821f | | Call 0x1,0x1f 0180 01cc | | Execute Vector,Catenate 0181 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and " 0183 01cc | | Execute Vector,Catenate 0184 e5fe | | Load 0x2,-0x2 0185 8220 | | Call 0x1,0x20 0186 01cc | | Execute Vector,Catenate 0187 01cb | | Execute Vector,Append 0188 e5fd | | Load 0x2,-0x3 0189 01cc | | Execute Vector,Catenate 018a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 018b 0000 0000 | | .BLANK 0000[0x5] 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 4820 |H | Short_Literal 0x20 0194 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "Units " 0196 e5ff | | Load 0x2,-0x1 0197 821f | | Call 0x1,0x1f 0198 01cc | | Execute Vector,Catenate 0199 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and " 019b 01cc | | Execute Vector,Catenate 019c e5fe | | Load 0x2,-0x2 019d 8221 | ! | Call 0x1,0x21 019e 01cc | | Execute Vector,Catenate 019f 01cb | | Execute Vector,Append 01a0 e5fd | | Load 0x2,-0x3 01a1 01cc | | Execute Vector,Catenate 01a2 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3 01a3 0000 0000 | | .BLANK 0000[0x5] 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 00da | | Load_Top At_Offset_2 01ac e001 | | Load 0x0,0x1 01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd 01ae 011c | | Execute Any,Convert_Unchecked 01af 1c01 | | Execute_Immediate Run_Utility,0x1 01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 01b1 ; -------------------------------------------------------------------------------------- 01b1 ; STRING TABLE 01b1 ; -------------------------------------------------------------------------------------- 01b1 000c | | .STRTAB 0x000c->0x01b7 ; " and " 01b2 000f | | .STRTAB 0x000f->0x01b9 ; ": " 01b3 000f | | .STRTAB 0x000f->0x01ba ; " (" 01b4 000f | | .STRTAB 0x000f->0x01bb ; "Views " 01b5 0013 | | .STRTAB 0x0013->0x01be ; "Units " 01b6 0017 | | .STREND 0x0017->0x01c1 01b7 2061 6e64 | and| .STRTAB_STRINGS 01c2 0000 0000 | | .BLANK 0000[0x6] 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; Debug Table 01c8 ; -------------------------------------------------------------------------------------- 01c8 0004 0012 | | .DEBUG4 0x0004,0x0012,0xa465,0x0000,0x0001,0x0000 01ce 03e4 040e | | .XXX[0x26] 01d0 6d0c 2e4c |m .L| 01d2 a40d ecc4 | | 01d4 0ccd ee4c | L| 01d6 acee 4dee | M | 01d8 adcc 8408 | | 01da 6a0a a40e |j | 01dc 8d2d aca5 | - | 01de c000 0003 | | 01e0 2000 0003 | | 01e2 e404 0e6d | m| 01e4 0c2e 4ca4 | .L | 01e6 0dec c40c | | 01e8 cdee 4cac | L | 01ea ee4d eead | M | 01ec cc84 086a | j| 01ee 0aa4 0e8d | | 01f0 2dac a5c0 |- | 01f2 0000 0020 | | 01f4 0000 0000 | | .BLANK 0000[0x5] 01f9 0720 0000 | | .XXX[0x7] 01fb 0000 0000 | | 01fd 0700 0000 | | 01ff 0780 | |