|
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, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_03c8f4
└─⟦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 5900 |Y | .CONST 0x5900 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0200 | | .CONST 0x0200 ; 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 0035 | 5 | .CONST 0x0035 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0016 | | .CONST 0x0016 ; Number of locals
000b INIT_0008:
000b 4800 |H | Short_Literal 0x0
000c 4803 |H | Short_Literal 0x3
000d 029f 003b | ;| Declare_Subprogram INIT_0038,For_Call
000f 03fe | | Declare_Type Discrete,Defined,Visible
0010 029a 0063 | c| Declare_Subprogram INIT_0060,For_Outer_Call,Visible,Unelaborated
0012 4800 |H | Short_Literal 0x0
0013 48ff |H | Short_Literal 0xff
0014 00e3 | | Load_Encached Natural_Cache
0015 03f9 | | Declare_Type Discrete,Constrained,Visible
0016 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated
0018 029a 0093 | | Declare_Subprogram INIT_0090,For_Outer_Call,Visible,Unelaborated
001a 029a 00ab | | Declare_Subprogram INIT_00a8,For_Outer_Call,Visible,Unelaborated
001c 029a 00db | | Declare_Subprogram INIT_00d8,For_Outer_Call,Visible,Unelaborated
001e 029a 010b | | Declare_Subprogram INIT_0108,For_Outer_Call,Visible,Unelaborated
0020 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated
0022 029a 015b | [| Declare_Subprogram INIT_0158,For_Outer_Call,Visible,Unelaborated
0024 00bf | | Action Accept_Activation
0025 1d0e | | Execute_Immediate Reference_Lex_1,0xe
0026 00c7 | | Action Elaborate_Subprogram
0027 1d10 | | Execute_Immediate Reference_Lex_1,0x10
0028 00c7 | | Action Elaborate_Subprogram
0029 1d11 | | Execute_Immediate Reference_Lex_1,0x11
002a 00c7 | | Action Elaborate_Subprogram
002b 1d12 | | Execute_Immediate Reference_Lex_1,0x12
002c 00c7 | | Action Elaborate_Subprogram
002d 1d13 | | Execute_Immediate Reference_Lex_1,0x13
002e 00c7 | | Action Elaborate_Subprogram
002f 1d14 | | Execute_Immediate Reference_Lex_1,0x14
0030 00c7 | | Action Elaborate_Subprogram
0031 1d15 | | Execute_Immediate Reference_Lex_1,0x15
0032 00c7 | | Action Elaborate_Subprogram
0033 1d16 | | Execute_Immediate Reference_Lex_1,0x16
0034 00c7 | | Action Elaborate_Subprogram
0035 BODY_0008:
0035 00bc | | Action Signal_Activated
0036 00bb | | Action Signal_Completion
0037 0000 | | .XXX[0x1]
0038 ; --------------------------------------------------------------------------------------
0038 ; SUBPROGRAM
0038 ; --------------------------------------------------------------------------------------
0038 003b | ; | .CONST 0x003b ; Address of begin
0039 0004 | | .CONST 0x0004 ; Address of exception handler
003a 0001 | | .CONST 0x0001 ; Number of locals
003b BODY_0038:
003b INIT_0038:
003b 4607 |F | Jump_Case 0x8
003c 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
003d 7807 |x | Jump 0x45 ; case 0x1
003e 780a |x | Jump 0x49 ; case 0x2
003f 780e |x | Jump 0x4e ; case 0x3
0040 7811 |x | Jump 0x52 ; case 0x4
0041 7812 |x | Jump 0x54 ; case 0x5
0042 7813 |x | Jump 0x56 ; case 0x6
0043 7816 |x | Jump 0x5a ; case 0x7
0044 4302 |C | .XXX[0x1]
0045 00da | | Load_Top At_Offset_2
0046 0091 01b3 | | Action Push_String_Extended_Indexed,0x1b3 ; "ONE_WAY"
0048 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0049 00db | | Load_Top At_Offset_3
004a 00db | | Load_Top At_Offset_3
004b 00e0 | | Load_Encached Standard_Cache
004c 181b | | Execute Package,Field_Execute,Field_Number 0x1b
004d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
004e 00da | | Load_Top At_Offset_2
004f 00e0 | | Load_Encached Standard_Cache
0050 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0051 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
0052 00db | | Load_Top At_Offset_3
0053 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0054 00db | | Load_Top At_Offset_3
0055 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
0056 e20d | | Load 0x1,0xd
0057 00dc | | Load_Top At_Offset_4
0058 0267 | g | Execute Discrete,Predecessor
0059 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005a e20d | | Load 0x1,0xd
005b 00dc | | Load_Top At_Offset_4
005c 0268 | h | Execute Discrete,Successor
005d 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
005e 0000 0000 | | .XXX[0x2]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 006e | n | .CONST 0x006e ; Address of begin
0061 0004 | | .CONST 0x0004 ; Address of exception handler
0062 0004 | | .CONST 0x0004 ; Number of locals
0063 INIT_0060:
0063 e002 | | Load 0x0,0x2
0064 e003 | | Load 0x0,0x3
0065 e20d | | Load 0x1,0xd
0066 e004 | | Load 0x0,0x4
0067 1b53 | S | Execute Package,Field_Read,Field_Number 0x53
0068 0387 | | Declare_Variable Package
0069 00d8 | | Load_Top At_Offset_0
006a 020f | | Execute Module,Activate
006b e20d | | Load 0x1,0xd
006c 029f 0173 | s| Declare_Subprogram INIT_0170,For_Call
006e BODY_0060:
006e 00cf | | Action Mark_Auxiliary
006f 8404 | | Call 0x2,0x4
0070 00c9 | | Action Pop_Auxiliary_Loop
0071 7ffd | | Jump 0x6f
0072 0000 0000 | | .BLANK 0000[0x6]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b | { | .CONST 0x007b ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0001 | | .CONST 0x0001 ; Number of locals
007b BODY_0078:
007b INIT_0078:
007b 00da | | Load_Top At_Offset_2
007c 0c00 | | Execute_Immediate Greater_Equal,0x0
007d 6802 |h | Jump_Zero 0x80
007e 00da | | Load_Top At_Offset_2
007f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0080 00da | | Load_Top At_Offset_2
0081 4900 |I | Short_Literal 0x100
0082 0273 | s | Execute Discrete,Plus
0083 00d8 | | Load_Top At_Offset_0
0084 e20f | | Load 0x1,0xf
0085 0260 | ` | Execute Discrete,In_Type
0086 7001 |p | Jump_Nonzero 0x88
0087 0801 | | Execute_Immediate Raise,0x1
0088 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0089 0000 0000 | | .BLANK 0000[0x7]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093 | | .CONST 0x0093 ; Address of begin
0091 0004 | | .CONST 0x0004 ; Address of exception handler
0092 0001 | | .CONST 0x0001 ; Number of locals
0093 BODY_0090:
0093 INIT_0090:
0093 00da | | Load_Top At_Offset_2
0094 0d80 | | Execute_Immediate Less,-0x80
0095 6802 |h | Jump_Zero 0x98
0096 00da | | Load_Top At_Offset_2
0097 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0098 00da | | Load_Top At_Offset_2
0099 4f00 |O | Short_Literal -0x100
009a 0273 | s | Execute Discrete,Plus
009b 00d8 | | Load_Top At_Offset_0
009c e005 | | Load 0x0,0x5
009d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
009e 0260 | ` | Execute Discrete,In_Type
009f 7001 |p | Jump_Nonzero 0xa1
00a0 0801 | | Execute_Immediate Raise,0x1
00a1 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00a2 0000 0000 | | .BLANK 0000[0x6]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00be | | .CONST 0x00be ; Address of begin
00a9 0004 | | .CONST 0x0004 ; Address of exception handler
00aa 0004 | | .CONST 0x0004 ; Number of locals
00ab INIT_00a8:
00ab 4801 |H | Short_Literal 0x1
00ac 00db | | Load_Top At_Offset_3
00ad 01db | | Execute Vector,Length
00ae 00d8 | | Load_Top At_Offset_0
00af 00e2 | | Load_Encached Integer_Cache
00b0 0260 | ` | Execute Discrete,In_Type
00b1 7001 |p | Jump_Nonzero 0xb3
00b2 0801 | | Execute_Immediate Raise,0x1
00b3 e006 | | Load 0x0,0x6
00b4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00b5 035b | [ | Declare_Type Array,Constrained
00b6 0337 | 7 | Declare_Variable Array
00b7 00db | | Load_Top At_Offset_3
00b8 00d9 | | Load_Top At_Offset_1
00b9 01d4 | | Execute Vector,Structure_Write
00ba 00e2 | | Load_Encached Integer_Cache
00bb 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00bc 00e2 | | Load_Encached Integer_Cache
00bd 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00be BODY_00a8:
00be 00cf | | Action Mark_Auxiliary
00bf 00db | | Load_Top At_Offset_3
00c0 01da | | Execute Vector,Bounds
00c1 0264 | d | Execute Discrete,Below_Bound
00c2 7010 |p | Jump_Nonzero 0xd3
00c3 e403 | | Load 0x2,0x3
00c4 00d9 | | Load_Top At_Offset_1
00c5 e402 | | Load 0x2,0x2
00c6 01d7 | | Execute Vector,Field_Read
00c7 8210 | | Call 0x1,0x10
00c8 4802 |H | Short_Literal 0x2
00c9 e404 | | Load 0x2,0x4
00ca 026d | m | Execute Discrete,Exponentiate
00cb 0271 | q | Execute Discrete,Times
00cc 0273 | s | Execute Discrete,Plus
00cd c403 | | Store 0x2,0x3
00ce 00db | | Load_Top At_Offset_3
00cf 0a08 | | Execute_Immediate Plus,0x8
00d0 c404 | | Store 0x2,0x4
00d1 00c8 | | Action Pop_Auxiliary_Range
00d2 37f0 |7 | Loop_Decreasing 0xc3
00d3 00ce | | Action Pop_Auxiliary
00d4 00d9 | | Load_Top At_Offset_1
00d5 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
00d6 0000 0000 | | .XXX[0x2]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00eb | | .CONST 0x00eb ; Address of begin
00d9 0004 | | .CONST 0x0004 ; Address of exception handler
00da 0003 | | .CONST 0x0003 ; Number of locals
00db INIT_00d8:
00db 4801 |H | Short_Literal 0x1
00dc 00db | | Load_Top At_Offset_3
00dd 01db | | Execute Vector,Length
00de 00d8 | | Load_Top At_Offset_0
00df 00e2 | | Load_Encached Integer_Cache
00e0 0260 | ` | Execute Discrete,In_Type
00e1 7001 |p | Jump_Nonzero 0xe3
00e2 0801 | | Execute_Immediate Raise,0x1
00e3 00e9 | | Load_Encached String_Cache
00e4 035b | [ | Declare_Type Array,Constrained
00e5 0337 | 7 | Declare_Variable Array
00e6 00db | | Load_Top At_Offset_3
00e7 01dd | | Execute Vector,First
00e8 0aff | | Execute_Immediate Plus,-0x1
00e9 00e2 | | Load_Encached Integer_Cache
00ea 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00eb BODY_00d8:
00eb 00cf | | Action Mark_Auxiliary
00ec 00da | | Load_Top At_Offset_2
00ed 01d9 | | Execute Vector,Reverse_Bounds
00ee 0263 | c | Execute Discrete,Above_Bound
00ef 7012 |p | Jump_Nonzero 0x102
00f0 00db | | Load_Top At_Offset_3
00f1 00d9 | | Load_Top At_Offset_1
00f2 0273 | s | Execute Discrete,Plus
00f3 e5ff | | Load 0x2,-0x1
00f4 01d7 | | Execute Vector,Field_Read
00f5 8210 | | Call 0x1,0x10
00f6 487f |H | Short_Literal 0x7f
00f7 0279 | y | Execute Discrete,And
00f8 00d8 | | Load_Top At_Offset_0
00f9 00e8 | | Load_Encached Character_Cache
00fa 0260 | ` | Execute Discrete,In_Type
00fb 7001 |p | Jump_Nonzero 0xfd
00fc 0801 | | Execute_Immediate Raise,0x1
00fd 00d9 | | Load_Top At_Offset_1
00fe e402 | | Load 0x2,0x2
00ff 01d6 | | Execute Vector,Field_Write
0100 00c8 | | Action Pop_Auxiliary_Range
0101 3fee |? | Loop_Increasing 0xf0
0102 00ce | | Action Pop_Auxiliary
0103 00d9 | | Load_Top At_Offset_1
0104 00e9 | | Load_Encached String_Cache
0105 01c6 | | Execute Vector,Convert_To_Formal
0106 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0107 0000 | | .XXX[0x1]
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 0113 | | .CONST 0x0113 ; Address of begin
0109 0004 | | .CONST 0x0004 ; Address of exception handler
010a 0002 | | .CONST 0x0002 ; Number of locals
010b INIT_0108:
010b 00da | | Load_Top At_Offset_2
010c 01dd | | Execute Vector,First
010d 00db | | Load_Top At_Offset_3
010e 01dc | | Execute Vector,Last
010f e006 | | Load 0x0,0x6
0110 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0111 035b | [ | Declare_Type Array,Constrained
0112 0337 | 7 | Declare_Variable Array
0113 BODY_0108:
0113 00cf | | Action Mark_Auxiliary
0114 e5ff | | Load 0x2,-0x1
0115 01d9 | | Execute Vector,Reverse_Bounds
0116 0263 | c | Execute Discrete,Above_Bound
0117 700e |p | Jump_Nonzero 0x126
0118 00d8 | | Load_Top At_Offset_0
0119 e5ff | | Load 0x2,-0x1
011a 01d7 | | Execute Vector,Field_Read
011b 00d8 | | Load_Top At_Offset_0
011c e20f | | Load 0x1,0xf
011d 0260 | ` | Execute Discrete,In_Type
011e 7001 |p | Jump_Nonzero 0x120
011f 0801 | | Execute_Immediate Raise,0x1
0120 8211 | | Call 0x1,0x11
0121 00d9 | | Load_Top At_Offset_1
0122 e402 | | Load 0x2,0x2
0123 01d6 | | Execute Vector,Field_Write
0124 00c8 | | Action Pop_Auxiliary_Range
0125 3ff2 |? | Loop_Increasing 0x118
0126 00ce | | Action Pop_Auxiliary
0127 00d8 | | Load_Top At_Offset_0
0128 e005 | | Load 0x0,0x5
0129 1b12 | | Execute Package,Field_Read,Field_Number 0x12
012a 01c6 | | Execute Vector,Convert_To_Formal
012b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012c 0000 0000 | | .BLANK 0000[0x4]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0139 | 9 | .CONST 0x0139 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0002 | | .CONST 0x0002 ; Number of locals
0133 INIT_0130:
0133 4800 |H | Short_Literal 0x0
0134 4801 |H | Short_Literal 0x1
0135 e007 | | Load 0x0,0x7
0136 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0137 035b | [ | Declare_Type Array,Constrained
0138 0337 | 7 | Declare_Variable Array
0139 BODY_0130:
0139 00db | | Load_Top At_Offset_3
013a 09f8 | | Execute_Immediate Binary_Scale,-0x8
013b 00d8 | | Load_Top At_Offset_0
013c e005 | | Load 0x0,0x5
013d 1b11 | | Execute Package,Field_Read,Field_Number 0x11
013e 0260 | ` | Execute Discrete,In_Type
013f 7001 |p | Jump_Nonzero 0x141
0140 0801 | | Execute_Immediate Raise,0x1
0141 4800 |H | Short_Literal 0x0
0142 00da | | Load_Top At_Offset_2
0143 01d6 | | Execute Vector,Field_Write
0144 00db | | Load_Top At_Offset_3
0145 48ff |H | Short_Literal 0xff
0146 0279 | y | Execute Discrete,And
0147 00d8 | | Load_Top At_Offset_0
0148 e005 | | Load 0x0,0x5
0149 1b11 | | Execute Package,Field_Read,Field_Number 0x11
014a 0260 | ` | Execute Discrete,In_Type
014b 7001 |p | Jump_Nonzero 0x14d
014c 0801 | | Execute_Immediate Raise,0x1
014d 4801 |H | Short_Literal 0x1
014e 00da | | Load_Top At_Offset_2
014f 01d6 | | Execute Vector,Field_Write
0150 00d8 | | Load_Top At_Offset_0
0151 e007 | | Load 0x0,0x7
0152 1b15 | | Execute Package,Field_Read,Field_Number 0x15
0153 01c6 | | Execute Vector,Convert_To_Formal
0154 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0155 0000 0000 | | .XXX[0x3]
0157 0000 | |
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b | [ | .CONST 0x015b ; Address of begin
0159 0004 | | .CONST 0x0004 ; Address of exception handler
015a 0001 | | .CONST 0x0001 ; Number of locals
015b BODY_0158:
015b INIT_0158:
015b 00da | | Load_Top At_Offset_2
015c 01dd | | Execute Vector,First
015d 00db | | Load_Top At_Offset_3
015e 01d7 | | Execute Vector,Field_Read
015f 0908 | | Execute_Immediate Binary_Scale,0x8
0160 00db | | Load_Top At_Offset_3
0161 01dd | | Execute Vector,First
0162 0a01 | | Execute_Immediate Plus,0x1
0163 e5ff | | Load 0x2,-0x1
0164 01d7 | | Execute Vector,Field_Read
0165 0273 | s | Execute Discrete,Plus
0166 00d8 | | Load_Top At_Offset_0
0167 00e3 | | Load_Encached Natural_Cache
0168 0260 | ` | Execute Discrete,In_Type
0169 7001 |p | Jump_Nonzero 0x16b
016a 0801 | | Execute_Immediate Raise,0x1
016b 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
016c 0000 0000 | | .BLANK 0000[0x4]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173 | s | .CONST 0x0173 ; Address of begin
0171 01a1 | | .CONST 0x01a1 ; Address of exception handler
0172 0001 | | .CONST 0x0001 ; Number of locals
0173 BODY_0170:
0173 INIT_0170:
0173 0092 01b7 | | Action Push_String_Extended,0x1b7 ; "Enter desired test_level:)"
0175 e004 | | Load 0x0,0x4
0176 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
0177 0092 01b8 | | Action Push_String_Extended,0x1b8 ; "Valid values are: "
0179 e004 | | Load 0x0,0x4
017a 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
017b 00cf | | Action Mark_Auxiliary
017c e20d | | Load 0x1,0xd
017d 0265 | e | Execute Discrete,Reverse_Bounds
017e 0007 | | Action Break_Optional
017f 00d8 | | Load_Top At_Offset_0
0180 e20d | | Load 0x1,0xd
0181 011c | | Execute Any,Convert_Unchecked
0182 1c01 | | Execute_Immediate Run_Utility,0x1
0183 0092 01b9 | | Action Push_String_Extended,0x1b9 ; " "
0185 01cc | | Execute Vector,Catenate
0186 e004 | | Load 0x0,0x4
0187 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
0188 00c8 | | Action Pop_Auxiliary_Range
0189 3ff5 |? | Loop_Increasing 0x17f
018a 00ce | | Action Pop_Auxiliary
018b 0092 01ba | | Action Push_String_Extended,0x1ba ; ": "
018d e004 | | Load 0x0,0x4
018e 184b | K | Execute Package,Field_Execute,Field_Number 0x4b
018f e402 | | Load 0x2,0x2
0190 1b0f | | Execute Package,Field_Read,Field_Number 0xf
0191 e402 | | Load 0x2,0x2
0192 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0193 c403 | | Store 0x2,0x3
0194 e004 | | Load 0x0,0x4
0195 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
0196 0e01 | | Execute_Immediate Not_Equal,0x1
0197 6803 |h | Jump_Zero 0x19b
0198 4801 |H | Short_Literal 0x1
0199 e004 | | Load 0x0,0x4
019a 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
019b 4801 |H | Short_Literal 0x1
019c e004 | | Load 0x0,0x4
019d 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
019e e403 | | Load 0x2,0x3
019f 00cb | | Action Pop_Block_With_Result
01a0 00ca | | Action Exit_Nullary_Function
01a1 TRAP_0170:
01a1 010e | | Execute Exception,Is_Constraint_Error
01a2 680f |h | Jump_Zero 0x1b2
01a3 e004 | | Load 0x0,0x4
01a4 183f | ? | Execute Package,Field_Execute,Field_Number 0x3f
01a5 0e01 | | Execute_Immediate Not_Equal,0x1
01a6 6803 |h | Jump_Zero 0x1aa
01a7 4801 |H | Short_Literal 0x1
01a8 e004 | | Load 0x0,0x4
01a9 182f | / | Execute Package,Field_Execute,Field_Number 0x2f
01aa 4801 |H | Short_Literal 0x1
01ab e004 | | Load 0x0,0x4
01ac 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
01ad 0092 01bb | | Action Push_String_Extended,0x1bb ; "Invalid input, try again"
01af e004 | | Load 0x0,0x4
01b0 184f | O | Execute Package,Field_Execute,Field_Number 0x4f
01b1 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01b2 0100 | | Execute Exception,Raise
01b3 ; --------------------------------------------------------------------------------------
01b3 ; STRING TABLE
01b3 ; --------------------------------------------------------------------------------------
01b3 0014 | | .STRTAB 0x0014->0x01bd ; "ONE_WAY"
01b4 0019 | | .STRTAB 0x0019->0x01c0 ; "TWO_WAY"
01b5 001e | | .STRTAB 0x001e->0x01c4 ; "ONE_WAY_REPEATING"
01b6 002d | - | .STRTAB 0x002d->0x01cc ; "TWO_WAY_REPEATING"
01b7 003c | < | .STRTAB 0x003c->0x01d5 ; "Enter desired test_level:)"
01b8 0054 | T | .STRTAB 0x0054->0x01e2 ; "Valid values are: "
01b9 0064 | d | .STRTAB 0x0064->0x01eb ; " "
01ba 0063 | c | .STRTAB 0x0063->0x01eb ; ": "
01bb 0063 | c | .STRTAB 0x0063->0x01ec ; "Invalid input, try again"
01bc 0079 | y | .STREND 0x0079->0x01f8
01bd 4f4e 455f |ONE_| .STRTAB_STRINGS
01f9 0000 0000 | | .BLANK 0000[0x7]
0200 ; --------------------------------------------------------------------------------------
0200 ; Debug Table
0200 ; --------------------------------------------------------------------------------------
0200 0004 0002 | | .DEBUG4 0x0004,0x0002,0xcbda,0x0000,0x0001,0x0000
0206 0004 3fff | ? | .XXX[0x8]
0208 8007 e1f8 | |
020a 0000 0040 | @|
020c 0000 0001 | |
020e 0000 0000 | | .BLANK 0000[0x7]
0215 01a0 0000 | | .XXX[0x12]
0217 0000 0000 | |
0219 0221 0000 | ! |
021b 0000 0000 | |
021d b79f 0000 | |
021f 0077 0000 | w |
0221 0000 3fcc | ? |
0223 0000 0000 | |
0225 0000 0100 | |
0227 0000 0000 | | .BLANK 0000[0xf]
0236 0db9 ff40 | @| .XXX[0x6]
0238 0000 0000 | |
023a 0000 1be0 | |
023c 0000 0000 | | .BLANK 0000[0xb]
0247 9760 0000 | ` | .XXX[0xa]
0249 0000 0000 | |
024b 000f f000 | |
024d 0000 0000 | |
024f 0000 1f00 | |
0251 0000 0000 | | .BLANK 0000[0x8]
0259 0006 0800 | | .XXX[0xc]
025b 0000 0000 | |
025d 0003 6e00 | n |
025f 0000 007f | |
0261 8000 0000 | |
0263 f800 0002 | |
0265 0000 0000 | | .BLANK 0000[0x9]
026e 003a a800 | : | .XXX[0x2]
0270 0000 0000 | | .BLANK 0000[0x5]
0275 03fc c000 | | .XXX[0x5]
0277 0017 c000 | |
0279 0010 | |
027a 0000 0000 | | .BLANK 0000[0x9]
0283 0228 8000 | ( | .XXX[0x2]
0285 0000 0000 | | .BLANK 0000[0x4]
0289 08fc dfe0 | | .XXX[0x4]
028b 0000 013e | >|
028d 0000 0000 | | .BLANK 0000[0xb]
0298 13de | | .XXX[0x1]
0299 0000 0000 | | .BLANK 0000[0x6]
029f ff30 0000 | 0 | .XXX[0x5]
02a1 09f0 0000 | |
02a3 0400 | |
02a4 0000 0000 | | .BLANK 0000[0xf]
02b3 b3c7 fd00 | | .XXX[0x6]
02b5 0000 0000 | |
02b7 0000 a680 | |
02b9 0000 0000 | | .BLANK 0000[0xa]
02c3 0006 4480 | D | .XXX[0x2]
02c5 0000 0000 | | .BLANK 0000[0x4]
02c9 ec00 0000 | | .XXX[0x5]
02cb 0000 0003 | |
02cd 3402 |4 |
02ce 0000 0000 | | .BLANK 0000[0x8]
02d6 0037 5800 | 7X | .XXX[0xc]
02d8 004c 2800 | L( |
02da 002c f000 | , |
02dc 0000 01fe | |
02de 6000 0019 |` |
02e0 a000 0004 | |
02e2 0000 0000 | | .BLANK 0000[0x9]
02eb 01e4 6000 | ` | .XXX[0x2]
02ed 0000 0000 | | .BLANK 0000[0x4]
02f1 0167 8ff3 | g | .XXX[0x6]
02f3 0000 00ed | |
02f5 0000 0020 | |
02f7 0000 0000 | | .BLANK 0000[0x9]
0300 1070 | p | .XXX[0x1]
0301 0000 0000 | | .BLANK 0000[0x5]
0306 0b3c 7f98 | < | .XXX[0x6]
0308 0000 0868 | h|
030a 0000 0100 | |
030c 0000 0000 | | .BLANK 0000[0x9]
0315 8de8 | | .XXX[0x1]
0316 0000 0000 | | .BLANK 0000[0x5]
031b 59e3 fcc0 |Y | .XXX[0x6]
031d 0000 4b40 | K@|
031f 0000 0800 | |
0321 0000 0000 | | .BLANK 0000[0xe]
032f 0002 cf1f | | .XXX[0x7]
0331 ee00 0000 | |
0333 0000 0000 | |
0335 1200 | |
0336 0000 0000 | | .BLANK 0000[0x8]
033e 0028 ae00 | ( | .XXX[0xd]
0340 0000 0000 | |
0342 0019 1200 | |
0344 0000 00ff | |
0346 0000 0000 | |
0348 9000 0000 | |
034a 4000 |@ |
034b 0000 0000 | | .BLANK 0000[0x8]
0353 015a 4000 | Z@ | .XXX[0x2]
0355 0000 0000 | | .BLANK 0000[0x5]
035a 07f8 0000 | | .XXX[0x5]
035c 0006 8000 | |
035e 0010 | |
035f 0000 0000 | | .BLANK 0000[0x9]
0368 0b78 8000 | x | .XXX[0x2]
036a 0000 0000 | | .BLANK 0000[0x5]
036f 3fc0 0000 |? | .XXX[0x5]
0371 00b4 0000 | |
0373 0080 | |
0374 0000 0000 | | .BLANK 0000[0x9]
037d 60f8 |` | .XXX[0x1]
037e 0000 0000 | | .BLANK 0000[0x6]
0384 0580 0000 | | .XXX[0x6]
0386 09a0 0000 | |
0388 0000 2080 | |
038a 0000 0000 | | .BLANK 0000[0x7]
0391 0003 3160 | 1`| .XXX[0x4]
0393 0004 2b20 | + |
0395 0000 0000 | | .BLANK 0000[0x4]
0399 2c00 0000 |, | .XXX[0x6]
039b 4d00 0000 |M |
039d 0002 0600 | |
039f 0000 0000 | | .BLANK 0000[0x7]
03a6 001a d800 | | .XXX[0xe]
03a8 001e bf00 | |
03aa 0000 0000 | |
03ac 0000 0001 | |
03ae 6000 0002 |` |
03b0 6800 0000 |h |
03b2 0018 4000 | @ |
03b4 0000 0000 | | .BLANK 0000[0x9]
03bd 00e1 2800 | ( | .XXX[0xb]
03bf 0000 0000 | |
03c1 0000 03fc | |
03c3 0000 0013 | |
03c5 4000 0000 |@ |
03c7 4000 |@ |
03c8 0000 0000 | | .BLANK 0000[0x8]
03d0 075c 8000 | \ | .XXX[0xc]
03d2 0000 0000 | |
03d4 06b6 0000 | |
03d6 0000 1fe0 | |
03d8 0000 009c | |
03da 0000 0010 | |
03dc 0000 0000 | | .BLANK 0000[0x10]
03ec ff00 0000 | | .XXX[0x5]
03ee 04d0 0000 | |
03f0 0080 | |
03f1 0000 0000 | | .BLANK 0000[0x8]
03f9 0002 00c0 | | .XXX[0x7]
03fb 0000 0000 | |
03fd 0001 98b0 | |
03ff 0000 | |