|
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: 3072 (0xc00)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0a7cf5
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦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 0488 | | .CONST 0x0488 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8002 | | .CONST 0x8002 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 001a | | .CONST 0x001a ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 000a | | .CONST 0x000a ; Number of locals
000b INIT_0008:
000b e5ff | | Load 0x2,-0x1
000c e00a | | Load 0x0,0xa
000d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
000e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
000f 00e3 | | Load_Encached Natural_Cache
0010 03e9 | | Declare_Variable Discrete,Duplicate
0011 03e9 | | Declare_Variable Discrete,Duplicate
0012 00e1 | | Load_Encached Boolean_Cache
0013 00e2 | | Load_Encached Integer_Cache
0014 e00a | | Load 0x0,0xa
0015 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0016 029f 019b | | Declare_Subprogram INIT_0198,For_Call
0018 029f 025b | [| Declare_Subprogram INIT_0258,For_Call
001a BODY_0008:
001a e5fe | | Load 0x2,-0x2
001b 4602 |F | Jump_Case 0x3
001c 780c |x | Jump 0x29 ; case 0x0
001d 7969 |yi | Jump 0x187 ; case 0x1
001e 7800 |x | Jump 0x1f ; case 0x2
001f e016 | | Load 0x0,0x16
0020 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0021 6802 |h | Jump_Zero 0x24
0022 840a | | Call 0x2,0xa
0023 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0024 0092 0399 | | Action Push_String_Extended,0x399 ; "Ignoring extra End(Table) command"
0026 e013 | | Load 0x0,0x13
0027 180e | | Execute Package,Field_Execute,Field_Number 0xe
0028 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0029 e016 | | Load 0x0,0x16
002a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
002b 6805 |h | Jump_Zero 0x31
002c 0092 039a | | Action Push_String_Extended,0x39a ; "Table(TEXT) found while building a table. The second table is ignored"
002e e013 | | Load 0x0,0x13
002f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0030 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0031 4800 |H | Short_Literal 0x0
0032 e402 | | Load 0x2,0x2
0033 480a |H | Short_Literal 0xa
0034 e014 | | Load 0x0,0x14
0035 181e | | Execute Package,Field_Execute,Field_Number 0x1e
0036 a404 | | Store_Unchecked 0x2,0x4
0037 e404 | | Load 0x2,0x4
0038 7005 |p | Jump_Nonzero 0x3e
0039 0092 039b | | Action Push_String_Extended,0x39b ; "Incorrect input format for table"
003b e013 | | Load 0x0,0x13
003c 180e | | Execute Package,Field_Execute,Field_Number 0xe
003d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
003e 4857 |HW | Short_Literal 0x57
003f 8003 | | Call 0x0,0x3
0040 8409 | | Call 0x2,0x9
0041 4800 |H | Short_Literal 0x0
0042 e402 | | Load 0x2,0x2
0043 01dd | | Execute Vector,First
0044 e404 | | Load 0x2,0x4
0045 e402 | | Load 0x2,0x2
0046 01cf | | Execute Vector,Slice_Read
0047 482c |H, | Short_Literal 0x2c
0048 e014 | | Load 0x0,0x14
0049 181e | | Execute Package,Field_Execute,Field_Number 0x1e
004a a405 | | Store_Unchecked 0x2,0x5
004b e405 | | Load 0x2,0x5
004c 6818 |h | Jump_Zero 0x65
004d e405 | | Load 0x2,0x5
004e 0a01 | | Execute_Immediate Plus,0x1
004f 00d8 | | Load_Top At_Offset_0
0050 00e2 | | Load_Encached Integer_Cache
0051 0260 | ` | Execute Discrete,In_Type
0052 7001 |p | Jump_Nonzero 0x54
0053 0801 | | Execute_Immediate Raise,0x1
0054 e404 | | Load 0x2,0x4
0055 0aff | | Execute_Immediate Plus,-0x1
0056 e402 | | Load 0x2,0x2
0057 01cf | | Execute Vector,Slice_Read
0058 e00a | | Load 0x0,0xa
0059 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
005b a408 | | Store_Unchecked 0x2,0x8
005c e408 | | Load 0x2,0x8
005d e007 | | Load 0x0,0x7
005e 1849 | I | Execute Package,Field_Execute,Field_Number 0x49
005f e408 | | Load 0x2,0x8
0060 e00a | | Load 0x0,0xa
0061 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0062 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0063 c408 | | Store 0x2,0x8
0064 7802 |x | Jump 0x67
0065 e404 | | Load 0x2,0x4
0066 a405 | | Store_Unchecked 0x2,0x5
0067 00e1 | | Load_Encached Boolean_Cache
0068 00e2 | | Load_Encached Integer_Cache
0069 480a |H | Short_Literal 0xa
006a e402 | | Load 0x2,0x2
006b 01dd | | Execute Vector,First
006c e405 | | Load 0x2,0x5
006d 0aff | | Execute_Immediate Plus,-0x1
006e e402 | | Load 0x2,0x2
006f 01cf | | Execute Vector,Slice_Read
0070 e014 | | Load 0x0,0x14
0071 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0072 c407 | | Store 0x2,0x7
0073 c406 | | Store 0x2,0x6
0074 e406 | | Load 0x2,0x6
0075 6806 |h | Jump_Zero 0x7c
0076 e407 | | Load 0x2,0x7
0077 0d01 | | Execute_Immediate Less,0x1
0078 e407 | | Load 0x2,0x7
0079 0c15 | | Execute_Immediate Greater_Equal,0x15
007a 0278 | x | Execute Discrete,Or
007b 6806 |h | Jump_Zero 0x82
007c 0092 039c | | Action Push_String_Extended,0x39c ; "Incorrect input format for table (bad column count)"
007e e013 | | Load 0x0,0x13
007f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0080 840a | | Call 0x2,0xa
0081 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0082 e404 | | Load 0x2,0x4
0083 0a01 | | Execute_Immediate Plus,0x1
0084 c403 | | Store 0x2,0x3
0085 4800 |H | Short_Literal 0x0
0086 e403 | | Load 0x2,0x3
0087 e402 | | Load 0x2,0x2
0088 01dc | | Execute Vector,Last
0089 e402 | | Load 0x2,0x2
008a 01cf | | Execute Vector,Slice_Read
008b 480a |H | Short_Literal 0xa
008c e014 | | Load 0x0,0x14
008d 181e | | Execute Package,Field_Execute,Field_Number 0x1e
008e a404 | | Store_Unchecked 0x2,0x4
008f 4820 |H | Short_Literal 0x20
0090 e403 | | Load 0x2,0x3
0091 e404 | | Load 0x2,0x4
0092 0aff | | Execute_Immediate Plus,-0x1
0093 e402 | | Load 0x2,0x2
0094 01cf | | Execute Vector,Slice_Read
0095 e014 | | Load 0x0,0x14
0096 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0097 e00a | | Load 0x0,0xa
0098 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0099 1817 | | Execute Package,Field_Execute,Field_Number 0x17
009a a408 | | Store_Unchecked 0x2,0x8
009b e408 | | Load 0x2,0x8
009c e00a | | Load 0x0,0xa
009d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009e 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009f 6808 |h | Jump_Zero 0xa8
00a0 e408 | | Load 0x2,0x8
00a1 e007 | | Load 0x0,0x7
00a2 184a | J | Execute Package,Field_Execute,Field_Number 0x4a
00a3 e408 | | Load 0x2,0x8
00a4 e00a | | Load 0x0,0xa
00a5 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00a6 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00a7 c408 | | Store 0x2,0x8
00a8 e404 | | Load 0x2,0x4
00a9 0a01 | | Execute_Immediate Plus,0x1
00aa c403 | | Store 0x2,0x3
00ab 4800 |H | Short_Literal 0x0
00ac e403 | | Load 0x2,0x3
00ad e402 | | Load 0x2,0x2
00ae 01dc | | Execute Vector,Last
00af e402 | | Load 0x2,0x2
00b0 01cf | | Execute Vector,Slice_Read
00b1 480a |H | Short_Literal 0xa
00b2 e014 | | Load 0x0,0x14
00b3 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00b4 a404 | | Store_Unchecked 0x2,0x4
00b5 4820 |H | Short_Literal 0x20
00b6 e403 | | Load 0x2,0x3
00b7 e404 | | Load 0x2,0x4
00b8 0aff | | Execute_Immediate Plus,-0x1
00b9 e402 | | Load 0x2,0x2
00ba 01cf | | Execute Vector,Slice_Read
00bb e014 | | Load 0x0,0x14
00bc 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00bd e00a | | Load 0x0,0xa
00be 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00bf 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00c0 a408 | | Store_Unchecked 0x2,0x8
00c1 e408 | | Load 0x2,0x8
00c2 e00a | | Load 0x0,0xa
00c3 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00c4 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00c5 6809 |h | Jump_Zero 0xcf
00c6 4800 |H | Short_Literal 0x0
00c7 e408 | | Load 0x2,0x8
00c8 e007 | | Load 0x0,0x7
00c9 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
00ca e408 | | Load 0x2,0x8
00cb e00a | | Load 0x0,0xa
00cc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ce c408 | | Store 0x2,0x8
00cf e404 | | Load 0x2,0x4
00d0 0a01 | | Execute_Immediate Plus,0x1
00d1 c403 | | Store 0x2,0x3
00d2 00cf | | Action Mark_Auxiliary
00d3 e407 | | Load 0x2,0x7
00d4 4801 |H | Short_Literal 0x1
00d5 0263 | c | Execute Discrete,Above_Bound
00d6 7028 |p( | Jump_Nonzero 0xff
00d7 4800 |H | Short_Literal 0x0
00d8 e403 | | Load 0x2,0x3
00d9 e402 | | Load 0x2,0x2
00da 01dc | | Execute Vector,Last
00db e402 | | Load 0x2,0x2
00dc 01cf | | Execute Vector,Slice_Read
00dd 480a |H | Short_Literal 0xa
00de e014 | | Load 0x0,0x14
00df 181e | | Execute Package,Field_Execute,Field_Number 0x1e
00e0 a404 | | Store_Unchecked 0x2,0x4
00e1 e404 | | Load 0x2,0x4
00e2 7006 |p | Jump_Nonzero 0xe9
00e3 0092 039d | | Action Push_String_Extended,0x39d ; "Column descriptor has bad format in table"
00e5 e013 | | Load 0x0,0x13
00e6 180e | | Execute Package,Field_Execute,Field_Number 0xe
00e7 840a | | Call 0x2,0xa
00e8 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00e9 e403 | | Load 0x2,0x3
00ea e404 | | Load 0x2,0x4
00eb 0aff | | Execute_Immediate Plus,-0x1
00ec e402 | | Load 0x2,0x2
00ed 01cf | | Execute Vector,Slice_Read
00ee e00a | | Load 0x0,0xa
00ef 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f0 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00f1 a408 | | Store_Unchecked 0x2,0x8
00f2 e408 | | Load 0x2,0x8
00f3 e007 | | Load 0x0,0x7
00f4 1814 | | Execute Package,Field_Execute,Field_Number 0x14
00f5 e408 | | Load 0x2,0x8
00f6 e00a | | Load 0x0,0xa
00f7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f8 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f9 c408 | | Store 0x2,0x8
00fa e404 | | Load 0x2,0x4
00fb 0a01 | | Execute_Immediate Plus,0x1
00fc c403 | | Store 0x2,0x3
00fd 00c8 | | Action Pop_Auxiliary_Range
00fe 3fd8 |? | Loop_Increasing 0xd7
00ff 00c9 | | Action Pop_Auxiliary_Loop
0100 787e |x~ | Jump 0x17f
0101 4800 |H | Short_Literal 0x0
0102 e403 | | Load 0x2,0x3
0103 e402 | | Load 0x2,0x2
0104 01dc | | Execute Vector,Last
0105 e402 | | Load 0x2,0x2
0106 01cf | | Execute Vector,Slice_Read
0107 480a |H | Short_Literal 0xa
0108 e014 | | Load 0x0,0x14
0109 181e | | Execute Package,Field_Execute,Field_Number 0x1e
010a a404 | | Store_Unchecked 0x2,0x4
010b e404 | | Load 0x2,0x4
010c 7004 |p | Jump_Nonzero 0x111
010d e402 | | Load 0x2,0x2
010e 01dc | | Execute Vector,Last
010f c404 | | Store 0x2,0x4
0110 7803 |x | Jump 0x114
0111 e404 | | Load 0x2,0x4
0112 0aff | | Execute_Immediate Plus,-0x1
0113 c404 | | Store 0x2,0x4
0114 4800 |H | Short_Literal 0x0
0115 a407 | | Store_Unchecked 0x2,0x7
0116 00cf | | Action Mark_Auxiliary
0117 784b |xK | Jump 0x163
0118 e403 | | Load 0x2,0x3
0119 a405 | | Store_Unchecked 0x2,0x5
011a 00cf | | Action Mark_Auxiliary
011b 4800 |H | Short_Literal 0x0
011c e405 | | Load 0x2,0x5
011d e404 | | Load 0x2,0x4
011e e402 | | Load 0x2,0x2
011f 01cf | | Execute Vector,Slice_Read
0120 0092 039e | | Action Push_String_Extended,0x39e ; "~>"
0122 e014 | | Load 0x0,0x14
0123 181d | | Execute Package,Field_Execute,Field_Number 0x1d
0124 a405 | | Store_Unchecked 0x2,0x5
0125 e405 | | Load 0x2,0x5
0126 700f |p | Jump_Nonzero 0x136
0127 4820 |H | Short_Literal 0x20
0128 e403 | | Load 0x2,0x3
0129 e404 | | Load 0x2,0x4
012a e402 | | Load 0x2,0x2
012b 01cf | | Execute Vector,Slice_Read
012c e014 | | Load 0x0,0x14
012d 181c | | Execute Package,Field_Execute,Field_Number 0x1c
012e e00a | | Load 0x0,0xa
012f 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0130 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0131 a408 | | Store_Unchecked 0x2,0x8
0132 e404 | | Load 0x2,0x4
0133 0a01 | | Execute_Immediate Plus,0x1
0134 c403 | | Store 0x2,0x3
0135 7820 |x | Jump 0x156
0136 e405 | | Load 0x2,0x5
0137 e403 | | Load 0x2,0x3
0138 027d | } | Execute Discrete,Greater
0139 680a |h | Jump_Zero 0x144
013a e405 | | Load 0x2,0x5
013b 0aff | | Execute_Immediate Plus,-0x1
013c e402 | | Load 0x2,0x2
013d 01d7 | | Execute Vector,Field_Read
013e 0f7e | ~ | Execute_Immediate Equal,0x7e
013f 6804 |h | Jump_Zero 0x144
0140 e405 | | Load 0x2,0x5
0141 0a01 | | Execute_Immediate Plus,0x1
0142 c405 | | Store 0x2,0x5
0143 7810 |x | Jump 0x154
0144 4820 |H | Short_Literal 0x20
0145 e403 | | Load 0x2,0x3
0146 e405 | | Load 0x2,0x5
0147 0aff | | Execute_Immediate Plus,-0x1
0148 e402 | | Load 0x2,0x2
0149 01cf | | Execute Vector,Slice_Read
014a e014 | | Load 0x0,0x14
014b 181c | | Execute Package,Field_Execute,Field_Number 0x1c
014c e00a | | Load 0x0,0xa
014d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
014e 1817 | | Execute Package,Field_Execute,Field_Number 0x17
014f a408 | | Store_Unchecked 0x2,0x8
0150 e405 | | Load 0x2,0x5
0151 0a02 | | Execute_Immediate Plus,0x2
0152 c403 | | Store 0x2,0x3
0153 7802 |x | Jump 0x156
0154 00c9 | | Action Pop_Auxiliary_Loop
0155 7fc5 | | Jump 0x11b
0156 00ce | | Action Pop_Auxiliary
0157 e408 | | Load 0x2,0x8
0158 e007 | | Load 0x0,0x7
0159 1815 | | Execute Package,Field_Execute,Field_Number 0x15
015a e408 | | Load 0x2,0x8
015b e00a | | Load 0x0,0xa
015c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
015d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
015e c408 | | Store 0x2,0x8
015f e407 | | Load 0x2,0x7
0160 0a01 | | Execute_Immediate Plus,0x1
0161 c407 | | Store 0x2,0x7
0162 00c9 | | Action Pop_Auxiliary_Loop
0163 e403 | | Load 0x2,0x3
0164 e404 | | Load 0x2,0x4
0165 027a | z | Execute Discrete,Less_Equal
0166 77b1 |w | Jump_Nonzero 0x118
0167 00c9 | | Action Pop_Auxiliary_Loop
0168 e016 | | Load 0x0,0x16
0169 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
016a e407 | | Load 0x2,0x7
016b 0a01 | | Execute_Immediate Plus,0x1
016c 00d8 | | Load_Top At_Offset_0
016d 00e2 | | Load_Encached Integer_Cache
016e 0260 | ` | Execute Discrete,In_Type
016f 7001 |p | Jump_Nonzero 0x171
0170 0801 | | Execute_Immediate Raise,0x1
0171 0263 | c | Execute Discrete,Above_Bound
0172 7007 |p | Jump_Nonzero 0x17a
0173 e00a | | Load 0x0,0xa
0174 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0175 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0176 e007 | | Load 0x0,0x7
0177 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0178 00c8 | | Action Pop_Auxiliary_Range
0179 3ff9 |? | Loop_Increasing 0x173
017a 00ce | | Action Pop_Auxiliary
017b e404 | | Load 0x2,0x4
017c 0a02 | | Execute_Immediate Plus,0x2
017d c403 | | Store 0x2,0x3
017e 00c9 | | Action Pop_Auxiliary_Loop
017f e403 | | Load 0x2,0x3
0180 e402 | | Load 0x2,0x2
0181 01dc | | Execute Vector,Last
0182 027c | | | Execute Discrete,Less
0183 777d |w} | Jump_Nonzero 0x101
0184 00ce | | Action Pop_Auxiliary
0185 840a | | Call 0x2,0xa
0186 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0187 e016 | | Load 0x0,0x16
0188 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0189 6807 |h | Jump_Zero 0x191
018a 0092 039f | | Action Push_String_Extended,0x39f ; "Begin(Table) command found while building a table. The results are unpredictable"
018c e013 | | Load 0x0,0x13
018d 180e | | Execute Package,Field_Execute,Field_Number 0xe
018e 4857 |HW | Short_Literal 0x57
018f 8002 | | Call 0x0,0x2
0190 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0191 8409 | | Call 0x2,0x9
0192 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 4801 |H | Short_Literal 0x1
019c e016 | | Load 0x0,0x16
019d 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
019e 4801 |H | Short_Literal 0x1
019f 4800 |H | Short_Literal 0x0
01a0 e008 | | Load 0x0,0x8
01a1 3c40 |<@ | Execute Record,Field_Read,Field_Number 0x40
01a2 e006 | | Load 0x0,0x6
01a3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01a4 e008 | | Load 0x0,0x8
01a5 3c36 |<6 | Execute Record,Field_Read,Field_Number 0x36
01a6 e004 | | Load 0x0,0x4
01a7 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
01a8 4be8 |K | Short_Literal 0x3e8
01a9 e004 | | Load 0x0,0x4
01aa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01ab e008 | | Load 0x0,0x8
01ac 3c36 |<6 | Execute Record,Field_Read,Field_Number 0x36
01ad 0273 | s | Execute Discrete,Plus
01ae 0271 | q | Execute Discrete,Times
01af e00a | | Load 0x0,0xa
01b0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
01b1 00d9 | | Load_Top At_Offset_1
01b2 00d0 | | Action Swap_Control
01b3 0260 | ` | Execute Discrete,In_Type
01b4 7001 |p | Jump_Nonzero 0x1b6
01b5 0801 | | Execute_Immediate Raise,0x1
01b6 e00b | | Load 0x0,0xb
01b7 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01b8 e00c | | Load 0x0,0xc
01b9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01ba 00d8 | | Load_Top At_Offset_0
01bb e00c | | Load 0x0,0xc
01bc 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01bd 7003 |p | Jump_Nonzero 0x1c1
01be e00d | | Load 0x0,0xd
01bf 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01c0 0257 | W | Execute Discrete,Raise
01c1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01c2 e004 | | Load 0x0,0x4
01c3 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
01c4 e009 | | Load 0x0,0x9
01c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c6 4801 |H | Short_Literal 0x1
01c7 e009 | | Load 0x0,0x9
01c8 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
01c9 4800 |H | Short_Literal 0x0
01ca e009 | | Load 0x0,0x9
01cb 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01cc e009 | | Load 0x0,0x9
01cd 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ce 4801 |H | Short_Literal 0x1
01cf e016 | | Load 0x0,0x16
01d0 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
01d1 4800 |H | Short_Literal 0x0
01d2 e016 | | Load 0x0,0x16
01d3 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
01d4 4800 |H | Short_Literal 0x0
01d5 e016 | | Load 0x0,0x16
01d6 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
01d7 e016 | | Load 0x0,0x16
01d8 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01d9 e00a | | Load 0x0,0xa
01da 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01db 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01dc e016 | | Load 0x0,0x16
01dd 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
01de e016 | | Load 0x0,0x16
01df 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
01e0 e00a | | Load 0x0,0xa
01e1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01e2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01e3 e016 | | Load 0x0,0x16
01e4 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
01e5 e016 | | Load 0x0,0x16
01e6 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
01e7 0092 03a0 | | Action Push_String_Extended,0x3a0 ; "(continued)"
01e9 e00a | | Load 0x0,0xa
01ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01eb 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ec e016 | | Load 0x0,0x16
01ed 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
01ee e008 | | Load 0x0,0x8
01ef 3c39 |<9 | Execute Record,Field_Read,Field_Number 0x39
01f0 e016 | | Load 0x0,0x16
01f1 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
01f2 e008 | | Load 0x0,0x8
01f3 3c3a |<: | Execute Record,Field_Read,Field_Number 0x3a
01f4 e016 | | Load 0x0,0x16
01f5 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
01f6 e016 | | Load 0x0,0x16
01f7 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
01f8 e00a | | Load 0x0,0xa
01f9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01fa 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01fb e016 | | Load 0x0,0x16
01fc 380a |8 | Execute Record,Field_Write,Field_Number 0xa
01fd e016 | | Load 0x0,0x16
01fe 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
01ff e008 | | Load 0x0,0x8
0200 3c32 |<2 | Execute Record,Field_Read,Field_Number 0x32
0201 e00a | | Load 0x0,0xa
0202 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0203 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0204 e016 | | Load 0x0,0x16
0205 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0206 e008 | | Load 0x0,0x8
0207 3c3b |<; | Execute Record,Field_Read,Field_Number 0x3b
0208 e016 | | Load 0x0,0x16
0209 380b |8 | Execute Record,Field_Write,Field_Number 0xb
020a e008 | | Load 0x0,0x8
020b 3c3c |<< | Execute Record,Field_Read,Field_Number 0x3c
020c e016 | | Load 0x0,0x16
020d 380c |8 | Execute Record,Field_Write,Field_Number 0xc
020e 4800 |H | Short_Literal 0x0
020f e016 | | Load 0x0,0x16
0210 380e |8 | Execute Record,Field_Write,Field_Number 0xe
0211 4800 |H | Short_Literal 0x0
0212 e016 | | Load 0x0,0x16
0213 380f |8 | Execute Record,Field_Write,Field_Number 0xf
0214 e016 | | Load 0x0,0x16
0215 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0216 e00a | | Load 0x0,0xa
0217 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0218 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0219 e016 | | Load 0x0,0x16
021a 3810 |8 | Execute Record,Field_Write,Field_Number 0x10
021b e017 | | Load 0x0,0x17
021c 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
021d e016 | | Load 0x0,0x16
021e 3811 |8 | Execute Record,Field_Write,Field_Number 0x11
021f e008 | | Load 0x0,0x8
0220 3c37 |<7 | Execute Record,Field_Read,Field_Number 0x37
0221 e016 | | Load 0x0,0x16
0222 3812 |8 | Execute Record,Field_Write,Field_Number 0x12
0223 e008 | | Load 0x0,0x8
0224 3c38 |<8 | Execute Record,Field_Read,Field_Number 0x38
0225 e016 | | Load 0x0,0x16
0226 3813 |8 | Execute Record,Field_Write,Field_Number 0x13
0227 e008 | | Load 0x0,0x8
0228 3c35 |<5 | Execute Record,Field_Read,Field_Number 0x35
0229 e016 | | Load 0x0,0x16
022a 3814 |8 | Execute Record,Field_Write,Field_Number 0x14
022b e008 | | Load 0x0,0x8
022c 3c41 |<A | Execute Record,Field_Read,Field_Number 0x41
022d e016 | | Load 0x0,0x16
022e 3815 |8 | Execute Record,Field_Write,Field_Number 0x15
022f e008 | | Load 0x0,0x8
0230 3c42 |<B | Execute Record,Field_Read,Field_Number 0x42
0231 0c01 | | Execute_Immediate Greater_Equal,0x1
0232 6805 |h | Jump_Zero 0x238
0233 e008 | | Load 0x0,0x8
0234 3c42 |<B | Execute Record,Field_Read,Field_Number 0x42
0235 e016 | | Load 0x0,0x16
0236 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
0237 7807 |x | Jump 0x23f
0238 e004 | | Load 0x0,0x4
0239 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
023a e004 | | Load 0x0,0x4
023b 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
023c 0272 | r | Execute Discrete,Minus
023d e016 | | Load 0x0,0x16
023e 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
023f 4800 |H | Short_Literal 0x0
0240 e016 | | Load 0x0,0x16
0241 3817 |8 | Execute Record,Field_Write,Field_Number 0x17
0242 4800 |H | Short_Literal 0x0
0243 e016 | | Load 0x0,0x16
0244 3818 |8 | Execute Record,Field_Write,Field_Number 0x18
0245 4800 |H | Short_Literal 0x0
0246 e016 | | Load 0x0,0x16
0247 3819 |8 | Execute Record,Field_Write,Field_Number 0x19
0248 e009 | | Load 0x0,0x9
0249 1b12 | | Execute Package,Field_Read,Field_Number 0x12
024a e016 | | Load 0x0,0x16
024b 381a |8 | Execute Record,Field_Write,Field_Number 0x1a
024c e004 | | Load 0x0,0x4
024d 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
024e e016 | | Load 0x0,0x16
024f 381d |8 | Execute Record,Field_Write,Field_Number 0x1d
0250 e004 | | Load 0x0,0x4
0251 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0252 4800 |H | Short_Literal 0x0
0253 e009 | | Load 0x0,0x9
0254 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0255 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 0263 | c | .CONST 0x0263 ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0006 | | .CONST 0x0006 ; Number of locals
025b INIT_0258:
025b e00a | | Load 0x0,0xa
025c 1b10 | | Execute Package,Field_Read,Field_Number 0x10
025d e00a | | Load 0x0,0xa
025e 1b10 | | Execute Package,Field_Read,Field_Number 0x10
025f 03e9 | | Declare_Variable Discrete,Duplicate
0260 e009 | | Load 0x0,0x9
0261 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0262 03bd | | Declare_Variable Access,Duplicate
0263 BODY_0258:
0263 e016 | | Load 0x0,0x16
0264 3c14 |< | Execute Record,Field_Read,Field_Number 0x14
0265 6804 |h | Jump_Zero 0x26a
0266 0092 03a1 | | Action Push_String_Extended,0x3a1 ; "Floating tables are not yet implemented"
0268 e013 | | Load 0x0,0x13
0269 180f | | Execute Package,Field_Execute,Field_Number 0xf
026a e016 | | Load 0x0,0x16
026b 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
026c 6808 |h | Jump_Zero 0x275
026d 0092 03a2 | | Action Push_String_Extended,0x3a2 ; "No Column_Entry commands were provided"
026f e013 | | Load 0x0,0x13
0270 180e | | Execute Package,Field_Execute,Field_Number 0xe
0271 e009 | | Load 0x0,0x9
0272 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0273 e016 | | Load 0x0,0x16
0274 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0275 e016 | | Load 0x0,0x16
0276 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0277 0c01 | | Execute_Immediate Greater_Equal,0x1
0278 680b |h | Jump_Zero 0x284
0279 e016 | | Load 0x0,0x16
027a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
027b 6806 |h | Jump_Zero 0x282
027c 0092 03a3 | | Action Push_String_Extended,0x3a3 ; "Too few Column_Entry commands were provided"
027e e013 | | Load 0x0,0x13
027f 180f | | Execute Package,Field_Execute,Field_Number 0xf
0280 4801 |H | Short_Literal 0x1
0281 8018 | | Call 0x0,0x18
0282 4802 |H | Short_Literal 0x2
0283 8018 | | Call 0x0,0x18
0284 e008 | | Load 0x0,0x8
0285 3c31 |<1 | Execute Record,Field_Read,Field_Number 0x31
0286 7003 |p | Jump_Nonzero 0x28a
0287 e016 | | Load 0x0,0x16
0288 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
0289 7007 |p | Jump_Nonzero 0x291
028a 4801 |H | Short_Literal 0x1
028b 4801 |H | Short_Literal 0x1
028c e008 | | Load 0x0,0x8
028d 3c3f |<? | Execute Record,Field_Read,Field_Number 0x3f
028e e006 | | Load 0x0,0x6
028f 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0290 7806 |x | Jump 0x297
0291 4801 |H | Short_Literal 0x1
0292 4801 |H | Short_Literal 0x1
0293 e008 | | Load 0x0,0x8
0294 3c44 |<D | Execute Record,Field_Read,Field_Number 0x44
0295 e006 | | Load 0x0,0x6
0296 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0297 e009 | | Load 0x0,0x9
0298 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0299 a603 | | Store_Unchecked 0x3,0x3
029a e009 | | Load 0x0,0x9
029b 1814 | | Execute Package,Field_Execute,Field_Number 0x14
029c a605 | | Store_Unchecked 0x3,0x5
029d e016 | | Load 0x0,0x16
029e 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
029f 6889 |h | Jump_Zero 0x329
02a0 4857 |HW | Short_Literal 0x57
02a1 8002 | | Call 0x0,0x2
02a2 4857 |HW | Short_Literal 0x57
02a3 8003 | | Call 0x0,0x3
02a4 e009 | | Load 0x0,0x9
02a5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02a6 4800 |H | Short_Literal 0x0
02a7 e009 | | Load 0x0,0x9
02a8 1820 | | Execute Package,Field_Execute,Field_Number 0x20
02a9 4801 |H | Short_Literal 0x1
02aa e009 | | Load 0x0,0x9
02ab 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02ac 4800 |H | Short_Literal 0x0
02ad e004 | | Load 0x0,0x4
02ae 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
02af e008 | | Load 0x0,0x8
02b0 3c33 |<3 | Execute Record,Field_Read,Field_Number 0x33
02b1 6804 |h | Jump_Zero 0x2b6
02b2 4800 |H | Short_Literal 0x0
02b3 e004 | | Load 0x0,0x4
02b4 380a |8 | Execute Record,Field_Write,Field_Number 0xa
02b5 7803 |x | Jump 0x2b9
02b6 4801 |H | Short_Literal 0x1
02b7 e004 | | Load 0x0,0x4
02b8 380a |8 | Execute Record,Field_Write,Field_Number 0xa
02b9 4800 |H | Short_Literal 0x0
02ba e004 | | Load 0x0,0x4
02bb 381a |8 | Execute Record,Field_Write,Field_Number 0x1a
02bc e005 | | Load 0x0,0x5
02bd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02be e016 | | Load 0x0,0x16
02bf 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
02c0 682b |h+ | Jump_Zero 0x2ec
02c1 e019 | | Load 0x0,0x19
02c2 801a | | Call 0x0,0x1a
02c3 00d1 | | Pop_Control Pop_Count_1
02c4 e01b | | Load 0x0,0x1b
02c5 7008 |p | Jump_Nonzero 0x2ce
02c6 e019 | | Load 0x0,0x19
02c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
02c8 e01c | | Load 0x0,0x1c
02c9 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
02ca e019 | | Load 0x0,0x19
02cb 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
02cc e01c | | Load 0x0,0x1c
02cd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
02ce e408 | | Load 0x2,0x8
02cf e019 | | Load 0x0,0x19
02d0 e01d | | Load 0x0,0x1d
02d1 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02d2 00d1 | | Pop_Control Pop_Count_1
02d3 c408 | | Store 0x2,0x8
02d4 e408 | | Load 0x2,0x8
02d5 e016 | | Load 0x0,0x16
02d6 3c0a |< | Execute Record,Field_Read,Field_Number 0xa
02d7 e00a | | Load 0x0,0xa
02d8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02d9 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02da 4801 |H | Short_Literal 0x1
02db e00a | | Load 0x0,0xa
02dc 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02dd 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
02de c408 | | Store 0x2,0x8
02df e016 | | Load 0x0,0x16
02e0 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02e1 e00a | | Load 0x0,0xa
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02e4 6807 |h | Jump_Zero 0x2ec
02e5 e408 | | Load 0x2,0x8
02e6 e008 | | Load 0x0,0x8
02e7 3c3e |<> | Execute Record,Field_Read,Field_Number 0x3e
02e8 e00a | | Load 0x0,0xa
02e9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02ea 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02eb c408 | | Store 0x2,0x8
02ec e408 | | Load 0x2,0x8
02ed e016 | | Load 0x0,0x16
02ee 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
02ef e00a | | Load 0x0,0xa
02f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f1 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02f2 c408 | | Store 0x2,0x8
02f3 e408 | | Load 0x2,0x8
02f4 e005 | | Load 0x0,0x5
02f5 180f | | Execute Package,Field_Execute,Field_Number 0xf
02f6 e408 | | Load 0x2,0x8
02f7 e00a | | Load 0x0,0xa
02f8 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02f9 1812 | | Execute Package,Field_Execute,Field_Number 0x12
02fa c408 | | Store 0x2,0x8
02fb e008 | | Load 0x0,0x8
02fc 3c31 |<1 | Execute Record,Field_Read,Field_Number 0x31
02fd 681b |h | Jump_Zero 0x319
02fe e016 | | Load 0x0,0x16
02ff 3c0e |< | Execute Record,Field_Read,Field_Number 0xe
0300 6811 |h | Jump_Zero 0x312
0301 4801 |H | Short_Literal 0x1
0302 4801 |H | Short_Literal 0x1
0303 e008 | | Load 0x0,0x8
0304 3c43 |<C | Execute Record,Field_Read,Field_Number 0x43
0305 e016 | | Load 0x0,0x16
0306 3c1d |< | Execute Record,Field_Read,Field_Number 0x1d
0307 0273 | s | Execute Discrete,Plus
0308 e00a | | Load 0x0,0xa
0309 1b10 | | Execute Package,Field_Read,Field_Number 0x10
030a 00d9 | | Load_Top At_Offset_1
030b 00d0 | | Action Swap_Control
030c 0260 | ` | Execute Discrete,In_Type
030d 7001 |p | Jump_Nonzero 0x30f
030e 0801 | | Execute_Immediate Raise,0x1
030f e006 | | Load 0x0,0x6
0310 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0311 780d |x | Jump 0x31f
0312 4801 |H | Short_Literal 0x1
0313 4801 |H | Short_Literal 0x1
0314 e008 | | Load 0x0,0x8
0315 3c43 |<C | Execute Record,Field_Read,Field_Number 0x43
0316 e006 | | Load 0x0,0x6
0317 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0318 7806 |x | Jump 0x31f
0319 4801 |H | Short_Literal 0x1
031a 4801 |H | Short_Literal 0x1
031b e008 | | Load 0x0,0x8
031c 3c3f |<? | Execute Record,Field_Read,Field_Number 0x3f
031d e006 | | Load 0x0,0x6
031e 1818 | | Execute Package,Field_Execute,Field_Number 0x18
031f 4800 |H | Short_Literal 0x0
0320 e009 | | Load 0x0,0x9
0321 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
0322 e009 | | Load 0x0,0x9
0323 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0324 a604 | | Store_Unchecked 0x3,0x4
0325 e009 | | Load 0x0,0x9
0326 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0327 a606 | | Store_Unchecked 0x3,0x6
0328 7802 |x | Jump 0x32b
0329 4800 |H | Short_Literal 0x0
032a a604 | | Store_Unchecked 0x3,0x4
032b 4857 |HW | Short_Literal 0x57
032c 8002 | | Call 0x0,0x2
032d e008 | | Load 0x0,0x8
032e 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
032f e009 | | Load 0x0,0x9
0330 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0331 0272 | r | Execute Discrete,Minus
0332 c602 | | Store 0x3,0x2
0333 e603 | | Load 0x3,0x3
0334 e604 | | Load 0x3,0x4
0335 0273 | s | Execute Discrete,Plus
0336 e602 | | Load 0x3,0x2
0337 027d | } | Execute Discrete,Greater
0338 6807 |h | Jump_Zero 0x340
0339 e602 | | Load 0x3,0x2
033a e016 | | Load 0x0,0x16
033b 3c15 |< | Execute Record,Field_Read,Field_Number 0x15
033c 027c | | | Execute Discrete,Less
033d 6802 |h | Jump_Zero 0x340
033e e007 | | Load 0x0,0x7
033f 1831 | 1 | Execute Package,Field_Execute,Field_Number 0x31
0340 4801 |H | Short_Literal 0x1
0341 4801 |H | Short_Literal 0x1
0342 4800 |H | Short_Literal 0x0
0343 e006 | | Load 0x0,0x6
0344 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0345 e016 | | Load 0x0,0x16
0346 3c0f |< | Execute Record,Field_Read,Field_Number 0xf
0347 6811 |h | Jump_Zero 0x359
0348 e016 | | Load 0x0,0x16
0349 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
034a e016 | | Load 0x0,0x16
034b 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
034c 0279 | y | Execute Discrete,And
034d 6806 |h | Jump_Zero 0x354
034e 4803 |H | Short_Literal 0x3
034f e016 | | Load 0x0,0x16
0350 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0351 e007 | | Load 0x0,0x7
0352 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0353 7805 |x | Jump 0x359
0354 4804 |H | Short_Literal 0x4
0355 e016 | | Load 0x0,0x16
0356 3c10 |< | Execute Record,Field_Read,Field_Number 0x10
0357 e007 | | Load 0x0,0x7
0358 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0359 e016 | | Load 0x0,0x16
035a 3c08 |< | Execute Record,Field_Read,Field_Number 0x8
035b 6812 |h | Jump_Zero 0x36e
035c 4802 |H | Short_Literal 0x2
035d e016 | | Load 0x0,0x16
035e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
035f 0f00 | | Execute_Immediate Equal,0x0
0360 e019 | | Load 0x0,0x19
0361 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3
0362 e016 | | Load 0x0,0x16
0363 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0364 e019 | | Load 0x0,0x19
0365 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0366 e01d | | Load 0x0,0x1d
0367 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0368 00d9 | | Load_Top At_Offset_1
0369 00d0 | | Action Swap_Control
036a 0260 | ` | Execute Discrete,In_Type
036b 7001 |p | Jump_Nonzero 0x36d
036c 0801 | | Execute_Immediate Raise,0x1
036d 801e | | Call 0x0,0x1e
036e 4801 |H | Short_Literal 0x1
036f e016 | | Load 0x0,0x16
0370 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0371 e604 | | Load 0x3,0x4
0372 7005 |p | Jump_Nonzero 0x378
0373 e605 | | Load 0x3,0x5
0374 e009 | | Load 0x0,0x9
0375 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0376 c605 | | Store 0x3,0x5
0377 7814 |x | Jump 0x38c
0378 e008 | | Load 0x0,0x8
0379 3c31 |<1 | Execute Record,Field_Read,Field_Number 0x31
037a 6809 |h | Jump_Zero 0x384
037b 00d8 | | Load_Top At_Offset_0
037c e009 | | Load 0x0,0x9
037d 1817 | | Execute Package,Field_Execute,Field_Number 0x17
037e c606 | | Store 0x3,0x6
037f e605 | | Load 0x3,0x5
0380 e009 | | Load 0x0,0x9
0381 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0382 c605 | | Store 0x3,0x5
0383 7808 |x | Jump 0x38c
0384 e605 | | Load 0x3,0x5
0385 e009 | | Load 0x0,0x9
0386 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0387 c605 | | Store 0x3,0x5
0388 00d8 | | Load_Top At_Offset_0
0389 e009 | | Load 0x0,0x9
038a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
038b c606 | | Store 0x3,0x6
038c 4800 |H | Short_Literal 0x0
038d e016 | | Load 0x0,0x16
038e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
038f e016 | | Load 0x0,0x16
0390 3c0d |< | Execute Record,Field_Read,Field_Number 0xd
0391 e009 | | Load 0x0,0x9
0392 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0393 e016 | | Load 0x0,0x16
0394 380d |8 | Execute Record,Field_Write,Field_Number 0xd
0395 4800 |H | Short_Literal 0x0
0396 e016 | | Load 0x0,0x16
0397 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0398 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0399 ; --------------------------------------------------------------------------------------
0399 ; STRING TABLE
0399 ; --------------------------------------------------------------------------------------
0399 0018 | | .STRTAB 0x0018->0x03a5 ; "Ignoring extra End(Table) command"
039a 0037 | 7 | .STRTAB 0x0037->0x03b5 ; "Table(TEXT) found while building a table. The second table is ignored"
039b 007b | { | .STRTAB 0x007b->0x03d8 ; "Incorrect input format for table"
039c 0099 | | .STRTAB 0x0099->0x03e8 ; "Incorrect input format for table (bad column count)"
039d 00ca | | .STRTAB 0x00ca->0x0402 ; "Column descriptor has bad format in table"
039e 00f1 | | .STRTAB 0x00f1->0x0416 ; "~>"
039f 00f1 | | .STRTAB 0x00f1->0x0417 ; "Begin(Table) command found while building a table. The results are unpredictable"
03a0 0140 | @ | .STRTAB 0x0140->0x0440 ; "(continued)"
03a1 0149 | I | .STRTAB 0x0149->0x0445 ; "Floating tables are not yet implemented"
03a2 016e | n | .STRTAB 0x016e->0x0459 ; "No Column_Entry commands were provided"
03a3 0192 | | .STRTAB 0x0192->0x046c ; "Too few Column_Entry commands were provided"
03a4 01bb | | .STREND 0x01bb->0x0481
03a5 4967 6e6f |Igno| .STRTAB_STRINGS
0482 0000 0000 | | .BLANK 0000[0x6]
0488 ; --------------------------------------------------------------------------------------
0488 ; Debug Table
0488 ; --------------------------------------------------------------------------------------
0488 0004 000f | | .DEBUG4 0x0004,0x000f,0x480d,0x0000,0x0001,0x0000
048e c1ce f326 | &| .XXX[0x172]
0490 c0d0 ab20 | |
0492 cc01 2327 | #'|
0494 5326 1f24 |S& $|
0496 e726 19ef | & |
0498 8665 2c03 | e, |
049a b800 76ca | v |
049c 8b24 f723 | $ #|
049e e802 3923 | 9#|
04a0 5b22 761b |["v |
04a2 c722 ef24 | " $|
04a4 7402 659b |t e |
04a6 c8d7 f018 | |
04a8 4f21 7b27 |O!{'|
04aa cf3c 9327 | < '|
04ac d73d bb22 | = "|
04ae fc07 e73c | <|
04b0 0727 b322 | ' "|
04b2 4320 fc00 |C |
04b4 1326 a721 | & !|
04b6 0f26 af20 | & |
04b8 6403 64ec |d d |
04ba 4f21 c324 |O! $|
04bc 2741 2f24 |'A/$|
04be 2f43 bc0e |/C |
04c0 48b3 b803 |H |
04c2 cc00 5f24 | _$|
04c4 4342 9b20 |CB |
04c6 fc01 bb2a | *|
04c8 9f27 0321 | ' !|
04ca 1324 7403 | $t |
04cc dd96 fddb | |
04ce daa8 4f22 | O"|
04d0 1724 6f42 | $oB|
04d2 1b20 7740 | w@|
04d4 2c13 e33f |, ?|
04d6 cc01 5723 | W#|
04d8 4f20 f802 |O |
04da 3f2c 9f40 |?, @|
04dc 6f25 6726 |o%g&|
04de 5f20 080b |_ |
04e0 e323 873d | # =|
04e2 8b27 44f5 | 'D |
04e4 bb22 acb0 | " |
04e6 8341 cb20 | A |
04e8 8f43 8c94 | C |
04ea f803 d328 | (|
04ec eb41 5f27 | A_'|
04ee 0720 c725 | %|
04f0 4c39 bb2e |L9 .|
04f2 b724 c342 | $ B|
04f4 cf20 cb41 | A|
04f6 4937 b803 |I7 |
04f8 c800 4937 | I7|
04fa 4f20 f400 |O |
04fc 4e9c 5341 |N SA|
04fe af26 ef24 | & $|
0500 5c03 80d5 |\ |
0502 bb2f 0325 | / %|
0504 4b43 9320 |KC |
0506 cb41 b0a5 | A |
0508 5b43 be01 |[C |
050a 6742 76eb |gBv |
050c 2f24 a342 |/$ B|
050e af20 6801 | h |
0510 18c0 0c6e | n|
0512 89ac 75b8 | u |
0514 ff40 3f24 | @?$|
0516 cb42 0197 | B |
0518 b803 c401 | |
051a 6e07 4f20 |n O |
051c f003 c151 | Q|
051e 2f41 fb27 |/A '|
0520 0720 7401 | t |
0522 802d dc00 | - |
0524 fc24 9052 | $ R|
0526 5f24 d000 |_$ |
0528 8725 8f41 | % A|
052a ab22 9eba | " |
052c 7f21 0b43 | ! C|
052e bc0f 458d | E |
0530 df42 b591 | B |
0532 eb40 86b9 | @ |
0534 af40 ef41 | @ A|
0536 b742 af24 | B $|
0538 d000 d326 | &|
053a 2340 cb43 |#@ C|
053c 10b3 b803 | |
053e c003 6299 | b |
0540 eb40 fe69 | @ i|
0542 f740 582d | @X-|
0544 ff27 6720 | 'g |
0546 6c01 2800 |l ( |
0548 209b 9d05 | |
054a e401 bb2f | /|
054c cb3d 9b21 | = !|
054e 2b26 1b22 |+& "|
0550 7326 2b26 |s&+&|
0552 7247 db3c |rG <|
0554 20f7 e33f | ?|
0556 c003 5e81 | ^ |
0558 1f41 321b | A2 |
055a 06e1 7342 | sB|
055c eb27 b829 | ' )|
055e c42a bcd1 | * |
0560 c002 c5d6 | |
0562 0c99 bb2c | ,|
0564 2342 b341 |#B A|
0566 8326 bb41 | & A|
0568 0742 cb43 | B C|
056a f89f b803 | |
056c bc00 ef23 | #|
056e 4f20 ec00 |O |
0570 ff22 4f41 | "OA|
0572 3341 1324 |3A $|
0574 7003 6dc2 |p m |
0576 ac6c 7b28 | l{(|
0578 9459 cf41 | Y A|
057a 8724 cb43 | $ C|
057c b587 2b43 | +C|
057e 1a33 4f20 | 3O |
0580 e801 de8f | |
0582 4341 fb40 |CA @|
0584 a740 7d15 | @} |
0586 615a 1341 |aZ A|
0588 8b23 46ef | #F |
058a 6340 c742 |c@ B|
058c 2725 be56 |'% V|
058e c741 bb23 | A #|
0590 8e47 2b40 | G+@|
0592 2937 7b43 |)7{C|
0594 6edf 8742 |n B|
0596 8b41 3741 | A7A|
0598 320c 6f10 |2 o |
059a d402 6726 | g&|
059c 2342 bf43 |#B C|
059e b342 3340 | B3@|
05a0 11af e33f | ?|
05a2 b802 ce17 | |
05a4 4f20 e400 |O |
05a6 9b06 8743 | C|
05a8 b816 8f41 | A|
05aa b324 5c01 | $\ |
05ac 0415 9803 | |
05ae e2ad 4743 | GC|
05b0 1343 5726 | CW&|
05b2 1f21 3727 | !7'|
05b4 fb40 4d07 | @M |
05b6 b803 b803 | |
05b8 2cd0 0f45 |, E|
05ba debb d340 | @|
05bc 1f45 ff41 | E A|
05be 5cd1 22fb |\ " |
05c0 e2ad 8b40 | @|
05c2 3f47 873c |?G <|
05c4 cb41 e61b | A |
05c6 b803 b403 | |
05c8 313a df40 |1: @|
05ca e001 0284 | |
05cc 6b45 4c4f |kELO|
05ce 0720 ea5f | _|
05d0 e017 e2af | |
05d2 4f24 8746 |O$ F|
05d4 6f27 1f41 |o' A|
05d6 bb21 7134 | !q4|
05d8 9744 7533 | Du3|
05da 4f20 e003 |O |
05dc bb26 eb43 | & C|
05de 3324 c325 |3$ %|
05e0 1dcd cc02 | |
05e2 89ac d402 | |
05e4 1f40 cb47 | @ G|
05e6 6743 af40 |gC @|
05e8 1c18 d722 | "|
05ea cb43 f03f | C ?|
05ec b803 b003 | |
05ee af22 8f26 | " &|
05f0 9b20 e003 | |
05f2 bf20 f345 | E|
05f4 b343 6723 | Cg#|
05f6 3b26 24c3 |;&$ |
05f8 4325 cc03 |C% |
05fa e2ae 6341 | cA|
05fc 1346 bb40 | F @|
05fe cb41 5529 | AU)|