|
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 - metrics - download
Length: 4096 (0x1000)
Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 04f0 | | .CONST 0x04f0 ; 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 0003 | | .CONST 0x0003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 009e | | .CONST 0x009e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0026 | & | .CONST 0x0026 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x0582,0x8000,0x0000,0x0056,0xdec5,0x0000,0x000d
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xd,0xfffd
000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x3 = 0xe,0xfffc
000f 0007 | | Action Break_Optional ; Debug Table 0x0.0x4 = 0xf,0xfffb
0010 029a 00ab | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00a8 ; Debug Table 0x0.0x5 = 0x10,0xfffa
0012 029a 00bb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00b8 ; Debug Table 0x0.0x6 = 0x12,0xfff9
0014 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x7 = 0x14,0xfff8
0015 1b21 | ! | Execute Package,Field_Read,Field_Number 0x21
0016 0129 | ) | Execute Any,Make_Visible
0017 029a 00cb | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00c8 ; Debug Table 0x0.0x8 = 0x17,0xfff7
0019 029a 00db | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00d8 ; Debug Table 0x0.0x9 = 0x19,0xfff6
001b 0007 | | Action Break_Optional ; Debug Table 0x0.0xa = 0x1b,0xfff5
001c 029a 00e3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00e0 ; Debug Table 0x0.0xb = 0x1c,0xfff4
001e 029a 00f3 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_00f0 ; Debug Table 0x0.0xc = 0x1e,0xfff3
0020 0007 | | Action Break_Optional ; Debug Table 0x0.0xd = 0x20,0xfff2
0021 029a 0103 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0100 ; Debug Table 0x0.0xe = 0x21,0xfff1
0023 029a 0113 | | Declare_Subprogram For_Outer_Call,Visible,Unelaborated,INIT_0110 ; Debug Table 0x0.0xf = 0x23,0xfff0
0025 00bf | | Action Accept_Activation
0026 6189 |a | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0056e085} ; Debug Table 0x1 = .DEBUG 0x0026,0x05a4,0x8000,0x0000,0x0056,0xe085,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x26,0xffff
0027 480e |H | Short_Literal 0xe
0028 0092 01b4 | | Action Push_String_Extended,0x1b4 ; "Directory"
002a 4800 |H | Short_Literal 0x0
002b e002 | | Load 0x0,0x2
002c 1b20 | | Execute Package,Field_Read,Field_Number 0x20
002d 0387 | | Declare_Variable Package
002e 00d8 | | Load_Top At_Offset_0
002f 020f | | Execute Module,Activate
0030 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "Create_Internal_Links"
; Debug Table 0x1.0x1 = 0x30,0xfffe
0032 029d 0123 | #| Declare_Subprogram For_Outer_Call,INIT_0120 ; Debug Table 0x1.0x2 = 0x32,0xfffd
0034 617b |a{ | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0056e085} ; Debug Table 0x1.0x3 = 0x34,0xfffc
0035 4847 |HG | Short_Literal 0x47
0036 484c |HL | Short_Literal 0x4c
0037 e217 | | Load 0x1,0x17
0038 4801 |H | Short_Literal 0x1
0039 1d18 | | Execute_Immediate Reference_Lex_1,0x18
003a e002 | | Load 0x0,0x2
003b 191e | | Execute Package,Field_Reference,Field_Number 0x1e
003c e216 | | Load 0x1,0x16
003d 1b14 | | Execute Package,Field_Read,Field_Number 0x14
003e 0387 | | Declare_Variable Package
003f 00d8 | | Load_Top At_Offset_0
0040 020f | | Execute Module,Activate
0041 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1.0x4 = 0x41,0xfffb
0042 00c7 | | Action Elaborate_Subprogram
0043 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x5 = 0x43,0xfffa
0044 00c7 | | Action Elaborate_Subprogram
0045 0092 01b6 | | Action Push_String_Extended,0x1b6 ; "Require_Internal_Links"
; Debug Table 0x1.0x6 = 0x45,0xfff9
0047 029d 012b | +| Declare_Subprogram For_Outer_Call,INIT_0128 ; Debug Table 0x1.0x7 = 0x47,0xfff8
0049 6166 |af | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0056e085} ; Debug Table 0x1.0x8 = 0x49,0xfff7
004a 48e0 |H | Short_Literal 0xe0
004b 484c |HL | Short_Literal 0x4c
004c e21a | | Load 0x1,0x1a
004d 4801 |H | Short_Literal 0x1
004e 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
004f e002 | | Load 0x0,0x2
0050 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0051 e216 | | Load 0x1,0x16
0052 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0053 0387 | | Declare_Variable Package
0054 00d8 | | Load_Top At_Offset_0
0055 020f | | Execute Module,Activate
0056 1d12 | | Execute_Immediate Reference_Lex_1,0x12 ; Debug Table 0x1.0x9 = 0x56,0xfff6
0057 00c7 | | Action Elaborate_Subprogram
0058 1d13 | | Execute_Immediate Reference_Lex_1,0x13 ; Debug Table 0x1.0xa = 0x58,0xfff5
0059 00c7 | | Action Elaborate_Subprogram
005a e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xb = 0x5a,0xfff4
005b 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
005c 02a0 | | Declare_Subprogram Null_Subprogram
005d 03ad | | Declare_Type Heap_Access,Defined
005e 0007 | | Action Break_Optional ; Debug Table 0x1.0xc = 0x5e,0xfff3
005f 029d 0133 | 3| Declare_Subprogram For_Outer_Call,INIT_0130 ; Debug Table 0x1.0xd = 0x5f,0xfff2
0061 029d 0143 | C| Declare_Subprogram For_Outer_Call,INIT_0140 ; Debug Table 0x1.0xe = 0x61,0xfff1
0063 029d 0153 | S| Declare_Subprogram For_Outer_Call,INIT_0150 ; Debug Table 0x1.0xf = 0x63,0xfff0
0065 029d 0173 | s| Declare_Subprogram For_Outer_Call,INIT_0170 ; Debug Table 0x1.0x10 = 0x65,0xffef
0067 6148 |aH | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0056e085} ; Debug Table 0x1.0x11 = 0x67,0xffee
0068 4a4d |JM | Short_Literal 0x24d
0069 e003 | | Load 0x0,0x3
006a 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
006b e21d | | Load 0x1,0x1d
006c 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
006d 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
006e 1d20 | | Execute_Immediate Reference_Lex_1,0x20
006f 0092 01b7 | | Action Push_String_Extended,0x1b7 ; "Target_Key"
0071 4803 |H | Short_Literal 0x3
0072 e216 | | Load 0x1,0x16
0073 1b13 | | Execute Package,Field_Read,Field_Number 0x13
0074 0387 | | Declare_Variable Package
0075 00d8 | | Load_Top At_Offset_0
0076 020f | | Execute Module,Activate
0077 6138 |a8 | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0056e085} ; Debug Table 0x1.0x12 = 0x77,0xffed
0078 4a68 |Jh | Short_Literal 0x268
0079 484c |HL | Short_Literal 0x4c
007a 0092 01b7 | | Action Push_String_Extended,0x1b7 ; "Target_Key"
007c e20f | | Load 0x1,0xf
007d 1d21 | ! | Execute_Immediate Reference_Lex_1,0x21
007e e002 | | Load 0x0,0x2
007f 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0080 e222 | " | Load 0x1,0x22
0081 1b16 | | Execute Package,Field_Read,Field_Number 0x16
0082 0387 | | Declare_Variable Package
0083 00d8 | | Load_Top At_Offset_0
0084 020f | | Execute Module,Activate
0085 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x13 = 0x85,0xffec
0086 00c7 | | Action Elaborate_Subprogram
0087 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x14 = 0x87,0xffeb
0088 00c7 | | Action Elaborate_Subprogram
0089 0092 01b8 | | Action Push_String_Extended,0x1b8 ; "Create_Subprogram_Specs"
; Debug Table 0x1.0x15 = 0x89,0xffea
008b 029d 0193 | | Declare_Subprogram For_Outer_Call,INIT_0190 ; Debug Table 0x1.0x16 = 0x8b,0xffe9
008d 6122 |a" | Indirect_Literal Discrete,0x1b0,{0x00000000, 0x0056e085} ; Debug Table 0x1.0x17 = 0x8d,0xffe8
008e 4b06 |K | Short_Literal 0x306
008f 484c |HL | Short_Literal 0x4c
0090 e224 | $ | Load 0x1,0x24
0091 4801 |H | Short_Literal 0x1
0092 1d25 | % | Execute_Immediate Reference_Lex_1,0x25
0093 e002 | | Load 0x0,0x2
0094 191e | | Execute Package,Field_Reference,Field_Number 0x1e
0095 e216 | | Load 0x1,0x16
0096 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0097 0387 | | Declare_Variable Package
0098 00d8 | | Load_Top At_Offset_0
0099 020f | | Execute Module,Activate
009a 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x18 = 0x9a,0xffe7
009b 00c7 | | Action Elaborate_Subprogram
009c 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x19 = 0x9c,0xffe6
009d 00c7 | | Action Elaborate_Subprogram
009e BODY_0008:
009e 0092 01b7 | | Action Push_String_Extended,0x1b7 ; "Target_Key"
; Debug Table 0x1.0x1a = 0x9e,0x1
00a0 e216 | | Load 0x1,0x16
00a1 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a2 00bc | | Action Signal_Activated
00a3 00bb | | Action Signal_Completion
00a4 0000 0000 | | .BLANK 0000[0x4]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e5fd | | Load 0x2,-0x3 ; Debug Table 0x2 = .DEBUG 0x00ab,0x05dc,0x0002,0x0000,0x0056,0xdec5,0x0000,0x002e
; Debug Table 0x2.0x0 = 0xab,0x1
00ac e5fe | | Load 0x2,-0x2
00ad e5ff | | Load 0x2,-0x1
00ae e219 | | Load 0x1,0x19
00af 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00b0 4403 |D | Exit_Subprogram With_Result,0x3
00b1 0000 0000 | | .BLANK 0000[0x7]
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 0x3 = .DEBUG 0x00bb,0x05e0,0x0001,0x0000,0x0056,0xdec5,0x0000,0x0047
; Debug Table 0x3.0x0 = 0xbb,0x1
00bc e5fd | | Load 0x2,-0x3
00bd e5fe | | Load 0x2,-0x2
00be e5ff | | Load 0x2,-0x1
00bf e219 | | Load 0x1,0x19
00c0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00c1 4505 |E | Exit_Subprogram 0x5
00c2 0000 0000 | | .BLANK 0000[0x6]
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb e5fd | | Load 0x2,-0x3 ; Debug Table 0x4 = .DEBUG 0x00cb,0x05e4,0x0002,0x0000,0x0056,0xdec5,0x0000,0x006e
; Debug Table 0x4.0x0 = 0xcb,0x1
00cc e5fe | | Load 0x2,-0x2
00cd e5ff | | Load 0x2,-0x1
00ce e223 | # | Load 0x1,0x23
00cf 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00d0 4403 |D | Exit_Subprogram With_Result,0x3
00d1 0000 0000 | | .BLANK 0000[0x7]
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 48e2 |H | Short_Literal 0xe2 ; Debug Table 0x5 = .DEBUG 0x00db,0x05e8,0x0001,0x0000,0x0056,0xdec5,0x0000,0x0089
; Debug Table 0x5.0x0 = 0xdb,0x1
00dc 0257 | W | Execute Discrete,Raise
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 0004 | | .CONST 0x0004 ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x6 = .DEBUG 0x00e3,0x05ec,0x0002,0x0000,0x0056,0xdec5,0x0000,0x00ae
; Debug Table 0x6.0x0 = 0xe3,0x1
00e4 e5fe | | Load 0x2,-0x2
00e5 e5ff | | Load 0x2,-0x1
00e6 e21c | | Load 0x1,0x1c
00e7 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00e8 4403 |D | Exit_Subprogram With_Result,0x3
00e9 0000 0000 | | .BLANK 0000[0x7]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3 | | .CONST 0x00f3 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0001 | | .CONST 0x0001 ; Number of locals
00f3 BODY_00f0:
00f3 INIT_00f0:
00f3 e5fc | | Load 0x2,-0x4 ; Debug Table 0x7 = .DEBUG 0x00f3,0x05f0,0x0001,0x0000,0x0056,0xdec5,0x0000,0x00c7
; Debug Table 0x7.0x0 = 0xf3,0x1
00f4 e5fd | | Load 0x2,-0x3
00f5 e5fe | | Load 0x2,-0x2
00f6 e5ff | | Load 0x2,-0x1
00f7 e21c | | Load 0x1,0x1c
00f8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00f9 4505 |E | Exit_Subprogram 0x5
00fa 0000 0000 | | .BLANK 0000[0x6]
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 e5fd | | Load 0x2,-0x3 ; Debug Table 0x8 = .DEBUG 0x0103,0x05f4,0x0002,0x0000,0x0056,0xdec5,0x0000,0x00ea
; Debug Table 0x8.0x0 = 0x103,0x1
0104 e5fe | | Load 0x2,-0x2
0105 e5ff | | Load 0x2,-0x1
0106 e226 | & | Load 0x1,0x26
0107 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0108 4403 |D | Exit_Subprogram With_Result,0x3
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0004 | | .CONST 0x0004 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e5fc | | Load 0x2,-0x4 ; Debug Table 0x9 = .DEBUG 0x0113,0x05f8,0x0001,0x0000,0x0056,0xdec5,0x0000,0x0103
; Debug Table 0x9.0x0 = 0x113,0x1
0114 e5fd | | Load 0x2,-0x3
0115 e5fe | | Load 0x2,-0x2
0116 e5ff | | Load 0x2,-0x1
0117 e226 | & | Load 0x1,0x26
0118 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0119 4505 |E | Exit_Subprogram 0x5
011a 0000 0000 | | .BLANK 0000[0x6]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 0092 01b9 | | Action Push_String_Extended,0x1b9 ; "Controls whether internal links are created automatically when the visible parts of library units are promoted to the installed state. Internal links for library units are created in the set of links for the nearest enclosing world. The default is True."
; Debug Table 0xa = .DEBUG 0x0123,0x05fc,0x0002,0x0000,0x0056,0xe085,0x0000,0x001c
; Debug Table 0xa.0x0 = 0x123,0x1
0125 4402 |D | Exit_Subprogram With_Result,0x2
0126 0000 0000 | | .XXX[0x2]
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 0092 01ba | | Action Push_String_Extended,0x1ba ; "Controls whether failure to create internal links (as controlled by the Directory.Create_Internal_Links switch) generates an error. The default (True) is to treat the failure to generate links as an error and to discontinue the operation. If the Directory.Create_Internal_Links switch is set to False, this switch has no effect. The full switch name is Directory.Require_Internal_Links."
; Debug Table 0xb = .DEBUG 0x012b,0x0600,0x0002,0x0000,0x0056,0xe085,0x0000,0x00ad
; Debug Table 0xb.0x0 = 0x12b,0x1
012d 4402 |D | Exit_Subprogram With_Result,0x2
012e 0000 0000 | | .XXX[0x2]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0137 | 7 | .CONST 0x0137 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0133,0x0604,0x0002,0x0000,0x0056,0xe085,0x0000,0x014c
; Debug Table 0xc.0x0 = 0x133,0x1
0134 e001 | | Load 0x0,0x1
0135 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0136 4401 |D | Exit_Subprogram With_Result,0x1
0137 TRAP_0130:
0137 0007 | | Action Break_Optional
0138 e002 | | Load 0x0,0x2 ; Debug Table 0xc.0x1 = 0x138,0x2
0139 1b15 | | Execute Package,Field_Read,Field_Number 0x15
013a 0257 | W | Execute Discrete,Raise
013b 0000 0000 | | .BLANK 0000[0x5]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0146 | F | .CONST 0x0146 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 e002 | | Load 0x0,0x2 ; Debug Table 0xd = .DEBUG 0x0143,0x060a,0x0002,0x0000,0x0056,0xe085,0x0000,0x016a
; Debug Table 0xd.0x0 = 0x143,0x1
0144 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0145 0257 | W | Execute Discrete,Raise
0146 TRAP_0140:
0146 0007 | | Action Break_Optional
0147 e002 | | Load 0x0,0x2 ; Debug Table 0xd.0x1 = 0x147,0x2
0148 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0149 0257 | W | Execute Discrete,Raise
014a 0000 0000 | | .BLANK 0000[0x6]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0158 | X | .CONST 0x0158 ; Address of begin
0151 0160 | ` | .CONST 0x0160 ; Address of exception handler
0152 0002 | | .CONST 0x0002 ; Number of locals
0153 INIT_0150:
0153 e003 | | Load 0x0,0x3 ; Debug Table 0xe = .DEBUG 0x0153,0x0610,0x0002,0x0000,0x0056,0xe085,0x0000,0x0187
; Debug Table 0xe.0x0 = 0x153,0xffff
0154 1b2e | . | Execute Package,Field_Read,Field_Number 0x2e
0155 0322 | " | Declare_Variable Record
0156 00d8 | | Load_Top At_Offset_0
0157 1c00 | | Execute_Immediate Run_Utility,0x0
0158 BODY_0150:
0158 00db | | Load_Top At_Offset_3 ; Debug Table 0xe.0x1 = 0x158,0x1
0159 e001 | | Load 0x0,0x1
015a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
015b 00d9 | | Load_Top At_Offset_1
015c 017d | } | Execute Record,Structure_Write
015d 0092 01bb | | Action Push_String_Extended,0x1bb ; "TARGET KEYS ARE NO LONGER SET IN SWITCH FILES.\x0aUSE THE 'COMPILATION.TARGET_KEY' COMMAND INSTEAD"
; Debug Table 0xe.0x2 = 0x15d,0x2
015f 4401 |D | Exit_Subprogram With_Result,0x1
0160 TRAP_0150:
0160 0007 | | Action Break_Optional
0161 4822 |H" | Short_Literal 0x22 ; Debug Table 0xe.0x3 = 0x161,0x3
0162 4822 |H" | Short_Literal 0x22
0163 e5ff | | Load 0x2,-0x1
0164 01ca | | Execute Vector,Prepend
0165 01cb | | Execute Vector,Append
0166 0092 01bc | | Action Push_String_Extended,0x1bc ; " is not a known target key."
0168 01cc | | Execute Vector,Catenate
0169 4401 |D | Exit_Subprogram With_Result,0x1
016a 0000 0000 | | .BLANK 0000[0x6]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0178 | x | .CONST 0x0178 ; Address of begin
0171 0004 | | .CONST 0x0004 ; Address of exception handler
0172 0003 | | .CONST 0x0003 ; Number of locals
0173 INIT_0170:
0173 e001 | | Load 0x0,0x1 ; Debug Table 0xf = .DEBUG 0x0173,0x061a,0x0002,0x0000,0x0056,0xe085,0x0000,0x01c3
; Debug Table 0xf.0x0 = 0x173,0xffff
0174 1b19 | | Execute Package,Field_Read,Field_Number 0x19
0175 0322 | " | Declare_Variable Record
0176 029f 019b | | Declare_Subprogram For_Call,INIT_0198 ; Debug Table 0xf.0x1 = 0x176,0xfffe
0178 BODY_0170:
0178 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0x2 = 0x178,0x1
0179 e001 | | Load 0x0,0x1
017a 181a | | Execute Package,Field_Execute,Field_Number 0x1a
017b 00d1 | | Pop_Control Pop_Count_1
017c 00d9 | | Load_Top At_Offset_1 ; Debug Table 0xf.0x3 = 0x17c,0x2
017d e001 | | Load 0x0,0x1
017e 181d | | Execute Package,Field_Execute,Field_Number 0x1d
017f 6803 |h | Jump_Zero 0x183
0180 0092 01bd | | Action Push_String_Extended,0x1bd ; "No keys are currently registered? Help!!"
; Debug Table 0xf.0x4 = 0x180,0x3
0182 4402 |D | Exit_Subprogram With_Result,0x2
0183 0092 01be | | Action Push_String_Extended,0x1be ; "Directory.Target_Key is NO LONGER SUPPORTED. Use the Compilation.Target_Key command now. Target keys assigned to a world by that command control which compiler is used in a given library. Once assigned, you cannot change the target key assigned to a world. \x0a\x0aKnown values are ("
; Debug Table 0xf.0x5 = 0x183,0x4
0185 8403 | | Call 0x2,0x3
0186 01cc | | Execute Vector,Catenate
0187 0092 01bf | | Action Push_String_Extended,0x1bf ; ")."
0189 01cc | | Execute Vector,Catenate
018a 4402 |D | Exit_Subprogram With_Result,0x2
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 0092 01c0 | | Action Push_String_Extended,0x1c0 ; "Controls whether specifications for library-unit subprograms are created automatically. The contents of these specifications are created the first time the body is successfully installed. The \x22with\x22 clause for the specification is derived from the \x22with\x22 clauses in the body. Only those \x22with\x22 clauses required to promote the specification are included. The default is True. The full switch name is Directory.Create_Subprogram_Specs."
; Debug Table 0x10 = .DEBUG 0x0193,0x0628,0x0002,0x0000,0x0056,0xe085,0x0000,0x02cb
; Debug Table 0x10.0x0 = 0x193,0x1
0195 4402 |D | Exit_Subprogram With_Result,0x2
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019e | | .CONST 0x019e ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e402 | | Load 0x2,0x2 ; Debug Table 0x11 = .DEBUG 0x019b,0x062c,0x0002,0x0000,0x0056,0xe085,0x0000,0x01da
; Debug Table 0x11.0x0 = 0x19b,0xffff
019c e001 | | Load 0x0,0x1
019d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
019e BODY_0198:
019e e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x1 = 0x19e,0x1
019f e001 | | Load 0x0,0x1
01a0 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a1 00d1 | | Pop_Control Pop_Count_1
01a2 e402 | | Load 0x2,0x2 ; Debug Table 0x11.0x2 = 0x1a2,0x2
01a3 e001 | | Load 0x0,0x1
01a4 181d | | Execute Package,Field_Execute,Field_Number 0x1d
01a5 6802 |h | Jump_Zero 0x1a8
01a6 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x3 = 0x1a6,0x3
01a7 00ca | | Action Exit_Nullary_Function
01a8 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x11.0x4 = 0x1a8,0x4
01a9 0092 01c1 | | Action Push_String_Extended,0x1c1 ; ", "
01ab 01cc | | Execute Vector,Catenate
01ac 8403 | | Call 0x2,0x3
01ad 01cc | | Execute Vector,Catenate
01ae 00ca | | Action Exit_Nullary_Function
01af 0000 | | .XXX[0x1]
01b0 0000 0000 | | .LITERAL {0x00000000, 0x0056e085}
01b4 ; --------------------------------------------------------------------------------------
01b4 ; STRING TABLE
01b4 ; --------------------------------------------------------------------------------------
01b4 001e | | .STRTAB 0x001e->0x01c3 ; "Directory"
01b5 0025 | % | .STRTAB 0x0025->0x01c7 ; "Create_Internal_Links"
01b6 0038 | 8 | .STRTAB 0x0038->0x01d2 ; "Require_Internal_Links"
01b7 004c | L | .STRTAB 0x004c->0x01dd ; "Target_Key"
; "Target_Key"
; "Target_Key"
01b8 0054 | T | .STRTAB 0x0054->0x01e2 ; "Create_Subprogram_Specs"
01b9 0069 | i | .STRTAB 0x0069->0x01ed ; "Controls whether internal links are created automatically when the visible parts of library units are promoted to the installed state. Internal links for library units are created in the set of links for the nearest enclosing world. The default is True."
01ba 0165 | e | .STRTAB 0x0165->0x026c ; "Controls whether failure to create internal links (as controlled by the Directory.Create_Internal_Links switch) generates an error. The default (True) is to treat the failure to generate links as an error and to discontinue the operation. If the Directory.Create_Internal_Links switch is set to False, this switch has no effect. The full switch name is Directory.Require_Internal_Links."
01bb 02e8 | | .STRTAB 0x02e8->0x032f ; "TARGET KEYS ARE NO LONGER SET IN SWITCH FILES.\x0aUSE THE 'COMPILATION.TARGET_KEY' COMMAND INSTEAD"
01bc 0345 | E | .STRTAB 0x0345->0x035e ; " is not a known target key."
01bd 035e | ^ | .STRTAB 0x035e->0x036c ; "No keys are currently registered? Help!!"
01be 0385 | | .STRTAB 0x0385->0x0380 ; "Directory.Target_Key is NO LONGER SUPPORTED. Use the Compilation.Target_Key command now. Target keys assigned to a world by that command control which compiler is used in a given library. Once assigned, you cannot change the target key assigned to a world. \x0a\x0aKnown values are ("
01bf 049a | | .STRTAB 0x049a->0x040c ; ")."
01c0 049a | | .STRTAB 0x049a->0x040d ; "Controls whether specifications for library-unit subprograms are created automatically. The contents of these specifications are created the first time the body is successfully installed. The \x22with\x22 clause for the specification is derived from the \x22with\x22 clauses in the body. Only those \x22with\x22 clauses required to promote the specification are included. The default is True. The full switch name is Directory.Create_Subprogram_Specs."
01c1 064d | M | .STRTAB 0x064d->0x04e7 ; ", "
01c2 064d | M | .STREND 0x064d->0x04e8
01c3 4469 7265 |Dire| .STRTAB_STRINGS
04e9 0000 0000 | | .BLANK 0000[0x7]
04f0 ; --------------------------------------------------------------------------------------
04f0 ; Debug Table
04f0 ; --------------------------------------------------------------------------------------
04f0 0003 0012 | | .CONST 0x0003,0x0012
04f2 000b 0582 | | .DEBUG 0x000b,0x0582,0x8000,0x0000,0x0056,0xdec5,0x0000,0x000d
04fa 0026 05a4 | & | .DEBUG 0x0026,0x05a4,0x8000,0x0000,0x0056,0xe085,0x0000,0x000d
0502 00ab 05dc | | .DEBUG 0x00ab,0x05dc,0x0002,0x0000,0x0056,0xdec5,0x0000,0x002e
050a 00bb 05e0 | | .DEBUG 0x00bb,0x05e0,0x0001,0x0000,0x0056,0xdec5,0x0000,0x0047
0512 00cb 05e4 | | .DEBUG 0x00cb,0x05e4,0x0002,0x0000,0x0056,0xdec5,0x0000,0x006e
051a 00db 05e8 | | .DEBUG 0x00db,0x05e8,0x0001,0x0000,0x0056,0xdec5,0x0000,0x0089
0522 00e3 05ec | | .DEBUG 0x00e3,0x05ec,0x0002,0x0000,0x0056,0xdec5,0x0000,0x00ae
052a 00f3 05f0 | | .DEBUG 0x00f3,0x05f0,0x0001,0x0000,0x0056,0xdec5,0x0000,0x00c7
0532 0103 05f4 | | .DEBUG 0x0103,0x05f4,0x0002,0x0000,0x0056,0xdec5,0x0000,0x00ea
053a 0113 05f8 | | .DEBUG 0x0113,0x05f8,0x0001,0x0000,0x0056,0xdec5,0x0000,0x0103
0542 0123 05fc | # | .DEBUG 0x0123,0x05fc,0x0002,0x0000,0x0056,0xe085,0x0000,0x001c
054a 012b 0600 | + | .DEBUG 0x012b,0x0600,0x0002,0x0000,0x0056,0xe085,0x0000,0x00ad
0552 0133 0604 | 3 | .DEBUG 0x0133,0x0604,0x0002,0x0000,0x0056,0xe085,0x0000,0x014c
055a 0143 060a | C | .DEBUG 0x0143,0x060a,0x0002,0x0000,0x0056,0xe085,0x0000,0x016a
0562 0153 0610 | S | .DEBUG 0x0153,0x0610,0x0002,0x0000,0x0056,0xe085,0x0000,0x0187
056a 0173 061a | s | .DEBUG 0x0173,0x061a,0x0002,0x0000,0x0056,0xe085,0x0000,0x01c3
0572 0193 0628 | (| .DEBUG 0x0193,0x0628,0x0002,0x0000,0x0056,0xe085,0x0000,0x02cb
057a 019b 062c | ,| .DEBUG 0x019b,0x062c,0x0002,0x0000,0x0056,0xe085,0x0000,0x01da
0582 ; --------------------------------------------------------------------------------------
0582 ; Debug3 Subtable 0x0
0582 ; --------------------------------------------------------------------------------------
0582 0010 0000 | | .DBG3TAB 0x0010,0x0000
0584 000b ffff | | .CONST 0x000b,0xffff
0586 000c fffe | | .CONST 0x000c,0xfffe
0588 000d fffd | | .CONST 0x000d,0xfffd
058a 000e fffc | | .CONST 0x000e,0xfffc
058c 000f fffb | | .CONST 0x000f,0xfffb
058e 0010 fffa | | .CONST 0x0010,0xfffa
0590 0012 fff9 | | .CONST 0x0012,0xfff9
0592 0014 fff8 | | .CONST 0x0014,0xfff8
0594 0017 fff7 | | .CONST 0x0017,0xfff7
0596 0019 fff6 | | .CONST 0x0019,0xfff6
0598 001b fff5 | | .CONST 0x001b,0xfff5
059a 001c fff4 | | .CONST 0x001c,0xfff4
059c 001e fff3 | | .CONST 0x001e,0xfff3
059e 0020 fff2 | | .CONST 0x0020,0xfff2
05a0 0021 fff1 | ! | .CONST 0x0021,0xfff1
05a2 0023 fff0 | # | .CONST 0x0023,0xfff0
05a4 ; --------------------------------------------------------------------------------------
05a4 ; Debug3 Subtable 0x1
05a4 ; --------------------------------------------------------------------------------------
05a4 001a 0001 | | .DBG3TAB 0x001a,0x0001
05a6 0026 ffff | & | .CONST 0x0026,0xffff
05a8 0030 fffe | 0 | .CONST 0x0030,0xfffe
05aa 0032 fffd | 2 | .CONST 0x0032,0xfffd
05ac 0034 fffc | 4 | .CONST 0x0034,0xfffc
05ae 0041 fffb | A | .CONST 0x0041,0xfffb
05b0 0043 fffa | C | .CONST 0x0043,0xfffa
05b2 0045 fff9 | E | .CONST 0x0045,0xfff9
05b4 0047 fff8 | G | .CONST 0x0047,0xfff8
05b6 0049 fff7 | I | .CONST 0x0049,0xfff7
05b8 0056 fff6 | V | .CONST 0x0056,0xfff6
05ba 0058 fff5 | X | .CONST 0x0058,0xfff5
05bc 005a fff4 | Z | .CONST 0x005a,0xfff4
05be 005e fff3 | ^ | .CONST 0x005e,0xfff3
05c0 005f fff2 | _ | .CONST 0x005f,0xfff2
05c2 0061 fff1 | a | .CONST 0x0061,0xfff1
05c4 0063 fff0 | c | .CONST 0x0063,0xfff0
05c6 0065 ffef | e | .CONST 0x0065,0xffef
05c8 0067 ffee | g | .CONST 0x0067,0xffee
05ca 0077 ffed | w | .CONST 0x0077,0xffed
05cc 0085 ffec | | .CONST 0x0085,0xffec
05ce 0087 ffeb | | .CONST 0x0087,0xffeb
05d0 0089 ffea | | .CONST 0x0089,0xffea
05d2 008b ffe9 | | .CONST 0x008b,0xffe9
05d4 008d ffe8 | | .CONST 0x008d,0xffe8
05d6 009a ffe7 | | .CONST 0x009a,0xffe7
05d8 009c ffe6 | | .CONST 0x009c,0xffe6
05da 009e 0001 | | .CONST 0x009e,0x0001
05dc ; --------------------------------------------------------------------------------------
05dc ; Debug3 Subtable 0x2
05dc ; --------------------------------------------------------------------------------------
05dc 0000 0001 | | .DBG3TAB 0x0000,0x0001
05de 00ab 0001 | | .CONST 0x00ab,0x0001
05e0 ; --------------------------------------------------------------------------------------
05e0 ; Debug3 Subtable 0x3
05e0 ; --------------------------------------------------------------------------------------
05e0 0000 0001 | | .DBG3TAB 0x0000,0x0001
05e2 00bb 0001 | | .CONST 0x00bb,0x0001
05e4 ; --------------------------------------------------------------------------------------
05e4 ; Debug3 Subtable 0x4
05e4 ; --------------------------------------------------------------------------------------
05e4 0000 0001 | | .DBG3TAB 0x0000,0x0001
05e6 00cb 0001 | | .CONST 0x00cb,0x0001
05e8 ; --------------------------------------------------------------------------------------
05e8 ; Debug3 Subtable 0x5
05e8 ; --------------------------------------------------------------------------------------
05e8 0000 0001 | | .DBG3TAB 0x0000,0x0001
05ea 00db 0001 | | .CONST 0x00db,0x0001
05ec ; --------------------------------------------------------------------------------------
05ec ; Debug3 Subtable 0x6
05ec ; --------------------------------------------------------------------------------------
05ec 0000 0001 | | .DBG3TAB 0x0000,0x0001
05ee 00e3 0001 | | .CONST 0x00e3,0x0001
05f0 ; --------------------------------------------------------------------------------------
05f0 ; Debug3 Subtable 0x7
05f0 ; --------------------------------------------------------------------------------------
05f0 0000 0001 | | .DBG3TAB 0x0000,0x0001
05f2 00f3 0001 | | .CONST 0x00f3,0x0001
05f4 ; --------------------------------------------------------------------------------------
05f4 ; Debug3 Subtable 0x8
05f4 ; --------------------------------------------------------------------------------------
05f4 0000 0001 | | .DBG3TAB 0x0000,0x0001
05f6 0103 0001 | | .CONST 0x0103,0x0001
05f8 ; --------------------------------------------------------------------------------------
05f8 ; Debug3 Subtable 0x9
05f8 ; --------------------------------------------------------------------------------------
05f8 0000 0001 | | .DBG3TAB 0x0000,0x0001
05fa 0113 0001 | | .CONST 0x0113,0x0001
05fc ; --------------------------------------------------------------------------------------
05fc ; Debug3 Subtable 0xa
05fc ; --------------------------------------------------------------------------------------
05fc 0000 0001 | | .DBG3TAB 0x0000,0x0001
05fe 0123 0001 | # | .CONST 0x0123,0x0001
0600 ; --------------------------------------------------------------------------------------
0600 ; Debug3 Subtable 0xb
0600 ; --------------------------------------------------------------------------------------
0600 0000 0001 | | .DBG3TAB 0x0000,0x0001
0602 012b 0001 | + | .CONST 0x012b,0x0001
0604 ; --------------------------------------------------------------------------------------
0604 ; Debug3 Subtable 0xc
0604 ; --------------------------------------------------------------------------------------
0604 0000 0002 | | .DBG3TAB 0x0000,0x0002
0606 0133 0001 | 3 | .CONST 0x0133,0x0001
0608 0138 0002 | 8 | .CONST 0x0138,0x0002
060a ; --------------------------------------------------------------------------------------
060a ; Debug3 Subtable 0xd
060a ; --------------------------------------------------------------------------------------
060a 0000 0002 | | .DBG3TAB 0x0000,0x0002
060c 0143 0001 | C | .CONST 0x0143,0x0001
060e 0147 0002 | G | .CONST 0x0147,0x0002
0610 ; --------------------------------------------------------------------------------------
0610 ; Debug3 Subtable 0xe
0610 ; --------------------------------------------------------------------------------------
0610 0001 0003 | | .DBG3TAB 0x0001,0x0003
0612 0153 ffff | S | .CONST 0x0153,0xffff
0614 0158 0001 | X | .CONST 0x0158,0x0001
0616 015d 0002 | ] | .CONST 0x015d,0x0002
0618 0161 0003 | a | .CONST 0x0161,0x0003
061a ; --------------------------------------------------------------------------------------
061a ; Debug3 Subtable 0xf
061a ; --------------------------------------------------------------------------------------
061a 0002 0004 | | .DBG3TAB 0x0002,0x0004
061c 0173 ffff | s | .CONST 0x0173,0xffff
061e 0176 fffe | v | .CONST 0x0176,0xfffe
0620 0178 0001 | x | .CONST 0x0178,0x0001
0622 017c 0002 | | | .CONST 0x017c,0x0002
0624 0180 0003 | | .CONST 0x0180,0x0003
0626 0183 0004 | | .CONST 0x0183,0x0004
0628 ; --------------------------------------------------------------------------------------
0628 ; Debug3 Subtable 0x10
0628 ; --------------------------------------------------------------------------------------
0628 0000 0001 | | .DBG3TAB 0x0000,0x0001
062a 0193 0001 | | .CONST 0x0193,0x0001
062c ; --------------------------------------------------------------------------------------
062c ; Debug3 Subtable 0x11
062c ; --------------------------------------------------------------------------------------
062c 0001 0004 | | .DBG3TAB 0x0001,0x0004
062e 019b ffff | | .CONST 0x019b,0xffff
0630 019e 0001 | | .CONST 0x019e,0x0001
0632 01a2 0002 | | .CONST 0x01a2,0x0002
0634 01a6 0003 | | .CONST 0x01a6,0x0003
0636 01a8 0004 | | .CONST 0x01a8,0x0004
0638 0000 0000 | | .BLANK 0000[0x1c8]