|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0268 | h | .CONST 0x0268 ; 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 0001 | | .CONST 0x0001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0042 | B | .CONST 0x0042 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001a | | .CONST 0x001a ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x02ea,0x8000,0x0000,0x0037,0xaff4,0x0000,0x0005
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 004b | K| Declare_Subprogram INIT_0048,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 0073 | s| Declare_Subprogram INIT_0070,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 0092 021c | | Action Push_String_Extended,0x21c ; "Internal error"
; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 0129 | ) | Execute Any,Make_Visible
0015 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x15,0xfffa
0017 029a 00a3 | | Declare_Subprogram INIT_00a0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x6 = 0x17,0xfff9
0019 029a 00bb | | Declare_Subprogram INIT_00b8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x19,0xfff8
001b 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1b,0xfff7
001d 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x9 = 0x1d,0xfff6
001f 029a 012b | +| Declare_Subprogram INIT_0128,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x1f,0xfff5
0021 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x21,0xfff4
0023 029a 0193 | | Declare_Subprogram INIT_0190,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x23,0xfff3
0025 029a 01d3 | | Declare_Subprogram INIT_01d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x25,0xfff2
0027 00bf | | Action Accept_Activation
0028 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0028,0x0308,0x8000,0x0000,0x0037,0xb314,0x0000,0x000b
; Debug Table 0x1.0x0 = 0x28,0xffff
0029 00c7 | | Action Elaborate_Subprogram
002a 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x2a,0xfffe
002b 00c7 | | Action Elaborate_Subprogram
002c 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x2c,0xfffd
002d 00c7 | | Action Elaborate_Subprogram
002e 029d 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call ; Debug Table 0x1.0x3 = 0x2e,0xfffc
0030 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x30,0xfffb
0031 00c7 | | Action Elaborate_Subprogram
0032 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x5 = 0x32,0xfffa
0033 00c7 | | Action Elaborate_Subprogram
0034 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0x6 = 0x34,0xfff9
0035 00c7 | | Action Elaborate_Subprogram
0036 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x7 = 0x36,0xfff8
0037 00c7 | | Action Elaborate_Subprogram
0038 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x8 = 0x38,0xfff7
0039 00c7 | | Action Elaborate_Subprogram
003a 1d16 | | Execute_Immediate Reference_Lex_1,0x16 ; Debug Table 0x1.0x9 = 0x3a,0xfff6
003b 00c7 | | Action Elaborate_Subprogram
003c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0xa = 0x3c,0xfff5
003d 00c7 | | Action Elaborate_Subprogram
003e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0xb = 0x3e,0xfff4
003f 00c7 | | Action Elaborate_Subprogram
0040 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0xc = 0x40,0xfff3
0041 00c7 | | Action Elaborate_Subprogram
0042 BODY_0008:
0042 00bc | | Action Signal_Activated
0043 00bb | | Action Signal_Completion
0044 0000 0000 | | .BLANK 0000[0x4]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b | K | .CONST 0x004b ; Address of begin
0049 0004 | | .CONST 0x0004 ; Address of exception handler
004a 0001 | | .CONST 0x0001 ; Number of locals
004b BODY_0048:
004b INIT_0048:
004b e5fd | | Load 0x2,-0x3 ; Debug Table 0x2 = .DEBUG 0x004b,0x0324,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0009
; Debug Table 0x2.0x0 = 0x4b,0x1
004c e5fe | | Load 0x2,-0x2
004d e5ff | | Load 0x2,-0x1
004e e001 | | Load 0x0,0x1
004f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0050 00db | | Load_Top At_Offset_3 ; Debug Table 0x2.0x1 = 0x50,0x2
0051 0b07 | | Execute_Immediate Case_Compare,0x7
0052 7003 |p | Jump_Nonzero 0x56
0053 0b08 | | Execute_Immediate Case_Compare,0x8
0054 7001 |p | Jump_Nonzero 0x56
0055 4504 |E | Exit_Suprogram New_Top_Offset 0x4 ; Debug Table 0x2.0x2 = 0x55,0x5
0056 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x3 = 0x56,0x3
0057 e002 | | Load 0x0,0x2
0058 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0059 6803 |h | Jump_Zero 0x5d
005a e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x4 = 0x5a,0x4
005b 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
005c 0257 | W | Execute Discrete,Raise
005d 4504 |E | Exit_Suprogram New_Top_Offset 0x4
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063 | c | .CONST 0x0063 ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0001 | | .CONST 0x0001 ; Number of locals
0063 BODY_0060:
0063 INIT_0060:
0063 00db | | Load_Top At_Offset_3 ; Debug Table 0x3 = .DEBUG 0x0063,0x0330,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0023
; Debug Table 0x3.0x0 = 0x63,0x1
0064 4807 |H | Short_Literal 0x7
0065 e5ff | | Load 0x2,-0x1
0066 e001 | | Load 0x0,0x1
0067 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0068 00db | | Load_Top At_Offset_3 ; Debug Table 0x3.0x1 = 0x68,0x2
0069 e002 | | Load 0x0,0x2
006a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
006b 6803 |h | Jump_Zero 0x6f
006c e002 | | Load 0x0,0x2 ; Debug Table 0x3.0x2 = 0x6c,0x3
006d 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
006e 0257 | W | Execute Discrete,Raise
006f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
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 e003 | | Load 0x0,0x3 ; Debug Table 0x4 = .DEBUG 0x0073,0x0338,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0034
; Debug Table 0x4.0x0 = 0x73,0x1
0074 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0075 e004 | | Load 0x0,0x4
0076 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0077 7014 |p | Jump_Nonzero 0x8c
0078 00da | | Load_Top At_Offset_2 ; Debug Table 0x4.0x1 = 0x78,0x2
0079 6805 |h | Jump_Zero 0x7f
007a 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x2 = 0x7a,0x3
007b 0092 021d | | Action Push_String_Extended,0x21d ; "Operator capability is required"
007d 820e | | Call 0x1,0xe
007e 7804 |x | Jump 0x83
007f 0092 021e | | Action Push_String_Extended,0x21e ; "Operator capability is required to execute this command."
; Debug Table 0x4.0x3 = 0x7f,0x4
0081 e005 | | Load 0x0,0x5
0082 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0083 00db | | Load_Top At_Offset_3 ; Debug Table 0x4.0x4 = 0x83,0x5
0084 e002 | | Load 0x0,0x2
0085 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0086 6803 |h | Jump_Zero 0x8a
0087 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x5 = 0x87,0x6
0088 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0089 0257 | W | Execute Discrete,Raise
008a 618d |a | Indirect_Literal Discrete,0x218,{0x00000000, 0x37aff401} ; Debug Table 0x4.0x6 = 0x8a,0x7
008b 0257 | W | Execute Discrete,Raise
008c 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008d 0000 0000 | | .XXX[0x3]
008f 0000 | |
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 00db | | Load_Top At_Offset_3 ; Debug Table 0x5 = .DEBUG 0x0093,0x0348,0x0001,0x0000,0x0037,0xaff4,0x0000,0x004c
; Debug Table 0x5.0x0 = 0x93,0x1
0094 4800 |H | Short_Literal 0x0
0095 0092 021f | | Action Push_String_Extended,0x21f ; "["
0097 e5ff | | Load 0x2,-0x1
0098 01cc | | Execute Vector,Catenate
0099 0092 0220 | | Action Push_String_Extended,0x220 ; "]"
009b 01cc | | Execute Vector,Catenate
009c e001 | | Load 0x0,0x1
009d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
009f 0000 | | .XXX[0x1]
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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6 = .DEBUG 0x00a3,0x034c,0x0001,0x0000,0x0037,0xaff4,0x0000,0x005d
; Debug Table 0x6.0x0 = 0xa3,0x1
00a4 4800 |H | Short_Literal 0x0
00a5 0092 021f | | Action Push_String_Extended,0x21f ; "["
00a7 e5ff | | Load 0x2,-0x1
00a8 01cc | | Execute Vector,Catenate
00a9 0092 0221 | !| Action Push_String_Extended,0x221 ; "("
00ab 01cc | | Execute Vector,Catenate
00ac e5fe | | Load 0x2,-0x2
00ad 821a | | Call 0x1,0x1a
00ae 01cc | | Execute Vector,Catenate
00af 0092 0222 | "| Action Push_String_Extended,0x222 ; ")]"
00b1 01cc | | Execute Vector,Catenate
00b2 e001 | | Load 0x0,0x1
00b3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b4 4504 |E | Exit_Suprogram New_Top_Offset 0x4
00b5 0000 0000 | | .XXX[0x3]
00b7 0000 | |
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb | | .CONST 0x00bb ; Address of begin
00b9 0004 | | .CONST 0x0004 ; Address of exception handler
00ba 0001 | | .CONST 0x0001 ; Number of locals
00bb BODY_00b8:
00bb INIT_00b8:
00bb e5fc | | Load 0x2,-0x4 ; Debug Table 0x7 = .DEBUG 0x00bb,0x0350,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0072
; Debug Table 0x7.0x0 = 0xbb,0x1
00bc 4800 |H | Short_Literal 0x0
00bd 0092 021f | | Action Push_String_Extended,0x21f ; "["
00bf e5ff | | Load 0x2,-0x1
00c0 01cc | | Execute Vector,Catenate
00c1 0092 0223 | #| Action Push_String_Extended,0x223 ; " ("
00c3 01cc | | Execute Vector,Catenate
00c4 e5fe | | Load 0x2,-0x2
00c5 821a | | Call 0x1,0x1a
00c6 01cc | | Execute Vector,Catenate
00c7 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
00c9 01cc | | Execute Vector,Catenate
00ca e5fd | | Load 0x2,-0x3
00cb 821a | | Call 0x1,0x1a
00cc 01cc | | Execute Vector,Catenate
00cd 0092 0222 | "| Action Push_String_Extended,0x222 ; ")]"
00cf 01cc | | Execute Vector,Catenate
00d0 e001 | | Load 0x0,0x1
00d1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00d2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00d3 0000 0000 | | .BLANK 0000[0x5]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db | | .CONST 0x00db ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0001 | | .CONST 0x0001 ; Number of locals
00db BODY_00d8:
00db INIT_00d8:
00db e5fb | | Load 0x2,-0x5 ; Debug Table 0x8 = .DEBUG 0x00db,0x0354,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0088
; Debug Table 0x8.0x0 = 0xdb,0x1
00dc 4800 |H | Short_Literal 0x0
00dd 0092 021f | | Action Push_String_Extended,0x21f ; "["
00df e5ff | | Load 0x2,-0x1
00e0 01cc | | Execute Vector,Catenate
00e1 0092 0223 | #| Action Push_String_Extended,0x223 ; " ("
00e3 01cc | | Execute Vector,Catenate
00e4 e5fe | | Load 0x2,-0x2
00e5 821a | | Call 0x1,0x1a
00e6 01cc | | Execute Vector,Catenate
00e7 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
00e9 01cc | | Execute Vector,Catenate
00ea e5fd | | Load 0x2,-0x3
00eb 821a | | Call 0x1,0x1a
00ec 01cc | | Execute Vector,Catenate
00ed 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
00ef 01cc | | Execute Vector,Catenate
00f0 e5fc | | Load 0x2,-0x4
00f1 821a | | Call 0x1,0x1a
00f2 01cc | | Execute Vector,Catenate
00f3 0092 0222 | "| Action Push_String_Extended,0x222 ; ")]"
00f5 01cc | | Execute Vector,Catenate
00f6 e001 | | Load 0x0,0x1
00f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f8 4506 |E | Exit_Suprogram New_Top_Offset 0x6
00f9 0000 0000 | | .BLANK 0000[0x7]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e5fa | | Load 0x2,-0x6 ; Debug Table 0x9 = .DEBUG 0x0103,0x0358,0x0001,0x0000,0x0037,0xaff4,0x0000,0x009f
; Debug Table 0x9.0x0 = 0x103,0x1
0104 4800 |H | Short_Literal 0x0
0105 0092 021f | | Action Push_String_Extended,0x21f ; "["
0107 e5ff | | Load 0x2,-0x1
0108 01cc | | Execute Vector,Catenate
0109 0092 0223 | #| Action Push_String_Extended,0x223 ; " ("
010b 01cc | | Execute Vector,Catenate
010c e5fe | | Load 0x2,-0x2
010d 821a | | Call 0x1,0x1a
010e 01cc | | Execute Vector,Catenate
010f 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
0111 01cc | | Execute Vector,Catenate
0112 e5fd | | Load 0x2,-0x3
0113 821a | | Call 0x1,0x1a
0114 01cc | | Execute Vector,Catenate
0115 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
0117 01cc | | Execute Vector,Catenate
0118 e5fc | | Load 0x2,-0x4
0119 821a | | Call 0x1,0x1a
011a 01cc | | Execute Vector,Catenate
011b 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
011d 01cc | | Execute Vector,Catenate
011e e5fb | | Load 0x2,-0x5
011f 821a | | Call 0x1,0x1a
0120 01cc | | Execute Vector,Catenate
0121 0092 0222 | "| Action Push_String_Extended,0x222 ; ")]"
0123 01cc | | Execute Vector,Catenate
0124 e001 | | Load 0x0,0x1
0125 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0126 4507 |E | Exit_Suprogram New_Top_Offset 0x7
0127 0000 | | .XXX[0x1]
0128 ; --------------------------------------------------------------------------------------
0128 ; SUBPROGRAM
0128 ; --------------------------------------------------------------------------------------
0128 012b | + | .CONST 0x012b ; Address of begin
0129 0004 | | .CONST 0x0004 ; Address of exception handler
012a 0001 | | .CONST 0x0001 ; Number of locals
012b BODY_0128:
012b INIT_0128:
012b e5f9 | | Load 0x2,-0x7 ; Debug Table 0xa = .DEBUG 0x012b,0x035c,0x0001,0x0000,0x0037,0xaff4,0x0000,0x00b7
; Debug Table 0xa.0x0 = 0x12b,0x1
012c 4800 |H | Short_Literal 0x0
012d 0092 021f | | Action Push_String_Extended,0x21f ; "["
012f e5ff | | Load 0x2,-0x1
0130 01cc | | Execute Vector,Catenate
0131 0092 0223 | #| Action Push_String_Extended,0x223 ; " ("
0133 01cc | | Execute Vector,Catenate
0134 e5fe | | Load 0x2,-0x2
0135 821a | | Call 0x1,0x1a
0136 01cc | | Execute Vector,Catenate
0137 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
0139 01cc | | Execute Vector,Catenate
013a e5fd | | Load 0x2,-0x3
013b 821a | | Call 0x1,0x1a
013c 01cc | | Execute Vector,Catenate
013d 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
013f 01cc | | Execute Vector,Catenate
0140 e5fc | | Load 0x2,-0x4
0141 821a | | Call 0x1,0x1a
0142 01cc | | Execute Vector,Catenate
0143 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
0145 01cc | | Execute Vector,Catenate
0146 e5fb | | Load 0x2,-0x5
0147 821a | | Call 0x1,0x1a
0148 01cc | | Execute Vector,Catenate
0149 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
014b 01cc | | Execute Vector,Catenate
014c e5fa | | Load 0x2,-0x6
014d 821a | | Call 0x1,0x1a
014e 01cc | | Execute Vector,Catenate
014f 0092 0222 | "| Action Push_String_Extended,0x222 ; ")]"
0151 01cc | | Execute Vector,Catenate
0152 e001 | | Load 0x0,0x1
0153 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0154 4508 |E | Exit_Suprogram New_Top_Offset 0x8
0155 0000 0000 | | .XXX[0x3]
0157 0000 | |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b e5f8 | | Load 0x2,-0x8 ; Debug Table 0xb = .DEBUG 0x015b,0x0360,0x0001,0x0000,0x0037,0xaff4,0x0000,0x00d0
; Debug Table 0xb.0x0 = 0x15b,0x1
015c 4800 |H | Short_Literal 0x0
015d 0092 021f | | Action Push_String_Extended,0x21f ; "["
015f e5ff | | Load 0x2,-0x1
0160 01cc | | Execute Vector,Catenate
0161 0092 0223 | #| Action Push_String_Extended,0x223 ; " ("
0163 01cc | | Execute Vector,Catenate
0164 e5fe | | Load 0x2,-0x2
0165 821a | | Call 0x1,0x1a
0166 01cc | | Execute Vector,Catenate
0167 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
0169 01cc | | Execute Vector,Catenate
016a e5fd | | Load 0x2,-0x3
016b 821a | | Call 0x1,0x1a
016c 01cc | | Execute Vector,Catenate
016d 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
016f 01cc | | Execute Vector,Catenate
0170 e5fc | | Load 0x2,-0x4
0171 821a | | Call 0x1,0x1a
0172 01cc | | Execute Vector,Catenate
0173 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
0175 01cc | | Execute Vector,Catenate
0176 e5fb | | Load 0x2,-0x5
0177 821a | | Call 0x1,0x1a
0178 01cc | | Execute Vector,Catenate
0179 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
017b 01cc | | Execute Vector,Catenate
017c e5fa | | Load 0x2,-0x6
017d 821a | | Call 0x1,0x1a
017e 01cc | | Execute Vector,Catenate
017f 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
0181 01cc | | Execute Vector,Catenate
0182 e5f9 | | Load 0x2,-0x7
0183 821a | | Call 0x1,0x1a
0184 01cc | | Execute Vector,Catenate
0185 0092 0222 | "| Action Push_String_Extended,0x222 ; ")]"
0187 01cc | | Execute Vector,Catenate
0188 e001 | | Load 0x0,0x1
0189 1813 | | Execute Package,Field_Execute,Field_Number 0x13
018a 4509 |E | Exit_Suprogram New_Top_Offset 0x9
018b 0000 0000 | | .BLANK 0000[0x5]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 e5f7 | | Load 0x2,-0x9 ; Debug Table 0xc = .DEBUG 0x0193,0x0364,0x0001,0x0000,0x0037,0xaff4,0x0000,0x00ea
; Debug Table 0xc.0x0 = 0x193,0x1
0194 4800 |H | Short_Literal 0x0
0195 0092 021f | | Action Push_String_Extended,0x21f ; "["
0197 e5ff | | Load 0x2,-0x1
0198 01cc | | Execute Vector,Catenate
0199 0092 0223 | #| Action Push_String_Extended,0x223 ; " ("
019b 01cc | | Execute Vector,Catenate
019c e5fe | | Load 0x2,-0x2
019d 821a | | Call 0x1,0x1a
019e 01cc | | Execute Vector,Catenate
019f 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
01a1 01cc | | Execute Vector,Catenate
01a2 e5fd | | Load 0x2,-0x3
01a3 821a | | Call 0x1,0x1a
01a4 01cc | | Execute Vector,Catenate
01a5 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
01a7 01cc | | Execute Vector,Catenate
01a8 e5fc | | Load 0x2,-0x4
01a9 821a | | Call 0x1,0x1a
01aa 01cc | | Execute Vector,Catenate
01ab 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
01ad 01cc | | Execute Vector,Catenate
01ae e5fb | | Load 0x2,-0x5
01af 821a | | Call 0x1,0x1a
01b0 01cc | | Execute Vector,Catenate
01b1 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
01b3 01cc | | Execute Vector,Catenate
01b4 e5fa | | Load 0x2,-0x6
01b5 821a | | Call 0x1,0x1a
01b6 01cc | | Execute Vector,Catenate
01b7 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
01b9 01cc | | Execute Vector,Catenate
01ba e5f9 | | Load 0x2,-0x7
01bb 821a | | Call 0x1,0x1a
01bc 01cc | | Execute Vector,Catenate
01bd 0092 0224 | $| Action Push_String_Extended,0x224 ; ", "
01bf 01cc | | Execute Vector,Catenate
01c0 e5f8 | | Load 0x2,-0x8
01c1 821a | | Call 0x1,0x1a
01c2 01cc | | Execute Vector,Catenate
01c3 0092 0222 | "| Action Push_String_Extended,0x222 ; ")]"
01c5 01cc | | Execute Vector,Catenate
01c6 e001 | | Load 0x0,0x1
01c7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c8 450a |E | Exit_Suprogram New_Top_Offset 0xa
01c9 0000 0000 | | .BLANK 0000[0x7]
01d0 ; --------------------------------------------------------------------------------------
01d0 ; SUBPROGRAM
01d0 ; --------------------------------------------------------------------------------------
01d0 01d5 | | .CONST 0x01d5 ; Address of begin
01d1 0004 | | .CONST 0x0004 ; Address of exception handler
01d2 0002 | | .CONST 0x0002 ; Number of locals
01d3 INIT_01d0:
01d3 029f 020b | | Declare_Subprogram INIT_0208,For_Call ; Debug Table 0xd = .DEBUG 0x01d3,0x0368,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0105
; Debug Table 0xd.0x0 = 0x1d3,0xffff
01d5 BODY_01d0:
01d5 e5fd | | Load 0x2,-0x3 ; Debug Table 0xd.0x1 = 0x1d5,0x1
01d6 4800 |H | Short_Literal 0x0
01d7 0092 0225 | %| Action Push_String_Extended,0x225 ; "[end of "
01d9 e5ff | | Load 0x2,-0x1
01da 01cc | | Execute Vector,Catenate
01db 8402 | | Call 0x2,0x2
01dc 01cc | | Execute Vector,Catenate
01dd 0092 0220 | | Action Push_String_Extended,0x220 ; "]"
01df 01cc | | Execute Vector,Catenate
01e0 e001 | | Load 0x0,0x1
01e1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e2 4504 |E | Exit_Suprogram New_Top_Offset 0x4
01e3 0000 0000 | | .BLANK 0000[0x5]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2 ; Debug Table 0xe = .DEBUG 0x01eb,0x036e,0x0002,0x0000,0x0037,0xb314,0x0000,0x00bd
; Debug Table 0xe.0x0 = 0x1eb,0x1
01ec 01db | | Execute Vector,Length
01ed 7003 |p | Jump_Nonzero 0x1f1
01ee 0092 0226 | &| Action Push_String_Extended,0x226 ; "\x22\x22"
; Debug Table 0xe.0x1 = 0x1ee,0x2
01f0 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01f1 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x2 = 0x1f1,0x3
01f2 01dd | | Execute Vector,First
01f3 00db | | Load_Top At_Offset_3
01f4 01d7 | | Execute Vector,Field_Read
01f5 0f2b | + | Execute_Immediate Equal,0x2b
01f6 6809 |h | Jump_Zero 0x200
01f7 00da | | Load_Top At_Offset_2 ; Debug Table 0xe.0x3 = 0x1f7,0x4
01f8 01dd | | Execute Vector,First
01f9 0a01 | | Execute_Immediate Plus,0x1
01fa 0248 | H | Execute Discrete,Check_In_Integer
01fb 00db | | Load_Top At_Offset_3
01fc 01dc | | Execute Vector,Last
01fd e5ff | | Load 0x2,-0x1
01fe 01cf | | Execute Vector,Slice_Read
01ff 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0200 0092 0227 | '| Action Push_String_Extended,0x227 ; "\x22"
; Debug Table 0xe.0x4 = 0x200,0x5
0202 00db | | Load_Top At_Offset_3
0203 01cc | | Execute Vector,Catenate
0204 0092 0227 | '| Action Push_String_Extended,0x227 ; "\x22"
0206 01cc | | Execute Vector,Catenate
0207 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0208 ; --------------------------------------------------------------------------------------
0208 ; SUBPROGRAM
0208 ; --------------------------------------------------------------------------------------
0208 020b | | .CONST 0x020b ; Address of begin
0209 0004 | | .CONST 0x0004 ; Address of exception handler
020a 0001 | | .CONST 0x0001 ; Number of locals
020b BODY_0208:
020b INIT_0208:
020b e5fe | | Load 0x2,-0x2 ; Debug Table 0xf = .DEBUG 0x020b,0x037a,0x0002,0x0000,0x0037,0xb314,0x0000,0x03ae
; Debug Table 0xf.0x0 = 0x20b,0x1
020c 01db | | Execute Vector,Length
020d 6805 |h | Jump_Zero 0x213
020e 0092 0228 | (| Action Push_String_Extended,0x228 ; " - "
; Debug Table 0xf.0x1 = 0x20e,0x2
0210 e5fe | | Load 0x2,-0x2
0211 01cc | | Execute Vector,Catenate
0212 00ca | | Action Exit_Nullary_Function
0213 00ea | | Load_Encached Null_String_Cache ; Debug Table 0xf.0x2 = 0x213,0x3
0214 00ca | | Action Exit_Nullary_Function
0215 0000 0000 | | .XXX[0x3]
0217 0000 | |
0218 0000 0000 | | .LITERAL {0x00000000, 0x37aff401}
021c ; --------------------------------------------------------------------------------------
021c ; STRING TABLE
021c ; --------------------------------------------------------------------------------------
021c 001c | | .STRTAB 0x001c->0x022a ; "Internal error"
021d 0028 | ( | .STRTAB 0x0028->0x0231 ; "Operator capability is required"
021e 0045 | E | .STRTAB 0x0045->0x0240 ; "Operator capability is required to execute this command."
021f 007b | { | .STRTAB 0x007b->0x025c ; "["
0220 007a | z | .STRTAB 0x007a->0x025d ; "]"
0221 0079 | y | .STRTAB 0x0079->0x025d ; "("
0222 0078 | x | .STRTAB 0x0078->0x025e ; ")]"
0223 0078 | x | .STRTAB 0x0078->0x025f ; " ("
0224 0078 | x | .STRTAB 0x0078->0x0260 ; ", "
0225 0078 | x | .STRTAB 0x0078->0x0261 ; "[end of "
0226 007e | ~ | .STRTAB 0x007e->0x0265 ; "\x22\x22"
0227 007e | ~ | .STRTAB 0x007e->0x0266 ; "\x22"
0228 007d | } | .STRTAB 0x007d->0x0266 ; " - "
0229 007e | ~ | .STREND 0x007e->0x0268
022a 496e 7465 |Inte| .STRTAB_STRINGS
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug Table
0268 ; --------------------------------------------------------------------------------------
0268 0003 0010 | | .CONST 0x0003,0x0010
026a 000b 02ea | | .DEBUG 0x000b,0x02ea,0x8000,0x0000,0x0037,0xaff4,0x0000,0x0005
0272 0028 0308 | ( | .DEBUG 0x0028,0x0308,0x8000,0x0000,0x0037,0xb314,0x0000,0x000b
027a 004b 0324 | K $| .DEBUG 0x004b,0x0324,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0009
0282 0063 0330 | c 0| .DEBUG 0x0063,0x0330,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0023
028a 0073 0338 | s 8| .DEBUG 0x0073,0x0338,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0034
0292 0093 0348 | H| .DEBUG 0x0093,0x0348,0x0001,0x0000,0x0037,0xaff4,0x0000,0x004c
029a 00a3 034c | L| .DEBUG 0x00a3,0x034c,0x0001,0x0000,0x0037,0xaff4,0x0000,0x005d
02a2 00bb 0350 | P| .DEBUG 0x00bb,0x0350,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0072
02aa 00db 0354 | T| .DEBUG 0x00db,0x0354,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0088
02b2 0103 0358 | X| .DEBUG 0x0103,0x0358,0x0001,0x0000,0x0037,0xaff4,0x0000,0x009f
02ba 012b 035c | + \| .DEBUG 0x012b,0x035c,0x0001,0x0000,0x0037,0xaff4,0x0000,0x00b7
02c2 015b 0360 | [ `| .DEBUG 0x015b,0x0360,0x0001,0x0000,0x0037,0xaff4,0x0000,0x00d0
02ca 0193 0364 | d| .DEBUG 0x0193,0x0364,0x0001,0x0000,0x0037,0xaff4,0x0000,0x00ea
02d2 01d3 0368 | h| .DEBUG 0x01d3,0x0368,0x0001,0x0000,0x0037,0xaff4,0x0000,0x0105
02da 01eb 036e | n| .DEBUG 0x01eb,0x036e,0x0002,0x0000,0x0037,0xb314,0x0000,0x00bd
02e2 020b 037a | z| .DEBUG 0x020b,0x037a,0x0002,0x0000,0x0037,0xb314,0x0000,0x03ae
02ea ; --------------------------------------------------------------------------------------
02ea ; Debug3 Subtable 0x0
02ea ; --------------------------------------------------------------------------------------
02ea 000e 0000 | | .DBG3TAB 0x000e,0x0000
02ec 000b ffff | | .CONST 0x000b,0xffff
02ee 000c fffe | | .CONST 0x000c,0xfffe
02f0 000e fffd | | .CONST 0x000e,0xfffd
02f2 0010 fffc | | .CONST 0x0010,0xfffc
02f4 0012 fffb | | .CONST 0x0012,0xfffb
02f6 0015 fffa | | .CONST 0x0015,0xfffa
02f8 0017 fff9 | | .CONST 0x0017,0xfff9
02fa 0019 fff8 | | .CONST 0x0019,0xfff8
02fc 001b fff7 | | .CONST 0x001b,0xfff7
02fe 001d fff6 | | .CONST 0x001d,0xfff6
0300 001f fff5 | | .CONST 0x001f,0xfff5
0302 0021 fff4 | ! | .CONST 0x0021,0xfff4
0304 0023 fff3 | # | .CONST 0x0023,0xfff3
0306 0025 fff2 | % | .CONST 0x0025,0xfff2
0308 ; --------------------------------------------------------------------------------------
0308 ; Debug3 Subtable 0x1
0308 ; --------------------------------------------------------------------------------------
0308 000d 0000 | | .DBG3TAB 0x000d,0x0000
030a 0028 ffff | ( | .CONST 0x0028,0xffff
030c 002a fffe | * | .CONST 0x002a,0xfffe
030e 002c fffd | , | .CONST 0x002c,0xfffd
0310 002e fffc | . | .CONST 0x002e,0xfffc
0312 0030 fffb | 0 | .CONST 0x0030,0xfffb
0314 0032 fffa | 2 | .CONST 0x0032,0xfffa
0316 0034 fff9 | 4 | .CONST 0x0034,0xfff9
0318 0036 fff8 | 6 | .CONST 0x0036,0xfff8
031a 0038 fff7 | 8 | .CONST 0x0038,0xfff7
031c 003a fff6 | : | .CONST 0x003a,0xfff6
031e 003c fff5 | < | .CONST 0x003c,0xfff5
0320 003e fff4 | > | .CONST 0x003e,0xfff4
0322 0040 fff3 | @ | .CONST 0x0040,0xfff3
0324 ; --------------------------------------------------------------------------------------
0324 ; Debug3 Subtable 0x2
0324 ; --------------------------------------------------------------------------------------
0324 0000 0005 | | .DBG3TAB 0x0000,0x0005
0326 004b 0001 | K | .CONST 0x004b,0x0001
0328 0050 0002 | P | .CONST 0x0050,0x0002
032a 0055 0005 | U | .CONST 0x0055,0x0005
032c 0056 0003 | V | .CONST 0x0056,0x0003
032e 005a 0004 | Z | .CONST 0x005a,0x0004
0330 ; --------------------------------------------------------------------------------------
0330 ; Debug3 Subtable 0x3
0330 ; --------------------------------------------------------------------------------------
0330 0000 0003 | | .DBG3TAB 0x0000,0x0003
0332 0063 0001 | c | .CONST 0x0063,0x0001
0334 0068 0002 | h | .CONST 0x0068,0x0002
0336 006c 0003 | l | .CONST 0x006c,0x0003
0338 ; --------------------------------------------------------------------------------------
0338 ; Debug3 Subtable 0x4
0338 ; --------------------------------------------------------------------------------------
0338 0000 0007 | | .DBG3TAB 0x0000,0x0007
033a 0073 0001 | s | .CONST 0x0073,0x0001
033c 0078 0002 | x | .CONST 0x0078,0x0002
033e 007a 0003 | z | .CONST 0x007a,0x0003
0340 007f 0004 | | .CONST 0x007f,0x0004
0342 0083 0005 | | .CONST 0x0083,0x0005
0344 0087 0006 | | .CONST 0x0087,0x0006
0346 008a 0007 | | .CONST 0x008a,0x0007
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug3 Subtable 0x5
0348 ; --------------------------------------------------------------------------------------
0348 0000 0001 | | .DBG3TAB 0x0000,0x0001
034a 0093 0001 | | .CONST 0x0093,0x0001
034c ; --------------------------------------------------------------------------------------
034c ; Debug3 Subtable 0x6
034c ; --------------------------------------------------------------------------------------
034c 0000 0001 | | .DBG3TAB 0x0000,0x0001
034e 00a3 0001 | | .CONST 0x00a3,0x0001
0350 ; --------------------------------------------------------------------------------------
0350 ; Debug3 Subtable 0x7
0350 ; --------------------------------------------------------------------------------------
0350 0000 0001 | | .DBG3TAB 0x0000,0x0001
0352 00bb 0001 | | .CONST 0x00bb,0x0001
0354 ; --------------------------------------------------------------------------------------
0354 ; Debug3 Subtable 0x8
0354 ; --------------------------------------------------------------------------------------
0354 0000 0001 | | .DBG3TAB 0x0000,0x0001
0356 00db 0001 | | .CONST 0x00db,0x0001
0358 ; --------------------------------------------------------------------------------------
0358 ; Debug3 Subtable 0x9
0358 ; --------------------------------------------------------------------------------------
0358 0000 0001 | | .DBG3TAB 0x0000,0x0001
035a 0103 0001 | | .CONST 0x0103,0x0001
035c ; --------------------------------------------------------------------------------------
035c ; Debug3 Subtable 0xa
035c ; --------------------------------------------------------------------------------------
035c 0000 0001 | | .DBG3TAB 0x0000,0x0001
035e 012b 0001 | + | .CONST 0x012b,0x0001
0360 ; --------------------------------------------------------------------------------------
0360 ; Debug3 Subtable 0xb
0360 ; --------------------------------------------------------------------------------------
0360 0000 0001 | | .DBG3TAB 0x0000,0x0001
0362 015b 0001 | [ | .CONST 0x015b,0x0001
0364 ; --------------------------------------------------------------------------------------
0364 ; Debug3 Subtable 0xc
0364 ; --------------------------------------------------------------------------------------
0364 0000 0001 | | .DBG3TAB 0x0000,0x0001
0366 0193 0001 | | .CONST 0x0193,0x0001
0368 ; --------------------------------------------------------------------------------------
0368 ; Debug3 Subtable 0xd
0368 ; --------------------------------------------------------------------------------------
0368 0001 0001 | | .DBG3TAB 0x0001,0x0001
036a 01d3 ffff | | .CONST 0x01d3,0xffff
036c 01d5 0001 | | .CONST 0x01d5,0x0001
036e ; --------------------------------------------------------------------------------------
036e ; Debug3 Subtable 0xe
036e ; --------------------------------------------------------------------------------------
036e 0000 0005 | | .DBG3TAB 0x0000,0x0005
0370 01eb 0001 | | .CONST 0x01eb,0x0001
0372 01ee 0002 | | .CONST 0x01ee,0x0002
0374 01f1 0003 | | .CONST 0x01f1,0x0003
0376 01f7 0004 | | .CONST 0x01f7,0x0004
0378 0200 0005 | | .CONST 0x0200,0x0005
037a ; --------------------------------------------------------------------------------------
037a ; Debug3 Subtable 0xf
037a ; --------------------------------------------------------------------------------------
037a 0000 0003 | | .DBG3TAB 0x0000,0x0003
037c 020b 0001 | | .CONST 0x020b,0x0001
037e 020e 0002 | | .CONST 0x020e,0x0002
0380 0213 0003 | | .CONST 0x0213,0x0003
0382 0000 0000 | | .BLANK 0000[0x7e]