|
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_779ce4
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0598 | | .CONST 0x0598 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 00cd | | .CONST 0x00cd ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
000b INIT_0008:
000b 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated
000d 4800 |H | Short_Literal 0x0
000e 4802 |H | Short_Literal 0x2
000f 029f 00e3 | | Declare_Subprogram INIT_00e0,For_Call
0011 03fe | | Declare_Type Discrete,Defined,Visible
0012 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0014 480e |H | Short_Literal 0xe
0015 0093 038b | | push_full_address INIT_0388
0017 02a0 | | Declare_Subprogram Null_Subprogram
0018 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
0019 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
001b 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
001d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
001f 029a 01ab | | Declare_Subprogram INIT_01a8,For_Outer_Call,Visible,Unelaborated
0021 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0023 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated
0025 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
0027 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0029 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
002b 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
002d 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
002f 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0031 029a 0233 | 3| Declare_Subprogram INIT_0230,For_Outer_Call,Visible,Unelaborated
0033 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
0035 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0037 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
0039 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
003b 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
003d 029a 027b | {| Declare_Subprogram INIT_0278,For_Outer_Call,Visible,Unelaborated
003f 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
0041 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0043 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
0045 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0047 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0049 00bf | | Action Accept_Activation
004a e002 | | Load 0x0,0x2
004b e003 | | Load 0x0,0x3
004c 4880 |H | Short_Literal 0x80
004d e004 | | Load 0x0,0x4
004e 0387 | | Declare_Variable Package
004f 00d8 | | Load_Top At_Offset_0
0050 020f | | Execute Module,Activate
0051 4801 |H | Short_Literal 0x1
0052 4801 |H | Short_Literal 0x1
0053 00e9 | | Load_Encached String_Cache
0054 035b | [ | Declare_Type Array,Constrained
0055 0337 | 7 | Declare_Variable Array
0056 00d8 | | Load_Top At_Offset_0
0057 0335 | 5 | Declare_Variable Array,Duplicate
0058 00cd | | Action Spare6_Action
0059 480a |H | Short_Literal 0xa
005a 4801 |H | Short_Literal 0x1
005b 00da | | Load_Top At_Offset_2
005c 01d6 | | Execute Vector,Field_Write
005d 00d9 | | Load_Top At_Offset_1
005e 01d4 | | Execute Vector,Structure_Write
005f 4801 |H | Short_Literal 0x1
0060 4802 |H | Short_Literal 0x2
0061 00e9 | | Load_Encached String_Cache
0062 035b | [ | Declare_Type Array,Constrained
0063 0337 | 7 | Declare_Variable Array
0064 00d8 | | Load_Top At_Offset_0
0065 0335 | 5 | Declare_Variable Array,Duplicate
0066 00cd | | Action Spare6_Action
0067 480a |H | Short_Literal 0xa
0068 4801 |H | Short_Literal 0x1
0069 00da | | Load_Top At_Offset_2
006a 01d6 | | Execute Vector,Field_Write
006b 480a |H | Short_Literal 0xa
006c 4802 |H | Short_Literal 0x2
006d 00da | | Load_Top At_Offset_2
006e 01d6 | | Execute Vector,Field_Write
006f 00d9 | | Load_Top At_Offset_1
0070 01d4 | | Execute Vector,Structure_Write
0071 4801 |H | Short_Literal 0x1
0072 4803 |H | Short_Literal 0x3
0073 00e9 | | Load_Encached String_Cache
0074 035b | [ | Declare_Type Array,Constrained
0075 0337 | 7 | Declare_Variable Array
0076 00d8 | | Load_Top At_Offset_0
0077 0335 | 5 | Declare_Variable Array,Duplicate
0078 00cd | | Action Spare6_Action
0079 4803 |H | Short_Literal 0x3
007a 4801 |H | Short_Literal 0x1
007b 480a |H | Short_Literal 0xa
007c 00d9 | | Load_Top At_Offset_1
007d e22d | - | Load 0x1,0x2d
007e 01d6 | | Execute Vector,Field_Write
007f 3ffb |? | Loop_Increasing 0x7b
0080 00d9 | | Load_Top At_Offset_1
0081 01d4 | | Execute Vector,Structure_Write
0082 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0084 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0085 00c7 | | Action Elaborate_Subprogram
0086 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
0088 029d 0333 | 3| Declare_Subprogram INIT_0330,For_Outer_Call
008a 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
008c 029d 0363 | c| Declare_Subprogram INIT_0360,For_Outer_Call
008e 1d0f | | Execute_Immediate Reference_Lex_1,0xf
008f 00c7 | | Action Elaborate_Subprogram
0090 e229 | ) | Load 0x1,0x29
0091 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0092 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
0093 e22a | * | Load 0x1,0x2a
0094 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0095 4805 |H | Short_Literal 0x5
0096 e210 | | Load 0x1,0x10
0097 020e | | Execute Module,Augment_Imports
0098 e210 | | Load 0x1,0x10
0099 020d | | Execute Module,Elaborate
009a 0007 | | Action Break_Optional
009b 029d 037b | {| Declare_Subprogram INIT_0378,For_Outer_Call
009d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
009e 00c7 | | Action Elaborate_Subprogram
009f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
00a0 00c7 | | Action Elaborate_Subprogram
00a1 1d13 | | Execute_Immediate Reference_Lex_1,0x13
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00ac 00c7 | | Action Elaborate_Subprogram
00ad 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ae 00c7 | | Action Elaborate_Subprogram
00af 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b0 00c7 | | Action Elaborate_Subprogram
00b1 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b2 00c7 | | Action Elaborate_Subprogram
00b3 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00b4 00c7 | | Action Elaborate_Subprogram
00b5 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
00c4 00c7 | | Action Elaborate_Subprogram
00c5 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d14 | | Execute_Immediate Reference_Lex_1,0x14
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
00cc 00c7 | | Action Elaborate_Subprogram
00cd BODY_0008:
00cd 00bc | | Action Signal_Activated
00ce 00bb | | Action Signal_Completion
00cf 0000 | | .XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3 | | .CONST 0x00d3 ; Address of begin
00d1 0004 | | .CONST 0x0004 ; Address of exception handler
00d2 0001 | | .CONST 0x0001 ; Number of locals
00d3 BODY_00d0:
00d3 INIT_00d0:
00d3 0092 04d4 | | Action Push_String_Extended,0x4d4 ; "with "
00d5 00db | | Load_Top At_Offset_3
00d6 01cc | | Execute Vector,Catenate
00d7 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
00d9 01cc | | Execute Vector,Catenate
00da e22a | * | Load 0x1,0x2a
00db 01cc | | Execute Vector,Catenate
00dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4607 |F | Jump_Case 0x8
00e4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00e5 7807 |x | Jump 0xed ; case 0x1
00e6 780a |x | Jump 0xf1 ; case 0x2
00e7 780e |x | Jump 0xf6 ; case 0x3
00e8 7811 |x | Jump 0xfa ; case 0x4
00e9 7812 |x | Jump 0xfc ; case 0x5
00ea 7813 |x | Jump 0xfe ; case 0x6
00eb 7816 |x | Jump 0x102 ; case 0x7
00ec 4302 |C | .XXX[0x1]
00ed 00da | | Load_Top At_Offset_2
00ee 0091 04d1 | | Action Push_String_Extended_Indexed,0x4d1 ; "SPEC_PART"
00f0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00f1 00db | | Load_Top At_Offset_3
00f2 00db | | Load_Top At_Offset_3
00f3 00e0 | | Load_Encached Standard_Cache
00f4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00f5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00f6 00da | | Load_Top At_Offset_2
00f7 00e0 | | Load_Encached Standard_Cache
00f8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00f9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00fa 00db | | Load_Top At_Offset_3
00fb 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fc 00db | | Load_Top At_Offset_3
00fd 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00fe e20e | | Load 0x1,0xe
00ff 00dc | | Load_Top At_Offset_4
0100 0267 | g | Execute Discrete,Predecessor
0101 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0102 e20e | | Load 0x1,0xe
0103 00dc | | Load_Top At_Offset_4
0104 0268 | h | Execute Discrete,Successor
0105 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0106 0000 0000 | | .XXX[0x2]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00db | | Load_Top At_Offset_3
010c 4602 |F | Jump_Case 0x3
010d 7803 |x | Jump 0x111 ; case 0x0
010e 780f |x | Jump 0x11e ; case 0x1
010f 7800 |x | Jump 0x110 ; case 0x2
0110 08e2 | | Execute_Immediate Raise,0xe2
0111 0092 04d6 | | Action Push_String_Extended,0x4d6 ; "package "
0113 e5fe | | Load 0x2,-0x2
0114 822e | . | Call 0x1,0x2e
0115 01cc | | Execute Vector,Catenate
0116 00db | | Load_Top At_Offset_3
0117 01cc | | Execute Vector,Catenate
0118 0092 04d7 | | Action Push_String_Extended,0x4d7 ; " is"
011a 01cc | | Execute Vector,Catenate
011b e22b | + | Load 0x1,0x2b
011c 01cc | | Execute Vector,Catenate
011d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
011e 0092 04d6 | | Action Push_String_Extended,0x4d6 ; "package "
0120 e5fe | | Load 0x2,-0x2
0121 822e | . | Call 0x1,0x2e
0122 01cc | | Execute Vector,Catenate
0123 00db | | Load_Top At_Offset_3
0124 01cc | | Execute Vector,Catenate
0125 0092 04d7 | | Action Push_String_Extended,0x4d7 ; " is"
0127 01cc | | Execute Vector,Catenate
0128 e22b | + | Load 0x1,0x2b
0129 01cc | | Execute Vector,Catenate
012a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012b 0000 0000 | | .BLANK 0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00db | | Load_Top At_Offset_3
0134 4602 |F | Jump_Case 0x3
0135 780c |x | Jump 0x142 ; case 0x0
0136 7818 |x | Jump 0x14f ; case 0x1
0137 7800 |x | Jump 0x138 ; case 0x2
0138 00da | | Load_Top At_Offset_2
0139 e5fd | | Load 0x2,-0x3
013a 8232 | 2 | Call 0x1,0x32
013b 01cc | | Execute Vector,Catenate
013c 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
013e 01cc | | Execute Vector,Catenate
013f e22a | * | Load 0x1,0x2a
0140 01cc | | Execute Vector,Catenate
0141 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0142 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "procedure "
0144 00db | | Load_Top At_Offset_3
0145 01cc | | Execute Vector,Catenate
0146 e5fd | | Load 0x2,-0x3
0147 8232 | 2 | Call 0x1,0x32
0148 01cc | | Execute Vector,Catenate
0149 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
014b 01cc | | Execute Vector,Catenate
014c e22a | * | Load 0x1,0x2a
014d 01cc | | Execute Vector,Catenate
014e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
014f 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "procedure "
0151 00db | | Load_Top At_Offset_3
0152 01cc | | Execute Vector,Catenate
0153 e5fd | | Load 0x2,-0x3
0154 8232 | 2 | Call 0x1,0x32
0155 01cc | | Execute Vector,Catenate
0156 0092 04d7 | | Action Push_String_Extended,0x4d7 ; " is"
0158 01cc | | Execute Vector,Catenate
0159 e22a | * | Load 0x1,0x2a
015a 01cc | | Execute Vector,Catenate
015b 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
015c 0000 0000 | | .BLANK 0000[0x4]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 00db | | Load_Top At_Offset_3
0164 4602 |F | Jump_Case 0x3
0165 7807 |x | Jump 0x16d ; case 0x0
0166 7818 |x | Jump 0x17f ; case 0x1
0167 7800 |x | Jump 0x168 ; case 0x2
0168 00da | | Load_Top At_Offset_2
0169 e5fd | | Load 0x2,-0x3
016a 8232 | 2 | Call 0x1,0x32
016b 01cc | | Execute Vector,Catenate
016c 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
016d 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "function "
016f 00db | | Load_Top At_Offset_3
0170 01cc | | Execute Vector,Catenate
0171 e5fd | | Load 0x2,-0x3
0172 8232 | 2 | Call 0x1,0x32
0173 01cc | | Execute Vector,Catenate
0174 0092 04da | | Action Push_String_Extended,0x4da ; " return "
0176 01cc | | Execute Vector,Catenate
0177 e5fc | | Load 0x2,-0x4
0178 01cc | | Execute Vector,Catenate
0179 0092 04db | | Action Push_String_Extended,0x4db ; "; "
017b 01cc | | Execute Vector,Catenate
017c e22a | * | Load 0x1,0x2a
017d 01cc | | Execute Vector,Catenate
017e 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
017f 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "function "
0181 00db | | Load_Top At_Offset_3
0182 01cc | | Execute Vector,Catenate
0183 e5fd | | Load 0x2,-0x3
0184 8232 | 2 | Call 0x1,0x32
0185 01cc | | Execute Vector,Catenate
0186 0092 04dc | | Action Push_String_Extended,0x4dc ; " return "
0188 01cc | | Execute Vector,Catenate
0189 e5fc | | Load 0x2,-0x4
018a 01cc | | Execute Vector,Catenate
018b 0092 04d7 | | Action Push_String_Extended,0x4d7 ; " is"
018d 01cc | | Execute Vector,Catenate
018e e22a | * | Load 0x1,0x2a
018f 01cc | | Execute Vector,Catenate
0190 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0191 0000 0000 | | .BLANK 0000[0x7]
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 0092 04dd | | Action Push_String_Extended,0x4dd ; " : exception;"
019e 01cc | | Execute Vector,Catenate
019f e22a | * | Load 0x1,0x2a
01a0 01cc | | Execute Vector,Catenate
01a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a2 0000 0000 | | .BLANK 0000[0x6]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01ab | | .CONST 0x01ab ; Address of begin
01a9 0004 | | .CONST 0x0004 ; Address of exception handler
01aa 0001 | | .CONST 0x0001 ; Number of locals
01ab BODY_01a8:
01ab INIT_01a8:
01ab 00da | | Load_Top At_Offset_2
01ac 0092 04de | | Action Push_String_Extended,0x4de ; " : "
01ae 01cc | | Execute Vector,Catenate
01af e5fe | | Load 0x2,-0x2
01b0 01cc | | Execute Vector,Catenate
01b1 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
01b3 01cc | | Execute Vector,Catenate
01b4 e22a | * | Load 0x1,0x2a
01b5 01cc | | Execute Vector,Catenate
01b6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc 0092 04df | | Action Push_String_Extended,0x4df ; " : constant "
01be 01cc | | Execute Vector,Catenate
01bf e5fe | | Load 0x2,-0x2
01c0 01cc | | Execute Vector,Catenate
01c1 0092 04e0 | | Action Push_String_Extended,0x4e0 ; " := "
01c3 01cc | | Execute Vector,Catenate
01c4 e5fd | | Load 0x2,-0x3
01c5 01cc | | Execute Vector,Catenate
01c6 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
01c8 01cc | | Execute Vector,Catenate
01c9 e22a | * | Load 0x1,0x2a
01ca 01cc | | Execute Vector,Catenate
01cb 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01cc 0000 0000 | | .BLANK 0000[0x4]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d3 | | .CONST 0x01d3 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0001 | | .CONST 0x0001 ; Number of locals
01d3 BODY_01d0:
01d3 INIT_01d0:
01d3 00da | | Load_Top At_Offset_2
01d4 0092 04e0 | | Action Push_String_Extended,0x4e0 ; " := "
01d6 01cc | | Execute Vector,Catenate
01d7 e5fe | | Load 0x2,-0x2
01d8 01cc | | Execute Vector,Catenate
01d9 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
01db 01cc | | Execute Vector,Catenate
01dc e22a | * | Load 0x1,0x2a
01dd 01cc | | Execute Vector,Catenate
01de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01df 0000 | | .XXX[0x1]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 822d | - | Call 0x1,0x2d
01e5 0092 04e1 | | Action Push_String_Extended,0x4e1 ; "declare"
01e7 01cc | | Execute Vector,Catenate
01e8 e22a | * | Load 0x1,0x2a
01e9 01cc | | Execute Vector,Catenate
01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01eb 0000 0000 | | .BLANK 0000[0x5]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 0092 04e2 | | Action Push_String_Extended,0x4e2 ; "begin"
01f5 e22a | * | Load 0x1,0x2a
01f6 01cc | | Execute Vector,Catenate
01f7 00ca | | Action Exit_Nullary_Function
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 0092 04e3 | | Action Push_String_Extended,0x4e3 ; "end "
01fd 00db | | Load_Top At_Offset_3
01fe 01cc | | Execute Vector,Catenate
01ff 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
0201 01cc | | Execute Vector,Catenate
0202 e22a | * | Load 0x1,0x2a
0203 01cc | | Execute Vector,Catenate
0204 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 0092 04e4 | | Action Push_String_Extended,0x4e4 ; "exception"
020d e22a | * | Load 0x1,0x2a
020e 01cc | | Execute Vector,Catenate
020f 00ca | | Action Exit_Nullary_Function
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 0092 04e5 | | Action Push_String_Extended,0x4e5 ; "if "
0215 00db | | Load_Top At_Offset_3
0216 01cc | | Execute Vector,Catenate
0217 0092 04e6 | | Action Push_String_Extended,0x4e6 ; " then"
0219 01cc | | Execute Vector,Catenate
021a e22a | * | Load 0x1,0x2a
021b 01cc | | Execute Vector,Catenate
021c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 0092 04e7 | | Action Push_String_Extended,0x4e7 ; "elsif "
0225 00db | | Load_Top At_Offset_3
0226 01cc | | Execute Vector,Catenate
0227 0092 04e6 | | Action Push_String_Extended,0x4e6 ; " then"
0229 01cc | | Execute Vector,Catenate
022a e22a | * | Load 0x1,0x2a
022b 01cc | | Execute Vector,Catenate
022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022d 0000 0000 | | .XXX[0x3]
022f 0000 | |
0230 ; --------------------------------------------------------------------------------------
0230 ; SUBPROGRAM
0230 ; --------------------------------------------------------------------------------------
0230 0233 | 3 | .CONST 0x0233 ; Address of begin
0231 0004 | | .CONST 0x0004 ; Address of exception handler
0232 0001 | | .CONST 0x0001 ; Number of locals
0233 BODY_0230:
0233 INIT_0230:
0233 0092 04e8 | | Action Push_String_Extended,0x4e8 ; "else"
0235 e22a | * | Load 0x1,0x2a
0236 01cc | | Execute Vector,Catenate
0237 00ca | | Action Exit_Nullary_Function
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b 0092 04e9 | | Action Push_String_Extended,0x4e9 ; "end if;"
023d e22a | * | Load 0x1,0x2a
023e 01cc | | Execute Vector,Catenate
023f 00ca | | Action Exit_Nullary_Function
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0243 | C | .CONST 0x0243 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0001 | | .CONST 0x0001 ; Number of locals
0243 BODY_0240:
0243 INIT_0240:
0243 0092 04ea | | Action Push_String_Extended,0x4ea ; "case "
0245 00db | | Load_Top At_Offset_3
0246 01cc | | Execute Vector,Catenate
0247 0092 04d7 | | Action Push_String_Extended,0x4d7 ; " is"
0249 01cc | | Execute Vector,Catenate
024a e22a | * | Load 0x1,0x2a
024b 01cc | | Execute Vector,Catenate
024c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024d 0000 0000 | | .XXX[0x3]
024f 0000 | |
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 0092 04eb | | Action Push_String_Extended,0x4eb ; "when "
0255 00db | | Load_Top At_Offset_3
0256 01cc | | Execute Vector,Catenate
0257 0092 04ec | | Action Push_String_Extended,0x4ec ; " =>"
0259 01cc | | Execute Vector,Catenate
025a e22a | * | Load 0x1,0x2a
025b 01cc | | Execute Vector,Catenate
025c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025d 0000 0000 | | .XXX[0x3]
025f 0000 | |
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 0092 04ed | | Action Push_String_Extended,0x4ed ; "end case;"
0265 e22a | * | Load 0x1,0x2a
0266 01cc | | Execute Vector,Catenate
0267 00ca | | Action Exit_Nullary_Function
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 822d | - | Call 0x1,0x2d
026d 0092 04ee | | Action Push_String_Extended,0x4ee ; "loop"
026f 01cc | | Execute Vector,Catenate
0270 e22a | * | Load 0x1,0x2a
0271 01cc | | Execute Vector,Catenate
0272 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0273 0000 0000 | | .BLANK 0000[0x5]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 027b | { | .CONST 0x027b ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0001 | | .CONST 0x0001 ; Number of locals
027b BODY_0278:
027b INIT_0278:
027b e5fb | | Load 0x2,-0x5
027c 6817 |h | Jump_Zero 0x294
027d e5fc | | Load 0x2,-0x4
027e 822d | - | Call 0x1,0x2d
027f 0092 04ef | | Action Push_String_Extended,0x4ef ; "for "
0281 01cc | | Execute Vector,Catenate
0282 00db | | Load_Top At_Offset_3
0283 01cc | | Execute Vector,Catenate
0284 0092 04f0 | | Action Push_String_Extended,0x4f0 ; " in "
0286 01cc | | Execute Vector,Catenate
0287 e5fe | | Load 0x2,-0x2
0288 01cc | | Execute Vector,Catenate
0289 0092 04f1 | | Action Push_String_Extended,0x4f1 ; " .. "
028b 01cc | | Execute Vector,Catenate
028c e5fd | | Load 0x2,-0x3
028d 01cc | | Execute Vector,Catenate
028e 0092 04f2 | | Action Push_String_Extended,0x4f2 ; " loop"
0290 01cc | | Execute Vector,Catenate
0291 e22a | * | Load 0x1,0x2a
0292 01cc | | Execute Vector,Catenate
0293 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
0294 e5fc | | Load 0x2,-0x4
0295 822d | - | Call 0x1,0x2d
0296 0092 04ef | | Action Push_String_Extended,0x4ef ; "for "
0298 01cc | | Execute Vector,Catenate
0299 00db | | Load_Top At_Offset_3
029a 01cc | | Execute Vector,Catenate
029b 0092 04f3 | | Action Push_String_Extended,0x4f3 ; " in reverse "
029d 01cc | | Execute Vector,Catenate
029e e5fe | | Load 0x2,-0x2
029f 01cc | | Execute Vector,Catenate
02a0 0092 04f1 | | Action Push_String_Extended,0x4f1 ; " .. "
02a2 01cc | | Execute Vector,Catenate
02a3 e5fd | | Load 0x2,-0x3
02a4 01cc | | Execute Vector,Catenate
02a5 0092 04f2 | | Action Push_String_Extended,0x4f2 ; " loop"
02a7 01cc | | Execute Vector,Catenate
02a8 e22a | * | Load 0x1,0x2a
02a9 01cc | | Execute Vector,Catenate
02aa 4405 |D | Exit_Subprogram With_Value,New_Top_Offset 0x5
02ab 0000 0000 | | .BLANK 0000[0x5]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00db | | Load_Top At_Offset_3
02b4 822d | - | Call 0x1,0x2d
02b5 0092 04f4 | | Action Push_String_Extended,0x4f4 ; "while "
02b7 01cc | | Execute Vector,Catenate
02b8 00db | | Load_Top At_Offset_3
02b9 01cc | | Execute Vector,Catenate
02ba 0092 04f2 | | Action Push_String_Extended,0x4f2 ; " loop"
02bc 01cc | | Execute Vector,Catenate
02bd e22a | * | Load 0x1,0x2a
02be 01cc | | Execute Vector,Catenate
02bf 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 0092 04f5 | | Action Push_String_Extended,0x4f5 ; "end loop;"
02c5 e22a | * | Load 0x1,0x2a
02c6 01cc | | Execute Vector,Catenate
02c7 00ca | | Action Exit_Nullary_Function
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb 00da | | Load_Top At_Offset_2
02cc 01db | | Execute Vector,Length
02cd 7005 |p | Jump_Nonzero 0x2d3
02ce 0092 04f6 | | Action Push_String_Extended,0x4f6 ; "exit;"
02d0 e22a | * | Load 0x1,0x2a
02d1 01cc | | Execute Vector,Catenate
02d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d3 0092 04f7 | | Action Push_String_Extended,0x4f7 ; "exit when "
02d5 00db | | Load_Top At_Offset_3
02d6 01cc | | Execute Vector,Catenate
02d7 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
02d9 01cc | | Execute Vector,Catenate
02da e22a | * | Load 0x1,0x2a
02db 01cc | | Execute Vector,Catenate
02dc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02dd 0000 0000 | | .XXX[0x3]
02df 0000 | |
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3 | | .CONST 0x02e3 ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0001 | | .CONST 0x0001 ; Number of locals
02e3 BODY_02e0:
02e3 INIT_02e0:
02e3 00da | | Load_Top At_Offset_2
02e4 01db | | Execute Vector,Length
02e5 7005 |p | Jump_Nonzero 0x2eb
02e6 0092 04f8 | | Action Push_String_Extended,0x4f8 ; "return;"
02e8 e22a | * | Load 0x1,0x2a
02e9 01cc | | Execute Vector,Catenate
02ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02eb 0092 04f9 | | Action Push_String_Extended,0x4f9 ; "return "
02ed 00db | | Load_Top At_Offset_3
02ee 01cc | | Execute Vector,Catenate
02ef 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
02f1 01cc | | Execute Vector,Catenate
02f2 e22a | * | Load 0x1,0x2a
02f3 01cc | | Execute Vector,Catenate
02f4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 00da | | Load_Top At_Offset_2
02fc 01db | | Execute Vector,Length
02fd 7005 |p | Jump_Nonzero 0x303
02fe 0092 04fa | | Action Push_String_Extended,0x4fa ; "raise;"
0300 e22a | * | Load 0x1,0x2a
0301 01cc | | Execute Vector,Catenate
0302 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0303 0092 04fb | | Action Push_String_Extended,0x4fb ; "raise "
0305 00db | | Load_Top At_Offset_3
0306 01cc | | Execute Vector,Catenate
0307 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
0309 01cc | | Execute Vector,Catenate
030a e22a | * | Load 0x1,0x2a
030b 01cc | | Execute Vector,Catenate
030c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
030d 0000 0000 | | .XXX[0x3]
030f 0000 | |
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00da | | Load_Top At_Offset_2
0314 01db | | Execute Vector,Length
0315 7002 |p | Jump_Nonzero 0x318
0316 00ea | | Load_Encached Null_String_Cache
0317 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0318 00da | | Load_Top At_Offset_2
0319 0092 04fc | | Action Push_String_Extended,0x4fc ; ":"
031b 01cc | | Execute Vector,Catenate
031c e22a | * | Load 0x1,0x2a
031d 01cc | | Execute Vector,Catenate
031e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
031f 0000 | | .XXX[0x1]
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 00da | | Load_Top At_Offset_2
0324 4602 |F | Jump_Case 0x3
0325 7804 |x | Jump 0x32a ; case 0x0
0326 7805 |x | Jump 0x32c ; case 0x1
0327 7800 |x | Jump 0x328 ; case 0x2
0328 00ea | | Load_Encached Null_String_Cache
0329 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032a 00ea | | Load_Encached Null_String_Cache
032b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032c 0092 04fd | | Action Push_String_Extended,0x4fd ; "body "
032e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
032f 0000 | | .XXX[0x1]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0333 | 3 | .CONST 0x0333 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0001 | | .CONST 0x0001 ; Number of locals
0333 BODY_0330:
0333 INIT_0330:
0333 00da | | Load_Top At_Offset_2
0334 4602 |F | Jump_Case 0x3
0335 7804 |x | Jump 0x33a ; case 0x0
0336 7808 |x | Jump 0x33f ; case 0x1
0337 7800 |x | Jump 0x338 ; case 0x2
0338 e22a | * | Load 0x1,0x2a
0339 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033a 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
033c e22a | * | Load 0x1,0x2a
033d 01cc | | Execute Vector,Catenate
033e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033f 0092 04d7 | | Action Push_String_Extended,0x4d7 ; " is"
0341 e22a | * | Load 0x1,0x2a
0342 01cc | | Execute Vector,Catenate
0343 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0344 0000 0000 | | .BLANK 0000[0x4]
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00da | | Load_Top At_Offset_2
034c 4602 |F | Jump_Case 0x3
034d 7807 |x | Jump 0x355 ; case 0x0
034e 780b |x | Jump 0x35a ; case 0x1
034f 7800 |x | Jump 0x350 ; case 0x2
0350 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
0352 e22a | * | Load 0x1,0x2a
0353 01cc | | Execute Vector,Catenate
0354 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0355 0092 04d5 | | Action Push_String_Extended,0x4d5 ; ";"
0357 e22a | * | Load 0x1,0x2a
0358 01cc | | Execute Vector,Catenate
0359 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035a 0092 04d7 | | Action Push_String_Extended,0x4d7 ; " is"
035c e22a | * | Load 0x1,0x2a
035d 01cc | | Execute Vector,Catenate
035e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
035f 0000 | | .XXX[0x1]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 00da | | Load_Top At_Offset_2
0364 4602 |F | Jump_Case 0x3
0365 7805 |x | Jump 0x36b ; case 0x0
0366 7809 |x | Jump 0x370 ; case 0x1
0367 7800 |x | Jump 0x368 ; case 0x2
0368 0092 04fe | | Action Push_String_Extended,0x4fe ; ", "
036a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
036b 0092 04ff | | Action Push_String_Extended,0x4ff ; "; "
036d e22a | * | Load 0x1,0x2a
036e 01cc | | Execute Vector,Catenate
036f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0370 0092 04ff | | Action Push_String_Extended,0x4ff ; "; "
0372 e22a | * | Load 0x1,0x2a
0373 01cc | | Execute Vector,Catenate
0374 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0375 0000 0000 | | .XXX[0x3]
0377 0000 | |
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 037b | { | .CONST 0x037b ; Address of begin
0379 0004 | | .CONST 0x0004 ; Address of exception handler
037a 0001 | | .CONST 0x0001 ; Number of locals
037b BODY_0378:
037b INIT_0378:
037b 00da | | Load_Top At_Offset_2
037c 01db | | Execute Vector,Length
037d 7002 |p | Jump_Nonzero 0x380
037e 00ea | | Load_Encached Null_String_Cache
037f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0380 0092 0500 | | Action Push_String_Extended,0x500 ; " ("
0382 00db | | Load_Top At_Offset_3
0383 01cc | | Execute Vector,Catenate
0384 0092 0501 | | Action Push_String_Extended,0x501 ; ") "
0386 01cc | | Execute Vector,Catenate
0387 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0398 | | .CONST 0x0398 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 001e | | .CONST 0x001e ; Number of locals
038b INIT_0388:
038b 029a 03a3 | | Declare_Subprogram INIT_03a0,For_Outer_Call,Visible,Unelaborated
038d 029a 03eb | | Declare_Subprogram INIT_03e8,For_Outer_Call,Visible,Unelaborated
038f 00bf | | Action Accept_Activation
0390 029d 0443 | C| Declare_Subprogram INIT_0440,For_Outer_Call
0392 029d 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call
0394 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0395 00c7 | | Action Elaborate_Subprogram
0396 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0397 00c7 | | Action Elaborate_Subprogram
0398 BODY_0388:
0398 00bc | | Action Signal_Activated
0399 00bb | | Action Signal_Completion
039a 0000 0000 | | .BLANK 0000[0x6]
03a0 ; --------------------------------------------------------------------------------------
03a0 ; SUBPROGRAM
03a0 ; --------------------------------------------------------------------------------------
03a0 03ad | | .CONST 0x03ad ; Address of begin
03a1 0004 | | .CONST 0x0004 ; Address of exception handler
03a2 0004 | | .CONST 0x0004 ; Number of locals
03a3 INIT_03a0:
03a3 e001 | | Load 0x0,0x1
03a4 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03a5 e5fd | | Load 0x2,-0x3
03a6 8210 | | Call 0x1,0x10
03a7 00e1 | | Load_Encached Boolean_Cache
03a8 03f1 | | Declare_Variable Discrete,With_Value
03a9 e20f | | Load 0x1,0xf
03aa 02c7 | | Declare_Variable Any
03ab e5fd | | Load 0x2,-0x3
03ac c404 | | Store 0x2,0x4
03ad BODY_03a0:
03ad e5fe | | Load 0x2,-0x2
03ae 4800 |H | Short_Literal 0x0
03af 4801 |H | Short_Literal 0x1
03b0 0262 | b | Execute Discrete,In_Range
03b1 7006 |p | Jump_Nonzero 0x3b8
03b2 00da | | Load_Top At_Offset_2
03b3 e5ff | | Load 0x2,-0x1
03b4 e001 | | Load 0x0,0x1
03b5 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03b6 003b | ; | Store_Top Access,At_Offset_3
03b7 7808 |x | Jump 0x3c0
03b8 00da | | Load_Top At_Offset_2
03b9 0092 04d8 | | Action Push_String_Extended,0x4d8 ; "procedure "
03bb e5ff | | Load 0x2,-0x1
03bc 01cc | | Execute Vector,Catenate
03bd e001 | | Load 0x0,0x1
03be 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03bf 003b | ; | Store_Top Access,At_Offset_3
03c0 00d9 | | Load_Top At_Offset_1
03c1 701a |p | Jump_Nonzero 0x3dc
03c2 00da | | Load_Top At_Offset_2
03c3 0092 0500 | | Action Push_String_Extended,0x500 ; " ("
03c5 e001 | | Load 0x0,0x1
03c6 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03c7 003b | ; | Store_Top Access,At_Offset_3
03c8 00d8 | | Load_Top At_Offset_0
03c9 00d8 | | Load_Top At_Offset_0
03ca 0120 | | Execute Any,Is_Value
03cb 6803 |h | Jump_Zero 0x3cf
03cc e20f | | Load 0x1,0xf
03cd 011e | | Execute Any,Convert
03ce 7802 |x | Jump 0x3d1
03cf e20f | | Load 0x1,0xf
03d0 0119 | | Execute Any,Check_In_Formal_Type
03d1 00db | | Load_Top At_Offset_3
03d2 e5fe | | Load 0x2,-0x2
03d3 821e | | Call 0x1,0x1e
03d4 c402 | | Store 0x2,0x2
03d5 c404 | | Store 0x2,0x4
03d6 00da | | Load_Top At_Offset_2
03d7 0092 0502 | | Action Push_String_Extended,0x502 ; ")"
03d9 e001 | | Load 0x0,0x1
03da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03db 003b | ; | Store_Top Access,At_Offset_3
03dc 00da | | Load_Top At_Offset_2
03dd e5fe | | Load 0x2,-0x2
03de 8002 | | Call 0x0,0x2
03df e001 | | Load 0x0,0x1
03e0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03e1 003b | ; | Store_Top Access,At_Offset_3
03e2 00da | | Load_Top At_Offset_2
03e3 e001 | | Load 0x0,0x1
03e4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03e5 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03e6 0000 0000 | | .XXX[0x2]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03f5 | | .CONST 0x03f5 ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0004 | | .CONST 0x0004 ; Number of locals
03eb INIT_03e8:
03eb e001 | | Load 0x0,0x1
03ec 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03ed e5fd | | Load 0x2,-0x3
03ee 8210 | | Call 0x1,0x10
03ef 00e1 | | Load_Encached Boolean_Cache
03f0 03f1 | | Declare_Variable Discrete,With_Value
03f1 e20f | | Load 0x1,0xf
03f2 02c7 | | Declare_Variable Any
03f3 e5fd | | Load 0x2,-0x3
03f4 c404 | | Store 0x2,0x4
03f5 BODY_03e8:
03f5 e5fe | | Load 0x2,-0x2
03f6 4800 |H | Short_Literal 0x0
03f7 4801 |H | Short_Literal 0x1
03f8 0262 | b | Execute Discrete,In_Range
03f9 7006 |p | Jump_Nonzero 0x400
03fa 00da | | Load_Top At_Offset_2
03fb e5ff | | Load 0x2,-0x1
03fc e001 | | Load 0x0,0x1
03fd 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03fe 003b | ; | Store_Top Access,At_Offset_3
03ff 7808 |x | Jump 0x408
0400 00da | | Load_Top At_Offset_2
0401 0092 04d9 | | Action Push_String_Extended,0x4d9 ; "function "
0403 e5ff | | Load 0x2,-0x1
0404 01cc | | Execute Vector,Catenate
0405 e001 | | Load 0x0,0x1
0406 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0407 003b | ; | Store_Top Access,At_Offset_3
0408 00d9 | | Load_Top At_Offset_1
0409 701a |p | Jump_Nonzero 0x424
040a 00da | | Load_Top At_Offset_2
040b 0092 0500 | | Action Push_String_Extended,0x500 ; " ("
040d e001 | | Load 0x0,0x1
040e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
040f 003b | ; | Store_Top Access,At_Offset_3
0410 00d8 | | Load_Top At_Offset_0
0411 00d8 | | Load_Top At_Offset_0
0412 0120 | | Execute Any,Is_Value
0413 6803 |h | Jump_Zero 0x417
0414 e20f | | Load 0x1,0xf
0415 011e | | Execute Any,Convert
0416 7802 |x | Jump 0x419
0417 e20f | | Load 0x1,0xf
0418 0119 | | Execute Any,Check_In_Formal_Type
0419 00db | | Load_Top At_Offset_3
041a e5fe | | Load 0x2,-0x2
041b 821e | | Call 0x1,0x1e
041c c402 | | Store 0x2,0x2
041d c404 | | Store 0x2,0x4
041e 00da | | Load_Top At_Offset_2
041f 0092 0501 | | Action Push_String_Extended,0x501 ; ") "
0421 e001 | | Load 0x0,0x1
0422 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0423 003b | ; | Store_Top Access,At_Offset_3
0424 e5fe | | Load 0x2,-0x2
0425 0f02 | | Execute_Immediate Equal,0x2
0426 7009 |p | Jump_Nonzero 0x430
0427 7800 |x | Jump 0x428
0428 00da | | Load_Top At_Offset_2
0429 0092 04da | | Action Push_String_Extended,0x4da ; " return "
042b e5fc | | Load 0x2,-0x4
042c 01cc | | Execute Vector,Catenate
042d e001 | | Load 0x0,0x1
042e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
042f 003b | ; | Store_Top Access,At_Offset_3
0430 00da | | Load_Top At_Offset_2
0431 e5fe | | Load 0x2,-0x2
0432 8003 | | Call 0x0,0x3
0433 e001 | | Load 0x0,0x1
0434 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0435 003b | ; | Store_Top Access,At_Offset_3
0436 00da | | Load_Top At_Offset_2
0437 e001 | | Load 0x0,0x1
0438 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0439 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
043a 0000 0000 | | .BLANK 0000[0x6]
0440 ; --------------------------------------------------------------------------------------
0440 ; SUBPROGRAM
0440 ; --------------------------------------------------------------------------------------
0440 0443 | C | .CONST 0x0443 ; Address of begin
0441 0004 | | .CONST 0x0004 ; Address of exception handler
0442 0001 | | .CONST 0x0001 ; Number of locals
0443 BODY_0440:
0443 INIT_0440:
0443 00da | | Load_Top At_Offset_2
0444 01db | | Execute Vector,Length
0445 7002 |p | Jump_Nonzero 0x448
0446 00da | | Load_Top At_Offset_2
0447 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0448 0092 04e0 | | Action Push_String_Extended,0x4e0 ; " := "
044a 00db | | Load_Top At_Offset_3
044b 01cc | | Execute Vector,Catenate
044c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
044d 0000 0000 | | .XXX[0x3]
044f 0000 | |
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0457 | W | .CONST 0x0457 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0002 | | .CONST 0x0002 ; Number of locals
0453 INIT_0450:
0453 e20e | | Load 0x1,0xe
0454 02c7 | | Declare_Variable Any
0455 00d8 | | Load_Top At_Offset_0
0456 1c00 | | Execute_Immediate Run_Utility,0x0
0457 BODY_0450:
0457 00cf | | Action Mark_Auxiliary
0458 7874 |xt | Jump 0x4cd
0459 e5ff | | Load 0x2,-0x1
045a 4602 |F | Jump_Case 0x3
045b 782d |x- | Jump 0x489 ; case 0x0
045c 7845 |xE | Jump 0x4a2 ; case 0x1
045d 7800 |x | Jump 0x45e ; case 0x2
045e e5fd | | Load 0x2,-0x3
045f 8212 | | Call 0x1,0x12
0460 c402 | | Store 0x2,0x2
0461 00cf | | Action Mark_Auxiliary
0462 7821 |x! | Jump 0x484
0463 e5fe | | Load 0x2,-0x2
0464 00db | | Load_Top At_Offset_3
0465 8218 | | Call 0x1,0x18
0466 0092 0503 | | Action Push_String_Extended,0x503 ; " => "
0468 01cc | | Execute Vector,Catenate
0469 e402 | | Load 0x2,0x2
046a 821a | | Call 0x1,0x1a
046b 01cc | | Execute Vector,Catenate
046c e004 | | Load 0x0,0x4
046d 01cc | | Execute Vector,Catenate
046e e001 | | Load 0x0,0x1
046f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0470 c5fe | | Store 0x2,-0x2
0471 00da | | Load_Top At_Offset_2
0472 00d8 | | Load_Top At_Offset_0
0473 0120 | | Execute Any,Is_Value
0474 6803 |h | Jump_Zero 0x478
0475 e20e | | Load 0x1,0xe
0476 0122 | " | Execute Any,Make_Root_Type
0477 011e | | Execute Any,Convert
0478 8219 | | Call 0x1,0x19
0479 c402 | | Store 0x2,0x2
047a 00da | | Load_Top At_Offset_2
047b 8217 | | Call 0x1,0x17
047c 7006 |p | Jump_Nonzero 0x483
047d e5fe | | Load 0x2,-0x2
047e e5ff | | Load 0x2,-0x1
047f 8005 | | Call 0x0,0x5
0480 e001 | | Load 0x0,0x1
0481 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0482 c5fe | | Store 0x2,-0x2
0483 00c9 | | Action Pop_Auxiliary_Loop
0484 00da | | Load_Top At_Offset_2
0485 8217 | | Call 0x1,0x17
0486 6fdc |o | Jump_Zero 0x463
0487 00ce | | Action Pop_Auxiliary
0488 7831 |x1 | Jump 0x4ba
0489 e5fe | | Load 0x2,-0x2
048a e5fd | | Load 0x2,-0x3
048b 8213 | | Call 0x1,0x13
048c 0092 04de | | Action Push_String_Extended,0x4de ; " : "
048e 01cc | | Execute Vector,Catenate
048f e5fd | | Load 0x2,-0x3
0490 8215 | | Call 0x1,0x15
0491 01cc | | Execute Vector,Catenate
0492 0092 0504 | | Action Push_String_Extended,0x504 ; " "
0494 01cc | | Execute Vector,Catenate
0495 e5fd | | Load 0x2,-0x3
0496 8214 | | Call 0x1,0x14
0497 01cc | | Execute Vector,Catenate
0498 e5fd | | Load 0x2,-0x3
0499 8216 | | Call 0x1,0x16
049a 821d | | Call 0x1,0x1d
049b 01cc | | Execute Vector,Catenate
049c e004 | | Load 0x0,0x4
049d 01cc | | Execute Vector,Catenate
049e e001 | | Load 0x0,0x1
049f 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04a0 c5fe | | Store 0x2,-0x2
04a1 7818 |x | Jump 0x4ba
04a2 e5fe | | Load 0x2,-0x2
04a3 e5fd | | Load 0x2,-0x3
04a4 8213 | | Call 0x1,0x13
04a5 0092 04de | | Action Push_String_Extended,0x4de ; " : "
04a7 01cc | | Execute Vector,Catenate
04a8 e5fd | | Load 0x2,-0x3
04a9 8215 | | Call 0x1,0x15
04aa 01cc | | Execute Vector,Catenate
04ab 0092 0504 | | Action Push_String_Extended,0x504 ; " "
04ad 01cc | | Execute Vector,Catenate
04ae e5fd | | Load 0x2,-0x3
04af 8214 | | Call 0x1,0x14
04b0 01cc | | Execute Vector,Catenate
04b1 e5fd | | Load 0x2,-0x3
04b2 8216 | | Call 0x1,0x16
04b3 821d | | Call 0x1,0x1d
04b4 01cc | | Execute Vector,Catenate
04b5 e004 | | Load 0x0,0x4
04b6 01cc | | Execute Vector,Catenate
04b7 e001 | | Load 0x0,0x1
04b8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04b9 c5fe | | Store 0x2,-0x2
04ba e5fd | | Load 0x2,-0x3
04bb 00d8 | | Load_Top At_Offset_0
04bc 0120 | | Execute Any,Is_Value
04bd 6803 |h | Jump_Zero 0x4c1
04be e20f | | Load 0x1,0xf
04bf 0122 | " | Execute Any,Make_Root_Type
04c0 011e | | Execute Any,Convert
04c1 8211 | | Call 0x1,0x11
04c2 c5fd | | Store 0x2,-0x3
04c3 e5fd | | Load 0x2,-0x3
04c4 8210 | | Call 0x1,0x10
04c5 7006 |p | Jump_Nonzero 0x4cc
04c6 e5fe | | Load 0x2,-0x2
04c7 e5ff | | Load 0x2,-0x1
04c8 8005 | | Call 0x0,0x5
04c9 e001 | | Load 0x0,0x1
04ca 181d | | Execute Package,Field_Execute,Field_Number 0x1d
04cb c5fe | | Store 0x2,-0x2
04cc 00c9 | | Action Pop_Auxiliary_Loop
04cd e5fd | | Load 0x2,-0x3
04ce 8210 | | Call 0x1,0x10
04cf 6f89 |o | Jump_Zero 0x459
04d0 4502 |E | Exit_Suprogram New_Top_Offset 0x2
04d1 ; --------------------------------------------------------------------------------------
04d1 ; STRING TABLE
04d1 ; --------------------------------------------------------------------------------------
04d1 006a | j | .STRTAB 0x006a->0x0506 ; "SPEC_PART"
04d2 0071 | q | .STRTAB 0x0071->0x050a ; "BODY_PART"
04d3 0078 | x | .STRTAB 0x0078->0x050f ; "CALL"
04d4 007a | z | .STRTAB 0x007a->0x0511 ; "with "
04d5 007d | } | .STRTAB 0x007d->0x0513 ; ";"
04d6 007c | | | .STRTAB 0x007c->0x0514 ; "package "
04d7 0082 | | .STRTAB 0x0082->0x0518 ; " is"
04d8 0083 | | .STRTAB 0x0083->0x0519 ; "procedure "
04d9 008b | | .STRTAB 0x008b->0x051e ; "function "
04da 0092 | | .STRTAB 0x0092->0x0523 ; " return "
04db 0098 | | .STRTAB 0x0098->0x0527 ; "; "
04dc 0098 | | .STRTAB 0x0098->0x0528 ; " return "
04dd 009f | | .STRTAB 0x009f->0x052c ; " : exception;"
04de 00aa | | .STRTAB 0x00aa->0x0533 ; " : "
04df 00ab | | .STRTAB 0x00ab->0x0534 ; " : constant "
04e0 00b5 | | .STRTAB 0x00b5->0x053a ; " := "
04e1 00b7 | | .STRTAB 0x00b7->0x053c ; "declare"
04e2 00bc | | .STRTAB 0x00bc->0x0540 ; "begin"
04e3 00bf | | .STRTAB 0x00bf->0x0542 ; "end "
04e4 00c1 | | .STRTAB 0x00c1->0x0544 ; "exception"
04e5 00c8 | | .STRTAB 0x00c8->0x0549 ; "if "
04e6 00c9 | | .STRTAB 0x00c9->0x054a ; " then"
04e7 00cc | | .STRTAB 0x00cc->0x054d ; "elsif "
04e8 00d0 | | .STRTAB 0x00d0->0x0550 ; "else"
04e9 00d2 | | .STRTAB 0x00d2->0x0552 ; "end if;"
04ea 00d7 | | .STRTAB 0x00d7->0x0555 ; "case "
04eb 00da | | .STRTAB 0x00da->0x0558 ; "when "
04ec 00dd | | .STRTAB 0x00dd->0x055a ; " =>"
04ed 00de | | .STRTAB 0x00de->0x055c ; "end case;"
04ee 00e5 | | .STRTAB 0x00e5->0x0560 ; "loop"
04ef 00e7 | | .STRTAB 0x00e7->0x0562 ; "for "
04f0 00e9 | | .STRTAB 0x00e9->0x0564 ; " in "
04f1 00eb | | .STRTAB 0x00eb->0x0566 ; " .. "
04f2 00ed | | .STRTAB 0x00ed->0x0568 ; " loop"
04f3 00f0 | | .STRTAB 0x00f0->0x056b ; " in reverse "
04f4 00fa | | .STRTAB 0x00fa->0x0571 ; "while "
04f5 00fe | | .STRTAB 0x00fe->0x0574 ; "end loop;"
04f6 0105 | | .STRTAB 0x0105->0x0578 ; "exit;"
04f7 0108 | | .STRTAB 0x0108->0x057b ; "exit when "
04f8 0110 | | .STRTAB 0x0110->0x0580 ; "return;"
04f9 0115 | | .STRTAB 0x0115->0x0583 ; "return "
04fa 011a | | .STRTAB 0x011a->0x0587 ; "raise;"
04fb 011e | | .STRTAB 0x011e->0x058a ; "raise "
04fc 0122 | " | .STRTAB 0x0122->0x058d ; ":"
04fd 0121 | ! | .STRTAB 0x0121->0x058d ; "body "
04fe 0124 | $ | .STRTAB 0x0124->0x0590 ; ", "
04ff 0124 | $ | .STRTAB 0x0124->0x0591 ; "; "
0500 0125 | % | .STRTAB 0x0125->0x0592 ; " ("
0501 0125 | % | .STRTAB 0x0125->0x0593 ; ") "
0502 0125 | % | .STRTAB 0x0125->0x0594 ; ")"
0503 0124 | $ | .STRTAB 0x0124->0x0595 ; " => "
0504 0126 | & | .STRTAB 0x0126->0x0597 ; " "
0505 0125 | % | .STREND 0x0125->0x0597
0506 5350 4543 |SPEC| .STRTAB_STRINGS
0598 ; --------------------------------------------------------------------------------------
0598 ; Debug Table
0598 ; --------------------------------------------------------------------------------------
0598 0004 0009 | | .DEBUG4 0x0004,0x0009,0x5dad,0x0000,0x0001,0x0000
059e 0000 0000 | | .BLANK 0000[0x62]