|
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 - metrics - download
Length: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦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 0488 | | .CONST 0x0488 ; 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 0036 | 6 | .CONST 0x0036 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0019 | | .CONST 0x0019 ; Number of locals
000b INIT_0008:
000b 029a 003b | ;| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0038
000d 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8
000f 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8
0011 029a 011b | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0118
0013 029a 0173 | s| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0170
0015 029a 01db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_01d8
0017 029a 022b | +| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0228
0019 029a 027b | {| Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0278
001b 00bf | | Action Accept_Activation
001c 029d 02e3 | | Declare_Subprogram For_Outer_Call,INIT_02e0
001e 029d 032b | +| Declare_Subprogram For_Outer_Call,INIT_0328
0020 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0021 00c7 | | Action Elaborate_Subprogram
0022 029d 037b | {| Declare_Subprogram For_Outer_Call,INIT_0378
0024 029d 03db | | Declare_Subprogram For_Outer_Call,INIT_03d8
0026 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0027 00c7 | | Action Elaborate_Subprogram
0028 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0029 00c7 | | Action Elaborate_Subprogram
002a 1d10 | | Execute_Immediate Reference_Lex_1,0x10
002b 00c7 | | Action Elaborate_Subprogram
002c 1d0f | | Execute_Immediate Reference_Lex_1,0xf
002d 00c7 | | Action Elaborate_Subprogram
002e 029d 042b | +| Declare_Subprogram For_Outer_Call,INIT_0428
0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0031 00c7 | | Action Elaborate_Subprogram
0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0033 00c7 | | Action Elaborate_Subprogram
0034 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0035 00c7 | | Action Elaborate_Subprogram
0036 BODY_0008:
0036 00bc | | Action Signal_Activated
0037 00bb | | Action Signal_Completion
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 0051 | Q | .CONST 0x0051 ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0006 | | .CONST 0x0006 ; Number of locals
003b INIT_0038:
003b e001 | | Load 0x0,0x1
003c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
003d 02c7 | | Declare_Variable Any
003e 00d8 | | Load_Top At_Offset_0
003f 1c00 | | Execute_Immediate Run_Utility,0x0
0040 e001 | | Load 0x0,0x1
0041 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0042 02c7 | | Declare_Variable Any
0043 00d8 | | Load_Top At_Offset_0
0044 1c00 | | Execute_Immediate Run_Utility,0x0
0045 e001 | | Load 0x0,0x1
0046 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0047 02c7 | | Declare_Variable Any
0048 00d8 | | Load_Top At_Offset_0
0049 1c00 | | Execute_Immediate Run_Utility,0x0
004a e001 | | Load 0x0,0x1
004b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
004c 02c7 | | Declare_Variable Any
004d 00d8 | | Load_Top At_Offset_0
004e 1c00 | | Execute_Immediate Run_Utility,0x0
004f 029f 044b | K| Declare_Subprogram For_Call,INIT_0448
0051 BODY_0038:
0051 e5ff | | Load 0x2,-0x1
0052 e001 | | Load 0x0,0x1
0053 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0054 0f02 | | Execute_Immediate Equal,0x2
0055 6849 |hI | Jump_Zero 0x9f
0056 e5ff | | Load 0x2,-0x1
0057 e001 | | Load 0x0,0x1
0058 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0059 e002 | | Load 0x0,0x2
005a 180f | | Execute Package,Field_Execute,Field_Number 0xf
005b 6843 |hC | Jump_Zero 0x9f
005c 4801 |H | Short_Literal 0x1
005d e5ff | | Load 0x2,-0x1
005e e001 | | Load 0x0,0x1
005f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0060 e002 | | Load 0x0,0x2
0061 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
0062 e003 | | Load 0x0,0x3
0063 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0064 c402 | | Store 0x2,0x2
0065 00cf | | Action Mark_Auxiliary
0066 e402 | | Load 0x2,0x2
0067 e001 | | Load 0x0,0x1
0068 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0069 c402 | | Store 0x2,0x2
006a e402 | | Load 0x2,0x2
006b e001 | | Load 0x0,0x1
006c 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006d 0f08 | | Execute_Immediate Equal,0x8
006e 6806 |h | Jump_Zero 0x75
006f e402 | | Load 0x2,0x2
0070 e001 | | Load 0x0,0x1
0071 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0072 c402 | | Store 0x2,0x2
0073 00c9 | | Action Pop_Auxiliary_Loop
0074 7ff1 | | Jump 0x66
0075 00ce | | Action Pop_Auxiliary
0076 e402 | | Load 0x2,0x2
0077 e001 | | Load 0x0,0x1
0078 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0079 460c |F | Jump_Case 0xc
007a 780d |x | Jump 0x88 ; case 0x0
007b 7812 |x | Jump 0x8e ; case 0x1
007c 781c |x | Jump 0x99 ; case 0x2
007d 7809 |x | Jump 0x87 ; case 0x3
007e 7808 |x | Jump 0x87 ; case 0x4
007f 7807 |x | Jump 0x87 ; case 0x5
0080 7806 |x | Jump 0x87 ; case 0x6
0081 7805 |x | Jump 0x87 ; case 0x7
0082 7804 |x | Jump 0x87 ; case 0x8
0083 7803 |x | Jump 0x87 ; case 0x9
0084 7802 |x | Jump 0x87 ; case 0xa
0085 7801 |x | Jump 0x87 ; case 0xb
0086 7800 |x | Jump 0x87 ; case 0xc
0087 08e2 | | Execute_Immediate Raise,0xe2
0088 e402 | | Load 0x2,0x2
0089 e001 | | Load 0x0,0x1
008a 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
008b c403 | | Store 0x2,0x3
008c 8406 | | Call 0x2,0x6
008d 4502 |E | Exit_Subprogram 0x2
008e e5fd | | Load 0x2,-0x3
008f e5fe | | Load 0x2,-0x2
0090 e402 | | Load 0x2,0x2
0091 820e | | Call 0x1,0xe
0092 c5fe | | Store 0x2,-0x2
0093 c5fd | | Store 0x2,-0x3
0094 e5fd | | Load 0x2,-0x3
0095 e5fe | | Load 0x2,-0x2
0096 027b | { | Execute Discrete,Greater_Equal
0097 a5fc | | Store_Unchecked 0x2,-0x4
0098 4502 |E | Exit_Subprogram 0x2
0099 e402 | | Load 0x2,0x2
009a e001 | | Load 0x0,0x1
009b 1840 | @ | Execute Package,Field_Execute,Field_Number 0x40
009c c403 | | Store 0x2,0x3
009d 8406 | | Call 0x2,0x6
009e 4502 |E | Exit_Subprogram 0x2
009f e5ff | | Load 0x2,-0x1
00a0 c403 | | Store 0x2,0x3
00a1 8406 | | Call 0x2,0x6
00a2 4502 |E | Exit_Subprogram 0x2
00a3 0000 0000 | | .BLANK 0000[0x5]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00b0 | | .CONST 0x00b0 ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0002 | | .CONST 0x0002 ; Number of locals
00ab INIT_00a8:
00ab e002 | | Load 0x0,0x2
00ac 1b13 | | Execute Package,Field_Read,Field_Number 0x13
00ad 02c7 | | Declare_Variable Any
00ae 00d8 | | Load_Top At_Offset_0
00af 1c00 | | Execute_Immediate Run_Utility,0x0
00b0 BODY_00a8:
00b0 00db | | Load_Top At_Offset_3
00b1 e001 | | Load 0x0,0x1
00b2 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
00b3 c402 | | Store 0x2,0x2
00b4 4800 |H | Short_Literal 0x0
00b5 a5fe | | Store_Unchecked 0x2,-0x2
00b6 e5fe | | Load 0x2,-0x2
00b7 0aff | | Execute_Immediate Plus,-0x1
00b8 a5fd | | Store_Unchecked 0x2,-0x3
00b9 00cf | | Action Mark_Auxiliary
00ba 7808 |x | Jump 0xc3
00bb e5fd | | Load 0x2,-0x3
00bc 0a01 | | Execute_Immediate Plus,0x1
00bd a5fd | | Store_Unchecked 0x2,-0x3
00be 00d9 | | Load_Top At_Offset_1
00bf e002 | | Load 0x0,0x2
00c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c1 c402 | | Store 0x2,0x2
00c2 00c9 | | Action Pop_Auxiliary_Loop
00c3 00d9 | | Load_Top At_Offset_1
00c4 e002 | | Load 0x0,0x2
00c5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00c6 6ff4 |o | Jump_Zero 0xbb
00c7 4502 |E | Exit_Subprogram 0x2
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00d5 | | .CONST 0x00d5 ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0003 | | .CONST 0x0003 ; Number of locals
00cb INIT_00c8:
00cb e001 | | Load 0x0,0x1
00cc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00cd 02c7 | | Declare_Variable Any
00ce 00d8 | | Load_Top At_Offset_0
00cf 1c00 | | Execute_Immediate Run_Utility,0x0
00d0 e001 | | Load 0x0,0x1
00d1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00d2 02c7 | | Declare_Variable Any
00d3 00d8 | | Load_Top At_Offset_0
00d4 1c00 | | Execute_Immediate Run_Utility,0x0
00d5 BODY_00c8:
00d5 e5ff | | Load 0x2,-0x1
00d6 e001 | | Load 0x0,0x1
00d7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
00d8 4606 |F | Jump_Case 0x6
00d9 7807 |x | Jump 0xe1 ; case 0x0
00da 7830 |x0 | Jump 0x10b ; case 0x1
00db 7804 |x | Jump 0xe0 ; case 0x2
00dc 7803 |x | Jump 0xe0 ; case 0x3
00dd 7802 |x | Jump 0xe0 ; case 0x4
00de 7801 |x | Jump 0xe0 ; case 0x5
00df 7800 |x | Jump 0xe0 ; case 0x6
00e0 08e2 | | Execute_Immediate Raise,0xe2
00e1 00d8 | | Load_Top At_Offset_0
00e2 0120 | | Execute Any,Is_Value
00e3 6803 |h | Jump_Zero 0xe7
00e4 e001 | | Load 0x0,0x1
00e5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e6 7801 |x | Jump 0xe8
00e7 00d8 | | Load_Top At_Offset_0
00e8 00da | | Load_Top At_Offset_2
00e9 0120 | | Execute Any,Is_Value
00ea 6803 |h | Jump_Zero 0xee
00eb e001 | | Load 0x0,0x1
00ec 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ed 7801 |x | Jump 0xef
00ee 00da | | Load_Top At_Offset_2
00ef e5ff | | Load 0x2,-0x1
00f0 e001 | | Load 0x0,0x1
00f1 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
00f2 c402 | | Store 0x2,0x2
00f3 c403 | | Store 0x2,0x3
00f4 00d9 | | Load_Top At_Offset_1
00f5 e002 | | Load 0x0,0x2
00f6 180f | | Execute Package,Field_Execute,Field_Number 0xf
00f7 7013 |p | Jump_Nonzero 0x10b
00f8 00d9 | | Load_Top At_Offset_1
00f9 e004 | | Load 0x0,0x4
00fa 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00fb 680f |h | Jump_Zero 0x10b
00fc 00d8 | | Load_Top At_Offset_0
00fd e004 | | Load 0x0,0x4
00fe 181a | | Execute Package,Field_Execute,Field_Number 0x1a
00ff 680b |h | Jump_Zero 0x10b
0100 00d9 | | Load_Top At_Offset_1
0101 e004 | | Load 0x0,0x4
0102 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0103 a5fe | | Store_Unchecked 0x2,-0x2
0104 00d8 | | Load_Top At_Offset_0
0105 e004 | | Load 0x0,0x4
0106 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0107 a5fd | | Store_Unchecked 0x2,-0x3
0108 4801 |H | Short_Literal 0x1
0109 a5fc | | Store_Unchecked 0x2,-0x4
010a 4502 |E | Exit_Subprogram 0x2
010b 4800 |H | Short_Literal 0x0
010c a5fe | | Store_Unchecked 0x2,-0x2
010d 4800 |H | Short_Literal 0x0
010e a5fd | | Store_Unchecked 0x2,-0x3
010f 4800 |H | Short_Literal 0x0
0110 a5fc | | Store_Unchecked 0x2,-0x4
0111 4502 |E | Exit_Subprogram 0x2
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0125 | % | .CONST 0x0125 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0003 | | .CONST 0x0003 ; Number of locals
011b INIT_0118:
011b e001 | | Load 0x0,0x1
011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011d 02c7 | | Declare_Variable Any
011e 00d8 | | Load_Top At_Offset_0
011f 1c00 | | Execute_Immediate Run_Utility,0x0
0120 e001 | | Load 0x0,0x1
0121 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0122 02c7 | | Declare_Variable Any
0123 00d8 | | Load_Top At_Offset_0
0124 1c00 | | Execute_Immediate Run_Utility,0x0
0125 BODY_0118:
0125 e5ff | | Load 0x2,-0x1
0126 e002 | | Load 0x0,0x2
0127 180f | | Execute Package,Field_Execute,Field_Number 0xf
0128 6807 |h | Jump_Zero 0x130
0129 4800 |H | Short_Literal 0x0
012a a5fc | | Store_Unchecked 0x2,-0x4
012b 4800 |H | Short_Literal 0x0
012c a5fe | | Store_Unchecked 0x2,-0x2
012d 4800 |H | Short_Literal 0x0
012e a5fd | | Store_Unchecked 0x2,-0x3
012f 4502 |E | Exit_Subprogram 0x2
0130 e5ff | | Load 0x2,-0x1
0131 e001 | | Load 0x0,0x1
0132 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0133 4606 |F | Jump_Case 0x6
0134 7807 |x | Jump 0x13c ; case 0x0
0135 7830 |x0 | Jump 0x166 ; case 0x1
0136 7804 |x | Jump 0x13b ; case 0x2
0137 7803 |x | Jump 0x13b ; case 0x3
0138 7802 |x | Jump 0x13b ; case 0x4
0139 7801 |x | Jump 0x13b ; case 0x5
013a 7800 |x | Jump 0x13b ; case 0x6
013b 08e2 | | Execute_Immediate Raise,0xe2
013c 00d8 | | Load_Top At_Offset_0
013d 0120 | | Execute Any,Is_Value
013e 6803 |h | Jump_Zero 0x142
013f e001 | | Load 0x0,0x1
0140 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0141 7801 |x | Jump 0x143
0142 00d8 | | Load_Top At_Offset_0
0143 00da | | Load_Top At_Offset_2
0144 0120 | | Execute Any,Is_Value
0145 6803 |h | Jump_Zero 0x149
0146 e001 | | Load 0x0,0x1
0147 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0148 7801 |x | Jump 0x14a
0149 00da | | Load_Top At_Offset_2
014a e5ff | | Load 0x2,-0x1
014b e001 | | Load 0x0,0x1
014c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
014d c402 | | Store 0x2,0x2
014e c403 | | Store 0x2,0x3
014f 00d9 | | Load_Top At_Offset_1
0150 e002 | | Load 0x0,0x2
0151 180f | | Execute Package,Field_Execute,Field_Number 0xf
0152 7013 |p | Jump_Nonzero 0x166
0153 00d9 | | Load_Top At_Offset_1
0154 e004 | | Load 0x0,0x4
0155 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0156 680f |h | Jump_Zero 0x166
0157 00d8 | | Load_Top At_Offset_0
0158 e004 | | Load 0x0,0x4
0159 181a | | Execute Package,Field_Execute,Field_Number 0x1a
015a 680b |h | Jump_Zero 0x166
015b 00d9 | | Load_Top At_Offset_1
015c e004 | | Load 0x0,0x4
015d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
015e a5fe | | Store_Unchecked 0x2,-0x2
015f 00d8 | | Load_Top At_Offset_0
0160 e004 | | Load 0x0,0x4
0161 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0162 a5fd | | Store_Unchecked 0x2,-0x3
0163 4801 |H | Short_Literal 0x1
0164 a5fc | | Store_Unchecked 0x2,-0x4
0165 4502 |E | Exit_Subprogram 0x2
0166 4800 |H | Short_Literal 0x0
0167 a5fe | | Store_Unchecked 0x2,-0x2
0168 4800 |H | Short_Literal 0x0
0169 a5fd | | Store_Unchecked 0x2,-0x3
016a 4800 |H | Short_Literal 0x0
016b a5fc | | Store_Unchecked 0x2,-0x4
016c 4502 |E | Exit_Subprogram 0x2
016d 0000 0000 | | .XXX[0x3]
016f 0000 | |
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 017f | | .CONST 0x017f ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0005 | | .CONST 0x0005 ; Number of locals
0173 INIT_0170:
0173 e001 | | Load 0x0,0x1
0174 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0175 02c7 | | Declare_Variable Any
0176 00d8 | | Load_Top At_Offset_0
0177 1c00 | | Execute_Immediate Run_Utility,0x0
0178 e001 | | Load 0x0,0x1
0179 1b0f | | Execute Package,Field_Read,Field_Number 0xf
017a 02c7 | | Declare_Variable Any
017b 00d8 | | Load_Top At_Offset_0
017c 1c00 | | Execute_Immediate Run_Utility,0x0
017d 00e6 | | Load_Encached Float_Cache
017e 03d8 | | Declare_Variable Float,Duplicate
017f BODY_0170:
017f e5fe | | Load 0x2,-0x2
0180 e002 | | Load 0x0,0x2
0181 180f | | Execute Package,Field_Execute,Field_Number 0xf
0182 7004 |p | Jump_Nonzero 0x187
0183 e5ff | | Load 0x2,-0x1
0184 e002 | | Load 0x0,0x2
0185 180f | | Execute Package,Field_Execute,Field_Number 0xf
0186 6807 |h | Jump_Zero 0x18e
0187 4800 |H | Short_Literal 0x0
0188 a5fb | | Store_Unchecked 0x2,-0x5
0189 4800 |H | Short_Literal 0x0
018a a5fd | | Store_Unchecked 0x2,-0x3
018b 4800 |H | Short_Literal 0x0
018c a5fc | | Store_Unchecked 0x2,-0x4
018d 4503 |E | Exit_Subprogram 0x3
018e e5fe | | Load 0x2,-0x2
018f e001 | | Load 0x0,0x1
0190 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
0191 4603 |F | Jump_Case 0x3
0192 7804 |x | Jump 0x197 ; case 0x0
0193 7836 |x6 | Jump 0x1ca ; case 0x1
0194 7801 |x | Jump 0x196 ; case 0x2
0195 7800 |x | Jump 0x196 ; case 0x3
0196 08e2 | | Execute_Immediate Raise,0xe2
0197 00da | | Load_Top At_Offset_2
0198 0120 | | Execute Any,Is_Value
0199 6803 |h | Jump_Zero 0x19d
019a e001 | | Load 0x0,0x1
019b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
019c 7801 |x | Jump 0x19e
019d 00da | | Load_Top At_Offset_2
019e e402 | | Load 0x2,0x2
019f 0120 | | Execute Any,Is_Value
01a0 6803 |h | Jump_Zero 0x1a4
01a1 e001 | | Load 0x0,0x1
01a2 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a3 7801 |x | Jump 0x1a5
01a4 e402 | | Load 0x2,0x2
01a5 e5fe | | Load 0x2,-0x2
01a6 e001 | | Load 0x0,0x1
01a7 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01a8 c402 | | Store 0x2,0x2
01a9 c403 | | Store 0x2,0x3
01aa 00db | | Load_Top At_Offset_3
01ab e002 | | Load 0x0,0x2
01ac 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ad 701c |p | Jump_Nonzero 0x1ca
01ae 00db | | Load_Top At_Offset_3
01af e004 | | Load 0x0,0x4
01b0 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b1 6818 |h | Jump_Zero 0x1ca
01b2 00da | | Load_Top At_Offset_2
01b3 e004 | | Load 0x0,0x4
01b4 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01b5 6814 |h | Jump_Zero 0x1ca
01b6 00da | | Load_Top At_Offset_2
01b7 e004 | | Load 0x0,0x4
01b8 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01b9 0041 | A | Store_Top_Unchecked Float,At_Offset_1
01ba 00db | | Load_Top At_Offset_3
01bb e004 | | Load 0x0,0x4
01bc 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01bd 0042 | B | Store_Top_Unchecked Float,At_Offset_2
01be 00e5 | | Load_Encached Long_Integer_Cache
01bf 00e5 | | Load_Encached Long_Integer_Cache
01c0 e5ff | | Load 0x2,-0x1
01c1 8215 | | Call 0x1,0x15
01c2 00db | | Load_Top At_Offset_3
01c3 e404 | | Load 0x2,0x4
01c4 8219 | | Call 0x1,0x19
01c5 c5fd | | Store 0x2,-0x3
01c6 c5fc | | Store 0x2,-0x4
01c7 4801 |H | Short_Literal 0x1
01c8 a5fb | | Store_Unchecked 0x2,-0x5
01c9 4503 |E | Exit_Subprogram 0x3
01ca 4800 |H | Short_Literal 0x0
01cb a5fd | | Store_Unchecked 0x2,-0x3
01cc 4800 |H | Short_Literal 0x0
01cd a5fc | | Store_Unchecked 0x2,-0x4
01ce 4800 |H | Short_Literal 0x0
01cf a5fb | | Store_Unchecked 0x2,-0x5
01d0 4503 |E | Exit_Subprogram 0x3
01d1 0000 0000 | | .BLANK 0000[0x7]
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01e5 | | .CONST 0x01e5 ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0003 | | .CONST 0x0003 ; Number of locals
01db INIT_01d8:
01db e001 | | Load 0x0,0x1
01dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01dd 02c7 | | Declare_Variable Any
01de 00d8 | | Load_Top At_Offset_0
01df 1c00 | | Execute_Immediate Run_Utility,0x0
01e0 e001 | | Load 0x0,0x1
01e1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01e2 02c7 | | Declare_Variable Any
01e3 00d8 | | Load_Top At_Offset_0
01e4 1c00 | | Execute_Immediate Run_Utility,0x0
01e5 BODY_01d8:
01e5 e5ff | | Load 0x2,-0x1
01e6 e001 | | Load 0x0,0x1
01e7 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01e8 4606 |F | Jump_Case 0x6
01e9 7807 |x | Jump 0x1f1 ; case 0x0
01ea 7830 |x0 | Jump 0x21b ; case 0x1
01eb 7804 |x | Jump 0x1f0 ; case 0x2
01ec 7803 |x | Jump 0x1f0 ; case 0x3
01ed 7802 |x | Jump 0x1f0 ; case 0x4
01ee 7801 |x | Jump 0x1f0 ; case 0x5
01ef 7800 |x | Jump 0x1f0 ; case 0x6
01f0 08e2 | | Execute_Immediate Raise,0xe2
01f1 00d8 | | Load_Top At_Offset_0
01f2 0120 | | Execute Any,Is_Value
01f3 6803 |h | Jump_Zero 0x1f7
01f4 e001 | | Load 0x0,0x1
01f5 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f6 7801 |x | Jump 0x1f8
01f7 00d8 | | Load_Top At_Offset_0
01f8 00da | | Load_Top At_Offset_2
01f9 0120 | | Execute Any,Is_Value
01fa 6803 |h | Jump_Zero 0x1fe
01fb e001 | | Load 0x0,0x1
01fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01fd 7801 |x | Jump 0x1ff
01fe 00da | | Load_Top At_Offset_2
01ff e5ff | | Load 0x2,-0x1
0200 e001 | | Load 0x0,0x1
0201 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0202 c402 | | Store 0x2,0x2
0203 c403 | | Store 0x2,0x3
0204 00d9 | | Load_Top At_Offset_1
0205 e002 | | Load 0x0,0x2
0206 180f | | Execute Package,Field_Execute,Field_Number 0xf
0207 7013 |p | Jump_Nonzero 0x21b
0208 00d9 | | Load_Top At_Offset_1
0209 e004 | | Load 0x0,0x4
020a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
020b 680f |h | Jump_Zero 0x21b
020c 00d8 | | Load_Top At_Offset_0
020d e004 | | Load 0x0,0x4
020e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
020f 680b |h | Jump_Zero 0x21b
0210 00d9 | | Load_Top At_Offset_1
0211 e004 | | Load 0x0,0x4
0212 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0213 a5fe | | Store_Unchecked 0x2,-0x2
0214 00d8 | | Load_Top At_Offset_0
0215 e004 | | Load 0x0,0x4
0216 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0217 a5fd | | Store_Unchecked 0x2,-0x3
0218 4801 |H | Short_Literal 0x1
0219 a5fc | | Store_Unchecked 0x2,-0x4
021a 4502 |E | Exit_Subprogram 0x2
021b 5808 |X | Indirect_Literal Float,0x224,0.0
021c a5fe | | Store_Unchecked 0x2,-0x2
021d 5806 |X | Indirect_Literal Float,0x224,0.0
021e a5fd | | Store_Unchecked 0x2,-0x3
021f 4800 |H | Short_Literal 0x0
0220 a5fc | | Store_Unchecked 0x2,-0x4
0221 4502 |E | Exit_Subprogram 0x2
0222 0000 0000 | | .XXX[0x2]
0224 0000 0000 | | .DBL 0.0
0226 0000 0000 | |
0228 ; --------------------------------------------------------------------------------------
0228 ; SUBPROGRAM
0228 ; --------------------------------------------------------------------------------------
0228 0238 | 8 | .CONST 0x0238 ; Address of begin
0229 0004 | | .CONST 0x0004 ; Address of exception handler
022a 0006 | | .CONST 0x0006 ; Number of locals
022b INIT_0228:
022b e001 | | Load 0x0,0x1
022c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
022d 02c7 | | Declare_Variable Any
022e 00d8 | | Load_Top At_Offset_0
022f 1c00 | | Execute_Immediate Run_Utility,0x0
0230 e001 | | Load 0x0,0x1
0231 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0232 02c7 | | Declare_Variable Any
0233 00d8 | | Load_Top At_Offset_0
0234 1c00 | | Execute_Immediate Run_Utility,0x0
0235 00e5 | | Load_Encached Long_Integer_Cache
0236 03e9 | | Declare_Variable Discrete,Duplicate
0237 00e1 | | Load_Encached Boolean_Cache
0238 BODY_0228:
0238 00e1 | | Load_Encached Boolean_Cache
0239 00da | | Load_Top At_Offset_2
023a e404 | | Load 0x2,0x4
023b e5ff | | Load 0x2,-0x1
023c 8210 | | Call 0x1,0x10
023d c404 | | Store 0x2,0x4
023e 005b | [ | Store_Top Discrete,At_Offset_3
023f 0059 | Y | Store_Top Discrete,At_Offset_1
0240 00d8 | | Load_Top At_Offset_0
0241 680f |h | Jump_Zero 0x251
0242 4820 |H | Short_Literal 0x20
0243 4800 |H | Short_Literal 0x0
0244 480a |H | Short_Literal 0xa
0245 e404 | | Load 0x2,0x4
0246 8005 | | Call 0x0,0x5
0247 0092 0478 | x| Action Push_String_Extended,0x478 ; " .. "
0249 01cc | | Execute Vector,Catenate
024a 4820 |H | Short_Literal 0x20
024b 4800 |H | Short_Literal 0x0
024c 480a |H | Short_Literal 0xa
024d e405 | | Load 0x2,0x5
024e 8005 | | Call 0x0,0x5
024f 01cc | | Execute Vector,Catenate
0250 4401 |D | Exit_Subprogram With_Result,0x1
0251 e402 | | Load 0x2,0x2
0252 e002 | | Load 0x0,0x2
0253 180f | | Execute Package,Field_Execute,Field_Number 0xf
0254 6803 |h | Jump_Zero 0x258
0255 0092 0479 | y| Action Push_String_Extended,0x479 ; "NOT STATIC"
0257 4401 |D | Exit_Subprogram With_Result,0x1
0258 00db | | Load_Top At_Offset_3
0259 0120 | | Execute Any,Is_Value
025a 6803 |h | Jump_Zero 0x25e
025b e001 | | Load 0x0,0x1
025c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
025d 7801 |x | Jump 0x25f
025e 00db | | Load_Top At_Offset_3
025f e402 | | Load 0x2,0x2
0260 0120 | | Execute Any,Is_Value
0261 6803 |h | Jump_Zero 0x265
0262 e001 | | Load 0x0,0x1
0263 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0264 7801 |x | Jump 0x266
0265 e402 | | Load 0x2,0x2
0266 e5ff | | Load 0x2,-0x1
0267 e001 | | Load 0x0,0x1
0268 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0269 c402 | | Store 0x2,0x2
026a c403 | | Store 0x2,0x3
026b e402 | | Load 0x2,0x2
026c e002 | | Load 0x0,0x2
026d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
026e 0092 0478 | x| Action Push_String_Extended,0x478 ; " .. "
0270 01cc | | Execute Vector,Catenate
0271 e403 | | Load 0x2,0x3
0272 e002 | | Load 0x0,0x2
0273 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0274 01cc | | Execute Vector,Catenate
0275 4401 |D | Exit_Subprogram With_Result,0x1
0276 0000 0000 | | .XXX[0x2]
0278 ; --------------------------------------------------------------------------------------
0278 ; SUBPROGRAM
0278 ; --------------------------------------------------------------------------------------
0278 0293 | | .CONST 0x0293 ; Address of begin
0279 0004 | | .CONST 0x0004 ; Address of exception handler
027a 0007 | | .CONST 0x0007 ; Number of locals
027b INIT_0278:
027b e001 | | Load 0x0,0x1
027c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
027d 02c7 | | Declare_Variable Any
027e e5fe | | Load 0x2,-0x2
027f e001 | | Load 0x0,0x1
0280 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0281 a402 | | Store_Unchecked 0x2,0x2
0282 e002 | | Load 0x0,0x2
0283 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0284 02c7 | | Declare_Variable Any
0285 00d8 | | Load_Top At_Offset_0
0286 1c00 | | Execute_Immediate Run_Utility,0x0
0287 e001 | | Load 0x0,0x1
0288 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
0289 02c7 | | Declare_Variable Any
028a 00d8 | | Load_Top At_Offset_0
028b 1c00 | | Execute_Immediate Run_Utility,0x0
028c e001 | | Load 0x0,0x1
028d 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
028e 02c7 | | Declare_Variable Any
028f 00d8 | | Load_Top At_Offset_0
0290 1c00 | | Execute_Immediate Run_Utility,0x0
0291 00e5 | | Load_Encached Long_Integer_Cache
0292 03e9 | | Declare_Variable Discrete,Duplicate
0293 BODY_0278:
0293 e402 | | Load 0x2,0x2
0294 e001 | | Load 0x0,0x1
0295 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0296 460c |F | Jump_Case 0xc
0297 780c |x | Jump 0x2a4 ; case 0x0
0298 780e |x | Jump 0x2a7 ; case 0x1
0299 7810 |x | Jump 0x2aa ; case 0x2
029a 7829 |x) | Jump 0x2c4 ; case 0x3
029b 7811 |x | Jump 0x2ad ; case 0x4
029c 783e |x> | Jump 0x2db ; case 0x5
029d 7806 |x | Jump 0x2a4 ; case 0x6
029e 7805 |x | Jump 0x2a4 ; case 0x7
029f 7804 |x | Jump 0x2a4 ; case 0x8
02a0 7803 |x | Jump 0x2a4 ; case 0x9
02a1 7802 |x | Jump 0x2a4 ; case 0xa
02a2 7801 |x | Jump 0x2a4 ; case 0xb
02a3 7800 |x | Jump 0x2a4 ; case 0xc
02a4 0092 047a | z| Action Push_String_Extended,0x47a ; "N/A"
02a6 4404 |D | Exit_Subprogram With_Result,0x4
02a7 e5fd | | Load 0x2,-0x3
02a8 8216 | | Call 0x1,0x16
02a9 4404 |D | Exit_Subprogram With_Result,0x4
02aa e5fd | | Load 0x2,-0x3
02ab 8213 | | Call 0x1,0x13
02ac 4404 |D | Exit_Subprogram With_Result,0x4
02ad 00da | | Load_Top At_Offset_2
02ae 0120 | | Execute Any,Is_Value
02af 6803 |h | Jump_Zero 0x2b3
02b0 e001 | | Load 0x0,0x1
02b1 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
02b2 7801 |x | Jump 0x2b4
02b3 00da | | Load_Top At_Offset_2
02b4 e404 | | Load 0x2,0x4
02b5 0120 | | Execute Any,Is_Value
02b6 6803 |h | Jump_Zero 0x2ba
02b7 e001 | | Load 0x0,0x1
02b8 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
02b9 7801 |x | Jump 0x2bb
02ba e404 | | Load 0x2,0x4
02bb e5fd | | Load 0x2,-0x3
02bc e5fe | | Load 0x2,-0x2
02bd e5ff | | Load 0x2,-0x1
02be 8006 | | Call 0x0,0x6
02bf c404 | | Store 0x2,0x4
02c0 c405 | | Store 0x2,0x5
02c1 00db | | Load_Top At_Offset_3
02c2 8218 | | Call 0x1,0x18
02c3 4404 |D | Exit_Subprogram With_Result,0x4
02c4 00da | | Load_Top At_Offset_2
02c5 0120 | | Execute Any,Is_Value
02c6 6803 |h | Jump_Zero 0x2ca
02c7 e001 | | Load 0x0,0x1
02c8 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
02c9 7801 |x | Jump 0x2cb
02ca 00da | | Load_Top At_Offset_2
02cb e404 | | Load 0x2,0x4
02cc 0120 | | Execute Any,Is_Value
02cd 6803 |h | Jump_Zero 0x2d1
02ce e001 | | Load 0x0,0x1
02cf 1b2b | + | Execute Package,Field_Read,Field_Number 0x2b
02d0 7801 |x | Jump 0x2d2
02d1 e404 | | Load 0x2,0x4
02d2 e5fd | | Load 0x2,-0x3
02d3 e5fe | | Load 0x2,-0x2
02d4 e5ff | | Load 0x2,-0x1
02d5 8007 | | Call 0x0,0x7
02d6 c404 | | Store 0x2,0x4
02d7 c405 | | Store 0x2,0x5
02d8 00db | | Load_Top At_Offset_3
02d9 8217 | | Call 0x1,0x17
02da 4404 |D | Exit_Subprogram With_Result,0x4
02db e5fd | | Load 0x2,-0x3
02dc e001 | | Load 0x0,0x1
02dd 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
02de 8008 | | Call 0x0,0x8
02df 4404 |D | Exit_Subprogram With_Result,0x4
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02ea | | .CONST 0x02ea ; Address of begin
02e1 0004 | | .CONST 0x0004 ; Address of exception handler
02e2 0004 | | .CONST 0x0004 ; Number of locals
02e3 INIT_02e0:
02e3 e001 | | Load 0x0,0x1
02e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
02e5 02c7 | | Declare_Variable Any
02e6 00d8 | | Load_Top At_Offset_0
02e7 1c00 | | Execute_Immediate Run_Utility,0x0
02e8 00e6 | | Load_Encached Float_Cache
02e9 00e5 | | Load_Encached Long_Integer_Cache
02ea BODY_02e0:
02ea e5ff | | Load 0x2,-0x1
02eb e001 | | Load 0x0,0x1
02ec 1843 | C | Execute Package,Field_Execute,Field_Number 0x43
02ed c402 | | Store 0x2,0x2
02ee 00da | | Load_Top At_Offset_2
02ef e004 | | Load 0x0,0x4
02f0 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02f1 0042 | B | Store_Top_Unchecked Float,At_Offset_2
02f2 00d9 | | Load_Top At_Offset_1
02f3 582c |X, | Indirect_Literal Float,0x320,1.0
02f4 0244 | D | Execute Float,Less
02f5 6814 |h | Jump_Zero 0x30a
02f6 5829 |X) | Indirect_Literal Float,0x320,1.0
02f7 00da | | Load_Top At_Offset_2
02f8 023a | : | Execute Float,Divide
02f9 5822 |X" | Indirect_Literal Float,0x31c,0.5
02fa 023c | < | Execute Float,Minus
02fb 0235 | 5 | Execute Float,Round_To_Discrete
02fc 00e5 | | Load_Encached Long_Integer_Cache
02fd 025e | ^ | Execute Discrete,Convert
02fe 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
02ff 5820 |X | Indirect_Literal Float,0x320,1.0
0300 4801 |H | Short_Literal 0x1
0301 00da | | Load_Top At_Offset_2
0302 0aff | | Execute_Immediate Plus,-0x1
0303 4800 |H | Short_Literal 0x0
0304 e009 | | Load 0x0,0x9
0305 180d | | Execute Package,Field_Execute,Field_Number 0xd
0306 0253 | S | Execute Discrete,Binary_Scale
0307 0237 | 7 | Execute Float,Convert_From_Discrete
0308 023a | : | Execute Float,Divide
0309 4401 |D | Exit_Subprogram With_Result,0x1
030a 00d9 | | Load_Top At_Offset_1
030b 5810 |X | Indirect_Literal Float,0x31c,0.5
030c 023c | < | Execute Float,Minus
030d 0235 | 5 | Execute Float,Round_To_Discrete
030e 00e5 | | Load_Encached Long_Integer_Cache
030f 025e | ^ | Execute Discrete,Convert
0310 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0311 4801 |H | Short_Literal 0x1
0312 00d9 | | Load_Top At_Offset_1
0313 0aff | | Execute_Immediate Plus,-0x1
0314 4800 |H | Short_Literal 0x0
0315 e009 | | Load 0x0,0x9
0316 180d | | Execute Package,Field_Execute,Field_Number 0xd
0317 0253 | S | Execute Discrete,Binary_Scale
0318 0237 | 7 | Execute Float,Convert_From_Discrete
0319 4401 |D | Exit_Subprogram With_Result,0x1
031a 0000 0000 | | .XXX[0x2]
031c 3fe0 0000 |? | .DBL 0.5
031e 0000 0000 | |
0320 3ff0 0000 |? | .DBL 1.0
0322 0000 0000 | |
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 0338 | 8 | .CONST 0x0338 ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0006 | | .CONST 0x0006 ; Number of locals
032b INIT_0328:
032b e001 | | Load 0x0,0x1
032c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032d 02c7 | | Declare_Variable Any
032e 00d8 | | Load_Top At_Offset_0
032f 1c00 | | Execute_Immediate Run_Utility,0x0
0330 e001 | | Load 0x0,0x1
0331 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0332 02c7 | | Declare_Variable Any
0333 00d8 | | Load_Top At_Offset_0
0334 1c00 | | Execute_Immediate Run_Utility,0x0
0335 00e5 | | Load_Encached Long_Integer_Cache
0336 03e9 | | Declare_Variable Discrete,Duplicate
0337 00e1 | | Load_Encached Boolean_Cache
0338 BODY_0328:
0338 00e1 | | Load_Encached Boolean_Cache
0339 00da | | Load_Top At_Offset_2
033a e404 | | Load 0x2,0x4
033b e5ff | | Load 0x2,-0x1
033c 820f | | Call 0x1,0xf
033d c404 | | Store 0x2,0x4
033e 005b | [ | Store_Top Discrete,At_Offset_3
033f 0059 | Y | Store_Top Discrete,At_Offset_1
0340 00d8 | | Load_Top At_Offset_0
0341 680f |h | Jump_Zero 0x351
0342 4820 |H | Short_Literal 0x20
0343 4800 |H | Short_Literal 0x0
0344 480a |H | Short_Literal 0xa
0345 e404 | | Load 0x2,0x4
0346 8005 | | Call 0x0,0x5
0347 0092 0478 | x| Action Push_String_Extended,0x478 ; " .. "
0349 01cc | | Execute Vector,Catenate
034a 4820 |H | Short_Literal 0x20
034b 4800 |H | Short_Literal 0x0
034c 480a |H | Short_Literal 0xa
034d e405 | | Load 0x2,0x5
034e 8005 | | Call 0x0,0x5
034f 01cc | | Execute Vector,Catenate
0350 4401 |D | Exit_Subprogram With_Result,0x1
0351 00db | | Load_Top At_Offset_3
0352 0120 | | Execute Any,Is_Value
0353 6803 |h | Jump_Zero 0x357
0354 e001 | | Load 0x0,0x1
0355 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0356 7801 |x | Jump 0x358
0357 00db | | Load_Top At_Offset_3
0358 e402 | | Load 0x2,0x2
0359 0120 | | Execute Any,Is_Value
035a 6803 |h | Jump_Zero 0x35e
035b e001 | | Load 0x0,0x1
035c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
035d 7801 |x | Jump 0x35f
035e e402 | | Load 0x2,0x2
035f e5ff | | Load 0x2,-0x1
0360 e001 | | Load 0x0,0x1
0361 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0362 c402 | | Store 0x2,0x2
0363 c403 | | Store 0x2,0x3
0364 e402 | | Load 0x2,0x2
0365 e002 | | Load 0x0,0x2
0366 180f | | Execute Package,Field_Execute,Field_Number 0xf
0367 6803 |h | Jump_Zero 0x36b
0368 0092 0479 | y| Action Push_String_Extended,0x479 ; "NOT STATIC"
036a 4401 |D | Exit_Subprogram With_Result,0x1
036b e402 | | Load 0x2,0x2
036c e002 | | Load 0x0,0x2
036d 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
036e 0092 0478 | x| Action Push_String_Extended,0x478 ; " .. "
0370 01cc | | Execute Vector,Catenate
0371 e403 | | Load 0x2,0x3
0372 e002 | | Load 0x0,0x2
0373 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0374 01cc | | Execute Vector,Catenate
0375 4401 |D | Exit_Subprogram With_Result,0x1
0376 0000 0000 | | .XXX[0x2]
0378 ; --------------------------------------------------------------------------------------
0378 ; SUBPROGRAM
0378 ; --------------------------------------------------------------------------------------
0378 0388 | | .CONST 0x0388 ; Address of begin
0379 03d2 | | .CONST 0x03d2 ; Address of exception handler
037a 0006 | | .CONST 0x0006 ; Number of locals
037b INIT_0378:
037b e001 | | Load 0x0,0x1
037c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
037d 02c7 | | Declare_Variable Any
037e 00d8 | | Load_Top At_Offset_0
037f 1c00 | | Execute_Immediate Run_Utility,0x0
0380 e001 | | Load 0x0,0x1
0381 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0382 02c7 | | Declare_Variable Any
0383 00d8 | | Load_Top At_Offset_0
0384 1c00 | | Execute_Immediate Run_Utility,0x0
0385 00e6 | | Load_Encached Float_Cache
0386 03d8 | | Declare_Variable Float,Duplicate
0387 00e1 | | Load_Encached Boolean_Cache
0388 BODY_0378:
0388 e5ff | | Load 0x2,-0x1
0389 e001 | | Load 0x0,0x1
038a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
038b 4606 |F | Jump_Case 0x6
038c 7809 |x | Jump 0x396 ; case 0x0
038d 7840 |x@ | Jump 0x3ce ; case 0x1
038e 7804 |x | Jump 0x393 ; case 0x2
038f 7803 |x | Jump 0x393 ; case 0x3
0390 7802 |x | Jump 0x393 ; case 0x4
0391 7801 |x | Jump 0x393 ; case 0x5
0392 7800 |x | Jump 0x393 ; case 0x6
0393 0092 0479 | y| Action Push_String_Extended,0x479 ; "NOT STATIC"
0395 4401 |D | Exit_Subprogram With_Result,0x1
0396 00e1 | | Load_Encached Boolean_Cache
0397 00da | | Load_Top At_Offset_2
0398 e404 | | Load 0x2,0x4
0399 e5ff | | Load 0x2,-0x1
039a 8212 | | Call 0x1,0x12
039b c404 | | Store 0x2,0x4
039c 004b | K | Store_Top Float,At_Offset_3
039d 0059 | Y | Store_Top Discrete,At_Offset_1
039e 00d8 | | Load_Top At_Offset_0
039f 6809 |h | Jump_Zero 0x3a9
03a0 00da | | Load_Top At_Offset_2
03a1 800a | | Call 0x0,0xa
03a2 0092 0478 | x| Action Push_String_Extended,0x478 ; " .. "
03a4 01cc | | Execute Vector,Catenate
03a5 00da | | Load_Top At_Offset_2
03a6 800a | | Call 0x0,0xa
03a7 01cc | | Execute Vector,Catenate
03a8 4401 |D | Exit_Subprogram With_Result,0x1
03a9 00db | | Load_Top At_Offset_3
03aa 0120 | | Execute Any,Is_Value
03ab 6803 |h | Jump_Zero 0x3af
03ac e001 | | Load 0x0,0x1
03ad 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03ae 7801 |x | Jump 0x3b0
03af 00db | | Load_Top At_Offset_3
03b0 e402 | | Load 0x2,0x2
03b1 0120 | | Execute Any,Is_Value
03b2 6803 |h | Jump_Zero 0x3b6
03b3 e001 | | Load 0x0,0x1
03b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03b5 7801 |x | Jump 0x3b7
03b6 e402 | | Load 0x2,0x2
03b7 e5ff | | Load 0x2,-0x1
03b8 e001 | | Load 0x0,0x1
03b9 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
03ba c402 | | Store 0x2,0x2
03bb c403 | | Store 0x2,0x3
03bc e402 | | Load 0x2,0x2
03bd e002 | | Load 0x0,0x2
03be 180f | | Execute Package,Field_Execute,Field_Number 0xf
03bf 6803 |h | Jump_Zero 0x3c3
03c0 0092 0479 | y| Action Push_String_Extended,0x479 ; "NOT STATIC"
03c2 4401 |D | Exit_Subprogram With_Result,0x1
03c3 e402 | | Load 0x2,0x2
03c4 e002 | | Load 0x0,0x2
03c5 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03c6 0092 0478 | x| Action Push_String_Extended,0x478 ; " .. "
03c8 01cc | | Execute Vector,Catenate
03c9 e403 | | Load 0x2,0x3
03ca e002 | | Load 0x0,0x2
03cb 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03cc 01cc | | Execute Vector,Catenate
03cd 4401 |D | Exit_Subprogram With_Result,0x1
03ce e5ff | | Load 0x2,-0x1
03cf e002 | | Load 0x0,0x2
03d0 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03d1 4401 |D | Exit_Subprogram With_Result,0x1
03d2 TRAP_0378:
03d2 0007 | | Action Break_Optional
03d3 e5ff | | Load 0x2,-0x1
03d4 800b | | Call 0x0,0xb
03d5 e002 | | Load 0x0,0x2
03d6 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03d7 4401 |D | Exit_Subprogram With_Result,0x1
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03e6 | | .CONST 0x03e6 ; Address of begin
03d9 041d | | .CONST 0x041d ; Address of exception handler
03da 0004 | | .CONST 0x0004 ; Number of locals
03db INIT_03d8:
03db e001 | | Load 0x0,0x1
03dc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03dd 02c7 | | Declare_Variable Any
03de 00d8 | | Load_Top At_Offset_0
03df 1c00 | | Execute_Immediate Run_Utility,0x0
03e0 e001 | | Load 0x0,0x1
03e1 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03e2 02c7 | | Declare_Variable Any
03e3 00d8 | | Load_Top At_Offset_0
03e4 1c00 | | Execute_Immediate Run_Utility,0x0
03e5 00e1 | | Load_Encached Boolean_Cache
03e6 BODY_03d8:
03e6 e5ff | | Load 0x2,-0x1
03e7 e001 | | Load 0x0,0x1
03e8 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
03e9 4606 |F | Jump_Case 0x6
03ea 7809 |x | Jump 0x3f4 ; case 0x0
03eb 782d |x- | Jump 0x419 ; case 0x1
03ec 7804 |x | Jump 0x3f1 ; case 0x2
03ed 7803 |x | Jump 0x3f1 ; case 0x3
03ee 7802 |x | Jump 0x3f1 ; case 0x4
03ef 7801 |x | Jump 0x3f1 ; case 0x5
03f0 7800 |x | Jump 0x3f1 ; case 0x6
03f1 0092 0479 | y| Action Push_String_Extended,0x479 ; "NOT STATIC"
03f3 4401 |D | Exit_Subprogram With_Result,0x1
03f4 00d9 | | Load_Top At_Offset_1
03f5 0120 | | Execute Any,Is_Value
03f6 6803 |h | Jump_Zero 0x3fa
03f7 e001 | | Load 0x0,0x1
03f8 1b0f | | Execute Package,Field_Read,Field_Number 0xf
03f9 7801 |x | Jump 0x3fb
03fa 00d9 | | Load_Top At_Offset_1
03fb 00db | | Load_Top At_Offset_3
03fc 0120 | | Execute Any,Is_Value
03fd 6803 |h | Jump_Zero 0x401
03fe e001 | | Load 0x0,0x1
03ff 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0400 7801 |x | Jump 0x402
0401 00db | | Load_Top At_Offset_3
0402 e5ff | | Load 0x2,-0x1
0403 e001 | | Load 0x0,0x1
0404 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0405 c402 | | Store 0x2,0x2
0406 c403 | | Store 0x2,0x3
0407 00da | | Load_Top At_Offset_2
0408 e002 | | Load 0x0,0x2
0409 180f | | Execute Package,Field_Execute,Field_Number 0xf
040a 6803 |h | Jump_Zero 0x40e
040b 0092 0479 | y| Action Push_String_Extended,0x479 ; "NOT STATIC"
040d 4401 |D | Exit_Subprogram With_Result,0x1
040e 00da | | Load_Top At_Offset_2
040f e002 | | Load 0x0,0x2
0410 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0411 0092 0478 | x| Action Push_String_Extended,0x478 ; " .. "
0413 01cc | | Execute Vector,Catenate
0414 00da | | Load_Top At_Offset_2
0415 e002 | | Load 0x0,0x2
0416 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0417 01cc | | Execute Vector,Catenate
0418 4401 |D | Exit_Subprogram With_Result,0x1
0419 e5ff | | Load 0x2,-0x1
041a e002 | | Load 0x0,0x2
041b 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
041c 4401 |D | Exit_Subprogram With_Result,0x1
041d TRAP_03d8:
041d 0007 | | Action Break_Optional
041e e5ff | | Load 0x2,-0x1
041f 800b | | Call 0x0,0xb
0420 e002 | | Load 0x0,0x2
0421 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0422 4401 |D | Exit_Subprogram With_Result,0x1
0423 0000 0000 | | .BLANK 0000[0x5]
0428 ; --------------------------------------------------------------------------------------
0428 ; SUBPROGRAM
0428 ; --------------------------------------------------------------------------------------
0428 042b | + | .CONST 0x042b ; Address of begin
0429 0004 | | .CONST 0x0004 ; Address of exception handler
042a 0001 | | .CONST 0x0001 ; Number of locals
042b BODY_0428:
042b INIT_0428:
042b 00da | | Load_Top At_Offset_2
042c e5fd | | Load 0x2,-0x3
042d 023a | : | Execute Float,Divide
042e 5811 |X | Indirect_Literal Float,0x440,0.5
042f 023c | < | Execute Float,Minus
0430 0235 | 5 | Execute Float,Round_To_Discrete
0431 00e5 | | Load_Encached Long_Integer_Cache
0432 025e | ^ | Execute Discrete,Convert
0433 a5fc | | Store_Unchecked 0x2,-0x4
0434 00db | | Load_Top At_Offset_3
0435 e5fd | | Load 0x2,-0x3
0436 023a | : | Execute Float,Divide
0437 5808 |X | Indirect_Literal Float,0x440,0.5
0438 023c | < | Execute Float,Minus
0439 0235 | 5 | Execute Float,Round_To_Discrete
043a 00e5 | | Load_Encached Long_Integer_Cache
043b 025e | ^ | Execute Discrete,Convert
043c a5fb | | Store_Unchecked 0x2,-0x5
043d 4504 |E | Exit_Subprogram 0x4
043e 0000 0000 | | .XXX[0x2]
0440 3fe0 0000 |? | .DBL 0.5
0442 0000 0000 | |
0444 0000 0000 | | .BLANK 0000[0x4]
0448 ; --------------------------------------------------------------------------------------
0448 ; SUBPROGRAM
0448 ; --------------------------------------------------------------------------------------
0448 044b | K | .CONST 0x044b ; Address of begin
0449 0004 | | .CONST 0x0004 ; Address of exception handler
044a 0001 | | .CONST 0x0001 ; Number of locals
044b BODY_0448:
044b INIT_0448:
044b e405 | | Load 0x2,0x5
044c 0120 | | Execute Any,Is_Value
044d 6803 |h | Jump_Zero 0x451
044e e001 | | Load 0x0,0x1
044f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0450 7801 |x | Jump 0x452
0451 e405 | | Load 0x2,0x5
0452 e404 | | Load 0x2,0x4
0453 0120 | | Execute Any,Is_Value
0454 6803 |h | Jump_Zero 0x458
0455 e001 | | Load 0x0,0x1
0456 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0457 7801 |x | Jump 0x459
0458 e404 | | Load 0x2,0x4
0459 e403 | | Load 0x2,0x3
045a e001 | | Load 0x0,0x1
045b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
045c c404 | | Store 0x2,0x4
045d c405 | | Store 0x2,0x5
045e e404 | | Load 0x2,0x4
045f e004 | | Load 0x0,0x4
0460 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0461 6804 |h | Jump_Zero 0x466
0462 e405 | | Load 0x2,0x5
0463 e004 | | Load 0x0,0x4
0464 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0465 7801 |x | Jump 0x467
0466 4800 |H | Short_Literal 0x0
0467 a5fc | | Store_Unchecked 0x2,-0x4
0468 e5fc | | Load 0x2,-0x4
0469 6809 |h | Jump_Zero 0x473
046a e404 | | Load 0x2,0x4
046b e004 | | Load 0x0,0x4
046c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
046d a5fe | | Store_Unchecked 0x2,-0x2
046e e405 | | Load 0x2,0x5
046f e004 | | Load 0x0,0x4
0470 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0471 a5fd | | Store_Unchecked 0x2,-0x3
0472 4501 |E | Exit_Subprogram 0x1
0473 e404 | | Load 0x2,0x4
0474 c5fb | | Store 0x2,-0x5
0475 e405 | | Load 0x2,0x5
0476 c5fa | | Store 0x2,-0x6
0477 4501 |E | Exit_Subprogram 0x1
0478 ; --------------------------------------------------------------------------------------
0478 ; STRING TABLE
0478 ; --------------------------------------------------------------------------------------
0478 0008 | | .STRTAB 0x0008->0x047c ; " .. "
; " .. "
; " .. "
; " .. "
; " .. "
; " .. "
; " .. "
0479 000a | | .STRTAB 0x000a->0x047e ; "NOT STATIC"
; "NOT STATIC"
; "NOT STATIC"
; "NOT STATIC"
; "NOT STATIC"
; "NOT STATIC"
047a 0012 | | .STRTAB 0x0012->0x0483 ; "N/A"
047b 0013 | | .STREND 0x0013->0x0484
047c 202e 2e20 | .. | .STRTAB_STRINGS
0485 0000 0000 | | .XXX[0x3]
0487 0000 | |
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug Table
0488 ; --------------------------------------------------------------------------------------
0488 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfcdd,0x0000,0x0001,0x0000
048e 0000 1801 | | .XXX[0x10]
0490 4000 0000 |@ |
0492 4000 0010 |@ |
0494 0000 0088 | |
0496 0000 0000 | |
0498 4000 0002 |@ |
049a 9000 0080 | |
049c 053a 4000 | :@ |
049e 0000 0000 | | .BLANK 0000[0x1a]
04b8 0040 002c | @ ,| .XXX[0x1f]
04ba 7d50 b820 |}P |
04bc 6440 0002 |d@ |
04be 65d6 c970 |e p|
04c0 1001 0000 | |
04c2 9c00 0000 | |
04c4 32bb 0000 |2 |
04c6 0200 0000 | |
04c8 0300 2800 | ( |
04ca 0000 0800 | |
04cc 0002 0000 | |
04ce 0011 0000 | |
04d0 0000 0800 | |
04d2 0000 5200 | R |
04d4 0010 00a7 | |
04d6 4800 |H |
04d7 0000 0000 | | .BLANK 0000[0x1a]
04f1 0008 0005 | | .XXX[0x1f]
04f3 8faa 1704 | |
04f5 0c88 0000 | |
04f7 4cba d92e |L .|
04f9 0200 2000 | |
04fb 1380 0000 | |
04fd 0657 6000 | W` |
04ff 0040 0000 | @ |
0501 0060 0500 | ` |
0503 0000 0100 | |
0505 0000 4000 | @ |
0507 0002 2000 | |
0509 0000 0100 | |
050b 0000 0a40 | @|
050d 0002 0014 | |
050f e900 | |
0510 0000 0000 | | .BLANK 0000[0x1a]
052a 0001 0000 | | .XXX[0x1f]
052c b1f5 42e0 | B |
052e 8191 0000 | |
0530 0997 5b25 | [%|
0532 c040 0400 | @ |
0534 0270 0000 | p |
0536 00ca ec00 | |
0538 0008 0000 | |
053a 000c 00a0 | |
053c 0000 0020 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0148 | H|
0546 0000 4002 | @ |
0548 9d20 | |
0549 0000 0000 | | .BLANK 0000[0x1b]
0564 2000 163e | >| .XXX[0x1e]
0566 a85c 1032 | \ 2|
0568 2000 0132 | 2|
056a eb64 b808 | d |
056c 0080 004e | N|
056e 0000 0019 | |
0570 5d80 0001 |] |
0572 0000 0001 | |
0574 8014 0000 | |
0576 0004 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0029 0000 | ) |
0580 0800 53a4 | S |
0582 0000 0000 | | .BLANK 0000[0x1b]
059d 0400 02c7 | | .XXX[0x3]
059f d400 | |
05a0 0000 0000 | | .BLANK 0000[0xd]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]