|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0f80a5
└─⟦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 0570 | p | .CONST 0x0570 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 003f | ? | .CONST 0x003f ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated
000d 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000f 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0011 e001 | | Load 0x0,0x1
0012 191f | | Execute Package,Field_Reference,Field_Number 0x1f
0013 0129 | ) | Execute Any,Make_Visible
0014 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
0016 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0018 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
001a 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
001c 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
001e 029a 02c3 | | Declare_Subprogram INIT_02c0,For_Outer_Call,Visible,Unelaborated
0020 029a 02d3 | | Declare_Subprogram INIT_02d0,For_Outer_Call,Visible,Unelaborated
0022 029a 02e3 | | Declare_Subprogram INIT_02e0,For_Outer_Call,Visible,Unelaborated
0024 029a 0353 | S| Declare_Subprogram INIT_0350,For_Outer_Call,Visible,Unelaborated
0026 00bf | | Action Accept_Activation
0027 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0028 00c7 | | Action Elaborate_Subprogram
0029 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002a 00c7 | | Action Elaborate_Subprogram
002b 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002c 00c7 | | Action Elaborate_Subprogram
002d 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002e 00c7 | | Action Elaborate_Subprogram
002f 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0030 00c7 | | Action Elaborate_Subprogram
0031 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0032 00c7 | | Action Elaborate_Subprogram
0033 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0034 00c7 | | Action Elaborate_Subprogram
0035 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0036 00c7 | | Action Elaborate_Subprogram
0037 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0038 00c7 | | Action Elaborate_Subprogram
0039 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003a 00c7 | | Action Elaborate_Subprogram
003b 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003c 00c7 | | Action Elaborate_Subprogram
003d 1d19 | | Execute_Immediate Reference_Lex_1,0x19
003e 00c7 | | Action Elaborate_Subprogram
003f BODY_0008:
003f 00bc | | Action Signal_Activated
0040 00bb | | Action Signal_Completion
0041 0000 0000 | | .BLANK 0000[0x7]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b 4800 |H | Short_Literal 0x0
004c 00db | | Load_Top At_Offset_3
004d e002 | | Load 0x0,0x2
004e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
004f e5ff | | Load 0x2,-0x1
0050 e002 | | Load 0x0,0x2
0051 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0052 e5ff | | Load 0x2,-0x1
0053 e002 | | Load 0x0,0x2
0054 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0055 e002 | | Load 0x0,0x2
0056 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0057 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b 00da | | Load_Top At_Offset_2
005c 8211 | | Call 0x1,0x11
005d 820d | | Call 0x1,0xd
005e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
005f 0000 | | .XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 e5fc | | Load 0x2,-0x4
0064 e5fd | | Load 0x2,-0x3
0065 e5fe | | Load 0x2,-0x2
0066 e5ff | | Load 0x2,-0x1
0067 e001 | | Load 0x0,0x1
0068 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0069 8210 | | Call 0x1,0x10
006a 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
006b 0000 0000 | | .BLANK 0000[0x5]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 00da | | Load_Top At_Offset_2
0074 e001 | | Load 0x0,0x1
0075 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0076 e001 | | Load 0x0,0x1
0077 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0078 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0079 0000 0000 | | .BLANK 0000[0x7]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 00c6 | | .CONST 0x00c6 ; Address of begin
0081 00da | | .CONST 0x00da ; Address of exception handler
0082 0006 | | .CONST 0x0006 ; Number of locals
0083 INIT_0080:
0083 e001 | | Load 0x0,0x1
0084 1b24 | $ | Execute Package,Field_Read,Field_Number 0x24
0085 0322 | " | Declare_Variable Record
0086 00db | | Load_Top At_Offset_3
0087 e001 | | Load 0x0,0x1
0088 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0089 00d9 | | Load_Top At_Offset_1
008a 017d | } | Execute Record,Structure_Write
008b 4800 |H | Short_Literal 0x0
008c 4802 |H | Short_Literal 0x2
008d 029f 0363 | c| Declare_Subprogram INIT_0360,For_Call
008f 03fd | | Declare_Type Discrete,Defined
0090 00d8 | | Load_Top At_Offset_0
0091 0266 | f | Execute Discrete,Bounds
0092 00e2 | | Load_Encached Integer_Cache
0093 02a0 | | Declare_Subprogram Null_Subprogram
0094 4801 |H | Short_Literal 0x1
0095 035d | ] | Declare_Type Array,Defined
0096 00d8 | | Load_Top At_Offset_0
0097 0337 | 7 | Declare_Variable Array
0098 00d8 | | Load_Top At_Offset_0
0099 0335 | 5 | Declare_Variable Array,Duplicate
009a 00cd | | Action Spare6_Action
009b e402 | | Load 0x2,0x2
009c 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009d 4818 |H | Short_Literal 0x18
009e 0271 | q | Execute Discrete,Times
009f e402 | | Load 0x2,0x2
00a0 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a1 0273 | s | Execute Discrete,Plus
00a2 4800 |H | Short_Literal 0x0
00a3 00da | | Load_Top At_Offset_2
00a4 01d6 | | Execute Vector,Field_Write
00a5 e402 | | Load 0x2,0x2
00a6 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00a7 4801 |H | Short_Literal 0x1
00a8 00da | | Load_Top At_Offset_2
00a9 01d6 | | Execute Vector,Field_Write
00aa e402 | | Load 0x2,0x2
00ab 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00ac 4802 |H | Short_Literal 0x2
00ad 00da | | Load_Top At_Offset_2
00ae 01d6 | | Execute Vector,Field_Write
00af 00d9 | | Load_Top At_Offset_1
00b0 01d4 | | Execute Vector,Structure_Write
00b1 4830 |H0 | Short_Literal 0x30
00b2 4802 |H | Short_Literal 0x2
00b3 480a |H | Short_Literal 0xa
00b4 4801 |H | Short_Literal 0x1
00b5 e405 | | Load 0x2,0x5
00b6 01d7 | | Execute Vector,Field_Read
00b7 e003 | | Load 0x0,0x3
00b8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b9 0092 0527 | '| Action Push_String_Extended,0x527 ; ":"
00bb 01cc | | Execute Vector,Catenate
00bc 4830 |H0 | Short_Literal 0x30
00bd 4802 |H | Short_Literal 0x2
00be 480a |H | Short_Literal 0xa
00bf 4802 |H | Short_Literal 0x2
00c0 e405 | | Load 0x2,0x5
00c1 01d7 | | Execute Vector,Field_Read
00c2 e003 | | Load 0x0,0x3
00c3 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c4 01cc | | Execute Vector,Catenate
00c5 0007 | | Action Break_Optional
00c6 BODY_0080:
00c6 4800 |H | Short_Literal 0x0
00c7 00da | | Load_Top At_Offset_2
00c8 01d7 | | Execute Vector,Field_Read
00c9 680e |h | Jump_Zero 0xd8
00ca 4820 |H | Short_Literal 0x20
00cb 4800 |H | Short_Literal 0x0
00cc 480a |H | Short_Literal 0xa
00cd 4800 |H | Short_Literal 0x0
00ce e405 | | Load 0x2,0x5
00cf 01d7 | | Execute Vector,Field_Read
00d0 e003 | | Load 0x0,0x3
00d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d2 0092 0527 | '| Action Push_String_Extended,0x527 ; ":"
00d4 01cc | | Execute Vector,Catenate
00d5 00d9 | | Load_Top At_Offset_1
00d6 01cc | | Execute Vector,Catenate
00d7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d8 00d8 | | Load_Top At_Offset_0
00d9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00da TRAP_0080:
00da 0007 | | Action Break_Optional
00db 0092 0528 | (| Action Push_String_Extended,0x528 ; "***"
00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 011a | | .CONST 0x011a ; Address of begin
00e1 0292 | | .CONST 0x0292 ; Address of exception handler
00e2 0018 | | .CONST 0x0018 ; Number of locals
00e3 INIT_00e0:
00e3 4800 |H | Short_Literal 0x0
00e4 4814 |H | Short_Literal 0x14
00e5 029f 038b | | Declare_Subprogram INIT_0388,For_Call
00e7 03fd | | Declare_Type Discrete,Defined
00e8 00d8 | | Load_Top At_Offset_0
00e9 03e9 | | Declare_Variable Discrete,Duplicate
00ea 00e3 | | Load_Encached Natural_Cache
00eb e5ff | | Load 0x2,-0x1
00ec 01dd | | Execute Vector,First
00ed 00e3 | | Load_Encached Natural_Cache
00ee 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00ef 03e9 | | Declare_Variable Discrete,Duplicate
00f0 e002 | | Load 0x0,0x2
00f1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f2 02c7 | | Declare_Variable Any
00f3 e002 | | Load 0x0,0x2
00f4 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f5 a408 | | Store_Unchecked 0x2,0x8
00f6 e002 | | Load 0x0,0x2
00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f8 02c7 | | Declare_Variable Any
00f9 00d8 | | Load_Top At_Offset_0
00fa 1c00 | | Execute_Immediate Run_Utility,0x0
00fb 00e3 | | Load_Encached Natural_Cache
00fc 00e2 | | Load_Encached Integer_Cache
00fd 00e3 | | Load_Encached Natural_Cache
00fe 00e7 | | Load_Encached Duration_Cache
00ff 00e7 | | Load_Encached Duration_Cache
0100 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
0102 029e 04cb | | Declare_Subprogram INIT_04c8,For_Call,Unelaborated
0104 4810 |H | Short_Literal 0x10
0105 4802 |H | Short_Literal 0x2
0106 0099 | | Action Reference_Dynamic
0107 00c7 | | Action Elaborate_Subprogram
0108 4810 |H | Short_Literal 0x10
0109 4802 |H | Short_Literal 0x2
010a 0099 | | Action Reference_Dynamic
010b 00c6 | | Action Check_Subprogram_Elaborated
010c e402 | | Load 0x2,0x2
010d e004 | | Load 0x0,0x4
010e e005 | | Load 0x0,0x5
010f 4814 |H | Short_Literal 0x14
0110 0007 | | Action Break_Optional
0111 4810 |H | Short_Literal 0x10
0112 4802 |H | Short_Literal 0x2
0113 0099 | | Action Reference_Dynamic
0114 00c6 | | Action Check_Subprogram_Elaborated
0115 00e3 | | Load_Encached Natural_Cache
0116 e006 | | Load 0x0,0x6
0117 e007 | | Load 0x0,0x7
0118 4818 |H | Short_Literal 0x18
0119 0007 | | Action Break_Optional
011a BODY_00e0:
011a e5ff | | Load 0x2,-0x1
011b 01dd | | Execute Vector,First
011c 0a01 | | Execute_Immediate Plus,0x1
011d c406 | | Store 0x2,0x6
011e e411 | | Load 0x2,0x11
011f e407 | | Load 0x2,0x7
0120 e406 | | Load 0x2,0x6
0121 e5ff | | Load 0x2,-0x1
0122 e411 | | Load 0x2,0x11
0123 4812 |H | Short_Literal 0x12
0124 4802 |H | Short_Literal 0x2
0125 0099 | | Action Reference_Dynamic
0126 8410 | | Call 0x2,0x10
0127 c406 | | Store 0x2,0x6
0128 c407 | | Store 0x2,0x7
0129 c403 | | Store 0x2,0x3
012a e403 | | Load 0x2,0x3
012b 4614 |F | Jump_Case 0x15
012c 7879 |xy | Jump 0x1a6 ; case 0x0
012d 787b |x{ | Jump 0x1a9 ; case 0x1
012e 7880 |x | Jump 0x1af ; case 0x2
012f 7881 |x | Jump 0x1b1 ; case 0x3
0130 7880 |x | Jump 0x1b1 ; case 0x4
0131 795d |y] | Jump 0x28f ; case 0x5
0132 795c |y\ | Jump 0x28f ; case 0x6
0133 795b |y[ | Jump 0x28f ; case 0x7
0134 795a |yZ | Jump 0x28f ; case 0x8
0135 7959 |yY | Jump 0x28f ; case 0x9
0136 7958 |yX | Jump 0x28f ; case 0xa
0137 7957 |yW | Jump 0x28f ; case 0xb
0138 7956 |yV | Jump 0x28f ; case 0xc
0139 7955 |yU | Jump 0x28f ; case 0xd
013a 7954 |yT | Jump 0x28f ; case 0xe
013b 7953 |yS | Jump 0x28f ; case 0xf
013c 7952 |yR | Jump 0x28f ; case 0x10
013d 7951 |yQ | Jump 0x28f ; case 0x11
013e 7950 |yP | Jump 0x28f ; case 0x12
013f 78ed |x | Jump 0x22d ; case 0x13
0140 7800 |x | Jump 0x141 ; case 0x14
0141 e411 | | Load 0x2,0x11
0142 e407 | | Load 0x2,0x7
0143 e406 | | Load 0x2,0x6
0144 e5ff | | Load 0x2,-0x1
0145 e411 | | Load 0x2,0x11
0146 4812 |H | Short_Literal 0x12
0147 4802 |H | Short_Literal 0x2
0148 0099 | | Action Reference_Dynamic
0149 8410 | | Call 0x2,0x10
014a c406 | | Store 0x2,0x6
014b c407 | | Store 0x2,0x7
014c c404 | | Store 0x2,0x4
014d e404 | | Load 0x2,0x4
014e 4614 |F | Jump_Case 0x15
014f 7941 |yA | Jump 0x291 ; case 0x0
0150 7940 |y@ | Jump 0x291 ; case 0x1
0151 793f |y? | Jump 0x291 ; case 0x2
0152 793e |y> | Jump 0x291 ; case 0x3
0153 793d |y= | Jump 0x291 ; case 0x4
0154 793c |y< | Jump 0x291 ; case 0x5
0155 793b |y; | Jump 0x291 ; case 0x6
0156 793a |y: | Jump 0x291 ; case 0x7
0157 780c |x | Jump 0x164 ; case 0x8
0158 7938 |y8 | Jump 0x291 ; case 0x9
0159 7839 |x9 | Jump 0x193 ; case 0xa
015a 7936 |y6 | Jump 0x291 ; case 0xb
015b 7935 |y5 | Jump 0x291 ; case 0xc
015c 7934 |y4 | Jump 0x291 ; case 0xd
015d 7933 |y3 | Jump 0x291 ; case 0xe
015e 7932 |y2 | Jump 0x291 ; case 0xf
015f 7931 |y1 | Jump 0x291 ; case 0x10
0160 7930 |y0 | Jump 0x291 ; case 0x11
0161 792f |y/ | Jump 0x291 ; case 0x12
0162 792e |y. | Jump 0x291 ; case 0x13
0163 792d |y- | Jump 0x291 ; case 0x14
0164 e002 | | Load 0x0,0x2
0165 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0166 e002 | | Load 0x0,0x2
0167 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0168 e002 | | Load 0x0,0x2
0169 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016a e002 | | Load 0x0,0x2
016b 1b0e | | Execute Package,Field_Read,Field_Number 0xe
016c 4800 |H | Short_Literal 0x0
016d 4800 |H | Short_Literal 0x0
016e 4800 |H | Short_Literal 0x0
016f 4800 |H | Short_Literal 0x0
0170 4800 |H | Short_Literal 0x0
0171 4800 |H | Short_Literal 0x0
0172 4801 |H | Short_Literal 0x1
0173 4800 |H | Short_Literal 0x0
0174 840f | | Call 0x2,0xf
0175 e002 | | Load 0x0,0x2
0176 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0177 c40a | | Store 0x2,0xa
0178 c40b | | Store 0x2,0xb
0179 c40c | | Store 0x2,0xc
017a c40d | | Store 0x2,0xd
017b 611c |a | Indirect_Literal Discrete,0x298,{0x00000000, 0xa8c00000}
017c 4800 |H | Short_Literal 0x0
017d 4801 |H | Short_Literal 0x1
017e e40b | | Load 0x2,0xb
017f e002 | | Load 0x0,0x2
0180 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0181 00d9 | | Load_Top At_Offset_1
0182 00d0 | | Action Swap_Control
0183 0260 | ` | Execute Discrete,In_Type
0184 7001 |p | Jump_Nonzero 0x186
0185 0801 | | Execute_Immediate Raise,0x1
0186 e40a | | Load 0x2,0xa
0187 e002 | | Load 0x0,0x2
0188 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0189 00d9 | | Load_Top At_Offset_1
018a 00d0 | | Action Swap_Control
018b 0260 | ` | Execute Discrete,In_Type
018c 7001 |p | Jump_Nonzero 0x18e
018d 0801 | | Execute_Immediate Raise,0x1
018e e002 | | Load 0x0,0x2
018f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0190 e002 | | Load 0x0,0x2
0191 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0192 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0193 4ff1 |O | Short_Literal -0xf
0194 4807 |H | Short_Literal 0x7
0195 e408 | | Load 0x2,0x8
0196 e001 | | Load 0x0,0x1
0197 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0198 0272 | r | Execute Discrete,Minus
0199 090f | | Execute_Immediate Binary_Scale,0xf
019a 60fd |` | Indirect_Literal Discrete,0x298,{0x00000000, 0xa8c00000}
019b 0141 | A | Execute Discrete,Multiply_And_Scale
019c 00d8 | | Load_Top At_Offset_0
019d 00e7 | | Load_Encached Duration_Cache
019e 0260 | ` | Execute Discrete,In_Type
019f 7001 |p | Jump_Nonzero 0x1a1
01a0 0801 | | Execute_Immediate Raise,0x1
01a1 e408 | | Load 0x2,0x8
01a2 e002 | | Load 0x0,0x2
01a3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01a4 820d | | Call 0x1,0xd
01a5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a6 e408 | | Load 0x2,0x8
01a7 820d | | Call 0x1,0xd
01a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a9 60ee |` | Indirect_Literal Discrete,0x298,{0x00000000, 0xa8c00000}
01aa e408 | | Load 0x2,0x8
01ab e002 | | Load 0x0,0x2
01ac 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ad 820d | | Call 0x1,0xd
01ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01af e408 | | Load 0x2,0x8
01b0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b1 00db | | Load_Top At_Offset_3
01b2 e407 | | Load 0x2,0x7
01b3 e406 | | Load 0x2,0x6
01b4 e5ff | | Load 0x2,-0x1
01b5 e415 | | Load 0x2,0x15
01b6 4816 |H | Short_Literal 0x16
01b7 4802 |H | Short_Literal 0x2
01b8 0099 | | Action Reference_Dynamic
01b9 8410 | | Call 0x2,0x10
01ba c406 | | Store 0x2,0x6
01bb c407 | | Store 0x2,0x7
01bc c405 | | Store 0x2,0x5
01bd e411 | | Load 0x2,0x11
01be e407 | | Load 0x2,0x7
01bf e406 | | Load 0x2,0x6
01c0 e5ff | | Load 0x2,-0x1
01c1 e411 | | Load 0x2,0x11
01c2 4812 |H | Short_Literal 0x12
01c3 4802 |H | Short_Literal 0x2
01c4 0099 | | Action Reference_Dynamic
01c5 8410 | | Call 0x2,0x10
01c6 c406 | | Store 0x2,0x6
01c7 c407 | | Store 0x2,0x7
01c8 c404 | | Store 0x2,0x4
01c9 e404 | | Load 0x2,0x4
01ca 4614 |F | Jump_Case 0x15
01cb 78c5 |x | Jump 0x291 ; case 0x0
01cc 78c4 |x | Jump 0x291 ; case 0x1
01cd 78c3 |x | Jump 0x291 ; case 0x2
01ce 78c2 |x | Jump 0x291 ; case 0x3
01cf 78c1 |x | Jump 0x291 ; case 0x4
01d0 7851 |xQ | Jump 0x222 ; case 0x5
01d1 7850 |xP | Jump 0x222 ; case 0x6
01d2 780d |x | Jump 0x1e0 ; case 0x7
01d3 780c |x | Jump 0x1e0 ; case 0x8
01d4 7816 |x | Jump 0x1eb ; case 0x9
01d5 7815 |x | Jump 0x1eb ; case 0xa
01d6 781f |x | Jump 0x1f6 ; case 0xb
01d7 781e |x | Jump 0x1f6 ; case 0xc
01d8 7828 |x( | Jump 0x201 ; case 0xd
01d9 7827 |x' | Jump 0x201 ; case 0xe
01da 7831 |x1 | Jump 0x20c ; case 0xf
01db 7830 |x0 | Jump 0x20c ; case 0x10
01dc 783a |x: | Jump 0x217 ; case 0x11
01dd 7839 |x9 | Jump 0x217 ; case 0x12
01de 78b2 |x | Jump 0x291 ; case 0x13
01df 78b1 |x | Jump 0x291 ; case 0x14
01e0 e403 | | Load 0x2,0x3
01e1 0f04 | | Execute_Immediate Equal,0x4
01e2 4800 |H | Short_Literal 0x0
01e3 4800 |H | Short_Literal 0x0
01e4 4800 |H | Short_Literal 0x0
01e5 4800 |H | Short_Literal 0x0
01e6 4800 |H | Short_Literal 0x0
01e7 e405 | | Load 0x2,0x5
01e8 4800 |H | Short_Literal 0x0
01e9 840f | | Call 0x2,0xf
01ea 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01eb e403 | | Load 0x2,0x3
01ec 0f04 | | Execute_Immediate Equal,0x4
01ed 4800 |H | Short_Literal 0x0
01ee 4800 |H | Short_Literal 0x0
01ef 4800 |H | Short_Literal 0x0
01f0 4800 |H | Short_Literal 0x0
01f1 e405 | | Load 0x2,0x5
01f2 4800 |H | Short_Literal 0x0
01f3 4800 |H | Short_Literal 0x0
01f4 840f | | Call 0x2,0xf
01f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f6 e403 | | Load 0x2,0x3
01f7 0f04 | | Execute_Immediate Equal,0x4
01f8 4800 |H | Short_Literal 0x0
01f9 4800 |H | Short_Literal 0x0
01fa 4800 |H | Short_Literal 0x0
01fb e405 | | Load 0x2,0x5
01fc 4800 |H | Short_Literal 0x0
01fd 4800 |H | Short_Literal 0x0
01fe 4800 |H | Short_Literal 0x0
01ff 840f | | Call 0x2,0xf
0200 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0201 e403 | | Load 0x2,0x3
0202 0f04 | | Execute_Immediate Equal,0x4
0203 4800 |H | Short_Literal 0x0
0204 4800 |H | Short_Literal 0x0
0205 e405 | | Load 0x2,0x5
0206 4800 |H | Short_Literal 0x0
0207 4800 |H | Short_Literal 0x0
0208 4800 |H | Short_Literal 0x0
0209 4800 |H | Short_Literal 0x0
020a 840f | | Call 0x2,0xf
020b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020c e403 | | Load 0x2,0x3
020d 0f04 | | Execute_Immediate Equal,0x4
020e 4800 |H | Short_Literal 0x0
020f e405 | | Load 0x2,0x5
0210 4800 |H | Short_Literal 0x0
0211 4800 |H | Short_Literal 0x0
0212 4800 |H | Short_Literal 0x0
0213 4800 |H | Short_Literal 0x0
0214 4800 |H | Short_Literal 0x0
0215 840f | | Call 0x2,0xf
0216 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0217 e403 | | Load 0x2,0x3
0218 0f04 | | Execute_Immediate Equal,0x4
0219 e405 | | Load 0x2,0x5
021a 4800 |H | Short_Literal 0x0
021b 4800 |H | Short_Literal 0x0
021c 4800 |H | Short_Literal 0x0
021d 4800 |H | Short_Literal 0x0
021e 4800 |H | Short_Literal 0x0
021f 4800 |H | Short_Literal 0x0
0220 840f | | Call 0x2,0xf
0221 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0222 e403 | | Load 0x2,0x3
0223 0f04 | | Execute_Immediate Equal,0x4
0224 4800 |H | Short_Literal 0x0
0225 4800 |H | Short_Literal 0x0
0226 4800 |H | Short_Literal 0x0
0227 4800 |H | Short_Literal 0x0
0228 4800 |H | Short_Literal 0x0
0229 4800 |H | Short_Literal 0x0
022a e405 | | Load 0x2,0x5
022b 840f | | Call 0x2,0xf
022c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022d e002 | | Load 0x0,0x2
022e 1b11 | | Execute Package,Field_Read,Field_Number 0x11
022f e002 | | Load 0x0,0x2
0230 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0231 e002 | | Load 0x0,0x2
0232 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0233 e002 | | Load 0x0,0x2
0234 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0235 e408 | | Load 0x2,0x8
0236 e002 | | Load 0x0,0x2
0237 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0238 c40a | | Store 0x2,0xa
0239 c40b | | Store 0x2,0xb
023a c40c | | Store 0x2,0xc
023b c40d | | Store 0x2,0xd
023c e411 | | Load 0x2,0x11
023d e407 | | Load 0x2,0x7
023e e406 | | Load 0x2,0x6
023f e5ff | | Load 0x2,-0x1
0240 e411 | | Load 0x2,0x11
0241 4812 |H | Short_Literal 0x12
0242 4802 |H | Short_Literal 0x2
0243 0099 | | Action Reference_Dynamic
0244 8410 | | Call 0x2,0x10
0245 c406 | | Store 0x2,0x6
0246 c407 | | Store 0x2,0x7
0247 c404 | | Store 0x2,0x4
0248 e404 | | Load 0x2,0x4
0249 4614 |F | Jump_Case 0x15
024a 7846 |xF | Jump 0x291 ; case 0x0
024b 7845 |xE | Jump 0x291 ; case 0x1
024c 7844 |xD | Jump 0x291 ; case 0x2
024d 7843 |xC | Jump 0x291 ; case 0x3
024e 7842 |xB | Jump 0x291 ; case 0x4
024f 7841 |xA | Jump 0x291 ; case 0x5
0250 7840 |x@ | Jump 0x291 ; case 0x6
0251 783f |x? | Jump 0x291 ; case 0x7
0252 780c |x | Jump 0x25f ; case 0x8
0253 783d |x= | Jump 0x291 ; case 0x9
0254 7828 |x( | Jump 0x27d ; case 0xa
0255 783b |x; | Jump 0x291 ; case 0xb
0256 783a |x: | Jump 0x291 ; case 0xc
0257 7839 |x9 | Jump 0x291 ; case 0xd
0258 7838 |x8 | Jump 0x291 ; case 0xe
0259 7837 |x7 | Jump 0x291 ; case 0xf
025a 7836 |x6 | Jump 0x291 ; case 0x10
025b 7835 |x5 | Jump 0x291 ; case 0x11
025c 7834 |x4 | Jump 0x291 ; case 0x12
025d 7833 |x3 | Jump 0x291 ; case 0x13
025e 7832 |x2 | Jump 0x291 ; case 0x14
025f 4801 |H | Short_Literal 0x1
0260 a40c | | Store_Unchecked 0x2,0xc
0261 4800 |H | Short_Literal 0x0
0262 e40c | | Load 0x2,0xc
0263 e002 | | Load 0x0,0x2
0264 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0265 00d9 | | Load_Top At_Offset_1
0266 00d0 | | Action Swap_Control
0267 0260 | ` | Execute Discrete,In_Type
0268 7001 |p | Jump_Nonzero 0x26a
0269 0801 | | Execute_Immediate Raise,0x1
026a e40b | | Load 0x2,0xb
026b e002 | | Load 0x0,0x2
026c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
026d 00d9 | | Load_Top At_Offset_1
026e 00d0 | | Action Swap_Control
026f 0260 | ` | Execute Discrete,In_Type
0270 7001 |p | Jump_Nonzero 0x272
0271 0801 | | Execute_Immediate Raise,0x1
0272 e40a | | Load 0x2,0xa
0273 e002 | | Load 0x0,0x2
0274 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0275 00d9 | | Load_Top At_Offset_1
0276 00d0 | | Action Swap_Control
0277 0260 | ` | Execute Discrete,In_Type
0278 7001 |p | Jump_Nonzero 0x27a
0279 0801 | | Execute_Immediate Raise,0x1
027a e002 | | Load 0x0,0x2
027b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
027c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027d 4ff1 |O | Short_Literal -0xf
027e e408 | | Load 0x2,0x8
027f e001 | | Load 0x0,0x1
0280 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0281 0aff | | Execute_Immediate Plus,-0x1
0282 090f | | Execute_Immediate Binary_Scale,0xf
0283 6014 |` | Indirect_Literal Discrete,0x298,{0x00000000, 0xa8c00000}
0284 0141 | A | Execute Discrete,Multiply_And_Scale
0285 00d8 | | Load_Top At_Offset_0
0286 00e7 | | Load_Encached Duration_Cache
0287 0260 | ` | Execute Discrete,In_Type
0288 7001 |p | Jump_Nonzero 0x28a
0289 0801 | | Execute_Immediate Raise,0x1
028a e408 | | Load 0x2,0x8
028b e002 | | Load 0x0,0x2
028c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
028d 820d | | Call 0x1,0xd
028e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028f e408 | | Load 0x2,0x8
0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0291 0831 | 1 | Execute_Immediate Raise,0x31
0292 TRAP_00e0:
0292 0007 | | Action Break_Optional
0293 e5ff | | Load 0x2,-0x1
0294 8211 | | Call 0x1,0x11
0295 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0296 0000 0000 | | .XXX[0x2]
0298 0000 0000 | | .LITERAL {0x00000000, 0xa8c00000}
029c 0000 0000 | | .BLANK 0000[0x4]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a9 | | .CONST 0x02a9 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 e002 | | Load 0x0,0x2
02a4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02a5 02c7 | | Declare_Variable Any
02a6 00db | | Load_Top At_Offset_3
02a7 8213 | | Call 0x1,0x13
02a8 a402 | | Store_Unchecked 0x2,0x2
02a9 BODY_02a0:
02a9 4800 |H | Short_Literal 0x0
02aa 4801 |H | Short_Literal 0x1
02ab 4803 |H | Short_Literal 0x3
02ac 00db | | Load_Top At_Offset_3
02ad 820f | | Call 0x1,0xf
02ae 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02af 0000 | | .XXX[0x1]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 4800 |H | Short_Literal 0x0
02b4 4803 |H | Short_Literal 0x3
02b5 4804 |H | Short_Literal 0x4
02b6 e002 | | Load 0x0,0x2
02b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02b8 820f | | Call 0x1,0xf
02b9 00ca | | Action Exit_Nullary_Function
02ba 0000 0000 | | .BLANK 0000[0x6]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; SUBPROGRAM
02c0 ; --------------------------------------------------------------------------------------
02c0 02c3 | | .CONST 0x02c3 ; Address of begin
02c1 0004 | | .CONST 0x0004 ; Address of exception handler
02c2 0001 | | .CONST 0x0001 ; Number of locals
02c3 BODY_02c0:
02c3 INIT_02c0:
02c3 4802 |H | Short_Literal 0x2
02c4 4803 |H | Short_Literal 0x3
02c5 4804 |H | Short_Literal 0x4
02c6 e002 | | Load 0x0,0x2
02c7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02c8 820f | | Call 0x1,0xf
02c9 00ca | | Action Exit_Nullary_Function
02ca 0000 0000 | | .BLANK 0000[0x6]
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4801 |H | Short_Literal 0x1
02d4 4803 |H | Short_Literal 0x3
02d5 4804 |H | Short_Literal 0x4
02d6 e002 | | Load 0x0,0x2
02d7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02d8 820f | | Call 0x1,0xf
02d9 00ca | | Action Exit_Nullary_Function
02da 0000 0000 | | .BLANK 0000[0x6]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02eb | | .CONST 0x02eb ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0003 | | .CONST 0x0003 ; Number of locals
02e3 INIT_02e0:
02e3 e002 | | Load 0x0,0x2
02e4 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e5 02c7 | | Declare_Variable Any
02e6 e002 | | Load 0x0,0x2
02e7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02e8 a402 | | Store_Unchecked 0x2,0x2
02e9 e001 | | Load 0x0,0x1
02ea 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
02eb BODY_02e0:
02eb e5fe | | Load 0x2,-0x2
02ec 01db | | Execute Vector,Length
02ed 6806 |h | Jump_Zero 0x2f4
02ee e5fe | | Load 0x2,-0x2
02ef e001 | | Load 0x0,0x1
02f0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02f1 e001 | | Load 0x0,0x1
02f2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02f3 c402 | | Store 0x2,0x2
02f4 00d9 | | Load_Top At_Offset_1
02f5 e001 | | Load 0x0,0x1
02f6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02f7 e001 | | Load 0x0,0x1
02f8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02f9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02fa e5ff | | Load 0x2,-0x1
02fb 00d9 | | Load_Top At_Offset_1
02fc 027e | ~ | Execute Discrete,Not_Equal
02fd 6849 |hI | Jump_Zero 0x347
02fe e5ff | | Load 0x2,-0x1
02ff 0f07 | | Execute_Immediate Equal,0x7
0300 680f |h | Jump_Zero 0x310
0301 4ff1 |O | Short_Literal -0xf
0302 00d9 | | Load_Top At_Offset_1
0303 090f | | Execute_Immediate Binary_Scale,0xf
0304 6047 |`G | Indirect_Literal Discrete,0x34c,{0x00000000, 0xa8c00000}
0305 0141 | A | Execute Discrete,Multiply_And_Scale
0306 00d8 | | Load_Top At_Offset_0
0307 00e7 | | Load_Encached Duration_Cache
0308 0260 | ` | Execute Discrete,In_Type
0309 7001 |p | Jump_Nonzero 0x30b
030a 0801 | | Execute_Immediate Raise,0x1
030b 00da | | Load_Top At_Offset_2
030c e002 | | Load 0x0,0x2
030d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
030e c402 | | Store 0x2,0x2
030f 7837 |x7 | Jump 0x347
0310 00d8 | | Load_Top At_Offset_0
0311 0f07 | | Execute_Immediate Equal,0x7
0312 680f |h | Jump_Zero 0x322
0313 4ff1 |O | Short_Literal -0xf
0314 e5ff | | Load 0x2,-0x1
0315 090f | | Execute_Immediate Binary_Scale,0xf
0316 6035 |`5 | Indirect_Literal Discrete,0x34c,{0x00000000, 0xa8c00000}
0317 0141 | A | Execute Discrete,Multiply_And_Scale
0318 00d8 | | Load_Top At_Offset_0
0319 00e7 | | Load_Encached Duration_Cache
031a 0260 | ` | Execute Discrete,In_Type
031b 7001 |p | Jump_Nonzero 0x31d
031c 0801 | | Execute_Immediate Raise,0x1
031d 00da | | Load_Top At_Offset_2
031e e002 | | Load 0x0,0x2
031f 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0320 c402 | | Store 0x2,0x2
0321 7825 |x% | Jump 0x347
0322 00d8 | | Load_Top At_Offset_0
0323 e5ff | | Load 0x2,-0x1
0324 027d | } | Execute Discrete,Greater
0325 6811 |h | Jump_Zero 0x337
0326 4ff1 |O | Short_Literal -0xf
0327 00d9 | | Load_Top At_Offset_1
0328 e5ff | | Load 0x2,-0x1
0329 0272 | r | Execute Discrete,Minus
032a 090f | | Execute_Immediate Binary_Scale,0xf
032b 6020 |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0xa8c00000}
032c 0141 | A | Execute Discrete,Multiply_And_Scale
032d 00d8 | | Load_Top At_Offset_0
032e 00e7 | | Load_Encached Duration_Cache
032f 0260 | ` | Execute Discrete,In_Type
0330 7001 |p | Jump_Nonzero 0x332
0331 0801 | | Execute_Immediate Raise,0x1
0332 00da | | Load_Top At_Offset_2
0333 e002 | | Load 0x0,0x2
0334 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0335 c402 | | Store 0x2,0x2
0336 7810 |x | Jump 0x347
0337 4ff1 |O | Short_Literal -0xf
0338 e5ff | | Load 0x2,-0x1
0339 00da | | Load_Top At_Offset_2
033a 0272 | r | Execute Discrete,Minus
033b 090f | | Execute_Immediate Binary_Scale,0xf
033c 600f |` | Indirect_Literal Discrete,0x34c,{0x00000000, 0xa8c00000}
033d 0141 | A | Execute Discrete,Multiply_And_Scale
033e 00d8 | | Load_Top At_Offset_0
033f 00e7 | | Load_Encached Duration_Cache
0340 0260 | ` | Execute Discrete,In_Type
0341 7001 |p | Jump_Nonzero 0x343
0342 0801 | | Execute_Immediate Raise,0x1
0343 00da | | Load_Top At_Offset_2
0344 e002 | | Load 0x0,0x2
0345 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0346 c402 | | Store 0x2,0x2
0347 00d9 | | Load_Top At_Offset_1
0348 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0349 0000 0000 | | .XXX[0x3]
034b 0000 | |
034c 0000 0000 | | .LITERAL {0x00000000, 0xa8c00000}
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0004 | | .CONST 0x0004 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 4802 |H | Short_Literal 0x2
0354 4800 |H | Short_Literal 0x0
0355 4804 |H | Short_Literal 0x4
0356 e5fe | | Load 0x2,-0x2
0357 e5ff | | Load 0x2,-0x1
0358 8218 | | Call 0x1,0x18
0359 e001 | | Load 0x0,0x1
035a 1816 | | Execute Package,Field_Execute,Field_Number 0x16
035b e001 | | Load 0x0,0x1
035c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
035d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
035e 0000 0000 | | .XXX[0x2]
0360 ; --------------------------------------------------------------------------------------
0360 ; SUBPROGRAM
0360 ; --------------------------------------------------------------------------------------
0360 0363 | c | .CONST 0x0363 ; Address of begin
0361 0004 | | .CONST 0x0004 ; Address of exception handler
0362 0001 | | .CONST 0x0001 ; Number of locals
0363 BODY_0360:
0363 INIT_0360:
0363 4607 |F | Jump_Case 0x8
0364 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0365 7806 |x | Jump 0x36c ; case 0x1
0366 7809 |x | Jump 0x370 ; case 0x2
0367 780d |x | Jump 0x375 ; case 0x3
0368 7810 |x | Jump 0x379 ; case 0x4
0369 7811 |x | Jump 0x37b ; case 0x5
036a 7812 |x | Jump 0x37d ; case 0x6
036b 7815 |x | Jump 0x381 ; case 0x7
036c 00da | | Load_Top At_Offset_2
036d 0091 050f | | Action Push_String_Extended_Indexed,0x50f ; "HOUR"
036f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0370 00db | | Load_Top At_Offset_3
0371 00db | | Load_Top At_Offset_3
0372 00e0 | | Load_Encached Standard_Cache
0373 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0374 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0375 00da | | Load_Top At_Offset_2
0376 00e0 | | Load_Encached Standard_Cache
0377 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0378 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0379 00db | | Load_Top At_Offset_3
037a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
037b 00db | | Load_Top At_Offset_3
037c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
037d e403 | | Load 0x2,0x3
037e 00dc | | Load_Top At_Offset_4
037f 0267 | g | Execute Discrete,Predecessor
0380 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0381 e403 | | Load 0x2,0x3
0382 00dc | | Load_Top At_Offset_4
0383 0268 | h | Execute Discrete,Successor
0384 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0385 0000 0000 | | .XXX[0x3]
0387 0000 | |
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 038b | | .CONST 0x038b ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0001 | | .CONST 0x0001 ; Number of locals
038b BODY_0388:
038b INIT_0388:
038b 4607 |F | Jump_Case 0x8
038c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
038d 7806 |x | Jump 0x394 ; case 0x1
038e 7809 |x | Jump 0x398 ; case 0x2
038f 780d |x | Jump 0x39d ; case 0x3
0390 7810 |x | Jump 0x3a1 ; case 0x4
0391 7811 |x | Jump 0x3a3 ; case 0x5
0392 7812 |x | Jump 0x3a5 ; case 0x6
0393 7815 |x | Jump 0x3a9 ; case 0x7
0394 00da | | Load_Top At_Offset_2
0395 0091 0512 | | Action Push_String_Extended_Indexed,0x512 ; "TODAY"
0397 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0398 00db | | Load_Top At_Offset_3
0399 00db | | Load_Top At_Offset_3
039a 00e0 | | Load_Encached Standard_Cache
039b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
039c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
039d 00da | | Load_Top At_Offset_2
039e 00e0 | | Load_Encached Standard_Cache
039f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
03a1 00db | | Load_Top At_Offset_3
03a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03a3 00db | | Load_Top At_Offset_3
03a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03a5 e402 | | Load 0x2,0x2
03a6 00dc | | Load_Top At_Offset_4
03a7 0267 | g | Execute Discrete,Predecessor
03a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03a9 e402 | | Load 0x2,0x2
03aa 00dc | | Load_Top At_Offset_4
03ab 0268 | h | Execute Discrete,Successor
03ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b8 | | .CONST 0x03b8 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0006 | | .CONST 0x0006 ; Number of locals
03b3 INIT_03b0:
03b3 00e3 | | Load_Encached Natural_Cache
03b4 00e2 | | Load_Encached Integer_Cache
03b5 00e3 | | Load_Encached Natural_Cache
03b6 00e7 | | Load_Encached Duration_Cache
03b7 00e7 | | Load_Encached Duration_Cache
03b8 BODY_03b0:
03b8 e002 | | Load 0x0,0x2
03b9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03ba e002 | | Load 0x0,0x2
03bb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03bc e002 | | Load 0x0,0x2
03bd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03be e002 | | Load 0x0,0x2
03bf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03c0 e408 | | Load 0x2,0x8
03c1 e002 | | Load 0x0,0x2
03c2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03c3 c602 | | Store 0x3,0x2
03c4 c603 | | Store 0x3,0x3
03c5 c604 | | Store 0x3,0x4
03c6 005a | Z | Store_Top Discrete,At_Offset_2
03c7 e7f8 | | Load 0x3,-0x8
03c8 6875 |hu | Jump_Zero 0x43e
03c9 e602 | | Load 0x3,0x2
03ca e7ff | | Load 0x3,-0x1
03cb 0272 | r | Execute Discrete,Minus
03cc c602 | | Store 0x3,0x2
03cd 00db | | Load_Top At_Offset_3
03ce e7fe | | Load 0x3,-0x2
03cf 0272 | r | Execute Discrete,Minus
03d0 c603 | | Store 0x3,0x3
03d1 00db | | Load_Top At_Offset_3
03d2 0d01 | | Execute_Immediate Less,0x1
03d3 680d |h | Jump_Zero 0x3e1
03d4 e602 | | Load 0x3,0x2
03d5 e603 | | Load 0x3,0x3
03d6 0274 | t | Execute Discrete,Absolute_Value
03d7 480c |H | Short_Literal 0xc
03d8 0270 | p | Execute Discrete,Divide
03d9 0a01 | | Execute_Immediate Plus,0x1
03da 0272 | r | Execute Discrete,Minus
03db c602 | | Store 0x3,0x2
03dc 00db | | Load_Top At_Offset_3
03dd 480c |H | Short_Literal 0xc
03de 026f | o | Execute Discrete,Remainder
03df 0a0c | | Execute_Immediate Plus,0xc
03e0 c603 | | Store 0x3,0x3
03e1 e7f9 | | Load 0x3,-0x7
03e2 090f | | Execute_Immediate Binary_Scale,0xf
03e3 4ff1 |O | Short_Literal -0xf
03e4 e7fa | | Load 0x3,-0x6
03e5 090f | | Execute_Immediate Binary_Scale,0xf
03e6 60dd |` | Indirect_Literal Discrete,0x4c4,{0x00000000, 0x001e0000}
03e7 0141 | A | Execute Discrete,Multiply_And_Scale
03e8 00d8 | | Load_Top At_Offset_0
03e9 00e7 | | Load_Encached Duration_Cache
03ea 0260 | ` | Execute Discrete,In_Type
03eb 7001 |p | Jump_Nonzero 0x3ed
03ec 0801 | | Execute_Immediate Raise,0x1
03ed 0273 | s | Execute Discrete,Plus
03ee 4ff1 |O | Short_Literal -0xf
03ef e7fb | | Load 0x3,-0x5
03f0 090f | | Execute_Immediate Binary_Scale,0xf
03f1 60ce |` | Indirect_Literal Discrete,0x4c0,{0x00000000, 0x07080000}
03f2 0141 | A | Execute Discrete,Multiply_And_Scale
03f3 00d8 | | Load_Top At_Offset_0
03f4 00e7 | | Load_Encached Duration_Cache
03f5 0260 | ` | Execute Discrete,In_Type
03f6 7001 |p | Jump_Nonzero 0x3f8
03f7 0801 | | Execute_Immediate Raise,0x1
03f8 0273 | s | Execute Discrete,Plus
03f9 4ff1 |O | Short_Literal -0xf
03fa e7fc | | Load 0x3,-0x4
03fb 090f | | Execute_Immediate Binary_Scale,0xf
03fc 60bf |` | Indirect_Literal Discrete,0x4bc,{0x00000000, 0xa8c00000}
03fd 0141 | A | Execute Discrete,Multiply_And_Scale
03fe 00d8 | | Load_Top At_Offset_0
03ff 00e7 | | Load_Encached Duration_Cache
0400 0260 | ` | Execute Discrete,In_Type
0401 7001 |p | Jump_Nonzero 0x403
0402 0801 | | Execute_Immediate Raise,0x1
0403 0273 | s | Execute Discrete,Plus
0404 4ff1 |O | Short_Literal -0xf
0405 e7fd | | Load 0x3,-0x3
0406 090f | | Execute_Immediate Binary_Scale,0xf
0407 4ff1 |O | Short_Literal -0xf
0408 60b3 |` | Indirect_Literal Discrete,0x4bc,{0x00000000, 0xa8c00000}
0409 60ae |` | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00038000}
040a 0141 | A | Execute Discrete,Multiply_And_Scale
040b 00d8 | | Load_Top At_Offset_0
040c 00e7 | | Load_Encached Duration_Cache
040d 0260 | ` | Execute Discrete,In_Type
040e 7001 |p | Jump_Nonzero 0x410
040f 0801 | | Execute_Immediate Raise,0x1
0410 0141 | A | Execute Discrete,Multiply_And_Scale
0411 00d8 | | Load_Top At_Offset_0
0412 00e7 | | Load_Encached Duration_Cache
0413 0260 | ` | Execute Discrete,In_Type
0414 7001 |p | Jump_Nonzero 0x416
0415 0801 | | Execute_Immediate Raise,0x1
0416 0273 | s | Execute Discrete,Plus
0417 0059 | Y | Store_Top Discrete,At_Offset_1
0418 00d8 | | Load_Top At_Offset_0
0419 00da | | Load_Top At_Offset_2
041a e002 | | Load 0x0,0x2
041b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
041c 00d9 | | Load_Top At_Offset_1
041d 00d0 | | Action Swap_Control
041e 0260 | ` | Execute Discrete,In_Type
041f 7001 |p | Jump_Nonzero 0x421
0420 0801 | | Execute_Immediate Raise,0x1
0421 e604 | | Load 0x3,0x4
0422 e002 | | Load 0x0,0x2
0423 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0424 00d9 | | Load_Top At_Offset_1
0425 00d0 | | Action Swap_Control
0426 0260 | ` | Execute Discrete,In_Type
0427 7001 |p | Jump_Nonzero 0x429
0428 0801 | | Execute_Immediate Raise,0x1
0429 e603 | | Load 0x3,0x3
042a e002 | | Load 0x0,0x2
042b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
042c 00d9 | | Load_Top At_Offset_1
042d 00d0 | | Action Swap_Control
042e 0260 | ` | Execute Discrete,In_Type
042f 7001 |p | Jump_Nonzero 0x431
0430 0801 | | Execute_Immediate Raise,0x1
0431 e602 | | Load 0x3,0x2
0432 e002 | | Load 0x0,0x2
0433 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0434 00d9 | | Load_Top At_Offset_1
0435 00d0 | | Action Swap_Control
0436 0260 | ` | Execute Discrete,In_Type
0437 7001 |p | Jump_Nonzero 0x439
0438 0801 | | Execute_Immediate Raise,0x1
0439 e002 | | Load 0x0,0x2
043a 1818 | | Execute Package,Field_Execute,Field_Number 0x18
043b e002 | | Load 0x0,0x2
043c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
043d 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
043e e602 | | Load 0x3,0x2
043f e7ff | | Load 0x3,-0x1
0440 0273 | s | Execute Discrete,Plus
0441 c602 | | Store 0x3,0x2
0442 00db | | Load_Top At_Offset_3
0443 e7fe | | Load 0x3,-0x2
0444 0273 | s | Execute Discrete,Plus
0445 c603 | | Store 0x3,0x3
0446 00db | | Load_Top At_Offset_3
0447 0c0d | | Execute_Immediate Greater_Equal,0xd
0448 680f |h | Jump_Zero 0x458
0449 e602 | | Load 0x3,0x2
044a e603 | | Load 0x3,0x3
044b 0aff | | Execute_Immediate Plus,-0x1
044c 480c |H | Short_Literal 0xc
044d 0270 | p | Execute Discrete,Divide
044e 0273 | s | Execute Discrete,Plus
044f c602 | | Store 0x3,0x2
0450 00db | | Load_Top At_Offset_3
0451 480c |H | Short_Literal 0xc
0452 026f | o | Execute Discrete,Remainder
0453 a603 | | Store_Unchecked 0x3,0x3
0454 00db | | Load_Top At_Offset_3
0455 7002 |p | Jump_Nonzero 0x458
0456 480c |H | Short_Literal 0xc
0457 a603 | | Store_Unchecked 0x3,0x3
0458 e7f9 | | Load 0x3,-0x7
0459 090f | | Execute_Immediate Binary_Scale,0xf
045a 4ff1 |O | Short_Literal -0xf
045b e7fa | | Load 0x3,-0x6
045c 090f | | Execute_Immediate Binary_Scale,0xf
045d 6066 |`f | Indirect_Literal Discrete,0x4c4,{0x00000000, 0x001e0000}
045e 0141 | A | Execute Discrete,Multiply_And_Scale
045f 00d8 | | Load_Top At_Offset_0
0460 00e7 | | Load_Encached Duration_Cache
0461 0260 | ` | Execute Discrete,In_Type
0462 7001 |p | Jump_Nonzero 0x464
0463 0801 | | Execute_Immediate Raise,0x1
0464 0273 | s | Execute Discrete,Plus
0465 4ff1 |O | Short_Literal -0xf
0466 e7fb | | Load 0x3,-0x5
0467 090f | | Execute_Immediate Binary_Scale,0xf
0468 6057 |`W | Indirect_Literal Discrete,0x4c0,{0x00000000, 0x07080000}
0469 0141 | A | Execute Discrete,Multiply_And_Scale
046a 00d8 | | Load_Top At_Offset_0
046b 00e7 | | Load_Encached Duration_Cache
046c 0260 | ` | Execute Discrete,In_Type
046d 7001 |p | Jump_Nonzero 0x46f
046e 0801 | | Execute_Immediate Raise,0x1
046f 0273 | s | Execute Discrete,Plus
0470 4ff1 |O | Short_Literal -0xf
0471 e7fc | | Load 0x3,-0x4
0472 090f | | Execute_Immediate Binary_Scale,0xf
0473 6048 |`H | Indirect_Literal Discrete,0x4bc,{0x00000000, 0xa8c00000}
0474 0141 | A | Execute Discrete,Multiply_And_Scale
0475 00d8 | | Load_Top At_Offset_0
0476 00e7 | | Load_Encached Duration_Cache
0477 0260 | ` | Execute Discrete,In_Type
0478 7001 |p | Jump_Nonzero 0x47a
0479 0801 | | Execute_Immediate Raise,0x1
047a 0273 | s | Execute Discrete,Plus
047b 4ff1 |O | Short_Literal -0xf
047c e7fd | | Load 0x3,-0x3
047d 090f | | Execute_Immediate Binary_Scale,0xf
047e 4ff1 |O | Short_Literal -0xf
047f 603c |`< | Indirect_Literal Discrete,0x4bc,{0x00000000, 0xa8c00000}
0480 6037 |`7 | Indirect_Literal Discrete,0x4b8,{0x00000000, 0x00038000}
0481 0141 | A | Execute Discrete,Multiply_And_Scale
0482 00d8 | | Load_Top At_Offset_0
0483 00e7 | | Load_Encached Duration_Cache
0484 0260 | ` | Execute Discrete,In_Type
0485 7001 |p | Jump_Nonzero 0x487
0486 0801 | | Execute_Immediate Raise,0x1
0487 0141 | A | Execute Discrete,Multiply_And_Scale
0488 00d8 | | Load_Top At_Offset_0
0489 00e7 | | Load_Encached Duration_Cache
048a 0260 | ` | Execute Discrete,In_Type
048b 7001 |p | Jump_Nonzero 0x48d
048c 0801 | | Execute_Immediate Raise,0x1
048d 0273 | s | Execute Discrete,Plus
048e 0059 | Y | Store_Top Discrete,At_Offset_1
048f 00d8 | | Load_Top At_Offset_0
0490 00da | | Load_Top At_Offset_2
0491 e002 | | Load 0x0,0x2
0492 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0493 00d9 | | Load_Top At_Offset_1
0494 00d0 | | Action Swap_Control
0495 0260 | ` | Execute Discrete,In_Type
0496 7001 |p | Jump_Nonzero 0x498
0497 0801 | | Execute_Immediate Raise,0x1
0498 e604 | | Load 0x3,0x4
0499 e002 | | Load 0x0,0x2
049a 1b10 | | Execute Package,Field_Read,Field_Number 0x10
049b 00d9 | | Load_Top At_Offset_1
049c 00d0 | | Action Swap_Control
049d 0260 | ` | Execute Discrete,In_Type
049e 7001 |p | Jump_Nonzero 0x4a0
049f 0801 | | Execute_Immediate Raise,0x1
04a0 e603 | | Load 0x3,0x3
04a1 e002 | | Load 0x0,0x2
04a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
04a3 00d9 | | Load_Top At_Offset_1
04a4 00d0 | | Action Swap_Control
04a5 0260 | ` | Execute Discrete,In_Type
04a6 7001 |p | Jump_Nonzero 0x4a8
04a7 0801 | | Execute_Immediate Raise,0x1
04a8 e602 | | Load 0x3,0x2
04a9 e002 | | Load 0x0,0x2
04aa 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04ab 00d9 | | Load_Top At_Offset_1
04ac 00d0 | | Action Swap_Control
04ad 0260 | ` | Execute Discrete,In_Type
04ae 7001 |p | Jump_Nonzero 0x4b0
04af 0801 | | Execute_Immediate Raise,0x1
04b0 e002 | | Load 0x0,0x2
04b1 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04b2 e002 | | Load 0x0,0x2
04b3 1819 | | Execute Package,Field_Execute,Field_Number 0x19
04b4 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
04b5 0000 0000 | | .XXX[0x3]
04b7 0000 | |
04b8 0000 0000 | | .LITERAL {0x00000000, 0x00038000}
04bc 0000 0000 | | .LITERAL {0x00000000, 0xa8c00000}
04c0 0000 0000 | | .LITERAL {0x00000000, 0x07080000}
04c4 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04cd | | .CONST 0x04cd ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0002 | | .CONST 0x0002 ; Number of locals
04cb INIT_04c8:
04cb 029f 04eb | | Declare_Subprogram INIT_04e8,For_Call
04cd BODY_04c8:
04cd 4801 |H | Short_Literal 0x1
04ce e7fc | | Load 0x3,-0x4
04cf e7fd | | Load 0x3,-0x3
04d0 01dc | | Execute Vector,Last
04d1 e7fd | | Load 0x3,-0x3
04d2 01cf | | Execute Vector,Slice_Read
04d3 485f |H_ | Short_Literal 0x5f
04d4 e003 | | Load 0x0,0x3
04d5 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04d6 a7fb | | Store_Unchecked 0x3,-0x5
04d7 e7fb | | Load 0x3,-0x5
04d8 7005 |p | Jump_Nonzero 0x4de
04d9 e7fd | | Load 0x3,-0x3
04da 01dc | | Execute Vector,Last
04db 0aff | | Execute_Immediate Plus,-0x1
04dc c7fb | | Store 0x3,-0x5
04dd 7803 |x | Jump 0x4e1
04de e7fb | | Load 0x3,-0x5
04df 0aff | | Execute_Immediate Plus,-0x1
04e0 c7fb | | Store 0x3,-0x5
04e1 8602 | | Call 0x3,0x2
04e2 e7fb | | Load 0x3,-0x5
04e3 0a02 | | Execute_Immediate Plus,0x2
04e4 c7fc | | Store 0x3,-0x4
04e5 4504 |E | Exit_Suprogram New_Top_Offset 0x4
04e6 0000 0000 | | .XXX[0x2]
04e8 ; --------------------------------------------------------------------------------------
04e8 ; SUBPROGRAM
04e8 ; --------------------------------------------------------------------------------------
04e8 04eb | | .CONST 0x04eb ; Address of begin
04e9 04f4 | | .CONST 0x04f4 ; Address of exception handler
04ea 0001 | | .CONST 0x0001 ; Number of locals
04eb BODY_04e8:
04eb INIT_04e8:
04eb e7fc | | Load 0x3,-0x4
04ec e7fb | | Load 0x3,-0x5
04ed e7fd | | Load 0x3,-0x3
04ee 01cf | | Execute Vector,Slice_Read
04ef e7fe | | Load 0x3,-0x2
04f0 0122 | " | Execute Any,Make_Root_Type
04f1 1c02 | | Execute_Immediate Run_Utility,0x2
04f2 c7fa | | Store 0x3,-0x6
04f3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
04f4 TRAP_04e8:
04f4 0007 | | Action Break_Optional
04f5 4801 |H | Short_Literal 0x1
04f6 e7fb | | Load 0x3,-0x5
04f7 0a02 | | Execute_Immediate Plus,0x2
04f8 00d8 | | Load_Top At_Offset_0
04f9 00e2 | | Load_Encached Integer_Cache
04fa 0260 | ` | Execute Discrete,In_Type
04fb 7001 |p | Jump_Nonzero 0x4fd
04fc 0801 | | Execute_Immediate Raise,0x1
04fd e7fd | | Load 0x3,-0x3
04fe 01dc | | Execute Vector,Last
04ff e7fd | | Load 0x3,-0x3
0500 01cf | | Execute Vector,Slice_Read
0501 485f |H_ | Short_Literal 0x5f
0502 e003 | | Load 0x0,0x3
0503 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0504 0aff | | Execute_Immediate Plus,-0x1
0505 c7fb | | Store 0x3,-0x5
0506 e7fc | | Load 0x3,-0x4
0507 e7fb | | Load 0x3,-0x5
0508 e7fd | | Load 0x3,-0x3
0509 01cf | | Execute Vector,Slice_Read
050a e7fe | | Load 0x3,-0x2
050b 0122 | " | Execute Any,Make_Root_Type
050c 1c02 | | Execute_Immediate Run_Utility,0x2
050d c7fa | | Store 0x3,-0x6
050e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
050f ; --------------------------------------------------------------------------------------
050f ; STRING TABLE
050f ; --------------------------------------------------------------------------------------
050f 0036 | 6 | .STRTAB 0x0036->0x052a ; "HOUR"
0510 0038 | 8 | .STRTAB 0x0038->0x052c ; "MINUTE"
0511 003c | < | .STRTAB 0x003c->0x052f ; "SECOND"
0512 0040 | @ | .STRTAB 0x0040->0x0532 ; "TODAY"
0513 0043 | C | .STRTAB 0x0043->0x0534 ; "TOMORROW"
0514 0049 | I | .STRTAB 0x0049->0x0538 ; "CLOCK"
0515 004c | L | .STRTAB 0x004c->0x053b ; "PLUS"
0516 004e | N | .STRTAB 0x004e->0x053d ; "MINUS"
0517 0051 | Q | .STRTAB 0x0051->0x053f ; "YEARS"
0518 0054 | T | .STRTAB 0x0054->0x0542 ; "YEAR"
0519 0056 | V | .STRTAB 0x0056->0x0544 ; "MONTHS"
051a 005a | Z | .STRTAB 0x005a->0x0547 ; "MONTH"
051b 005d | ] | .STRTAB 0x005d->0x0549 ; "WEEKS"
051c 0060 | ` | .STRTAB 0x0060->0x054c ; "WEEK"
051d 0062 | b | .STRTAB 0x0062->0x054e ; "DAYS"
051e 0064 | d | .STRTAB 0x0064->0x0550 ; "DAY"
051f 0065 | e | .STRTAB 0x0065->0x0551 ; "HOURS"
0520 0068 | h | .STRTAB 0x0068->0x0554 ; "HOUR"
0521 006a | j | .STRTAB 0x006a->0x0556 ; "MINUTES"
0522 006f | o | .STRTAB 0x006f->0x0559 ; "MINUTE"
0523 0073 | s | .STRTAB 0x0073->0x055c ; "SECONDS"
0524 0078 | x | .STRTAB 0x0078->0x0560 ; "SECOND"
0525 007c | | | .STRTAB 0x007c->0x0563 ; "BEGINNING_OF"
0526 0086 | | .STRTAB 0x0086->0x0569 ; "END_OF"
0527 008a | | .STRTAB 0x008a->0x056c ; ":"
0528 0089 | | .STRTAB 0x0089->0x056c ; "***"
0529 008a | | .STREND 0x008a->0x056e
052a 484f 5552 |HOUR| .STRTAB_STRINGS
056e 0000 0000 | | .XXX[0x2]
0570 ; --------------------------------------------------------------------------------------
0570 ; Debug Table
0570 ; --------------------------------------------------------------------------------------
0570 0004 0004 | | .DEBUG4 0x0004,0x0004,0x4a14,0x0000,0x0001,0x0000
0576 0000 0000 | | .BLANK 0000[0x8a]