|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0290 | | .CONST 0x0290 ; 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 0089 | | .CONST 0x0089 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 4832 |H2 | Short_Literal 0x32
000c e002 | | Load 0x0,0x2
000d 1c07 | | Execute_Immediate Run_Utility,0x7
000e 0129 | ) | Execute Any,Make_Visible
000f 4832 |H2 | Short_Literal 0x32
0010 e002 | | Load 0x0,0x2
0011 1c07 | | Execute_Immediate Run_Utility,0x7
0012 0129 | ) | Execute Any,Make_Visible
0013 00d9 | | Load_Top At_Offset_1
0014 00d9 | | Load_Top At_Offset_1
0015 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
0017 4802 |H | Short_Literal 0x2
0018 032e | . | Declare_Type Record,Defined,Visible
0019 00d8 | | Load_Top At_Offset_0
001a 00e3 | | Load_Encached Natural_Cache
001b 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
001d 4802 |H | Short_Literal 0x2
001e 032e | . | Declare_Type Record,Defined,Visible
001f 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0021 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0023 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
0025 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0027 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated
0029 0093 0000 | | push_full_address 0x0
002b 606c |`l | Indirect_Literal Discrete,0x98,{0x80000000, 0x00010000}
002c 0273 | s | Execute Discrete,Plus
002d e003 | | Load 0x0,0x3
002e 0273 | s | Execute Discrete,Plus
002f e004 | | Load 0x0,0x4
0030 0273 | s | Execute Discrete,Plus
0031 e210 | | Load 0x1,0x10
0032 e20f | | Load 0x1,0xf
0033 4801 |H | Short_Literal 0x1
0034 4832 |H2 | Short_Literal 0x32
0035 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0036 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0038 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0039 1d15 | | Execute_Immediate Reference_Lex_1,0x15
003a e005 | | Load 0x0,0x5
003b 0386 | | Declare_Variable Package,Visible
003c 00d8 | | Load_Top At_Offset_0
003d 020f | | Execute Module,Activate
003e 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0040 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0042 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0044 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0046 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0048 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
004a 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
004c 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
004e 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0050 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0052 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
0054 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
0056 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
0058 029a 021b | | Declare_Subprogram INIT_0218,For_Outer_Call,Visible,Unelaborated
005a 00bf | | Action Accept_Activation
005b e006 | | Load 0x0,0x6
005c e216 | | Load 0x1,0x16
005d 0098 | | Execute Package,Field_Read_Dynamic
005e 0322 | " | Declare_Variable Record
005f 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0060 00c7 | | Action Elaborate_Subprogram
0061 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0062 00c7 | | Action Elaborate_Subprogram
0063 029d 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call
0065 029d 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call
0067 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0068 00c7 | | Action Elaborate_Subprogram
0069 1d18 | | Execute_Immediate Reference_Lex_1,0x18
006a 00c7 | | Action Elaborate_Subprogram
006b 1d19 | | Execute_Immediate Reference_Lex_1,0x19
006c 00c7 | | Action Elaborate_Subprogram
006d 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
006e 00c7 | | Action Elaborate_Subprogram
006f 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0070 00c7 | | Action Elaborate_Subprogram
0071 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0072 00c7 | | Action Elaborate_Subprogram
0073 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0074 00c7 | | Action Elaborate_Subprogram
0075 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0076 00c7 | | Action Elaborate_Subprogram
0077 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0078 00c7 | | Action Elaborate_Subprogram
0079 1d20 | | Execute_Immediate Reference_Lex_1,0x20
007a 00c7 | | Action Elaborate_Subprogram
007b 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007c 00c7 | | Action Elaborate_Subprogram
007d 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
007e 00c7 | | Action Elaborate_Subprogram
007f 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0080 00c7 | | Action Elaborate_Subprogram
0081 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
0082 00c7 | | Action Elaborate_Subprogram
0083 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0084 00c7 | | Action Elaborate_Subprogram
0085 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0086 00c7 | | Action Elaborate_Subprogram
0087 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0088 00c7 | | Action Elaborate_Subprogram
0089 BODY_0008:
0089 00da | | Load_Top At_Offset_2
008a e007 | | Load 0x0,0x7
008b e216 | | Load 0x1,0x16
008c 0096 | | Execute Package,Entry
008d 00d1 | | Pop_Control Pop_Count_1
008e 00bc | | Action Signal_Activated
008f 00bb | | Action Signal_Completion
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0095 0320 | | Declare_Variable Record,Duplicate
0096 00cd | | Action Spare6_Action
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
009c 0000 0000 | | .BLANK 0000[0x4]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a4 | | .CONST 0x00a4 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0002 | | .CONST 0x0002 ; Number of locals
00a3 INIT_00a0:
00a3 00e2 | | Load_Encached Integer_Cache
00a4 BODY_00a0:
00a4 00db | | Load_Top At_Offset_3
00a5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00a6 8008 | | Call 0x0,0x8
00a7 e5ff | | Load 0x2,-0x1
00a8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00a9 8008 | | Call 0x0,0x8
00aa 01cc | | Execute Vector,Catenate
00ab 8009 | | Call 0x0,0x9
00ac 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00ad 00d8 | | Load_Top At_Offset_0
00ae 0d00 | | Execute_Immediate Less,0x0
00af 6804 |h | Jump_Zero 0xb4
00b0 00d8 | | Load_Top At_Offset_0
00b1 4fff |O | Short_Literal -0x1
00b2 0271 | q | Execute Discrete,Times
00b3 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00b4 00d8 | | Load_Top At_Offset_0
00b5 600a |` | Indirect_Literal Discrete,0xc0,{0x00000000, 0x7fffffff}
00b6 026e | n | Execute Discrete,Modulo
00b7 00d8 | | Load_Top At_Offset_0
00b8 00e3 | | Load_Encached Natural_Cache
00b9 0260 | ` | Execute Discrete,In_Type
00ba 7001 |p | Jump_Nonzero 0xbc
00bb 0801 | | Execute_Immediate Raise,0x1
00bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
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 00da | | Load_Top At_Offset_2
00cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00cd e5fe | | Load 0x2,-0x2
00ce 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cf 00db | | Load_Top At_Offset_3
00d0 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00d2 00d8 | | Load_Top At_Offset_0
00d3 e5ff | | Load 0x2,-0x1
00d4 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00d5 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00d6 800a | | Call 0x0,0xa
00d7 00d2 | | Pop_Control Pop_Count_2
00d8 00db | | Load_Top At_Offset_3
00d9 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00db 00d8 | | Load_Top At_Offset_0
00dc e5ff | | Load 0x2,-0x1
00dd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00de 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
00df 800a | | Call 0x0,0xa
00e0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ed e5fe | | Load 0x2,-0x2
00ee 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00ef 027f | | Execute Discrete,Equal
00f0 e5fe | | Load 0x2,-0x2
00f1 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f2 e5ff | | Load 0x2,-0x1
00f3 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00f4 8215 | | Call 0x1,0x15
00f5 0279 | y | Execute Discrete,And
00f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fb | | .CONST 0x00fb ; Address of begin
00f9 0004 | | .CONST 0x0004 ; Address of exception handler
00fa 0001 | | .CONST 0x0001 ; Number of locals
00fb BODY_00f8:
00fb INIT_00f8:
00fb 4801 |H | Short_Literal 0x1
00fc e5fe | | Load 0x2,-0x2
00fd 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00fe 8008 | | Call 0x0,0x8
00ff e5ff | | Load 0x2,-0x1
0100 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0101 8008 | | Call 0x0,0x8
0102 800b | | Call 0x0,0xb
0103 4801 |H | Short_Literal 0x1
0104 e5fe | | Load 0x2,-0x2
0105 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0106 8008 | | Call 0x0,0x8
0107 e5ff | | Load 0x2,-0x1
0108 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0109 8008 | | Call 0x0,0x8
010a 800b | | Call 0x0,0xb
010b 0279 | y | Execute Discrete,And
010c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0117 | | .CONST 0x0117 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0002 | | .CONST 0x0002 ; Number of locals
0113 INIT_0110:
0113 e210 | | Load 0x1,0x10
0114 0322 | " | Declare_Variable Record
0115 00d8 | | Load_Top At_Offset_0
0116 1c00 | | Execute_Immediate Run_Utility,0x0
0117 BODY_0110:
0117 e5fd | | Load 0x2,-0x3
0118 e5fe | | Load 0x2,-0x2
0119 e5ff | | Load 0x2,-0x1
011a 8227 | ' | Call 0x1,0x27
011b 00d9 | | Load_Top At_Offset_1
011c 017d | } | Execute Record,Structure_Write
011d 00d8 | | Load_Top At_Offset_0
011e e225 | % | Load 0x1,0x25
011f e00c | | Load 0x0,0xc
0120 e216 | | Load 0x1,0x16
0121 0096 | | Execute Package,Entry
0122 7006 |p | Jump_Nonzero 0x129
0123 e225 | % | Load 0x1,0x25
0124 00d9 | | Load_Top At_Offset_1
0125 e00d | | Load 0x0,0xd
0126 e216 | | Load 0x1,0x16
0127 0096 | | Execute Package,Entry
0128 00d1 | | Pop_Control Pop_Count_1
0129 4504 |E | Exit_Suprogram New_Top_Offset 0x4
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0137 | 7 | .CONST 0x0137 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 e210 | | Load 0x1,0x10
0134 0322 | " | Declare_Variable Record
0135 00d8 | | Load_Top At_Offset_0
0136 1c00 | | Execute_Immediate Run_Utility,0x0
0137 BODY_0130:
0137 e5fd | | Load 0x2,-0x3
0138 e5fe | | Load 0x2,-0x2
0139 e5ff | | Load 0x2,-0x1
013a 8227 | ' | Call 0x1,0x27
013b 00d9 | | Load_Top At_Offset_1
013c 017d | } | Execute Record,Structure_Write
013d e225 | % | Load 0x1,0x25
013e 00d9 | | Load_Top At_Offset_1
013f e00e | | Load 0x0,0xe
0140 e216 | | Load 0x1,0x16
0141 0096 | | Execute Package,Entry
0142 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0143 0000 0000 | | .BLANK 0000[0x5]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014f | O | .CONST 0x014f ; Address of begin
0149 0004 | | .CONST 0x0004 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e20f | | Load 0x1,0xf
014c 0322 | " | Declare_Variable Record
014d 00d8 | | Load_Top At_Offset_0
014e 1c00 | | Execute_Immediate Run_Utility,0x0
014f BODY_0148:
014f e5fe | | Load 0x2,-0x2
0150 e5ff | | Load 0x2,-0x1
0151 8226 | & | Call 0x1,0x26
0152 00d9 | | Load_Top At_Offset_1
0153 017d | } | Execute Record,Structure_Write
0154 e225 | % | Load 0x1,0x25
0155 00d9 | | Load_Top At_Offset_1
0156 e00f | | Load 0x0,0xf
0157 e216 | | Load 0x1,0x16
0158 0096 | | Execute Package,Entry
0159 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015a 0000 0000 | | .BLANK 0000[0x6]
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 e210 | | Load 0x1,0x10
0164 0322 | " | Declare_Variable Record
0165 00d8 | | Load_Top At_Offset_0
0166 1c00 | | Execute_Immediate Run_Utility,0x0
0167 BODY_0160:
0167 e5fd | | Load 0x2,-0x3
0168 e5fe | | Load 0x2,-0x2
0169 e5ff | | Load 0x2,-0x1
016a 8227 | ' | Call 0x1,0x27
016b 00d9 | | Load_Top At_Offset_1
016c 017d | } | Execute Record,Structure_Write
016d 00d8 | | Load_Top At_Offset_0
016e e225 | % | Load 0x1,0x25
016f e00c | | Load 0x0,0xc
0170 e216 | | Load 0x1,0x16
0171 0096 | | Execute Package,Entry
0172 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0173 0000 0000 | | .BLANK 0000[0x5]
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 e225 | % | Load 0x1,0x25
017c e010 | | Load 0x0,0x10
017d e216 | | Load 0x1,0x16
017e 0096 | | Execute Package,Entry
017f 00ca | | Action Exit_Nullary_Function
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 e225 | % | Load 0x1,0x25
0185 e011 | | Load 0x0,0x11
0186 e216 | | Load 0x1,0x16
0187 0096 | | Execute Package,Entry
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 00da | | Load_Top At_Offset_2
0194 e225 | % | Load 0x1,0x25
0195 e012 | | Load 0x0,0x12
0196 e216 | | Load 0x1,0x16
0197 0096 | | Execute Package,Entry
0198 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0199 0000 0000 | | .BLANK 0000[0x7]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a7 | | .CONST 0x01a7 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e210 | | Load 0x1,0x10
01a4 0322 | " | Declare_Variable Record
01a5 00d8 | | Load_Top At_Offset_0
01a6 1c00 | | Execute_Immediate Run_Utility,0x0
01a7 BODY_01a0:
01a7 00db | | Load_Top At_Offset_3
01a8 e225 | % | Load 0x1,0x25
01a9 e013 | | Load 0x0,0x13
01aa e216 | | Load 0x1,0x16
01ab 0096 | | Execute Package,Entry
01ac 00d9 | | Load_Top At_Offset_1
01ad 017d | } | Execute Record,Structure_Write
01ae 00d8 | | Load_Top At_Offset_0
01af 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b0 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01b1 8008 | | Call 0x0,0x8
01b2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b3 0000 0000 | | .BLANK 0000[0x5]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bf | | .CONST 0x01bf ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb e210 | | Load 0x1,0x10
01bc 0322 | " | Declare_Variable Record
01bd 00d8 | | Load_Top At_Offset_0
01be 1c00 | | Execute_Immediate Run_Utility,0x0
01bf BODY_01b8:
01bf 00db | | Load_Top At_Offset_3
01c0 e225 | % | Load 0x1,0x25
01c1 e013 | | Load 0x0,0x13
01c2 e216 | | Load 0x1,0x16
01c3 0096 | | Execute Package,Entry
01c4 00d9 | | Load_Top At_Offset_1
01c5 017d | } | Execute Record,Structure_Write
01c6 00d8 | | Load_Top At_Offset_0
01c7 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
01c8 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
01c9 8008 | | Call 0x0,0x8
01ca 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cb 0000 0000 | | .BLANK 0000[0x5]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d7 | | .CONST 0x01d7 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 e210 | | Load 0x1,0x10
01d4 0322 | " | Declare_Variable Record
01d5 00d8 | | Load_Top At_Offset_0
01d6 1c00 | | Execute_Immediate Run_Utility,0x0
01d7 BODY_01d0:
01d7 00db | | Load_Top At_Offset_3
01d8 e225 | % | Load 0x1,0x25
01d9 e013 | | Load 0x0,0x13
01da e216 | | Load 0x1,0x16
01db 0096 | | Execute Package,Entry
01dc 00d9 | | Load_Top At_Offset_1
01dd 017d | } | Execute Record,Structure_Write
01de 00d8 | | Load_Top At_Offset_0
01df 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00db | | Load_Top At_Offset_3
01ec 00db | | Load_Top At_Offset_3
01ed 8226 | & | Call 0x1,0x26
01ee e225 | % | Load 0x1,0x25
01ef e014 | | Load 0x0,0x14
01f0 e216 | | Load 0x1,0x16
01f1 0096 | | Execute Package,Entry
01f2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f3 0000 0000 | | .BLANK 0000[0x5]
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 00da | | Load_Top At_Offset_2
01fc e5fd | | Load 0x2,-0x3
01fd e5fe | | Load 0x2,-0x2
01fe 8226 | & | Call 0x1,0x26
01ff e225 | % | Load 0x1,0x25
0200 e015 | | Load 0x0,0x15
0201 e216 | | Load 0x1,0x16
0202 0096 | | Execute Package,Entry
0203 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0204 0000 0000 | | .BLANK 0000[0x4]
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00da | | Load_Top At_Offset_2
020c e5fd | | Load 0x2,-0x3
020d e5fe | | Load 0x2,-0x2
020e 8226 | & | Call 0x1,0x26
020f e225 | % | Load 0x1,0x25
0210 e016 | | Load 0x0,0x16
0211 e216 | | Load 0x1,0x16
0212 0096 | | Execute Package,Entry
0213 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0214 0000 0000 | | .BLANK 0000[0x4]
0218 ; --------------------------------------------------------------------------------------
0218 ; SUBPROGRAM
0218 ; --------------------------------------------------------------------------------------
0218 021f | | .CONST 0x021f ; Address of begin
0219 0004 | | .CONST 0x0004 ; Address of exception handler
021a 0002 | | .CONST 0x0002 ; Number of locals
021b INIT_0218:
021b e210 | | Load 0x1,0x10
021c 0322 | " | Declare_Variable Record
021d 00d8 | | Load_Top At_Offset_0
021e 1c00 | | Execute_Immediate Run_Utility,0x0
021f BODY_0218:
021f 00db | | Load_Top At_Offset_3
0220 e5fd | | Load 0x2,-0x3
0221 e5fe | | Load 0x2,-0x2
0222 8226 | & | Call 0x1,0x26
0223 e225 | % | Load 0x1,0x25
0224 e017 | | Load 0x0,0x17
0225 e216 | | Load 0x1,0x16
0226 0096 | | Execute Package,Entry
0227 00d9 | | Load_Top At_Offset_1
0228 017d | } | Execute Record,Structure_Write
0229 00d8 | | Load_Top At_Offset_0
022a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
022b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
022c 0000 0000 | | .BLANK 0000[0x4]
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0237 | 7 | .CONST 0x0237 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0002 | | .CONST 0x0002 ; Number of locals
0233 INIT_0230:
0233 e20f | | Load 0x1,0xf
0234 0322 | " | Declare_Variable Record
0235 00d8 | | Load_Top At_Offset_0
0236 1c00 | | Execute_Immediate Run_Utility,0x0
0237 BODY_0230:
0237 00d8 | | Load_Top At_Offset_0
0238 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0239 e5ff | | Load 0x2,-0x1
023a 8018 | | Call 0x0,0x18
023b 00d1 | | Pop_Control Pop_Count_1
023c 00d8 | | Load_Top At_Offset_0
023d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
023e e5fe | | Load 0x2,-0x2
023f 8018 | | Call 0x0,0x18
0240 00d1 | | Pop_Control Pop_Count_1
0241 00d8 | | Load_Top At_Offset_0
0242 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0243 0000 0000 | | .BLANK 0000[0x5]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024f | O | .CONST 0x024f ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0002 | | .CONST 0x0002 ; Number of locals
024b INIT_0248:
024b e210 | | Load 0x1,0x10
024c 0322 | " | Declare_Variable Record
024d 00d8 | | Load_Top At_Offset_0
024e 1c00 | | Execute_Immediate Run_Utility,0x0
024f BODY_0248:
024f e5fe | | Load 0x2,-0x2
0250 e5ff | | Load 0x2,-0x1
0251 8226 | & | Call 0x1,0x26
0252 00d9 | | Load_Top At_Offset_1
0253 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0254 e5fd | | Load 0x2,-0x3
0255 00d9 | | Load_Top At_Offset_1
0256 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0257 00d8 | | Load_Top At_Offset_0
0258 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0259 0000 0000 | | .BLANK 0000[0x7]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4601 |F | Jump_Case 0x2
0264 7801 |x | Jump 0x266 ; case 0x0
0265 780d |x | Jump 0x273 ; case 0x1
0266 00da | | Load_Top At_Offset_2
0267 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0268 0125 | % | Execute Any,Set_Constraint
0269 00da | | Load_Top At_Offset_2
026a 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
026b 1c00 | | Execute_Immediate Run_Utility,0x0
026c 00da | | Load_Top At_Offset_2
026d 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
026e 0125 | % | Execute Any,Set_Constraint
026f 00da | | Load_Top At_Offset_2
0270 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0271 1c00 | | Execute_Immediate Run_Utility,0x0
0272 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0273 00da | | Load_Top At_Offset_2
0274 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0275 0125 | % | Execute Any,Set_Constraint
0276 00da | | Load_Top At_Offset_2
0277 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0278 0125 | % | Execute Any,Set_Constraint
0279 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4601 |F | Jump_Case 0x2
0284 7801 |x | Jump 0x286 ; case 0x0
0285 7804 |x | Jump 0x28a ; case 0x1
0286 00da | | Load_Top At_Offset_2
0287 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0288 1c00 | | Execute_Immediate Run_Utility,0x0
0289 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
028a 00da | | Load_Top At_Offset_2
028b 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
028c 1c01 | | Execute_Immediate Run_Utility,0x1
028d 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
028e 0000 0000 | | .XXX[0x2]
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug Table
0290 ; --------------------------------------------------------------------------------------
0290 0004 0002 | | .DEBUG4 0x0004,0x0002,0xd1ce,0x0000,0x0001,0x0000
0296 0000 0000 | | .BLANK 0000[0x16a]