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

⟦49beb6171⟧

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

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 0238       | 8  |		.CONST	0x0238								; 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 0033       | 3  |		.CONST	0x0033								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 000c       |    |		.CONST	0x000c								; Number of locals
001b			INIT_0018:
001b 00e3       |    |		Load_Encached	Natural_Cache
001c 00e1       |    |		Load_Encached	Boolean_Cache
001d e002       |    |		Load	0x0,0x2
001e 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
001f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0020 0322       | "  |		Declare_Variable	Record
0021 e002       |    |		Load	0x0,0x2
0022 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0023 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0024 0322       | "  |		Declare_Variable	Record
0025 00e3       |    |		Load_Encached	Natural_Cache
0026 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0027 00e1       |    |		Load_Encached	Boolean_Cache
0028 0600       |    |		Execute_Immediate	Set_Value_Unchecked,0x0
0029 029f 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Call
002b 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
002d 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
002f 029f 0133  |   3|		Declare_Subprogram	INIT_0130,For_Call
0031 029f 0153  |   S|		Declare_Subprogram	INIT_0150,For_Call
0033			BODY_0018:
0033 0092 01a6  |    |		Action	Push_String_Extended,0x1a6					; "Machine_Id =>"
0035 e003       |    |		Load	0x0,0x3
0036 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0037 00e0       |    |		Load_Encached	Standard_Cache
0038 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0039 01cc       |    |		Execute	Vector,Catenate
003a e004       |    |		Load	0x0,0x4
003b 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
003c 0092 01a7  |    |		Action	Push_String_Extended,0x1a7					; "Release => "
003e e005       |    |		Load	0x0,0x5
003f 1856       | V  |		Execute	Package,Field_Execute,Field_Number 0x56
0040 01cc       |    |		Execute	Vector,Catenate
0041 e004       |    |		Load	0x0,0x4
0042 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0043 8408       |    |		Call	0x2,0x8
0044 8409       |    |		Call	0x2,0x9
0045 840a       |    |		Call	0x2,0xa
0046 840b       |    |		Call	0x2,0xb
0047 840c       |    |		Call	0x2,0xc
0048 4800       |H   |		Short_Literal	0x0
0049 e405       |    |		Load	0x2,0x5
004a 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
004b 4800       |H   |		Short_Literal	0x0
004c e405       |    |		Load	0x2,0x5
004d 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
004e 00cf       |    |		Action	Mark_Auxiliary
004f 481f       |H   |		Short_Literal	0x1f
0050 4800       |H   |		Short_Literal	0x0
0051 0007       |    |		Action	Break_Optional
0052 e404       |    |		Load	0x2,0x4
0053 00e1       |    |		Load_Encached	Boolean_Cache
0054 e40f       |    |		Load	0x2,0xf
0055 e002       |    |		Load	0x0,0x2
0056 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0057 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0058 c403       |    |		Store	0x2,0x3
0059 00d1       |    |		Pop_Control	Pop_Count_1
005a e403       |    |		Load	0x2,0x3
005b 6848       |hH  |		Jump_Zero	0xa4
005c e405       |    |		Load	0x2,0x5
005d 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
005e e404       |    |		Load	0x2,0x4
005f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0060 0273       | s  |		Execute	Discrete,Plus
0061 e405       |    |		Load	0x2,0x5
0062 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0063 e405       |    |		Load	0x2,0x5
0064 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0065 e404       |    |		Load	0x2,0x4
0066 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0067 0273       | s  |		Execute	Discrete,Plus
0068 e405       |    |		Load	0x2,0x5
0069 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
006a e406       |    |		Load	0x2,0x6
006b 0a01       |    |		Execute_Immediate	Plus,0x1
006c c406       |    |		Store	0x2,0x6
006d 0092 01a8  |    |		Action	Push_String_Extended,0x1a8					; "Volume"
006f e40f       |    |		Load	0x2,0xf
0070 00e0       |    |		Load_Encached	Standard_Cache
0071 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0072 01cc       |    |		Execute	Vector,Catenate
0073 0092 01a9  |    |		Action	Push_String_Extended,0x1a9					; " Retargets =>"
0075 01cc       |    |		Execute	Vector,Catenate
0076 4802       |H   |		Short_Literal	0x2
0077 e40f       |    |		Load	0x2,0xf
0078 00d8       |    |		Load_Top	At_Offset_0
0079 00e3       |    |		Load_Encached	Natural_Cache
007a 0260       | `  |		Execute	Discrete,In_Type
007b 7001       |p   |		Jump_Nonzero	0x7d
007c 0801       |    |		Execute_Immediate	Raise,0x1
007d e005       |    |		Load	0x0,0x5
007e 185c       | \  |		Execute	Package,Field_Execute,Field_Number 0x5c
007f 01db       |    |		Execute	Vector,Length
0080 00d8       |    |		Load_Top	At_Offset_0
0081 00e2       |    |		Load_Encached	Integer_Cache
0082 0260       | `  |		Execute	Discrete,In_Type
0083 7001       |p   |		Jump_Nonzero	0x85
0084 0801       |    |		Execute_Immediate	Raise,0x1
0085 00e0       |    |		Load_Encached	Standard_Cache
0086 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0087 01cc       |    |		Execute	Vector,Catenate
0088 0092 01aa  |    |		Action	Push_String_Extended,0x1aa					; " Capacity => "
008a 01cc       |    |		Execute	Vector,Catenate
008b e404       |    |		Load	0x2,0x4
008c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
008d 4be8       |K   |		Short_Literal	0x3e8
008e 0270       | p  |		Execute	Discrete,Divide
008f 00e0       |    |		Load_Encached	Standard_Cache
0090 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0091 01cc       |    |		Execute	Vector,Catenate
0092 0092 01ab  |    |		Action	Push_String_Extended,0x1ab					; "M Used => "
0094 01cc       |    |		Execute	Vector,Catenate
0095 e404       |    |		Load	0x2,0x4
0096 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0097 e404       |    |		Load	0x2,0x4
0098 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0099 0272       | r  |		Execute	Discrete,Minus
009a 4be8       |K   |		Short_Literal	0x3e8
009b 0270       | p  |		Execute	Discrete,Divide
009c 00e0       |    |		Load_Encached	Standard_Cache
009d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
009e 01cc       |    |		Execute	Vector,Catenate
009f 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; "M"
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 e004       |    |		Load	0x0,0x4
00a3 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00a4 00c8       |    |		Action	Pop_Auxiliary_Range
00a5 3fac       |?   |		Loop_Increasing	0x52
00a6 00ce       |    |		Action	Pop_Auxiliary
00a7 0092 01ad  |    |		Action	Push_String_Extended,0x1ad					; "Volumes => "
00a9 e406       |    |		Load	0x2,0x6
00aa 00e0       |    |		Load_Encached	Standard_Cache
00ab 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00ac 01cc       |    |		Execute	Vector,Catenate
00ad 0092 01ae  |    |		Action	Push_String_Extended,0x1ae					; " Capacity =>"
00af 01cc       |    |		Execute	Vector,Catenate
00b0 e405       |    |		Load	0x2,0x5
00b1 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00b2 4be8       |K   |		Short_Literal	0x3e8
00b3 0270       | p  |		Execute	Discrete,Divide
00b4 00e0       |    |		Load_Encached	Standard_Cache
00b5 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00b6 01cc       |    |		Execute	Vector,Catenate
00b7 0092 01ab  |    |		Action	Push_String_Extended,0x1ab					; "M Used => "
00b9 01cc       |    |		Execute	Vector,Catenate
00ba e405       |    |		Load	0x2,0x5
00bb 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00bc e405       |    |		Load	0x2,0x5
00bd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00be 0272       | r  |		Execute	Discrete,Minus
00bf 4be8       |K   |		Short_Literal	0x3e8
00c0 0270       | p  |		Execute	Discrete,Divide
00c1 00e0       |    |		Load_Encached	Standard_Cache
00c2 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c3 01cc       |    |		Execute	Vector,Catenate
00c4 0092 01ac  |    |		Action	Push_String_Extended,0x1ac					; "M"
00c6 01cc       |    |		Execute	Vector,Catenate
00c7 e004       |    |		Load	0x0,0x4
00c8 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00c9 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 00e1       |    |		.CONST	0x00e1								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 0092 01af  |    |		Action	Push_String_Extended,0x1af					; "Coprocessor => "
00d5 e002       |    |		Load	0x0,0x2
00d6 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00d7 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00d8 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
00d9 0e00       |    |		Execute_Immediate	Not_Equal,0x0
00da 00e1       |    |		Load_Encached	Boolean_Cache
00db 011c       |    |		Execute	Any,Convert_Unchecked
00dc 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00dd 01cc       |    |		Execute	Vector,Catenate
00de e004       |    |		Load	0x0,0x4
00df 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00e0 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e1			TRAP_00d0:
00e1 0007       |    |		Action	Break_Optional
00e2 0092 01b0  |    |		Action	Push_String_Extended,0x1b0					; "Coprocessor => false"
00e4 e004       |    |		Load	0x0,0x4
00e5 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
00e6 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00e7 0000       |    |		.XXX[0x1]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0108       |    |		.CONST	0x0108								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb 4800       |H   |		Short_Literal	0x0
00ec a402       |    |		Store_Unchecked	0x2,0x2
00ed 00cf       |    |		Action	Mark_Auxiliary
00ee 480a       |H   |		Short_Literal	0xa
00ef 4807       |H   |		Short_Literal	0x7
00f0 0007       |    |		Action	Break_Optional
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 e002       |    |		Load	0x0,0x2
00f3 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
00f4 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
00f5 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00f6 01d5       |    |		Execute	Vector,Field_Reference
00f7 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00f8 6803       |h   |		Jump_Zero	0xfc
00f9 e402       |    |		Load	0x2,0x2
00fa 0a01       |    |		Execute_Immediate	Plus,0x1
00fb c402       |    |		Store	0x2,0x2
00fc 00c8       |    |		Action	Pop_Auxiliary_Range
00fd 3ff3       |?   |		Loop_Increasing	0xf1
00fe 00ce       |    |		Action	Pop_Auxiliary
00ff 0092 01b1  |    |		Action	Push_String_Extended,0x1b1					; "Memory_Boards => "
0101 e402       |    |		Load	0x2,0x2
0102 00e0       |    |		Load_Encached	Standard_Cache
0103 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0104 01cc       |    |		Execute	Vector,Catenate
0105 e004       |    |		Load	0x0,0x4
0106 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0107 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0108			TRAP_00e8:
0108 0007       |    |		Action	Break_Optional
0109 0092 01b2  |    |		Action	Push_String_Extended,0x1b2					; "Memory_Boards => 4"
010b e004       |    |		Load	0x0,0x4
010c 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
010d 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
010e 0000 0000  |    |		.XXX[0x2]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0124       | $  |		.CONST	0x0124								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 0092 01b3  |    |		Action	Push_String_Extended,0x1b3					; "Series_100 => "
0115 4801       |H   |		Short_Literal	0x1
0116 e002       |    |		Load	0x0,0x2
0117 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0118 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0119 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
011a 01d5       |    |		Execute	Vector,Field_Reference
011b 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
011c 0e00       |    |		Execute_Immediate	Not_Equal,0x0
011d 00e1       |    |		Load_Encached	Boolean_Cache
011e 011c       |    |		Execute	Any,Convert_Unchecked
011f 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0120 01cc       |    |		Execute	Vector,Catenate
0121 e004       |    |		Load	0x0,0x4
0122 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0123 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0124			TRAP_0110:
0124 0007       |    |		Action	Break_Optional
0125 0092 01b4  |    |		Action	Push_String_Extended,0x1b4					; "Series_100 => ?"
0127 e004       |    |		Load	0x0,0x4
0128 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0129 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
012a 0000 0000  |    |		.BLANK	0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 014a       | J  |		.CONST	0x014a								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00cf       |    |		Action	Mark_Auxiliary
0134 4803       |H   |		Short_Literal	0x3
0135 4800       |H   |		Short_Literal	0x0
0136 0007       |    |		Action	Break_Optional
0137 00d8       |    |		Load_Top	At_Offset_0
0138 e006       |    |		Load	0x0,0x6
0139 1828       | (  |		Execute	Package,Field_Execute,Field_Number 0x28
013a 6802       |h   |		Jump_Zero	0x13d
013b 4801       |H   |		Short_Literal	0x1
013c a407       |    |		Store_Unchecked	0x2,0x7
013d 00c8       |    |		Action	Pop_Auxiliary_Range
013e 3ff8       |?   |		Loop_Increasing	0x137
013f 00ce       |    |		Action	Pop_Auxiliary
0140 0092 01b5  |    |		Action	Push_String_Extended,0x1b5					; "Exabyte => "
0142 e407       |    |		Load	0x2,0x7
0143 00e1       |    |		Load_Encached	Boolean_Cache
0144 011c       |    |		Execute	Any,Convert_Unchecked
0145 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0146 01cc       |    |		Execute	Vector,Catenate
0147 e004       |    |		Load	0x0,0x4
0148 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0149 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
014a			TRAP_0130:
014a 0007       |    |		Action	Break_Optional
014b 0092 01b6  |    |		Action	Push_String_Extended,0x1b6					; "Exabyte => false"
014d e004       |    |		Load	0x0,0x4
014e 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
014f 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 016c       | l  |		.CONST	0x016c								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0009       |    |		.CONST	0x0009								; Number of locals
0153			INIT_0150:
0153 e007       |    |		Load	0x0,0x7
0154 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0155 02c7       |    |		Declare_Variable	Any
0156 00d8       |    |		Load_Top	At_Offset_0
0157 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0158 e007       |    |		Load	0x0,0x7
0159 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
015a 0322       | "  |		Declare_Variable	Record
015b 00d8       |    |		Load_Top	At_Offset_0
015c 1c00       |    |		Execute_Immediate	Run_Utility,0x0
015d 029f 018b  |    |		Declare_Subprogram	INIT_0188,For_Call
015f e007       |    |		Load	0x0,0x7
0160 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0161 190f       |    |		Execute	Package,Field_Reference,Field_Number 0xf
0162 00c6       |    |		Action	Check_Subprogram_Elaborated
0163 4804       |H   |		Short_Literal	0x4
0164 4803       |H   |		Short_Literal	0x3
0165 0099       |    |		Action	Reference_Dynamic
0166 e008       |    |		Load	0x0,0x8
0167 e009       |    |		Load	0x0,0x9
0168 4808       |H   |		Short_Literal	0x8
0169 0007       |    |		Action	Break_Optional
016a 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
016c			BODY_0150:
016c e602       |    |		Load	0x3,0x2
016d e007       |    |		Load	0x0,0x7
016e 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
016f 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0170 c602       |    |		Store	0x3,0x2
0171 e602       |    |		Load	0x3,0x2
0172 4805       |H   |		Short_Literal	0x5
0173 4803       |H   |		Short_Literal	0x3
0174 0099       |    |		Action	Reference_Dynamic
0175 4806       |H   |		Short_Literal	0x6
0176 4803       |H   |		Short_Literal	0x3
0177 0099       |    |		Action	Reference_Dynamic
0178 e007       |    |		Load	0x0,0x7
0179 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
017a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
017b 0092 01b7  |    |		Action	Push_String_Extended,0x1b7					; "Last_Backup => "
017d 8609       |    |		Call	0x3,0x9
017e 01cc       |    |		Execute	Vector,Catenate
017f e004       |    |		Load	0x0,0x4
0180 1864       | d  |		Execute	Package,Field_Execute,Field_Number 0x64
0181 e602       |    |		Load	0x3,0x2
0182 e007       |    |		Load	0x0,0x7
0183 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
0184 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0185 c602       |    |		Store	0x3,0x2
0186 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0187 0000       |    |		.XXX[0x1]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b       |    |		.CONST	0x018b								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0001       |    |		.CONST	0x0001								; Number of locals
018b			BODY_0188:
018b			INIT_0188:
018b e9ff       |    |		Load	0x4,-0x1
018c e603       |    |		Load	0x3,0x3
018d 017d       | }  |		Execute	Record,Structure_Write
018e 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
018f 0000       |    |		.XXX[0x1]
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 e603       |    |		Load	0x3,0x3
0194 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0195 7008       |p   |		Jump_Nonzero	0x19e
0196 e603       |    |		Load	0x3,0x3
0197 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0198 e00a       |    |		Load	0x0,0xa
0199 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
019a 0092 01b8  |    |		Action	Push_String_Extended,0x1b8					; " Full"
019c 01cc       |    |		Execute	Vector,Catenate
019d 00ca       |    |		Action	Exit_Nullary_Function
019e e603       |    |		Load	0x3,0x3
019f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01a0 e00a       |    |		Load	0x0,0xa
01a1 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
01a2 0092 01b9  |    |		Action	Push_String_Extended,0x1b9					; " Incremental"
01a4 01cc       |    |		Execute	Vector,Catenate
01a5 00ca       |    |		Action	Exit_Nullary_Function
01a6 ; --------------------------------------------------------------------------------------
01a6 ; STRING TABLE
01a6 ; --------------------------------------------------------------------------------------
01a6 002a       | *  |		.STRTAB	0x002a->0x01bb							; "Machine_Id =>"
01a7 0035       | 5  |		.STRTAB	0x0035->0x01c1							; "Release => "
01a8 003e       | >  |		.STRTAB	0x003e->0x01c7							; "Volume"
01a9 0042       | B  |		.STRTAB	0x0042->0x01ca							; " Retargets =>"
01aa 004d       | M  |		.STRTAB	0x004d->0x01d0							; " Capacity => "
01ab 0058       | X  |		.STRTAB	0x0058->0x01d7							; "M Used => "
01ac 0060       | `  |		.STRTAB	0x0060->0x01dc							; "M"
01ad 005f       | _  |		.STRTAB	0x005f->0x01dc							; "Volumes => "
01ae 0068       | h  |		.STRTAB	0x0068->0x01e2							; " Capacity =>"
01af 0072       | r  |		.STRTAB	0x0072->0x01e8							; "Coprocessor => "
01b0 007f       |    |		.STRTAB	0x007f->0x01ef							; "Coprocessor => false"
01b1 0091       |    |		.STRTAB	0x0091->0x01f9							; "Memory_Boards => "
01b2 00a0       |    |		.STRTAB	0x00a0->0x0202							; "Memory_Boards => 4"
01b3 00b0       |    |		.STRTAB	0x00b0->0x020b							; "Series_100 => "
01b4 00bc       |    |		.STRTAB	0x00bc->0x0212							; "Series_100 => ?"
01b5 00c9       |    |		.STRTAB	0x00c9->0x0219							; "Exabyte => "
01b6 00d2       |    |		.STRTAB	0x00d2->0x021f							; "Exabyte => false"
01b7 00e0       |    |		.STRTAB	0x00e0->0x0227							; "Last_Backup => "
01b8 00ed       |    |		.STRTAB	0x00ed->0x022e							; " Full"
01b9 00f0       |    |		.STRTAB	0x00f0->0x0231							; " Incremental"
01ba 00fa       |    |		.STREND 0x00fa->0x0237
01bb 4d61 6368  |Mach|		.STRTAB_STRINGS
0237 0000       |    |		.XXX[0x1]
0238 ; --------------------------------------------------------------------------------------
0238 ; Debug Table
0238 ; --------------------------------------------------------------------------------------
0238 0004 0010  |    |		.DEBUG4	0x0004,0x0010,0xd634,0x0000,0x0001,0x0000
023e 0000 0000  |    |		.BLANK	0000[0x1c2]