|
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]