|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03bcfe
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5800 |X | .CONST 0x5800 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 02c8 | | .CONST 0x02c8 ; Offset of debug table
0004 0100 | | .CONST 0x0100 ; Default exception handler - raise instruction
0005 00bb | | .CONST 0x00bb ; Module termination instruction - signal completion
0006 0000 | | .CONST 0x0000 ; Offset to segment table (only in elab segments)
0007 8001 | | .CONST 0x8001 ; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0085 | | .CONST 0x0085 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0025 | % | .CONST 0x0025 ; Number of locals
000b INIT_0008:
000b e001 | | Load 0x0,0x1
000c 0129 | ) | Execute Any,Make_Visible
000d 029a 008b | | Declare_Subprogram INIT_0088,For_Outer_Call,Visible,Unelaborated
000f 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated
0011 029a 00eb | | Declare_Subprogram INIT_00e8,For_Outer_Call,Visible,Unelaborated
0013 029a 0103 | | Declare_Subprogram INIT_0100,For_Outer_Call,Visible,Unelaborated
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 029a 011b | | Declare_Subprogram INIT_0118,For_Outer_Call,Visible,Unelaborated
001e c216 | | Store 0x1,0x16
001f 029a 019b | | Declare_Subprogram INIT_0198,For_Outer_Call,Visible,Unelaborated
0021 c214 | | Store 0x1,0x14
0022 029a 01f3 | | Declare_Subprogram INIT_01f0,For_Outer_Call,Visible,Unelaborated
0024 c215 | | Store 0x1,0x15
0025 00bf | | Action Accept_Activation
0026 4800 |H | Short_Literal 0x0
0027 4801 |H | Short_Literal 0x1
0028 029f 01fb | | Declare_Subprogram INIT_01f8,For_Call
002a 03fd | | Declare_Type Discrete,Defined
002b 00d8 | | Load_Top At_Offset_0
002c e002 | | Load 0x0,0x2
002d 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002e 00e3 | | Load_Encached Natural_Cache
002f 00e3 | | Load_Encached Natural_Cache
0030 00e3 | | Load_Encached Natural_Cache
0031 e003 | | Load 0x0,0x3
0032 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0033 00e1 | | Load_Encached Boolean_Cache
0034 029f 0223 | #| Declare_Subprogram INIT_0220,For_Call
0036 4807 |H | Short_Literal 0x7
0037 032d | - | Declare_Type Record,Defined
0038 00d8 | | Load_Top At_Offset_0
0039 02a0 | | Declare_Subprogram Null_Subprogram
003a 4818 |H | Short_Literal 0x18
003b 03d3 | | Declare_Type Access,Defined,Accesses_Protected
003c 4801 |H | Short_Literal 0x1
003d 4814 |H | Short_Literal 0x14
003e e21b | | Load 0x1,0x1b
003f 02a0 | | Declare_Subprogram Null_Subprogram
0040 4801 |H | Short_Literal 0x1
0041 035d | ] | Declare_Type Array,Defined
0042 00e9 | | Load_Encached String_Cache
0043 02a0 | | Declare_Subprogram Null_Subprogram
0044 4818 |H | Short_Literal 0x18
0045 03d3 | | Declare_Type Access,Defined,Accesses_Protected
0046 4801 |H | Short_Literal 0x1
0047 4814 |H | Short_Literal 0x14
0048 e21d | | Load 0x1,0x1d
0049 02a0 | | Declare_Subprogram Null_Subprogram
004a 4801 |H | Short_Literal 0x1
004b 035d | ] | Declare_Type Array,Defined
004c e21c | | Load 0x1,0x1c
004d 0337 | 7 | Declare_Variable Array
004e 00d8 | | Load_Top At_Offset_0
004f 0335 | 5 | Declare_Variable Array,Duplicate
0050 00cd | | Action Spare6_Action
0051 4814 |H | Short_Literal 0x14
0052 4801 |H | Short_Literal 0x1
0053 e21b | | Load 0x1,0x1b
0054 03bc | | Declare_Variable Access,By_Allocation
0055 00d8 | | Load_Top At_Offset_0
0056 0227 | ' | Execute Access,All_Reference
0057 1c00 | | Execute_Immediate Run_Utility,0x0
0058 e222 | " | Load 0x1,0x22
0059 e220 | | Load 0x1,0x20
005a 01d6 | | Execute Vector,Field_Write
005b 3ff7 |? | Loop_Increasing 0x53
005c e21f | | Load 0x1,0x1f
005d 01d4 | | Execute Vector,Structure_Write
005e e21e | | Load 0x1,0x1e
005f 0337 | 7 | Declare_Variable Array
0060 00d8 | | Load_Top At_Offset_0
0061 0335 | 5 | Declare_Variable Array,Duplicate
0062 00cd | | Action Spare6_Action
0063 4814 |H | Short_Literal 0x14
0064 4801 |H | Short_Literal 0x1
0065 4801 |H | Short_Literal 0x1
0066 4900 |I | Short_Literal 0x100
0067 e21d | | Load 0x1,0x1d
0068 03ba | | Declare_Variable Access,By_Allocation,With_Constraint
0069 e223 | # | Load 0x1,0x23
006a e221 | ! | Load 0x1,0x21
006b 01d6 | | Execute Vector,Field_Write
006c 3ff8 |? | Loop_Increasing 0x65
006d e220 | | Load 0x1,0x20
006e 01d4 | | Execute Vector,Structure_Write
006f e21b | | Load 0x1,0x1b
0070 0007 | | Action Break_Optional
0071 e21d | | Load 0x1,0x1d
0072 0007 | | Action Break_Optional
0073 00e3 | | Load_Encached Natural_Cache
0074 1d11 | | Execute_Immediate Reference_Lex_1,0x11
0075 029d 023b | ;| Declare_Subprogram INIT_0238,For_Outer_Call
0077 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0078 00c7 | | Action Elaborate_Subprogram
0079 1d0f | | Execute_Immediate Reference_Lex_1,0xf
007a 00c7 | | Action Elaborate_Subprogram
007b 1d10 | | Execute_Immediate Reference_Lex_1,0x10
007c 00c7 | | Action Elaborate_Subprogram
007d 1d11 | | Execute_Immediate Reference_Lex_1,0x11
007e 00c7 | | Action Elaborate_Subprogram
007f 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0080 00c7 | | Action Elaborate_Subprogram
0081 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0082 00c7 | | Action Elaborate_Subprogram
0083 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0084 00c7 | | Action Elaborate_Subprogram
0085 BODY_0008:
0085 00bc | | Action Signal_Activated
0086 00bb | | Action Signal_Completion
0087 0000 | | .XXX[0x1]
0088 ; --------------------------------------------------------------------------------------
0088 ; SUBPROGRAM
0088 ; --------------------------------------------------------------------------------------
0088 008d | | .CONST 0x008d ; Address of begin
0089 0004 | | .CONST 0x0004 ; Address of exception handler
008a 0002 | | .CONST 0x0002 ; Number of locals
008b INIT_0088:
008b 029f 0253 | S| Declare_Subprogram INIT_0250,For_Call
008d BODY_0088:
008d 8225 | % | Call 0x1,0x25
008e 8402 | | Call 0x2,0x2
008f 4801 |H | Short_Literal 0x1
0090 a5fe | | Store_Unchecked 0x2,-0x2
0091 4800 |H | Short_Literal 0x0
0092 e221 | ! | Load 0x1,0x21
0093 0227 | ' | Execute Access,All_Reference
0094 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
0095 e221 | ! | Load 0x1,0x21
0096 0227 | ' | Execute Access,All_Reference
0097 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0098 e003 | | Load 0x0,0x3
0099 181f | | Execute Package,Field_Execute,Field_Number 0x1f
009a e002 | | Load 0x0,0x2
009b 1b0d | | Execute Package,Field_Read,Field_Number 0xd
009c 1817 | | Execute Package,Field_Execute,Field_Number 0x17
009d e221 | ! | Load 0x1,0x21
009e 0227 | ' | Execute Access,All_Reference
009f 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00a0 4800 |H | Short_Literal 0x0
00a1 e221 | ! | Load 0x1,0x21
00a2 0227 | ' | Execute Access,All_Reference
00a3 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00a4 4801 |H | Short_Literal 0x1
00a5 e221 | ! | Load 0x1,0x21
00a6 0227 | ' | Execute Access,All_Reference
00a7 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
00a8 4800 |H | Short_Literal 0x0
00a9 e221 | ! | Load 0x1,0x21
00aa 0227 | ' | Execute Access,All_Reference
00ab 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
00ac e223 | # | Load 0x1,0x23
00ad e220 | | Load 0x1,0x20
00ae 01d7 | | Execute Vector,Field_Read
00af a222 | " | Store_Unchecked 0x1,0x22
00b0 e002 | | Load 0x0,0x2
00b1 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00b2 6809 |h | Jump_Zero 0xbc
00b3 e223 | # | Load 0x1,0x23
00b4 0c02 | | Execute_Immediate Greater_Equal,0x2
00b5 6806 |h | Jump_Zero 0xbc
00b6 4800 |H | Short_Literal 0x0
00b7 4800 |H | Short_Literal 0x0
00b8 0092 027c | || Action Push_String_Extended,0x27c ; "Switching input file; now"
00ba e004 | | Load 0x0,0x4
00bb 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00bc 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00bd 0000 0000 | | .XXX[0x3]
00bf 0000 | |
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 e221 | ! | Load 0x1,0x21
00c4 0229 | ) | Execute Access,All_Read
00c5 00d8 | | Load_Top At_Offset_0
00c6 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
00c7 e003 | | Load 0x0,0x3
00c8 1819 | | Execute Package,Field_Execute,Field_Number 0x19
00c9 e402 | | Load 0x2,0x2
00ca 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
00cb 00d1 | | Pop_Control Pop_Count_1
00cc e221 | ! | Load 0x1,0x21
00cd 0229 | ) | Execute Access,All_Read
00ce 00d8 | | Load_Top At_Offset_0
00cf 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
00d0 e002 | | Load 0x0,0x2
00d1 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00d2 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00d3 e402 | | Load 0x2,0x2
00d4 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00d5 00d1 | | Pop_Control Pop_Count_1
00d6 8224 | $ | Call 0x1,0x24
00d7 e002 | | Load 0x0,0x2
00d8 1b26 | & | Execute Package,Field_Read,Field_Number 0x26
00d9 6809 |h | Jump_Zero 0xe3
00da e223 | # | Load 0x1,0x23
00db 0c01 | | Execute_Immediate Greater_Equal,0x1
00dc 6806 |h | Jump_Zero 0xe3
00dd 4800 |H | Short_Literal 0x0
00de 4800 |H | Short_Literal 0x0
00df 0092 027d | }| Action Push_String_Extended,0x27d ; "Resuming input"
00e1 e004 | | Load 0x0,0x4
00e2 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00e3 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00e4 0000 0000 | | .BLANK 0000[0x4]
00e8 ; --------------------------------------------------------------------------------------
00e8 ; SUBPROGRAM
00e8 ; --------------------------------------------------------------------------------------
00e8 00eb | | .CONST 0x00eb ; Address of begin
00e9 0004 | | .CONST 0x0004 ; Address of exception handler
00ea 0001 | | .CONST 0x0001 ; Number of locals
00eb BODY_00e8:
00eb INIT_00e8:
00eb 8225 | % | Call 0x1,0x25
00ec 4801 |H | Short_Literal 0x1
00ed e221 | ! | Load 0x1,0x21
00ee 0227 | ' | Execute Access,All_Reference
00ef 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00f0 e5ff | | Load 0x2,-0x1
00f1 e221 | ! | Load 0x1,0x21
00f2 0227 | ' | Execute Access,All_Reference
00f3 3801 |8 | Execute Record,Field_Write,Field_Number 0x1
00f4 e5ff | | Load 0x2,-0x1
00f5 e002 | | Load 0x0,0x2
00f6 1b0d | | Execute Package,Field_Read,Field_Number 0xd
00f7 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00f8 e221 | ! | Load 0x1,0x21
00f9 0227 | ' | Execute Access,All_Reference
00fa 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
00fb 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00fc 0000 0000 | | .BLANK 0000[0x4]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103 | | .CONST 0x0103 ; Address of begin
0101 0004 | | .CONST 0x0004 ; Address of exception handler
0102 0001 | | .CONST 0x0001 ; Number of locals
0103 BODY_0100:
0103 INIT_0100:
0103 e223 | # | Load 0x1,0x23
0104 0aff | | Execute_Immediate Plus,-0x1
0105 c223 | # | Store 0x1,0x23
0106 e223 | # | Load 0x1,0x23
0107 0c01 | | Execute_Immediate Greater_Equal,0x1
0108 6808 |h | Jump_Zero 0x111
0109 e223 | # | Load 0x1,0x23
010a e21f | | Load 0x1,0x1f
010b 01d7 | | Execute Vector,Field_Read
010c a221 | ! | Store_Unchecked 0x1,0x21
010d e223 | # | Load 0x1,0x23
010e e220 | | Load 0x1,0x20
010f 01d7 | | Execute Vector,Field_Read
0110 a222 | " | Store_Unchecked 0x1,0x22
0111 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0112 0000 0000 | | .BLANK 0000[0x6]
0118 ; --------------------------------------------------------------------------------------
0118 ; SUBPROGRAM
0118 ; --------------------------------------------------------------------------------------
0118 011b | | .CONST 0x011b ; Address of begin
0119 0183 | | .CONST 0x0183 ; Address of exception handler
011a 0001 | | .CONST 0x0001 ; Number of locals
011b BODY_0118:
011b INIT_0118:
011b e221 | ! | Load 0x1,0x21
011c 0227 | ' | Execute Access,All_Reference
011d 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
011e 0f01 | | Execute_Immediate Equal,0x1
011f 7041 |pA | Jump_Nonzero 0x161
0120 00cf | | Action Mark_Auxiliary
0121 7814 |x | Jump 0x136
0122 e221 | ! | Load 0x1,0x21
0123 0229 | ) | Execute Access,All_Read
0124 e222 | " | Load 0x1,0x22
0125 0229 | ) | Execute Access,All_Read
0126 00e3 | | Load_Encached Natural_Cache
0127 e404 | | Load 0x2,0x4
0128 e221 | ! | Load 0x1,0x21
0129 0227 | ' | Execute Access,All_Reference
012a 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
012b e003 | | Load 0x0,0x3
012c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
012d 00d1 | | Pop_Control Pop_Count_1
012e e403 | | Load 0x2,0x3
012f 3803 |8 | Execute Record,Field_Write,Field_Number 0x3
0130 00d2 | | Pop_Control Pop_Count_2
0131 4801 |H | Short_Literal 0x1
0132 e221 | ! | Load 0x1,0x21
0133 0227 | ' | Execute Access,All_Reference
0134 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0135 00c9 | | Action Pop_Auxiliary_Loop
0136 e221 | ! | Load 0x1,0x21
0137 0227 | ' | Execute Access,All_Reference
0138 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0139 e221 | ! | Load 0x1,0x21
013a 0227 | ' | Execute Access,All_Reference
013b 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
013c 027d | } | Execute Discrete,Greater
013d 77e4 |w | Jump_Nonzero 0x122
013e 00ce | | Action Pop_Auxiliary
013f e221 | ! | Load 0x1,0x21
0140 0227 | ' | Execute Access,All_Reference
0141 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0142 e222 | " | Load 0x1,0x22
0143 0227 | ' | Execute Access,All_Reference
0144 01d7 | | Execute Vector,Field_Read
0145 a5ff | | Store_Unchecked 0x2,-0x1
0146 e5ff | | Load 0x2,-0x1
0147 0f0a | | Execute_Immediate Equal,0xa
0148 680c |h | Jump_Zero 0x155
0149 e221 | ! | Load 0x1,0x21
014a 0227 | ' | Execute Access,All_Reference
014b 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
014c 0a01 | | Execute_Immediate Plus,0x1
014d e221 | ! | Load 0x1,0x21
014e 0227 | ' | Execute Access,All_Reference
014f 3804 |8 | Execute Record,Field_Write,Field_Number 0x4
0150 4801 |H | Short_Literal 0x1
0151 e221 | ! | Load 0x1,0x21
0152 0227 | ' | Execute Access,All_Reference
0153 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0154 7804 |x | Jump 0x159
0155 4800 |H | Short_Literal 0x0
0156 e221 | ! | Load 0x1,0x21
0157 0227 | ' | Execute Access,All_Reference
0158 3806 |8 | Execute Record,Field_Write,Field_Number 0x6
0159 e221 | ! | Load 0x1,0x21
015a 0227 | ' | Execute Access,All_Reference
015b 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
015c 0a01 | | Execute_Immediate Plus,0x1
015d e221 | ! | Load 0x1,0x21
015e 0227 | ' | Execute Access,All_Reference
015f 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0160 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0161 e221 | ! | Load 0x1,0x21
0162 0227 | ' | Execute Access,All_Reference
0163 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
0164 e221 | ! | Load 0x1,0x21
0165 0227 | ' | Execute Access,All_Reference
0166 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
0167 027d | } | Execute Discrete,Greater
0168 6803 |h | Jump_Zero 0x16c
0169 4804 |H | Short_Literal 0x4
016a a5ff | | Store_Unchecked 0x2,-0x1
016b 4501 |E | Exit_Suprogram New_Top_Offset 0x1
016c e221 | ! | Load 0x1,0x21
016d 0227 | ' | Execute Access,All_Reference
016e 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
016f 00d8 | | Load_Top At_Offset_0
0170 00e4 | | Load_Encached Positive_Cache
0171 0260 | ` | Execute Discrete,In_Type
0172 7001 |p | Jump_Nonzero 0x174
0173 0801 | | Execute_Immediate Raise,0x1
0174 e221 | ! | Load 0x1,0x21
0175 0227 | ' | Execute Access,All_Reference
0176 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0177 e002 | | Load 0x0,0x2
0178 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0179 1814 | | Execute Package,Field_Execute,Field_Number 0x14
017a a5ff | | Store_Unchecked 0x2,-0x1
017b e221 | ! | Load 0x1,0x21
017c 0227 | ' | Execute Access,All_Reference
017d 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
017e 0a01 | | Execute_Immediate Plus,0x1
017f e221 | ! | Load 0x1,0x21
0180 0227 | ' | Execute Access,All_Reference
0181 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
0182 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0183 TRAP_0118:
0183 00d8 | | Load_Top At_Offset_0
0184 0107 | | Execute Exception,Get_Name
0185 4950 |IP | Short_Literal 0x150
0186 495f |I_ | Short_Literal 0x15f
0187 0262 | b | Execute Discrete,In_Range
0188 7006 |p | Jump_Nonzero 0x18f
0189 00d8 | | Load_Top At_Offset_0
018a 0107 | | Execute Exception,Get_Name
018b 4900 |I | Short_Literal 0x100
018c 490f |I | Short_Literal 0x10f
018d 0262 | b | Execute Discrete,In_Range
018e 6803 |h | Jump_Zero 0x192
018f 4804 |H | Short_Literal 0x4
0190 a5ff | | Store_Unchecked 0x2,-0x1
0191 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0192 0100 | | Execute Exception,Raise
0193 0000 0000 | | .BLANK 0000[0x5]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 01e7 | | .CONST 0x01e7 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 00cf | | Action Mark_Auxiliary
019c 4801 |H | Short_Literal 0x1
019d e223 | # | Load 0x1,0x23
019e 0264 | d | Execute Discrete,Below_Bound
019f 7044 |pD | Jump_Nonzero 0x1e4
01a0 00d8 | | Load_Top At_Offset_0
01a1 e21f | | Load 0x1,0x1f
01a2 01d7 | | Execute Vector,Field_Read
01a3 0227 | ' | Execute Access,All_Reference
01a4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
01a5 703c |p< | Jump_Nonzero 0x1e2
01a6 00d8 | | Load_Top At_Offset_0
01a7 e21f | | Load 0x1,0x1f
01a8 01d7 | | Execute Vector,Field_Read
01a9 0227 | ' | Execute Access,All_Reference
01aa 3c06 |< | Execute Record,Field_Read,Field_Number 0x6
01ab 681f |h | Jump_Zero 0x1cb
01ac 00d8 | | Load_Top At_Offset_0
01ad e21f | | Load 0x1,0x1f
01ae 01d7 | | Execute Vector,Field_Read
01af 0227 | ' | Execute Access,All_Reference
01b0 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01b1 0c02 | | Execute_Immediate Greater_Equal,0x2
01b2 6818 |h | Jump_Zero 0x1cb
01b3 0092 027e | ~| Action Push_String_Extended,0x27e ; " on line"
01b5 e404 | | Load 0x2,0x4
01b6 e21f | | Load 0x1,0x1f
01b7 01d7 | | Execute Vector,Field_Read
01b8 0227 | ' | Execute Access,All_Reference
01b9 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01ba 0aff | | Execute_Immediate Plus,-0x1
01bb 00e0 | | Load_Encached Standard_Cache
01bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01bd 01cc | | Execute Vector,Catenate
01be 0092 027f | | Action Push_String_Extended,0x27f ; " of "
01c0 01cc | | Execute Vector,Catenate
01c1 e404 | | Load 0x2,0x4
01c2 e21f | | Load 0x1,0x1f
01c3 01d7 | | Execute Vector,Field_Read
01c4 0227 | ' | Execute Access,All_Reference
01c5 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01c6 e002 | | Load 0x0,0x2
01c7 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01c8 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01c9 01cc | | Execute Vector,Catenate
01ca 00ca | | Action Exit_Nullary_Function
01cb 0092 027e | ~| Action Push_String_Extended,0x27e ; " on line"
01cd e404 | | Load 0x2,0x4
01ce e21f | | Load 0x1,0x1f
01cf 01d7 | | Execute Vector,Field_Read
01d0 0227 | ' | Execute Access,All_Reference
01d1 3c04 |< | Execute Record,Field_Read,Field_Number 0x4
01d2 00e0 | | Load_Encached Standard_Cache
01d3 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01d4 01cc | | Execute Vector,Catenate
01d5 0092 027f | | Action Push_String_Extended,0x27f ; " of "
01d7 01cc | | Execute Vector,Catenate
01d8 e404 | | Load 0x2,0x4
01d9 e21f | | Load 0x1,0x1f
01da 01d7 | | Execute Vector,Field_Read
01db 0227 | ' | Execute Access,All_Reference
01dc 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
01dd e002 | | Load 0x0,0x2
01de 1b0d | | Execute Package,Field_Read,Field_Number 0xd
01df 1816 | | Execute Package,Field_Execute,Field_Number 0x16
01e0 01cc | | Execute Vector,Catenate
01e1 00ca | | Action Exit_Nullary_Function
01e2 00c8 | | Action Pop_Auxiliary_Range
01e3 37bc |7 | Loop_Decreasing 0x1a0
01e4 00ce | | Action Pop_Auxiliary
01e5 00ea | | Load_Encached Null_String_Cache
01e6 00ca | | Action Exit_Nullary_Function
01e7 TRAP_0198:
01e7 0007 | | Action Break_Optional
01e8 00ea | | Load_Encached Null_String_Cache
01e9 00ca | | Action Exit_Nullary_Function
01ea 0000 0000 | | .BLANK 0000[0x6]
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 4800 |H | Short_Literal 0x0
01f4 a223 | # | Store_Unchecked 0x1,0x23
01f5 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01f6 0000 0000 | | .XXX[0x2]
01f8 ; --------------------------------------------------------------------------------------
01f8 ; SUBPROGRAM
01f8 ; --------------------------------------------------------------------------------------
01f8 01fb | | .CONST 0x01fb ; Address of begin
01f9 0004 | | .CONST 0x0004 ; Address of exception handler
01fa 0001 | | .CONST 0x0001 ; Number of locals
01fb BODY_01f8:
01fb INIT_01f8:
01fb 4607 |F | Jump_Case 0x8
01fc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
01fd 7806 |x | Jump 0x204 ; case 0x1
01fe 7809 |x | Jump 0x208 ; case 0x2
01ff 780d |x | Jump 0x20d ; case 0x3
0200 7810 |x | Jump 0x211 ; case 0x4
0201 7811 |x | Jump 0x213 ; case 0x5
0202 7812 |x | Jump 0x215 ; case 0x6
0203 7815 |x | Jump 0x219 ; case 0x7
0204 00da | | Load_Top At_Offset_2
0205 0091 027a | z| Action Push_String_Extended_Indexed,0x27a ; "FILE_KIND"
0207 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0208 00db | | Load_Top At_Offset_3
0209 00db | | Load_Top At_Offset_3
020a 00e0 | | Load_Encached Standard_Cache
020b 181b | | Execute Package,Field_Execute,Field_Number 0x1b
020c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
020d 00da | | Load_Top At_Offset_2
020e 00e0 | | Load_Encached Standard_Cache
020f 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0210 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0211 00db | | Load_Top At_Offset_3
0212 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0213 00db | | Load_Top At_Offset_3
0214 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0215 e219 | | Load 0x1,0x19
0216 00dc | | Load_Top At_Offset_4
0217 0267 | g | Execute Discrete,Predecessor
0218 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0219 e219 | | Load 0x1,0x19
021a 00dc | | Load_Top At_Offset_4
021b 0268 | h | Execute Discrete,Successor
021c 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
021d 0000 0000 | | .XXX[0x3]
021f 0000 | |
0220 ; --------------------------------------------------------------------------------------
0220 ; SUBPROGRAM
0220 ; --------------------------------------------------------------------------------------
0220 0223 | # | .CONST 0x0223 ; Address of begin
0221 0004 | | .CONST 0x0004 ; Address of exception handler
0222 0001 | | .CONST 0x0001 ; Number of locals
0223 BODY_0220:
0223 INIT_0220:
0223 4608 |F | Jump_Case 0x9
0224 7808 |x | Jump 0x22d ; case 0x0
0225 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x1
0226 780d |x | Jump 0x234 ; case 0x2
0227 780c |x | Jump 0x234 ; case 0x3
0228 780b |x | Jump 0x234 ; case 0x4
0229 780a |x | Jump 0x234 ; case 0x5
022a 7809 |x | Jump 0x234 ; case 0x6
022b 7808 |x | Jump 0x234 ; case 0x7
022c 7807 |x | Jump 0x234 ; case 0x8
022d e5ff | | Load 0x2,-0x1
022e 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
022f 0125 | % | Execute Any,Set_Constraint
0230 e5ff | | Load 0x2,-0x1
0231 3405 |4 | Execute Record,Field_Reference,Field_Number 0x5
0232 1c00 | | Execute_Immediate Run_Utility,0x0
0233 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2
0234 0869 | i | Execute_Immediate Raise,0x69
0235 0000 0000 | | .XXX[0x3]
0237 0000 | |
0238 ; --------------------------------------------------------------------------------------
0238 ; SUBPROGRAM
0238 ; --------------------------------------------------------------------------------------
0238 023b | ; | .CONST 0x023b ; Address of begin
0239 0004 | | .CONST 0x0004 ; Address of exception handler
023a 0001 | | .CONST 0x0001 ; Number of locals
023b BODY_0238:
023b INIT_0238:
023b e223 | # | Load 0x1,0x23
023c 0c14 | | Execute_Immediate Greater_Equal,0x14
023d 6806 |h | Jump_Zero 0x244
023e 0092 0280 | | Action Push_String_Extended,0x280 ; "Input stack overflowed"
0240 e004 | | Load 0x0,0x4
0241 180e | | Execute Package,Field_Execute,Field_Number 0xe
0242 e20d | | Load 0x1,0xd
0243 0257 | W | Execute Discrete,Raise
0244 e223 | # | Load 0x1,0x23
0245 0a01 | | Execute_Immediate Plus,0x1
0246 c223 | # | Store 0x1,0x23
0247 e223 | # | Load 0x1,0x23
0248 e21f | | Load 0x1,0x1f
0249 01d7 | | Execute Vector,Field_Read
024a a221 | ! | Store_Unchecked 0x1,0x21
024b 4801 |H | Short_Literal 0x1
024c e221 | ! | Load 0x1,0x21
024d 0227 | ' | Execute Access,All_Reference
024e 3802 |8 | Execute Record,Field_Write,Field_Number 0x2
024f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253 | S | .CONST 0x0253 ; Address of begin
0251 0264 | d | .CONST 0x0264 ; Address of exception handler
0252 0001 | | .CONST 0x0001 ; Number of locals
0253 BODY_0250:
0253 INIT_0250:
0253 e221 | ! | Load 0x1,0x21
0254 0229 | ) | Execute Access,All_Read
0255 00d8 | | Load_Top At_Offset_0
0256 3c05 |< | Execute Record,Field_Read,Field_Number 0x5
0257 e005 | | Load 0x0,0x5
0258 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0259 e006 | | Load 0x0,0x6
025a 181e | | Execute Package,Field_Execute,Field_Number 0x1e
025b 0092 0281 | | Action Push_String_Extended,0x281 ; "synchronized"
025d e5ff | | Load 0x2,-0x1
025e 4800 |H | Short_Literal 0x0
025f e003 | | Load 0x0,0x3
0260 1814 | | Execute Package,Field_Execute,Field_Number 0x14
0261 e602 | | Load 0x3,0x2
0262 3805 |8 | Execute Record,Field_Write,Field_Number 0x5
0263 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0264 TRAP_0250:
0264 0007 | | Action Break_Optional
0265 8224 | $ | Call 0x1,0x24
0266 4829 |H) | Short_Literal 0x29
0267 0092 0282 | | Action Push_String_Extended,0x282 ; "Cannot open input file "
0269 e5ff | | Load 0x2,-0x1
026a 01cc | | Execute Vector,Catenate
026b 0092 0283 | | Action Push_String_Extended,0x283 ; " ("
026d 01cc | | Execute Vector,Catenate
026e 4800 |H | Short_Literal 0x0
026f 4801 |H | Short_Literal 0x1
0270 e007 | | Load 0x0,0x7
0271 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0272 01cc | | Execute Vector,Catenate
0273 01cb | | Execute Vector,Append
0274 e004 | | Load 0x0,0x4
0275 180e | | Execute Package,Field_Execute,Field_Number 0xe
0276 4800 |H | Short_Literal 0x0
0277 a5fe | | Store_Unchecked 0x2,-0x2
0278 00cc | | Action Pop_Block
0279 4502 |E | Exit_Suprogram New_Top_Offset 0x2
027a ; --------------------------------------------------------------------------------------
027a ; STRING TABLE
027a ; --------------------------------------------------------------------------------------
027a 0016 | | .STRTAB 0x0016->0x0285 ; "FILE_KIND"
027b 001d | | .STRTAB 0x001d->0x0289 ; "STRING_KIND"
027c 0026 | & | .STRTAB 0x0026->0x028f ; "Switching input file; now"
027d 003d | = | .STRTAB 0x003d->0x029b ; "Resuming input"
027e 0049 | I | .STRTAB 0x0049->0x02a2 ; " on line"
027f 004f | O | .STRTAB 0x004f->0x02a6 ; " of "
0280 0051 | Q | .STRTAB 0x0051->0x02a8 ; "Input stack overflowed"
0281 0065 | e | .STRTAB 0x0065->0x02b3 ; "synchronized"
0282 006f | o | .STRTAB 0x006f->0x02b9 ; "Cannot open input file "
0283 0084 | | .STRTAB 0x0084->0x02c5 ; " ("
0284 0084 | | .STREND 0x0084->0x02c6
0285 4649 4c45 |FILE| .STRTAB_STRINGS
02c6 0000 0000 | | .XXX[0x2]
02c8 ; --------------------------------------------------------------------------------------
02c8 ; Debug Table
02c8 ; --------------------------------------------------------------------------------------
02c8 0004 000f | | .DEBUG4 0x0004,0x000f,0x430d,0x0000,0x0001,0x0000
02ce 0000 0000 | | .BLANK 0000[0x132]