|
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 | |