|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c0fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0398 | | .CONST 0x0398 ; 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 0147 | G | .CONST 0x0147 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0017 | | .CONST 0x0017 ; Number of locals
000b INIT_0008:
000b 029a 0153 | S| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0150
000d 029a 019b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0198
000f 00e8 | | Load_Encached Character_Cache
0010 0266 | f | Execute Discrete,Bounds
0011 00e1 | | Load_Encached Boolean_Cache
0012 02a0 | | Declare_Subprogram Null_Subprogram
0013 4801 |H | Short_Literal 0x1
0014 035e | ^ | Declare_Type Array,Defined,Visible
0015 00d8 | | Load_Top At_Offset_0
0016 0337 | 7 | Declare_Variable Array
0017 487a |Hz | Short_Literal 0x7a
0018 4861 |Ha | Short_Literal 0x61
0019 4801 |H | Short_Literal 0x1
001a e212 | | Load 0x1,0x12
001b e210 | | Load 0x1,0x10
001c 01d6 | | Execute Vector,Field_Write
001d 3ffb |? | Loop_Increasing 0x19
001e 485a |HZ | Short_Literal 0x5a
001f 4841 |HA | Short_Literal 0x41
0020 4801 |H | Short_Literal 0x1
0021 e212 | | Load 0x1,0x12
0022 e210 | | Load 0x1,0x10
0023 01d6 | | Execute Vector,Field_Write
0024 3ffb |? | Loop_Increasing 0x20
0025 4801 |H | Short_Literal 0x1
0026 485f |H_ | Short_Literal 0x5f
0027 e210 | | Load 0x1,0x10
0028 01d6 | | Execute Vector,Field_Write
0029 4840 |H@ | Short_Literal 0x40
002a 4800 |H | Short_Literal 0x0
002b 4800 |H | Short_Literal 0x0
002c e212 | | Load 0x1,0x12
002d e210 | | Load 0x1,0x10
002e 01d6 | | Execute Vector,Field_Write
002f 3ffb |? | Loop_Increasing 0x2b
0030 485e |H^ | Short_Literal 0x5e
0031 485b |H[ | Short_Literal 0x5b
0032 4800 |H | Short_Literal 0x0
0033 e212 | | Load 0x1,0x12
0034 e210 | | Load 0x1,0x10
0035 01d6 | | Execute Vector,Field_Write
0036 3ffb |? | Loop_Increasing 0x32
0037 4800 |H | Short_Literal 0x0
0038 4860 |H` | Short_Literal 0x60
0039 e210 | | Load 0x1,0x10
003a 01d6 | | Execute Vector,Field_Write
003b 487f |H | Short_Literal 0x7f
003c 487b |H{ | Short_Literal 0x7b
003d 4800 |H | Short_Literal 0x0
003e e212 | | Load 0x1,0x12
003f e210 | | Load 0x1,0x10
0040 01d6 | | Execute Vector,Field_Write
0041 3ffb |? | Loop_Increasing 0x3d
0042 e20f | | Load 0x1,0xf
0043 01c3 | | Execute Vector,Check_In_Type
0044 0129 | ) | Execute Any,Make_Visible
0045 e20f | | Load 0x1,0xf
0046 0337 | 7 | Declare_Variable Array
0047 4839 |H9 | Short_Literal 0x39
0048 4830 |H0 | Short_Literal 0x30
0049 4801 |H | Short_Literal 0x1
004a e213 | | Load 0x1,0x13
004b e211 | | Load 0x1,0x11
004c 01d6 | | Execute Vector,Field_Write
004d 3ffb |? | Loop_Increasing 0x49
004e 482f |H/ | Short_Literal 0x2f
004f 4800 |H | Short_Literal 0x0
0050 4800 |H | Short_Literal 0x0
0051 e213 | | Load 0x1,0x13
0052 e211 | | Load 0x1,0x11
0053 01d6 | | Execute Vector,Field_Write
0054 3ffb |? | Loop_Increasing 0x50
0055 487f |H | Short_Literal 0x7f
0056 483a |H: | Short_Literal 0x3a
0057 4800 |H | Short_Literal 0x0
0058 e213 | | Load 0x1,0x13
0059 e211 | | Load 0x1,0x11
005a 01d6 | | Execute Vector,Field_Write
005b 3ffb |? | Loop_Increasing 0x57
005c e20f | | Load 0x1,0xf
005d 01c3 | | Execute Vector,Check_In_Type
005e 0129 | ) | Execute Any,Make_Visible
005f e20f | | Load 0x1,0xf
0060 0337 | 7 | Declare_Variable Array
0061 487a |Hz | Short_Literal 0x7a
0062 4861 |Ha | Short_Literal 0x61
0063 4801 |H | Short_Literal 0x1
0064 e214 | | Load 0x1,0x14
0065 e212 | | Load 0x1,0x12
0066 01d6 | | Execute Vector,Field_Write
0067 3ffb |? | Loop_Increasing 0x63
0068 485a |HZ | Short_Literal 0x5a
0069 4841 |HA | Short_Literal 0x41
006a 4801 |H | Short_Literal 0x1
006b e214 | | Load 0x1,0x14
006c e212 | | Load 0x1,0x12
006d 01d6 | | Execute Vector,Field_Write
006e 3ffb |? | Loop_Increasing 0x6a
006f 4801 |H | Short_Literal 0x1
0070 485f |H_ | Short_Literal 0x5f
0071 e212 | | Load 0x1,0x12
0072 01d6 | | Execute Vector,Field_Write
0073 4839 |H9 | Short_Literal 0x39
0074 4830 |H0 | Short_Literal 0x30
0075 4801 |H | Short_Literal 0x1
0076 e214 | | Load 0x1,0x14
0077 e212 | | Load 0x1,0x12
0078 01d6 | | Execute Vector,Field_Write
0079 3ffb |? | Loop_Increasing 0x75
007a 482f |H/ | Short_Literal 0x2f
007b 4800 |H | Short_Literal 0x0
007c 4800 |H | Short_Literal 0x0
007d e214 | | Load 0x1,0x14
007e e212 | | Load 0x1,0x12
007f 01d6 | | Execute Vector,Field_Write
0080 3ffb |? | Loop_Increasing 0x7c
0081 4840 |H@ | Short_Literal 0x40
0082 483a |H: | Short_Literal 0x3a
0083 4800 |H | Short_Literal 0x0
0084 e214 | | Load 0x1,0x14
0085 e212 | | Load 0x1,0x12
0086 01d6 | | Execute Vector,Field_Write
0087 3ffb |? | Loop_Increasing 0x83
0088 485e |H^ | Short_Literal 0x5e
0089 485b |H[ | Short_Literal 0x5b
008a 4800 |H | Short_Literal 0x0
008b e214 | | Load 0x1,0x14
008c e212 | | Load 0x1,0x12
008d 01d6 | | Execute Vector,Field_Write
008e 3ffb |? | Loop_Increasing 0x8a
008f 4800 |H | Short_Literal 0x0
0090 4860 |H` | Short_Literal 0x60
0091 e212 | | Load 0x1,0x12
0092 01d6 | | Execute Vector,Field_Write
0093 487f |H | Short_Literal 0x7f
0094 487b |H{ | Short_Literal 0x7b
0095 4800 |H | Short_Literal 0x0
0096 e214 | | Load 0x1,0x14
0097 e212 | | Load 0x1,0x12
0098 01d6 | | Execute Vector,Field_Write
0099 3ffb |? | Loop_Increasing 0x95
009a e20f | | Load 0x1,0xf
009b 01c3 | | Execute Vector,Check_In_Type
009c 0129 | ) | Execute Any,Make_Visible
009d e20f | | Load 0x1,0xf
009e 0337 | 7 | Declare_Variable Array
009f 4801 |H | Short_Literal 0x1
00a0 4820 |H | Short_Literal 0x20
00a1 e213 | | Load 0x1,0x13
00a2 01d6 | | Execute Vector,Field_Write
00a3 4801 |H | Short_Literal 0x1
00a4 480d |H | Short_Literal 0xd
00a5 e213 | | Load 0x1,0x13
00a6 01d6 | | Execute Vector,Field_Write
00a7 4801 |H | Short_Literal 0x1
00a8 480a |H | Short_Literal 0xa
00a9 e213 | | Load 0x1,0x13
00aa 01d6 | | Execute Vector,Field_Write
00ab 4809 |H | Short_Literal 0x9
00ac 4800 |H | Short_Literal 0x0
00ad 4800 |H | Short_Literal 0x0
00ae e215 | | Load 0x1,0x15
00af e213 | | Load 0x1,0x13
00b0 01d6 | | Execute Vector,Field_Write
00b1 3ffb |? | Loop_Increasing 0xad
00b2 4800 |H | Short_Literal 0x0
00b3 480b |H | Short_Literal 0xb
00b4 e213 | | Load 0x1,0x13
00b5 01d6 | | Execute Vector,Field_Write
00b6 4800 |H | Short_Literal 0x0
00b7 480c |H | Short_Literal 0xc
00b8 e213 | | Load 0x1,0x13
00b9 01d6 | | Execute Vector,Field_Write
00ba 481f |H | Short_Literal 0x1f
00bb 480e |H | Short_Literal 0xe
00bc 4800 |H | Short_Literal 0x0
00bd e215 | | Load 0x1,0x15
00be e213 | | Load 0x1,0x13
00bf 01d6 | | Execute Vector,Field_Write
00c0 3ffb |? | Loop_Increasing 0xbc
00c1 487f |H | Short_Literal 0x7f
00c2 4821 |H! | Short_Literal 0x21
00c3 4800 |H | Short_Literal 0x0
00c4 e215 | | Load 0x1,0x15
00c5 e213 | | Load 0x1,0x13
00c6 01d6 | | Execute Vector,Field_Write
00c7 3ffb |? | Loop_Increasing 0xc3
00c8 e20f | | Load 0x1,0xf
00c9 01c3 | | Execute Vector,Check_In_Type
00ca 0129 | ) | Execute Any,Make_Visible
00cb e20f | | Load 0x1,0xf
00cc 0337 | 7 | Declare_Variable Array
00cd 4801 |H | Short_Literal 0x1
00ce 482c |H, | Short_Literal 0x2c
00cf e214 | | Load 0x1,0x14
00d0 01d6 | | Execute Vector,Field_Write
00d1 4801 |H | Short_Literal 0x1
00d2 483b |H; | Short_Literal 0x3b
00d3 e214 | | Load 0x1,0x14
00d4 01d6 | | Execute Vector,Field_Write
00d5 4801 |H | Short_Literal 0x1
00d6 4828 |H( | Short_Literal 0x28
00d7 e214 | | Load 0x1,0x14
00d8 01d6 | | Execute Vector,Field_Write
00d9 4801 |H | Short_Literal 0x1
00da 4829 |H) | Short_Literal 0x29
00db e214 | | Load 0x1,0x14
00dc 01d6 | | Execute Vector,Field_Write
00dd 4801 |H | Short_Literal 0x1
00de 482a |H* | Short_Literal 0x2a
00df e214 | | Load 0x1,0x14
00e0 01d6 | | Execute Vector,Field_Write
00e1 4801 |H | Short_Literal 0x1
00e2 483a |H: | Short_Literal 0x3a
00e3 e214 | | Load 0x1,0x14
00e4 01d6 | | Execute Vector,Field_Write
00e5 4801 |H | Short_Literal 0x1
00e6 482b |H+ | Short_Literal 0x2b
00e7 e214 | | Load 0x1,0x14
00e8 01d6 | | Execute Vector,Field_Write
00e9 4801 |H | Short_Literal 0x1
00ea 482d |H- | Short_Literal 0x2d
00eb e214 | | Load 0x1,0x14
00ec 01d6 | | Execute Vector,Field_Write
00ed 4801 |H | Short_Literal 0x1
00ee 487c |H| | Short_Literal 0x7c
00ef e214 | | Load 0x1,0x14
00f0 01d6 | | Execute Vector,Field_Write
00f1 4801 |H | Short_Literal 0x1
00f2 487e |H~ | Short_Literal 0x7e
00f3 e214 | | Load 0x1,0x14
00f4 01d6 | | Execute Vector,Field_Write
00f5 4801 |H | Short_Literal 0x1
00f6 487b |H{ | Short_Literal 0x7b
00f7 e214 | | Load 0x1,0x14
00f8 01d6 | | Execute Vector,Field_Write
00f9 4801 |H | Short_Literal 0x1
00fa 487d |H} | Short_Literal 0x7d
00fb e214 | | Load 0x1,0x14
00fc 01d6 | | Execute Vector,Field_Write
00fd 4801 |H | Short_Literal 0x1
00fe 485b |H[ | Short_Literal 0x5b
00ff e214 | | Load 0x1,0x14
0100 01d6 | | Execute Vector,Field_Write
0101 4801 |H | Short_Literal 0x1
0102 485d |H] | Short_Literal 0x5d
0103 e214 | | Load 0x1,0x14
0104 01d6 | | Execute Vector,Field_Write
0105 4801 |H | Short_Literal 0x1
0106 485c |H\ | Short_Literal 0x5c
0107 e214 | | Load 0x1,0x14
0108 01d6 | | Execute Vector,Field_Write
0109 4801 |H | Short_Literal 0x1
010a 483d |H= | Short_Literal 0x3d
010b e214 | | Load 0x1,0x14
010c 01d6 | | Execute Vector,Field_Write
010d 4801 |H | Short_Literal 0x1
010e 483e |H> | Short_Literal 0x3e
010f e214 | | Load 0x1,0x14
0110 01d6 | | Execute Vector,Field_Write
0111 4827 |H' | Short_Literal 0x27
0112 4800 |H | Short_Literal 0x0
0113 4800 |H | Short_Literal 0x0
0114 e216 | | Load 0x1,0x16
0115 e214 | | Load 0x1,0x14
0116 01d6 | | Execute Vector,Field_Write
0117 3ffb |? | Loop_Increasing 0x113
0118 4839 |H9 | Short_Literal 0x39
0119 482e |H. | Short_Literal 0x2e
011a 4800 |H | Short_Literal 0x0
011b e216 | | Load 0x1,0x16
011c e214 | | Load 0x1,0x14
011d 01d6 | | Execute Vector,Field_Write
011e 3ffb |? | Loop_Increasing 0x11a
011f 4800 |H | Short_Literal 0x0
0120 483c |H< | Short_Literal 0x3c
0121 e214 | | Load 0x1,0x14
0122 01d6 | | Execute Vector,Field_Write
0123 485a |HZ | Short_Literal 0x5a
0124 483f |H? | Short_Literal 0x3f
0125 4800 |H | Short_Literal 0x0
0126 e216 | | Load 0x1,0x16
0127 e214 | | Load 0x1,0x14
0128 01d6 | | Execute Vector,Field_Write
0129 3ffb |? | Loop_Increasing 0x125
012a 487a |Hz | Short_Literal 0x7a
012b 485e |H^ | Short_Literal 0x5e
012c 4800 |H | Short_Literal 0x0
012d e216 | | Load 0x1,0x16
012e e214 | | Load 0x1,0x14
012f 01d6 | | Execute Vector,Field_Write
0130 3ffb |? | Loop_Increasing 0x12c
0131 4800 |H | Short_Literal 0x0
0132 487f |H | Short_Literal 0x7f
0133 e214 | | Load 0x1,0x14
0134 01d6 | | Execute Vector,Field_Write
0135 e20f | | Load 0x1,0xf
0136 01c3 | | Execute Vector,Check_In_Type
0137 0129 | ) | Execute Any,Make_Visible
0138 029a 01eb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01e8
013a 029a 026b | k| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0268
013c 00bf | | Action Accept_Activation
013d 1d0d | | Execute_Immediate Reference_Lex_1,0xd
013e 00c7 | | Action Elaborate_Subprogram
013f 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0140 00c7 | | Action Elaborate_Subprogram
0141 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0142 00c7 | | Action Elaborate_Subprogram
0143 029d 0293 | | Declare_Subprogram For_Outer_Call,INIT_0290
0145 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0146 00c7 | | Action Elaborate_Subprogram
0147 BODY_0008:
0147 00bc | | Action Signal_Activated
0148 00bb | | Action Signal_Completion
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 016b | k | .CONST 0x016b ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0005 | | .CONST 0x0005 ; Number of locals
0153 INIT_0150:
0153 00e8 | | Load_Encached Character_Cache
0154 0266 | f | Execute Discrete,Bounds
0155 00e1 | | Load_Encached Boolean_Cache
0156 02a0 | | Declare_Subprogram Null_Subprogram
0157 4801 |H | Short_Literal 0x1
0158 035d | ] | Declare_Type Array,Defined
0159 00d8 | | Load_Top At_Offset_0
015a 0337 | 7 | Declare_Variable Array
015b 00d8 | | Load_Top At_Offset_0
015c 0335 | 5 | Declare_Variable Array,Duplicate
015d 00cd | | Action Spare6_Action
015e 487f |H | Short_Literal 0x7f
015f 4800 |H | Short_Literal 0x0
0160 4800 |H | Short_Literal 0x0
0161 e406 | | Load 0x2,0x6
0162 e404 | | Load 0x2,0x4
0163 01d6 | | Execute Vector,Field_Write
0164 3ffb |? | Loop_Increasing 0x160
0165 e403 | | Load 0x2,0x3
0166 01d4 | | Execute Vector,Structure_Write
0167 00e3 | | Load_Encached Natural_Cache
0168 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
0169 029f 0333 | 3| Declare_Subprogram For_Call,INIT_0330
016b BODY_0150:
016b 00cf | | Action Mark_Auxiliary
016c e5fd | | Load 0x2,-0x3
016d 01d9 | | Execute Vector,Reverse_Bounds
016e 0263 | c | Execute Discrete,Above_Bound
016f 7008 |p | Jump_Nonzero 0x178
0170 4801 |H | Short_Literal 0x1
0171 e408 | | Load 0x2,0x8
0172 e5fd | | Load 0x2,-0x3
0173 01d7 | | Execute Vector,Field_Read
0174 e403 | | Load 0x2,0x3
0175 01d6 | | Execute Vector,Field_Write
0176 00c8 | | Action Pop_Auxiliary_Range
0177 3ff8 |? | Loop_Increasing 0x170
0178 00ce | | Action Pop_Auxiliary
0179 4801 |H | Short_Literal 0x1
017a e5fe | | Load 0x2,-0x2
017b e403 | | Load 0x2,0x3
017c 01d6 | | Execute Vector,Field_Write
017d 00cf | | Action Mark_Auxiliary
017e e5ff | | Load 0x2,-0x1
017f 01d9 | | Execute Vector,Reverse_Bounds
0180 0263 | c | Execute Discrete,Above_Bound
0181 700b |p | Jump_Nonzero 0x18d
0182 00d8 | | Load_Top At_Offset_0
0183 e5ff | | Load 0x2,-0x1
0184 01d7 | | Execute Vector,Field_Read
0185 e403 | | Load 0x2,0x3
0186 01d7 | | Execute Vector,Field_Read
0187 6803 |h | Jump_Zero 0x18b
0188 e404 | | Load 0x2,0x4
0189 0a01 | | Execute_Immediate Plus,0x1
018a c404 | | Store 0x2,0x4
018b 00c8 | | Action Pop_Auxiliary_Range
018c 3ff5 |? | Loop_Increasing 0x182
018d 00ce | | Action Pop_Auxiliary
018e e404 | | Load 0x2,0x4
018f 7004 |p | Jump_Nonzero 0x194
0190 e5ff | | Load 0x2,-0x1
0191 0335 | 5 | Declare_Variable Array,Duplicate
0192 00cd | | Action Spare6_Action
0193 4403 |D | Exit_Subprogram With_Result,0x3
0194 8405 | | Call 0x2,0x5
0195 0831 | 1 | Execute_Immediate Raise,0x31
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a8 | | .CONST 0x01a8 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0004 | | .CONST 0x0004 ; Number of locals
019b INIT_0198:
019b e5ff | | Load 0x2,-0x1
019c 01da | | Execute Vector,Bounds
019d 00e9 | | Load_Encached String_Cache
019e 035b | [ | Declare_Type Array,Constrained
019f 0337 | 7 | Declare_Variable Array
01a0 00d8 | | Load_Top At_Offset_0
01a1 01dd | | Execute Vector,First
01a2 00e3 | | Load_Encached Natural_Cache
01a3 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01a4 e5ff | | Load 0x2,-0x1
01a5 01dd | | Execute Vector,First
01a6 00e3 | | Load_Encached Natural_Cache
01a7 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
01a8 BODY_0198:
01a8 00cf | | Action Mark_Auxiliary
01a9 7828 |x( | Jump 0x1d2
01aa e404 | | Load 0x2,0x4
01ab e5ff | | Load 0x2,-0x1
01ac 01d7 | | Execute Vector,Field_Read
01ad e5fe | | Load 0x2,-0x2
01ae 027e | ~ | Execute Discrete,Not_Equal
01af 680d |h | Jump_Zero 0x1bd
01b0 e404 | | Load 0x2,0x4
01b1 e5ff | | Load 0x2,-0x1
01b2 01d7 | | Execute Vector,Field_Read
01b3 e403 | | Load 0x2,0x3
01b4 e402 | | Load 0x2,0x2
01b5 01d6 | | Execute Vector,Field_Write
01b6 e403 | | Load 0x2,0x3
01b7 0a01 | | Execute_Immediate Plus,0x1
01b8 c403 | | Store 0x2,0x3
01b9 e404 | | Load 0x2,0x4
01ba 0a01 | | Execute_Immediate Plus,0x1
01bb c404 | | Store 0x2,0x4
01bc 7814 |x | Jump 0x1d1
01bd e404 | | Load 0x2,0x4
01be 0a01 | | Execute_Immediate Plus,0x1
01bf c404 | | Store 0x2,0x4
01c0 e404 | | Load 0x2,0x4
01c1 e5ff | | Load 0x2,-0x1
01c2 01dc | | Execute Vector,Last
01c3 027a | z | Execute Discrete,Less_Equal
01c4 680c |h | Jump_Zero 0x1d1
01c5 e404 | | Load 0x2,0x4
01c6 e5ff | | Load 0x2,-0x1
01c7 01d7 | | Execute Vector,Field_Read
01c8 e403 | | Load 0x2,0x3
01c9 e402 | | Load 0x2,0x2
01ca 01d6 | | Execute Vector,Field_Write
01cb e403 | | Load 0x2,0x3
01cc 0a01 | | Execute_Immediate Plus,0x1
01cd c403 | | Store 0x2,0x3
01ce e404 | | Load 0x2,0x4
01cf 0a01 | | Execute_Immediate Plus,0x1
01d0 c404 | | Store 0x2,0x4
01d1 00c9 | | Action Pop_Auxiliary_Loop
01d2 e404 | | Load 0x2,0x4
01d3 e5ff | | Load 0x2,-0x1
01d4 01dc | | Execute Vector,Last
01d5 027a | z | Execute Discrete,Less_Equal
01d6 77d3 |w | Jump_Nonzero 0x1aa
01d7 00ce | | Action Pop_Auxiliary
01d8 e402 | | Load 0x2,0x2
01d9 01dd | | Execute Vector,First
01da e403 | | Load 0x2,0x3
01db 0aff | | Execute_Immediate Plus,-0x1
01dc e402 | | Load 0x2,0x2
01dd 01cf | | Execute Vector,Slice_Read
01de 00e9 | | Load_Encached String_Cache
01df 01c6 | | Execute Vector,Convert_To_Formal
01e0 4402 |D | Exit_Subprogram With_Result,0x2
01e1 0000 0000 | | .BLANK 0000[0x7]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 4801 |H | Short_Literal 0x1
01ec a5fb | | Store_Unchecked 0x2,-0x5
01ed 4800 |H | Short_Literal 0x0
01ee a5fa | | Store_Unchecked 0x2,-0x6
01ef 00cf | | Action Mark_Auxiliary
01f0 7804 |x | Jump 0x1f5
01f1 e5fc | | Load 0x2,-0x4
01f2 0a01 | | Execute_Immediate Plus,0x1
01f3 c5fc | | Store 0x2,-0x4
01f4 00c9 | | Action Pop_Auxiliary_Loop
01f5 e5fc | | Load 0x2,-0x4
01f6 e5ff | | Load 0x2,-0x1
01f7 01dc | | Execute Vector,Last
01f8 027a | z | Execute Discrete,Less_Equal
01f9 6806 |h | Jump_Zero 0x200
01fa e5fc | | Load 0x2,-0x4
01fb e5ff | | Load 0x2,-0x1
01fc 01d7 | | Execute Vector,Field_Read
01fd e5fe | | Load 0x2,-0x2
01fe 01d7 | | Execute Vector,Field_Read
01ff 77f1 |w | Jump_Nonzero 0x1f1
0200 00ce | | Action Pop_Auxiliary
0201 e5fc | | Load 0x2,-0x4
0202 e5ff | | Load 0x2,-0x1
0203 01dc | | Execute Vector,Last
0204 027d | } | Execute Discrete,Greater
0205 6801 |h | Jump_Zero 0x207
0206 4504 |E | Exit_Subprogram 0x4
0207 e5fc | | Load 0x2,-0x4
0208 a5fb | | Store_Unchecked 0x2,-0x5
0209 e5fc | | Load 0x2,-0x4
020a e5ff | | Load 0x2,-0x1
020b 01d7 | | Execute Vector,Field_Read
020c 0f22 | " | Execute_Immediate Equal,0x22
020d 682e |h. | Jump_Zero 0x23c
020e e5fc | | Load 0x2,-0x4
020f 0a01 | | Execute_Immediate Plus,0x1
0210 c5fc | | Store 0x2,-0x4
0211 00cf | | Action Mark_Auxiliary
0212 7822 |x" | Jump 0x235
0213 e5fc | | Load 0x2,-0x4
0214 e5ff | | Load 0x2,-0x1
0215 01d7 | | Execute Vector,Field_Read
0216 0f22 | " | Execute_Immediate Equal,0x22
0217 6819 |h | Jump_Zero 0x231
0218 e5fc | | Load 0x2,-0x4
0219 e5ff | | Load 0x2,-0x1
021a 01dc | | Execute Vector,Last
021b 027c | | | Execute Discrete,Less
021c 6806 |h | Jump_Zero 0x223
021d e5fc | | Load 0x2,-0x4
021e 0a01 | | Execute_Immediate Plus,0x1
021f e5ff | | Load 0x2,-0x1
0220 01d7 | | Execute Vector,Field_Read
0221 0e22 | " | Execute_Immediate Not_Equal,0x22
0222 7005 |p | Jump_Nonzero 0x228
0223 e5fc | | Load 0x2,-0x4
0224 e5ff | | Load 0x2,-0x1
0225 01dc | | Execute Vector,Last
0226 027f | | Execute Discrete,Equal
0227 6806 |h | Jump_Zero 0x22e
0228 e5fc | | Load 0x2,-0x4
0229 a5fa | | Store_Unchecked 0x2,-0x6
022a e5fc | | Load 0x2,-0x4
022b 0a01 | | Execute_Immediate Plus,0x1
022c c5fc | | Store 0x2,-0x4
022d 780c |x | Jump 0x23a
022e e5fc | | Load 0x2,-0x4
022f 0a01 | | Execute_Immediate Plus,0x1
0230 c5fc | | Store 0x2,-0x4
0231 e5fc | | Load 0x2,-0x4
0232 0a01 | | Execute_Immediate Plus,0x1
0233 c5fc | | Store 0x2,-0x4
0234 00c9 | | Action Pop_Auxiliary_Loop
0235 e5fc | | Load 0x2,-0x4
0236 e5ff | | Load 0x2,-0x1
0237 01dc | | Execute Vector,Last
0238 027a | z | Execute Discrete,Less_Equal
0239 77d9 |w | Jump_Nonzero 0x213
023a 00ce | | Action Pop_Auxiliary
023b 4504 |E | Exit_Subprogram 0x4
023c e5fb | | Load 0x2,-0x5
023d e5ff | | Load 0x2,-0x1
023e 01d7 | | Execute Vector,Field_Read
023f e5fd | | Load 0x2,-0x3
0240 01d7 | | Execute Vector,Field_Read
0241 6806 |h | Jump_Zero 0x248
0242 e5fb | | Load 0x2,-0x5
0243 a5fa | | Store_Unchecked 0x2,-0x6
0244 e5fc | | Load 0x2,-0x4
0245 0a01 | | Execute_Immediate Plus,0x1
0246 c5fc | | Store 0x2,-0x4
0247 4504 |E | Exit_Subprogram 0x4
0248 00cf | | Action Mark_Auxiliary
0249 7804 |x | Jump 0x24e
024a e5fc | | Load 0x2,-0x4
024b 0a01 | | Execute_Immediate Plus,0x1
024c c5fc | | Store 0x2,-0x4
024d 00c9 | | Action Pop_Auxiliary_Loop
024e e5fc | | Load 0x2,-0x4
024f e5ff | | Load 0x2,-0x1
0250 01dc | | Execute Vector,Last
0251 027a | z | Execute Discrete,Less_Equal
0252 680c |h | Jump_Zero 0x25f
0253 e5fc | | Load 0x2,-0x4
0254 e5ff | | Load 0x2,-0x1
0255 01d7 | | Execute Vector,Field_Read
0256 e5fe | | Load 0x2,-0x2
0257 01d7 | | Execute Vector,Field_Read
0258 7006 |p | Jump_Nonzero 0x25f
0259 e5fc | | Load 0x2,-0x4
025a e5ff | | Load 0x2,-0x1
025b 01d7 | | Execute Vector,Field_Read
025c e5fd | | Load 0x2,-0x3
025d 01d7 | | Execute Vector,Field_Read
025e 6feb |o | Jump_Zero 0x24a
025f 00ce | | Action Pop_Auxiliary
0260 e5fc | | Load 0x2,-0x4
0261 0aff | | Execute_Immediate Plus,-0x1
0262 c5fa | | Store 0x2,-0x6
0263 4504 |E | Exit_Subprogram 0x4
0264 0000 0000 | | .BLANK 0000[0x4]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 0274 | t | .CONST 0x0274 ; Address of begin
0269 0283 | | .CONST 0x0283 ; Address of exception handler
026a 0003 | | .CONST 0x0003 ; Number of locals
026b INIT_0268:
026b 4820 |H | Short_Literal 0x20
026c e5ff | | Load 0x2,-0x1
026d e002 | | Load 0x0,0x2
026e 181c | | Execute Package,Field_Execute,Field_Number 0x1c
026f e003 | | Load 0x0,0x3
0270 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0271 02c7 | | Declare_Variable Any
0272 00d8 | | Load_Top At_Offset_0
0273 1c00 | | Execute_Immediate Run_Utility,0x0
0274 BODY_0268:
0274 e5fe | | Load 0x2,-0x2
0275 6805 |h | Jump_Zero 0x27b
0276 e402 | | Load 0x2,0x2
0277 8217 | | Call 0x1,0x17
0278 7002 |p | Jump_Nonzero 0x27b
0279 4800 |H | Short_Literal 0x0
027a 4402 |D | Exit_Subprogram With_Result,0x2
027b e402 | | Load 0x2,0x2
027c e004 | | Load 0x0,0x4
027d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
027e e004 | | Load 0x0,0x4
027f 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0280 c403 | | Store 0x2,0x3
0281 4801 |H | Short_Literal 0x1
0282 4402 |D | Exit_Subprogram With_Result,0x2
0283 TRAP_0268:
0283 010e | | Execute Exception,Is_Constraint_Error
0284 7002 |p | Jump_Nonzero 0x287
0285 010d | | Execute Exception,Is_Numeric_Error
0286 6802 |h | Jump_Zero 0x289
0287 4800 |H | Short_Literal 0x0
0288 4402 |D | Exit_Subprogram With_Result,0x2
0289 0100 | | Execute Exception,Raise
028a 0000 0000 | | .BLANK 0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0297 | | .CONST 0x0297 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0003 | | .CONST 0x0003 ; Number of locals
0293 INIT_0290:
0293 00e3 | | Load_Encached Natural_Cache
0294 e5ff | | Load 0x2,-0x1
0295 e002 | | Load 0x0,0x2
0296 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0297 BODY_0290:
0297 00d8 | | Load_Top At_Offset_0
0298 01dd | | Execute Vector,First
0299 e403 | | Load 0x2,0x3
029a 01d7 | | Execute Vector,Field_Read
029b 00d8 | | Load_Top At_Offset_0
029c 0d61 | a | Execute_Immediate Less,0x61
029d 7023 |p# | Jump_Nonzero 0x2c1
029e 0a9f | | Execute_Immediate Plus,-0x61
029f 461e |F | Jump_Case 0x1e
02a0 7855 |xU | Jump 0x2f6 ; case 0x0
02a1 781d |x | Jump 0x2bf ; case 0x1
02a2 781c |x | Jump 0x2bf ; case 0x2
02a3 787b |x{ | Jump 0x31f ; case 0x3
02a4 781a |x | Jump 0x2bf ; case 0x4
02a5 7837 |x7 | Jump 0x2dd ; case 0x5
02a6 7818 |x | Jump 0x2bf ; case 0x6
02a7 7817 |x | Jump 0x2bf ; case 0x7
02a8 7816 |x | Jump 0x2bf ; case 0x8
02a9 7819 |x | Jump 0x2c3 ; case 0x9
02aa 7814 |x | Jump 0x2bf ; case 0xa
02ab 7813 |x | Jump 0x2bf ; case 0xb
02ac 7838 |x8 | Jump 0x2e5 ; case 0xc
02ad 7869 |xi | Jump 0x317 ; case 0xd
02ae 7860 |x` | Jump 0x30f ; case 0xe
02af 780f |x | Jump 0x2bf ; case 0xf
02b0 780e |x | Jump 0x2bf ; case 0x10
02b1 780d |x | Jump 0x2bf ; case 0x11
02b2 7854 |xT | Jump 0x307 ; case 0x12
02b3 780b |x | Jump 0x2bf ; case 0x13
02b4 780a |x | Jump 0x2bf ; case 0x14
02b5 7809 |x | Jump 0x2bf ; case 0x15
02b6 7808 |x | Jump 0x2bf ; case 0x16
02b7 7807 |x | Jump 0x2bf ; case 0x17
02b8 7806 |x | Jump 0x2bf ; case 0x18
02b9 7805 |x | Jump 0x2bf ; case 0x19
02ba 7804 |x | Jump 0x2bf ; case 0x1a
02bb 7803 |x | Jump 0x2bf ; case 0x1b
02bc 7802 |x | Jump 0x2bf ; case 0x1c
02bd 7801 |x | Jump 0x2bf ; case 0x1d
02be 7800 |x | Jump 0x2bf ; case 0x1e
02bf 4800 |H | Short_Literal 0x0
02c0 4401 |D | Exit_Subprogram With_Result,0x1
02c1 00d1 | | Pop_Control Pop_Count_1
02c2 7ffc | | Jump 0x2bf
02c3 4800 |H | Short_Literal 0x0
02c4 e403 | | Load 0x2,0x3
02c5 0092 0365 | e| Action Push_String_Extended,0x365 ; "january"
02c7 e002 | | Load 0x0,0x2
02c8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02c9 a402 | | Store_Unchecked 0x2,0x2
02ca e402 | | Load 0x2,0x2
02cb 7007 |p | Jump_Nonzero 0x2d3
02cc 4800 |H | Short_Literal 0x0
02cd e403 | | Load 0x2,0x3
02ce 0092 0366 | f| Action Push_String_Extended,0x366 ; "june"
02d0 e002 | | Load 0x0,0x2
02d1 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02d2 a402 | | Store_Unchecked 0x2,0x2
02d3 e402 | | Load 0x2,0x2
02d4 7051 |pQ | Jump_Nonzero 0x326
02d5 4800 |H | Short_Literal 0x0
02d6 e403 | | Load 0x2,0x3
02d7 0092 0367 | g| Action Push_String_Extended,0x367 ; "july"
02d9 e002 | | Load 0x0,0x2
02da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02db a402 | | Store_Unchecked 0x2,0x2
02dc 7849 |xI | Jump 0x326
02dd 4800 |H | Short_Literal 0x0
02de e403 | | Load 0x2,0x3
02df 0092 0368 | h| Action Push_String_Extended,0x368 ; "february"
02e1 e002 | | Load 0x0,0x2
02e2 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02e3 a402 | | Store_Unchecked 0x2,0x2
02e4 7841 |xA | Jump 0x326
02e5 4800 |H | Short_Literal 0x0
02e6 e403 | | Load 0x2,0x3
02e7 0092 0369 | i| Action Push_String_Extended,0x369 ; "march"
02e9 e002 | | Load 0x0,0x2
02ea 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02eb a402 | | Store_Unchecked 0x2,0x2
02ec e402 | | Load 0x2,0x2
02ed 7038 |p8 | Jump_Nonzero 0x326
02ee 4800 |H | Short_Literal 0x0
02ef e403 | | Load 0x2,0x3
02f0 0092 036a | j| Action Push_String_Extended,0x36a ; "may"
02f2 e002 | | Load 0x0,0x2
02f3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f4 a402 | | Store_Unchecked 0x2,0x2
02f5 7830 |x0 | Jump 0x326
02f6 4800 |H | Short_Literal 0x0
02f7 e403 | | Load 0x2,0x3
02f8 0092 036b | k| Action Push_String_Extended,0x36b ; "april"
02fa e002 | | Load 0x0,0x2
02fb 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02fc a402 | | Store_Unchecked 0x2,0x2
02fd e402 | | Load 0x2,0x2
02fe 7027 |p' | Jump_Nonzero 0x326
02ff 4800 |H | Short_Literal 0x0
0300 e403 | | Load 0x2,0x3
0301 0092 036c | l| Action Push_String_Extended,0x36c ; "august"
0303 e002 | | Load 0x0,0x2
0304 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0305 a402 | | Store_Unchecked 0x2,0x2
0306 781f |x | Jump 0x326
0307 4800 |H | Short_Literal 0x0
0308 e403 | | Load 0x2,0x3
0309 0092 036d | m| Action Push_String_Extended,0x36d ; "september"
030b e002 | | Load 0x0,0x2
030c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
030d a402 | | Store_Unchecked 0x2,0x2
030e 7817 |x | Jump 0x326
030f 4800 |H | Short_Literal 0x0
0310 e403 | | Load 0x2,0x3
0311 0092 036e | n| Action Push_String_Extended,0x36e ; "october"
0313 e002 | | Load 0x0,0x2
0314 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0315 a402 | | Store_Unchecked 0x2,0x2
0316 780f |x | Jump 0x326
0317 4800 |H | Short_Literal 0x0
0318 e403 | | Load 0x2,0x3
0319 0092 036f | o| Action Push_String_Extended,0x36f ; "november"
031b e002 | | Load 0x0,0x2
031c 181d | | Execute Package,Field_Execute,Field_Number 0x1d
031d a402 | | Store_Unchecked 0x2,0x2
031e 7807 |x | Jump 0x326
031f 4800 |H | Short_Literal 0x0
0320 e403 | | Load 0x2,0x3
0321 0092 0370 | p| Action Push_String_Extended,0x370 ; "december"
0323 e002 | | Load 0x0,0x2
0324 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0325 a402 | | Store_Unchecked 0x2,0x2
0326 e402 | | Load 0x2,0x2
0327 0e00 | | Execute_Immediate Not_Equal,0x0
0328 4401 |D | Exit_Subprogram With_Result,0x1
0329 0000 0000 | | .BLANK 0000[0x7]
0330 ; --------------------------------------------------------------------------------------
0330 ; SUBPROGRAM
0330 ; --------------------------------------------------------------------------------------
0330 0342 | B | .CONST 0x0342 ; Address of begin
0331 0004 | | .CONST 0x0004 ; Address of exception handler
0332 0003 | | .CONST 0x0003 ; Number of locals
0333 INIT_0330:
0333 4801 |H | Short_Literal 0x1
0334 e5ff | | Load 0x2,-0x1
0335 01db | | Execute Vector,Length
0336 e404 | | Load 0x2,0x4
0337 0273 | s | Execute Discrete,Plus
0338 00d8 | | Load_Top At_Offset_0
0339 00e2 | | Load_Encached Integer_Cache
033a 0260 | ` | Execute Discrete,In_Type
033b 7001 |p | Jump_Nonzero 0x33d
033c 0801 | | Execute_Immediate Raise,0x1
033d 00e9 | | Load_Encached String_Cache
033e 035b | [ | Declare_Type Array,Constrained
033f 0337 | 7 | Declare_Variable Array
0340 00e3 | | Load_Encached Natural_Cache
0341 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
0342 BODY_0330:
0342 00cf | | Action Mark_Auxiliary
0343 e5ff | | Load 0x2,-0x1
0344 01d9 | | Execute Vector,Reverse_Bounds
0345 0263 | c | Execute Discrete,Above_Bound
0346 7018 |p | Jump_Nonzero 0x35f
0347 00d8 | | Load_Top At_Offset_0
0348 e5ff | | Load 0x2,-0x1
0349 01d7 | | Execute Vector,Field_Read
034a e403 | | Load 0x2,0x3
034b 01d7 | | Execute Vector,Field_Read
034c 6807 |h | Jump_Zero 0x354
034d e5fe | | Load 0x2,-0x2
034e e603 | | Load 0x3,0x3
034f e602 | | Load 0x3,0x2
0350 01d6 | | Execute Vector,Field_Write
0351 e603 | | Load 0x3,0x3
0352 0a01 | | Execute_Immediate Plus,0x1
0353 c603 | | Store 0x3,0x3
0354 00d8 | | Load_Top At_Offset_0
0355 e5ff | | Load 0x2,-0x1
0356 01d7 | | Execute Vector,Field_Read
0357 e603 | | Load 0x3,0x3
0358 e602 | | Load 0x3,0x2
0359 01d6 | | Execute Vector,Field_Write
035a e603 | | Load 0x3,0x3
035b 0a01 | | Execute_Immediate Plus,0x1
035c c603 | | Store 0x3,0x3
035d 00c8 | | Action Pop_Auxiliary_Range
035e 3fe8 |? | Loop_Increasing 0x347
035f 00ce | | Action Pop_Auxiliary
0360 e602 | | Load 0x3,0x2
0361 00e9 | | Load_Encached String_Cache
0362 01c6 | | Execute Vector,Convert_To_Formal
0363 00cb | | Action Pop_Block_With_Result
0364 4403 |D | Exit_Subprogram With_Result,0x3
0365 ; --------------------------------------------------------------------------------------
0365 ; STRING TABLE
0365 ; --------------------------------------------------------------------------------------
0365 001a | | .STRTAB 0x001a->0x0372 ; "january"
0366 001f | | .STRTAB 0x001f->0x0375 ; "june"
0367 0021 | ! | .STRTAB 0x0021->0x0377 ; "july"
0368 0023 | # | .STRTAB 0x0023->0x0379 ; "february"
0369 0029 | ) | .STRTAB 0x0029->0x037d ; "march"
036a 002c | , | .STRTAB 0x002c->0x0380 ; "may"
036b 002d | - | .STRTAB 0x002d->0x0381 ; "april"
036c 0030 | 0 | .STRTAB 0x0030->0x0384 ; "august"
036d 0034 | 4 | .STRTAB 0x0034->0x0387 ; "september"
036e 003b | ; | .STRTAB 0x003b->0x038b ; "october"
036f 0040 | @ | .STRTAB 0x0040->0x038f ; "november"
0370 0046 | F | .STRTAB 0x0046->0x0393 ; "december"
0371 004c | L | .STREND 0x004c->0x0397
0372 6a61 6e75 |janu| .STRTAB_STRINGS
0397 0000 | | .XXX[0x1]
0398 ; --------------------------------------------------------------------------------------
0398 ; Debug Table
0398 ; --------------------------------------------------------------------------------------
0398 0004 0011 | | .DEBUG4 0x0004,0x0011,0x977e,0x0000,0x0001,0x0000
039e 0000 0000 | | .BLANK 0000[0x62]