|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da
└─⟦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 0450 | P | .CONST 0x0450 ; 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 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0032 | 2 | .CONST 0x0032 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram INIT_0038,For_Outer_Call,Visible,Unelaborated
000d 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
000f 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
0011 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0013 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
0015 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0017 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0019 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
001b 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
001d 00bf | | Action Accept_Activation
001e 029d 03db | | Declare_Subprogram INIT_03d8,For_Outer_Call
0020 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0021 00c7 | | Action Elaborate_Subprogram
0022 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0023 00c7 | | Action Elaborate_Subprogram
0024 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0025 00c7 | | Action Elaborate_Subprogram
0026 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0027 00c7 | | Action Elaborate_Subprogram
0028 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0029 00c7 | | Action Elaborate_Subprogram
002a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002b 00c7 | | Action Elaborate_Subprogram
002c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002d 00c7 | | Action Elaborate_Subprogram
002e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
002f 00c7 | | Action Elaborate_Subprogram
0030 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0031 00c7 | | Action Elaborate_Subprogram
0032 BODY_0008:
0032 00bc | | Action Signal_Activated
0033 00bb | | Action Signal_Completion
0034 0000 0000 | | .BLANK 0000[0x4]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0042 | B | .CONST 0x0042 ; Address of begin
0039 0079 | y | .CONST 0x0079 ; Address of exception handler
003a 0003 | | .CONST 0x0003 ; Number of locals
003b INIT_0038:
003b e001 | | Load 0x0,0x1
003c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
003d 02c7 | | Declare_Variable Any
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 e002 | | Load 0x0,0x2
0041 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0042 BODY_0038:
0042 e5f5 | | Load 0x2,-0xb
0043 e002 | | Load 0x0,0x2
0044 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0045 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0046 00d8 | | Load_Top At_Offset_0
0047 e002 | | Load 0x0,0x2
0048 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0049 6815 |h | Jump_Zero 0x5f
004a e003 | | Load 0x0,0x3
004b 180e | | Execute Package,Field_Execute,Field_Number 0xe
004c 4801 |H | Short_Literal 0x1
004d 4801 |H | Short_Literal 0x1
004e e004 | | Load 0x0,0x4
004f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0050 0334 | 4 | Declare_Variable Array,With_Constraint
0051 e5f5 | | Load 0x2,-0xb
0052 e005 | | Load 0x0,0x5
0053 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0054 e004 | | Load 0x0,0x4
0055 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0056 0119 | | Execute Any,Check_In_Formal_Type
0057 4801 |H | Short_Literal 0x1
0058 00da | | Load_Top At_Offset_2
0059 01d6 | | Execute Vector,Field_Write
005a 6045 |`E | Indirect_Literal Discrete,0xa0,{0x00000000, 0x000081b9}
005b e006 | | Load 0x0,0x6
005c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
005d 4800 |H | Short_Literal 0x0
005e 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
005f 00d9 | | Load_Top At_Offset_1
0060 e5f6 | | Load 0x2,-0xa
0061 e5f7 | | Load 0x2,-0x9
0062 e5f8 | | Load 0x2,-0x8
0063 e5f9 | | Load 0x2,-0x7
0064 e5fa | | Load 0x2,-0x6
0065 e5fb | | Load 0x2,-0x5
0066 e5fc | | Load 0x2,-0x4
0067 e5fd | | Load 0x2,-0x3
0068 e5fe | | Load 0x2,-0x2
0069 e5ff | | Load 0x2,-0x1
006a e403 | | Load 0x2,0x3
006b e007 | | Load 0x0,0x7
006c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
006d 00d8 | | Load_Top At_Offset_0
006e e007 | | Load 0x0,0x7
006f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0070 7003 |p | Jump_Nonzero 0x74
0071 e008 | | Load 0x0,0x8
0072 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0073 0257 | W | Execute Discrete,Raise
0074 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0075 c402 | | Store 0x2,0x2
0076 00d9 | | Load_Top At_Offset_1
0077 8216 | | Call 0x1,0x16
0078 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
0079 TRAP_0038:
0079 4884 |H | Short_Literal 0x84
007a 010f | | Execute Exception,Equal
007b 7004 |p | Jump_Nonzero 0x80
007c e008 | | Load 0x0,0x8
007d 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
007e 010f | | Execute Exception,Equal
007f 6815 |h | Jump_Zero 0x95
0080 e003 | | Load 0x0,0x3
0081 180e | | Execute Package,Field_Execute,Field_Number 0xe
0082 4801 |H | Short_Literal 0x1
0083 4801 |H | Short_Literal 0x1
0084 e004 | | Load 0x0,0x4
0085 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0086 0334 | 4 | Declare_Variable Array,With_Constraint
0087 e5f5 | | Load 0x2,-0xb
0088 e005 | | Load 0x0,0x5
0089 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
008a e004 | | Load 0x0,0x4
008b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
008c 0119 | | Execute Any,Check_In_Formal_Type
008d 4801 |H | Short_Literal 0x1
008e 00da | | Load_Top At_Offset_2
008f 01d6 | | Execute Vector,Field_Write
0090 600b |` | Indirect_Literal Discrete,0x9c,{0x00000000, 0x000081bb}
0091 e006 | | Load 0x0,0x6
0092 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0093 4800 |H | Short_Literal 0x0
0094 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
0095 e006 | | Load 0x0,0x6
0096 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0097 010f | | Execute Exception,Equal
0098 6802 |h | Jump_Zero 0x9b
0099 4800 |H | Short_Literal 0x0
009a 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
009b 0100 | | Execute Exception,Raise
009c 0000 0000 | | .LITERAL {0x00000000, 0x000081bb}
00a0 0000 0000 | | .LITERAL {0x00000000, 0x000081b9}
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b2 | | .CONST 0x00b2 ; Address of begin
00a9 00e9 | | .CONST 0x00e9 ; Address of exception handler
00aa 0003 | | .CONST 0x0003 ; Number of locals
00ab INIT_00a8:
00ab e001 | | Load 0x0,0x1
00ac 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ad 02c7 | | Declare_Variable Any
00ae 00d8 | | Load_Top At_Offset_0
00af 1c00 | | Execute_Immediate Run_Utility,0x0
00b0 e002 | | Load 0x0,0x2
00b1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00b2 BODY_00a8:
00b2 e5f5 | | Load 0x2,-0xb
00b3 e002 | | Load 0x0,0x2
00b4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
00b6 00d8 | | Load_Top At_Offset_0
00b7 e002 | | Load 0x0,0x2
00b8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00b9 6815 |h | Jump_Zero 0xcf
00ba e003 | | Load 0x0,0x3
00bb 180e | | Execute Package,Field_Execute,Field_Number 0xe
00bc 4801 |H | Short_Literal 0x1
00bd 4801 |H | Short_Literal 0x1
00be e004 | | Load 0x0,0x4
00bf 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00c0 0334 | 4 | Declare_Variable Array,With_Constraint
00c1 e5f5 | | Load 0x2,-0xb
00c2 e005 | | Load 0x0,0x5
00c3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00c4 e004 | | Load 0x0,0x4
00c5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00c6 0119 | | Execute Any,Check_In_Formal_Type
00c7 4801 |H | Short_Literal 0x1
00c8 00da | | Load_Top At_Offset_2
00c9 01d6 | | Execute Vector,Field_Write
00ca 67d5 |g | Indirect_Literal Discrete,0xa0,{0x00000000, 0x000081b9}
00cb e006 | | Load 0x0,0x6
00cc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
00cd 4800 |H | Short_Literal 0x0
00ce 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
00cf 00d9 | | Load_Top At_Offset_1
00d0 e5f6 | | Load 0x2,-0xa
00d1 e5f7 | | Load 0x2,-0x9
00d2 e5f8 | | Load 0x2,-0x8
00d3 e5f9 | | Load 0x2,-0x7
00d4 e5fa | | Load 0x2,-0x6
00d5 e5fb | | Load 0x2,-0x5
00d6 e5fc | | Load 0x2,-0x4
00d7 e5fd | | Load 0x2,-0x3
00d8 e5fe | | Load 0x2,-0x2
00d9 e5ff | | Load 0x2,-0x1
00da e403 | | Load 0x2,0x3
00db e007 | | Load 0x0,0x7
00dc 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00dd 00d8 | | Load_Top At_Offset_0
00de e007 | | Load 0x0,0x7
00df 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00e0 7003 |p | Jump_Nonzero 0xe4
00e1 e008 | | Load 0x0,0x8
00e2 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00e3 0257 | W | Execute Discrete,Raise
00e4 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00e5 c402 | | Store 0x2,0x2
00e6 00d9 | | Load_Top At_Offset_1
00e7 8216 | | Call 0x1,0x16
00e8 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
00e9 TRAP_00a8:
00e9 4884 |H | Short_Literal 0x84
00ea 010f | | Execute Exception,Equal
00eb 7004 |p | Jump_Nonzero 0xf0
00ec e008 | | Load 0x0,0x8
00ed 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00ee 010f | | Execute Exception,Equal
00ef 6815 |h | Jump_Zero 0x105
00f0 e003 | | Load 0x0,0x3
00f1 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f2 4801 |H | Short_Literal 0x1
00f3 4801 |H | Short_Literal 0x1
00f4 e004 | | Load 0x0,0x4
00f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00f6 0334 | 4 | Declare_Variable Array,With_Constraint
00f7 e5f5 | | Load 0x2,-0xb
00f8 e005 | | Load 0x0,0x5
00f9 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00fa e004 | | Load 0x0,0x4
00fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00fc 0119 | | Execute Any,Check_In_Formal_Type
00fd 4801 |H | Short_Literal 0x1
00fe 00da | | Load_Top At_Offset_2
00ff 01d6 | | Execute Vector,Field_Write
0100 679b |g | Indirect_Literal Discrete,0x9c,{0x00000000, 0x000081bb}
0101 e006 | | Load 0x0,0x6
0102 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0103 4800 |H | Short_Literal 0x0
0104 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
0105 e006 | | Load 0x0,0x6
0106 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0107 010f | | Execute Exception,Equal
0108 6802 |h | Jump_Zero 0x10b
0109 4800 |H | Short_Literal 0x0
010a 440b |D | Exit_Subprogram With_Value,New_Top_Offset 0xb
010b 0100 | | Execute Exception,Raise
010c 0000 0000 | | .BLANK 0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 011a | | .CONST 0x011a ; Address of begin
0111 014c | L | .CONST 0x014c ; Address of exception handler
0112 0003 | | .CONST 0x0003 ; Number of locals
0113 INIT_0110:
0113 e001 | | Load 0x0,0x1
0114 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0115 02c7 | | Declare_Variable Any
0116 00d8 | | Load_Top At_Offset_0
0117 1c00 | | Execute_Immediate Run_Utility,0x0
0118 e002 | | Load 0x0,0x2
0119 1b0d | | Execute Package,Field_Read,Field_Number 0xd
011a BODY_0110:
011a e5fa | | Load 0x2,-0x6
011b e002 | | Load 0x0,0x2
011c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
011d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
011e 00d8 | | Load_Top At_Offset_0
011f e002 | | Load 0x0,0x2
0120 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0121 6815 |h | Jump_Zero 0x137
0122 e003 | | Load 0x0,0x3
0123 180e | | Execute Package,Field_Execute,Field_Number 0xe
0124 4801 |H | Short_Literal 0x1
0125 4801 |H | Short_Literal 0x1
0126 e004 | | Load 0x0,0x4
0127 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0128 0334 | 4 | Declare_Variable Array,With_Constraint
0129 e5fa | | Load 0x2,-0x6
012a e005 | | Load 0x0,0x5
012b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
012c e004 | | Load 0x0,0x4
012d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
012e 0119 | | Execute Any,Check_In_Formal_Type
012f 4801 |H | Short_Literal 0x1
0130 00da | | Load_Top At_Offset_2
0131 01d6 | | Execute Vector,Field_Write
0132 6041 |`A | Indirect_Literal Discrete,0x174,{0x00000000, 0x000081b9}
0133 e006 | | Load 0x0,0x6
0134 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0135 4800 |H | Short_Literal 0x0
0136 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0137 00d9 | | Load_Top At_Offset_1
0138 e5fb | | Load 0x2,-0x5
0139 e5fc | | Load 0x2,-0x4
013a e5fd | | Load 0x2,-0x3
013b e5fe | | Load 0x2,-0x2
013c e5ff | | Load 0x2,-0x1
013d e403 | | Load 0x2,0x3
013e e007 | | Load 0x0,0x7
013f 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0140 00d8 | | Load_Top At_Offset_0
0141 e007 | | Load 0x0,0x7
0142 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0143 7003 |p | Jump_Nonzero 0x147
0144 e008 | | Load 0x0,0x8
0145 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0146 0257 | W | Execute Discrete,Raise
0147 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0148 c402 | | Store 0x2,0x2
0149 00d9 | | Load_Top At_Offset_1
014a 8216 | | Call 0x1,0x16
014b 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
014c TRAP_0110:
014c 4884 |H | Short_Literal 0x84
014d 010f | | Execute Exception,Equal
014e 7004 |p | Jump_Nonzero 0x153
014f e008 | | Load 0x0,0x8
0150 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0151 010f | | Execute Exception,Equal
0152 6815 |h | Jump_Zero 0x168
0153 e003 | | Load 0x0,0x3
0154 180e | | Execute Package,Field_Execute,Field_Number 0xe
0155 4801 |H | Short_Literal 0x1
0156 4801 |H | Short_Literal 0x1
0157 e004 | | Load 0x0,0x4
0158 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0159 0334 | 4 | Declare_Variable Array,With_Constraint
015a e5fa | | Load 0x2,-0x6
015b e005 | | Load 0x0,0x5
015c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
015d e004 | | Load 0x0,0x4
015e 1b0e | | Execute Package,Field_Read,Field_Number 0xe
015f 0119 | | Execute Any,Check_In_Formal_Type
0160 4801 |H | Short_Literal 0x1
0161 00da | | Load_Top At_Offset_2
0162 01d6 | | Execute Vector,Field_Write
0163 600c |` | Indirect_Literal Discrete,0x170,{0x00000000, 0x000081bb}
0164 e006 | | Load 0x0,0x6
0165 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0166 4800 |H | Short_Literal 0x0
0167 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
0168 e006 | | Load 0x0,0x6
0169 1b17 | | Execute Package,Field_Read,Field_Number 0x17
016a 010f | | Execute Exception,Equal
016b 6802 |h | Jump_Zero 0x16e
016c 4800 |H | Short_Literal 0x0
016d 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
016e 0100 | | Execute Exception,Raise
016f 0000 | | .XXX[0x1]
0170 0000 0000 | | .LITERAL {0x00000000, 0x000081bb}
0174 0000 0000 | | .LITERAL {0x00000000, 0x000081b9}
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 0182 | | .CONST 0x0182 ; Address of begin
0179 01b4 | | .CONST 0x01b4 ; Address of exception handler
017a 0003 | | .CONST 0x0003 ; Number of locals
017b INIT_0178:
017b e001 | | Load 0x0,0x1
017c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017d 02c7 | | Declare_Variable Any
017e 00d8 | | Load_Top At_Offset_0
017f 1c00 | | Execute_Immediate Run_Utility,0x0
0180 e002 | | Load 0x0,0x2
0181 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0182 BODY_0178:
0182 e5fa | | Load 0x2,-0x6
0183 e002 | | Load 0x0,0x2
0184 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0185 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0186 00d8 | | Load_Top At_Offset_0
0187 e002 | | Load 0x0,0x2
0188 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0189 6815 |h | Jump_Zero 0x19f
018a e003 | | Load 0x0,0x3
018b 180e | | Execute Package,Field_Execute,Field_Number 0xe
018c 4801 |H | Short_Literal 0x1
018d 4801 |H | Short_Literal 0x1
018e e004 | | Load 0x0,0x4
018f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0190 0334 | 4 | Declare_Variable Array,With_Constraint
0191 e5fa | | Load 0x2,-0x6
0192 e005 | | Load 0x0,0x5
0193 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0194 e004 | | Load 0x0,0x4
0195 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0196 0119 | | Execute Any,Check_In_Formal_Type
0197 4801 |H | Short_Literal 0x1
0198 00da | | Load_Top At_Offset_2
0199 01d6 | | Execute Vector,Field_Write
019a 67d9 |g | Indirect_Literal Discrete,0x174,{0x00000000, 0x000081b9}
019b e006 | | Load 0x0,0x6
019c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
019d 4800 |H | Short_Literal 0x0
019e 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
019f 00d9 | | Load_Top At_Offset_1
01a0 e5fb | | Load 0x2,-0x5
01a1 e5fc | | Load 0x2,-0x4
01a2 e5fd | | Load 0x2,-0x3
01a3 e5fe | | Load 0x2,-0x2
01a4 e5ff | | Load 0x2,-0x1
01a5 e403 | | Load 0x2,0x3
01a6 e007 | | Load 0x0,0x7
01a7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01a8 00d8 | | Load_Top At_Offset_0
01a9 e007 | | Load 0x0,0x7
01aa 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01ab 7003 |p | Jump_Nonzero 0x1af
01ac e008 | | Load 0x0,0x8
01ad 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01ae 0257 | W | Execute Discrete,Raise
01af 181e | | Execute Package,Field_Execute,Field_Number 0x1e
01b0 c402 | | Store 0x2,0x2
01b1 00d9 | | Load_Top At_Offset_1
01b2 8216 | | Call 0x1,0x16
01b3 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
01b4 TRAP_0178:
01b4 4884 |H | Short_Literal 0x84
01b5 010f | | Execute Exception,Equal
01b6 7004 |p | Jump_Nonzero 0x1bb
01b7 e008 | | Load 0x0,0x8
01b8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01b9 010f | | Execute Exception,Equal
01ba 6815 |h | Jump_Zero 0x1d0
01bb e003 | | Load 0x0,0x3
01bc 180e | | Execute Package,Field_Execute,Field_Number 0xe
01bd 4801 |H | Short_Literal 0x1
01be 4801 |H | Short_Literal 0x1
01bf e004 | | Load 0x0,0x4
01c0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01c1 0334 | 4 | Declare_Variable Array,With_Constraint
01c2 e5fa | | Load 0x2,-0x6
01c3 e005 | | Load 0x0,0x5
01c4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01c5 e004 | | Load 0x0,0x4
01c6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01c7 0119 | | Execute Any,Check_In_Formal_Type
01c8 4801 |H | Short_Literal 0x1
01c9 00da | | Load_Top At_Offset_2
01ca 01d6 | | Execute Vector,Field_Write
01cb 67a4 |g | Indirect_Literal Discrete,0x170,{0x00000000, 0x000081bb}
01cc e006 | | Load 0x0,0x6
01cd 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01ce 4800 |H | Short_Literal 0x0
01cf 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
01d0 e006 | | Load 0x0,0x6
01d1 1b17 | | Execute Package,Field_Read,Field_Number 0x17
01d2 010f | | Execute Exception,Equal
01d3 6802 |h | Jump_Zero 0x1d6
01d4 4800 |H | Short_Literal 0x0
01d5 4406 |D | Exit_Subprogram With_Value,New_Top_Offset 0x6
01d6 0100 | | Execute Exception,Raise
01d7 0000 | | .XXX[0x1]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e2 | | .CONST 0x01e2 ; Address of begin
01d9 0217 | | .CONST 0x0217 ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db e001 | | Load 0x0,0x1
01dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01dd 02c7 | | Declare_Variable Any
01de 00d8 | | Load_Top At_Offset_0
01df 1c00 | | Execute_Immediate Run_Utility,0x0
01e0 e002 | | Load 0x0,0x2
01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e2 BODY_01d8:
01e2 e5f7 | | Load 0x2,-0x9
01e3 e002 | | Load 0x0,0x2
01e4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e5 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
01e6 00d8 | | Load_Top At_Offset_0
01e7 e002 | | Load 0x0,0x2
01e8 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01e9 6815 |h | Jump_Zero 0x1ff
01ea e003 | | Load 0x0,0x3
01eb 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ec 4801 |H | Short_Literal 0x1
01ed 4801 |H | Short_Literal 0x1
01ee e004 | | Load 0x0,0x4
01ef 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f0 0334 | 4 | Declare_Variable Array,With_Constraint
01f1 e5f7 | | Load 0x2,-0x9
01f2 e005 | | Load 0x0,0x5
01f3 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
01f4 e004 | | Load 0x0,0x4
01f5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01f6 0119 | | Execute Any,Check_In_Formal_Type
01f7 4801 |H | Short_Literal 0x1
01f8 00da | | Load_Top At_Offset_2
01f9 01d6 | | Execute Vector,Field_Write
01fa 6045 |`E | Indirect_Literal Discrete,0x240,{0x00000000, 0x000081b9}
01fb e006 | | Load 0x0,0x6
01fc 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
01fd 4800 |H | Short_Literal 0x0
01fe 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
01ff 00d9 | | Load_Top At_Offset_1
0200 e5f8 | | Load 0x2,-0x8
0201 e5f9 | | Load 0x2,-0x7
0202 e5fa | | Load 0x2,-0x6
0203 e5fb | | Load 0x2,-0x5
0204 e5fc | | Load 0x2,-0x4
0205 e5fd | | Load 0x2,-0x3
0206 e5fe | | Load 0x2,-0x2
0207 e5ff | | Load 0x2,-0x1
0208 e403 | | Load 0x2,0x3
0209 e007 | | Load 0x0,0x7
020a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
020b 00d8 | | Load_Top At_Offset_0
020c e007 | | Load 0x0,0x7
020d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
020e 7003 |p | Jump_Nonzero 0x212
020f e008 | | Load 0x0,0x8
0210 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0211 0257 | W | Execute Discrete,Raise
0212 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0213 c402 | | Store 0x2,0x2
0214 00d9 | | Load_Top At_Offset_1
0215 8216 | | Call 0x1,0x16
0216 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
0217 TRAP_01d8:
0217 4884 |H | Short_Literal 0x84
0218 010f | | Execute Exception,Equal
0219 7004 |p | Jump_Nonzero 0x21e
021a e008 | | Load 0x0,0x8
021b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
021c 010f | | Execute Exception,Equal
021d 6815 |h | Jump_Zero 0x233
021e e003 | | Load 0x0,0x3
021f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0220 4801 |H | Short_Literal 0x1
0221 4801 |H | Short_Literal 0x1
0222 e004 | | Load 0x0,0x4
0223 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0224 0334 | 4 | Declare_Variable Array,With_Constraint
0225 e5f7 | | Load 0x2,-0x9
0226 e005 | | Load 0x0,0x5
0227 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0228 e004 | | Load 0x0,0x4
0229 1b0e | | Execute Package,Field_Read,Field_Number 0xe
022a 0119 | | Execute Any,Check_In_Formal_Type
022b 4801 |H | Short_Literal 0x1
022c 00da | | Load_Top At_Offset_2
022d 01d6 | | Execute Vector,Field_Write
022e 600d |` | Indirect_Literal Discrete,0x23c,{0x00000000, 0x000081bb}
022f e006 | | Load 0x0,0x6
0230 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0231 4800 |H | Short_Literal 0x0
0232 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
0233 e006 | | Load 0x0,0x6
0234 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0235 010f | | Execute Exception,Equal
0236 6802 |h | Jump_Zero 0x239
0237 4800 |H | Short_Literal 0x0
0238 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
0239 0100 | | Execute Exception,Raise
023a 0000 0000 | | .XXX[0x2]
023c 0000 0000 | | .LITERAL {0x00000000, 0x000081bb}
0240 0000 0000 | | .LITERAL {0x00000000, 0x000081b9}
0244 0000 0000 | | .BLANK 0000[0x4]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 0252 | R | .CONST 0x0252 ; Address of begin
0249 0287 | | .CONST 0x0287 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b e001 | | Load 0x0,0x1
024c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
024d 02c7 | | Declare_Variable Any
024e 00d8 | | Load_Top At_Offset_0
024f 1c00 | | Execute_Immediate Run_Utility,0x0
0250 e002 | | Load 0x0,0x2
0251 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0252 BODY_0248:
0252 e5f7 | | Load 0x2,-0x9
0253 e002 | | Load 0x0,0x2
0254 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0255 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0256 00d8 | | Load_Top At_Offset_0
0257 e002 | | Load 0x0,0x2
0258 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0259 6815 |h | Jump_Zero 0x26f
025a e003 | | Load 0x0,0x3
025b 180e | | Execute Package,Field_Execute,Field_Number 0xe
025c 4801 |H | Short_Literal 0x1
025d 4801 |H | Short_Literal 0x1
025e e004 | | Load 0x0,0x4
025f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0260 0334 | 4 | Declare_Variable Array,With_Constraint
0261 e5f7 | | Load 0x2,-0x9
0262 e005 | | Load 0x0,0x5
0263 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0264 e004 | | Load 0x0,0x4
0265 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0266 0119 | | Execute Any,Check_In_Formal_Type
0267 4801 |H | Short_Literal 0x1
0268 00da | | Load_Top At_Offset_2
0269 01d6 | | Execute Vector,Field_Write
026a 67d5 |g | Indirect_Literal Discrete,0x240,{0x00000000, 0x000081b9}
026b e006 | | Load 0x0,0x6
026c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
026d 4800 |H | Short_Literal 0x0
026e 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
026f 00d9 | | Load_Top At_Offset_1
0270 e5f8 | | Load 0x2,-0x8
0271 e5f9 | | Load 0x2,-0x7
0272 e5fa | | Load 0x2,-0x6
0273 e5fb | | Load 0x2,-0x5
0274 e5fc | | Load 0x2,-0x4
0275 e5fd | | Load 0x2,-0x3
0276 e5fe | | Load 0x2,-0x2
0277 e5ff | | Load 0x2,-0x1
0278 e403 | | Load 0x2,0x3
0279 e007 | | Load 0x0,0x7
027a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
027b 00d8 | | Load_Top At_Offset_0
027c e007 | | Load 0x0,0x7
027d 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
027e 7003 |p | Jump_Nonzero 0x282
027f e008 | | Load 0x0,0x8
0280 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0281 0257 | W | Execute Discrete,Raise
0282 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0283 c402 | | Store 0x2,0x2
0284 00d9 | | Load_Top At_Offset_1
0285 8216 | | Call 0x1,0x16
0286 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
0287 TRAP_0248:
0287 4884 |H | Short_Literal 0x84
0288 010f | | Execute Exception,Equal
0289 7004 |p | Jump_Nonzero 0x28e
028a e008 | | Load 0x0,0x8
028b 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
028c 010f | | Execute Exception,Equal
028d 6815 |h | Jump_Zero 0x2a3
028e e003 | | Load 0x0,0x3
028f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0290 4801 |H | Short_Literal 0x1
0291 4801 |H | Short_Literal 0x1
0292 e004 | | Load 0x0,0x4
0293 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0294 0334 | 4 | Declare_Variable Array,With_Constraint
0295 e5f7 | | Load 0x2,-0x9
0296 e005 | | Load 0x0,0x5
0297 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
0298 e004 | | Load 0x0,0x4
0299 1b0e | | Execute Package,Field_Read,Field_Number 0xe
029a 0119 | | Execute Any,Check_In_Formal_Type
029b 4801 |H | Short_Literal 0x1
029c 00da | | Load_Top At_Offset_2
029d 01d6 | | Execute Vector,Field_Write
029e 679d |g | Indirect_Literal Discrete,0x23c,{0x00000000, 0x000081bb}
029f e006 | | Load 0x0,0x6
02a0 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02a1 4800 |H | Short_Literal 0x0
02a2 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
02a3 e006 | | Load 0x0,0x6
02a4 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02a5 010f | | Execute Exception,Equal
02a6 6802 |h | Jump_Zero 0x2a9
02a7 4800 |H | Short_Literal 0x0
02a8 4409 |D | Exit_Subprogram With_Value,New_Top_Offset 0x9
02a9 0100 | | Execute Exception,Raise
02aa 0000 0000 | | .BLANK 0000[0x6]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b5 | | .CONST 0x02b5 ; Address of begin
02b1 02e1 | | .CONST 0x02e1 ; Address of exception handler
02b2 0002 | | .CONST 0x0002 ; Number of locals
02b3 INIT_02b0:
02b3 e002 | | Load 0x0,0x2
02b4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02b5 BODY_02b0:
02b5 e5fc | | Load 0x2,-0x4
02b6 e002 | | Load 0x0,0x2
02b7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02b8 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02b9 00d8 | | Load_Top At_Offset_0
02ba e002 | | Load 0x0,0x2
02bb 1811 | | Execute Package,Field_Execute,Field_Number 0x11
02bc 6815 |h | Jump_Zero 0x2d2
02bd e003 | | Load 0x0,0x3
02be 180e | | Execute Package,Field_Execute,Field_Number 0xe
02bf 4801 |H | Short_Literal 0x1
02c0 4801 |H | Short_Literal 0x1
02c1 e004 | | Load 0x0,0x4
02c2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02c3 0334 | 4 | Declare_Variable Array,With_Constraint
02c4 e5fc | | Load 0x2,-0x4
02c5 e005 | | Load 0x0,0x5
02c6 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
02c7 e004 | | Load 0x0,0x4
02c8 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02c9 0119 | | Execute Any,Check_In_Formal_Type
02ca 4801 |H | Short_Literal 0x1
02cb 00da | | Load_Top At_Offset_2
02cc 01d6 | | Execute Vector,Field_Write
02cd 603a |`: | Indirect_Literal Discrete,0x308,{0x00000000, 0x000081b9}
02ce e006 | | Load 0x0,0x6
02cf 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02d0 00ea | | Load_Encached Null_String_Cache
02d1 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02d2 e5fd | | Load 0x2,-0x3
02d3 e5fe | | Load 0x2,-0x2
02d4 e5ff | | Load 0x2,-0x1
02d5 00db | | Load_Top At_Offset_3
02d6 e007 | | Load 0x0,0x7
02d7 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
02d8 00d8 | | Load_Top At_Offset_0
02d9 e007 | | Load 0x0,0x7
02da 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
02db 7003 |p | Jump_Nonzero 0x2df
02dc e008 | | Load 0x0,0x8
02dd 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
02de 0257 | W | Execute Discrete,Raise
02df 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02e0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02e1 TRAP_02b0:
02e1 4884 |H | Short_Literal 0x84
02e2 010f | | Execute Exception,Equal
02e3 7004 |p | Jump_Nonzero 0x2e8
02e4 e008 | | Load 0x0,0x8
02e5 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
02e6 010f | | Execute Exception,Equal
02e7 6815 |h | Jump_Zero 0x2fd
02e8 e003 | | Load 0x0,0x3
02e9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02ea 4801 |H | Short_Literal 0x1
02eb 4801 |H | Short_Literal 0x1
02ec e004 | | Load 0x0,0x4
02ed 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02ee 0334 | 4 | Declare_Variable Array,With_Constraint
02ef e5fc | | Load 0x2,-0x4
02f0 e005 | | Load 0x0,0x5
02f1 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
02f2 e004 | | Load 0x0,0x4
02f3 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02f4 0119 | | Execute Any,Check_In_Formal_Type
02f5 4801 |H | Short_Literal 0x1
02f6 00da | | Load_Top At_Offset_2
02f7 01d6 | | Execute Vector,Field_Write
02f8 600b |` | Indirect_Literal Discrete,0x304,{0x00000000, 0x000081bb}
02f9 e006 | | Load 0x0,0x6
02fa 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
02fb 00ea | | Load_Encached Null_String_Cache
02fc 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
02fd e006 | | Load 0x0,0x6
02fe 1b17 | | Execute Package,Field_Read,Field_Number 0x17
02ff 010f | | Execute Exception,Equal
0300 6802 |h | Jump_Zero 0x303
0301 00ea | | Load_Encached Null_String_Cache
0302 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0303 0100 | | Execute Exception,Raise
0304 0000 0000 | | .LITERAL {0x00000000, 0x000081bb}
0308 0000 0000 | | .LITERAL {0x00000000, 0x000081b9}
030c 0000 0000 | | .BLANK 0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 031a | | .CONST 0x031a ; Address of begin
0311 034a | J | .CONST 0x034a ; Address of exception handler
0312 0003 | | .CONST 0x0003 ; Number of locals
0313 INIT_0310:
0313 e001 | | Load 0x0,0x1
0314 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0315 02c7 | | Declare_Variable Any
0316 00d8 | | Load_Top At_Offset_0
0317 1c00 | | Execute_Immediate Run_Utility,0x0
0318 e002 | | Load 0x0,0x2
0319 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031a BODY_0310:
031a e5fc | | Load 0x2,-0x4
031b e002 | | Load 0x0,0x2
031c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
031d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
031e 00d8 | | Load_Top At_Offset_0
031f e002 | | Load 0x0,0x2
0320 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0321 6815 |h | Jump_Zero 0x337
0322 e003 | | Load 0x0,0x3
0323 180e | | Execute Package,Field_Execute,Field_Number 0xe
0324 4801 |H | Short_Literal 0x1
0325 4801 |H | Short_Literal 0x1
0326 e004 | | Load 0x0,0x4
0327 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0328 0334 | 4 | Declare_Variable Array,With_Constraint
0329 e5fc | | Load 0x2,-0x4
032a e005 | | Load 0x0,0x5
032b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
032c e004 | | Load 0x0,0x4
032d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
032e 0119 | | Execute Any,Check_In_Formal_Type
032f 4801 |H | Short_Literal 0x1
0330 00da | | Load_Top At_Offset_2
0331 01d6 | | Execute Vector,Field_Write
0332 67d5 |g | Indirect_Literal Discrete,0x308,{0x00000000, 0x000081b9}
0333 e006 | | Load 0x0,0x6
0334 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0335 4800 |H | Short_Literal 0x0
0336 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0337 00d9 | | Load_Top At_Offset_1
0338 e5fd | | Load 0x2,-0x3
0339 e5fe | | Load 0x2,-0x2
033a e5ff | | Load 0x2,-0x1
033b e403 | | Load 0x2,0x3
033c e007 | | Load 0x0,0x7
033d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
033e 00d8 | | Load_Top At_Offset_0
033f e007 | | Load 0x0,0x7
0340 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0341 7003 |p | Jump_Nonzero 0x345
0342 e008 | | Load 0x0,0x8
0343 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0344 0257 | W | Execute Discrete,Raise
0345 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0346 c402 | | Store 0x2,0x2
0347 00d9 | | Load_Top At_Offset_1
0348 8216 | | Call 0x1,0x16
0349 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
034a TRAP_0310:
034a 4884 |H | Short_Literal 0x84
034b 010f | | Execute Exception,Equal
034c 7004 |p | Jump_Nonzero 0x351
034d e008 | | Load 0x0,0x8
034e 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
034f 010f | | Execute Exception,Equal
0350 6815 |h | Jump_Zero 0x366
0351 e003 | | Load 0x0,0x3
0352 180e | | Execute Package,Field_Execute,Field_Number 0xe
0353 4801 |H | Short_Literal 0x1
0354 4801 |H | Short_Literal 0x1
0355 e004 | | Load 0x0,0x4
0356 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0357 0334 | 4 | Declare_Variable Array,With_Constraint
0358 e5fc | | Load 0x2,-0x4
0359 e005 | | Load 0x0,0x5
035a 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
035b e004 | | Load 0x0,0x4
035c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
035d 0119 | | Execute Any,Check_In_Formal_Type
035e 4801 |H | Short_Literal 0x1
035f 00da | | Load_Top At_Offset_2
0360 01d6 | | Execute Vector,Field_Write
0361 67a2 |g | Indirect_Literal Discrete,0x304,{0x00000000, 0x000081bb}
0362 e006 | | Load 0x0,0x6
0363 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0364 4800 |H | Short_Literal 0x0
0365 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0366 e006 | | Load 0x0,0x6
0367 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0368 010f | | Execute Exception,Equal
0369 6802 |h | Jump_Zero 0x36c
036a 4800 |H | Short_Literal 0x0
036b 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
036c 0100 | | Execute Exception,Raise
036d 0000 0000 | | .XXX[0x3]
036f 0000 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 037a | z | .CONST 0x037a ; Address of begin
0371 03aa | | .CONST 0x03aa ; Address of exception handler
0372 0003 | | .CONST 0x0003 ; Number of locals
0373 INIT_0370:
0373 e001 | | Load 0x0,0x1
0374 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0375 02c7 | | Declare_Variable Any
0376 00d8 | | Load_Top At_Offset_0
0377 1c00 | | Execute_Immediate Run_Utility,0x0
0378 e002 | | Load 0x0,0x2
0379 1b0d | | Execute Package,Field_Read,Field_Number 0xd
037a BODY_0370:
037a e5fc | | Load 0x2,-0x4
037b e002 | | Load 0x0,0x2
037c 1813 | | Execute Package,Field_Execute,Field_Number 0x13
037d 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
037e 00d8 | | Load_Top At_Offset_0
037f e002 | | Load 0x0,0x2
0380 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0381 6815 |h | Jump_Zero 0x397
0382 e003 | | Load 0x0,0x3
0383 180e | | Execute Package,Field_Execute,Field_Number 0xe
0384 4801 |H | Short_Literal 0x1
0385 4801 |H | Short_Literal 0x1
0386 e004 | | Load 0x0,0x4
0387 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0388 0334 | 4 | Declare_Variable Array,With_Constraint
0389 e5fc | | Load 0x2,-0x4
038a e005 | | Load 0x0,0x5
038b 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
038c e004 | | Load 0x0,0x4
038d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
038e 0119 | | Execute Any,Check_In_Formal_Type
038f 4801 |H | Short_Literal 0x1
0390 00da | | Load_Top At_Offset_2
0391 01d6 | | Execute Vector,Field_Write
0392 6041 |`A | Indirect_Literal Discrete,0x3d4,{0x00000000, 0x000081b9}
0393 e006 | | Load 0x0,0x6
0394 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0395 4800 |H | Short_Literal 0x0
0396 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0397 00d9 | | Load_Top At_Offset_1
0398 e5fd | | Load 0x2,-0x3
0399 e5fe | | Load 0x2,-0x2
039a e5ff | | Load 0x2,-0x1
039b e403 | | Load 0x2,0x3
039c e007 | | Load 0x0,0x7
039d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
039e 00d8 | | Load_Top At_Offset_0
039f e007 | | Load 0x0,0x7
03a0 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
03a1 7003 |p | Jump_Nonzero 0x3a5
03a2 e008 | | Load 0x0,0x8
03a3 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03a4 0257 | W | Execute Discrete,Raise
03a5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
03a6 c402 | | Store 0x2,0x2
03a7 00d9 | | Load_Top At_Offset_1
03a8 8216 | | Call 0x1,0x16
03a9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03aa TRAP_0370:
03aa 4884 |H | Short_Literal 0x84
03ab 010f | | Execute Exception,Equal
03ac 7004 |p | Jump_Nonzero 0x3b1
03ad e008 | | Load 0x0,0x8
03ae 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
03af 010f | | Execute Exception,Equal
03b0 6815 |h | Jump_Zero 0x3c6
03b1 e003 | | Load 0x0,0x3
03b2 180e | | Execute Package,Field_Execute,Field_Number 0xe
03b3 4801 |H | Short_Literal 0x1
03b4 4801 |H | Short_Literal 0x1
03b5 e004 | | Load 0x0,0x4
03b6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b7 0334 | 4 | Declare_Variable Array,With_Constraint
03b8 e5fc | | Load 0x2,-0x4
03b9 e005 | | Load 0x0,0x5
03ba 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
03bb e004 | | Load 0x0,0x4
03bc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03bd 0119 | | Execute Any,Check_In_Formal_Type
03be 4801 |H | Short_Literal 0x1
03bf 00da | | Load_Top At_Offset_2
03c0 01d6 | | Execute Vector,Field_Write
03c1 600e |` | Indirect_Literal Discrete,0x3d0,{0x00000000, 0x000081bb}
03c2 e006 | | Load 0x0,0x6
03c3 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
03c4 4800 |H | Short_Literal 0x0
03c5 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03c6 e006 | | Load 0x0,0x6
03c7 1b17 | | Execute Package,Field_Read,Field_Number 0x17
03c8 010f | | Execute Exception,Equal
03c9 6802 |h | Jump_Zero 0x3cc
03ca 4800 |H | Short_Literal 0x0
03cb 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
03cc 0100 | | Execute Exception,Raise
03cd 0000 0000 | | .XXX[0x3]
03cf 0000 | |
03d0 0000 0000 | | .LITERAL {0x00000000, 0x000081bb}
03d4 0000 0000 | | .LITERAL {0x00000000, 0x000081b9}
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 00da | | Load_Top At_Offset_2
03dc e001 | | Load 0x0,0x1
03dd 1814 | | Execute Package,Field_Execute,Field_Number 0x14
03de 4603 |F | Jump_Case 0x4
03df 7818 |x | Jump 0x3f8 ; case 0x0
03e0 782e |x. | Jump 0x40f ; case 0x1
03e1 7844 |xD | Jump 0x426 ; case 0x2
03e2 7800 |x | Jump 0x3e3 ; case 0x3
03e3 4801 |H | Short_Literal 0x1
03e4 4801 |H | Short_Literal 0x1
03e5 e004 | | Load 0x0,0x4
03e6 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e7 0334 | 4 | Declare_Variable Array,With_Constraint
03e8 00db | | Load_Top At_Offset_3
03e9 e001 | | Load 0x0,0x1
03ea 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03eb e004 | | Load 0x0,0x4
03ec 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03ed e004 | | Load 0x0,0x4
03ee 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03ef 0119 | | Execute Any,Check_In_Formal_Type
03f0 4801 |H | Short_Literal 0x1
03f1 00da | | Load_Top At_Offset_2
03f2 01d6 | | Execute Vector,Field_Write
03f3 6058 |`X | Indirect_Literal Discrete,0x44c,{0x00000000, 0x000081be}
03f4 e006 | | Load 0x0,0x6
03f5 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
03f6 4800 |H | Short_Literal 0x0
03f7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f8 e003 | | Load 0x0,0x3
03f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
03fa 4801 |H | Short_Literal 0x1
03fb 4801 |H | Short_Literal 0x1
03fc e004 | | Load 0x0,0x4
03fd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03fe 0334 | 4 | Declare_Variable Array,With_Constraint
03ff e5ff | | Load 0x2,-0x1
0400 e001 | | Load 0x0,0x1
0401 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0402 e004 | | Load 0x0,0x4
0403 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0404 e004 | | Load 0x0,0x4
0405 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0406 0119 | | Execute Any,Check_In_Formal_Type
0407 4801 |H | Short_Literal 0x1
0408 00da | | Load_Top At_Offset_2
0409 01d6 | | Execute Vector,Field_Write
040a 603d |`= | Indirect_Literal Discrete,0x448,{0x00000000, 0x000081ba}
040b e006 | | Load 0x0,0x6
040c 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
040d 4801 |H | Short_Literal 0x1
040e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
040f e003 | | Load 0x0,0x3
0410 180e | | Execute Package,Field_Execute,Field_Number 0xe
0411 4801 |H | Short_Literal 0x1
0412 4801 |H | Short_Literal 0x1
0413 e004 | | Load 0x0,0x4
0414 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0415 0334 | 4 | Declare_Variable Array,With_Constraint
0416 e5ff | | Load 0x2,-0x1
0417 e001 | | Load 0x0,0x1
0418 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0419 e004 | | Load 0x0,0x4
041a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
041b e004 | | Load 0x0,0x4
041c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
041d 0119 | | Execute Any,Check_In_Formal_Type
041e 4801 |H | Short_Literal 0x1
041f 00da | | Load_Top At_Offset_2
0420 01d6 | | Execute Vector,Field_Write
0421 6022 |`" | Indirect_Literal Discrete,0x444,{0x00000000, 0x000081bc}
0422 e006 | | Load 0x0,0x6
0423 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0424 4801 |H | Short_Literal 0x1
0425 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0426 e003 | | Load 0x0,0x3
0427 180e | | Execute Package,Field_Execute,Field_Number 0xe
0428 4801 |H | Short_Literal 0x1
0429 4801 |H | Short_Literal 0x1
042a e004 | | Load 0x0,0x4
042b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
042c 0334 | 4 | Declare_Variable Array,With_Constraint
042d e5ff | | Load 0x2,-0x1
042e e001 | | Load 0x0,0x1
042f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0430 e004 | | Load 0x0,0x4
0431 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0432 e004 | | Load 0x0,0x4
0433 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0434 0119 | | Execute Any,Check_In_Formal_Type
0435 4801 |H | Short_Literal 0x1
0436 00da | | Load_Top At_Offset_2
0437 01d6 | | Execute Vector,Field_Write
0438 6007 |` | Indirect_Literal Discrete,0x440,{0x00000000, 0x000081bd}
0439 e006 | | Load 0x0,0x6
043a 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
043b 4800 |H | Short_Literal 0x0
043c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
043d 0000 0000 | | .XXX[0x3]
043f 0000 | |
0440 0000 0000 | | .LITERAL {0x00000000, 0x000081bd}
0444 0000 0000 | | .LITERAL {0x00000000, 0x000081bc}
0448 0000 0000 | | .LITERAL {0x00000000, 0x000081ba}
044c 0000 0000 | | .LITERAL {0x00000000, 0x000081be}
0450 ; --------------------------------------------------------------------------------------
0450 ; Debug Table
0450 ; --------------------------------------------------------------------------------------
0450 0004 000c | | .DEBUG4 0x0004,0x000c,0x2dc3,0x0000,0x0001,0x0000
0456 0000 0000 | | .BLANK 0000[0x1aa]