|
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 005d | ] | .CONST 0x005d ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
000d 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
000f 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0011 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated
0013 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
0015 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0017 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
0019 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
001b 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
001d 00bf | | Action Accept_Activation
001e e002 | | Load 0x0,0x2
001f e003 | | Load 0x0,0x3
0020 e004 | | Load 0x0,0x4
0021 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0022 e005 | | Load 0x0,0x5
0023 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0024 00e5 | | Load_Encached Long_Integer_Cache
0025 e006 | | Load 0x0,0x6
0026 1910 | | Execute Package,Field_Reference,Field_Number 0x10
0027 e007 | | Load 0x0,0x7
0028 0387 | | Declare_Variable Package
0029 00d8 | | Load_Top At_Offset_0
002a 020f | | Execute Module,Activate
002b e008 | | Load 0x0,0x8
002c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002d 00d9 | | Load_Top At_Offset_1
002e 1b13 | | Execute Package,Field_Read,Field_Number 0x13
002f e009 | | Load 0x0,0x9
0030 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0031 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0033 4803 |H | Short_Literal 0x3
0034 032d | - | Declare_Type Record,Defined
0035 00d8 | | Load_Top At_Offset_0
0036 02a0 | | Declare_Subprogram Null_Subprogram
0037 03ad | | Declare_Type Heap_Access,Defined
0038 029d 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call
003a 029d 01c3 | | Declare_Subprogram INIT_01c0,For_Outer_Call
003c 029d 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call
003e 4800 |H | Short_Literal 0x0
003f 0093 021b | | push_full_address INIT_0218
0041 02a0 | | Declare_Subprogram Null_Subprogram
0042 038e | | Declare_Type Package,Defined
0043 0387 | | Declare_Variable Package
0044 e218 | | Load 0x1,0x18
0045 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0046 4802 |H | Short_Literal 0x2
0047 00db | | Load_Top At_Offset_3
0048 020e | | Execute Module,Augment_Imports
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b 1d0e | | Execute_Immediate Reference_Lex_1,0xe
004c 00c7 | | Action Elaborate_Subprogram
004d 1d0d | | Execute_Immediate Reference_Lex_1,0xd
004e 00c7 | | Action Elaborate_Subprogram
004f 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0050 00c7 | | Action Elaborate_Subprogram
0051 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0052 00c7 | | Action Elaborate_Subprogram
0053 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0054 00c7 | | Action Elaborate_Subprogram
0055 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0056 00c7 | | Action Elaborate_Subprogram
0057 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0058 00c7 | | Action Elaborate_Subprogram
0059 1d15 | | Execute_Immediate Reference_Lex_1,0x15
005a 00c7 | | Action Elaborate_Subprogram
005b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
005c 00c7 | | Action Elaborate_Subprogram
005d BODY_0008:
005d 00bc | | Action Signal_Activated
005e 00bb | | Action Signal_Completion
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0065 | e | .CONST 0x0065 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0002 | | .CONST 0x0002 ; Number of locals
0063 INIT_0060:
0063 e218 | | Load 0x1,0x18
0064 0007 | | Action Break_Optional
0065 BODY_0060:
0065 e21c | | Load 0x1,0x1c
0066 180d | | Execute Package,Field_Execute,Field_Number 0xd
0067 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0068 00d8 | | Load_Top At_Offset_0
0069 0219 | | Execute Heap_Access,All_Read
006a 00d8 | | Load_Top At_Offset_0
006b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
006c 8219 | | Call 0x1,0x19
006d 00d9 | | Load_Top At_Offset_1
006e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
006f 00d1 | | Pop_Control Pop_Count_1
0070 00d8 | | Load_Top At_Offset_0
0071 0217 | | Execute Heap_Access,All_Reference
0072 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0073 00d8 | | Load_Top At_Offset_0
0074 0120 | | Execute Any,Is_Value
0075 7002 |p | Jump_Nonzero 0x78
0076 00d8 | | Load_Top At_Offset_0
0077 011e | | Execute Any,Convert
0078 00ca | | Action Exit_Nullary_Function
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0085 | | .CONST 0x0085 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0002 | | .CONST 0x0002 ; Number of locals
0083 INIT_0080:
0083 e218 | | Load 0x1,0x18
0084 0007 | | Action Break_Optional
0085 BODY_0080:
0085 e21c | | Load 0x1,0x1c
0086 180d | | Execute Package,Field_Execute,Field_Number 0xd
0087 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0088 e008 | | Load 0x0,0x8
0089 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008a e5ff | | Load 0x2,-0x1
008b 012f | / | Execute Any,Equal
008c 700f |p | Jump_Nonzero 0x9c
008d 00d8 | | Load_Top At_Offset_0
008e 0217 | | Execute Heap_Access,All_Reference
008f 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0090 e5ff | | Load 0x2,-0x1
0091 012f | / | Execute Any,Equal
0092 7009 |p | Jump_Nonzero 0x9c
0093 00db | | Load_Top At_Offset_3
0094 00d9 | | Load_Top At_Offset_1
0095 0217 | | Execute Heap_Access,All_Reference
0096 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0097 00d8 | | Load_Top At_Offset_0
0098 0217 | | Execute Heap_Access,All_Reference
0099 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
009a e216 | | Load 0x1,0x16
009b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
009c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
009d 0000 0000 | | .XXX[0x3]
009f 0000 | |
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00ae | | .CONST 0x00ae ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0005 | | .CONST 0x0005 ; Number of locals
00a3 INIT_00a0:
00a3 e005 | | Load 0x0,0x5
00a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a5 02c7 | | Declare_Variable Any
00a6 00d8 | | Load_Top At_Offset_0
00a7 1c00 | | Execute_Immediate Run_Utility,0x0
00a8 e00a | | Load 0x0,0xa
00a9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00aa e21c | | Load 0x1,0x1c
00ab 180d | | Execute Package,Field_Execute,Field_Number 0xd
00ac e216 | | Load 0x1,0x16
00ad 1b20 | | Execute Package,Field_Read,Field_Number 0x20
00ae BODY_00a0:
00ae 00d9 | | Load_Top At_Offset_1
00af 0217 | | Execute Heap_Access,All_Reference
00b0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00b1 e216 | | Load 0x1,0x16
00b2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00b3 e5ff | | Load 0x2,-0x1
00b4 e009 | | Load 0x0,0x9
00b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00b6 c5ff | | Store 0x2,-0x1
00b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00c3 | | .CONST 0x00c3 ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0002 | | .CONST 0x0002 ; Number of locals
00bb INIT_00b8:
00bb e008 | | Load 0x0,0x8
00bc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bd 02c7 | | Declare_Variable Any
00be e21c | | Load 0x1,0x1c
00bf 180d | | Execute Package,Field_Execute,Field_Number 0xd
00c0 0217 | | Execute Heap_Access,All_Reference
00c1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00c2 a402 | | Store_Unchecked 0x2,0x2
00c3 BODY_00b8:
00c3 00d8 | | Load_Top At_Offset_0
00c4 e008 | | Load 0x0,0x8
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 012f | / | Execute Any,Equal
00c7 7006 |p | Jump_Nonzero 0xce
00c8 00d8 | | Load_Top At_Offset_0
00c9 4801 |H | Short_Literal 0x1
00ca 4801 |H | Short_Literal 0x1
00cb e008 | | Load 0x0,0x8
00cc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00cd c402 | | Store 0x2,0x2
00ce 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00de | | .CONST 0x00de ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0005 | | .CONST 0x0005 ; Number of locals
00d3 INIT_00d0:
00d3 00da | | Load_Top At_Offset_2
00d4 0210 | | Execute Heap_Access,Get_Segment
00d5 0007 | | Action Break_Optional
00d6 e00a | | Load 0x0,0xa
00d7 1b14 | | Execute Package,Field_Read,Field_Number 0x14
00d8 02ff | | Declare_Variable Variant_Record
00d9 00d8 | | Load_Top At_Offset_0
00da 1c00 | | Execute_Immediate Run_Utility,0x0
00db 00e1 | | Load_Encached Boolean_Cache
00dc e218 | | Load 0x1,0x18
00dd 0007 | | Action Break_Optional
00de BODY_00d0:
00de e21c | | Load 0x1,0x1c
00df 180d | | Execute Package,Field_Execute,Field_Number 0xd
00e0 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00e1 00e1 | | Load_Encached Boolean_Cache
00e2 e5fe | | Load 0x2,-0x2
00e3 e402 | | Load 0x2,0x2
00e4 00db | | Load_Top At_Offset_3
00e5 0217 | | Execute Heap_Access,All_Reference
00e6 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00e7 e216 | | Load 0x1,0x16
00e8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00e9 c5fe | | Store 0x2,-0x2
00ea 005a | Z | Store_Top Discrete,At_Offset_2
00eb 00d9 | | Load_Top At_Offset_1
00ec 7030 |p0 | Jump_Nonzero 0x11d
00ed e00a | | Load 0x0,0xa
00ee 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ef 00db | | Load_Top At_Offset_3
00f0 e5ff | | Load 0x2,-0x1
00f1 e00a | | Load 0x0,0xa
00f2 1b38 | 8 | Execute Package,Field_Read,Field_Number 0x38
00f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f4 00d1 | | Pop_Control Pop_Count_1
00f5 c5fd | | Store 0x2,-0x3
00f6 e5fd | | Load 0x2,-0x3
00f7 7024 |p$ | Jump_Nonzero 0x11c
00f8 00d8 | | Load_Top At_Offset_0
00f9 0219 | | Execute Heap_Access,All_Read
00fa 00d8 | | Load_Top At_Offset_0
00fb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00fc 8219 | | Call 0x1,0x19
00fd 00d9 | | Load_Top At_Offset_1
00fe 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ff 00d1 | | Pop_Control Pop_Count_1
0100 e00a | | Load 0x0,0xa
0101 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0102 e5fe | | Load 0x2,-0x2
0103 0120 | | Execute Any,Is_Value
0104 6803 |h | Jump_Zero 0x108
0105 e005 | | Load 0x0,0x5
0106 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0107 7801 |x | Jump 0x109
0108 e5fe | | Load 0x2,-0x2
0109 6016 |` | Indirect_Literal Discrete,0x120,{0x00000000, 0x00004000}
010a 00db | | Load_Top At_Offset_3
010b 0217 | | Execute Heap_Access,All_Reference
010c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
010d e403 | | Load 0x2,0x3
010e e005 | | Load 0x0,0x5
010f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0110 c5fe | | Store 0x2,-0x2
0111 c5fd | | Store 0x2,-0x3
0112 e5fd | | Load 0x2,-0x3
0113 7008 |p | Jump_Nonzero 0x11c
0114 4800 |H | Short_Literal 0x0
0115 e5fe | | Load 0x2,-0x2
0116 e402 | | Load 0x2,0x2
0117 00db | | Load_Top At_Offset_3
0118 0217 | | Execute Heap_Access,All_Reference
0119 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
011a e216 | | Load 0x1,0x16
011b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
011c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
011d 4800 |H | Short_Literal 0x0
011e a5fd | | Store_Unchecked 0x2,-0x3
011f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0120 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0124 0000 0000 | | .BLANK 0000[0x4]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012d | - | .CONST 0x012d ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e218 | | Load 0x1,0x18
012c 0007 | | Action Break_Optional
012d BODY_0128:
012d e21c | | Load 0x1,0x1c
012e 180d | | Execute Package,Field_Execute,Field_Number 0xd
012f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0130 00d8 | | Load_Top At_Offset_0
0131 0219 | | Execute Heap_Access,All_Read
0132 00d8 | | Load_Top At_Offset_0
0133 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0134 e009 | | Load 0x0,0x9
0135 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0136 00d9 | | Load_Top At_Offset_1
0137 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0138 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0139 0000 0000 | | .BLANK 0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0145 | E | .CONST 0x0145 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e218 | | Load 0x1,0x18
0144 0007 | | Action Break_Optional
0145 BODY_0140:
0145 e21c | | Load 0x1,0x1c
0146 180d | | Execute Package,Field_Execute,Field_Number 0xd
0147 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0148 00d8 | | Load_Top At_Offset_0
0149 0219 | | Execute Heap_Access,All_Read
014a 00d8 | | Load_Top At_Offset_0
014b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
014c e009 | | Load 0x0,0x9
014d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014e 00d9 | | Load_Top At_Offset_1
014f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0150 00d1 | | Pop_Control Pop_Count_1
0151 00d8 | | Load_Top At_Offset_0
0152 0219 | | Execute Heap_Access,All_Read
0153 00d8 | | Load_Top At_Offset_0
0154 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0155 e5fe | | Load 0x2,-0x2
0156 e5ff | | Load 0x2,-0x1
0157 e009 | | Load 0x0,0x9
0158 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0159 00d9 | | Load_Top At_Offset_1
015a 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
015b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0165 | e | .CONST 0x0165 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0002 | | .CONST 0x0002 ; Number of locals
0163 INIT_0160:
0163 e218 | | Load 0x1,0x18
0164 0007 | | Action Break_Optional
0165 BODY_0160:
0165 e21c | | Load 0x1,0x1c
0166 180d | | Execute Package,Field_Execute,Field_Number 0xd
0167 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0168 00d8 | | Load_Top At_Offset_0
0169 0219 | | Execute Heap_Access,All_Read
016a 00d8 | | Load_Top At_Offset_0
016b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016c e5fe | | Load 0x2,-0x2
016d e5ff | | Load 0x2,-0x1
016e e5fd | | Load 0x2,-0x3
016f 800b | | Call 0x0,0xb
0170 00d9 | | Load_Top At_Offset_1
0171 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0172 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0173 0000 0000 | | .BLANK 0000[0x5]
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 e218 | | Load 0x1,0x18
017c 0007 | | Action Break_Optional
017d BODY_0178:
017d e21c | | Load 0x1,0x1c
017e 180d | | Execute Package,Field_Execute,Field_Number 0xd
017f 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0180 00d8 | | Load_Top At_Offset_0
0181 0217 | | Execute Heap_Access,All_Reference
0182 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0183 00d8 | | Load_Top At_Offset_0
0184 0120 | | Execute Any,Is_Value
0185 7002 |p | Jump_Nonzero 0x188
0186 00d8 | | Load_Top At_Offset_0
0187 011e | | Execute Any,Convert
0188 00ca | | Action Exit_Nullary_Function
0189 0000 0000 | | .BLANK 0000[0x7]
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 4601 |F | Jump_Case 0x2
0194 7801 |x | Jump 0x196 ; case 0x0
0195 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0196 00da | | Load_Top At_Offset_2
0197 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0198 0125 | % | Execute Any,Set_Constraint
0199 00da | | Load_Top At_Offset_2
019a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
019b 1c00 | | Execute_Immediate Run_Utility,0x0
019c 00da | | Load_Top At_Offset_2
019d 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
019e 0125 | % | Execute Any,Set_Constraint
019f 00da | | Load_Top At_Offset_2
01a0 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
01a1 1c00 | | Execute_Immediate Run_Utility,0x0
01a2 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
01a3 0000 0000 | | .BLANK 0000[0x5]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac e008 | | Load 0x0,0x8
01ad 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01ae 012f | / | Execute Any,Equal
01af 7004 |p | Jump_Nonzero 0x1b4
01b0 00da | | Load_Top At_Offset_2
01b1 e008 | | Load 0x0,0x8
01b2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01b3 7005 |p | Jump_Nonzero 0x1b9
01b4 e00c | | Load 0x0,0xc
01b5 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01b6 e008 | | Load 0x0,0x8
01b7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01b8 c5ff | | Store 0x2,-0x1
01b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ba 0000 0000 | | .BLANK 0000[0x6]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01ce | | .CONST 0x01ce ; Address of begin
01c1 0004 | | .CONST 0x0004 ; Address of exception handler
01c2 0004 | | .CONST 0x0004 ; Number of locals
01c3 INIT_01c0:
01c3 e218 | | Load 0x1,0x18
01c4 0007 | | Action Break_Optional
01c5 e00d | | Load 0x0,0xd
01c6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c7 e00e | | Load 0x0,0xe
01c8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01c9 e009 | | Load 0x0,0x9
01ca 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01cb 02c7 | | Declare_Variable Any
01cc 00d8 | | Load_Top At_Offset_0
01cd 1c00 | | Execute_Immediate Run_Utility,0x0
01ce BODY_01c0:
01ce 00d8 | | Load_Top At_Offset_0
01cf e009 | | Load 0x0,0x9
01d0 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d1 c404 | | Store 0x2,0x4
01d2 e217 | | Load 0x1,0x17
01d3 0322 | " | Declare_Variable Record
01d4 e008 | | Load 0x0,0x8
01d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d6 e217 | | Load 0x1,0x17
01d7 3000 |0 | Execute Record,Field_Type,Field_Number 0x0
01d8 0119 | | Execute Any,Check_In_Formal_Type
01d9 00d9 | | Load_Top At_Offset_1
01da 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01db e216 | | Load 0x1,0x16
01dc 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01dd 00d9 | | Load_Top At_Offset_1
01de 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01df 00d9 | | Load_Top At_Offset_1
01e0 e217 | | Load 0x1,0x17
01e1 3002 |0 | Execute Record,Field_Type,Field_Number 0x2
01e2 0119 | | Execute Any,Check_In_Formal_Type
01e3 00d9 | | Load_Top At_Offset_1
01e4 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01e5 e218 | | Load 0x1,0x18
01e6 00db | | Load_Top At_Offset_3
01e7 0396 | | Declare_Variable Heap_Access,By_Allocation,With_Value
01e8 0033 | 3 | Store_Top Heap_Access,At_Offset_3
01e9 00da | | Load_Top At_Offset_2
01ea 0219 | | Execute Heap_Access,All_Read
01eb e216 | | Load 0x1,0x16
01ec 1b13 | | Execute Package,Field_Read,Field_Number 0x13
01ed 00db | | Load_Top At_Offset_3
01ee e216 | | Load 0x1,0x16
01ef 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01f0 00d9 | | Load_Top At_Offset_1
01f1 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01f2 00d1 | | Pop_Control Pop_Count_1
01f3 00da | | Load_Top At_Offset_2
01f4 a5ff | | Store_Unchecked 0x2,-0x1
01f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 0202 | | .CONST 0x0202 ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0002 | | .CONST 0x0002 ; Number of locals
01fb INIT_01f8:
01fb e008 | | Load 0x0,0x8
01fc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fd 02c7 | | Declare_Variable Any
01fe 00db | | Load_Top At_Offset_3
01ff 0217 | | Execute Heap_Access,All_Reference
0200 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0201 a402 | | Store_Unchecked 0x2,0x2
0202 BODY_01f8:
0202 00d8 | | Load_Top At_Offset_0
0203 e008 | | Load 0x0,0x8
0204 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0205 012f | / | Execute Any,Equal
0206 700a |p | Jump_Nonzero 0x211
0207 00d8 | | Load_Top At_Offset_0
0208 e008 | | Load 0x0,0x8
0209 1812 | | Execute Package,Field_Execute,Field_Number 0x12
020a 6806 |h | Jump_Zero 0x211
020b 00d8 | | Load_Top At_Offset_0
020c 4801 |H | Short_Literal 0x1
020d 4801 |H | Short_Literal 0x1
020e e008 | | Load 0x0,0x8
020f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0210 c402 | | Store 0x2,0x2
0211 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0212 0000 0000 | | .BLANK 0000[0x6]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 0222 | " | .CONST 0x0222 ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 000e | | .CONST 0x000e ; Number of locals
021b INIT_0218:
021b 029a 022b | +| Declare_Subprogram INIT_0228,For_Outer_Call,Visible,Unelaborated
021d 00bf | | Action Accept_Activation
021e e001 | | Load 0x0,0x1
021f 0007 | | Action Break_Optional
0220 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0221 00c7 | | Action Elaborate_Subprogram
0222 BODY_0218:
0222 e001 | | Load 0x0,0x1
0223 8002 | | Call 0x0,0x2
0224 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0225 00bc | | Action Signal_Activated
0226 00bb | | Action Signal_Completion
0227 0000 | | .XXX[0x1]
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 022b | + | .CONST 0x022b ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0001 | | .CONST 0x0001 ; Number of locals
022b BODY_0228:
022b INIT_0228:
022b e20e | | Load 0x1,0xe
022c 00ca | | Action Exit_Nullary_Function
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug Table
0230 ; --------------------------------------------------------------------------------------
0230 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5d81,0x0000,0x0001,0x0000
0236 0000 0000 | | .BLANK 0000[0x1ca]