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

⟦b5865ff4a⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 0258       | X  |		.CONST	0x0258								; 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 0012       |    |		.CONST	0x0012								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0004       |    |		.CONST	0x0004								; Number of locals
000b			INIT_0008:
000b e03b       | ;  |		Load	0x0,0x3b
000c 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
000d 0007       |    |		Action	Break_Optional
000e e011       |    |		Load	0x0,0x11
000f 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0010 029f 00eb  |    |		Declare_Subprogram	INIT_00e8,For_Call
0012			BODY_0008:
0012 e03b       | ;  |		Load	0x0,0x3b
0013 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
0014 7005       |p   |		Jump_Nonzero	0x1a
0015 0092 020f  |    |		Action	Push_String_Extended,0x20f					; "Ignoring Column_Entry not bracketed by Begin(Table) and End(Table)"
0017 e01c       |    |		Load	0x0,0x1c
0018 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0019 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
001a e03b       | ;  |		Load	0x0,0x3b
001b 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
001c 7001       |p   |		Jump_Nonzero	0x1e
001d 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
001e e03b       | ;  |		Load	0x0,0x3b
001f 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0020 68bf       |h   |		Jump_Zero	0xe0
0021 4800       |H   |		Short_Literal	0x0
0022 e03b       | ;  |		Load	0x0,0x3b
0023 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0024 4801       |H   |		Short_Literal	0x1
0025 4800       |H   |		Short_Literal	0x0
0026 4800       |H   |		Short_Literal	0x0
0027 e01e       |    |		Load	0x0,0x1e
0028 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0029 e01d       |    |		Load	0x0,0x1d
002a 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
002b e01d       |    |		Load	0x0,0x1d
002c 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
002d 0272       | r  |		Execute	Discrete,Minus
002e e03b       | ;  |		Load	0x0,0x3b
002f 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
0030 0272       | r  |		Execute	Discrete,Minus
0031 e03b       | ;  |		Load	0x0,0x3b
0032 3818       |8   |		Execute	Record,Field_Write,Field_Number 0x18
0033 e03b       | ;  |		Load	0x0,0x3b
0034 3c18       |<   |		Execute	Record,Field_Read,Field_Number 0x18
0035 0d00       |    |		Execute_Immediate	Less,0x0
0036 6808       |h   |		Jump_Zero	0x3f
0037 0092 0210  |    |		Action	Push_String_Extended,0x210					; "Table wider than margins"
0039 e01c       |    |		Load	0x0,0x1c
003a 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
003b 4800       |H   |		Short_Literal	0x0
003c e03b       | ;  |		Load	0x0,0x3b
003d 3818       |8   |		Execute	Record,Field_Write,Field_Number 0x18
003e 7806       |x   |		Jump	0x45
003f e017       |    |		Load	0x0,0x17
0040 3c33       |<3  |		Execute	Record,Field_Read,Field_Number 0x33
0041 7003       |p   |		Jump_Nonzero	0x45
0042 4800       |H   |		Short_Literal	0x0
0043 e03b       | ;  |		Load	0x0,0x3b
0044 3818       |8   |		Execute	Record,Field_Write,Field_Number 0x18
0045 e03b       | ;  |		Load	0x0,0x3b
0046 3c18       |<   |		Execute	Record,Field_Read,Field_Number 0x18
0047 09ff       |    |		Execute_Immediate	Binary_Scale,-0x1
0048 e020       |    |		Load	0x0,0x20
0049 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
004a e021       | !  |		Load	0x0,0x21
004b 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
004c 00d8       |    |		Load_Top	At_Offset_0
004d e021       | !  |		Load	0x0,0x21
004e 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
004f 7003       |p   |		Jump_Nonzero	0x53
0050 e022       | "  |		Load	0x0,0x22
0051 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0052 0257       | W  |		Execute	Discrete,Raise
0053 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
0054 e01d       |    |		Load	0x0,0x1d
0055 3c16       |<   |		Execute	Record,Field_Read,Field_Number 0x16
0056 0273       | s  |		Execute	Discrete,Plus
0057 e03b       | ;  |		Load	0x0,0x3b
0058 3818       |8   |		Execute	Record,Field_Write,Field_Number 0x18
0059 608a       |`   |		Indirect_Literal	Discrete,0xe4,{0x00000000, 0x0015f900}
005a e01d       |    |		Load	0x0,0x1d
005b 3817       |8   |		Execute	Record,Field_Write,Field_Number 0x17
005c e02c       | ,  |		Load	0x0,0x2c
005d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
005e e03b       | ;  |		Load	0x0,0x3b
005f 3c1a       |<   |		Execute	Record,Field_Read,Field_Number 0x1a
0060 e01d       |    |		Load	0x0,0x1d
0061 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0062 0273       | s  |		Execute	Discrete,Plus
0063 027f       |    |		Execute	Discrete,Equal
0064 0f00       |    |		Execute_Immediate	Equal,0x0
0065 e03b       | ;  |		Load	0x0,0x3b
0066 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
0067 0e05       |    |		Execute_Immediate	Not_Equal,0x5
0068 0279       | y  |		Execute	Discrete,And
0069 6824       |h$  |		Jump_Zero	0x8e
006a 4801       |H   |		Short_Literal	0x1
006b 4800       |H   |		Short_Literal	0x0
006c e017       |    |		Load	0x0,0x17
006d 3c3d       |<=  |		Execute	Record,Field_Read,Field_Number 0x3d
006e e01e       |    |		Load	0x0,0x1e
006f 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
0070 e02c       | ,  |		Load	0x0,0x2c
0071 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0072 a403       |    |		Store_Unchecked	0x2,0x3
0073 4800       |H   |		Short_Literal	0x0
0074 e03b       | ;  |		Load	0x0,0x3b
0075 3c18       |<   |		Execute	Record,Field_Read,Field_Number 0x18
0076 e02c       | ,  |		Load	0x0,0x2c
0077 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0078 e03b       | ;  |		Load	0x0,0x3b
0079 3c1a       |<   |		Execute	Record,Field_Read,Field_Number 0x1a
007a e403       |    |		Load	0x2,0x3
007b 0272       | r  |		Execute	Discrete,Minus
007c e011       |    |		Load	0x0,0x11
007d 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
007e 00d9       |    |		Load_Top	At_Offset_1
007f 00d0       |    |		Action	Swap_Control
0080 0260       | `  |		Execute	Discrete,In_Type
0081 7001       |p   |		Jump_Nonzero	0x83
0082 0801       |    |		Execute_Immediate	Raise,0x1
0083 e03b       | ;  |		Load	0x0,0x3b
0084 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
0085 e02c       | ,  |		Load	0x0,0x2c
0086 1824       | $  |		Execute	Package,Field_Execute,Field_Number 0x24
0087 e02c       | ,  |		Load	0x0,0x2c
0088 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0089 e03b       | ;  |		Load	0x0,0x3b
008a 381a       |8   |		Execute	Record,Field_Write,Field_Number 0x1a
008b 4801       |H   |		Short_Literal	0x1
008c e03b       | ;  |		Load	0x0,0x3b
008d 380e       |8   |		Execute	Record,Field_Write,Field_Number 0xe
008e 00cf       |    |		Action	Mark_Auxiliary
008f e03b       | ;  |		Load	0x0,0x3b
0090 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0091 4801       |H   |		Short_Literal	0x1
0092 0263       | c  |		Execute	Discrete,Above_Bound
0093 702b       |p+  |		Jump_Nonzero	0xbf
0094 00d8       |    |		Load_Top	At_Offset_0
0095 e03b       | ;  |		Load	0x0,0x3b
0096 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0097 01d5       |    |		Execute	Vector,Field_Reference
0098 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
0099 e011       |    |		Load	0x0,0x11
009a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
009b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
009c 6820       |h   |		Jump_Zero	0xbd
009d 00cf       |    |		Action	Mark_Auxiliary
009e e03b       | ;  |		Load	0x0,0x3b
009f 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00a0 4801       |H   |		Short_Literal	0x1
00a1 0263       | c  |		Execute	Discrete,Above_Bound
00a2 7015       |p   |		Jump_Nonzero	0xb8
00a3 4801       |H   |		Short_Literal	0x1
00a4 e40a       |    |		Load	0x2,0xa
00a5 e03b       | ;  |		Load	0x0,0x3b
00a6 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
00a7 01d5       |    |		Execute	Vector,Field_Reference
00a8 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00a9 8404       |    |		Call	0x2,0x4
00aa 00d8       |    |		Load_Top	At_Offset_0
00ab e03b       | ;  |		Load	0x0,0x3b
00ac 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
00ad 01d5       |    |		Execute	Vector,Field_Reference
00ae 00d8       |    |		Load_Top	At_Offset_0
00af 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
00b0 e011       |    |		Load	0x0,0x11
00b1 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00b2 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00b3 e40b       |    |		Load	0x2,0xb
00b4 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00b5 00d1       |    |		Pop_Control	Pop_Count_1
00b6 00c8       |    |		Action	Pop_Auxiliary_Range
00b7 3feb       |?   |		Loop_Increasing	0xa3
00b8 00ce       |    |		Action	Pop_Auxiliary
00b9 4800       |H   |		Short_Literal	0x0
00ba 8072       | r  |		Call	0x0,0x72
00bb 00d2       |    |		Pop_Control	Pop_Count_2
00bc 7802       |x   |		Jump	0xbf
00bd 00c8       |    |		Action	Pop_Auxiliary_Range
00be 3fd5       |?   |		Loop_Increasing	0x94
00bf 00ce       |    |		Action	Pop_Auxiliary
00c0 4801       |H   |		Short_Literal	0x1
00c1 4801       |H   |		Short_Literal	0x1
00c2 4800       |H   |		Short_Literal	0x0
00c3 e01e       |    |		Load	0x0,0x1e
00c4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00c5 e017       |    |		Load	0x0,0x17
00c6 3c1f       |<   |		Execute	Record,Field_Read,Field_Number 0x1f
00c7 e017       |    |		Load	0x0,0x17
00c8 3c1e       |<   |		Execute	Record,Field_Read,Field_Number 0x1e
00c9 0273       | s  |		Execute	Discrete,Plus
00ca e02c       | ,  |		Load	0x0,0x2c
00cb 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00cc 0273       | s  |		Execute	Discrete,Plus
00cd e017       |    |		Load	0x0,0x17
00ce 3c12       |<   |		Execute	Record,Field_Read,Field_Number 0x12
00cf 027b       | {  |		Execute	Discrete,Greater_Equal
00d0 6807       |h   |		Jump_Zero	0xd8
00d1 0092 0211  |    |		Action	Push_String_Extended,0x211					; "Table column headings exceed page size"
00d3 e01c       |    |		Load	0x0,0x1c
00d4 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
00d5 e011       |    |		Load	0x0,0x11
00d6 1b28       | (  |		Execute	Package,Field_Read,Field_Number 0x28
00d7 0257       | W  |		Execute	Discrete,Raise
00d8 e02c       | ,  |		Load	0x0,0x2c
00d9 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00da e03b       | ;  |		Load	0x0,0x3b
00db 380d       |8   |		Execute	Record,Field_Write,Field_Number 0xd
00dc e03b       | ;  |		Load	0x0,0x3b
00dd 3c0d       |<   |		Execute	Record,Field_Read,Field_Number 0xd
00de e02c       | ,  |		Load	0x0,0x2c
00df 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00e0 4800       |H   |		Short_Literal	0x0
00e1 e5ff       |    |		Load	0x2,-0x1
00e2 8404       |    |		Call	0x2,0x4
00e3 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
00e4 0000 0000  |    |		.LITERAL	{0x00000000, 0x0015f900}
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb       |    |		.CONST	0x00eb								; Address of begin
00e9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ea 0001       |    |		.CONST	0x0001								; Number of locals
00eb			BODY_00e8:
00eb			INIT_00e8:
00eb e402       |    |		Load	0x2,0x2
00ec 701b       |p   |		Jump_Nonzero	0x108
00ed 4800       |H   |		Short_Literal	0x0
00ee e02c       | ,  |		Load	0x0,0x2c
00ef 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00f0 4801       |H   |		Short_Literal	0x1
00f1 4800       |H   |		Short_Literal	0x0
00f2 4800       |H   |		Short_Literal	0x0
00f3 e01e       |    |		Load	0x0,0x1e
00f4 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
00f5 4801       |H   |		Short_Literal	0x1
00f6 e02c       | ,  |		Load	0x0,0x2c
00f7 1821       | !  |		Execute	Package,Field_Execute,Field_Number 0x21
00f8 e02c       | ,  |		Load	0x0,0x2c
00f9 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
00fa e03b       | ;  |		Load	0x0,0x3b
00fb 381a       |8   |		Execute	Record,Field_Write,Field_Number 0x1a
00fc e017       |    |		Load	0x0,0x17
00fd 3c3d       |<=  |		Execute	Record,Field_Read,Field_Number 0x3d
00fe 4800       |H   |		Short_Literal	0x0
00ff e02c       | ,  |		Load	0x0,0x2c
0100 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0101 e02c       | ,  |		Load	0x0,0x2c
0102 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0103 e03b       | ;  |		Load	0x0,0x3b
0104 381b       |8   |		Execute	Record,Field_Write,Field_Number 0x1b
0105 4fff       |O   |		Short_Literal	-0x1
0106 e03b       | ;  |		Load	0x0,0x3b
0107 381c       |8   |		Execute	Record,Field_Write,Field_Number 0x1c
0108 e7ff       |    |		Load	0x3,-0x1
0109 e011       |    |		Load	0x0,0x11
010a 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
010b 1813       |    |		Execute	Package,Field_Execute,Field_Number 0x13
010c 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
010d e03b       | ;  |		Load	0x0,0x3b
010e 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
010f 0d00       |    |		Execute_Immediate	Less,0x0
0110 0279       | y  |		Execute	Discrete,And
0111 6816       |h   |		Jump_Zero	0x128
0112 e01d       |    |		Load	0x0,0x1d
0113 3c08       |<   |		Execute	Record,Field_Read,Field_Number 0x8
0114 e017       |    |		Load	0x0,0x17
0115 3c3d       |<=  |		Execute	Record,Field_Read,Field_Number 0x3d
0116 0272       | r  |		Execute	Discrete,Minus
0117 e011       |    |		Load	0x0,0x11
0118 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0119 00d9       |    |		Load_Top	At_Offset_1
011a 00d0       |    |		Action	Swap_Control
011b 0260       | `  |		Execute	Discrete,In_Type
011c 7001       |p   |		Jump_Nonzero	0x11e
011d 0801       |    |		Execute_Immediate	Raise,0x1
011e 4800       |H   |		Short_Literal	0x0
011f e02c       | ,  |		Load	0x0,0x2c
0120 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
0121 e02c       | ,  |		Load	0x0,0x2c
0122 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0123 e03b       | ;  |		Load	0x0,0x3b
0124 381b       |8   |		Execute	Record,Field_Write,Field_Number 0x1b
0125 4800       |H   |		Short_Literal	0x0
0126 e03b       | ;  |		Load	0x0,0x3b
0127 381c       |8   |		Execute	Record,Field_Write,Field_Number 0x1c
0128 e03b       | ;  |		Load	0x0,0x3b
0129 3c18       |<   |		Execute	Record,Field_Read,Field_Number 0x18
012a e017       |    |		Load	0x0,0x17
012b 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
012c 0273       | s  |		Execute	Discrete,Plus
012d c403       |    |		Store	0x2,0x3
012e 00cf       |    |		Action	Mark_Auxiliary
012f e402       |    |		Load	0x2,0x2
0130 4801       |H   |		Short_Literal	0x1
0131 0263       | c  |		Execute	Discrete,Above_Bound
0132 700e       |p   |		Jump_Nonzero	0x141
0133 e403       |    |		Load	0x2,0x3
0134 e604       |    |		Load	0x3,0x4
0135 e03b       | ;  |		Load	0x0,0x3b
0136 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0137 01d5       |    |		Execute	Vector,Field_Reference
0138 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0139 0273       | s  |		Execute	Discrete,Plus
013a e017       |    |		Load	0x0,0x17
013b 3c34       |<4  |		Execute	Record,Field_Read,Field_Number 0x34
013c 0901       |    |		Execute_Immediate	Binary_Scale,0x1
013d 0273       | s  |		Execute	Discrete,Plus
013e c403       |    |		Store	0x2,0x3
013f 00c8       |    |		Action	Pop_Auxiliary_Range
0140 3ff2       |?   |		Loop_Increasing	0x133
0141 00ce       |    |		Action	Pop_Auxiliary
0142 e402       |    |		Load	0x2,0x2
0143 0a01       |    |		Execute_Immediate	Plus,0x1
0144 c402       |    |		Store	0x2,0x2
0145 480d       |H   |		Short_Literal	0xd
0146 801f       |    |		Call	0x0,0x1f
0147 e403       |    |		Load	0x2,0x3
0148 e01d       |    |		Load	0x0,0x1d
0149 3816       |8   |		Execute	Record,Field_Write,Field_Number 0x16
014a e403       |    |		Load	0x2,0x3
014b e402       |    |		Load	0x2,0x2
014c e03b       | ;  |		Load	0x0,0x3b
014d 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
014e 01d5       |    |		Execute	Vector,Field_Reference
014f 3c03       |<   |		Execute	Record,Field_Read,Field_Number 0x3
0150 0273       | s  |		Execute	Discrete,Plus
0151 e01d       |    |		Load	0x0,0x1d
0152 3817       |8   |		Execute	Record,Field_Write,Field_Number 0x17
0153 e7fe       |    |		Load	0x3,-0x2
0154 681b       |h   |		Jump_Zero	0x170
0155 e402       |    |		Load	0x2,0x2
0156 e03b       | ;  |		Load	0x0,0x3b
0157 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0158 01d5       |    |		Execute	Vector,Field_Reference
0159 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
015a 4604       |F   |		Jump_Case	0x5
015b 7810       |x   |		Jump	0x16c								; case 0x0
015c 7803       |x   |		Jump	0x160								; case 0x1
015d 7806       |x   |		Jump	0x164								; case 0x2
015e 7809       |x   |		Jump	0x168								; case 0x3
015f 785e       |x^  |		Jump	0x1be								; case 0x4
0160 4800       |H   |		Short_Literal	0x0
0161 e01d       |    |		Load	0x0,0x1d
0162 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0163 785a       |xZ  |		Jump	0x1be
0164 4802       |H   |		Short_Literal	0x2
0165 e01d       |    |		Load	0x0,0x1d
0166 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
0167 7856       |xV  |		Jump	0x1be
0168 4803       |H   |		Short_Literal	0x3
0169 e01d       |    |		Load	0x0,0x1d
016a 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
016b 7852       |xR  |		Jump	0x1be
016c 4801       |H   |		Short_Literal	0x1
016d e01d       |    |		Load	0x0,0x1d
016e 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
016f 784e       |xN  |		Jump	0x1be
0170 e402       |    |		Load	0x2,0x2
0171 e03b       | ;  |		Load	0x0,0x3b
0172 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
0173 01d5       |    |		Execute	Vector,Field_Reference
0174 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0175 4604       |F   |		Jump_Case	0x5
0176 7838       |x8  |		Jump	0x1af								; case 0x0
0177 783b       |x;  |		Jump	0x1b3								; case 0x1
0178 783e       |x>  |		Jump	0x1b7								; case 0x2
0179 7841       |xA  |		Jump	0x1bb								; case 0x3
017a 7800       |x   |		Jump	0x17b								; case 0x4
017b 4801       |H   |		Short_Literal	0x1
017c e01d       |    |		Load	0x0,0x1d
017d 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
017e 4801       |H   |		Short_Literal	0x1
017f e01d       |    |		Load	0x0,0x1d
0180 3815       |8   |		Execute	Record,Field_Write,Field_Number 0x15
0181 4801       |H   |		Short_Literal	0x1
0182 4801       |H   |		Short_Literal	0x1
0183 e01d       |    |		Load	0x0,0x1d
0184 3413       |4   |		Execute	Record,Field_Reference,Field_Number 0x13
0185 01d6       |    |		Execute	Vector,Field_Write
0186 e01d       |    |		Load	0x0,0x1d
0187 3c17       |<   |		Execute	Record,Field_Read,Field_Number 0x17
0188 e402       |    |		Load	0x2,0x2
0189 e03b       | ;  |		Load	0x0,0x3b
018a 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
018b 01d5       |    |		Execute	Vector,Field_Reference
018c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
018d 4830       |H0  |		Short_Literal	0x30
018e e020       |    |		Load	0x0,0x20
018f 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0190 e021       | !  |		Load	0x0,0x21
0191 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0192 00d8       |    |		Load_Top	At_Offset_0
0193 e021       | !  |		Load	0x0,0x21
0194 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
0195 7003       |p   |		Jump_Nonzero	0x199
0196 e022       | "  |		Load	0x0,0x22
0197 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
0198 0257       | W  |		Execute	Discrete,Raise
0199 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
019a 0271       | q  |		Execute	Discrete,Times
019b 482e       |H.  |		Short_Literal	0x2e
019c e020       |    |		Load	0x0,0x20
019d 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
019e e021       | !  |		Load	0x0,0x21
019f 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
01a0 00d8       |    |		Load_Top	At_Offset_0
01a1 e021       | !  |		Load	0x0,0x21
01a2 183d       | =  |		Execute	Package,Field_Execute,Field_Number 0x3d
01a3 7003       |p   |		Jump_Nonzero	0x1a7
01a4 e022       | "  |		Load	0x0,0x22
01a5 1b27       | '  |		Execute	Package,Field_Read,Field_Number 0x27
01a6 0257       | W  |		Execute	Discrete,Raise
01a7 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
01a8 0273       | s  |		Execute	Discrete,Plus
01a9 0272       | r  |		Execute	Discrete,Minus
01aa 4801       |H   |		Short_Literal	0x1
01ab e01d       |    |		Load	0x0,0x1d
01ac 3412       |4   |		Execute	Record,Field_Reference,Field_Number 0x12
01ad 01d6       |    |		Execute	Vector,Field_Write
01ae 780f       |x   |		Jump	0x1be
01af 4801       |H   |		Short_Literal	0x1
01b0 e01d       |    |		Load	0x0,0x1d
01b1 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01b2 780b       |x   |		Jump	0x1be
01b3 4800       |H   |		Short_Literal	0x0
01b4 e01d       |    |		Load	0x0,0x1d
01b5 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01b6 7807       |x   |		Jump	0x1be
01b7 4802       |H   |		Short_Literal	0x2
01b8 e01d       |    |		Load	0x0,0x1d
01b9 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01ba 7803       |x   |		Jump	0x1be
01bb 4803       |H   |		Short_Literal	0x3
01bc e01d       |    |		Load	0x0,0x1d
01bd 380a       |8   |		Execute	Record,Field_Write,Field_Number 0xa
01be e02c       | ,  |		Load	0x0,0x2c
01bf 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01c0 a403       |    |		Store_Unchecked	0x2,0x3
01c1 e03b       | ;  |		Load	0x0,0x3b
01c2 3c1b       |<   |		Execute	Record,Field_Read,Field_Number 0x1b
01c3 e403       |    |		Load	0x2,0x3
01c4 027c       | |  |		Execute	Discrete,Less
01c5 6812       |h   |		Jump_Zero	0x1d8
01c6 e403       |    |		Load	0x2,0x3
01c7 e03b       | ;  |		Load	0x0,0x3b
01c8 3c1b       |<   |		Execute	Record,Field_Read,Field_Number 0x1b
01c9 0272       | r  |		Execute	Discrete,Minus
01ca c403       |    |		Store	0x2,0x3
01cb e403       |    |		Load	0x2,0x3
01cc 0275       | u  |		Execute	Discrete,Unary_Minus
01cd 4800       |H   |		Short_Literal	0x0
01ce e02c       | ,  |		Load	0x0,0x2c
01cf 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
01d0 e03b       | ;  |		Load	0x0,0x3b
01d1 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
01d2 e403       |    |		Load	0x2,0x3
01d3 027c       | |  |		Execute	Discrete,Less
01d4 6803       |h   |		Jump_Zero	0x1d8
01d5 e403       |    |		Load	0x2,0x3
01d6 e03b       | ;  |		Load	0x0,0x3b
01d7 381c       |8   |		Execute	Record,Field_Write,Field_Number 0x1c
01d8 4801       |H   |		Short_Literal	0x1
01d9 e015       |    |		Load	0x0,0x15
01da 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
01db e402       |    |		Load	0x2,0x2
01dc e03b       | ;  |		Load	0x0,0x3b
01dd 3403       |4   |		Execute	Record,Field_Reference,Field_Number 0x3
01de 01d5       |    |		Execute	Vector,Field_Reference
01df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01e0 0f04       |    |		Execute_Immediate	Equal,0x4
01e1 6803       |h   |		Jump_Zero	0x1e5
01e2 4940       |I@  |		Short_Literal	0x140
01e3 e015       |    |		Load	0x0,0x15
01e4 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
01e5 e7ff       |    |		Load	0x3,-0x1
01e6 e015       |    |		Load	0x0,0x15
01e7 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
01e8 4801       |H   |		Short_Literal	0x1
01e9 e015       |    |		Load	0x0,0x15
01ea 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
01eb 4801       |H   |		Short_Literal	0x1
01ec 4800       |H   |		Short_Literal	0x0
01ed 4800       |H   |		Short_Literal	0x0
01ee e01e       |    |		Load	0x0,0x1e
01ef 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
01f0 480d       |H   |		Short_Literal	0xd
01f1 8023       | #  |		Call	0x0,0x23
01f2 e402       |    |		Load	0x2,0x2
01f3 e03b       | ;  |		Load	0x0,0x3b
01f4 3c04       |<   |		Execute	Record,Field_Read,Field_Number 0x4
01f5 027f       |    |		Execute	Discrete,Equal
01f6 6817       |h   |		Jump_Zero	0x20e
01f7 e03b       | ;  |		Load	0x0,0x3b
01f8 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
01f9 e02c       | ,  |		Load	0x0,0x2c
01fa 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
01fb e03b       | ;  |		Load	0x0,0x3b
01fc 3c1b       |<   |		Execute	Record,Field_Read,Field_Number 0x1b
01fd 0272       | r  |		Execute	Discrete,Minus
01fe 0272       | r  |		Execute	Discrete,Minus
01ff e03b       | ;  |		Load	0x0,0x3b
0200 381c       |8   |		Execute	Record,Field_Write,Field_Number 0x1c
0201 e03b       | ;  |		Load	0x0,0x3b
0202 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
0203 0c01       |    |		Execute_Immediate	Greater_Equal,0x1
0204 6805       |h   |		Jump_Zero	0x20a
0205 e03b       | ;  |		Load	0x0,0x3b
0206 3c1c       |<   |		Execute	Record,Field_Read,Field_Number 0x1c
0207 4800       |H   |		Short_Literal	0x0
0208 e02c       | ,  |		Load	0x0,0x2c
0209 1826       | &  |		Execute	Package,Field_Execute,Field_Number 0x26
020a 4801       |H   |		Short_Literal	0x1
020b 8072       | r  |		Call	0x0,0x72
020c 4800       |H   |		Short_Literal	0x0
020d a402       |    |		Store_Unchecked	0x2,0x2
020e 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
020f ; --------------------------------------------------------------------------------------
020f ; STRING TABLE
020f ; --------------------------------------------------------------------------------------
020f 0008       |    |		.STRTAB	0x0008->0x0213							; "Ignoring Column_Entry not bracketed by Begin(Table) and End(Table)"
0210 0048       | H  |		.STRTAB	0x0048->0x0234							; "Table wider than margins"
0211 005e       | ^  |		.STRTAB	0x005e->0x0240							; "Table column headings exceed page size"
0212 0082       |    |		.STREND 0x0082->0x0253
0213 4967 6e6f  |Igno|		.STRTAB_STRINGS
0253 0000 0000  |    |		.BLANK	0000[0x5]
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug Table
0258 ; --------------------------------------------------------------------------------------
0258 0004 000f  |    |		.DEBUG4	0x0004,0x000f,0x47fe,0x0000,0x0001,0x0000
025e 36b4 51e1  |6 Q |		.XXX[0x1a2]
0260 89de 72b6  |  r |
0262 4ab7 d800  |J   |
0264 5c03 ed15  |\   |
0266 5d3e 1ab2  |]>  |
0268 62b7 6c1b  |b l |
026a a0b3 ccea  |    |
026c f00e 46b6  |  F |
026e 7ab4 6d1d  |z m |
0270 d1c9 b4ae  |    |
0272 92b6 9c09  |    |
0274 d266 92b5  | f  |
0276 21f7 5423  |! T#|
0278 140a 92b7  |    |
027a 0988 e6a6  |    |
027c 42b3 4e94  |B N |
027e 1468 5c0c  | h\ |
0280 4402 beb6  |D   |
0282 d108 4113  |  A |
0284 a2b2 cab5  |    |
0286 0ab1 9650  |   P|
0288 e41c baaa  |    |
028a 751f c032  |u  2|
028c b5ed 8c03  |    |
028e 3c14 8026  |<  &|
0290 f404 e00e  |    |
0292 a8a1 8c02  |    |
0294 9554 58b9  | TX |
0296 806f 6ead  | on |
0298 f47a ec6a  | z j|
029a 757d 19c0  |u}  |
029c 64c0 54ba  |d T |
029e 41bf 7983  |A y |
02a0 d833 b509  | 3  |
02a2 3945 dc41  |9E A|
02a4 5837 d2b6  |X7  |
02a6 f00f dab6  |    |
02a8 cc0f e2b7  |    |
02aa 781a 1450  |x  P|
02ac 9996 64c8  |  d |
02ae 64c2 1cfd  |d   |
02b0 9ab4 6820  |  h |
02b2 7003 dab0  |p   |
02b4 7801 912c  |x  ,|
02b6 36ba 6808  |6 h |
02b8 3eba 9103  |>   |
02ba 882e acd5  | .  |
02bc 3426 6809  |4&h |
02be d5f1 18df  |    |
02c0 180c 4abb  |  J |
02c2 ed14 6aba  |  j |
02c4 1cfc 76b8  |  v |
02c6 a4a7 6428  |  d(|
02c8 701d 8aad  |p   |
02ca 981f 2c01  |  , |
02cc 4cab aeaf  |L   |
02ce d024 fe88  | $  |
02d0 9819 b2ac  |    |
02d2 8a6e f00f  | n  |
02d4 aeac e157  |   W|
02d6 b401 469f  |  F |
02d8 2c05 a845  |,  E|
02da b003 e401  |    |
02dc 62b2 5409  |b T |
02de 358c eab8  |5   |
02e0 6abb 1ab5  |j   |
02e2 4cd8 14c0  |L   |
02e4 b26e a150  | n P|
02e6 8c34 9013  | 4  |
02e8 d2b7 5d08  |  ] |
02ea aeba 3c2d  |  <-|
02ec b44e bc33  | N 3|
02ee 8411 c17e  |   ~|
02f0 fa6a 96af  | j  |
02f2 0268 cc15  | h  |
02f4 f418 4402  |  D |
02f6 b03b 49e1  | ;I |
02f8 818d 902f  |   /|
02fa 8eb5 0819  |    |
02fc b6a6 e0ef  |    |
02fe 7008 3810  |p 8 |
0300 5a74 a5b3  |Zt  |
0302 0848 2030  | H 0|
0304 d67e da4c  | ~ L|
0306 a839 0184  | 9  |
0308 dda5 dc53  |   S|
030a 6180 3812  |a 8 |
030c 1451 c07e  | Q ~|
030e 5d38 e41d  |]8  |
0310 f829 3424  | )4$|
0312 ec05 d5f0  |    |
0314 8688 7eb9  |  ~ |
0316 0eb4 81a9  |    |
0318 0975 052a  | u *|
031a 41bd 785d  |A x]|
031c cab8 a4a4  |    |
031e 6531 890d  |e1  |
0320 880d 981f  |    |
0322 ac01 26b8  |  & |
0324 b6b9 e09d  |    |
0326 1407 3001  |  0 |
0328 b9e6 9863  |   c|
032a 7aad e2bb  |z   |
032c a623 be68  | # h|
032e ed76 6dd5  | vm |
0330 70e6 6869  |p hi|
0332 16b9 feb9  |    |
0334 5c02 06b8  |\   |
0336 d8ed 8c00  |    |
0338 b2b9 2eba  |  . |
033a 30c8 743d  |0 t=|
033c 526a d543  |Rj C|
033e d818 ada8  |    |
0340 7d16 511c  |} Q |
0342 596a b00d  |Yj  |
0344 9003 e4e5  |    |
0346 1913 4644  |  FD|
0348 829e 7e54  |  ~T|
034a 8a52 7451  | RtQ|
034c ce1b 1cd4  |    |
034e a947 a9db  | G  |
0350 c1c6 ee55  |   U|
0352 6913 200e  |i   |
0354 7eb9 3476  |~ 4v|
0356 02b6 65aa  |  e |
0358 0168 6c75  | hlu|
035a 0802 0401  |    |
035c 6013 6aa6  |` j |
035e 1c1a 2402  |  $ |
0360 cc10 c003  |    |
0362 3c17 dd62  |<  b|
0364 9e6c 5477  | lTw|
0366 321d f1c5  |2   |
0368 cc69 3002  | i0 |
036a 7d83 882c  |}  ,|
036c b94b beb2  | K  |
036e 0cb5 7cdb  |  | |
0370 2aba 380e  |* 8 |
0372 a001 c468  |   h|
0374 a9d2 2403  |  $ |
0376 981d 6cf5  |  l |
0378 60c5 8e5f  |`  _|
037a 05a4 3a5f  |  :_|
037c d9cc e42e  |   .|
037e 158e 2806  |  ( |
0380 8002 6c1c  |  l |
0382 2882 2402  |( $ |
0384 5070 7458  |PptX|
0386 1830 fe76  | 0 v|
0388 7809 ac97  |x   |
038a 201e 641a  |  d |
038c 6868 4430  |hhD0|
038e c001 a802  |    |
0390 b008 8c30  |   0|
0392 3a1b c012  |:   |
0394 51d0 4430  |Q D0|
0396 c47c 4684  | |F |
0398 1051 e258  | Q X|
039a 9d0d 3ea5  |  > |
039c 5003 1401  |P   |
039e 4852 2001  |HR  |
03a0 5052 8001  |PR  |
03a2 29f2 62a8  |) b |
03a4 2400 0c48  |$  H|
03a6 02bd 1433  |   3|
03a8 9c01 f038  |   8|
03aa 869a a000  |    |
03ac 7038 8c48  |p8 H|
03ae f88a 42b8  |  B |
03b0 dc39 4002  | 9@ |
03b2 1003 6038  |  `8|
03b4 16be 6d34  |  m4|
03b6 e195 e838  |   8|
03b8 b0a2 ee64  |   d|
03ba 0ebf b2a1  |    |
03bc dc33 8032  | 3 2|
03be 1802 6868  |  hh|
03c0 e4b3 d6bb  |    |
03c2 81d2 bc15  |    |
03c4 6ceb 11e1  |l   |
03c6 a001 1911  |    |
03c8 9013 3185  |  1 |
03ca 0eaa d67b  |   {|
03cc 15b5 8014  |    |
03ce a41f 4818  |  H |
03d0 402a 8493  |@*  |
03d2 f6a8 04db  |    |
03d4 2c04 8c3f  |,  ?|
03d6 29b4 a058  |)  X|
03d8 babc 2050  |   P|
03da 6813 f06f  |h  o|
03dc 068d f401  |    |
03de f42c cc03  | ,  |
03e0 c9d1 584b  |  XK|
03e2 382b b0d1  |8+  |
03e4 6587 7193  |e q |
03e6 a835 6d55  | 5mU|
03e8 8224 ba32  | $ 2|
03ea 6c02 eaa7  |l   |
03ec 74d9 1401  |t   |
03ee a227 045a  | ' Z|
03f0 6c11 06be  |l   |
03f2 e86e 2c4e  | n,N|
03f4 8c05 d0da  |    |
03f6 5c21 7e4c  |\!~L|
03f8 cd9c 08dc  |    |
03fa 0eb0 bc14  |    |
03fc f0d7 140c  |    |
03fe 0a20 ec65  |   e|