|
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 01d8 | | .CONST 0x01d8 ; 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 ; SUBPROGRAM
0008 ; See instruction 0x02cf at 0x1b8, index=0x0
0008 ; --------------------------------------------------------------------------------------
0008 0090 | | .CONST 0x0090 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000d 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0011 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0013 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0019 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001d 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001f 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated
0021 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0023 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0025 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0027 029a 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call,Visible,Unelaborated
0029 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
002b 0093 0000 | | push_full_address 0x0
002d 608e |` | Indirect_Literal Discrete,0xbc,{0x80000000, 0x00010000}
002e 0273 | s | Execute Discrete,Plus
002f 0129 | ) | Execute Any,Make_Visible
0030 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0032 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0034 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0036 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0038 0093 0000 | | push_full_address 0x0
003a 607d |`} | Indirect_Literal Discrete,0xb8,{0x80000000, 0x00010000}
003b 0273 | s | Execute Discrete,Plus
003c e002 | | Load 0x0,0x2
003d 0273 | s | Execute Discrete,Plus
003e e003 | | Load 0x0,0x3
003f 0273 | s | Execute Discrete,Plus
0040 e004 | | Load 0x0,0x4
0041 a005 | | Store_Unchecked 0x0,0x5
0042 a006 | | Store_Unchecked 0x0,0x6
0043 a007 | | Store_Unchecked 0x0,0x7
0044 a008 | | Store_Unchecked 0x0,0x8
0045 e009 | | Load 0x0,0x9
0046 0386 | | Declare_Variable Package,Visible
0047 00d8 | | Load_Top At_Offset_0
0048 020f | | Execute Module,Activate
0049 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible
004a 00e3 | | Load_Encached Natural_Cache
004b 00e3 | | Load_Encached Natural_Cache
004c 00e1 | | Load_Encached Boolean_Cache
004d e00a | | Load 0x0,0xa
004e e222 | " | Load 0x1,0x22
004f 0098 | | Execute Package,Field_Read_Dynamic
0050 029f 01a3 | | Declare_Subprogram INIT_01a0,For_Call
0052 4804 |H | Short_Literal 0x4
0053 032e | . | Declare_Type Record,Defined,Visible
0054 00d8 | | Load_Top At_Offset_0
0055 02a0 | | Declare_Subprogram Null_Subprogram
0056 00db | | Load_Top At_Offset_3
0057 03a3 | | Complete_Type Heap_Access,By_Defining
0058 e00b | | Load 0x0,0xb
0059 00db | | Load_Top At_Offset_3
005a 0098 | | Execute Package,Field_Read_Dynamic
005b 0129 | ) | Execute Any,Make_Visible
005c 00bf | | Action Accept_Activation
005d 4800 |H | Short_Literal 0x0
005e 0093 01b3 | | push_full_address INIT_01b0
0060 00f5 | | Load_Encached Unused21
0061 037d | } | Declare_Type Task,Defined
0062 036f | o | Declare_Variable Task
0063 a00c | | Store_Unchecked 0x0,0xc
0064 4801 |H | Short_Literal 0x1
0065 00da | | Load_Top At_Offset_2
0066 020e | | Execute Module,Augment_Imports
0067 0007 | | Action Break_Optional
0068 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0069 00c7 | | Action Elaborate_Subprogram
006a 1d0e | | Execute_Immediate Reference_Lex_1,0xe
006b 00c7 | | Action Elaborate_Subprogram
006c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
006d 00c7 | | Action Elaborate_Subprogram
006e 1d10 | | Execute_Immediate Reference_Lex_1,0x10
006f 00c7 | | Action Elaborate_Subprogram
0070 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0071 00c7 | | Action Elaborate_Subprogram
0072 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0073 00c7 | | Action Elaborate_Subprogram
0074 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0075 00c7 | | Action Elaborate_Subprogram
0076 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0077 00c7 | | Action Elaborate_Subprogram
0078 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0079 00c7 | | Action Elaborate_Subprogram
007a 1d16 | | Execute_Immediate Reference_Lex_1,0x16
007b 00c7 | | Action Elaborate_Subprogram
007c 1d17 | | Execute_Immediate Reference_Lex_1,0x17
007d 00c7 | | Action Elaborate_Subprogram
007e 1d18 | | Execute_Immediate Reference_Lex_1,0x18
007f 00c7 | | Action Elaborate_Subprogram
0080 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0081 00c7 | | Action Elaborate_Subprogram
0082 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0083 00c7 | | Action Elaborate_Subprogram
0084 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0085 00c7 | | Action Elaborate_Subprogram
0086 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0087 00c7 | | Action Elaborate_Subprogram
0088 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0089 00c7 | | Action Elaborate_Subprogram
008a 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
008b 00c7 | | Action Elaborate_Subprogram
008c 1d20 | | Execute_Immediate Reference_Lex_1,0x20
008d 00c7 | | Action Elaborate_Subprogram
008e 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
008f 00c7 | | Action Elaborate_Subprogram
0090 BODY_0008:
0090 BODY_0008:
0090 00be | | Action Activate_Tasks
0091 00bc | | Action Signal_Activated
0092 00bb | | Action Signal_Completion
0093 0000 0000 | | .BLANK 0000[0x5]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00a1 | | .CONST 0x00a1 ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e223 | # | Load 0x1,0x23
009c 00db | | Load_Top At_Offset_3
009d 039c | | Declare_Variable Heap_Access,By_Allocation
009e 00d8 | | Load_Top At_Offset_0
009f 0217 | | Execute Heap_Access,All_Reference
00a0 1c00 | | Execute_Immediate Run_Utility,0x0
00a1 BODY_0098:
00a1 4800 |H | Short_Literal 0x0
00a2 00d9 | | Load_Top At_Offset_1
00a3 0217 | | Execute Heap_Access,All_Reference
00a4 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00a5 4800 |H | Short_Literal 0x0
00a6 00d9 | | Load_Top At_Offset_1
00a7 0217 | | Execute Heap_Access,All_Reference
00a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a9 4800 |H | Short_Literal 0x0
00aa 00d9 | | Load_Top At_Offset_1
00ab 0217 | | Execute Heap_Access,All_Reference
00ac 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ad 00db | | Load_Top At_Offset_3
00ae e00d | | Load 0x0,0xd
00af e222 | " | Load 0x1,0x22
00b0 0096 | | Execute Package,Entry
00b1 00d9 | | Load_Top At_Offset_1
00b2 0217 | | Execute Heap_Access,All_Reference
00b3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00b4 00d8 | | Load_Top At_Offset_0
00b5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00b6 0000 0000 | | .XXX[0x2]
00b8 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00bc 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
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 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00c4 0000 0000 | | .BLANK 0000[0x4]
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 e5fd | | Load 0x2,-0x3
00cc 820e | | Call 0x1,0xe
00cd c5fd | | Store 0x2,-0x3
00ce 00da | | Load_Top At_Offset_2
00cf a5fd | | Store_Unchecked 0x2,-0x3
00d0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00d1 0000 0000 | | .BLANK 0000[0x7]
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 00da | | Load_Top At_Offset_2
00dc e5fe | | Load 0x2,-0x2
00dd 021f | | Execute Heap_Access,Equal
00de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 00da | | Load_Top At_Offset_2
00e4 0217 | | Execute Heap_Access,All_Reference
00e5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e6 e5fe | | Load 0x2,-0x2
00e7 0273 | s | Execute Discrete,Plus
00e8 00db | | Load_Top At_Offset_3
00e9 0217 | | Execute Heap_Access,All_Reference
00ea 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00eb 00db | | Load_Top At_Offset_3
00ec 4801 |H | Short_Literal 0x1
00ed e226 | & | Load 0x1,0x26
00ee 170d | | Execute Task,Entry_Call,Field_Number 0xd
00ef 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00da | | Load_Top At_Offset_2
00f4 0217 | | Execute Heap_Access,All_Reference
00f5 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00f6 e5fe | | Load 0x2,-0x2
00f7 0272 | r | Execute Discrete,Minus
00f8 00db | | Load_Top At_Offset_3
00f9 0217 | | Execute Heap_Access,All_Reference
00fa 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00fb 00db | | Load_Top At_Offset_3
00fc 4801 |H | Short_Literal 0x1
00fd e226 | & | Load 0x1,0x26
00fe 170e | | Execute Task,Entry_Call,Field_Number 0xe
00ff 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 00da | | Load_Top At_Offset_2
0104 0217 | | Execute Heap_Access,All_Reference
0105 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0107 0000 | | .XXX[0x1]
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 0217 | | Execute Heap_Access,All_Reference
010d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
010e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010f 0000 | | .XXX[0x1]
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 00db | | Load_Top At_Offset_3
0114 00db | | Load_Top At_Offset_3
0115 0217 | | Execute Heap_Access,All_Reference
0116 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0117 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 4801 |H | Short_Literal 0x1
011c 00db | | Load_Top At_Offset_3
011d 0217 | | Execute Heap_Access,All_Reference
011e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
011f 4502 |E | Exit_Suprogram New_Top_Offset 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 4800 |H | Short_Literal 0x0
0124 00db | | Load_Top At_Offset_3
0125 0217 | | Execute Heap_Access,All_Reference
0126 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0127 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00da | | Load_Top At_Offset_2
012c 0217 | | Execute Heap_Access,All_Reference
012d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
012e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012f 0000 | | .XXX[0x1]
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 00da | | Load_Top At_Offset_2
0134 0219 | | Execute Heap_Access,All_Read
0135 00d8 | | Load_Top At_Offset_0
0136 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0137 e00e | | Load 0x0,0xe
0138 e222 | " | Load 0x1,0x22
0139 0096 | | Execute Package,Entry
013a 00d9 | | Load_Top At_Offset_1
013b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
013c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
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 00db | | Load_Top At_Offset_3
0144 0219 | | Execute Heap_Access,All_Read
0145 00d8 | | Load_Top At_Offset_0
0146 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0147 e5ff | | Load 0x2,-0x1
0148 e00f | | Load 0x0,0xf
0149 e222 | " | Load 0x1,0x22
014a 0096 | | Execute Package,Entry
014b 00d9 | | Load_Top At_Offset_1
014c 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
014d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014e 0000 0000 | | .XXX[0x2]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 00da | | Load_Top At_Offset_2
0154 0217 | | Execute Heap_Access,All_Reference
0155 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0156 e010 | | Load 0x0,0x10
0157 e222 | " | Load 0x1,0x22
0158 0096 | | Execute Package,Entry
0159 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
015a 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2
0164 0217 | | Execute Heap_Access,All_Reference
0165 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0166 e011 | | Load 0x0,0x11
0167 e222 | " | Load 0x1,0x22
0168 0096 | | Execute Package,Entry
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 e00b | | Load 0x0,0xb
0174 e222 | " | Load 0x1,0x22
0175 0098 | | Execute Package,Field_Read_Dynamic
0176 00db | | Load_Top At_Offset_3
0177 0217 | | Execute Heap_Access,All_Reference
0178 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0179 e012 | | Load 0x0,0x12
017a e222 | " | Load 0x1,0x22
017b 0096 | | Execute Package,Entry
017c c5fe | | Store 0x2,-0x2
017d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
017e 0000 0000 | | .XXX[0x2]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00da | | Load_Top At_Offset_2
0184 e00b | | Load 0x0,0xb
0185 e222 | " | Load 0x1,0x22
0186 0098 | | Execute Package,Field_Read_Dynamic
0187 0216 | | Execute Heap_Access,Convert
0188 e013 | | Load 0x0,0x13
0189 e222 | " | Load 0x1,0x22
018a 0096 | | Execute Package,Entry
018b 0033 | 3 | Store_Top Heap_Access,At_Offset_3
018c 4501 |E | Exit_Suprogram New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
0194 e014 | | Load 0x0,0x14
0195 e222 | " | Load 0x1,0x22
0196 0096 | | Execute Package,Entry
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 e015 | | Load 0x0,0x15
019d e222 | " | Load 0x1,0x22
019e 0096 | | Execute Package,Entry
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4800 |H | Short_Literal 0x0
01a7 00db | | Load_Top At_Offset_3
01a8 3800 |8 | Execute Record,Field_Write,Field_Number 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 4800 |H | Short_Literal 0x0
01ad 00db | | Load_Top At_Offset_3
01ae 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01af 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01c2 | | .CONST 0x01c2 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 000f | | .CONST 0x000f ; Number of locals
01b3 INIT_01b0:
01b3 4801 |H | Short_Literal 0x1
01b4 02cb | | Declare_Variable Entry
01b5 4801 |H | Short_Literal 0x1
01b6 02cb | | Declare_Variable Entry
01b7 00bf | | Action Accept_Activation
01b8 480e 4839 |H H9| Declare_Variable Select 0x000, 0x002,
01ba 480d 483a |H H:| [0x000]: 0x001 = 0x0008,
01bc 4800 4801 |H H | [0x00d]: 0x03a = 0x01d0,
01be 4800 4802 |H H | [0x00e]: 0x039 = 0x01c8
01c0 02cf | |
01c1 00bc | | Action Signal_Activated
01c2 BODY_01b0:
01c2 00cf | | Action Mark_Auxiliary
01c3 00d9 | | Load_Top At_Offset_1
01c4 013f | ? | Execute Select,Rendezvous
01c5 00d1 | | Pop_Control Pop_Count_1
01c6 00c9 | | Action Pop_Auxiliary_Loop
01c7 7ffb | | Jump 0x1c3
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; See instruction 0x02cf at 0x1b8, index=0xe
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb e001 | | Load 0x0,0x1
01cc e5fe | | Load 0x2,-0x2
01cd 0272 | r | Execute Discrete,Minus
01ce c001 | | Store 0x0,0x1
01cf 4100 |A | End_Rendezvous 0x0
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; See instruction 0x02cf at 0x1b8, index=0xd
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 e001 | | Load 0x0,0x1
01d4 e5fe | | Load 0x2,-0x2
01d5 0273 | s | Execute Discrete,Plus
01d6 c001 | | Store 0x0,0x1
01d7 4100 |A | End_Rendezvous 0x0
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 000a | | .DEBUG4 0x0004,0x000a,0xa1a7,0x0000,0x0001,0x0000
01de 0000 0000 | | .BLANK 0000[0x22]