|
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_0d2ce3
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code 0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version 0002 0000 | | .CONST 0x0000 ; Zero 0003 0268 | h | .CONST 0x0268 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1) 0008 ; -------------------------------------------------------------------------------------- 0008 ; SUBPROGRAM 0008 ; -------------------------------------------------------------------------------------- 0008 00c5 | | .CONST 0x00c5 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 0015 | | .CONST 0x0015 ; Number of locals 000b INIT_0008: 000b 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated 000d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated 000f 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated 0011 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated 0013 00bf | | Action Accept_Activation 0014 4801 |H | Short_Literal 0x1 0015 4803 |H | Short_Literal 0x3 0016 00e9 | | Load_Encached String_Cache 0017 035b | [ | Declare_Type Array,Constrained 0018 4801 |H | Short_Literal 0x1 0019 480c |H | Short_Literal 0xc 001a 4801 |H | Short_Literal 0x1 001b 4803 |H | Short_Literal 0x3 001c 00e9 | | Load_Encached String_Cache 001d 035b | [ | Declare_Type Array,Constrained 001e 02a0 | | Declare_Subprogram Null_Subprogram 001f 4801 |H | Short_Literal 0x1 0020 035d | ] | Declare_Type Array,Defined 0021 00d8 | | Load_Top At_Offset_0 0022 0337 | 7 | Declare_Variable Array 0023 00d8 | | Load_Top At_Offset_0 0024 0335 | 5 | Declare_Variable Array,Duplicate 0025 00cd | | Action Spare6_Action 0026 0092 0238 | 8| Action Push_String_Extended,0x238 ; "JAN" 0028 00db | | Load_Top At_Offset_3 0029 01d8 | | Execute Vector,Element_Type 002a 0119 | | Execute Any,Check_In_Formal_Type 002b 4801 |H | Short_Literal 0x1 002c 00da | | Load_Top At_Offset_2 002d 01d6 | | Execute Vector,Field_Write 002e 0092 0239 | 9| Action Push_String_Extended,0x239 ; "FEB" 0030 00db | | Load_Top At_Offset_3 0031 01d8 | | Execute Vector,Element_Type 0032 0119 | | Execute Any,Check_In_Formal_Type 0033 4802 |H | Short_Literal 0x2 0034 00da | | Load_Top At_Offset_2 0035 01d6 | | Execute Vector,Field_Write 0036 0092 023a | :| Action Push_String_Extended,0x23a ; "MAR" 0038 00db | | Load_Top At_Offset_3 0039 01d8 | | Execute Vector,Element_Type 003a 0119 | | Execute Any,Check_In_Formal_Type 003b 4803 |H | Short_Literal 0x3 003c 00da | | Load_Top At_Offset_2 003d 01d6 | | Execute Vector,Field_Write 003e 0092 023b | ;| Action Push_String_Extended,0x23b ; "APR" 0040 00db | | Load_Top At_Offset_3 0041 01d8 | | Execute Vector,Element_Type 0042 0119 | | Execute Any,Check_In_Formal_Type 0043 4804 |H | Short_Literal 0x4 0044 00da | | Load_Top At_Offset_2 0045 01d6 | | Execute Vector,Field_Write 0046 0092 023c | <| Action Push_String_Extended,0x23c ; "MAY" 0048 00db | | Load_Top At_Offset_3 0049 01d8 | | Execute Vector,Element_Type 004a 0119 | | Execute Any,Check_In_Formal_Type 004b 4805 |H | Short_Literal 0x5 004c 00da | | Load_Top At_Offset_2 004d 01d6 | | Execute Vector,Field_Write 004e 0092 023d | =| Action Push_String_Extended,0x23d ; "JUN" 0050 00db | | Load_Top At_Offset_3 0051 01d8 | | Execute Vector,Element_Type 0052 0119 | | Execute Any,Check_In_Formal_Type 0053 4806 |H | Short_Literal 0x6 0054 00da | | Load_Top At_Offset_2 0055 01d6 | | Execute Vector,Field_Write 0056 0092 023e | >| Action Push_String_Extended,0x23e ; "JUL" 0058 00db | | Load_Top At_Offset_3 0059 01d8 | | Execute Vector,Element_Type 005a 0119 | | Execute Any,Check_In_Formal_Type 005b 4807 |H | Short_Literal 0x7 005c 00da | | Load_Top At_Offset_2 005d 01d6 | | Execute Vector,Field_Write 005e 0092 023f | ?| Action Push_String_Extended,0x23f ; "AUG" 0060 00db | | Load_Top At_Offset_3 0061 01d8 | | Execute Vector,Element_Type 0062 0119 | | Execute Any,Check_In_Formal_Type 0063 4808 |H | Short_Literal 0x8 0064 00da | | Load_Top At_Offset_2 0065 01d6 | | Execute Vector,Field_Write 0066 0092 0240 | @| Action Push_String_Extended,0x240 ; "SEP" 0068 00db | | Load_Top At_Offset_3 0069 01d8 | | Execute Vector,Element_Type 006a 0119 | | Execute Any,Check_In_Formal_Type 006b 4809 |H | Short_Literal 0x9 006c 00da | | Load_Top At_Offset_2 006d 01d6 | | Execute Vector,Field_Write 006e 0092 0241 | A| Action Push_String_Extended,0x241 ; "OCT" 0070 00db | | Load_Top At_Offset_3 0071 01d8 | | Execute Vector,Element_Type 0072 0119 | | Execute Any,Check_In_Formal_Type 0073 480a |H | Short_Literal 0xa 0074 00da | | Load_Top At_Offset_2 0075 01d6 | | Execute Vector,Field_Write 0076 0092 0242 | B| Action Push_String_Extended,0x242 ; "NOV" 0078 00db | | Load_Top At_Offset_3 0079 01d8 | | Execute Vector,Element_Type 007a 0119 | | Execute Any,Check_In_Formal_Type 007b 480b |H | Short_Literal 0xb 007c 00da | | Load_Top At_Offset_2 007d 01d6 | | Execute Vector,Field_Write 007e 0092 0243 | C| Action Push_String_Extended,0x243 ; "DEC" 0080 00db | | Load_Top At_Offset_3 0081 01d8 | | Execute Vector,Element_Type 0082 0119 | | Execute Any,Check_In_Formal_Type 0083 480c |H | Short_Literal 0xc 0084 00da | | Load_Top At_Offset_2 0085 01d6 | | Execute Vector,Field_Write 0086 00d9 | | Load_Top At_Offset_1 0087 01d4 | | Execute Vector,Structure_Write 0088 4800 |H | Short_Literal 0x0 0089 4809 |H | Short_Literal 0x9 008a 00e8 | | Load_Encached Character_Cache 008b 02a0 | | Declare_Subprogram Null_Subprogram 008c 4801 |H | Short_Literal 0x1 008d 035d | ] | Declare_Type Array,Defined 008e 00d8 | | Load_Top At_Offset_0 008f 0337 | 7 | Declare_Variable Array 0090 00d8 | | Load_Top At_Offset_0 0091 0335 | 5 | Declare_Variable Array,Duplicate 0092 00cd | | Action Spare6_Action 0093 4830 |H0 | Short_Literal 0x30 0094 4800 |H | Short_Literal 0x0 0095 00da | | Load_Top At_Offset_2 0096 01d6 | | Execute Vector,Field_Write 0097 4831 |H1 | Short_Literal 0x31 0098 4801 |H | Short_Literal 0x1 0099 00da | | Load_Top At_Offset_2 009a 01d6 | | Execute Vector,Field_Write 009b 4832 |H2 | Short_Literal 0x32 009c 4802 |H | Short_Literal 0x2 009d 00da | | Load_Top At_Offset_2 009e 01d6 | | Execute Vector,Field_Write 009f 4833 |H3 | Short_Literal 0x33 00a0 4803 |H | Short_Literal 0x3 00a1 00da | | Load_Top At_Offset_2 00a2 01d6 | | Execute Vector,Field_Write 00a3 4834 |H4 | Short_Literal 0x34 00a4 4804 |H | Short_Literal 0x4 00a5 00da | | Load_Top At_Offset_2 00a6 01d6 | | Execute Vector,Field_Write 00a7 4835 |H5 | Short_Literal 0x35 00a8 4805 |H | Short_Literal 0x5 00a9 00da | | Load_Top At_Offset_2 00aa 01d6 | | Execute Vector,Field_Write 00ab 4836 |H6 | Short_Literal 0x36 00ac 4806 |H | Short_Literal 0x6 00ad 00da | | Load_Top At_Offset_2 00ae 01d6 | | Execute Vector,Field_Write 00af 4837 |H7 | Short_Literal 0x37 00b0 4807 |H | Short_Literal 0x7 00b1 00da | | Load_Top At_Offset_2 00b2 01d6 | | Execute Vector,Field_Write 00b3 4838 |H8 | Short_Literal 0x38 00b4 4808 |H | Short_Literal 0x8 00b5 00da | | Load_Top At_Offset_2 00b6 01d6 | | Execute Vector,Field_Write 00b7 4839 |H9 | Short_Literal 0x39 00b8 4809 |H | Short_Literal 0x9 00b9 00da | | Load_Top At_Offset_2 00ba 01d6 | | Execute Vector,Field_Write 00bb 00d9 | | Load_Top At_Offset_1 00bc 01d4 | | Execute Vector,Structure_Write 00bd 1d0d | | Execute_Immediate Reference_Lex_1,0xd 00be 00c7 | | Action Elaborate_Subprogram 00bf 1d0e | | Execute_Immediate Reference_Lex_1,0xe 00c0 00c7 | | Action Elaborate_Subprogram 00c1 1d0f | | Execute_Immediate Reference_Lex_1,0xf 00c2 00c7 | | Action Elaborate_Subprogram 00c3 1d10 | | Execute_Immediate Reference_Lex_1,0x10 00c4 00c7 | | Action Elaborate_Subprogram 00c5 BODY_0008: 00c5 00bc | | Action Signal_Activated 00c6 00bb | | Action Signal_Completion 00c7 0000 | | .XXX[0x1] 00c8 ; -------------------------------------------------------------------------------------- 00c8 ; SUBPROGRAM 00c8 ; -------------------------------------------------------------------------------------- 00c8 00da | | .CONST 0x00da ; Address of begin 00c9 0004 | | .CONST 0x0004 ; Address of exception handler 00ca 0008 | | .CONST 0x0008 ; Number of locals 00cb INIT_00c8: 00cb 4814 |H | Short_Literal 0x14 00cc e001 | | Load 0x0,0x1 00cd 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00ce 1c08 | | Execute_Immediate Run_Utility,0x8 00cf 00d8 | | Load_Top At_Offset_0 00d0 1c00 | | Execute_Immediate Run_Utility,0x0 00d1 00e2 | | Load_Encached Integer_Cache 00d2 00e2 | | Load_Encached Integer_Cache 00d3 00e2 | | Load_Encached Integer_Cache 00d4 e002 | | Load 0x0,0x2 00d5 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00d6 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call 00d8 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 00da BODY_00c8: 00da e5ff | | Load 0x2,-0x1 00db 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 00dc 7007 |p | Jump_Nonzero 0xe4 00dd e402 | | Load 0x2,0x2 00de 0092 0244 | D| Action Push_String_Extended,0x244 ; " ??:??:?? ??-???-?? " 00e0 e001 | | Load 0x0,0x1 00e1 1810 | | Execute Package,Field_Execute,Field_Number 0x10 00e2 00d1 | | Pop_Control Pop_Count_1 00e3 7801 |x | Jump 0xe5 00e4 8408 | | Call 0x2,0x8 00e5 e402 | | Load 0x2,0x2 00e6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1 00e7 0000 | | .XXX[0x1] 00e8 ; -------------------------------------------------------------------------------------- 00e8 ; SUBPROGRAM 00e8 ; -------------------------------------------------------------------------------------- 00e8 011e | | .CONST 0x011e ; Address of begin 00e9 0004 | | .CONST 0x0004 ; Address of exception handler 00ea 0006 | | .CONST 0x0006 ; Number of locals 00eb INIT_00e8: 00eb 00da | | Load_Top At_Offset_2 00ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00ed 6066 |`f | Indirect_Literal Discrete,0x154,{0x00000000, 0x00000708} 00ee 0270 | p | Execute Discrete,Divide 00ef 00d8 | | Load_Top At_Offset_0 00f0 00e2 | | Load_Encached Integer_Cache 00f1 0260 | ` | Execute Discrete,In_Type 00f2 7001 |p | Jump_Nonzero 0xf4 00f3 0801 | | Execute_Immediate Raise,0x1 00f4 00e2 | | Load_Encached Integer_Cache 00f5 03f1 | | Declare_Variable Discrete,With_Value 00f6 00db | | Load_Top At_Offset_3 00f7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 00f8 605b |`[ | Indirect_Literal Discrete,0x154,{0x00000000, 0x00000708} 00f9 026e | n | Execute Discrete,Modulo 00fa e002 | | Load 0x0,0x2 00fb 1b0e | | Execute Package,Field_Read,Field_Number 0xe 00fc 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 00fd 00d8 | | Load_Top At_Offset_0 00fe 481e |H | Short_Literal 0x1e 00ff 0270 | p | Execute Discrete,Divide 0100 00d8 | | Load_Top At_Offset_0 0101 00e2 | | Load_Encached Integer_Cache 0102 0260 | ` | Execute Discrete,In_Type 0103 7001 |p | Jump_Nonzero 0x105 0104 0801 | | Execute_Immediate Raise,0x1 0105 00e2 | | Load_Encached Integer_Cache 0106 03f1 | | Declare_Variable Discrete,With_Value 0107 00d9 | | Load_Top At_Offset_1 0108 481e |H | Short_Literal 0x1e 0109 026e | n | Execute Discrete,Modulo 010a 0901 | | Execute_Immediate Binary_Scale,0x1 010b 00d8 | | Load_Top At_Offset_0 010c 00e2 | | Load_Encached Integer_Cache 010d 0260 | ` | Execute Discrete,In_Type 010e 7001 |p | Jump_Nonzero 0x110 010f 0801 | | Execute_Immediate Raise,0x1 0110 00e2 | | Load_Encached Integer_Cache 0111 03f1 | | Declare_Variable Discrete,With_Value 0112 00d8 | | Load_Top At_Offset_0 0113 090f | | Execute_Immediate Binary_Scale,0xf 0114 00da | | Load_Top At_Offset_2 0115 603a |`: | Indirect_Literal Discrete,0x150,{0x00000000, 0x001e0000} 0116 0271 | q | Execute Discrete,Times 0117 0273 | s | Execute Discrete,Plus 0118 e402 | | Load 0x2,0x2 0119 6032 |`2 | Indirect_Literal Discrete,0x14c,{0x00000000, 0x07080000} 011a 0271 | q | Execute Discrete,Times 011b 0273 | s | Execute Discrete,Plus 011c 00e7 | | Load_Encached Duration_Cache 011d 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 011e BODY_00e8: 011e 00d8 | | Load_Top At_Offset_0 011f e003 | | Load 0x0,0x3 0120 1b11 | | Execute Package,Field_Read,Field_Number 0x11 0121 00d9 | | Load_Top At_Offset_1 0122 00d0 | | Action Swap_Control 0123 0260 | ` | Execute Discrete,In_Type 0124 7001 |p | Jump_Nonzero 0x126 0125 0801 | | Execute_Immediate Raise,0x1 0126 e5ff | | Load 0x2,-0x1 0127 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0128 00d8 | | Load_Top At_Offset_0 0129 e003 | | Load 0x0,0x3 012a 1b10 | | Execute Package,Field_Read,Field_Number 0x10 012b 0260 | ` | Execute Discrete,In_Type 012c 7001 |p | Jump_Nonzero 0x12e 012d 0801 | | Execute_Immediate Raise,0x1 012e e5ff | | Load 0x2,-0x1 012f 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 0130 00d8 | | Load_Top At_Offset_0 0131 e003 | | Load 0x0,0x3 0132 1b0f | | Execute Package,Field_Read,Field_Number 0xf 0133 0260 | ` | Execute Discrete,In_Type 0134 7001 |p | Jump_Nonzero 0x136 0135 0801 | | Execute_Immediate Raise,0x1 0136 e5ff | | Load 0x2,-0x1 0137 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 0138 0a01 | | Execute_Immediate Plus,0x1 0139 600e |` | Indirect_Literal Discrete,0x148,{0x00000000, 0x0000076c} 013a 0273 | s | Execute Discrete,Plus 013b 00d8 | | Load_Top At_Offset_0 013c e003 | | Load 0x0,0x3 013d 1b0e | | Execute Package,Field_Read,Field_Number 0xe 013e 0260 | ` | Execute Discrete,In_Type 013f 7001 |p | Jump_Nonzero 0x141 0140 0801 | | Execute_Immediate Raise,0x1 0141 e003 | | Load 0x0,0x3 0142 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0143 c5fe | | Store 0x2,-0x2 0144 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0145 0000 0000 | | .XXX[0x3] 0147 0000 | | 0148 0000 0000 | | .LITERAL {0x00000000, 0x0000076c} 014c 0000 0000 | | .LITERAL {0x00000000, 0x07080000} 0150 0000 0000 | | .LITERAL {0x00000000, 0x001e0000} 0154 0000 0000 | | .LITERAL {0x00000000, 0x00000708} 0158 ; -------------------------------------------------------------------------------------- 0158 ; SUBPROGRAM 0158 ; -------------------------------------------------------------------------------------- 0158 0161 | a | .CONST 0x0161 ; Address of begin 0159 0004 | | .CONST 0x0004 ; Address of exception handler 015a 0002 | | .CONST 0x0002 ; Number of locals 015b INIT_0158: 015b e003 | | Load 0x0,0x3 015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd 015d 02c7 | | Declare_Variable Any 015e e003 | | Load 0x0,0x3 015f 1812 | | Execute Package,Field_Execute,Field_Number 0x12 0160 a402 | | Store_Unchecked 0x2,0x2 0161 BODY_0158: 0161 00d8 | | Load_Top At_Offset_0 0162 e003 | | Load 0x0,0x3 0163 1813 | | Execute Package,Field_Execute,Field_Number 0x13 0164 0aff | | Execute_Immediate Plus,-0x1 0165 602e |`. | Indirect_Literal Discrete,0x194,{0xffffffff, 0xfffff894} 0166 0273 | s | Execute Discrete,Plus 0167 00d8 | | Load_Top At_Offset_0 0168 e002 | | Load 0x0,0x2 0169 1b14 | | Execute Package,Field_Read,Field_Number 0x14 016a 0260 | ` | Execute Discrete,In_Type 016b 7001 |p | Jump_Nonzero 0x16d 016c 0801 | | Execute_Immediate Raise,0x1 016d e5ff | | Load 0x2,-0x1 016e 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 016f 00d8 | | Load_Top At_Offset_0 0170 e003 | | Load 0x0,0x3 0171 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0172 e5ff | | Load 0x2,-0x1 0173 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0174 00d8 | | Load_Top At_Offset_0 0175 e003 | | Load 0x0,0x3 0176 1815 | | Execute Package,Field_Execute,Field_Number 0x15 0177 e5ff | | Load 0x2,-0x1 0178 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0179 00d8 | | Load_Top At_Offset_0 017a e003 | | Load 0x0,0x3 017b 1816 | | Execute Package,Field_Execute,Field_Number 0x16 017c 09ff | | Execute_Immediate Binary_Scale,-0x1 017d 00d8 | | Load_Top At_Offset_0 017e 0c00 | | Execute_Immediate Greater_Equal,0x0 017f 7002 |p | Jump_Nonzero 0x182 0180 600f |` | Indirect_Literal Discrete,0x190,{0xffffffff, 0xffffc000} 0181 7801 |x | Jump 0x183 0182 6009 |` | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000} 0183 0273 | s | Execute Discrete,Plus 0184 09f1 | | Execute_Immediate Binary_Scale,-0xf 0185 e002 | | Load 0x0,0x2 0186 1b0e | | Execute Package,Field_Read,Field_Number 0xe 0187 025e | ^ | Execute Discrete,Convert 0188 e5ff | | Load 0x2,-0x1 0189 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 018a 4501 |E | Exit_Suprogram New_Top_Offset 0x1 018b 0000 | | .XXX[0x1] 018c 0000 0000 | | .LITERAL {0x00000000, 0x00004000} 0190 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000} 0194 ffff ffff | | .LITERAL {0xffffffff, 0xfffff894} 0198 ; -------------------------------------------------------------------------------------- 0198 ; SUBPROGRAM 0198 ; -------------------------------------------------------------------------------------- 0198 019b | | .CONST 0x019b ; Address of begin 0199 0004 | | .CONST 0x0004 ; Address of exception handler 019a 0001 | | .CONST 0x0001 ; Number of locals 019b BODY_0198: 019b INIT_0198: 019b 00da | | Load_Top At_Offset_2 019c e003 | | Load 0x0,0x3 019d 1813 | | Execute Package,Field_Execute,Field_Number 0x13 019e 0aff | | Execute_Immediate Plus,-0x1 019f 67f4 |g | Indirect_Literal Discrete,0x194,{0xffffffff, 0xfffff894} 01a0 0273 | s | Execute Discrete,Plus 01a1 00d8 | | Load_Top At_Offset_0 01a2 e002 | | Load 0x0,0x2 01a3 1b14 | | Execute Package,Field_Read,Field_Number 0x14 01a4 0260 | ` | Execute Discrete,In_Type 01a5 7001 |p | Jump_Nonzero 0x1a7 01a6 0801 | | Execute_Immediate Raise,0x1 01a7 e5fe | | Load 0x2,-0x2 01a8 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 01a9 00da | | Load_Top At_Offset_2 01aa e003 | | Load 0x0,0x3 01ab 1814 | | Execute Package,Field_Execute,Field_Number 0x14 01ac e5fe | | Load 0x2,-0x2 01ad 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 01ae 00da | | Load_Top At_Offset_2 01af e003 | | Load 0x0,0x3 01b0 1815 | | Execute Package,Field_Execute,Field_Number 0x15 01b1 e5fe | | Load 0x2,-0x2 01b2 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 01b3 00da | | Load_Top At_Offset_2 01b4 e003 | | Load 0x0,0x3 01b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16 01b6 09ff | | Execute_Immediate Binary_Scale,-0x1 01b7 00d8 | | Load_Top At_Offset_0 01b8 0c00 | | Execute_Immediate Greater_Equal,0x0 01b9 7002 |p | Jump_Nonzero 0x1bc 01ba 67d5 |g | Indirect_Literal Discrete,0x190,{0xffffffff, 0xffffc000} 01bb 7801 |x | Jump 0x1bd 01bc 67cf |g | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000} 01bd 0273 | s | Execute Discrete,Plus 01be 09f1 | | Execute_Immediate Binary_Scale,-0xf 01bf e002 | | Load 0x0,0x2 01c0 1b0e | | Execute Package,Field_Read,Field_Number 0xe 01c1 025e | ^ | Execute Discrete,Convert 01c2 e5fe | | Load 0x2,-0x2 01c3 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 01c4 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01c5 0000 0000 | | .XXX[0x3] 01c7 0000 | | 01c8 ; -------------------------------------------------------------------------------------- 01c8 ; SUBPROGRAM 01c8 ; -------------------------------------------------------------------------------------- 01c8 01cb | | .CONST 0x01cb ; Address of begin 01c9 0004 | | .CONST 0x0004 ; Address of exception handler 01ca 0001 | | .CONST 0x0001 ; Number of locals 01cb BODY_01c8: 01cb INIT_01c8: 01cb e402 | | Load 0x2,0x2 01cc 00db | | Load_Top At_Offset_3 01cd 480a |H | Short_Literal 0xa 01ce 0270 | p | Execute Discrete,Divide 01cf e215 | | Load 0x1,0x15 01d0 01d7 | | Execute Vector,Field_Read 01d1 e001 | | Load 0x0,0x1 01d2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01d3 00d1 | | Pop_Control Pop_Count_1 01d4 e402 | | Load 0x2,0x2 01d5 00db | | Load_Top At_Offset_3 01d6 480a |H | Short_Literal 0xa 01d7 026e | n | Execute Discrete,Modulo 01d8 e215 | | Load 0x1,0x15 01d9 01d7 | | Execute Vector,Field_Read 01da e001 | | Load 0x0,0x1 01db 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01dc 00d1 | | Pop_Control Pop_Count_1 01dd 00db | | Load_Top At_Offset_3 01de 6805 |h | Jump_Zero 0x1e4 01df e402 | | Load 0x2,0x2 01e0 e7fe | | Load 0x3,-0x2 01e1 e001 | | Load 0x0,0x1 01e2 1819 | | Execute Package,Field_Execute,Field_Number 0x19 01e3 00d1 | | Pop_Control Pop_Count_1 01e4 4503 |E | Exit_Suprogram New_Top_Offset 0x3 01e5 0000 0000 | | .XXX[0x3] 01e7 0000 | | 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 e5ff | | Load 0x2,-0x1 01ec 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01ed 6046 |`F | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000708} 01ee 0270 | p | Execute Discrete,Divide 01ef 00d8 | | Load_Top At_Offset_0 01f0 00e2 | | Load_Encached Integer_Cache 01f1 0260 | ` | Execute Discrete,In_Type 01f2 7001 |p | Jump_Nonzero 0x1f4 01f3 0801 | | Execute_Immediate Raise,0x1 01f4 a403 | | Store_Unchecked 0x2,0x3 01f5 e5ff | | Load 0x2,-0x1 01f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 01f7 603c |`< | Indirect_Literal Discrete,0x234,{0x00000000, 0x00000708} 01f8 026e | n | Execute Discrete,Modulo 01f9 c406 | | Store 0x2,0x6 01fa e406 | | Load 0x2,0x6 01fb 481e |H | Short_Literal 0x1e 01fc 0270 | p | Execute Discrete,Divide 01fd 00d8 | | Load_Top At_Offset_0 01fe 00e2 | | Load_Encached Integer_Cache 01ff 0260 | ` | Execute Discrete,In_Type 0200 7001 |p | Jump_Nonzero 0x202 0201 0801 | | Execute_Immediate Raise,0x1 0202 a404 | | Store_Unchecked 0x2,0x4 0203 e406 | | Load 0x2,0x6 0204 481e |H | Short_Literal 0x1e 0205 026e | n | Execute Discrete,Modulo 0206 0901 | | Execute_Immediate Binary_Scale,0x1 0207 00d8 | | Load_Top At_Offset_0 0208 00e2 | | Load_Encached Integer_Cache 0209 0260 | ` | Execute Discrete,In_Type 020a 7001 |p | Jump_Nonzero 0x20c 020b 0801 | | Execute_Immediate Raise,0x1 020c a405 | | Store_Unchecked 0x2,0x5 020d 483a |H: | Short_Literal 0x3a 020e e403 | | Load 0x2,0x3 020f 8407 | | Call 0x2,0x7 0210 483a |H: | Short_Literal 0x3a 0211 e404 | | Load 0x2,0x4 0212 8407 | | Call 0x2,0x7 0213 4820 |H | Short_Literal 0x20 0214 e405 | | Load 0x2,0x5 0215 8407 | | Call 0x2,0x7 0216 482d |H- | Short_Literal 0x2d 0217 e5ff | | Load 0x2,-0x1 0218 3c03 |< | Execute Record,Field_Read,Field_Number 0x3 0219 8407 | | Call 0x2,0x7 021a e402 | | Load 0x2,0x2 021b e5ff | | Load 0x2,-0x1 021c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2 021d e213 | | Load 0x1,0x13 021e 01d5 | | Execute Vector,Field_Reference 021f e001 | | Load 0x0,0x1 0220 1814 | | Execute Package,Field_Execute,Field_Number 0x14 0221 e001 | | Load 0x0,0x1 0222 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0223 00d1 | | Pop_Control Pop_Count_1 0224 e402 | | Load 0x2,0x2 0225 482d |H- | Short_Literal 0x2d 0226 e001 | | Load 0x0,0x1 0227 1819 | | Execute Package,Field_Execute,Field_Number 0x19 0228 00d1 | | Pop_Control Pop_Count_1 0229 4800 |H | Short_Literal 0x0 022a e5ff | | Load 0x2,-0x1 022b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1 022c 0a01 | | Execute_Immediate Plus,0x1 022d 00d8 | | Load_Top At_Offset_0 022e 00e2 | | Load_Encached Integer_Cache 022f 0260 | ` | Execute Discrete,In_Type 0230 7001 |p | Jump_Nonzero 0x232 0231 0801 | | Execute_Immediate Raise,0x1 0232 8407 | | Call 0x2,0x7 0233 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0234 0000 0000 | | .LITERAL {0x00000000, 0x00000708} 0238 ; -------------------------------------------------------------------------------------- 0238 ; STRING TABLE 0238 ; -------------------------------------------------------------------------------------- 0238 001c | | .STRTAB 0x001c->0x0246 ; "JAN" 0239 001d | | .STRTAB 0x001d->0x0247 ; "FEB" 023a 001e | | .STRTAB 0x001e->0x0249 ; "MAR" 023b 001f | | .STRTAB 0x001f->0x024a ; "APR" 023c 0020 | | .STRTAB 0x0020->0x024c ; "MAY" 023d 0021 | ! | .STRTAB 0x0021->0x024d ; "JUN" 023e 0022 | " | .STRTAB 0x0022->0x024f ; "JUL" 023f 0023 | # | .STRTAB 0x0023->0x0250 ; "AUG" 0240 0024 | $ | .STRTAB 0x0024->0x0252 ; "SEP" 0241 0025 | % | .STRTAB 0x0025->0x0253 ; "OCT" 0242 0026 | & | .STRTAB 0x0026->0x0255 ; "NOV" 0243 0027 | ' | .STRTAB 0x0027->0x0256 ; "DEC" 0244 0028 | ( | .STRTAB 0x0028->0x0258 ; " ??:??:?? ??-???-?? " 0245 003a | : | .STREND 0x003a->0x0262 0246 4a41 4e46 |JANF| .STRTAB_STRINGS 0262 0000 0000 | | .BLANK 0000[0x6] 0268 ; -------------------------------------------------------------------------------------- 0268 ; Debug Table 0268 ; -------------------------------------------------------------------------------------- 0268 0004 0010 | | .DEBUG4 0x0004,0x0010,0x8b4d,0x0000,0x0001,0x0000 026e 0f81 68e0 | h | .XXX[0x74] 0270 0f90 0cf0 | | 0272 1381 68e0 | h | 0274 0803 6381 | c | 0276 6b80 cc60 |k `| 0278 5803 4710 |X G | 027a 1780 f920 | | 027c 0390 0f90 | | 027e 0b80 fc60 | `| 0280 5700 f803 |W | 0282 6380 5460 |c T`| 0284 3c03 6380 |< c | 0286 446c 3460 |Dl4`| 0288 4b10 1514 |K | 028a 0b90 0cf0 | | 028c 2520 b201 |% | 028e 4807 2b80 |H + | 0290 446c 3460 |Dl4`| 0292 7790 0ce0 |w | 0294 2780 f920 |' | 0296 0390 0f90 | | 0298 0b80 fc60 | `| 029a 5700 fb97 |W | 029c ff80 5460 | T`| 029e 3d14 0920 |= | 02a0 0390 0ce0 | | 02a2 1920 0390 | | 02a4 0ce0 2390 | # | 02a6 0cf0 2601 | & | 02a8 4b80 446c |K Dl| 02aa 3460 6790 |4`g | 02ac 0ce0 2780 | ' | 02ae 60d0 0f90 |` | 02b0 0ce0 0380 | | 02b2 60f0 0b90 |` | 02b4 0ce0 0520 | | 02b6 0390 0ce0 | | 02b8 0b80 f4d0 | | 02ba 0f90 0ce0 | | 02bc 0f80 f4f0 | | 02be 0b90 0ce0 | | 02c0 1120 0390 | | 02c2 0ce0 1780 | | 02c4 f920 0390 | | 02c6 0f90 0b80 | | 02c8 fc60 5700 | `W | 02ca fb97 ff80 | | 02cc 5460 3d14 |T`= | 02ce 0800 0000 | | 02d0 002a 8c00 | * | 02d2 1000 0781 | | 02d4 6f80 446c |o Dl| 02d6 3460 4b01 |4`K | 02d8 6f81 6f97 |o o | 02da ff80 446c | Dl| 02dc 3460 6301 |4`c | 02de 6d20 0701 |m | 02e0 7114 0800 |q | 02e2 0000 0000 | | .BLANK 0000[0x6] 02e8 002a ec00 | * | .XXX[0x12] 02ea 1000 0781 | | 02ec 7780 446c |w Dl| 02ee 3460 4b01 |4`K | 02f0 7781 7797 |w w | 02f2 ff80 446c | Dl| 02f4 3460 6301 |4`c | 02f6 7520 0701 |u | 02f8 7914 0800 |y | 02fa 0000 0000 | | .BLANK 0000[0x6] 0300 002b 4c00 | +L | .XXX[0x44] 0302 1000 0520 | | 0304 0120 0120 | | 0306 0520 0120 | | 0308 0389 4428 | D(| 030a 0780 cc6c | l| 030c 5c03 6403 |\ d | 030e 4009 81c0 |@ | 0310 0420 0797 | | 0312 fd21 2a09 | !* | 0314 8d14 0800 | | 0316 0000 0000 | | 0318 002b ac00 | + | 031a 1000 0780 | | 031c acf0 083c | <| 031e 3da0 2c02 |= , | 0320 484f 5797 |HOW | 0322 fa01 7c07 | | | 0324 3002 484f |0 HO| 0326 5807 3380 |X 3 | 0328 7060 3914 |p`9 | 032a 0f97 fda0 | | 032c 0b97 fa00 | | 032e 7f80 74f0 | t | 0330 5b80 5cf0 |[ \ | 0332 8009 cf80 | | 0334 74e0 5920 |t Y | 0336 c380 74e0 | t | 0338 7120 0380 |q | 033a 74e0 7780 |t w | 033c acf0 0828 | (| 033e 0780 ace0 | | 0340 0b80 5460 | T`| 0342 4d14 0c00 |M | 0344 0000 0000 | | .BLANK 0000[0x4] 0348 002c 6c00 | ,l | .XXX[0x32] 034a 1000 0780 | | 034c b4f0 083c | <| 034e 3da0 2c02 |= , | 0350 484f 5797 |HOW | 0352 fa01 7c07 | | | 0354 3002 484f |0 HO| 0356 5807 3380 |X 3 | 0358 7060 3914 |p`9 | 035a 0f97 fda0 | | 035c 0b97 fa00 | | 035e 7f80 74f0 | t | 0360 5b80 5cf0 |[ \ | 0362 8009 cf80 | | 0364 74e0 5920 |t Y | 0366 c380 74e0 | t | 0368 7120 0380 |q | 036a 74e0 7780 |t w | 036c b4f0 0828 | (| 036e 0780 b4e0 | | 0370 0920 0380 | | 0372 b4f0 0b80 | | 0374 b4d0 0c07 | | 0376 5b80 5460 |[ T`| 0378 4d14 0c00 |M | 037a 0000 0000 | | .BLANK 0000[0x6] 0380 002d 6400 | -d | .XXX[0x13] 0382 1000 1380 | | 0384 446c 3b81 |Dl; | 0386 186c 780a | lx | 0388 7c46 4f97 ||FO | 038a ff80 446c | Dl| 038c 3460 5b81 |4`[ | 038e 1860 8290 | ` | 0390 0e10 1114 | | 0392 0800 | | 0393 0000 0000 | | .BLANK 0000[0x5] 0398 002d ac00 | - | .XXX[0x68] 039a 1000 0520 | | 039c 0120 0120 | | 039e 0520 0120 | | 03a0 0389 4428 | D(| 03a2 1380 cc6c | l| 03a4 5c03 6403 |\ d | 03a6 4009 81c0 |@ | 03a8 0420 0797 | | 03aa fd21 4a09 | !J | 03ac 8d14 0800 | | 03ae 0000 0000 | | 03b0 002e 0c00 | . | 03b2 1000 0520 | | 03b4 0120 0120 | | 03b6 0520 0120 | | 03b8 0389 4428 | D(| 03ba 0b80 cc6c | l| 03bc 5c03 6403 |\ d | 03be 4009 81c0 |@ | 03c0 0420 0797 | | 03c2 fd21 5209 | !R | 03c4 8d14 0800 | | 03c6 0000 0000 | | 03c8 002e 8c2e | . .| 03ca c000 1780 | | 03cc 446c bf89 |Dl | 03ce 5000 1f80 |P | 03d0 446c a80a |Dl | 03d2 7c47 ee10 ||G | 03d4 1797 ff80 | | 03d6 446c 3460 |Dl4`| 03d8 5b80 446c |[ Dl| 03da a870 0a90 | p | 03dc 1390 1380 | | 03de 5460 5114 |T`Q | 03e0 0804 39a0 | 9 | 03e2 3402 484e |4 HN| 03e4 b797 ff80 | | 03e6 446c 3460 |Dl4`| 03e8 5807 3002 |X 0 | 03ea 484f 5c07 |HO\ | 03ec 3380 7060 |3 p`| 03ee 3914 0804 |9 | 03f0 002f 7c00 | /| | 03f2 1000 1397 | | 03f4 ff80 446c | Dl| 03f6 3460 5b81 |4`[ | 03f8 8060 8120 | ` | 03fa 0790 0b81 | | 03fc 8060 8d20 | ` | 03fe 0790 0b81 | |