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

⟦05ea3ff83⟧

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

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 03d8       |    |		.CONST	0x03d8								; 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 8002       |    |		.CONST	0x8002								; 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 002d       | -  |		.CONST	0x002d								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0010       |    |		.CONST	0x0010								; Number of locals
001b			INIT_0018:
001b e002       |    |		Load	0x0,0x2
001c 0322       | "  |		Declare_Variable	Record
001d 00e5       |    |		Load_Encached	Long_Integer_Cache
001e 03e9       |    |		Declare_Variable	Discrete,Duplicate
001f 03e9       |    |		Declare_Variable	Discrete,Duplicate
0020 03e9       |    |		Declare_Variable	Discrete,Duplicate
0021 03e9       |    |		Declare_Variable	Discrete,Duplicate
0022 03e9       |    |		Declare_Variable	Discrete,Duplicate
0023 00e5       |    |		Load_Encached	Long_Integer_Cache
0024 03e9       |    |		Declare_Variable	Discrete,Duplicate
0025 03e9       |    |		Declare_Variable	Discrete,Duplicate
0026 00e2       |    |		Load_Encached	Integer_Cache
0027 e003       |    |		Load	0x0,0x3
0028 03e9       |    |		Declare_Variable	Discrete,Duplicate
0029 029f 02bb  |    |		Declare_Subprogram	INIT_02b8,For_Call
002b 029f 02e3  |    |		Declare_Subprogram	INIT_02e0,For_Call
002d			BODY_0018:
002d e5fe       |    |		Load	0x2,-0x2
002e 681d       |h   |		Jump_Zero	0x4c
002f 4b64       |Kd  |		Short_Literal	0x364
0030 e5ff       |    |		Load	0x2,-0x1
0031 8004       |    |		Call	0x0,0x4
0032 e402       |    |		Load	0x2,0x2
0033 017d       | }  |		Execute	Record,Structure_Write
0034 00e5       |    |		Load_Encached	Long_Integer_Cache
0035 00e5       |    |		Load_Encached	Long_Integer_Cache
0036 e402       |    |		Load	0x2,0x2
0037 8005       |    |		Call	0x0,0x5
0038 c403       |    |		Store	0x2,0x3
0039 c404       |    |		Store	0x2,0x4
003a 00e5       |    |		Load_Encached	Long_Integer_Cache
003b 4820       |H   |		Short_Literal	0x20
003c 4820       |H   |		Short_Literal	0x20
003d e403       |    |		Load	0x2,0x3
003e 8006       |    |		Call	0x0,0x6
003f c408       |    |		Store	0x2,0x8
0040 e5fd       |    |		Load	0x2,-0x3
0041 4800       |H   |		Short_Literal	0x0
0042 0092 02f4  |    |		Action	Push_String_Extended,0x2f4					; "CID    => "
0044 4820       |H   |		Short_Literal	0x20
0045 4808       |H   |		Short_Literal	0x8
0046 4801       |H   |		Short_Literal	0x1
0047 e408       |    |		Load	0x2,0x8
0048 8007       |    |		Call	0x0,0x7
0049 01cc       |    |		Execute	Vector,Catenate
004a 8008       |    |		Call	0x0,0x8
004b 00d1       |    |		Pop_Control	Pop_Count_1
004c e5fd       |    |		Load	0x2,-0x3
004d 4800       |H   |		Short_Literal	0x0
004e 4829       |H)  |		Short_Literal	0x29
004f 4820       |H   |		Short_Literal	0x20
0050 0092 02f5  |    |		Action	Push_String_Extended,0x2f5					; "Top  => "
0052 4830       |H0  |		Short_Literal	0x30
0053 4808       |H   |		Short_Literal	0x8
0054 4800       |H   |		Short_Literal	0x0
0055 e5ff       |    |		Load	0x2,-0x1
0056 0227       | '  |		Execute	Access,All_Reference
0057 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0058 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
0059 8007       |    |		Call	0x0,0x7
005a 01cc       |    |		Execute	Vector,Catenate
005b 01cb       |    |		Execute	Vector,Append
005c 4800       |H   |		Short_Literal	0x0
005d e5ff       |    |		Load	0x2,-0x1
005e 0227       | '  |		Execute	Access,All_Reference
005f 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0060 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0061 8009       |    |		Call	0x0,0x9
0062 01cc       |    |		Execute	Vector,Catenate
0063 0092 02f6  |    |		Action	Push_String_Extended,0x2f6					; " ("
0065 01cc       |    |		Execute	Vector,Catenate
0066 4830       |H0  |		Short_Literal	0x30
0067 4800       |H   |		Short_Literal	0x0
0068 4800       |H   |		Short_Literal	0x0
0069 e5ff       |    |		Load	0x2,-0x1
006a 0227       | '  |		Execute	Access,All_Reference
006b 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
006c 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
006d 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
006e 0906       |    |		Execute_Immediate	Binary_Scale,0x6
006f e5ff       |    |		Load	0x2,-0x1
0070 0227       | '  |		Execute	Access,All_Reference
0071 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0072 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0073 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0074 0273       | s  |		Execute	Discrete,Plus
0075 00d8       |    |		Load_Top	At_Offset_0
0076 00e2       |    |		Load_Encached	Integer_Cache
0077 0260       | `  |		Execute	Discrete,In_Type
0078 7001       |p   |		Jump_Nonzero	0x7a
0079 0801       |    |		Execute_Immediate	Raise,0x1
007a 800a       |    |		Call	0x0,0xa
007b 01cc       |    |		Execute	Vector,Catenate
007c 01cb       |    |		Execute	Vector,Append
007d 8008       |    |		Call	0x0,0x8
007e 00d1       |    |		Pop_Control	Pop_Count_1
007f e5fd       |    |		Load	0x2,-0x3
0080 4800       |H   |		Short_Literal	0x0
0081 4820       |H   |		Short_Literal	0x20
0082 0092 02f7  |    |		Action	Push_String_Extended,0x2f7					; "Pred => "
0084 4830       |H0  |		Short_Literal	0x30
0085 4808       |H   |		Short_Literal	0x8
0086 4800       |H   |		Short_Literal	0x0
0087 e5ff       |    |		Load	0x2,-0x1
0088 0227       | '  |		Execute	Access,All_Reference
0089 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
008a 3c09       |<   |		Execute	Record,Field_Read,Field_Number 0x9
008b 8007       |    |		Call	0x0,0x7
008c 01cc       |    |		Execute	Vector,Catenate
008d 01cb       |    |		Execute	Vector,Append
008e 4800       |H   |		Short_Literal	0x0
008f e5ff       |    |		Load	0x2,-0x1
0090 0227       | '  |		Execute	Access,All_Reference
0091 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0092 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0093 8009       |    |		Call	0x0,0x9
0094 01cc       |    |		Execute	Vector,Catenate
0095 8008       |    |		Call	0x0,0x8
0096 00d1       |    |		Pop_Control	Pop_Count_1
0097 e5fd       |    |		Load	0x2,-0x3
0098 4800       |H   |		Short_Literal	0x0
0099 0092 02f8  |    |		Action	Push_String_Extended,0x2f8					; "Save => "
009b 4800       |H   |		Short_Literal	0x0
009c e5ff       |    |		Load	0x2,-0x1
009d 0227       | '  |		Execute	Access,All_Reference
009e 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
009f 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
00a0 8009       |    |		Call	0x0,0x9
00a1 01cc       |    |		Execute	Vector,Catenate
00a2 8008       |    |		Call	0x0,0x8
00a3 00d1       |    |		Pop_Control	Pop_Count_1
00a4 e5fd       |    |		Load	0x2,-0x3
00a5 4800       |H   |		Short_Literal	0x0
00a6 800b       |    |		Call	0x0,0xb
00a7 00d1       |    |		Pop_Control	Pop_Count_1
00a8 e5fd       |    |		Load	0x2,-0x3
00a9 4800       |H   |		Short_Literal	0x0
00aa 0092 02f9  |    |		Action	Push_String_Extended,0x2f9					; "PC  => "
00ac 4800       |H   |		Short_Literal	0x0
00ad e5ff       |    |		Load	0x2,-0x1
00ae 0227       | '  |		Execute	Access,All_Reference
00af 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
00b0 340d       |4   |		Execute	Record,Field_Reference,Field_Number 0xd
00b1 800c       |    |		Call	0x0,0xc
00b2 01cc       |    |		Execute	Vector,Catenate
00b3 8008       |    |		Call	0x0,0x8
00b4 00d1       |    |		Pop_Control	Pop_Count_1
00b5 e5fd       |    |		Load	0x2,-0x3
00b6 4800       |H   |		Short_Literal	0x0
00b7 0092 02fa  |    |		Action	Push_String_Extended,0x2fa					; "DPC => "
00b9 4800       |H   |		Short_Literal	0x0
00ba e5ff       |    |		Load	0x2,-0x1
00bb 0227       | '  |		Execute	Access,All_Reference
00bc 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
00bd 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
00be 800c       |    |		Call	0x0,0xc
00bf 01cc       |    |		Execute	Vector,Catenate
00c0 8008       |    |		Call	0x0,0x8
00c1 00d1       |    |		Pop_Control	Pop_Count_1
00c2 e5fd       |    |		Load	0x2,-0x3
00c3 4800       |H   |		Short_Literal	0x0
00c4 0092 02fb  |    |		Action	Push_String_Extended,0x2fb					; "Lex levels valid =>"
00c6 840f       |    |		Call	0x2,0xf
00c7 01cc       |    |		Execute	Vector,Catenate
00c8 0092 02fc  |    |		Action	Push_String_Extended,0x2fc					; "."
00ca 01cc       |    |		Execute	Vector,Catenate
00cb 8008       |    |		Call	0x0,0x8
00cc 00d1       |    |		Pop_Control	Pop_Count_1
00cd e5fd       |    |		Load	0x2,-0x3
00ce 4800       |H   |		Short_Literal	0x0
00cf 800b       |    |		Call	0x0,0xb
00d0 00d1       |    |		Pop_Control	Pop_Count_1
00d1 e5fd       |    |		Load	0x2,-0x3
00d2 4800       |H   |		Short_Literal	0x0
00d3 0092 02fd  |    |		Action	Push_String_Extended,0x2fd					; "TLC => "
00d5 4830       |H0  |		Short_Literal	0x30
00d6 4800       |H   |		Short_Literal	0x0
00d7 4800       |H   |		Short_Literal	0x0
00d8 e5ff       |    |		Load	0x2,-0x1
00d9 0227       | '  |		Execute	Access,All_Reference
00da 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
00db 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00dc 800a       |    |		Call	0x0,0xa
00dd 01cc       |    |		Execute	Vector,Catenate
00de 8008       |    |		Call	0x0,0x8
00df 00d1       |    |		Pop_Control	Pop_Count_1
00e0 e5fd       |    |		Load	0x2,-0x3
00e1 4800       |H   |		Short_Literal	0x0
00e2 0092 02fe  |    |		Action	Push_String_Extended,0x2fe					; "VLC => "
00e4 4830       |H0  |		Short_Literal	0x30
00e5 4800       |H   |		Short_Literal	0x0
00e6 4800       |H   |		Short_Literal	0x0
00e7 e5ff       |    |		Load	0x2,-0x1
00e8 0227       | '  |		Execute	Access,All_Reference
00e9 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
00ea 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00eb 800a       |    |		Call	0x0,0xa
00ec 01cc       |    |		Execute	Vector,Catenate
00ed 8008       |    |		Call	0x0,0x8
00ee 00d1       |    |		Pop_Control	Pop_Count_1
00ef e5fd       |    |		Load	0x2,-0x3
00f0 4800       |H   |		Short_Literal	0x0
00f1 800b       |    |		Call	0x0,0xb
00f2 00d1       |    |		Pop_Control	Pop_Count_1
00f3 e5fd       |    |		Load	0x2,-0x3
00f4 4800       |H   |		Short_Literal	0x0
00f5 0092 02ff  |    |		Action	Push_String_Extended,0x2ff					; "MAR => "
00f7 e5ff       |    |		Load	0x2,-0x1
00f8 0227       | '  |		Execute	Access,All_Reference
00f9 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
00fa 3411       |4   |		Execute	Record,Field_Reference,Field_Number 0x11
00fb 800d       |    |		Call	0x0,0xd
00fc 01cc       |    |		Execute	Vector,Catenate
00fd 8008       |    |		Call	0x0,0x8
00fe 00d1       |    |		Pop_Control	Pop_Count_1
00ff e5fd       |    |		Load	0x2,-0x3
0100 4800       |H   |		Short_Literal	0x0
0101 0092 0300  |    |		Action	Push_String_Extended,0x300					; "TAR => "
0103 4830       |H0  |		Short_Literal	0x30
0104 4800       |H   |		Short_Literal	0x0
0105 4800       |H   |		Short_Literal	0x0
0106 e5ff       |    |		Load	0x2,-0x1
0107 0227       | '  |		Execute	Access,All_Reference
0108 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0109 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
010a 8007       |    |		Call	0x0,0x7
010b 01cc       |    |		Execute	Vector,Catenate
010c 0092 0301  |    |		Action	Push_String_Extended,0x301					; " VAR => "
010e 01cc       |    |		Execute	Vector,Catenate
010f 4830       |H0  |		Short_Literal	0x30
0110 4800       |H   |		Short_Literal	0x0
0111 4800       |H   |		Short_Literal	0x0
0112 e5ff       |    |		Load	0x2,-0x1
0113 0227       | '  |		Execute	Access,All_Reference
0114 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0115 3c13       |<   |		Execute	Record,Field_Read,Field_Number 0x13
0116 8007       |    |		Call	0x0,0x7
0117 01cc       |    |		Execute	Vector,Catenate
0118 8008       |    |		Call	0x0,0x8
0119 00d1       |    |		Pop_Control	Pop_Count_1
011a e5fd       |    |		Load	0x2,-0x3
011b 4800       |H   |		Short_Literal	0x0
011c 0092 0302  |    |		Action	Push_String_Extended,0x302					; "RDR => "
011e e5ff       |    |		Load	0x2,-0x1
011f 0227       | '  |		Execute	Access,All_Reference
0120 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0121 3416       |4   |		Execute	Record,Field_Reference,Field_Number 0x16
0122 800d       |    |		Call	0x0,0xd
0123 01cc       |    |		Execute	Vector,Catenate
0124 8008       |    |		Call	0x0,0x8
0125 00d1       |    |		Pop_Control	Pop_Count_1
0126 e5fd       |    |		Load	0x2,-0x3
0127 4800       |H   |		Short_Literal	0x0
0128 0092 0303  |    |		Action	Push_String_Extended,0x303					; "WDR => "
012a e5ff       |    |		Load	0x2,-0x1
012b 0227       | '  |		Execute	Access,All_Reference
012c 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
012d 3417       |4   |		Execute	Record,Field_Reference,Field_Number 0x17
012e 800d       |    |		Call	0x0,0xd
012f 01cc       |    |		Execute	Vector,Catenate
0130 8008       |    |		Call	0x0,0x8
0131 00d1       |    |		Pop_Control	Pop_Count_1
0132 e5fd       |    |		Load	0x2,-0x3
0133 4800       |H   |		Short_Literal	0x0
0134 800b       |    |		Call	0x0,0xb
0135 00d1       |    |		Pop_Control	Pop_Count_1
0136 e5fe       |    |		Load	0x2,-0x2
0137 68fe       |h   |		Jump_Zero	0x236
0138 e5fd       |    |		Load	0x2,-0x3
0139 4800       |H   |		Short_Literal	0x0
013a 0092 0304  |    |		Action	Push_String_Extended,0x304					; "PRI    HEAD      TAIL"
013c 8008       |    |		Call	0x0,0x8
013d 00d1       |    |		Pop_Control	Pop_Count_1
013e 00cf       |    |		Action	Mark_Auxiliary
013f 480f       |H   |		Short_Literal	0xf
0140 4800       |H   |		Short_Literal	0x0
0141 0007       |    |		Action	Break_Optional
0142 00d8       |    |		Load_Top	At_Offset_0
0143 0a60       | `  |		Execute_Immediate	Plus,0x60
0144 00d8       |    |		Load_Top	At_Offset_0
0145 e00e       |    |		Load	0x0,0xe
0146 0260       | `  |		Execute	Discrete,In_Type
0147 7001       |p   |		Jump_Nonzero	0x149
0148 0801       |    |		Execute_Immediate	Raise,0x1
0149 e5ff       |    |		Load	0x2,-0x1
014a 8004       |    |		Call	0x0,0x4
014b e402       |    |		Load	0x2,0x2
014c 017d       | }  |		Execute	Record,Structure_Write
014d 00e5       |    |		Load_Encached	Long_Integer_Cache
014e 00e5       |    |		Load_Encached	Long_Integer_Cache
014f e402       |    |		Load	0x2,0x2
0150 8005       |    |		Call	0x0,0x5
0151 c403       |    |		Store	0x2,0x3
0152 c404       |    |		Store	0x2,0x4
0153 00e5       |    |		Load_Encached	Long_Integer_Cache
0154 4820       |H   |		Short_Literal	0x20
0155 4800       |H   |		Short_Literal	0x0
0156 e403       |    |		Load	0x2,0x3
0157 8006       |    |		Call	0x0,0x6
0158 c406       |    |		Store	0x2,0x6
0159 00e5       |    |		Load_Encached	Long_Integer_Cache
015a 4820       |H   |		Short_Literal	0x20
015b 4800       |H   |		Short_Literal	0x0
015c e404       |    |		Load	0x2,0x4
015d 8006       |    |		Call	0x0,0x6
015e c407       |    |		Store	0x2,0x7
015f e5fd       |    |		Load	0x2,-0x3
0160 4800       |H   |		Short_Literal	0x0
0161 4820       |H   |		Short_Literal	0x20
0162 4803       |H   |		Short_Literal	0x3
0163 4801       |H   |		Short_Literal	0x1
0164 e413       |    |		Load	0x2,0x13
0165 800a       |    |		Call	0x0,0xa
0166 0092 0305  |    |		Action	Push_String_Extended,0x305					; "  "
0168 01cc       |    |		Execute	Vector,Catenate
0169 4830       |H0  |		Short_Literal	0x30
016a 4808       |H   |		Short_Literal	0x8
016b 4800       |H   |		Short_Literal	0x0
016c e406       |    |		Load	0x2,0x6
016d 8007       |    |		Call	0x0,0x7
016e 01cc       |    |		Execute	Vector,Catenate
016f 0092 0305  |    |		Action	Push_String_Extended,0x305					; "  "
0171 01cc       |    |		Execute	Vector,Catenate
0172 4830       |H0  |		Short_Literal	0x30
0173 4808       |H   |		Short_Literal	0x8
0174 4800       |H   |		Short_Literal	0x0
0175 e407       |    |		Load	0x2,0x7
0176 8007       |    |		Call	0x0,0x7
0177 01cc       |    |		Execute	Vector,Catenate
0178 8008       |    |		Call	0x0,0x8
0179 00d1       |    |		Pop_Control	Pop_Count_1
017a 00c8       |    |		Action	Pop_Auxiliary_Range
017b 3fc6       |?   |		Loop_Increasing	0x142
017c 00ce       |    |		Action	Pop_Auxiliary
017d e5fd       |    |		Load	0x2,-0x3
017e 4800       |H   |		Short_Literal	0x0
017f 800b       |    |		Call	0x0,0xb
0180 00d1       |    |		Pop_Control	Pop_Count_1
0181 4ae0       |J   |		Short_Literal	0x2e0
0182 e5ff       |    |		Load	0x2,-0x1
0183 8004       |    |		Call	0x0,0x4
0184 e402       |    |		Load	0x2,0x2
0185 017d       | }  |		Execute	Record,Structure_Write
0186 00e5       |    |		Load_Encached	Long_Integer_Cache
0187 00e5       |    |		Load_Encached	Long_Integer_Cache
0188 e402       |    |		Load	0x2,0x2
0189 8005       |    |		Call	0x0,0x5
018a c403       |    |		Store	0x2,0x3
018b c404       |    |		Store	0x2,0x4
018c 00e5       |    |		Load_Encached	Long_Integer_Cache
018d 4820       |H   |		Short_Literal	0x20
018e 4800       |H   |		Short_Literal	0x0
018f e403       |    |		Load	0x2,0x3
0190 8006       |    |		Call	0x0,0x6
0191 c405       |    |		Store	0x2,0x5
0192 e5fd       |    |		Load	0x2,-0x3
0193 4800       |H   |		Short_Literal	0x0
0194 0092 0306  |    |		Action	Push_String_Extended,0x306					; " Delay Queue Head - "
0196 4830       |H0  |		Short_Literal	0x30
0197 4808       |H   |		Short_Literal	0x8
0198 4800       |H   |		Short_Literal	0x0
0199 e405       |    |		Load	0x2,0x5
019a 8007       |    |		Call	0x0,0x7
019b 01cc       |    |		Execute	Vector,Catenate
019c 8008       |    |		Call	0x0,0x8
019d 00d1       |    |		Pop_Control	Pop_Count_1
019e e5fd       |    |		Load	0x2,-0x3
019f 4800       |H   |		Short_Literal	0x0
01a0 800b       |    |		Call	0x0,0xb
01a1 00d1       |    |		Pop_Control	Pop_Count_1
01a2 4871       |Hq  |		Short_Literal	0x71
01a3 e5ff       |    |		Load	0x2,-0x1
01a4 8004       |    |		Call	0x0,0x4
01a5 e402       |    |		Load	0x2,0x2
01a6 017d       | }  |		Execute	Record,Structure_Write
01a7 00e5       |    |		Load_Encached	Long_Integer_Cache
01a8 00e5       |    |		Load_Encached	Long_Integer_Cache
01a9 e402       |    |		Load	0x2,0x2
01aa 8005       |    |		Call	0x0,0x5
01ab c403       |    |		Store	0x2,0x3
01ac c404       |    |		Store	0x2,0x4
01ad 00e5       |    |		Load_Encached	Long_Integer_Cache
01ae 4820       |H   |		Short_Literal	0x20
01af 4800       |H   |		Short_Literal	0x0
01b0 e403       |    |		Load	0x2,0x3
01b1 8006       |    |		Call	0x0,0x6
01b2 c405       |    |		Store	0x2,0x5
01b3 e5fd       |    |		Load	0x2,-0x3
01b4 4800       |H   |		Short_Literal	0x0
01b5 0092 0307  |    |		Action	Push_String_Extended,0x307					; " Disk Wait Head - "
01b7 4830       |H0  |		Short_Literal	0x30
01b8 4808       |H   |		Short_Literal	0x8
01b9 4800       |H   |		Short_Literal	0x0
01ba e405       |    |		Load	0x2,0x5
01bb 8007       |    |		Call	0x0,0x7
01bc 01cc       |    |		Execute	Vector,Catenate
01bd 8008       |    |		Call	0x0,0x8
01be 00d1       |    |		Pop_Control	Pop_Count_1
01bf e5fd       |    |		Load	0x2,-0x3
01c0 4800       |H   |		Short_Literal	0x0
01c1 800b       |    |		Call	0x0,0xb
01c2 00d1       |    |		Pop_Control	Pop_Count_1
01c3 4870       |Hp  |		Short_Literal	0x70
01c4 e5ff       |    |		Load	0x2,-0x1
01c5 8004       |    |		Call	0x0,0x4
01c6 e402       |    |		Load	0x2,0x2
01c7 017d       | }  |		Execute	Record,Structure_Write
01c8 00e5       |    |		Load_Encached	Long_Integer_Cache
01c9 00e5       |    |		Load_Encached	Long_Integer_Cache
01ca e402       |    |		Load	0x2,0x2
01cb 8005       |    |		Call	0x0,0x5
01cc c403       |    |		Store	0x2,0x3
01cd c404       |    |		Store	0x2,0x4
01ce 00e5       |    |		Load_Encached	Long_Integer_Cache
01cf 4820       |H   |		Short_Literal	0x20
01d0 4800       |H   |		Short_Literal	0x0
01d1 e403       |    |		Load	0x2,0x3
01d2 8006       |    |		Call	0x0,0x6
01d3 c405       |    |		Store	0x2,0x5
01d4 e5fd       |    |		Load	0x2,-0x3
01d5 4800       |H   |		Short_Literal	0x0
01d6 0092 0308  |    |		Action	Push_String_Extended,0x308					; " FAQ Head - "
01d8 4830       |H0  |		Short_Literal	0x30
01d9 4808       |H   |		Short_Literal	0x8
01da 4800       |H   |		Short_Literal	0x0
01db e405       |    |		Load	0x2,0x5
01dc 8007       |    |		Call	0x0,0x7
01dd 01cc       |    |		Execute	Vector,Catenate
01de 8008       |    |		Call	0x0,0x8
01df 00d1       |    |		Pop_Control	Pop_Count_1
01e0 e5fd       |    |		Load	0x2,-0x3
01e1 4800       |H   |		Short_Literal	0x0
01e2 800b       |    |		Call	0x0,0xb
01e3 00d1       |    |		Pop_Control	Pop_Count_1
01e4 488a       |H   |		Short_Literal	0x8a
01e5 e5ff       |    |		Load	0x2,-0x1
01e6 8004       |    |		Call	0x0,0x4
01e7 e402       |    |		Load	0x2,0x2
01e8 017d       | }  |		Execute	Record,Structure_Write
01e9 00e5       |    |		Load_Encached	Long_Integer_Cache
01ea 00e5       |    |		Load_Encached	Long_Integer_Cache
01eb e402       |    |		Load	0x2,0x2
01ec 8005       |    |		Call	0x0,0x5
01ed c403       |    |		Store	0x2,0x3
01ee c404       |    |		Store	0x2,0x4
01ef 00e5       |    |		Load_Encached	Long_Integer_Cache
01f0 4815       |H   |		Short_Literal	0x15
01f1 4801       |H   |		Short_Literal	0x1
01f2 e404       |    |		Load	0x2,0x4
01f3 8006       |    |		Call	0x0,0x6
01f4 c40b       |    |		Store	0x2,0xb
01f5 00e5       |    |		Load_Encached	Long_Integer_Cache
01f6 4815       |H   |		Short_Literal	0x15
01f7 4816       |H   |		Short_Literal	0x16
01f8 e404       |    |		Load	0x2,0x4
01f9 8006       |    |		Call	0x0,0x6
01fa c40a       |    |		Store	0x2,0xa
01fb 00e5       |    |		Load_Encached	Long_Integer_Cache
01fc 4815       |H   |		Short_Literal	0x15
01fd 482b       |H+  |		Short_Literal	0x2b
01fe e404       |    |		Load	0x2,0x4
01ff 8006       |    |		Call	0x0,0x6
0200 c409       |    |		Store	0x2,0x9
0201 e5fd       |    |		Load	0x2,-0x3
0202 4800       |H   |		Short_Literal	0x0
0203 0092 0309  |    |		Action	Push_String_Extended,0x309					; "CURRENT LOAD REG - "
0205 4830       |H0  |		Short_Literal	0x30
0206 4810       |H   |		Short_Literal	0x10
0207 4800       |H   |		Short_Literal	0x0
0208 e404       |    |		Load	0x2,0x4
0209 8007       |    |		Call	0x0,0x7
020a 01cc       |    |		Execute	Vector,Catenate
020b 8008       |    |		Call	0x0,0x8
020c 00d1       |    |		Pop_Control	Pop_Count_1
020d e5fd       |    |		Load	0x2,-0x3
020e 4800       |H   |		Short_Literal	0x0
020f 0092 030a  |    |		Action	Push_String_Extended,0x30a					; "       RUN LOAD - "
0211 4830       |H0  |		Short_Literal	0x30
0212 4806       |H   |		Short_Literal	0x6
0213 4801       |H   |		Short_Literal	0x1
0214 e409       |    |		Load	0x2,0x9
0215 8007       |    |		Call	0x0,0x7
0216 01cc       |    |		Execute	Vector,Catenate
0217 8008       |    |		Call	0x0,0x8
0218 00d1       |    |		Pop_Control	Pop_Count_1
0219 e5fd       |    |		Load	0x2,-0x3
021a 4800       |H   |		Short_Literal	0x0
021b 0092 030b  |    |		Action	Push_String_Extended,0x30b					; " DISK WAIT LOAD - "
021d 4830       |H0  |		Short_Literal	0x30
021e 4806       |H   |		Short_Literal	0x6
021f 4801       |H   |		Short_Literal	0x1
0220 e40a       |    |		Load	0x2,0xa
0221 8007       |    |		Call	0x0,0x7
0222 01cc       |    |		Execute	Vector,Catenate
0223 8008       |    |		Call	0x0,0x8
0224 00d1       |    |		Pop_Control	Pop_Count_1
0225 e5fd       |    |		Load	0x2,-0x3
0226 4800       |H   |		Short_Literal	0x0
0227 0092 030c  |    |		Action	Push_String_Extended,0x30c					; "  WITHHELD LOAD - "
0229 4830       |H0  |		Short_Literal	0x30
022a 4806       |H   |		Short_Literal	0x6
022b 4801       |H   |		Short_Literal	0x1
022c e40b       |    |		Load	0x2,0xb
022d 8007       |    |		Call	0x0,0x7
022e 01cc       |    |		Execute	Vector,Catenate
022f 8008       |    |		Call	0x0,0x8
0230 00d1       |    |		Pop_Control	Pop_Count_1
0231 e5fd       |    |		Load	0x2,-0x3
0232 4800       |H   |		Short_Literal	0x0
0233 800b       |    |		Call	0x0,0xb
0234 00d1       |    |		Pop_Control	Pop_Count_1
0235 780a       |x   |		Jump	0x240
0236 e5fd       |    |		Load	0x2,-0x3
0237 4800       |H   |		Short_Literal	0x0
0238 0092 030d  |    |		Action	Push_String_Extended,0x30d					; " ** Register File state not dumped to tombstone **"
023a 8008       |    |		Call	0x0,0x8
023b 00d1       |    |		Pop_Control	Pop_Count_1
023c e5fd       |    |		Load	0x2,-0x3
023d 4800       |H   |		Short_Literal	0x0
023e 800b       |    |		Call	0x0,0xb
023f 00d1       |    |		Pop_Control	Pop_Count_1
0240 00cf       |    |		Action	Mark_Auxiliary
0241 480f       |H   |		Short_Literal	0xf
0242 4800       |H   |		Short_Literal	0x0
0243 0007       |    |		Action	Break_Optional
0244 e5fd       |    |		Load	0x2,-0x3
0245 4800       |H   |		Short_Literal	0x0
0246 0092 030e  |    |		Action	Push_String_Extended,0x30e					; "GP("
0248 4830       |H0  |		Short_Literal	0x30
0249 4801       |H   |		Short_Literal	0x1
024a 4800       |H   |		Short_Literal	0x0
024b e413       |    |		Load	0x2,0x13
024c 800a       |    |		Call	0x0,0xa
024d 01cc       |    |		Execute	Vector,Catenate
024e 0092 030f  |    |		Action	Push_String_Extended,0x30f					; ") => "
0250 01cc       |    |		Execute	Vector,Catenate
0251 00db       |    |		Load_Top	At_Offset_3
0252 e5ff       |    |		Load	0x2,-0x1
0253 0227       | '  |		Execute	Access,All_Reference
0254 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0255 3418       |4   |		Execute	Record,Field_Reference,Field_Number 0x18
0256 01d5       |    |		Execute	Vector,Field_Reference
0257 800d       |    |		Call	0x0,0xd
0258 01cc       |    |		Execute	Vector,Catenate
0259 8008       |    |		Call	0x0,0x8
025a 00d1       |    |		Pop_Control	Pop_Count_1
025b 00c8       |    |		Action	Pop_Auxiliary_Range
025c 3fe7       |?   |		Loop_Increasing	0x244
025d 00ce       |    |		Action	Pop_Auxiliary
025e e5fd       |    |		Load	0x2,-0x3
025f 4800       |H   |		Short_Literal	0x0
0260 800b       |    |		Call	0x0,0xb
0261 00d1       |    |		Pop_Control	Pop_Count_1
0262 e5ff       |    |		Load	0x2,-0x1
0263 0227       | '  |		Execute	Access,All_Reference
0264 3406       |4   |		Execute	Record,Field_Reference,Field_Number 0x6
0265 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
0266 a40d       |    |		Store_Unchecked	0x2,0xd
0267 e5ff       |    |		Load	0x2,-0x1
0268 0227       | '  |		Execute	Access,All_Reference
0269 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
026a 3c05       |<   |		Execute	Record,Field_Read,Field_Number 0x5
026b 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
026c 00db       |    |		Load_Top	At_Offset_3
026d 00db       |    |		Load_Top	At_Offset_3
026e 027e       | ~  |		Execute	Discrete,Not_Equal
026f 6806       |h   |		Jump_Zero	0x276
0270 e5fd       |    |		Load	0x2,-0x3
0271 4800       |H   |		Short_Literal	0x0
0272 0092 0310  |    |		Action	Push_String_Extended,0x310					; "TTOP AND VTOP INCONSISTENT"
0274 8008       |    |		Call	0x0,0x8
0275 00d1       |    |		Pop_Control	Pop_Count_1
0276 00db       |    |		Load_Top	At_Offset_3
0277 4c10       |L   |		Short_Literal	-0x3f0
0278 0273       | s  |		Execute	Discrete,Plus
0279 c40c       |    |		Store	0x2,0xc
027a 00cf       |    |		Action	Mark_Auxiliary
027b 480f       |H   |		Short_Literal	0xf
027c 4800       |H   |		Short_Literal	0x0
027d 0007       |    |		Action	Break_Optional
027e e5fd       |    |		Load	0x2,-0x3
027f 4800       |H   |		Short_Literal	0x0
0280 00da       |    |		Load_Top	At_Offset_2
0281 8410       |    |		Call	0x2,0x10
0282 e40c       |    |		Load	0x2,0xc
0283 e5ff       |    |		Load	0x2,-0x1
0284 0227       | '  |		Execute	Access,All_Reference
0285 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
0286 3419       |4   |		Execute	Record,Field_Reference,Field_Number 0x19
0287 01d5       |    |		Execute	Vector,Field_Reference
0288 800d       |    |		Call	0x0,0xd
0289 01cc       |    |		Execute	Vector,Catenate
028a 8008       |    |		Call	0x0,0x8
028b 00d1       |    |		Pop_Control	Pop_Count_1
028c e40c       |    |		Load	0x2,0xc
028d 7003       |p   |		Jump_Nonzero	0x291
028e 480f       |H   |		Short_Literal	0xf
028f a40c       |    |		Store_Unchecked	0x2,0xc
0290 7803       |x   |		Jump	0x294
0291 e40c       |    |		Load	0x2,0xc
0292 0aff       |    |		Execute_Immediate	Plus,-0x1
0293 c40c       |    |		Store	0x2,0xc
0294 00c8       |    |		Action	Pop_Auxiliary_Range
0295 3fe8       |?   |		Loop_Increasing	0x27e
0296 00ce       |    |		Action	Pop_Auxiliary
0297 e5fd       |    |		Load	0x2,-0x3
0298 4800       |H   |		Short_Literal	0x0
0299 800b       |    |		Call	0x0,0xb
029a 00d1       |    |		Pop_Control	Pop_Count_1
029b e5fd       |    |		Load	0x2,-0x3
029c 4800       |H   |		Short_Literal	0x0
029d 800b       |    |		Call	0x0,0xb
029e 00d1       |    |		Pop_Control	Pop_Count_1
029f e5fe       |    |		Load	0x2,-0x2
02a0 680f       |h   |		Jump_Zero	0x2b0
02a1 e5fd       |    |		Load	0x2,-0x3
02a2 4800       |H   |		Short_Literal	0x0
02a3 0092 0311  |    |		Action	Push_String_Extended,0x311					; "PFMAR  => "
02a5 49a0       |I   |		Short_Literal	0x1a0
02a6 e5ff       |    |		Load	0x2,-0x1
02a7 8004       |    |		Call	0x0,0x4
02a8 800f       |    |		Call	0x0,0xf
02a9 01cc       |    |		Execute	Vector,Catenate
02aa 8008       |    |		Call	0x0,0x8
02ab 00d1       |    |		Pop_Control	Pop_Count_1
02ac e5fd       |    |		Load	0x2,-0x3
02ad 4800       |H   |		Short_Literal	0x0
02ae 800b       |    |		Call	0x0,0xb
02af 00d1       |    |		Pop_Control	Pop_Count_1
02b0 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
02b1 0000 0000  |    |		.BLANK	0000[0x7]
02b8 ; --------------------------------------------------------------------------------------
02b8 ; SUBPROGRAM
02b8 ; --------------------------------------------------------------------------------------
02b8 02c1       |    |		.CONST	0x02c1								; Address of begin
02b9 0004       |    |		.CONST	0x0004								; Address of exception handler
02ba 0002       |    |		.CONST	0x0002								; Number of locals
02bb			INIT_02b8:
02bb 4880       |H   |		Short_Literal	0x80
02bc e010       |    |		Load	0x0,0x10
02bd 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
02be 1c08       |    |		Execute_Immediate	Run_Utility,0x8
02bf 00d8       |    |		Load_Top	At_Offset_0
02c0 1c00       |    |		Execute_Immediate	Run_Utility,0x0
02c1			BODY_02b8:
02c1 00d8       |    |		Load_Top	At_Offset_0
02c2 00ea       |    |		Load_Encached	Null_String_Cache
02c3 e010       |    |		Load	0x0,0x10
02c4 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
02c5 00d1       |    |		Pop_Control	Pop_Count_1
02c6 00cf       |    |		Action	Mark_Auxiliary
02c7 480f       |H   |		Short_Literal	0xf
02c8 4800       |H   |		Short_Literal	0x0
02c9 0007       |    |		Action	Break_Optional
02ca 00d8       |    |		Load_Top	At_Offset_0
02cb e5ff       |    |		Load	0x2,-0x1
02cc 0227       | '  |		Execute	Access,All_Reference
02cd 3409       |4   |		Execute	Record,Field_Reference,Field_Number 0x9
02ce 3407       |4   |		Execute	Record,Field_Reference,Field_Number 0x7
02cf 01d7       |    |		Execute	Vector,Field_Read
02d0 6807       |h   |		Jump_Zero	0x2d8
02d1 00db       |    |		Load_Top	At_Offset_3
02d2 00d9       |    |		Load_Top	At_Offset_1
02d3 00e0       |    |		Load_Encached	Standard_Cache
02d4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d5 e010       |    |		Load	0x0,0x10
02d6 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
02d7 00d1       |    |		Pop_Control	Pop_Count_1
02d8 00c8       |    |		Action	Pop_Auxiliary_Range
02d9 3ff0       |?   |		Loop_Increasing	0x2ca
02da 00ce       |    |		Action	Pop_Auxiliary
02db 00d8       |    |		Load_Top	At_Offset_0
02dc e010       |    |		Load	0x0,0x10
02dd 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
02de 00ca       |    |		Action	Exit_Nullary_Function
02df 0000       |    |		.XXX[0x1]
02e0 ; --------------------------------------------------------------------------------------
02e0 ; SUBPROGRAM
02e0 ; --------------------------------------------------------------------------------------
02e0 02e3       |    |		.CONST	0x02e3								; Address of begin
02e1 0004       |    |		.CONST	0x0004								; Address of exception handler
02e2 0001       |    |		.CONST	0x0001								; Number of locals
02e3			BODY_02e0:
02e3			INIT_02e0:
02e3 00da       |    |		Load_Top	At_Offset_2
02e4 7003       |p   |		Jump_Nonzero	0x2e8
02e5 0092 0312  |    |		Action	Push_String_Extended,0x312					; "TOP   => "
02e7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02e8 0092 0313  |    |		Action	Push_String_Extended,0x313					; "TOP-"
02ea 4830       |H0  |		Short_Literal	0x30
02eb 4801       |H   |		Short_Literal	0x1
02ec 4800       |H   |		Short_Literal	0x0
02ed e7ff       |    |		Load	0x3,-0x1
02ee 800a       |    |		Call	0x0,0xa
02ef 01cc       |    |		Execute	Vector,Catenate
02f0 0092 0314  |    |		Action	Push_String_Extended,0x314					; " => "
02f2 01cc       |    |		Execute	Vector,Catenate
02f3 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
02f4 ; --------------------------------------------------------------------------------------
02f4 ; STRING TABLE
02f4 ; --------------------------------------------------------------------------------------
02f4 0044       | D  |		.STRTAB	0x0044->0x0316							; "CID    => "
02f5 004c       | L  |		.STRTAB	0x004c->0x031b							; "Top  => "
02f6 0052       | R  |		.STRTAB	0x0052->0x031f							; " ("
02f7 0052       | R  |		.STRTAB	0x0052->0x0320							; "Pred => "
02f8 0058       | X  |		.STRTAB	0x0058->0x0324							; "Save => "
02f9 005e       | ^  |		.STRTAB	0x005e->0x0328							; "PC  => "
02fa 0063       | c  |		.STRTAB	0x0063->0x032b							; "DPC => "
02fb 0068       | h  |		.STRTAB	0x0068->0x032f							; "Lex levels valid =>"
02fc 0079       | y  |		.STRTAB	0x0079->0x0338							; "."
02fd 0078       | x  |		.STRTAB	0x0078->0x0339							; "TLC => "
02fe 007d       | }  |		.STRTAB	0x007d->0x033c							; "VLC => "
02ff 0082       |    |		.STRTAB	0x0082->0x0340							; "MAR => "
0300 0087       |    |		.STRTAB	0x0087->0x0343							; "TAR => "
0301 008c       |    |		.STRTAB	0x008c->0x0347							; " VAR => "
0302 0092       |    |		.STRTAB	0x0092->0x034b							; "RDR => "
0303 0097       |    |		.STRTAB	0x0097->0x034e							; "WDR => "
0304 009c       |    |		.STRTAB	0x009c->0x0352							; "PRI    HEAD      TAIL"
0305 00af       |    |		.STRTAB	0x00af->0x035c							; "  "
0306 00af       |    |		.STRTAB	0x00af->0x035d							; " Delay Queue Head - "
0307 00c1       |    |		.STRTAB	0x00c1->0x0367							; " Disk Wait Head - "
0308 00d1       |    |		.STRTAB	0x00d1->0x0370							; " FAQ Head - "
0309 00db       |    |		.STRTAB	0x00db->0x0376							; "CURRENT LOAD REG - "
030a 00ec       |    |		.STRTAB	0x00ec->0x0380							; "       RUN LOAD - "
030b 00fc       |    |		.STRTAB	0x00fc->0x0389							; " DISK WAIT LOAD - "
030c 010c       |    |		.STRTAB	0x010c->0x0392							; "  WITHHELD LOAD - "
030d 011c       |    |		.STRTAB	0x011c->0x039b							; " ** Register File state not dumped to tombstone **"
030e 014c       | L  |		.STRTAB	0x014c->0x03b4							; "GP("
030f 014d       | M  |		.STRTAB	0x014d->0x03b5							; ") => "
0310 0150       | P  |		.STRTAB	0x0150->0x03b8							; "TTOP AND VTOP INCONSISTENT"
0311 0168       | h  |		.STRTAB	0x0168->0x03c5							; "PFMAR  => "
0312 0170       | p  |		.STRTAB	0x0170->0x03ca							; "TOP   => "
0313 0177       | w  |		.STRTAB	0x0177->0x03ce							; "TOP-"
0314 0179       | y  |		.STRTAB	0x0179->0x03d0							; " => "
0315 017b       | {  |		.STREND 0x017b->0x03d2
0316 4349 4420  |CID |		.STRTAB_STRINGS
03d3 0000 0000  |    |		.BLANK	0000[0x5]
03d8 ; --------------------------------------------------------------------------------------
03d8 ; Debug Table
03d8 ; --------------------------------------------------------------------------------------
03d8 0004 0012  |    |		.DEBUG4	0x0004,0x0012,0x5ae0,0x0000,0x0001,0x0000
03de 0000 0000  |    |		.BLANK	0000[0x22]