|
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, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0ea8df
└─⟦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 5813 |X | .CONST 0x5813 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0290 | | .CONST 0x0290 ; 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 0001 | | .CONST 0x0001 ; 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 ; Debug Table 0x0 = .DEBUG 0x000b,0x02ca,0x8000,0x0000,0x004f,0x2ea5,0x0000,0x0003
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 003a | : | .CONST 0x003a ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000f | | .CONST 0x000f ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x02cc,0x8001,0x0000,0x004f,0x2ea5,0x0000,0x0003
; Debug Table 0x1.0x0 = 0x1b,0xffff
001c 1b0d | | Execute Package,Field_Read,Field_Number 0xd
001d 02c7 | | Declare_Variable Any
001e 00d8 | | Load_Top At_Offset_0
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x1 = 0x20,0xfffe
0021 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0022 00c6 | | Action Check_Subprogram_Elaborated
0023 00e3 | | Load_Encached Natural_Cache
0024 6163 |ac | Indirect_Literal Discrete,0x188,{0x00000000, 0x004f2ef5}
0025 4813 |H | Short_Literal 0x13
0026 4806 |H | Short_Literal 0x6
0027 0007 | | Action Break_Optional
0028 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x1.0x2 = 0x28,0xfffd
0029 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x3 = 0x29,0xfffc
002a 1b0d | | Execute Package,Field_Read,Field_Number 0xd
002b 02c7 | | Declare_Variable Any
002c 00d8 | | Load_Top At_Offset_0
002d 1c00 | | Execute_Immediate Run_Utility,0x0
002e 029f 009b | | Declare_Subprogram INIT_0098,For_Call ; Debug Table 0x1.0x4 = 0x2e,0xfffb
0030 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call ; Debug Table 0x1.0x5 = 0x30,0xfffa
0032 a003 | | Store_Unchecked 0x0,0x3 ; Debug Table 0x1.0x6 = 0x32,0xfff9
0033 00c6 | | Action Check_Subprogram_Elaborated
0034 4fff |O | Short_Literal -0x1
0035 6152 |aR | Indirect_Literal Discrete,0x188,{0x00000000, 0x004f2ef5}
0036 4968 |Ih | Short_Literal 0x168
0037 480e |H | Short_Literal 0xe
0038 029f 0113 | | Declare_Subprogram INIT_0110,For_Call
003a BODY_0018:
003a e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x7 = 0x3a,0x1
003b 0120 | | Execute Any,Is_Value
003c 6803 |h | Jump_Zero 0x40
003d e001 | | Load 0x0,0x1
003e 1b0d | | Execute Package,Field_Read,Field_Number 0xd
003f 7801 |x | Jump 0x41
0040 e402 | | Load 0x2,0x2
0041 0092 018c | | Action Push_String_Extended,0x18c ; "Tape Exerciser"
0043 e001 | | Load 0x0,0x1
0044 180e | | Execute Package,Field_Execute,Field_Number 0xe
0045 c402 | | Store 0x2,0x2
0046 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x8 = 0x46,0x2
0047 0092 018d | | Action Push_String_Extended,0x18d ; "There will be at least one pass of the test you select."
0049 e001 | | Load 0x0,0x1
004a 1810 | | Execute Package,Field_Execute,Field_Number 0x10
004b e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x9 = 0x4b,0x3
004c 0092 018e | | Action Push_String_Extended,0x18e ; "Aproximate timing for the FIRST pass:"
004e e001 | | Load 0x0,0x1
004f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0050 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xa = 0x50,0x4
0051 0092 018f | | Action Push_String_Extended,0x18f ; " Test 0: 90 minutes"
0053 e001 | | Load 0x0,0x1
0054 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0055 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xb = 0x55,0x5
0056 0092 0190 | | Action Push_String_Extended,0x190 ; " Test 3: 10 minutes"
0058 e001 | | Load 0x0,0x1
0059 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005a e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xc = 0x5a,0x6
005b 0092 0191 | | Action Push_String_Extended,0x191 ; " Test 8: 50 minutes"
005d e001 | | Load 0x0,0x1
005e 1810 | | Execute Package,Field_Execute,Field_Number 0x10
005f e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xd = 0x5f,0x7
0060 0092 0192 | | Action Push_String_Extended,0x192 ; " others: one or two minutes"
0062 e001 | | Load 0x0,0x1
0063 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0064 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xe = 0x64,0x8
0065 0092 0193 | | Action Push_String_Extended,0x193 ; "Subsequent passes write and read the entire reel - take MUCH longer."
0067 e001 | | Load 0x0,0x1
0068 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0069 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0xf = 0x69,0x9
006a 0092 0194 | | Action Push_String_Extended,0x194 ; "If you want a single pass enter a small number below."
006c e001 | | Load 0x0,0x1
006d 1810 | | Execute Package,Field_Execute,Field_Number 0x10
006e 00cf | | Action Mark_Auxiliary
006f 00cf | | Action Mark_Auxiliary ; Debug Table 0x1.0x10 = 0x6f,0xa
0070 0007 | | Action Break_Optional ; Debug Table 0x1.0x11 = 0x70,0xb
0071 840f | | Call 0x2,0xf ; Debug Table 0x1.0x12 = 0x71,0xc
0072 00c9 | | Action Pop_Auxiliary_Loop
0073 7ffd | | Jump 0x71
0074 00ce | | Action Pop_Auxiliary
0075 e407 | | Load 0x2,0x7 ; Debug Table 0x1.0x13 = 0x75,0xd
0076 090f | | Execute_Immediate Binary_Scale,0xf
0077 e002 | | Load 0x0,0x2
0078 1812 | | Execute Package,Field_Execute,Field_Number 0x12
0079 e002 | | Load 0x0,0x2
007a 1819 | | Execute Package,Field_Execute,Field_Number 0x19
007b c408 | | Store 0x2,0x8
007c e408 | | Load 0x2,0x8 ; Debug Table 0x1.0x14 = 0x7c,0xe
007d 8409 | | Call 0x2,0x9
007e 6105 |a | Indirect_Literal Discrete,0x184,{0x00000000, 0x00010000} ; Debug Table 0x1.0x15 = 0x7e,0xf
007f 00ba | | Action Initiate_Delay
0080 e408 | | Load 0x2,0x8 ; Debug Table 0x1.0x16 = 0x80,0x10
0081 e40b | | Load 0x2,0xb
0082 480c |H | Short_Literal 0xc
0083 4802 |H | Short_Literal 0x2
0084 0099 | | Action Reference_Dynamic
0085 8003 | | Call 0x0,0x3
0086 0092 0195 | | Action Push_String_Extended,0x195 ; "Run again? [N] :"
; Debug Table 0x1.0x17 = 0x86,0x11
0088 840a | | Call 0x2,0xa
0089 6802 |h | Jump_Zero 0x8c
008a 00c9 | | Action Pop_Auxiliary_Loop
008b 7fe3 | | Jump 0x6f
008c 00ce | | Action Pop_Auxiliary
008d e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x18 = 0x8d,0x12
008e 0092 0196 | | Action Push_String_Extended,0x196 ; "Tape Test done"
0090 e001 | | Load 0x0,0x1
0091 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0092 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x19 = 0x92,0x13
0093 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0094 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0095 0000 0000 | | .XXX[0x3]
0097 0000 | |
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 00ab | | .CONST 0x00ab ; Address of begin
0099 0004 | | .CONST 0x0004 ; Address of exception handler
009a 000a | | .CONST 0x000a ; Number of locals
009b INIT_0098:
009b e002 | | Load 0x0,0x2 ; Debug Table 0x2 = .DEBUG 0x009b,0x0302,0x0001,0x0000,0x004f,0x2ef5,0x0000,0x0029
; Debug Table 0x2.0x0 = 0x9b,0xffff
009c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
009d e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x1 = 0x9d,0xfffe
009e 1b0f | | Execute Package,Field_Read,Field_Number 0xf
009f e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x9f,0xfffd
00a0 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00a1 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x3 = 0xa1,0xfffc
00a2 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00a3 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x4 = 0xa3,0xfffb
00a4 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x5 = 0xa4,0xfffa
00a5 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x6 = 0xa5,0xfff9
00a6 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x7 = 0xa6,0xfff8
00a7 0007 | | Action Break_Optional ; Debug Table 0x2.0x8 = 0xa7,0xfff7
00a8 0007 | | Action Break_Optional ; Debug Table 0x2.0x9 = 0xa8,0xfff6
00a9 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call ; Debug Table 0x2.0xa = 0xa9,0xfff5
00ab BODY_0098:
00ab e002 | | Load 0x0,0x2 ; Debug Table 0x2.0xb = 0xab,0x1
00ac 1b11 | | Execute Package,Field_Read,Field_Number 0x11
00ad e002 | | Load 0x0,0x2
00ae 1b10 | | Execute Package,Field_Read,Field_Number 0x10
00af e002 | | Load 0x0,0x2
00b0 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00b1 e002 | | Load 0x0,0x2
00b2 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b3 e7ff | | Load 0x3,-0x1
00b4 e002 | | Load 0x0,0x2
00b5 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00b6 c602 | | Store 0x3,0x2
00b7 c603 | | Store 0x3,0x3
00b8 c604 | | Store 0x3,0x4
00b9 c605 | | Store 0x3,0x5
00ba e605 | | Load 0x3,0x5 ; Debug Table 0x2.0xc = 0xba,0x2
00bb 00d8 | | Load_Top At_Offset_0
00bc 0c00 | | Execute_Immediate Greater_Equal,0x0
00bd 7003 |p | Jump_Nonzero 0xc1
00be 60c1 |` | Indirect_Literal Discrete,0x180,{0xffffffff, 0xffffc000}
00bf 0273 | s | Execute Discrete,Plus
00c0 7802 |x | Jump 0xc3
00c1 60ba |` | Indirect_Literal Discrete,0x17c,{0x00000000, 0x00004000}
00c2 0273 | s | Execute Discrete,Plus
00c3 09f1 | | Execute_Immediate Binary_Scale,-0xf
00c4 005a | Z | Store_Top Discrete,At_Offset_2
00c5 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xd = 0xc5,0x3
00c6 60b1 |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00000e10}
00c7 0270 | p | Execute Discrete,Divide
00c8 c607 | | Store 0x3,0x7
00c9 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xe = 0xc9,0x4
00ca e607 | | Load 0x3,0x7
00cb 60ac |` | Indirect_Literal Discrete,0x178,{0x00000000, 0x00000e10}
00cc 0271 | q | Execute Discrete,Times
00cd 0248 | H | Execute Discrete,Check_In_Integer
00ce 0272 | r | Execute Discrete,Minus
00cf 005a | Z | Store_Top Discrete,At_Offset_2
00d0 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0xf = 0xd0,0x5
00d1 483c |H< | Short_Literal 0x3c
00d2 0270 | p | Execute Discrete,Divide
00d3 005b | [ | Store_Top Discrete,At_Offset_3
00d4 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x2.0x10 = 0xd4,0x6
00d5 00db | | Load_Top At_Offset_3
00d6 483c |H< | Short_Literal 0x3c
00d7 0271 | q | Execute Discrete,Times
00d8 0248 | H | Execute Discrete,Check_In_Integer
00d9 0272 | r | Execute Discrete,Minus
00da 005a | Z | Store_Top Discrete,At_Offset_2
00db e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x11 = 0xdb,0x7
00dc 0092 0197 | | Action Push_String_Extended,0x197 ; "No test pass will begin after: "
00de 00db | | Load_Top At_Offset_3
00df e608 | | Load 0x3,0x8
00e0 e607 | | Load 0x3,0x7
00e1 483a |H: | Short_Literal 0x3a
00e2 860a | | Call 0x3,0xa
00e3 01cc | | Execute Vector,Catenate
00e4 0092 0198 | | Action Push_String_Extended,0x198 ; " on "
00e6 01cc | | Execute Vector,Catenate
00e7 e602 | | Load 0x3,0x2
00e8 e604 | | Load 0x3,0x4
00e9 e603 | | Load 0x3,0x3
00ea 482f |H/ | Short_Literal 0x2f
00eb 860a | | Call 0x3,0xa
00ec 01cc | | Execute Vector,Catenate
00ed e001 | | Load 0x0,0x1
00ee 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00ef 4502 |E | Exit_Suprogram New_Top_Offset 0x2
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f7 | | .CONST 0x00f7 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0002 | | .CONST 0x0002 ; Number of locals
00f3 INIT_00f0:
00f3 e402 | | Load 0x2,0x2 ; Debug Table 0x3 = .DEBUG 0x00f3,0x0328,0x0002,0x0000,0x004f,0x2ef5,0x0000,0x0132
; Debug Table 0x3.0x0 = 0xf3,0xffff
00f4 00db | | Load_Top At_Offset_3
00f5 e001 | | Load 0x0,0x1
00f6 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00f7 BODY_00f0:
00f7 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x3.0x1 = 0xf7,0x1
00f8 01db | | Execute Vector,Length
00f9 0c01 | | Execute_Immediate Greater_Equal,0x1
00fa 680c |h | Jump_Zero 0x107
00fb 4801 |H | Short_Literal 0x1
00fc 00d9 | | Load_Top At_Offset_1
00fd 01d7 | | Execute Vector,Field_Read
00fe 0f79 | y | Execute_Immediate Equal,0x79
00ff 7005 |p | Jump_Nonzero 0x105
0100 4801 |H | Short_Literal 0x1
0101 00d9 | | Load_Top At_Offset_1
0102 01d7 | | Execute Vector,Field_Read
0103 0f59 | Y | Execute_Immediate Equal,0x59
0104 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0105 4801 |H | Short_Literal 0x1
0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0107 4800 |H | Short_Literal 0x0
0108 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0109 0000 0000 | | .BLANK 0000[0x7]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113 | | .CONST 0x0113 ; Address of begin
0111 0121 | ! | .CONST 0x0121 ; Address of exception handler
0112 0001 | | .CONST 0x0001 ; Number of locals
0113 BODY_0110:
0113 INIT_0110:
0113 e402 | | Load 0x2,0x2 ; Debug Table 0x4 = .DEBUG 0x0113,0x032e,0x0004,0x0000,0x004f,0x2ef5,0x0000,0x01c9
; Debug Table 0x4.0x0 = 0x113,0x1
0114 0092 0199 | | Action Push_String_Extended,0x199 ; "For how many minutes to you want this test to run? "
0116 e403 | | Load 0x2,0x3
0117 4804 |H | Short_Literal 0x4
0118 4802 |H | Short_Literal 0x2
0119 0099 | | Action Reference_Dynamic
011a e001 | | Load 0x0,0x1
011b 1812 | | Execute Package,Field_Execute,Field_Number 0x12
011c 483c |H< | Short_Literal 0x3c
011d 0271 | q | Execute Discrete,Times
011e c407 | | Store 0x2,0x7
011f 00cc | | Action Pop_Block ; Debug Table 0x4.0x1 = 0x11f,0x2
0120 7f53 | S | Jump 0x74
0121 TRAP_0110:
0121 010d | | Execute Exception,Is_Numeric_Error
0122 6806 |h | Jump_Zero 0x129
0123 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x2 = 0x123,0x3
0124 0092 019a | | Action Push_String_Extended,0x19a ; "You input a value which was too large. Try again."
0126 e001 | | Load 0x0,0x1
0127 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0128 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0129 0100 | | Execute Exception,Raise
012a 0000 0000 | | .BLANK 0000[0x6]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0144 | D | .CONST 0x0144 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0003 | | .CONST 0x0003 ; Number of locals
0133 INIT_0130:
0133 4801 |H | Short_Literal 0x1 ; Debug Table 0x5 = .DEBUG 0x0133,0x0336,0x0002,0x0000,0x004f,0x2ef5,0x0000,0x0068
; Debug Table 0x5.0x0 = 0x133,0xffff
0134 4801 |H | Short_Literal 0x1
0135 00e9 | | Load_Encached String_Cache
0136 0334 | 4 | Declare_Variable Array,With_Constraint
0137 4801 |H | Short_Literal 0x1
0138 4801 |H | Short_Literal 0x1
0139 00e9 | | Load_Encached String_Cache
013a 035b | [ | Declare_Type Array,Constrained
013b 0337 | 7 | Declare_Variable Array
013c e9ff | | Load 0x4,-0x1
013d 4801 |H | Short_Literal 0x1
013e 00da | | Load_Top At_Offset_2
013f 01d6 | | Execute Vector,Field_Write
0140 00d9 | | Load_Top At_Offset_1
0141 01d4 | | Execute Vector,Structure_Write
0142 029f 015b | [| Declare_Subprogram INIT_0158,For_Call ; Debug Table 0x5.0x1 = 0x142,0xfffe
0144 BODY_0130:
0144 e9fe | | Load 0x4,-0x2 ; Debug Table 0x5.0x2 = 0x144,0x1
0145 8803 | | Call 0x4,0x3
0146 00da | | Load_Top At_Offset_2
0147 01cc | | Execute Vector,Catenate
0148 e9fd | | Load 0x4,-0x3
0149 8803 | | Call 0x4,0x3
014a 01cc | | Execute Vector,Catenate
014b 00da | | Load_Top At_Offset_2
014c 01cc | | Execute Vector,Catenate
014d e9fc | | Load 0x4,-0x4
014e 8803 | | Call 0x4,0x3
014f 01cc | | Execute Vector,Catenate
0150 4404 |D | Exit_Subprogram With_Value,New_Top_Offset 0x4
0151 0000 0000 | | .BLANK 0000[0x7]
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015e | ^ | .CONST 0x015e ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0002 | | .CONST 0x0002 ; Number of locals
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2 ; Debug Table 0x6 = .DEBUG 0x015b,0x033e,0x0002,0x0000,0x004f,0x2ef5,0x0000,0x0084
; Debug Table 0x6.0x0 = 0x15b,0xffff
015c 00e0 | | Load_Encached Standard_Cache
015d 1818 | | Execute Package,Field_Execute,Field_Number 0x18
015e BODY_0158:
015e 00cf | | Action Mark_Auxiliary
015f 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x6.0x1 = 0x15f,0x1
0160 01da | | Execute Vector,Bounds
0161 0264 | d | Execute Discrete,Below_Bound
0162 700f |p | Jump_Nonzero 0x172
0163 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x2 = 0x163,0x2
0164 ea02 | | Load 0x5,0x2
0165 01d7 | | Execute Vector,Field_Read
0166 4830 |H0 | Short_Literal 0x30
0167 4839 |H9 | Short_Literal 0x39
0168 0262 | b | Execute Discrete,In_Range
0169 6806 |h | Jump_Zero 0x170
016a 00db | | Load_Top At_Offset_3 ; Debug Table 0x6.0x3 = 0x16a,0x3
016b 01dd | | Execute Vector,First
016c 00d9 | | Load_Top At_Offset_1
016d ea02 | | Load 0x5,0x2
016e 01cf | | Execute Vector,Slice_Read
016f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0170 00c8 | | Action Pop_Auxiliary_Range
0171 37f1 |7 | Loop_Decreasing 0x163
0172 00ce | | Action Pop_Auxiliary
0173 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x6.0x4 = 0x173,0x4
0174 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0175 0000 0000 | | .XXX[0x3]
0177 0000 | |
0178 0000 0000 | | .LITERAL {0x00000000, 0x00000e10}
017c 0000 0000 | | .LITERAL {0x00000000, 0x00004000}
0180 ffff ffff | | .LITERAL {0xffffffff, 0xffffc000}
0184 0000 0000 | | .LITERAL {0x00000000, 0x00010000}
0188 0000 0000 | | .LITERAL {0x00000000, 0x004f2ef5}
018c ; --------------------------------------------------------------------------------------
018c ; STRING TABLE
018c ; --------------------------------------------------------------------------------------
018c 0020 | | .STRTAB 0x0020->0x019c ; "Tape Exerciser"
018d 002c | , | .STRTAB 0x002c->0x01a3 ; "There will be at least one pass of the test you select."
018e 0061 | a | .STRTAB 0x0061->0x01be ; "Aproximate timing for the FIRST pass:"
018f 0084 | | .STRTAB 0x0084->0x01d1 ; " Test 0: 90 minutes"
0190 0097 | | .STRTAB 0x0097->0x01db ; " Test 3: 10 minutes"
0191 00aa | | .STRTAB 0x00aa->0x01e6 ; " Test 8: 50 minutes"
0192 00bd | | .STRTAB 0x00bd->0x01f0 ; " others: one or two minutes"
0193 00d8 | | .STRTAB 0x00d8->0x01ff ; "Subsequent passes write and read the entire reel - take MUCH longer."
0194 011a | | .STRTAB 0x011a->0x0221 ; "If you want a single pass enter a small number below."
0195 014d | M | .STRTAB 0x014d->0x023b ; "Run again? [N] :"
0196 015b | [ | .STRTAB 0x015b->0x0243 ; "Tape Test done"
0197 0167 | g | .STRTAB 0x0167->0x024a ; "No test pass will begin after: "
0198 0184 | | .STRTAB 0x0184->0x025a ; " on "
0199 0186 | | .STRTAB 0x0186->0x025c ; "For how many minutes to you want this test to run? "
019a 01b7 | | .STRTAB 0x01b7->0x0275 ; "You input a value which was too large. Try again."
019b 01e7 | | .STREND 0x01e7->0x028e
019c 5461 7065 |Tape| .STRTAB_STRINGS
028f 0000 | | .XXX[0x1]
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug Table
0290 ; --------------------------------------------------------------------------------------
0290 0003 0007 | | .CONST 0x0003,0x0007
0292 000b 02ca | | .DEBUG 0x000b,0x02ca,0x8000,0x0000,0x004f,0x2ea5,0x0000,0x0003
029a 001b 02cc | | .DEBUG 0x001b,0x02cc,0x8001,0x0000,0x004f,0x2ea5,0x0000,0x0003
02a2 009b 0302 | | .DEBUG 0x009b,0x0302,0x0001,0x0000,0x004f,0x2ef5,0x0000,0x0029
02aa 00f3 0328 | (| .DEBUG 0x00f3,0x0328,0x0002,0x0000,0x004f,0x2ef5,0x0000,0x0132
02b2 0113 032e | .| .DEBUG 0x0113,0x032e,0x0004,0x0000,0x004f,0x2ef5,0x0000,0x01c9
02ba 0133 0336 | 3 6| .DEBUG 0x0133,0x0336,0x0002,0x0000,0x004f,0x2ef5,0x0000,0x0068
02c2 015b 033e | [ >| .DEBUG 0x015b,0x033e,0x0002,0x0000,0x004f,0x2ef5,0x0000,0x0084
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x0
02ca ; --------------------------------------------------------------------------------------
02ca 0000 0000 | | .DBG3TAB 0x0000,0x0000
02cc ; --------------------------------------------------------------------------------------
02cc ; Debug3 Subtable 0x1
02cc ; --------------------------------------------------------------------------------------
02cc 0007 0013 | | .DBG3TAB 0x0007,0x0013
02ce 001b ffff | | .CONST 0x001b,0xffff
02d0 0020 fffe | | .CONST 0x0020,0xfffe
02d2 0028 fffd | ( | .CONST 0x0028,0xfffd
02d4 0029 fffc | ) | .CONST 0x0029,0xfffc
02d6 002e fffb | . | .CONST 0x002e,0xfffb
02d8 0030 fffa | 0 | .CONST 0x0030,0xfffa
02da 0032 fff9 | 2 | .CONST 0x0032,0xfff9
02dc 003a 0001 | : | .CONST 0x003a,0x0001
02de 0046 0002 | F | .CONST 0x0046,0x0002
02e0 004b 0003 | K | .CONST 0x004b,0x0003
02e2 0050 0004 | P | .CONST 0x0050,0x0004
02e4 0055 0005 | U | .CONST 0x0055,0x0005
02e6 005a 0006 | Z | .CONST 0x005a,0x0006
02e8 005f 0007 | _ | .CONST 0x005f,0x0007
02ea 0064 0008 | d | .CONST 0x0064,0x0008
02ec 0069 0009 | i | .CONST 0x0069,0x0009
02ee 006f 000a | o | .CONST 0x006f,0x000a
02f0 0070 000b | p | .CONST 0x0070,0x000b
02f2 0071 000c | q | .CONST 0x0071,0x000c
02f4 0075 000d | u | .CONST 0x0075,0x000d
02f6 007c 000e | | | .CONST 0x007c,0x000e
02f8 007e 000f | ~ | .CONST 0x007e,0x000f
02fa 0080 0010 | | .CONST 0x0080,0x0010
02fc 0086 0011 | | .CONST 0x0086,0x0011
02fe 008d 0012 | | .CONST 0x008d,0x0012
0300 0092 0013 | | .CONST 0x0092,0x0013
0302 ; --------------------------------------------------------------------------------------
0302 ; Debug3 Subtable 0x2
0302 ; --------------------------------------------------------------------------------------
0302 000b 0007 | | .DBG3TAB 0x000b,0x0007
0304 009b ffff | | .CONST 0x009b,0xffff
0306 009d fffe | | .CONST 0x009d,0xfffe
0308 009f fffd | | .CONST 0x009f,0xfffd
030a 00a1 fffc | | .CONST 0x00a1,0xfffc
030c 00a3 fffb | | .CONST 0x00a3,0xfffb
030e 00a4 fffa | | .CONST 0x00a4,0xfffa
0310 00a5 fff9 | | .CONST 0x00a5,0xfff9
0312 00a6 fff8 | | .CONST 0x00a6,0xfff8
0314 00a7 fff7 | | .CONST 0x00a7,0xfff7
0316 00a8 fff6 | | .CONST 0x00a8,0xfff6
0318 00a9 fff5 | | .CONST 0x00a9,0xfff5
031a 00ab 0001 | | .CONST 0x00ab,0x0001
031c 00ba 0002 | | .CONST 0x00ba,0x0002
031e 00c5 0003 | | .CONST 0x00c5,0x0003
0320 00c9 0004 | | .CONST 0x00c9,0x0004
0322 00d0 0005 | | .CONST 0x00d0,0x0005
0324 00d4 0006 | | .CONST 0x00d4,0x0006
0326 00db 0007 | | .CONST 0x00db,0x0007
0328 ; --------------------------------------------------------------------------------------
0328 ; Debug3 Subtable 0x3
0328 ; --------------------------------------------------------------------------------------
0328 0001 0001 | | .DBG3TAB 0x0001,0x0001
032a 00f3 ffff | | .CONST 0x00f3,0xffff
032c 00f7 0001 | | .CONST 0x00f7,0x0001
032e ; --------------------------------------------------------------------------------------
032e ; Debug3 Subtable 0x4
032e ; --------------------------------------------------------------------------------------
032e 0000 0003 | | .DBG3TAB 0x0000,0x0003
0330 0113 0001 | | .CONST 0x0113,0x0001
0332 011f 0002 | | .CONST 0x011f,0x0002
0334 0123 0003 | # | .CONST 0x0123,0x0003
0336 ; --------------------------------------------------------------------------------------
0336 ; Debug3 Subtable 0x5
0336 ; --------------------------------------------------------------------------------------
0336 0002 0001 | | .DBG3TAB 0x0002,0x0001
0338 0133 ffff | 3 | .CONST 0x0133,0xffff
033a 0142 fffe | B | .CONST 0x0142,0xfffe
033c 0144 0001 | D | .CONST 0x0144,0x0001
033e ; --------------------------------------------------------------------------------------
033e ; Debug3 Subtable 0x6
033e ; --------------------------------------------------------------------------------------
033e 0001 0004 | | .DBG3TAB 0x0001,0x0004
0340 015b ffff | [ | .CONST 0x015b,0xffff
0342 015f 0001 | _ | .CONST 0x015f,0x0001
0344 0163 0002 | c | .CONST 0x0163,0x0002
0346 016a 0003 | j | .CONST 0x016a,0x0003
0348 0173 0004 | s | .CONST 0x0173,0x0004
034a 0000 0000 | | .BLANK 0000[0xb6]