|
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: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0258fa
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0340 | @ | .CONST 0x0340 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0050 | P | .CONST 0x0050 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001d | | .CONST 0x001d ; Number of locals
000b INIT_0008:
000b 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated
000d 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated
000f 029a 0083 | | Declare_Subprogram INIT_0080,For_Outer_Call,Visible,Unelaborated
0011 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
0013 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated
0015 029a 00b3 | | Declare_Subprogram INIT_00b0,For_Outer_Call,Visible,Unelaborated
0017 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated
0019 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001b 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
001d 029a 01a3 | | Declare_Subprogram INIT_01a0,For_Outer_Call,Visible,Unelaborated
001f 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0021 029a 0243 | C| Declare_Subprogram INIT_0240,For_Outer_Call,Visible,Unelaborated
0023 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0025 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0027 029a 0283 | | Declare_Subprogram INIT_0280,For_Outer_Call,Visible,Unelaborated
0029 029a 0293 | | Declare_Subprogram INIT_0290,For_Outer_Call,Visible,Unelaborated
002b 029a 02a3 | | Declare_Subprogram INIT_02a0,For_Outer_Call,Visible,Unelaborated
002d 00bf | | Action Accept_Activation
002e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
002f 00c7 | | Action Elaborate_Subprogram
0030 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0031 00c7 | | Action Elaborate_Subprogram
0032 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0033 00c7 | | Action Elaborate_Subprogram
0034 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0035 00c7 | | Action Elaborate_Subprogram
0036 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0037 00c7 | | Action Elaborate_Subprogram
0038 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
0039 00c7 | | Action Elaborate_Subprogram
003a 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003b 00c7 | | Action Elaborate_Subprogram
003c 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003d 00c7 | | Action Elaborate_Subprogram
003e 1d14 | | Execute_Immediate Reference_Lex_1,0x14
003f 00c7 | | Action Elaborate_Subprogram
0040 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0041 00c7 | | Action Elaborate_Subprogram
0042 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0043 00c7 | | Action Elaborate_Subprogram
0044 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0045 00c7 | | Action Elaborate_Subprogram
0046 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0047 00c7 | | Action Elaborate_Subprogram
0048 1d19 | | Execute_Immediate Reference_Lex_1,0x19
0049 00c7 | | Action Elaborate_Subprogram
004a 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004b 00c7 | | Action Elaborate_Subprogram
004c 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
004d 00c7 | | Action Elaborate_Subprogram
004e 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
004f 00c7 | | Action Elaborate_Subprogram
0050 BODY_0008:
0050 00bc | | Action Signal_Activated
0051 00bb | | Action Signal_Completion
0052 0000 0000 | | .BLANK 0000[0x6]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0004 | | .CONST 0x0004 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e5fe | | Load 0x2,-0x2
005c 4805 |H | Short_Literal 0x5
005d e5ff | | Load 0x2,-0x1
005e e001 | | Load 0x0,0x1
005f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0060 e5fe | | Load 0x2,-0x2
0061 e002 | | Load 0x0,0x2
0062 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0063 6803 |h | Jump_Zero 0x67
0064 e002 | | Load 0x0,0x2
0065 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0066 0257 | W | Execute Discrete,Raise
0067 e003 | | Load 0x0,0x3
0068 0257 | W | Execute Discrete,Raise
0069 0000 0000 | | .BLANK 0000[0x7]
0070 ; --------------------------------------------------------------------------------------
0070 ; SUBPROGRAM
0070 ; --------------------------------------------------------------------------------------
0070 0073 | s | .CONST 0x0073 ; Address of begin
0071 0004 | | .CONST 0x0004 ; Address of exception handler
0072 0001 | | .CONST 0x0001 ; Number of locals
0073 BODY_0070:
0073 INIT_0070:
0073 e5fe | | Load 0x2,-0x2
0074 4808 |H | Short_Literal 0x8
0075 e5ff | | Load 0x2,-0x1
0076 e001 | | Load 0x0,0x1
0077 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0078 e5fe | | Load 0x2,-0x2
0079 e002 | | Load 0x0,0x2
007a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007b 6803 |h | Jump_Zero 0x7f
007c e002 | | Load 0x0,0x2
007d 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
007e 0257 | W | Execute Discrete,Raise
007f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083 | | .CONST 0x0083 ; Address of begin
0081 0004 | | .CONST 0x0004 ; Address of exception handler
0082 0001 | | .CONST 0x0001 ; Number of locals
0083 BODY_0080:
0083 INIT_0080:
0083 e5fe | | Load 0x2,-0x2
0084 4803 |H | Short_Literal 0x3
0085 e5ff | | Load 0x2,-0x1
0086 e001 | | Load 0x0,0x1
0087 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0088 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0089 0000 0000 | | .BLANK 0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 e5fe | | Load 0x2,-0x2
0094 4806 |H | Short_Literal 0x6
0095 e5ff | | Load 0x2,-0x1
0096 e001 | | Load 0x0,0x1
0097 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0098 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0099 0000 0000 | | .BLANK 0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3 | | .CONST 0x00a3 ; Address of begin
00a1 0004 | | .CONST 0x0004 ; Address of exception handler
00a2 0001 | | .CONST 0x0001 ; Number of locals
00a3 BODY_00a0:
00a3 INIT_00a0:
00a3 e004 | | Load 0x0,0x4
00a4 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a5 e005 | | Load 0x0,0x5
00a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a7 7004 |p | Jump_Nonzero 0xac
00a8 e5ff | | Load 0x2,-0x1
00a9 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "Operator capability is required"
00ab 820d | | Call 0x1,0xd
00ac 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00ad 0000 0000 | | .XXX[0x3]
00af 0000 | |
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00b8 | | .CONST 0x00b8 ; Address of begin
00b1 0004 | | .CONST 0x0004 ; Address of exception handler
00b2 0002 | | .CONST 0x0002 ; Number of locals
00b3 INIT_00b0:
00b3 e006 | | Load 0x0,0x6
00b4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b5 02c7 | | Declare_Variable Any
00b6 00d8 | | Load_Top At_Offset_0
00b7 1c00 | | Execute_Immediate Run_Utility,0x0
00b8 BODY_00b0:
00b8 00d8 | | Load_Top At_Offset_0
00b9 e5fd | | Load 0x2,-0x3
00ba 0120 | | Execute Any,Is_Value
00bb 6803 |h | Jump_Zero 0xbf
00bc e002 | | Load 0x0,0x2
00bd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00be 7801 |x | Jump 0xc0
00bf e5fd | | Load 0x2,-0x3
00c0 e5fe | | Load 0x2,-0x2
00c1 e002 | | Load 0x0,0x2
00c2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
00c3 c5fd | | Store 0x2,-0x3
00c4 c402 | | Store 0x2,0x2
00c5 e5fd | | Load 0x2,-0x3
00c6 4800 |H | Short_Literal 0x0
00c7 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "["
00c9 e5ff | | Load 0x2,-0x1
00ca 01cc | | Execute Vector,Catenate
00cb 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " ("
00cd 01cc | | Execute Vector,Catenate
00ce e5fe | | Load 0x2,-0x2
00cf 821d | | Call 0x1,0x1d
00d0 01cc | | Execute Vector,Catenate
00d1 0092 02d8 | | Action Push_String_Extended,0x2d8 ; ")]"
00d3 01cc | | Execute Vector,Catenate
00d4 e001 | | Load 0x0,0x1
00d5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d6 e002 | | Load 0x0,0x2
00d7 180e | | Execute Package,Field_Execute,Field_Number 0xe
00d8 e402 | | Load 0x2,0x2
00d9 e001 | | Load 0x0,0x1
00da 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00db 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00dc 0000 0000 | | .BLANK 0000[0x4]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e8 | | .CONST 0x00e8 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0002 | | .CONST 0x0002 ; Number of locals
00e3 INIT_00e0:
00e3 e006 | | Load 0x0,0x6
00e4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00e5 02c7 | | Declare_Variable Any
00e6 00d8 | | Load_Top At_Offset_0
00e7 1c00 | | Execute_Immediate Run_Utility,0x0
00e8 BODY_00e0:
00e8 00d8 | | Load_Top At_Offset_0
00e9 e5fb | | Load 0x2,-0x5
00ea 0120 | | Execute Any,Is_Value
00eb 6803 |h | Jump_Zero 0xef
00ec e002 | | Load 0x0,0x2
00ed 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00ee 7801 |x | Jump 0xf0
00ef e5fb | | Load 0x2,-0x5
00f0 e5fc | | Load 0x2,-0x4
00f1 e002 | | Load 0x0,0x2
00f2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
00f3 c5fb | | Store 0x2,-0x5
00f4 c402 | | Store 0x2,0x2
00f5 e5fb | | Load 0x2,-0x5
00f6 4800 |H | Short_Literal 0x0
00f7 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "["
00f9 e5ff | | Load 0x2,-0x1
00fa 01cc | | Execute Vector,Catenate
00fb 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " ("
00fd 01cc | | Execute Vector,Catenate
00fe e5fe | | Load 0x2,-0x2
00ff 821d | | Call 0x1,0x1d
0100 01cc | | Execute Vector,Catenate
0101 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0103 01cc | | Execute Vector,Catenate
0104 e5fd | | Load 0x2,-0x3
0105 821d | | Call 0x1,0x1d
0106 01cc | | Execute Vector,Catenate
0107 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0109 01cc | | Execute Vector,Catenate
010a e5fc | | Load 0x2,-0x4
010b 821d | | Call 0x1,0x1d
010c 01cc | | Execute Vector,Catenate
010d 0092 02d8 | | Action Push_String_Extended,0x2d8 ; ")]"
010f 01cc | | Execute Vector,Catenate
0110 e001 | | Load 0x0,0x1
0111 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0112 e002 | | Load 0x0,0x2
0113 180e | | Execute Package,Field_Execute,Field_Number 0xe
0114 e402 | | Load 0x2,0x2
0115 e001 | | Load 0x0,0x1
0116 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0117 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 0120 | | .CONST 0x0120 ; Address of begin
0119 0004 | | .CONST 0x0004 ; Address of exception handler
011a 0002 | | .CONST 0x0002 ; Number of locals
011b INIT_0118:
011b e006 | | Load 0x0,0x6
011c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
011d 02c7 | | Declare_Variable Any
011e 00d8 | | Load_Top At_Offset_0
011f 1c00 | | Execute_Immediate Run_Utility,0x0
0120 BODY_0118:
0120 00d8 | | Load_Top At_Offset_0
0121 e5fa | | Load 0x2,-0x6
0122 0120 | | Execute Any,Is_Value
0123 6803 |h | Jump_Zero 0x127
0124 e002 | | Load 0x0,0x2
0125 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0126 7801 |x | Jump 0x128
0127 e5fa | | Load 0x2,-0x6
0128 e5fb | | Load 0x2,-0x5
0129 e002 | | Load 0x0,0x2
012a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
012b c5fa | | Store 0x2,-0x6
012c c402 | | Store 0x2,0x2
012d e5fa | | Load 0x2,-0x6
012e 4800 |H | Short_Literal 0x0
012f 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "["
0131 e5ff | | Load 0x2,-0x1
0132 01cc | | Execute Vector,Catenate
0133 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " ("
0135 01cc | | Execute Vector,Catenate
0136 e5fe | | Load 0x2,-0x2
0137 821d | | Call 0x1,0x1d
0138 01cc | | Execute Vector,Catenate
0139 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
013b 01cc | | Execute Vector,Catenate
013c e5fd | | Load 0x2,-0x3
013d 821d | | Call 0x1,0x1d
013e 01cc | | Execute Vector,Catenate
013f 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0141 01cc | | Execute Vector,Catenate
0142 e5fc | | Load 0x2,-0x4
0143 821d | | Call 0x1,0x1d
0144 01cc | | Execute Vector,Catenate
0145 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0147 01cc | | Execute Vector,Catenate
0148 e5fb | | Load 0x2,-0x5
0149 821d | | Call 0x1,0x1d
014a 01cc | | Execute Vector,Catenate
014b 0092 02d8 | | Action Push_String_Extended,0x2d8 ; ")]"
014d 01cc | | Execute Vector,Catenate
014e e001 | | Load 0x0,0x1
014f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0150 e002 | | Load 0x0,0x2
0151 180e | | Execute Package,Field_Execute,Field_Number 0xe
0152 e402 | | Load 0x2,0x2
0153 e001 | | Load 0x0,0x1
0154 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0155 4506 |E | Exit_Suprogram New_Top_Offset 0x6
0156 0000 0000 | | .XXX[0x2]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 0160 | ` | .CONST 0x0160 ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b e006 | | Load 0x0,0x6
015c 1b0f | | Execute Package,Field_Read,Field_Number 0xf
015d 02c7 | | Declare_Variable Any
015e 00d8 | | Load_Top At_Offset_0
015f 1c00 | | Execute_Immediate Run_Utility,0x0
0160 BODY_0158:
0160 00d8 | | Load_Top At_Offset_0
0161 e5f9 | | Load 0x2,-0x7
0162 0120 | | Execute Any,Is_Value
0163 6803 |h | Jump_Zero 0x167
0164 e002 | | Load 0x0,0x2
0165 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0166 7801 |x | Jump 0x168
0167 e5f9 | | Load 0x2,-0x7
0168 e5fa | | Load 0x2,-0x6
0169 e002 | | Load 0x0,0x2
016a 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
016b c5f9 | | Store 0x2,-0x7
016c c402 | | Store 0x2,0x2
016d e5f9 | | Load 0x2,-0x7
016e 4800 |H | Short_Literal 0x0
016f 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "["
0171 e5ff | | Load 0x2,-0x1
0172 01cc | | Execute Vector,Catenate
0173 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " ("
0175 01cc | | Execute Vector,Catenate
0176 e5fe | | Load 0x2,-0x2
0177 821d | | Call 0x1,0x1d
0178 01cc | | Execute Vector,Catenate
0179 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
017b 01cc | | Execute Vector,Catenate
017c e5fd | | Load 0x2,-0x3
017d 821d | | Call 0x1,0x1d
017e 01cc | | Execute Vector,Catenate
017f 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0181 01cc | | Execute Vector,Catenate
0182 e5fc | | Load 0x2,-0x4
0183 821d | | Call 0x1,0x1d
0184 01cc | | Execute Vector,Catenate
0185 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0187 01cc | | Execute Vector,Catenate
0188 e5fb | | Load 0x2,-0x5
0189 821d | | Call 0x1,0x1d
018a 01cc | | Execute Vector,Catenate
018b 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
018d 01cc | | Execute Vector,Catenate
018e e5fa | | Load 0x2,-0x6
018f 821d | | Call 0x1,0x1d
0190 01cc | | Execute Vector,Catenate
0191 0092 02d8 | | Action Push_String_Extended,0x2d8 ; ")]"
0193 01cc | | Execute Vector,Catenate
0194 e001 | | Load 0x0,0x1
0195 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0196 e002 | | Load 0x0,0x2
0197 180e | | Execute Package,Field_Execute,Field_Number 0xe
0198 e402 | | Load 0x2,0x2
0199 e001 | | Load 0x0,0x1
019a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
019b 4507 |E | Exit_Suprogram New_Top_Offset 0x7
019c 0000 0000 | | .BLANK 0000[0x4]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; SUBPROGRAM
01a0 ; --------------------------------------------------------------------------------------
01a0 01a8 | | .CONST 0x01a8 ; Address of begin
01a1 0004 | | .CONST 0x0004 ; Address of exception handler
01a2 0002 | | .CONST 0x0002 ; Number of locals
01a3 INIT_01a0:
01a3 e006 | | Load 0x0,0x6
01a4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01a5 02c7 | | Declare_Variable Any
01a6 00d8 | | Load_Top At_Offset_0
01a7 1c00 | | Execute_Immediate Run_Utility,0x0
01a8 BODY_01a0:
01a8 00d8 | | Load_Top At_Offset_0
01a9 e5f8 | | Load 0x2,-0x8
01aa 0120 | | Execute Any,Is_Value
01ab 6803 |h | Jump_Zero 0x1af
01ac e002 | | Load 0x0,0x2
01ad 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01ae 7801 |x | Jump 0x1b0
01af e5f8 | | Load 0x2,-0x8
01b0 e5f9 | | Load 0x2,-0x7
01b1 e002 | | Load 0x0,0x2
01b2 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
01b3 c5f8 | | Store 0x2,-0x8
01b4 c402 | | Store 0x2,0x2
01b5 e5f8 | | Load 0x2,-0x8
01b6 4800 |H | Short_Literal 0x0
01b7 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "["
01b9 e5ff | | Load 0x2,-0x1
01ba 01cc | | Execute Vector,Catenate
01bb 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " ("
01bd 01cc | | Execute Vector,Catenate
01be e5fe | | Load 0x2,-0x2
01bf 821d | | Call 0x1,0x1d
01c0 01cc | | Execute Vector,Catenate
01c1 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
01c3 01cc | | Execute Vector,Catenate
01c4 e5fd | | Load 0x2,-0x3
01c5 821d | | Call 0x1,0x1d
01c6 01cc | | Execute Vector,Catenate
01c7 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
01c9 01cc | | Execute Vector,Catenate
01ca e5fc | | Load 0x2,-0x4
01cb 821d | | Call 0x1,0x1d
01cc 01cc | | Execute Vector,Catenate
01cd 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
01cf 01cc | | Execute Vector,Catenate
01d0 e5fb | | Load 0x2,-0x5
01d1 821d | | Call 0x1,0x1d
01d2 01cc | | Execute Vector,Catenate
01d3 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
01d5 01cc | | Execute Vector,Catenate
01d6 e5fa | | Load 0x2,-0x6
01d7 821d | | Call 0x1,0x1d
01d8 01cc | | Execute Vector,Catenate
01d9 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
01db 01cc | | Execute Vector,Catenate
01dc e5f9 | | Load 0x2,-0x7
01dd 821d | | Call 0x1,0x1d
01de 01cc | | Execute Vector,Catenate
01df 0092 02d8 | | Action Push_String_Extended,0x2d8 ; ")]"
01e1 01cc | | Execute Vector,Catenate
01e2 e001 | | Load 0x0,0x1
01e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e4 e002 | | Load 0x0,0x2
01e5 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e6 e402 | | Load 0x2,0x2
01e7 e001 | | Load 0x0,0x1
01e8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e9 4508 |E | Exit_Suprogram New_Top_Offset 0x8
01ea 0000 0000 | | .BLANK 0000[0x6]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f8 | | .CONST 0x01f8 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0002 | | .CONST 0x0002 ; Number of locals
01f3 INIT_01f0:
01f3 e006 | | Load 0x0,0x6
01f4 1b0f | | Execute Package,Field_Read,Field_Number 0xf
01f5 02c7 | | Declare_Variable Any
01f6 00d8 | | Load_Top At_Offset_0
01f7 1c00 | | Execute_Immediate Run_Utility,0x0
01f8 BODY_01f0:
01f8 00d8 | | Load_Top At_Offset_0
01f9 e5f7 | | Load 0x2,-0x9
01fa 0120 | | Execute Any,Is_Value
01fb 6803 |h | Jump_Zero 0x1ff
01fc e002 | | Load 0x0,0x2
01fd 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fe 7801 |x | Jump 0x200
01ff e5f7 | | Load 0x2,-0x9
0200 e5f8 | | Load 0x2,-0x8
0201 e002 | | Load 0x0,0x2
0202 184c | L | Execute Package,Field_Execute,Field_Number 0x4c
0203 c5f7 | | Store 0x2,-0x9
0204 c402 | | Store 0x2,0x2
0205 e5f7 | | Load 0x2,-0x9
0206 4800 |H | Short_Literal 0x0
0207 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "["
0209 e5ff | | Load 0x2,-0x1
020a 01cc | | Execute Vector,Catenate
020b 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " ("
020d 01cc | | Execute Vector,Catenate
020e e5fe | | Load 0x2,-0x2
020f 821d | | Call 0x1,0x1d
0210 01cc | | Execute Vector,Catenate
0211 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0213 01cc | | Execute Vector,Catenate
0214 e5fd | | Load 0x2,-0x3
0215 821d | | Call 0x1,0x1d
0216 01cc | | Execute Vector,Catenate
0217 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0219 01cc | | Execute Vector,Catenate
021a e5fc | | Load 0x2,-0x4
021b 821d | | Call 0x1,0x1d
021c 01cc | | Execute Vector,Catenate
021d 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
021f 01cc | | Execute Vector,Catenate
0220 e5fb | | Load 0x2,-0x5
0221 821d | | Call 0x1,0x1d
0222 01cc | | Execute Vector,Catenate
0223 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0225 01cc | | Execute Vector,Catenate
0226 e5fa | | Load 0x2,-0x6
0227 821d | | Call 0x1,0x1d
0228 01cc | | Execute Vector,Catenate
0229 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
022b 01cc | | Execute Vector,Catenate
022c e5f9 | | Load 0x2,-0x7
022d 821d | | Call 0x1,0x1d
022e 01cc | | Execute Vector,Catenate
022f 0092 02d9 | | Action Push_String_Extended,0x2d9 ; ", "
0231 01cc | | Execute Vector,Catenate
0232 e5f8 | | Load 0x2,-0x8
0233 821d | | Call 0x1,0x1d
0234 01cc | | Execute Vector,Catenate
0235 0092 02d8 | | Action Push_String_Extended,0x2d8 ; ")]"
0237 01cc | | Execute Vector,Catenate
0238 e001 | | Load 0x0,0x1
0239 1813 | | Execute Package,Field_Execute,Field_Number 0x13
023a e002 | | Load 0x0,0x2
023b 180e | | Execute Package,Field_Execute,Field_Number 0xe
023c e402 | | Load 0x2,0x2
023d e001 | | Load 0x0,0x1
023e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
023f 4509 |E | Exit_Suprogram New_Top_Offset 0x9
0240 ; --------------------------------------------------------------------------------------
0240 ; SUBPROGRAM
0240 ; --------------------------------------------------------------------------------------
0240 0245 | E | .CONST 0x0245 ; Address of begin
0241 0004 | | .CONST 0x0004 ; Address of exception handler
0242 0002 | | .CONST 0x0002 ; Number of locals
0243 INIT_0240:
0243 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
0245 BODY_0240:
0245 e5fd | | Load 0x2,-0x3
0246 4800 |H | Short_Literal 0x0
0247 0092 02da | | Action Push_String_Extended,0x2da ; "[end of "
0249 e5ff | | Load 0x2,-0x1
024a 01cc | | Execute Vector,Catenate
024b 8402 | | Call 0x2,0x2
024c 01cc | | Execute Vector,Catenate
024d 0092 02db | | Action Push_String_Extended,0x2db ; "]"
024f 01cc | | Execute Vector,Catenate
0250 e001 | | Load 0x0,0x1
0251 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0252 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0253 0000 0000 | | .BLANK 0000[0x5]
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 e5fe | | Load 0x2,-0x2
025c 0092 02dc | | Action Push_String_Extended,0x2dc ; "Terminated because of errors noted previously."
025e e5ff | | Load 0x2,-0x1
025f 8218 | | Call 0x1,0x18
0260 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0261 0000 0000 | | .BLANK 0000[0x7]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0277 | w | .CONST 0x0277 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b e5fd | | Load 0x2,-0x3
026c 0092 02dd | | Action Push_String_Extended,0x2dd ; "Internal Error - Unexpected exception: "
026e e5fe | | Load 0x2,-0x2
026f 01cc | | Execute Vector,Catenate
0270 820e | | Call 0x1,0xe
0271 e5fd | | Load 0x2,-0x3
0272 0092 02de | | Action Push_String_Extended,0x2de ; "Unexpected exception"
0274 e5ff | | Load 0x2,-0x1
0275 8218 | | Call 0x1,0x18
0276 4504 |E | Exit_Suprogram New_Top_Offset 0x4
0277 TRAP_0268:
0277 0007 | | Action Break_Optional
0278 e5fd | | Load 0x2,-0x3
0279 0092 02df | | Action Push_String_Extended,0x2df ; "Unexpected_exception"
027b e5ff | | Load 0x2,-0x1
027c 8218 | | Call 0x1,0x18
027d 00d8 | | Load_Top At_Offset_0
027e 0101 | | Execute Exception,Reraise
027f 0000 | | .XXX[0x1]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 482b |H+ | Short_Literal 0x2b
0284 4820 |H | Short_Literal 0x20
0285 4800 |H | Short_Literal 0x0
0286 480a |H | Short_Literal 0xa
0287 e5ff | | Load 0x2,-0x1
0288 8007 | | Call 0x0,0x7
0289 01ca | | Execute Vector,Prepend
028a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
028b 0000 0000 | | .BLANK 0000[0x5]
0290 ; --------------------------------------------------------------------------------------
0290 ; SUBPROGRAM
0290 ; --------------------------------------------------------------------------------------
0290 0293 | | .CONST 0x0293 ; Address of begin
0291 0004 | | .CONST 0x0004 ; Address of exception handler
0292 0001 | | .CONST 0x0001 ; Number of locals
0293 BODY_0290:
0293 INIT_0290:
0293 482b |H+ | Short_Literal 0x2b
0294 4820 |H | Short_Literal 0x20
0295 4800 |H | Short_Literal 0x0
0296 480a |H | Short_Literal 0xa
0297 e5ff | | Load 0x2,-0x1
0298 8008 | | Call 0x0,0x8
0299 01ca | | Execute Vector,Prepend
029a 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
029b 0000 0000 | | .BLANK 0000[0x5]
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 e5ff | | Load 0x2,-0x1
02a4 01db | | Execute Vector,Length
02a5 7003 |p | Jump_Nonzero 0x2a9
02a6 0092 02e0 | | Action Push_String_Extended,0x2e0 ; "\x22\x22"
02a8 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02a9 e5ff | | Load 0x2,-0x1
02aa 01dd | | Execute Vector,First
02ab e5ff | | Load 0x2,-0x1
02ac 01d7 | | Execute Vector,Field_Read
02ad 0f2b | + | Execute_Immediate Equal,0x2b
02ae 680f |h | Jump_Zero 0x2be
02af e5ff | | Load 0x2,-0x1
02b0 01dd | | Execute Vector,First
02b1 0a01 | | Execute_Immediate Plus,0x1
02b2 00d8 | | Load_Top At_Offset_0
02b3 00e2 | | Load_Encached Integer_Cache
02b4 0260 | ` | Execute Discrete,In_Type
02b5 7001 |p | Jump_Nonzero 0x2b7
02b6 0801 | | Execute_Immediate Raise,0x1
02b7 e5ff | | Load 0x2,-0x1
02b8 01dc | | Execute Vector,Last
02b9 e5ff | | Load 0x2,-0x1
02ba 01cf | | Execute Vector,Slice_Read
02bb 0335 | 5 | Declare_Variable Array,Duplicate
02bc 00cd | | Action Spare6_Action
02bd 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02be 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "\x22"
02c0 e5ff | | Load 0x2,-0x1
02c1 01cc | | Execute Vector,Catenate
02c2 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "\x22"
02c4 01cc | | Execute Vector,Catenate
02c5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cb | | .CONST 0x02cb ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0001 | | .CONST 0x0001 ; Number of locals
02cb BODY_02c8:
02cb INIT_02c8:
02cb e5fe | | Load 0x2,-0x2
02cc 01db | | Execute Vector,Length
02cd 6805 |h | Jump_Zero 0x2d3
02ce 0092 02e2 | | Action Push_String_Extended,0x2e2 ; " - "
02d0 e5fe | | Load 0x2,-0x2
02d1 01cc | | Execute Vector,Catenate
02d2 00ca | | Action Exit_Nullary_Function
02d3 00ea | | Load_Encached Null_String_Cache
02d4 00ca | | Action Exit_Nullary_Function
02d5 ; --------------------------------------------------------------------------------------
02d5 ; STRING TABLE
02d5 ; --------------------------------------------------------------------------------------
02d5 001e | | .STRTAB 0x001e->0x02e4 ; "Operator capability is required"
02d6 003b | ; | .STRTAB 0x003b->0x02f3 ; "["
02d7 003a | : | .STRTAB 0x003a->0x02f4 ; " ("
02d8 003a | : | .STRTAB 0x003a->0x02f5 ; ")]"
02d9 003a | : | .STRTAB 0x003a->0x02f6 ; ", "
02da 003a | : | .STRTAB 0x003a->0x02f7 ; "[end of "
02db 0040 | @ | .STRTAB 0x0040->0x02fb ; "]"
02dc 003f | ? | .STRTAB 0x003f->0x02fb ; "Terminated because of errors noted previously."
02dd 006b | k | .STRTAB 0x006b->0x0312 ; "Internal Error - Unexpected exception: "
02de 0090 | | .STRTAB 0x0090->0x0326 ; "Unexpected exception"
02df 00a2 | | .STRTAB 0x00a2->0x0330 ; "Unexpected_exception"
02e0 00b4 | | .STRTAB 0x00b4->0x033a ; "\x22\x22"
02e1 00b4 | | .STRTAB 0x00b4->0x033b ; "\x22"
02e2 00b3 | | .STRTAB 0x00b3->0x033b ; " - "
02e3 00b4 | | .STREND 0x00b4->0x033d
02e4 4f70 6572 |Oper| .STRTAB_STRINGS
033d 0000 0000 | | .XXX[0x3]
033f 0000 | |
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug Table
0340 ; --------------------------------------------------------------------------------------
0340 0004 000c | | .DEBUG4 0x0004,0x000c,0xc4a7,0x0000,0x0001,0x0000
0346 3434 b990 |44 | .XXX[0xba]
0348 3730 b6b2 |70 |
034a 9710 1023 | #|
034c 37b9 1032 |7 2|
034e bc30 b6b8 | 0 |
0350 3632 9610 |62 |
0352 3a37 9038 |:7 8|
0354 32b9 3337 |2 37|
0356 b936 9030 | 6 0|
0358 b710 37b8 | 7 |
035a 32b9 30ba |2 0 |
035c 34b7 b710 |4 |
035e 37b7 1030 |7 0|
0360 b636 103a | 6 :|
0362 b734 ba39 | 4 9|
0364 9034 b700 | 4 |
0366 0000 3880 | 8 |
0368 0000 2110 | ! |
036a 103a 3434 | :44|
036c b990 3730 | 70|
036e b6b2 9710 | |
0370 1023 37b9 | #7 |
0372 1032 bc30 | 2 0|
0374 b6b8 3632 | 62|
0376 9610 3a37 | :7|
0378 9038 32b9 | 82 |
037a 3337 b936 |37 6|
037c 9030 b710 | 0 |
037e 37b8 32b9 |7 2 |
0380 30ba 34b7 |0 4 |
0382 b710 37b7 | 7 |
0384 1030 b636 | 0 6|
0386 103a b734 | : 4|
0388 ba39 9034 | 9 4|
038a b700 0000 | |
038c 1b00 0000 | |
038e 1eb8 30b1 | 0 |
0390 b5b0 b3b2 | |
0392 9010 a1b7 | |
0394 b6b6 b0b7 | |
0396 3239 9610 |29 |
0398 3a34 3290 |:42 |
039a 3ab9 b2b9 |: |
039c 1031 b7ba | 1 |
039e b632 1039 | 2 9|
03a0 b832 b1b4 | 2 |
03a2 b33c 9030 | < 0|
03a4 9029 b7ba | ) |
03a6 b931 b2af | 1 |
03a8 a830 ba3a | 0 :|
03aa 32b9 3710 |2 7 |
03ac 37b3 0000 |7 |
03ae 001a 0000 | |
03b0 001f 9010 | |
03b2 3830 b1b5 |80 |
03b4 b0b3 b290 | |
03b6 10a1 b7b6 | |
03b8 b6b0 b732 | 2|
03ba 3996 103a |9 :|
03bc 3432 903a |42 :|
03be b9b2 b910 | |
03c0 31b7 bab6 |1 |
03c2 3210 39b8 |2 9 |
03c4 32b1 b4b3 |2 |
03c6 3c90 3090 |< 0 |
03c8 29b7 bab9 |) |
03ca 31b2 afa8 |1 |
03cc 30ba 3a32 |0 :2|
03ce b937 1037 | 7 7|
03d0 b300 0000 | |
03d2 0000 0040 | @|
03d4 0002 7df8 | } |
03d6 30b1 b5b0 |0 |
03d8 b3b2 9010 | |
03da a1b7 b6b6 | |
03dc b0b7 3239 | 29|
03de 9610 3a34 | :4|
03e0 3290 3ab9 |2 : |
03e2 b2b9 1031 | 1|
03e4 b7ba b632 | 2|
03e6 1039 b832 | 9 2|
03e8 b1b4 b33c | <|
03ea 9030 9029 | 0 )|
03ec b7ba b931 | 1|
03ee b2af a830 | 0|
03f0 ba3a 32b9 | :2 |
03f2 3710 37b3 |7 7 |
03f4 0000 003b | ;|
03f6 0000 001f | |
03f8 9110 a1b7 | |
03fa b6b6 b0b7 | |
03fc 3239 9f91 |29 |
03fe 1710 1029 | )|