|
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_03c0fe
└─⟦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 0408 | | .CONST 0x0408 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 013b | ; | .CONST 0x013b ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0043 | C | .CONST 0x0043 ; Number of locals
000b INIT_0008:
000b 4801 |H | Short_Literal 0x1
000c 617b |a{ | Indirect_Literal Discrete,0x188,{0x00000000, 0x00002000}
000d 00e1 | | Load_Encached Boolean_Cache
000e 02a0 | | Declare_Subprogram Null_Subprogram
000f 4801 |H | Short_Literal 0x1
0010 035e | ^ | Declare_Type Array,Defined,Visible
0011 4800 |H | Short_Literal 0x0
0012 48ff |H | Short_Literal 0xff
0013 00e3 | | Load_Encached Natural_Cache
0014 03f9 | | Declare_Type Discrete,Constrained,Visible
0015 616e |an | Indirect_Literal Discrete,0x184,{0xffffffff, 0xffff8000}
0016 6169 |ai | Indirect_Literal Discrete,0x180,{0x00000000, 0x00007fff}
0017 00e2 | | Load_Encached Integer_Cache
0018 03f9 | | Declare_Type Discrete,Constrained,Visible
0019 4800 |H | Short_Literal 0x0
001a 6161 |aa | Indirect_Literal Discrete,0x17c,{0x00000000, 0x0000ffff}
001b 00e3 | | Load_Encached Natural_Cache
001c 03f9 | | Declare_Type Discrete,Constrained,Visible
001d 4800 |H | Short_Literal 0x0
001e 6159 |aY | Indirect_Literal Discrete,0x178,{0x00000000, 0xffffffff}
001f 00e5 | | Load_Encached Long_Integer_Cache
0020 03f9 | | Declare_Type Discrete,Constrained,Visible
0021 4800 |H | Short_Literal 0x0
0022 6151 |aQ | Indirect_Literal Discrete,0x174,{0x0000ffff, 0xffffffff}
0023 00e5 | | Load_Encached Long_Integer_Cache
0024 03f9 | | Declare_Type Discrete,Constrained,Visible
0025 4800 |H | Short_Literal 0x0
0026 487f |H | Short_Literal 0x7f
0027 00e3 | | Load_Encached Natural_Cache
0028 03f9 | | Declare_Type Discrete,Constrained,Visible
0029 4800 |H | Short_Literal 0x0
002a 483f |H? | Short_Literal 0x3f
002b 00e3 | | Load_Encached Natural_Cache
002c 03f9 | | Declare_Type Discrete,Constrained,Visible
002d 4800 |H | Short_Literal 0x0
002e 6141 |aA | Indirect_Literal Discrete,0x170,{0x00000000, 0x0007ffff}
002f 00e3 | | Load_Encached Natural_Cache
0030 03f9 | | Declare_Type Discrete,Constrained,Visible
0031 4800 |H | Short_Literal 0x0
0032 6139 |a9 | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00003fff}
0033 00e3 | | Load_Encached Natural_Cache
0034 03f9 | | Declare_Type Discrete,Constrained,Visible
0035 00d9 | | Load_Top At_Offset_1
0036 00db | | Load_Top At_Offset_3
0037 e213 | | Load 0x1,0x13
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 4803 |H | Short_Literal 0x3
003a 032e | . | Declare_Type Record,Defined,Visible
003b 00d8 | | Load_Top At_Offset_0
003c 012c | , | Execute Any,Size
003d 0f20 | | Execute_Immediate Equal,0x20
003e 7001 |p | Jump_Nonzero 0x40
003f 0887 | | Execute_Immediate Raise,0x87
0040 4800 |H | Short_Literal 0x0
0041 4802 |H | Short_Literal 0x2
0042 00da | | Load_Top At_Offset_2
0043 012c | , | Execute Any,Size
0044 026d | m | Execute Discrete,Exponentiate
0045 0aff | | Execute_Immediate Plus,-0x1
0046 00e5 | | Load_Encached Long_Integer_Cache
0047 03f9 | | Declare_Type Discrete,Constrained,Visible
0048 a002 | | Store_Unchecked 0x0,0x2
0049 00c6 | | Action Check_Subprogram_Elaborated
004a 00d8 | | Load_Top At_Offset_0
004b 0129 | ) | Execute Any,Make_Visible
004c 00da | | Load_Top At_Offset_2
004d 0129 | ) | Execute Any,Make_Visible
004e e003 | | Load 0x0,0x3
004f 0129 | ) | Execute Any,Make_Visible
0050 e004 | | Load 0x0,0x4
0051 0129 | ) | Execute Any,Make_Visible
0052 4800 |H | Short_Literal 0x0
0053 0129 | ) | Execute Any,Make_Visible
0054 4800 |H | Short_Literal 0x0
0055 6122 |a" | Indirect_Literal Discrete,0x178,{0x00000000, 0xffffffff}
0056 00e5 | | Load_Encached Long_Integer_Cache
0057 03f9 | | Declare_Type Discrete,Constrained,Visible
0058 4800 |H | Short_Literal 0x0
0059 610e |a | Indirect_Literal Discrete,0x168,{0x00000000, 0x00ffffff}
005a 00e5 | | Load_Encached Long_Integer_Cache
005b 03f9 | | Declare_Type Discrete,Constrained,Visible
005c 00d9 | | Load_Top At_Offset_1
005d e217 | | Load 0x1,0x17
005e 02a0 | | Declare_Subprogram Null_Subprogram
005f 4802 |H | Short_Literal 0x2
0060 032e | . | Declare_Type Record,Defined,Visible
0061 00e5 | | Load_Encached Long_Integer_Cache
0062 012c | , | Execute Any,Size
0063 00d9 | | Load_Top At_Offset_1
0064 012c | , | Execute Any,Size
0065 027f | | Execute Discrete,Equal
0066 7001 |p | Jump_Nonzero 0x68
0067 0887 | | Execute_Immediate Raise,0x87
0068 a002 | | Store_Unchecked 0x0,0x2
0069 00c6 | | Action Check_Subprogram_Elaborated
006a 00e5 | | Load_Encached Long_Integer_Cache
006b 0129 | ) | Execute Any,Make_Visible
006c 00d9 | | Load_Top At_Offset_1
006d 0129 | ) | Execute Any,Make_Visible
006e e005 | | Load 0x0,0x5
006f 0129 | ) | Execute Any,Make_Visible
0070 e006 | | Load 0x0,0x6
0071 0129 | ) | Execute Any,Make_Visible
0072 4800 |H | Short_Literal 0x0
0073 0129 | ) | Execute Any,Make_Visible
0074 4800 |H | Short_Literal 0x0
0075 60f6 |` | Indirect_Literal Discrete,0x16c,{0x00000000, 0x00003fff}
0076 00e3 | | Load_Encached Natural_Cache
0077 03f9 | | Declare_Type Discrete,Constrained,Visible
0078 00e1 | | Load_Encached Boolean_Cache
0079 00e1 | | Load_Encached Boolean_Cache
007a 00da | | Load_Top At_Offset_2
007b 02a0 | | Declare_Subprogram Null_Subprogram
007c 4803 |H | Short_Literal 0x3
007d 032e | . | Declare_Type Record,Defined,Visible
007e 4800 |H | Short_Literal 0x0
007f 4807 |H | Short_Literal 0x7
0080 e210 | | Load 0x1,0x10
0081 02a0 | | Declare_Subprogram Null_Subprogram
0082 4801 |H | Short_Literal 0x1
0083 035e | ^ | Declare_Type Array,Defined,Visible
0084 4800 |H | Short_Literal 0x0
0085 480f |H | Short_Literal 0xf
0086 00db | | Load_Top At_Offset_3
0087 02a0 | | Declare_Subprogram Null_Subprogram
0088 4801 |H | Short_Literal 0x1
0089 035e | ^ | Declare_Type Array,Defined,Visible
008a 4800 |H | Short_Literal 0x0
008b 480f |H | Short_Literal 0xf
008c e220 | | Load 0x1,0x20
008d 02a0 | | Declare_Subprogram Null_Subprogram
008e 4801 |H | Short_Literal 0x1
008f 035e | ^ | Declare_Type Array,Defined,Visible
0090 4800 |H | Short_Literal 0x0
0091 480f |H | Short_Literal 0xf
0092 00e5 | | Load_Encached Long_Integer_Cache
0093 03f9 | | Declare_Type Discrete,Constrained,Visible
0094 4800 |H | Short_Literal 0x0
0095 480f |H | Short_Literal 0xf
0096 00e1 | | Load_Encached Boolean_Cache
0097 02a0 | | Declare_Subprogram Null_Subprogram
0098 4801 |H | Short_Literal 0x1
0099 035e | ^ | Declare_Type Array,Defined,Visible
009a 4800 |H | Short_Literal 0x0
009b 4802 |H | Short_Literal 0x2
009c 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
009e 03fe | | Declare_Type Discrete,Defined,Visible
009f 4800 |H | Short_Literal 0x0
00a0 4801 |H | Short_Literal 0x1
00a1 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
00a3 03fe | | Declare_Type Discrete,Defined,Visible
00a4 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
00a6 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
00a8 029a 01fb | | Declare_Subprogram INIT_01f8,For_Outer_Call,Visible,Unelaborated
00aa 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
00ac 029a 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call,Visible,Unelaborated
00ae 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
00b0 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
00b2 029a 029b | | Declare_Subprogram INIT_0298,For_Outer_Call,Visible,Unelaborated
00b4 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
00b6 4802 |H | Short_Literal 0x2
00b7 0093 034b | K| push_full_address INIT_0348
00b9 02a0 | | Declare_Subprogram Null_Subprogram
00ba 038d | | Declare_Type Package,Defined,Visible,Not_Elaborated
00bb 029a 02f3 | | Declare_Subprogram INIT_02f0,For_Outer_Call,Visible,Unelaborated
00bd 00bf | | Action Accept_Activation
00be 4800 |H | Short_Literal 0x0
00bf 480f |H | Short_Literal 0xf
00c0 00e2 | | Load_Encached Integer_Cache
00c1 03f8 | | Declare_Type Discrete,Constrained
00c2 4801 |H | Short_Literal 0x1
00c3 4810 |H | Short_Literal 0x10
00c4 00da | | Load_Top At_Offset_2
00c5 02a0 | | Declare_Subprogram Null_Subprogram
00c6 4801 |H | Short_Literal 0x1
00c7 035d | ] | Declare_Type Array,Defined
00c8 a002 | | Store_Unchecked 0x0,0x2
00c9 00c6 | | Action Check_Subprogram_Elaborated
00ca 00e5 | | Load_Encached Long_Integer_Cache
00cb 00d9 | | Load_Top At_Offset_1
00cc e007 | | Load 0x0,0x7
00cd e008 | | Load 0x0,0x8
00ce 4800 |H | Short_Literal 0x0
00cf 0007 | | Action Break_Optional
00d0 4800 |H | Short_Literal 0x0
00d1 480f |H | Short_Literal 0xf
00d2 00e8 | | Load_Encached Character_Cache
00d3 02a0 | | Declare_Subprogram Null_Subprogram
00d4 4801 |H | Short_Literal 0x1
00d5 035d | ] | Declare_Type Array,Defined
00d6 00d8 | | Load_Top At_Offset_0
00d7 0337 | 7 | Declare_Variable Array
00d8 00d8 | | Load_Top At_Offset_0
00d9 0335 | 5 | Declare_Variable Array,Duplicate
00da 00cd | | Action Spare6_Action
00db 4830 |H0 | Short_Literal 0x30
00dc 4800 |H | Short_Literal 0x0
00dd 00da | | Load_Top At_Offset_2
00de 01d6 | | Execute Vector,Field_Write
00df 4831 |H1 | Short_Literal 0x31
00e0 4801 |H | Short_Literal 0x1
00e1 00da | | Load_Top At_Offset_2
00e2 01d6 | | Execute Vector,Field_Write
00e3 4832 |H2 | Short_Literal 0x32
00e4 4802 |H | Short_Literal 0x2
00e5 00da | | Load_Top At_Offset_2
00e6 01d6 | | Execute Vector,Field_Write
00e7 4833 |H3 | Short_Literal 0x33
00e8 4803 |H | Short_Literal 0x3
00e9 00da | | Load_Top At_Offset_2
00ea 01d6 | | Execute Vector,Field_Write
00eb 4834 |H4 | Short_Literal 0x34
00ec 4804 |H | Short_Literal 0x4
00ed 00da | | Load_Top At_Offset_2
00ee 01d6 | | Execute Vector,Field_Write
00ef 4835 |H5 | Short_Literal 0x35
00f0 4805 |H | Short_Literal 0x5
00f1 00da | | Load_Top At_Offset_2
00f2 01d6 | | Execute Vector,Field_Write
00f3 4836 |H6 | Short_Literal 0x36
00f4 4806 |H | Short_Literal 0x6
00f5 00da | | Load_Top At_Offset_2
00f6 01d6 | | Execute Vector,Field_Write
00f7 4837 |H7 | Short_Literal 0x37
00f8 4807 |H | Short_Literal 0x7
00f9 00da | | Load_Top At_Offset_2
00fa 01d6 | | Execute Vector,Field_Write
00fb 4838 |H8 | Short_Literal 0x38
00fc 4808 |H | Short_Literal 0x8
00fd 00da | | Load_Top At_Offset_2
00fe 01d6 | | Execute Vector,Field_Write
00ff 4839 |H9 | Short_Literal 0x39
0100 4809 |H | Short_Literal 0x9
0101 00da | | Load_Top At_Offset_2
0102 01d6 | | Execute Vector,Field_Write
0103 4841 |HA | Short_Literal 0x41
0104 480a |H | Short_Literal 0xa
0105 00da | | Load_Top At_Offset_2
0106 01d6 | | Execute Vector,Field_Write
0107 4842 |HB | Short_Literal 0x42
0108 480b |H | Short_Literal 0xb
0109 00da | | Load_Top At_Offset_2
010a 01d6 | | Execute Vector,Field_Write
010b 4843 |HC | Short_Literal 0x43
010c 480c |H | Short_Literal 0xc
010d 00da | | Load_Top At_Offset_2
010e 01d6 | | Execute Vector,Field_Write
010f 4844 |HD | Short_Literal 0x44
0110 480d |H | Short_Literal 0xd
0111 00da | | Load_Top At_Offset_2
0112 01d6 | | Execute Vector,Field_Write
0113 4845 |HE | Short_Literal 0x45
0114 480e |H | Short_Literal 0xe
0115 00da | | Load_Top At_Offset_2
0116 01d6 | | Execute Vector,Field_Write
0117 4846 |HF | Short_Literal 0x46
0118 480f |H | Short_Literal 0xf
0119 00da | | Load_Top At_Offset_2
011a 01d6 | | Execute Vector,Field_Write
011b 00d9 | | Load_Top At_Offset_1
011c 01d4 | | Execute Vector,Structure_Write
011d 1d2f | / | Execute_Immediate Reference_Lex_1,0x2f
011e 00c7 | | Action Elaborate_Subprogram
011f 029d 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call
0121 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
0122 00c7 | | Action Elaborate_Subprogram
0123 1d31 | 1 | Execute_Immediate Reference_Lex_1,0x31
0124 00c7 | | Action Elaborate_Subprogram
0125 1d32 | 2 | Execute_Immediate Reference_Lex_1,0x32
0126 00c7 | | Action Elaborate_Subprogram
0127 1d33 | 3 | Execute_Immediate Reference_Lex_1,0x33
0128 00c7 | | Action Elaborate_Subprogram
0129 1d34 | 4 | Execute_Immediate Reference_Lex_1,0x34
012a 00c7 | | Action Elaborate_Subprogram
012b 1d35 | 5 | Execute_Immediate Reference_Lex_1,0x35
012c 00c7 | | Action Elaborate_Subprogram
012d 1d36 | 6 | Execute_Immediate Reference_Lex_1,0x36
012e 00c7 | | Action Elaborate_Subprogram
012f 1d37 | 7 | Execute_Immediate Reference_Lex_1,0x37
0130 00c7 | | Action Elaborate_Subprogram
0131 e009 | | Load 0x0,0x9
0132 a00a | | Store_Unchecked 0x0,0xa
0133 4802 |H | Short_Literal 0x2
0134 e238 | 8 | Load 0x1,0x38
0135 020e | | Execute Module,Augment_Imports
0136 e238 | 8 | Load 0x1,0x38
0137 020d | | Execute Module,Elaborate
0138 0007 | | Action Break_Optional
0139 1d39 | 9 | Execute_Immediate Reference_Lex_1,0x39
013a 00c7 | | Action Elaborate_Subprogram
013b BODY_0008:
013b 00bc | | Action Signal_Activated
013c 00bb | | Action Signal_Completion
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 4607 |F | Jump_Case 0x8
0144 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0145 7807 |x | Jump 0x14d ; case 0x1
0146 780a |x | Jump 0x151 ; case 0x2
0147 780e |x | Jump 0x156 ; case 0x3
0148 7811 |x | Jump 0x15a ; case 0x4
0149 7812 |x | Jump 0x15c ; case 0x5
014a 7813 |x | Jump 0x15e ; case 0x6
014b 7816 |x | Jump 0x162 ; case 0x7
014c 4302 |C | .XXX[0x1]
014d 00da | | Load_Top At_Offset_2
014e 0091 03c2 | | Action Push_String_Extended_Indexed,0x3c2 ; "HEX"
0150 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0151 00db | | Load_Top At_Offset_3
0152 00db | | Load_Top At_Offset_3
0153 00e0 | | Load_Encached Standard_Cache
0154 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0155 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0156 00da | | Load_Top At_Offset_2
0157 00e0 | | Load_Encached Standard_Cache
0158 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0159 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
015a 00db | | Load_Top At_Offset_3
015b 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015c 00db | | Load_Top At_Offset_3
015d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
015e e22d | - | Load 0x1,0x2d
015f 00dc | | Load_Top At_Offset_4
0160 0267 | g | Execute Discrete,Predecessor
0161 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0162 e22d | - | Load 0x1,0x2d
0163 00dc | | Load_Top At_Offset_4
0164 0268 | h | Execute Discrete,Successor
0165 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0166 0000 0000 | | .XXX[0x2]
0168 0000 0000 | | .LITERAL {0x00000000, 0x00ffffff}
016c 0000 0000 | | .LITERAL {0x00000000, 0x00003fff}
0170 0000 0000 | | .LITERAL {0x00000000, 0x0007ffff}
0174 0000 ffff | | .LITERAL {0x0000ffff, 0xffffffff}
0178 0000 0000 | | .LITERAL {0x00000000, 0xffffffff}
017c 0000 0000 | | .LITERAL {0x00000000, 0x0000ffff}
0180 0000 0000 | | .LITERAL {0x00000000, 0x00007fff}
0184 ffff ffff | | .LITERAL {0xffffffff, 0xffff8000}
0188 0000 0000 | | .LITERAL {0x00000000, 0x00002000}
018c 0000 0000 | | .BLANK 0000[0x4]
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 4607 |F | Jump_Case 0x8
0194 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0195 7807 |x | Jump 0x19d ; case 0x1
0196 780a |x | Jump 0x1a1 ; case 0x2
0197 780e |x | Jump 0x1a6 ; case 0x3
0198 7811 |x | Jump 0x1aa ; case 0x4
0199 7812 |x | Jump 0x1ac ; case 0x5
019a 7813 |x | Jump 0x1ae ; case 0x6
019b 7816 |x | Jump 0x1b2 ; case 0x7
019c 4302 |C | .XXX[0x1]
019d 00da | | Load_Top At_Offset_2
019e 0091 03c5 | | Action Push_String_Extended_Indexed,0x3c5 ; "FULL"
01a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a1 00db | | Load_Top At_Offset_3
01a2 00db | | Load_Top At_Offset_3
01a3 00e0 | | Load_Encached Standard_Cache
01a4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a6 00da | | Load_Top At_Offset_2
01a7 00e0 | | Load_Encached Standard_Cache
01a8 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a9 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01aa 00db | | Load_Top At_Offset_3
01ab 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ac 00db | | Load_Top At_Offset_3
01ad 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ae e22e | . | Load 0x1,0x2e
01af 00dc | | Load_Top At_Offset_4
01b0 0267 | g | Execute Discrete,Predecessor
01b1 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b2 e22e | . | Load 0x1,0x2e
01b3 00dc | | Load_Top At_Offset_4
01b4 0268 | h | Execute Discrete,Successor
01b5 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b6 0000 0000 | | .XXX[0x2]
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 6804 |h | Jump_Zero 0x1c1
01bd 00db | | Load_Top At_Offset_3
01be 0335 | 5 | Declare_Variable Array,Duplicate
01bf 00cd | | Action Spare6_Action
01c0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01c1 e5fd | | Load 0x2,-0x3
01c2 0335 | 5 | Declare_Variable Array,Duplicate
01c3 00cd | | Action Spare6_Action
01c4 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
01c5 0000 0000 | | .XXX[0x3]
01c7 0000 | |
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00db | | Load_Top At_Offset_3
01cc 4602 |F | Jump_Case 0x3
01cd 7815 |x | Jump 0x1e3 ; case 0x0
01ce 781b |x | Jump 0x1ea ; case 0x1
01cf 7800 |x | Jump 0x1d0 ; case 0x2
01d0 4829 |H) | Short_Literal 0x29
01d1 e5fc | | Load 0x2,-0x4
01d2 e5fd | | Load 0x2,-0x3
01d3 4810 |H | Short_Literal 0x10
01d4 e5ff | | Load 0x2,-0x1
01d5 e00b | | Load 0x0,0xb
01d6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d7 0092 03c7 | | Action Push_String_Extended,0x3c7 ; " ("
01d9 01cc | | Execute Vector,Catenate
01da 4820 |H | Short_Literal 0x20
01db 4800 |H | Short_Literal 0x0
01dc 480a |H | Short_Literal 0xa
01dd e5ff | | Load 0x2,-0x1
01de e00b | | Load 0x0,0xb
01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e0 01cc | | Execute Vector,Catenate
01e1 01cb | | Execute Vector,Append
01e2 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01e3 e5fc | | Load 0x2,-0x4
01e4 e5fd | | Load 0x2,-0x3
01e5 4810 |H | Short_Literal 0x10
01e6 e5ff | | Load 0x2,-0x1
01e7 e00b | | Load 0x0,0xb
01e8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e9 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01ea e5fc | | Load 0x2,-0x4
01eb e5fd | | Load 0x2,-0x3
01ec 480a |H | Short_Literal 0xa
01ed e5ff | | Load 0x2,-0x1
01ee e00b | | Load 0x0,0xb
01ef 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01f0 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
01f1 0000 0000 | | .BLANK 0000[0x7]
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 00db | | Load_Top At_Offset_3
01fc 4602 |F | Jump_Case 0x3
01fd 7812 |x | Jump 0x210 ; case 0x0
01fe 7815 |x | Jump 0x214 ; case 0x1
01ff 7800 |x | Jump 0x200 ; case 0x2
0200 4829 |H) | Short_Literal 0x29
0201 e5fd | | Load 0x2,-0x3
0202 e5ff | | Load 0x2,-0x1
0203 8243 | C | Call 0x1,0x43
0204 0092 03c7 | | Action Push_String_Extended,0x3c7 ; " ("
0206 01cc | | Execute Vector,Catenate
0207 4820 |H | Short_Literal 0x20
0208 4800 |H | Short_Literal 0x0
0209 480a |H | Short_Literal 0xa
020a e5ff | | Load 0x2,-0x1
020b e00b | | Load 0x0,0xb
020c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
020d 01cc | | Execute Vector,Catenate
020e 01cb | | Execute Vector,Append
020f 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0210 e5fd | | Load 0x2,-0x3
0211 00db | | Load_Top At_Offset_3
0212 8243 | C | Call 0x1,0x43
0213 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0214 e5fc | | Load 0x2,-0x4
0215 e5fd | | Load 0x2,-0x3
0216 480a |H | Short_Literal 0xa
0217 e5ff | | Load 0x2,-0x1
0218 e00b | | Load 0x0,0xb
0219 1817 | | Execute Package,Field_Execute,Field_Number 0x17
021a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
021b 0000 0000 | | .BLANK 0000[0x5]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0234 | 4 | .CONST 0x0234 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0002 | | .CONST 0x0002 ; Number of locals
0223 INIT_0220:
0223 4808 |H | Short_Literal 0x8
0224 00db | | Load_Top At_Offset_3
0225 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0226 090d | | Execute_Immediate Binary_Scale,0xd
0227 e5ff | | Load 0x2,-0x1
0228 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0229 0907 | | Execute_Immediate Binary_Scale,0x7
022a 0273 | s | Execute Discrete,Plus
022b e5ff | | Load 0x2,-0x1
022c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
022d 0273 | s | Execute Discrete,Plus
022e 00d8 | | Load_Top At_Offset_0
022f 00e5 | | Load_Encached Long_Integer_Cache
0230 0260 | ` | Execute Discrete,In_Type
0231 7001 |p | Jump_Nonzero 0x233
0232 0801 | | Execute_Immediate Raise,0x1
0233 8243 | C | Call 0x1,0x43
0234 BODY_0220:
0234 00d8 | | Load_Top At_Offset_0
0235 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0236 0000 0000 | | .XXX[0x2]
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 4820 |H | Short_Literal 0x20
023c 4808 |H | Short_Literal 0x8
023d e5ff | | Load 0x2,-0x1
023e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
023f 8243 | C | Call 0x1,0x43
0240 01cb | | Execute Vector,Append
0241 e5fe | | Load 0x2,-0x2
0242 e5ff | | Load 0x2,-0x1
0243 3401 |4 | Execute Record,Field_Reference,Field_Number 0x1
0244 8232 | 2 | Call 0x1,0x32
0245 01cc | | Execute Vector,Catenate
0246 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0247 0000 | | .XXX[0x1]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024d | M | .CONST 0x024d ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0003 | | .CONST 0x0003 ; Number of locals
024b INIT_0248:
024b 00e5 | | Load_Encached Long_Integer_Cache
024c 03e9 | | Declare_Variable Discrete,Duplicate
024d BODY_0248:
024d 00e5 | | Load_Encached Long_Integer_Cache
024e 00e5 | | Load_Encached Long_Integer_Cache
024f e5ff | | Load 0x2,-0x1
0250 800c | | Call 0x0,0xc
0251 005a | Z | Store_Top Discrete,At_Offset_2
0252 005a | Z | Store_Top Discrete,At_Offset_2
0253 4820 |H | Short_Literal 0x20
0254 4810 |H | Short_Literal 0x10
0255 00da | | Load_Top At_Offset_2
0256 8243 | C | Call 0x1,0x43
0257 01cb | | Execute Vector,Append
0258 4810 |H | Short_Literal 0x10
0259 00db | | Load_Top At_Offset_3
025a 8243 | C | Call 0x1,0x43
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 0269 | i | .CONST 0x0269 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0004 | | .CONST 0x0004 ; Number of locals
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 01dc | | Execute Vector,Last
0265 00e3 | | Load_Encached Natural_Cache
0266 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
0267 00e1 | | Load_Encached Boolean_Cache
0268 00e2 | | Load_Encached Integer_Cache
0269 BODY_0260:
0269 00da | | Load_Top At_Offset_2
026a e5ff | | Load 0x2,-0x1
026b 01d7 | | Execute Vector,Field_Read
026c 0d20 | | Execute_Immediate Less,0x20
026d 6803 |h | Jump_Zero 0x271
026e 00da | | Load_Top At_Offset_2
026f 0aff | | Execute_Immediate Plus,-0x1
0270 005b | [ | Store_Top Discrete,At_Offset_3
0271 00e1 | | Load_Encached Boolean_Cache
0272 00e2 | | Load_Encached Integer_Cache
0273 e5fe | | Load 0x2,-0x2
0274 e5ff | | Load 0x2,-0x1
0275 01dd | | Execute Vector,First
0276 e402 | | Load 0x2,0x2
0277 e5ff | | Load 0x2,-0x1
0278 01cf | | Execute Vector,Slice_Read
0279 e00b | | Load 0x0,0xb
027a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
027b 005a | Z | Store_Top Discrete,At_Offset_2
027c 005a | Z | Store_Top Discrete,At_Offset_2
027d 00d9 | | Load_Top At_Offset_1
027e 7015 |p | Jump_Nonzero 0x294
027f 0092 03c8 | | Action Push_String_Extended,0x3c8 ; "Error converting string '"
0281 e5ff | | Load 0x2,-0x1
0282 01dd | | Execute Vector,First
0283 e402 | | Load 0x2,0x2
0284 e5ff | | Load 0x2,-0x1
0285 01cf | | Execute Vector,Slice_Read
0286 01cc | | Execute Vector,Catenate
0287 0092 03c9 | | Action Push_String_Extended,0x3c9 ; "' to base"
0289 01cc | | Execute Vector,Catenate
028a e5fe | | Load 0x2,-0x2
028b 00e0 | | Load_Encached Standard_Cache
028c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
028d 01cc | | Execute Vector,Catenate
028e 0092 03ca | | Action Push_String_Extended,0x3ca ; " number."
0290 01cc | | Execute Vector,Catenate
0291 e009 | | Load 0x0,0x9
0292 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0293 08e2 | | Execute_Immediate Raise,0xe2
0294 00d8 | | Load_Top At_Offset_0
0295 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0296 0000 0000 | | .XXX[0x2]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a6 | | .CONST 0x02a6 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0003 | | .CONST 0x0003 ; Number of locals
029b INIT_0298:
029b 00da | | Load_Top At_Offset_2
029c 01dd | | Execute Vector,First
029d 00db | | Load_Top At_Offset_3
029e 01dc | | Execute Vector,Last
029f 00e9 | | Load_Encached String_Cache
02a0 035b | [ | Declare_Type Array,Constrained
02a1 0337 | 7 | Declare_Variable Array
02a2 00db | | Load_Top At_Offset_3
02a3 01dd | | Execute Vector,First
02a4 00e3 | | Load_Encached Natural_Cache
02a5 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
02a6 BODY_0298:
02a6 00cf | | Action Mark_Auxiliary
02a7 00d9 | | Load_Top At_Offset_1
02a8 e5ff | | Load 0x2,-0x1
02a9 01dc | | Execute Vector,Last
02aa 027b | { | Execute Discrete,Greater_Equal
02ab 7013 |p | Jump_Nonzero 0x2bf
02ac 00d9 | | Load_Top At_Offset_1
02ad 0a01 | | Execute_Immediate Plus,0x1
02ae e5ff | | Load 0x2,-0x1
02af 01d7 | | Execute Vector,Field_Read
02b0 00da | | Load_Top At_Offset_2
02b1 e402 | | Load 0x2,0x2
02b2 01d6 | | Execute Vector,Field_Write
02b3 00d9 | | Load_Top At_Offset_1
02b4 e5ff | | Load 0x2,-0x1
02b5 01d7 | | Execute Vector,Field_Read
02b6 00da | | Load_Top At_Offset_2
02b7 0a01 | | Execute_Immediate Plus,0x1
02b8 e402 | | Load 0x2,0x2
02b9 01d6 | | Execute Vector,Field_Write
02ba 00d9 | | Load_Top At_Offset_1
02bb 0a02 | | Execute_Immediate Plus,0x2
02bc 005a | Z | Store_Top Discrete,At_Offset_2
02bd 00c9 | | Action Pop_Auxiliary_Loop
02be 7fe8 | | Jump 0x2a7
02bf 00ce | | Action Pop_Auxiliary
02c0 00d9 | | Load_Top At_Offset_1
02c1 00e9 | | Load_Encached String_Cache
02c2 01c6 | | Execute Vector,Convert_To_Formal
02c3 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c4 0000 0000 | | .BLANK 0000[0x4]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02d5 | | .CONST 0x02d5 ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb e5fd | | Load 0x2,-0x3
02cc 01dd | | Execute Vector,First
02cd e5fd | | Load 0x2,-0x3
02ce 01dc | | Execute Vector,Last
02cf 00e9 | | Load_Encached String_Cache
02d0 035b | [ | Declare_Type Array,Constrained
02d1 0337 | 7 | Declare_Variable Array
02d2 e5fd | | Load 0x2,-0x3
02d3 00d9 | | Load_Top At_Offset_1
02d4 01d4 | | Execute Vector,Structure_Write
02d5 BODY_02c8:
02d5 00cf | | Action Mark_Auxiliary
02d6 00d9 | | Load_Top At_Offset_1
02d7 01d9 | | Execute Vector,Reverse_Bounds
02d8 0263 | c | Execute Discrete,Above_Bound
02d9 700c |p | Jump_Nonzero 0x2e6
02da 00d8 | | Load_Top At_Offset_0
02db e402 | | Load 0x2,0x2
02dc 01d7 | | Execute Vector,Field_Read
02dd e5ff | | Load 0x2,-0x1
02de 027f | | Execute Discrete,Equal
02df 6804 |h | Jump_Zero 0x2e4
02e0 e5fe | | Load 0x2,-0x2
02e1 00d9 | | Load_Top At_Offset_1
02e2 e402 | | Load 0x2,0x2
02e3 01d6 | | Execute Vector,Field_Write
02e4 00c8 | | Action Pop_Auxiliary_Range
02e5 3ff4 |? | Loop_Increasing 0x2da
02e6 00ce | | Action Pop_Auxiliary
02e7 00d8 | | Load_Top At_Offset_0
02e8 00e9 | | Load_Encached String_Cache
02e9 01c6 | | Execute Vector,Convert_To_Formal
02ea 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02eb 0000 0000 | | .BLANK 0000[0x5]
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f3 | | .CONST 0x02f3 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0001 | | .CONST 0x0001 ; Number of locals
02f3 BODY_02f0:
02f3 INIT_02f0:
02f3 4801 |H | Short_Literal 0x1
02f4 482e |H. | Short_Literal 0x2e
02f5 e5fc | | Load 0x2,-0x4
02f6 0092 03cb | | Action Push_String_Extended,0x3cb ; " produced on "
02f8 01cc | | Execute Vector,Catenate
02f9 4800 |H | Short_Literal 0x0
02fa 4800 |H | Short_Literal 0x0
02fb 4800 |H | Short_Literal 0x0
02fc e00d | | Load 0x0,0xd
02fd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
02fe e00d | | Load 0x0,0xd
02ff 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0300 01cc | | Execute Vector,Catenate
0301 01cb | | Execute Vector,Append
0302 85fd | | Call 0x2,-0x3
0303 4801 |H | Short_Literal 0x1
0304 482e |H. | Short_Literal 0x2e
0305 0092 03cc | | Action Push_String_Extended,0x3cc ; "This file is "
0307 85fe | | Call 0x2,-0x2
0308 01cc | | Execute Vector,Catenate
0309 01cb | | Execute Vector,Append
030a 85fd | | Call 0x2,-0x3
030b 4505 |E | Exit_Suprogram New_Top_Offset 0x5
030c 0000 0000 | | .BLANK 0000[0x4]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0321 | ! | .CONST 0x0321 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0003 | | .CONST 0x0003 ; Number of locals
0313 INIT_0310:
0313 e23b | ; | Load 0x1,0x3b
0314 0337 | 7 | Declare_Variable Array
0315 00db | | Load_Top At_Offset_3
0316 e23c | < | Load 0x1,0x3c
0317 e23d | = | Load 0x1,0x3d
0318 1d3e | > | Execute_Immediate Reference_Lex_1,0x3e
0319 8002 | | Call 0x0,0x2
031a 00d9 | | Load_Top At_Offset_1
031b 01d4 | | Execute Vector,Structure_Write
031c 4801 |H | Short_Literal 0x1
031d 4810 |H | Short_Literal 0x10
031e 00e9 | | Load_Encached String_Cache
031f 035b | [ | Declare_Type Array,Constrained
0320 0337 | 7 | Declare_Variable Array
0321 BODY_0310:
0321 00cf | | Action Mark_Auxiliary
0322 00d9 | | Load_Top At_Offset_1
0323 01d9 | | Execute Vector,Reverse_Bounds
0324 0007 | | Action Break_Optional
0325 00d8 | | Load_Top At_Offset_0
0326 e402 | | Load 0x2,0x2
0327 01d7 | | Execute Vector,Field_Read
0328 e242 | B | Load 0x1,0x42
0329 01d7 | | Execute Vector,Field_Read
032a 00d9 | | Load_Top At_Offset_1
032b e403 | | Load 0x2,0x3
032c 01d6 | | Execute Vector,Field_Write
032d 00c8 | | Action Pop_Auxiliary_Range
032e 3ff6 |? | Loop_Increasing 0x325
032f 00ce | | Action Pop_Auxiliary
0330 e5fe | | Load 0x2,-0x2
0331 7007 |p | Jump_Nonzero 0x339
0332 4820 |H | Short_Literal 0x20
0333 00d9 | | Load_Top At_Offset_1
0334 e00b | | Load 0x0,0xb
0335 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0336 00e9 | | Load_Encached String_Cache
0337 01c6 | | Execute Vector,Convert_To_Formal
0338 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0339 4810 |H | Short_Literal 0x10
033a e5fe | | Load 0x2,-0x2
033b 0272 | r | Execute Discrete,Minus
033c 0a01 | | Execute_Immediate Plus,0x1
033d 00d8 | | Load_Top At_Offset_0
033e 00e2 | | Load_Encached Integer_Cache
033f 0260 | ` | Execute Discrete,In_Type
0340 7001 |p | Jump_Nonzero 0x342
0341 0801 | | Execute_Immediate Raise,0x1
0342 4810 |H | Short_Literal 0x10
0343 00da | | Load_Top At_Offset_2
0344 01cf | | Execute Vector,Slice_Read
0345 00e9 | | Load_Encached String_Cache
0346 01c6 | | Execute Vector,Convert_To_Formal
0347 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 0365 | e | .CONST 0x0365 ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0014 | | .CONST 0x0014 ; Number of locals
034b INIT_0348:
034b 029a 0373 | s| Declare_Subprogram INIT_0370,For_Outer_Call,Visible,Unelaborated
034d 029a 0393 | | Declare_Subprogram INIT_0390,For_Outer_Call,Visible,Unelaborated
034f 029a 03ab | | Declare_Subprogram INIT_03a8,For_Outer_Call,Visible,Unelaborated
0351 029a 03bb | | Declare_Subprogram INIT_03b8,For_Outer_Call,Visible,Unelaborated
0353 00bf | | Action Accept_Activation
0354 e20e | | Load 0x1,0xe
0355 01db | | Execute Vector,Length
0356 0f00 | | Execute_Immediate Equal,0x0
0357 0007 | | Action Break_Optional
0358 e001 | | Load 0x0,0x1
0359 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035a 02c7 | | Declare_Variable Any
035b 00d8 | | Load_Top At_Offset_0
035c 1c00 | | Execute_Immediate Run_Utility,0x0
035d 1d0f | | Execute_Immediate Reference_Lex_1,0xf
035e 00c7 | | Action Elaborate_Subprogram
035f 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0360 00c7 | | Action Elaborate_Subprogram
0361 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0362 00c7 | | Action Elaborate_Subprogram
0363 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0364 00c7 | | Action Elaborate_Subprogram
0365 BODY_0348:
0365 00d9 | | Load_Top At_Offset_1
0366 7004 |p | Jump_Nonzero 0x36b
0367 00d8 | | Load_Top At_Offset_0
0368 e20e | | Load 0x1,0xe
0369 8002 | | Call 0x0,0x2
036a c214 | | Store 0x1,0x14
036b 00bc | | Action Signal_Activated
036c 00bb | | Action Signal_Completion
036d 0000 0000 | | .XXX[0x3]
036f 0000 | |
0370 ; --------------------------------------------------------------------------------------
0370 ; SUBPROGRAM
0370 ; --------------------------------------------------------------------------------------
0370 0373 | s | .CONST 0x0373 ; Address of begin
0371 0004 | | .CONST 0x0004 ; Address of exception handler
0372 0001 | | .CONST 0x0001 ; Number of locals
0373 BODY_0370:
0373 INIT_0370:
0373 e213 | | Load 0x1,0x13
0374 6804 |h | Jump_Zero 0x379
0375 00da | | Load_Top At_Offset_2
0376 e001 | | Load 0x0,0x1
0377 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0378 7804 |x | Jump 0x37d
0379 00da | | Load_Top At_Offset_2
037a e214 | | Load 0x1,0x14
037b e001 | | Load 0x0,0x1
037c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
037d 00db | | Load_Top At_Offset_3
037e 680a |h | Jump_Zero 0x389
037f e213 | | Load 0x1,0x13
0380 6804 |h | Jump_Zero 0x385
0381 4801 |H | Short_Literal 0x1
0382 e001 | | Load 0x0,0x1
0383 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0384 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0385 4801 |H | Short_Literal 0x1
0386 e214 | | Load 0x1,0x14
0387 e001 | | Load 0x0,0x1
0388 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0389 4503 |E | Exit_Suprogram New_Top_Offset 0x3
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 00cf | | Action Mark_Auxiliary
0394 00db | | Load_Top At_Offset_3
0395 4801 |H | Short_Literal 0x1
0396 0263 | c | Execute Discrete,Above_Bound
0397 700c |p | Jump_Nonzero 0x3a4
0398 e213 | | Load 0x1,0x13
0399 6804 |h | Jump_Zero 0x39e
039a 4801 |H | Short_Literal 0x1
039b e001 | | Load 0x0,0x1
039c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
039d 7804 |x | Jump 0x3a2
039e 4801 |H | Short_Literal 0x1
039f e214 | | Load 0x1,0x14
03a0 e001 | | Load 0x0,0x1
03a1 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
03a2 00c8 | | Action Pop_Auxiliary_Range
03a3 3ff4 |? | Loop_Increasing 0x398
03a4 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a5 0000 0000 | | .XXX[0x3]
03a7 0000 | |
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03ab | | .CONST 0x03ab ; Address of begin
03a9 0004 | | .CONST 0x0004 ; Address of exception handler
03aa 0001 | | .CONST 0x0001 ; Number of locals
03ab BODY_03a8:
03ab INIT_03a8:
03ab e213 | | Load 0x1,0x13
03ac 7004 |p | Jump_Nonzero 0x3b1
03ad e214 | | Load 0x1,0x14
03ae e001 | | Load 0x0,0x1
03af 181b | | Execute Package,Field_Execute,Field_Number 0x1b
03b0 00ca | | Action Exit_Nullary_Function
03b1 0092 03cd | | Action Push_String_Extended,0x3cd ; "a text window"
03b3 00ca | | Action Exit_Nullary_Function
03b4 0000 0000 | | .BLANK 0000[0x4]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03bb | | .CONST 0x03bb ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0001 | | .CONST 0x0001 ; Number of locals
03bb BODY_03b8:
03bb INIT_03b8:
03bb e213 | | Load 0x1,0x13
03bc 7004 |p | Jump_Nonzero 0x3c1
03bd e214 | | Load 0x1,0x14
03be e001 | | Load 0x0,0x1
03bf 1816 | | Execute Package,Field_Execute,Field_Number 0x16
03c0 c214 | | Store 0x1,0x14
03c1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03c2 ; --------------------------------------------------------------------------------------
03c2 ; STRING TABLE
03c2 ; --------------------------------------------------------------------------------------
03c2 001a | | .STRTAB 0x001a->0x03cf ; "HEX"
03c3 001b | | .STRTAB 0x001b->0x03d0 ; "DEC"
03c4 001c | | .STRTAB 0x001c->0x03d2 ; "HEX_DEC"
03c5 0021 | ! | .STRTAB 0x0021->0x03d5 ; "FULL"
03c6 0023 | # | .STRTAB 0x0023->0x03d7 ; "CODE"
03c7 0025 | % | .STRTAB 0x0025->0x03d9 ; " ("
03c8 0025 | % | .STRTAB 0x0025->0x03da ; "Error converting string '"
03c9 003c | < | .STRTAB 0x003c->0x03e7 ; "' to base"
03ca 0043 | C | .STRTAB 0x0043->0x03eb ; " number."
03cb 0049 | I | .STRTAB 0x0049->0x03ef ; " produced on "
03cc 0054 | T | .STRTAB 0x0054->0x03f6 ; "This file is "
03cd 005f | _ | .STRTAB 0x005f->0x03fc ; "a text window"
03ce 006a | j | .STREND 0x006a->0x0403
03cf 4845 5844 |HEXD| .STRTAB_STRINGS
0403 0000 0000 | | .BLANK 0000[0x5]
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug Table
0408 ; --------------------------------------------------------------------------------------
0408 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf23f,0x0000,0x0001,0x0000
040e 0000 0000 | | .BLANK 0000[0x1f2]