|
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 0000 0000 | | .BLANK 0000[0x1a2]