|
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_03bcfe
└─⟦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 0458 | X | .CONST 0x0458 ; 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 0111 | | .CONST 0x0111 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001f | | .CONST 0x001f ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4804 |H | Short_Literal 0x4
000d 029f 011b | | Declare_Subprogram INIT_0118,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 4800 |H | Short_Literal 0x0
0011 480f |H | Short_Literal 0xf
0012 00e3 | | Load_Encached Natural_Cache
0013 03f9 | | Declare_Type Discrete,Constrained,Visible
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 4801 |H | Short_Literal 0x1
0023 480f |H | Short_Literal 0xf
0024 e20e | | Load 0x1,0xe
0025 03f9 | | Declare_Type Discrete,Constrained,Visible
0026 c217 | | Store 0x1,0x17
0027 4801 |H | Short_Literal 0x1
0028 480f |H | Short_Literal 0xf
0029 00e2 | | Load_Encached Integer_Cache
002a 02a0 | | Declare_Subprogram Null_Subprogram
002b 4801 |H | Short_Literal 0x1
002c 035e | ^ | Declare_Type Array,Defined,Visible
002d c218 | | Store 0x1,0x18
002e e001 | | Load 0x0,0x1
002f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0030 00e1 | | Load_Encached Boolean_Cache
0031 e20e | | Load 0x1,0xe
0032 e218 | | Load 0x1,0x18
0033 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0035 4804 |H | Short_Literal 0x4
0036 032e | . | Declare_Type Record,Defined,Visible
0037 c214 | | Store 0x1,0x14
0038 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated
003a c215 | | Store 0x1,0x15
003b 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
003d c216 | | Store 0x1,0x16
003e 029a 0343 | C| Declare_Subprogram INIT_0340,For_Outer_Call,Visible,Unelaborated
0040 c213 | | Store 0x1,0x13
0041 00bf | | Action Accept_Activation
0042 00e3 | | Load_Encached Natural_Cache
0043 00e8 | | Load_Encached Character_Cache
0044 00e8 | | Load_Encached Character_Cache
0045 02a0 | | Declare_Subprogram Null_Subprogram
0046 4803 |H | Short_Literal 0x3
0047 032d | - | Declare_Type Record,Defined
0048 4801 |H | Short_Literal 0x1
0049 480d |H | Short_Literal 0xd
004a e21d | | Load 0x1,0x1d
004b 02a0 | | Declare_Subprogram Null_Subprogram
004c 4801 |H | Short_Literal 0x1
004d 035d | ] | Declare_Type Array,Defined
004e 00d8 | | Load_Top At_Offset_0
004f 0337 | 7 | Declare_Variable Array
0050 00d8 | | Load_Top At_Offset_0
0051 0335 | 5 | Declare_Variable Array,Duplicate
0052 00cd | | Action Spare6_Action
0053 e21d | | Load 0x1,0x1d
0054 0322 | " | Declare_Variable Record
0055 4be8 |K | Short_Literal 0x3e8
0056 e221 | ! | Load 0x1,0x21
0057 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0058 486d |Hm | Short_Literal 0x6d
0059 e221 | ! | Load 0x1,0x21
005a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
005b 4820 |H | Short_Literal 0x20
005c e221 | ! | Load 0x1,0x21
005d 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
005e 4801 |H | Short_Literal 0x1
005f e220 | | Load 0x1,0x20
0060 01d6 | | Execute Vector,Field_Write
0061 e21d | | Load 0x1,0x1d
0062 0322 | " | Declare_Variable Record
0063 4b84 |K | Short_Literal 0x384
0064 e221 | ! | Load 0x1,0x21
0065 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0066 4863 |Hc | Short_Literal 0x63
0067 e221 | ! | Load 0x1,0x21
0068 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0069 486d |Hm | Short_Literal 0x6d
006a e221 | ! | Load 0x1,0x21
006b 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
006c 4802 |H | Short_Literal 0x2
006d e220 | | Load 0x1,0x20
006e 01d6 | | Execute Vector,Field_Write
006f e21d | | Load 0x1,0x1d
0070 0322 | " | Declare_Variable Record
0071 49f4 |I | Short_Literal 0x1f4
0072 e221 | ! | Load 0x1,0x21
0073 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0074 4864 |Hd | Short_Literal 0x64
0075 e221 | ! | Load 0x1,0x21
0076 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0077 4820 |H | Short_Literal 0x20
0078 e221 | ! | Load 0x1,0x21
0079 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
007a 4803 |H | Short_Literal 0x3
007b e220 | | Load 0x1,0x20
007c 01d6 | | Execute Vector,Field_Write
007d e21d | | Load 0x1,0x1d
007e 0322 | " | Declare_Variable Record
007f 4990 |I | Short_Literal 0x190
0080 e221 | ! | Load 0x1,0x21
0081 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0082 4863 |Hc | Short_Literal 0x63
0083 e221 | ! | Load 0x1,0x21
0084 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0085 4864 |Hd | Short_Literal 0x64
0086 e221 | ! | Load 0x1,0x21
0087 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0088 4804 |H | Short_Literal 0x4
0089 e220 | | Load 0x1,0x20
008a 01d6 | | Execute Vector,Field_Write
008b e21d | | Load 0x1,0x1d
008c 0322 | " | Declare_Variable Record
008d 4864 |Hd | Short_Literal 0x64
008e e221 | ! | Load 0x1,0x21
008f 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0090 4863 |Hc | Short_Literal 0x63
0091 e221 | ! | Load 0x1,0x21
0092 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0093 4820 |H | Short_Literal 0x20
0094 e221 | ! | Load 0x1,0x21
0095 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0096 4805 |H | Short_Literal 0x5
0097 e220 | | Load 0x1,0x20
0098 01d6 | | Execute Vector,Field_Write
0099 e21d | | Load 0x1,0x1d
009a 0322 | " | Declare_Variable Record
009b 485a |HZ | Short_Literal 0x5a
009c e221 | ! | Load 0x1,0x21
009d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
009e 4878 |Hx | Short_Literal 0x78
009f e221 | ! | Load 0x1,0x21
00a0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a1 4863 |Hc | Short_Literal 0x63
00a2 e221 | ! | Load 0x1,0x21
00a3 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00a4 4806 |H | Short_Literal 0x6
00a5 e220 | | Load 0x1,0x20
00a6 01d6 | | Execute Vector,Field_Write
00a7 e21d | | Load 0x1,0x1d
00a8 0322 | " | Declare_Variable Record
00a9 4832 |H2 | Short_Literal 0x32
00aa e221 | ! | Load 0x1,0x21
00ab 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ac 486c |Hl | Short_Literal 0x6c
00ad e221 | ! | Load 0x1,0x21
00ae 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00af 4820 |H | Short_Literal 0x20
00b0 e221 | ! | Load 0x1,0x21
00b1 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00b2 4807 |H | Short_Literal 0x7
00b3 e220 | | Load 0x1,0x20
00b4 01d6 | | Execute Vector,Field_Write
00b5 e21d | | Load 0x1,0x1d
00b6 0322 | " | Declare_Variable Record
00b7 4828 |H( | Short_Literal 0x28
00b8 e221 | ! | Load 0x1,0x21
00b9 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ba 4878 |Hx | Short_Literal 0x78
00bb e221 | ! | Load 0x1,0x21
00bc 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00bd 486c |Hl | Short_Literal 0x6c
00be e221 | ! | Load 0x1,0x21
00bf 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00c0 4808 |H | Short_Literal 0x8
00c1 e220 | | Load 0x1,0x20
00c2 01d6 | | Execute Vector,Field_Write
00c3 e21d | | Load 0x1,0x1d
00c4 0322 | " | Declare_Variable Record
00c5 480a |H | Short_Literal 0xa
00c6 e221 | ! | Load 0x1,0x21
00c7 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00c8 4878 |Hx | Short_Literal 0x78
00c9 e221 | ! | Load 0x1,0x21
00ca 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00cb 4820 |H | Short_Literal 0x20
00cc e221 | ! | Load 0x1,0x21
00cd 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ce 4809 |H | Short_Literal 0x9
00cf e220 | | Load 0x1,0x20
00d0 01d6 | | Execute Vector,Field_Write
00d1 e21d | | Load 0x1,0x1d
00d2 0322 | " | Declare_Variable Record
00d3 4809 |H | Short_Literal 0x9
00d4 e221 | ! | Load 0x1,0x21
00d5 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00d6 4869 |Hi | Short_Literal 0x69
00d7 e221 | ! | Load 0x1,0x21
00d8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d9 4878 |Hx | Short_Literal 0x78
00da e221 | ! | Load 0x1,0x21
00db 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00dc 480a |H | Short_Literal 0xa
00dd e220 | | Load 0x1,0x20
00de 01d6 | | Execute Vector,Field_Write
00df e21d | | Load 0x1,0x1d
00e0 0322 | " | Declare_Variable Record
00e1 4805 |H | Short_Literal 0x5
00e2 e221 | ! | Load 0x1,0x21
00e3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00e4 4876 |Hv | Short_Literal 0x76
00e5 e221 | ! | Load 0x1,0x21
00e6 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00e7 4820 |H | Short_Literal 0x20
00e8 e221 | ! | Load 0x1,0x21
00e9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00ea 480b |H | Short_Literal 0xb
00eb e220 | | Load 0x1,0x20
00ec 01d6 | | Execute Vector,Field_Write
00ed e21d | | Load 0x1,0x1d
00ee 0322 | " | Declare_Variable Record
00ef 4804 |H | Short_Literal 0x4
00f0 e221 | ! | Load 0x1,0x21
00f1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f2 4869 |Hi | Short_Literal 0x69
00f3 e221 | ! | Load 0x1,0x21
00f4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f5 4876 |Hv | Short_Literal 0x76
00f6 e221 | ! | Load 0x1,0x21
00f7 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00f8 480c |H | Short_Literal 0xc
00f9 e220 | | Load 0x1,0x20
00fa 01d6 | | Execute Vector,Field_Write
00fb e21d | | Load 0x1,0x1d
00fc 0322 | " | Declare_Variable Record
00fd 4801 |H | Short_Literal 0x1
00fe e221 | ! | Load 0x1,0x21
00ff 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0100 4869 |Hi | Short_Literal 0x69
0101 e221 | ! | Load 0x1,0x21
0102 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0103 4820 |H | Short_Literal 0x20
0104 e221 | ! | Load 0x1,0x21
0105 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0106 480d |H | Short_Literal 0xd
0107 e220 | | Load 0x1,0x20
0108 01d6 | | Execute Vector,Field_Write
0109 e21f | | Load 0x1,0x1f
010a 01d4 | | Execute Vector,Structure_Write
010b 1d15 | | Execute_Immediate Reference_Lex_1,0x15
010c 00c7 | | Action Elaborate_Subprogram
010d 1d16 | | Execute_Immediate Reference_Lex_1,0x16
010e 00c7 | | Action Elaborate_Subprogram
010f 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0110 00c7 | | Action Elaborate_Subprogram
0111 BODY_0008:
0111 00bc | | Action Signal_Activated
0112 00bb | | Action Signal_Completion
0113 0000 0000 | | .BLANK 0000[0x5]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b 4607 |F | Jump_Case 0x8
011c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
011d 7806 |x | Jump 0x124 ; case 0x1
011e 7809 |x | Jump 0x128 ; case 0x2
011f 780d |x | Jump 0x12d ; case 0x3
0120 7810 |x | Jump 0x131 ; case 0x4
0121 7811 |x | Jump 0x133 ; case 0x5
0122 7812 |x | Jump 0x135 ; case 0x6
0123 7815 |x | Jump 0x139 ; case 0x7
0124 00da | | Load_Top At_Offset_2
0125 0091 040e | | Action Push_String_Extended_Indexed,0x40e ; "ARABIC"
0127 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0128 00db | | Load_Top At_Offset_3
0129 00db | | Load_Top At_Offset_3
012a 00e0 | | Load_Encached Standard_Cache
012b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
012c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
012d 00da | | Load_Top At_Offset_2
012e 00e0 | | Load_Encached Standard_Cache
012f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0130 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0131 00db | | Load_Top At_Offset_3
0132 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0133 00db | | Load_Top At_Offset_3
0134 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0135 e20d | | Load 0x1,0xd
0136 00dc | | Load_Top At_Offset_4
0137 0267 | g | Execute Discrete,Predecessor
0138 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0139 e20d | | Load 0x1,0xd
013a 00dc | | Load_Top At_Offset_4
013b 0268 | h | Execute Discrete,Successor
013c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
013d 0000 0000 | | .XXX[0x3]
013f 0000 | |
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0151 | Q | .CONST 0x0151 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0005 | | .CONST 0x0005 ; Number of locals
0143 INIT_0140:
0143 e5ff | | Load 0x2,-0x1
0144 00e3 | | Load_Encached Natural_Cache
0145 03f1 | | Declare_Variable Discrete,With_Value
0146 e5fd | | Load 0x2,-0x3
0147 e001 | | Load 0x0,0x1
0148 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0149 1813 | | Execute Package,Field_Execute,Field_Number 0x13
014a 0a01 | | Execute_Immediate Plus,0x1
014b 00e3 | | Load_Encached Natural_Cache
014c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
014d 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
014f 029f 03bb | | Declare_Subprogram INIT_03b8,For_Call
0151 BODY_0140:
0151 e402 | | Load 0x2,0x2
0152 7007 |p | Jump_Nonzero 0x15a
0153 e5fd | | Load 0x2,-0x3
0154 4830 |H0 | Short_Literal 0x30
0155 e001 | | Load 0x0,0x1
0156 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0157 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0158 c5fd | | Store 0x2,-0x3
0159 4503 |E | Exit_Suprogram New_Top_Offset 0x3
015a e5fe | | Load 0x2,-0x2
015b 4604 |F | Jump_Case 0x5
015c 7826 |x& | Jump 0x183 ; case 0x0
015d 7831 |x1 | Jump 0x18f ; case 0x1
015e 7839 |x9 | Jump 0x198 ; case 0x2
015f 7841 |xA | Jump 0x1a1 ; case 0x3
0160 7800 |x | Jump 0x161 ; case 0x4
0161 00cf | | Action Mark_Auxiliary
0162 781b |x | Jump 0x17e
0163 e5fd | | Load 0x2,-0x3
0164 e402 | | Load 0x2,0x2
0165 0aff | | Execute_Immediate Plus,-0x1
0166 481a |H | Short_Literal 0x1a
0167 026e | n | Execute Discrete,Modulo
0168 0a41 | A | Execute_Immediate Plus,0x41
0169 00d8 | | Load_Top At_Offset_0
016a 00e8 | | Load_Encached Character_Cache
016b 0260 | ` | Execute Discrete,In_Type
016c 7001 |p | Jump_Nonzero 0x16e
016d 0801 | | Execute_Immediate Raise,0x1
016e e403 | | Load 0x2,0x3
016f 00d8 | | Load_Top At_Offset_0
0170 00e4 | | Load_Encached Positive_Cache
0171 0260 | ` | Execute Discrete,In_Type
0172 7001 |p | Jump_Nonzero 0x174
0173 0801 | | Execute_Immediate Raise,0x1
0174 e001 | | Load 0x0,0x1
0175 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0176 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0177 c5fd | | Store 0x2,-0x3
0178 e402 | | Load 0x2,0x2
0179 0aff | | Execute_Immediate Plus,-0x1
017a 481a |H | Short_Literal 0x1a
017b 0270 | p | Execute Discrete,Divide
017c c402 | | Store 0x2,0x2
017d 00c9 | | Action Pop_Auxiliary_Loop
017e e402 | | Load 0x2,0x2
017f 0c01 | | Execute_Immediate Greater_Equal,0x1
0180 77e2 |w | Jump_Nonzero 0x163
0181 00ce | | Action Pop_Auxiliary
0182 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0183 e5fd | | Load 0x2,-0x3
0184 4820 |H | Short_Literal 0x20
0185 4800 |H | Short_Literal 0x0
0186 480a |H | Short_Literal 0xa
0187 e402 | | Load 0x2,0x2
0188 e002 | | Load 0x0,0x2
0189 1816 | | Execute Package,Field_Execute,Field_Number 0x16
018a e001 | | Load 0x0,0x1
018b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
018c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
018d c5fd | | Store 0x2,-0x3
018e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
018f 00cf | | Action Mark_Auxiliary
0190 e21f | | Load 0x1,0x1f
0191 01d9 | | Execute Vector,Reverse_Bounds
0192 0007 | | Action Break_Optional
0193 8404 | | Call 0x2,0x4
0194 00c8 | | Action Pop_Auxiliary_Range
0195 3ffd |? | Loop_Increasing 0x193
0196 00ce | | Action Pop_Auxiliary
0197 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0198 00cf | | Action Mark_Auxiliary
0199 e21f | | Load 0x1,0x1f
019a 01d9 | | Execute Vector,Reverse_Bounds
019b 0007 | | Action Break_Optional
019c 8405 | | Call 0x2,0x5
019d 00c8 | | Action Pop_Auxiliary_Range
019e 3ffd |? | Loop_Increasing 0x19c
019f 00ce | | Action Pop_Auxiliary
01a0 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01a1 00cf | | Action Mark_Auxiliary
01a2 781b |x | Jump 0x1be
01a3 e5fd | | Load 0x2,-0x3
01a4 e402 | | Load 0x2,0x2
01a5 0aff | | Execute_Immediate Plus,-0x1
01a6 481a |H | Short_Literal 0x1a
01a7 026e | n | Execute Discrete,Modulo
01a8 0a61 | a | Execute_Immediate Plus,0x61
01a9 00d8 | | Load_Top At_Offset_0
01aa 00e8 | | Load_Encached Character_Cache
01ab 0260 | ` | Execute Discrete,In_Type
01ac 7001 |p | Jump_Nonzero 0x1ae
01ad 0801 | | Execute_Immediate Raise,0x1
01ae e403 | | Load 0x2,0x3
01af 00d8 | | Load_Top At_Offset_0
01b0 00e4 | | Load_Encached Positive_Cache
01b1 0260 | ` | Execute Discrete,In_Type
01b2 7001 |p | Jump_Nonzero 0x1b4
01b3 0801 | | Execute_Immediate Raise,0x1
01b4 e001 | | Load 0x0,0x1
01b5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01b6 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01b7 c5fd | | Store 0x2,-0x3
01b8 e402 | | Load 0x2,0x2
01b9 0aff | | Execute_Immediate Plus,-0x1
01ba 481a |H | Short_Literal 0x1a
01bb 0270 | p | Execute Discrete,Divide
01bc c402 | | Store 0x2,0x2
01bd 00c9 | | Action Pop_Auxiliary_Loop
01be e402 | | Load 0x2,0x2
01bf 0c01 | | Execute_Immediate Greater_Equal,0x1
01c0 77e2 |w | Jump_Nonzero 0x1a3
01c1 00ce | | Action Pop_Auxiliary
01c2 4503 |E | Exit_Suprogram New_Top_Offset 0x3
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01d9 | | .CONST 0x01d9 ; Address of begin
01c9 032b | + | .CONST 0x032b ; Address of exception handler
01ca 0008 | | .CONST 0x0008 ; Number of locals
01cb INIT_01c8:
01cb e20e | | Load 0x1,0xe
01cc 0007 | | Action Break_Optional
01cd 00d8 | | Load_Top At_Offset_0
01ce 0007 | | Action Break_Optional
01cf 00e3 | | Load_Encached Natural_Cache
01d0 e5ff | | Load 0x2,-0x1
01d1 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01d2 e001 | | Load 0x0,0x1
01d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01d5 e001 | | Load 0x0,0x1
01d6 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d7 00e1 | | Load_Encached Boolean_Cache
01d8 00e1 | | Load_Encached Boolean_Cache
01d9 BODY_01c8:
01d9 e5ff | | Load 0x2,-0x1
01da 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01db 6803 |h | Jump_Zero 0x1df
01dc 4801 |H | Short_Literal 0x1
01dd a402 | | Store_Unchecked 0x2,0x2
01de 7803 |x | Jump 0x1e2
01df e5ff | | Load 0x2,-0x1
01e0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e1 a402 | | Store_Unchecked 0x2,0x2
01e2 e5ff | | Load 0x2,-0x1
01e3 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01e4 a403 | | Store_Unchecked 0x2,0x3
01e5 e405 | | Load 0x2,0x5
01e6 01dd | | Execute Vector,First
01e7 c404 | | Store 0x2,0x4
01e8 00cf | | Action Mark_Auxiliary
01e9 e402 | | Load 0x2,0x2
01ea 0aff | | Execute_Immediate Plus,-0x1
01eb 4801 |H | Short_Literal 0x1
01ec 0263 | c | Execute Discrete,Above_Bound
01ed 701a |p | Jump_Nonzero 0x208
01ee 00cf | | Action Mark_Auxiliary
01ef e404 | | Load 0x2,0x4
01f0 e405 | | Load 0x2,0x5
01f1 01d7 | | Execute Vector,Field_Read
01f2 0f7e | ~ | Execute_Immediate Equal,0x7e
01f3 680c |h | Jump_Zero 0x200
01f4 e404 | | Load 0x2,0x4
01f5 0a01 | | Execute_Immediate Plus,0x1
01f6 c404 | | Store 0x2,0x4
01f7 e404 | | Load 0x2,0x4
01f8 e405 | | Load 0x2,0x5
01f9 01d7 | | Execute Vector,Field_Read
01fa 0f7c | | | Execute_Immediate Equal,0x7c
01fb 6804 |h | Jump_Zero 0x200
01fc e404 | | Load 0x2,0x4
01fd 0a01 | | Execute_Immediate Plus,0x1
01fe c404 | | Store 0x2,0x4
01ff 7805 |x | Jump 0x205
0200 e404 | | Load 0x2,0x4
0201 0a01 | | Execute_Immediate Plus,0x1
0202 c404 | | Store 0x2,0x4
0203 00c9 | | Action Pop_Auxiliary_Loop
0204 7fea | | Jump 0x1ef
0205 00ce | | Action Pop_Auxiliary
0206 00c8 | | Action Pop_Auxiliary_Range
0207 3fe6 |? | Loop_Increasing 0x1ee
0208 00ce | | Action Pop_Auxiliary
0209 4801 |H | Short_Literal 0x1
020a a407 | | Store_Unchecked 0x2,0x7
020b 00cf | | Action Mark_Auxiliary
020c 4801 |H | Short_Literal 0x1
020d a408 | | Store_Unchecked 0x2,0x8
020e 00cf | | Action Mark_Auxiliary
020f 78fe |x | Jump 0x30e
0210 00cf | | Action Mark_Auxiliary
0211 78ea |x | Jump 0x2fc
0212 e404 | | Load 0x2,0x4
0213 0a01 | | Execute_Immediate Plus,0x1
0214 c404 | | Store 0x2,0x4
0215 e404 | | Load 0x2,0x4
0216 e405 | | Load 0x2,0x5
0217 01d7 | | Execute Vector,Field_Read
0218 00d8 | | Load_Top At_Offset_0
0219 0d2b | + | Execute_Immediate Less,0x2b
021a 7063 |pc | Jump_Nonzero 0x27e
021b 0ad5 | | Execute_Immediate Plus,-0x2b
021c 4654 |FT | Jump_Case 0x55
021d 78b8 |x | Jump 0x2d6 ; case 0x0
021e 7853 |xS | Jump 0x272 ; case 0x1
021f 78c3 |x | Jump 0x2e3 ; case 0x2
0220 7851 |xQ | Jump 0x272 ; case 0x3
0221 7850 |xP | Jump 0x272 ; case 0x4
0222 784f |xO | Jump 0x272 ; case 0x5
0223 785c |x\ | Jump 0x280 ; case 0x6
0224 784d |xM | Jump 0x272 ; case 0x7
0225 784c |xL | Jump 0x272 ; case 0x8
0226 784b |xK | Jump 0x272 ; case 0x9
0227 784a |xJ | Jump 0x272 ; case 0xa
0228 7849 |xI | Jump 0x272 ; case 0xb
0229 7848 |xH | Jump 0x272 ; case 0xc
022a 7847 |xG | Jump 0x272 ; case 0xd
022b 7846 |xF | Jump 0x272 ; case 0xe
022c 7845 |xE | Jump 0x272 ; case 0xf
022d 7844 |xD | Jump 0x272 ; case 0x10
022e 7843 |xC | Jump 0x272 ; case 0x11
022f 7842 |xB | Jump 0x272 ; case 0x12
0230 7841 |xA | Jump 0x272 ; case 0x13
0231 7840 |x@ | Jump 0x272 ; case 0x14
0232 783f |x? | Jump 0x272 ; case 0x15
0233 786c |xl | Jump 0x2a0 ; case 0x16
0234 783d |x= | Jump 0x272 ; case 0x17
0235 783c |x< | Jump 0x272 ; case 0x18
0236 783b |x; | Jump 0x272 ; case 0x19
0237 783a |x: | Jump 0x272 ; case 0x1a
0238 7839 |x9 | Jump 0x272 ; case 0x1b
0239 7838 |x8 | Jump 0x272 ; case 0x1c
023a 7837 |x7 | Jump 0x272 ; case 0x1d
023b 7884 |x | Jump 0x2c0 ; case 0x1e
023c 7835 |x5 | Jump 0x272 ; case 0x1f
023d 7834 |x4 | Jump 0x272 ; case 0x20
023e 7833 |x3 | Jump 0x272 ; case 0x21
023f 7832 |x2 | Jump 0x272 ; case 0x22
0240 7831 |x1 | Jump 0x272 ; case 0x23
0241 7830 |x0 | Jump 0x272 ; case 0x24
0242 782f |x/ | Jump 0x272 ; case 0x25
0243 782e |x. | Jump 0x272 ; case 0x26
0244 782d |x- | Jump 0x272 ; case 0x27
0245 782c |x, | Jump 0x272 ; case 0x28
0246 782b |x+ | Jump 0x272 ; case 0x29
0247 782a |x* | Jump 0x272 ; case 0x2a
0248 7829 |x) | Jump 0x272 ; case 0x2b
0249 7828 |x( | Jump 0x272 ; case 0x2c
024a 7827 |x' | Jump 0x272 ; case 0x2d
024b 7826 |x& | Jump 0x272 ; case 0x2e
024c 7825 |x% | Jump 0x272 ; case 0x2f
024d 7824 |x$ | Jump 0x272 ; case 0x30
024e 7823 |x# | Jump 0x272 ; case 0x31
024f 7822 |x" | Jump 0x272 ; case 0x32
0250 7821 |x! | Jump 0x272 ; case 0x33
0251 7820 |x | Jump 0x272 ; case 0x34
0252 781f |x | Jump 0x272 ; case 0x35
0253 783c |x< | Jump 0x290 ; case 0x36
0254 781d |x | Jump 0x272 ; case 0x37
0255 781c |x | Jump 0x272 ; case 0x38
0256 781b |x | Jump 0x272 ; case 0x39
0257 781a |x | Jump 0x272 ; case 0x3a
0258 7819 |x | Jump 0x272 ; case 0x3b
0259 7818 |x | Jump 0x272 ; case 0x3c
025a 7817 |x | Jump 0x272 ; case 0x3d
025b 7854 |xT | Jump 0x2b0 ; case 0x3e
025c 7815 |x | Jump 0x272 ; case 0x3f
025d 7814 |x | Jump 0x272 ; case 0x40
025e 7813 |x | Jump 0x272 ; case 0x41
025f 7812 |x | Jump 0x272 ; case 0x42
0260 7811 |x | Jump 0x272 ; case 0x43
0261 7810 |x | Jump 0x272 ; case 0x44
0262 780f |x | Jump 0x272 ; case 0x45
0263 780e |x | Jump 0x272 ; case 0x46
0264 780d |x | Jump 0x272 ; case 0x47
0265 780c |x | Jump 0x272 ; case 0x48
0266 780b |x | Jump 0x272 ; case 0x49
0267 780a |x | Jump 0x272 ; case 0x4a
0268 7809 |x | Jump 0x272 ; case 0x4b
0269 7808 |x | Jump 0x272 ; case 0x4c
026a 7807 |x | Jump 0x272 ; case 0x4d
026b 7806 |x | Jump 0x272 ; case 0x4e
026c 7805 |x | Jump 0x272 ; case 0x4f
026d 7804 |x | Jump 0x272 ; case 0x50
026e 7861 |xa | Jump 0x2d0 ; case 0x51
026f 7802 |x | Jump 0x272 ; case 0x52
0270 7890 |x | Jump 0x301 ; case 0x53
0271 7800 |x | Jump 0x272 ; case 0x54
0272 e404 | | Load 0x2,0x4
0273 e405 | | Load 0x2,0x5
0274 01d7 | | Execute Vector,Field_Read
0275 0092 0413 | | Action Push_String_Extended,0x413 ; "'~"
0277 01cb | | Execute Vector,Append
0278 0092 0414 | | Action Push_String_Extended,0x414 ; "' isn't a valid number control sequence"
027a 01cc | | Execute Vector,Catenate
027b e003 | | Load 0x0,0x3
027c 180e | | Execute Package,Field_Execute,Field_Number 0xe
027d 7872 |xr | Jump 0x2f0
027e 00d1 | | Pop_Control Pop_Count_1
027f 7ff2 | | Jump 0x272
0280 e406 | | Load 0x2,0x6
0281 4800 |H | Short_Literal 0x0
0282 e402 | | Load 0x2,0x2
0283 e5ff | | Load 0x2,-0x1
0284 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0285 01d7 | | Execute Vector,Field_Read
0286 00d8 | | Load_Top At_Offset_0
0287 00e3 | | Load_Encached Natural_Cache
0288 0260 | ` | Execute Discrete,In_Type
0289 7001 |p | Jump_Nonzero 0x28b
028a 0801 | | Execute_Immediate Raise,0x1
028b 8215 | | Call 0x1,0x15
028c c406 | | Store 0x2,0x6
028d 4800 |H | Short_Literal 0x0
028e a408 | | Store_Unchecked 0x2,0x8
028f 7860 |x` | Jump 0x2f0
0290 e406 | | Load 0x2,0x6
0291 4803 |H | Short_Literal 0x3
0292 e402 | | Load 0x2,0x2
0293 e5ff | | Load 0x2,-0x1
0294 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0295 01d7 | | Execute Vector,Field_Read
0296 00d8 | | Load_Top At_Offset_0
0297 00e3 | | Load_Encached Natural_Cache
0298 0260 | ` | Execute Discrete,In_Type
0299 7001 |p | Jump_Nonzero 0x29b
029a 0801 | | Execute_Immediate Raise,0x1
029b 8215 | | Call 0x1,0x15
029c c406 | | Store 0x2,0x6
029d 4800 |H | Short_Literal 0x0
029e a408 | | Store_Unchecked 0x2,0x8
029f 7850 |xP | Jump 0x2f0
02a0 e406 | | Load 0x2,0x6
02a1 4804 |H | Short_Literal 0x4
02a2 e402 | | Load 0x2,0x2
02a3 e5ff | | Load 0x2,-0x1
02a4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02a5 01d7 | | Execute Vector,Field_Read
02a6 00d8 | | Load_Top At_Offset_0
02a7 00e3 | | Load_Encached Natural_Cache
02a8 0260 | ` | Execute Discrete,In_Type
02a9 7001 |p | Jump_Nonzero 0x2ab
02aa 0801 | | Execute_Immediate Raise,0x1
02ab 8215 | | Call 0x1,0x15
02ac c406 | | Store 0x2,0x6
02ad 4800 |H | Short_Literal 0x0
02ae a408 | | Store_Unchecked 0x2,0x8
02af 7840 |x@ | Jump 0x2f0
02b0 e406 | | Load 0x2,0x6
02b1 4801 |H | Short_Literal 0x1
02b2 e402 | | Load 0x2,0x2
02b3 e5ff | | Load 0x2,-0x1
02b4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02b5 01d7 | | Execute Vector,Field_Read
02b6 00d8 | | Load_Top At_Offset_0
02b7 00e3 | | Load_Encached Natural_Cache
02b8 0260 | ` | Execute Discrete,In_Type
02b9 7001 |p | Jump_Nonzero 0x2bb
02ba 0801 | | Execute_Immediate Raise,0x1
02bb 8215 | | Call 0x1,0x15
02bc c406 | | Store 0x2,0x6
02bd 4800 |H | Short_Literal 0x0
02be a408 | | Store_Unchecked 0x2,0x8
02bf 7830 |x0 | Jump 0x2f0
02c0 e406 | | Load 0x2,0x6
02c1 4802 |H | Short_Literal 0x2
02c2 e402 | | Load 0x2,0x2
02c3 e5ff | | Load 0x2,-0x1
02c4 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02c5 01d7 | | Execute Vector,Field_Read
02c6 00d8 | | Load_Top At_Offset_0
02c7 00e3 | | Load_Encached Natural_Cache
02c8 0260 | ` | Execute Discrete,In_Type
02c9 7001 |p | Jump_Nonzero 0x2cb
02ca 0801 | | Execute_Immediate Raise,0x1
02cb 8215 | | Call 0x1,0x15
02cc c406 | | Store 0x2,0x6
02cd 4800 |H | Short_Literal 0x0
02ce a408 | | Store_Unchecked 0x2,0x8
02cf 7820 |x | Jump 0x2f0
02d0 e404 | | Load 0x2,0x4
02d1 0a01 | | Execute_Immediate Plus,0x1
02d2 c404 | | Store 0x2,0x4
02d3 00ce | | Action Pop_Auxiliary
02d4 00ce | | Action Pop_Auxiliary
02d5 783e |x> | Jump 0x314
02d6 e404 | | Load 0x2,0x4
02d7 0a01 | | Execute_Immediate Plus,0x1
02d8 c404 | | Store 0x2,0x4
02d9 e408 | | Load 0x2,0x8
02da 6803 |h | Jump_Zero 0x2de
02db e407 | | Load 0x2,0x7
02dc 7013 |p | Jump_Nonzero 0x2f0
02dd 7823 |x# | Jump 0x301
02de e402 | | Load 0x2,0x2
02df e403 | | Load 0x2,0x3
02e0 027c | | | Execute Discrete,Less
02e1 680e |h | Jump_Zero 0x2f0
02e2 781e |x | Jump 0x301
02e3 e404 | | Load 0x2,0x4
02e4 0a01 | | Execute_Immediate Plus,0x1
02e5 c404 | | Store 0x2,0x4
02e6 e408 | | Load 0x2,0x8
02e7 6803 |h | Jump_Zero 0x2eb
02e8 e407 | | Load 0x2,0x7
02e9 6806 |h | Jump_Zero 0x2f0
02ea 7816 |x | Jump 0x301
02eb e402 | | Load 0x2,0x2
02ec e403 | | Load 0x2,0x3
02ed 027b | { | Execute Discrete,Greater_Equal
02ee 6801 |h | Jump_Zero 0x2f0
02ef 7811 |x | Jump 0x301
02f0 e404 | | Load 0x2,0x4
02f1 0a01 | | Execute_Immediate Plus,0x1
02f2 c404 | | Store 0x2,0x4
02f3 e404 | | Load 0x2,0x4
02f4 e405 | | Load 0x2,0x5
02f5 01dc | | Execute Vector,Last
02f6 027d | } | Execute Discrete,Greater
02f7 6803 |h | Jump_Zero 0x2fb
02f8 00ce | | Action Pop_Auxiliary
02f9 00ce | | Action Pop_Auxiliary
02fa 7819 |x | Jump 0x314
02fb 00c9 | | Action Pop_Auxiliary_Loop
02fc e404 | | Load 0x2,0x4
02fd e405 | | Load 0x2,0x5
02fe 01d7 | | Execute Vector,Field_Read
02ff 0f7e | ~ | Execute_Immediate Equal,0x7e
0300 7711 |w | Jump_Nonzero 0x212
0301 00ce | | Action Pop_Auxiliary
0302 e406 | | Load 0x2,0x6
0303 e404 | | Load 0x2,0x4
0304 e405 | | Load 0x2,0x5
0305 01d7 | | Execute Vector,Field_Read
0306 e001 | | Load 0x0,0x1
0307 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0308 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0309 c406 | | Store 0x2,0x6
030a e404 | | Load 0x2,0x4
030b 0a01 | | Execute_Immediate Plus,0x1
030c c404 | | Store 0x2,0x4
030d 00c9 | | Action Pop_Auxiliary_Loop
030e e404 | | Load 0x2,0x4
030f e405 | | Load 0x2,0x5
0310 01dc | | Execute Vector,Last
0311 027a | z | Execute Discrete,Less_Equal
0312 76fd |v | Jump_Nonzero 0x210
0313 00ce | | Action Pop_Auxiliary
0314 e5fe | | Load 0x2,-0x2
0315 e406 | | Load 0x2,0x6
0316 e001 | | Load 0x0,0x1
0317 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0318 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0319 c5fe | | Store 0x2,-0x2
031a e406 | | Load 0x2,0x6
031b e001 | | Load 0x0,0x1
031c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
031d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
031e c406 | | Store 0x2,0x6
031f e402 | | Load 0x2,0x2
0320 e403 | | Load 0x2,0x3
0321 027b | { | Execute Discrete,Greater_Equal
0322 7007 |p | Jump_Nonzero 0x32a
0323 e402 | | Load 0x2,0x2
0324 0a01 | | Execute_Immediate Plus,0x1
0325 c402 | | Store 0x2,0x2
0326 4800 |H | Short_Literal 0x0
0327 a407 | | Store_Unchecked 0x2,0x7
0328 00c9 | | Action Pop_Auxiliary_Loop
0329 7ee2 |~ | Jump 0x20c
032a 4501 |E | Exit_Suprogram New_Top_Offset 0x1
032b TRAP_01c8:
032b 010e | | Execute Exception,Is_Constraint_Error
032c 6811 |h | Jump_Zero 0x33e
032d 0092 0415 | | Action Push_String_Extended,0x415 ; "Malformed number pattern '"
032f e405 | | Load 0x2,0x5
0330 01cc | | Execute Vector,Catenate
0331 0092 0416 | | Action Push_String_Extended,0x416 ; "'"
0333 01cc | | Execute Vector,Catenate
0334 e003 | | Load 0x0,0x3
0335 180e | | Execute Package,Field_Execute,Field_Number 0xe
0336 e5fe | | Load 0x2,-0x2
0337 0092 0417 | | Action Push_String_Extended,0x417 ; " ERROR "
0339 e001 | | Load 0x0,0x1
033a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
033b 181d | | Execute Package,Field_Execute,Field_Number 0x1d
033c c5fe | | Store 0x2,-0x2
033d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
033e 0100 | | Execute Exception,Raise
033f 0000 | | .XXX[0x1]
0340 ; --------------------------------------------------------------------------------------
0340 ; SUBPROGRAM
0340 ; --------------------------------------------------------------------------------------
0340 0343 | C | .CONST 0x0343 ; Address of begin
0341 0004 | | .CONST 0x0004 ; Address of exception handler
0342 0001 | | .CONST 0x0001 ; Number of locals
0343 BODY_0340:
0343 INIT_0340:
0343 e5ff | | Load 0x2,-0x1
0344 e5fe | | Load 0x2,-0x2
0345 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0346 027f | | Execute Discrete,Equal
0347 7002 |p | Jump_Nonzero 0x34a
0348 e5ff | | Load 0x2,-0x1
0349 700c |p | Jump_Nonzero 0x356
034a e5fe | | Load 0x2,-0x2
034b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
034c e5fe | | Load 0x2,-0x2
034d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
034e 01d7 | | Execute Vector,Field_Read
034f 0a01 | | Execute_Immediate Plus,0x1
0350 e5fe | | Load 0x2,-0x2
0351 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0352 e5fe | | Load 0x2,-0x2
0353 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0354 01d6 | | Execute Vector,Field_Write
0355 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0356 e5ff | | Load 0x2,-0x1
0357 e5fe | | Load 0x2,-0x2
0358 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0359 027c | | | Execute Discrete,Less
035a 680a |h | Jump_Zero 0x365
035b e5ff | | Load 0x2,-0x1
035c e5fe | | Load 0x2,-0x2
035d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
035e 01d7 | | Execute Vector,Field_Read
035f 0a01 | | Execute_Immediate Plus,0x1
0360 e5ff | | Load 0x2,-0x1
0361 e5fe | | Load 0x2,-0x2
0362 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0363 01d6 | | Execute Vector,Field_Write
0364 7821 |x! | Jump 0x386
0365 00cf | | Action Mark_Auxiliary
0366 e5fe | | Load 0x2,-0x2
0367 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0368 4801 |H | Short_Literal 0x1
0369 0263 | c | Execute Discrete,Above_Bound
036a 700c |p | Jump_Nonzero 0x377
036b 00d8 | | Load_Top At_Offset_0
036c e5fe | | Load 0x2,-0x2
036d 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
036e 01d7 | | Execute Vector,Field_Read
036f 7005 |p | Jump_Nonzero 0x375
0370 4801 |H | Short_Literal 0x1
0371 e404 | | Load 0x2,0x4
0372 e5fe | | Load 0x2,-0x2
0373 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0374 01d6 | | Execute Vector,Field_Write
0375 00c8 | | Action Pop_Auxiliary_Range
0376 3ff4 |? | Loop_Increasing 0x36b
0377 00c9 | | Action Pop_Auxiliary_Loop
0378 e5ff | | Load 0x2,-0x1
0379 e5fe | | Load 0x2,-0x2
037a 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
037b 0a01 | | Execute_Immediate Plus,0x1
037c 0263 | c | Execute Discrete,Above_Bound
037d 7007 |p | Jump_Nonzero 0x385
037e 4801 |H | Short_Literal 0x1
037f e404 | | Load 0x2,0x4
0380 e5fe | | Load 0x2,-0x2
0381 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0382 01d6 | | Execute Vector,Field_Write
0383 00c8 | | Action Pop_Auxiliary_Range
0384 3ff9 |? | Loop_Increasing 0x37e
0385 00ce | | Action Pop_Auxiliary
0386 e5ff | | Load 0x2,-0x1
0387 e5fe | | Load 0x2,-0x2
0388 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0389 4502 |E | Exit_Suprogram New_Top_Offset 0x2
038a 0000 0000 | | .BLANK 0000[0x6]
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0396 | | .CONST 0x0396 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0002 | | .CONST 0x0002 ; Number of locals
0393 INIT_0390:
0393 e408 | | Load 0x2,0x8
0394 e21f | | Load 0x1,0x1f
0395 01d5 | | Execute Vector,Field_Reference
0396 BODY_0390:
0396 00cf | | Action Mark_Auxiliary
0397 7818 |x | Jump 0x3b0
0398 e5fd | | Load 0x2,-0x3
0399 e602 | | Load 0x3,0x2
039a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
039b e001 | | Load 0x0,0x1
039c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
039d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
039e c5fd | | Store 0x2,-0x3
039f e602 | | Load 0x3,0x2
03a0 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03a1 0e20 | | Execute_Immediate Not_Equal,0x20
03a2 6807 |h | Jump_Zero 0x3aa
03a3 e5fd | | Load 0x2,-0x3
03a4 e602 | | Load 0x3,0x2
03a5 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03a6 e001 | | Load 0x0,0x1
03a7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03a8 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03a9 c5fd | | Store 0x2,-0x3
03aa e402 | | Load 0x2,0x2
03ab e602 | | Load 0x3,0x2
03ac 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03ad 0272 | r | Execute Discrete,Minus
03ae c402 | | Store 0x2,0x2
03af 00c9 | | Action Pop_Auxiliary_Loop
03b0 e402 | | Load 0x2,0x2
03b1 e602 | | Load 0x3,0x2
03b2 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03b3 027b | { | Execute Discrete,Greater_Equal
03b4 77e3 |w | Jump_Nonzero 0x398
03b5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03b6 0000 0000 | | .XXX[0x2]
03b8 ; --------------------------------------------------------------------------------------
03b8 ; SUBPROGRAM
03b8 ; --------------------------------------------------------------------------------------
03b8 03be | | .CONST 0x03be ; Address of begin
03b9 0004 | | .CONST 0x0004 ; Address of exception handler
03ba 0002 | | .CONST 0x0002 ; Number of locals
03bb INIT_03b8:
03bb e408 | | Load 0x2,0x8
03bc e21f | | Load 0x1,0x1f
03bd 01d5 | | Execute Vector,Field_Reference
03be BODY_03b8:
03be 00cf | | Action Mark_Auxiliary
03bf 781c |x | Jump 0x3dc
03c0 e5fd | | Load 0x2,-0x3
03c1 e602 | | Load 0x3,0x2
03c2 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03c3 e002 | | Load 0x0,0x2
03c4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03c5 e001 | | Load 0x0,0x1
03c6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03c7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03c8 c5fd | | Store 0x2,-0x3
03c9 e602 | | Load 0x3,0x2
03ca 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03cb 0e20 | | Execute_Immediate Not_Equal,0x20
03cc 6809 |h | Jump_Zero 0x3d6
03cd e5fd | | Load 0x2,-0x3
03ce e602 | | Load 0x3,0x2
03cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
03d0 e002 | | Load 0x0,0x2
03d1 1810 | | Execute Package,Field_Execute,Field_Number 0x10
03d2 e001 | | Load 0x0,0x1
03d3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03d4 181e | | Execute Package,Field_Execute,Field_Number 0x1e
03d5 c5fd | | Store 0x2,-0x3
03d6 e402 | | Load 0x2,0x2
03d7 e602 | | Load 0x3,0x2
03d8 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03d9 0272 | r | Execute Discrete,Minus
03da c402 | | Store 0x2,0x2
03db 00c9 | | Action Pop_Auxiliary_Loop
03dc e402 | | Load 0x2,0x2
03dd e602 | | Load 0x3,0x2
03de 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
03df 027b | { | Execute Discrete,Greater_Equal
03e0 77df |w | Jump_Nonzero 0x3c0
03e1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
03e2 0000 0000 | | .BLANK 0000[0x6]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 4608 |F | Jump_Case 0x9
03ec 7808 |x | Jump 0x3f5 ; case 0x0
03ed 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
03ee 781e |x | Jump 0x40d ; case 0x2
03ef 781d |x | Jump 0x40d ; case 0x3
03f0 781c |x | Jump 0x40d ; case 0x4
03f1 781b |x | Jump 0x40d ; case 0x5
03f2 781a |x | Jump 0x40d ; case 0x6
03f3 7819 |x | Jump 0x40d ; case 0x7
03f4 7818 |x | Jump 0x40d ; case 0x8
03f5 4801 |H | Short_Literal 0x1
03f6 e5ff | | Load 0x2,-0x1
03f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
03f8 4801 |H | Short_Literal 0x1
03f9 e5ff | | Load 0x2,-0x1
03fa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
03fb e214 | | Load 0x1,0x14
03fc 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
03fd 0337 | 7 | Declare_Variable Array
03fe 480f |H | Short_Literal 0xf
03ff 4801 |H | Short_Literal 0x1
0400 4800 |H | Short_Literal 0x0
0401 e404 | | Load 0x2,0x4
0402 e402 | | Load 0x2,0x2
0403 01d6 | | Execute Vector,Field_Write
0404 3ffb |? | Loop_Increasing 0x400
0405 e5ff | | Load 0x2,-0x1
0406 00d9 | | Load_Top At_Offset_1
0407 00d9 | | Load_Top At_Offset_1
0408 3003 |0 | Execute Record,Field_Type,Field_Number 0x3
0409 0119 | | Execute Any,Check_In_Formal_Type
040a 00d1 | | Pop_Control Pop_Count_1
040b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
040c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
040d 0869 | i | Execute_Immediate Raise,0x69
040e ; --------------------------------------------------------------------------------------
040e ; STRING TABLE
040e ; --------------------------------------------------------------------------------------
040e 0016 | | .STRTAB 0x0016->0x0419 ; "ARABIC"
040f 001a | | .STRTAB 0x001a->0x041c ; "LOWER_ROMAN"
0410 0023 | # | .STRTAB 0x0023->0x0421 ; "UPPER_ROMAN"
0411 002c | , | .STRTAB 0x002c->0x0427 ; "LOWER_ALPHA"
0412 0035 | 5 | .STRTAB 0x0035->0x042c ; "UPPER_ALPHA"
0413 003e | > | .STRTAB 0x003e->0x0432 ; "'~"
0414 003e | > | .STRTAB 0x003e->0x0433 ; "' isn't a valid number control sequence"
0415 0063 | c | .STRTAB 0x0063->0x0446 ; "Malformed number pattern '"
0416 007b | { | .STRTAB 0x007b->0x0453 ; "'"
0417 007a | z | .STRTAB 0x007a->0x0454 ; " ERROR "
0418 007f | | .STREND 0x007f->0x0457
0419 4152 4142 |ARAB| .STRTAB_STRINGS
0458 ; --------------------------------------------------------------------------------------
0458 ; Debug Table
0458 ; --------------------------------------------------------------------------------------
0458 0004 000f | | .DEBUG4 0x0004,0x000f,0x430f,0x0000,0x0001,0x0000
045e 0008 0000 | | .XXX[0xe]
0460 0000 0000 | |
0462 0400 0001 | |
0464 3160 0000 |1` |
0466 0002 0000 | |
0468 e401 0858 | X|
046a 0005 8f20 | |
046c 0000 0000 | | .BLANK 0000[0x5]
0471 0290 0000 | | .XXX[0x3]
0473 0520 | |
0474 0000 0000 | | .BLANK 0000[0x9]
047d 0400 0000 | | .XXX[0x39]
047f 3400 0000 |4 |
0481 0010 0000 | |
0483 0602 1434 | 4|
0485 f4d4 d414 | |
0487 e445 32e4 | E2 |
0489 6494 c455 |d U|
048b f555 4494 | UD |
048d c495 4494 | D |
048f 5532 7535 |U2u5|
0491 0454 3275 | T2u|
0493 3504 4592 |5 E |
0495 7432 8414 |t2 |
0497 4412 9000 |D |
0499 0004 8000 | |
049b 009a 0000 | |
049d 0001 0000 | |
049f 0002 0520 | |
04a1 1000 0001 | |
04a3 2000 0026 | &|
04a5 8000 0000 | |
04a7 4002 0000 |@ |
04a9 0000 0000 | |
04ab 0001 0000 | |
04ad 0001 0000 | |
04af 2e28 0000 |.( |
04b1 0003 0000 | |
04b3 0008 0000 | |
04b5 0600 | |
04b6 0000 0000 | | .BLANK 0000[0x6]
04bc 0001 e8f3 | | .XXX[0x2]
04be 0000 0000 | | .BLANK 0000[0x8]
04c6 4000 0000 |@ | .XXX[0xd]
04c8 0000 0020 | |
04ca 0000 098b | |
04cc 0000 0000 | |
04ce 1000 0720 | |
04d0 0842 c000 | B |
04d2 2c79 |,y |
04d3 0000 0000 | | .BLANK 0000[0x5]
04d8 0011 0000 | | .XXX[0x3]
04da 0022 | " |
04db 0000 0000 | | .BLANK 0000[0x9]
04e4 0020 0000 | | .XXX[0x18]
04e6 01a0 0000 | |
04e8 0000 8000 | |
04ea 0030 10a1 | 0 |
04ec a7a6 a6a0 | |
04ee a722 2997 | ") |
04f0 23a0 aa22 |# "|
04f2 aba0 ac93 | |
04f4 a9a8 22a1 | " |
04f6 93a9 a822 | "|
04f8 2c93 a194 |, |
04fa 20a2 2094 | |
04fc 8080 8080 | | .BLANK 8080[0x1f]
051b c000 0030 | 0| .XXX[0x2]
051d 0000 0000 | | .BLANK 0000[0x7]
0524 0f3b 7800 | ;x | .XXX[0x2]
0526 0000 0000 | | .BLANK 0000[0x7]
052d 0200 0000 | | .XXX[0xe]
052f 0000 0001 | |
0531 0000 004c | L|
0533 5800 0000 |X |
0535 0080 0039 | 9|
0537 0042 1600 | B |
0539 0163 c800 | c |
053b 0000 0000 | | .BLANK 0000[0x5]
0540 8800 0001 | | .XXX[0x3]
0542 1000 | |
0543 0000 0000 | | .BLANK 0000[0x8]
054b 0001 0000 | | .XXX[0x19]
054d 000d 0000 | |
054f 0000 0400 | |
0551 0001 8085 | |
0553 513d 3d31 |Q==1|
0555 4cb9 3125 |L 1%|
0557 392d 7d51 |9-}Q|
0559 3d3d 314c |==1L|
055b 9d4d 4115 | MA |
055d 0c9d 4d41 | MA|
055f 1164 9d0c | d |
0561 a105 1104 | |
0563 a404 | |
0564 0404 0404 | | .BLANK 0404[0x1d]
0581 0410 0200 | | .XXX[0x4]
0583 0001 8000 | |
0585 0000 0000 | | .BLANK 0000[0x6]
058b 0079 7ac0 | yz | .XXX[0x2]
058d 0000 0000 | | .BLANK 0000[0x7]
0594 0010 0000 | | .XXX[0xe]
0596 0000 0000 | |
0598 0800 0002 | |
059a 62c0 0000 |b |
059c 0004 0001 | |
059e c802 10b0 | |
05a0 000b 1e40 | @|
05a2 0000 0000 | | .BLANK 0000[0x5]
05a7 06c0 0000 | | .XXX[0x3]
05a9 0d80 | |
05aa 0000 0000 | | .BLANK 0000[0x9]
05b3 0800 0000 | | .XXX[0x22]
05b5 6800 0000 |h |
05b7 0020 0000 | |
05b9 0c04 2929 | ))|
05bb aa09 88a9 | |
05bd a8a9 ca88 | |
05bf 2a89 29e9 |* ) |
05c1 c5ca 0a49 | I|
05c3 e88a a86a | j|
05c5 8be8 2aaa | * |
05c7 8909 ea49 | I|
05c9 2b48 2a89 |+H* |
05cb 29e9 c4ea |) |
05cd 6a08 a864 |j d|
05cf ea6a 088b | j |
05d1 24e8 6508 |$ e |
05d3 2888 2520 |( % |
05d5 0000 0000 | | .BLANK 0000[0x4]
05d9 0fff ffff | | .XXX[0x6]
05db f000 0000 | |
05dd 0800 0040 | @|
05df 0000 0000 | | .BLANK 0000[0x6]
05e5 0800 2ae0 | * | .XXX[0x7]
05e7 0000 03a0 | |
05e9 0010 0000 | |
05eb 0c00 | |
05ec 0000 0000 | | .BLANK 0000[0x6]
05f2 0003 c8ce | | .XXX[0x2]
05f4 0000 0000 | | .BLANK 0000[0x8]
05fc 8000 0000 | | .XXX[0x4]
05fe 0000 0040 | @|