|
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_06e8fd
└─⟦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 0378 | x | .CONST 0x0378 ; 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 0054 | T | .CONST 0x0054 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001e | | .CONST 0x001e ; 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 029a 02cb | | Declare_Subprogram INIT_02c8,For_Outer_Call,Visible,Unelaborated
002f 00bf | | Action Accept_Activation
0030 1d0d | | Execute_Immediate Reference_Lex_1,0xd
0031 00c7 | | Action Elaborate_Subprogram
0032 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0033 00c7 | | Action Elaborate_Subprogram
0034 1d0f | | Execute_Immediate Reference_Lex_1,0xf
0035 00c7 | | Action Elaborate_Subprogram
0036 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0037 00c7 | | Action Elaborate_Subprogram
0038 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0039 00c7 | | Action Elaborate_Subprogram
003a 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
003b 00c7 | | Action Elaborate_Subprogram
003c 1d12 | | Execute_Immediate Reference_Lex_1,0x12
003d 00c7 | | Action Elaborate_Subprogram
003e 1d13 | | Execute_Immediate Reference_Lex_1,0x13
003f 00c7 | | Action Elaborate_Subprogram
0040 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0041 00c7 | | Action Elaborate_Subprogram
0042 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0043 00c7 | | Action Elaborate_Subprogram
0044 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0045 00c7 | | Action Elaborate_Subprogram
0046 1d17 | | Execute_Immediate Reference_Lex_1,0x17
0047 00c7 | | Action Elaborate_Subprogram
0048 1d18 | | Execute_Immediate Reference_Lex_1,0x18
0049 00c7 | | Action Elaborate_Subprogram
004a 1d19 | | Execute_Immediate Reference_Lex_1,0x19
004b 00c7 | | Action Elaborate_Subprogram
004c 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
004d 00c7 | | Action Elaborate_Subprogram
004e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
004f 00c7 | | Action Elaborate_Subprogram
0050 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
0051 00c7 | | Action Elaborate_Subprogram
0052 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
0053 00c7 | | Action Elaborate_Subprogram
0054 BODY_0008:
0054 00bc | | Action Signal_Activated
0055 00bb | | Action Signal_Completion
0056 0000 0000 | | .XXX[0x2]
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 030d | | Action Push_String_Extended,0x30d ; "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 030e | | Action Push_String_Extended,0x30e ; "["
00c9 e5ff | | Load 0x2,-0x1
00ca 01cc | | Execute Vector,Catenate
00cb 0092 030f | | Action Push_String_Extended,0x30f ; " ("
00cd 01cc | | Execute Vector,Catenate
00ce e5fe | | Load 0x2,-0x2
00cf 821d | | Call 0x1,0x1d
00d0 01cc | | Execute Vector,Catenate
00d1 0092 0310 | | Action Push_String_Extended,0x310 ; ")]"
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 030e | | Action Push_String_Extended,0x30e ; "["
00f9 e5ff | | Load 0x2,-0x1
00fa 01cc | | Execute Vector,Catenate
00fb 0092 030f | | Action Push_String_Extended,0x30f ; " ("
00fd 01cc | | Execute Vector,Catenate
00fe e5fe | | Load 0x2,-0x2
00ff 821d | | Call 0x1,0x1d
0100 01cc | | Execute Vector,Catenate
0101 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0103 01cc | | Execute Vector,Catenate
0104 e5fd | | Load 0x2,-0x3
0105 821d | | Call 0x1,0x1d
0106 01cc | | Execute Vector,Catenate
0107 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0109 01cc | | Execute Vector,Catenate
010a e5fc | | Load 0x2,-0x4
010b 821d | | Call 0x1,0x1d
010c 01cc | | Execute Vector,Catenate
010d 0092 0310 | | Action Push_String_Extended,0x310 ; ")]"
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 030e | | Action Push_String_Extended,0x30e ; "["
0131 e5ff | | Load 0x2,-0x1
0132 01cc | | Execute Vector,Catenate
0133 0092 030f | | Action Push_String_Extended,0x30f ; " ("
0135 01cc | | Execute Vector,Catenate
0136 e5fe | | Load 0x2,-0x2
0137 821d | | Call 0x1,0x1d
0138 01cc | | Execute Vector,Catenate
0139 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
013b 01cc | | Execute Vector,Catenate
013c e5fd | | Load 0x2,-0x3
013d 821d | | Call 0x1,0x1d
013e 01cc | | Execute Vector,Catenate
013f 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0141 01cc | | Execute Vector,Catenate
0142 e5fc | | Load 0x2,-0x4
0143 821d | | Call 0x1,0x1d
0144 01cc | | Execute Vector,Catenate
0145 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0147 01cc | | Execute Vector,Catenate
0148 e5fb | | Load 0x2,-0x5
0149 821d | | Call 0x1,0x1d
014a 01cc | | Execute Vector,Catenate
014b 0092 0310 | | Action Push_String_Extended,0x310 ; ")]"
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 030e | | Action Push_String_Extended,0x30e ; "["
0171 e5ff | | Load 0x2,-0x1
0172 01cc | | Execute Vector,Catenate
0173 0092 030f | | Action Push_String_Extended,0x30f ; " ("
0175 01cc | | Execute Vector,Catenate
0176 e5fe | | Load 0x2,-0x2
0177 821d | | Call 0x1,0x1d
0178 01cc | | Execute Vector,Catenate
0179 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
017b 01cc | | Execute Vector,Catenate
017c e5fd | | Load 0x2,-0x3
017d 821d | | Call 0x1,0x1d
017e 01cc | | Execute Vector,Catenate
017f 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0181 01cc | | Execute Vector,Catenate
0182 e5fc | | Load 0x2,-0x4
0183 821d | | Call 0x1,0x1d
0184 01cc | | Execute Vector,Catenate
0185 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0187 01cc | | Execute Vector,Catenate
0188 e5fb | | Load 0x2,-0x5
0189 821d | | Call 0x1,0x1d
018a 01cc | | Execute Vector,Catenate
018b 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
018d 01cc | | Execute Vector,Catenate
018e e5fa | | Load 0x2,-0x6
018f 821d | | Call 0x1,0x1d
0190 01cc | | Execute Vector,Catenate
0191 0092 0310 | | Action Push_String_Extended,0x310 ; ")]"
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 030e | | Action Push_String_Extended,0x30e ; "["
01b9 e5ff | | Load 0x2,-0x1
01ba 01cc | | Execute Vector,Catenate
01bb 0092 030f | | Action Push_String_Extended,0x30f ; " ("
01bd 01cc | | Execute Vector,Catenate
01be e5fe | | Load 0x2,-0x2
01bf 821d | | Call 0x1,0x1d
01c0 01cc | | Execute Vector,Catenate
01c1 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
01c3 01cc | | Execute Vector,Catenate
01c4 e5fd | | Load 0x2,-0x3
01c5 821d | | Call 0x1,0x1d
01c6 01cc | | Execute Vector,Catenate
01c7 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
01c9 01cc | | Execute Vector,Catenate
01ca e5fc | | Load 0x2,-0x4
01cb 821d | | Call 0x1,0x1d
01cc 01cc | | Execute Vector,Catenate
01cd 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
01cf 01cc | | Execute Vector,Catenate
01d0 e5fb | | Load 0x2,-0x5
01d1 821d | | Call 0x1,0x1d
01d2 01cc | | Execute Vector,Catenate
01d3 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
01d5 01cc | | Execute Vector,Catenate
01d6 e5fa | | Load 0x2,-0x6
01d7 821d | | Call 0x1,0x1d
01d8 01cc | | Execute Vector,Catenate
01d9 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
01db 01cc | | Execute Vector,Catenate
01dc e5f9 | | Load 0x2,-0x7
01dd 821d | | Call 0x1,0x1d
01de 01cc | | Execute Vector,Catenate
01df 0092 0310 | | Action Push_String_Extended,0x310 ; ")]"
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 030e | | Action Push_String_Extended,0x30e ; "["
0209 e5ff | | Load 0x2,-0x1
020a 01cc | | Execute Vector,Catenate
020b 0092 030f | | Action Push_String_Extended,0x30f ; " ("
020d 01cc | | Execute Vector,Catenate
020e e5fe | | Load 0x2,-0x2
020f 821d | | Call 0x1,0x1d
0210 01cc | | Execute Vector,Catenate
0211 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0213 01cc | | Execute Vector,Catenate
0214 e5fd | | Load 0x2,-0x3
0215 821d | | Call 0x1,0x1d
0216 01cc | | Execute Vector,Catenate
0217 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0219 01cc | | Execute Vector,Catenate
021a e5fc | | Load 0x2,-0x4
021b 821d | | Call 0x1,0x1d
021c 01cc | | Execute Vector,Catenate
021d 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
021f 01cc | | Execute Vector,Catenate
0220 e5fb | | Load 0x2,-0x5
0221 821d | | Call 0x1,0x1d
0222 01cc | | Execute Vector,Catenate
0223 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0225 01cc | | Execute Vector,Catenate
0226 e5fa | | Load 0x2,-0x6
0227 821d | | Call 0x1,0x1d
0228 01cc | | Execute Vector,Catenate
0229 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
022b 01cc | | Execute Vector,Catenate
022c e5f9 | | Load 0x2,-0x7
022d 821d | | Call 0x1,0x1d
022e 01cc | | Execute Vector,Catenate
022f 0092 0311 | | Action Push_String_Extended,0x311 ; ", "
0231 01cc | | Execute Vector,Catenate
0232 e5f8 | | Load 0x2,-0x8
0233 821d | | Call 0x1,0x1d
0234 01cc | | Execute Vector,Catenate
0235 0092 0310 | | Action Push_String_Extended,0x310 ; ")]"
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 0303 | | Declare_Subprogram INIT_0300,For_Call
0245 BODY_0240:
0245 e5fd | | Load 0x2,-0x3
0246 4800 |H | Short_Literal 0x0
0247 0092 0312 | | Action Push_String_Extended,0x312 ; "[end of "
0249 e5ff | | Load 0x2,-0x1
024a 01cc | | Execute Vector,Catenate
024b 8402 | | Call 0x2,0x2
024c 01cc | | Execute Vector,Catenate
024d 0092 0313 | | Action Push_String_Extended,0x313 ; "]"
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 0314 | | Action Push_String_Extended,0x314 ; "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 0315 | | Action Push_String_Extended,0x315 ; "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 0316 | | Action Push_String_Extended,0x316 ; "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 0317 | | Action Push_String_Extended,0x317 ; "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 0318 | | Action Push_String_Extended,0x318 ; "\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 0319 | | Action Push_String_Extended,0x319 ; "\x22"
02c0 e5ff | | Load 0x2,-0x1
02c1 01cc | | Execute Vector,Catenate
02c2 0092 0319 | | Action Push_String_Extended,0x319 ; "\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 02cd | | .CONST 0x02cd ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0002 | | .CONST 0x0002 ; Number of locals
02cb INIT_02c8:
02cb e006 | | Load 0x0,0x6
02cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02cd BODY_02c8:
02cd e5fc | | Load 0x2,-0x4
02ce 460b |F | Jump_Case 0xc
02cf 780b |x | Jump 0x2db ; case 0x0
02d0 780a |x | Jump 0x2db ; case 0x1
02d1 7809 |x | Jump 0x2db ; case 0x2
02d2 780b |x | Jump 0x2de ; case 0x3
02d3 7807 |x | Jump 0x2db ; case 0x4
02d4 780c |x | Jump 0x2e1 ; case 0x5
02d5 7805 |x | Jump 0x2db ; case 0x6
02d6 780a |x | Jump 0x2e1 ; case 0x7
02d7 7803 |x | Jump 0x2db ; case 0x8
02d8 7802 |x | Jump 0x2db ; case 0x9
02d9 7801 |x | Jump 0x2db ; case 0xa
02da 7800 |x | Jump 0x2db ; case 0xb
02db 4800 |H | Short_Literal 0x0
02dc a402 | | Store_Unchecked 0x2,0x2
02dd 7805 |x | Jump 0x2e3
02de 4801 |H | Short_Literal 0x1
02df a402 | | Store_Unchecked 0x2,0x2
02e0 7802 |x | Jump 0x2e3
02e1 4802 |H | Short_Literal 0x2
02e2 a402 | | Store_Unchecked 0x2,0x2
02e3 482e |H. | Short_Literal 0x2e
02e4 e5fd | | Load 0x2,-0x3
02e5 0092 031a | | Action Push_String_Extended,0x31a ; " "
02e7 01cc | | Execute Vector,Catenate
02e8 e009 | | Load 0x0,0x9
02e9 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02ea e009 | | Load 0x0,0x9
02eb 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02ec 01cc | | Execute Vector,Catenate
02ed 01cb | | Execute Vector,Append
02ee e009 | | Load 0x0,0x9
02ef 1819 | | Execute Package,Field_Execute,Field_Number 0x19
02f0 e009 | | Load 0x0,0x9
02f1 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02f2 01cc | | Execute Vector,Catenate
02f3 e5fe | | Load 0x2,-0x2
02f4 e402 | | Load 0x2,0x2
02f5 e5ff | | Load 0x2,-0x1
02f6 e00a | | Load 0x0,0xa
02f7 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
02f8 e002 | | Load 0x0,0x2
02f9 180e | | Execute Package,Field_Execute,Field_Number 0xe
02fa e5fc | | Load 0x2,-0x4
02fb e5fd | | Load 0x2,-0x3
02fc e001 | | Load 0x0,0x1
02fd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02fe 4505 |E | Exit_Suprogram New_Top_Offset 0x5
02ff 0000 | | .XXX[0x1]
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 e5fe | | Load 0x2,-0x2
0304 01db | | Execute Vector,Length
0305 6805 |h | Jump_Zero 0x30b
0306 0092 031b | | Action Push_String_Extended,0x31b ; " - "
0308 e5fe | | Load 0x2,-0x2
0309 01cc | | Execute Vector,Catenate
030a 00ca | | Action Exit_Nullary_Function
030b 00ea | | Load_Encached Null_String_Cache
030c 00ca | | Action Exit_Nullary_Function
030d ; --------------------------------------------------------------------------------------
030d ; STRING TABLE
030d ; --------------------------------------------------------------------------------------
030d 0020 | | .STRTAB 0x0020->0x031d ; "Operator capability is required"
030e 003d | = | .STRTAB 0x003d->0x032c ; "["
030f 003c | < | .STRTAB 0x003c->0x032d ; " ("
0310 003c | < | .STRTAB 0x003c->0x032e ; ")]"
0311 003c | < | .STRTAB 0x003c->0x032f ; ", "
0312 003c | < | .STRTAB 0x003c->0x0330 ; "[end of "
0313 0042 | B | .STRTAB 0x0042->0x0334 ; "]"
0314 0041 | A | .STRTAB 0x0041->0x0334 ; "Terminated because of errors noted previously."
0315 006d | m | .STRTAB 0x006d->0x034b ; "Internal Error - Unexpected exception: "
0316 0092 | | .STRTAB 0x0092->0x035f ; "Unexpected exception"
0317 00a4 | | .STRTAB 0x00a4->0x0369 ; "Unexpected_exception"
0318 00b6 | | .STRTAB 0x00b6->0x0373 ; "\x22\x22"
0319 00b6 | | .STRTAB 0x00b6->0x0374 ; "\x22"
031a 00b5 | | .STRTAB 0x00b5->0x0374 ; " "
031b 00b5 | | .STRTAB 0x00b5->0x0375 ; " - "
031c 00b6 | | .STREND 0x00b6->0x0377
031d 4f70 6572 |Oper| .STRTAB_STRINGS
0377 0000 | | .XXX[0x1]
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug Table
0378 ; --------------------------------------------------------------------------------------
0378 0004 000d | | .DEBUG4 0x0004,0x000d,0x00cc,0x0000,0x0001,0x0000
037e 0783 029d | | .XXX[0x24]
0380 0793 029d | |
0382 07f3 1d0f | |
0384 00c7 029d | |
0386 089b 1d18 | |
0388 00c7 1d17 | |
038a 00c7 1d10 | |
038c 00c7 1d11 | |
038e 00c7 1d12 | |
0390 00c7 1d13 | |
0392 00c7 1d14 | |
0394 00c7 1d15 | |
0396 00c7 1d16 | |
0398 00c7 e219 | |
039a 1b14 4865 | He|
039c e219 181b | |
039e c21b 8227 | '|
03a0 00bc 00bb | |
03a2 0000 0000 | | .BLANK 0000[0x6]
03a8 01ab 01ba | | .XXX[0x58]
03aa 0001 00da | |
03ac e004 1818 | |
03ae 6805 00da |h |
03b0 e001 1b35 | 5|
03b2 1843 4401 | CD |
03b4 4801 48c8 |H H |
03b6 e5ff e005 | |
03b8 180d 4401 | D |
03ba 0007 0092 | |
03bc 095e 4401 | ^D |
03be 0000 0000 | |
03c0 01cd 0221 | !|
03c2 0006 00e1 | |
03c4 00ec 00ec | |
03c6 00ec e001 | |
03c8 1b38 1b33 | 8 3|
03ca 02c7 00d8 | |
03cc 1c00 00eb | |
03ce 1812 0032 | 2|
03d0 e5fe e5ff | |
03d2 8239 0033 | 9 3|
03d4 00da 00eb | |
03d6 1813 6808 | h |
03d8 e5fe 00eb | |
03da 1813 6801 | h |
03dc 7817 00eb |x |
03de 1812 4402 | D |
03e0 00d8 0120 | |
03e2 6804 e001 |h |
03e4 1b38 1b33 | 8 3|
03e6 7801 00d8 |x |
03e8 00eb 1812 | |
03ea 8220 c406 | |
03ec 00ec 00db | |
03ee 8229 0032 | ) 2|
03f0 00d8 8222 | "|
03f2 00d9 4402 | D |
03f4 00d8 0120 | |
03f6 6804 e001 |h |
03f8 1b38 1b33 | 8 3|
03fa 7801 00d8 |x |
03fc 00eb 1812 | |
03fe 8220 c406 | |