|
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 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 4818 c9b9 |H | .XXX[0x1a2]
0260 3444 0f5d |4D ]|
0262 7049 cd35 |pI 5|
0264 5543 5d90 |UC] |
0266 d909 3420 | 4 |
0268 973b d8d5 | ; |
026a 9f00 5c0f | \ |
026c 7c10 dab2 || |
026e 34fd 5362 |4 Sb|
0270 c0c6 0051 | Q|
0272 2a57 6091 |*W` |
0274 2f1a b20e |/ |
0276 8f69 40aa | i@ |
0278 4934 c20d |I4 |
027a 9d71 af27 | q '|
027c 2d94 8f52 |- R|
027e 2812 6c35 |( l5|
0280 ad0c 79f5 | y |
0282 3063 398d |0c9 |
0284 0f6a d0da | j |
0286 c705 a78f | |
0288 7c00 dafc || |
028a 2161 ed40 |!a @|
028c 9134 c739 | 4 9|
028e 854c 4c64 | LLd|
0290 dee5 3630 | 60|
0292 4f23 c0d8 |O# |
0294 d739 bc4f | 9 O|
0296 7310 e097 |s |
0298 334b 236a |3K#j|
029a c2d7 2234 | "4|
029c 3583 9d31 |5 1|
029e 1732 34af | 24 |
02a0 cecf 1121 | !|
02a2 2838 950f |(8 |
02a4 7430 e518 |t0 |
02a6 b5d8 cdb4 | |
02a8 5513 bc29 |U )|
02aa eacf 0200 | |
02ac dc2a 45da | *E |
02ae 0f63 681b | ch |
02b0 a235 e98f | 5 |
02b2 8150 2c35 | P,5|
02b4 3bbb 0dff |; |
02b6 10dd 1441 | A|
02b8 f78f 7b60 | {`|
02ba e464 3bfc | d; |
02bc 4f00 b050 |O P|
02be 69b4 6a5b |i j[|
02c0 9600 e1d7 | |
02c2 0fda 4810 | H |
02c4 40e2 4db6 |@ M |
02c6 688d 9119 |h |
02c8 a02d 388b | -8 |
02ca 4783 60e6 |G ` |
02cc 0432 3413 | 24 |
02ce 4d38 e1fe |M8 |
02d0 08bd 9366 | f|
02d2 58c3 1c4c |X L|
02d4 1303 8671 | q|
02d6 10df 1550 | P|
02d8 538a c0da |S |
02da 7faf 2808 | ( |
02dc 255a 6a60 |%Zj`|
02de 3a00 cc93 |: |
02e0 a0c4 ad38 | 8|
02e2 49c9 58a2 |I X |
02e4 b99a 6e8d | n |
02e6 4f2a e054 |O* T|
02e8 ea3a 19d1 | : |
02ea 4ed1 3d35 |N =5|
02ec 3a47 cca6 |:G |
02ee 102b 103a | + :|
02f0 b6cb a562 | b|
02f2 dcfb 3ab2 | : |
02f4 4f87 30e5 |O 0 |
02f6 3a39 9fa7 |:9 |
02f8 a2d1 3950 | 9P|
02fa 3890 4aa0 |8 J |
02fc 44ef 3e3b |D >;|
02fe cbcd 2548 | %H|
0300 1b5f 3a59 | _:Y|
0302 4e7e 60e7 |N~` |
0304 2e9a 8e0f |. |
0306 a120 e9b6 | |
0308 013d d7bb | = |
030a e2db 83b7 | |
030c 3713 e820 |7 |
030e 5743 a85a |WC Z|
0310 8f9c 904b | K|
0312 9f39 cfef | 9 |
0314 9c40 e60a | @ |
0316 392d 03a3 |9- |
0318 7107 e73a |q :|
031a 3e8b a370 |> p|
031c 598f a2ec |Y |
031e cf99 10e9 | |
0320 113b 204c | ; L|
0322 fc84 f16e | n|
0324 3859 0f91 |8Y |
0326 d0eb 786a | xj|
0328 a04f b9d0 | O |
032a 16f2 39fd | 9 |
032c afa9 d03e | >|
032e ee4d 43c7 | MC |
0330 b2e0 e939 | 9|
0332 3950 8fae |9P |
0334 b097 bc3a | :|
0336 d98f aec0 | |
0338 8ae1 39f3 | 9 |
033a 57cb d002 |W |
033c f338 948f | 8 |
033e b490 1fed | |
0340 9334 cc55 | 4 U|
0342 d45a 732e | Zs.|
0344 32ec 58b4 |2 X |
0346 ec33 43d4 | 3C |
0348 08c0 72df | r |
034a 2338 b967 |#8 g|
034c b700 e464 | d|
034e 2703 c158 |' X|
0350 e003 6d3b | m;|
0352 4dce ede8 |M |
0354 ef0e 49aa | I |
0356 c8d1 3423 | 4#|
0358 b03a 446f | :Do|
035a 1b80 d6a8 | |
035c 07fe 9299 | |
035e 64fb beb1 |d |
0360 8ce4 5c51 | \Q|
0362 42a9 24d6 |B $ |
0364 0cab 84f2 | |
0366 cc96 46ec | F |
0368 1706 79aa | y |
036a 3e90 4788 |> G |
036c 8a74 5a68 | tZh|
036e 338f f8f0 |3 |
0370 f2cb 9712 | |
0372 4fef 00c0 |O |
0374 5c3e 62ac |\>b |
0376 7522 dcea |u" |
0378 331f cc26 |3 &|
037a 14f1 c541 | A|
037c 54ca 6f80 |T o |
037e f0a2 3d60 | =`|
0380 26ea c8f1 |& |
0382 4117 06ea |A |
0384 f4d1 08cc | |
0386 3e81 6fe7 |> o |
0388 b2e6 1207 | |
038a 38cc 4515 |8 E |
038c 079d 4b40 | K@|
038e cce8 40f5 | @ |
0390 e6ba 7d48 | }H|
0392 1294 392c | 9,|
0394 3c23 5fe9 |<#_ |
0396 92ad 433f | C?|
0398 f009 5582 | U |
039a a842 4461 | BDa|
039c 14fb a4fa | |
039e 15ab 5d0f | ] |
03a0 1790 f64f | O|
03a2 33e6 92f0 |3 |
03a4 a101 993f | ?|
03a6 f80e b42a | *|
03a8 c2b4 076e | n|
03aa 4ffe 709d |O p |
03ac bc3c 8688 | < |
03ae 4b20 b7e7 |K |
03b0 3da9 4bdf |= K |
03b2 10b2 ecae | |
03b4 a7ae cc98 | |
03b6 bdd8 41bc | A |
03b8 ef33 72aa | 3r |
03ba 9fb8 196c | l|
03bc 4224 552c |B$U,|
03be ba22 4be0 | "K |
03c0 b0fb e73c | <|
03c2 5250 5190 |RPQ |
03c4 f95a ba67 | Z g|
03c6 e8a4 96ba | |
03c8 453e 4def |E>M |
03ca 3b82 7169 |; qi|
03cc bba0 4e34 | N4|
03ce d119 8b15 | |
03d0 52d0 b5f4 |R |
03d2 02a0 3f02 | ? |
03d4 9be9 c142 | B|
03d6 e43c 23d1 | <# |
03d8 bd00 9602 | |
03da b42b 1176 | + v|
03dc a819 a94a | J|
03de e2ef 2bc0 | + |
03e0 f844 01f2 | D |
03e2 640a 6497 |d d |
03e4 da2d f405 | - |
03e6 7e38 fba9 |~8 |
03e8 6bc9 0ff6 |k |
03ea 711b 393f |q 9?|
03ec f28c 1045 | E|
03ee 0275 23ed | u# |
03f0 8c72 a06d | r m|
03f2 196b da4c | k L|
03f4 0834 a74d | 4 M|
03f6 3e88 4f12 |> O |
03f8 e9a3 86b9 | |
03fa 858b fbd0 | |
03fc ed20 4570 | Ep|
03fe 9158 a117 | X |