|
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 0002 0000 | | .XXX[0x3]
0260 0014 | |
0261 0000 0000 | | .BLANK 0000[0x2e]
028f 0801 4000 | @ | .XXX[0xc]
0291 0000 0000 | |
0293 0010 0000 | |
0295 0088 0000 | |
0297 0000 4000 | @ |
0299 0002 8000 | |
029b 0000 0000 | | .BLANK 0000[0x2d]
02c8 0100 2800 | ( | .XXX[0xc]
02ca 0000 0000 | |
02cc 0002 0000 | |
02ce 0011 0000 | |
02d0 0000 0800 | |
02d2 0000 5000 | P |
02d4 0000 0000 | | .BLANK 0000[0x2d]
0301 0020 0500 | | .XXX[0xc]
0303 0000 0000 | |
0305 0000 4000 | @ |
0307 0002 2000 | |
0309 0000 0100 | |
030b 0000 0a00 | |
030d 0000 0000 | | .BLANK 0000[0x2d]
033a 0004 00a0 | | .XXX[0xc]
033c 0000 0000 | |
033e 0000 0800 | |
0340 0000 4400 | D |
0342 0000 0020 | |
0344 0000 0140 | @|
0346 0000 0000 | | .BLANK 0000[0x2e]
0374 8014 0000 | | .XXX[0xb]
0376 0000 0000 | |
0378 0100 0000 | |
037a 0880 0000 | |
037c 0004 0000 | |
037e 0028 | ( |
037f 0000 0000 | | .BLANK 0000[0x2e]
03ad 1002 8000 | | .XXX[0xb]
03af 0000 0000 | |
03b1 0020 0000 | |
03b3 0110 0000 | |
03b5 0000 8000 | |
03b7 0005 | |
03b8 0000 0000 | | .BLANK 0000[0x48]