|
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_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 0548 | H | .CONST 0x0548 ; 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 00db | | .CONST 0x00db ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0039 | 9 | .CONST 0x0039 ; Number of locals
000b INIT_0008:
000b 00c4 | | Action Make_Default
000c 00c4 | | Action Make_Default
000d 00c4 | | Action Make_Default
000e 00c4 | | Action Make_Default
000f 00c4 | | Action Make_Default
0010 00c4 | | Action Make_Default
0011 00c4 | | Action Make_Default
0012 00c4 | | Action Make_Default
0013 00c4 | | Action Make_Default
0014 00c4 | | Action Make_Default
0015 00c4 | | Action Make_Default
0016 00c4 | | Action Make_Default
0017 00c4 | | Action Make_Default
0018 00c4 | | Action Make_Default
0019 00c4 | | Action Make_Default
001a 00c4 | | Action Make_Default
001b 00c4 | | Action Make_Default
001c 00c4 | | Action Make_Default
001d 00c4 | | Action Make_Default
001e 00c4 | | Action Make_Default
001f 00c4 | | Action Make_Default
0020 00c4 | | Action Make_Default
0021 00c4 | | Action Make_Default
0022 00c4 | | Action Make_Default
0023 00c4 | | Action Make_Default
0024 00c4 | | Action Make_Default
0025 00c4 | | Action Make_Default
0026 00c4 | | Action Make_Default
0027 00c4 | | Action Make_Default
0028 00c4 | | Action Make_Default
0029 00c4 | | Action Make_Default
002a 00c4 | | Action Make_Default
002b 00c4 | | Action Make_Default
002c 00c4 | | Action Make_Default
002d 00c4 | | Action Make_Default
002e 00c4 | | Action Make_Default
002f 4805 |H | Short_Literal 0x5
0030 032b | + | Declare_Type Record,Incomplete,Visible
0031 c215 | | Store 0x1,0x15
0032 e001 | | Load 0x0,0x1
0033 1b2c | , | Execute Package,Field_Read,Field_Number 0x2c
0034 e001 | | Load 0x0,0x1
0035 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0036 011e | | Execute Any,Convert
0037 0129 | ) | Execute Any,Make_Visible
0038 c22f | / | Store 0x1,0x2f
0039 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
003b c230 | 0 | Store 0x1,0x30
003c 4800 |H | Short_Literal 0x0
003d 4801 |H | Short_Literal 0x1
003e 029f 0193 | | Declare_Subprogram INIT_0190,For_Call
0040 03fe | | Declare_Type Discrete,Defined,Visible
0041 c218 | | Store 0x1,0x18
0042 4800 |H | Short_Literal 0x0
0043 4801 |H | Short_Literal 0x1
0044 029f 01bb | | Declare_Subprogram INIT_01b8,For_Call
0046 03fe | | Declare_Type Discrete,Defined,Visible
0047 c222 | " | Store 0x1,0x22
0048 029a 01e3 | | Declare_Subprogram INIT_01e0,For_Outer_Call,Visible,Unelaborated
004a c21a | | Store 0x1,0x1a
004b 029a 01eb | | Declare_Subprogram INIT_01e8,For_Outer_Call,Visible,Unelaborated
004d c21b | | Store 0x1,0x1b
004e 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0050 c21c | | Store 0x1,0x1c
0051 029a 0203 | | Declare_Subprogram INIT_0200,For_Outer_Call,Visible,Unelaborated
0053 c229 | ) | Store 0x1,0x29
0054 029a 0213 | | Declare_Subprogram INIT_0210,For_Outer_Call,Visible,Unelaborated
0056 c21d | | Store 0x1,0x1d
0057 029a 0223 | #| Declare_Subprogram INIT_0220,For_Outer_Call,Visible,Unelaborated
0059 c21e | | Store 0x1,0x1e
005a 029a 024b | K| Declare_Subprogram INIT_0248,For_Outer_Call,Visible,Unelaborated
005c c21f | | Store 0x1,0x1f
005d 029a 0253 | S| Declare_Subprogram INIT_0250,For_Outer_Call,Visible,Unelaborated
005f c220 | | Store 0x1,0x20
0060 029a 025b | [| Declare_Subprogram INIT_0258,For_Outer_Call,Visible,Unelaborated
0062 c22a | * | Store 0x1,0x2a
0063 029a 026b | k| Declare_Subprogram INIT_0268,For_Outer_Call,Visible,Unelaborated
0065 c22b | + | Store 0x1,0x2b
0066 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
0067 0129 | ) | Execute Any,Make_Visible
0068 c22c | , | Store 0x1,0x2c
0069 4800 |H | Short_Literal 0x0
006a 4809 |H | Short_Literal 0x9
006b 029f 0283 | | Declare_Subprogram INIT_0280,For_Call
006d 03fd | | Declare_Type Discrete,Defined
006e c22d | - | Store 0x1,0x2d
006f e002 | | Load 0x0,0x2
0070 e003 | | Load 0x0,0x3
0071 e22d | - | Load 0x1,0x2d
0072 4800 |H | Short_Literal 0x0
0073 4801 |H | Short_Literal 0x1
0074 4809 |H | Short_Literal 0x9
0075 0092 0460 | `| Action Push_String_Extended,0x460 ; "Time_Stamp..Replace=Boolean,Prolog..Tps_Information=Directory_String_Name"
0077 00ea | | Load_Encached Null_String_Cache
0078 00ea | | Load_Encached Null_String_Cache
0079 4801 |H | Short_Literal 0x1
007a 4809 |H | Short_Literal 0x9
007b e004 | | Load 0x0,0x4
007c 0387 | | Declare_Variable Package
007d 00d8 | | Load_Top At_Offset_0
007e 020f | | Execute Module,Activate
007f c22e | . | Store 0x1,0x2e
0080 00da | | Load_Top At_Offset_2
0081 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0082 e218 | | Load 0x1,0x18
0083 e222 | " | Load 0x1,0x22
0084 00e1 | | Load_Encached Boolean_Cache
0085 00e1 | | Load_Encached Boolean_Cache
0086 02a0 | | Declare_Subprogram Null_Subprogram
0087 e215 | | Load 0x1,0x15
0088 0326 | & | Complete_Type Record,By_Defining
0089 00bf | | Action Accept_Activation
008a 4800 |H | Short_Literal 0x0
008b 4804 |H | Short_Literal 0x4
008c 029f 02ab | | Declare_Subprogram INIT_02a8,For_Call
008e 03fd | | Declare_Type Discrete,Defined
008f e005 | | Load 0x0,0x5
0090 e006 | | Load 0x0,0x6
0091 00da | | Load_Top At_Offset_2
0092 4800 |H | Short_Literal 0x0
0093 4803 |H | Short_Literal 0x3
0094 4801 |H | Short_Literal 0x1
0095 e22e | . | Load 0x1,0x2e
0096 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
0097 0387 | | Declare_Variable Package
0098 00d8 | | Load_Top At_Offset_0
0099 020f | | Execute Module,Activate
009a 4800 |H | Short_Literal 0x0
009b 4805 |H | Short_Literal 0x5
009c 029f 02d3 | | Declare_Subprogram INIT_02d0,For_Call
009e 03fd | | Declare_Type Discrete,Defined
009f e007 | | Load 0x0,0x7
00a0 e008 | | Load 0x0,0x8
00a1 00da | | Load_Top At_Offset_2
00a2 4800 |H | Short_Literal 0x0
00a3 4804 |H | Short_Literal 0x4
00a4 4801 |H | Short_Literal 0x1
00a5 e22e | . | Load 0x1,0x2e
00a6 1b32 | 2 | Execute Package,Field_Read,Field_Number 0x32
00a7 0387 | | Declare_Variable Package
00a8 00d8 | | Load_Top At_Offset_0
00a9 020f | | Execute Module,Activate
00aa 0092 0461 | a| Action Push_String_Extended,0x461 ; "!Machine.Laser_Class"
00ac 0092 0462 | b| Action Push_String_Extended,0x462 ; "!Machine.Lp_Class"
00ae 4800 |H | Short_Literal 0x0
00af 4805 |H | Short_Literal 0x5
00b0 029f 02fb | | Declare_Subprogram INIT_02f8,For_Call
00b2 03fd | | Declare_Type Discrete,Defined
00b3 e009 | | Load 0x0,0x9
00b4 e00a | | Load 0x0,0xa
00b5 00da | | Load_Top At_Offset_2
00b6 4800 |H | Short_Literal 0x0
00b7 4801 |H | Short_Literal 0x1
00b8 4805 |H | Short_Literal 0x5
00b9 0092 0463 | c| Action Push_String_Extended,0x463 ; "others => Unspecified"
00bb 00ea | | Load_Encached Null_String_Cache
00bc 00ea | | Load_Encached Null_String_Cache
00bd 4801 |H | Short_Literal 0x1
00be 4805 |H | Short_Literal 0x5
00bf e004 | | Load 0x0,0x4
00c0 0387 | | Declare_Variable Package
00c1 00d8 | | Load_Top At_Offset_0
00c2 020f | | Execute Module,Activate
00c3 029d 0323 | #| Declare_Subprogram INIT_0320,For_Outer_Call
00c5 1d30 | 0 | Execute_Immediate Reference_Lex_1,0x30
00c6 00c7 | | Action Elaborate_Subprogram
00c7 1d1a | | Execute_Immediate Reference_Lex_1,0x1a
00c8 00c7 | | Action Elaborate_Subprogram
00c9 1d1b | | Execute_Immediate Reference_Lex_1,0x1b
00ca 00c7 | | Action Elaborate_Subprogram
00cb 1d1c | | Execute_Immediate Reference_Lex_1,0x1c
00cc 00c7 | | Action Elaborate_Subprogram
00cd 1d29 | ) | Execute_Immediate Reference_Lex_1,0x29
00ce 00c7 | | Action Elaborate_Subprogram
00cf 1d1d | | Execute_Immediate Reference_Lex_1,0x1d
00d0 00c7 | | Action Elaborate_Subprogram
00d1 1d1e | | Execute_Immediate Reference_Lex_1,0x1e
00d2 00c7 | | Action Elaborate_Subprogram
00d3 1d1f | | Execute_Immediate Reference_Lex_1,0x1f
00d4 00c7 | | Action Elaborate_Subprogram
00d5 1d20 | | Execute_Immediate Reference_Lex_1,0x20
00d6 00c7 | | Action Elaborate_Subprogram
00d7 1d2a | * | Execute_Immediate Reference_Lex_1,0x2a
00d8 00c7 | | Action Elaborate_Subprogram
00d9 1d2b | + | Execute_Immediate Reference_Lex_1,0x2b
00da 00c7 | | Action Elaborate_Subprogram
00db BODY_0008:
00db 4800 |H | Short_Literal 0x0
00dc 4800 |H | Short_Literal 0x0
00dd 4800 |H | Short_Literal 0x0
00de e238 | 8 | Load 0x1,0x38
00df 181d | | Execute Package,Field_Execute,Field_Number 0x1d
00e0 00bc | | Action Signal_Activated
00e1 00bb | | Action Signal_Completion
00e2 0000 0000 | | .BLANK 0000[0x6]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00f1 | | .CONST 0x00f1 ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0004 | | .CONST 0x0004 ; Number of locals
00eb INIT_00e8:
00eb 00e1 | | Load_Encached Boolean_Cache
00ec e5fd | | Load 0x2,-0x3
00ed 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
00ee 0007 | | Action Break_Optional
00ef 029f 0393 | | Declare_Subprogram INIT_0390,For_Call
00f1 BODY_00e8:
00f1 e5fc | | Load 0x2,-0x4
00f2 e001 | | Load 0x0,0x1
00f3 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f4 c5fc | | Store 0x2,-0x4
00f5 4801 |H | Short_Literal 0x1
00f6 e5fd | | Load 0x2,-0x3
00f7 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f8 4800 |H | Short_Literal 0x0
00f9 e5fd | | Load 0x2,-0x3
00fa 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
00fb 4800 |H | Short_Literal 0x0
00fc e5fd | | Load 0x2,-0x3
00fd 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00fe 4801 |H | Short_Literal 0x1
00ff e5fd | | Load 0x2,-0x3
0100 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0101 00e1 | | Load_Encached Boolean_Cache
0102 e22e | . | Load 0x1,0x2e
0103 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
0104 0092 0464 | d| Action Push_String_Extended,0x464 ; ","
0106 e5fe | | Load 0x2,-0x2
0107 0092 0465 | e| Action Push_String_Extended,0x465 ; "Publisher.Options"
0109 8239 | 9 | Call 0x1,0x39
010a e5ff | | Load 0x2,-0x1
010b 822c | , | Call 0x1,0x2c
010c e22e | . | Load 0x1,0x2e
010d 181f | | Execute Package,Field_Execute,Field_Number 0x1f
010e c403 | | Store 0x2,0x3
010f 005b | [ | Store_Top Discrete,At_Offset_3
0110 00da | | Load_Top At_Offset_2
0111 7021 |p! | Jump_Nonzero 0x133
0112 00d9 | | Load_Top At_Offset_1
0113 e22e | . | Load 0x1,0x2e
0114 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0115 6806 |h | Jump_Zero 0x11c
0116 4800 |H | Short_Literal 0x0
0117 00da | | Load_Top At_Offset_2
0118 e22e | . | Load 0x1,0x2e
0119 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
011a 8404 | | Call 0x2,0x4
011b 4503 |E | Exit_Suprogram New_Top_Offset 0x3
011c 00cf | | Action Mark_Auxiliary
011d 4800 |H | Short_Literal 0x0
011e 00db | | Load_Top At_Offset_3
011f e22e | . | Load 0x1,0x2e
0120 1822 | " | Execute Package,Field_Execute,Field_Number 0x22
0121 7005 |p | Jump_Nonzero 0x127
0122 4800 |H | Short_Literal 0x0
0123 00db | | Load_Top At_Offset_3
0124 e22e | . | Load 0x1,0x2e
0125 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0126 8404 | | Call 0x2,0x4
0127 00da | | Load_Top At_Offset_2
0128 e22e | . | Load 0x1,0x2e
0129 1826 | & | Execute Package,Field_Execute,Field_Number 0x26
012a c403 | | Store 0x2,0x3
012b 00da | | Load_Top At_Offset_2
012c e22e | . | Load 0x1,0x2e
012d 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
012e 7002 |p | Jump_Nonzero 0x131
012f 00c9 | | Action Pop_Auxiliary_Loop
0130 7fec | | Jump 0x11d
0131 00ce | | Action Pop_Auxiliary
0132 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0133 4803 |H | Short_Literal 0x3
0134 00da | | Load_Top At_Offset_2
0135 e22e | . | Load 0x1,0x2e
0136 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0137 6819 |h | Jump_Zero 0x151
0138 4800 |H | Short_Literal 0x0
0139 4801 |H | Short_Literal 0x1
013a 4803 |H | Short_Literal 0x3
013b e403 | | Load 0x2,0x3
013c e232 | 2 | Load 0x1,0x32
013d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
013e 4604 |F | Jump_Case 0x5
013f 780c |x | Jump 0x14c ; case 0x0
0140 7807 |x | Jump 0x148 ; case 0x1
0141 7806 |x | Jump 0x148 ; case 0x2
0142 7801 |x | Jump 0x144 ; case 0x3
0143 7800 |x | Jump 0x144 ; case 0x4
0144 4800 |H | Short_Literal 0x0
0145 e5fd | | Load 0x2,-0x3
0146 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
0147 7809 |x | Jump 0x151
0148 4801 |H | Short_Literal 0x1
0149 e5fd | | Load 0x2,-0x3
014a 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
014b 7805 |x | Jump 0x151
014c 4803 |H | Short_Literal 0x3
014d 00da | | Load_Top At_Offset_2
014e e22e | . | Load 0x1,0x2e
014f 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
0150 8404 | | Call 0x2,0x4
0151 4804 |H | Short_Literal 0x4
0152 00da | | Load_Top At_Offset_2
0153 e22e | . | Load 0x1,0x2e
0154 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0155 681a |h | Jump_Zero 0x170
0156 4800 |H | Short_Literal 0x0
0157 4801 |H | Short_Literal 0x1
0158 4804 |H | Short_Literal 0x4
0159 e403 | | Load 0x2,0x3
015a e234 | 4 | Load 0x1,0x34
015b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015c 4605 |F | Jump_Case 0x6
015d 780d |x | Jump 0x16b ; case 0x0
015e 7808 |x | Jump 0x167 ; case 0x1
015f 7807 |x | Jump 0x167 ; case 0x2
0160 7802 |x | Jump 0x163 ; case 0x3
0161 7801 |x | Jump 0x163 ; case 0x4
0162 7800 |x | Jump 0x163 ; case 0x5
0163 4801 |H | Short_Literal 0x1
0164 e5fd | | Load 0x2,-0x3
0165 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0166 7809 |x | Jump 0x170
0167 4800 |H | Short_Literal 0x0
0168 e5fd | | Load 0x2,-0x3
0169 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
016a 7805 |x | Jump 0x170
016b 4804 |H | Short_Literal 0x4
016c 00da | | Load_Top At_Offset_2
016d e22e | . | Load 0x1,0x2e
016e 1824 | $ | Execute Package,Field_Execute,Field_Number 0x24
016f 8404 | | Call 0x2,0x4
0170 4802 |H | Short_Literal 0x2
0171 00da | | Load_Top At_Offset_2
0172 e22e | . | Load 0x1,0x2e
0173 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0174 6807 |h | Jump_Zero 0x17c
0175 4800 |H | Short_Literal 0x0
0176 4802 |H | Short_Literal 0x2
0177 00db | | Load_Top At_Offset_3
0178 e22e | . | Load 0x1,0x2e
0179 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
017a e5fd | | Load 0x2,-0x3
017b 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
017c 4801 |H | Short_Literal 0x1
017d 00da | | Load_Top At_Offset_2
017e e22e | . | Load 0x1,0x2e
017f 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0180 6807 |h | Jump_Zero 0x188
0181 4800 |H | Short_Literal 0x0
0182 4801 |H | Short_Literal 0x1
0183 00db | | Load_Top At_Offset_3
0184 e22e | . | Load 0x1,0x2e
0185 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
0186 e5fd | | Load 0x2,-0x3
0187 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0188 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0189 0000 0000 | | .BLANK 0000[0x7]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193 | | .CONST 0x0193 ; Address of begin
0191 0004 | | .CONST 0x0004 ; Address of exception handler
0192 0001 | | .CONST 0x0001 ; Number of locals
0193 BODY_0190:
0193 INIT_0190:
0193 4607 |F | Jump_Case 0x8
0194 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0195 7806 |x | Jump 0x19c ; case 0x1
0196 7809 |x | Jump 0x1a0 ; case 0x2
0197 780d |x | Jump 0x1a5 ; case 0x3
0198 7810 |x | Jump 0x1a9 ; case 0x4
0199 7811 |x | Jump 0x1ab ; case 0x5
019a 7812 |x | Jump 0x1ad ; case 0x6
019b 7815 |x | Jump 0x1b1 ; case 0x7
019c 00da | | Load_Top At_Offset_2
019d 0091 0441 | A| Action Push_String_Extended_Indexed,0x441 ; "LINEPRINTER"
019f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a0 00db | | Load_Top At_Offset_3
01a1 00db | | Load_Top At_Offset_3
01a2 00e0 | | Load_Encached Standard_Cache
01a3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01a5 00da | | Load_Top At_Offset_2
01a6 00e0 | | Load_Encached Standard_Cache
01a7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01a8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01a9 00db | | Load_Top At_Offset_3
01aa 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ab 00db | | Load_Top At_Offset_3
01ac 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01ad e218 | | Load 0x1,0x18
01ae 00dc | | Load_Top At_Offset_4
01af 0267 | g | Execute Discrete,Predecessor
01b0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b1 e218 | | Load 0x1,0x18
01b2 00dc | | Load_Top At_Offset_4
01b3 0268 | h | Execute Discrete,Successor
01b4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01b5 0000 0000 | | .XXX[0x3]
01b7 0000 | |
01b8 ; --------------------------------------------------------------------------------------
01b8 ; SUBPROGRAM
01b8 ; --------------------------------------------------------------------------------------
01b8 01bb | | .CONST 0x01bb ; Address of begin
01b9 0004 | | .CONST 0x0004 ; Address of exception handler
01ba 0001 | | .CONST 0x0001 ; Number of locals
01bb BODY_01b8:
01bb INIT_01b8:
01bb 4607 |F | Jump_Case 0x8
01bc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01bd 7806 |x | Jump 0x1c4 ; case 0x1
01be 7809 |x | Jump 0x1c8 ; case 0x2
01bf 780d |x | Jump 0x1cd ; case 0x3
01c0 7810 |x | Jump 0x1d1 ; case 0x4
01c1 7811 |x | Jump 0x1d3 ; case 0x5
01c2 7812 |x | Jump 0x1d5 ; case 0x6
01c3 7815 |x | Jump 0x1d9 ; case 0x7
01c4 00da | | Load_Top At_Offset_2
01c5 0091 0443 | C| Action Push_String_Extended_Indexed,0x443 ; "COMPOSE"
01c7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01c8 00db | | Load_Top At_Offset_3
01c9 00db | | Load_Top At_Offset_3
01ca 00e0 | | Load_Encached Standard_Cache
01cb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01cd 00da | | Load_Top At_Offset_2
01ce 00e0 | | Load_Encached Standard_Cache
01cf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01d0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
01d1 00db | | Load_Top At_Offset_3
01d2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d3 00db | | Load_Top At_Offset_3
01d4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d5 e222 | " | Load 0x1,0x22
01d6 00dc | | Load_Top At_Offset_4
01d7 0267 | g | Execute Discrete,Predecessor
01d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01d9 e222 | " | Load 0x1,0x22
01da 00dc | | Load_Top At_Offset_4
01db 0268 | h | Execute Discrete,Successor
01dc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
01dd 0000 0000 | | .XXX[0x3]
01df 0000 | |
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3 | | .CONST 0x01e3 ; Address of begin
01e1 0004 | | .CONST 0x0004 ; Address of exception handler
01e2 0001 | | .CONST 0x0001 ; Number of locals
01e3 BODY_01e0:
01e3 INIT_01e0:
01e3 00da | | Load_Top At_Offset_2
01e4 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01e5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01e6 0000 0000 | | .XXX[0x2]
01e8 ; --------------------------------------------------------------------------------------
01e8 ; SUBPROGRAM
01e8 ; --------------------------------------------------------------------------------------
01e8 01eb | | .CONST 0x01eb ; Address of begin
01e9 0004 | | .CONST 0x0004 ; Address of exception handler
01ea 0001 | | .CONST 0x0001 ; Number of locals
01eb BODY_01e8:
01eb INIT_01e8:
01eb 00da | | Load_Top At_Offset_2
01ec 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01ed 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01ee 0000 0000 | | .XXX[0x2]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; SUBPROGRAM
01f0 ; --------------------------------------------------------------------------------------
01f0 01f3 | | .CONST 0x01f3 ; Address of begin
01f1 0004 | | .CONST 0x0004 ; Address of exception handler
01f2 0001 | | .CONST 0x0001 ; Number of locals
01f3 BODY_01f0:
01f3 INIT_01f0:
01f3 00ea | | Load_Encached Null_String_Cache
01f4 4805 |H | Short_Literal 0x5
01f5 e5ff | | Load 0x2,-0x1
01f6 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01f7 e22e | . | Load 0x1,0x2e
01f8 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
01f9 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
01fa 0000 0000 | | .BLANK 0000[0x6]
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 0203 | | .CONST 0x0203 ; Address of begin
0201 0004 | | .CONST 0x0004 ; Address of exception handler
0202 0001 | | .CONST 0x0001 ; Number of locals
0203 BODY_0200:
0203 INIT_0200:
0203 00ea | | Load_Encached Null_String_Cache
0204 4808 |H | Short_Literal 0x8
0205 e5ff | | Load 0x2,-0x1
0206 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0207 e22e | . | Load 0x1,0x2e
0208 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0209 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
020a 0000 0000 | | .BLANK 0000[0x6]
0210 ; --------------------------------------------------------------------------------------
0210 ; SUBPROGRAM
0210 ; --------------------------------------------------------------------------------------
0210 0213 | | .CONST 0x0213 ; Address of begin
0211 0004 | | .CONST 0x0004 ; Address of exception handler
0212 0001 | | .CONST 0x0001 ; Number of locals
0213 BODY_0210:
0213 INIT_0210:
0213 00ea | | Load_Encached Null_String_Cache
0214 4807 |H | Short_Literal 0x7
0215 e5ff | | Load 0x2,-0x1
0216 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0217 e22e | . | Load 0x1,0x2e
0218 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0219 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
021a 0000 0000 | | .BLANK 0000[0x6]
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0234 | 4 | .CONST 0x0234 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0007 | | .CONST 0x0007 ; Number of locals
0223 INIT_0220:
0223 00ea | | Load_Encached Null_String_Cache
0224 4806 |H | Short_Literal 0x6
0225 e5ff | | Load 0x2,-0x1
0226 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0227 e22e | . | Load 0x1,0x2e
0228 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0229 e238 | 8 | Load 0x1,0x38
022a 1b1e | | Execute Package,Field_Read,Field_Number 0x1e
022b e238 | 8 | Load 0x1,0x38
022c 1923 | # | Execute Package,Field_Reference,Field_Number 0x23
022d 0007 | | Action Break_Optional
022e 029f 03ab | | Declare_Subprogram INIT_03a8,For_Call
0230 029f 03db | | Declare_Subprogram INIT_03d8,For_Call
0232 029f 03eb | | Declare_Subprogram INIT_03e8,For_Call
0234 BODY_0220:
0234 e402 | | Load 0x2,0x2
0235 e238 | 8 | Load 0x1,0x38
0236 1820 | | Execute Package,Field_Execute,Field_Number 0x20
0237 a403 | | Store_Unchecked 0x2,0x3
0238 0092 0464 | d| Action Push_String_Extended,0x464 ; ","
023a 0092 0464 | d| Action Push_String_Extended,0x464 ; ","
023c 8407 | | Call 0x2,0x7
023d 8406 | | Call 0x2,0x6
023e 822c | , | Call 0x1,0x2c
023f e402 | | Load 0x2,0x2
0240 822c | , | Call 0x1,0x2c
0241 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0242 0000 0000 | | .BLANK 0000[0x6]
0248 ; --------------------------------------------------------------------------------------
0248 ; SUBPROGRAM
0248 ; --------------------------------------------------------------------------------------
0248 024b | K | .CONST 0x024b ; Address of begin
0249 0004 | | .CONST 0x0004 ; Address of exception handler
024a 0001 | | .CONST 0x0001 ; Number of locals
024b BODY_0248:
024b INIT_0248:
024b 00da | | Load_Top At_Offset_2
024c 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
024d 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
024e 0000 0000 | | .XXX[0x2]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0004 | | .CONST 0x0004 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 00da | | Load_Top At_Offset_2
0254 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
0255 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0256 0000 0000 | | .XXX[0x2]
0258 ; --------------------------------------------------------------------------------------
0258 ; SUBPROGRAM
0258 ; --------------------------------------------------------------------------------------
0258 025b | [ | .CONST 0x025b ; Address of begin
0259 0004 | | .CONST 0x0004 ; Address of exception handler
025a 0001 | | .CONST 0x0001 ; Number of locals
025b BODY_0258:
025b INIT_0258:
025b 00ea | | Load_Encached Null_String_Cache
025c 4809 |H | Short_Literal 0x9
025d e5ff | | Load 0x2,-0x1
025e 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
025f e22e | . | Load 0x1,0x2e
0260 182b | + | Execute Package,Field_Execute,Field_Number 0x2b
0261 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0262 0000 0000 | | .BLANK 0000[0x6]
0268 ; --------------------------------------------------------------------------------------
0268 ; SUBPROGRAM
0268 ; --------------------------------------------------------------------------------------
0268 026b | k | .CONST 0x026b ; Address of begin
0269 0004 | | .CONST 0x0004 ; Address of exception handler
026a 0001 | | .CONST 0x0001 ; Number of locals
026b BODY_0268:
026b INIT_0268:
026b 00da | | Load_Top At_Offset_2
026c 01db | | Execute Vector,Length
026d 6809 |h | Jump_Zero 0x277
026e 00db | | Load_Top At_Offset_3
026f 01db | | Execute Vector,Length
0270 6806 |h | Jump_Zero 0x277
0271 00da | | Load_Top At_Offset_2
0272 e5fd | | Load 0x2,-0x3
0273 01cc | | Execute Vector,Catenate
0274 e5fe | | Load 0x2,-0x2
0275 01cc | | Execute Vector,Catenate
0276 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
0277 00da | | Load_Top At_Offset_2
0278 e5fe | | Load 0x2,-0x2
0279 01cc | | Execute Vector,Catenate
027a 4403 |D | Exit_Subprogram With_Value,New_Top_Offset 0x3
027b 0000 0000 | | .BLANK 0000[0x5]
0280 ; --------------------------------------------------------------------------------------
0280 ; SUBPROGRAM
0280 ; --------------------------------------------------------------------------------------
0280 0283 | | .CONST 0x0283 ; Address of begin
0281 0004 | | .CONST 0x0004 ; Address of exception handler
0282 0001 | | .CONST 0x0001 ; Number of locals
0283 BODY_0280:
0283 INIT_0280:
0283 4607 |F | Jump_Case 0x8
0284 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
0285 7806 |x | Jump 0x28c ; case 0x1
0286 7809 |x | Jump 0x290 ; case 0x2
0287 780d |x | Jump 0x295 ; case 0x3
0288 7810 |x | Jump 0x299 ; case 0x4
0289 7811 |x | Jump 0x29b ; case 0x5
028a 7812 |x | Jump 0x29d ; case 0x6
028b 7815 |x | Jump 0x2a1 ; case 0x7
028c 00da | | Load_Top At_Offset_2
028d 0091 0445 | E| Action Push_String_Extended_Indexed,0x445 ; "NIL"
028f 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0290 00db | | Load_Top At_Offset_3
0291 00db | | Load_Top At_Offset_3
0292 00e0 | | Load_Encached Standard_Cache
0293 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0294 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0295 00da | | Load_Top At_Offset_2
0296 00e0 | | Load_Encached Standard_Cache
0297 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0298 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0299 00db | | Load_Top At_Offset_3
029a 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
029b 00db | | Load_Top At_Offset_3
029c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
029d e22d | - | Load 0x1,0x2d
029e 00dc | | Load_Top At_Offset_4
029f 0267 | g | Execute Discrete,Predecessor
02a0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02a1 e22d | - | Load 0x1,0x2d
02a2 00dc | | Load_Top At_Offset_4
02a3 0268 | h | Execute Discrete,Successor
02a4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02a5 0000 0000 | | .XXX[0x3]
02a7 0000 | |
02a8 ; --------------------------------------------------------------------------------------
02a8 ; SUBPROGRAM
02a8 ; --------------------------------------------------------------------------------------
02a8 02ab | | .CONST 0x02ab ; Address of begin
02a9 0004 | | .CONST 0x0004 ; Address of exception handler
02aa 0001 | | .CONST 0x0001 ; Number of locals
02ab BODY_02a8:
02ab INIT_02a8:
02ab 4607 |F | Jump_Case 0x8
02ac 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02ad 7806 |x | Jump 0x2b4 ; case 0x1
02ae 7809 |x | Jump 0x2b8 ; case 0x2
02af 780d |x | Jump 0x2bd ; case 0x3
02b0 7810 |x | Jump 0x2c1 ; case 0x4
02b1 7811 |x | Jump 0x2c3 ; case 0x5
02b2 7812 |x | Jump 0x2c5 ; case 0x6
02b3 7815 |x | Jump 0x2c9 ; case 0x7
02b4 00da | | Load_Top At_Offset_2
02b5 0091 044f | O| Action Push_String_Extended_Indexed,0x44f ; "NIL"
02b7 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02b8 00db | | Load_Top At_Offset_3
02b9 00db | | Load_Top At_Offset_3
02ba 00e0 | | Load_Encached Standard_Cache
02bb 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02bc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02bd 00da | | Load_Top At_Offset_2
02be 00e0 | | Load_Encached Standard_Cache
02bf 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02c0 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02c1 00db | | Load_Top At_Offset_3
02c2 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02c3 00db | | Load_Top At_Offset_3
02c4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02c5 e231 | 1 | Load 0x1,0x31
02c6 00dc | | Load_Top At_Offset_4
02c7 0267 | g | Execute Discrete,Predecessor
02c8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02c9 e231 | 1 | Load 0x1,0x31
02ca 00dc | | Load_Top At_Offset_4
02cb 0268 | h | Execute Discrete,Successor
02cc 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02cd 0000 0000 | | .XXX[0x3]
02cf 0000 | |
02d0 ; --------------------------------------------------------------------------------------
02d0 ; SUBPROGRAM
02d0 ; --------------------------------------------------------------------------------------
02d0 02d3 | | .CONST 0x02d3 ; Address of begin
02d1 0004 | | .CONST 0x0004 ; Address of exception handler
02d2 0001 | | .CONST 0x0001 ; Number of locals
02d3 BODY_02d0:
02d3 INIT_02d0:
02d3 4607 |F | Jump_Case 0x8
02d4 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02d5 7806 |x | Jump 0x2dc ; case 0x1
02d6 7809 |x | Jump 0x2e0 ; case 0x2
02d7 780d |x | Jump 0x2e5 ; case 0x3
02d8 7810 |x | Jump 0x2e9 ; case 0x4
02d9 7811 |x | Jump 0x2eb ; case 0x5
02da 7812 |x | Jump 0x2ed ; case 0x6
02db 7815 |x | Jump 0x2f1 ; case 0x7
02dc 00da | | Load_Top At_Offset_2
02dd 0091 0454 | T| Action Push_String_Extended_Indexed,0x454 ; "NIL"
02df 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02e0 00db | | Load_Top At_Offset_3
02e1 00db | | Load_Top At_Offset_3
02e2 00e0 | | Load_Encached Standard_Cache
02e3 181b | | Execute Package,Field_Execute,Field_Number 0x1b
02e4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02e5 00da | | Load_Top At_Offset_2
02e6 00e0 | | Load_Encached Standard_Cache
02e7 181c | | Execute Package,Field_Execute,Field_Number 0x1c
02e8 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
02e9 00db | | Load_Top At_Offset_3
02ea 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02eb 00db | | Load_Top At_Offset_3
02ec 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02ed e233 | 3 | Load 0x1,0x33
02ee 00dc | | Load_Top At_Offset_4
02ef 0267 | g | Execute Discrete,Predecessor
02f0 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02f1 e233 | 3 | Load 0x1,0x33
02f2 00dc | | Load_Top At_Offset_4
02f3 0268 | h | Execute Discrete,Successor
02f4 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
02f5 0000 0000 | | .XXX[0x3]
02f7 0000 | |
02f8 ; --------------------------------------------------------------------------------------
02f8 ; SUBPROGRAM
02f8 ; --------------------------------------------------------------------------------------
02f8 02fb | | .CONST 0x02fb ; Address of begin
02f9 0004 | | .CONST 0x0004 ; Address of exception handler
02fa 0001 | | .CONST 0x0001 ; Number of locals
02fb BODY_02f8:
02fb INIT_02f8:
02fb 4607 |F | Jump_Case 0x8
02fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
02fd 7806 |x | Jump 0x304 ; case 0x1
02fe 7809 |x | Jump 0x308 ; case 0x2
02ff 780d |x | Jump 0x30d ; case 0x3
0300 7810 |x | Jump 0x311 ; case 0x4
0301 7811 |x | Jump 0x313 ; case 0x5
0302 7812 |x | Jump 0x315 ; case 0x6
0303 7815 |x | Jump 0x319 ; case 0x7
0304 00da | | Load_Top At_Offset_2
0305 0091 045a | Z| Action Push_String_Extended_Indexed,0x45a ; "NIL"
0307 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0308 00db | | Load_Top At_Offset_3
0309 00db | | Load_Top At_Offset_3
030a 00e0 | | Load_Encached Standard_Cache
030b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
030c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
030d 00da | | Load_Top At_Offset_2
030e 00e0 | | Load_Encached Standard_Cache
030f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0310 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0311 00db | | Load_Top At_Offset_3
0312 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0313 00db | | Load_Top At_Offset_3
0314 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0315 e237 | 7 | Load 0x1,0x37
0316 00dc | | Load_Top At_Offset_4
0317 0267 | g | Execute Discrete,Predecessor
0318 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0319 e237 | 7 | Load 0x1,0x37
031a 00dc | | Load_Top At_Offset_4
031b 0268 | h | Execute Discrete,Successor
031c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
031d 0000 0000 | | .XXX[0x3]
031f 0000 | |
0320 ; --------------------------------------------------------------------------------------
0320 ; SUBPROGRAM
0320 ; --------------------------------------------------------------------------------------
0320 033c | < | .CONST 0x033c ; Address of begin
0321 0386 | | .CONST 0x0386 ; Address of exception handler
0322 0009 | | .CONST 0x0009 ; Number of locals
0323 INIT_0320:
0323 e00b | | Load 0x0,0xb
0324 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0325 e00c | | Load 0x0,0xc
0326 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0327 02c7 | | Declare_Variable Any
0328 00d8 | | Load_Top At_Offset_0
0329 1c00 | | Execute_Immediate Run_Utility,0x0
032a e00b | | Load 0x0,0xb
032b 1b0f | | Execute Package,Field_Read,Field_Number 0xf
032c 02c7 | | Declare_Variable Any
032d 00d8 | | Load_Top At_Offset_0
032e 1c00 | | Execute_Immediate Run_Utility,0x0
032f e00b | | Load 0x0,0xb
0330 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0331 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0332 00ea | | Load_Encached Null_String_Cache
0333 e00b | | Load 0x0,0xb
0334 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0335 02c7 | | Declare_Variable Any
0336 00d8 | | Load_Top At_Offset_0
0337 1c00 | | Execute_Immediate Run_Utility,0x0
0338 029f 040b | | Declare_Subprogram INIT_0408,For_Call
033a 029f 0423 | #| Declare_Subprogram INIT_0420,For_Call
033c BODY_0320:
033c 00be | | Action Activate_Tasks
033d e00b | | Load 0x0,0xb
033e 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
033f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0340 e404 | | Load 0x2,0x4
0341 0120 | | Execute Any,Is_Value
0342 6803 |h | Jump_Zero 0x346
0343 e00b | | Load 0x0,0xb
0344 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0345 7801 |x | Jump 0x347
0346 e404 | | Load 0x2,0x4
0347 6044 |`D | Indirect_Literal Discrete,0x38c,{0x00000000, 0x00028000}
0348 e00d | | Load 0x0,0xd
0349 1b0e | | Execute Package,Field_Read,Field_Number 0xe
034a e00e | | Load 0x0,0xe
034b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
034c e00b | | Load 0x0,0xb
034d 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
034e 1816 | | Execute Package,Field_Execute,Field_Number 0x16
034f e5fe | | Load 0x2,-0x2
0350 e00b | | Load 0x0,0xb
0351 1b35 | 5 | Execute Package,Field_Read,Field_Number 0x35
0352 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0353 c404 | | Store 0x2,0x4
0354 c405 | | Store 0x2,0x5
0355 e405 | | Load 0x2,0x5
0356 6802 |h | Jump_Zero 0x359
0357 00db | | Load_Top At_Offset_3
0358 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0359 e00b | | Load 0x0,0xb
035a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
035b 00db | | Load_Top At_Offset_3
035c 0120 | | Execute Any,Is_Value
035d 6803 |h | Jump_Zero 0x361
035e e00b | | Load 0x0,0xb
035f 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0360 7801 |x | Jump 0x362
0361 00db | | Load_Top At_Offset_3
0362 6029 |`) | Indirect_Literal Discrete,0x38c,{0x00000000, 0x00028000}
0363 e00d | | Load 0x0,0xd
0364 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0365 e404 | | Load 0x2,0x4
0366 e00b | | Load 0x0,0xb
0367 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
0368 181a | | Execute Package,Field_Execute,Field_Number 0x1a
0369 e00b | | Load 0x0,0xb
036a 1b3d | = | Execute Package,Field_Read,Field_Number 0x3d
036b 181f | | Execute Package,Field_Execute,Field_Number 0x1f
036c c407 | | Store 0x2,0x7
036d c402 | | Store 0x2,0x2
036e e402 | | Load 0x2,0x2
036f 6802 |h | Jump_Zero 0x372
0370 00db | | Load_Top At_Offset_3
0371 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0372 e00f | | Load 0x0,0xf
0373 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0374 e403 | | Load 0x2,0x3
0375 4800 |H | Short_Literal 0x0
0376 6015 |` | Indirect_Literal Discrete,0x38c,{0x00000000, 0x00028000}
0377 e00d | | Load 0x0,0xd
0378 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0379 4800 |H | Short_Literal 0x0
037a e407 | | Load 0x2,0x7
037b 4800 |H | Short_Literal 0x0
037c e00f | | Load 0x0,0xf
037d 1821 | ! | Execute Package,Field_Execute,Field_Number 0x21
037e c403 | | Store 0x2,0x3
037f c402 | | Store 0x2,0x2
0380 e402 | | Load 0x2,0x2
0381 6802 |h | Jump_Zero 0x384
0382 00db | | Load_Top At_Offset_3
0383 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0384 8408 | | Call 0x2,0x8
0385 0831 | 1 | Execute_Immediate Raise,0x31
0386 TRAP_0320:
0386 0007 | | Action Break_Optional
0387 8409 | | Call 0x2,0x9
0388 e406 | | Load 0x2,0x6
0389 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
038a 0000 0000 | | .XXX[0x2]
038c 0000 0000 | | .LITERAL {0x00000000, 0x00028000}
0390 ; --------------------------------------------------------------------------------------
0390 ; SUBPROGRAM
0390 ; --------------------------------------------------------------------------------------
0390 0393 | | .CONST 0x0393 ; Address of begin
0391 0004 | | .CONST 0x0004 ; Address of exception handler
0392 0001 | | .CONST 0x0001 ; Number of locals
0393 BODY_0390:
0393 INIT_0390:
0393 4800 |H | Short_Literal 0x0
0394 4800 |H | Short_Literal 0x0
0395 4807 |H | Short_Literal 0x7
0396 e7ff | | Load 0x3,-0x1
0397 00ea | | Load_Encached Null_String_Cache
0398 e001 | | Load 0x0,0x1
0399 181d | | Execute Package,Field_Execute,Field_Number 0x1d
039a 4802 |H | Short_Literal 0x2
039b e5fc | | Load 0x2,-0x4
039c e001 | | Load 0x0,0x1
039d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
039e 7006 |p | Jump_Nonzero 0x3a5
039f e5fc | | Load 0x2,-0x4
03a0 00ea | | Load_Encached Null_String_Cache
03a1 e22f | / | Load 0x1,0x2f
03a2 e001 | | Load 0x0,0x1
03a3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
03a4 c5fc | | Store 0x2,-0x4
03a5 4502 |E | Exit_Suprogram New_Top_Offset 0x2
03a6 0000 0000 | | .XXX[0x2]
03a8 ; --------------------------------------------------------------------------------------
03a8 ; SUBPROGRAM
03a8 ; --------------------------------------------------------------------------------------
03a8 03b2 | | .CONST 0x03b2 ; Address of begin
03a9 03ca | | .CONST 0x03ca ; Address of exception handler
03aa 0003 | | .CONST 0x0003 ; Number of locals
03ab INIT_03a8:
03ab e010 | | Load 0x0,0x10
03ac 1b0d | | Execute Package,Field_Read,Field_Number 0xd
03ad 02c7 | | Declare_Variable Any
03ae 00d8 | | Load_Top At_Offset_0
03af 1c00 | | Execute_Immediate Run_Utility,0x0
03b0 029f 043b | ;| Declare_Subprogram INIT_0438,For_Call
03b2 BODY_03a8:
03b2 e5ff | | Load 0x2,-0x1
03b3 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03b4 0f01 | | Execute_Immediate Equal,0x1
03b5 7008 |p | Jump_Nonzero 0x3be
03b6 00d9 | | Load_Top At_Offset_1
03b7 00ea | | Load_Encached Null_String_Cache
03b8 e236 | 6 | Load 0x1,0x36
03b9 4800 |H | Short_Literal 0x0
03ba e010 | | Load 0x0,0x10
03bb 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03bc c602 | | Store 0x3,0x2
03bd 7807 |x | Jump 0x3c5
03be 00d9 | | Load_Top At_Offset_1
03bf 00ea | | Load_Encached Null_String_Cache
03c0 e235 | 5 | Load 0x1,0x35
03c1 4800 |H | Short_Literal 0x0
03c2 e010 | | Load 0x0,0x10
03c3 1815 | | Execute Package,Field_Execute,Field_Number 0x15
03c4 c602 | | Store 0x3,0x2
03c5 00d9 | | Load_Top At_Offset_1
03c6 e010 | | Load 0x0,0x10
03c7 1866 | f | Execute Package,Field_Execute,Field_Number 0x66
03c8 8603 | | Call 0x3,0x3
03c9 00ca | | Action Exit_Nullary_Function
03ca TRAP_03a8:
03ca 0007 | | Action Break_Optional
03cb e5ff | | Load 0x2,-0x1
03cc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03cd 0f01 | | Execute_Immediate Equal,0x1
03ce 7003 |p | Jump_Nonzero 0x3d2
03cf 0092 0466 | f| Action Push_String_Extended,0x466 ; "Lp"
03d1 00ca | | Action Exit_Nullary_Function
03d2 0092 0467 | g| Action Push_String_Extended,0x467 ; "Laser"
03d4 00ca | | Action Exit_Nullary_Function
03d5 0000 0000 | | .XXX[0x3]
03d7 0000 | |
03d8 ; --------------------------------------------------------------------------------------
03d8 ; SUBPROGRAM
03d8 ; --------------------------------------------------------------------------------------
03d8 03db | | .CONST 0x03db ; Address of begin
03d9 0004 | | .CONST 0x0004 ; Address of exception handler
03da 0001 | | .CONST 0x0001 ; Number of locals
03db BODY_03d8:
03db INIT_03d8:
03db 4801 |H | Short_Literal 0x1
03dc e403 | | Load 0x2,0x3
03dd 8404 | | Call 0x2,0x4
03de 6802 |h | Jump_Zero 0x3e1
03df 00ea | | Load_Encached Null_String_Cache
03e0 00ca | | Action Exit_Nullary_Function
03e1 0092 0468 | h| Action Push_String_Extended,0x468 ; "Class=>"
03e3 8405 | | Call 0x2,0x5
03e4 01cc | | Execute Vector,Catenate
03e5 00ca | | Action Exit_Nullary_Function
03e6 0000 0000 | | .XXX[0x2]
03e8 ; --------------------------------------------------------------------------------------
03e8 ; SUBPROGRAM
03e8 ; --------------------------------------------------------------------------------------
03e8 03eb | | .CONST 0x03eb ; Address of begin
03e9 0004 | | .CONST 0x0004 ; Address of exception handler
03ea 0001 | | .CONST 0x0001 ; Number of locals
03eb BODY_03e8:
03eb INIT_03e8:
03eb 4804 |H | Short_Literal 0x4
03ec e403 | | Load 0x2,0x3
03ed 8404 | | Call 0x2,0x4
03ee 700c |p | Jump_Nonzero 0x3fb
03ef 4802 |H | Short_Literal 0x2
03f0 e403 | | Load 0x2,0x3
03f1 8404 | | Call 0x2,0x4
03f2 7008 |p | Jump_Nonzero 0x3fb
03f3 4805 |H | Short_Literal 0x5
03f4 e403 | | Load 0x2,0x3
03f5 8404 | | Call 0x2,0x4
03f6 7004 |p | Jump_Nonzero 0x3fb
03f7 4803 |H | Short_Literal 0x3
03f8 e403 | | Load 0x2,0x3
03f9 8404 | | Call 0x2,0x4
03fa 6802 |h | Jump_Zero 0x3fd
03fb 00ea | | Load_Encached Null_String_Cache
03fc 00ca | | Action Exit_Nullary_Function
03fd e5ff | | Load 0x2,-0x1
03fe 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
03ff 0f01 | | Execute_Immediate Equal,0x1
0400 7003 |p | Jump_Nonzero 0x404
0401 0092 0469 | i| Action Push_String_Extended,0x469 ; "Format=>()"
0403 00ca | | Action Exit_Nullary_Function
0404 0092 046a | j| Action Push_String_Extended,0x46a ; "Postscript=>()"
0406 00ca | | Action Exit_Nullary_Function
0407 0000 | | .XXX[0x1]
0408 ; --------------------------------------------------------------------------------------
0408 ; SUBPROGRAM
0408 ; --------------------------------------------------------------------------------------
0408 040f | | .CONST 0x040f ; Address of begin
0409 0004 | | .CONST 0x0004 ; Address of exception handler
040a 0002 | | .CONST 0x0002 ; Number of locals
040b INIT_0408:
040b e5ff | | Load 0x2,-0x1
040c e403 | | Load 0x2,0x3
040d e00c | | Load 0x0,0xc
040e 1847 | G | Execute Package,Field_Execute,Field_Number 0x47
040f BODY_0408:
040f e00f | | Load 0x0,0xf
0410 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0411 e403 | | Load 0x2,0x3
0412 e00f | | Load 0x0,0xf
0413 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
0414 c403 | | Store 0x2,0x3
0415 c402 | | Store 0x2,0x2
0416 00d8 | | Load_Top At_Offset_0
0417 00cb | | Action Pop_Block_With_Result
0418 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
0419 0000 0000 | | .BLANK 0000[0x7]
0420 ; --------------------------------------------------------------------------------------
0420 ; SUBPROGRAM
0420 ; --------------------------------------------------------------------------------------
0420 0423 | # | .CONST 0x0423 ; Address of begin
0421 042f | / | .CONST 0x042f ; Address of exception handler
0422 0001 | | .CONST 0x0001 ; Number of locals
0423 BODY_0420:
0423 INIT_0420:
0423 e403 | | Load 0x2,0x3
0424 e00f | | Load 0x0,0xf
0425 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0426 6807 |h | Jump_Zero 0x42e
0427 e00f | | Load 0x0,0xf
0428 1b10 | | Execute Package,Field_Read,Field_Number 0x10
0429 e403 | | Load 0x2,0x3
042a e00f | | Load 0x0,0xf
042b 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
042c c403 | | Store 0x2,0x3
042d c402 | | Store 0x2,0x2
042e 4501 |E | Exit_Suprogram New_Top_Offset 0x1
042f TRAP_0420:
042f 0007 | | Action Break_Optional
0430 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0431 0000 0000 | | .BLANK 0000[0x7]
0438 ; --------------------------------------------------------------------------------------
0438 ; SUBPROGRAM
0438 ; --------------------------------------------------------------------------------------
0438 043b | ; | .CONST 0x043b ; Address of begin
0439 0004 | | .CONST 0x0004 ; Address of exception handler
043a 0001 | | .CONST 0x0001 ; Number of locals
043b BODY_0438:
043b INIT_0438:
043b e602 | | Load 0x3,0x2
043c e010 | | Load 0x0,0x10
043d 181b | | Execute Package,Field_Execute,Field_Number 0x1b
043e c602 | | Store 0x3,0x2
043f 00da | | Load_Top At_Offset_2
0440 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0441 ; --------------------------------------------------------------------------------------
0441 ; STRING TABLE
0441 ; --------------------------------------------------------------------------------------
0441 0056 | V | .STRTAB 0x0056->0x046c ; "LINEPRINTER"
0442 005f | _ | .STRTAB 0x005f->0x0471 ; "POSTSCRIPT"
0443 0067 | g | .STRTAB 0x0067->0x0476 ; "COMPOSE"
0444 006c | l | .STRTAB 0x006c->0x047a ; "TPS"
0445 006d | m | .STRTAB 0x006d->0x047b ; "NIL"
0446 006e | n | .STRTAB 0x006e->0x047d ; "TIME_STAMP"
0447 0076 | v | .STRTAB 0x0076->0x0482 ; "REPLACE"
0448 007b | { | .STRTAB 0x007b->0x0485 ; "DEVICE"
0449 007f | | .STRTAB 0x007f->0x0488 ; "FORMATTER"
044a 0086 | | .STRTAB 0x0086->0x048d ; "FORMATTER_OPTIONS"
044b 0095 | | .STRTAB 0x0095->0x0495 ; "QUEUE_OPTIONS"
044c 00a0 | | .STRTAB 0x00a0->0x049c ; "PROLOG"
044d 00a4 | | .STRTAB 0x00a4->0x049f ; "GRAPHICS_INFORMATION"
044e 00b6 | | .STRTAB 0x00b6->0x04a9 ; "TPS_INFORMATION"
044f 00c3 | | .STRTAB 0x00c3->0x04b0 ; "NIL"
0450 00c4 | | .STRTAB 0x00c4->0x04b2 ; "POSTSCRIPT"
0451 00cc | | .STRTAB 0x00cc->0x04b7 ; "PS"
0452 00cc | | .STRTAB 0x00cc->0x04b8 ; "LINEPRINTER"
0453 00d5 | | .STRTAB 0x00d5->0x04bd ; "LPT"
0454 00d6 | | .STRTAB 0x00d6->0x04bf ; "NIL"
0455 00d7 | | .STRTAB 0x00d7->0x04c0 ; "COMPOSE"
0456 00dc | | .STRTAB 0x00dc->0x04c4 ; "RATIONAL"
0457 00e2 | | .STRTAB 0x00e2->0x04c8 ; "TPS"
0458 00e3 | | .STRTAB 0x00e3->0x04c9 ; "OPS"
0459 00e4 | | .STRTAB 0x00e4->0x04cb ; "INTERLEAF"
045a 00eb | | .STRTAB 0x00eb->0x04cf ; "NIL"
045b 00ec | | .STRTAB 0x00ec->0x04d1 ; "CLASS"
045c 00ef | | .STRTAB 0x00ef->0x04d3 ; "FORMAT"
045d 00f3 | | .STRTAB 0x00f3->0x04d6 ; "ORIGINAL_RAW"
045e 00fd | | .STRTAB 0x00fd->0x04dc ; "POSTSCRIPT"
045f 0105 | | .STRTAB 0x0105->0x04e1 ; "RAW"
0460 0106 | | .STRTAB 0x0106->0x04e3 ; "Time_Stamp..Replace=Boolean,Prolog..Tps_Information=Directory_String_Name"
0461 014d | M | .STRTAB 0x014d->0x0507 ; "!Machine.Laser_Class"
0462 015f | _ | .STRTAB 0x015f->0x0511 ; "!Machine.Lp_Class"
0463 016e | n | .STRTAB 0x016e->0x051a ; "others => Unspecified"
0464 0181 | | .STRTAB 0x0181->0x0524 ; ","
0465 0180 | | .STRTAB 0x0180->0x0525 ; "Publisher.Options"
0466 018f | | .STRTAB 0x018f->0x052d ; "Lp"
0467 018f | | .STRTAB 0x018f->0x052e ; "Laser"
0468 0192 | | .STRTAB 0x0192->0x0531 ; "Class=>"
0469 0197 | | .STRTAB 0x0197->0x0534 ; "Format=>()"
046a 019f | | .STRTAB 0x019f->0x0539 ; "Postscript=>()"
046b 01ab | | .STREND 0x01ab->0x0540
046c 4c49 4e45 |LINE| .STRTAB_STRINGS
0541 0000 0000 | | .BLANK 0000[0x7]
0548 ; --------------------------------------------------------------------------------------
0548 ; Debug Table
0548 ; --------------------------------------------------------------------------------------
0548 0004 0012 | | .DEBUG4 0x0004,0x0012,0xc79c,0x0000,0x0001,0x0000
054e 0000 0000 | | .BLANK 0000[0x26]
0574 8014 0000 | | .XXX[0xb]
0576 0000 0000 | |
0578 0100 0000 | |
057a 0880 0000 | |
057c 0004 0000 | |
057e 0028 | ( |
057f 0000 0000 | | .BLANK 0000[0x2e]
05ad 1002 8000 | | .XXX[0xb]
05af 0000 0000 | |
05b1 0020 0000 | |
05b3 0110 0000 | |
05b5 0000 8000 | |
05b7 0005 | |
05b8 0000 0000 | | .BLANK 0000[0x48]