|
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_02f8e7
└─⟦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 0348 | H | .CONST 0x0348 ; 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 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 00de | | .CONST 0x00de ; Address of begin
0019 00f1 | | .CONST 0x00f1 ; Address of exception handler
001a 0021 | ! | .CONST 0x0021 ; Number of locals
001b INIT_0018:
001b 0007 | | Action Break_Optional
001c 0007 | | Action Break_Optional
001d 0007 | | Action Break_Optional
001e 0007 | | Action Break_Optional
001f 0007 | | Action Break_Optional
0020 0007 | | Action Break_Optional
0021 e001 | | Load 0x0,0x1
0022 e002 | | Load 0x0,0x2
0023 4880 |H | Short_Literal 0x80
0024 e003 | | Load 0x0,0x3
0025 0387 | | Declare_Variable Package
0026 00d8 | | Load_Top At_Offset_0
0027 020f | | Execute Module,Activate
0028 0007 | | Action Break_Optional
0029 0007 | | Action Break_Optional
002a e004 | | Load 0x0,0x4
002b e005 | | Load 0x0,0x5
002c 619b |a | Indirect_Literal Discrete,0x1c8,{0x00000000, 0x000007db}
002d e003 | | Load 0x0,0x3
002e 0387 | | Declare_Variable Package
002f 00d8 | | Load_Top At_Offset_0
0030 020f | | Execute Module,Activate
0031 e006 | | Load 0x0,0x6
0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0033 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0034 0092 01fe | | Action Push_String_Extended,0x1fe ; "!USERS."
0036 e007 | | Load 0x0,0x7
0037 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0038 e007 | | Load 0x0,0x7
0039 181c | | Execute Package,Field_Execute,Field_Number 0x1c
003a 01cc | | Execute Vector,Catenate
003b 0007 | | Action Break_Optional
003c 0092 01ff | | Action Push_String_Extended,0x1ff ; "!machine.sims.command_categories"
003e 0092 0200 | | Action Push_String_Extended,0x200 ; "!machine.sims.site_init_file"
0040 0007 | | Action Break_Optional
0041 4800 |H | Short_Literal 0x0
0042 4807 |H | Short_Literal 0x7
0043 029f 010b | | Declare_Subprogram INIT_0108,For_Call
0045 03fd | | Declare_Type Discrete,Defined
0046 4800 |H | Short_Literal 0x0
0047 4804 |H | Short_Literal 0x4
0048 e408 | | Load 0x2,0x8
0049 03f8 | | Declare_Type Discrete,Constrained
004a e408 | | Load 0x2,0x8
004b 0266 | f | Execute Discrete,Bounds
004c e402 | | Load 0x2,0x2
004d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
004e 02a0 | | Declare_Subprogram Null_Subprogram
004f 4801 |H | Short_Literal 0x1
0050 035d | ] | Declare_Type Array,Defined
0051 4800 |H | Short_Literal 0x0
0052 4819 |H | Short_Literal 0x19
0053 029f 0123 | #| Declare_Subprogram INIT_0120,For_Call
0055 03fd | | Declare_Type Discrete,Defined
0056 4800 |H | Short_Literal 0x0
0057 4804 |H | Short_Literal 0x4
0058 029f 013b | ;| Declare_Subprogram INIT_0138,For_Call
005a 03fd | | Declare_Type Discrete,Defined
005b 4800 |H | Short_Literal 0x0
005c 4803 |H | Short_Literal 0x3
005d 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call
005f 03fd | | Declare_Type Discrete,Defined
0060 4800 |H | Short_Literal 0x0
0061 4802 |H | Short_Literal 0x2
0062 029f 016b | k| Declare_Subprogram INIT_0168,For_Call
0064 03fd | | Declare_Type Discrete,Defined
0065 4800 |H | Short_Literal 0x0
0066 4803 |H | Short_Literal 0x3
0067 029f 0183 | | Declare_Subprogram INIT_0180,For_Call
0069 03fd | | Declare_Type Discrete,Defined
006a e008 | | Load 0x0,0x8
006b 1b14 | | Execute Package,Field_Read,Field_Number 0x14
006c e40d | | Load 0x2,0xd
006d e40c | | Load 0x2,0xc
006e e40f | | Load 0x2,0xf
006f e40b | | Load 0x2,0xb
0070 e40a | | Load 0x2,0xa
0071 e009 | | Load 0x0,0x9
0072 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0073 e009 | | Load 0x0,0x9
0074 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0075 e403 | | Load 0x2,0x3
0076 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0077 e403 | | Load 0x2,0x3
0078 1b11 | | Execute Package,Field_Read,Field_Number 0x11
0079 02a0 | | Declare_Subprogram Null_Subprogram
007a 480a |H | Short_Literal 0xa
007b 032d | - | Declare_Type Record,Defined
007c 00d8 | | Load_Top At_Offset_0
007d 0322 | " | Declare_Variable Record
007e e00a | | Load 0x0,0xa
007f 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
0080 4812 |H | Short_Literal 0x12
0081 4802 |H | Short_Literal 0x2
0082 0099 | | Action Reference_Dynamic
0083 00c7 | | Action Elaborate_Subprogram
0084 e00b | | Load 0x0,0xb
0085 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
0086 4813 |H | Short_Literal 0x13
0087 4802 |H | Short_Literal 0x2
0088 0099 | | Action Reference_Dynamic
0089 00c7 | | Action Elaborate_Subprogram
008a e00c | | Load 0x0,0xc
008b 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
008c 4814 |H | Short_Literal 0x14
008d 4802 |H | Short_Literal 0x2
008e 0099 | | Action Reference_Dynamic
008f 00c7 | | Action Elaborate_Subprogram
0090 e00d | | Load 0x0,0xd
0091 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
0092 4815 |H | Short_Literal 0x15
0093 4802 |H | Short_Literal 0x2
0094 0099 | | Action Reference_Dynamic
0095 00c7 | | Action Elaborate_Subprogram
0096 e00e | | Load 0x0,0xe
0097 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
0098 4816 |H | Short_Literal 0x16
0099 4802 |H | Short_Literal 0x2
009a 0099 | | Action Reference_Dynamic
009b 00c7 | | Action Elaborate_Subprogram
009c e00f | | Load 0x0,0xf
009d 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
009e 4817 |H | Short_Literal 0x17
009f 4802 |H | Short_Literal 0x2
00a0 0099 | | Action Reference_Dynamic
00a1 00c7 | | Action Elaborate_Subprogram
00a2 e010 | | Load 0x0,0x10
00a3 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00a4 4818 |H | Short_Literal 0x18
00a5 4802 |H | Short_Literal 0x2
00a6 0099 | | Action Reference_Dynamic
00a7 00c7 | | Action Elaborate_Subprogram
00a8 029e 019b | | Declare_Subprogram INIT_0198,For_Call,Unelaborated
00aa 4819 |H | Short_Literal 0x19
00ab 4802 |H | Short_Literal 0x2
00ac 0099 | | Action Reference_Dynamic
00ad 00c7 | | Action Elaborate_Subprogram
00ae e011 | | Load 0x0,0x11
00af 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00b0 481a |H | Short_Literal 0x1a
00b1 4802 |H | Short_Literal 0x2
00b2 0099 | | Action Reference_Dynamic
00b3 00c7 | | Action Elaborate_Subprogram
00b4 e012 | | Load 0x0,0x12
00b5 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00b6 e013 | | Load 0x0,0x13
00b7 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00b8 481c |H | Short_Literal 0x1c
00b9 4802 |H | Short_Literal 0x2
00ba 0099 | | Action Reference_Dynamic
00bb 00c7 | | Action Elaborate_Subprogram
00bc 481b |H | Short_Literal 0x1b
00bd 4802 |H | Short_Literal 0x2
00be 0099 | | Action Reference_Dynamic
00bf 00c7 | | Action Elaborate_Subprogram
00c0 e014 | | Load 0x0,0x14
00c1 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00c2 481d |H | Short_Literal 0x1d
00c3 4802 |H | Short_Literal 0x2
00c4 0099 | | Action Reference_Dynamic
00c5 00c7 | | Action Elaborate_Subprogram
00c6 e015 | | Load 0x0,0x15
00c7 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00c8 e016 | | Load 0x0,0x16
00c9 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00ca 481e |H | Short_Literal 0x1e
00cb 4802 |H | Short_Literal 0x2
00cc 0099 | | Action Reference_Dynamic
00cd 00c7 | | Action Elaborate_Subprogram
00ce 481f |H | Short_Literal 0x1f
00cf 4802 |H | Short_Literal 0x2
00d0 0099 | | Action Reference_Dynamic
00d1 00c7 | | Action Elaborate_Subprogram
00d2 e017 | | Load 0x0,0x17
00d3 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00d4 e018 | | Load 0x0,0x18
00d5 02a9 | | Declare_Subprogram For_Call,Unelaborated,With_Address
00d6 4820 |H | Short_Literal 0x20
00d7 4802 |H | Short_Literal 0x2
00d8 0099 | | Action Reference_Dynamic
00d9 00c7 | | Action Elaborate_Subprogram
00da 4821 |H! | Short_Literal 0x21
00db 4802 |H | Short_Literal 0x2
00dc 0099 | | Action Reference_Dynamic
00dd 00c7 | | Action Elaborate_Subprogram
00de BODY_0018:
00de 841d | | Call 0x2,0x1d
00df 841a | | Call 0x2,0x1a
00e0 00cf | | Action Mark_Auxiliary
00e1 0007 | | Action Break_Optional
00e2 e411 | | Load 0x2,0x11
00e3 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
00e4 4820 |H | Short_Literal 0x20
00e5 4800 |H | Short_Literal 0x0
00e6 e403 | | Load 0x2,0x3
00e7 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00e8 e411 | | Load 0x2,0x11
00e9 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
00ea 8414 | | Call 0x2,0x14
00eb 841f | | Call 0x2,0x1f
00ec 8418 | | Call 0x2,0x18
00ed 841b | | Call 0x2,0x1b
00ee 8421 | ! | Call 0x2,0x21
00ef 00c9 | | Action Pop_Auxiliary_Loop
00f0 7ff1 | | Jump 0xe2
00f1 TRAP_0018:
00f1 e019 | | Load 0x0,0x19
00f2 010f | | Execute Exception,Equal
00f3 6801 |h | Jump_Zero 0xf5
00f4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00f5 00d8 | | Load_Top At_Offset_0
00f6 0107 | | Execute Exception,Get_Name
00f7 4950 |IP | Short_Literal 0x150
00f8 495f |I_ | Short_Literal 0x15f
00f9 0262 | b | Execute Discrete,In_Range
00fa 6805 |h | Jump_Zero 0x100
00fb 0092 0201 | | Action Push_String_Extended,0x201 ; "End_Error raised."
00fd e01a | | Load 0x0,0x1a
00fe 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
00ff 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0100 0092 0202 | | Action Push_String_Extended,0x202 ; "Unhandled exception"
0102 e01a | | Load 0x0,0x1a
0103 1864 | d | Execute Package,Field_Execute,Field_Number 0x64
0104 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0105 0000 0000 | | .XXX[0x3]
0107 0000 | |
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010b | | .CONST 0x010b ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0001 | | .CONST 0x0001 ; Number of locals
010b BODY_0108:
010b INIT_0108:
010b 4603 |F | Jump_Case 0x4
010c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
010d 7802 |x | Jump 0x110 ; case 0x1
010e 7805 |x | Jump 0x114 ; case 0x2
010f 7809 |x | Jump 0x119 ; case 0x3
0110 e7ff | | Load 0x3,-0x1
0111 0091 01cc | | Action Push_String_Extended_Indexed,0x1cc ; "USER_NAME"
0113 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0114 e7fe | | Load 0x3,-0x2
0115 e7ff | | Load 0x3,-0x1
0116 00e0 | | Load_Encached Standard_Cache
0117 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0118 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0119 e7ff | | Load 0x3,-0x1
011a 00e0 | | Load_Encached Standard_Cache
011b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
011c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
011d 0000 0000 | | .XXX[0x3]
011f 0000 | |
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 4603 |F | Jump_Case 0x4
0124 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0125 7802 |x | Jump 0x128 ; case 0x1
0126 7805 |x | Jump 0x12c ; case 0x2
0127 7809 |x | Jump 0x131 ; case 0x3
0128 e7ff | | Load 0x3,-0x1
0129 0091 01d4 | | Action Push_String_Extended_Indexed,0x1d4 ; "ENVIRONMENT"
012b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
012c e7fe | | Load 0x3,-0x2
012d e7ff | | Load 0x3,-0x1
012e 00e0 | | Load_Encached Standard_Cache
012f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0130 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0131 e7ff | | Load 0x3,-0x1
0132 00e0 | | Load_Encached Standard_Cache
0133 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0134 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0135 0000 0000 | | .XXX[0x3]
0137 0000 | |
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 4603 |F | Jump_Case 0x4
013c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
013d 7802 |x | Jump 0x140 ; case 0x1
013e 7805 |x | Jump 0x144 ; case 0x2
013f 7809 |x | Jump 0x149 ; case 0x3
0140 e7ff | | Load 0x3,-0x1
0141 0091 01ee | | Action Push_String_Extended_Indexed,0x1ee ; "ENHANCEMENT"
0143 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0144 e7fe | | Load 0x3,-0x2
0145 e7ff | | Load 0x3,-0x1
0146 00e0 | | Load_Encached Standard_Cache
0147 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0148 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0149 e7ff | | Load 0x3,-0x1
014a 00e0 | | Load_Encached Standard_Cache
014b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
014c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
014d 0000 0000 | | .XXX[0x3]
014f 0000 | |
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153 | S | .CONST 0x0153 ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0001 | | .CONST 0x0001 ; Number of locals
0153 BODY_0150:
0153 INIT_0150:
0153 4603 |F | Jump_Case 0x4
0154 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0155 7802 |x | Jump 0x158 ; case 0x1
0156 7805 |x | Jump 0x15c ; case 0x2
0157 7809 |x | Jump 0x161 ; case 0x3
0158 e7ff | | Load 0x3,-0x1
0159 0091 01f3 | | Action Push_String_Extended_Indexed,0x1f3 ; "URGENT"
015b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
015c e7fe | | Load 0x3,-0x2
015d e7ff | | Load 0x3,-0x1
015e 00e0 | | Load_Encached Standard_Cache
015f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0160 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0161 e7ff | | Load 0x3,-0x1
0162 00e0 | | Load_Encached Standard_Cache
0163 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0164 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0165 0000 0000 | | .XXX[0x3]
0167 0000 | |
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b | k | .CONST 0x016b ; Address of begin
0169 0004 | | .CONST 0x0004 ; Address of exception handler
016a 0001 | | .CONST 0x0001 ; Number of locals
016b BODY_0168:
016b INIT_0168:
016b 4603 |F | Jump_Case 0x4
016c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
016d 7802 |x | Jump 0x170 ; case 0x1
016e 7805 |x | Jump 0x174 ; case 0x2
016f 7809 |x | Jump 0x179 ; case 0x3
0170 e7ff | | Load 0x3,-0x1
0171 0091 01f7 | | Action Push_String_Extended_Indexed,0x1f7 ; "BUG"
0173 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0174 e7fe | | Load 0x3,-0x2
0175 e7ff | | Load 0x3,-0x1
0176 00e0 | | Load_Encached Standard_Cache
0177 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0178 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0179 e7ff | | Load 0x3,-0x1
017a 00e0 | | Load_Encached Standard_Cache
017b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
017c 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183 | | .CONST 0x0183 ; Address of begin
0181 0004 | | .CONST 0x0004 ; Address of exception handler
0182 0001 | | .CONST 0x0001 ; Number of locals
0183 BODY_0180:
0183 INIT_0180:
0183 4603 |F | Jump_Case 0x4
0184 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0185 7802 |x | Jump 0x188 ; case 0x1
0186 7805 |x | Jump 0x18c ; case 0x2
0187 7809 |x | Jump 0x191 ; case 0x3
0188 e7ff | | Load 0x3,-0x1
0189 0091 01fa | | Action Push_String_Extended_Indexed,0x1fa ; "INQUIRY"
018b 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
018c e7fe | | Load 0x3,-0x2
018d e7ff | | Load 0x3,-0x1
018e 00e0 | | Load_Encached Standard_Cache
018f 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0190 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0191 e7ff | | Load 0x3,-0x1
0192 00e0 | | Load_Encached Standard_Cache
0193 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0194 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0195 0000 0000 | | .XXX[0x3]
0197 0000 | |
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a5 | | .CONST 0x01a5 ; Address of begin
0199 01bd | | .CONST 0x01bd ; Address of exception handler
019a 0004 | | .CONST 0x0004 ; Number of locals
019b INIT_0198:
019b e01a | | Load 0x0,0x1a
019c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
019d 02c7 | | Declare_Variable Any
019e 00d8 | | Load_Top At_Offset_0
019f 1c00 | | Execute_Immediate Run_Utility,0x0
01a0 4801 |H | Short_Literal 0x1
01a1 4880 |H | Short_Literal 0x80
01a2 00e9 | | Load_Encached String_Cache
01a3 0334 | 4 | Declare_Variable Array,With_Constraint
01a4 00e2 | | Load_Encached Integer_Cache
01a5 BODY_0198:
01a5 e602 | | Load 0x3,0x2
01a6 00ea | | Load_Encached Null_String_Cache
01a7 0092 0203 | | Action Push_String_Extended,0x203 ; "!machine.machine_name"
01a9 4800 |H | Short_Literal 0x0
01aa e01a | | Load 0x0,0x1a
01ab 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01ac c602 | | Store 0x3,0x2
01ad 00e3 | | Load_Encached Natural_Cache
01ae e603 | | Load 0x3,0x3
01af e602 | | Load 0x3,0x2
01b0 e01a | | Load 0x0,0x1a
01b1 1861 | a | Execute Package,Field_Execute,Field_Number 0x61
01b2 00d1 | | Pop_Control Pop_Count_1
01b3 c604 | | Store 0x3,0x4
01b4 e602 | | Load 0x3,0x2
01b5 e01a | | Load 0x0,0x1a
01b6 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01b7 c602 | | Store 0x3,0x2
01b8 4801 |H | Short_Literal 0x1
01b9 e604 | | Load 0x3,0x4
01ba e603 | | Load 0x3,0x3
01bb 01cf | | Execute Vector,Slice_Read
01bc 00ca | | Action Exit_Nullary_Function
01bd TRAP_0198:
01bd 0007 | | Action Break_Optional
01be e602 | | Load 0x3,0x2
01bf e01a | | Load 0x0,0x1a
01c0 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
01c1 6804 |h | Jump_Zero 0x1c6
01c2 e602 | | Load 0x3,0x2
01c3 e01a | | Load 0x0,0x1a
01c4 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01c5 c602 | | Store 0x3,0x2
01c6 00ea | | Load_Encached Null_String_Cache
01c7 00ca | | Action Exit_Nullary_Function
01c8 0000 0000 | | .LITERAL {0x00000000, 0x000007db}
01cc ; --------------------------------------------------------------------------------------
01cc ; STRING TABLE
01cc ; --------------------------------------------------------------------------------------
01cc 0072 | r | .STRTAB 0x0072->0x0205 ; "USER_NAME"
01cd 0079 | y | .STRTAB 0x0079->0x0209 ; "COMPANY"
01ce 007e | ~ | .STRTAB 0x007e->0x020d ; "REGION"
01cf 0082 | | .STRTAB 0x0082->0x0210 ; "LOCAL_SITE"
01d0 008a | | .STRTAB 0x008a->0x0215 ; "CONFIGURATION_NAME"
01d1 009a | | .STRTAB 0x009a->0x021e ; "MACHINE_FOUND_ON"
01d2 00a8 | | .STRTAB 0x00a8->0x0226 ; "MACHINE_REPORTING"
01d3 00b7 | | .STRTAB 0x00b7->0x022e ; "PROBLEM_KEYWORDS"
01d4 00c5 | | .STRTAB 0x00c5->0x0236 ; "ENVIRONMENT"
01d5 00ce | | .STRTAB 0x00ce->0x023c ; "ADA_EDIT"
01d6 00d4 | | .STRTAB 0x00d4->0x0240 ; "CMVC"
01d7 00d6 | | .STRTAB 0x00d6->0x0242 ; "CODE_GENERATION"
01d8 00e3 | | .STRTAB 0x00e3->0x0249 ; "COMPILATION_COMMANDS"
01d9 00f5 | | .STRTAB 0x00f5->0x0253 ; "CORE_EDITOR"
01da 00fe | | .STRTAB 0x00fe->0x0259 ; "CROSS_DEBUGGER"
01db 010a | | .STRTAB 0x010a->0x0260 ; "NATIVE_DEBUGGER"
01dc 0117 | | .STRTAB 0x0117->0x0267 ; "DESIGN_FACILITY"
01dd 0124 | $ | .STRTAB 0x0124->0x026f ; "DIRECTORY_COMMANDS"
01de 0134 | 4 | .STRTAB 0x0134->0x0278 ; "DOCUMENTATION"
01df 013f | ? | .STRTAB 0x013f->0x027e ; "ERROR_MESSAGES"
01e0 014b | K | .STRTAB 0x014b->0x0285 ; "INPUT_OUTPUT"
01e1 0155 | U | .STRTAB 0x0155->0x028b ; "MAIL"
01e2 0157 | W | .STRTAB 0x0157->0x028d ; "NETWORKING"
01e3 015f | _ | .STRTAB 0x015f->0x0292 ; "OS_COMMANDS"
01e4 0168 | h | .STRTAB 0x0168->0x0298 ; "R_TOOLS"
01e5 016d | m | .STRTAB 0x016d->0x029b ; "SEMANTICS"
01e6 0174 | t | .STRTAB 0x0174->0x02a0 ; "SUBSYSTEMS"
01e7 017c | | | .STRTAB 0x017c->0x02a5 ; "TARGET_COMPILERS"
01e8 018a | | .STRTAB 0x018a->0x02ad ; "TARGET_DEBUGGERS"
01e9 0198 | | .STRTAB 0x0198->0x02b5 ; "TARGET_BUILDER"
01ea 01a4 | | .STRTAB 0x01a4->0x02bc ; "TEXT_EDIT"
01eb 01ab | | .STRTAB 0x01ab->0x02c0 ; "UTILITIES"
01ec 01b2 | | .STRTAB 0x01b2->0x02c5 ; "CRASH"
01ed 01b5 | | .STRTAB 0x01b5->0x02c7 ; "OTHER"
01ee 01b8 | | .STRTAB 0x01b8->0x02ca ; "ENHANCEMENT"
01ef 01c1 | | .STRTAB 0x01c1->0x02cf ; "PERFORMANCE"
01f0 01ca | | .STRTAB 0x01ca->0x02d5 ; "NOMINAL"
01f1 01cf | | .STRTAB 0x01cf->0x02d8 ; "URGENT"
01f2 01d3 | | .STRTAB 0x01d3->0x02db ; "EMERGENCY"
01f3 01da | | .STRTAB 0x01da->0x02e0 ; "URGENT"
01f4 01de | | .STRTAB 0x01de->0x02e3 ; "HIGH"
01f5 01e0 | | .STRTAB 0x01e0->0x02e5 ; "IMPORTANT"
01f6 01e7 | | .STRTAB 0x01e7->0x02e9 ; "SCHEDULED"
01f7 01ee | | .STRTAB 0x01ee->0x02ee ; "BUG"
01f8 01ef | | .STRTAB 0x01ef->0x02ef ; "ENHANCEMENT"
01f9 01f8 | | .STRTAB 0x01f8->0x02f5 ; "PERFORMANCE"
01fa 0201 | | .STRTAB 0x0201->0x02fa ; "INQUIRY"
01fb 0206 | | .STRTAB 0x0206->0x02fe ; "PROBLEM"
01fc 020b | | .STRTAB 0x020b->0x0301 ; "SUGGESTION"
01fd 0213 | | .STRTAB 0x0213->0x0306 ; "OTHER"
01fe 0216 | | .STRTAB 0x0216->0x0309 ; "!USERS."
01ff 021b | | .STRTAB 0x021b->0x030c ; "!machine.sims.command_categories"
0200 0239 | 9 | .STRTAB 0x0239->0x031c ; "!machine.sims.site_init_file"
0201 0253 | S | .STRTAB 0x0253->0x032a ; "End_Error raised."
0202 0262 | b | .STRTAB 0x0262->0x0333 ; "Unhandled exception"
0203 0273 | s | .STRTAB 0x0273->0x033c ; "!machine.machine_name"
0204 0286 | | .STREND 0x0286->0x0347
0205 5553 4552 |USER| .STRTAB_STRINGS
0347 0000 | | .XXX[0x1]
0348 ; --------------------------------------------------------------------------------------
0348 ; Debug Table
0348 ; --------------------------------------------------------------------------------------
0348 0004 0000 | | .DEBUG4 0x0004,0x0000,0x11e6,0x0000,0x0001,0x0000
034e 0000 0008 | | .XXX[0xa]
0350 0000 0010 | |
0352 0000 0018 | |
0354 0000 49e8 | I |
0356 0121 6460 | !d`|
0358 0000 0000 | | .BLANK 0000[0x4]
035c 0030 5804 | 0X | .XXX[0xe]
035e 0000 2cc1 | , |
0360 1ed1 166f | o|
0362 0000 0000 | |
0364 004f 758b | Ou |
0366 85d5 4340 | C@|
0368 0000 2000 | |
036a 0000 0000 | | .BLANK 0000[0x4]
036e 00ec 8080 | | .XXX[0xa]
0370 0000 4000 | @ |
0372 00ee 8080 | |
0374 0000 4000 | @ |
0376 2209 1800 |" |
0378 0000 0000 | | .BLANK 0000[0x4]
037c 003b a020 | ; | .XXX[0x9]
037e 0000 1007 | |
0380 b8c5 cbd3 | |
0382 12a0 0000 | |
0384 4000 |@ |
0385 0000 0000 | | .BLANK 0000[0x5]
038a 2000 0000 | | .XXX[0x4]
038c 0008 8246 | F|
038e 0000 0000 | | .BLANK 0000[0x8]
0396 01ee 3160 | 1`| .XXX[0x5]
0398 4991 3800 |I 8 |
039a 0010 | |
039b 0000 0000 | | .BLANK 0000[0x5]
03a0 0008 0000 | | .XXX[0x1b]
03a2 0000 0000 | |
03a4 0018 0000 | |
03a6 08d0 0060 | `|
03a8 adf0 0000 | |
03aa 0000 00b4 | |
03ac fb6c 0030 | l 0|
03ae 6c45 8000 |lE |
03b0 3b82 1ee2 |; |
03b2 e456 ad2a | V *|
03b4 8000 010f | |
03b6 758c 3687 |u 6 |
03b8 1cc0 0000 | |
03ba 8080 | |
03bb 0000 0000 | | .BLANK 0000[0xc]
03c7 2600 |& | .XXX[0x1]
03c8 0000 0000 | | .BLANK 0000[0x8]
03d0 0007 b8b9 | | .XXX[0xf]
03d2 15ab 7070 | pp|
03d4 0000 4000 | @ |
03d6 0000 9000 | |
03d8 0082 2000 | |
03da 0000 2000 | |
03dc 0000 2009 | |
03de 8000 | |
03df 0000 0000 | | .BLANK 0000[0x8]
03e7 01ee 2e45 | .E| .XXX[0x13]
03e9 6adc 1c00 |j |
03eb 0010 0000 | |
03ed 0024 0000 | $ |
03ef 2088 0000 | |
03f1 0008 0000 | |
03f3 0008 0000 | |
03f5 0018 0000 | |
03f7 49e0 0121 |I !|
03f9 40e8 |@ |
03fa 0000 0000 | | .BLANK 0000[0x4]
03fe 0030 8084 | 0 | .XXX[0x2]