|
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_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 0370 | p | .CONST 0x0370 ; 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 0021 | ! | .CONST 0x0021 ; Address of begin 0009 0004 | | .CONST 0x0004 ; Address of exception handler 000a 000e | | .CONST 0x000e ; Number of locals 000b INIT_0008: 000b e06f | o | Load 0x0,0x6f 000c 1b1e | | Execute Package,Field_Read,Field_Number 0x1e 000d e011 | | Load 0x0,0x11 000e 1b10 | | Execute Package,Field_Read,Field_Number 0x10 000f 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 0010 00ea | | Load_Encached Null_String_Cache 0011 e011 | | Load 0x0,0x11 0012 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0013 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0014 e070 | p | Load 0x0,0x70 0015 03e9 | | Declare_Variable Discrete,Duplicate 0016 00e3 | | Load_Encached Natural_Cache 0017 03e9 | | Declare_Variable Discrete,Duplicate 0018 00e2 | | Load_Encached Integer_Cache 0019 00e1 | | Load_Encached Boolean_Cache 001a 00e1 | | Load_Encached Boolean_Cache 001b 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001c 00e1 | | Load_Encached Boolean_Cache 001d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0 001e 03e9 | | Declare_Variable Discrete,Duplicate 001f 029f 0153 | S| Declare_Subprogram INIT_0150,For_Call 0021 BODY_0008: 0021 e03b | ; | Load 0x0,0x3b 0022 3c00 |< | Execute Record,Field_Read,Field_Number 0x0 0023 7005 |p | Jump_Nonzero 0x29 0024 0092 021a | | Action Push_String_Extended,0x21a ; "Ignoring Column_Definition not bracketed by Begin(Table) and End(Table)" 0026 e01c | | Load 0x0,0x1c 0027 180e | | Execute Package,Field_Execute,Field_Number 0xe 0028 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0029 e03b | ; | Load 0x0,0x3b 002a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5 002b 6805 |h | Jump_Zero 0x31 002c 0092 021b | | Action Push_String_Extended,0x21b ; "All Column_Definition commands must be before any Column_Entry" 002e e01c | | Load 0x0,0x1c 002f 180e | | Execute Package,Field_Execute,Field_Number 0xe 0030 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0031 e5ff | | Load 0x2,-0x1 0032 e011 | | Load 0x0,0x11 0033 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0034 1816 | | Execute Package,Field_Execute,Field_Number 0x16 0035 e06f | o | Load 0x0,0x6f 0036 1820 | | Execute Package,Field_Execute,Field_Number 0x20 0037 a402 | | Store_Unchecked 0x2,0x2 0038 00cf | | Action Mark_Auxiliary 0039 7881 |x | Jump 0xbb 003a 4800 |H | Short_Literal 0x0 003b e402 | | Load 0x2,0x2 003c e06f | o | Load 0x0,0x6f 003d 1822 | " | Execute Package,Field_Execute,Field_Number 0x22 003e 686c |hl | Jump_Zero 0xab 003f e402 | | Load 0x2,0x2 0040 e06f | o | Load 0x0,0x6f 0041 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28 0042 4604 |F | Jump_Case 0x5 0043 7872 |xr | Jump 0xb6 ; case 0x0 0044 7834 |x4 | Jump 0x79 ; case 0x1 0045 7842 |xB | Jump 0x88 ; case 0x2 0046 7857 |xW | Jump 0x9e ; case 0x3 0047 7800 |x | Jump 0x48 ; case 0x4 0048 e03b | ; | Load 0x0,0x3b 0049 3c13 |< | Execute Record,Field_Read,Field_Number 0x13 004a 6826 |h& | Jump_Zero 0x71 004b 00e1 | | Load_Encached Boolean_Cache 004c 00e2 | | Load_Encached Integer_Cache 004d 480a |H | Short_Literal 0xa 004e 00ea | | Load_Encached Null_String_Cache 004f 4800 |H | Short_Literal 0x0 0050 e402 | | Load 0x2,0x2 0051 e06f | o | Load 0x0,0x6f 0052 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0053 e01a | | Load 0x0,0x1a 0054 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0055 c409 | | Store 0x2,0x9 0056 c40a | | Store 0x2,0xa 0057 e40a | | Load 0x2,0xa 0058 6806 |h | Jump_Zero 0x5f 0059 e409 | | Load 0x2,0x9 005a 0d00 | | Execute_Immediate Less,0x0 005b e409 | | Load 0x2,0x9 005c 0c65 | e | Execute_Immediate Greater_Equal,0x65 005d 0278 | x | Execute Discrete,Or 005e 6806 |h | Jump_Zero 0x65 005f 0092 021c | | Action Push_String_Extended,0x21c ; "Invalid percentage supplied as a column width. 25 assumed" 0061 e01c | | Load 0x0,0x1c 0062 180e | | Execute Package,Field_Execute,Field_Number 0xe 0063 4819 |H | Short_Literal 0x19 0064 a409 | | Store_Unchecked 0x2,0x9 0065 e03b | ; | Load 0x0,0x3b 0066 3c16 |< | Execute Record,Field_Read,Field_Number 0x16 0067 e409 | | Load 0x2,0x9 0068 0271 | q | Execute Discrete,Times 0069 4864 |Hd | Short_Literal 0x64 006a 0270 | p | Execute Discrete,Divide 006b e017 | | Load 0x0,0x17 006c 3c34 |<4 | Execute Record,Field_Read,Field_Number 0x34 006d 0901 | | Execute_Immediate Binary_Scale,0x1 006e 0272 | r | Execute Discrete,Minus 006f c403 | | Store 0x2,0x3 0070 7845 |xE | Jump 0xb6 0071 00ea | | Load_Encached Null_String_Cache 0072 4800 |H | Short_Literal 0x0 0073 e402 | | Load 0x2,0x2 0074 e06f | o | Load 0x0,0x6f 0075 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0076 801b | | Call 0x0,0x1b 0077 a403 | | Store_Unchecked 0x2,0x3 0078 783d |x= | Jump 0xb6 0079 e404 | | Load 0x2,0x4 007a e011 | | Load 0x0,0x11 007b 1b0d | | Execute Package,Field_Read,Field_Number 0xd 007c 1812 | | Execute Package,Field_Execute,Field_Number 0x12 007d c404 | | Store 0x2,0x4 007e 00ea | | Load_Encached Null_String_Cache 007f 4800 |H | Short_Literal 0x0 0080 e402 | | Load 0x2,0x2 0081 e06f | o | Load 0x0,0x6f 0082 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0083 e011 | | Load 0x0,0x11 0084 1b0d | | Execute Package,Field_Read,Field_Number 0xd 0085 1817 | | Execute Package,Field_Execute,Field_Number 0x17 0086 a404 | | Store_Unchecked 0x2,0x4 0087 782e |x. | Jump 0xb6 0088 4801 |H | Short_Literal 0x1 0089 a40c | | Store_Unchecked 0x2,0xc 008a 00e3 | | Load_Encached Natural_Cache 008b e070 | p | Load 0x0,0x70 008c 00ea | | Load_Encached Null_String_Cache 008d 4800 |H | Short_Literal 0x0 008e e402 | | Load 0x2,0x2 008f e06f | o | Load 0x0,0x6f 0090 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 0091 840e | | Call 0x2,0xe 0092 c405 | | Store 0x2,0x5 0093 c407 | | Store 0x2,0x7 0094 e405 | | Load 0x2,0x5 0095 0f04 | | Execute_Immediate Equal,0x4 0096 681f |h | Jump_Zero 0xb6 0097 0092 021d | | Action Push_String_Extended,0x21d ; "Cannot specify 'D'ecimal as the Heading Mode" 0099 e01c | | Load 0x0,0x1c 009a 180e | | Execute Package,Field_Execute,Field_Number 0xe 009b 4800 |H | Short_Literal 0x0 009c a405 | | Store_Unchecked 0x2,0x5 009d 7818 |x | Jump 0xb6 009e 4801 |H | Short_Literal 0x1 009f a40d | | Store_Unchecked 0x2,0xd 00a0 00e3 | | Load_Encached Natural_Cache 00a1 e070 | p | Load 0x0,0x70 00a2 00ea | | Load_Encached Null_String_Cache 00a3 4800 |H | Short_Literal 0x0 00a4 e402 | | Load 0x2,0x2 00a5 e06f | o | Load 0x0,0x6f 00a6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b 00a7 840e | | Call 0x2,0xe 00a8 c406 | | Store 0x2,0x6 00a9 c408 | | Store 0x2,0x8 00aa 780b |x | Jump 0xb6 00ab 0092 021e | | Action Push_String_Extended,0x21e ; "Column_Definition" 00ad 4800 |H | Short_Literal 0x0 00ae e402 | | Load 0x2,0x2 00af e06f | o | Load 0x0,0x6f 00b0 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24 00b1 01cc | | Execute Vector,Catenate 00b2 e01c | | Load 0x0,0x1c 00b3 180e | | Execute Package,Field_Execute,Field_Number 0xe 00b4 4801 |H | Short_Literal 0x1 00b5 a40b | | Store_Unchecked 0x2,0xb 00b6 e402 | | Load 0x2,0x2 00b7 e06f | o | Load 0x0,0x6f 00b8 1826 | & | Execute Package,Field_Execute,Field_Number 0x26 00b9 c402 | | Store 0x2,0x2 00ba 00c9 | | Action Pop_Auxiliary_Loop 00bb e402 | | Load 0x2,0x2 00bc e06f | o | Load 0x0,0x6f 00bd 1825 | % | Execute Package,Field_Execute,Field_Number 0x25 00be 6f7b |o{ | Jump_Zero 0x3a 00bf 00ce | | Action Pop_Auxiliary 00c0 e40c | | Load 0x2,0xc 00c1 7006 |p | Jump_Nonzero 0xc8 00c2 0092 021f | | Action Push_String_Extended,0x21f ; "Heading_Mode must be specified" 00c4 e01c | | Load 0x0,0x1c 00c5 180e | | Execute Package,Field_Execute,Field_Number 0xe 00c6 4801 |H | Short_Literal 0x1 00c7 a40b | | Store_Unchecked 0x2,0xb 00c8 e40d | | Load 0x2,0xd 00c9 7006 |p | Jump_Nonzero 0xd0 00ca 0092 0220 | | Action Push_String_Extended,0x220 ; "Body_Mode must be specified" 00cc e01c | | Load 0x0,0x1c 00cd 180e | | Execute Package,Field_Execute,Field_Number 0xe 00ce 4801 |H | Short_Literal 0x1 00cf a40b | | Store_Unchecked 0x2,0xb 00d0 e40b | | Load 0x2,0xb 00d1 6801 |h | Jump_Zero 0xd3 00d2 4502 |E | Exit_Suprogram New_Top_Offset 0x2 00d3 e403 | | Load 0x2,0x3 00d4 7034 |p4 | Jump_Nonzero 0x109 00d5 4820 |H | Short_Literal 0x20 00d6 e020 | | Load 0x0,0x20 00d7 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00d8 e021 | ! | Load 0x0,0x21 00d9 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00da 00d8 | | Load_Top At_Offset_0 00db e021 | ! | Load 0x0,0x21 00dc 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00dd 7003 |p | Jump_Nonzero 0xe1 00de e022 | " | Load 0x0,0x22 00df 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 00e0 0257 | W | Execute Discrete,Raise 00e1 181f | | Execute Package,Field_Execute,Field_Number 0x1f 00e2 0901 | | Execute_Immediate Binary_Scale,0x1 00e3 c403 | | Store 0x2,0x3 00e4 00cf | | Action Mark_Auxiliary 00e5 e404 | | Load 0x2,0x4 00e6 e011 | | Load 0x0,0x11 00e7 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00e8 1813 | | Execute Package,Field_Execute,Field_Number 0x13 00e9 4801 |H | Short_Literal 0x1 00ea 0263 | c | Execute Discrete,Above_Bound 00eb 701c |p | Jump_Nonzero 0x108 00ec e403 | | Load 0x2,0x3 00ed e411 | | Load 0x2,0x11 00ee e404 | | Load 0x2,0x4 00ef e011 | | Load 0x0,0x11 00f0 1b0d | | Execute Package,Field_Read,Field_Number 0xd 00f1 1814 | | Execute Package,Field_Execute,Field_Number 0x14 00f2 00d8 | | Load_Top At_Offset_0 00f3 e011 | | Load 0x0,0x11 00f4 1b2a | * | Execute Package,Field_Read,Field_Number 0x2a 00f5 0260 | ` | Execute Discrete,In_Type 00f6 7001 |p | Jump_Nonzero 0xf8 00f7 0801 | | Execute_Immediate Raise,0x1 00f8 e020 | | Load 0x0,0x20 00f9 1b12 | | Execute Package,Field_Read,Field_Number 0x12 00fa e021 | ! | Load 0x0,0x21 00fb 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 00fc 00d8 | | Load_Top At_Offset_0 00fd e021 | ! | Load 0x0,0x21 00fe 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 00ff 7003 |p | Jump_Nonzero 0x103 0100 e022 | " | Load 0x0,0x22 0101 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0102 0257 | W | Execute Discrete,Raise 0103 181f | | Execute Package,Field_Execute,Field_Number 0x1f 0104 0273 | s | Execute Discrete,Plus 0105 c403 | | Store 0x2,0x3 0106 00c8 | | Action Pop_Auxiliary_Range 0107 3fe4 |? | Loop_Increasing 0xec 0108 00ce | | Action Pop_Auxiliary 0109 e403 | | Load 0x2,0x3 010a e020 | | Load 0x0,0x20 010b 1b12 | | Execute Package,Field_Read,Field_Number 0x12 010c e021 | ! | Load 0x0,0x21 010d 183e | > | Execute Package,Field_Execute,Field_Number 0x3e 010e 00d8 | | Load_Top At_Offset_0 010f e021 | ! | Load 0x0,0x21 0110 183d | = | Execute Package,Field_Execute,Field_Number 0x3d 0111 7003 |p | Jump_Nonzero 0x115 0112 e022 | " | Load 0x0,0x22 0113 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27 0114 0257 | W | Execute Discrete,Raise 0115 181b | | Execute Package,Field_Execute,Field_Number 0x1b 0116 a403 | | Store_Unchecked 0x2,0x3 0117 e03b | ; | Load 0x0,0x3b 0118 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 0119 0d14 | | Execute_Immediate Less,0x14 011a 6806 |h | Jump_Zero 0x121 011b e03b | ; | Load 0x0,0x3b 011c 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 011d 0a01 | | Execute_Immediate Plus,0x1 011e e03b | ; | Load 0x0,0x3b 011f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0120 7807 |x | Jump 0x128 0121 0092 0221 | !| Action Push_String_Extended,0x221 ; "Table exceeds maximum number of columns" 0123 e01c | | Load 0x0,0x1c 0124 180e | | Execute Package,Field_Execute,Field_Number 0xe 0125 e011 | | Load 0x0,0x11 0126 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28 0127 0257 | W | Execute Discrete,Raise 0128 e071 | q | Load 0x0,0x71 0129 0322 | " | Declare_Variable Record 012a e405 | | Load 0x2,0x5 012b e40f | | Load 0x2,0xf 012c 3800 |8 | Execute Record,Field_Write,Field_Number 0x0 012d e408 | | Load 0x2,0x8 012e e40f | | Load 0x2,0xf 012f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1 0130 e406 | | Load 0x2,0x6 0131 e40f | | Load 0x2,0xf 0132 3802 |8 | Execute Record,Field_Write,Field_Number 0x2 0133 e403 | | Load 0x2,0x3 0134 e40f | | Load 0x2,0xf 0135 3803 |8 | Execute Record,Field_Write,Field_Number 0x3 0136 e404 | | Load 0x2,0x4 0137 e40f | | Load 0x2,0xf 0138 3804 |8 | Execute Record,Field_Write,Field_Number 0x4 0139 e03b | ; | Load 0x0,0x3b 013a 3c04 |< | Execute Record,Field_Read,Field_Number 0x4 013b e03b | ; | Load 0x0,0x3b 013c 3403 |4 | Execute Record,Field_Reference,Field_Number 0x3 013d 01d6 | | Execute Vector,Field_Write 013e e03b | ; | Load 0x0,0x3b 013f 3c17 |< | Execute Record,Field_Read,Field_Number 0x17 0140 e403 | | Load 0x2,0x3 0141 0273 | s | Execute Discrete,Plus 0142 e017 | | Load 0x0,0x17 0143 3c34 |<4 | Execute Record,Field_Read,Field_Number 0x34 0144 0901 | | Execute_Immediate Binary_Scale,0x1 0145 0273 | s | Execute Discrete,Plus 0146 e03b | ; | Load 0x0,0x3b 0147 3817 |8 | Execute Record,Field_Write,Field_Number 0x17 0148 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0149 0000 0000 | | .BLANK 0000[0x7] 0150 ; -------------------------------------------------------------------------------------- 0150 ; SUBPROGRAM 0150 ; -------------------------------------------------------------------------------------- 0150 0155 | U | .CONST 0x0155 ; Address of begin 0151 0004 | | .CONST 0x0004 ; Address of exception handler 0152 0002 | | .CONST 0x0002 ; Number of locals 0153 INIT_0150: 0153 029f 01eb | | Declare_Subprogram INIT_01e8,For_Call 0155 BODY_0150: 0155 4803 |H | Short_Literal 0x3 0156 a7fd | | Store_Unchecked 0x3,-0x3 0157 e7ff | | Load 0x3,-0x1 0158 01db | | Execute Vector,Length 0159 0d01 | | Execute_Immediate Less,0x1 015a 6809 |h | Jump_Zero 0x164 015b 0092 0222 | "| Action Push_String_Extended,0x222 ; "Column modes must be specified without intervening linefeeds" 015d e01c | | Load 0x0,0x1c 015e 180e | | Execute Package,Field_Execute,Field_Number 0xe 015f 4801 |H | Short_Literal 0x1 0160 a40b | | Store_Unchecked 0x2,0xb 0161 4800 |H | Short_Literal 0x0 0162 a7fe | | Store_Unchecked 0x3,-0x2 0163 4502 |E | Exit_Suprogram New_Top_Offset 0x2 0164 e7ff | | Load 0x3,-0x1 0165 01dd | | Execute Vector,First 0166 e7ff | | Load 0x3,-0x1 0167 01d7 | | Execute Vector,Field_Read 0168 e01a | | Load 0x0,0x1a 0169 1811 | | Execute Package,Field_Execute,Field_Number 0x11 016a 00d8 | | Load_Top At_Offset_0 016b 0d63 | c | Execute_Immediate Less,0x63 016c 702d |p- | Jump_Nonzero 0x19a 016d 0a9d | | Execute_Immediate Plus,-0x63 016e 461c |F | Jump_Case 0x1d 016f 783c |x< | Jump 0x1ac ; case 0x0 0170 786b |xk | Jump 0x1dc ; case 0x1 0171 781a |x | Jump 0x18c ; case 0x2 0172 7819 |x | Jump 0x18c ; case 0x3 0173 7818 |x | Jump 0x18c ; case 0x4 0174 7817 |x | Jump 0x18c ; case 0x5 0175 7816 |x | Jump 0x18c ; case 0x6 0176 7855 |xU | Jump 0x1cc ; case 0x7 0177 7814 |x | Jump 0x18c ; case 0x8 0178 7823 |x# | Jump 0x19c ; case 0x9 0179 7812 |x | Jump 0x18c ; case 0xa 017a 7811 |x | Jump 0x18c ; case 0xb 017b 7810 |x | Jump 0x18c ; case 0xc 017c 780f |x | Jump 0x18c ; case 0xd 017d 780e |x | Jump 0x18c ; case 0xe 017e 783d |x= | Jump 0x1bc ; case 0xf 017f 780c |x | Jump 0x18c ; case 0x10 0180 780b |x | Jump 0x18c ; case 0x11 0181 780a |x | Jump 0x18c ; case 0x12 0182 7809 |x | Jump 0x18c ; case 0x13 0183 7808 |x | Jump 0x18c ; case 0x14 0184 7807 |x | Jump 0x18c ; case 0x15 0185 7806 |x | Jump 0x18c ; case 0x16 0186 7805 |x | Jump 0x18c ; case 0x17 0187 7804 |x | Jump 0x18c ; case 0x18 0188 7803 |x | Jump 0x18c ; case 0x19 0189 7802 |x | Jump 0x18c ; case 0x1a 018a 7801 |x | Jump 0x18c ; case 0x1b 018b 7800 |x | Jump 0x18c ; case 0x1c 018c 0092 0223 | #| Action Push_String_Extended,0x223 ; "'" 018e e7ff | | Load 0x3,-0x1 018f 01cc | | Execute Vector,Catenate 0190 0092 0224 | $| Action Push_String_Extended,0x224 ; "' is not a valid column mode" 0192 01cc | | Execute Vector,Catenate 0193 e01c | | Load 0x0,0x1c 0194 180e | | Execute Package,Field_Execute,Field_Number 0xe 0195 4801 |H | Short_Literal 0x1 0196 a40b | | Store_Unchecked 0x2,0xb 0197 4800 |H | Short_Literal 0x0 0198 a7fe | | Store_Unchecked 0x3,-0x2 0199 4502 |E | Exit_Suprogram New_Top_Offset 0x2 019a 00d1 | | Pop_Control Pop_Count_1 019b 7ff0 | | Jump 0x18c 019c e7ff | | Load 0x3,-0x1 019d 01db | | Execute Vector,Length 019e 0e01 | | Execute_Immediate Not_Equal,0x1 019f 6809 |h | Jump_Zero 0x1a9 01a0 0092 0223 | #| Action Push_String_Extended,0x223 ; "'" 01a2 e7ff | | Load 0x3,-0x1 01a3 01cc | | Execute Vector,Catenate 01a4 0092 0225 | %| Action Push_String_Extended,0x225 ; "' is not a valid column mode; using 'L'" 01a6 01cc | | Execute Vector,Catenate 01a7 e01c | | Load 0x0,0x1c 01a8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01a9 4800 |H | Short_Literal 0x0 01aa a7fe | | Store_Unchecked 0x3,-0x2 01ab 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01ac e7ff | | Load 0x3,-0x1 01ad 01db | | Execute Vector,Length 01ae 0e01 | | Execute_Immediate Not_Equal,0x1 01af 6809 |h | Jump_Zero 0x1b9 01b0 0092 0223 | #| Action Push_String_Extended,0x223 ; "'" 01b2 e7ff | | Load 0x3,-0x1 01b3 01cc | | Execute Vector,Catenate 01b4 0092 0226 | &| Action Push_String_Extended,0x226 ; "' is not a valid column mode; using 'C'" 01b6 01cc | | Execute Vector,Catenate 01b7 e01c | | Load 0x0,0x1c 01b8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01b9 4801 |H | Short_Literal 0x1 01ba a7fe | | Store_Unchecked 0x3,-0x2 01bb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01bc e7ff | | Load 0x3,-0x1 01bd 01db | | Execute Vector,Length 01be 0e01 | | Execute_Immediate Not_Equal,0x1 01bf 6809 |h | Jump_Zero 0x1c9 01c0 0092 0223 | #| Action Push_String_Extended,0x223 ; "'" 01c2 e7ff | | Load 0x3,-0x1 01c3 01cc | | Execute Vector,Catenate 01c4 0092 0227 | '| Action Push_String_Extended,0x227 ; "' is not a valid column mode; using 'R'" 01c6 01cc | | Execute Vector,Catenate 01c7 e01c | | Load 0x0,0x1c 01c8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01c9 4802 |H | Short_Literal 0x2 01ca a7fe | | Store_Unchecked 0x3,-0x2 01cb 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01cc e7ff | | Load 0x3,-0x1 01cd 01db | | Execute Vector,Length 01ce 0e01 | | Execute_Immediate Not_Equal,0x1 01cf 6809 |h | Jump_Zero 0x1d9 01d0 0092 0223 | #| Action Push_String_Extended,0x223 ; "'" 01d2 e7ff | | Load 0x3,-0x1 01d3 01cc | | Execute Vector,Catenate 01d4 0092 0228 | (| Action Push_String_Extended,0x228 ; "' is not a valid column mode; using 'J'" 01d6 01cc | | Execute Vector,Catenate 01d7 e01c | | Load 0x0,0x1c 01d8 180e | | Execute Package,Field_Execute,Field_Number 0xe 01d9 4803 |H | Short_Literal 0x3 01da a7fe | | Store_Unchecked 0x3,-0x2 01db 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01dc 4804 |H | Short_Literal 0x4 01dd a7fe | | Store_Unchecked 0x3,-0x2 01de e7ff | | Load 0x3,-0x1 01df 01db | | Execute Vector,Length 01e0 0c02 | | Execute_Immediate Greater_Equal,0x2 01e1 6801 |h | Jump_Zero 0x1e3 01e2 8602 | | Call 0x3,0x2 01e3 4502 |E | Exit_Suprogram New_Top_Offset 0x2 01e4 0000 0000 | | .BLANK 0000[0x4] 01e8 ; -------------------------------------------------------------------------------------- 01e8 ; SUBPROGRAM 01e8 ; -------------------------------------------------------------------------------------- 01e8 01f1 | | .CONST 0x01f1 ; Address of begin 01e9 0004 | | .CONST 0x0004 ; Address of exception handler 01ea 0003 | | .CONST 0x0003 ; Number of locals 01eb INIT_01e8: 01eb 00e2 | | Load_Encached Integer_Cache 01ec e7ff | | Load 0x3,-0x1 01ed 01dd | | Execute Vector,First 01ee 0a01 | | Execute_Immediate Plus,0x1 01ef 00e3 | | Load_Encached Natural_Cache 01f0 03ec | | Declare_Variable Discrete,With_Value,With_Constraint 01f1 BODY_01e8: 01f1 00d8 | | Load_Top At_Offset_0 01f2 e7ff | | Load 0x3,-0x1 01f3 01d7 | | Execute Vector,Field_Read 01f4 0f2c | , | Execute_Immediate Equal,0x2c 01f5 6803 |h | Jump_Zero 0x1f9 01f6 00d8 | | Load_Top At_Offset_0 01f7 0a01 | | Execute_Immediate Plus,0x1 01f8 c803 | | Store 0x4,0x3 01f9 00e1 | | Load_Encached Boolean_Cache 01fa 00e2 | | Load_Encached Integer_Cache 01fb 480a |H | Short_Literal 0xa 01fc e803 | | Load 0x4,0x3 01fd e7ff | | Load 0x3,-0x1 01fe 01dc | | Execute Vector,Last 01ff e7ff | | Load 0x3,-0x1 0200 01cf | | Execute Vector,Slice_Read 0201 e01a | | Load 0x0,0x1a 0202 1818 | | Execute Package,Field_Execute,Field_Number 0x18 0203 c802 | | Store 0x4,0x2 0204 c40a | | Store 0x2,0xa 0205 e40a | | Load 0x2,0xa 0206 6806 |h | Jump_Zero 0x20d 0207 e802 | | Load 0x4,0x2 0208 0d00 | | Execute_Immediate Less,0x0 0209 e802 | | Load 0x4,0x2 020a 0c10 | | Execute_Immediate Greater_Equal,0x10 020b 0278 | x | Execute Discrete,Or 020c 680a |h | Jump_Zero 0x217 020d 0092 0229 | )| Action Push_String_Extended,0x229 ; "Invalid decimal places on 'D' specifier (" 020f e7ff | | Load 0x3,-0x1 0210 01cc | | Execute Vector,Catenate 0211 0092 022a | *| Action Push_String_Extended,0x22a ; "); using 'D3'" 0213 01cc | | Execute Vector,Catenate 0214 e01c | | Load 0x0,0x1c 0215 180e | | Execute Package,Field_Execute,Field_Number 0xe 0216 4501 |E | Exit_Suprogram New_Top_Offset 0x1 0217 e802 | | Load 0x4,0x2 0218 c7fd | | Store 0x3,-0x3 0219 4501 |E | Exit_Suprogram New_Top_Offset 0x1 021a ; -------------------------------------------------------------------------------------- 021a ; STRING TABLE 021a ; -------------------------------------------------------------------------------------- 021a 0024 | $ | .STRTAB 0x0024->0x022c ; "Ignoring Column_Definition not bracketed by Begin(Table) and End(Table)" 021b 0069 | i | .STRTAB 0x0069->0x024f ; "All Column_Definition commands must be before any Column_Entry" 021c 00a5 | | .STRTAB 0x00a5->0x026e ; "Invalid percentage supplied as a column width. 25 assumed" 021d 00dd | | .STRTAB 0x00dd->0x028b ; "Cannot specify 'D'ecimal as the Heading Mode" 021e 0107 | | .STRTAB 0x0107->0x02a1 ; "Column_Definition" 021f 0116 | | .STRTAB 0x0116->0x02aa ; "Heading_Mode must be specified" 0220 0132 | 2 | .STRTAB 0x0132->0x02b9 ; "Body_Mode must be specified" 0221 014b | K | .STRTAB 0x014b->0x02c6 ; "Table exceeds maximum number of columns" 0222 0170 | p | .STRTAB 0x0170->0x02da ; "Column modes must be specified without intervening linefeeds" 0223 01aa | | .STRTAB 0x01aa->0x02f8 ; "'" 0224 01a9 | | .STRTAB 0x01a9->0x02f8 ; "' is not a valid column mode" 0225 01c3 | | .STRTAB 0x01c3->0x0306 ; "' is not a valid column mode; using 'L'" 0226 01e8 | | .STRTAB 0x01e8->0x031a ; "' is not a valid column mode; using 'C'" 0227 020d | | .STRTAB 0x020d->0x032d ; "' is not a valid column mode; using 'R'" 0228 0232 | 2 | .STRTAB 0x0232->0x0341 ; "' is not a valid column mode; using 'J'" 0229 0257 | W | .STRTAB 0x0257->0x0354 ; "Invalid decimal places on 'D' specifier (" 022a 027e | ~ | .STRTAB 0x027e->0x0369 ; "); using 'D3'" 022b 0289 | | .STREND 0x0289->0x036f 022c 4967 6e6f |Igno| .STRTAB_STRINGS 0370 ; -------------------------------------------------------------------------------------- 0370 ; Debug Table 0370 ; -------------------------------------------------------------------------------------- 0370 0004 000f | | .DEBUG4 0x0004,0x000f,0x47fd,0x0000,0x0001,0x0000 0376 0000 0000 | | .XXX[0x9] 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]