|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦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 5900 |Y | .CONST 0x5900 ; 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 004e | N | .CONST 0x004e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b 029a 0053 | S| Declare_Subprogram INIT_0050,For_Outer_Call,Visible,Unelaborated
000d 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000f 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0011 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0013 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0015 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0017 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0019 029a 00cb | | Declare_Subprogram INIT_00c8,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 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002f 00c7 | | Action Elaborate_Subprogram
0030 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0033 00c7 | | Action Elaborate_Subprogram
0034 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0035 00c7 | | Action Elaborate_Subprogram
0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0037 00c7 | | Action Elaborate_Subprogram
0038 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0039 00c7 | | Action Elaborate_Subprogram
003a 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003b 00c7 | | Action Elaborate_Subprogram
003c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003d 00c7 | | Action Elaborate_Subprogram
003e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003f 00c7 | | Action Elaborate_Subprogram
0040 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0041 00c7 | | Action Elaborate_Subprogram
0042 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0043 00c7 | | Action Elaborate_Subprogram
0044 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0045 00c7 | | Action Elaborate_Subprogram
0046 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0047 00c7 | | Action Elaborate_Subprogram
0048 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0049 00c7 | | Action Elaborate_Subprogram
004a 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
004b 00c7 | | Action Elaborate_Subprogram
004c 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
004d 00c7 | | Action Elaborate_Subprogram
004e BODY_0008:
004e 00bc | | Action Signal_Activated
004f 00bb | | Action Signal_Completion
0050 ; --------------------------------------------------------------------------------------
0050 ; SUBPROGRAM
0050 ; --------------------------------------------------------------------------------------
0050 0053 | S | .CONST 0x0053 ; Address of begin
0051 0004 | | .CONST 0x0004 ; Address of exception handler
0052 0001 | | .CONST 0x0001 ; Number of locals
0053 BODY_0050:
0053 INIT_0050:
0053 4820 |H | Short_Literal 0x20
0054 4820 |H | Short_Literal 0x20
0055 4804 |H | Short_Literal 0x4
0056 480a |H | Short_Literal 0xa
0057 e5ff | | Load 0x2,-0x1
0058 e003 | | Load 0x0,0x3
0059 1816 | | Execute Package,Field_Execute,Field_Number 0x16
005a 01cb | | Execute Vector,Append
005b e5fe | | Load 0x2,-0x2
005c 01cc | | Execute Vector,Catenate
005d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3
0065 e004 | | Load 0x0,0x4
0066 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0067 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0068 01cb | | Execute Vector,Append
0069 e5fe | | Load 0x2,-0x2
006a 01cc | | Execute Vector,Catenate
006b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
006c 0000 0000 | | .BLANK 0000[0x4]
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 01cb | | Execute Vector,Append
0076 e5fe | | Load 0x2,-0x2
0077 e004 | | Load 0x0,0x4
0078 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0079 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
007a 01cc | | Execute Vector,Catenate
007b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
007c 0000 0000 | | .BLANK 0000[0x4]
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 e004 | | Load 0x0,0x4
0086 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0087 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0088 01cb | | Execute Vector,Append
0089 e5fe | | Load 0x2,-0x2
008a 01cc | | Execute Vector,Catenate
008b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
008c 0000 0000 | | .BLANK 0000[0x4]
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 01cb | | Execute Vector,Append
0096 e5fe | | Load 0x2,-0x2
0097 e004 | | Load 0x0,0x4
0098 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0099 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
009a 01cc | | Execute Vector,Catenate
009b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
009c 0000 0000 | | .BLANK 0000[0x4]
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 e004 | | Load 0x0,0x4
00a8 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00a9 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00aa 01cc | | Execute Vector,Catenate
00ab 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and "
00ad 01cc | | Execute Vector,Catenate
00ae e5fd | | Load 0x2,-0x3
00af e004 | | Load 0x0,0x4
00b0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00b2 01cc | | Execute Vector,Catenate
00b3 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00b4 0000 0000 | | .BLANK 0000[0x4]
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 4820 |H | Short_Literal 0x20
00bc 4820 |H | Short_Literal 0x20
00bd e5ff | | Load 0x2,-0x1
00be 01cb | | Execute Vector,Append
00bf e5fe | | Load 0x2,-0x2
00c0 e004 | | Load 0x0,0x4
00c1 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c2 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00c3 01cc | | Execute Vector,Catenate
00c4 01cb | | Execute Vector,Append
00c5 e5fd | | Load 0x2,-0x3
00c6 01cc | | Execute Vector,Catenate
00c7 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
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 4820 |H | Short_Literal 0x20
00cc 4820 |H | Short_Literal 0x20
00cd 4820 |H | Short_Literal 0x20
00ce 4820 |H | Short_Literal 0x20
00cf e5ff | | Load 0x2,-0x1
00d0 01cb | | Execute Vector,Append
00d1 e5fe | | Load 0x2,-0x2
00d2 e004 | | Load 0x0,0x4
00d3 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00d4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00d5 01cc | | Execute Vector,Catenate
00d6 01cb | | Execute Vector,Append
00d7 e5fd | | Load 0x2,-0x3
00d8 01cc | | Execute Vector,Catenate
00d9 01cb | | Execute Vector,Append
00da e5fc | | Load 0x2,-0x4
00db e004 | | Load 0x0,0x4
00dc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00dd 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00de 01cc | | Execute Vector,Catenate
00df 01cb | | Execute Vector,Append
00e0 e5fb | | Load 0x2,-0x5
00e1 01cc | | Execute Vector,Catenate
00e2 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
00e3 0000 0000 | | .BLANK 0000[0x5]
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 e004 | | Load 0x0,0x4
00f0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00f1 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00f2 01cc | | Execute Vector,Catenate
00f3 0092 01b2 | | Action Push_String_Extended,0x1b2 ; ": "
00f5 01cc | | Execute Vector,Catenate
00f6 e5fd | | Load 0x2,-0x3
00f7 e004 | | Load 0x0,0x4
00f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f9 011c | | Execute Any,Convert_Unchecked
00fa 1c01 | | Execute_Immediate Run_Utility,0x1
00fb 01cc | | Execute Vector,Catenate
00fc 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
00fd 0000 0000 | | .XXX[0x3]
00ff 0000 | |
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 e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
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 e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
0138 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0139 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
013a 01cc | | Execute Vector,Catenate
013b 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and "
013d 01cc | | Execute Vector,Catenate
013e e5fe | | Load 0x2,-0x2
013f e004 | | Load 0x0,0x4
0140 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0141 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0142 01cc | | Execute Vector,Catenate
0143 01cb | | Execute Vector,Append
0144 e5fd | | Load 0x2,-0x3
0145 01cc | | Execute Vector,Catenate
0146 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0147 0000 | | .XXX[0x1]
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 e004 | | Load 0x0,0x4
0150 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0151 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0152 01cc | | Execute Vector,Catenate
0153 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and "
0155 01cc | | Execute Vector,Catenate
0156 e5fe | | Load 0x2,-0x2
0157 e004 | | Load 0x0,0x4
0158 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0159 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
015a 01cc | | Execute Vector,Catenate
015b 01cb | | Execute Vector,Append
015c e5fd | | Load 0x2,-0x3
015d 01cc | | Execute Vector,Catenate
015e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
015f 0000 | | .XXX[0x1]
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 e004 | | Load 0x0,0x4
0168 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0169 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
016a 01cc | | Execute Vector,Catenate
016b 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and "
016d 01cc | | Execute Vector,Catenate
016e e5fe | | Load 0x2,-0x2
016f e004 | | Load 0x0,0x4
0170 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0171 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0172 01cc | | Execute Vector,Catenate
0173 01cb | | Execute Vector,Append
0174 e5fd | | Load 0x2,-0x3
0175 01cc | | Execute Vector,Catenate
0176 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0177 0000 | | .XXX[0x1]
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 e004 | | Load 0x0,0x4
0180 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0181 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0182 01cc | | Execute Vector,Catenate
0183 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and "
0185 01cc | | Execute Vector,Catenate
0186 e5fe | | Load 0x2,-0x2
0187 8006 | | Call 0x0,0x6
0188 01cc | | Execute Vector,Catenate
0189 01cb | | Execute Vector,Append
018a e5fd | | Load 0x2,-0x3
018b 01cc | | Execute Vector,Catenate
018c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
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 e004 | | Load 0x0,0x4
0198 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0199 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
019a 01cc | | Execute Vector,Catenate
019b 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " and "
019d 01cc | | Execute Vector,Catenate
019e e5fe | | Load 0x2,-0x2
019f 8007 | | Call 0x0,0x7
01a0 01cc | | Execute Vector,Catenate
01a1 01cb | | Execute Vector,Append
01a2 e5fd | | Load 0x2,-0x3
01a3 01cc | | Execute Vector,Catenate
01a4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01a5 0000 0000 | | .XXX[0x3]
01a7 0000 | |
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 e004 | | Load 0x0,0x4
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 0008 | | .DEBUG4 0x0004,0x0008,0xc05d,0x0000,0x0001,0x0000
01ce 0000 0000 | | .BLANK 0000[0x32]