|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0230 | 0 | .CONST 0x0230 ; 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 0074 | t | .CONST 0x0074 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0022 | " | .CONST 0x0022 ; Number of locals
000b INIT_0008:
000b 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0013 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0017 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0019 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001b 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001f 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0021 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0023 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0025 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0027 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0029 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
002b e002 | | Load 0x0,0x2
002c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
002d e003 | | Load 0x0,0x3
002e 00d8 | | Load_Top At_Offset_0
002f 02a0 | | Declare_Subprogram Null_Subprogram
0030 4803 |H | Short_Literal 0x3
0031 032e | . | Declare_Type Record,Defined,Visible
0032 4800 |H | Short_Literal 0x0
0033 4802 |H | Short_Literal 0x2
0034 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0036 03fe | | Declare_Type Discrete,Defined,Visible
0037 00d9 | | Load_Top At_Offset_1
0038 00e1 | | Load_Encached Boolean_Cache
0039 00da | | Load_Top At_Offset_2
003a 00e1 | | Load_Encached Boolean_Cache
003b 029f 0203 | | Declare_Subprogram INIT_0200,For_Call
003d 4804 |H | Short_Literal 0x4
003e 032e | . | Declare_Type Record,Defined,Visible
003f 00bf | | Action Accept_Activation
0040 e004 | | Load 0x0,0x4
0041 e005 | | Load 0x0,0x5
0042 00db | | Load_Top At_Offset_3
0043 4800 |H | Short_Literal 0x0
0044 4801 |H | Short_Literal 0x1
0045 4802 |H | Short_Literal 0x2
0046 0092 0213 | | Action Push_String_Extended,0x213 ; "others => Unspecified"
0048 00ea | | Load_Encached Null_String_Cache
0049 00ea | | Load_Encached Null_String_Cache
004a 4801 |H | Short_Literal 0x1
004b 4802 |H | Short_Literal 0x2
004c e006 | | Load 0x0,0x6
004d 0387 | | Declare_Variable Package
004e 00d8 | | Load_Top At_Offset_0
004f 020f | | Execute Module,Activate
0050 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0051 00c7 | | Action Elaborate_Subprogram
0052 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0053 00c7 | | Action Elaborate_Subprogram
0054 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0055 00c7 | | Action Elaborate_Subprogram
0056 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0057 00c7 | | Action Elaborate_Subprogram
0058 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0059 00c7 | | Action Elaborate_Subprogram
005a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005b 00c7 | | Action Elaborate_Subprogram
005c 1d14 | | Execute_Immediate Reference_Lex_1,0x14
005d 00c7 | | Action Elaborate_Subprogram
005e 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005f 00c7 | | Action Elaborate_Subprogram
0060 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0061 00c7 | | Action Elaborate_Subprogram
0062 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0063 00c7 | | Action Elaborate_Subprogram
0064 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0065 00c7 | | Action Elaborate_Subprogram
0066 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0067 00c7 | | Action Elaborate_Subprogram
0068 029d 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call
006a 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
006c 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006d 00c7 | | Action Elaborate_Subprogram
006e 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006f 00c7 | | Action Elaborate_Subprogram
0070 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0071 00c7 | | Action Elaborate_Subprogram
0072 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0073 00c7 | | Action Elaborate_Subprogram
0074 BODY_0008:
0074 00bc | | Action Signal_Activated
0075 00bb | | Action Signal_Completion
0076 0000 0000 | | .XXX[0x2]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007d | } | .CONST 0x007d ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0002 | | .CONST 0x0002 ; Number of locals
007b INIT_0078:
007b e21d | | Load 0x1,0x1d
007c 0322 | " | Declare_Variable Record
007d BODY_0078:
007d 00db | | Load_Top At_Offset_3
007e 00d9 | | Load_Top At_Offset_1
007f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0080 00db | | Load_Top At_Offset_3
0081 8007 | | Call 0x0,0x7
0082 00d9 | | Load_Top At_Offset_1
0083 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0084 00d8 | | Load_Top At_Offset_0
0085 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0086 0000 0000 | | .XXX[0x2]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008d | | .CONST 0x008d ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b e21d | | Load 0x1,0x1d
008c 0322 | " | Declare_Variable Record
008d BODY_0088:
008d e5fd | | Load 0x2,-0x3
008e 820d | | Call 0x1,0xd
008f 00d9 | | Load_Top At_Offset_1
0090 017d | } | Execute Record,Structure_Write
0091 e5fd | | Load 0x2,-0x3
0092 e5fe | | Load 0x2,-0x2
0093 8008 | | Call 0x0,0x8
0094 00d9 | | Load_Top At_Offset_1
0095 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0096 00d8 | | Load_Top At_Offset_0
0097 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0098 e5fd | | Load 0x2,-0x3
0099 e5ff | | Load 0x2,-0x1
009a 8009 | | Call 0x0,0x9
009b 00d9 | | Load_Top At_Offset_1
009c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
009d 00d8 | | Load_Top At_Offset_0
009e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
009f 0000 | | .XXX[0x1]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a8 | | .CONST 0x00a8 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0003 | | .CONST 0x0003 ; Number of locals
00a3 INIT_00a0:
00a3 00da | | Load_Top At_Offset_2
00a4 e220 | | Load 0x1,0x20
00a5 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00a6 e21d | | Load 0x1,0x1d
00a7 0322 | " | Declare_Variable Record
00a8 BODY_00a0:
00a8 00d9 | | Load_Top At_Offset_1
00a9 e220 | | Load 0x1,0x20
00aa 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
00ab 7002 |p | Jump_Nonzero 0xae
00ac e00a | | Load 0x0,0xa
00ad 0257 | W | Execute Discrete,Raise
00ae e5fe | | Load 0x2,-0x2
00af 820d | | Call 0x1,0xd
00b0 00d9 | | Load_Top At_Offset_1
00b1 017d | } | Execute Record,Structure_Write
00b2 00d8 | | Load_Top At_Offset_0
00b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00b4 e5fe | | Load 0x2,-0x2
00b5 00ea | | Load_Encached Null_String_Cache
00b6 4801 |H | Short_Literal 0x1
00b7 e402 | | Load 0x2,0x2
00b8 e220 | | Load 0x1,0x20
00b9 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00ba 8009 | | Call 0x0,0x9
00bb 00d9 | | Load_Top At_Offset_1
00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bd e5fe | | Load 0x2,-0x2
00be 00ea | | Load_Encached Null_String_Cache
00bf 4802 |H | Short_Literal 0x2
00c0 e402 | | Load 0x2,0x2
00c1 e220 | | Load 0x1,0x20
00c2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00c3 8008 | | Call 0x0,0x8
00c4 00d9 | | Load_Top At_Offset_1
00c5 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c6 00d8 | | Load_Top At_Offset_0
00c7 4402 |D | Exit_Subprogram With_Value,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 e002 | | Load 0x0,0x2
00cc 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
00cd 00db | | Load_Top At_Offset_3
00ce 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00cf 00da | | Load_Top At_Offset_2
00d0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00d1 800b | | Call 0x0,0xb
00d2 00db | | Load_Top At_Offset_3
00d3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00d5 0000 0000 | | .XXX[0x3]
00d7 0000 | |
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00db | | Load_Top At_Offset_3
00dc 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00dd 00db | | Load_Top At_Offset_3
00de 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00df 800c | | Call 0x0,0xc
00e0 6806 |h | Jump_Zero 0xe7
00e1 00db | | Load_Top At_Offset_3
00e2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e3 00db | | Load_Top At_Offset_3
00e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e5 800c | | Call 0x0,0xc
00e6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e7 4800 |H | Short_Literal 0x0
00e8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00db | | Load_Top At_Offset_3
00f4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00f5 800b | | Call 0x0,0xb
00f6 e5fe | | Load 0x2,-0x2
00f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f8 00db | | Load_Top At_Offset_3
00f9 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00fa e5fe | | Load 0x2,-0x2
00fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00fc e5ff | | Load 0x2,-0x1
00fd 800d | | Call 0x0,0xd
00fe e5fe | | Load 0x2,-0x2
00ff 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0100 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0101 0000 0000 | | .BLANK 0000[0x7]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010e 0000 0000 | | .XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0115 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0116 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
011c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
011d 800e | | Call 0x0,0xe
011e 0092 0214 | | Action Push_String_Extended,0x214 ; "="
0120 01de | | Execute Vector,Not_Equal
0121 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e5fd | | Load 0x2,-0x3
012c 8210 | | Call 0x1,0x10
012d 00d1 | | Pop_Control Pop_Count_1
012e 00db | | Load_Top At_Offset_3
012f 820d | | Call 0x1,0xd
0130 e5fd | | Load 0x2,-0x3
0131 017d | } | Execute Record,Structure_Write
0132 e5fd | | Load 0x2,-0x3
0133 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0134 e5fe | | Load 0x2,-0x2
0135 e5ff | | Load 0x2,-0x1
0136 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0137 800d | | Call 0x0,0xd
0138 e5fd | | Load 0x2,-0x3
0139 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013a e5fd | | Load 0x2,-0x3
013b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013c e5fe | | Load 0x2,-0x2
013d e5ff | | Load 0x2,-0x1
013e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
013f 800d | | Call 0x0,0xd
0140 e5fd | | Load 0x2,-0x3
0141 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0142 4503 |E | Exit_Suprogram 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 00da | | Load_Top At_Offset_2
014c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
014d 800e | | Call 0x0,0xe
014e 0092 0215 | | Action Push_String_Extended,0x215 ; ", "
0150 01cc | | Execute Vector,Catenate
0151 00db | | Load_Top At_Offset_3
0152 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0153 800e | | Call 0x0,0xe
0154 01cc | | Execute Vector,Catenate
0155 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 8217 | | Call 0x1,0x17
015d e00f | | Load 0x0,0xf
015e 180d | | Execute Package,Field_Execute,Field_Number 0xd
015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0167 | g | .CONST 0x0167 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e21f | | Load 0x1,0x1f
0164 0322 | " | Declare_Variable Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 BODY_0160:
0167 00db | | Load_Top At_Offset_3
0168 00d9 | | Load_Top At_Offset_1
0169 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
016a 4801 |H | Short_Literal 0x1
016b 00d9 | | Load_Top At_Offset_1
016c 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
016d 00d8 | | Load_Top At_Offset_0
016e 00d9 | | Load_Top At_Offset_1
016f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0170 8222 | " | Call 0x1,0x22
0171 00d1 | | Pop_Control Pop_Count_1
0172 00d8 | | Load_Top At_Offset_0
0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0174 0000 0000 | | .BLANK 0000[0x4]
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 00da | | Load_Top At_Offset_2
017c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
017d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 018c | | .CONST 0x018c ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0002 | | .CONST 0x0002 ; Number of locals
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0185 e21e | | Load 0x1,0x1e
0186 011c | | Execute Any,Convert_Unchecked
0187 1c01 | | Execute_Immediate Run_Utility,0x1
0188 0092 0216 | | Action Push_String_Extended,0x216 ; "=>"
018a 01cc | | Execute Vector,Catenate
018b 0007 | | Action Break_Optional
018c BODY_0180:
018c 00d8 | | Load_Top At_Offset_0
018d e5ff | | Load 0x2,-0x1
018e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
018f e5ff | | Load 0x2,-0x1
0190 8221 | ! | Call 0x1,0x21
0191 01cc | | Execute Vector,Catenate
0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
019d 7013 |p | Jump_Nonzero 0x1b1
019e 00da | | Load_Top At_Offset_2
019f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a0 0f02 | | Execute_Immediate Equal,0x2
01a1 6804 |h | Jump_Zero 0x1a6
01a2 4801 |H | Short_Literal 0x1
01a3 00db | | Load_Top At_Offset_3
01a4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01a6 e21e | | Load 0x1,0x1e
01a7 00db | | Load_Top At_Offset_3
01a8 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01a9 0268 | h | Execute Discrete,Successor
01aa 00db | | Load_Top At_Offset_3
01ab 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ac 00da | | Load_Top At_Offset_2
01ad 00db | | Load_Top At_Offset_3
01ae 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01af 8222 | " | Call 0x1,0x22
01b0 00d1 | | Pop_Control Pop_Count_1
01b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b2 0000 0000 | | .BLANK 0000[0x6]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4607 |F | Jump_Case 0x8
01bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01bd 7807 |x | Jump 0x1c5 ; case 0x1
01be 780a |x | Jump 0x1c9 ; case 0x2
01bf 780e |x | Jump 0x1ce ; case 0x3
01c0 7811 |x | Jump 0x1d2 ; case 0x4
01c1 7812 |x | Jump 0x1d4 ; case 0x5
01c2 7813 |x | Jump 0x1d6 ; case 0x6
01c3 7816 |x | Jump 0x1da ; case 0x7
01c4 4302 |C | .XXX[0x1]
01c5 00da | | Load_Top At_Offset_2
01c6 0091 0210 | | Action Push_String_Extended_Indexed,0x210 ; "NONE"
01c8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c9 00db | | Load_Top At_Offset_3
01ca 00db | | Load_Top At_Offset_3
01cb 00e0 | | Load_Encached Standard_Cache
01cc 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01cd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ce 00da | | Load_Top At_Offset_2
01cf 00e0 | | Load_Encached Standard_Cache
01d0 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d1 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01d2 00db | | Load_Top At_Offset_3
01d3 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d4 00db | | Load_Top At_Offset_3
01d5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d6 e21e | | Load 0x1,0x1e
01d7 00dc | | Load_Top At_Offset_4
01d8 0267 | g | Execute Discrete,Predecessor
01d9 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01da e21e | | Load 0x1,0x1e
01db 00dc | | Load_Top At_Offset_4
01dc 0268 | h | Execute Discrete,Successor
01dd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01de 0000 0000 | | .XXX[0x2]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00db | | Load_Top At_Offset_3
01e4 4602 |F | Jump_Case 0x3
01e5 7807 |x | Jump 0x1ed ; case 0x0
01e6 7808 |x | Jump 0x1ef ; case 0x1
01e7 7800 |x | Jump 0x1e8 ; case 0x2
01e8 00da | | Load_Top At_Offset_2
01e9 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01ea 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01eb 800e | | Call 0x0,0xe
01ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ed 00ea | | Load_Encached Null_String_Cache
01ee 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ef 00da | | Load_Top At_Offset_2
01f0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01f1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01f2 800e | | Call 0x0,0xe
01f3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f4 0000 0000 | | .BLANK 0000[0x4]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4801 |H | Short_Literal 0x1
01fc e5fe | | Load 0x2,-0x2
01fd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01fe 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01ff 0000 | | .XXX[0x1]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 4601 |F | Jump_Case 0x2
0204 7801 |x | Jump 0x206 ; case 0x0
0205 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0206 4800 |H | Short_Literal 0x0
0207 00db | | Load_Top At_Offset_3
0208 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0209 4800 |H | Short_Literal 0x0
020a 00db | | Load_Top At_Offset_3
020b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
020c 4801 |H | Short_Literal 0x1
020d 00db | | Load_Top At_Offset_3
020e 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
020f 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0210 ; --------------------------------------------------------------------------------------
0210 ; STRING TABLE
0210 ; --------------------------------------------------------------------------------------
0210 0010 | | .STRTAB 0x0010->0x0218 ; "NONE"
0211 0012 | | .STRTAB 0x0012->0x021a ; "NAME"
0212 0014 | | .STRTAB 0x0014->0x021c ; "TIME"
0213 0016 | | .STRTAB 0x0016->0x021e ; "others => Unspecified"
0214 0029 | ) | .STRTAB 0x0029->0x0228 ; "="
0215 0028 | ( | .STRTAB 0x0028->0x0229 ; ", "
0216 0028 | ( | .STRTAB 0x0028->0x022a ; "=>"
0217 0028 | ( | .STREND 0x0028->0x022b
0218 4e4f 4e45 |NONE| .STRTAB_STRINGS
022b 0000 0000 | | .BLANK 0000[0x5]
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 000a | | .DEBUG4 0x0004,0x000a,0x66bd,0x0000,0x0001,0x0000
0236 0000 0000 | | .BLANK 0000[0x1ca]