|
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_0a7cf5
└─⟦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 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 da80 301e | 0 | .XXX[0x1a2]
0460 2304 9a17 |# |
0462 8a01 6814 | h |
0464 9780 769c | v |
0466 9cf0 dc60 | `|
0468 8714 0468 | h|
046a f5d2 84e0 | |
046c 802c cf83 | , |
046e 1052 280e | R( |
0470 c9ac 8d15 | |
0472 c701 b41a | |
0474 30a0 39e3 |0 9 |
0476 d024 2f1c | $/ |
0478 064a f936 | J 6|
047a 8495 c028 | (|
047c e43a 2118 | :! |
047e c82b 1c04 | + |
0480 2335 7f84 |#5 |
0482 e382 9fe7 | |
0484 8790 89a8 | |
0486 e1dc fb33 | 3|
0488 09c5 0303 | |
048a b30c 270f | ' |
048c 51c0 b814 |Q |
048e 6617 9200 |f |
0490 da8a c240 | @|
0492 7001 1e6d |p m|
0494 c438 c4de | 8 |
0496 149c 5ed0 | ^ |
0498 966e 4072 | n@r|
049a c399 e85a | Z|
049c 480c 3264 |H 2d|
049e ed3a f49a | : |
04a0 334d 5e23 |3M^#|
04a2 8c30 5b88 | 0[ |
04a4 e226 14e1 | & |
04a6 3ad3 9812 |: |
04a8 0073 c3a3 | s |
04aa ec56 580e | VX |
04ac 223f 6d20 |"?m |
04ae 6365 05a4 |ce |
04b0 0940 3901 | @9 |
04b2 44d0 e3d6 |D |
04b4 1396 001c | |
04b6 8655 4d0a | UM |
04b8 e0a4 b01c | |
04ba d17a ba71 | z q|
04bc b109 cf02 | |
04be 622d 45a0 |b-E |
04c0 3801 4200 |8 B |
04c2 e49c 039a | |
04c4 003f 9923 | ? #|
04c6 4473 829b |Ds |
04c8 85aa 18e6 | |
04ca fe69 853a | i :|
04cc c49a 69ce | i |
04ce 8ae4 a4d0 | |
04d0 1ca0 e734 | 4|
04d2 05a9 351b | 5 |
04d4 84e5 031a | |
04d6 e4a4 f01f | |
04d8 0344 5264 | DRd|
04da f25c a790 | \ |
04dc e680 4c23 | L#|
04de a192 ee70 | p|
04e0 e73c 0472 | < r|
04e2 9247 88e6 | G |
04e4 036f 979a | o |
04e6 7002 700d |p p |
04e8 aa02 6d09 | m |
04ea d002 7e4d | ~M|
04ec 4620 3be1 |F ; |
04ee cd18 ebb6 | |
04f0 5645 3909 |VE9 |
04f2 9e93 4ebb | N |
04f4 2499 101f |$ |
04f6 80d4 a675 | u|
04f8 0b39 389d | 98 |
04fa 7ccf 48a7 || H |
04fc d44c 5a88 | LZ |
04fe 0c59 b629 | Y )|
0500 31d2 0215 |1 |
0502 cd4e 603b | N`;|
0504 429c a4cb |B |
0506 5d91 4f21 |] O!|
0508 d303 e7af | |
050a 57a7 8590 |W |
050c 4e98 0e89 |N |
050e 9ebf 39e0 | 9 |
0510 92ae 4c7a | Lz|
0512 e4a5 501f | P |
0514 708d ee76 |p v|
0516 3e28 ce9c |>( |
0518 eb00 7c66 | |f|
051a 2150 1ec1 |!P |
051c 758a 27a8 |u ' |
051e 0331 67f9 | 1g |
0520 4476 83c2 |Dv |
0522 e896 b80c | |
0524 8a1b ae01 | |
0526 ef36 63c1 | 6c |
0528 3f59 3110 |?Y1 |
052a eb60 2764 | `'d|
052c 063e 297c | >)||
052e 88ee 019b | |
0530 203a 2069 | : i|
0532 3803 6004 |8 ` |
0534 4699 7994 |F y |
0536 ec81 54e4 | T |
0538 05c0 1e10 | |
053a 8374 0652 | t R|
053c 70ce 84ef |p |
053e 036d 2441 | m$A|
0540 a09a 3877 | 8w|
0542 b213 be01 | |
0544 5b90 ed83 |[ |
0546 cb20 a1f0 | |
0548 1ce3 6498 | d |
054a 020d 04ec | |
054c 84f1 813b | ;|
054e 0d36 101c | 6 |
0550 93d7 0a27 | '|
0552 c202 4590 | E |
0554 f380 7320 | s |
0556 9a30 1d63 | 0 c|
0558 8898 02c4 | |
055a 90ef 86ea | |
055c b266 212e | f!.|
055e c84f 280c | O( |
0560 01fa 3109 | 1 |
0562 e603 da3d | =|
0564 34a0 3c42 |4 <B|
0566 3db4 2b94 |= + |
0568 0792 c527 | '|
056a 84f1 83a1 | |
056c c826 e343 | & C|
056e a027 9c06 | ' |
0570 c133 378c | 37 |
0572 f103 cb88 | |
0574 a670 1c41 | p A|
0576 8cea 7a63 | zc|
0578 09e7 02bb | |
057a 9628 e03c | ( <|
057c c1c8 c82b | +|
057e 9c04 86d6 | |
0580 eb94 f382 | |
0582 32d8 a690 |2 |
0584 1d30 eb66 | 0 f|
0586 13d2 0069 | i|
0588 9f37 cf1b | 7 |
058a 24a2 901e |$ |
058c 136a da47 | j G|
058e d002 eb32 | 2|
0590 ce40 7b42 | @{B|
0592 3105 e7a8 |1 |
0594 27a4 05d6 |' |
0596 fa7b 9e75 | { u|
0598 bd4d 603e | M`>|
059a 8390 60f7 | ` |
059c 6610 2e61 |f .a|
059e 2988 f402 |) |
05a0 db1f d273 | s|
05a2 b4c4 29cc | ) |
05a4 3fb1 1ea2 |? |
05a6 9ec7 97a4 | |
05a8 e405 e039 | 9|
05aa e89c de17 | |
05ac da02 116f | o|
05ae 0340 7b01 | @{ |
05b0 c32c ff68 | , h|
05b2 0e59 2edf | Y. |
05b4 11ed 003e | >|
05b6 ad5e a546 | ^ F|
05b8 a84e 3027 | N0'|
05ba bc07 6711 | g |
05bc ed03 0bc0 | |
05be 7b42 5fe4 |{B_ |
05c0 9778 0d41 | x A|
05c2 a1e1 14f7 | |
05c4 52a0 c83d |R =|
05c6 8c9f 101c | |
05c8 f12e 225b | ."[|
05ca e002 c984 | |
05cc 969a 6660 | f`|
05ce 3f20 9798 |? |
05d0 0e8a 6db1 | m |
05d2 09f5 0338 | 8|
05d4 b672 a03f | r ?|
05d6 8155 b82b | U +|
05d8 d407 252a | %*|
05da 7a84 f983 |z |
05dc 88e4 0602 | |
05de 6fd7 5cda |o \ |
05e0 17ee 011f | |
05e2 1498 81ae | |
05e4 a09f 701e | p |
05e6 f1e4 f217 | |
05e8 ee03 5e93 | ^ |
05ea 99c4 7cc2 | | |
05ec 6d10 5fb8 |m _ |
05ee 0e91 7dd7 | } |
05f0 2df4 0179 |- y|
05f2 9fce 24a7 | $ |
05f4 701d d1bc |p |
05f6 d804 5603 | V |
05f8 5b9d 981a |[ |
05fa 32e0 3cc2 |2 < |
05fc dac0 f8ee | |
05fe 7cac 2b60 || +`|