|
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_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 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 0000 b801 | | .XXX[0x10]
0490 4000 0028 |@ (|
0492 8000 0010 | |
0494 0000 0088 | |
0496 0000 0000 | |
0498 4000 0002 |@ |
049a 9000 1381 | |
049c 885d 8000 | ] |
049e 0000 0000 | | .BLANK 0000[0x1a]
04b8 0040 007c | @ || .XXX[0x1f]
04ba 1310 a86d | m|
04bc 3b00 0006 |; |
04be c476 c990 | v |
04c0 1000 8000 | |
04c2 ae00 0000 | |
04c4 083d c000 | = |
04c6 0200 0000 | |
04c8 0300 2800 | ( |
04ca 0000 0800 | |
04cc 0002 0000 | |
04ce 0011 0000 | |
04d0 0000 0800 | |
04d2 0000 5200 | R |
04d4 0010 310b | 1 |
04d6 e000 | |
04d7 0000 0000 | | .BLANK 0000[0x1a]
04f1 0018 0009 | | .XXX[0x1f]
04f3 70aa 150d |p |
04f5 a762 0000 | b |
04f7 d88e d932 | 2|
04f9 0200 1000 | |
04fb 15c0 0000 | |
04fd 0107 b800 | |
04ff 0080 0000 | |
0501 0060 0500 | ` |
0503 0000 0100 | |
0505 0000 4000 | @ |
0507 0002 2000 | |
0509 0000 0100 | |
050b 0000 0a40 | @|
050d 0002 0621 | !|
050f 7c00 || |
0510 0000 0000 | | .BLANK 0000[0x1a]
052a 0003 0001 | | .XXX[0x28]
052c 2e16 42a1 |. B |
052e b4ec 8000 | |
0530 1b11 da26 | &|
0532 4040 0200 |@@ |
0534 02b8 0000 | |
0536 0020 f700 | |
0538 0010 0000 | |
053a 0024 00a0 | $ |
053c 0000 0020 | |
053e 0000 0800 | |
0540 0000 4400 | D |
0542 0000 0020 | |
0544 0000 0148 | H|
0546 0000 80c4 | |
0548 3008 0000 |0 |
054a 80c4 3028 | 0(|
054c 0000 80c4 | |
054e 3048 0000 |0H |
0550 80c4 3060 | 0`|
0552 0000 0000 | | .BLANK 0000[0x12]
0564 6000 25c2 |` % | .XXX[0x1e]
0566 a854 369d | T6 |
0568 9800 0362 | b|
056a 32a4 b808 |2 |
056c 0040 0057 | @ W|
056e 0000 0003 | |
0570 9d00 0028 | (|
0572 8000 000b | |
0574 8014 0000 | |
0576 0288 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0029 0001 | ) |
0580 4018 8634 |@ 4|
0582 0000 0000 | | .BLANK 0000[0x1b]
059d 0400 07c1 | | .XXX[0x1f]
059f 310a 86d5 |1 |
05a1 8c00 006c | l|
05a3 4768 a201 |Gh |
05a5 0008 000a | |
05a7 e000 0000 | |
05a9 7764 0007 |wd |
05ab 8000 0003 | |
05ad 5002 8000 |P |
05af 0051 0000 | Q |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 2000 | |
05b9 3c03 1897 |< |
05bb 8000 | |
05bc 0000 0000 | | .BLANK 0000[0x1a]
05d6 0600 0001 | | .XXX[0x3]
05d8 bf80 | |
05d9 0000 0000 | | .BLANK 0000[0x27]