|
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 - metrics - download
Length: 2048 (0x800)
Notes: 00_class, 5800_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03b8fe
└─⟦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 0370 | p | .CONST 0x0370 ; 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 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 For_Outer_Call,Visible,Unelaborated,INIT_0018
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 0028 | ( | .CONST 0x0028 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 0322 | " | Declare_Variable Record
001e 00e5 | | Load_Encached Long_Integer_Cache
001f 03e9 | | Declare_Variable Discrete,Duplicate
0020 03e9 | | Declare_Variable Discrete,Duplicate
0021 03e9 | | Declare_Variable Discrete,Duplicate
0022 03e9 | | Declare_Variable Discrete,Duplicate
0023 00e5 | | Load_Encached Long_Integer_Cache
0024 03e9 | | Declare_Variable Discrete,Duplicate
0025 03e9 | | Declare_Variable Discrete,Duplicate
0026 029f 02a3 | | Declare_Subprogram For_Call,INIT_02a0
0028 BODY_0018:
0028 4800 |H | Short_Literal 0x0
0029 e5fd | | Load 0x2,-0x3
002a 4829 |H) | Short_Literal 0x29
002b 4820 |H | Short_Literal 0x20
002c 0092 02c7 | | Action Push_String_Extended,0x2c7 ; "Top => "
002e 4830 |H0 | Short_Literal 0x30
002f 4808 |H | Short_Literal 0x8
0030 4800 |H | Short_Literal 0x0
0031 e5ff | | Load 0x2,-0x1
0032 0227 | ' | Execute Access,All_Reference
0033 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0034 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0035 e002 | | Load 0x0,0x2
0036 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0037 01cc | | Execute Vector,Catenate
0038 01cb | | Execute Vector,Append
0039 4800 |H | Short_Literal 0x0
003a e5ff | | Load 0x2,-0x1
003b 0227 | ' | Execute Access,All_Reference
003c 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
003d 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
003e e002 | | Load 0x0,0x2
003f 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0040 01cc | | Execute Vector,Catenate
0041 0092 02c8 | | Action Push_String_Extended,0x2c8 ; " ("
0043 01cc | | Execute Vector,Catenate
0044 4830 |H0 | Short_Literal 0x30
0045 4800 |H | Short_Literal 0x0
0046 4800 |H | Short_Literal 0x0
0047 e5ff | | Load 0x2,-0x1
0048 0227 | ' | Execute Access,All_Reference
0049 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
004a 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
004b 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
004c 0906 | | Execute_Immediate Binary_Scale,0x6
004d e5ff | | Load 0x2,-0x1
004e 0227 | ' | Execute Access,All_Reference
004f 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0050 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0051 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
0052 0273 | s | Execute Discrete,Plus
0053 00d8 | | Load_Top At_Offset_0
0054 00e2 | | Load_Encached Integer_Cache
0055 0260 | ` | Execute Discrete,In_Type
0056 7001 |p | Jump_Nonzero 0x58
0057 0801 | | Execute_Immediate Raise,0x1
0058 e002 | | Load 0x0,0x2
0059 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
005a 01cc | | Execute Vector,Catenate
005b 01cb | | Execute Vector,Append
005c e5fe | | Load 0x2,-0x2
005d e003 | | Load 0x0,0x3
005e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
005f 4800 |H | Short_Literal 0x0
0060 e5fd | | Load 0x2,-0x3
0061 4820 |H | Short_Literal 0x20
0062 0092 02c9 | | Action Push_String_Extended,0x2c9 ; "Pred => "
0064 4830 |H0 | Short_Literal 0x30
0065 4808 |H | Short_Literal 0x8
0066 4800 |H | Short_Literal 0x0
0067 e5ff | | Load 0x2,-0x1
0068 0227 | ' | Execute Access,All_Reference
0069 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
006a 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
006b e002 | | Load 0x0,0x2
006c 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
006d 01cc | | Execute Vector,Catenate
006e 01cb | | Execute Vector,Append
006f 4800 |H | Short_Literal 0x0
0070 e5ff | | Load 0x2,-0x1
0071 0227 | ' | Execute Access,All_Reference
0072 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0073 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0074 e002 | | Load 0x0,0x2
0075 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0076 01cc | | Execute Vector,Catenate
0077 e5fe | | Load 0x2,-0x2
0078 e003 | | Load 0x0,0x3
0079 1812 | | Execute Package,Field_Execute,Field_Number 0x12
007a 4800 |H | Short_Literal 0x0
007b e5fd | | Load 0x2,-0x3
007c 0092 02ca | | Action Push_String_Extended,0x2ca ; "Save => "
007e 4800 |H | Short_Literal 0x0
007f e5ff | | Load 0x2,-0x1
0080 0227 | ' | Execute Access,All_Reference
0081 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0082 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0083 e002 | | Load 0x0,0x2
0084 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0085 01cc | | Execute Vector,Catenate
0086 e5fe | | Load 0x2,-0x2
0087 e003 | | Load 0x0,0x3
0088 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0089 4800 |H | Short_Literal 0x0
008a e5fd | | Load 0x2,-0x3
008b e5fe | | Load 0x2,-0x2
008c e003 | | Load 0x0,0x3
008d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008e 4800 |H | Short_Literal 0x0
008f e5fd | | Load 0x2,-0x3
0090 0092 02cb | | Action Push_String_Extended,0x2cb ; "PC => "
0092 4800 |H | Short_Literal 0x0
0093 e5ff | | Load 0x2,-0x1
0094 0227 | ' | Execute Access,All_Reference
0095 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0096 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
0097 e002 | | Load 0x0,0x2
0098 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0099 01cc | | Execute Vector,Catenate
009a e5fe | | Load 0x2,-0x2
009b e003 | | Load 0x0,0x3
009c 1812 | | Execute Package,Field_Execute,Field_Number 0x12
009d 4800 |H | Short_Literal 0x0
009e e5fd | | Load 0x2,-0x3
009f 0092 02cc | | Action Push_String_Extended,0x2cc ; "DPC => "
00a1 4800 |H | Short_Literal 0x0
00a2 e5ff | | Load 0x2,-0x1
00a3 0227 | ' | Execute Access,All_Reference
00a4 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
00a5 340e |4 | Execute Record,Field_Reference,Field_Number 0xe
00a6 e002 | | Load 0x0,0x2
00a7 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
00a8 01cc | | Execute Vector,Catenate
00a9 e5fe | | Load 0x2,-0x2
00aa e003 | | Load 0x0,0x3
00ab 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ac 4800 |H | Short_Literal 0x0
00ad e5fd | | Load 0x2,-0x3
00ae 0092 02cd | | Action Push_String_Extended,0x2cd ; "Lex levels valid =>"
00b0 840b | | Call 0x2,0xb
00b1 01cc | | Execute Vector,Catenate
00b2 0092 02ce | | Action Push_String_Extended,0x2ce ; "."
00b4 01cc | | Execute Vector,Catenate
00b5 e5fe | | Load 0x2,-0x2
00b6 e003 | | Load 0x0,0x3
00b7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00b8 4800 |H | Short_Literal 0x0
00b9 e5fd | | Load 0x2,-0x3
00ba e5fe | | Load 0x2,-0x2
00bb e003 | | Load 0x0,0x3
00bc 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00bd 4800 |H | Short_Literal 0x0
00be e5fd | | Load 0x2,-0x3
00bf 0092 02cf | | Action Push_String_Extended,0x2cf ; "TLC => "
00c1 4830 |H0 | Short_Literal 0x30
00c2 4800 |H | Short_Literal 0x0
00c3 4800 |H | Short_Literal 0x0
00c4 e5ff | | Load 0x2,-0x1
00c5 0227 | ' | Execute Access,All_Reference
00c6 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
00c7 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
00c8 e002 | | Load 0x0,0x2
00c9 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00ca 01cc | | Execute Vector,Catenate
00cb e5fe | | Load 0x2,-0x2
00cc e003 | | Load 0x0,0x3
00cd 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00ce 4800 |H | Short_Literal 0x0
00cf e5fd | | Load 0x2,-0x3
00d0 0092 02d0 | | Action Push_String_Extended,0x2d0 ; "VLC => "
00d2 4830 |H0 | Short_Literal 0x30
00d3 4800 |H | Short_Literal 0x0
00d4 4800 |H | Short_Literal 0x0
00d5 e5ff | | Load 0x2,-0x1
00d6 0227 | ' | Execute Access,All_Reference
00d7 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
00d8 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
00d9 e002 | | Load 0x0,0x2
00da 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
00db 01cc | | Execute Vector,Catenate
00dc e5fe | | Load 0x2,-0x2
00dd e003 | | Load 0x0,0x3
00de 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00df 4800 |H | Short_Literal 0x0
00e0 e5fd | | Load 0x2,-0x3
00e1 e5fe | | Load 0x2,-0x2
00e2 e003 | | Load 0x0,0x3
00e3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00e4 4800 |H | Short_Literal 0x0
00e5 e5fd | | Load 0x2,-0x3
00e6 0092 02d1 | | Action Push_String_Extended,0x2d1 ; "MAR => "
00e8 e5ff | | Load 0x2,-0x1
00e9 0227 | ' | Execute Access,All_Reference
00ea 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
00eb 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
00ec e002 | | Load 0x0,0x2
00ed 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
00ee 01cc | | Execute Vector,Catenate
00ef e5fe | | Load 0x2,-0x2
00f0 e003 | | Load 0x0,0x3
00f1 1812 | | Execute Package,Field_Execute,Field_Number 0x12
00f2 4800 |H | Short_Literal 0x0
00f3 e5fd | | Load 0x2,-0x3
00f4 0092 02d2 | | Action Push_String_Extended,0x2d2 ; "TAR => "
00f6 4830 |H0 | Short_Literal 0x30
00f7 4800 |H | Short_Literal 0x0
00f8 4800 |H | Short_Literal 0x0
00f9 e5ff | | Load 0x2,-0x1
00fa 0227 | ' | Execute Access,All_Reference
00fb 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
00fc 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
00fd e002 | | Load 0x0,0x2
00fe 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
00ff 01cc | | Execute Vector,Catenate
0100 0092 02d3 | | Action Push_String_Extended,0x2d3 ; " VAR => "
0102 01cc | | Execute Vector,Catenate
0103 4830 |H0 | Short_Literal 0x30
0104 4800 |H | Short_Literal 0x0
0105 4800 |H | Short_Literal 0x0
0106 e5ff | | Load 0x2,-0x1
0107 0227 | ' | Execute Access,All_Reference
0108 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0109 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
010a e002 | | Load 0x0,0x2
010b 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
010c 01cc | | Execute Vector,Catenate
010d e5fe | | Load 0x2,-0x2
010e e003 | | Load 0x0,0x3
010f 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0110 4800 |H | Short_Literal 0x0
0111 e5fd | | Load 0x2,-0x3
0112 0092 02d4 | | Action Push_String_Extended,0x2d4 ; "RDR => "
0114 e5ff | | Load 0x2,-0x1
0115 0227 | ' | Execute Access,All_Reference
0116 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0117 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0118 e002 | | Load 0x0,0x2
0119 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
011a 01cc | | Execute Vector,Catenate
011b e5fe | | Load 0x2,-0x2
011c e003 | | Load 0x0,0x3
011d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011e 4800 |H | Short_Literal 0x0
011f e5fd | | Load 0x2,-0x3
0120 0092 02d5 | | Action Push_String_Extended,0x2d5 ; "WDR => "
0122 e5ff | | Load 0x2,-0x1
0123 0227 | ' | Execute Access,All_Reference
0124 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
0125 3417 |4 | Execute Record,Field_Reference,Field_Number 0x17
0126 e002 | | Load 0x0,0x2
0127 1839 | 9 | Execute Package,Field_Execute,Field_Number 0x39
0128 01cc | | Execute Vector,Catenate
0129 e5fe | | Load 0x2,-0x2
012a e003 | | Load 0x0,0x3
012b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
012c 4800 |H | Short_Literal 0x0
012d e5fd | | Load 0x2,-0x3
012e e5fe | | Load 0x2,-0x2
012f e003 | | Load 0x0,0x3
0130 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0131 4800 |H | Short_Literal 0x0
0132 e5fd | | Load 0x2,-0x3
0133 0092 02d6 | | Action Push_String_Extended,0x2d6 ; "PRI HEAD TAIL"
0135 e5fe | | Load 0x2,-0x2
0136 e003 | | Load 0x0,0x3
0137 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0138 00cf | | Action Mark_Auxiliary
0139 480f |H | Short_Literal 0xf
013a 4800 |H | Short_Literal 0x0
013b 0007 | | Action Break_Optional
013c 00d8 | | Load_Top At_Offset_0
013d 0a60 | ` | Execute_Immediate Plus,0x60
013e e001 | | Load 0x0,0x1
013f 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0140 00d9 | | Load_Top At_Offset_1
0141 00d0 | | Action Swap_Control
0142 0260 | ` | Execute Discrete,In_Type
0143 7001 |p | Jump_Nonzero 0x145
0144 0801 | | Execute_Immediate Raise,0x1
0145 e5ff | | Load 0x2,-0x1
0146 e001 | | Load 0x0,0x1
0147 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0148 e402 | | Load 0x2,0x2
0149 017d | } | Execute Record,Structure_Write
014a 00e5 | | Load_Encached Long_Integer_Cache
014b 00e5 | | Load_Encached Long_Integer_Cache
014c e402 | | Load 0x2,0x2
014d e004 | | Load 0x0,0x4
014e 1815 | | Execute Package,Field_Execute,Field_Number 0x15
014f c403 | | Store 0x2,0x3
0150 c404 | | Store 0x2,0x4
0151 00e5 | | Load_Encached Long_Integer_Cache
0152 4820 |H | Short_Literal 0x20
0153 4800 |H | Short_Literal 0x0
0154 e403 | | Load 0x2,0x3
0155 e004 | | Load 0x0,0x4
0156 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0157 c406 | | Store 0x2,0x6
0158 00e5 | | Load_Encached Long_Integer_Cache
0159 4820 |H | Short_Literal 0x20
015a 4800 |H | Short_Literal 0x0
015b e404 | | Load 0x2,0x4
015c e004 | | Load 0x0,0x4
015d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
015e c407 | | Store 0x2,0x7
015f 4800 |H | Short_Literal 0x0
0160 e5fd | | Load 0x2,-0x3
0161 4820 |H | Short_Literal 0x20
0162 4803 |H | Short_Literal 0x3
0163 4801 |H | Short_Literal 0x1
0164 e40e | | Load 0x2,0xe
0165 e002 | | Load 0x0,0x2
0166 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0167 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " "
0169 01cc | | Execute Vector,Catenate
016a 4830 |H0 | Short_Literal 0x30
016b 4808 |H | Short_Literal 0x8
016c 4800 |H | Short_Literal 0x0
016d e406 | | Load 0x2,0x6
016e e002 | | Load 0x0,0x2
016f 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0170 01cc | | Execute Vector,Catenate
0171 0092 02d7 | | Action Push_String_Extended,0x2d7 ; " "
0173 01cc | | Execute Vector,Catenate
0174 4830 |H0 | Short_Literal 0x30
0175 4808 |H | Short_Literal 0x8
0176 4800 |H | Short_Literal 0x0
0177 e407 | | Load 0x2,0x7
0178 e002 | | Load 0x0,0x2
0179 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
017a 01cc | | Execute Vector,Catenate
017b e5fe | | Load 0x2,-0x2
017c e003 | | Load 0x0,0x3
017d 1812 | | Execute Package,Field_Execute,Field_Number 0x12
017e 00c8 | | Action Pop_Auxiliary_Range
017f 3fbc |? | Loop_Increasing 0x13c
0180 00ce | | Action Pop_Auxiliary
0181 4800 |H | Short_Literal 0x0
0182 e5fd | | Load 0x2,-0x3
0183 e5fe | | Load 0x2,-0x2
0184 e003 | | Load 0x0,0x3
0185 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0186 4ae0 |J | Short_Literal 0x2e0
0187 e5ff | | Load 0x2,-0x1
0188 e001 | | Load 0x0,0x1
0189 1811 | | Execute Package,Field_Execute,Field_Number 0x11
018a e402 | | Load 0x2,0x2
018b 017d | } | Execute Record,Structure_Write
018c 00e5 | | Load_Encached Long_Integer_Cache
018d 00e5 | | Load_Encached Long_Integer_Cache
018e e402 | | Load 0x2,0x2
018f e004 | | Load 0x0,0x4
0190 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0191 c403 | | Store 0x2,0x3
0192 c404 | | Store 0x2,0x4
0193 00e5 | | Load_Encached Long_Integer_Cache
0194 4820 |H | Short_Literal 0x20
0195 4800 |H | Short_Literal 0x0
0196 e403 | | Load 0x2,0x3
0197 e004 | | Load 0x0,0x4
0198 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0199 c405 | | Store 0x2,0x5
019a 4800 |H | Short_Literal 0x0
019b e5fd | | Load 0x2,-0x3
019c 0092 02d8 | | Action Push_String_Extended,0x2d8 ; " Delay Queue Head - "
019e 4830 |H0 | Short_Literal 0x30
019f 4808 |H | Short_Literal 0x8
01a0 4800 |H | Short_Literal 0x0
01a1 e405 | | Load 0x2,0x5
01a2 e002 | | Load 0x0,0x2
01a3 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01a4 01cc | | Execute Vector,Catenate
01a5 e5fe | | Load 0x2,-0x2
01a6 e003 | | Load 0x0,0x3
01a7 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01a8 4800 |H | Short_Literal 0x0
01a9 e5fd | | Load 0x2,-0x3
01aa e5fe | | Load 0x2,-0x2
01ab e003 | | Load 0x0,0x3
01ac 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01ad 4871 |Hq | Short_Literal 0x71
01ae e5ff | | Load 0x2,-0x1
01af e001 | | Load 0x0,0x1
01b0 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01b1 e402 | | Load 0x2,0x2
01b2 017d | } | Execute Record,Structure_Write
01b3 00e5 | | Load_Encached Long_Integer_Cache
01b4 00e5 | | Load_Encached Long_Integer_Cache
01b5 e402 | | Load 0x2,0x2
01b6 e004 | | Load 0x0,0x4
01b7 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01b8 c403 | | Store 0x2,0x3
01b9 c404 | | Store 0x2,0x4
01ba 00e5 | | Load_Encached Long_Integer_Cache
01bb 4820 |H | Short_Literal 0x20
01bc 4800 |H | Short_Literal 0x0
01bd e403 | | Load 0x2,0x3
01be e004 | | Load 0x0,0x4
01bf 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01c0 c405 | | Store 0x2,0x5
01c1 4800 |H | Short_Literal 0x0
01c2 e5fd | | Load 0x2,-0x3
01c3 0092 02d9 | | Action Push_String_Extended,0x2d9 ; " Disk Wait Head - "
01c5 4830 |H0 | Short_Literal 0x30
01c6 4808 |H | Short_Literal 0x8
01c7 4800 |H | Short_Literal 0x0
01c8 e405 | | Load 0x2,0x5
01c9 e002 | | Load 0x0,0x2
01ca 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01cb 01cc | | Execute Vector,Catenate
01cc e5fe | | Load 0x2,-0x2
01cd e003 | | Load 0x0,0x3
01ce 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01cf 4800 |H | Short_Literal 0x0
01d0 e5fd | | Load 0x2,-0x3
01d1 e5fe | | Load 0x2,-0x2
01d2 e003 | | Load 0x0,0x3
01d3 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01d4 4870 |Hp | Short_Literal 0x70
01d5 e5ff | | Load 0x2,-0x1
01d6 e001 | | Load 0x0,0x1
01d7 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01d8 e402 | | Load 0x2,0x2
01d9 017d | } | Execute Record,Structure_Write
01da 00e5 | | Load_Encached Long_Integer_Cache
01db 00e5 | | Load_Encached Long_Integer_Cache
01dc e402 | | Load 0x2,0x2
01dd e004 | | Load 0x0,0x4
01de 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01df c403 | | Store 0x2,0x3
01e0 c404 | | Store 0x2,0x4
01e1 00e5 | | Load_Encached Long_Integer_Cache
01e2 4820 |H | Short_Literal 0x20
01e3 4800 |H | Short_Literal 0x0
01e4 e403 | | Load 0x2,0x3
01e5 e004 | | Load 0x0,0x4
01e6 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01e7 c405 | | Store 0x2,0x5
01e8 4800 |H | Short_Literal 0x0
01e9 e5fd | | Load 0x2,-0x3
01ea 0092 02da | | Action Push_String_Extended,0x2da ; " FAQ Head - "
01ec 4830 |H0 | Short_Literal 0x30
01ed 4808 |H | Short_Literal 0x8
01ee 4800 |H | Short_Literal 0x0
01ef e405 | | Load 0x2,0x5
01f0 e002 | | Load 0x0,0x2
01f1 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
01f2 01cc | | Execute Vector,Catenate
01f3 e5fe | | Load 0x2,-0x2
01f4 e003 | | Load 0x0,0x3
01f5 1812 | | Execute Package,Field_Execute,Field_Number 0x12
01f6 4800 |H | Short_Literal 0x0
01f7 e5fd | | Load 0x2,-0x3
01f8 e5fe | | Load 0x2,-0x2
01f9 e003 | | Load 0x0,0x3
01fa 1813 | | Execute Package,Field_Execute,Field_Number 0x13
01fb 488a |H | Short_Literal 0x8a
01fc e5ff | | Load 0x2,-0x1
01fd e001 | | Load 0x0,0x1
01fe 1811 | | Execute Package,Field_Execute,Field_Number 0x11
01ff e402 | | Load 0x2,0x2
0200 017d | } | Execute Record,Structure_Write
0201 00e5 | | Load_Encached Long_Integer_Cache
0202 00e5 | | Load_Encached Long_Integer_Cache
0203 e402 | | Load 0x2,0x2
0204 e004 | | Load 0x0,0x4
0205 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0206 c403 | | Store 0x2,0x3
0207 c404 | | Store 0x2,0x4
0208 00e5 | | Load_Encached Long_Integer_Cache
0209 4815 |H | Short_Literal 0x15
020a 4801 |H | Short_Literal 0x1
020b e404 | | Load 0x2,0x4
020c e004 | | Load 0x0,0x4
020d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
020e 005a | Z | Store_Top Discrete,At_Offset_2
020f 00e5 | | Load_Encached Long_Integer_Cache
0210 4815 |H | Short_Literal 0x15
0211 4816 |H | Short_Literal 0x16
0212 e404 | | Load 0x2,0x4
0213 e004 | | Load 0x0,0x4
0214 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0215 005b | [ | Store_Top Discrete,At_Offset_3
0216 00e5 | | Load_Encached Long_Integer_Cache
0217 4815 |H | Short_Literal 0x15
0218 482b |H+ | Short_Literal 0x2b
0219 e404 | | Load 0x2,0x4
021a e004 | | Load 0x0,0x4
021b 1813 | | Execute Package,Field_Execute,Field_Number 0x13
021c c408 | | Store 0x2,0x8
021d 4800 |H | Short_Literal 0x0
021e e5fd | | Load 0x2,-0x3
021f 0092 02db | | Action Push_String_Extended,0x2db ; "CURRENT LOAD REG - "
0221 4830 |H0 | Short_Literal 0x30
0222 4810 |H | Short_Literal 0x10
0223 4800 |H | Short_Literal 0x0
0224 e404 | | Load 0x2,0x4
0225 e002 | | Load 0x0,0x2
0226 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0227 01cc | | Execute Vector,Catenate
0228 e5fe | | Load 0x2,-0x2
0229 e003 | | Load 0x0,0x3
022a 1812 | | Execute Package,Field_Execute,Field_Number 0x12
022b 4800 |H | Short_Literal 0x0
022c e5fd | | Load 0x2,-0x3
022d 0092 02dc | | Action Push_String_Extended,0x2dc ; " RUN LOAD - "
022f 4830 |H0 | Short_Literal 0x30
0230 4806 |H | Short_Literal 0x6
0231 4801 |H | Short_Literal 0x1
0232 e408 | | Load 0x2,0x8
0233 e002 | | Load 0x0,0x2
0234 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0235 01cc | | Execute Vector,Catenate
0236 e5fe | | Load 0x2,-0x2
0237 e003 | | Load 0x0,0x3
0238 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0239 4800 |H | Short_Literal 0x0
023a e5fd | | Load 0x2,-0x3
023b 0092 02dd | | Action Push_String_Extended,0x2dd ; " DISK WAIT LOAD - "
023d 4830 |H0 | Short_Literal 0x30
023e 4806 |H | Short_Literal 0x6
023f 4801 |H | Short_Literal 0x1
0240 e409 | | Load 0x2,0x9
0241 e002 | | Load 0x0,0x2
0242 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0243 01cc | | Execute Vector,Catenate
0244 e5fe | | Load 0x2,-0x2
0245 e003 | | Load 0x0,0x3
0246 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0247 4800 |H | Short_Literal 0x0
0248 e5fd | | Load 0x2,-0x3
0249 0092 02de | | Action Push_String_Extended,0x2de ; " WITHHELD LOAD - "
024b 4830 |H0 | Short_Literal 0x30
024c 4806 |H | Short_Literal 0x6
024d 4801 |H | Short_Literal 0x1
024e e40a | | Load 0x2,0xa
024f e002 | | Load 0x0,0x2
0250 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0251 01cc | | Execute Vector,Catenate
0252 e5fe | | Load 0x2,-0x2
0253 e003 | | Load 0x0,0x3
0254 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0255 4800 |H | Short_Literal 0x0
0256 e5fd | | Load 0x2,-0x3
0257 e5fe | | Load 0x2,-0x2
0258 e003 | | Load 0x0,0x3
0259 1813 | | Execute Package,Field_Execute,Field_Number 0x13
025a 00cf | | Action Mark_Auxiliary
025b 480f |H | Short_Literal 0xf
025c 4800 |H | Short_Literal 0x0
025d 0007 | | Action Break_Optional
025e 4800 |H | Short_Literal 0x0
025f e5fd | | Load 0x2,-0x3
0260 0092 02df | | Action Push_String_Extended,0x2df ; "GP("
0262 4830 |H0 | Short_Literal 0x30
0263 4801 |H | Short_Literal 0x1
0264 4800 |H | Short_Literal 0x0
0265 e40e | | Load 0x2,0xe
0266 e002 | | Load 0x0,0x2
0267 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0268 01cc | | Execute Vector,Catenate
0269 0092 02e0 | | Action Push_String_Extended,0x2e0 ; ") => "
026b 01cc | | Execute Vector,Catenate
026c 00db | | Load_Top At_Offset_3
026d 4be0 |K | Short_Literal 0x3e0
026e 0273 | s | Execute Discrete,Plus
026f e001 | | Load 0x0,0x1
0270 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0271 00d9 | | Load_Top At_Offset_1
0272 00d0 | | Action Swap_Control
0273 0260 | ` | Execute Discrete,In_Type
0274 7001 |p | Jump_Nonzero 0x276
0275 0801 | | Execute_Immediate Raise,0x1
0276 e5ff | | Load 0x2,-0x1
0277 e001 | | Load 0x0,0x1
0278 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0279 e001 | | Load 0x0,0x1
027a 1813 | | Execute Package,Field_Execute,Field_Number 0x13
027b 01cc | | Execute Vector,Catenate
027c e5fe | | Load 0x2,-0x2
027d e003 | | Load 0x0,0x3
027e 1812 | | Execute Package,Field_Execute,Field_Number 0x12
027f 00c8 | | Action Pop_Auxiliary_Range
0280 3fdd |? | Loop_Increasing 0x25e
0281 00ce | | Action Pop_Auxiliary
0282 4800 |H | Short_Literal 0x0
0283 e5fd | | Load 0x2,-0x3
0284 e5fe | | Load 0x2,-0x2
0285 e003 | | Load 0x0,0x3
0286 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0287 4800 |H | Short_Literal 0x0
0288 e5fd | | Load 0x2,-0x3
0289 0092 02e1 | | Action Push_String_Extended,0x2e1 ; "PFMAR => "
028b 49a0 |I | Short_Literal 0x1a0
028c e5ff | | Load 0x2,-0x1
028d e001 | | Load 0x0,0x1
028e 1811 | | Execute Package,Field_Execute,Field_Number 0x11
028f e001 | | Load 0x0,0x1
0290 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0291 01cc | | Execute Vector,Catenate
0292 e5fe | | Load 0x2,-0x2
0293 e003 | | Load 0x0,0x3
0294 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0295 4800 |H | Short_Literal 0x0
0296 e5fd | | Load 0x2,-0x3
0297 e5fe | | Load 0x2,-0x2
0298 e003 | | Load 0x0,0x3
0299 1813 | | Execute Package,Field_Execute,Field_Number 0x13
029a 4504 |E | Exit_Subprogram 0x4
029b 0000 0000 | | .BLANK 0000[0x5]
02a0 ; --------------------------------------------------------------------------------------
02a0 ; SUBPROGRAM
02a0 ; --------------------------------------------------------------------------------------
02a0 02a9 | | .CONST 0x02a9 ; Address of begin
02a1 0004 | | .CONST 0x0004 ; Address of exception handler
02a2 0002 | | .CONST 0x0002 ; Number of locals
02a3 INIT_02a0:
02a3 4880 |H | Short_Literal 0x80
02a4 e005 | | Load 0x0,0x5
02a5 1b0e | | Execute Package,Field_Read,Field_Number 0xe
02a6 1c08 | | Execute_Immediate Run_Utility,0x8
02a7 00d8 | | Load_Top At_Offset_0
02a8 1c00 | | Execute_Immediate Run_Utility,0x0
02a9 BODY_02a0:
02a9 00d8 | | Load_Top At_Offset_0
02aa 00ea | | Load_Encached Null_String_Cache
02ab e005 | | Load 0x0,0x5
02ac 1810 | | Execute Package,Field_Execute,Field_Number 0x10
02ad 00d1 | | Pop_Control Pop_Count_1
02ae 00cf | | Action Mark_Auxiliary
02af 480f |H | Short_Literal 0xf
02b0 4800 |H | Short_Literal 0x0
02b1 0007 | | Action Break_Optional
02b2 00d8 | | Load_Top At_Offset_0
02b3 e5ff | | Load 0x2,-0x1
02b4 0227 | ' | Execute Access,All_Reference
02b5 3409 |4 | Execute Record,Field_Reference,Field_Number 0x9
02b6 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
02b7 01d7 | | Execute Vector,Field_Read
02b8 6807 |h | Jump_Zero 0x2c0
02b9 00db | | Load_Top At_Offset_3
02ba 00d9 | | Load_Top At_Offset_1
02bb 00e0 | | Load_Encached Standard_Cache
02bc 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02bd e005 | | Load 0x0,0x5
02be 1818 | | Execute Package,Field_Execute,Field_Number 0x18
02bf 00d1 | | Pop_Control Pop_Count_1
02c0 00c8 | | Action Pop_Auxiliary_Range
02c1 3ff0 |? | Loop_Increasing 0x2b2
02c2 00ce | | Action Pop_Auxiliary
02c3 00d8 | | Load_Top At_Offset_0
02c4 e005 | | Load 0x0,0x5
02c5 1813 | | Execute Package,Field_Execute,Field_Number 0x13
02c6 00ca | | Action Exit_Nullary_Function
02c7 ; --------------------------------------------------------------------------------------
02c7 ; STRING TABLE
02c7 ; --------------------------------------------------------------------------------------
02c7 0038 | 8 | .STRTAB 0x0038->0x02e3 ; "Top => "
02c8 003e | > | .STRTAB 0x003e->0x02e7 ; " ("
02c9 003e | > | .STRTAB 0x003e->0x02e8 ; "Pred => "
02ca 0044 | D | .STRTAB 0x0044->0x02ec ; "Save => "
02cb 004a | J | .STRTAB 0x004a->0x02f0 ; "PC => "
02cc 004f | O | .STRTAB 0x004f->0x02f3 ; "DPC => "
02cd 0054 | T | .STRTAB 0x0054->0x02f7 ; "Lex levels valid =>"
02ce 0065 | e | .STRTAB 0x0065->0x0300 ; "."
02cf 0064 | d | .STRTAB 0x0064->0x0301 ; "TLC => "
02d0 0069 | i | .STRTAB 0x0069->0x0304 ; "VLC => "
02d1 006e | n | .STRTAB 0x006e->0x0308 ; "MAR => "
02d2 0073 | s | .STRTAB 0x0073->0x030b ; "TAR => "
02d3 0078 | x | .STRTAB 0x0078->0x030f ; " VAR => "
02d4 007e | ~ | .STRTAB 0x007e->0x0313 ; "RDR => "
02d5 0083 | | .STRTAB 0x0083->0x0316 ; "WDR => "
02d6 0088 | | .STRTAB 0x0088->0x031a ; "PRI HEAD TAIL"
02d7 009b | | .STRTAB 0x009b->0x0324 ; " "
; " "
02d8 009b | | .STRTAB 0x009b->0x0325 ; " Delay Queue Head - "
02d9 00ad | | .STRTAB 0x00ad->0x032f ; " Disk Wait Head - "
02da 00bd | | .STRTAB 0x00bd->0x0338 ; " FAQ Head - "
02db 00c7 | | .STRTAB 0x00c7->0x033e ; "CURRENT LOAD REG - "
02dc 00d8 | | .STRTAB 0x00d8->0x0348 ; " RUN LOAD - "
02dd 00e8 | | .STRTAB 0x00e8->0x0351 ; " DISK WAIT LOAD - "
02de 00f8 | | .STRTAB 0x00f8->0x035a ; " WITHHELD LOAD - "
02df 0108 | | .STRTAB 0x0108->0x0363 ; "GP("
02e0 0109 | | .STRTAB 0x0109->0x0364 ; ") => "
02e1 010c | | .STRTAB 0x010c->0x0367 ; "PFMAR => "
02e2 0114 | | .STREND 0x0114->0x036c
02e3 546f 7020 |Top | .STRTAB_STRINGS
036c 0000 0000 | | .BLANK 0000[0x4]
0370 ; --------------------------------------------------------------------------------------
0370 ; Debug Table
0370 ; --------------------------------------------------------------------------------------
0370 0004 000e | | .DEBUG4 0x0004,0x000e,0x9a06,0x0000,0x0001,0x0000
0376 b480 0025 | %| .XXX[0x12]
0378 5160 0000 |Q` |
037a 0276 2e01 | v. |
037c 2c0e 8000 |, |
037e 0000 0a00 | |
0380 0000 0004 | |
0382 5998 025a |Y Z|
0384 4e00 0000 |N |
0386 0025 7a60 | %z`|
0388 0000 0000 | | .BLANK 0000[0x7]
038f 0001 2d30 | -0| .XXX[0x1e]
0391 0096 7500 | u |
0393 0000 000a | |
0395 2000 0960 | `|
0397 7400 0000 |t |
0399 00c1 0000 | |
039b 0000 258f | % |
039d f844 8004 | D |
039f b49c 0000 | |
03a1 0000 4b33 | K3|
03a3 e009 7872 | xr|
03a5 0c72 0056 | r V|
03a7 bb80 0000 | |
03a9 0012 cea0 | |
03ab 04b0 3a00 | : |
03ad 0000 0000 | | .BLANK 0000[0x7]
03b4 96d4 8000 | | .XXX[0x13]
03b6 12c7 f800 | |
03b8 0001 3b17 | ; |
03ba 0097 0180 | |
03bc 0000 0005 | |
03be 0000 0000 | |
03c0 022c cc01 | , |
03c2 2f1b 8000 |/ |
03c4 0000 12dc | |
03c6 7800 |x |
03c7 0000 0000 | | .BLANK 0000[0x7]
03ce 0096 9800 | | .XXX[0x32]
03d0 4bb7 a000 |K |
03d2 0000 09d0 | |
03d4 0004 b80c | |
03d6 0000 0000 | |
03d8 6180 0000 |a |
03da 0012 e744 | D|
03dc 2240 025e |"@ ^|
03de 3700 0000 |7 |
03e0 0025 d880 | % |
03e2 04c4 0b06 | |
03e4 3900 2b5d |9 +]|
03e6 c000 0000 | |
03e8 0976 f402 | v |
03ea 5c06 0000 |\ |
03ec 0000 0000 | |
03ee 002b 1c00 | + |
03f0 0000 0000 | |
03f2 004b e760 | K `|
03f4 0009 73a0 | s |
03f6 0000 009d | |
03f8 8b80 4bfd | K |
03fa e000 0000 | |
03fc 0280 0000 | |
03fe 0001 1666 | f|