|
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: 3072 (0xc00)
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 04f8 | | .CONST 0x04f8 ; 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 8003 | | .CONST 0x8003 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0010 | | .CONST 0x0010 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0001 | | .CONST 0x0001 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0073 | s | .CONST 0x0073 ; Address of begin
0019 0231 | 1 | .CONST 0x0231 ; Address of exception handler
001a 0012 | | .CONST 0x0012 ; Number of locals
001b INIT_0018:
001b 4800 |H | Short_Literal 0x0
001c 4808 |H | Short_Literal 0x8
001d 029f 0263 | c| Declare_Subprogram INIT_0260,For_Call
001f 03fd | | Declare_Type Discrete,Defined
0020 e001 | | Load 0x0,0x1
0021 e002 | | Load 0x0,0x2
0022 e402 | | Load 0x2,0x2
0023 4800 |H | Short_Literal 0x0
0024 4801 |H | Short_Literal 0x1
0025 4808 |H | Short_Literal 0x8
0026 0092 036f | o| Action Push_String_Extended,0x36f ; "Include..Forms=Directory_String_Name,Regression_Test=Boolean"
0028 0092 0370 | p| Action Push_String_Extended,0x370 ; "Font_Directory="
002a e003 | | Load 0x0,0x3
002b 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
002c 01cc | | Execute Vector,Catenate
002d 0092 0371 | q| Action Push_String_Extended,0x371 ; ",Device_Directory="
002f 01cc | | Execute Vector,Catenate
0030 e003 | | Load 0x0,0x3
0031 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0032 01cc | | Execute Vector,Catenate
0033 0092 0372 | r| Action Push_String_Extended,0x372 ; "Font_Families=Fonts"
0035 4801 |H | Short_Literal 0x1
0036 4808 |H | Short_Literal 0x8
0037 e004 | | Load 0x0,0x4
0038 0387 | | Declare_Variable Package
0039 00d8 | | Load_Top At_Offset_0
003a 020f | | Execute Module,Activate
003b 4800 |H | Short_Literal 0x0
003c 4803 |H | Short_Literal 0x3
003d 029f 028b | | Declare_Subprogram INIT_0288,For_Call
003f 03fd | | Declare_Type Discrete,Defined
0040 e005 | | Load 0x0,0x5
0041 e006 | | Load 0x0,0x6
0042 e404 | | Load 0x2,0x4
0043 4800 |H | Short_Literal 0x0
0044 4801 |H | Short_Literal 0x1
0045 4803 |H | Short_Literal 0x3
0046 0092 0373 | s| Action Push_String_Extended,0x373 ; "others=Boolean"
0048 00ea | | Load_Encached Null_String_Cache
0049 0092 0374 | t| Action Push_String_Extended,0x374 ; "Postscript=Ps,Lineprinter=Lpt"
004b 4801 |H | Short_Literal 0x1
004c 4803 |H | Short_Literal 0x3
004d e004 | | Load 0x0,0x4
004e 0387 | | Declare_Variable Package
004f 00d8 | | Load_Top At_Offset_0
0050 020f | | Execute Module,Activate
0051 00e1 | | Load_Encached Boolean_Cache
0052 e007 | | Load 0x0,0x7
0053 1b14 | | Execute Package,Field_Read,Field_Number 0x14
0054 02ff | | Declare_Variable Variant_Record
0055 00d8 | | Load_Top At_Offset_0
0056 1c00 | | Execute_Immediate Run_Utility,0x0
0057 e007 | | Load 0x0,0x7
0058 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0059 1b0f | | Execute Package,Field_Read,Field_Number 0xf
005a e008 | | Load 0x0,0x8
005b 180e | | Execute Package,Field_Execute,Field_Number 0xe
005c e008 | | Load 0x0,0x8
005d 1b0d | | Execute Package,Field_Read,Field_Number 0xd
005e 011e | | Execute Any,Convert
005f 00e1 | | Load_Encached Boolean_Cache
0060 e009 | | Load 0x0,0x9
0061 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0062 02c7 | | Declare_Variable Any
0063 00d8 | | Load_Top At_Offset_0
0064 1c00 | | Execute_Immediate Run_Utility,0x0
0065 e403 | | Load 0x2,0x3
0066 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0067 e405 | | Load 0x2,0x5
0068 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0069 e404 | | Load 0x2,0x4
006a 0007 | | Action Break_Optional
006b 029f 02b3 | | Declare_Subprogram INIT_02b0,For_Call
006d 029f 02cb | | Declare_Subprogram INIT_02c8,For_Call
006f 029f 02f3 | | Declare_Subprogram INIT_02f0,For_Call
0071 029f 0303 | | Declare_Subprogram INIT_0300,For_Call
0073 BODY_0018:
0073 e40b | | Load 0x2,0xb
0074 e5fc | | Load 0x2,-0x4
0075 e008 | | Load 0x0,0x8
0076 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
0077 c40b | | Store 0x2,0xb
0078 e008 | | Load 0x0,0x8
0079 180e | | Execute Package,Field_Execute,Field_Number 0xe
007a e008 | | Load 0x0,0x8
007b 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007c a40a | | Store_Unchecked 0x2,0xa
007d e00a | | Load 0x0,0xa
007e 180d | | Execute Package,Field_Execute,Field_Number 0xd
007f e008 | | Load 0x0,0x8
0080 180e | | Execute Package,Field_Execute,Field_Number 0xe
0081 4800 |H | Short_Literal 0x0
0082 0092 0375 | u| Action Push_String_Extended,0x375 ; "Compose (Rev"
0084 e003 | | Load 0x0,0x3
0085 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
0086 01cc | | Execute Vector,Catenate
0087 0092 0376 | v| Action Push_String_Extended,0x376 ; ") (Document => \x22"
0089 01cc | | Execute Vector,Catenate
008a e5ff | | Load 0x2,-0x1
008b 01cc | | Execute Vector,Catenate
008c 0092 0377 | w| Action Push_String_Extended,0x377 ; "\x22, Device => \x22"
008e 01cc | | Execute Vector,Catenate
008f e5fe | | Load 0x2,-0x2
0090 01cc | | Execute Vector,Catenate
0091 0092 0378 | x| Action Push_String_Extended,0x378 ; "\x22, Options => \x22"
0093 01cc | | Execute Vector,Catenate
0094 e5fd | | Load 0x2,-0x3
0095 01cc | | Execute Vector,Catenate
0096 0092 0379 | y| Action Push_String_Extended,0x379 ; "\x22, Response => \x22"
0098 01cc | | Execute Vector,Catenate
0099 e5fc | | Load 0x2,-0x4
009a 01cc | | Execute Vector,Catenate
009b 0092 037a | z| Action Push_String_Extended,0x37a ; "\x22)"
009d 01cc | | Execute Vector,Catenate
009e e00b | | Load 0x0,0xb
009f 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00a0 0092 037b | {| Action Push_String_Extended,0x37b ; "Document_Formatter"
00a2 e00c | | Load 0x0,0xc
00a3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a4 7007 |p | Jump_Nonzero 0xac
00a5 0092 037c | || Action Push_String_Extended,0x37c ; "Document_Formatter is not authorized on this machine"
00a7 e00a | | Load 0x0,0xa
00a8 180e | | Execute Package,Field_Execute,Field_Number 0xe
00a9 e003 | | Load 0x0,0x3
00aa 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00ab 0257 | W | Execute Discrete,Raise
00ac e008 | | Load 0x0,0x8
00ad 180e | | Execute Package,Field_Execute,Field_Number 0xe
00ae e40b | | Load 0x2,0xb
00af e00b | | Load 0x0,0xb
00b0 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b1 e007 | | Load 0x0,0x7
00b2 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00b3 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b4 e407 | | Load 0x2,0x7
00b5 61a6 |a | Indirect_Literal Discrete,0x25c,{0x00000000, 0x00004000}
00b6 e00d | | Load 0x0,0xd
00b7 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b8 4800 |H | Short_Literal 0x0
00b9 e00e | | Load 0x0,0xe
00ba 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00bb e007 | | Load 0x0,0x7
00bc 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00bd 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00be e5ff | | Load 0x2,-0x1
00bf e007 | | Load 0x0,0x7
00c0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00c1 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
00c2 00d1 | | Pop_Control Pop_Count_1
00c3 c408 | | Store 0x2,0x8
00c4 e408 | | Load 0x2,0x8
00c5 6807 |h | Jump_Zero 0xcd
00c6 e5ff | | Load 0x2,-0x1
00c7 e408 | | Load 0x2,0x8
00c8 e007 | | Load 0x0,0x7
00c9 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
00ca 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00cb e00a | | Load 0x0,0xa
00cc 180e | | Execute Package,Field_Execute,Field_Number 0xe
00cd e5fe | | Load 0x2,-0x2
00ce e405 | | Load 0x2,0x5
00cf 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00d0 a40d | | Store_Unchecked 0x2,0xd
00d1 e40d | | Load 0x2,0xd
00d2 e405 | | Load 0x2,0x5
00d3 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
00d4 a40e | | Store_Unchecked 0x2,0xe
00d5 00e1 | | Load_Encached Boolean_Cache
00d6 e40e | | Load 0x2,0xe
00d7 840f | | Call 0x2,0xf
00d8 e00f | | Load 0x0,0xf
00d9 180d | | Execute Package,Field_Execute,Field_Number 0xd
00da c406 | | Store 0x2,0x6
00db e40d | | Load 0x2,0xd
00dc e405 | | Load 0x2,0x5
00dd 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
00de c40d | | Store 0x2,0xd
00df e40d | | Load 0x2,0xd
00e0 e405 | | Load 0x2,0x5
00e1 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00e2 7002 |p | Jump_Nonzero 0xe5
00e3 4800 |H | Short_Literal 0x0
00e4 a406 | | Store_Unchecked 0x2,0x6
00e5 e406 | | Load 0x2,0x6
00e6 700d |p | Jump_Nonzero 0xf4
00e7 4829 |H) | Short_Literal 0x29
00e8 0092 037d | }| Action Push_String_Extended,0x37d ; "Cannot interpret \x22"
00ea e5fe | | Load 0x2,-0x2
00eb 01cc | | Execute Vector,Catenate
00ec 0092 037e | ~| Action Push_String_Extended,0x37e ; "\x22 as any known device ("
00ee 01cc | | Execute Vector,Catenate
00ef 8410 | | Call 0x2,0x10
00f0 01cc | | Execute Vector,Catenate
00f1 01cb | | Execute Vector,Append
00f2 e00a | | Load 0x0,0xa
00f3 180e | | Execute Package,Field_Execute,Field_Number 0xe
00f4 e5fd | | Load 0x2,-0x3
00f5 e403 | | Load 0x2,0x3
00f6 1820 | | Execute Package,Field_Execute,Field_Number 0x20
00f7 a40c | | Store_Unchecked 0x2,0xc
00f8 e40c | | Load 0x2,0xc
00f9 e403 | | Load 0x2,0x3
00fa 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
00fb e5fd | | Load 0x2,-0x3
00fc 01db | | Execute Vector,Length
00fd 0c01 | | Execute_Immediate Greater_Equal,0x1
00fe 0279 | y | Execute Discrete,And
00ff 6804 |h | Jump_Zero 0x104
0100 0092 037f | | Action Push_String_Extended,0x37f ; "Compose options were not parsable"
0102 e00a | | Load 0x0,0xa
0103 180e | | Execute Package,Field_Execute,Field_Number 0xe
0104 00cf | | Action Mark_Auxiliary
0105 7813 |x | Jump 0x119
0106 4800 |H | Short_Literal 0x0
0107 e40c | | Load 0x2,0xc
0108 e403 | | Load 0x2,0x3
0109 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
010a 7009 |p | Jump_Nonzero 0x114
010b 0092 0380 | | Action Push_String_Extended,0x380 ; "Compose"
010d 4800 |H | Short_Literal 0x0
010e e40c | | Load 0x2,0xc
010f e403 | | Load 0x2,0x3
0110 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0111 01cc | | Execute Vector,Catenate
0112 e00a | | Load 0x0,0xa
0113 180e | | Execute Package,Field_Execute,Field_Number 0xe
0114 e40c | | Load 0x2,0xc
0115 e403 | | Load 0x2,0x3
0116 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
0117 c40c | | Store 0x2,0xc
0118 00c9 | | Action Pop_Auxiliary_Loop
0119 e40c | | Load 0x2,0xc
011a e403 | | Load 0x2,0x3
011b 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
011c 6fe9 |o | Jump_Zero 0x106
011d 00ce | | Action Pop_Auxiliary
011e e00a | | Load 0x0,0xa
011f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0120 0c01 | | Execute_Immediate Greater_Equal,0x1
0121 6803 |h | Jump_Zero 0x125
0122 e003 | | Load 0x0,0x3
0123 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0124 0257 | W | Execute Discrete,Raise
0125 e40c | | Load 0x2,0xc
0126 e403 | | Load 0x2,0x3
0127 1827 | ' | Execute Package,Field_Execute,Field_Number 0x27
0128 c40c | | Store 0x2,0xc
0129 e008 | | Load 0x0,0x8
012a 180e | | Execute Package,Field_Execute,Field_Number 0xe
012b 4801 |H | Short_Literal 0x1
012c e008 | | Load 0x0,0x8
012d 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
012e 680a |h | Jump_Zero 0x139
012f 4801 |H | Short_Literal 0x1
0130 e003 | | Load 0x0,0x3
0131 1a25 | % | Execute Package,Field_Write,Field_Number 0x25
0132 4801 |H | Short_Literal 0x1
0133 e003 | | Load 0x0,0x3
0134 1a26 | & | Execute Package,Field_Write,Field_Number 0x26
0135 4801 |H | Short_Literal 0x1
0136 e003 | | Load 0x0,0x3
0137 1a27 | ' | Execute Package,Field_Write,Field_Number 0x27
0138 780d |x | Jump 0x146
0139 4800 |H | Short_Literal 0x0
013a e003 | | Load 0x0,0x3
013b 1a25 | % | Execute Package,Field_Write,Field_Number 0x25
013c 4800 |H | Short_Literal 0x0
013d e003 | | Load 0x0,0x3
013e 1a26 | & | Execute Package,Field_Write,Field_Number 0x26
013f 6118 |a | Indirect_Literal Discrete,0x258,{0x00000000, 0x7fffffff}
0140 e003 | | Load 0x0,0x3
0141 1a27 | ' | Execute Package,Field_Write,Field_Number 0x27
0142 4801 |H | Short_Literal 0x1
0143 4801 |H | Short_Literal 0x1
0144 e008 | | Load 0x0,0x8
0145 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0146 e010 | | Load 0x0,0x10
0147 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0148 e011 | | Load 0x0,0x11
0149 1817 | | Execute Package,Field_Execute,Field_Number 0x17
014a e012 | | Load 0x0,0x12
014b 1810 | | Execute Package,Field_Execute,Field_Number 0x10
014c e013 | | Load 0x0,0x13
014d 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
014e 4808 |H | Short_Literal 0x8
014f e40c | | Load 0x2,0xc
0150 e403 | | Load 0x2,0x3
0151 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0152 6808 |h | Jump_Zero 0x15b
0153 4800 |H | Short_Literal 0x0
0154 4808 |H | Short_Literal 0x8
0155 e40c | | Load 0x2,0xc
0156 e403 | | Load 0x2,0x3
0157 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0158 e003 | | Load 0x0,0x3
0159 1a24 | $ | Execute Package,Field_Write,Field_Number 0x24
015a 7803 |x | Jump 0x15e
015b 4800 |H | Short_Literal 0x0
015c e003 | | Load 0x0,0x3
015d 1a24 | $ | Execute Package,Field_Write,Field_Number 0x24
015e 4806 |H | Short_Literal 0x6
015f e40c | | Load 0x2,0xc
0160 e403 | | Load 0x2,0x3
0161 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0162 6818 |h | Jump_Zero 0x17b
0163 e003 | | Load 0x0,0x3
0164 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
0165 4804 |H | Short_Literal 0x4
0166 e40c | | Load 0x2,0xc
0167 e403 | | Load 0x2,0x3
0168 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0169 00ea | | Load_Encached Null_String_Cache
016a 4806 |H | Short_Literal 0x6
016b e40c | | Load 0x2,0xc
016c e403 | | Load 0x2,0x3
016d 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
016e e00f | | Load 0x0,0xf
016f 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0170 e014 | | Load 0x0,0x14
0171 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0172 00d8 | | Load_Top At_Offset_0
0173 e014 | | Load 0x0,0x14
0174 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0175 7003 |p | Jump_Nonzero 0x179
0176 e015 | | Load 0x0,0x15
0177 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0178 0257 | W | Execute Discrete,Raise
0179 1817 | | Execute Package,Field_Execute,Field_Number 0x17
017a 7820 |x | Jump 0x19b
017b e003 | | Load 0x0,0x3
017c 1b23 | # | Execute Package,Field_Read,Field_Number 0x23
017d 4804 |H | Short_Literal 0x4
017e e40c | | Load 0x2,0xc
017f e403 | | Load 0x2,0x3
0180 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0181 482e |H. | Short_Literal 0x2e
0182 e003 | | Load 0x0,0x3
0183 1b22 | " | Execute Package,Field_Read,Field_Number 0x22
0184 4805 |H | Short_Literal 0x5
0185 e40c | | Load 0x2,0xc
0186 e403 | | Load 0x2,0x3
0187 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0188 01cb | | Execute Vector,Append
0189 e40e | | Load 0x2,0xe
018a 840f | | Call 0x2,0xf
018b 01cc | | Execute Vector,Catenate
018c 0092 0381 | | Action Push_String_Extended,0x381 ; "_Font_Families"
018e 01cc | | Execute Vector,Catenate
018f e00f | | Load 0x0,0xf
0190 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0191 e014 | | Load 0x0,0x14
0192 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0193 00d8 | | Load_Top At_Offset_0
0194 e014 | | Load 0x0,0x14
0195 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0196 7003 |p | Jump_Nonzero 0x19a
0197 e015 | | Load 0x0,0x15
0198 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0199 0257 | W | Execute Discrete,Raise
019a 1817 | | Execute Package,Field_Execute,Field_Number 0x17
019b 0092 0382 | | Action Push_String_Extended,0x382 ; "Standard"
019d 4807 |H | Short_Literal 0x7
019e e40c | | Load 0x2,0xc
019f e403 | | Load 0x2,0x3
01a0 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01a1 00ea | | Load_Encached Null_String_Cache
01a2 4801 |H | Short_Literal 0x1
01a3 e40c | | Load 0x2,0xc
01a4 e403 | | Load 0x2,0x3
01a5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01a6 e407 | | Load 0x2,0x7
01a7 e016 | | Load 0x0,0x16
01a8 181a | | Execute Package,Field_Execute,Field_Number 0x1a
01a9 e017 | | Load 0x0,0x17
01aa 1819 | | Execute Package,Field_Execute,Field_Number 0x19
01ab e017 | | Load 0x0,0x17
01ac 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01ad e407 | | Load 0x2,0x7
01ae e00f | | Load 0x0,0xf
01af 1b12 | | Execute Package,Field_Read,Field_Number 0x12
01b0 e014 | | Load 0x0,0x14
01b1 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
01b2 00d8 | | Load_Top At_Offset_0
01b3 e014 | | Load 0x0,0x14
01b4 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
01b5 7003 |p | Jump_Nonzero 0x1b9
01b6 e015 | | Load 0x0,0x15
01b7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
01b8 0257 | W | Execute Discrete,Raise
01b9 180f | | Execute Package,Field_Execute,Field_Number 0xf
01ba 00ea | | Load_Encached Null_String_Cache
01bb 4802 |H | Short_Literal 0x2
01bc e40c | | Load 0x2,0xc
01bd e403 | | Load 0x2,0x3
01be 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01bf 01db | | Execute Vector,Length
01c0 680a |h | Jump_Zero 0x1cb
01c1 00ea | | Load_Encached Null_String_Cache
01c2 4802 |H | Short_Literal 0x2
01c3 e40c | | Load 0x2,0xc
01c4 e403 | | Load 0x2,0x3
01c5 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01c6 e003 | | Load 0x0,0x3
01c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c8 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01c9 e011 | | Load 0x0,0x11
01ca 180f | | Execute Package,Field_Execute,Field_Number 0xf
01cb 4803 |H | Short_Literal 0x3
01cc e40c | | Load 0x2,0xc
01cd e403 | | Load 0x2,0x3
01ce 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
01cf 680d |h | Jump_Zero 0x1dd
01d0 00ea | | Load_Encached Null_String_Cache
01d1 4803 |H | Short_Literal 0x3
01d2 e40c | | Load 0x2,0xc
01d3 e403 | | Load 0x2,0x3
01d4 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01d5 e003 | | Load 0x0,0x3
01d6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01d7 1817 | | Execute Package,Field_Execute,Field_Number 0x17
01d8 0092 0383 | | Action Push_String_Extended,0x383 ; "Include"
01da 4823 |H# | Short_Literal 0x23
01db e016 | | Load 0x0,0x16
01dc 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01dd e406 | | Load 0x2,0x6
01de e407 | | Load 0x2,0x7
01df e007 | | Load 0x0,0x7
01e0 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
01e1 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
01e2 e011 | | Load 0x0,0x11
01e3 180e | | Execute Package,Field_Execute,Field_Number 0xe
01e4 c406 | | Store 0x2,0x6
01e5 e406 | | Load 0x2,0x6
01e6 6802 |h | Jump_Zero 0x1e9
01e7 e016 | | Load 0x0,0x16
01e8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01e9 e00a | | Load 0x0,0xa
01ea 1814 | | Execute Package,Field_Execute,Field_Number 0x14
01eb e016 | | Load 0x0,0x16
01ec 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ed 0f01 | | Execute_Immediate Equal,0x1
01ee 680e |h | Jump_Zero 0x1fd
01ef e008 | | Load 0x0,0x8
01f0 180e | | Execute Package,Field_Execute,Field_Number 0xe
01f1 4802 |H | Short_Literal 0x2
01f2 0092 0384 | | Action Push_String_Extended,0x384 ; "Generated 1 "
01f4 e40e | | Load 0x2,0xe
01f5 840f | | Call 0x2,0xf
01f6 01cc | | Execute Vector,Catenate
01f7 0092 0385 | | Action Push_String_Extended,0x385 ; " output page"
01f9 01cc | | Execute Vector,Catenate
01fa e00b | | Load 0x0,0xb
01fb 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fc 7814 |x | Jump 0x211
01fd e008 | | Load 0x0,0x8
01fe 180e | | Execute Package,Field_Execute,Field_Number 0xe
01ff 4802 |H | Short_Literal 0x2
0200 4820 |H | Short_Literal 0x20
0201 0092 0386 | | Action Push_String_Extended,0x386 ; "Generated"
0203 e016 | | Load 0x0,0x16
0204 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0205 00e0 | | Load_Encached Standard_Cache
0206 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0207 01cc | | Execute Vector,Catenate
0208 01cb | | Execute Vector,Append
0209 e40e | | Load 0x2,0xe
020a 840f | | Call 0x2,0xf
020b 01cc | | Execute Vector,Catenate
020c 0092 0387 | | Action Push_String_Extended,0x387 ; " output pages"
020e 01cc | | Execute Vector,Catenate
020f e00b | | Load 0x0,0xb
0210 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0211 e008 | | Load 0x0,0x8
0212 180e | | Execute Package,Field_Execute,Field_Number 0xe
0213 4800 |H | Short_Literal 0x0
0214 0092 0388 | | Action Push_String_Extended,0x388 ; "Compose has completed"
0216 e00b | | Load 0x0,0xb
0217 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0218 e00a | | Load 0x0,0xa
0219 1812 | | Execute Package,Field_Execute,Field_Number 0x12
021a 0c01 | | Execute_Immediate Greater_Equal,0x1
021b 6805 |h | Jump_Zero 0x221
021c e40a | | Load 0x2,0xa
021d 6803 |h | Jump_Zero 0x221
021e e008 | | Load 0x0,0x8
021f 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0220 0257 | W | Execute Discrete,Raise
0221 e00f | | Load 0x0,0xf
0222 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0223 e014 | | Load 0x0,0x14
0224 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0225 00d8 | | Load_Top At_Offset_0
0226 e014 | | Load 0x0,0x14
0227 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
0228 7003 |p | Jump_Nonzero 0x22c
0229 e015 | | Load 0x0,0x15
022a 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
022b 0257 | W | Execute Discrete,Raise
022c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
022d e409 | | Load 0x2,0x9
022e e008 | | Load 0x0,0x8
022f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0230 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0231 TRAP_0018:
0231 010b | | Execute Exception,Is_Storage_Error
0232 6802 |h | Jump_Zero 0x235
0233 8412 | | Call 0x2,0x12
0234 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0235 e003 | | Load 0x0,0x3
0236 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0237 010f | | Execute Exception,Equal
0238 680b |h | Jump_Zero 0x244
0239 e00a | | Load 0x0,0xa
023a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
023b e008 | | Load 0x0,0x8
023c 180e | | Execute Package,Field_Execute,Field_Number 0xe
023d 4805 |H | Short_Literal 0x5
023e 0092 0389 | | Action Push_String_Extended,0x389 ; "Compose is quitting"
0240 e00b | | Load 0x0,0xb
0241 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0242 8411 | | Call 0x2,0x11
0243 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0244 e008 | | Load 0x0,0x8
0245 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
0246 010f | | Execute Exception,Equal
0247 6802 |h | Jump_Zero 0x24a
0248 8411 | | Call 0x2,0x11
0249 4505 |E | Exit_Suprogram New_Top_Offset 0x5
024a e00a | | Load 0x0,0xa
024b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
024c e00a | | Load 0x0,0xa
024d 1814 | | Execute Package,Field_Execute,Field_Number 0x14
024e e008 | | Load 0x0,0x8
024f 180e | | Execute Package,Field_Execute,Field_Number 0xe
0250 4805 |H | Short_Literal 0x5
0251 0092 0389 | | Action Push_String_Extended,0x389 ; "Compose is quitting"
0253 e00b | | Load 0x0,0xb
0254 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0255 8411 | | Call 0x2,0x11
0256 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0257 0000 | | .XXX[0x1]
0258 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
025c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0260 ; --------------------------------------------------------------------------------------
0260 ; SUBPROGRAM
0260 ; --------------------------------------------------------------------------------------
0260 0263 | c | .CONST 0x0263 ; Address of begin
0261 0004 | | .CONST 0x0004 ; Address of exception handler
0262 0001 | | .CONST 0x0001 ; Number of locals
0263 BODY_0260:
0263 INIT_0260:
0263 4607 |F | Jump_Case 0x8
0264 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0265 7806 |x | Jump 0x26c ; case 0x1
0266 7809 |x | Jump 0x270 ; case 0x2
0267 780d |x | Jump 0x275 ; case 0x3
0268 7810 |x | Jump 0x279 ; case 0x4
0269 7811 |x | Jump 0x27b ; case 0x5
026a 7812 |x | Jump 0x27d ; case 0x6
026b 7815 |x | Jump 0x281 ; case 0x7
026c 00da | | Load_Top At_Offset_2
026d 0091 0362 | b| Action Push_String_Extended_Indexed,0x362 ; "NIL"
026f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0270 00db | | Load_Top At_Offset_3
0271 00db | | Load_Top At_Offset_3
0272 00e0 | | Load_Encached Standard_Cache
0273 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0274 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0275 00da | | Load_Top At_Offset_2
0276 00e0 | | Load_Encached Standard_Cache
0277 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0278 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0279 00db | | Load_Top At_Offset_3
027a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
027b 00db | | Load_Top At_Offset_3
027c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
027d e402 | | Load 0x2,0x2
027e 00dc | | Load_Top At_Offset_4
027f 0267 | g | Execute Discrete,Predecessor
0280 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0281 e402 | | Load 0x2,0x2
0282 00dc | | Load_Top At_Offset_4
0283 0268 | h | Execute Discrete,Successor
0284 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0285 0000 0000 | | .XXX[0x3]
0287 0000 | |
0288 ; --------------------------------------------------------------------------------------
0288 ; SUBPROGRAM
0288 ; --------------------------------------------------------------------------------------
0288 028b | | .CONST 0x028b ; Address of begin
0289 0004 | | .CONST 0x0004 ; Address of exception handler
028a 0001 | | .CONST 0x0001 ; Number of locals
028b BODY_0288:
028b INIT_0288:
028b 4607 |F | Jump_Case 0x8
028c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
028d 7806 |x | Jump 0x294 ; case 0x1
028e 7809 |x | Jump 0x298 ; case 0x2
028f 780d |x | Jump 0x29d ; case 0x3
0290 7810 |x | Jump 0x2a1 ; case 0x4
0291 7811 |x | Jump 0x2a3 ; case 0x5
0292 7812 |x | Jump 0x2a5 ; case 0x6
0293 7815 |x | Jump 0x2a9 ; case 0x7
0294 00da | | Load_Top At_Offset_2
0295 0091 036b | k| Action Push_String_Extended_Indexed,0x36b ; "NIL"
0297 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0298 00db | | Load_Top At_Offset_3
0299 00db | | Load_Top At_Offset_3
029a 00e0 | | Load_Encached Standard_Cache
029b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
029c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
029d 00da | | Load_Top At_Offset_2
029e 00e0 | | Load_Encached Standard_Cache
029f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02a0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02a1 00db | | Load_Top At_Offset_3
02a2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02a3 00db | | Load_Top At_Offset_3
02a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02a5 e404 | | Load 0x2,0x4
02a6 00dc | | Load_Top At_Offset_4
02a7 0267 | g | Execute Discrete,Predecessor
02a8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02a9 e404 | | Load 0x2,0x4
02aa 00dc | | Load_Top At_Offset_4
02ab 0268 | h | Execute Discrete,Successor
02ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ad 0000 0000 | | .XXX[0x3]
02af 0000 | |
02b0 ; --------------------------------------------------------------------------------------
02b0 ; SUBPROGRAM
02b0 ; --------------------------------------------------------------------------------------
02b0 02b3 | | .CONST 0x02b3 ; Address of begin
02b1 0004 | | .CONST 0x0004 ; Address of exception handler
02b2 0001 | | .CONST 0x0001 ; Number of locals
02b3 BODY_02b0:
02b3 INIT_02b0:
02b3 e7ff | | Load 0x3,-0x1
02b4 4603 |F | Jump_Case 0x4
02b5 7806 |x | Jump 0x2bc ; case 0x0
02b6 7808 |x | Jump 0x2bf ; case 0x1
02b7 780a |x | Jump 0x2c2 ; case 0x2
02b8 7800 |x | Jump 0x2b9 ; case 0x3
02b9 0092 038a | | Action Push_String_Extended,0x38a ; "OnLine"
02bb 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bc 0092 038b | | Action Push_String_Extended,0x38b ; "Nil"
02be 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02bf 0092 038c | | Action Push_String_Extended,0x38c ; "PostScript"
02c1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c2 0092 038d | | Action Push_String_Extended,0x38d ; "LinePrinter"
02c4 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
02c5 0000 0000 | | .XXX[0x3]
02c7 0000 | |
02c8 ; --------------------------------------------------------------------------------------
02c8 ; SUBPROGRAM
02c8 ; --------------------------------------------------------------------------------------
02c8 02cf | | .CONST 0x02cf ; Address of begin
02c9 0004 | | .CONST 0x0004 ; Address of exception handler
02ca 0003 | | .CONST 0x0003 ; Number of locals
02cb INIT_02c8:
02cb e003 | | Load 0x0,0x3
02cc 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02cd 00e1 | | Load_Encached Boolean_Cache
02ce 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
02cf BODY_02c8:
02cf 00cf | | Action Mark_Auxiliary
02d0 4803 |H | Short_Literal 0x3
02d1 4801 |H | Short_Literal 0x1
02d2 0007 | | Action Break_Optional
02d3 e603 | | Load 0x3,0x3
02d4 7007 |p | Jump_Nonzero 0x2dc
02d5 e602 | | Load 0x3,0x2
02d6 0092 038e | | Action Push_String_Extended,0x38e ; ", "
02d8 e003 | | Load 0x0,0x3
02d9 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02da 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02db c602 | | Store 0x3,0x2
02dc 4800 |H | Short_Literal 0x0
02dd a603 | | Store_Unchecked 0x3,0x3
02de e602 | | Load 0x3,0x2
02df e606 | | Load 0x3,0x6
02e0 840f | | Call 0x2,0xf
02e1 e003 | | Load 0x0,0x3
02e2 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02e3 181d | | Execute Package,Field_Execute,Field_Number 0x1d
02e4 c602 | | Store 0x3,0x2
02e5 00c8 | | Action Pop_Auxiliary_Range
02e6 3fec |? | Loop_Increasing 0x2d3
02e7 00ce | | Action Pop_Auxiliary
02e8 e602 | | Load 0x3,0x2
02e9 e003 | | Load 0x0,0x3
02ea 1b0d | | Execute Package,Field_Read,Field_Number 0xd
02eb 1816 | | Execute Package,Field_Execute,Field_Number 0x16
02ec 00ca | | Action Exit_Nullary_Function
02ed 0000 0000 | | .XXX[0x3]
02ef 0000 | |
02f0 ; --------------------------------------------------------------------------------------
02f0 ; SUBPROGRAM
02f0 ; --------------------------------------------------------------------------------------
02f0 02f5 | | .CONST 0x02f5 ; Address of begin
02f1 0004 | | .CONST 0x0004 ; Address of exception handler
02f2 0002 | | .CONST 0x0002 ; Number of locals
02f3 INIT_02f0:
02f3 029f 0353 | S| Declare_Subprogram INIT_0350,For_Call
02f5 BODY_02f0:
02f5 8602 | | Call 0x3,0x2
02f6 e409 | | Load 0x2,0x9
02f7 e008 | | Load 0x0,0x8
02f8 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02f9 e40a | | Load 0x2,0xa
02fa 6803 |h | Jump_Zero 0x2fe
02fb e008 | | Load 0x0,0x8
02fc 1b47 | G | Execute Package,Field_Read,Field_Number 0x47
02fd 0257 | W | Execute Discrete,Raise
02fe 4501 |E | Exit_Suprogram New_Top_Offset 0x1
02ff 0000 | | .XXX[0x1]
0300 ; --------------------------------------------------------------------------------------
0300 ; SUBPROGRAM
0300 ; --------------------------------------------------------------------------------------
0300 0306 | | .CONST 0x0306 ; Address of begin
0301 0004 | | .CONST 0x0004 ; Address of exception handler
0302 0004 | | .CONST 0x0004 ; Number of locals
0303 INIT_0300:
0303 00e3 | | Load_Encached Natural_Cache
0304 03e9 | | Declare_Variable Discrete,Duplicate
0305 03e9 | | Declare_Variable Discrete,Duplicate
0306 BODY_0300:
0306 00e3 | | Load_Encached Natural_Cache
0307 00e3 | | Load_Encached Natural_Cache
0308 00e3 | | Load_Encached Natural_Cache
0309 e017 | | Load 0x0,0x17
030a 1814 | | Execute Package,Field_Execute,Field_Number 0x14
030b e017 | | Load 0x0,0x17
030c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
030d 00d9 | | Load_Top At_Offset_1
030e 00d0 | | Action Swap_Control
030f 0260 | ` | Execute Discrete,In_Type
0310 7001 |p | Jump_Nonzero 0x312
0311 0801 | | Execute_Immediate Raise,0x1
0312 e017 | | Load 0x0,0x17
0313 1859 | Y | Execute Package,Field_Execute,Field_Number 0x59
0314 c602 | | Store 0x3,0x2
0315 c603 | | Store 0x3,0x3
0316 c604 | | Store 0x3,0x4
0317 e602 | | Load 0x3,0x2
0318 e603 | | Load 0x3,0x3
0319 0273 | s | Execute Discrete,Plus
031a e604 | | Load 0x3,0x4
031b 027d | } | Execute Discrete,Greater
031c 681d |h | Jump_Zero 0x33a
031d e008 | | Load 0x0,0x8
031e 180e | | Execute Package,Field_Execute,Field_Number 0xe
031f 4807 |H | Short_Literal 0x7
0320 0092 038f | | Action Push_String_Extended,0x38f ; "Job has"
0322 e602 | | Load 0x3,0x2
0323 00e0 | | Load_Encached Standard_Cache
0324 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0325 01cc | | Execute Vector,Catenate
0326 0092 0390 | | Action Push_String_Extended,0x390 ; " cache pages and"
0328 01cc | | Execute Vector,Catenate
0329 e603 | | Load 0x3,0x3
032a 00e0 | | Load_Encached Standard_Cache
032b 1818 | | Execute Package,Field_Execute,Field_Number 0x18
032c 01cc | | Execute Vector,Catenate
032d 0092 0391 | | Action Push_String_Extended,0x391 ; " disk pages, thus exceeding"
032f 01cc | | Execute Vector,Catenate
0330 e604 | | Load 0x3,0x4
0331 00e0 | | Load_Encached Standard_Cache
0332 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0333 01cc | | Execute Vector,Catenate
0334 0092 0392 | | Action Push_String_Extended,0x392 ; " page limit"
0336 01cc | | Execute Vector,Catenate
0337 e00b | | Load 0x0,0xb
0338 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0339 7809 |x | Jump 0x343
033a e008 | | Load 0x0,0x8
033b 180e | | Execute Package,Field_Execute,Field_Number 0xe
033c 4808 |H | Short_Literal 0x8
033d 4800 |H | Short_Literal 0x0
033e 4801 |H | Short_Literal 0x1
033f e018 | | Load 0x0,0x18
0340 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0341 e00b | | Load 0x0,0xb
0342 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0343 e00a | | Load 0x0,0xa
0344 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0345 e008 | | Load 0x0,0x8
0346 180e | | Execute Package,Field_Execute,Field_Number 0xe
0347 4805 |H | Short_Literal 0x5
0348 0092 0389 | | Action Push_String_Extended,0x389 ; "Compose is quitting"
034a e00b | | Load 0x0,0xb
034b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
034c 8411 | | Call 0x2,0x11
034d 4501 |E | Exit_Suprogram New_Top_Offset 0x1
034e 0000 0000 | | .XXX[0x2]
0350 ; --------------------------------------------------------------------------------------
0350 ; SUBPROGRAM
0350 ; --------------------------------------------------------------------------------------
0350 0353 | S | .CONST 0x0353 ; Address of begin
0351 0360 | ` | .CONST 0x0360 ; Address of exception handler
0352 0001 | | .CONST 0x0001 ; Number of locals
0353 BODY_0350:
0353 INIT_0350:
0353 e00f | | Load 0x0,0xf
0354 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0355 e014 | | Load 0x0,0x14
0356 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0357 00d8 | | Load_Top At_Offset_0
0358 e014 | | Load 0x0,0x14
0359 183d | = | Execute Package,Field_Execute,Field_Number 0x3d
035a 7003 |p | Jump_Nonzero 0x35e
035b e015 | | Load 0x0,0x15
035c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
035d 0257 | W | Execute Discrete,Raise
035e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
035f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0360 TRAP_0350:
0360 0007 | | Action Break_Optional
0361 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0362 ; --------------------------------------------------------------------------------------
0362 ; STRING TABLE
0362 ; --------------------------------------------------------------------------------------
0362 0064 | d | .STRTAB 0x0064->0x0394 ; "NIL"
0363 0065 | e | .STRTAB 0x0065->0x0395 ; "SETUP"
0364 0068 | h | .STRTAB 0x0068->0x0398 ; "TEXT"
0365 006a | j | .STRTAB 0x006a->0x039a ; "INCLUDE"
0366 006f | o | .STRTAB 0x006f->0x039d ; "FONT_DIRECTORY"
0367 007b | { | .STRTAB 0x007b->0x03a4 ; "DEVICE_DIRECTORY"
0368 0089 | | .STRTAB 0x0089->0x03ac ; "FONT_FAMILIES"
0369 0094 | | .STRTAB 0x0094->0x03b3 ; "FORMS"
036a 0097 | | .STRTAB 0x0097->0x03b5 ; "REGRESSION_TEST"
036b 00a4 | | .STRTAB 0x00a4->0x03bd ; "NIL"
036c 00a5 | | .STRTAB 0x00a5->0x03be ; "POSTSCRIPT"
036d 00ad | | .STRTAB 0x00ad->0x03c3 ; "LINEPRINTER"
036e 00b6 | | .STRTAB 0x00b6->0x03c9 ; "ONLINE"
036f 00ba | | .STRTAB 0x00ba->0x03cc ; "Include..Forms=Directory_String_Name,Regression_Test=Boolean"
0370 00f4 | | .STRTAB 0x00f4->0x03ea ; "Font_Directory="
0371 0101 | | .STRTAB 0x0101->0x03f1 ; ",Device_Directory="
0372 0111 | | .STRTAB 0x0111->0x03fa ; "Font_Families=Fonts"
0373 0122 | " | .STRTAB 0x0122->0x0404 ; "others=Boolean"
0374 012e | . | .STRTAB 0x012e->0x040b ; "Postscript=Ps,Lineprinter=Lpt"
0375 0149 | I | .STRTAB 0x0149->0x0419 ; "Compose (Rev"
0376 0153 | S | .STRTAB 0x0153->0x041f ; ") (Document => \x22"
0377 0161 | a | .STRTAB 0x0161->0x0427 ; "\x22, Device => \x22"
0378 016d | m | .STRTAB 0x016d->0x042e ; "\x22, Options => \x22"
0379 017a | z | .STRTAB 0x017a->0x0436 ; "\x22, Response => \x22"
037a 0188 | | .STRTAB 0x0188->0x043e ; "\x22)"
037b 0188 | | .STRTAB 0x0188->0x043f ; "Document_Formatter"
037c 0198 | | .STRTAB 0x0198->0x0448 ; "Document_Formatter is not authorized on this machine"
037d 01ca | | .STRTAB 0x01ca->0x0462 ; "Cannot interpret \x22"
037e 01da | | .STRTAB 0x01da->0x046b ; "\x22 as any known device ("
037f 01ef | | .STRTAB 0x01ef->0x0476 ; "Compose options were not parsable"
0380 020e | | .STRTAB 0x020e->0x0487 ; "Compose"
0381 0213 | | .STRTAB 0x0213->0x048a ; "_Font_Families"
0382 021f | | .STRTAB 0x021f->0x0491 ; "Standard"
0383 0225 | % | .STRTAB 0x0225->0x0495 ; "Include"
0384 022a | * | .STRTAB 0x022a->0x0499 ; "Generated 1 "
0385 0234 | 4 | .STRTAB 0x0234->0x049f ; " output page"
0386 023e | > | .STRTAB 0x023e->0x04a5 ; "Generated"
0387 0245 | E | .STRTAB 0x0245->0x04a9 ; " output pages"
0388 0250 | P | .STRTAB 0x0250->0x04b0 ; "Compose has completed"
0389 0263 | c | .STRTAB 0x0263->0x04ba ; "Compose is quitting"
038a 0274 | t | .STRTAB 0x0274->0x04c4 ; "OnLine"
038b 0278 | x | .STRTAB 0x0278->0x04c7 ; "Nil"
038c 0279 | y | .STRTAB 0x0279->0x04c8 ; "PostScript"
038d 0281 | | .STRTAB 0x0281->0x04cd ; "LinePrinter"
038e 028a | | .STRTAB 0x028a->0x04d3 ; ", "
038f 028a | | .STRTAB 0x028a->0x04d4 ; "Job has"
0390 028f | | .STRTAB 0x028f->0x04d7 ; " cache pages and"
0391 029d | | .STRTAB 0x029d->0x04df ; " disk pages, thus exceeding"
0392 02b6 | | .STRTAB 0x02b6->0x04ed ; " page limit"
0393 02bf | | .STREND 0x02bf->0x04f2
0394 4e49 4c53 |NILS| .STRTAB_STRINGS
04f3 0000 0000 | | .BLANK 0000[0x5]
04f8 ; --------------------------------------------------------------------------------------
04f8 ; Debug Table
04f8 ; --------------------------------------------------------------------------------------
04f8 0004 000f | | .DEBUG4 0x0004,0x000f,0x47f1,0x0000,0x0001,0x0000
04fe 726f 6c6c |roll| .XXX[0x6a]
0500 6564 2069 |ed i|
0502 6e73 6964 |nsid|
0504 6520 6120 |e a |
0506 7061 636b |pack|
0508 6167 6520 |age |
050a 7768 6963 |whic|
050c 6820 6861 |h ha|
050e 7320 6e6f |s no|
0510 2063 6f64 | cod|
0512 6550 726f |ePro|
0514 6772 616d |gram|
0516 2066 6c6f | flo|
0518 7720 6361 |w ca|
051a 6e6e 6f74 |nnot|
051c 2062 6520 | be |
051e 636f 6e74 |cont|
0520 726f 6c6c |roll|
0522 6564 2069 |ed i|
0524 6e73 6964 |nsid|
0526 6520 6120 |e a |
0528 6479 6e61 |dyna|
052a 6d69 6320 |mic |
052c 636f 7570 |coup|
052e 6c65 7249 |lerI|
0530 6e76 616c |nval|
0532 6964 2073 |id s|
0534 796e 7461 |ynta|
0536 7820 666f |x fo|
0538 7220 6d61 |r ma|
053a 6368 696e |chin|
053c 6520 6164 |e ad|
053e 6472 6573 |dres|
0540 733a 202e |s: .|
0542 2742 6f64 |'Bod|
0544 7900 0000 |y |
0546 0000 0000 | |
0548 0004 000d | |
054a 7cfb 0000 || |
054c 0001 0000 | |
054e 0000 0203 | |
0550 0802 2091 | |
0552 8000 0000 | |
0554 0000 2018 | |
0556 2160 0000 |!` |
0558 1008 1978 | x|
055a 5dfd bfb0 |] |
055c 0000 5000 | P |
055e 0000 9000 | |
0560 05fb 4000 | @ |
0562 0000 2000 | |
0564 0000 2001 | |
0566 80c6 0088 | |
0568 0000 0000 | | .BLANK 0000[0x7]
056f 0206 5e17 | ^ | .XXX[0x25]
0571 7f6f ec00 | o |
0573 0014 0000 | |
0575 0024 0001 | $ |
0577 7ed0 0000 |~ |
0579 0008 0000 | |
057b 0008 0000 | |
057d 0018 0002 | |
057f 8df8 0822 | "|
0581 9a70 0822 | p "|
0583 6ce8 0823 |l #|
0585 5fec 0411 |_ |
0587 6284 0000 |b |
0589 bf7a a036 | z 6|
058b 5585 c000 |U |
058d 0000 0150 | P|
058f 1b2a c2e0 | * |
0591 0000 0000 | |
0593 a000 | |
0594 0000 0000 | | .BLANK 0000[0x4]
0598 a2cc 8500 | | .XXX[0x9]
059a 0000 4000 | @ |
059c a2ce 8500 | |
059e 0000 4000 | @ |
05a0 2600 |& |
05a1 0000 0000 | | .BLANK 0000[0x5]
05a6 28b3 a140 |( @| .XXX[0x9]
05a8 0000 1008 | |
05aa 0d95 6170 | ap|
05ac 0000 0000 | |
05ae 5000 |P |
05af 0000 0000 | | .BLANK 0000[0x5]
05b4 2000 0000 | | .XXX[0x4]
05b6 0009 8000 | |
05b8 0000 0000 | | .BLANK 0000[0x8]
05c0 0206 5e30 | ^0| .XXX[0x5]
05c2 d80b 3400 | 4 |
05c4 0014 | |
05c5 0000 0000 | | .BLANK 0000[0x5]
05ca 0008 0000 | | .XXX[0x9]
05cc 0000 0000 | |
05ce 0018 0002 | |
05d0 ad80 0822 | "|
05d2 c2f0 | |
05d3 0000 0000 | | .BLANK 0000[0x4]
05d7 0411 76c4 | v | .XXX[0x1b]
05d9 0001 087e | ~|
05db a067 86ab | g |
05dd 02f4 4000 | @ |
05df 0050 33c3 | P3 |
05e1 55a0 4a40 |U J@|
05e3 0000 2000 | |
05e5 0000 0000 | |
05e7 0000 0001 | |
05e9 b13a 8000 | : |
05eb 0000 4001 | @ |
05ed b13c 8000 | < |
05ef 0000 4000 | @ |
05f1 2600 |& |
05f2 0000 0000 | | .BLANK 0000[0x5]
05f7 6c4f 2000 |lO | .XXX[0x9]
05f9 0000 1008 | |
05fb 19e1 aad0 | |
05fd 2520 0000 |% |
05ff 1000 | |