|
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_0258fa
└─⟦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 04a8 | | .CONST 0x04a8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0040 | @ | .CONST 0x0040 ; 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 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
001c 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
001e 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0020 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
0022 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
0024 029a 02fb | | Declare_Subprogram INIT_02f8,For_Outer_Call,Visible,Unelaborated
0026 00bf | | Action Accept_Activation
0027 0007 | | Action Break_Optional
0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002b 00c7 | | Action Elaborate_Subprogram
002c 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002d 00c7 | | Action Elaborate_Subprogram
002e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
002f 00c7 | | Action Elaborate_Subprogram
0030 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0031 00c7 | | Action Elaborate_Subprogram
0032 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0033 00c7 | | Action Elaborate_Subprogram
0034 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0035 00c7 | | Action Elaborate_Subprogram
0036 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0037 00c7 | | Action Elaborate_Subprogram
0038 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0039 00c7 | | Action Elaborate_Subprogram
003a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003b 00c7 | | Action Elaborate_Subprogram
003c 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003d 00c7 | | Action Elaborate_Subprogram
003e 1d19 | | Execute_Immediate Reference_Lex_1,0x19
003f 00c7 | | Action Elaborate_Subprogram
0040 BODY_0008:
0040 00bc | | Action Signal_Activated
0041 00bb | | Action Signal_Completion
0042 0000 0000 | | .BLANK 0000[0x6]
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 00c7 | | .CONST 0x00c7 ; Address of begin
0081 00db | | .CONST 0x00db ; 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 030b | | Declare_Subprogram INIT_0308,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 00d0 | | Action Swap_Control
009b 00d1 | | Pop_Control Pop_Count_1
009c e402 | | Load 0x2,0x2
009d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
009e 4818 |H | Short_Literal 0x18
009f 0271 | q | Execute Discrete,Times
00a0 e402 | | Load 0x2,0x2
00a1 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00a2 0273 | s | Execute Discrete,Plus
00a3 4800 |H | Short_Literal 0x0
00a4 00da | | Load_Top At_Offset_2
00a5 01d6 | | Execute Vector,Field_Write
00a6 e402 | | Load 0x2,0x2
00a7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00a8 4801 |H | Short_Literal 0x1
00a9 00da | | Load_Top At_Offset_2
00aa 01d6 | | Execute Vector,Field_Write
00ab e402 | | Load 0x2,0x2
00ac 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00ad 4802 |H | Short_Literal 0x2
00ae 00da | | Load_Top At_Offset_2
00af 01d6 | | Execute Vector,Field_Write
00b0 00d9 | | Load_Top At_Offset_1
00b1 01d4 | | Execute Vector,Structure_Write
00b2 4830 |H0 | Short_Literal 0x30
00b3 4802 |H | Short_Literal 0x2
00b4 480a |H | Short_Literal 0xa
00b5 4801 |H | Short_Literal 0x1
00b6 e405 | | Load 0x2,0x5
00b7 01d7 | | Execute Vector,Field_Read
00b8 e003 | | Load 0x0,0x3
00b9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ba 0092 045a | Z| Action Push_String_Extended,0x45a ; ":"
00bc 01cc | | Execute Vector,Catenate
00bd 4830 |H0 | Short_Literal 0x30
00be 4802 |H | Short_Literal 0x2
00bf 480a |H | Short_Literal 0xa
00c0 4802 |H | Short_Literal 0x2
00c1 e405 | | Load 0x2,0x5
00c2 01d7 | | Execute Vector,Field_Read
00c3 e003 | | Load 0x0,0x3
00c4 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c5 01cc | | Execute Vector,Catenate
00c6 0007 | | Action Break_Optional
00c7 BODY_0080:
00c7 4800 |H | Short_Literal 0x0
00c8 00da | | Load_Top At_Offset_2
00c9 01d7 | | Execute Vector,Field_Read
00ca 680e |h | Jump_Zero 0xd9
00cb 4820 |H | Short_Literal 0x20
00cc 4800 |H | Short_Literal 0x0
00cd 480a |H | Short_Literal 0xa
00ce 4800 |H | Short_Literal 0x0
00cf e405 | | Load 0x2,0x5
00d0 01d7 | | Execute Vector,Field_Read
00d1 e003 | | Load 0x0,0x3
00d2 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00d3 0092 045a | Z| Action Push_String_Extended,0x45a ; ":"
00d5 01cc | | Execute Vector,Catenate
00d6 00d9 | | Load_Top At_Offset_1
00d7 01cc | | Execute Vector,Catenate
00d8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d9 00d8 | | Load_Top At_Offset_0
00da 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00db TRAP_0080:
00db 0007 | | Action Break_Optional
00dc 0092 045b | [| Action Push_String_Extended,0x45b ; "***"
00de 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00df 0000 | | .XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 011a | | .CONST 0x011a ; Address of begin
00e1 0256 | V | .CONST 0x0256 ; 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 0323 | #| Declare_Subprogram INIT_0320,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 033b | ;| Declare_Subprogram INIT_0338,For_Call
0102 029e 0403 | | Declare_Subprogram INIT_0400,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 7814 |x | Jump 0x141 ; case 0x0
012d 7816 |x | Jump 0x144 ; case 0x1
012e 781b |x | Jump 0x14a ; case 0x2
012f 781c |x | Jump 0x14c ; case 0x3
0130 781b |x | Jump 0x14c ; case 0x4
0131 7921 |y! | Jump 0x253 ; case 0x5
0132 7920 |y | Jump 0x253 ; case 0x6
0133 791f |y | Jump 0x253 ; case 0x7
0134 791e |y | Jump 0x253 ; case 0x8
0135 791d |y | Jump 0x253 ; case 0x9
0136 791c |y | Jump 0x253 ; case 0xa
0137 791b |y | Jump 0x253 ; case 0xb
0138 791a |y | Jump 0x253 ; case 0xc
0139 7919 |y | Jump 0x253 ; case 0xd
013a 7918 |y | Jump 0x253 ; case 0xe
013b 7917 |y | Jump 0x253 ; case 0xf
013c 7916 |y | Jump 0x253 ; case 0x10
013d 7915 |y | Jump 0x253 ; case 0x11
013e 7914 |y | Jump 0x253 ; case 0x12
013f 7888 |x | Jump 0x1c8 ; case 0x13
0140 78c9 |x | Jump 0x20a ; case 0x14
0141 e408 | | Load 0x2,0x8
0142 820d | | Call 0x1,0xd
0143 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0144 62b3 |b | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
0145 e408 | | Load 0x2,0x8
0146 e002 | | Load 0x0,0x2
0147 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0148 820d | | Call 0x1,0xd
0149 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014a e408 | | Load 0x2,0x8
014b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
014c 00db | | Load_Top At_Offset_3
014d e407 | | Load 0x2,0x7
014e e406 | | Load 0x2,0x6
014f e5ff | | Load 0x2,-0x1
0150 e415 | | Load 0x2,0x15
0151 4816 |H | Short_Literal 0x16
0152 4802 |H | Short_Literal 0x2
0153 0099 | | Action Reference_Dynamic
0154 8410 | | Call 0x2,0x10
0155 c406 | | Store 0x2,0x6
0156 c407 | | Store 0x2,0x7
0157 c405 | | Store 0x2,0x5
0158 e411 | | Load 0x2,0x11
0159 e407 | | Load 0x2,0x7
015a e406 | | Load 0x2,0x6
015b e5ff | | Load 0x2,-0x1
015c e411 | | Load 0x2,0x11
015d 4812 |H | Short_Literal 0x12
015e 4802 |H | Short_Literal 0x2
015f 0099 | | Action Reference_Dynamic
0160 8410 | | Call 0x2,0x10
0161 c406 | | Store 0x2,0x6
0162 c407 | | Store 0x2,0x7
0163 c404 | | Store 0x2,0x4
0164 e404 | | Load 0x2,0x4
0165 4614 |F | Jump_Case 0x15
0166 78ee |x | Jump 0x255 ; case 0x0
0167 78ed |x | Jump 0x255 ; case 0x1
0168 78ec |x | Jump 0x255 ; case 0x2
0169 78eb |x | Jump 0x255 ; case 0x3
016a 78ea |x | Jump 0x255 ; case 0x4
016b 780f |x | Jump 0x17b ; case 0x5
016c 780e |x | Jump 0x17b ; case 0x6
016d 7818 |x | Jump 0x186 ; case 0x7
016e 7817 |x | Jump 0x186 ; case 0x8
016f 7821 |x! | Jump 0x191 ; case 0x9
0170 7820 |x | Jump 0x191 ; case 0xa
0171 782a |x* | Jump 0x19c ; case 0xb
0172 7829 |x) | Jump 0x19c ; case 0xc
0173 7833 |x3 | Jump 0x1a7 ; case 0xd
0174 7832 |x2 | Jump 0x1a7 ; case 0xe
0175 783c |x< | Jump 0x1b2 ; case 0xf
0176 783b |x; | Jump 0x1b2 ; case 0x10
0177 7845 |xE | Jump 0x1bd ; case 0x11
0178 7844 |xD | Jump 0x1bd ; case 0x12
0179 78db |x | Jump 0x255 ; case 0x13
017a 78da |x | Jump 0x255 ; case 0x14
017b e403 | | Load 0x2,0x3
017c 0f04 | | Execute_Immediate Equal,0x4
017d 4800 |H | Short_Literal 0x0
017e 4800 |H | Short_Literal 0x0
017f 4800 |H | Short_Literal 0x0
0180 4800 |H | Short_Literal 0x0
0181 4800 |H | Short_Literal 0x0
0182 4800 |H | Short_Literal 0x0
0183 e405 | | Load 0x2,0x5
0184 840f | | Call 0x2,0xf
0185 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0186 e403 | | Load 0x2,0x3
0187 0f04 | | Execute_Immediate Equal,0x4
0188 4800 |H | Short_Literal 0x0
0189 4800 |H | Short_Literal 0x0
018a 4800 |H | Short_Literal 0x0
018b 4800 |H | Short_Literal 0x0
018c 4800 |H | Short_Literal 0x0
018d e405 | | Load 0x2,0x5
018e 4800 |H | Short_Literal 0x0
018f 840f | | Call 0x2,0xf
0190 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0191 e403 | | Load 0x2,0x3
0192 0f04 | | Execute_Immediate Equal,0x4
0193 4800 |H | Short_Literal 0x0
0194 4800 |H | Short_Literal 0x0
0195 4800 |H | Short_Literal 0x0
0196 4800 |H | Short_Literal 0x0
0197 e405 | | Load 0x2,0x5
0198 4800 |H | Short_Literal 0x0
0199 4800 |H | Short_Literal 0x0
019a 840f | | Call 0x2,0xf
019b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
019c e403 | | Load 0x2,0x3
019d 0f04 | | Execute_Immediate Equal,0x4
019e 4800 |H | Short_Literal 0x0
019f 4800 |H | Short_Literal 0x0
01a0 4800 |H | Short_Literal 0x0
01a1 e405 | | Load 0x2,0x5
01a2 4800 |H | Short_Literal 0x0
01a3 4800 |H | Short_Literal 0x0
01a4 4800 |H | Short_Literal 0x0
01a5 840f | | Call 0x2,0xf
01a6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a7 e403 | | Load 0x2,0x3
01a8 0f04 | | Execute_Immediate Equal,0x4
01a9 4800 |H | Short_Literal 0x0
01aa 4800 |H | Short_Literal 0x0
01ab e405 | | Load 0x2,0x5
01ac 4800 |H | Short_Literal 0x0
01ad 4800 |H | Short_Literal 0x0
01ae 4800 |H | Short_Literal 0x0
01af 4800 |H | Short_Literal 0x0
01b0 840f | | Call 0x2,0xf
01b1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b2 e403 | | Load 0x2,0x3
01b3 0f04 | | Execute_Immediate Equal,0x4
01b4 4800 |H | Short_Literal 0x0
01b5 e405 | | Load 0x2,0x5
01b6 4800 |H | Short_Literal 0x0
01b7 4800 |H | Short_Literal 0x0
01b8 4800 |H | Short_Literal 0x0
01b9 4800 |H | Short_Literal 0x0
01ba 4800 |H | Short_Literal 0x0
01bb 840f | | Call 0x2,0xf
01bc 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01bd e403 | | Load 0x2,0x3
01be 0f04 | | Execute_Immediate Equal,0x4
01bf e405 | | Load 0x2,0x5
01c0 4800 |H | Short_Literal 0x0
01c1 4800 |H | Short_Literal 0x0
01c2 4800 |H | Short_Literal 0x0
01c3 4800 |H | Short_Literal 0x0
01c4 4800 |H | Short_Literal 0x0
01c5 4800 |H | Short_Literal 0x0
01c6 840f | | Call 0x2,0xf
01c7 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c8 e002 | | Load 0x0,0x2
01c9 1b11 | | Execute Package,Field_Read,Field_Number 0x11
01ca e002 | | Load 0x0,0x2
01cb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01cc e002 | | Load 0x0,0x2
01cd 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01ce e002 | | Load 0x0,0x2
01cf 1b0e | | Execute Package,Field_Read,Field_Number 0xe
01d0 e408 | | Load 0x2,0x8
01d1 e002 | | Load 0x0,0x2
01d2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d3 c40a | | Store 0x2,0xa
01d4 c40b | | Store 0x2,0xb
01d5 c40c | | Store 0x2,0xc
01d6 c40d | | Store 0x2,0xd
01d7 e411 | | Load 0x2,0x11
01d8 e407 | | Load 0x2,0x7
01d9 e406 | | Load 0x2,0x6
01da e5ff | | Load 0x2,-0x1
01db e411 | | Load 0x2,0x11
01dc 4812 |H | Short_Literal 0x12
01dd 4802 |H | Short_Literal 0x2
01de 0099 | | Action Reference_Dynamic
01df 8410 | | Call 0x2,0x10
01e0 c406 | | Store 0x2,0x6
01e1 c407 | | Store 0x2,0x7
01e2 c404 | | Store 0x2,0x4
01e3 e404 | | Load 0x2,0x4
01e4 0b0a | | Execute_Immediate Case_Compare,0xa
01e5 7003 |p | Jump_Nonzero 0x1e9
01e6 0b08 | | Execute_Immediate Case_Compare,0x8
01e7 700e |p | Jump_Nonzero 0x1f6
01e8 781f |x | Jump 0x208
01e9 4ff1 |O | Short_Literal -0xf
01ea e408 | | Load 0x2,0x8
01eb e001 | | Load 0x0,0x1
01ec 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
01ed 0aff | | Execute_Immediate Plus,-0x1
01ee 090f | | Execute_Immediate Binary_Scale,0xf
01ef 6208 |b | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
01f0 0141 | A | Execute Discrete,Multiply_And_Scale
01f1 e408 | | Load 0x2,0x8
01f2 e002 | | Load 0x0,0x2
01f3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01f4 820d | | Call 0x1,0xd
01f5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f6 4801 |H | Short_Literal 0x1
01f7 a40c | | Store_Unchecked 0x2,0xc
01f8 4800 |H | Short_Literal 0x0
01f9 e40c | | Load 0x2,0xc
01fa e002 | | Load 0x0,0x2
01fb 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01fc 025b | [ | Execute Discrete,Check_In_Type
01fd e40b | | Load 0x2,0xb
01fe e002 | | Load 0x0,0x2
01ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0200 025b | [ | Execute Discrete,Check_In_Type
0201 e40a | | Load 0x2,0xa
0202 e002 | | Load 0x0,0x2
0203 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0204 025b | [ | Execute Discrete,Check_In_Type
0205 e002 | | Load 0x0,0x2
0206 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0208 00d1 | | Pop_Control Pop_Count_1
0209 784b |xK | Jump 0x255
020a e411 | | Load 0x2,0x11
020b e407 | | Load 0x2,0x7
020c e406 | | Load 0x2,0x6
020d e5ff | | Load 0x2,-0x1
020e e411 | | Load 0x2,0x11
020f 4812 |H | Short_Literal 0x12
0210 4802 |H | Short_Literal 0x2
0211 0099 | | Action Reference_Dynamic
0212 8410 | | Call 0x2,0x10
0213 c406 | | Store 0x2,0x6
0214 c407 | | Store 0x2,0x7
0215 c404 | | Store 0x2,0x4
0216 e404 | | Load 0x2,0x4
0217 0b0a | | Execute_Immediate Case_Compare,0xa
0218 7003 |p | Jump_Nonzero 0x21c
0219 0b08 | | Execute_Immediate Case_Compare,0x8
021a 700f |p | Jump_Nonzero 0x22a
021b 7835 |x5 | Jump 0x251
021c 4ff1 |O | Short_Literal -0xf
021d 4807 |H | Short_Literal 0x7
021e e408 | | Load 0x2,0x8
021f e001 | | Load 0x0,0x1
0220 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0221 0272 | r | Execute Discrete,Minus
0222 090f | | Execute_Immediate Binary_Scale,0xf
0223 61d4 |a | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
0224 0141 | A | Execute Discrete,Multiply_And_Scale
0225 e408 | | Load 0x2,0x8
0226 e002 | | Load 0x0,0x2
0227 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0228 820d | | Call 0x1,0xd
0229 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
022a e002 | | Load 0x0,0x2
022b 1b11 | | Execute Package,Field_Read,Field_Number 0x11
022c e002 | | Load 0x0,0x2
022d 1b10 | | Execute Package,Field_Read,Field_Number 0x10
022e e002 | | Load 0x0,0x2
022f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0230 e002 | | Load 0x0,0x2
0231 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0232 4800 |H | Short_Literal 0x0
0233 4800 |H | Short_Literal 0x0
0234 4800 |H | Short_Literal 0x0
0235 4800 |H | Short_Literal 0x0
0236 4800 |H | Short_Literal 0x0
0237 4800 |H | Short_Literal 0x0
0238 4801 |H | Short_Literal 0x1
0239 4800 |H | Short_Literal 0x0
023a 840f | | Call 0x2,0xf
023b e002 | | Load 0x0,0x2
023c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
023d c40a | | Store 0x2,0xa
023e c40b | | Store 0x2,0xb
023f c40c | | Store 0x2,0xc
0240 c40d | | Store 0x2,0xd
0241 61b6 |a | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
0242 4800 |H | Short_Literal 0x0
0243 4801 |H | Short_Literal 0x1
0244 e40b | | Load 0x2,0xb
0245 e002 | | Load 0x0,0x2
0246 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0247 025b | [ | Execute Discrete,Check_In_Type
0248 e40a | | Load 0x2,0xa
0249 e002 | | Load 0x0,0x2
024a 1b0e | | Execute Package,Field_Read,Field_Number 0xe
024b 025b | [ | Execute Discrete,Check_In_Type
024c e002 | | Load 0x0,0x2
024d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
024e e002 | | Load 0x0,0x2
024f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0250 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0251 00d1 | | Pop_Control Pop_Count_1
0252 7802 |x | Jump 0x255
0253 e408 | | Load 0x2,0x8
0254 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0255 0831 | 1 | Execute_Immediate Raise,0x31
0256 TRAP_00e0:
0256 0007 | | Action Break_Optional
0257 e5ff | | Load 0x2,-0x1
0258 8211 | | Call 0x1,0x11
0259 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025a 0000 0000 | | .BLANK 0000[0x6]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0269 | i | .CONST 0x0269 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0002 | | .CONST 0x0002 ; Number of locals
0263 INIT_0260:
0263 e002 | | Load 0x0,0x2
0264 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0265 02c7 | | Declare_Variable Any
0266 00db | | Load_Top At_Offset_3
0267 8213 | | Call 0x1,0x13
0268 a402 | | Store_Unchecked 0x2,0x2
0269 BODY_0260:
0269 4800 |H | Short_Literal 0x0
026a 4801 |H | Short_Literal 0x1
026b 4803 |H | Short_Literal 0x3
026c 00db | | Load_Top At_Offset_3
026d 820f | | Call 0x1,0xf
026e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
026f 0000 | | .XXX[0x1]
0270 ; --------------------------------------------------------------------------------------
0270 ; SUBPROGRAM
0270 ; --------------------------------------------------------------------------------------
0270 0273 | s | .CONST 0x0273 ; Address of begin
0271 0004 | | .CONST 0x0004 ; Address of exception handler
0272 0001 | | .CONST 0x0001 ; Number of locals
0273 BODY_0270:
0273 INIT_0270:
0273 4800 |H | Short_Literal 0x0
0274 4803 |H | Short_Literal 0x3
0275 4804 |H | Short_Literal 0x4
0276 e002 | | Load 0x0,0x2
0277 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0278 820f | | Call 0x1,0xf
0279 00ca | | Action Exit_Nullary_Function
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4802 |H | Short_Literal 0x2
0284 4803 |H | Short_Literal 0x3
0285 4804 |H | Short_Literal 0x4
0286 e002 | | Load 0x0,0x2
0287 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0288 820f | | Call 0x1,0xf
0289 00ca | | Action Exit_Nullary_Function
028a 0000 0000 | | .BLANK 0000[0x6]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 4801 |H | Short_Literal 0x1
0294 4803 |H | Short_Literal 0x3
0295 4804 |H | Short_Literal 0x4
0296 e002 | | Load 0x0,0x2
0297 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0298 820f | | Call 0x1,0xf
0299 00ca | | Action Exit_Nullary_Function
029a 0000 0000 | | .BLANK 0000[0x6]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02ab | | .CONST 0x02ab ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0003 | | .CONST 0x0003 ; 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 e002 | | Load 0x0,0x2
02a7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02a8 a402 | | Store_Unchecked 0x2,0x2
02a9 e001 | | Load 0x0,0x1
02aa 1b2d | - | Execute Package,Field_Read,Field_Number 0x2d
02ab BODY_02a0:
02ab e5fe | | Load 0x2,-0x2
02ac 01db | | Execute Vector,Length
02ad 6806 |h | Jump_Zero 0x2b4
02ae e5fe | | Load 0x2,-0x2
02af e001 | | Load 0x0,0x1
02b0 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02b1 e001 | | Load 0x0,0x1
02b2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02b3 c402 | | Store 0x2,0x2
02b4 00d9 | | Load_Top At_Offset_1
02b5 e001 | | Load 0x0,0x1
02b6 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02b7 e001 | | Load 0x0,0x1
02b8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
02b9 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02ba e5ff | | Load 0x2,-0x1
02bb 00d9 | | Load_Top At_Offset_1
02bc 027e | ~ | Execute Discrete,Not_Equal
02bd 6835 |h5 | Jump_Zero 0x2f3
02be e5ff | | Load 0x2,-0x1
02bf 0f07 | | Execute_Immediate Equal,0x7
02c0 680a |h | Jump_Zero 0x2cb
02c1 4ff1 |O | Short_Literal -0xf
02c2 00d9 | | Load_Top At_Offset_1
02c3 090f | | Execute_Immediate Binary_Scale,0xf
02c4 6133 |a3 | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
02c5 0141 | A | Execute Discrete,Multiply_And_Scale
02c6 00da | | Load_Top At_Offset_2
02c7 e002 | | Load 0x0,0x2
02c8 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02c9 c402 | | Store 0x2,0x2
02ca 7828 |x( | Jump 0x2f3
02cb 00d8 | | Load_Top At_Offset_0
02cc 0f07 | | Execute_Immediate Equal,0x7
02cd 680a |h | Jump_Zero 0x2d8
02ce 4ff1 |O | Short_Literal -0xf
02cf e5ff | | Load 0x2,-0x1
02d0 090f | | Execute_Immediate Binary_Scale,0xf
02d1 6126 |a& | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
02d2 0141 | A | Execute Discrete,Multiply_And_Scale
02d3 00da | | Load_Top At_Offset_2
02d4 e002 | | Load 0x0,0x2
02d5 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02d6 c402 | | Store 0x2,0x2
02d7 781b |x | Jump 0x2f3
02d8 00d8 | | Load_Top At_Offset_0
02d9 e5ff | | Load 0x2,-0x1
02da 027d | } | Execute Discrete,Greater
02db 680c |h | Jump_Zero 0x2e8
02dc 4ff1 |O | Short_Literal -0xf
02dd 00d9 | | Load_Top At_Offset_1
02de e5ff | | Load 0x2,-0x1
02df 0272 | r | Execute Discrete,Minus
02e0 090f | | Execute_Immediate Binary_Scale,0xf
02e1 6116 |a | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
02e2 0141 | A | Execute Discrete,Multiply_And_Scale
02e3 00da | | Load_Top At_Offset_2
02e4 e002 | | Load 0x0,0x2
02e5 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02e6 c402 | | Store 0x2,0x2
02e7 780b |x | Jump 0x2f3
02e8 4ff1 |O | Short_Literal -0xf
02e9 e5ff | | Load 0x2,-0x1
02ea 00da | | Load_Top At_Offset_2
02eb 0272 | r | Execute Discrete,Minus
02ec 090f | | Execute_Immediate Binary_Scale,0xf
02ed 610a |a | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
02ee 0141 | A | Execute Discrete,Multiply_And_Scale
02ef 00da | | Load_Top At_Offset_2
02f0 e002 | | Load 0x0,0x2
02f1 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f2 c402 | | Store 0x2,0x2
02f3 00d9 | | Load_Top At_Offset_1
02f4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 4802 |H | Short_Literal 0x2
02fc 4800 |H | Short_Literal 0x0
02fd 4804 |H | Short_Literal 0x4
02fe e5fe | | Load 0x2,-0x2
02ff e5ff | | Load 0x2,-0x1
0300 8218 | | Call 0x1,0x18
0301 e001 | | Load 0x0,0x1
0302 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0303 e001 | | Load 0x0,0x1
0304 181f | | Execute Package,Field_Execute,Field_Number 0x1f
0305 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0306 0000 0000 | | .XXX[0x2]
0308 ; --------------------------------------------------------------------------------------
0308 ; SUBPROGRAM
0308 ; --------------------------------------------------------------------------------------
0308 030b | | .CONST 0x030b ; Address of begin
0309 0004 | | .CONST 0x0004 ; Address of exception handler
030a 0001 | | .CONST 0x0001 ; Number of locals
030b BODY_0308:
030b INIT_0308:
030b 4603 |F | Jump_Case 0x4
030c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
030d 7802 |x | Jump 0x310 ; case 0x1
030e 7805 |x | Jump 0x314 ; case 0x2
030f 7809 |x | Jump 0x319 ; case 0x3
0310 00da | | Load_Top At_Offset_2
0311 0091 0442 | B| Action Push_String_Extended_Indexed,0x442 ; "HOUR"
0313 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0314 00db | | Load_Top At_Offset_3
0315 00db | | Load_Top At_Offset_3
0316 00e0 | | Load_Encached Standard_Cache
0317 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0318 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0319 00da | | Load_Top At_Offset_2
031a 00e0 | | Load_Encached Standard_Cache
031b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
031c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
031d 0000 0000 | | .XXX[0x3]
031f 0000 | |
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 0323 | # | .CONST 0x0323 ; Address of begin
0321 0004 | | .CONST 0x0004 ; Address of exception handler
0322 0001 | | .CONST 0x0001 ; Number of locals
0323 BODY_0320:
0323 INIT_0320:
0323 4603 |F | Jump_Case 0x4
0324 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0325 7802 |x | Jump 0x328 ; case 0x1
0326 7805 |x | Jump 0x32c ; case 0x2
0327 7809 |x | Jump 0x331 ; case 0x3
0328 00da | | Load_Top At_Offset_2
0329 0091 0445 | E| Action Push_String_Extended_Indexed,0x445 ; "TODAY"
032b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
032c 00db | | Load_Top At_Offset_3
032d 00db | | Load_Top At_Offset_3
032e 00e0 | | Load_Encached Standard_Cache
032f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0330 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0331 00da | | Load_Top At_Offset_2
0332 00e0 | | Load_Encached Standard_Cache
0333 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0334 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0335 0000 0000 | | .XXX[0x3]
0337 0000 | |
0338 ; --------------------------------------------------------------------------------------
0338 ; SUBPROGRAM
0338 ; --------------------------------------------------------------------------------------
0338 0340 | @ | .CONST 0x0340 ; Address of begin
0339 0004 | | .CONST 0x0004 ; Address of exception handler
033a 0006 | | .CONST 0x0006 ; Number of locals
033b INIT_0338:
033b 00e3 | | Load_Encached Natural_Cache
033c 00e2 | | Load_Encached Integer_Cache
033d 00e3 | | Load_Encached Natural_Cache
033e 00e7 | | Load_Encached Duration_Cache
033f 00e7 | | Load_Encached Duration_Cache
0340 BODY_0338:
0340 e002 | | Load 0x0,0x2
0341 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0342 e002 | | Load 0x0,0x2
0343 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0344 e002 | | Load 0x0,0x2
0345 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0346 e002 | | Load 0x0,0x2
0347 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0348 e408 | | Load 0x2,0x8
0349 e002 | | Load 0x0,0x2
034a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
034b c602 | | Store 0x3,0x2
034c c603 | | Store 0x3,0x3
034d c604 | | Store 0x3,0x4
034e 005a | Z | Store_Top Discrete,At_Offset_2
034f e7f8 | | Load 0x3,-0x8
0350 684c |hL | Jump_Zero 0x39d
0351 e602 | | Load 0x3,0x2
0352 e7ff | | Load 0x3,-0x1
0353 0272 | r | Execute Discrete,Minus
0354 c602 | | Store 0x3,0x2
0355 00db | | Load_Top At_Offset_3
0356 e7fe | | Load 0x3,-0x2
0357 0272 | r | Execute Discrete,Minus
0358 c603 | | Store 0x3,0x3
0359 00db | | Load_Top At_Offset_3
035a 0d01 | | Execute_Immediate Less,0x1
035b 680d |h | Jump_Zero 0x369
035c e602 | | Load 0x3,0x2
035d e603 | | Load 0x3,0x3
035e 0274 | t | Execute Discrete,Absolute_Value
035f 480c |H | Short_Literal 0xc
0360 0270 | p | Execute Discrete,Divide
0361 0a01 | | Execute_Immediate Plus,0x1
0362 0272 | r | Execute Discrete,Minus
0363 c602 | | Store 0x3,0x2
0364 00db | | Load_Top At_Offset_3
0365 480c |H | Short_Literal 0xc
0366 026f | o | Execute Discrete,Remainder
0367 0a0c | | Execute_Immediate Plus,0xc
0368 c603 | | Store 0x3,0x3
0369 e7f9 | | Load 0x3,-0x7
036a 090f | | Execute_Immediate Binary_Scale,0xf
036b 4ff1 |O | Short_Literal -0xf
036c e7fa | | Load 0x3,-0x6
036d 090f | | Execute_Immediate Binary_Scale,0xf
036e 6085 |` | Indirect_Literal Discrete,0x3f4,{0x00000000, 0x001e0000}
036f 0141 | A | Execute Discrete,Multiply_And_Scale
0370 0273 | s | Execute Discrete,Plus
0371 4ff1 |O | Short_Literal -0xf
0372 e7fb | | Load 0x3,-0x5
0373 090f | | Execute_Immediate Binary_Scale,0xf
0374 607b |`{ | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x07080000}
0375 0141 | A | Execute Discrete,Multiply_And_Scale
0376 0273 | s | Execute Discrete,Plus
0377 4ff1 |O | Short_Literal -0xf
0378 e7fc | | Load 0x3,-0x4
0379 090f | | Execute_Immediate Binary_Scale,0xf
037a 607d |`} | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
037b 0141 | A | Execute Discrete,Multiply_And_Scale
037c 0273 | s | Execute Discrete,Plus
037d 4ff1 |O | Short_Literal -0xf
037e e7fd | | Load 0x3,-0x3
037f 090f | | Execute_Immediate Binary_Scale,0xf
0380 4ff1 |O | Short_Literal -0xf
0381 6076 |`v | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
0382 6069 |`i | Indirect_Literal Discrete,0x3ec,{0x00000000, 0x00038000}
0383 0141 | A | Execute Discrete,Multiply_And_Scale
0384 0141 | A | Execute Discrete,Multiply_And_Scale
0385 0273 | s | Execute Discrete,Plus
0386 0059 | Y | Store_Top Discrete,At_Offset_1
0387 00d8 | | Load_Top At_Offset_0
0388 00da | | Load_Top At_Offset_2
0389 e002 | | Load 0x0,0x2
038a 1b11 | | Execute Package,Field_Read,Field_Number 0x11
038b 025b | [ | Execute Discrete,Check_In_Type
038c e604 | | Load 0x3,0x4
038d e002 | | Load 0x0,0x2
038e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
038f 025b | [ | Execute Discrete,Check_In_Type
0390 e603 | | Load 0x3,0x3
0391 e002 | | Load 0x0,0x2
0392 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0393 025b | [ | Execute Discrete,Check_In_Type
0394 e602 | | Load 0x3,0x2
0395 e002 | | Load 0x0,0x2
0396 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0397 025b | [ | Execute Discrete,Check_In_Type
0398 e002 | | Load 0x0,0x2
0399 1818 | | Execute Package,Field_Execute,Field_Number 0x18
039a e002 | | Load 0x0,0x2
039b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
039c 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
039d e602 | | Load 0x3,0x2
039e e7ff | | Load 0x3,-0x1
039f 0273 | s | Execute Discrete,Plus
03a0 c602 | | Store 0x3,0x2
03a1 00db | | Load_Top At_Offset_3
03a2 e7fe | | Load 0x3,-0x2
03a3 0273 | s | Execute Discrete,Plus
03a4 c603 | | Store 0x3,0x3
03a5 00db | | Load_Top At_Offset_3
03a6 0c0d | | Execute_Immediate Greater_Equal,0xd
03a7 680f |h | Jump_Zero 0x3b7
03a8 e602 | | Load 0x3,0x2
03a9 e603 | | Load 0x3,0x3
03aa 0aff | | Execute_Immediate Plus,-0x1
03ab 480c |H | Short_Literal 0xc
03ac 0270 | p | Execute Discrete,Divide
03ad 0273 | s | Execute Discrete,Plus
03ae c602 | | Store 0x3,0x2
03af 00db | | Load_Top At_Offset_3
03b0 480c |H | Short_Literal 0xc
03b1 026f | o | Execute Discrete,Remainder
03b2 a603 | | Store_Unchecked 0x3,0x3
03b3 00db | | Load_Top At_Offset_3
03b4 7002 |p | Jump_Nonzero 0x3b7
03b5 480c |H | Short_Literal 0xc
03b6 a603 | | Store_Unchecked 0x3,0x3
03b7 e7f9 | | Load 0x3,-0x7
03b8 090f | | Execute_Immediate Binary_Scale,0xf
03b9 4ff1 |O | Short_Literal -0xf
03ba e7fa | | Load 0x3,-0x6
03bb 090f | | Execute_Immediate Binary_Scale,0xf
03bc 6037 |`7 | Indirect_Literal Discrete,0x3f4,{0x00000000, 0x001e0000}
03bd 0141 | A | Execute Discrete,Multiply_And_Scale
03be 0273 | s | Execute Discrete,Plus
03bf 4ff1 |O | Short_Literal -0xf
03c0 e7fb | | Load 0x3,-0x5
03c1 090f | | Execute_Immediate Binary_Scale,0xf
03c2 602d |`- | Indirect_Literal Discrete,0x3f0,{0x00000000, 0x07080000}
03c3 0141 | A | Execute Discrete,Multiply_And_Scale
03c4 0273 | s | Execute Discrete,Plus
03c5 4ff1 |O | Short_Literal -0xf
03c6 e7fc | | Load 0x3,-0x4
03c7 090f | | Execute_Immediate Binary_Scale,0xf
03c8 602f |`/ | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
03c9 0141 | A | Execute Discrete,Multiply_And_Scale
03ca 0273 | s | Execute Discrete,Plus
03cb 4ff1 |O | Short_Literal -0xf
03cc e7fd | | Load 0x3,-0x3
03cd 090f | | Execute_Immediate Binary_Scale,0xf
03ce 4ff1 |O | Short_Literal -0xf
03cf 6028 |`( | Indirect_Literal Discrete,0x3f8,{0x00000000, 0xa8c00000}
03d0 601b |` | Indirect_Literal Discrete,0x3ec,{0x00000000, 0x00038000}
03d1 0141 | A | Execute Discrete,Multiply_And_Scale
03d2 0141 | A | Execute Discrete,Multiply_And_Scale
03d3 0273 | s | Execute Discrete,Plus
03d4 0059 | Y | Store_Top Discrete,At_Offset_1
03d5 00d8 | | Load_Top At_Offset_0
03d6 00da | | Load_Top At_Offset_2
03d7 e002 | | Load 0x0,0x2
03d8 1b11 | | Execute Package,Field_Read,Field_Number 0x11
03d9 025b | [ | Execute Discrete,Check_In_Type
03da e604 | | Load 0x3,0x4
03db e002 | | Load 0x0,0x2
03dc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03dd 025b | [ | Execute Discrete,Check_In_Type
03de e603 | | Load 0x3,0x3
03df e002 | | Load 0x0,0x2
03e0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e1 025b | [ | Execute Discrete,Check_In_Type
03e2 e602 | | Load 0x3,0x2
03e3 e002 | | Load 0x0,0x2
03e4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
03e5 025b | [ | Execute Discrete,Check_In_Type
03e6 e002 | | Load 0x0,0x2
03e7 1818 | | Execute Package,Field_Execute,Field_Number 0x18
03e8 e002 | | Load 0x0,0x2
03e9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03ea 4408 |D | Exit_Subprogram With_Value,New_Top_Offset 0x8
03eb 0000 | | .XXX[0x1]
03ec 0000 0000 | | .LITERAL {0x00000000, 0x00038000}
03f0 0000 0000 | | .LITERAL {0x00000000, 0x07080000}
03f4 0000 0000 | | .LITERAL {0x00000000, 0x001e0000}
03f8 0000 0000 | | .LITERAL {0x00000000, 0xa8c00000}
03fc 0000 0000 | | .BLANK 0000[0x4]
0400 ; --------------------------------------------------------------------------------------
0400 ; SUBPROGRAM
0400 ; --------------------------------------------------------------------------------------
0400 0405 | | .CONST 0x0405 ; Address of begin
0401 0004 | | .CONST 0x0004 ; Address of exception handler
0402 0002 | | .CONST 0x0002 ; Number of locals
0403 INIT_0400:
0403 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
0405 BODY_0400:
0405 4801 |H | Short_Literal 0x1
0406 e7fc | | Load 0x3,-0x4
0407 e7fd | | Load 0x3,-0x3
0408 01dc | | Execute Vector,Last
0409 e7fd | | Load 0x3,-0x3
040a 01cf | | Execute Vector,Slice_Read
040b 485f |H_ | Short_Literal 0x5f
040c e003 | | Load 0x0,0x3
040d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
040e a7fb | | Store_Unchecked 0x3,-0x5
040f e7fb | | Load 0x3,-0x5
0410 7005 |p | Jump_Nonzero 0x416
0411 e7fd | | Load 0x3,-0x3
0412 01dc | | Execute Vector,Last
0413 0aff | | Execute_Immediate Plus,-0x1
0414 c7fb | | Store 0x3,-0x5
0415 7803 |x | Jump 0x419
0416 e7fb | | Load 0x3,-0x5
0417 0aff | | Execute_Immediate Plus,-0x1
0418 c7fb | | Store 0x3,-0x5
0419 8602 | | Call 0x3,0x2
041a e7fb | | Load 0x3,-0x5
041b 0a02 | | Execute_Immediate Plus,0x2
041c c7fc | | Store 0x3,-0x4
041d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
041e 0000 0000 | | .XXX[0x2]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 042c | , | .CONST 0x042c ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 e7fc | | Load 0x3,-0x4
0424 e7fb | | Load 0x3,-0x5
0425 e7fd | | Load 0x3,-0x3
0426 01cf | | Execute Vector,Slice_Read
0427 e7fe | | Load 0x3,-0x2
0428 0122 | " | Execute Any,Make_Root_Type
0429 1c02 | | Execute_Immediate Run_Utility,0x2
042a c7fa | | Store 0x3,-0x6
042b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
042c TRAP_0420:
042c 0007 | | Action Break_Optional
042d 4801 |H | Short_Literal 0x1
042e e7fb | | Load 0x3,-0x5
042f 0a02 | | Execute_Immediate Plus,0x2
0430 e7fd | | Load 0x3,-0x3
0431 01dc | | Execute Vector,Last
0432 e7fd | | Load 0x3,-0x3
0433 01cf | | Execute Vector,Slice_Read
0434 485f |H_ | Short_Literal 0x5f
0435 e003 | | Load 0x0,0x3
0436 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0437 0aff | | Execute_Immediate Plus,-0x1
0438 c7fb | | Store 0x3,-0x5
0439 e7fc | | Load 0x3,-0x4
043a e7fb | | Load 0x3,-0x5
043b e7fd | | Load 0x3,-0x3
043c 01cf | | Execute Vector,Slice_Read
043d e7fe | | Load 0x3,-0x2
043e 0122 | " | Execute Any,Make_Root_Type
043f 1c02 | | Execute_Immediate Run_Utility,0x2
0440 c7fa | | Store 0x3,-0x6
0441 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0442 ; --------------------------------------------------------------------------------------
0442 ; STRING TABLE
0442 ; --------------------------------------------------------------------------------------
0442 0036 | 6 | .STRTAB 0x0036->0x045d ; "HOUR"
0443 0038 | 8 | .STRTAB 0x0038->0x045f ; "MINUTE"
0444 003c | < | .STRTAB 0x003c->0x0462 ; "SECOND"
0445 0040 | @ | .STRTAB 0x0040->0x0465 ; "TODAY"
0446 0043 | C | .STRTAB 0x0043->0x0467 ; "TOMORROW"
0447 0049 | I | .STRTAB 0x0049->0x046b ; "CLOCK"
0448 004c | L | .STRTAB 0x004c->0x046e ; "PLUS"
0449 004e | N | .STRTAB 0x004e->0x0470 ; "MINUS"
044a 0051 | Q | .STRTAB 0x0051->0x0472 ; "YEARS"
044b 0054 | T | .STRTAB 0x0054->0x0475 ; "YEAR"
044c 0056 | V | .STRTAB 0x0056->0x0477 ; "MONTHS"
044d 005a | Z | .STRTAB 0x005a->0x047a ; "MONTH"
044e 005d | ] | .STRTAB 0x005d->0x047c ; "WEEKS"
044f 0060 | ` | .STRTAB 0x0060->0x047f ; "WEEK"
0450 0062 | b | .STRTAB 0x0062->0x0481 ; "DAYS"
0451 0064 | d | .STRTAB 0x0064->0x0483 ; "DAY"
0452 0065 | e | .STRTAB 0x0065->0x0484 ; "HOURS"
0453 0068 | h | .STRTAB 0x0068->0x0487 ; "HOUR"
0454 006a | j | .STRTAB 0x006a->0x0489 ; "MINUTES"
0455 006f | o | .STRTAB 0x006f->0x048c ; "MINUTE"
0456 0073 | s | .STRTAB 0x0073->0x048f ; "SECONDS"
0457 0078 | x | .STRTAB 0x0078->0x0493 ; "SECOND"
0458 007c | | | .STRTAB 0x007c->0x0496 ; "BEGINNING_OF"
0459 0086 | | .STRTAB 0x0086->0x049c ; "END_OF"
045a 008a | | .STRTAB 0x008a->0x049f ; ":"
045b 0089 | | .STRTAB 0x0089->0x049f ; "***"
045c 008a | | .STREND 0x008a->0x04a1
045d 484f 5552 |HOUR| .STRTAB_STRINGS
04a1 0000 0000 | | .BLANK 0000[0x7]
04a8 ; --------------------------------------------------------------------------------------
04a8 ; Debug Table
04a8 ; --------------------------------------------------------------------------------------
04a8 0004 0001 | | .DEBUG4 0x0004,0x0001,0xb769,0x0000,0x0001,0x0000
04ae 4d3c 2000 |M< | .XXX[0x23]
04b0 0000 1002 | |
04b2 0000 0001 | |
04b4 0000 0018 | |
04b6 0000 0024 | $|
04b8 0000 0004 | |
04ba 0000 0001 | |
04bc 0000 0012 | |
04be 0000 0388 | |
04c0 0000 0004 | |
04c2 0a22 e400 | " |
04c4 0000 0200 | |
04c6 4000 0000 |@ |
04c8 0013 eb41 | A|
04ca 4000 40ed |@ @ |
04cc a008 0000 | |
04ce 0000 0000 | |
04d0 0004 | |
04d1 0000 0000 | | .BLANK 0000[0x6]
04d7 003c 9ee8 | < | .XXX[0x11]
04d9 0000 0000 | |
04db 0000 0003 | |
04dd fe80 0000 | |
04df 0180 0000 | |
04e1 0000 0793 | |
04e3 2780 27d6 |' ' |
04e5 8280 0082 | |
04e7 5280 |R |
04e8 0000 0000 | | .BLANK 0000[0x4]
04ec 27d6 8280 |' | .XXX[0x6e]
04ee 0084 b500 | |
04f0 0000 0000 | |
04f2 0000 0040 | @|
04f4 0000 0600 | |
04f6 0000 1200 | |
04f8 0000 0100 | |
04fa 0000 0040 | @|
04fc 0000 0480 | |
04fe 0000 0b00 | |
0500 0000 0102 | |
0502 6a1d 0000 |j |
0504 0000 8010 | |
0506 0000 0008 | |
0508 0000 00c0 | |
050a 0000 0060 | `|
050c 0000 0020 | |
050e 0000 0008 | |
0510 0000 0090 | |
0512 0000 0300 | |
0514 0000 0020 | |
0516 4d3c 2000 |M< |
0518 0000 1002 | |
051a 0000 0001 | |
051c 0000 0018 | |
051e 0000 0024 | $|
0520 0000 0004 | |
0522 0000 0001 | |
0524 0000 0012 | |
0526 0000 0388 | |
0528 0000 0004 | |
052a 0a22 e400 | " |
052c 0000 0200 | |
052e 4000 0000 |@ |
0530 3fe8 0000 |? |
0532 0010 0000 | |
0534 0000 0079 | y|
0536 19c8 027d | }|
0538 6828 0008 |h( |
053a 2528 027d |%( }|
053c 6828 0008 |h( |
053e 1db0 027d | }|
0540 6828 0008 |h( |
0542 4b50 0000 |KP |
0544 0000 0000 | |
0546 0007 fd00 | |
0548 0000 0200 | |
054a 0000 0000 | |
054c 0f33 0200 | 3 |
054e 4fad 0500 |O |
0550 0105 9400 | |
0552 4fad 0500 |O |
0554 0103 b600 | |
0556 4fad 0500 |O |
0558 0109 6a00 | j |
055a 0000 0000 | | .BLANK 0000[0x4]
055e 4fad 0500 |O | .XXX[0x4b]
0560 0105 9480 | |
0562 0000 0000 | |
0564 0000 003f | ?|
0566 e800 0000 | |
0568 1800 0000 | |
056a 0000 79a3 | y |
056c 6800 0000 |h |
056e 0000 0000 | |
0570 0002 7d68 | }h|
0572 2800 083f |( ?|
0574 3002 7d68 |0 }h|
0576 2800 083f |( ?|
0578 3000 0000 |0 |
057a 0000 0000 | |
057c 0002 10c8 | |
057e 0000 05e3 | |
0580 1000 0000 | |
0582 0000 0000 | |
0584 0002 7d68 | }h|
0586 2800 0815 |( |
0588 2800 0000 |( |
058a 0000 79be | y |
058c 2800 0000 |( |
058e 0000 0000 | |
0590 0002 0a24 | $|
0592 0000 033d | =|
0594 a800 0000 | |
0596 0000 0000 | |
0598 0002 0a24 | $|
059a 0000 033d | =|
059c a800 0000 | |
059e 0000 0000 | |
05a0 0001 3eb4 | > |
05a2 1400 0418 | |
05a4 9000 0000 | |
05a6 0000 3ce6 | < |
05a8 1800 | |
05a9 0000 0000 | | .BLANK 0000[0x4]
05ad 9f5a 0a00 | Z | .XXX[0x4]
05af 0205 4a00 | J |
05b1 0000 0000 | | .BLANK 0000[0x6]
05b7 1e74 0d00 | t | .XXX[0x6]
05b9 4fad 0500 |O |
05bb 0102 a500 | |
05bd 0000 0000 | | .BLANK 0000[0x4]
05c1 4fad 0500 |O | .XXX[0x8]
05c3 0102 a500 | |
05c5 0000 0000 | |
05c7 0f3b 8800 | ; |
05c9 0000 0000 | | .BLANK 0000[0x4]
05cd 27d6 8280 |' | .XXX[0x4]
05cf 0081 5280 | R |
05d1 0000 0000 | | .BLANK 0000[0x4]
05d5 27d6 8280 |' | .XXX[0x4]
05d7 0081 5280 | R |
05d9 0000 0000 | | .BLANK 0000[0x4]
05dd 4144 8000 |AD | .XXX[0x4]
05df 0067 b500 | g |
05e1 0000 0000 | | .BLANK 0000[0x4]
05e5 4144 8000 |AD | .XXX[0x4]
05e7 0067 b500 | g |
05e9 0000 0000 | | .BLANK 0000[0x4]
05ed 4144 8000 |AD | .XXX[0x4]
05ef 0067 b500 | g |
05f1 0000 0000 | | .BLANK 0000[0x5]
05f6 0080 | | .XXX[0x1]
05f7 0000 0000 | | .BLANK 0000[0x5]
05fc 0080 0000 | | .XXX[0x4]
05fe 0000 0000 | |