|
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_03b8fe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0420 | | .CONST 0x0420 ; 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 00c5 | | .CONST 0x00c5 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 003d | = | .CONST 0x003d ; Number of locals
000b INIT_0008:
000b 00e5 | | Load_Encached Long_Integer_Cache
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated
000f 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
0011 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0013 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0015 029a 00f3 | | Declare_Subprogram INIT_00f0,For_Outer_Call,Visible,Unelaborated
0017 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
0019 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
001b 029a 0113 | | Declare_Subprogram INIT_0110,For_Outer_Call,Visible,Unelaborated
001d 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated
001f 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0021 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0023 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0025 029a 01b3 | | Declare_Subprogram INIT_01b0,For_Outer_Call,Visible,Unelaborated
0027 029a 01bb | | Declare_Subprogram INIT_01b8,For_Outer_Call,Visible,Unelaborated
0029 029a 01cb | | Declare_Subprogram INIT_01c8,For_Outer_Call,Visible,Unelaborated
002b 029a 01db | | Declare_Subprogram INIT_01d8,For_Outer_Call,Visible,Unelaborated
002d 029a 020b | | Declare_Subprogram INIT_0208,For_Outer_Call,Visible,Unelaborated
002f 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
0031 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0033 029a 0263 | c| Declare_Subprogram INIT_0260,For_Outer_Call,Visible,Unelaborated
0035 029a 0273 | s| Declare_Subprogram INIT_0270,For_Outer_Call,Visible,Unelaborated
0037 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0039 0093 0000 | | push_full_address 0x0
003b 6098 |` | Indirect_Literal Discrete,0xd4,{0x80000000, 0x00010000}
003c 0273 | s | Execute Discrete,Plus
003d 0129 | ) | Execute Any,Make_Visible
003e 00bf | | Action Accept_Activation
003f 4800 |H | Short_Literal 0x0
0040 48ff |H | Short_Literal 0xff
0041 00e5 | | Load_Encached Long_Integer_Cache
0042 03f8 | | Declare_Type Discrete,Constrained
0043 4800 |H | Short_Literal 0x0
0044 48df |H | Short_Literal 0xdf
0045 00da | | Load_Top At_Offset_2
0046 03f8 | | Declare_Type Discrete,Constrained
0047 48e0 |H | Short_Literal 0xe0
0048 48ff |H | Short_Literal 0xff
0049 00db | | Load_Top At_Offset_3
004a 03f8 | | Declare_Type Discrete,Constrained
004b 4900 |I | Short_Literal 0x100
004c 497f |I | Short_Literal 0x17f
004d 00e5 | | Load_Encached Long_Integer_Cache
004e 03f8 | | Declare_Type Discrete,Constrained
004f 4980 |I | Short_Literal 0x180
0050 607f |` | Indirect_Literal Discrete,0xd0,{0x7fffffff, 0xffffffff}
0051 00e5 | | Load_Encached Long_Integer_Cache
0052 03f8 | | Declare_Type Discrete,Constrained
0053 4801 |H | Short_Literal 0x1
0054 481f |H | Short_Literal 0x1f
0055 e225 | % | Load 0x1,0x25
0056 03f8 | | Declare_Type Discrete,Constrained
0057 4820 |H | Short_Literal 0x20
0058 482f |H/ | Short_Literal 0x2f
0059 e225 | % | Load 0x1,0x25
005a 03f8 | | Declare_Type Discrete,Constrained
005b 4830 |H0 | Short_Literal 0x30
005c 483f |H? | Short_Literal 0x3f
005d e225 | % | Load 0x1,0x25
005e 03f8 | | Declare_Type Discrete,Constrained
005f 4840 |H@ | Short_Literal 0x40
0060 484f |HO | Short_Literal 0x4f
0061 e225 | % | Load 0x1,0x25
0062 03f8 | | Declare_Type Discrete,Constrained
0063 4850 |HP | Short_Literal 0x50
0064 485f |H_ | Short_Literal 0x5f
0065 e225 | % | Load 0x1,0x25
0066 03f8 | | Declare_Type Discrete,Constrained
0067 4860 |H` | Short_Literal 0x60
0068 487f |H | Short_Literal 0x7f
0069 e225 | % | Load 0x1,0x25
006a 03f8 | | Declare_Type Discrete,Constrained
006b 4880 |H | Short_Literal 0x80
006c 48df |H | Short_Literal 0xdf
006d e225 | % | Load 0x1,0x25
006e 03f8 | | Declare_Type Discrete,Constrained
006f 4900 |I | Short_Literal 0x100
0070 490f |I | Short_Literal 0x10f
0071 e228 | ( | Load 0x1,0x28
0072 03f8 | | Declare_Type Discrete,Constrained
0073 4910 |I | Short_Literal 0x110
0074 491f |I | Short_Literal 0x11f
0075 e228 | ( | Load 0x1,0x28
0076 03f8 | | Declare_Type Discrete,Constrained
0077 4920 |I | Short_Literal 0x120
0078 492f |I/ | Short_Literal 0x12f
0079 e228 | ( | Load 0x1,0x28
007a 03f8 | | Declare_Type Discrete,Constrained
007b 4930 |I0 | Short_Literal 0x130
007c 493f |I? | Short_Literal 0x13f
007d e228 | ( | Load 0x1,0x28
007e 03f8 | | Declare_Type Discrete,Constrained
007f 4940 |I@ | Short_Literal 0x140
0080 494f |IO | Short_Literal 0x14f
0081 e228 | ( | Load 0x1,0x28
0082 03f8 | | Declare_Type Discrete,Constrained
0083 4950 |IP | Short_Literal 0x150
0084 495f |I_ | Short_Literal 0x15f
0085 e228 | ( | Load 0x1,0x28
0086 03f8 | | Declare_Type Discrete,Constrained
0087 4960 |I` | Short_Literal 0x160
0088 496f |Io | Short_Literal 0x16f
0089 e228 | ( | Load 0x1,0x28
008a 03f8 | | Declare_Type Discrete,Constrained
008b 4970 |Ip | Short_Literal 0x170
008c 497f |I | Short_Literal 0x17f
008d e228 | ( | Load 0x1,0x28
008e 03f8 | | Declare_Type Discrete,Constrained
008f 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0090 00c7 | | Action Elaborate_Subprogram
0091 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0092 00c7 | | Action Elaborate_Subprogram
0093 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0094 00c7 | | Action Elaborate_Subprogram
0095 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0096 00c7 | | Action Elaborate_Subprogram
0097 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0098 00c7 | | Action Elaborate_Subprogram
0099 1d13 | | Execute_Immediate Reference_Lex_1,0x13
009a 00c7 | | Action Elaborate_Subprogram
009b 1d14 | | Execute_Immediate Reference_Lex_1,0x14
009c 00c7 | | Action Elaborate_Subprogram
009d 029d 029b | | Declare_Subprogram INIT_0298,For_Outer_Call
009f 029d 02bb | | Declare_Subprogram INIT_02b8,For_Outer_Call
00a1 1d15 | | Execute_Immediate Reference_Lex_1,0x15
00a2 00c7 | | Action Elaborate_Subprogram
00a3 1d19 | | Execute_Immediate Reference_Lex_1,0x19
00a4 00c7 | | Action Elaborate_Subprogram
00a5 1d16 | | Execute_Immediate Reference_Lex_1,0x16
00a6 00c7 | | Action Elaborate_Subprogram
00a7 1d17 | | Execute_Immediate Reference_Lex_1,0x17
00a8 00c7 | | Action Elaborate_Subprogram
00a9 1d18 | | Execute_Immediate Reference_Lex_1,0x18
00aa 00c7 | | Action Elaborate_Subprogram
00ab 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00ac 00c7 | | Action Elaborate_Subprogram
00ad 029d 02eb | | Declare_Subprogram INIT_02e8,For_Outer_Call
00af 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00b0 00c7 | | Action Elaborate_Subprogram
00b1 029d 032b | +| Declare_Subprogram INIT_0328,For_Outer_Call
00b3 029d 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call
00b5 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00b6 00c7 | | Action Elaborate_Subprogram
00b7 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00b8 00c7 | | Action Elaborate_Subprogram
00b9 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00ba 00c7 | | Action Elaborate_Subprogram
00bb 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00bc 00c7 | | Action Elaborate_Subprogram
00bd 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00be 00c7 | | Action Elaborate_Subprogram
00bf 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
00c0 00c7 | | Action Elaborate_Subprogram
00c1 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
00c2 00c7 | | Action Elaborate_Subprogram
00c3 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
00c4 00c7 | | Action Elaborate_Subprogram
00c5 BODY_0008:
00c5 00bc | | Action Signal_Activated
00c6 00bb | | Action Signal_Completion
00c7 0000 | | .XXX[0x1]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4800 |H | Short_Literal 0x0
00cc 00ca | | Action Exit_Nullary_Function
00cd 0000 0000 | | .XXX[0x3]
00cf 0000 | |
00d0 7fff ffff | | .LITERAL {0x7fffffff, 0xffffffff}
00d4 8000 0000 | | .LITERAL {0x80000000, 0x00010000}
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db 00da | | Load_Top At_Offset_2
00dc 0f00 | | Execute_Immediate Equal,0x0
00dd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00de 0000 0000 | | .XXX[0x2]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 4fff |O | Short_Literal -0x1
00e4 00ca | | Action Exit_Nullary_Function
00e5 0000 0000 | | .XXX[0x3]
00e7 0000 | |
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00da | | Load_Top At_Offset_2
00ec 4fff |O | Short_Literal -0x1
00ed 027f | | Execute Discrete,Equal
00ee 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00ef 0000 | | .XXX[0x1]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 00da | | Load_Top At_Offset_2
00f4 6007 |` | Indirect_Literal Discrete,0xfc,{0x00000000, 0x7fffffff}
00f5 026e | n | Execute Discrete,Modulo
00f6 00d8 | | Load_Top At_Offset_0
00f7 00e2 | | Load_Encached Integer_Cache
00f8 0260 | ` | Execute Discrete,In_Type
00f9 7001 |p | Jump_Nonzero 0xfb
00fa 0801 | | Execute_Immediate Raise,0x1
00fb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00fc 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 00da | | Load_Top At_Offset_2
0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
010d 0000 0000 | | .XXX[0x3]
010f 0000 | |
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 00da | | Load_Top At_Offset_2
0114 820f | | Call 0x1,0xf
0115 6803 |h | Jump_Zero 0x119
0116 0092 03f3 | | Action Push_String_Extended,0x3f3 ; "ANY"
0118 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0119 00da | | Load_Top At_Offset_2
011a 8211 | | Call 0x1,0x11
011b 6803 |h | Jump_Zero 0x11f
011c 0092 03f4 | | Action Push_String_Extended,0x3f4 ; "IMPLICIT"
011e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
011f 00da | | Load_Top At_Offset_2
0120 823a | : | Call 0x1,0x3a
0121 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0122 0000 0000 | | .BLANK 0000[0x6]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b 00da | | Load_Top At_Offset_2
012c 821c | | Call 0x1,0x1c
012d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0134 | 4 | .CONST 0x0134 ; Address of begin
0131 014e | N | .CONST 0x014e ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 00e5 | | Load_Encached Long_Integer_Cache
0134 BODY_0130:
0134 4801 |H | Short_Literal 0x1
0135 0092 03f5 | | Action Push_String_Extended,0x3f5 ; "null"
0137 e5ff | | Load 0x2,-0x1
0138 e002 | | Load 0x0,0x2
0139 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
013a 6805 |h | Jump_Zero 0x140
013b 820e | | Call 0x1,0xe
013c a5fe | | Store_Unchecked 0x2,-0x2
013d 4801 |H | Short_Literal 0x1
013e a5fd | | Store_Unchecked 0x2,-0x3
013f 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0140 00db | | Load_Top At_Offset_3
0141 e003 | | Load 0x0,0x3
0142 180e | | Execute Package,Field_Execute,Field_Number 0xe
0143 0051 | Q | Store_Top_Unchecked Discrete,At_Offset_1
0144 00d8 | | Load_Top At_Offset_0
0145 a5fe | | Store_Unchecked 0x2,-0x2
0146 00d8 | | Load_Top At_Offset_0
0147 6803 |h | Jump_Zero 0x14b
0148 4801 |H | Short_Literal 0x1
0149 a5fd | | Store_Unchecked 0x2,-0x3
014a 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014b 4800 |H | Short_Literal 0x0
014c a5fd | | Store_Unchecked 0x2,-0x3
014d 4502 |E | Exit_Suprogram New_Top_Offset 0x2
014e TRAP_0130:
014e 010e | | Execute Exception,Is_Constraint_Error
014f 6805 |h | Jump_Zero 0x155
0150 820e | | Call 0x1,0xe
0151 a5fe | | Store_Unchecked 0x2,-0x2
0152 4800 |H | Short_Literal 0x0
0153 a5fd | | Store_Unchecked 0x2,-0x3
0154 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0155 0100 | | Execute Exception,Raise
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 820f | | Call 0x1,0xf
015d 6803 |h | Jump_Zero 0x161
015e 0092 03f5 | | Action Push_String_Extended,0x3f5 ; "null"
0160 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0161 00da | | Load_Top At_Offset_2
0162 8211 | | Call 0x1,0x11
0163 6803 |h | Jump_Zero 0x167
0164 0092 03f6 | | Action Push_String_Extended,0x3f6 ; "implicit"
0166 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0167 00da | | Load_Top At_Offset_2
0168 821a | | Call 0x1,0x1a
0169 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0176 | v | .CONST 0x0176 ; Address of begin
0171 01a8 | | .CONST 0x01a8 ; Address of exception handler
0172 0004 | | .CONST 0x0004 ; Number of locals
0173 INIT_0170:
0173 00e5 | | Load_Encached Long_Integer_Cache
0174 00e5 | | Load_Encached Long_Integer_Cache
0175 00e1 | | Load_Encached Boolean_Cache
0176 BODY_0170:
0176 e5ff | | Load 0x2,-0x1
0177 01db | | Execute Vector,Length
0178 680e |h | Jump_Zero 0x187
0179 4801 |H | Short_Literal 0x1
017a 0092 03f7 | | Action Push_String_Extended,0x3f7 ; "NULL"
017c e5ff | | Load 0x2,-0x1
017d e002 | | Load 0x0,0x2
017e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
017f 7007 |p | Jump_Nonzero 0x187
0180 4801 |H | Short_Literal 0x1
0181 0092 03f3 | | Action Push_String_Extended,0x3f3 ; "ANY"
0183 e5ff | | Load 0x2,-0x1
0184 e002 | | Load 0x0,0x2
0185 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0186 6802 |h | Jump_Zero 0x189
0187 820e | | Call 0x1,0xe
0188 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0189 4801 |H | Short_Literal 0x1
018a 0092 03f4 | | Action Push_String_Extended,0x3f4 ; "IMPLICIT"
018c e5ff | | Load 0x2,-0x1
018d e002 | | Load 0x0,0x2
018e 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
018f 6802 |h | Jump_Zero 0x192
0190 8210 | | Call 0x1,0x10
0191 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0192 00e5 | | Load_Encached Long_Integer_Cache
0193 00e5 | | Load_Encached Long_Integer_Cache
0194 4801 |H | Short_Literal 0x1
0195 e5ff | | Load 0x2,-0x1
0196 8004 | | Call 0x0,0x4
0197 c402 | | Store 0x2,0x2
0198 005a | Z | Store_Top Discrete,At_Offset_2
0199 00d9 | | Load_Top At_Offset_1
019a 4800 |H | Short_Literal 0x0
019b 48ff |H | Short_Literal 0xff
019c 0262 | b | Execute Discrete,In_Range
019d 7002 |p | Jump_Nonzero 0x1a0
019e 00da | | Load_Top At_Offset_2
019f 7005 |p | Jump_Nonzero 0x1a5
01a0 00da | | Load_Top At_Offset_2
01a1 0908 | | Execute_Immediate Binary_Scale,0x8
01a2 00da | | Load_Top At_Offset_2
01a3 0273 | s | Execute Discrete,Plus
01a4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01a5 e005 | | Load 0x0,0x5
01a6 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01a7 0257 | W | Execute Discrete,Raise
01a8 TRAP_0170:
01a8 0007 | | Action Break_Optional
01a9 e005 | | Load 0x0,0x5
01aa 1b14 | | Execute Package,Field_Read,Field_Number 0x14
01ab 0257 | W | Execute Discrete,Raise
01ac 0000 0000 | | .BLANK 0000[0x4]
01b0 ; --------------------------------------------------------------------------------------
01b0 ; SUBPROGRAM
01b0 ; --------------------------------------------------------------------------------------
01b0 01b3 | | .CONST 0x01b3 ; Address of begin
01b1 0004 | | .CONST 0x0004 ; Address of exception handler
01b2 0001 | | .CONST 0x0001 ; Number of locals
01b3 BODY_01b0:
01b3 INIT_01b0:
01b3 00da | | Load_Top At_Offset_2
01b4 e006 | | Load 0x0,0x6
01b5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01b6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01b7 0000 | | .XXX[0x1]
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 00da | | Load_Top At_Offset_2
01bc e226 | & | Load 0x1,0x26
01bd 0260 | ` | Execute Discrete,In_Type
01be 6802 |h | Jump_Zero 0x1c1
01bf 4801 |H | Short_Literal 0x1
01c0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c1 4800 |H | Short_Literal 0x0
01c2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 00da | | Load_Top At_Offset_2
01cc e225 | % | Load 0x1,0x25
01cd 0260 | ` | Execute Discrete,In_Type
01ce 7004 |p | Jump_Nonzero 0x1d3
01cf 00da | | Load_Top At_Offset_2
01d0 e228 | ( | Load 0x1,0x28
01d1 0260 | ` | Execute Discrete,In_Type
01d2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d3 4801 |H | Short_Literal 0x1
01d4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01d5 0000 0000 | | .XXX[0x3]
01d7 0000 | |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; SUBPROGRAM
01d8 ; --------------------------------------------------------------------------------------
01d8 01db | | .CONST 0x01db ; Address of begin
01d9 0004 | | .CONST 0x0004 ; Address of exception handler
01da 0001 | | .CONST 0x0001 ; Number of locals
01db BODY_01d8:
01db INIT_01d8:
01db 00db | | Load_Top At_Offset_3
01dc 00d8 | | Load_Top At_Offset_0
01dd 48e0 |H | Short_Literal 0xe0
01de 48e4 |H | Short_Literal 0xe4
01df 0262 | b | Execute Discrete,In_Range
01e0 681f |h | Jump_Zero 0x200
01e1 0be0 | | Execute_Immediate Case_Compare,0xe0
01e2 700a |p | Jump_Nonzero 0x1ed
01e3 0be1 | | Execute_Immediate Case_Compare,0xe1
01e4 700d |p | Jump_Nonzero 0x1f2
01e5 0be2 | | Execute_Immediate Case_Compare,0xe2
01e6 7010 |p | Jump_Nonzero 0x1f7
01e7 0fe3 | | Execute_Immediate Equal,-0x1d
01e8 7013 |p | Jump_Nonzero 0x1fc
01e9 00da | | Load_Top At_Offset_2
01ea e22e | . | Load 0x1,0x2e
01eb 0260 | ` | Execute Discrete,In_Type
01ec 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ed 00d1 | | Pop_Control Pop_Count_1
01ee 00da | | Load_Top At_Offset_2
01ef e22a | * | Load 0x1,0x2a
01f0 0260 | ` | Execute Discrete,In_Type
01f1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f2 00d1 | | Pop_Control Pop_Count_1
01f3 00da | | Load_Top At_Offset_2
01f4 e22b | + | Load 0x1,0x2b
01f5 0260 | ` | Execute Discrete,In_Type
01f6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f7 00d1 | | Pop_Control Pop_Count_1
01f8 00da | | Load_Top At_Offset_2
01f9 e22c | , | Load 0x1,0x2c
01fa 0260 | ` | Execute Discrete,In_Type
01fb 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01fc 00da | | Load_Top At_Offset_2
01fd e22d | - | Load 0x1,0x2d
01fe 0260 | ` | Execute Discrete,In_Type
01ff 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0200 00d1 | | Pop_Control Pop_Count_1
0201 00db | | Load_Top At_Offset_3
0202 00db | | Load_Top At_Offset_3
0203 027f | | Execute Discrete,Equal
0204 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0205 0000 0000 | | .XXX[0x3]
0207 0000 | |
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b 00db | | Load_Top At_Offset_3
020c 8214 | | Call 0x1,0x14
020d 8211 | | Call 0x1,0x11
020e 6803 |h | Jump_Zero 0x212
020f 00da | | Load_Top At_Offset_2
0210 821b | | Call 0x1,0x1b
0211 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0212 00da | | Load_Top At_Offset_2
0213 e5fe | | Load 0x2,-0x2
0214 027f | | Execute Discrete,Equal
0215 7004 |p | Jump_Nonzero 0x21a
0216 00db | | Load_Top At_Offset_3
0217 8214 | | Call 0x1,0x14
0218 820f | | Call 0x1,0xf
0219 6802 |h | Jump_Zero 0x21c
021a 4801 |H | Short_Literal 0x1
021b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
021c 00db | | Load_Top At_Offset_3
021d 823b | ; | Call 0x1,0x3b
021e 680d |h | Jump_Zero 0x22c
021f 00da | | Load_Top At_Offset_2
0220 e228 | ( | Load 0x1,0x28
0221 0260 | ` | Execute Discrete,In_Type
0222 6809 |h | Jump_Zero 0x22c
0223 00db | | Load_Top At_Offset_3
0224 00d8 | | Load_Top At_Offset_0
0225 e228 | ( | Load 0x1,0x28
0226 0260 | ` | Execute Discrete,In_Type
0227 7001 |p | Jump_Nonzero 0x229
0228 0801 | | Execute_Immediate Raise,0x1
0229 00db | | Load_Top At_Offset_3
022a 823d | = | Call 0x1,0x3d
022b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
022c 00db | | Load_Top At_Offset_3
022d 823c | < | Call 0x1,0x3c
022e 680d |h | Jump_Zero 0x23c
022f 00da | | Load_Top At_Offset_2
0230 821b | | Call 0x1,0x1b
0231 680a |h | Jump_Zero 0x23c
0232 00db | | Load_Top At_Offset_3
0233 e225 | % | Load 0x1,0x25
0234 0260 | ` | Execute Discrete,In_Type
0235 7002 |p | Jump_Nonzero 0x238
0236 4800 |H | Short_Literal 0x0
0237 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0238 00db | | Load_Top At_Offset_3
0239 00db | | Load_Top At_Offset_3
023a 821d | | Call 0x1,0x1d
023b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
023c 00da | | Load_Top At_Offset_2
023d 8007 | | Call 0x0,0x7
023e e5fe | | Load 0x2,-0x2
023f 027f | | Execute Discrete,Equal
0240 6802 |h | Jump_Zero 0x243
0241 4801 |H | Short_Literal 0x1
0242 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0243 4800 |H | Short_Literal 0x0
0244 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0245 0000 0000 | | .XXX[0x3]
0247 0000 | |
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00db | | Load_Top At_Offset_3
024c 8213 | | Call 0x1,0x13
024d 00db | | Load_Top At_Offset_3
024e 8213 | | Call 0x1,0x13
024f 821e | | Call 0x1,0x1e
0250 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0251 0000 0000 | | .BLANK 0000[0x7]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00da | | Load_Top At_Offset_2
025c 0f31 | 1 | Execute_Immediate Equal,0x31
025d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
025e 0000 0000 | | .XXX[0x2]
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 00da | | Load_Top At_Offset_2
0264 09f8 | | Execute_Immediate Binary_Scale,-0x8
0265 4801 |H | Short_Literal 0x1
0266 0279 | y | Execute Discrete,And
0267 0f01 | | Execute_Immediate Equal,0x1
0268 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0269 0000 0000 | | .BLANK 0000[0x7]
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 4820 |H | Short_Literal 0x20
0274 4800 |H | Short_Literal 0x0
0275 4810 |H | Short_Literal 0x10
0276 e5ff | | Load 0x2,-0x1
0277 e002 | | Load 0x0,0x2
0278 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0279 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
027a 0000 0000 | | .BLANK 0000[0x6]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0285 | | .CONST 0x0285 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0003 | | .CONST 0x0003 ; Number of locals
0283 INIT_0280:
0283 00e1 | | Load_Encached Boolean_Cache
0284 00e5 | | Load_Encached Long_Integer_Cache
0285 BODY_0280:
0285 00e1 | | Load_Encached Boolean_Cache
0286 00e5 | | Load_Encached Long_Integer_Cache
0287 4810 |H | Short_Literal 0x10
0288 e5ff | | Load 0x2,-0x1
0289 e002 | | Load 0x0,0x2
028a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
028b 005a | Z | Store_Top Discrete,At_Offset_2
028c 005a | Z | Store_Top Discrete,At_Offset_2
028d 00d9 | | Load_Top At_Offset_1
028e 6802 |h | Jump_Zero 0x291
028f 00d8 | | Load_Top At_Offset_0
0290 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0291 e224 | $ | Load 0x1,0x24
0292 0257 | W | Execute Discrete,Raise
0293 0000 0000 | | .BLANK 0000[0x5]
0298 ; --------------------------------------------------------------------------------------
0298 ; SUBPROGRAM
0298 ; --------------------------------------------------------------------------------------
0298 02a5 | | .CONST 0x02a5 ; Address of begin
0299 0004 | | .CONST 0x0004 ; Address of exception handler
029a 0002 | | .CONST 0x0002 ; Number of locals
029b INIT_0298:
029b 0092 03f8 | | Action Push_String_Extended,0x3f8 ; "#"
029d 4820 |H | Short_Literal 0x20
029e 4800 |H | Short_Literal 0x0
029f 4810 |H | Short_Literal 0x10
02a0 e5fe | | Load 0x2,-0x2
02a1 e002 | | Load 0x0,0x2
02a2 1817 | | Execute Package,Field_Execute,Field_Number 0x17
02a3 01cc | | Execute Vector,Catenate
02a4 0007 | | Action Break_Optional
02a5 BODY_0298:
02a5 e5fe | | Load 0x2,-0x2
02a6 7004 |p | Jump_Nonzero 0x2ab
02a7 e5fd | | Load 0x2,-0x3
02a8 6802 |h | Jump_Zero 0x2ab
02a9 00ea | | Load_Encached Null_String_Cache
02aa 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02ab 00db | | Load_Top At_Offset_3
02ac 01db | | Execute Vector,Length
02ad 7002 |p | Jump_Nonzero 0x2b0
02ae 00d8 | | Load_Top At_Offset_0
02af 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02b0 00db | | Load_Top At_Offset_3
02b1 0092 03f9 | | Action Push_String_Extended,0x3f9 ; " = "
02b3 01cc | | Execute Vector,Catenate
02b4 00d9 | | Load_Top At_Offset_1
02b5 01cc | | Execute Vector,Catenate
02b6 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
02b7 0000 | | .XXX[0x1]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c7 | | .CONST 0x02c7 ; Address of begin
02b9 02db | | .CONST 0x02db ; Address of exception handler
02ba 0006 | | .CONST 0x0006 ; Number of locals
02bb INIT_02b8:
02bb 00da | | Load_Top At_Offset_2
02bc 00e5 | | Load_Encached Long_Integer_Cache
02bd 03f1 | | Declare_Variable Discrete,With_Value
02be 00e4 | | Load_Encached Positive_Cache
02bf 00d9 | | Load_Top At_Offset_1
02c0 8008 | | Call 0x0,0x8
02c1 e009 | | Load 0x0,0x9
02c2 03f1 | | Declare_Variable Discrete,With_Value
02c3 029f 03b3 | | Declare_Subprogram INIT_03b0,For_Call
02c5 029f 03d3 | | Declare_Subprogram INIT_03d0,For_Call
02c7 BODY_02b8:
02c7 00da | | Load_Top At_Offset_2
02c8 4608 |F | Jump_Case 0x9
02c9 7808 |x | Jump 0x2d2 ; case 0x0
02ca 7807 |x | Jump 0x2d2 ; case 0x1
02cb 780b |x | Jump 0x2d7 ; case 0x2
02cc 7805 |x | Jump 0x2d2 ; case 0x3
02cd 780b |x | Jump 0x2d9 ; case 0x4
02ce 7803 |x | Jump 0x2d2 ; case 0x5
02cf 7802 |x | Jump 0x2d2 ; case 0x6
02d0 7801 |x | Jump 0x2d2 ; case 0x7
02d1 7800 |x | Jump 0x2d2 ; case 0x8
02d2 4800 |H | Short_Literal 0x0
02d3 e5ff | | Load 0x2,-0x1
02d4 00ea | | Load_Encached Null_String_Cache
02d5 8239 | 9 | Call 0x1,0x39
02d6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02d7 8405 | | Call 0x2,0x5
02d8 7801 |x | Jump 0x2da
02d9 8406 | | Call 0x2,0x6
02da 0831 | 1 | Execute_Immediate Raise,0x31
02db TRAP_02b8:
02db 0007 | | Action Break_Optional
02dc 4800 |H | Short_Literal 0x0
02dd e5ff | | Load 0x2,-0x1
02de 00ea | | Load_Encached Null_String_Cache
02df 8239 | 9 | Call 0x1,0x39
02e0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02e1 0000 0000 | | .BLANK 0000[0x7]
02e8 ; --------------------------------------------------------------------------------------
02e8 ; SUBPROGRAM
02e8 ; --------------------------------------------------------------------------------------
02e8 02eb | | .CONST 0x02eb ; Address of begin
02e9 0004 | | .CONST 0x0004 ; Address of exception handler
02ea 0001 | | .CONST 0x0001 ; Number of locals
02eb BODY_02e8:
02eb INIT_02e8:
02eb 00da | | Load_Top At_Offset_2
02ec 00d8 | | Load_Top At_Offset_0
02ed 4931 |I1 | Short_Literal 0x131
02ee 027c | | | Execute Discrete,Less
02ef 701d |p | Jump_Nonzero 0x30d
02f0 00d8 | | Load_Top At_Offset_0
02f1 493f |I? | Short_Literal 0x13f
02f2 027d | } | Execute Discrete,Greater
02f3 7003 |p | Jump_Nonzero 0x2f7
02f4 00d1 | | Pop_Control Pop_Count_1
02f5 4800 |H | Short_Literal 0x0
02f6 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02f7 00d8 | | Load_Top At_Offset_0
02f8 4951 |IQ | Short_Literal 0x151
02f9 027c | | | Execute Discrete,Less
02fa 700d |p | Jump_Nonzero 0x308
02fb 00d8 | | Load_Top At_Offset_0
02fc 495f |I_ | Short_Literal 0x15f
02fd 027d | } | Execute Discrete,Greater
02fe 7001 |p | Jump_Nonzero 0x300
02ff 7ff4 | | Jump 0x2f4
0300 00d8 | | Load_Top At_Offset_0
0301 4960 |I` | Short_Literal 0x160
0302 027f | | Execute Discrete,Equal
0303 7011 |p | Jump_Nonzero 0x315
0304 4970 |Ip | Short_Literal 0x170
0305 027f | | Execute Discrete,Equal
0306 700f |p | Jump_Nonzero 0x316
0307 7fed | | Jump 0x2f5
0308 4941 |IA | Short_Literal 0x141
0309 494f |IO | Short_Literal 0x14f
030a 0262 | b | Execute Discrete,In_Range
030b 77e9 |w | Jump_Nonzero 0x2f5
030c 7809 |x | Jump 0x316
030d 00d8 | | Load_Top At_Offset_0
030e 4910 |I | Short_Literal 0x110
030f 027c | | | Execute Discrete,Less
0310 700f |p | Jump_Nonzero 0x320
0311 00d8 | | Load_Top At_Offset_0
0312 4910 |I | Short_Literal 0x110
0313 027d | } | Execute Discrete,Greater
0314 7003 |p | Jump_Nonzero 0x318
0315 00d1 | | Pop_Control Pop_Count_1
0316 4801 |H | Short_Literal 0x1
0317 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0318 00d8 | | Load_Top At_Offset_0
0319 4920 |I | Short_Literal 0x120
031a 027f | | Execute Discrete,Equal
031b 77f9 |w | Jump_Nonzero 0x315
031c 4930 |I0 | Short_Literal 0x130
031d 027f | | Execute Discrete,Equal
031e 77f7 |w | Jump_Nonzero 0x316
031f 7fd5 | | Jump 0x2f5
0320 4900 |I | Short_Literal 0x100
0321 027f | | Execute Discrete,Equal
0322 77f3 |w | Jump_Nonzero 0x316
0323 7fd1 | | Jump 0x2f5
0324 0000 0000 | | .BLANK 0000[0x4]
0328 ; --------------------------------------------------------------------------------------
0328 ; SUBPROGRAM
0328 ; --------------------------------------------------------------------------------------
0328 032b | + | .CONST 0x032b ; Address of begin
0329 0004 | | .CONST 0x0004 ; Address of exception handler
032a 0001 | | .CONST 0x0001 ; Number of locals
032b BODY_0328:
032b INIT_0328:
032b 00da | | Load_Top At_Offset_2
032c 00d8 | | Load_Top At_Offset_0
032d e228 | ( | Load 0x1,0x28
032e 0260 | ` | Execute Discrete,In_Type
032f 700b |p | Jump_Nonzero 0x33b
0330 00d8 | | Load_Top At_Offset_0
0331 e226 | & | Load 0x1,0x26
0332 0260 | ` | Execute Discrete,In_Type
0333 700a |p | Jump_Nonzero 0x33e
0334 600f |` | Indirect_Literal Discrete,0x344,{0x80000000, 0x00000000}
0335 4fff |O | Short_Literal -0x1
0336 0262 | b | Execute Discrete,In_Range
0337 7009 |p | Jump_Nonzero 0x341
0338 7800 |x | Jump 0x339
0339 4801 |H | Short_Literal 0x1
033a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033b 00d1 | | Pop_Control Pop_Count_1
033c 4801 |H | Short_Literal 0x1
033d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
033e 00d1 | | Pop_Control Pop_Count_1
033f 4800 |H | Short_Literal 0x0
0340 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0341 4800 |H | Short_Literal 0x0
0342 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0343 0000 | | .XXX[0x1]
0344 8000 0000 | | .LITERAL {0x80000000, 0x00000000}
0348 ; --------------------------------------------------------------------------------------
0348 ; SUBPROGRAM
0348 ; --------------------------------------------------------------------------------------
0348 034b | K | .CONST 0x034b ; Address of begin
0349 0004 | | .CONST 0x0004 ; Address of exception handler
034a 0001 | | .CONST 0x0001 ; Number of locals
034b BODY_0348:
034b INIT_0348:
034b 00db | | Load_Top At_Offset_3
034c 00d8 | | Load_Top At_Offset_0
034d 4931 |I1 | Short_Literal 0x131
034e 027c | | | Execute Discrete,Less
034f 7020 |p | Jump_Nonzero 0x370
0350 00d8 | | Load_Top At_Offset_0
0351 493f |I? | Short_Literal 0x13f
0352 027d | } | Execute Discrete,Greater
0353 7003 |p | Jump_Nonzero 0x357
0354 00d1 | | Pop_Control Pop_Count_1
0355 4800 |H | Short_Literal 0x0
0356 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0357 00d8 | | Load_Top At_Offset_0
0358 4951 |IQ | Short_Literal 0x151
0359 027c | | | Execute Discrete,Less
035a 700d |p | Jump_Nonzero 0x368
035b 00d8 | | Load_Top At_Offset_0
035c 495f |I_ | Short_Literal 0x15f
035d 027d | } | Execute Discrete,Greater
035e 7001 |p | Jump_Nonzero 0x360
035f 7ff4 | | Jump 0x354
0360 00d8 | | Load_Top At_Offset_0
0361 4960 |I` | Short_Literal 0x160
0362 027f | | Execute Discrete,Equal
0363 7040 |p@ | Jump_Nonzero 0x3a4
0364 4970 |Ip | Short_Literal 0x170
0365 027f | | Execute Discrete,Equal
0366 7042 |pB | Jump_Nonzero 0x3a9
0367 7fed | | Jump 0x355
0368 00d8 | | Load_Top At_Offset_0
0369 4940 |I@ | Short_Literal 0x140
036a 027f | | Execute Discrete,Equal
036b 702f |p/ | Jump_Nonzero 0x39b
036c 4950 |IP | Short_Literal 0x150
036d 027f | | Execute Discrete,Equal
036e 7031 |p1 | Jump_Nonzero 0x3a0
036f 7fe5 | | Jump 0x355
0370 00d8 | | Load_Top At_Offset_0
0371 4911 |I | Short_Literal 0x111
0372 027c | | | Execute Discrete,Less
0373 700d |p | Jump_Nonzero 0x381
0374 00d8 | | Load_Top At_Offset_0
0375 491f |I | Short_Literal 0x11f
0376 027d | } | Execute Discrete,Greater
0377 7001 |p | Jump_Nonzero 0x379
0378 7fdb | | Jump 0x354
0379 00d8 | | Load_Top At_Offset_0
037a 4920 |I | Short_Literal 0x120
037b 027f | | Execute Discrete,Equal
037c 7015 |p | Jump_Nonzero 0x392
037d 4930 |I0 | Short_Literal 0x130
037e 027f | | Execute Discrete,Equal
037f 7017 |p | Jump_Nonzero 0x397
0380 7fd4 | | Jump 0x355
0381 00d8 | | Load_Top At_Offset_0
0382 4900 |I | Short_Literal 0x100
0383 027f | | Execute Discrete,Equal
0384 7004 |p | Jump_Nonzero 0x389
0385 4910 |I | Short_Literal 0x110
0386 027f | | Execute Discrete,Equal
0387 7006 |p | Jump_Nonzero 0x38e
0388 7fcc | | Jump 0x355
0389 00d1 | | Pop_Control Pop_Count_1
038a 00da | | Load_Top At_Offset_2
038b e231 | 1 | Load 0x1,0x31
038c 0260 | ` | Execute Discrete,In_Type
038d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038e 00da | | Load_Top At_Offset_2
038f e232 | 2 | Load 0x1,0x32
0390 0260 | ` | Execute Discrete,In_Type
0391 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0392 00d1 | | Pop_Control Pop_Count_1
0393 00da | | Load_Top At_Offset_2
0394 e233 | 3 | Load 0x1,0x33
0395 0260 | ` | Execute Discrete,In_Type
0396 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0397 00da | | Load_Top At_Offset_2
0398 e234 | 4 | Load 0x1,0x34
0399 0260 | ` | Execute Discrete,In_Type
039a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
039b 00d1 | | Pop_Control Pop_Count_1
039c 00da | | Load_Top At_Offset_2
039d e235 | 5 | Load 0x1,0x35
039e 0260 | ` | Execute Discrete,In_Type
039f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a0 00da | | Load_Top At_Offset_2
03a1 e236 | 6 | Load 0x1,0x36
03a2 0260 | ` | Execute Discrete,In_Type
03a3 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a4 00d1 | | Pop_Control Pop_Count_1
03a5 00da | | Load_Top At_Offset_2
03a6 e237 | 7 | Load 0x1,0x37
03a7 0260 | ` | Execute Discrete,In_Type
03a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03a9 00da | | Load_Top At_Offset_2
03aa e238 | 8 | Load 0x1,0x38
03ab 0260 | ` | Execute Discrete,In_Type
03ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ad 0000 0000 | | .XXX[0x3]
03af 0000 | |
03b0 ; --------------------------------------------------------------------------------------
03b0 ; SUBPROGRAM
03b0 ; --------------------------------------------------------------------------------------
03b0 03b6 | | .CONST 0x03b6 ; Address of begin
03b1 0004 | | .CONST 0x0004 ; Address of exception handler
03b2 0003 | | .CONST 0x0003 ; Number of locals
03b3 INIT_03b0:
03b3 e00a | | Load 0x0,0xa
03b4 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03b5 00e1 | | Load_Encached Boolean_Cache
03b6 BODY_03b0:
03b6 00e1 | | Load_Encached Boolean_Cache
03b7 e00b | | Load 0x0,0xb
03b8 e00a | | Load 0x0,0xa
03b9 1b15 | | Execute Package,Field_Read,Field_Number 0x15
03ba e402 | | Load 0x2,0x2
03bb 800c | | Call 0x0,0xc
03bc c602 | | Store 0x3,0x2
03bd c403 | | Store 0x2,0x3
03be 0059 | Y | Store_Top Discrete,At_Offset_1
03bf 00d8 | | Load_Top At_Offset_0
03c0 6801 |h | Jump_Zero 0x3c2
03c1 0887 | | Execute_Immediate Raise,0x87
03c2 4800 |H | Short_Literal 0x0
03c3 00da | | Load_Top At_Offset_2
03c4 0092 03fa | | Action Push_String_Extended,0x3fa ; "Space"
03c6 8239 | 9 | Call 0x1,0x39
03c7 4800 |H | Short_Literal 0x0
03c8 e403 | | Load 0x2,0x3
03c9 0092 03fb | | Action Push_String_Extended,0x3fb ; ", Ordinal"
03cb 8239 | 9 | Call 0x1,0x39
03cc 01cc | | Execute Vector,Catenate
03cd 00cb | | Action Pop_Block_With_Result
03ce 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03cf 0000 | | .XXX[0x1]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03d7 | | .CONST 0x03d7 ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0003 | | .CONST 0x0003 ; Number of locals
03d3 INIT_03d0:
03d3 e00a | | Load 0x0,0xa
03d4 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03d5 e00d | | Load 0x0,0xd
03d6 0007 | | Action Break_Optional
03d7 BODY_03d0:
03d7 e00d | | Load 0x0,0xd
03d8 e00e | | Load 0x0,0xe
03d9 e00a | | Load 0x0,0xa
03da 1b16 | | Execute Package,Field_Read,Field_Number 0x16
03db e402 | | Load 0x2,0x2
03dc 800f | | Call 0x0,0xf
03dd c602 | | Store 0x3,0x2
03de c403 | | Store 0x2,0x3
03df 0059 | Y | Store_Top Discrete,At_Offset_1
03e0 4800 |H | Short_Literal 0x0
03e1 00da | | Load_Top At_Offset_2
03e2 0092 03fc | | Action Push_String_Extended,0x3fc ; "Code Segment"
03e4 8239 | 9 | Call 0x1,0x39
03e5 4800 |H | Short_Literal 0x0
03e6 e403 | | Load 0x2,0x3
03e7 0092 03fb | | Action Push_String_Extended,0x3fb ; ", Ordinal"
03e9 8239 | 9 | Call 0x1,0x39
03ea 01cc | | Execute Vector,Catenate
03eb 4801 |H | Short_Literal 0x1
03ec 00da | | Load_Top At_Offset_2
03ed 0092 03fd | | Action Push_String_Extended,0x3fd ; ", Index"
03ef 8239 | 9 | Call 0x1,0x39
03f0 01cc | | Execute Vector,Catenate
03f1 00cb | | Action Pop_Block_With_Result
03f2 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
03f3 ; --------------------------------------------------------------------------------------
03f3 ; STRING TABLE
03f3 ; --------------------------------------------------------------------------------------
03f3 0018 | | .STRTAB 0x0018->0x03ff ; "ANY"
03f4 0019 | | .STRTAB 0x0019->0x0400 ; "IMPLICIT"
03f5 001f | | .STRTAB 0x001f->0x0404 ; "null"
03f6 0021 | ! | .STRTAB 0x0021->0x0406 ; "implicit"
03f7 0027 | ' | .STRTAB 0x0027->0x040a ; "NULL"
03f8 0029 | ) | .STRTAB 0x0029->0x040c ; "#"
03f9 0028 | ( | .STRTAB 0x0028->0x040d ; " = "
03fa 0029 | ) | .STRTAB 0x0029->0x040e ; "Space"
03fb 002c | , | .STRTAB 0x002c->0x0411 ; ", Ordinal"
03fc 0033 | 3 | .STRTAB 0x0033->0x0415 ; "Code Segment"
03fd 003d | = | .STRTAB 0x003d->0x041b ; ", Index"
03fe 0042 | B | .STREND 0x0042->0x041f
03ff 414e 5949 |ANYI| .STRTAB_STRINGS
041f 0000 | | .XXX[0x1]
0420 ; --------------------------------------------------------------------------------------
0420 ; Debug Table
0420 ; --------------------------------------------------------------------------------------
0420 0004 000d | | .DEBUG4 0x0004,0x000d,0x786e,0x0000,0x0001,0x0000
0426 32b9 ba39 |2 9| .XXX[0x1f]
0428 37bc afb9 |7 |
042a bcb9 ba32 | 2|
042c b680 0000 | |
042e 1e80 0000 | |
0430 0e90 a1b7 | |
0432 b6b6 b0b7 | |
0434 3239 9721 |29 !|
0436 b6bb 3197 | 1 |
0438 2232 b9ba |"2 |
043a 3937 bcaf |97 |
043c a9bc b9ba | |
043e 32b6 8000 |2 |
0440 0000 02f3 | |
0442 90d4 84d3 | |
0444 e400 | |
0445 0000 0000 | | .BLANK 0000[0x5]
044a 1800 0000 | | .XXX[0x4c]
044c 0498 dbdb | |
044e 5b58 5b99 |[X[ |
0450 1ccb 98db | |
0452 5d98 cb9c |] |
0454 da1b ddc0 | |
0456 0000 17c0 | |
0458 0000 04c8 | |
045a 50db db5b |P [|
045c 585b 991c |X[ |
045e cb90 db5d | ]|
0460 98cb 94da | |
0462 1bdd c000 | |
0464 0000 0179 | y|
0466 c922 826a | " j|
0468 15c1 79ca | y |
046a 40c1 79cb |@ y |
046c 1100 0000 | |
046e 0f60 0000 | ` |
0470 036c 6ded | lm |
0472 adac 2dcc | - |
0474 8e65 cc6d | e m|
0476 aecc 65ce | e |
0478 4cad adee |L |
047a ccab ed2d | -|
047c ae0d ee4e | N|
047e 8000 000f | |
0480 4000 0003 |@ |
0482 8428 6ded | (m |
0484 adac 2dcc | - |
0486 8e65 c86d | e m|
0488 aecc 65ca | e |
048a 4cad adee |L |
048c ccab e92d | -|
048e ae0d ee4e | N|
0490 8000 0000 | |
0492 00bc e4d9 | |
0494 6135 1cc0 |a5 |
0496 0000 0000 | | .BLANK 0000[0x5]
049b 07f0 0000 | | .XXX[0x2f]
049d 0226 36f6 | &6 |
049f d6d6 16e6 | |
04a1 4732 e636 |G2 6|
04a3 d766 32e7 | f2 |
04a5 3686 f775 |6 u|
04a7 f616 c6c5 | |
04a9 f636 8656 | 6 V|
04ab 36b6 5645 |6 VE|
04ad f6f7 5740 | W@|
04af 0000 07e0 | |
04b1 0000 0232 | 2|
04b3 1436 f6d6 | 6 |
04b5 d616 e647 | G|
04b7 32e4 36d7 |2 6 |
04b9 6632 e536 |f2 6|
04bb 86f7 75f4 | u |
04bd 16c6 c5f4 | |
04bf 3686 5636 |6 V6|
04c1 b656 45f4 | VE |
04c3 f757 4000 | W@ |
04c5 0000 005e | ^|
04c7 7299 c09a |r |
04c9 9750 | P |
04ca 0000 0000 | | .BLANK 0000[0x5]
04cf 0368 0000 | h | .XXX[0xa3]
04d1 013b 1b7b | ; {|
04d3 6b6b 0b73 |kk s|
04d5 2399 731b |# s |
04d7 6bb3 1afb |k |
04d9 0b1b 1b2b | +|
04db 9b9a fb1b | |
04dd 7b73 a393 |{s |
04df 7b61 7373 |{ass|
04e1 4b62 fb93 |Kb |
04e3 4b3b 43a3 |K;C |
04e5 9800 0003 | |
04e7 6000 0001 |` |
04e9 410a 1b7b |A {|
04eb 6b6b 0b73 |kk s|
04ed 2399 721b |# r |
04ef 6bb3 1afa |k |
04f1 0b1b 1b2b | +|
04f3 9b9a fa1b | |
04f5 7b73 a393 |{s |
04f7 7b61 7273 |{ars|
04f9 4b62 fa93 |Kb |
04fb 4b3b 43a3 |K;C |
04fd 9800 0000 | |
04ff 002f 3966 | /9f|
0501 e84d 5020 | MP |
0503 2f39 9b30 |/9 0|
0505 2f39 f748 |/9 H|
0507 0000 0114 | |
0509 0000 009d | |
050b 8dbd b5b5 | |
050d 85b9 91cc | |
050f b98d b5d9 | |
0511 8d7d 858d | } |
0513 8d95 cdcd | |
0515 7d8d bdb9 |} |
0517 d1c9 bdb0 | |
0519 b9a1 85cd | |
051b 7d85 8d8d |} |
051d 95cd cc00 | |
051f 0001 1000 | |
0521 0000 a085 | |
0523 0dbd b5b5 | |
0525 85b9 91cc | |
0527 b90d b5d9 | |
0529 8d7d 058d | } |
052b 8d95 cdcd | |
052d 7d0d bdb9 |} |
052f d1c9 bdb0 | |
0531 b921 85cd | ! |
0533 7d05 8d8d |} |
0535 95cd cc00 | |
0537 0000 0017 | |
0539 9cc1 b826 | &|
053b aa4c 179c | L |
053d db1c 179c | |
053f e920 0000 | |
0541 00ec 0000 | |
0543 0048 c6de | H |
0545 dada c2dc | |
0547 c8e6 5cc6 | \ |
0549 daec c6be | |
054b c2c6 c6ca | |
054d e6e6 bec6 | |
054f dedc e8e4 | |
0551 ded8 5cc8 | \ |
0553 d2e6 e0d8 | |
0555 c2f2 0000 | |
0557 00ea 0000 | |
0559 004a 4286 | JB |
055b deda dac2 | |
055d dcc8 e65c | \|
055f 86da ecc6 | |
0561 be82 c6c6 | |
0563 cae6 e6be | |
0565 86de dce8 | |
0567 e4de d85c | \|
0569 88d2 e6e0 | |
056b d8c2 f200 | |
056d 0000 000b | |
056f ce67 fe13 | g |
0571 5644 |VD |
0572 0000 0000 | | .BLANK 0000[0x5]
0577 0018 0000 | | .XXX[0x33]
0579 0026 636f | &co|
057b 6d6d 616e |mman|
057d 6473 2e63 |ds.c|
057f 6d76 635f |mvc_|
0581 6163 6365 |acce|
0583 7373 5f63 |ss_c|
0585 6f6e 7472 |ontr|
0587 6f6c 2e68 |ol.h|
0589 6173 5f72 |as_r|
058b 6967 6874 |ight|
058d 0000 0017 | |
058f 0000 0027 | '|
0591 2143 6f6d |!Com|
0593 6d61 6e64 |mand|
0595 732e 436d |s.Cm|
0597 7663 5f41 |vc_A|
0599 6363 6573 |cces|
059b 735f 436f |s_Co|
059d 6e74 726f |ntro|
059f 6c2e 4861 |l.Ha|
05a1 735f 5269 |s_Ri|
05a3 6768 7400 |ght |
05a5 0000 0005 | |
05a7 e737 6009 | 7` |
05a9 abb1 | |
05aa 0000 0000 | | .BLANK 0000[0x5]
05af 003b 8000 | ; | .XXX[0x51]
05b1 001c 31b7 | 1 |
05b3 b6b6 b0b7 | |
05b5 3239 9731 |29 1|
05b7 b6bb 31af | 1 |
05b9 b0b1 b1b2 | |
05bb b9b9 afb1 | |
05bd b7b7 3a39 | :9|
05bf 37b6 1739 |7 9|
05c1 bab1 39bc | 9 |
05c3 b9ba 32b6 | 2 |
05c5 afb7 bbb7 | |
05c7 32b9 2fbb |2 / |
05c9 34b2 bbaf |4 |
05cb b934 b3b4 | 4 |
05cd 3a39 8000 |:9 |
05cf 003b 0000 | ; |
05d1 001c 90a1 | |
05d3 b7b6 b6b0 | |
05d5 b732 3997 | 29 |
05d7 21b6 bb31 |! 1|
05d9 afa0 b1b1 | |
05db b2b9 b9af | |
05dd a1b7 b73a | :|
05df 3937 b617 |97 |
05e1 29ba b139 |) 9|
05e3 bcb9 ba32 | 2|
05e5 b6af a7bb | |
05e7 b732 b92f | 2 /|
05e9 ab34 b2bb | 4 |
05eb afa9 34b3 | 4 |
05ed b43a 3980 | :9 |
05ef 0000 0002 | |
05f1 f39d 7084 | p |
05f3 d620 02f3 | |
05f5 a1a5 02f3 | |
05f7 a4ee 0000 | |
05f9 001b 8000 | |
05fb 000d 18db | |
05fd db5b 585b | [X[|
05ff 991c | |