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

⟦064e2a671⟧

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

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 01f8       |    |		.CONST	0x01f8								; 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 0001       |    |		.CONST	0x0001								; 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 004c       | L  |		.CONST	0x004c								; 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 0007       |    |		Action	Break_Optional
001d e003       |    |		Load	0x0,0x3
001e 0322       | "  |		Declare_Variable	Record
001f 00d8       |    |		Load_Top	At_Offset_0
0020 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0021 e004       |    |		Load	0x0,0x4
0022 0322       | "  |		Declare_Variable	Record
0023 e005       |    |		Load	0x0,0x5
0024 00d9       |    |		Load_Top	At_Offset_1
0025 017d       | }  |		Execute	Record,Structure_Write
0026 e006       |    |		Load	0x0,0x6
0027 0322       | "  |		Declare_Variable	Record
0028 e007       |    |		Load	0x0,0x7
0029 00d9       |    |		Load_Top	At_Offset_1
002a 017d       | }  |		Execute	Record,Structure_Write
002b e008       |    |		Load	0x0,0x8
002c 0007       |    |		Action	Break_Optional
002d e009       |    |		Load	0x0,0x9
002e 0322       | "  |		Declare_Variable	Record
002f e00a       |    |		Load	0x0,0xa
0030 0322       | "  |		Declare_Variable	Record
0031 00d8       |    |		Load_Top	At_Offset_0
0032 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0033 e00b       |    |		Load	0x0,0xb
0034 0337       | 7  |		Declare_Variable	Array
0035 e00c       |    |		Load	0x0,0xc
0036 00d9       |    |		Load_Top	At_Offset_1
0037 01d4       |    |		Execute	Vector,Structure_Write
0038 e00d       |    |		Load	0x0,0xd
0039 0322       | "  |		Declare_Variable	Record
003a 00d8       |    |		Load_Top	At_Offset_0
003b 1c00       |    |		Execute_Immediate	Run_Utility,0x0
003c e00e       |    |		Load	0x0,0xe
003d 0007       |    |		Action	Break_Optional
003e e00f       |    |		Load	0x0,0xf
003f 02ff       |    |		Declare_Variable	Variant_Record
0040 00d8       |    |		Load_Top	At_Offset_0
0041 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0042 e010       |    |		Load	0x0,0x10
0043 0007       |    |		Action	Break_Optional
0044 e011       |    |		Load	0x0,0x11
0045 0007       |    |		Action	Break_Optional
0046 00e3       |    |		Load_Encached	Natural_Cache
0047 0601       |    |		Execute_Immediate	Set_Value_Unchecked,0x1
0048 0007       |    |		Action	Break_Optional
0049 0007       |    |		Action	Break_Optional
004a 029f 0193  |    |		Declare_Subprogram	INIT_0190,For_Call
004c			BODY_0018:
004c e40a       |    |		Load	0x2,0xa
004d e002       |    |		Load	0x0,0x2
004e 4800       |H   |		Short_Literal	0x0
004f 00e5       |    |		Load_Encached	Long_Integer_Cache
0050 00d9       |    |		Load_Top	At_Offset_1
0051 0267       | g  |		Execute	Discrete,Predecessor
0052 e012       |    |		Load	0x0,0x12
0053 0334       | 4  |		Declare_Variable	Array,With_Constraint
0054 8013       |    |		Call	0x0,0x13
0055 8014       |    |		Call	0x0,0x14
0056 c402       |    |		Store	0x2,0x2
0057 00d1       |    |		Pop_Control	Pop_Count_1
0058 e402       |    |		Load	0x2,0x2
0059 7005       |p   |		Jump_Nonzero	0x5f
005a e40a       |    |		Load	0x2,0xa
005b 8015       |    |		Call	0x0,0x15
005c 8016       |    |		Call	0x0,0x16
005d 8017       |    |		Call	0x0,0x17
005e 08e2       |    |		Execute_Immediate	Raise,0xe2
005f e402       |    |		Load	0x2,0x2
0060 8018       |    |		Call	0x0,0x18
0061 a40b       |    |		Store_Unchecked	0x2,0xb
0062 4801       |H   |		Short_Literal	0x1
0063 481f       |H   |		Short_Literal	0x1f
0064 e403       |    |		Load	0x2,0x3
0065 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0066 01d6       |    |		Execute	Vector,Field_Write
0067 4801       |H   |		Short_Literal	0x1
0068 481e       |H   |		Short_Literal	0x1e
0069 e403       |    |		Load	0x2,0x3
006a 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
006b 01d6       |    |		Execute	Vector,Field_Write
006c 492c       |I,  |		Short_Literal	0x12c
006d e403       |    |		Load	0x2,0x3
006e 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
006f 492c       |I,  |		Short_Literal	0x12c
0070 e403       |    |		Load	0x2,0x3
0071 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0072 e40b       |    |		Load	0x2,0xb
0073 e402       |    |		Load	0x2,0x2
0074 8019       |    |		Call	0x0,0x19
0075 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0076 4f6a       |Oj  |		Short_Literal	-0x96
0077 0273       | s  |		Execute	Discrete,Plus
0078 00d8       |    |		Load_Top	At_Offset_0
0079 e01a       |    |		Load	0x0,0x1a
007a 0260       | `  |		Execute	Discrete,In_Type
007b 7001       |p   |		Jump_Nonzero	0x7d
007c 0801       |    |		Execute_Immediate	Raise,0x1
007d e403       |    |		Load	0x2,0x3
007e 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
007f e40b       |    |		Load	0x2,0xb
0080 e402       |    |		Load	0x2,0x2
0081 801b       |    |		Call	0x0,0x1b
0082 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0083 4f6a       |Oj  |		Short_Literal	-0x96
0084 0273       | s  |		Execute	Discrete,Plus
0085 00d8       |    |		Load_Top	At_Offset_0
0086 e01a       |    |		Load	0x0,0x1a
0087 0260       | `  |		Execute	Discrete,In_Type
0088 7001       |p   |		Jump_Nonzero	0x8a
0089 0801       |    |		Execute_Immediate	Raise,0x1
008a e403       |    |		Load	0x2,0x3
008b 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
008c e40b       |    |		Load	0x2,0xb
008d e402       |    |		Load	0x2,0x2
008e 801c       |    |		Call	0x0,0x1c
008f e408       |    |		Load	0x2,0x8
0090 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0091 4801       |H   |		Short_Literal	0x1
0092 481e       |H   |		Short_Literal	0x1e
0093 e409       |    |		Load	0x2,0x9
0094 01d6       |    |		Execute	Vector,Field_Write
0095 e40b       |    |		Load	0x2,0xb
0096 e402       |    |		Load	0x2,0x2
0097 801d       |    |		Call	0x0,0x1d
0098 e408       |    |		Load	0x2,0x8
0099 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
009a 4801       |H   |		Short_Literal	0x1
009b 481c       |H   |		Short_Literal	0x1c
009c e409       |    |		Load	0x2,0x9
009d 01d6       |    |		Execute	Vector,Field_Write
009e e01e       |    |		Load	0x0,0x1e
009f 0337       | 7  |		Declare_Variable	Array
00a0 4801       |H   |		Short_Literal	0x1
00a1 481d       |H   |		Short_Literal	0x1d
00a2 00da       |    |		Load_Top	At_Offset_2
00a3 01d6       |    |		Execute	Vector,Field_Write
00a4 4801       |H   |		Short_Literal	0x1
00a5 4810       |H   |		Short_Literal	0x10
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 01d6       |    |		Execute	Vector,Field_Write
00a8 4801       |H   |		Short_Literal	0x1
00a9 480f       |H   |		Short_Literal	0xf
00aa 00da       |    |		Load_Top	At_Offset_2
00ab 01d6       |    |		Execute	Vector,Field_Write
00ac 480e       |H   |		Short_Literal	0xe
00ad 4800       |H   |		Short_Literal	0x0
00ae 4800       |H   |		Short_Literal	0x0
00af 00d9       |    |		Load_Top	At_Offset_1
00b0 e411       |    |		Load	0x2,0x11
00b1 01d6       |    |		Execute	Vector,Field_Write
00b2 3ffb       |?   |		Loop_Increasing	0xae
00b3 481c       |H   |		Short_Literal	0x1c
00b4 4811       |H   |		Short_Literal	0x11
00b5 4800       |H   |		Short_Literal	0x0
00b6 00d9       |    |		Load_Top	At_Offset_1
00b7 e411       |    |		Load	0x2,0x11
00b8 01d6       |    |		Execute	Vector,Field_Write
00b9 3ffb       |?   |		Loop_Increasing	0xb5
00ba 4800       |H   |		Short_Literal	0x0
00bb 481e       |H   |		Short_Literal	0x1e
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 01d6       |    |		Execute	Vector,Field_Write
00be 4800       |H   |		Short_Literal	0x0
00bf 481f       |H   |		Short_Literal	0x1f
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 01d6       |    |		Execute	Vector,Field_Write
00c2 e01e       |    |		Load	0x0,0x1e
00c3 01c3       |    |		Execute	Vector,Check_In_Type
00c4 e408       |    |		Load	0x2,0x8
00c5 380b       |8   |		Execute	Record,Field_Write,Field_Number 0xb
00c6 4801       |H   |		Short_Literal	0x1
00c7 4814       |H   |		Short_Literal	0x14
00c8 e409       |    |		Load	0x2,0x9
00c9 01d6       |    |		Execute	Vector,Field_Write
00ca e408       |    |		Load	0x2,0x8
00cb e409       |    |		Load	0x2,0x9
00cc e01f       |    |		Load	0x0,0x1f
00cd 4801       |H   |		Short_Literal	0x1
00ce 4800       |H   |		Short_Literal	0x0
00cf 4804       |H   |		Short_Literal	0x4
00d0 e403       |    |		Load	0x2,0x3
00d1 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00d2 00d8       |    |		Load_Top	At_Offset_0
00d3 e020       |    |		Load	0x0,0x20
00d4 0260       | `  |		Execute	Discrete,In_Type
00d5 7001       |p   |		Jump_Nonzero	0xd7
00d6 0801       |    |		Execute_Immediate	Raise,0x1
00d7 00d8       |    |		Load_Top	At_Offset_0
00d8 e021       | !  |		Load	0x0,0x21
00d9 0260       | `  |		Execute	Discrete,In_Type
00da 7001       |p   |		Jump_Nonzero	0xdc
00db 0801       |    |		Execute_Immediate	Raise,0x1
00dc e403       |    |		Load	0x2,0x3
00dd 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00de 00d8       |    |		Load_Top	At_Offset_0
00df e020       |    |		Load	0x0,0x20
00e0 0260       | `  |		Execute	Discrete,In_Type
00e1 7001       |p   |		Jump_Nonzero	0xe3
00e2 0801       |    |		Execute_Immediate	Raise,0x1
00e3 00d8       |    |		Load_Top	At_Offset_0
00e4 e021       | !  |		Load	0x0,0x21
00e5 0260       | `  |		Execute	Discrete,In_Type
00e6 7001       |p   |		Jump_Nonzero	0xe8
00e7 0801       |    |		Execute_Immediate	Raise,0x1
00e8 e403       |    |		Load	0x2,0x3
00e9 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00ea 00d8       |    |		Load_Top	At_Offset_0
00eb e022       | "  |		Load	0x0,0x22
00ec 0260       | `  |		Execute	Discrete,In_Type
00ed 7001       |p   |		Jump_Nonzero	0xef
00ee 0801       |    |		Execute_Immediate	Raise,0x1
00ef e403       |    |		Load	0x2,0x3
00f0 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00f1 00d8       |    |		Load_Top	At_Offset_0
00f2 e022       | "  |		Load	0x0,0x22
00f3 0260       | `  |		Execute	Discrete,In_Type
00f4 7001       |p   |		Jump_Nonzero	0xf6
00f5 0801       |    |		Execute_Immediate	Raise,0x1
00f6 e40b       |    |		Load	0x2,0xb
00f7 e402       |    |		Load	0x2,0x2
00f8 8023       | #  |		Call	0x0,0x23
00f9 e402       |    |		Load	0x2,0x2
00fa 8024       | $  |		Call	0x0,0x24
00fb e407       |    |		Load	0x2,0x7
00fc 017d       | }  |		Execute	Record,Structure_Write
00fd e008       |    |		Load	0x0,0x8
00fe e405       |    |		Load	0x2,0x5
00ff e404       |    |		Load	0x2,0x4
0100 e403       |    |		Load	0x2,0x3
0101 4801       |H   |		Short_Literal	0x1
0102 4800       |H   |		Short_Literal	0x0
0103 e025       | %  |		Load	0x0,0x25
0104 0334       | 4  |		Declare_Variable	Array,With_Constraint
0105 4800       |H   |		Short_Literal	0x0
0106 00e5       |    |		Load_Encached	Long_Integer_Cache
0107 00d9       |    |		Load_Top	At_Offset_1
0108 0267       | g  |		Execute	Discrete,Predecessor
0109 e012       |    |		Load	0x0,0x12
010a 0334       | 4  |		Declare_Variable	Array,With_Constraint
010b 4800       |H   |		Short_Literal	0x0
010c 4809       |H   |		Short_Literal	0x9
010d e012       |    |		Load	0x0,0x12
010e 0334       | 4  |		Declare_Variable	Array,With_Constraint
010f 5074       |Pt  |		Indirect_Literal	Any,0x184,{0x51756963, 0x6b205465}
0110 e407       |    |		Load	0x2,0x7
0111 e402       |    |		Load	0x2,0x2
0112 8026       | &  |		Call	0x0,0x26
0113 c406       |    |		Store	0x2,0x6
0114 e027       | '  |		Load	0x0,0x27
0115 e028       | (  |		Load	0x0,0x28
0116 e407       |    |		Load	0x2,0x7
0117 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0118 e402       |    |		Load	0x2,0x2
0119 8029       | )  |		Call	0x0,0x29
011a a40d       |    |		Store_Unchecked	0x2,0xd
011b e40b       |    |		Load	0x2,0xb
011c e402       |    |		Load	0x2,0x2
011d 801d       |    |		Call	0x0,0x1d
011e e40b       |    |		Load	0x2,0xb
011f e402       |    |		Load	0x2,0x2
0120 801c       |    |		Call	0x0,0x1c
0121 802a       | *  |		Call	0x0,0x2a
0122 e40d       |    |		Load	0x2,0xd
0123 e402       |    |		Load	0x2,0x2
0124 802b       | +  |		Call	0x0,0x2b
0125 4806       |H   |		Short_Literal	0x6
0126 e40d       |    |		Load	0x2,0xd
0127 e402       |    |		Load	0x2,0x2
0128 802c       | ,  |		Call	0x0,0x2c
0129 4800       |H   |		Short_Literal	0x0
012a 4804       |H   |		Short_Literal	0x4
012b e012       |    |		Load	0x0,0x12
012c 0334       | 4  |		Declare_Variable	Array,With_Constraint
012d 505e       |P^  |		Indirect_Literal	Any,0x18c,{0x66697865, 0x64000000}
012e e402       |    |		Load	0x2,0x2
012f 802d       | -  |		Call	0x0,0x2d
0130 003b       | ;  |		Store_Top	Access,At_Offset_3
0131 00da       |    |		Load_Top	At_Offset_2
0132 e011       |    |		Load	0x0,0x11
0133 022f       | /  |		Execute	Access,Equal
0134 6804       |h   |		Jump_Zero	0x139
0135 0092 01d8  |    |		Action	Push_String_Extended,0x1d8					; "Could not open font 'fixed'?"
0137 8017       |    |		Call	0x0,0x17
0138 08e2       |    |		Execute_Immediate	Raise,0xe2
0139 e407       |    |		Load	0x2,0x7
013a e402       |    |		Load	0x2,0x2
013b 802e       | .  |		Call	0x0,0x2e
013c 0092 01d9  |    |		Action	Push_String_Extended,0x1d9					; "State is now 1"
013e 8017       |    |		Call	0x0,0x17
013f 00cf       |    |		Action	Mark_Auxiliary
0140 0007       |    |		Action	Break_Optional
0141 e40c       |    |		Load	0x2,0xc
0142 e402       |    |		Load	0x2,0x2
0143 802f       | /  |		Call	0x0,0x2f
0144 00d1       |    |		Pop_Control	Pop_Count_1
0145 e40c       |    |		Load	0x2,0xc
0146 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0147 00d8       |    |		Load_Top	At_Offset_0
0148 0c10       |    |		Execute_Immediate	Greater_Equal,0x10
0149 7014       |p   |		Jump_Nonzero	0x15e
014a 460f       |F   |		Jump_Case	0x10
014b 7813       |x   |		Jump	0x15f								; case 0x0
014c 7812       |x   |		Jump	0x15f								; case 0x1
014d 7811       |x   |		Jump	0x15f								; case 0x2
014e 7810       |x   |		Jump	0x15f								; case 0x3
014f 7811       |x   |		Jump	0x161								; case 0x4
0150 780e       |x   |		Jump	0x15f								; case 0x5
0151 780d       |x   |		Jump	0x15f								; case 0x6
0152 780c       |x   |		Jump	0x15f								; case 0x7
0153 780b       |x   |		Jump	0x15f								; case 0x8
0154 780a       |x   |		Jump	0x15f								; case 0x9
0155 7809       |x   |		Jump	0x15f								; case 0xa
0156 7808       |x   |		Jump	0x15f								; case 0xb
0157 7803       |x   |		Jump	0x15b								; case 0xc
0158 7806       |x   |		Jump	0x15f								; case 0xd
0159 7805       |x   |		Jump	0x15f								; case 0xe
015a 7800       |x   |		Jump	0x15b								; case 0xf
015b 8410       |    |		Call	0x2,0x10
015c 681d       |h   |		Jump_Zero	0x17a
015d 781e       |x   |		Jump	0x17c
015e 00d1       |    |		Pop_Control	Pop_Count_1
015f 0008       |    |		Action	Idle
0160 7819       |x   |		Jump	0x17a
0161 e40c       |    |		Load	0x2,0xc
0162 2c01       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x1
0163 0f04       |    |		Execute_Immediate	Equal,0x4
0164 6806       |h   |		Jump_Zero	0x16b
0165 e40c       |    |		Load	0x2,0xc
0166 2607       |&   |		Execute	Variant_Record,Field_Reference,Variant,Direct,Field_Number 0x7
0167 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0168 0f02       |    |		Execute_Immediate	Equal,0x2
0169 6801       |h   |		Jump_Zero	0x16b
016a 7811       |x   |		Jump	0x17c
016b 00da       |    |		Load_Top	At_Offset_2
016c 0a01       |    |		Execute_Immediate	Plus,0x1
016d 005b       | [  |		Store_Top	Discrete,At_Offset_3
016e 0092 01da  |    |		Action	Push_String_Extended,0x1da					; "State is now "
0170 8030       | 0  |		Call	0x0,0x30
0171 480a       |H   |		Short_Literal	0xa
0172 4801       |H   |		Short_Literal	0x1
0173 e40f       |    |		Load	0x2,0xf
0174 8031       | 1  |		Call	0x0,0x31
0175 4801       |H   |		Short_Literal	0x1
0176 8032       | 2  |		Call	0x0,0x32
0177 8410       |    |		Call	0x2,0x10
0178 6801       |h   |		Jump_Zero	0x17a
0179 7802       |x   |		Jump	0x17c
017a 00c9       |    |		Action	Pop_Auxiliary_Loop
017b 7fc5       |    |		Jump	0x141
017c 00ce       |    |		Action	Pop_Auxiliary
017d e402       |    |		Load	0x2,0x2
017e 8033       | 3  |		Call	0x0,0x33
017f c402       |    |		Store	0x2,0x2
0180 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0181 0000 0000  |    |		.XXX[0x3]
0183 0000       |    |
0184 5175 6963  |Quic|		.LITERAL	{0x51756963, 0x6b205465}
0188 7374 0000  |st  |		.XXX[0x4]
018a 0000 0000  |    |
018c 6669 7865  |fixe|		.LITERAL	{0x66697865, 0x64000000}
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 e407       |    |		Load	0x2,0x7
0194 e402       |    |		Load	0x2,0x2
0195 8034       | 4  |		Call	0x0,0x34
0196 4800       |H   |		Short_Literal	0x0
0197 4804       |H   |		Short_Literal	0x4
0198 e012       |    |		Load	0x0,0x12
0199 0334       | 4  |		Declare_Variable	Array,With_Constraint
019a 502d       |P-  |		Indirect_Literal	Any,0x1c8,{0x53746174, 0x65000000}
019b e40f       |    |		Load	0x2,0xf
019c 00e0       |    |		Load_Encached	Standard_Cache
019d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
019e 8035       | 5  |		Call	0x0,0x35
019f 01cc       |    |		Execute	Vector,Catenate
01a0 4800       |H   |		Short_Literal	0x0
01a1 4810       |H   |		Short_Literal	0x10
01a2 e012       |    |		Load	0x0,0x12
01a3 0334       | 4  |		Declare_Variable	Array,With_Constraint
01a4 5027       |P'  |		Indirect_Literal	Any,0x1cc,{0x202d2043, 0x6c69636b}
01a5 01cc       |    |		Execute	Vector,Catenate
01a6 e40e       |    |		Load	0x2,0xe
01a7 0227       | '  |		Execute	Access,All_Reference
01a8 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
01a9 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
01aa 0a04       |    |		Execute_Immediate	Plus,0x4
01ab 00d8       |    |		Load_Top	At_Offset_0
01ac e022       | "  |		Load	0x0,0x22
01ad 0260       | `  |		Execute	Discrete,In_Type
01ae 7001       |p   |		Jump_Nonzero	0x1b0
01af 0801       |    |		Execute_Immediate	Raise,0x1
01b0 4804       |H   |		Short_Literal	0x4
01b1 e40d       |    |		Load	0x2,0xd
01b2 e407       |    |		Load	0x2,0x7
01b3 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
01b4 e402       |    |		Load	0x2,0x2
01b5 8036       | 6  |		Call	0x0,0x36
01b6 e40f       |    |		Load	0x2,0xf
01b7 00e3       |    |		Load_Encached	Natural_Cache
01b8 0122       | "  |		Execute	Any,Make_Root_Type
01b9 025e       | ^  |		Execute	Discrete,Convert
01ba 492c       |I,  |		Short_Literal	0x12c
01bb 492c       |I,  |		Short_Literal	0x12c
01bc e40e       |    |		Load	0x2,0xe
01bd e40d       |    |		Load	0x2,0xd
01be e407       |    |		Load	0x2,0x7
01bf e402       |    |		Load	0x2,0x2
01c0 85fe       |    |		Call	0x2,-0x2
01c1 c40f       |    |		Store	0x2,0xf
01c2 e40f       |    |		Load	0x2,0xf
01c3 0f00       |    |		Execute_Immediate	Equal,0x0
01c4 00ca       |    |		Action	Exit_Nullary_Function
01c5 0000 0000  |    |		.XXX[0x3]
01c7 0000       |    |
01c8 5374 6174  |Stat|		.LITERAL	{0x53746174, 0x65000000}
01cc 202d 2043  | - C|		.LITERAL	{0x202d2043, 0x6c69636b}
01d0 2062 7574  | but|		.XXX[0x8]
01d2 746f 6e20  |ton |
01d4 3100 0000  |1   |
01d6 0000 0000  |    |
01d8 ; --------------------------------------------------------------------------------------
01d8 ; STRING TABLE
01d8 ; --------------------------------------------------------------------------------------
01d8 0008       |    |		.STRTAB	0x0008->0x01dc							; "Could not open font 'fixed'?"
01d9 0022       | "  |		.STRTAB	0x0022->0x01ea							; "State is now 1"
01da 002e       | .  |		.STRTAB	0x002e->0x01f1							; "State is now "
01db 0039       | 9  |		.STREND 0x0039->0x01f7
01dc 436f 756c  |Coul|		.STRTAB_STRINGS
01f8 ; --------------------------------------------------------------------------------------
01f8 ; Debug Table
01f8 ; --------------------------------------------------------------------------------------
01f8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x692d,0x0000,0x0001,0x0003
01fe 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
0202 001b 020a  |    |		.DBG4T	0x001b,0x020a,0xa801,0x4002
0206 0193 0273  |   s|		.DBG4T	0x0193,0x0273,0x0802,0x0002
020a ; --------------------------------------------------------------------------------------
020a ; Debug chain
020a ; --------------------------------------------------------------------------------------
020a 0011 002b  |   +|		.DBGLEN	0x0011,0x002b
020c 001b 001d  |    |		.DBGLNO	0x001b,0x001d,0x0021,0x0026,0x002b,0x002d,0x002f,0x0033,0x0038,0x003c,0x003e,0x0042,0x0044,0x0046,0x0048,0x0049,0x004a,0x004c,0x0058,0x005a,0x005e,0x005f,0x0062,0x0067,0x006c,0x006f,0x0072,0x007f,0x008c,0x0091,0x0095,0x009a,0x009e,0x00c6,0x00ca,0x00fd,0x0114,0x011b,0x0125,0x0129,0x0131,0x0135,0x0138,0x0139,0x013c,0x0140,0x0141,0x0145,0x015b,0x015d,0x015f,0x0161,0x016a,0x016b,0x016e,0x0171,0x0175,0x0177,0x0179,0x017d
0248 0001 0002  |    |		.XXX[0x2b]
024a 0003 0004  |    |
024c 0005 0006  |    |
024e 0007 0008  |    |
0250 0009 000a  |    |
0252 000b 000c  |    |
0254 000d 000e  |    |
0256 000f 0010  |    |
0258 0011 0012  |    |
025a 0013 0014  |    |
025c 0015 0016  |    |
025e 0017 0018  |    |
0260 0019 001a  |    |
0262 001b 001c  |    |
0264 001d 001e  |    |
0266 001f 0028  |   (|
0268 0029 002a  | ) *|
026a 0020 0021  |   !|
026c 0022 0023  | " #|
026e 0024 0025  | $ %|
0270 0026 0027  | & '|
0272 002b       | +  |
0273 ; --------------------------------------------------------------------------------------
0273 ; Debug chain
0273 ; --------------------------------------------------------------------------------------
0273 0000 0004  |    |		.DBGLEN	0x0000,0x0004
0275 0193 0196  |    |		.DBGLNO	0x0193,0x0196,0x01b6,0x01c2
0279 0000 0000  |    |		.BLANK	0000[0x187]