|
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_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 01b0 | | .CONST 0x01b0 ; 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 0041 | A | .CONST 0x0041 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0011 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0013 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0015 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0017 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
0019 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
001b 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001d 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001f 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0021 e003 | | Load 0x0,0x3
0022 00e1 | | Load_Encached Boolean_Cache
0023 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0025 4802 |H | Short_Literal 0x2
0026 032e | . | Declare_Type Record,Defined,Visible
0027 02a0 | | Declare_Subprogram Null_Subprogram
0028 4800 |H | Short_Literal 0x0
0029 032e | . | Declare_Type Record,Defined,Visible
002a 00bf | | Action Accept_Activation
002b 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002c 00c7 | | Action Elaborate_Subprogram
002d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002e 00c7 | | Action Elaborate_Subprogram
002f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0030 00c7 | | Action Elaborate_Subprogram
0031 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0032 00c7 | | Action Elaborate_Subprogram
0033 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0034 00c7 | | Action Elaborate_Subprogram
0035 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0036 00c7 | | Action Elaborate_Subprogram
0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0038 00c7 | | Action Elaborate_Subprogram
0039 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003a 00c7 | | Action Elaborate_Subprogram
003b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003c 00c7 | | Action Elaborate_Subprogram
003d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
003e 00c7 | | Action Elaborate_Subprogram
003f 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0040 00c7 | | Action Elaborate_Subprogram
0041 BODY_0008:
0041 00bc | | Action Signal_Activated
0042 00bb | | Action Signal_Completion
0043 0000 0000 | | .BLANK 0000[0x5]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 0059 | Y | .CONST 0x0059 ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0006 | | .CONST 0x0006 ; Number of locals
004b INIT_0048:
004b e5f8 | | Load 0x2,-0x8
004c 0217 | | Execute Heap_Access,All_Reference
004d 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
004e 0007 | | Action Break_Optional
004f 00d8 | | Load_Top At_Offset_0
0050 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0051 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0052 0007 | | Action Break_Optional
0053 00e1 | | Load_Encached Boolean_Cache
0054 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0055 029f 014b | K| Declare_Subprogram INIT_0148,For_Call
0057 029f 0163 | c| Declare_Subprogram INIT_0160,For_Call
0059 BODY_0048:
0059 e5ff | | Load 0x2,-0x1
005a e402 | | Load 0x2,0x2
005b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
005c 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
005d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
005e e5fa | | Load 0x2,-0x6
005f e402 | | Load 0x2,0x2
0060 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0061 e5f9 | | Load 0x2,-0x7
0062 e004 | | Load 0x0,0x4
0063 021f | | Execute Heap_Access,Equal
0064 7002 |p | Jump_Nonzero 0x67
0065 8405 | | Call 0x2,0x5
0066 7824 |x$ | Jump 0x8b
0067 e5ff | | Load 0x2,-0x1
0068 8005 | | Call 0x0,0x5
0069 0e0e | | Execute_Immediate Not_Equal,0xe
006a 681f |h | Jump_Zero 0x8a
006b 4800 |H | Short_Literal 0x0
006c e402 | | Load 0x2,0x2
006d 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
006e 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
006f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0070 4801 |H | Short_Literal 0x1
0071 e5f8 | | Load 0x2,-0x8
0072 00d8 | | Load_Top At_Offset_0
0073 0217 | | Execute Heap_Access,All_Reference
0074 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0075 8006 | | Call 0x0,0x6
0076 4800 |H | Short_Literal 0x0
0077 e402 | | Load 0x2,0x2
0078 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0079 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
007a 4801 |H | Short_Literal 0x1
007b 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
007c e5f8 | | Load 0x2,-0x8
007d 0217 | | Execute Heap_Access,All_Reference
007e 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
007f 8007 | | Call 0x0,0x7
0080 700a |p | Jump_Nonzero 0x8b
0081 e5f8 | | Load 0x2,-0x8
0082 0217 | | Execute Heap_Access,All_Reference
0083 2c05 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0084 0217 | | Execute Heap_Access,All_Reference
0085 2c0d |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xd
0086 e5f8 | | Load 0x2,-0x8
0087 0217 | | Execute Heap_Access,All_Reference
0088 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
0089 7801 |x | Jump 0x8b
008a 8406 | | Call 0x2,0x6
008b e402 | | Load 0x2,0x2
008c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
008d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
008e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
008f 0f00 | | Execute_Immediate Equal,0x0
0090 0f00 | | Execute_Immediate Equal,0x0
0091 00db | | Load_Top At_Offset_3
0092 0278 | x | Execute Discrete,Or
0093 681b |h | Jump_Zero 0xaf
0094 e5fc | | Load 0x2,-0x4
0095 4803 |H | Short_Literal 0x3
0096 e5ff | | Load 0x2,-0x1
0097 8008 | | Call 0x0,0x8
0098 a403 | | Store_Unchecked 0x2,0x3
0099 00da | | Load_Top At_Offset_2
009a 7013 |p | Jump_Nonzero 0xae
009b e402 | | Load 0x2,0x2
009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009e 00d8 | | Load_Top At_Offset_0
009f 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a0 e5f8 | | Load 0x2,-0x8
00a1 4801 |H | Short_Literal 0x1
00a2 e402 | | Load 0x2,0x2
00a3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a4 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00a5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a6 8009 | | Call 0x0,0x9
00a7 00d9 | | Load_Top At_Offset_1
00a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a9 00d1 | | Pop_Control Pop_Count_1
00aa 4801 |H | Short_Literal 0x1
00ab e402 | | Load 0x2,0x2
00ac 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ae 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00af e5fc | | Load 0x2,-0x4
00b0 4800 |H | Short_Literal 0x0
00b1 e5ff | | Load 0x2,-0x1
00b2 8008 | | Call 0x0,0x8
00b3 a403 | | Store_Unchecked 0x2,0x3
00b4 4801 |H | Short_Literal 0x1
00b5 e5f8 | | Load 0x2,-0x8
00b6 0217 | | Execute Heap_Access,All_Reference
00b7 280d |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0xd
00b8 4508 |E | Exit_Suprogram New_Top_Offset 0x8
00b9 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
00c4 00db | | Load_Top At_Offset_3
00c5 0217 | | Execute Heap_Access,All_Reference
00c6 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
00c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00c8 800a | | Call 0x0,0xa
00c9 00da | | Load_Top At_Offset_2
00ca 0217 | | Execute Heap_Access,All_Reference
00cb 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
00cc 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00cd 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00ce 6803 |h | Jump_Zero 0xd2
00cf e5fd | | Load 0x2,-0x3
00d0 00db | | Load_Top At_Offset_3
00d1 800b | | Call 0x0,0xb
00d2 00da | | Load_Top At_Offset_2
00d3 0217 | | Execute Heap_Access,All_Reference
00d4 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
00d5 e00c | | Load 0x0,0xc
00d6 021e | | Execute Heap_Access,Maximum
00d7 6806 |h | Jump_Zero 0xde
00d8 e5fc | | Load 0x2,-0x4
00d9 e5fd | | Load 0x2,-0x3
00da e5ff | | Load 0x2,-0x1
00db 0217 | | Execute Heap_Access,All_Reference
00dc 2c09 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x9
00dd 800d | | Call 0x0,0xd
00de 00da | | Load_Top At_Offset_2
00df 0217 | | Execute Heap_Access,All_Reference
00e0 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
00e1 e00c | | Load 0x0,0xc
00e2 021e | | Execute Heap_Access,Maximum
00e3 6806 |h | Jump_Zero 0xea
00e4 e5fc | | Load 0x2,-0x4
00e5 e5fd | | Load 0x2,-0x3
00e6 e5ff | | Load 0x2,-0x1
00e7 0217 | | Execute Heap_Access,All_Reference
00e8 2c0a |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0xa
00e9 800e | | Call 0x0,0xe
00ea 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00eb 0000 0000 | | .BLANK 0000[0x5]
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 e00f | | Load 0x0,0xf
00f4 00db | | Load_Top At_Offset_3
00f5 0217 | | Execute Heap_Access,All_Reference
00f6 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
00f7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f9 8010 | | Call 0x0,0x10
00fa 4503 |E | Exit_Suprogram 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 4801 |H | Short_Literal 0x1
0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
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 4504 |E | Exit_Suprogram New_Top_Offset 0x4
010c 0000 0000 | | .BLANK 0000[0x4]
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 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0114 0000 0000 | | .BLANK 0000[0x4]
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 8011 | | Call 0x0,0x11
011d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011e 0000 0000 | | .XXX[0x2]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0124 0000 0000 | | .BLANK 0000[0x4]
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 4801 |H | Short_Literal 0x1
012c 00db | | Load_Top At_Offset_3
012d 0217 | | Execute Heap_Access,All_Reference
012e 2802 |( | Execute Variant_Record,Field_Write,Fixed,Direct,Field_Number 0x2
012f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0139 | 9 | .CONST 0x0139 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2
0134 0217 | | Execute Heap_Access,All_Reference
0135 2c03 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x3
0136 0217 | | Execute Heap_Access,All_Reference
0137 260e |& | Execute Variant_Record,Field_Reference,Variant,Direct,Field_Number 0xe
0138 0007 | | Action Break_Optional
0139 BODY_0130:
0139 00d8 | | Load_Top At_Offset_0
013a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
013c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2
0144 0217 | | Execute Heap_Access,All_Reference
0145 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0146 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0147 0000 | | .XXX[0x1]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014b | K | .CONST 0x014b ; Address of begin
0149 0152 | R | .CONST 0x0152 ; Address of exception handler
014a 0001 | | .CONST 0x0001 ; Number of locals
014b BODY_0148:
014b INIT_0148:
014b e5f9 | | Load 0x2,-0x7
014c 8012 | | Call 0x0,0x12
014d e402 | | Load 0x2,0x2
014e 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
014f 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0150 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0151 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0152 TRAP_0148:
0152 0007 | | Action Break_Optional
0153 e5f8 | | Load 0x2,-0x8
0154 e004 | | Load 0x0,0x4
0155 e5fa | | Load 0x2,-0x6
0156 e5fb | | Load 0x2,-0x5
0157 e5fc | | Load 0x2,-0x4
0158 e5fd | | Load 0x2,-0x3
0159 e5fe | | Load 0x2,-0x2
015a e5ff | | Load 0x2,-0x1
015b 820d | | Call 0x1,0xd
015c c5f8 | | Store 0x2,-0x8
015d 00cc | | Action Pop_Block
015e 4508 |E | Exit_Suprogram New_Top_Offset 0x8
015f 0000 | | .XXX[0x1]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165 | e | .CONST 0x0165 ; Address of begin
0161 016c | l | .CONST 0x016c ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 029f 017b | {| Declare_Subprogram INIT_0178,For_Call
0165 BODY_0160:
0165 e5ff | | Load 0x2,-0x1
0166 8012 | | Call 0x0,0x12
0167 e402 | | Load 0x2,0x2
0168 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0169 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
016a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016c TRAP_0160:
016c e013 | | Load 0x0,0x13
016d 010f | | Execute Exception,Equal
016e 6806 |h | Jump_Zero 0x175
016f e5fe | | Load 0x2,-0x2
0170 e014 | | Load 0x0,0x14
0171 017f | | Execute Record,Equal
0172 7001 |p | Jump_Nonzero 0x174
0173 8602 | | Call 0x3,0x2
0174 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0175 0100 | | Execute Exception,Raise
0176 0000 0000 | | .XXX[0x2]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0004 | | .CONST 0x0004 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e004 | | Load 0x0,0x4
017c 0007 | | Action Break_Optional
017d BODY_0178:
017d e5f8 | | Load 0x2,-0x8
017e 0217 | | Execute Heap_Access,All_Reference
017f 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0180 8007 | | Call 0x0,0x7
0181 7006 |p | Jump_Nonzero 0x188
0182 e5f8 | | Load 0x2,-0x8
0183 0217 | | Execute Heap_Access,All_Reference
0184 2c06 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x6
0185 0217 | | Execute Heap_Access,All_Reference
0186 2c02 |, | Execute Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x2
0187 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0188 e402 | | Load 0x2,0x2
0189 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018b e402 | | Load 0x2,0x2
018c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
018d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
018e e015 | | Load 0x0,0x15
018f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0190 e016 | | Load 0x0,0x16
0191 e802 | | Load 0x4,0x2
0192 e5fe | | Load 0x2,-0x2
0193 8017 | | Call 0x0,0x17
0194 00da | | Load_Top At_Offset_2
0195 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0196 00da | | Load_Top At_Offset_2
0197 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0198 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 4601 |F | Jump_Case 0x2
01a4 7801 |x | Jump 0x1a6 ; case 0x0
01a5 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
01a6 00da | | Load_Top At_Offset_2
01a7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01a8 1c00 | | Execute_Immediate Run_Utility,0x0
01a9 4800 |H | Short_Literal 0x0
01aa 00db | | Load_Top At_Offset_3
01ab 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01ad 0000 0000 | | .XXX[0x3]
01af 0000 | |
01b0 ; --------------------------------------------------------------------------------------
01b0 ; Debug Table
01b0 ; --------------------------------------------------------------------------------------
01b0 0004 000a | | .DEBUG4 0x0004,0x000a,0xa1b3,0x0000,0x0001,0x0000
01b6 0000 0000 | | .BLANK 0000[0x4a]