|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
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 334b 6329 |3Kc)| .XXX[0xa4]
0260 037b 73a3 | {s |
0262 7903 a343 |y C|
0264 2800 0000 |( |
0266 8800 0002 | |
0268 7102 9b2b |q +|
026a a399 03a3 | |
026c 4329 031b |C) |
026e ab93 932b | +|
0270 73a1 6b7b |s k{|
0272 aba3 83ab | |
0274 a103 334b | 3K|
0276 6329 03a3 |c) |
0278 7903 a343 |y C|
027a 2903 9b83 |) |
027c 2b1b 4b33 |+ K3|
027e 4b2b 2103 |K+! |
0280 334b 6329 |3Kc)|
0282 6103 83ab |a |
0284 9b43 2b99 | C+ |
0286 03a3 430b | C |
0288 a103 334b | 3K|
028a 6329 037b |c) {|
028c 73a3 7903 |s y |
028e a343 2800 | C( |
0290 0003 0800 | |
0292 0002 139b | |
0294 a30b 1b59 | Y|
0296 037b 3103 | {1 |
0298 7bab a383 |{ |
029a aba1 0333 | 3|
029c 4b63 2b99 |Kc+ |
029e 6103 0b73 |a s|
02a0 2103 9b2b |! +|
02a2 a399 03a3 | |
02a4 4329 0333 |C) 3|
02a6 4b63 a32b |Kc +|
02a8 9103 a379 | y|
02aa 03a3 4329 | C)|
02ac 039b 832b | +|
02ae 1b4b 334b | K3K|
02b0 2b21 03b3 |+! |
02b2 0b63 ab29 | c )|
02b4 7000 0003 |p |
02b6 0000 0002 | |
02b8 1903 9ba3 | |
02ba 0b1b 5903 | Y |
02bc 7b31 037b |{1 {|
02be aba3 83ab | |
02c0 a103 334b | 3K|
02c2 632b 9961 |c+ a|
02c4 030b 7321 | s!|
02c6 039b 2ba3 | + |
02c8 9903 a343 | C|
02ca 2903 334b |) 3K|
02cc 63a3 2b91 |c + |
02ce 03a3 7903 | y |
02d0 a343 2903 | C) |
02d2 9b83 2b1b | + |
02d4 4b33 4b2b |K3K+|
02d6 2103 b30b |! |
02d8 63ab 2970 |c )p|
02da 0000 0300 | |
02dc 0000 0219 | |
02de 039b a30b | |
02e0 1b59 037b | Y {|
02e2 3103 7bab |1 { |
02e4 a383 aba1 | |
02e6 0333 4b63 | 3Kc|
02e8 2b99 6103 |+ a |
02ea 0b73 2103 | s! |
02ec 9b2b a399 | + |
02ee 03a3 4329 | C)|
02f0 0333 4b63 | 3Kc|
02f2 a32b 9103 | + |
02f4 a379 03a3 | y |
02f6 4329 039b |C) |
02f8 832b 1b4b | + K|
02fa 334b 2b21 |3K+!|
02fc 03b3 0b63 | c|
02fe ab29 7000 | )p |
0300 0000 0800 | |
0302 0000 0000 | | .BLANK 0000[0x4]
0306 0001 2000 | | .XXX[0xcb]
0308 0000 0000 | |
030a 0001 1800 | |
030c 0001 3000 | 0 |
030e 0002 4a73 | Js|
0310 7ba3 29d1 |{ ) |
0312 02a3 434b | CK|
0314 9903 8393 | |
0316 7b1b 2b23 |{ +#|
0318 ab93 2903 | ) |
031a 4b99 03a3 |K |
031c 4329 039b |C) |
031e 0b6b 2903 | k) |
0320 0b99 03a3 | |
0322 4329 029b |C) |
0324 2ba2 fa7b |+ {|
0326 aba3 83ab | |
0328 a103 8393 | |
032a 7b1b 2b23 |{ +#|
032c ab93 2961 | )a|
032e 032b c31b | + |
0330 2b83 a103 |+ |
0332 a343 0ba0 | C |
0334 0000 0128 | (|
0336 0000 0251 | Q|
0338 0273 7ba3 | s{ |
033a 29d1 02a3 |) |
033c 434b 9903 |CK |
033e 8393 7b1b | { |
0340 2b23 ab93 |+# |
0342 2903 4b99 |) K |
0344 03a3 4329 | C)|
0346 039b 0b6b | k|
0348 2903 0b99 |) |
034a 03a3 4329 | C)|
034c 029b 2ba2 | + |
034e fa7b aba3 | { |
0350 83ab a103 | |
0352 8393 7b1b | { |
0354 2b23 ab93 |+# |
0356 2961 032b |)a +|
0358 c31b 2b83 | + |
035a a103 a343 | C|
035c 0ba0 0000 | |
035e 0128 0000 | ( |
0360 0251 0273 | Q s|
0362 7ba3 29d1 |{ ) |
0364 02a3 434b | CK|
0366 9903 8393 | |
0368 7b1b 2b23 |{ +#|
036a ab93 2903 | ) |
036c 4b99 03a3 |K |
036e 4329 039b |C) |
0370 0b6b 2903 | k) |
0372 0b99 03a3 | |
0374 4329 029b |C) |
0376 2ba2 fa7b |+ {|
0378 aba3 83ab | |
037a a103 8393 | |
037c 7b1b 2b23 |{ +#|
037e ab93 2961 | )a|
0380 032b c31b | + |
0382 2b83 a103 |+ |
0384 a343 0ba0 | C |
0386 0000 0388 | |
0388 0000 0143 | C|
038a a343 4b99 | CK |
038c 0383 937b | {|
038e 1b2b 23ab | +# |
0390 9329 030b | ) |
0392 639b 7903 |c y |
0394 9b2b a399 | + |
0396 03a3 4329 | C)|
0398 0363 7b39 | c{9|
039a 0333 4b63 | 3Kc|
039c a32b 9170 | + p|
039e 0000 0380 | |
03a0 0000 0149 | I|
03a2 03a3 434b | CK|
03a4 9903 8393 | |
03a6 7b1b 2b23 |{ +#|
03a8 ab93 2903 | ) |
03aa 0b63 9b79 | c y|
03ac 039b 2ba3 | + |
03ae 9903 a343 | C|
03b0 2903 637b |) c{|
03b2 3903 334b |9 3K|
03b4 63a3 2b91 |c + |
03b6 7000 0003 |p |
03b8 8000 0001 | |
03ba 4903 a343 |I C|
03bc 4b99 0383 |K |
03be 937b 1b2b | { +|
03c0 23ab 9329 |# )|
03c2 030b 639b | c |
03c4 7903 9b2b |y +|
03c6 a399 03a3 | |
03c8 4329 0363 |C) c|
03ca 7b39 0333 |{9 3|
03cc 4b63 a32b |Kc +|
03ce 9170 0000 | p |
03d0 0008 | |
03d1 0000 0000 | | .BLANK 0000[0x5]
03d6 00d0 0000 | | .XXX[0x2a]
03d8 0000 0000 | |
03da 00c8 0000 | |
03dc 00e0 0000 | |
03de 024a a343 | J C|
03e0 4b99 0383 |K |
03e2 937b 1b2b | { +|
03e4 23ab 9329 |# )|
03e6 039b 2ba3 | + |
03e8 9903 a343 | C|
03ea 2903 b30b |) |
03ec 63ab 2903 |c ) |
03ee 7b31 021b |{1 |
03f0 ab93 932b | +|
03f2 73a2 fa7b |s {|
03f4 aba3 83ab | |
03f6 a103 a379 | y|
03f8 0313 2903 | ) |
03fa a343 2903 | C) |
03fc 9b83 2b1b | + |
03fe 4b33 4b2b |K3K+|