|
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, seg_29d0d7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦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 e002 | | Load 0x0,0x2
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 e003 | | Load 0x0,0x3
00d5 0007 | | Action Break_Optional
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 e002 | | Load 0x0,0x2
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 011d | | .CONST 0x011d ; 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 6062 |`b | Indirect_Literal Discrete,0x150,{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 6057 |`W | Indirect_Literal Discrete,0x150,{0x00000000, 0x00000708}
00f9 026e | n | Execute Discrete,Modulo
00fa e003 | | Load 0x0,0x3
00fb 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00fc 00d8 | | Load_Top At_Offset_0
00fd 481e |H | Short_Literal 0x1e
00fe 0270 | p | Execute Discrete,Divide
00ff 00d8 | | Load_Top At_Offset_0
0100 00e2 | | Load_Encached Integer_Cache
0101 0260 | ` | Execute Discrete,In_Type
0102 7001 |p | Jump_Nonzero 0x104
0103 0801 | | Execute_Immediate Raise,0x1
0104 00e2 | | Load_Encached Integer_Cache
0105 03f1 | | Declare_Variable Discrete,With_Value
0106 00d9 | | Load_Top At_Offset_1
0107 481e |H | Short_Literal 0x1e
0108 026e | n | Execute Discrete,Modulo
0109 0901 | | Execute_Immediate Binary_Scale,0x1
010a 00d8 | | Load_Top At_Offset_0
010b 00e2 | | Load_Encached Integer_Cache
010c 0260 | ` | Execute Discrete,In_Type
010d 7001 |p | Jump_Nonzero 0x10f
010e 0801 | | Execute_Immediate Raise,0x1
010f 00e2 | | Load_Encached Integer_Cache
0110 03f1 | | Declare_Variable Discrete,With_Value
0111 00d8 | | Load_Top At_Offset_0
0112 090f | | Execute_Immediate Binary_Scale,0xf
0113 00da | | Load_Top At_Offset_2
0114 6037 |`7 | Indirect_Literal Discrete,0x14c,{0x00000000, 0x001e0000}
0115 0271 | q | Execute Discrete,Times
0116 0273 | s | Execute Discrete,Plus
0117 e402 | | Load 0x2,0x2
0118 602f |`/ | Indirect_Literal Discrete,0x148,{0x00000000, 0x07080000}
0119 0271 | q | Execute Discrete,Times
011a 0273 | s | Execute Discrete,Plus
011b 00e7 | | Load_Encached Duration_Cache
011c 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
011d BODY_00e8:
011d 00d8 | | Load_Top At_Offset_0
011e e004 | | Load 0x0,0x4
011f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0120 00d9 | | Load_Top At_Offset_1
0121 00d0 | | Action Swap_Control
0122 0260 | ` | Execute Discrete,In_Type
0123 7001 |p | Jump_Nonzero 0x125
0124 0801 | | Execute_Immediate Raise,0x1
0125 e5ff | | Load 0x2,-0x1
0126 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0127 00d8 | | Load_Top At_Offset_0
0128 e004 | | Load 0x0,0x4
0129 1b10 | | Execute Package,Field_Read,Field_Number 0x10
012a 0260 | ` | Execute Discrete,In_Type
012b 7001 |p | Jump_Nonzero 0x12d
012c 0801 | | Execute_Immediate Raise,0x1
012d e5ff | | Load 0x2,-0x1
012e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
012f 00d8 | | Load_Top At_Offset_0
0130 e004 | | Load 0x0,0x4
0131 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0132 0260 | ` | Execute Discrete,In_Type
0133 7001 |p | Jump_Nonzero 0x135
0134 0801 | | Execute_Immediate Raise,0x1
0135 e5ff | | Load 0x2,-0x1
0136 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0137 0a01 | | Execute_Immediate Plus,0x1
0138 600b |` | Indirect_Literal Discrete,0x144,{0x00000000, 0x0000076c}
0139 0273 | s | Execute Discrete,Plus
013a 00d8 | | Load_Top At_Offset_0
013b e004 | | Load 0x0,0x4
013c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
013d 0260 | ` | Execute Discrete,In_Type
013e 7001 |p | Jump_Nonzero 0x140
013f 0801 | | Execute_Immediate Raise,0x1
0140 e004 | | Load 0x0,0x4
0141 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0142 c5fe | | Store 0x2,-0x2
0143 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0144 0000 0000 | | .LITERAL {0x00000000, 0x0000076c}
0148 0000 0000 | | .LITERAL {0x00000000, 0x07080000}
014c 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
0150 0000 0000 | | .LITERAL {0x00000000, 0x00000708}
0154 0000 0000 | | .BLANK 0000[0x4]
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 e004 | | Load 0x0,0x4
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 02c7 | | Declare_Variable Any
015e e004 | | Load 0x0,0x4
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 e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
0169 0260 | ` | Execute Discrete,In_Type
016a 7001 |p | Jump_Nonzero 0x16c
016b 0801 | | Execute_Immediate Raise,0x1
016c e5ff | | Load 0x2,-0x1
016d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
016e 00d8 | | Load_Top At_Offset_0
016f e004 | | Load 0x0,0x4
0170 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0171 e5ff | | Load 0x2,-0x1
0172 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0173 00d8 | | Load_Top At_Offset_0
0174 e004 | | Load 0x0,0x4
0175 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0176 e5ff | | Load 0x2,-0x1
0177 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0178 00d8 | | Load_Top At_Offset_0
0179 e004 | | Load 0x0,0x4
017a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
017b 09ff | | Execute_Immediate Binary_Scale,-0x1
017c 00d8 | | Load_Top At_Offset_0
017d 0c00 | | Execute_Immediate Greater_Equal,0x0
017e 7002 |p | Jump_Nonzero 0x181
017f 6010 |` | Indirect_Literal Discrete,0x190,{0xffffffff, 0xffffc000}
0180 7801 |x | Jump 0x182
0181 600a |` | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000}
0182 0273 | s | Execute Discrete,Plus
0183 09f1 | | Execute_Immediate Binary_Scale,-0xf
0184 e003 | | Load 0x0,0x3
0185 025e | ^ | Execute Discrete,Convert
0186 e5ff | | Load 0x2,-0x1
0187 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0188 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0189 0000 0000 | | .XXX[0x3]
018b 0000 | |
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 e004 | | Load 0x0,0x4
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 e005 | | Load 0x0,0x5
01a3 0260 | ` | Execute Discrete,In_Type
01a4 7001 |p | Jump_Nonzero 0x1a6
01a5 0801 | | Execute_Immediate Raise,0x1
01a6 e5fe | | Load 0x2,-0x2
01a7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01a8 00da | | Load_Top At_Offset_2
01a9 e004 | | Load 0x0,0x4
01aa 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01ab e5fe | | Load 0x2,-0x2
01ac 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
01ad 00da | | Load_Top At_Offset_2
01ae e004 | | Load 0x0,0x4
01af 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b0 e5fe | | Load 0x2,-0x2
01b1 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
01b2 00da | | Load_Top At_Offset_2
01b3 e004 | | Load 0x0,0x4
01b4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01b5 09ff | | Execute_Immediate Binary_Scale,-0x1
01b6 00d8 | | Load_Top At_Offset_0
01b7 0c00 | | Execute_Immediate Greater_Equal,0x0
01b8 7002 |p | Jump_Nonzero 0x1bb
01b9 67d6 |g | Indirect_Literal Discrete,0x190,{0xffffffff, 0xffffc000}
01ba 7801 |x | Jump 0x1bc
01bb 67d0 |g | Indirect_Literal Discrete,0x18c,{0x00000000, 0x00004000}
01bc 0273 | s | Execute Discrete,Plus
01bd 09f1 | | Execute_Immediate Binary_Scale,-0xf
01be e003 | | Load 0x0,0x3
01bf 025e | ^ | Execute Discrete,Convert
01c0 e5fe | | Load 0x2,-0x2
01c1 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
01c2 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01c3 0000 0000 | | .BLANK 0000[0x5]
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
0220 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0221 e002 | | Load 0x0,0x2
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 e002 | | Load 0x0,0x2
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 0011 | | .DEBUG4 0x0004,0x0011,0xf1fd,0x0000,0x0001,0x0000
026e 0000 0000 | | .BLANK 0000[0x192]