|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0258 | X | .CONST 0x0258 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0019 | | .CONST 0x0019 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0008 | | .CONST 0x0008 ; Number of locals
000b INIT_0008:
000b e020 | | Load 0x0,0x20
000c 1b13 | | Execute Package,Field_Read,Field_Number 0x13
000d 0322 | " | Declare_Variable Record
000e e011 | | Load 0x0,0x11
000f 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
0010 00e2 | | Load_Encached Integer_Cache
0011 e099 | | Load 0x0,0x99
0012 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0013 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0015 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0017 029f 01cb | | Declare_Subprogram INIT_01c8,For_Call
0019 BODY_0008:
0019 e5ff | | Load 0x2,-0x1
001a e011 | | Load 0x0,0x11
001b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
001d e099 | | Load 0x0,0x99
001e 1820 | | Execute Package,Field_Execute,Field_Number 0x20
001f a405 | | Store_Unchecked 0x2,0x5
0020 e5ff | | Load 0x2,-0x1
0021 e011 | | Load 0x0,0x11
0022 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0023 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0024 0e00 | | Execute_Immediate Not_Equal,0x0
0025 e405 | | Load 0x2,0x5
0026 e099 | | Load 0x0,0x99
0027 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0028 0279 | y | Execute Discrete,And
0029 6805 |h | Jump_Zero 0x2f
002a 0092 01d1 | | Action Push_String_Extended,0x1d1 ; "Argument to Environment was unrecognizable"
002c e01c | | Load 0x0,0x1c
002d 180e | | Execute Package,Field_Execute,Field_Number 0xe
002e 4502 |E | Exit_Suprogram New_Top_Offset 0x2
002f 00cf | | Action Mark_Auxiliary
0030 7957 |yW | Jump 0x188
0031 4800 |H | Short_Literal 0x0
0032 e405 | | Load 0x2,0x5
0033 e099 | | Load 0x0,0x99
0034 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0035 6944 |iD | Jump_Zero 0x17a
0036 e405 | | Load 0x2,0x5
0037 e099 | | Load 0x0,0x99
0038 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0039 4613 |F | Jump_Case 0x14
003a 7948 |yH | Jump 0x183 ; case 0x0
003b 7838 |x8 | Jump 0x74 ; case 0x1
003c 783b |x; | Jump 0x78 ; case 0x2
003d 7848 |xH | Jump 0x86 ; case 0x3
003e 787b |x{ | Jump 0xba ; case 0x4
003f 78f9 |x | Jump 0x139 ; case 0x5
0040 7906 |y | Jump 0x147 ; case 0x6
0041 7930 |y0 | Jump 0x172 ; case 0x7
0042 7933 |y3 | Jump 0x176 ; case 0x8
0043 7846 |xF | Jump 0x8a ; case 0x9
0044 7879 |xy | Jump 0xbe ; case 0xa
0045 78b6 |x | Jump 0xfc ; case 0xb
0046 7904 |y | Jump 0x14b ; case 0xc
0047 789a |x | Jump 0xe2 ; case 0xd
0048 78a6 |x | Jump 0xef ; case 0xe
0049 78e2 |x | Jump 0x12c ; case 0xf
004a 7893 |x | Jump 0xde ; case 0x10
004b 78dc |x | Jump 0x128 ; case 0x11
004c 7921 |y! | Jump 0x16e ; case 0x12
004d 7800 |x | Jump 0x4e ; case 0x13
004e 4800 |H | Short_Literal 0x0
004f 4801 |H | Short_Literal 0x1
0050 4800 |H | Short_Literal 0x0
0051 e405 | | Load 0x2,0x5
0052 e09a | | Load 0x0,0x9a
0053 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0054 4604 |F | Jump_Case 0x5
0055 7808 |x | Jump 0x5e ; case 0x0
0056 7811 |x | Jump 0x68 ; case 0x1
0057 7814 |x | Jump 0x6c ; case 0x2
0058 7817 |x | Jump 0x70 ; case 0x3
0059 7800 |x | Jump 0x5a ; case 0x4
005a 4800 |H | Short_Literal 0x0
005b e01d | | Load 0x0,0x1d
005c 380a |8 | Execute Record,Field_Write,Field_Number 0xa
005d 7925 |y% | Jump 0x183
005e 0092 01d2 | | Action Push_String_Extended,0x1d2 ; "Environment Justify_Mode"
0060 4800 |H | Short_Literal 0x0
0061 e405 | | Load 0x2,0x5
0062 e099 | | Load 0x0,0x99
0063 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0064 01cc | | Execute Vector,Catenate
0065 e01c | | Load 0x0,0x1c
0066 180e | | Execute Package,Field_Execute,Field_Number 0xe
0067 791b |y | Jump 0x183
0068 4803 |H | Short_Literal 0x3
0069 e01d | | Load 0x0,0x1d
006a 380a |8 | Execute Record,Field_Write,Field_Number 0xa
006b 7917 |y | Jump 0x183
006c 4801 |H | Short_Literal 0x1
006d e01d | | Load 0x0,0x1d
006e 380a |8 | Execute Record,Field_Write,Field_Number 0xa
006f 7913 |y | Jump 0x183
0070 4802 |H | Short_Literal 0x2
0071 e01d | | Load 0x0,0x1d
0072 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0073 790f |y | Jump 0x183
0074 8408 | | Call 0x2,0x8
0075 e01d | | Load 0x0,0x1d
0076 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0077 790b |y | Jump 0x183
0078 8408 | | Call 0x2,0x8
0079 6807 |h | Jump_Zero 0x81
007a 4800 |H | Short_Literal 0x0
007b e01d | | Load 0x0,0x1d
007c 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
007d 4800 |H | Short_Literal 0x0
007e e01d | | Load 0x0,0x1d
007f 380a |8 | Execute Record,Field_Write,Field_Number 0xa
0080 7902 |y | Jump 0x183
0081 0092 01d3 | | Action Push_String_Extended,0x1d3 ; "Center=False is an unsupported Environment option"
0083 e01c | | Load 0x0,0x1c
0084 180e | | Execute Package,Field_Execute,Field_Number 0xe
0085 78fd |x | Jump 0x183
0086 8408 | | Call 0x2,0x8
0087 e01d | | Load 0x0,0x1d
0088 3809 |8 | Execute Record,Field_Write,Field_Number 0x9
0089 78f9 |x | Jump 0x183
008a e011 | | Load 0x0,0x11
008b 1b2f | / | Execute Package,Field_Read,Field_Number 0x2f
008c 00ea | | Load_Encached Null_String_Cache
008d 4800 |H | Short_Literal 0x0
008e e405 | | Load 0x2,0x5
008f e099 | | Load 0x0,0x99
0090 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0091 e020 | | Load 0x0,0x20
0092 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0093 e021 | ! | Load 0x0,0x21
0094 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0095 00d8 | | Load_Top At_Offset_0
0096 e021 | ! | Load 0x0,0x21
0097 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0098 7003 |p | Jump_Nonzero 0x9c
0099 e022 | " | Load 0x0,0x22
009a 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
009b 0257 | W | Execute Discrete,Raise
009c 1818 | | Execute Package,Field_Execute,Field_Number 0x18
009d c403 | | Store 0x2,0x3
009e e403 | | Load 0x2,0x3
009f 700e |p | Jump_Nonzero 0xae
00a0 0092 01d4 | | Action Push_String_Extended,0x1d4 ; "Font family \x22"
00a2 00ea | | Load_Encached Null_String_Cache
00a3 4800 |H | Short_Literal 0x0
00a4 e405 | | Load 0x2,0x5
00a5 e099 | | Load 0x0,0x99
00a6 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
00a7 01cc | | Execute Vector,Catenate
00a8 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "\x22 is undefined"
00aa 01cc | | Execute Vector,Catenate
00ab e01c | | Load 0x0,0x1c
00ac 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ad 78d5 |x | Jump 0x183
00ae e403 | | Load 0x2,0x3
00af e01d | | Load 0x0,0x1d
00b0 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b1 e02c | , | Load 0x0,0x2c
00b2 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00b3 70cf |p | Jump_Nonzero 0x183
00b4 e09b | | Load 0x0,0x9b
00b5 70cd |p | Jump_Nonzero 0x183
00b6 e403 | | Load 0x2,0x3
00b7 e030 | 0 | Load 0x0,0x30
00b8 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00b9 78c9 |x | Jump 0x183
00ba 8408 | | Call 0x2,0x8
00bb e01d | | Load 0x0,0x1d
00bc 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00bd 78c5 |x | Jump 0x183
00be 8406 | | Call 0x2,0x6
00bf e01d | | Load 0x0,0x1d
00c0 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
00c1 e01d | | Load 0x0,0x1d
00c2 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
00c3 e01d | | Load 0x0,0x1d
00c4 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
00c5 0273 | s | Execute Discrete,Plus
00c6 4be8 |K | Short_Literal 0x3e8
00c7 0271 | q | Execute Discrete,Times
00c8 e011 | | Load 0x0,0x11
00c9 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00ca 00d9 | | Load_Top At_Offset_1
00cb 00d0 | | Action Swap_Control
00cc 0260 | ` | Execute Discrete,In_Type
00cd 7001 |p | Jump_Nonzero 0xcf
00ce 0801 | | Execute_Immediate Raise,0x1
00cf e020 | | Load 0x0,0x20
00d0 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00d1 e021 | ! | Load 0x0,0x21
00d2 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00d3 00d8 | | Load_Top At_Offset_0
00d4 e021 | ! | Load 0x0,0x21
00d5 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
00d6 7003 |p | Jump_Nonzero 0xda
00d7 e022 | " | Load 0x0,0x22
00d8 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00d9 0257 | W | Execute Discrete,Raise
00da 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00db e01d | | Load 0x0,0x1d
00dc 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
00dd 78a5 |x | Jump 0x183
00de 8407 | | Call 0x2,0x7
00df e01d | | Load 0x0,0x1d
00e0 3818 |8 | Execute Record,Field_Write,Field_Number 0x18
00e1 78a1 |x | Jump 0x183
00e2 8407 | | Call 0x2,0x7
00e3 e01d | | Load 0x0,0x1d
00e4 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
00e5 e02c | , | Load 0x0,0x2c
00e6 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00e7 709b |p | Jump_Nonzero 0x183
00e8 e09b | | Load 0x0,0x9b
00e9 7099 |p | Jump_Nonzero 0x183
00ea e01d | | Load 0x0,0x1d
00eb 3c16 |< | Execute Record,Field_Read,Field_Number 0x16
00ec e030 | 0 | Load 0x0,0x30
00ed 3816 |8 | Execute Record,Field_Write,Field_Number 0x16
00ee 7894 |x | Jump 0x183
00ef 8407 | | Call 0x2,0x7
00f0 e01d | | Load 0x0,0x1d
00f1 381b |8 | Execute Record,Field_Write,Field_Number 0x1b
00f2 e02c | , | Load 0x0,0x2c
00f3 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00f4 708e |p | Jump_Nonzero 0x183
00f5 e09b | | Load 0x0,0x9b
00f6 708c |p | Jump_Nonzero 0x183
00f7 e01d | | Load 0x0,0x1d
00f8 3c1b |< | Execute Record,Field_Read,Field_Number 0x1b
00f9 e030 | 0 | Load 0x0,0x30
00fa 381b |8 | Execute Record,Field_Write,Field_Number 0x1b
00fb 7887 |x | Jump 0x183
00fc 8406 | | Call 0x2,0x6
00fd e020 | | Load 0x0,0x20
00fe 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00ff e021 | ! | Load 0x0,0x21
0100 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0101 00d8 | | Load_Top At_Offset_0
0102 e021 | ! | Load 0x0,0x21
0103 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0104 7003 |p | Jump_Nonzero 0x108
0105 e022 | " | Load 0x0,0x22
0106 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0107 0257 | W | Execute Discrete,Raise
0108 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0109 e01d | | Load 0x0,0x1d
010a 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
010b e01d | | Load 0x0,0x1d
010c 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
010d e01d | | Load 0x0,0x1d
010e 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
010f 0273 | s | Execute Discrete,Plus
0110 4be8 |K | Short_Literal 0x3e8
0111 0271 | q | Execute Discrete,Times
0112 e011 | | Load 0x0,0x11
0113 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0114 00d9 | | Load_Top At_Offset_1
0115 00d0 | | Action Swap_Control
0116 0260 | ` | Execute Discrete,In_Type
0117 7001 |p | Jump_Nonzero 0x119
0118 0801 | | Execute_Immediate Raise,0x1
0119 e020 | | Load 0x0,0x20
011a 1b12 | | Execute Package,Field_Read,Field_Number 0x12
011b e021 | ! | Load 0x0,0x21
011c 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
011d 00d8 | | Load_Top At_Offset_0
011e e021 | ! | Load 0x0,0x21
011f 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0120 7003 |p | Jump_Nonzero 0x124
0121 e022 | " | Load 0x0,0x22
0122 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0123 0257 | W | Execute Discrete,Raise
0124 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0125 e01d | | Load 0x0,0x1d
0126 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
0127 785b |x[ | Jump 0x183
0128 8407 | | Call 0x2,0x7
0129 e01d | | Load 0x0,0x1d
012a 3819 |8 | Execute Record,Field_Write,Field_Number 0x19
012b 7857 |xW | Jump 0x183
012c 8407 | | Call 0x2,0x7
012d e01d | | Load 0x0,0x1d
012e 3817 |8 | Execute Record,Field_Write,Field_Number 0x17
012f e02c | , | Load 0x0,0x2c
0130 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0131 7051 |pQ | Jump_Nonzero 0x183
0132 e09b | | Load 0x0,0x9b
0133 704f |pO | Jump_Nonzero 0x183
0134 e01d | | Load 0x0,0x1d
0135 3c17 |< | Execute Record,Field_Read,Field_Number 0x17
0136 e030 | 0 | Load 0x0,0x30
0137 3817 |8 | Execute Record,Field_Write,Field_Number 0x17
0138 784a |xJ | Jump 0x183
0139 8408 | | Call 0x2,0x8
013a 6807 |h | Jump_Zero 0x142
013b 4800 |H | Short_Literal 0x0
013c e01d | | Load 0x0,0x1d
013d 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
013e 4800 |H | Short_Literal 0x0
013f e01d | | Load 0x0,0x1d
0140 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0141 7841 |xA | Jump 0x183
0142 0092 01d6 | | Action Push_String_Extended,0x1d6 ; "Roman=False is an unsupported Environment option"
0144 e01c | | Load 0x0,0x1c
0145 180e | | Execute Package,Field_Execute,Field_Number 0xe
0146 783c |x< | Jump 0x183
0147 8408 | | Call 0x2,0x8
0148 e01d | | Load 0x0,0x1d
0149 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
014a 7838 |x8 | Jump 0x183
014b 8406 | | Call 0x2,0x6
014c e01d | | Load 0x0,0x1d
014d 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
014e 0272 | r | Execute Discrete,Minus
014f e01d | | Load 0x0,0x1d
0150 3807 |8 | Execute Record,Field_Write,Field_Number 0x7
0151 e01d | | Load 0x0,0x1d
0152 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
0153 e01d | | Load 0x0,0x1d
0154 3c07 |< | Execute Record,Field_Read,Field_Number 0x7
0155 0273 | s | Execute Discrete,Plus
0156 4be8 |K | Short_Literal 0x3e8
0157 0271 | q | Execute Discrete,Times
0158 e011 | | Load 0x0,0x11
0159 1b10 | | Execute Package,Field_Read,Field_Number 0x10
015a 00d9 | | Load_Top At_Offset_1
015b 00d0 | | Action Swap_Control
015c 0260 | ` | Execute Discrete,In_Type
015d 7001 |p | Jump_Nonzero 0x15f
015e 0801 | | Execute_Immediate Raise,0x1
015f e020 | | Load 0x0,0x20
0160 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0161 e021 | ! | Load 0x0,0x21
0162 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0163 00d8 | | Load_Top At_Offset_0
0164 e021 | ! | Load 0x0,0x21
0165 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0166 7003 |p | Jump_Nonzero 0x16a
0167 e022 | " | Load 0x0,0x22
0168 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0169 0257 | W | Execute Discrete,Raise
016a 181c | | Execute Package,Field_Execute,Field_Number 0x1c
016b e01d | | Load 0x0,0x1d
016c 3808 |8 | Execute Record,Field_Write,Field_Number 0x8
016d 7815 |x | Jump 0x183
016e 8407 | | Call 0x2,0x7
016f e01d | | Load 0x0,0x1d
0170 381a |8 | Execute Record,Field_Write,Field_Number 0x1a
0171 7811 |x | Jump 0x183
0172 8408 | | Call 0x2,0x8
0173 e01d | | Load 0x0,0x1d
0174 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0175 780d |x | Jump 0x183
0176 8408 | | Call 0x2,0x8
0177 e01d | | Load 0x0,0x1d
0178 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0179 7809 |x | Jump 0x183
017a 0092 01d7 | | Action Push_String_Extended,0x1d7 ; "Environment"
017c 4800 |H | Short_Literal 0x0
017d e405 | | Load 0x2,0x5
017e e099 | | Load 0x0,0x99
017f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0180 01cc | | Execute Vector,Catenate
0181 e01c | | Load 0x0,0x1c
0182 180e | | Execute Package,Field_Execute,Field_Number 0xe
0183 e405 | | Load 0x2,0x5
0184 e099 | | Load 0x0,0x99
0185 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0186 c405 | | Store 0x2,0x5
0187 00c9 | | Action Pop_Auxiliary_Loop
0188 e405 | | Load 0x2,0x5
0189 e099 | | Load 0x0,0x99
018a 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
018b 6ea5 |n | Jump_Zero 0x31
018c 4502 |E | Exit_Suprogram New_Top_Offset 0x2
018d 0000 0000 | | .XXX[0x3]
018f 0000 | |
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 019a | | .CONST 0x019a ; Address of begin
0191 01a2 | | .CONST 0x01a2 ; Address of exception handler
0192 0002 | | .CONST 0x0002 ; Number of locals
0193 INIT_0190:
0193 6020 |` | Indirect_Literal Discrete,0x1b4,{0x00000000, 0x7fffffff}
0194 4800 |H | Short_Literal 0x0
0195 e405 | | Load 0x2,0x5
0196 e099 | | Load 0x0,0x99
0197 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0198 00e2 | | Load_Encached Integer_Cache
0199 03f1 | | Declare_Variable Discrete,With_Value
019a BODY_0190:
019a 00d8 | | Load_Top At_Offset_0
019b 00d8 | | Load_Top At_Offset_0
019c e011 | | Load 0x0,0x11
019d 1b12 | | Execute Package,Field_Read,Field_Number 0x12
019e 0260 | ` | Execute Discrete,In_Type
019f 7001 |p | Jump_Nonzero 0x1a1
01a0 0801 | | Execute_Immediate Raise,0x1
01a1 00ca | | Action Exit_Nullary_Function
01a2 TRAP_0190:
01a2 0007 | | Action Break_Optional
01a3 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "Bad point size in argument "
01a5 4800 |H | Short_Literal 0x0
01a6 e405 | | Load 0x2,0x5
01a7 e099 | | Load 0x0,0x99
01a8 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
01a9 01cc | | Execute Vector,Catenate
01aa 0092 01d9 | | Action Push_String_Extended,0x1d9 ; ". 10 assumed"
01ac 01cc | | Execute Vector,Catenate
01ad e01c | | Load 0x0,0x1c
01ae 180e | | Execute Package,Field_Execute,Field_Number 0xe
01af 480a |H | Short_Literal 0xa
01b0 00ca | | Action Exit_Nullary_Function
01b1 0000 0000 | | .XXX[0x3]
01b3 0000 | |
01b4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01c0 | | .CONST 0x01c0 ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0002 | | .CONST 0x0002 ; Number of locals
01bb INIT_01b8:
01bb 00ea | | Load_Encached Null_String_Cache
01bc 4800 |H | Short_Literal 0x0
01bd e405 | | Load 0x2,0x5
01be e099 | | Load 0x0,0x99
01bf 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01c0 BODY_01b8:
01c0 00d8 | | Load_Top At_Offset_0
01c1 801b | | Call 0x0,0x1b
01c2 00ca | | Action Exit_Nullary_Function
01c3 0000 0000 | | .BLANK 0000[0x5]
01c8 ; --------------------------------------------------------------------------------------
01c8 ; SUBPROGRAM
01c8 ; --------------------------------------------------------------------------------------
01c8 01cb | | .CONST 0x01cb ; Address of begin
01c9 0004 | | .CONST 0x0004 ; Address of exception handler
01ca 0001 | | .CONST 0x0001 ; Number of locals
01cb BODY_01c8:
01cb INIT_01c8:
01cb 4800 |H | Short_Literal 0x0
01cc 4800 |H | Short_Literal 0x0
01cd e405 | | Load 0x2,0x5
01ce e099 | | Load 0x0,0x99
01cf 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01d0 00ca | | Action Exit_Nullary_Function
01d1 ; --------------------------------------------------------------------------------------
01d1 ; STRING TABLE
01d1 ; --------------------------------------------------------------------------------------
01d1 0014 | | .STRTAB 0x0014->0x01db ; "Argument to Environment was unrecognizable"
01d2 003c | < | .STRTAB 0x003c->0x01f0 ; "Environment Justify_Mode"
01d3 0052 | R | .STRTAB 0x0052->0x01fc ; "Center=False is an unsupported Environment option"
01d4 0081 | | .STRTAB 0x0081->0x0214 ; "Font family \x22"
01d5 008c | | .STRTAB 0x008c->0x021b ; "\x22 is undefined"
01d6 0098 | | .STRTAB 0x0098->0x0222 ; "Roman=False is an unsupported Environment option"
01d7 00c6 | | .STRTAB 0x00c6->0x023a ; "Environment"
01d8 00cf | | .STRTAB 0x00cf->0x023f ; "Bad point size in argument "
01d9 00e8 | | .STRTAB 0x00e8->0x024d ; ". 10 assumed"
01da 00f3 | | .STREND 0x00f3->0x0253
01db 4172 6775 |Argu| .STRTAB_STRINGS
0254 0000 0000 | | .BLANK 0000[0x4]
0258 ; --------------------------------------------------------------------------------------
0258 ; Debug Table
0258 ; --------------------------------------------------------------------------------------
0258 0004 000f | | .DEBUG4 0x0004,0x000f,0x4802,0x0000,0x0001,0x0000
025e 2cae 65c9 |, e | .XXX[0x24]
0260 8dee ecae | |
0262 4be8 6c2e |K l.|
0264 6ca0 0000 |l |
0266 00a0 0000 | |
0268 008d cdec | |
026a 8ca0 0000 | |
026c 0140 0000 | @ |
026e 0444 2a8d | D* |
0270 eded 8e65 | e|
0272 ca6e 8e4d | n M|
0274 2dcc ebea |- |
0276 ae8d 2d8d | - |
0278 2e8d 2cae |. , |
027a 65c9 8dee |e |
027c ecae 4be8 | K |
027e 6c2e 6ca0 |l.l |
0280 0000 0020 | |
0282 0000 0000 | | .BLANK 0000[0x5]
0287 05a0 0000 | | .XXX[0xb9]
0289 0000 0000 | |
028b 0580 0000 | |
028d 0600 0000 | |
028f 06ac cead | |
0291 cc6e 8d2d | n -|
0293 edc4 098d | |
0295 eeec ae4b | K|
0297 e86c 2e6c | l.l|
0299 a405 0864 | d|
029b 0744 086d | D m|
029d 0c2e 4c2c | .L,|
029f 6e8c ae45 |n E|
02a1 240e 4cae |$ L |
02a3 8eae 4dc4 | M |
02a5 086d 0c2e | m .|
02a7 4c2c 6e8c |L,n |
02a9 ae47 6000 | G` |
02ab 0005 c000 | |
02ad 0006 e404 | |
02af 0cce adcc | |
02b1 6e8d 2ded |n - |
02b3 c409 8dee | |
02b5 ecae 4be8 | K |
02b7 6c2e 6ca4 |l.l |
02b9 0508 6407 | d |
02bb 4408 6d0c |D m |
02bd 2e4c 2c6e |.L,n|
02bf 8cae 4524 | E$|
02c1 0e4c ae8e | L |
02c3 ae4d c408 | M |
02c5 6d0c 2e4c |m .L|
02c7 2c6e 8cae |,n |
02c9 4760 0000 |G` |
02cb 05c0 0000 | |
02cd 06e4 040c | |
02cf cead cc6e | n|
02d1 8d2d edc4 | - |
02d3 098d eeec | |
02d5 ae4b e86c | K l|
02d7 2e6c a405 |.l |
02d9 0864 0744 | d D|
02db 086d 0c2e | m .|
02dd 4c2c 6e8c |L,n |
02df ae45 240e | E$ |
02e1 4cae 8eae |L |
02e3 4dc4 086d |M m|
02e5 0c2e 4c2c | .L,|
02e7 6e8c ae47 |n G|
02e9 6000 000d |` |
02eb 0000 0005 | |
02ed ecce adcc | |
02ef 6e8d 2ded |n - |
02f1 c409 8dee | |
02f3 ecae 4be8 | K |
02f5 6c2e 6ca4 |l.l |
02f7 050a 6407 | d |
02f9 440a 6e8e |D n |
02fb 4d2d cce5 |M- |
02fd 240e 4cae |$ L |
02ff 8eae 4dc4 | M |
0301 0a6e 8e4d | n M|
0303 2dcc e760 |- `|
0305 0000 0cc0 | |
0307 0000 0624 | $|
0309 040c cead | |
030b cc6e 8d2d | n -|
030d edc4 098d | |
030f eeec ae4b | K|
0311 e86c 2e6c | l.l|
0313 a405 0a64 | d|
0315 0744 0a6e | D n|
0317 8e4d 2dcc | M- |
0319 e524 0e4c | $ L|
031b ae8e ae4d | M|
031d c40a 6e8e | n |
031f 4d2d cce7 |M- |
0321 6000 000c |` |
0323 c000 0006 | |
0325 2404 0cce |$ |
0327 adcc 6e8d | n |
0329 2ded c409 |- |
032b 8dee ecae | |
032d 4be8 6c2e |K l.|
032f 6ca4 050a |l |
0331 6407 440a |d D |
0333 6e8e 4d2d |n M-|
0335 cce5 240e | $ |
0337 4cae 8eae |L |
0339 4dc4 0a6e |M n|
033b 8e4d 2dcc | M- |
033d e760 0000 | ` |
033f 0020 | |
0340 0000 0000 | | .BLANK 0000[0x5]
0345 0300 0000 | | .XXX[0xbb]
0347 0000 0000 | |
0349 02e0 0000 | |
034b 0360 0000 | ` |
034d 074a 4cae | JL |
034f 8eae 4dce | M |
0351 640e 8d0c |d |
0353 a40e 6e0c | n |
0355 ac6d 2ccd | m, |
0357 2cac 840c |, |
0359 6d0c 2e4c |m .L|
035b 2c6e 8cae |,n |
035d 440d ee44 |D D|
035f 0e6e 8e4d | n M|
0361 2dcc e40d |- |
0363 2dc4 0c2d |- -|
0365 8d84 0d8d | |
0367 eeec ae4c | L|
0369 6c2e 6ca0 |l.l |
036b 0000 0320 | |
036d 0000 0784 | |
036f 040a 4cae | L |
0371 8eae 4dce | M |
0373 640e 8d0c |d |
0375 a40e 6e0c | n |
0377 ac6d 2ccd | m, |
0379 2cac 840c |, |
037b 6d0c 2e4c |m .L|
037d 2c6e 8cae |,n |
037f 440d ee44 |D D|
0381 0e6e 8e4d | n M|
0383 2dcc e40d |- |
0385 2dc4 0c2d |- -|
0387 8d84 0d8d | |
0389 eeec ae4c | L|
038b 6c2e 6ca0 |l.l |
038d 0000 0320 | |
038f 0000 0784 | |
0391 040a 4cae | L |
0393 8eae 4dce | M |
0395 640e 8d0c |d |
0397 a40e 6e0c | n |
0399 ac6d 2ccd | m, |
039b 2cac 840c |, |
039d 6d0c 2e4c |m .L|
039f 2c6e 8cae |,n |
03a1 440d ee44 |D D|
03a3 0e6e 8e4d | n M|
03a5 2dcc e40d |- |
03a7 2dc4 0c2d |- -|
03a9 8d84 0d8d | |
03ab eeec ae4c | L|
03ad 6c2e 6ca0 |l.l |
03af 0000 0b00 | |
03b1 0000 016c | l|
03b3 6d0c 2e4c |m .L|
03b5 2c6e 8cae |,n |
03b7 4e65 c000 |Ne |
03b9 000a c000 | |
03bb 0001 a404 | |
03bd 0c6d 0c2e | m .|
03bf 4c2c 6e8c |L,n |
03c1 ae4e 65c0 | Ne |
03c3 0000 0ac0 | |
03c5 0000 01a4 | |
03c7 040c 6d0c | m |
03c9 2e4c 2c6e |.L,n|
03cb 8cae 4e65 | Ne|
03cd c000 000c | |
03cf c000 0005 | |
03d1 080d cdec | |
03d3 8ca4 042a | *|
03d5 8ded ed8e | |
03d7 65ca 6e8e |e n |
03d9 4d2d cceb |M- |
03db eaae 8d2d | -|
03dd 8d2e 8d2c | . ,|
03df ae65 c98d | e |
03e1 eeec ae4b | K|
03e3 e86c 2e6c | l.l|
03e5 a000 000c | |
03e7 e000 0000 | |
03e9 8dcd ec8c | |
03eb a000 000d | |
03ed 8000 0004 | |
03ef 442a 8ded |D* |
03f1 ed8e 65ca | e |
03f3 6e8e 4d2d |n M-|
03f5 cceb eaae | |
03f7 8d2d 8d2e | - .|
03f9 8d2c ae65 | , e|
03fb c98d eeec | |
03fd ae4b e86c | K l|
03ff 2e6c |.l |