|
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: 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 INIT_0150,For_Outer_Call,Visible,Unelaborated 000d 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 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 INIT_01e8,For_Outer_Call,Visible,Unelaborated 013a 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated 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 INIT_0290,For_Outer_Call 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 INIT_0330,For_Call 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Suprogram New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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 0x1f 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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_Value,New_Top_Offset 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]