|
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: 4096 (0x1000)
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 06b0 | | .CONST 0x06b0 ; 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 8004 | | .CONST 0x8004 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0094 | | .CONST 0x0094 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0032 | 2 | .CONST 0x0032 ; Number of locals
000b INIT_0008:
000b 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated
000d 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
000f 029a 0163 | c| Declare_Subprogram INIT_0160,For_Outer_Call,Visible,Unelaborated
0011 029a 0173 | s| Declare_Subprogram INIT_0170,For_Outer_Call,Visible,Unelaborated
0013 029a 0183 | | Declare_Subprogram INIT_0180,For_Outer_Call,Visible,Unelaborated
0015 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0017 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0019 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
001b 029a 02b3 | | Declare_Subprogram INIT_02b0,For_Outer_Call,Visible,Unelaborated
001d 029a 0303 | | Declare_Subprogram INIT_0300,For_Outer_Call,Visible,Unelaborated
001f 029a 0313 | | Declare_Subprogram INIT_0310,For_Outer_Call,Visible,Unelaborated
0021 029a 034b | K| Declare_Subprogram INIT_0348,For_Outer_Call,Visible,Unelaborated
0023 029a 035b | [| Declare_Subprogram INIT_0358,For_Outer_Call,Visible,Unelaborated
0025 029a 038b | | Declare_Subprogram INIT_0388,For_Outer_Call,Visible,Unelaborated
0027 029a 03d3 | | Declare_Subprogram INIT_03d0,For_Outer_Call,Visible,Unelaborated
0029 029a 03fb | | Declare_Subprogram INIT_03f8,For_Outer_Call,Visible,Unelaborated
002b 029a 0433 | 3| Declare_Subprogram INIT_0430,For_Outer_Call,Visible,Unelaborated
002d 029a 0453 | S| Declare_Subprogram INIT_0450,For_Outer_Call,Visible,Unelaborated
002f 029a 046b | k| Declare_Subprogram INIT_0468,For_Outer_Call,Visible,Unelaborated
0031 029a 047b | {| Declare_Subprogram INIT_0478,For_Outer_Call,Visible,Unelaborated
0033 029a 04a3 | | Declare_Subprogram INIT_04a0,For_Outer_Call,Visible,Unelaborated
0035 029a 04cb | | Declare_Subprogram INIT_04c8,For_Outer_Call,Visible,Unelaborated
0037 029a 04e3 | | Declare_Subprogram INIT_04e0,For_Outer_Call,Visible,Unelaborated
0039 029a 04f3 | | Declare_Subprogram INIT_04f0,For_Outer_Call,Visible,Unelaborated
003b 029a 050b | | Declare_Subprogram INIT_0508,For_Outer_Call,Visible,Unelaborated
003d 029a 051b | | Declare_Subprogram INIT_0518,For_Outer_Call,Visible,Unelaborated
003f 029a 0533 | 3| Declare_Subprogram INIT_0530,For_Outer_Call,Visible,Unelaborated
0041 029a 0543 | C| Declare_Subprogram INIT_0540,For_Outer_Call,Visible,Unelaborated
0043 00bf | | Action Accept_Activation
0044 e001 | | Load 0x0,0x1
0045 e002 | | Load 0x0,0x2
0046 4814 |H | Short_Literal 0x14
0047 e003 | | Load 0x0,0x3
0048 0387 | | Declare_Variable Package
0049 00d8 | | Load_Top At_Offset_0
004a 020f | | Execute Module,Activate
004b 00ea | | Load_Encached Null_String_Cache
004c 0092 0618 | | Action Push_String_Extended,0x618 ; "*** Undefined"
004e 0092 0619 | | Action Push_String_Extended,0x619 ; "*** Unspecified"
0050 0092 061a | | Action Push_String_Extended,0x61a ; "*** Unallocated"
0052 0092 061b | | Action Push_String_Extended,0x61b ; "*** Unsatisfied"
0054 029d 0563 | c| Declare_Subprogram INIT_0560,For_Outer_Call
0056 029d 0583 | | Declare_Subprogram INIT_0580,For_Outer_Call
0058 029d 05b3 | | Declare_Subprogram INIT_05b0,For_Outer_Call
005a 029d 05eb | | Declare_Subprogram INIT_05e8,For_Outer_Call
005c 1d0d | | Execute_Immediate Reference_Lex_1,0xd
005d 00c7 | | Action Elaborate_Subprogram
005e 1d0e | | Execute_Immediate Reference_Lex_1,0xe
005f 00c7 | | Action Elaborate_Subprogram
0060 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0061 00c7 | | Action Elaborate_Subprogram
0062 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0063 00c7 | | Action Elaborate_Subprogram
0064 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0065 00c7 | | Action Elaborate_Subprogram
0066 1d12 | | Execute_Immediate Reference_Lex_1,0x12
0067 00c7 | | Action Elaborate_Subprogram
0068 1d13 | | Execute_Immediate Reference_Lex_1,0x13
0069 00c7 | | Action Elaborate_Subprogram
006a 1d14 | | Execute_Immediate Reference_Lex_1,0x14
006b 00c7 | | Action Elaborate_Subprogram
006c 1d15 | | Execute_Immediate Reference_Lex_1,0x15
006d 00c7 | | Action Elaborate_Subprogram
006e 1d16 | | Execute_Immediate Reference_Lex_1,0x16
006f 00c7 | | Action Elaborate_Subprogram
0070 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0071 00c7 | | Action Elaborate_Subprogram
0072 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0073 00c7 | | Action Elaborate_Subprogram
0074 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0075 00c7 | | Action Elaborate_Subprogram
0076 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
0077 00c7 | | Action Elaborate_Subprogram
0078 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
0079 00c7 | | Action Elaborate_Subprogram
007a 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
007b 00c7 | | Action Elaborate_Subprogram
007c 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
007d 00c7 | | Action Elaborate_Subprogram
007e 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
007f 00c7 | | Action Elaborate_Subprogram
0080 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
0081 00c7 | | Action Elaborate_Subprogram
0082 1d20 | | Execute_Immediate Reference_Lex_1,0x20
0083 00c7 | | Action Elaborate_Subprogram
0084 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
0085 00c7 | | Action Elaborate_Subprogram
0086 1d22 | " | Execute_Immediate Reference_Lex_1,0x22
0087 00c7 | | Action Elaborate_Subprogram
0088 1d23 | # | Execute_Immediate Reference_Lex_1,0x23
0089 00c7 | | Action Elaborate_Subprogram
008a 1d24 | $ | Execute_Immediate Reference_Lex_1,0x24
008b 00c7 | | Action Elaborate_Subprogram
008c 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
008d 00c7 | | Action Elaborate_Subprogram
008e 1d26 | & | Execute_Immediate Reference_Lex_1,0x26
008f 00c7 | | Action Elaborate_Subprogram
0090 1d27 | ' | Execute_Immediate Reference_Lex_1,0x27
0091 00c7 | | Action Elaborate_Subprogram
0092 1d28 | ( | Execute_Immediate Reference_Lex_1,0x28
0093 00c7 | | Action Elaborate_Subprogram
0094 BODY_0008:
0094 00bc | | Action Signal_Activated
0095 00bb | | Action Signal_Completion
0096 0000 0000 | | .XXX[0x2]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009e | | .CONST 0x009e ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 0002 | | .CONST 0x0002 ; Number of locals
009b INIT_0098:
009b e004 | | Load 0x0,0x4
009c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
009d 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
009e BODY_0098:
009e 00db | | Load_Top At_Offset_3
009f e5fe | | Load 0x2,-0x2
00a0 e005 | | Load 0x0,0x5
00a1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a2 180d | | Execute Package,Field_Execute,Field_Number 0xd
00a3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
00a4 e5fe | | Load 0x2,-0x2
00a5 00d8 | | Load_Top At_Offset_0
00a6 0d28 | ( | Execute_Immediate Less,0x28
00a7 7012 |p | Jump_Nonzero 0xba
00a8 00d8 | | Load_Top At_Offset_0
00a9 0c31 | 1 | Execute_Immediate Greater_Equal,0x31
00aa 7007 |p | Jump_Nonzero 0xb2
00ab 00d1 | | Pop_Control Pop_Count_1
00ac 00ea | | Load_Encached Null_String_Cache
00ad 00d9 | | Load_Top At_Offset_1
00ae e005 | | Load 0x0,0x5
00af 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00b0 180f | | Execute Package,Field_Execute,Field_Number 0xf
00b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00b2 00d8 | | Load_Top At_Offset_0
00b3 0c33 | 3 | Execute_Immediate Greater_Equal,0x33
00b4 680c |h | Jump_Zero 0xc1
00b5 4838 |H8 | Short_Literal 0x38
00b6 483a |H: | Short_Literal 0x3a
00b7 0262 | b | Execute Discrete,In_Range
00b8 7022 |p" | Jump_Nonzero 0xdb
00b9 7ff2 | | Jump 0xac
00ba 0b09 | | Execute_Immediate Case_Compare,0x9
00bb 7017 |p | Jump_Nonzero 0xd3
00bc 4826 |H& | Short_Literal 0x26
00bd 4827 |H' | Short_Literal 0x27
00be 0262 | b | Execute Discrete,In_Range
00bf 7009 |p | Jump_Nonzero 0xc9
00c0 7feb | | Jump 0xac
00c1 00d1 | | Pop_Control Pop_Count_1
00c2 0092 061c | | Action Push_String_Extended,0x61c ; "N/A"
00c4 00d9 | | Load_Top At_Offset_1
00c5 e005 | | Load 0x0,0x5
00c6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00c7 180f | | Execute Package,Field_Execute,Field_Number 0xf
00c8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00c9 0092 061d | | Action Push_String_Extended,0x61d ; "None"
00cb 00d9 | | Load_Top At_Offset_1
00cc e005 | | Load 0x0,0x5
00cd 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ce 180f | | Execute Package,Field_Execute,Field_Number 0xf
00cf e005 | | Load 0x0,0x5
00d0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d1 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00d2 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00d3 00d1 | | Pop_Control Pop_Count_1
00d4 0092 061e | | Action Push_String_Extended,0x61e ; "<UNDEFINED_ID>"
00d6 00d9 | | Load_Top At_Offset_1
00d7 e005 | | Load 0x0,0x5
00d8 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00d9 180f | | Execute Package,Field_Execute,Field_Number 0xf
00da 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00db 00ea | | Load_Encached Null_String_Cache
00dc 00d9 | | Load_Top At_Offset_1
00dd e005 | | Load 0x0,0x5
00de 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00df 180f | | Execute Package,Field_Execute,Field_Number 0xf
00e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e1 0000 0000 | | .BLANK 0000[0x7]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0157 | W | .CONST 0x0157 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 00db | | Load_Top At_Offset_3
00ec 00d8 | | Load_Top At_Offset_0
00ed 0c10 | | Execute_Immediate Greater_Equal,0x10
00ee 701b |p | Jump_Nonzero 0x10a
00ef 460f |F | Jump_Case 0x10
00f0 781d |x | Jump 0x10e ; case 0x0
00f1 7820 |x | Jump 0x112 ; case 0x1
00f2 7818 |x | Jump 0x10b ; case 0x2
00f3 7817 |x | Jump 0x10b ; case 0x3
00f4 785e |x^ | Jump 0x153 ; case 0x4
00f5 782e |x. | Jump 0x124 ; case 0x5
00f6 7836 |x6 | Jump 0x12d ; case 0x6
00f7 7813 |x | Jump 0x10b ; case 0x7
00f8 7812 |x | Jump 0x10b ; case 0x8
00f9 7811 |x | Jump 0x10b ; case 0x9
00fa 783a |x: | Jump 0x135 ; case 0xa
00fb 783f |x? | Jump 0x13b ; case 0xb
00fc 7844 |xD | Jump 0x141 ; case 0xc
00fd 7849 |xI | Jump 0x147 ; case 0xd
00fe 784e |xN | Jump 0x14d ; case 0xe
00ff 7800 |x | Jump 0x100 ; case 0xf
0100 4801 |H | Short_Literal 0x1
0101 e006 | | Load 0x0,0x6
0102 1b89 | | Execute Package,Field_Read,Field_Number 0x89
0103 e5ff | | Load 0x2,-0x1
0104 e005 | | Load 0x0,0x5
0105 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0106 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0107 e007 | | Load 0x0,0x7
0108 180f | | Execute Package,Field_Execute,Field_Number 0xf
0109 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010a 00d1 | | Pop_Control Pop_Count_1
010b 0092 061f | | Action Push_String_Extended,0x61f ; "<UNKNOWN>"
010d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
010e 00da | | Load_Top At_Offset_2
010f e008 | | Load 0x0,0x8
0110 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0111 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0112 00da | | Load_Top At_Offset_2
0113 e008 | | Load 0x0,0x8
0114 180f | | Execute Package,Field_Execute,Field_Number 0xf
0115 6803 |h | Jump_Zero 0x119
0116 0092 0620 | | Action Push_String_Extended,0x620 ; "<NIL>"
0118 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0119 4801 |H | Short_Literal 0x1
011a e006 | | Load 0x0,0x6
011b 1b89 | | Execute Package,Field_Read,Field_Number 0x89
011c 00ea | | Load_Encached Null_String_Cache
011d e5ff | | Load 0x2,-0x1
011e e005 | | Load 0x0,0x5
011f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0120 180d | | Execute Package,Field_Execute,Field_Number 0xd
0121 e007 | | Load 0x0,0x7
0122 180f | | Execute Package,Field_Execute,Field_Number 0xf
0123 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0124 00da | | Load_Top At_Offset_2
0125 e008 | | Load 0x0,0x8
0126 180f | | Execute Package,Field_Execute,Field_Number 0xf
0127 6803 |h | Jump_Zero 0x12b
0128 0092 0621 | !| Action Push_String_Extended,0x621 ; "*** Could not be found in library."
012a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012b 00ea | | Load_Encached Null_String_Cache
012c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
012d 00ea | | Load_Encached Null_String_Cache
012e 00db | | Load_Top At_Offset_3
012f 4814 |H | Short_Literal 0x14
0130 8230 | 0 | Call 0x1,0x30
0131 e005 | | Load 0x0,0x5
0132 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0133 180f | | Execute Package,Field_Execute,Field_Number 0xf
0134 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0135 00ea | | Load_Encached Null_String_Cache
0136 00db | | Load_Top At_Offset_3
0137 e005 | | Load 0x0,0x5
0138 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0139 180f | | Execute Package,Field_Execute,Field_Number 0xf
013a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
013b 00ea | | Load_Encached Null_String_Cache
013c 00db | | Load_Top At_Offset_3
013d e005 | | Load 0x0,0x5
013e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
013f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0140 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0141 4801 |H | Short_Literal 0x1
0142 00db | | Load_Top At_Offset_3
0143 e005 | | Load 0x0,0x5
0144 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0145 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0146 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0147 4801 |H | Short_Literal 0x1
0148 00db | | Load_Top At_Offset_3
0149 e005 | | Load 0x0,0x5
014a 1b0f | | Execute Package,Field_Read,Field_Number 0xf
014b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
014c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
014d 4801 |H | Short_Literal 0x1
014e 00db | | Load_Top At_Offset_3
014f e005 | | Load 0x0,0x5
0150 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0151 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0152 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0153 4809 |H | Short_Literal 0x9
0154 00db | | Load_Top At_Offset_3
0155 820d | | Call 0x1,0xd
0156 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0157 TRAP_00e8:
0157 0007 | | Action Break_Optional
0158 0092 061f | | Action Push_String_Extended,0x61f ; "<UNKNOWN>"
015a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
015b 0000 0000 | | .BLANK 0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163 | c | .CONST 0x0163 ; Address of begin
0161 0004 | | .CONST 0x0004 ; Address of exception handler
0162 0001 | | .CONST 0x0001 ; Number of locals
0163 BODY_0160:
0163 INIT_0160:
0163 0092 0622 | "| Action Push_String_Extended,0x622 ; ", "
0165 0092 0623 | #| Action Push_String_Extended,0x623 ; "<NIL LIST>"
0167 e5ff | | Load 0x2,-0x1
0168 e005 | | Load 0x0,0x5
0169 1b0f | | Execute Package,Field_Read,Field_Number 0xf
016a 180e | | Execute Package,Field_Execute,Field_Number 0xe
016b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 00da | | Load_Top At_Offset_2
0174 e009 | | Load 0x0,0x9
0175 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0176 e5fe | | Load 0x2,-0x2
0177 8231 | 1 | Call 0x1,0x31
0178 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0179 0000 0000 | | .BLANK 0000[0x7]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 00db | | Load_Top At_Offset_3
0184 00d8 | | Load_Top At_Offset_0
0185 0c0b | | Execute_Immediate Greater_Equal,0xb
0186 7012 |p | Jump_Nonzero 0x199
0187 460a |F | Jump_Case 0xb
0188 7829 |x) | Jump 0x1b2 ; case 0x0
0189 7813 |x | Jump 0x19d ; case 0x1
018a 781b |x | Jump 0x1a6 ; case 0x2
018b 781e |x | Jump 0x1aa ; case 0x3
018c 783d |x= | Jump 0x1ca ; case 0x4
018d 7824 |x$ | Jump 0x1b2 ; case 0x5
018e 7823 |x# | Jump 0x1b2 ; case 0x6
018f 7828 |x( | Jump 0x1b8 ; case 0x7
0190 783d |x= | Jump 0x1ce ; case 0x8
0191 784d |xM | Jump 0x1df ; case 0x9
0192 7800 |x | Jump 0x193 ; case 0xa
0193 00da | | Load_Top At_Offset_2
0194 e009 | | Load 0x0,0x9
0195 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
0196 e00a | | Load 0x0,0xa
0197 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0198 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0199 00d1 | | Pop_Control Pop_Count_1
019a 0092 061f | | Action Push_String_Extended,0x61f ; "<UNKNOWN>"
019c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
019d 4801 |H | Short_Literal 0x1
019e e006 | | Load 0x0,0x6
019f 1b89 | | Execute Package,Field_Read,Field_Number 0x89
01a0 e5ff | | Load 0x2,-0x1
01a1 e009 | | Load 0x0,0x9
01a2 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01a3 e007 | | Load 0x0,0x7
01a4 180f | | Execute Package,Field_Execute,Field_Number 0xf
01a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01a6 00da | | Load_Top At_Offset_2
01a7 e009 | | Load 0x0,0x9
01a8 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
01a9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01aa 4820 |H | Short_Literal 0x20
01ab 4800 |H | Short_Literal 0x0
01ac 480a |H | Short_Literal 0xa
01ad e5ff | | Load 0x2,-0x1
01ae e009 | | Load 0x0,0x9
01af 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01b0 800b | | Call 0x0,0xb
01b1 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b2 00db | | Load_Top At_Offset_3
01b3 00db | | Load_Top At_Offset_3
01b4 e009 | | Load 0x0,0x9
01b5 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
01b6 820e | | Call 0x1,0xe
01b7 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01b8 4829 |H) | Short_Literal 0x29
01b9 4801 |H | Short_Literal 0x1
01ba e006 | | Load 0x0,0x6
01bb 1b89 | | Execute Package,Field_Read,Field_Number 0x89
01bc e5ff | | Load 0x2,-0x1
01bd e009 | | Load 0x0,0x9
01be 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01bf e007 | | Load 0x0,0x7
01c0 180f | | Execute Package,Field_Execute,Field_Number 0xf
01c1 0092 0624 | $| Action Push_String_Extended,0x624 ; " ("
01c3 01cc | | Execute Vector,Catenate
01c4 e5ff | | Load 0x2,-0x1
01c5 e009 | | Load 0x0,0x9
01c6 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
01c7 01cc | | Execute Vector,Catenate
01c8 01cb | | Execute Vector,Append
01c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ca 00da | | Load_Top At_Offset_2
01cb e009 | | Load 0x0,0x9
01cc 185d | ] | Execute Package,Field_Execute,Field_Number 0x5d
01cd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01ce 4820 |H | Short_Literal 0x20
01cf 4801 |H | Short_Literal 0x1
01d0 e006 | | Load 0x0,0x6
01d1 1b89 | | Execute Package,Field_Read,Field_Number 0x89
01d2 e5ff | | Load 0x2,-0x1
01d3 e009 | | Load 0x0,0x9
01d4 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01d5 e007 | | Load 0x0,0x7
01d6 180f | | Execute Package,Field_Execute,Field_Number 0xf
01d7 01cb | | Execute Vector,Append
01d8 00db | | Load_Top At_Offset_3
01d9 e009 | | Load 0x0,0x9
01da 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01db e009 | | Load 0x0,0x9
01dc 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
01dd 01cc | | Execute Vector,Catenate
01de 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01df 4820 |H | Short_Literal 0x20
01e0 00db | | Load_Top At_Offset_3
01e1 e009 | | Load 0x0,0x9
01e2 1832 | 2 | Execute Package,Field_Execute,Field_Number 0x32
01e3 e009 | | Load 0x0,0x9
01e4 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
01e5 01cb | | Execute Vector,Append
01e6 4801 |H | Short_Literal 0x1
01e7 e006 | | Load 0x0,0x6
01e8 1b89 | | Execute Package,Field_Read,Field_Number 0x89
01e9 e5ff | | Load 0x2,-0x1
01ea e009 | | Load 0x0,0x9
01eb 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
01ec e007 | | Load 0x0,0x7
01ed 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ee 01cc | | Execute Vector,Catenate
01ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00da | | Load_Top At_Offset_2
01f4 e00c | | Load 0x0,0xc
01f5 1850 | P | Execute Package,Field_Execute,Field_Number 0x50
01f6 e5fe | | Load 0x2,-0x2
01f7 8231 | 1 | Call 0x1,0x31
01f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0209 | | .CONST 0x0209 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0003 | | .CONST 0x0003 ; Number of locals
0203 INIT_0200:
0203 e00c | | Load 0x0,0xc
0204 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0205 02c7 | | Declare_Variable Any
0206 00d8 | | Load_Top At_Offset_0
0207 1c00 | | Execute_Immediate Run_Utility,0x0
0208 00e1 | | Load_Encached Boolean_Cache
0209 BODY_0200:
0209 e5fe | | Load 0x2,-0x2
020a 00d8 | | Load_Top At_Offset_0
020b 0c0b | | Execute_Immediate Greater_Equal,0xb
020c 7014 |p | Jump_Nonzero 0x221
020d 460a |F | Jump_Case 0xb
020e 7816 |x | Jump 0x225 ; case 0x0
020f 7817 |x | Jump 0x227 ; case 0x1
0210 782e |x. | Jump 0x23f ; case 0x2
0211 783c |x< | Jump 0x24e ; case 0x3
0212 785d |x] | Jump 0x270 ; case 0x4
0213 7842 |xB | Jump 0x256 ; case 0x5
0214 780d |x | Jump 0x222 ; case 0x6
0215 787c |x| | Jump 0x292 ; case 0x7
0216 7871 |xq | Jump 0x288 ; case 0x8
0217 785c |x\ | Jump 0x274 ; case 0x9
0218 7800 |x | Jump 0x219 ; case 0xa
0219 e5ff | | Load 0x2,-0x1
021a e00c | | Load 0x0,0xc
021b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
021c e00c | | Load 0x0,0xc
021d 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
021e e00d | | Load 0x0,0xd
021f 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0220 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0221 00d1 | | Pop_Control Pop_Count_1
0222 0092 061f | | Action Push_String_Extended,0x61f ; "<UNKNOWN>"
0224 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0225 00ea | | Load_Encached Null_String_Cache
0226 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0227 e5ff | | Load 0x2,-0x1
0228 e00c | | Load 0x0,0xc
0229 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
022a 0f0e | | Execute_Immediate Equal,0xe
022b 7009 |p | Jump_Nonzero 0x235
022c 4801 |H | Short_Literal 0x1
022d e006 | | Load 0x0,0x6
022e 1b89 | | Execute Package,Field_Read,Field_Number 0x89
022f e5ff | | Load 0x2,-0x1
0230 e00c | | Load 0x0,0xc
0231 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0232 e007 | | Load 0x0,0x7
0233 180f | | Execute Package,Field_Execute,Field_Number 0xf
0234 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0235 4801 |H | Short_Literal 0x1
0236 e006 | | Load 0x0,0x6
0237 1b89 | | Execute Package,Field_Read,Field_Number 0x89
0238 e5ff | | Load 0x2,-0x1
0239 e00c | | Load 0x0,0xc
023a 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
023b 822f | / | Call 0x1,0x2f
023c e007 | | Load 0x0,0x7
023d 180f | | Execute Package,Field_Execute,Field_Number 0xf
023e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
023f 4829 |H) | Short_Literal 0x29
0240 00ea | | Load_Encached Null_String_Cache
0241 e5ff | | Load 0x2,-0x1
0242 e00c | | Load 0x0,0xc
0243 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0244 821a | | Call 0x1,0x1a
0245 0092 0624 | $| Action Push_String_Extended,0x624 ; " ("
0247 01cc | | Execute Vector,Catenate
0248 4803 |H | Short_Literal 0x3
0249 e5ff | | Load 0x2,-0x1
024a 8213 | | Call 0x1,0x13
024b 01cc | | Execute Vector,Catenate
024c 01cb | | Execute Vector,Append
024d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
024e 4820 |H | Short_Literal 0x20
024f 4800 |H | Short_Literal 0x0
0250 480a |H | Short_Literal 0xa
0251 e5ff | | Load 0x2,-0x1
0252 e00c | | Load 0x0,0xc
0253 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0254 800b | | Call 0x0,0xb
0255 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0256 e5ff | | Load 0x2,-0x1
0257 e00c | | Load 0x0,0xc
0258 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0259 7002 |p | Jump_Nonzero 0x25c
025a e22b | + | Load 0x1,0x2b
025b 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
025c e5ff | | Load 0x2,-0x1
025d e00c | | Load 0x0,0xc
025e 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
025f 7002 |p | Jump_Nonzero 0x262
0260 e22c | , | Load 0x1,0x2c
0261 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0262 e5ff | | Load 0x2,-0x1
0263 e00c | | Load 0x0,0xc
0264 184e | N | Execute Package,Field_Execute,Field_Number 0x4e
0265 7002 |p | Jump_Nonzero 0x268
0266 e22d | - | Load 0x1,0x2d
0267 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0268 e5ff | | Load 0x2,-0x1
0269 e00c | | Load 0x0,0xc
026a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
026b 7002 |p | Jump_Nonzero 0x26e
026c e22e | . | Load 0x1,0x2e
026d 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
026e e22a | * | Load 0x1,0x2a
026f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0270 e5ff | | Load 0x2,-0x1
0271 e00c | | Load 0x0,0xc
0272 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
0273 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0274 4822 |H" | Short_Literal 0x22
0275 e5ff | | Load 0x2,-0x1
0276 e00c | | Load 0x0,0xc
0277 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0278 e00c | | Load 0x0,0xc
0279 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
027a 0092 0625 | %| Action Push_String_Extended,0x625 ; " \x22"
027c 01cc | | Execute Vector,Catenate
027d 4801 |H | Short_Literal 0x1
027e e006 | | Load 0x0,0x6
027f 1b89 | | Execute Package,Field_Read,Field_Number 0x89
0280 e5ff | | Load 0x2,-0x1
0281 e00c | | Load 0x0,0xc
0282 1878 | x | Execute Package,Field_Execute,Field_Number 0x78
0283 e007 | | Load 0x0,0x7
0284 180f | | Execute Package,Field_Execute,Field_Number 0xf
0285 01cc | | Execute Vector,Catenate
0286 01cb | | Execute Vector,Append
0287 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0288 4820 |H | Short_Literal 0x20
0289 4801 |H | Short_Literal 0x1
028a e5ff | | Load 0x2,-0x1
028b 8213 | | Call 0x1,0x13
028c 01cb | | Execute Vector,Append
028d 480a |H | Short_Literal 0xa
028e e5ff | | Load 0x2,-0x1
028f 8213 | | Call 0x1,0x13
0290 01cc | | Execute Vector,Catenate
0291 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0292 4829 |H) | Short_Literal 0x29
0293 4801 |H | Short_Literal 0x1
0294 e5ff | | Load 0x2,-0x1
0295 8213 | | Call 0x1,0x13
0296 0092 0624 | $| Action Push_String_Extended,0x624 ; " ("
0298 01cc | | Execute Vector,Catenate
0299 e5ff | | Load 0x2,-0x1
029a e00c | | Load 0x0,0xc
029b 1851 | Q | Execute Package,Field_Execute,Field_Number 0x51
029c 01cc | | Execute Vector,Catenate
029d 01cb | | Execute Vector,Append
029e 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
029f 0000 | | .XXX[0x1]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a3 | | .CONST 0x02a3 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0001 | | .CONST 0x0001 ; Number of locals
02a3 BODY_02a0:
02a3 INIT_02a0:
02a3 00da | | Load_Top At_Offset_2
02a4 e00e | | Load 0x0,0xe
02a5 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
02a6 e5fe | | Load 0x2,-0x2
02a7 8231 | 1 | Call 0x1,0x31
02a8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02a9 0000 0000 | | .BLANK 0000[0x7]
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 00db | | Load_Top At_Offset_3
02b4 00d8 | | Load_Top At_Offset_0
02b5 0c0f | | Execute_Immediate Greater_Equal,0xf
02b6 7016 |p | Jump_Nonzero 0x2cd
02b7 460e |F | Jump_Case 0xf
02b8 780e |x | Jump 0x2c7 ; case 0x0
02b9 7817 |x | Jump 0x2d1 ; case 0x1
02ba 7813 |x | Jump 0x2ce ; case 0x2
02bb 7812 |x | Jump 0x2ce ; case 0x3
02bc 781d |x | Jump 0x2da ; case 0x4
02bd 7832 |x2 | Jump 0x2f0 ; case 0x5
02be 7808 |x | Jump 0x2c7 ; case 0x6
02bf 781e |x | Jump 0x2de ; case 0x7
02c0 780d |x | Jump 0x2ce ; case 0x8
02c1 780c |x | Jump 0x2ce ; case 0x9
02c2 7804 |x | Jump 0x2c7 ; case 0xa
02c3 7803 |x | Jump 0x2c7 ; case 0xb
02c4 7802 |x | Jump 0x2c7 ; case 0xc
02c5 7808 |x | Jump 0x2ce ; case 0xd
02c6 7800 |x | Jump 0x2c7 ; case 0xe
02c7 00db | | Load_Top At_Offset_3
02c8 00db | | Load_Top At_Offset_3
02c9 e00e | | Load 0x0,0xe
02ca 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02cb 820e | | Call 0x1,0xe
02cc 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02cd 00d1 | | Pop_Control Pop_Count_1
02ce 0092 061f | | Action Push_String_Extended,0x61f ; "<UNKNOWN>"
02d0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02d1 4801 |H | Short_Literal 0x1
02d2 e006 | | Load 0x0,0x6
02d3 1b89 | | Execute Package,Field_Read,Field_Number 0x89
02d4 e5ff | | Load 0x2,-0x1
02d5 e00e | | Load 0x0,0xe
02d6 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02d7 e007 | | Load 0x0,0x7
02d8 180f | | Execute Package,Field_Execute,Field_Number 0xf
02d9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02da 00da | | Load_Top At_Offset_2
02db e00e | | Load 0x0,0xe
02dc 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02dd 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02de 4829 |H) | Short_Literal 0x29
02df 4801 |H | Short_Literal 0x1
02e0 e006 | | Load 0x0,0x6
02e1 1b89 | | Execute Package,Field_Read,Field_Number 0x89
02e2 e5ff | | Load 0x2,-0x1
02e3 e00e | | Load 0x0,0xe
02e4 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
02e5 e007 | | Load 0x0,0x7
02e6 180f | | Execute Package,Field_Execute,Field_Number 0xf
02e7 0092 0624 | $| Action Push_String_Extended,0x624 ; " ("
02e9 01cc | | Execute Vector,Catenate
02ea e5ff | | Load 0x2,-0x1
02eb e00e | | Load 0x0,0xe
02ec 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
02ed 01cc | | Execute Vector,Catenate
02ee 01cb | | Execute Vector,Append
02ef 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f0 00da | | Load_Top At_Offset_2
02f1 e00e | | Load 0x0,0xe
02f2 181e | | Execute Package,Field_Execute,Field_Number 0x1e
02f3 e008 | | Load 0x0,0x8
02f4 180f | | Execute Package,Field_Execute,Field_Number 0xf
02f5 6803 |h | Jump_Zero 0x2f9
02f6 0092 0626 | &| Action Push_String_Extended,0x626 ; "*** Datum could not be found"
02f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02f9 00ea | | Load_Encached Null_String_Cache
02fa 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
02fb 0000 0000 | | .BLANK 0000[0x5]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0303 | | .CONST 0x0303 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0001 | | .CONST 0x0001 ; Number of locals
0303 BODY_0300:
0303 INIT_0300:
0303 00da | | Load_Top At_Offset_2
0304 e00f | | Load 0x0,0xf
0305 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0306 e5fe | | Load 0x2,-0x2
0307 8231 | 1 | Call 0x1,0x31
0308 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0309 0000 0000 | | .BLANK 0000[0x7]
0310 ; --------------------------------------------------------------------------------------
0310 ; SUBPROGRAM
0310 ; --------------------------------------------------------------------------------------
0310 0313 | | .CONST 0x0313 ; Address of begin
0311 0004 | | .CONST 0x0004 ; Address of exception handler
0312 0001 | | .CONST 0x0001 ; Number of locals
0313 BODY_0310:
0313 INIT_0310:
0313 00db | | Load_Top At_Offset_3
0314 00d8 | | Load_Top At_Offset_0
0315 0c0f | | Execute_Immediate Greater_Equal,0xf
0316 7016 |p | Jump_Nonzero 0x32d
0317 460e |F | Jump_Case 0xf
0318 780e |x | Jump 0x327 ; case 0x0
0319 7817 |x | Jump 0x331 ; case 0x1
031a 7813 |x | Jump 0x32e ; case 0x2
031b 7812 |x | Jump 0x32e ; case 0x3
031c 7811 |x | Jump 0x32e ; case 0x4
031d 781c |x | Jump 0x33a ; case 0x5
031e 7808 |x | Jump 0x327 ; case 0x6
031f 780e |x | Jump 0x32e ; case 0x7
0320 780d |x | Jump 0x32e ; case 0x8
0321 780c |x | Jump 0x32e ; case 0x9
0322 7804 |x | Jump 0x327 ; case 0xa
0323 7803 |x | Jump 0x327 ; case 0xb
0324 7802 |x | Jump 0x327 ; case 0xc
0325 7808 |x | Jump 0x32e ; case 0xd
0326 7800 |x | Jump 0x327 ; case 0xe
0327 00db | | Load_Top At_Offset_3
0328 00db | | Load_Top At_Offset_3
0329 e00f | | Load 0x0,0xf
032a 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
032b 820e | | Call 0x1,0xe
032c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
032d 00d1 | | Pop_Control Pop_Count_1
032e 0092 061f | | Action Push_String_Extended,0x61f ; "<UNKNOWN>"
0330 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0331 4801 |H | Short_Literal 0x1
0332 e006 | | Load 0x0,0x6
0333 1b89 | | Execute Package,Field_Read,Field_Number 0x89
0334 e5ff | | Load 0x2,-0x1
0335 e00f | | Load 0x0,0xf
0336 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0337 e007 | | Load 0x0,0x7
0338 180f | | Execute Package,Field_Execute,Field_Number 0xf
0339 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
033a 00da | | Load_Top At_Offset_2
033b e00f | | Load 0x0,0xf
033c 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
033d e008 | | Load 0x0,0x8
033e 180f | | Execute Package,Field_Execute,Field_Number 0xf
033f 6803 |h | Jump_Zero 0x343
0340 0092 0627 | '| Action Push_String_Extended,0x627 ; "*** IO could not be found"
0342 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0343 00ea | | Load_Encached Null_String_Cache
0344 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0345 0000 0000 | | .XXX[0x3]
0347 0000 | |
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 00da | | Load_Top At_Offset_2
034c e010 | | Load 0x0,0x10
034d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
034e e5fe | | Load 0x2,-0x2
034f 8231 | 1 | Call 0x1,0x31
0350 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0351 0000 0000 | | .BLANK 0000[0x7]
0358 ; --------------------------------------------------------------------------------------
0358 ; SUBPROGRAM
0358 ; --------------------------------------------------------------------------------------
0358 035b | [ | .CONST 0x035b ; Address of begin
0359 0004 | | .CONST 0x0004 ; Address of exception handler
035a 0001 | | .CONST 0x0001 ; Number of locals
035b BODY_0358:
035b INIT_0358:
035b 00db | | Load_Top At_Offset_3
035c 0b01 | | Execute_Immediate Case_Compare,0x1
035d 7009 |p | Jump_Nonzero 0x367
035e 0b05 | | Execute_Immediate Case_Compare,0x5
035f 7011 |p | Jump_Nonzero 0x371
0360 0b00 | | Execute_Immediate Case_Compare,0x0
0361 701b |p | Jump_Nonzero 0x37d
0362 0f06 | | Execute_Immediate Equal,0x6
0363 701a |p | Jump_Nonzero 0x37e
0364 0092 061f | | Action Push_String_Extended,0x61f ; "<UNKNOWN>"
0366 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0367 00d1 | | Pop_Control Pop_Count_1
0368 4801 |H | Short_Literal 0x1
0369 e006 | | Load 0x0,0x6
036a 1b89 | | Execute Package,Field_Read,Field_Number 0x89
036b e5ff | | Load 0x2,-0x1
036c e010 | | Load 0x0,0x10
036d 1820 | | Execute Package,Field_Execute,Field_Number 0x20
036e e007 | | Load 0x0,0x7
036f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0370 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0371 00d1 | | Pop_Control Pop_Count_1
0372 00da | | Load_Top At_Offset_2
0373 e010 | | Load 0x0,0x10
0374 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0375 e008 | | Load 0x0,0x8
0376 180f | | Execute Package,Field_Execute,Field_Number 0xf
0377 6803 |h | Jump_Zero 0x37b
0378 0092 0628 | (| Action Push_String_Extended,0x628 ; "*** Interrupt could not be found"
037a 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
037b 00ea | | Load_Encached Null_String_Cache
037c 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
037d 00d1 | | Pop_Control Pop_Count_1
037e 00db | | Load_Top At_Offset_3
037f 00db | | Load_Top At_Offset_3
0380 e010 | | Load 0x0,0x10
0381 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0382 820e | | Call 0x1,0xe
0383 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0384 0000 0000 | | .BLANK 0000[0x4]
0388 ; --------------------------------------------------------------------------------------
0388 ; SUBPROGRAM
0388 ; --------------------------------------------------------------------------------------
0388 0399 | | .CONST 0x0399 ; Address of begin
0389 0004 | | .CONST 0x0004 ; Address of exception handler
038a 0004 | | .CONST 0x0004 ; Number of locals
038b INIT_0388:
038b e011 | | Load 0x0,0x11
038c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
038d 02c7 | | Declare_Variable Any
038e 00d8 | | Load_Top At_Offset_0
038f 1c00 | | Execute_Immediate Run_Utility,0x0
0390 e012 | | Load 0x0,0x12
0391 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0392 02c7 | | Declare_Variable Any
0393 00d8 | | Load_Top At_Offset_0
0394 1c00 | | Execute_Immediate Run_Utility,0x0
0395 4820 |H | Short_Literal 0x20
0396 e5fe | | Load 0x2,-0x2
0397 e00d | | Load 0x0,0xd
0398 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0399 BODY_0388:
0399 00d8 | | Load_Top At_Offset_0
039a 01db | | Execute Vector,Length
039b 0c01 | | Execute_Immediate Greater_Equal,0x1
039c 6810 |h | Jump_Zero 0x3ad
039d 00d8 | | Load_Top At_Offset_0
039e 01dd | | Execute Vector,First
039f 00d9 | | Load_Top At_Offset_1
03a0 01d7 | | Execute Vector,Field_Read
03a1 4830 |H0 | Short_Literal 0x30
03a2 4839 |H9 | Short_Literal 0x39
03a3 0262 | b | Execute Discrete,In_Range
03a4 6808 |h | Jump_Zero 0x3ad
03a5 4820 |H | Short_Literal 0x20
03a6 e5ff | | Load 0x2,-0x1
03a7 e013 | | Load 0x0,0x13
03a8 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03a9 01cb | | Execute Vector,Append
03aa 00d9 | | Load_Top At_Offset_1
03ab 01cc | | Execute Vector,Catenate
03ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ad 00d9 | | Load_Top At_Offset_1
03ae 00db | | Load_Top At_Offset_3
03af 4802 |H | Short_Literal 0x2
03b0 e5ff | | Load 0x2,-0x1
03b1 e013 | | Load 0x0,0x13
03b2 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
03b3 e011 | | Load 0x0,0x11
03b4 1817 | | Execute Package,Field_Execute,Field_Number 0x17
03b5 c402 | | Store 0x2,0x2
03b6 c403 | | Store 0x2,0x3
03b7 00d9 | | Load_Top At_Offset_1
03b8 00db | | Load_Top At_Offset_3
03b9 00da | | Load_Top At_Offset_2
03ba 4800 |H | Short_Literal 0x0
03bb e011 | | Load 0x0,0x11
03bc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
03bd c402 | | Store 0x2,0x2
03be c403 | | Store 0x2,0x3
03bf 4820 |H | Short_Literal 0x20
03c0 e5ff | | Load 0x2,-0x1
03c1 e013 | | Load 0x0,0x13
03c2 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
03c3 01cb | | Execute Vector,Append
03c4 4801 |H | Short_Literal 0x1
03c5 e402 | | Load 0x2,0x2
03c6 e011 | | Load 0x0,0x11
03c7 181d | | Execute Package,Field_Execute,Field_Number 0x1d
03c8 01cc | | Execute Vector,Catenate
03c9 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
03ca 0000 0000 | | .BLANK 0000[0x6]
03d0 ; --------------------------------------------------------------------------------------
03d0 ; SUBPROGRAM
03d0 ; --------------------------------------------------------------------------------------
03d0 03db | | .CONST 0x03db ; Address of begin
03d1 0004 | | .CONST 0x0004 ; Address of exception handler
03d2 0003 | | .CONST 0x0003 ; Number of locals
03d3 INIT_03d0:
03d3 e004 | | Load 0x0,0x4
03d4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
03d5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
03d6 e014 | | Load 0x0,0x14
03d7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03d8 02c7 | | Declare_Variable Any
03d9 00d8 | | Load_Top At_Offset_0
03da 1c00 | | Execute_Immediate Run_Utility,0x0
03db BODY_03d0:
03db e5ff | | Load 0x2,-0x1
03dc e5fe | | Load 0x2,-0x2
03dd e005 | | Load 0x0,0x5
03de 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03df 180d | | Execute Package,Field_Execute,Field_Number 0xd
03e0 0032 | 2 | Store_Top Heap_Access,At_Offset_2
03e1 00d9 | | Load_Top At_Offset_1
03e2 e005 | | Load 0x0,0x5
03e3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
03e4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
03e5 c403 | | Store 0x2,0x3
03e6 00d8 | | Load_Top At_Offset_0
03e7 e014 | | Load 0x0,0x14
03e8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
03e9 00da | | Load_Top At_Offset_2
03ea e5fd | | Load 0x2,-0x3
03eb e006 | | Load 0x0,0x6
03ec 1819 | | Execute Package,Field_Execute,Field_Number 0x19
03ed e015 | | Load 0x0,0x15
03ee 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
03ef 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
03f0 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
03f1 0000 0000 | | .BLANK 0000[0x7]
03f8 ; --------------------------------------------------------------------------------------
03f8 ; SUBPROGRAM
03f8 ; --------------------------------------------------------------------------------------
03f8 0400 | | .CONST 0x0400 ; Address of begin
03f9 0004 | | .CONST 0x0004 ; Address of exception handler
03fa 0002 | | .CONST 0x0002 ; Number of locals
03fb INIT_03f8:
03fb e014 | | Load 0x0,0x14
03fc 1b12 | | Execute Package,Field_Read,Field_Number 0x12
03fd 02c7 | | Declare_Variable Any
03fe 00d8 | | Load_Top At_Offset_0
03ff 1c00 | | Execute_Immediate Run_Utility,0x0
0400 BODY_03f8:
0400 00db | | Load_Top At_Offset_3
0401 e008 | | Load 0x0,0x8
0402 180f | | Execute Package,Field_Execute,Field_Number 0xf
0403 6803 |h | Jump_Zero 0x407
0404 e015 | | Load 0x0,0x15
0405 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0406 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0407 e5fe | | Load 0x2,-0x2
0408 0b06 | | Execute_Immediate Case_Compare,0x6
0409 700a |p | Jump_Nonzero 0x414
040a 480a |H | Short_Literal 0xa
040b 480b |H | Short_Literal 0xb
040c 0262 | b | Execute Discrete,In_Range
040d 700f |p | Jump_Nonzero 0x41d
040e 00db | | Load_Top At_Offset_3
040f e005 | | Load 0x0,0x5
0410 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0411 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0412 c402 | | Store 0x2,0x2
0413 7810 |x | Jump 0x424
0414 00d1 | | Pop_Control Pop_Count_1
0415 00db | | Load_Top At_Offset_3
0416 4814 |H | Short_Literal 0x14
0417 8230 | 0 | Call 0x1,0x30
0418 e005 | | Load 0x0,0x5
0419 1b10 | | Execute Package,Field_Read,Field_Number 0x10
041a 1811 | | Execute Package,Field_Execute,Field_Number 0x11
041b c402 | | Store 0x2,0x2
041c 7807 |x | Jump 0x424
041d 00db | | Load_Top At_Offset_3
041e e016 | | Load 0x0,0x16
041f 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0420 e005 | | Load 0x0,0x5
0421 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0422 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0423 c402 | | Store 0x2,0x2
0424 00d8 | | Load_Top At_Offset_0
0425 e014 | | Load 0x0,0x14
0426 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0427 00da | | Load_Top At_Offset_2
0428 e5fd | | Load 0x2,-0x3
0429 e017 | | Load 0x0,0x17
042a e015 | | Load 0x0,0x15
042b 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
042c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
042d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
042e 0000 0000 | | .XXX[0x2]
0430 ; --------------------------------------------------------------------------------------
0430 ; SUBPROGRAM
0430 ; --------------------------------------------------------------------------------------
0430 0438 | 8 | .CONST 0x0438 ; Address of begin
0431 0004 | | .CONST 0x0004 ; Address of exception handler
0432 0002 | | .CONST 0x0002 ; Number of locals
0433 INIT_0430:
0433 e014 | | Load 0x0,0x14
0434 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0435 02c7 | | Declare_Variable Any
0436 00d8 | | Load_Top At_Offset_0
0437 1c00 | | Execute_Immediate Run_Utility,0x0
0438 BODY_0430:
0438 00db | | Load_Top At_Offset_3
0439 e008 | | Load 0x0,0x8
043a 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
043b 6803 |h | Jump_Zero 0x43f
043c e015 | | Load 0x0,0x15
043d 1b16 | | Execute Package,Field_Read,Field_Number 0x16
043e 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
043f 00db | | Load_Top At_Offset_3
0440 e005 | | Load 0x0,0x5
0441 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0442 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0443 c402 | | Store 0x2,0x2
0444 00d8 | | Load_Top At_Offset_0
0445 e014 | | Load 0x0,0x14
0446 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0447 00da | | Load_Top At_Offset_2
0448 e5fd | | Load 0x2,-0x3
0449 e017 | | Load 0x0,0x17
044a e015 | | Load 0x0,0x15
044b 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
044c 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
044d 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
044e 0000 0000 | | .XXX[0x2]
0450 ; --------------------------------------------------------------------------------------
0450 ; SUBPROGRAM
0450 ; --------------------------------------------------------------------------------------
0450 0458 | X | .CONST 0x0458 ; Address of begin
0451 0004 | | .CONST 0x0004 ; Address of exception handler
0452 0002 | | .CONST 0x0002 ; Number of locals
0453 INIT_0450:
0453 e014 | | Load 0x0,0x14
0454 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0455 02c7 | | Declare_Variable Any
0456 00d8 | | Load_Top At_Offset_0
0457 1c00 | | Execute_Immediate Run_Utility,0x0
0458 BODY_0450:
0458 00db | | Load_Top At_Offset_3
0459 e009 | | Load 0x0,0x9
045a 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
045b e5fe | | Load 0x2,-0x2
045c 8232 | 2 | Call 0x1,0x32
045d c402 | | Store 0x2,0x2
045e 00d8 | | Load_Top At_Offset_0
045f e014 | | Load 0x0,0x14
0460 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0461 00da | | Load_Top At_Offset_2
0462 e5fd | | Load 0x2,-0x3
0463 e017 | | Load 0x0,0x17
0464 e015 | | Load 0x0,0x15
0465 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0466 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0467 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0468 ; --------------------------------------------------------------------------------------
0468 ; SUBPROGRAM
0468 ; --------------------------------------------------------------------------------------
0468 046b | k | .CONST 0x046b ; Address of begin
0469 0004 | | .CONST 0x0004 ; Address of exception handler
046a 0001 | | .CONST 0x0001 ; Number of locals
046b BODY_0468:
046b INIT_0468:
046b e5fd | | Load 0x2,-0x3
046c e5fe | | Load 0x2,-0x2
046d e5ff | | Load 0x2,-0x1
046e e009 | | Load 0x0,0x9
046f 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0470 821c | | Call 0x1,0x1c
0471 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0472 0000 0000 | | .BLANK 0000[0x6]
0478 ; --------------------------------------------------------------------------------------
0478 ; SUBPROGRAM
0478 ; --------------------------------------------------------------------------------------
0478 0480 | | .CONST 0x0480 ; Address of begin
0479 0004 | | .CONST 0x0004 ; Address of exception handler
047a 0002 | | .CONST 0x0002 ; Number of locals
047b INIT_0478:
047b e014 | | Load 0x0,0x14
047c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
047d 02c7 | | Declare_Variable Any
047e 00d8 | | Load_Top At_Offset_0
047f 1c00 | | Execute_Immediate Run_Utility,0x0
0480 BODY_0478:
0480 00db | | Load_Top At_Offset_3
0481 e00c | | Load 0x0,0xc
0482 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0483 7003 |p | Jump_Nonzero 0x487
0484 e015 | | Load 0x0,0x15
0485 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0486 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0487 00d8 | | Load_Top At_Offset_0
0488 e014 | | Load 0x0,0x14
0489 1b0e | | Execute Package,Field_Read,Field_Number 0xe
048a e5ff | | Load 0x2,-0x1
048b e00c | | Load 0x0,0xc
048c 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
048d e014 | | Load 0x0,0x14
048e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
048f c402 | | Store 0x2,0x2
0490 00d8 | | Load_Top At_Offset_0
0491 e014 | | Load 0x0,0x14
0492 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0493 00da | | Load_Top At_Offset_2
0494 e5fd | | Load 0x2,-0x3
0495 e017 | | Load 0x0,0x17
0496 e015 | | Load 0x0,0x15
0497 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0498 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0499 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
049a 0000 0000 | | .BLANK 0000[0x6]
04a0 ; --------------------------------------------------------------------------------------
04a0 ; SUBPROGRAM
04a0 ; --------------------------------------------------------------------------------------
04a0 04a8 | | .CONST 0x04a8 ; Address of begin
04a1 0004 | | .CONST 0x0004 ; Address of exception handler
04a2 0002 | | .CONST 0x0002 ; Number of locals
04a3 INIT_04a0:
04a3 e014 | | Load 0x0,0x14
04a4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04a5 02c7 | | Declare_Variable Any
04a6 00d8 | | Load_Top At_Offset_0
04a7 1c00 | | Execute_Immediate Run_Utility,0x0
04a8 BODY_04a0:
04a8 00db | | Load_Top At_Offset_3
04a9 e00c | | Load 0x0,0xc
04aa 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
04ab 7003 |p | Jump_Nonzero 0x4af
04ac e015 | | Load 0x0,0x15
04ad 1b16 | | Execute Package,Field_Read,Field_Number 0x16
04ae 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04af 00d8 | | Load_Top At_Offset_0
04b0 e014 | | Load 0x0,0x14
04b1 1b0e | | Execute Package,Field_Read,Field_Number 0xe
04b2 e5ff | | Load 0x2,-0x1
04b3 e00c | | Load 0x0,0xc
04b4 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
04b5 e014 | | Load 0x0,0x14
04b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
04b7 c402 | | Store 0x2,0x2
04b8 00d8 | | Load_Top At_Offset_0
04b9 e014 | | Load 0x0,0x14
04ba 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04bb 00da | | Load_Top At_Offset_2
04bc e5fd | | Load 0x2,-0x3
04bd e017 | | Load 0x0,0x17
04be e015 | | Load 0x0,0x15
04bf 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
04c0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04c1 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04c2 0000 0000 | | .BLANK 0000[0x6]
04c8 ; --------------------------------------------------------------------------------------
04c8 ; SUBPROGRAM
04c8 ; --------------------------------------------------------------------------------------
04c8 04d0 | | .CONST 0x04d0 ; Address of begin
04c9 0004 | | .CONST 0x0004 ; Address of exception handler
04ca 0002 | | .CONST 0x0002 ; Number of locals
04cb INIT_04c8:
04cb e014 | | Load 0x0,0x14
04cc 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04cd 02c7 | | Declare_Variable Any
04ce 00d8 | | Load_Top At_Offset_0
04cf 1c00 | | Execute_Immediate Run_Utility,0x0
04d0 BODY_04c8:
04d0 00db | | Load_Top At_Offset_3
04d1 e00e | | Load 0x0,0xe
04d2 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
04d3 e5fe | | Load 0x2,-0x2
04d4 8232 | 2 | Call 0x1,0x32
04d5 c402 | | Store 0x2,0x2
04d6 00d8 | | Load_Top At_Offset_0
04d7 e014 | | Load 0x0,0x14
04d8 1b13 | | Execute Package,Field_Read,Field_Number 0x13
04d9 00da | | Load_Top At_Offset_2
04da e5fd | | Load 0x2,-0x3
04db e017 | | Load 0x0,0x17
04dc e015 | | Load 0x0,0x15
04dd 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
04de 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
04df 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04e0 ; --------------------------------------------------------------------------------------
04e0 ; SUBPROGRAM
04e0 ; --------------------------------------------------------------------------------------
04e0 04e3 | | .CONST 0x04e3 ; Address of begin
04e1 0004 | | .CONST 0x0004 ; Address of exception handler
04e2 0001 | | .CONST 0x0001 ; Number of locals
04e3 BODY_04e0:
04e3 INIT_04e0:
04e3 e5fd | | Load 0x2,-0x3
04e4 e5fe | | Load 0x2,-0x2
04e5 e5ff | | Load 0x2,-0x1
04e6 e00e | | Load 0x0,0xe
04e7 181e | | Execute Package,Field_Execute,Field_Number 0x1e
04e8 821c | | Call 0x1,0x1c
04e9 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
04ea 0000 0000 | | .BLANK 0000[0x6]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; SUBPROGRAM
04f0 ; --------------------------------------------------------------------------------------
04f0 04f8 | | .CONST 0x04f8 ; Address of begin
04f1 0004 | | .CONST 0x0004 ; Address of exception handler
04f2 0002 | | .CONST 0x0002 ; Number of locals
04f3 INIT_04f0:
04f3 e014 | | Load 0x0,0x14
04f4 1b12 | | Execute Package,Field_Read,Field_Number 0x12
04f5 02c7 | | Declare_Variable Any
04f6 00d8 | | Load_Top At_Offset_0
04f7 1c00 | | Execute_Immediate Run_Utility,0x0
04f8 BODY_04f0:
04f8 00db | | Load_Top At_Offset_3
04f9 e00f | | Load 0x0,0xf
04fa 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
04fb e5fe | | Load 0x2,-0x2
04fc 8232 | 2 | Call 0x1,0x32
04fd c402 | | Store 0x2,0x2
04fe 00d8 | | Load_Top At_Offset_0
04ff e014 | | Load 0x0,0x14
0500 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0501 00da | | Load_Top At_Offset_2
0502 e5fd | | Load 0x2,-0x3
0503 e017 | | Load 0x0,0x17
0504 e015 | | Load 0x0,0x15
0505 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0506 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0507 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0508 ; --------------------------------------------------------------------------------------
0508 ; SUBPROGRAM
0508 ; --------------------------------------------------------------------------------------
0508 050b | | .CONST 0x050b ; Address of begin
0509 0004 | | .CONST 0x0004 ; Address of exception handler
050a 0001 | | .CONST 0x0001 ; Number of locals
050b BODY_0508:
050b INIT_0508:
050b e5fd | | Load 0x2,-0x3
050c e5fe | | Load 0x2,-0x2
050d e5ff | | Load 0x2,-0x1
050e e00f | | Load 0x0,0xf
050f 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0510 821c | | Call 0x1,0x1c
0511 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0512 0000 0000 | | .BLANK 0000[0x6]
0518 ; --------------------------------------------------------------------------------------
0518 ; SUBPROGRAM
0518 ; --------------------------------------------------------------------------------------
0518 0520 | | .CONST 0x0520 ; Address of begin
0519 0004 | | .CONST 0x0004 ; Address of exception handler
051a 0002 | | .CONST 0x0002 ; Number of locals
051b INIT_0518:
051b e014 | | Load 0x0,0x14
051c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
051d 02c7 | | Declare_Variable Any
051e 00d8 | | Load_Top At_Offset_0
051f 1c00 | | Execute_Immediate Run_Utility,0x0
0520 BODY_0518:
0520 00db | | Load_Top At_Offset_3
0521 e010 | | Load 0x0,0x10
0522 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0523 e5fe | | Load 0x2,-0x2
0524 8232 | 2 | Call 0x1,0x32
0525 c402 | | Store 0x2,0x2
0526 00d8 | | Load_Top At_Offset_0
0527 e014 | | Load 0x0,0x14
0528 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0529 00da | | Load_Top At_Offset_2
052a e5fd | | Load 0x2,-0x3
052b e017 | | Load 0x0,0x17
052c e015 | | Load 0x0,0x15
052d 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
052e 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
052f 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0530 ; --------------------------------------------------------------------------------------
0530 ; SUBPROGRAM
0530 ; --------------------------------------------------------------------------------------
0530 0533 | 3 | .CONST 0x0533 ; Address of begin
0531 0004 | | .CONST 0x0004 ; Address of exception handler
0532 0001 | | .CONST 0x0001 ; Number of locals
0533 BODY_0530:
0533 INIT_0530:
0533 e5fd | | Load 0x2,-0x3
0534 e5fe | | Load 0x2,-0x2
0535 e5ff | | Load 0x2,-0x1
0536 e010 | | Load 0x0,0x10
0537 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0538 821c | | Call 0x1,0x1c
0539 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
053a 0000 0000 | | .BLANK 0000[0x6]
0540 ; --------------------------------------------------------------------------------------
0540 ; SUBPROGRAM
0540 ; --------------------------------------------------------------------------------------
0540 054a | J | .CONST 0x054a ; Address of begin
0541 0004 | | .CONST 0x0004 ; Address of exception handler
0542 0003 | | .CONST 0x0003 ; Number of locals
0543 INIT_0540:
0543 e014 | | Load 0x0,0x14
0544 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0545 02c7 | | Declare_Variable Any
0546 00d8 | | Load_Top At_Offset_0
0547 1c00 | | Execute_Immediate Run_Utility,0x0
0548 029f 0603 | | Declare_Subprogram INIT_0600,For_Call
054a BODY_0540:
054a e5fe | | Load 0x2,-0x2
054b e5ff | | Load 0x2,-0x1
054c e013 | | Load 0x0,0x13
054d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
054e e005 | | Load 0x0,0x5
054f 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0550 180d | | Execute Package,Field_Execute,Field_Number 0xd
0551 c402 | | Store 0x2,0x2
0552 00d9 | | Load_Top At_Offset_1
0553 e014 | | Load 0x0,0x14
0554 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0555 00db | | Load_Top At_Offset_3
0556 8403 | | Call 0x2,0x3
0557 e006 | | Load 0x0,0x6
0558 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0559 e015 | | Load 0x0,0x15
055a 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
055b 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
055c 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
055d 0000 0000 | | .XXX[0x3]
055f 0000 | |
0560 ; --------------------------------------------------------------------------------------
0560 ; SUBPROGRAM
0560 ; --------------------------------------------------------------------------------------
0560 056a | j | .CONST 0x056a ; Address of begin
0561 0004 | | .CONST 0x0004 ; Address of exception handler
0562 0002 | | .CONST 0x0002 ; Number of locals
0563 INIT_0560:
0563 4801 |H | Short_Literal 0x1
0564 00db | | Load_Top At_Offset_3
0565 482e |H. | Short_Literal 0x2e
0566 e00d | | Load 0x0,0xd
0567 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0568 00e3 | | Load_Encached Natural_Cache
0569 03f1 | | Declare_Variable Discrete,With_Value
056a BODY_0560:
056a 00d8 | | Load_Top At_Offset_0
056b 7002 |p | Jump_Nonzero 0x56e
056c 00db | | Load_Top At_Offset_3
056d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
056e 00d8 | | Load_Top At_Offset_0
056f 0a01 | | Execute_Immediate Plus,0x1
0570 00d8 | | Load_Top At_Offset_0
0571 00e2 | | Load_Encached Integer_Cache
0572 0260 | ` | Execute Discrete,In_Type
0573 7001 |p | Jump_Nonzero 0x575
0574 0801 | | Execute_Immediate Raise,0x1
0575 e5ff | | Load 0x2,-0x1
0576 01dc | | Execute Vector,Last
0577 e5ff | | Load 0x2,-0x1
0578 01cf | | Execute Vector,Slice_Read
0579 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
057a 0000 0000 | | .BLANK 0000[0x6]
0580 ; --------------------------------------------------------------------------------------
0580 ; SUBPROGRAM
0580 ; --------------------------------------------------------------------------------------
0580 058b | | .CONST 0x058b ; Address of begin
0581 05a6 | | .CONST 0x05a6 ; Address of exception handler
0582 0003 | | .CONST 0x0003 ; Number of locals
0583 INIT_0580:
0583 e008 | | Load 0x0,0x8
0584 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0585 02c7 | | Declare_Variable Any
0586 00d8 | | Load_Top At_Offset_0
0587 1c00 | | Execute_Immediate Run_Utility,0x0
0588 e004 | | Load 0x0,0x4
0589 1b20 | | Execute Package,Field_Read,Field_Number 0x20
058a 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
058b BODY_0580:
058b e5fe | | Load 0x2,-0x2
058c e008 | | Load 0x0,0x8
058d 1852 | R | Execute Package,Field_Execute,Field_Number 0x52
058e c402 | | Store 0x2,0x2
058f 00d9 | | Load_Top At_Offset_1
0590 e008 | | Load 0x0,0x8
0591 180f | | Execute Package,Field_Execute,Field_Number 0xf
0592 700d |p | Jump_Nonzero 0x5a0
0593 00d9 | | Load_Top At_Offset_1
0594 e5ff | | Load 0x2,-0x1
0595 e005 | | Load 0x0,0x5
0596 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0597 180d | | Execute Package,Field_Execute,Field_Number 0xd
0598 0031 | 1 | Store_Top Heap_Access,At_Offset_1
0599 00d8 | | Load_Top At_Offset_0
059a e004 | | Load 0x0,0x4
059b 1b20 | | Execute Package,Field_Read,Field_Number 0x20
059c 181f | | Execute Package,Field_Execute,Field_Number 0x1f
059d 7002 |p | Jump_Nonzero 0x5a0
059e 00d8 | | Load_Top At_Offset_0
059f 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a0 e5fe | | Load 0x2,-0x2
05a1 e5ff | | Load 0x2,-0x1
05a2 e005 | | Load 0x0,0x5
05a3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05a4 180d | | Execute Package,Field_Execute,Field_Number 0xd
05a5 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05a6 TRAP_0580:
05a6 0007 | | Action Break_Optional
05a7 e5fe | | Load 0x2,-0x2
05a8 e5ff | | Load 0x2,-0x1
05a9 e005 | | Load 0x0,0x5
05aa 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05ab 180d | | Execute Package,Field_Execute,Field_Number 0xd
05ac 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05ad 0000 0000 | | .XXX[0x3]
05af 0000 | |
05b0 ; --------------------------------------------------------------------------------------
05b0 ; SUBPROGRAM
05b0 ; --------------------------------------------------------------------------------------
05b0 05b6 | | .CONST 0x05b6 ; Address of begin
05b1 0004 | | .CONST 0x0004 ; Address of exception handler
05b2 0002 | | .CONST 0x0002 ; Number of locals
05b3 INIT_05b0:
05b3 e004 | | Load 0x0,0x4
05b4 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05b5 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
05b6 BODY_05b0:
05b6 e5fe | | Load 0x2,-0x2
05b7 e5ff | | Load 0x2,-0x1
05b8 e005 | | Load 0x0,0x5
05b9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05ba 180e | | Execute Package,Field_Execute,Field_Number 0xe
05bb 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05bc 00db | | Load_Top At_Offset_3
05bd 00d8 | | Load_Top At_Offset_0
05be 4831 |H1 | Short_Literal 0x31
05bf 4832 |H2 | Short_Literal 0x32
05c0 0262 | b | Execute Discrete,In_Range
05c1 700d |p | Jump_Nonzero 0x5cf
05c2 4826 |H& | Short_Literal 0x26
05c3 4827 |H' | Short_Literal 0x27
05c4 0262 | b | Execute Discrete,In_Range
05c5 7011 |p | Jump_Nonzero 0x5d7
05c6 00ea | | Load_Encached Null_String_Cache
05c7 00d9 | | Load_Top At_Offset_1
05c8 e005 | | Load 0x0,0x5
05c9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05ca 180f | | Execute Package,Field_Execute,Field_Number 0xf
05cb e005 | | Load 0x0,0x5
05cc 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05cd 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05ce 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05cf 00d1 | | Pop_Control Pop_Count_1
05d0 0092 061c | | Action Push_String_Extended,0x61c ; "N/A"
05d2 00d9 | | Load_Top At_Offset_1
05d3 e005 | | Load 0x0,0x5
05d4 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05d5 180f | | Execute Package,Field_Execute,Field_Number 0xf
05d6 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05d7 0092 061d | | Action Push_String_Extended,0x61d ; "None"
05d9 00d9 | | Load_Top At_Offset_1
05da e005 | | Load 0x0,0x5
05db 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05dc 180f | | Execute Package,Field_Execute,Field_Number 0xf
05dd e005 | | Load 0x0,0x5
05de 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05df 1815 | | Execute Package,Field_Execute,Field_Number 0x15
05e0 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05e1 0000 0000 | | .BLANK 0000[0x7]
05e8 ; --------------------------------------------------------------------------------------
05e8 ; SUBPROGRAM
05e8 ; --------------------------------------------------------------------------------------
05e8 05ee | | .CONST 0x05ee ; Address of begin
05e9 0004 | | .CONST 0x0004 ; Address of exception handler
05ea 0002 | | .CONST 0x0002 ; Number of locals
05eb INIT_05e8:
05eb e004 | | Load 0x0,0x4
05ec 1b20 | | Execute Package,Field_Read,Field_Number 0x20
05ed 1b1d | | Execute Package,Field_Read,Field_Number 0x1d
05ee BODY_05e8:
05ee e5fe | | Load 0x2,-0x2
05ef e5ff | | Load 0x2,-0x1
05f0 e005 | | Load 0x0,0x5
05f1 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05f2 180e | | Execute Package,Field_Execute,Field_Number 0xe
05f3 0031 | 1 | Store_Top Heap_Access,At_Offset_1
05f4 00d8 | | Load_Top At_Offset_0
05f5 e005 | | Load 0x0,0x5
05f6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
05f7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
05f8 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
05f9 0000 0000 | | .BLANK 0000[0x7]
0600 ; --------------------------------------------------------------------------------------
0600 ; SUBPROGRAM
0600 ; --------------------------------------------------------------------------------------
0600 0603 | | .CONST 0x0603 ; Address of begin
0601 0004 | | .CONST 0x0004 ; Address of exception handler
0602 0001 | | .CONST 0x0001 ; Number of locals
0603 BODY_0600:
0603 INIT_0600:
0603 e5fd | | Load 0x2,-0x3
0604 01db | | Execute Vector,Length
0605 7007 |p | Jump_Nonzero 0x60d
0606 0092 0629 | )| Action Push_String_Extended,0x629 ; "This document can be found in "
0608 e5ff | | Load 0x2,-0x1
0609 e013 | | Load 0x0,0x13
060a 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
060b 01cc | | Execute Vector,Catenate
060c 00ca | | Action Exit_Nullary_Function
060d 4829 |H) | Short_Literal 0x29
060e e5fd | | Load 0x2,-0x3
060f 0092 0624 | $| Action Push_String_Extended,0x624 ; " ("
0611 01cc | | Execute Vector,Catenate
0612 e5ff | | Load 0x2,-0x1
0613 e013 | | Load 0x0,0x13
0614 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0615 01cc | | Execute Vector,Catenate
0616 01cb | | Execute Vector,Append
0617 00ca | | Action Exit_Nullary_Function
0618 ; --------------------------------------------------------------------------------------
0618 ; STRING TABLE
0618 ; --------------------------------------------------------------------------------------
0618 0026 | & | .STRTAB 0x0026->0x062b ; "*** Undefined"
0619 0031 | 1 | .STRTAB 0x0031->0x0631 ; "*** Unspecified"
061a 003e | > | .STRTAB 0x003e->0x0639 ; "*** Unallocated"
061b 004b | K | .STRTAB 0x004b->0x0640 ; "*** Unsatisfied"
061c 0058 | X | .STRTAB 0x0058->0x0648 ; "N/A"
061d 0059 | Y | .STRTAB 0x0059->0x0649 ; "None"
061e 005b | [ | .STRTAB 0x005b->0x064b ; "<UNDEFINED_ID>"
061f 0067 | g | .STRTAB 0x0067->0x0652 ; "<UNKNOWN>"
0620 006e | n | .STRTAB 0x006e->0x0657 ; "<NIL>"
0621 0071 | q | .STRTAB 0x0071->0x0659 ; "*** Could not be found in library."
0622 0091 | | .STRTAB 0x0091->0x066a ; ", "
0623 0091 | | .STRTAB 0x0091->0x066b ; "<NIL LIST>"
0624 0099 | | .STRTAB 0x0099->0x0670 ; " ("
0625 0099 | | .STRTAB 0x0099->0x0671 ; " \x22"
0626 0099 | | .STRTAB 0x0099->0x0672 ; "*** Datum could not be found"
0627 00b3 | | .STRTAB 0x00b3->0x0680 ; "*** IO could not be found"
0628 00ca | | .STRTAB 0x00ca->0x068d ; "*** Interrupt could not be found"
0629 00e8 | | .STRTAB 0x00e8->0x069d ; "This document can be found in "
062a 0104 | | .STREND 0x0104->0x06ac
062b 2a2a 2a20 |*** | .STRTAB_STRINGS
06ac 0000 0000 | | .BLANK 0000[0x4]
06b0 ; --------------------------------------------------------------------------------------
06b0 ; Debug Table
06b0 ; --------------------------------------------------------------------------------------
06b0 0004 0012 | | .DEBUG4 0x0004,0x0012,0xfc73,0x0000,0x0001,0x0000
06b6 0000 0000 | | .XXX[0x27]
06b8 0040 004b | @ K|
06ba e690 b840 | @|
06bc 2970 0002 |)p |
06be ea05 4970 | Ip|
06c0 1001 0000 | |
06c2 9d00 0000 | |
06c4 803b 8000 | ; |
06c6 0900 0000 | |
06c8 0d00 2800 | ( |
06ca 0000 0800 | |
06cc 0002 0000 | |
06ce 0011 0000 | |
06d0 0000 0800 | |
06d2 0000 5200 | R |
06d4 0040 0d2d | @ -|
06d6 5200 0040 |R @|
06d8 0d2d 5a00 | -Z |
06da 0040 0d2d | @ -|
06dc 6000 |` |
06dd 0000 0000 | | .BLANK 0000[0x5]
06e2 0200 0040 | @| .XXX[0xa]
06e4 0d2d 6a00 | -j |
06e6 0030 0d2d | 0 -|
06e8 4200 0040 |B @|
06ea 0d2d 7000 | -p |
06ec 0000 0000 | | .BLANK 0000[0x5]
06f1 0008 0009 | | .XXX[0x3]
06f3 7cd0 || |
06f4 0000 0000 | | .BLANK 0000[0xd]
0701 0020 0500 | | .XXX[0xc]
0703 0000 0000 | |
0705 0000 4000 | @ |
0707 0002 2000 | |
0709 0000 0100 | |
070b 0000 0a00 | |
070d 0000 0000 | | .BLANK 0000[0x2d]
073a 0004 00a0 | | .XXX[0xc]
073c 0000 0000 | |
073e 0000 0800 | |
0740 0000 4400 | D |
0742 0000 0020 | |
0744 0000 0140 | @|
0746 0000 0000 | | .BLANK 0000[0x2e]
0774 8014 0000 | | .XXX[0xb]
0776 0000 0000 | |
0778 0100 0000 | |
077a 0880 0000 | |
077c 0004 0000 | |
077e 0028 | ( |
077f 0000 0000 | | .BLANK 0000[0x2e]
07ad 1002 8000 | | .XXX[0xb]
07af 0000 0000 | |
07b1 0020 0000 | |
07b3 0110 0000 | |
07b5 0000 8000 | |
07b7 0005 | |
07b8 0000 0000 | | .BLANK 0000[0x48]