|
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_03c0fe
└─⟦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 02c0 | | .CONST 0x02c0 ; 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 INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf | | Action Accept_Activation
000e 1d0d | | Execute_Immediate Reference_Lex_1,0xd
000f 00c7 | | Action Elaborate_Subprogram
0010 BODY_0008:
0010 00bc | | Action Signal_Activated
0011 00bb | | Action Signal_Completion
0012 0000 0000 | | .BLANK 0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0027 | ' | .CONST 0x0027 ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b e002 | | Load 0x0,0x2
001c 0322 | " | Declare_Variable Record
001d 00e5 | | Load_Encached Long_Integer_Cache
001e 03e9 | | Declare_Variable Discrete,Duplicate
001f 03e9 | | Declare_Variable Discrete,Duplicate
0020 03e9 | | Declare_Variable Discrete,Duplicate
0021 03e9 | | Declare_Variable Discrete,Duplicate
0022 00e5 | | Load_Encached Long_Integer_Cache
0023 03e9 | | Declare_Variable Discrete,Duplicate
0024 03e9 | | Declare_Variable Discrete,Duplicate
0025 029f 0143 | C| Declare_Subprogram INIT_0140,For_Call
0027 BODY_0018:
0027 840b | | Call 0x2,0xb
0028 e5ff | | Load 0x2,-0x1
0029 8003 | | Call 0x0,0x3
002a 0092 0219 | | Action Push_String_Extended,0x219 ; "PRI HEAD TAIL"
002c e004 | | Load 0x0,0x4
002d 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
002e 00cf | | Action Mark_Auxiliary
002f 480f |H | Short_Literal 0xf
0030 4800 |H | Short_Literal 0x0
0031 0007 | | Action Break_Optional
0032 00d8 | | Load_Top At_Offset_0
0033 0a60 | ` | Execute_Immediate Plus,0x60
0034 00d8 | | Load_Top At_Offset_0
0035 e005 | | Load 0x0,0x5
0036 0260 | ` | Execute Discrete,In_Type
0037 7001 |p | Jump_Nonzero 0x39
0038 0801 | | Execute_Immediate Raise,0x1
0039 8006 | | Call 0x0,0x6
003a e402 | | Load 0x2,0x2
003b 017d | } | Execute Record,Structure_Write
003c 00e5 | | Load_Encached Long_Integer_Cache
003d 00e5 | | Load_Encached Long_Integer_Cache
003e e402 | | Load 0x2,0x2
003f 8007 | | Call 0x0,0x7
0040 c403 | | Store 0x2,0x3
0041 c404 | | Store 0x2,0x4
0042 00e5 | | Load_Encached Long_Integer_Cache
0043 4820 |H | Short_Literal 0x20
0044 4800 |H | Short_Literal 0x0
0045 e403 | | Load 0x2,0x3
0046 8008 | | Call 0x0,0x8
0047 c406 | | Store 0x2,0x6
0048 00e5 | | Load_Encached Long_Integer_Cache
0049 4820 |H | Short_Literal 0x20
004a 4800 |H | Short_Literal 0x0
004b e404 | | Load 0x2,0x4
004c 8008 | | Call 0x0,0x8
004d c407 | | Store 0x2,0x7
004e 4820 |H | Short_Literal 0x20
004f 4803 |H | Short_Literal 0x3
0050 4801 |H | Short_Literal 0x1
0051 00db | | Load_Top At_Offset_3
0052 8009 | | Call 0x0,0x9
0053 0092 021a | | Action Push_String_Extended,0x21a ; " "
0055 01cc | | Execute Vector,Catenate
0056 4830 |H0 | Short_Literal 0x30
0057 4808 |H | Short_Literal 0x8
0058 4800 |H | Short_Literal 0x0
0059 e406 | | Load 0x2,0x6
005a 800a | | Call 0x0,0xa
005b 01cc | | Execute Vector,Catenate
005c 0092 021a | | Action Push_String_Extended,0x21a ; " "
005e 01cc | | Execute Vector,Catenate
005f 4830 |H0 | Short_Literal 0x30
0060 4808 |H | Short_Literal 0x8
0061 4800 |H | Short_Literal 0x0
0062 e407 | | Load 0x2,0x7
0063 800a | | Call 0x0,0xa
0064 01cc | | Execute Vector,Catenate
0065 e004 | | Load 0x0,0x4
0066 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0067 00c8 | | Action Pop_Auxiliary_Range
0068 3fc9 |? | Loop_Increasing 0x32
0069 00ce | | Action Pop_Auxiliary
006a 4801 |H | Short_Literal 0x1
006b e004 | | Load 0x0,0x4
006c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
006d 4ae0 |J | Short_Literal 0x2e0
006e 8006 | | Call 0x0,0x6
006f e402 | | Load 0x2,0x2
0070 017d | } | Execute Record,Structure_Write
0071 00e5 | | Load_Encached Long_Integer_Cache
0072 00e5 | | Load_Encached Long_Integer_Cache
0073 e402 | | Load 0x2,0x2
0074 8007 | | Call 0x0,0x7
0075 c403 | | Store 0x2,0x3
0076 c404 | | Store 0x2,0x4
0077 00e5 | | Load_Encached Long_Integer_Cache
0078 4820 |H | Short_Literal 0x20
0079 4800 |H | Short_Literal 0x0
007a e403 | | Load 0x2,0x3
007b 8008 | | Call 0x0,0x8
007c c405 | | Store 0x2,0x5
007d 0092 021b | | Action Push_String_Extended,0x21b ; " Delay Queue Head - "
007f 4830 |H0 | Short_Literal 0x30
0080 4808 |H | Short_Literal 0x8
0081 4800 |H | Short_Literal 0x0
0082 e405 | | Load 0x2,0x5
0083 800a | | Call 0x0,0xa
0084 01cc | | Execute Vector,Catenate
0085 e004 | | Load 0x0,0x4
0086 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0087 4801 |H | Short_Literal 0x1
0088 e004 | | Load 0x0,0x4
0089 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
008a 4871 |Hq | Short_Literal 0x71
008b 8006 | | Call 0x0,0x6
008c e402 | | Load 0x2,0x2
008d 017d | } | Execute Record,Structure_Write
008e 00e5 | | Load_Encached Long_Integer_Cache
008f 00e5 | | Load_Encached Long_Integer_Cache
0090 e402 | | Load 0x2,0x2
0091 8007 | | Call 0x0,0x7
0092 c403 | | Store 0x2,0x3
0093 c404 | | Store 0x2,0x4
0094 00e5 | | Load_Encached Long_Integer_Cache
0095 4820 |H | Short_Literal 0x20
0096 4800 |H | Short_Literal 0x0
0097 e403 | | Load 0x2,0x3
0098 8008 | | Call 0x0,0x8
0099 c405 | | Store 0x2,0x5
009a 0092 021c | | Action Push_String_Extended,0x21c ; " Disk Wait Head - "
009c 4830 |H0 | Short_Literal 0x30
009d 4808 |H | Short_Literal 0x8
009e 4800 |H | Short_Literal 0x0
009f e405 | | Load 0x2,0x5
00a0 800a | | Call 0x0,0xa
00a1 01cc | | Execute Vector,Catenate
00a2 e004 | | Load 0x0,0x4
00a3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00a4 4801 |H | Short_Literal 0x1
00a5 e004 | | Load 0x0,0x4
00a6 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00a7 4870 |Hp | Short_Literal 0x70
00a8 8006 | | Call 0x0,0x6
00a9 e402 | | Load 0x2,0x2
00aa 017d | } | Execute Record,Structure_Write
00ab 00e5 | | Load_Encached Long_Integer_Cache
00ac 00e5 | | Load_Encached Long_Integer_Cache
00ad e402 | | Load 0x2,0x2
00ae 8007 | | Call 0x0,0x7
00af c403 | | Store 0x2,0x3
00b0 c404 | | Store 0x2,0x4
00b1 00e5 | | Load_Encached Long_Integer_Cache
00b2 4820 |H | Short_Literal 0x20
00b3 4800 |H | Short_Literal 0x0
00b4 e403 | | Load 0x2,0x3
00b5 8008 | | Call 0x0,0x8
00b6 c405 | | Store 0x2,0x5
00b7 0092 021d | | Action Push_String_Extended,0x21d ; " FAQ Head - "
00b9 4830 |H0 | Short_Literal 0x30
00ba 4808 |H | Short_Literal 0x8
00bb 4800 |H | Short_Literal 0x0
00bc e405 | | Load 0x2,0x5
00bd 800a | | Call 0x0,0xa
00be 01cc | | Execute Vector,Catenate
00bf e004 | | Load 0x0,0x4
00c0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00c1 4801 |H | Short_Literal 0x1
00c2 e004 | | Load 0x0,0x4
00c3 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
00c4 488a |H | Short_Literal 0x8a
00c5 8006 | | Call 0x0,0x6
00c6 e402 | | Load 0x2,0x2
00c7 017d | } | Execute Record,Structure_Write
00c8 00e5 | | Load_Encached Long_Integer_Cache
00c9 00e5 | | Load_Encached Long_Integer_Cache
00ca e402 | | Load 0x2,0x2
00cb 8007 | | Call 0x0,0x7
00cc c403 | | Store 0x2,0x3
00cd c404 | | Store 0x2,0x4
00ce 00e5 | | Load_Encached Long_Integer_Cache
00cf 4815 |H | Short_Literal 0x15
00d0 4801 |H | Short_Literal 0x1
00d1 e404 | | Load 0x2,0x4
00d2 8008 | | Call 0x0,0x8
00d3 005a | Z | Store_Top Discrete,At_Offset_2
00d4 00e5 | | Load_Encached Long_Integer_Cache
00d5 4815 |H | Short_Literal 0x15
00d6 4816 |H | Short_Literal 0x16
00d7 e404 | | Load 0x2,0x4
00d8 8008 | | Call 0x0,0x8
00d9 005b | [ | Store_Top Discrete,At_Offset_3
00da 00e5 | | Load_Encached Long_Integer_Cache
00db 4815 |H | Short_Literal 0x15
00dc 482b |H+ | Short_Literal 0x2b
00dd e404 | | Load 0x2,0x4
00de 8008 | | Call 0x0,0x8
00df c408 | | Store 0x2,0x8
00e0 0092 021e | | Action Push_String_Extended,0x21e ; "CURRENT LOAD REG - "
00e2 4830 |H0 | Short_Literal 0x30
00e3 4810 |H | Short_Literal 0x10
00e4 4800 |H | Short_Literal 0x0
00e5 e404 | | Load 0x2,0x4
00e6 800a | | Call 0x0,0xa
00e7 01cc | | Execute Vector,Catenate
00e8 e004 | | Load 0x0,0x4
00e9 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00ea 0092 021f | | Action Push_String_Extended,0x21f ; " RUN LOAD - "
00ec 4830 |H0 | Short_Literal 0x30
00ed 4806 |H | Short_Literal 0x6
00ee 4801 |H | Short_Literal 0x1
00ef e408 | | Load 0x2,0x8
00f0 800a | | Call 0x0,0xa
00f1 01cc | | Execute Vector,Catenate
00f2 e004 | | Load 0x0,0x4
00f3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00f4 0092 0220 | | Action Push_String_Extended,0x220 ; " DISK WAIT LOAD - "
00f6 4830 |H0 | Short_Literal 0x30
00f7 4806 |H | Short_Literal 0x6
00f8 4801 |H | Short_Literal 0x1
00f9 e409 | | Load 0x2,0x9
00fa 800a | | Call 0x0,0xa
00fb 01cc | | Execute Vector,Catenate
00fc e004 | | Load 0x0,0x4
00fd 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
00fe 0092 0221 | !| Action Push_String_Extended,0x221 ; " WITHHELD LOAD - "
0100 4830 |H0 | Short_Literal 0x30
0101 4806 |H | Short_Literal 0x6
0102 4801 |H | Short_Literal 0x1
0103 e40a | | Load 0x2,0xa
0104 800a | | Call 0x0,0xa
0105 01cc | | Execute Vector,Catenate
0106 e004 | | Load 0x0,0x4
0107 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0108 4801 |H | Short_Literal 0x1
0109 e004 | | Load 0x0,0x4
010a 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
010b 00cf | | Action Mark_Auxiliary
010c 480f |H | Short_Literal 0xf
010d 4800 |H | Short_Literal 0x0
010e 0007 | | Action Break_Optional
010f 0092 0222 | "| Action Push_String_Extended,0x222 ; "GP("
0111 4830 |H0 | Short_Literal 0x30
0112 4801 |H | Short_Literal 0x1
0113 4800 |H | Short_Literal 0x0
0114 e40e | | Load 0x2,0xe
0115 8009 | | Call 0x0,0x9
0116 01cc | | Execute Vector,Catenate
0117 0092 0223 | #| Action Push_String_Extended,0x223 ; ") => "
0119 01cc | | Execute Vector,Catenate
011a 00d9 | | Load_Top At_Offset_1
011b 4be0 |K | Short_Literal 0x3e0
011c 0273 | s | Execute Discrete,Plus
011d 00d8 | | Load_Top At_Offset_0
011e e005 | | Load 0x0,0x5
011f 0260 | ` | Execute Discrete,In_Type
0120 7001 |p | Jump_Nonzero 0x122
0121 0801 | | Execute_Immediate Raise,0x1
0122 8006 | | Call 0x0,0x6
0123 800b | | Call 0x0,0xb
0124 01cc | | Execute Vector,Catenate
0125 e004 | | Load 0x0,0x4
0126 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0127 00c8 | | Action Pop_Auxiliary_Range
0128 3fe6 |? | Loop_Increasing 0x10f
0129 00ce | | Action Pop_Auxiliary
012a 4801 |H | Short_Literal 0x1
012b e004 | | Load 0x0,0x4
012c 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
012d 0092 0224 | $| Action Push_String_Extended,0x224 ; "PFMAR => "
012f 49a0 |I | Short_Literal 0x1a0
0130 8006 | | Call 0x0,0x6
0131 800b | | Call 0x0,0xb
0132 01cc | | Execute Vector,Catenate
0133 e004 | | Load 0x0,0x4
0134 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0135 4801 |H | Short_Literal 0x1
0136 e004 | | Load 0x0,0x4
0137 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0138 800c | | Call 0x0,0xc
0139 4503 |E | Exit_Suprogram New_Top_Offset 0x3
013a 0000 0000 | | .BLANK 0000[0x6]
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0149 | I | .CONST 0x0149 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0002 | | .CONST 0x0002 ; Number of locals
0143 INIT_0140:
0143 e00d | | Load 0x0,0xd
0144 0322 | " | Declare_Variable Record
0145 e5ff | | Load 0x2,-0x1
0146 800e | | Call 0x0,0xe
0147 00d9 | | Load_Top At_Offset_1
0148 017d | } | Execute Record,Structure_Write
0149 BODY_0140:
0149 4829 |H) | Short_Literal 0x29
014a 4820 |H | Short_Literal 0x20
014b 0092 0225 | %| Action Push_String_Extended,0x225 ; "Top => "
014d 4830 |H0 | Short_Literal 0x30
014e 4808 |H | Short_Literal 0x8
014f 4800 |H | Short_Literal 0x0
0150 e602 | | Load 0x3,0x2
0151 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0152 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
0153 800a | | Call 0x0,0xa
0154 01cc | | Execute Vector,Catenate
0155 01cb | | Execute Vector,Append
0156 4800 |H | Short_Literal 0x0
0157 00db | | Load_Top At_Offset_3
0158 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0159 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
015a 800f | | Call 0x0,0xf
015b 01cc | | Execute Vector,Catenate
015c 0092 0226 | &| Action Push_String_Extended,0x226 ; " ("
015e 01cc | | Execute Vector,Catenate
015f 4830 |H0 | Short_Literal 0x30
0160 4800 |H | Short_Literal 0x0
0161 4800 |H | Short_Literal 0x0
0162 e602 | | Load 0x3,0x2
0163 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0164 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0165 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0166 0906 | | Execute_Immediate Binary_Scale,0x6
0167 e602 | | Load 0x3,0x2
0168 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0169 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
016a 3c01 |< | Execute Record,Field_Read,Field_Number 0x1
016b 0273 | s | Execute Discrete,Plus
016c 00d8 | | Load_Top At_Offset_0
016d 00e2 | | Load_Encached Integer_Cache
016e 0260 | ` | Execute Discrete,In_Type
016f 7001 |p | Jump_Nonzero 0x171
0170 0801 | | Execute_Immediate Raise,0x1
0171 8009 | | Call 0x0,0x9
0172 01cc | | Execute Vector,Catenate
0173 01cb | | Execute Vector,Append
0174 e004 | | Load 0x0,0x4
0175 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0176 4820 |H | Short_Literal 0x20
0177 0092 0227 | '| Action Push_String_Extended,0x227 ; "Pred => "
0179 4830 |H0 | Short_Literal 0x30
017a 4808 |H | Short_Literal 0x8
017b 4800 |H | Short_Literal 0x0
017c e602 | | Load 0x3,0x2
017d 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
017e 3c09 |< | Execute Record,Field_Read,Field_Number 0x9
017f 800a | | Call 0x0,0xa
0180 01cc | | Execute Vector,Catenate
0181 01cb | | Execute Vector,Append
0182 4800 |H | Short_Literal 0x0
0183 00da | | Load_Top At_Offset_2
0184 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0185 340b |4 | Execute Record,Field_Reference,Field_Number 0xb
0186 800f | | Call 0x0,0xf
0187 01cc | | Execute Vector,Catenate
0188 e004 | | Load 0x0,0x4
0189 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
018a 0092 0228 | (| Action Push_String_Extended,0x228 ; "Save => "
018c 4800 |H | Short_Literal 0x0
018d 00da | | Load_Top At_Offset_2
018e 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
018f 340a |4 | Execute Record,Field_Reference,Field_Number 0xa
0190 800f | | Call 0x0,0xf
0191 01cc | | Execute Vector,Catenate
0192 e004 | | Load 0x0,0x4
0193 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0194 4801 |H | Short_Literal 0x1
0195 e004 | | Load 0x0,0x4
0196 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0197 0092 0229 | )| Action Push_String_Extended,0x229 ; "PC => "
0199 4800 |H | Short_Literal 0x0
019a 00da | | Load_Top At_Offset_2
019b 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
019c 340d |4 | Execute Record,Field_Reference,Field_Number 0xd
019d 8010 | | Call 0x0,0x10
019e 01cc | | Execute Vector,Catenate
019f e004 | | Load 0x0,0x4
01a0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01a1 0092 022a | *| Action Push_String_Extended,0x22a ; "DPC => "
01a3 4800 |H | Short_Literal 0x0
01a4 00da | | Load_Top At_Offset_2
01a5 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01a6 340e |4 | Execute Record,Field_Reference,Field_Number 0xe
01a7 8010 | | Call 0x0,0x10
01a8 01cc | | Execute Vector,Catenate
01a9 e004 | | Load 0x0,0x4
01aa 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01ab 0092 022b | +| Action Push_String_Extended,0x22b ; "Lex levels valid =>"
01ad e004 | | Load 0x0,0x4
01ae 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01af 00cf | | Action Mark_Auxiliary
01b0 480f |H | Short_Literal 0xf
01b1 4800 |H | Short_Literal 0x0
01b2 0007 | | Action Break_Optional
01b3 00d8 | | Load_Top At_Offset_0
01b4 e602 | | Load 0x3,0x2
01b5 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01b6 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01b7 01d7 | | Execute Vector,Field_Read
01b8 6805 |h | Jump_Zero 0x1be
01b9 00d8 | | Load_Top At_Offset_0
01ba 00e0 | | Load_Encached Standard_Cache
01bb 1818 | | Execute Package,Field_Execute,Field_Number 0x18
01bc e004 | | Load 0x0,0x4
01bd 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
01be 00c8 | | Action Pop_Auxiliary_Range
01bf 3ff3 |? | Loop_Increasing 0x1b3
01c0 00ce | | Action Pop_Auxiliary
01c1 0092 022c | ,| Action Push_String_Extended,0x22c ; "."
01c3 e004 | | Load 0x0,0x4
01c4 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01c5 4801 |H | Short_Literal 0x1
01c6 e004 | | Load 0x0,0x4
01c7 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01c8 0092 022d | -| Action Push_String_Extended,0x22d ; "TLC => "
01ca 4830 |H0 | Short_Literal 0x30
01cb 4800 |H | Short_Literal 0x0
01cc 4800 |H | Short_Literal 0x0
01cd e602 | | Load 0x3,0x2
01ce 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01cf 3c02 |< | Execute Record,Field_Read,Field_Number 0x2
01d0 8009 | | Call 0x0,0x9
01d1 01cc | | Execute Vector,Catenate
01d2 e004 | | Load 0x0,0x4
01d3 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01d4 0092 022e | .| Action Push_String_Extended,0x22e ; "VLC => "
01d6 4830 |H0 | Short_Literal 0x30
01d7 4800 |H | Short_Literal 0x0
01d8 4800 |H | Short_Literal 0x0
01d9 e602 | | Load 0x3,0x2
01da 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01db 3c03 |< | Execute Record,Field_Read,Field_Number 0x3
01dc 8009 | | Call 0x0,0x9
01dd 01cc | | Execute Vector,Catenate
01de e004 | | Load 0x0,0x4
01df 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01e0 4801 |H | Short_Literal 0x1
01e1 e004 | | Load 0x0,0x4
01e2 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01e3 0092 022f | /| Action Push_String_Extended,0x22f ; "MAR => "
01e5 00d9 | | Load_Top At_Offset_1
01e6 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01e7 3411 |4 | Execute Record,Field_Reference,Field_Number 0x11
01e8 8011 | | Call 0x0,0x11
01e9 01cc | | Execute Vector,Catenate
01ea e004 | | Load 0x0,0x4
01eb 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01ec 0092 0230 | 0| Action Push_String_Extended,0x230 ; "TAR => "
01ee 4830 |H0 | Short_Literal 0x30
01ef 4800 |H | Short_Literal 0x0
01f0 4800 |H | Short_Literal 0x0
01f1 e602 | | Load 0x3,0x2
01f2 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01f3 3c12 |< | Execute Record,Field_Read,Field_Number 0x12
01f4 800a | | Call 0x0,0xa
01f5 01cc | | Execute Vector,Catenate
01f6 0092 0231 | 1| Action Push_String_Extended,0x231 ; " VAR => "
01f8 01cc | | Execute Vector,Catenate
01f9 4830 |H0 | Short_Literal 0x30
01fa 4800 |H | Short_Literal 0x0
01fb 4800 |H | Short_Literal 0x0
01fc e602 | | Load 0x3,0x2
01fd 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
01fe 3c13 |< | Execute Record,Field_Read,Field_Number 0x13
01ff 800a | | Call 0x0,0xa
0200 01cc | | Execute Vector,Catenate
0201 e004 | | Load 0x0,0x4
0202 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0203 0092 0232 | 2| Action Push_String_Extended,0x232 ; "RDR => "
0205 00d9 | | Load_Top At_Offset_1
0206 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0207 3416 |4 | Execute Record,Field_Reference,Field_Number 0x16
0208 8011 | | Call 0x0,0x11
0209 01cc | | Execute Vector,Catenate
020a e004 | | Load 0x0,0x4
020b 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
020c 0092 0233 | 3| Action Push_String_Extended,0x233 ; "WDR => "
020e 00d9 | | Load_Top At_Offset_1
020f 3407 |4 | Execute Record,Field_Reference,Field_Number 0x7
0210 3417 |4 | Execute Record,Field_Reference,Field_Number 0x17
0211 8011 | | Call 0x0,0x11
0212 01cc | | Execute Vector,Catenate
0213 e004 | | Load 0x0,0x4
0214 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0215 4801 |H | Short_Literal 0x1
0216 e004 | | Load 0x0,0x4
0217 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0218 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0219 ; --------------------------------------------------------------------------------------
0219 ; STRING TABLE
0219 ; --------------------------------------------------------------------------------------
0219 0038 | 8 | .STRTAB 0x0038->0x0235 ; "PRI HEAD TAIL"
021a 004b | K | .STRTAB 0x004b->0x023f ; " "
021b 004b | K | .STRTAB 0x004b->0x0240 ; " Delay Queue Head - "
021c 005d | ] | .STRTAB 0x005d->0x024a ; " Disk Wait Head - "
021d 006d | m | .STRTAB 0x006d->0x0253 ; " FAQ Head - "
021e 0077 | w | .STRTAB 0x0077->0x0259 ; "CURRENT LOAD REG - "
021f 0088 | | .STRTAB 0x0088->0x0263 ; " RUN LOAD - "
0220 0098 | | .STRTAB 0x0098->0x026c ; " DISK WAIT LOAD - "
0221 00a8 | | .STRTAB 0x00a8->0x0275 ; " WITHHELD LOAD - "
0222 00b8 | | .STRTAB 0x00b8->0x027e ; "GP("
0223 00b9 | | .STRTAB 0x00b9->0x027f ; ") => "
0224 00bc | | .STRTAB 0x00bc->0x0282 ; "PFMAR => "
0225 00c4 | | .STRTAB 0x00c4->0x0287 ; "Top => "
0226 00ca | | .STRTAB 0x00ca->0x028b ; " ("
0227 00ca | | .STRTAB 0x00ca->0x028c ; "Pred => "
0228 00d0 | | .STRTAB 0x00d0->0x0290 ; "Save => "
0229 00d6 | | .STRTAB 0x00d6->0x0294 ; "PC => "
022a 00db | | .STRTAB 0x00db->0x0297 ; "DPC => "
022b 00e0 | | .STRTAB 0x00e0->0x029b ; "Lex levels valid =>"
022c 00f1 | | .STRTAB 0x00f1->0x02a4 ; "."
022d 00f0 | | .STRTAB 0x00f0->0x02a5 ; "TLC => "
022e 00f5 | | .STRTAB 0x00f5->0x02a8 ; "VLC => "
022f 00fa | | .STRTAB 0x00fa->0x02ac ; "MAR => "
0230 00ff | | .STRTAB 0x00ff->0x02af ; "TAR => "
0231 0104 | | .STRTAB 0x0104->0x02b3 ; " VAR => "
0232 010a | | .STRTAB 0x010a->0x02b7 ; "RDR => "
0233 010f | | .STRTAB 0x010f->0x02ba ; "WDR => "
0234 0114 | | .STREND 0x0114->0x02be
0235 5052 4920 |PRI | .STRTAB_STRINGS
02be 0000 0000 | | .XXX[0x2]
02c0 ; --------------------------------------------------------------------------------------
02c0 ; Debug Table
02c0 ; --------------------------------------------------------------------------------------
02c0 0004 0011 | | .DEBUG4 0x0004,0x0011,0xf1f0,0x0000,0x0001,0x0000
02c6 0000 0000 | | .BLANK 0000[0x13a]