|
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_1884fe
└─⟦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 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0378 | x | .CONST 0x0378 ; 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 0002 | | .CONST 0x0002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00a1 | | .CONST 0x00a1 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 002f | / | .CONST 0x002f ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000d 0129 | ) | Execute Any,Make_Visible
000e 4818 |H | Short_Literal 0x18
000f 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0010 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
0012 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0014 00e9 | | Load_Encached String_Cache
0015 0129 | ) | Execute Any,Make_Visible
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
002f c225 | % | Store 0x1,0x25
0030 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
0032 c226 | & | Store 0x1,0x26
0033 4818 |H | Short_Literal 0x18
0034 03cd | | Declare_Type Access,Incomplete,Visible,Accesses_Protected
0035 c216 | | Store 0x1,0x16
0036 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated
0038 c227 | ' | Store 0x1,0x27
0039 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
003b c218 | | Store 0x1,0x18
003c 4805 |H | Short_Literal 0x5
003d 032b | + | Declare_Type Record,Incomplete,Visible
003e c219 | | Store 0x1,0x19
003f 029a 017b | {| Declare_Subprogram INIT_0178,For_Outer_Call,Visible,Unelaborated
0041 c21a | | Store 0x1,0x1a
0042 029a 018b | | Declare_Subprogram INIT_0188,For_Outer_Call,Visible,Unelaborated
0044 c228 | ( | Store 0x1,0x28
0045 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated
0047 c21c | | Store 0x1,0x1c
0048 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
004a c21d | | Store 0x1,0x1d
004b 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
004d c21e | | Store 0x1,0x1e
004e 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0050 c21f | | Store 0x1,0x1f
0051 e002 | | Load 0x0,0x2
0052 0129 | ) | Execute Any,Make_Visible
0053 c220 | | Store 0x1,0x20
0054 e003 | | Load 0x0,0x3
0055 0129 | ) | Execute Any,Make_Visible
0056 c221 | ! | Store 0x1,0x21
0057 e004 | | Load 0x0,0x4
0058 e005 | | Load 0x0,0x5
0059 4850 |HP | Short_Literal 0x50
005a e006 | | Load 0x0,0x6
005b 0387 | | Declare_Variable Package
005c 00d8 | | Load_Top At_Offset_0
005d 020f | | Execute Module,Activate
005e c222 | " | Store 0x1,0x22
005f e222 | " | Load 0x1,0x22
0060 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0061 c223 | # | Store 0x1,0x23
0062 4805 |H | Short_Literal 0x5
0063 032a | * | Declare_Type Record,Incomplete
0064 c224 | $ | Store 0x1,0x24
0065 e224 | $ | Load 0x1,0x24
0066 02a0 | | Declare_Subprogram Null_Subprogram
0067 e20e | | Load 0x1,0xe
0068 03c7 | | Complete_Type Access,By_Defining
0069 e223 | # | Load 0x1,0x23
006a 00d8 | | Load_Top At_Offset_0
006b e001 | | Load 0x0,0x1
006c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
006d e001 | | Load 0x0,0x1
006e 1b1c | | Execute Package,Field_Read,Field_Number 0x1c
006f e20e | | Load 0x1,0xe
0070 02a0 | | Declare_Subprogram Null_Subprogram
0071 e224 | $ | Load 0x1,0x24
0072 0326 | & | Complete_Type Record,By_Defining
0073 e224 | $ | Load 0x1,0x24
0074 e219 | | Load 0x1,0x19
0075 0325 | % | Complete_Type Record,By_Renaming
0076 e20e | | Load 0x1,0xe
0077 e216 | | Load 0x1,0x16
0078 03c6 | | Complete_Type Access,By_Renaming
0079 00bf | | Action Accept_Activation
007a 00ea | | Load_Encached Null_String_Cache
007b e222 | " | Load 0x1,0x22
007c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
007d 029d 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call
007f 029d 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call
0081 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0082 00c7 | | Action Elaborate_Subprogram
0083 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0084 00c7 | | Action Elaborate_Subprogram
0085 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0086 00c7 | | Action Elaborate_Subprogram
0087 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
0088 00c7 | | Action Elaborate_Subprogram
0089 029d 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call
008b 029d 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call
008d 029d 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call
008f 029d 02ab | | Declare_Subprogram INIT_02a8,For_Outer_Call
0091 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0092 00c7 | | Action Elaborate_Subprogram
0093 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0094 00c7 | | Action Elaborate_Subprogram
0095 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0096 00c7 | | Action Elaborate_Subprogram
0097 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0098 00c7 | | Action Elaborate_Subprogram
0099 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
009a 00c7 | | Action Elaborate_Subprogram
009b 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
009c 00c7 | | Action Elaborate_Subprogram
009d 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
009e 00c7 | | Action Elaborate_Subprogram
009f 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00a0 00c7 | | Action Elaborate_Subprogram
00a1 BODY_0008:
00a1 00bc | | Action Signal_Activated
00a2 00bb | | Action Signal_Completion
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e20e | | Load 0x1,0xe
00ac 00ca | | Action Exit_Nullary_Function
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00cc | | .CONST 0x00cc ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0005 | | .CONST 0x0005 ; Number of locals
00b3 INIT_00b0:
00b3 e224 | $ | Load 0x1,0x24
00b4 0322 | " | Declare_Variable Record
00b5 e229 | ) | Load 0x1,0x29
00b6 00d9 | | Load_Top At_Offset_1
00b7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b8 e229 | ) | Load 0x1,0x29
00b9 00d9 | | Load_Top At_Offset_1
00ba 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bb e001 | | Load 0x0,0x1
00bc 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
00bd 00d9 | | Load_Top At_Offset_1
00be 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00bf 4801 |H | Short_Literal 0x1
00c0 00d9 | | Load_Top At_Offset_1
00c1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00c2 e20e | | Load 0x1,0xe
00c3 00d9 | | Load_Top At_Offset_1
00c4 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00c5 e20e | | Load 0x1,0xe
00c6 03b6 | | Declare_Variable Access,By_Allocation,With_Value
00c7 00d8 | | Load_Top At_Offset_0
00c8 0007 | | Action Break_Optional
00c9 e5ff | | Load 0x2,-0x1
00ca 029f 0343 | C| Declare_Subprogram INIT_0340,For_Call
00cc BODY_00b0:
00cc 00cf | | Action Mark_Auxiliary
00cd 780a |x | Jump 0xd8
00ce 8405 | | Call 0x2,0x5
00cf 00db | | Load_Top At_Offset_3
00d0 0227 | ' | Execute Access,All_Reference
00d1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00d2 a403 | | Store_Unchecked 0x2,0x3
00d3 00da | | Load_Top At_Offset_2
00d4 0227 | ' | Execute Access,All_Reference
00d5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00d6 003b | ; | Store_Top Access,At_Offset_3
00d7 00c9 | | Action Pop_Auxiliary_Loop
00d8 00da | | Load_Top At_Offset_2
00d9 77f4 |w | Jump_Nonzero 0xce
00da 00ce | | Action Pop_Auxiliary
00db 00db | | Load_Top At_Offset_3
00dc 0227 | ' | Execute Access,All_Reference
00dd 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e9 | | .CONST 0x00e9 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0004 | | .CONST 0x0004 ; Number of locals
00e3 INIT_00e0:
00e3 e223 | # | Load 0x1,0x23
00e4 0007 | | Action Break_Optional
00e5 00d8 | | Load_Top At_Offset_0
00e6 0007 | | Action Break_Optional
00e7 e5fb | | Load 0x2,-0x5
00e8 822a | * | Call 0x1,0x2a
00e9 BODY_00e0:
00e9 00da | | Load_Top At_Offset_2
00ea e5ff | | Load 0x2,-0x1
00eb e222 | " | Load 0x1,0x22
00ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00ed 003b | ; | Store_Top Access,At_Offset_3
00ee 00d9 | | Load_Top At_Offset_1
00ef e5fe | | Load 0x2,-0x2
00f0 e222 | " | Load 0x1,0x22
00f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00f2 003a | : | Store_Top Access,At_Offset_2
00f3 e5fb | | Load 0x2,-0x5
00f4 7015 |p | Jump_Nonzero 0x10a
00f5 e224 | $ | Load 0x1,0x24
00f6 0322 | " | Declare_Variable Record
00f7 00db | | Load_Top At_Offset_3
00f8 00d9 | | Load_Top At_Offset_1
00f9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00fa 00da | | Load_Top At_Offset_2
00fb 00d9 | | Load_Top At_Offset_1
00fc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00fd e5fd | | Load 0x2,-0x3
00fe 00d9 | | Load_Top At_Offset_1
00ff 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0100 e5fc | | Load 0x2,-0x4
0101 00d9 | | Load_Top At_Offset_1
0102 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0103 e20e | | Load 0x1,0xe
0104 00d9 | | Load_Top At_Offset_1
0105 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0106 e20e | | Load 0x1,0xe
0107 03b6 | | Declare_Variable Access,By_Allocation,With_Value
0108 a5fb | | Store_Unchecked 0x2,-0x5
0109 4505 |E | Exit_Suprogram New_Top_Offset 0x5
010a e224 | $ | Load 0x1,0x24
010b 0322 | " | Declare_Variable Record
010c 00db | | Load_Top At_Offset_3
010d 00d9 | | Load_Top At_Offset_1
010e 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
010f 00da | | Load_Top At_Offset_2
0110 00d9 | | Load_Top At_Offset_1
0111 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0112 e5fd | | Load 0x2,-0x3
0113 00d9 | | Load_Top At_Offset_1
0114 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0115 e5fc | | Load 0x2,-0x4
0116 00d9 | | Load_Top At_Offset_1
0117 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0118 e20e | | Load 0x1,0xe
0119 00d9 | | Load_Top At_Offset_1
011a 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
011b e20e | | Load 0x1,0xe
011c 03b6 | | Declare_Variable Access,By_Allocation,With_Value
011d 00d9 | | Load_Top At_Offset_1
011e 0227 | ' | Execute Access,All_Reference
011f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0120 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0121 0000 0000 | | .BLANK 0000[0x7]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012e | . | .CONST 0x012e ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0002 | | .CONST 0x0002 ; Number of locals
012b INIT_0128:
012b e5fb | | Load 0x2,-0x5
012c 00db | | Load_Top At_Offset_3
012d 822b | + | Call 0x1,0x2b
012e BODY_0128:
012e e5fe | | Load 0x2,-0x2
012f 01db | | Execute Vector,Length
0130 680a |h | Jump_Zero 0x13b
0131 00d8 | | Load_Top At_Offset_0
0132 0229 | ) | Execute Access,All_Read
0133 00d8 | | Load_Top At_Offset_0
0134 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0135 e5fe | | Load 0x2,-0x2
0136 e222 | " | Load 0x1,0x22
0137 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0138 00d9 | | Load_Top At_Offset_1
0139 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013a 00d1 | | Pop_Control Pop_Count_1
013b e5fd | | Load 0x2,-0x3
013c 00d9 | | Load_Top At_Offset_1
013d 0227 | ' | Execute Access,All_Reference
013e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
013f e5fc | | Load 0x2,-0x4
0140 00d9 | | Load_Top At_Offset_1
0141 0227 | ' | Execute Access,All_Reference
0142 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0143 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0144 0000 0000 | | .BLANK 0000[0x4]
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014c | L | .CONST 0x014c ; Address of begin
0149 0164 | d | .CONST 0x0164 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b 00e8 | | Load_Encached Character_Cache
014c BODY_0148:
014c 00db | | Load_Top At_Offset_3
014d e007 | | Load 0x0,0x7
014e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
014f e5fc | | Load 0x2,-0x4
0150 e5fd | | Load 0x2,-0x3
0151 e5ff | | Load 0x2,-0x1
0152 822c | , | Call 0x1,0x2c
0153 e5fb | | Load 0x2,-0x5
0154 680c |h | Jump_Zero 0x161
0155 00e8 | | Load_Encached Character_Cache
0156 00ea | | Load_Encached Null_String_Cache
0157 e5fe | | Load 0x2,-0x2
0158 e001 | | Load 0x0,0x1
0159 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
015a 0059 | Y | Store_Top Discrete,At_Offset_1
015b e5fc | | Load 0x2,-0x4
015c e5fd | | Load 0x2,-0x3
015d e5fe | | Load 0x2,-0x2
015e 822f | / | Call 0x1,0x2f
015f a5fa | | Store_Unchecked 0x2,-0x6
0160 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0161 e216 | | Load 0x1,0x16
0162 a5fa | | Store_Unchecked 0x2,-0x6
0163 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0164 TRAP_0148:
0164 e220 | | Load 0x1,0x20
0165 010f | | Execute Exception,Equal
0166 6802 |h | Jump_Zero 0x169
0167 00d8 | | Load_Top At_Offset_0
0168 0101 | | Execute Exception,Reraise
0169 0100 | | Execute Exception,Raise
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 8210 | | Call 0x1,0x10
0175 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0176 0000 0000 | | .XXX[0x2]
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 00da | | Load_Top At_Offset_2
017c 6804 |h | Jump_Zero 0x181
017d 00da | | Load_Top At_Offset_2
017e 0227 | ' | Execute Access,All_Reference
017f 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0180 003b | ; | Store_Top Access,At_Offset_3
0181 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0182 0000 0000 | | .BLANK 0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0004 | | .CONST 0x0004 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b 00da | | Load_Top At_Offset_2
018c 022d | - | Execute Access,Is_Null
018d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
018e 0000 0000 | | .XXX[0x2]
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 0227 | ' | Execute Access,All_Reference
0195 0320 | | Declare_Variable Record,Duplicate
0196 00cd | | Action Spare6_Action
0197 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00da | | Load_Top At_Offset_2
019c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
019d e222 | " | Load 0x1,0x22
019e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
019f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a3 | | .CONST 0x01a3 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0001 | | .CONST 0x0001 ; Number of locals
01a3 BODY_01a0:
01a3 INIT_01a0:
01a3 00da | | Load_Top At_Offset_2
01a4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01a5 e222 | " | Load 0x1,0x22
01a6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01a7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
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 4801 |H | Short_Literal 0x1
01ac 00ea | | Load_Encached Null_String_Cache
01ad 4820 |H | Short_Literal 0x20
01ae e5ff | | Load 0x2,-0x1
01af 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01b0 e222 | " | Load 0x1,0x22
01b1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b2 e008 | | Load 0x0,0x8
01b3 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b4 e008 | | Load 0x0,0x8
01b5 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bd | | .CONST 0x01bd ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 0007 | | Action Break_Optional
01bd BODY_01b8:
01bd 00db | | Load_Top At_Offset_3
01be 7002 |p | Jump_Nonzero 0x1c1
01bf 00db | | Load_Top At_Offset_3
01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c1 00cf | | Action Mark_Auxiliary
01c2 7805 |x | Jump 0x1c8
01c3 00d9 | | Load_Top At_Offset_1
01c4 0227 | ' | Execute Access,All_Reference
01c5 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01c6 003a | : | Store_Top Access,At_Offset_2
01c7 00c9 | | Action Pop_Auxiliary_Loop
01c8 00d9 | | Load_Top At_Offset_1
01c9 0227 | ' | Execute Access,All_Reference
01ca 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01cb 77f7 |w | Jump_Nonzero 0x1c3
01cc 00ce | | Action Pop_Auxiliary
01cd 00d8 | | Load_Top At_Offset_0
01ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01cf 0000 | | .XXX[0x1]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5 | | .CONST 0x01d5 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 00db | | Load_Top At_Offset_3
01d4 0007 | | Action Break_Optional
01d5 BODY_01d0:
01d5 e5fe | | Load 0x2,-0x2
01d6 7002 |p | Jump_Nonzero 0x1d9
01d7 e221 | ! | Load 0x1,0x21
01d8 0257 | W | Execute Discrete,Raise
01d9 00cf | | Action Mark_Auxiliary
01da 780f |x | Jump 0x1ea
01db 00d9 | | Load_Top At_Offset_1
01dc 0227 | ' | Execute Access,All_Reference
01dd 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01de e222 | " | Load 0x1,0x22
01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e0 e5ff | | Load 0x2,-0x1
01e1 01df | | Execute Vector,Equal
01e2 6802 |h | Jump_Zero 0x1e5
01e3 00d9 | | Load_Top At_Offset_1
01e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01e5 00d9 | | Load_Top At_Offset_1
01e6 0227 | ' | Execute Access,All_Reference
01e7 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01e8 003a | : | Store_Top Access,At_Offset_2
01e9 00c9 | | Action Pop_Auxiliary_Loop
01ea 00d9 | | Load_Top At_Offset_1
01eb 77ef |w | Jump_Nonzero 0x1db
01ec 00ce | | Action Pop_Auxiliary
01ed e221 | ! | Load 0x1,0x21
01ee 0257 | W | Execute Discrete,Raise
01ef 0000 | | .XXX[0x1]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01fa | | .CONST 0x01fa ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0006 | | .CONST 0x0006 ; Number of locals
01f3 INIT_01f0:
01f3 00db | | Load_Top At_Offset_3
01f4 0007 | | Action Break_Optional
01f5 00e4 | | Load_Encached Positive_Cache
01f6 00e4 | | Load_Encached Positive_Cache
01f7 00e1 | | Load_Encached Boolean_Cache
01f8 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
01f9 00e8 | | Load_Encached Character_Cache
01fa BODY_01f0:
01fa 4800 |H | Short_Literal 0x0
01fb 4801 |H | Short_Literal 0x1
01fc 4801 |H | Short_Literal 0x1
01fd e5ff | | Load 0x2,-0x1
01fe e001 | | Load 0x0,0x1
01ff 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0200 00cf | | Action Mark_Auxiliary
0201 7861 |xa | Jump 0x263
0202 4802 |H | Short_Literal 0x2
0203 e001 | | Load 0x0,0x1
0204 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0205 e402 | | Load 0x2,0x2
0206 0227 | ' | Execute Access,All_Reference
0207 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0208 e222 | " | Load 0x1,0x22
0209 1816 | | Execute Package,Field_Execute,Field_Number 0x16
020a 0092 0370 | p| Action Push_String_Extended,0x370 ; " : "
020c 01cc | | Execute Vector,Catenate
020d e5ff | | Load 0x2,-0x1
020e e001 | | Load 0x0,0x1
020f 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0210 00da | | Load_Top At_Offset_2
0211 7010 |p | Jump_Nonzero 0x222
0212 e402 | | Load 0x2,0x2
0213 0227 | ' | Execute Access,All_Reference
0214 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0215 0f01 | | Execute_Immediate Equal,0x1
0216 680b |h | Jump_Zero 0x222
0217 4801 |H | Short_Literal 0x1
0218 0053 | S | Store_Top_Uncheched Discrete,At_Offset_3
0219 e001 | | Load 0x0,0x1
021a 1b18 | | Execute Package,Field_Read,Field_Number 0x18
021b e001 | | Load 0x0,0x1
021c 1b19 | | Execute Package,Field_Read,Field_Number 0x19
021d e5ff | | Load 0x2,-0x1
021e e001 | | Load 0x0,0x1
021f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0220 c404 | | Store 0x2,0x4
0221 c403 | | Store 0x2,0x3
0222 00cf | | Action Mark_Auxiliary
0223 e402 | | Load 0x2,0x2
0224 0227 | ' | Execute Access,All_Reference
0225 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0226 e222 | " | Load 0x1,0x22
0227 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0228 4801 |H | Short_Literal 0x1
0229 0263 | c | Execute Discrete,Above_Bound
022a 701b |p | Jump_Nonzero 0x246
022b 00d8 | | Load_Top At_Offset_0
022c e402 | | Load 0x2,0x2
022d 0227 | ' | Execute Access,All_Reference
022e 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
022f e222 | " | Load 0x1,0x22
0230 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0231 a406 | | Store_Unchecked 0x2,0x6
0232 e406 | | Load 0x2,0x6
0233 0f0a | | Execute_Immediate Equal,0xa
0234 6805 |h | Jump_Zero 0x23a
0235 4801 |H | Short_Literal 0x1
0236 e5ff | | Load 0x2,-0x1
0237 e001 | | Load 0x0,0x1
0238 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
0239 780a |x | Jump 0x244
023a e402 | | Load 0x2,0x2
023b 0227 | ' | Execute Access,All_Reference
023c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
023d e402 | | Load 0x2,0x2
023e 0227 | ' | Execute Access,All_Reference
023f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0240 e406 | | Load 0x2,0x6
0241 e5ff | | Load 0x2,-0x1
0242 e001 | | Load 0x0,0x1
0243 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0244 00c8 | | Action Pop_Auxiliary_Range
0245 3fe5 |? | Loop_Increasing 0x22b
0246 00ce | | Action Pop_Auxiliary
0247 4801 |H | Short_Literal 0x1
0248 e5ff | | Load 0x2,-0x1
0249 e001 | | Load 0x0,0x1
024a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
024b 00cf | | Action Mark_Auxiliary
024c e5fd | | Load 0x2,-0x3
024d 4801 |H | Short_Literal 0x1
024e 0263 | c | Execute Discrete,Above_Bound
024f 700d |p | Jump_Nonzero 0x25d
0250 4800 |H | Short_Literal 0x0
0251 e001 | | Load 0x0,0x1
0252 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0253 4820 |H | Short_Literal 0x20
0254 e5ff | | Load 0x2,-0x1
0255 e001 | | Load 0x0,0x1
0256 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0257 4801 |H | Short_Literal 0x1
0258 e5ff | | Load 0x2,-0x1
0259 e001 | | Load 0x0,0x1
025a 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
025b 00c8 | | Action Pop_Auxiliary_Range
025c 3ff3 |? | Loop_Increasing 0x250
025d 00ce | | Action Pop_Auxiliary
025e e402 | | Load 0x2,0x2
025f 0227 | ' | Execute Access,All_Reference
0260 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0261 a402 | | Store_Unchecked 0x2,0x2
0262 00c9 | | Action Pop_Auxiliary_Loop
0263 e402 | | Load 0x2,0x2
0264 779d |w | Jump_Nonzero 0x202
0265 00ce | | Action Pop_Auxiliary
0266 00d9 | | Load_Top At_Offset_1
0267 6806 |h | Jump_Zero 0x26e
0268 4800 |H | Short_Literal 0x0
0269 e403 | | Load 0x2,0x3
026a e404 | | Load 0x2,0x4
026b e5ff | | Load 0x2,-0x1
026c e001 | | Load 0x0,0x1
026d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
026e 4504 |E | Exit_Suprogram New_Top_Offset 0x4
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0285 | | .CONST 0x0285 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 00db | | Load_Top At_Offset_3
0274 01dd | | Execute Vector,First
0275 e5fe | | Load 0x2,-0x2
0276 01dd | | Execute Vector,First
0277 e5ff | | Load 0x2,-0x1
0278 01db | | Execute Vector,Length
0279 0273 | s | Execute Discrete,Plus
027a 0aff | | Execute_Immediate Plus,-0x1
027b 00d8 | | Load_Top At_Offset_0
027c 00e2 | | Load_Encached Integer_Cache
027d 0260 | ` | Execute Discrete,In_Type
027e 7001 |p | Jump_Nonzero 0x280
027f 0801 | | Execute_Immediate Raise,0x1
0280 e5fe | | Load 0x2,-0x2
0281 01cf | | Execute Vector,Slice_Read
0282 00db | | Load_Top At_Offset_3
0283 01df | | Execute Vector,Equal
0284 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0285 TRAP_0270:
0285 010e | | Execute Exception,Is_Constraint_Error
0286 6802 |h | Jump_Zero 0x289
0287 4800 |H | Short_Literal 0x0
0288 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0289 0100 | | Execute Exception,Raise
028a 0000 0000 | | .BLANK 0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 00db | | Load_Top At_Offset_3
0294 01dd | | Execute Vector,First
0295 00db | | Load_Top At_Offset_3
0296 01db | | Execute Vector,Length
0297 0273 | s | Execute Discrete,Plus
0298 00d8 | | Load_Top At_Offset_0
0299 00e2 | | Load_Encached Integer_Cache
029a 0260 | ` | Execute Discrete,In_Type
029b 7001 |p | Jump_Nonzero 0x29d
029c 0801 | | Execute_Immediate Raise,0x1
029d e5fe | | Load 0x2,-0x2
029e 01dc | | Execute Vector,Last
029f e5fe | | Load 0x2,-0x2
02a0 01cf | | Execute Vector,Slice_Read
02a1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02a2 0000 0000 | | .BLANK 0000[0x6]
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02af | | .CONST 0x02af ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0003 | | .CONST 0x0003 ; Number of locals
02ab INIT_02a8:
02ab 00db | | Load_Top At_Offset_3
02ac 8210 | | Call 0x1,0x10
02ad 00d8 | | Load_Top At_Offset_0
02ae 0007 | | Action Break_Optional
02af BODY_02a8:
02af 4800 |H | Short_Literal 0x0
02b0 4801 |H | Short_Literal 0x1
02b1 4801 |H | Short_Literal 0x1
02b2 e5ff | | Load 0x2,-0x1
02b3 e001 | | Load 0x0,0x1
02b4 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02b5 e5ff | | Load 0x2,-0x1
02b6 e001 | | Load 0x0,0x1
02b7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02b8 00d9 | | Load_Top At_Offset_1
02b9 0227 | ' | Execute Access,All_Reference
02ba 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02bb e222 | " | Load 0x1,0x22
02bc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02bd 0092 0370 | p| Action Push_String_Extended,0x370 ; " : "
02bf 01cc | | Execute Vector,Catenate
02c0 822d | - | Call 0x1,0x2d
02c1 6816 |h | Jump_Zero 0x2d8
02c2 00d8 | | Load_Top At_Offset_0
02c3 0229 | ) | Execute Access,All_Read
02c4 00d8 | | Load_Top At_Offset_0
02c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
02c6 e5ff | | Load 0x2,-0x1
02c7 e001 | | Load 0x0,0x1
02c8 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02c9 00db | | Load_Top At_Offset_3
02ca 0227 | ' | Execute Access,All_Reference
02cb 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02cc e222 | " | Load 0x1,0x22
02cd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ce 0092 0370 | p| Action Push_String_Extended,0x370 ; " : "
02d0 01cc | | Execute Vector,Catenate
02d1 822e | . | Call 0x1,0x2e
02d2 e222 | " | Load 0x1,0x22
02d3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02d4 00d9 | | Load_Top At_Offset_1
02d5 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
02d6 00d1 | | Pop_Control Pop_Count_1
02d7 7802 |x | Jump 0x2da
02d8 e220 | | Load 0x1,0x20
02d9 0257 | W | Execute Discrete,Raise
02da 00cf | | Action Mark_Auxiliary
02db e5ff | | Load 0x2,-0x1
02dc e001 | | Load 0x0,0x1
02dd 183c | < | Execute Package,Field_Execute,Field_Number 0x3c
02de 4802 |H | Short_Literal 0x2
02df 0263 | c | Execute Discrete,Above_Bound
02e0 7051 |pQ | Jump_Nonzero 0x332
02e1 e5ff | | Load 0x2,-0x1
02e2 e007 | | Load 0x0,0x7
02e3 180f | | Execute Package,Field_Execute,Field_Number 0xf
02e4 4820 |H | Short_Literal 0x20
02e5 e5ff | | Load 0x2,-0x1
02e6 e001 | | Load 0x0,0x1
02e7 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02e8 e008 | | Load 0x0,0x8
02e9 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02ea 01db | | Execute Vector,Length
02eb 7001 |p | Jump_Nonzero 0x2ed
02ec 7843 |xC | Jump 0x330
02ed 00db | | Load_Top At_Offset_3
02ee 0227 | ' | Execute Access,All_Reference
02ef 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02f0 6829 |h) | Jump_Zero 0x31a
02f1 e5ff | | Load 0x2,-0x1
02f2 e001 | | Load 0x0,0x1
02f3 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02f4 e403 | | Load 0x2,0x3
02f5 0227 | ' | Execute Access,All_Reference
02f6 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
02f7 0227 | ' | Execute Access,All_Reference
02f8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
02f9 e222 | " | Load 0x1,0x22
02fa 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02fb 0092 0370 | p| Action Push_String_Extended,0x370 ; " : "
02fd 01cc | | Execute Vector,Catenate
02fe 822d | - | Call 0x1,0x2d
02ff 681a |h | Jump_Zero 0x31a
0300 00db | | Load_Top At_Offset_3
0301 0227 | ' | Execute Access,All_Reference
0302 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0303 a403 | | Store_Unchecked 0x2,0x3
0304 00db | | Load_Top At_Offset_3
0305 0229 | ) | Execute Access,All_Read
0306 00d8 | | Load_Top At_Offset_0
0307 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0308 e5ff | | Load 0x2,-0x1
0309 e001 | | Load 0x0,0x1
030a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
030b e403 | | Load 0x2,0x3
030c 0227 | ' | Execute Access,All_Reference
030d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
030e e222 | " | Load 0x1,0x22
030f 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0310 0092 0370 | p| Action Push_String_Extended,0x370 ; " : "
0312 01cc | | Execute Vector,Catenate
0313 822e | . | Call 0x1,0x2e
0314 e222 | " | Load 0x1,0x22
0315 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0316 00d9 | | Load_Top At_Offset_1
0317 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0318 00d1 | | Pop_Control Pop_Count_1
0319 7816 |x | Jump 0x330
031a 00db | | Load_Top At_Offset_3
031b 0229 | ) | Execute Access,All_Read
031c 00d8 | | Load_Top At_Offset_0
031d 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
031e 480a |H | Short_Literal 0xa
031f e222 | " | Load 0x1,0x22
0320 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0321 00d9 | | Load_Top At_Offset_1
0322 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0323 00d1 | | Pop_Control Pop_Count_1
0324 00db | | Load_Top At_Offset_3
0325 0229 | ) | Execute Access,All_Read
0326 00d8 | | Load_Top At_Offset_0
0327 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0328 e5ff | | Load 0x2,-0x1
0329 e001 | | Load 0x0,0x1
032a 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
032b e222 | " | Load 0x1,0x22
032c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
032d 00d9 | | Load_Top At_Offset_1
032e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
032f 00d1 | | Pop_Control Pop_Count_1
0330 00c8 | | Action Pop_Auxiliary_Range
0331 3faf |? | Loop_Increasing 0x2e1
0332 00ce | | Action Pop_Auxiliary
0333 00d8 | | Load_Top At_Offset_0
0334 0227 | ' | Execute Access,All_Reference
0335 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0336 6802 |h | Jump_Zero 0x339
0337 e220 | | Load 0x1,0x20
0338 0257 | W | Execute Discrete,Raise
0339 00d9 | | Load_Top At_Offset_1
033a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
033b 0000 0000 | | .BLANK 0000[0x5]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0347 | G | .CONST 0x0347 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0003 | | .CONST 0x0003 ; Number of locals
0343 INIT_0340:
0343 e223 | # | Load 0x1,0x23
0344 0007 | | Action Break_Optional
0345 00d8 | | Load_Top At_Offset_0
0346 0007 | | Action Break_Optional
0347 BODY_0340:
0347 00d9 | | Load_Top At_Offset_1
0348 e404 | | Load 0x2,0x4
0349 0227 | ' | Execute Access,All_Reference
034a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
034b e222 | " | Load 0x1,0x22
034c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
034d 003a | : | Store_Top Access,At_Offset_2
034e 00d8 | | Load_Top At_Offset_0
034f e404 | | Load 0x2,0x4
0350 0227 | ' | Execute Access,All_Reference
0351 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0352 e222 | " | Load 0x1,0x22
0353 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0354 0039 | 9 | Store_Top Access,At_Offset_1
0355 e224 | $ | Load 0x1,0x24
0356 0322 | " | Declare_Variable Record
0357 00da | | Load_Top At_Offset_2
0358 00d9 | | Load_Top At_Offset_1
0359 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
035a 00d9 | | Load_Top At_Offset_1
035b 00d9 | | Load_Top At_Offset_1
035c 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
035d e404 | | Load 0x2,0x4
035e 0227 | ' | Execute Access,All_Reference
035f 3402 |4 | Execute Record,Field_Reference,Field_Number 0x2
0360 00d9 | | Load_Top At_Offset_1
0361 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0362 e404 | | Load 0x2,0x4
0363 0227 | ' | Execute Access,All_Reference
0364 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0365 00d9 | | Load_Top At_Offset_1
0366 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0367 e20e | | Load 0x1,0xe
0368 00d9 | | Load_Top At_Offset_1
0369 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
036a e20e | | Load 0x1,0xe
036b 03b6 | | Declare_Variable Access,By_Allocation,With_Value
036c e403 | | Load 0x2,0x3
036d 0227 | ' | Execute Access,All_Reference
036e 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
036f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0370 ; --------------------------------------------------------------------------------------
0370 ; STRING TABLE
0370 ; --------------------------------------------------------------------------------------
0370 0004 | | .STRTAB 0x0004->0x0372 ; " : "
0371 0005 | | .STREND 0x0005->0x0373
0372 203a 2000 | : | .STRTAB_STRINGS
0374 0000 0000 | | .BLANK 0000[0x4]
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug Table
0378 ; --------------------------------------------------------------------------------------
0378 0004 0001 | | .DEBUG4 0x0004,0x0001,0x7152,0x0000,0x0001,0x0015
037e 000b 03d2 | | .DBG4T 0x000b,0x03d2,0x8000,0x8000
0382 007a 0408 | z | .DBG4T 0x007a,0x0408,0x8000,0x8000
0386 00ab 0430 | 0| .DBG4T 0x00ab,0x0430,0x0002,0x0000
038a 00b3 0433 | 3| .DBG4T 0x00b3,0x0433,0x0002,0x4000
038e 00e3 0442 | B| .DBG4T 0x00e3,0x0442,0x0001,0x0000
0392 012b 044c | + L| .DBG4T 0x012b,0x044c,0x0001,0x0000
0396 014b 0453 | K S| .DBG4T 0x014b,0x0453,0x0001,0x0000
039a 0173 045d | s ]| .DBG4T 0x0173,0x045d,0x0002,0x0000
039e 017b 0460 | { `| .DBG4T 0x017b,0x0460,0x0001,0x0000
03a2 018b 0464 | d| .DBG4T 0x018b,0x0464,0x0002,0x0000
03a6 0193 0467 | g| .DBG4T 0x0193,0x0467,0x0002,0x0000
03aa 019b 046a | j| .DBG4T 0x019b,0x046a,0x0002,0x0000
03ae 01a3 046d | m| .DBG4T 0x01a3,0x046d,0x0002,0x0000
03b2 01ab 0470 | p| .DBG4T 0x01ab,0x0470,0x0002,0x0000
03b6 01bb 0473 | s| .DBG4T 0x01bb,0x0473,0x0002,0x4000
03ba 01d3 0480 | | .DBG4T 0x01d3,0x0480,0x0002,0x4000
03be 01f3 0491 | | .DBG4T 0x01f3,0x0491,0x0001,0x4000
03c2 0273 04bc | s | .DBG4T 0x0273,0x04bc,0x0002,0x0000
03c6 0293 04c0 | | .DBG4T 0x0293,0x04c0,0x0002,0x0000
03ca 02ab 04c3 | | .DBG4T 0x02ab,0x04c3,0x0002,0x0000
03ce 0343 04d7 | C | .DBG4T 0x0343,0x04d7,0x0004,0x0000
03d2 ; --------------------------------------------------------------------------------------
03d2 ; Debug chain
03d2 ; --------------------------------------------------------------------------------------
03d2 001a 0000 | | .DBGLEN 0x001a,0x0000
03d4 000b 000e | | .DBGLNO 0x000b,0x000e,0x0010,0x0012,0x0014,0x002d,0x0030,0x0033,0x0036,0x0039,0x003c,0x003f,0x0042,0x0045,0x0048,0x004b,0x004e,0x0051,0x0054,0x0057,0x005f,0x0062,0x0065,0x0069,0x0073,0x0076
03ee 0001 0002 | | .XXX[0x1a]
03f0 0003 0004 | |
03f2 0005 0006 | |
03f4 0007 0008 | |
03f6 0009 000a | |
03f8 000b 000c | |
03fa 000d 000e | |
03fc 000f 0010 | |
03fe 0011 0012 | |
0400 0013 0015 | |
0402 0016 0017 | |
0404 0018 0019 | |
0406 001a 001b | |
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug chain
0408 ; --------------------------------------------------------------------------------------
0408 0013 0000 | | .DBGLEN 0x0013,0x0000
040a 007a 007d | z }| .DBGLNO 0x007a,0x007d,0x007f,0x0081,0x0083,0x0085,0x0087,0x0089,0x008b,0x008d,0x008f,0x0091,0x0093,0x0095,0x0097,0x0099,0x009b,0x009d,0x009f
041d 0001 0003 | | .XXX[0x13]
041f 0004 0005 | |
0421 0006 0007 | |
0423 0008 0009 | |
0425 000a 000b | |
0427 000c 000d | |
0429 000e 000f | |
042b 0010 0011 | |
042d 0012 0013 | |
042f 0014 | |
0430 ; --------------------------------------------------------------------------------------
0430 ; Debug chain
0430 ; --------------------------------------------------------------------------------------
0430 0000 0001 | | .DBGLEN 0x0000,0x0001
0432 00ab | | .DBGLNO 0x00ab
0433 ; --------------------------------------------------------------------------------------
0433 ; Debug chain
0433 ; --------------------------------------------------------------------------------------
0433 0003 0005 | | .DBGLEN 0x0003,0x0005
0435 00b3 00c7 | | .DBGLNO 0x00b3,0x00c7,0x00c9,0x00ce,0x00cf,0x00d3,0x00d8,0x00db
043d 0002 0003 | | .XXX[0x5]
043f 0004 0001 | |
0441 0005 | |
0442 ; --------------------------------------------------------------------------------------
0442 ; Debug chain
0442 ; --------------------------------------------------------------------------------------
0442 0003 0005 | | .DBGLEN 0x0003,0x0005
0444 00e3 00e5 | | .DBGLNO 0x00e3,0x00e5,0x00e7,0x00e9,0x00ee,0x00f3,0x00f5,0x010a
044c ; --------------------------------------------------------------------------------------
044c ; Debug chain
044c ; --------------------------------------------------------------------------------------
044c 0001 0004 | | .DBGLEN 0x0001,0x0004
044e 012b 012e | + .| .DBGLNO 0x012b,0x012e,0x0131,0x013b,0x013f
0453 ; --------------------------------------------------------------------------------------
0453 ; Debug chain
0453 ; --------------------------------------------------------------------------------------
0453 0001 0007 | | .DBGLEN 0x0001,0x0007
0455 014b 014c | K L| .DBGLNO 0x014b,0x014c,0x014f,0x0153,0x0155,0x015b,0x0161,0x0167
045d ; --------------------------------------------------------------------------------------
045d ; Debug chain
045d ; --------------------------------------------------------------------------------------
045d 0000 0001 | | .DBGLEN 0x0000,0x0001
045f 0173 | s | .DBGLNO 0x0173
0460 ; --------------------------------------------------------------------------------------
0460 ; Debug chain
0460 ; --------------------------------------------------------------------------------------
0460 0000 0002 | | .DBGLEN 0x0000,0x0002
0462 017b 017d | { }| .DBGLNO 0x017b,0x017d
0464 ; --------------------------------------------------------------------------------------
0464 ; Debug chain
0464 ; --------------------------------------------------------------------------------------
0464 0000 0001 | | .DBGLEN 0x0000,0x0001
0466 018b | | .DBGLNO 0x018b
0467 ; --------------------------------------------------------------------------------------
0467 ; Debug chain
0467 ; --------------------------------------------------------------------------------------
0467 0000 0001 | | .DBGLEN 0x0000,0x0001
0469 0193 | | .DBGLNO 0x0193
046a ; --------------------------------------------------------------------------------------
046a ; Debug chain
046a ; --------------------------------------------------------------------------------------
046a 0000 0001 | | .DBGLEN 0x0000,0x0001
046c 019b | | .DBGLNO 0x019b
046d ; --------------------------------------------------------------------------------------
046d ; Debug chain
046d ; --------------------------------------------------------------------------------------
046d 0000 0001 | | .DBGLEN 0x0000,0x0001
046f 01a3 | | .DBGLNO 0x01a3
0470 ; --------------------------------------------------------------------------------------
0470 ; Debug chain
0470 ; --------------------------------------------------------------------------------------
0470 0000 0001 | | .DBGLEN 0x0000,0x0001
0472 01ab | | .DBGLNO 0x01ab
0473 ; --------------------------------------------------------------------------------------
0473 ; Debug chain
0473 ; --------------------------------------------------------------------------------------
0473 0001 0005 | | .DBGLEN 0x0001,0x0005
0475 01bb 01bd | | .DBGLNO 0x01bb,0x01bd,0x01bf,0x01c3,0x01c8,0x01cd
047b 0001 0002 | | .XXX[0x5]
047d 0004 0003 | |
047f 0005 | |
0480 ; --------------------------------------------------------------------------------------
0480 ; Debug chain
0480 ; --------------------------------------------------------------------------------------
0480 0001 0007 | | .DBGLEN 0x0001,0x0007
0482 01d3 01d5 | | .DBGLNO 0x01d3,0x01d5,0x01d7,0x01db,0x01e3,0x01e5,0x01ea,0x01ed
048a 0001 0002 | | .XXX[0x7]
048c 0004 0005 | |
048e 0006 0003 | |
0490 0007 | |
0491 ; --------------------------------------------------------------------------------------
0491 ; Debug chain
0491 ; --------------------------------------------------------------------------------------
0491 0005 0012 | | .DBGLEN 0x0005,0x0012
0493 01f3 01f5 | | .DBGLNO 0x01f3,0x01f5,0x01f6,0x01f7,0x01f9,0x01fa,0x0202,0x0210,0x0217,0x0219,0x0223,0x022b,0x0232,0x0235,0x023a,0x0247,0x024c,0x0250,0x0257,0x025e,0x0263,0x0266,0x0268
04aa 0001 0003 | | .XXX[0x12]
04ac 0004 0005 | |
04ae 0006 0007 | |
04b0 0008 0009 | |
04b2 000a 000b | |
04b4 000c 000d | |
04b6 000e 000f | |
04b8 0010 0002 | |
04ba 0011 0012 | |
04bc ; --------------------------------------------------------------------------------------
04bc ; Debug chain
04bc ; --------------------------------------------------------------------------------------
04bc 0000 0002 | | .DBGLEN 0x0000,0x0002
04be 0273 0287 | s | .DBGLNO 0x0273,0x0287
04c0 ; --------------------------------------------------------------------------------------
04c0 ; Debug chain
04c0 ; --------------------------------------------------------------------------------------
04c0 0000 0001 | | .DBGLEN 0x0000,0x0001
04c2 0293 | | .DBGLNO 0x0293
04c3 ; --------------------------------------------------------------------------------------
04c3 ; Debug chain
04c3 ; --------------------------------------------------------------------------------------
04c3 0002 0010 | | .DBGLEN 0x0002,0x0010
04c5 02ab 02ad | | .DBGLNO 0x02ab,0x02ad,0x02af,0x02b5,0x02c2,0x02d8,0x02db,0x02e1,0x02e4,0x02ec,0x02ed,0x0300,0x0304,0x031a,0x0324,0x0333,0x0337,0x0339
04d7 ; --------------------------------------------------------------------------------------
04d7 ; Debug chain
04d7 ; --------------------------------------------------------------------------------------
04d7 0002 0003 | | .DBGLEN 0x0002,0x0003
04d9 0343 0345 | C E| .DBGLNO 0x0343,0x0345,0x0347,0x034e,0x0355
04de 0000 0000 | | .BLANK 0000[0x122]