DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦99facd577⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_6a18da

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

Disassembly

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 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 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 0029       | )  |		.CONST	0x0029								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0008       |    |		.CONST	0x0008								; Number of locals
001b			INIT_0018:
001b 029f 003b  |   ;|		Declare_Subprogram	INIT_0038,For_Call
001d 029f 0043  |   C|		Declare_Subprogram	INIT_0040,For_Call
001f 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0021 029f 005b  |   [|		Declare_Subprogram	INIT_0058,For_Call
0023 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0025 029f 009b  |    |		Declare_Subprogram	INIT_0098,For_Call
0027 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
0029			BODY_0018:
0029 e001       |    |		Load	0x0,0x1
002a 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
002b 7004       |p   |		Jump_Nonzero	0x30
002c 0092 01bc  |    |		Action	Push_String_Extended,0x1bc					; "Privileged mode is required to run this command"
002e 8405       |    |		Call	0x2,0x5
002f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0030 8408       |    |		Call	0x2,0x8
0031 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0032 0000 0000  |    |		.BLANK	0000[0x6]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b       | ;  |		.CONST	0x003b								; Address of begin
0039 0004       |    |		.CONST	0x0004								; Address of exception handler
003a 0001       |    |		.CONST	0x0001								; Number of locals
003b			BODY_0038:
003b			INIT_0038:
003b e7ff       |    |		Load	0x3,-0x1
003c 0f00       |    |		Execute_Immediate	Equal,0x0
003d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
003e 0000 0000  |    |		.XXX[0x2]
0040 ; --------------------------------------------------------------------------------------
0040 ; SUBPROGRAM
0040 ; --------------------------------------------------------------------------------------
0040 0043       | C  |		.CONST	0x0043								; Address of begin
0041 0004       |    |		.CONST	0x0004								; Address of exception handler
0042 0001       |    |		.CONST	0x0001								; Number of locals
0043			BODY_0040:
0043			INIT_0040:
0043 e7ff       |    |		Load	0x3,-0x1
0044 0f00       |    |		Execute_Immediate	Equal,0x0
0045 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0046 0000 0000  |    |		.XXX[0x2]
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
004c e002       |    |		Load	0x0,0x2
004d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
004e 4807       |H   |		Short_Literal	0x7
004f e7ff       |    |		Load	0x3,-0x1
0050 e003       |    |		Load	0x0,0x3
0051 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0052 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0053 0000 0000  |    |		.BLANK	0000[0x5]
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b       | [  |		.CONST	0x005b								; Address of begin
0059 0004       |    |		.CONST	0x0004								; Address of exception handler
005a 0001       |    |		.CONST	0x0001								; Number of locals
005b			BODY_0058:
005b			INIT_0058:
005b e5fd       |    |		Load	0x2,-0x3
005c e002       |    |		Load	0x0,0x2
005d 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
005e 4805       |H   |		Short_Literal	0x5
005f e7ff       |    |		Load	0x3,-0x1
0060 e003       |    |		Load	0x0,0x3
0061 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
0062 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0063 0000 0000  |    |		.BLANK	0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006d       | m  |		.CONST	0x006d								; Address of begin
0069 0089       |    |		.CONST	0x0089								; Address of exception handler
006a 0002       |    |		.CONST	0x0002								; Number of locals
006b			INIT_0068:
006b e004       |    |		Load	0x0,0x4
006c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006d			BODY_0068:
006d e004       |    |		Load	0x0,0x4
006e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
006f 6020       |`   |		Indirect_Literal	Discrete,0x90,{0x00000000, 0x00004000}
0070 e005       |    |		Load	0x0,0x5
0071 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0072 e7fd       |    |		Load	0x3,-0x3
0073 e7fe       |    |		Load	0x3,-0x2
0074 e006       |    |		Load	0x0,0x6
0075 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0076 c602       |    |		Store	0x3,0x2
0077 00d8       |    |		Load_Top	At_Offset_0
0078 8402       |    |		Call	0x2,0x2
0079 700e       |p   |		Jump_Nonzero	0x88
007a 0092 01bd  |    |		Action	Push_String_Extended,0x1bd					; "Could not set unit state for "
007c e7ff       |    |		Load	0x3,-0x1
007d 01cc       |    |		Execute	Vector,Catenate
007e 0092 01be  |    |		Action	Push_String_Extended,0x1be					; " to source: "
0080 01cc       |    |		Execute	Vector,Catenate
0081 e602       |    |		Load	0x3,0x2
0082 e004       |    |		Load	0x0,0x4
0083 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0084 025e       | ^  |		Execute	Discrete,Convert
0085 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0086 01cc       |    |		Execute	Vector,Catenate
0087 8404       |    |		Call	0x2,0x4
0088 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0089			TRAP_0068:
0089 0007       |    |		Action	Break_Optional
008a 0092 01bf  |    |		Action	Push_String_Extended,0x1bf					; "Unhandled exception setting unit state for unit "
008c e7ff       |    |		Load	0x3,-0x1
008d 01cc       |    |		Execute	Vector,Catenate
008e 8404       |    |		Call	0x2,0x4
008f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0090 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
0094 0000 0000  |    |		.BLANK	0000[0x4]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00b2       |    |		.CONST	0x00b2								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0008       |    |		.CONST	0x0008								; Number of locals
009b			INIT_0098:
009b 00ec       |    |		Load_Encached	Diana_Tree_Cache
009c 02c7       |    |		Declare_Variable	Any
009d 00d8       |    |		Load_Top	At_Offset_0
009e 1c00       |    |		Execute_Immediate	Run_Utility,0x0
009f 00ec       |    |		Load_Encached	Diana_Tree_Cache
00a0 02c7       |    |		Declare_Variable	Any
00a1 00d8       |    |		Load_Top	At_Offset_0
00a2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a3 e004       |    |		Load	0x0,0x4
00a4 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
00a5 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00a6 02c7       |    |		Declare_Variable	Any
00a7 00d8       |    |		Load_Top	At_Offset_0
00a8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00a9 e004       |    |		Load	0x0,0x4
00aa 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ab e004       |    |		Load	0x0,0x4
00ac 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
00ad 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ae 029f 0143  |   C|		Declare_Subprogram	INIT_0140,For_Call
00b0 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
00b2			BODY_0098:
00b2 8607       |    |		Call	0x3,0x7
00b3 8608       |    |		Call	0x3,0x8
00b4 e602       |    |		Load	0x3,0x2
00b5 4976       |Iv  |		Short_Literal	0x176
00b6 00eb       |    |		Load_Encached	Diana_Cache
00b7 0098       |    |		Execute	Package,Field_Read_Dynamic
00b8 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00b9 c603       |    |		Store	0x3,0x3
00ba e606       |    |		Load	0x3,0x6
00bb 0c04       |    |		Execute_Immediate	Greater_Equal,0x4
00bc 6804       |h   |		Jump_Zero	0xc1
00bd e5fd       |    |		Load	0x2,-0x3
00be 4800       |H   |		Short_Literal	0x0
00bf e7ff       |    |		Load	0x3,-0x1
00c0 8007       |    |		Call	0x0,0x7
00c1 e606       |    |		Load	0x3,0x6
00c2 0c03       |    |		Execute_Immediate	Greater_Equal,0x3
00c3 6804       |h   |		Jump_Zero	0xc8
00c4 4802       |H   |		Short_Literal	0x2
00c5 e603       |    |		Load	0x3,0x3
00c6 e7ff       |    |		Load	0x3,-0x1
00c7 8406       |    |		Call	0x2,0x6
00c8 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00c9 0000 0000  |    |		.BLANK	0000[0x7]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00dc       |    |		.CONST	0x00dc								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0003       |    |		.CONST	0x0003								; Number of locals
00d3			INIT_00d0:
00d3 e004       |    |		Load	0x0,0x4
00d4 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00d5 1b18       |    |		Execute	Package,Field_Read,Field_Number 0x18
00d6 02c7       |    |		Declare_Variable	Any
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00d9 e004       |    |		Load	0x0,0x4
00da 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00db 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00dc			BODY_00d0:
00dc e004       |    |		Load	0x0,0x4
00dd 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00de 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00df e602       |    |		Load	0x3,0x2
00e0 6057       |`W  |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00004000}
00e1 e005       |    |		Load	0x0,0x5
00e2 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
00e3 e008       |    |		Load	0x0,0x8
00e4 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e5 e009       |    |		Load	0x0,0x9
00e6 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00e7 4801       |H   |		Short_Literal	0x1
00e8 4800       |H   |		Short_Literal	0x0
00e9 e008       |    |		Load	0x0,0x8
00ea 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
00eb e004       |    |		Load	0x0,0x4
00ec 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00ed 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
00ee e5ff       |    |		Load	0x2,-0x1
00ef e004       |    |		Load	0x0,0x4
00f0 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
00f2 c602       |    |		Store	0x3,0x2
00f3 c603       |    |		Store	0x3,0x3
00f4 00d8       |    |		Load_Top	At_Offset_0
00f5 8403       |    |		Call	0x2,0x3
00f6 701e       |p   |		Jump_Nonzero	0x115
00f7 0092 01c0  |    |		Action	Push_String_Extended,0x1c0					; "Can't resolve \x22"
00f9 e5ff       |    |		Load	0x2,-0x1
00fa 01cc       |    |		Execute	Vector,Catenate
00fb 0092 01c1  |    |		Action	Push_String_Extended,0x1c1					; "\x22 because "
00fd 01cc       |    |		Execute	Vector,Catenate
00fe 6039       |`9  |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00004000}
00ff e005       |    |		Load	0x0,0x5
0100 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0101 e008       |    |		Load	0x0,0x8
0102 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0103 e009       |    |		Load	0x0,0x9
0104 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0105 4801       |H   |		Short_Literal	0x1
0106 4800       |H   |		Short_Literal	0x0
0107 e008       |    |		Load	0x0,0x8
0108 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0109 e004       |    |		Load	0x0,0x4
010a 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
010b 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
010c e5ff       |    |		Load	0x2,-0x1
010d e603       |    |		Load	0x3,0x3
010e e004       |    |		Load	0x0,0x4
010f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0110 1851       | Q  |		Execute	Package,Field_Execute,Field_Number 0x51
0111 01cc       |    |		Execute	Vector,Catenate
0112 8405       |    |		Call	0x2,0x5
0113 00cc       |    |		Action	Pop_Block
0114 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0115 00cf       |    |		Action	Mark_Auxiliary
0116 780b       |x   |		Jump	0x122
0117 e602       |    |		Load	0x3,0x2
0118 e004       |    |		Load	0x0,0x4
0119 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011a 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
011b 8407       |    |		Call	0x2,0x7
011c e602       |    |		Load	0x3,0x2
011d e004       |    |		Load	0x0,0x4
011e 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
011f 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0120 c602       |    |		Store	0x3,0x2
0121 00c9       |    |		Action	Pop_Auxiliary_Loop
0122 e602       |    |		Load	0x3,0x2
0123 e004       |    |		Load	0x0,0x4
0124 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0125 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
0126 6ff0       |o   |		Jump_Zero	0x117
0127 00ce       |    |		Action	Pop_Auxiliary
0128 e5fe       |    |		Load	0x2,-0x2
0129 680c       |h   |		Jump_Zero	0x136
012a e5fd       |    |		Load	0x2,-0x3
012b 00ea       |    |		Load_Encached	Null_String_Cache
012c 4801       |H   |		Short_Literal	0x1
012d 4800       |H   |		Short_Literal	0x0
012e 485b       |H[  |		Short_Literal	0x5b
012f e5ff       |    |		Load	0x2,-0x1
0130 01ca       |    |		Execute	Vector,Prepend
0131 0092 01c2  |    |		Action	Push_String_Extended,0x1c2					; "]$$"
0133 01cc       |    |		Execute	Vector,Catenate
0134 e00a       |    |		Load	0x0,0xa
0135 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0136 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0137 0000       |    |		.XXX[0x1]
0138 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
013c 0000 0000  |    |		.BLANK	0000[0x4]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143       | C  |		.CONST	0x0143								; Address of begin
0141 017c       | |  |		.CONST	0x017c								; Address of exception handler
0142 0001       |    |		.CONST	0x0001								; Number of locals
0143			BODY_0140:
0143			INIT_0140:
0143 e004       |    |		Load	0x0,0x4
0144 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0145 e604       |    |		Load	0x3,0x4
0146 0120       |    |		Execute	Any,Is_Value
0147 6804       |h   |		Jump_Zero	0x14c
0148 e004       |    |		Load	0x0,0x4
0149 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
014a 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
014b 7801       |x   |		Jump	0x14d
014c e604       |    |		Load	0x3,0x4
014d e602       |    |		Load	0x3,0x2
014e 0120       |    |		Execute	Any,Is_Value
014f 6804       |h   |		Jump_Zero	0x154
0150 e004       |    |		Load	0x0,0x4
0151 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0152 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0153 7801       |x   |		Jump	0x155
0154 e602       |    |		Load	0x3,0x2
0155 67e2       |g   |		Indirect_Literal	Discrete,0x138,{0x00000000, 0x00004000}
0156 4801       |H   |		Short_Literal	0x1
0157 4800       |H   |		Short_Literal	0x0
0158 4800       |H   |		Short_Literal	0x0
0159 e008       |    |		Load	0x0,0x8
015a 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
015b e004       |    |		Load	0x0,0x4
015c 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
015d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
015e e005       |    |		Load	0x0,0x5
015f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0160 4800       |H   |		Short_Literal	0x0
0161 e7ff       |    |		Load	0x3,-0x1
0162 e004       |    |		Load	0x0,0x4
0163 1b38       | 8  |		Execute	Package,Field_Read,Field_Number 0x38
0164 182a       | *  |		Execute	Package,Field_Execute,Field_Number 0x2a
0165 c602       |    |		Store	0x3,0x2
0166 c604       |    |		Store	0x3,0x4
0167 c605       |    |		Store	0x3,0x5
0168 e605       |    |		Load	0x3,0x5
0169 8402       |    |		Call	0x2,0x2
016a 7010       |p   |		Jump_Nonzero	0x17b
016b 0092 01c3  |    |		Action	Push_String_Extended,0x1c3					; "Bad status opening unit "
016d e7ff       |    |		Load	0x3,-0x1
016e 01cc       |    |		Execute	Vector,Catenate
016f 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; ": "
0171 01cc       |    |		Execute	Vector,Catenate
0172 e605       |    |		Load	0x3,0x5
0173 e004       |    |		Load	0x0,0x4
0174 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0175 025e       | ^  |		Execute	Discrete,Convert
0176 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0177 01cc       |    |		Execute	Vector,Catenate
0178 8405       |    |		Call	0x2,0x5
0179 00cc       |    |		Action	Pop_Block
017a 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
017b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
017c			TRAP_0140:
017c 0007       |    |		Action	Break_Optional
017d 0092 01c5  |    |		Action	Push_String_Extended,0x1c5					; "Unhandled exception opening ada unit "
017f e7ff       |    |		Load	0x3,-0x1
0180 01cc       |    |		Execute	Vector,Catenate
0181 8404       |    |		Call	0x2,0x4
0182 00cc       |    |		Action	Pop_Block
0183 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0184 0000 0000  |    |		.BLANK	0000[0x4]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 01ad       |    |		.CONST	0x01ad								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e004       |    |		Load	0x0,0x4
018c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
018d e004       |    |		Load	0x0,0x4
018e 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
018f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0190 6027       |`'  |		Indirect_Literal	Discrete,0x1b8,{0x00000000, 0x00004000}
0191 e005       |    |		Load	0x0,0x5
0192 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0193 e602       |    |		Load	0x3,0x2
0194 e004       |    |		Load	0x0,0x4
0195 1b3a       | :  |		Execute	Package,Field_Read,Field_Number 0x3a
0196 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0197 c606       |    |		Store	0x3,0x6
0198 c605       |    |		Store	0x3,0x5
0199 e605       |    |		Load	0x3,0x5
019a 8402       |    |		Call	0x2,0x2
019b 7010       |p   |		Jump_Nonzero	0x1ac
019c 0092 01c6  |    |		Action	Push_String_Extended,0x1c6					; "Bad status getting unit state for unit "
019e e7ff       |    |		Load	0x3,-0x1
019f 01cc       |    |		Execute	Vector,Catenate
01a0 0092 01c4  |    |		Action	Push_String_Extended,0x1c4					; ": "
01a2 01cc       |    |		Execute	Vector,Catenate
01a3 e605       |    |		Load	0x3,0x5
01a4 e004       |    |		Load	0x0,0x4
01a5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01a6 025e       | ^  |		Execute	Discrete,Convert
01a7 1c01       |    |		Execute_Immediate	Run_Utility,0x1
01a8 01cc       |    |		Execute	Vector,Catenate
01a9 8405       |    |		Call	0x2,0x5
01aa 00cc       |    |		Action	Pop_Block
01ab 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01ac 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
01ad			TRAP_0188:
01ad 0007       |    |		Action	Break_Optional
01ae 0092 01c7  |    |		Action	Push_String_Extended,0x1c7					; "Unhandled exception getting unit state for unit "
01b0 e7ff       |    |		Load	0x3,-0x1
01b1 01cc       |    |		Execute	Vector,Catenate
01b2 8404       |    |		Call	0x2,0x4
01b3 00cc       |    |		Action	Pop_Block
01b4 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01b5 0000 0000  |    |		.XXX[0x3]
01b7 0000       |    |
01b8 0000 0000  |    |		.LITERAL	{0x00000000, 0x00004000}
01bc ; --------------------------------------------------------------------------------------
01bc ; STRING TABLE
01bc ; --------------------------------------------------------------------------------------
01bc 001a       |    |		.STRTAB	0x001a->0x01c9							; "Privileged mode is required to run this command"
01bd 0047       | G  |		.STRTAB	0x0047->0x01e0							; "Could not set unit state for "
01be 0062       | b  |		.STRTAB	0x0062->0x01ef							; " to source: "
01bf 006c       | l  |		.STRTAB	0x006c->0x01f5							; "Unhandled exception setting unit state for unit "
01c0 009a       |    |		.STRTAB	0x009a->0x020d							; "Can't resolve \x22"
01c1 00a7       |    |		.STRTAB	0x00a7->0x0214							; "\x22 because "
01c2 00af       |    |		.STRTAB	0x00af->0x0219							; "]$$"
01c3 00b0       |    |		.STRTAB	0x00b0->0x021b							; "Bad status opening unit "
01c4 00c6       |    |		.STRTAB	0x00c6->0x0227							; ": "
01c5 00c6       |    |		.STRTAB	0x00c6->0x0228							; "Unhandled exception opening ada unit "
01c6 00e9       |    |		.STRTAB	0x00e9->0x023a							; "Bad status getting unit state for unit "
01c7 010e       |    |		.STRTAB	0x010e->0x024e							; "Unhandled exception getting unit state for unit "
01c8 013c       | <  |		.STREND 0x013c->0x0266
01c9 5072 6976  |Priv|		.STRTAB_STRINGS
0266 0000 0000  |    |		.XXX[0x2]
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug Table
0268 ; --------------------------------------------------------------------------------------
0268 0004 000b  |    |		.DEBUG4	0x0004,0x000b,0xbb79,0x0000,0x0001,0x0000
026e 00d8 1c00  |    |		.XXX[0x74]
0270 029f 0123  |   #|
0272 029f 0143  |   C|
0274 029f 021b  |    |
0276 029f 023b  |   ;|
0278 e40d 0c02  |    |
027a 680b 4801  |h H |
027c e40d 0aff  |    |
027e e7fe 01cf  |    |
0280 4801 e40d  |H   |
0282 0aff e602  |    |
0284 2502 01ce  |%   |
0286 00cf 8604  |    |
0288 8605 8606  |    |
028a e40c 00d8  |    |
028c 4800 4809  |H H |
028e 0262 680d  | bh |
0290 4609 782b  |F x+|
0292 781a 780b  |x x |
0294 7826 7839  |x&x9|
0296 7838 7837  |x8x7|
0298 7836 7835  |x6x5|
029a 7800 4900  |x I |
029c 0257 00d1  | W  |
029e 7830 4803  |x0H |
02a0 e247 1c08  | G  |
02a2 4800 00d9  |H   |
02a4 2802 e40d  |(   |
02a6 e602 2502  |  % |
02a8 01d6 e40d  |    |
02aa 0a01 c40d  |    |
02ac 7822 4802  |x"H |
02ae e247 1c08  | G  |
02b0 4800 00d9  |H   |
02b2 2802 e40d  |(   |
02b4 e602 2502  |  % |
02b6 01d6 e40d  |    |
02b8 0a01 c40d  |    |
02ba 7814 4900  |x I |
02bc 0257 e40a  | W  |
02be 0c01 680f  |  h |
02c0 e5fe 3401  |  4 |
02c2 3401 3400  |4 4 |
02c4 e5fe 3401  |  4 |
02c6 3401 3401  |4 4 |
02c8 4801 e40a  |H   |
02ca e409 01cf  |    |
02cc e001 182f  |   /|
02ce 8603 e40d  |    |
02d0 e602 2502  |  % |
02d2 01dc 027b  |   {|
02d4 680b e602  |h   |
02d6 2502 e7ff  |%   |
02d8 0901 00d8  |    |
02da 00e4 0260  |   `|
02dc 7001 0801  |p   |
02de 840f 4402  |  D |
02e0 00c9 7fa5  |    |
02e2 0000 0000  |    |		.BLANK	0000[0x6]
02e8 00ed 0004  |    |		.XXX[0x118]
02ea 0002 00e4  |    |
02ec 0601 4801  |  H |
02ee 00d9 e404  |    |
02f0 01d5 3800  |  8 |
02f2 00cf e5ff  |    |
02f4 2502 01d9  |%   |
02f6 0263 7018  | cp |
02f8 00d8 e5ff  |    |
02fa 2502 01d5  |%   |
02fc 2c01 0f04  |,   |
02fe 680f 00d8  |h   |
0300 0aff e602  |    |
0302 e404 01d5  |    |
0304 3801 00db  |8   |
0306 0a01 c602  |    |
0308 00d8 0a01  |    |
030a e602 e404  |    |
030c 01d5 3800  |  8 |
030e 00c8 3fe8  |  ? |
0310 00ce e5ff  |    |
0312 2502 01dc  |%   |
0314 00d9 e404  |    |
0316 01d5 3801  |  8 |
0318 00d8 e404  |    |
031a 01dc 027f  |    |
031c 7001 0887  |p   |
031e 4501 0000  |E   |
0320 0123 0004  | #  |
0322 0001 4800  |  H |
0324 e247 1c08  | G  |
0326 4800 00d9  |H   |
0328 2a04 00db  |*   |
032a e245 1811  | E  |
032c 00d9 2a03  |  * |
032e 4800 00d9  |H   |
0330 2802 e40d  |(   |
0332 e602 2502  |  % |
0334 01d6 e40d  |    |
0336 0a01 c40d  |    |
0338 4801 e5fe  |H   |
033a 3402 e9ff  |4   |
033c 8214 4502  |  E |
033e 0000 0000  |    |
0340 016e 0004  | n  |
0342 0005 e40d  |    |
0344 0aff e219  |    |
0346 1c08 e40d  |    |
0348 0aff e219  |    |
034a 1c08 4801  |  H |
034c e40d 0aff  |    |
034e e602 2502  |  % |
0350 01cf 00d9  |    |
0352 00d8 2502  |  % |
0354 00da 01da  |    |
0356 00da 01da  |    |
0358 00da 027f  |    |
035a 7001 08e0  |p   |
035c 00cd 027f  |    |
035e 7001 08e0  |p   |
0360 00d2 00d9  |    |
0362 2902 00d9  |)   |
0364 016d 00d8  | m  |
0366 2502 01dc  |%   |
0368 00e3 03ec  |    |
036a 00e1 0601  |    |
036c 029f 027b  |   {|
036e e40e 6813  |  h |
0370 4801 e5fe  |H   |
0372 3402 e241  |4  A|
0374 e242 01cc  | B  |
0376 0092 035c  |   \|
0378 01cc e802  |    |
037a 8244 01cc  | D  |
037c e241 01cc  | A  |
037e e242 01cc  | B  |
0380 e001 180f  |    |
0382 8214 608c  |  ` |
0384 a40b 00cf  |    |
0386 e404 01d9  |    |
0388 0263 7003  | cp |
038a 8805 00c8  |    |
038c 3ffd 00ce  |?   |
038e 00d9 6829  |  h)|
0390 e5fe 3401  |  4 |
0392 3c02 607c  |< `||
0394 027e 681a  | ~h |
0396 00db 2c01  |  , |
0398 0c01 6816  |  h |
039a 00db 2502  |  % |
039c 01dc e802  |    |
039e 2502 01d5  |%   |
03a0 2c01 0f01  |,   |
03a2 680d e5fe  |h   |
03a4 3401 3c02  |4 < |
03a6 e802 2502  |  % |
03a8 01dc e802  |    |
03aa 2502 01d5  |%   |
03ac 2e05 0272  |.  r|
03ae c40b 7804  |  x |
03b0 e5fe 3401  |  4 |
03b2 3c02 a40b  |<   |
03b4 e40b 0d01  |    |
03b6 6802 e226  |h  &|
03b8 0257 00da  | W  |
03ba 0c02 6853  |  hS|
03bc 00cf 00db  |    |
03be 0aff 4801  |  H |
03c0 0263 7013  | cp |
03c2 00d8 e602  |    |
03c4 2502 01d5  |%   |
03c6 2c01 700b  |, p |
03c8 00d8 e602  |    |
03ca 2502 01d5  |%   |
03cc 00d8 2e03  |  . |
03ce e245 1813  | E  |
03d0 00d9 2a03  |  * |
03d2 00d1 00c8  |    |
03d4 3fed 00ce  |?   |
03d6 00da e40d  |    |
03d8 0aff e602  |    |
03da 2502 01cf  |%   |
03dc 4801 e40d  |H   |
03de e803 0272  |   r|
03e0 00d8 00e2  |    |
03e2 0260 7001  | `p |
03e4 0801 e602  |    |
03e6 2502 01ce  |%   |
03e8 e40d 00db  |    |
03ea 0aff 0272  |   r|
03ec c40d 00cf  |    |
03ee e406 01d9  |    |
03f0 0263 701c  | cp |
03f2 00d8 e406  |    |
03f4 01d5 3400  |  4 |
03f6 3c01 e803  |<   |
03f8 0aff 0272  |   r|
03fa 00d9 e406  |    |
03fc 01d5 3400  |  4 |
03fe 3801 00d8  |8   |