|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 DFS Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 DFS Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800)
Types: SEG
Notes: 5811_R1K_CODE
Names: »461843.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »461843.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »461843.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »461843.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »461843.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »461843.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 01f0 | | .CONST 0x01f0 ; 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,0x023a,0x8000,0x0000,0x0036,0x5684,0x0000,0x0007
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 0043 | C | .CONST 0x0043 ; Address of begin
0019 00a3 | | .CONST 0x00a3 ; Address of exception handler
001a 0010 | | .CONST 0x0010 ; Number of locals
001b INIT_0018:
001b e001 | | Load 0x0,0x1 ; Debug Table 0x1 = .DEBUG 0x001b,0x023c,0xa801,0x0002,0x0036,0x5684,0x0000,0x0007
; Debug Table 0x1.0x0 = 0x1b,0xffff
; Debug Table 0x1.0x1 = 0x1b,0xfffe
; Debug Table 0x1.0x2 = 0x1b,0xfffd
; Debug Table 0x1.0x3 = 0x1b,0xfffc
; Debug Table 0x1.0x4 = 0x1b,0xfffb
001c 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
001d 0322 | " | Declare_Variable Record
001e e402 | | Load 0x2,0x2
001f 1c00 | | Execute_Immediate Run_Utility,0x0
0020 e5fe | | Load 0x2,-0x2 ; Debug Table 0x1.0x5 = 0x20,0xfffa
0021 e002 | | Load 0x0,0x2
0022 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0023 1c08 | | Execute_Immediate Run_Utility,0x8
0024 e403 | | Load 0x2,0x3
0025 1c00 | | Execute_Immediate Run_Utility,0x0
0026 e001 | | Load 0x0,0x1 ; Debug Table 0x1.0x6 = 0x26,0xfff9
0027 1b33 | 3 | Execute Package,Field_Read,Field_Number 0x33
0028 0322 | " | Declare_Variable Record
0029 e404 | | Load 0x2,0x4
002a 1c00 | | Execute_Immediate Run_Utility,0x0
002b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x1.0x7 = 0x2b,0xfff8
002c 0601 | | Execute_Immediate Set_Value_Unchecked,0x1
002d e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x8 = 0x2d,0xfff7
002e 1925 | % | Execute Package,Field_Reference,Field_Number 0x25
002f e002 | | Load 0x0,0x2 ; Debug Table 0x1.0x9 = 0x2f,0xfff6
0030 1924 | $ | Execute Package,Field_Reference,Field_Number 0x24
0031 e002 | | Load 0x0,0x2 ; Debug Table 0x1.0xa = 0x31,0xfff5
0032 1918 | | Execute Package,Field_Reference,Field_Number 0x18
0033 e003 | | Load 0x0,0x3 ; Debug Table 0x1.0xb = 0x33,0xfff4
0034 1912 | | Execute Package,Field_Reference,Field_Number 0x12
0035 029f 00ab | | Declare_Subprogram INIT_00a8,For_Call ; Debug Table 0x1.0xc = 0x35,0xfff3
0037 029f 00c3 | | Declare_Subprogram INIT_00c0,For_Call ; Debug Table 0x1.0xd = 0x37,0xfff2
0039 029f 00f3 | | Declare_Subprogram INIT_00f0,For_Call ; Debug Table 0x1.0xe = 0x39,0xfff1
003b 029f 0133 | 3| Declare_Subprogram INIT_0130,For_Call ; Debug Table 0x1.0xf = 0x3b,0xfff0
003d 029f 017b | {| Declare_Subprogram INIT_0178,For_Call ; Debug Table 0x1.0x10 = 0x3d,0xffef
003f 029f 019b | | Declare_Subprogram INIT_0198,For_Call ; Debug Table 0x1.0x11 = 0x3f,0xffee
0041 029f 01c3 | | Declare_Subprogram INIT_01c0,For_Call
0043 BODY_0018:
0043 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x12 = 0x43,0x1
0044 e5fc | | Load 0x2,-0x4
0045 e001 | | Load 0x0,0x1
0046 1828 | ( | Execute Package,Field_Execute,Field_Number 0x28
0047 00d1 | | Pop_Control Pop_Count_1
0048 8410 | | Call 0x2,0x10 ; Debug Table 0x1.0x13 = 0x48,0x2
0049 7854 |xT | Jump 0x9e
004a e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x14 = 0x4a,0x4
004b 4820 |H | Short_Literal 0x20
004c 4809 |H | Short_Literal 0x9
004d 8407 | | Call 0x2,0x7
004e 00d1 | | Pop_Control Pop_Count_1
004f e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x15 = 0x4f,0x5
0050 e001 | | Load 0x0,0x1
0051 182e | . | Execute Package,Field_Execute,Field_Number 0x2e
0052 4603 |F | Jump_Case 0x4
0053 7803 |x | Jump 0x57 ; case 0x0
0054 7808 |x | Jump 0x5d ; case 0x1
0055 780d |x | Jump 0x63 ; case 0x2
0056 7812 |x | Jump 0x69 ; case 0x3
0057 e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x16 = 0x57,0x6
0058 0092 01d5 | | Action Push_String_Extended,0x1d5 ; "--- "
005a 8408 | | Call 0x2,0x8
005b 00d1 | | Pop_Control Pop_Count_1
005c 7811 |x | Jump 0x6e
005d e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x17 = 0x5d,0x7
005e 0092 01d6 | | Action Push_String_Extended,0x1d6 ; "+++ "
0060 8408 | | Call 0x2,0x8
0061 00d1 | | Pop_Control Pop_Count_1
0062 780b |x | Jump 0x6e
0063 e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x18 = 0x63,0x8
0064 0092 01d7 | | Action Push_String_Extended,0x1d7 ; "!!! "
0066 8408 | | Call 0x2,0x8
0067 00d1 | | Pop_Control Pop_Count_1
0068 7805 |x | Jump 0x6e
0069 e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x19 = 0x69,0x9
006a 0092 01d8 | | Action Push_String_Extended,0x1d8 ; "*** "
006c 8408 | | Call 0x2,0x8
006d 00d1 | | Pop_Control Pop_Count_1
006e e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x1a = 0x6e,0xa
006f e001 | | Load 0x0,0x1
0070 182d | - | Execute Package,Field_Execute,Field_Number 0x2d
0071 840f | | Call 0x2,0xf
0072 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x1b = 0x72,0xb
0073 e001 | | Load 0x0,0x1
0074 182c | , | Execute Package,Field_Execute,Field_Number 0x2c
0075 840f | | Call 0x2,0xf
0076 e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x1c = 0x76,0xc
0077 e001 | | Load 0x0,0x1
0078 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0079 840e | | Call 0x2,0xe
007a 840a | | Call 0x2,0xa ; Debug Table 0x1.0x1d = 0x7a,0xd
007b e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x1e = 0x7b,0xe
007c e402 | | Load 0x2,0x2
007d e001 | | Load 0x0,0x1
007e 1834 | 4 | Execute Package,Field_Execute,Field_Number 0x34
007f 00d1 | | Pop_Control Pop_Count_1
0080 7815 |x | Jump 0x96
0081 e403 | | Load 0x2,0x3 ; Debug Table 0x1.0x1f = 0x81,0x10
0082 4820 |H | Short_Literal 0x20
0083 480d |H | Short_Literal 0xd
0084 8407 | | Call 0x2,0x7
0085 00d1 | | Pop_Control Pop_Count_1
0086 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x20 = 0x86,0x11
0087 e001 | | Load 0x0,0x1
0088 1837 | 7 | Execute Package,Field_Execute,Field_Number 0x37
0089 840e | | Call 0x2,0xe
008a 0092 01d9 | | Action Push_String_Extended,0x1d9 ; " => "
; Debug Table 0x1.0x21 = 0x8a,0x12
008c 840e | | Call 0x2,0xe
008d e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x22 = 0x8d,0x13
008e e001 | | Load 0x0,0x1
008f 1838 | 8 | Execute Package,Field_Execute,Field_Number 0x38
0090 840e | | Call 0x2,0xe
0091 840a | | Call 0x2,0xa ; Debug Table 0x1.0x23 = 0x91,0x14
0092 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x24 = 0x92,0x15
0093 e001 | | Load 0x0,0x1
0094 1835 | 5 | Execute Package,Field_Execute,Field_Number 0x35
0095 00d1 | | Pop_Control Pop_Count_1
0096 e404 | | Load 0x2,0x4 ; Debug Table 0x1.0x25 = 0x96,0xf
0097 e001 | | Load 0x0,0x1
0098 1836 | 6 | Execute Package,Field_Execute,Field_Number 0x36
0099 6fe7 |o | Jump_Zero 0x81
009a e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x26 = 0x9a,0x16
009b e001 | | Load 0x0,0x1
009c 1829 | ) | Execute Package,Field_Execute,Field_Number 0x29
009d 00d1 | | Pop_Control Pop_Count_1
009e e402 | | Load 0x2,0x2 ; Debug Table 0x1.0x27 = 0x9e,0x3
009f e001 | | Load 0x0,0x1
00a0 182a | * | Execute Package,Field_Execute,Field_Number 0x2a
00a1 6fa8 |o | Jump_Zero 0x4a
00a2 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00a3 TRAP_0018:
00a3 0007 | | Action Break_Optional
00a4 840a | | Call 0x2,0xa ; Debug Table 0x1.0x28 = 0xa4,0x17
00a5 4505 |E | Exit_Suprogram New_Top_Offset 0x5
00a6 0000 0000 | | .XXX[0x2]
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab | | .CONST 0x00ab ; Address of begin
00a9 00b8 | | .CONST 0x00b8 ; Address of exception handler
00aa 0001 | | .CONST 0x0001 ; Number of locals
00ab BODY_00a8:
00ab INIT_00a8:
00ab e403 | | Load 0x2,0x3 ; Debug Table 0x2 = .DEBUG 0x00ab,0x0290,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0099
; Debug Table 0x2.0x0 = 0xab,0x1
00ac 8406 | | Call 0x2,0x6
00ad 0c0e | | Execute_Immediate Greater_Equal,0xe
00ae 6808 |h | Jump_Zero 0xb7
00af e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x1 = 0xaf,0x2
00b0 e002 | | Load 0x0,0x2
00b1 1813 | | Execute Package,Field_Execute,Field_Number 0x13
00b2 85fd | | Call 0x2,-0x3
00b3 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x2 = 0xb3,0x3
00b4 e002 | | Load 0x0,0x2
00b5 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00b6 00d1 | | Pop_Control Pop_Count_1
00b7 4501 |E | Exit_Suprogram New_Top_Offset 0x1
00b8 TRAP_00a8:
00b8 0007 | | Action Break_Optional
00b9 4501 |E | Exit_Suprogram New_Top_Offset 0x1 ; Debug Table 0x2.0x3 = 0xb9,0x4
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00cb | | .CONST 0x00cb ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0002 | | .CONST 0x0002 ; Number of locals
00c3 INIT_00c0:
00c3 e7ff | | Load 0x3,-0x1 ; Debug Table 0x3 = .DEBUG 0x00c3,0x029a,0x0802,0x0002,0x0036,0x58f4,0x0000,0x00c0
; Debug Table 0x3.0x0 = 0xc3,0xffff
00c4 01dd | | Execute Vector,First
00c5 e7fe | | Load 0x3,-0x2
00c6 0273 | s | Execute Discrete,Plus
00c7 0248 | H | Execute Discrete,Check_In_Integer
00c8 0aff | | Execute_Immediate Plus,-0x1
00c9 00e3 | | Load_Encached Natural_Cache
00ca 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00cb BODY_00c0:
00cb e7ff | | Load 0x3,-0x1 ; Debug Table 0x3.0x1 = 0xcb,0x1
00cc 01dd | | Execute Vector,First
00cd e602 | | Load 0x3,0x2
00ce 0264 | d | Execute Discrete,Below_Bound
00cf 700e |p | Jump_Nonzero 0xde
00d0 e004 | | Load 0x0,0x4 ; Debug Table 0x3.0x2 = 0xd0,0x2
00d1 1b12 | | Execute Package,Field_Read,Field_Number 0x12
00d2 e604 | | Load 0x3,0x4
00d3 e7ff | | Load 0x3,-0x1
00d4 01d7 | | Execute Vector,Field_Read
00d5 8409 | | Call 0x2,0x9
00d6 0b01 | | Execute_Immediate Case_Compare,0x1
00d7 7004 |p | Jump_Nonzero 0xdc
00d8 e604 | | Load 0x3,0x4 ; Debug Table 0x3.0x3 = 0xd8,0x4
00d9 00e3 | | Load_Encached Natural_Cache
00da 025b | [ | Execute Discrete,Check_In_Type
00db 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00dc 00d1 | | Pop_Control Pop_Count_1
00dd 37f2 |7 | Loop_Decreasing 0xd0
00de e7fe | | Load 0x3,-0x2 ; Debug Table 0x3.0x4 = 0xde,0x5
00df e5fe | | Load 0x2,-0x2
00e0 0af3 | | Execute_Immediate Plus,-0xd
00e1 027b | { | Execute Discrete,Greater_Equal
00e2 6802 |h | Jump_Zero 0xe5
00e3 e602 | | Load 0x3,0x2 ; Debug Table 0x3.0x5 = 0xe3,0x6
00e4 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00e5 e7ff | | Load 0x3,-0x1 ; Debug Table 0x3.0x6 = 0xe5,0x7
00e6 01dd | | Execute Vector,First
00e7 0aff | | Execute_Immediate Plus,-0x1
00e8 00e3 | | Load_Encached Natural_Cache
00e9 025b | [ | Execute Discrete,Check_In_Type
00ea 4402 |D | Exit_Subprogram With_Value,New_Top_Offset 0x2
00eb 0000 0000 | | .BLANK 0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 0101 | | .CONST 0x0101 ; Address of begin
00f1 0004 | | .CONST 0x0004 ; Address of exception handler
00f2 0003 | | .CONST 0x0003 ; Number of locals
00f3 INIT_00f0:
00f3 e7ff | | Load 0x3,-0x1 ; Debug Table 0x4 = .DEBUG 0x00f3,0x02aa,0x0802,0x0002,0x0036,0x58f4,0x0000,0x0119
; Debug Table 0x4.0x0 = 0xf3,0xffff
00f4 01dd | | Execute Vector,First
00f5 00e3 | | Load_Encached Natural_Cache
00f6 03ec | | Declare_Variable Discrete,With_Value,With_Constraint
00f7 e5fe | | Load 0x2,-0x2 ; Debug Table 0x4.0x1 = 0xf7,0xfffe
00f8 e403 | | Load 0x2,0x3
00f9 8406 | | Call 0x2,0x6
00fa 0272 | r | Execute Discrete,Minus
00fb 00e3 | | Load_Encached Natural_Cache
00fc 025b | [ | Execute Discrete,Check_In_Type
00fd e7ff | | Load 0x3,-0x1
00fe 840b | | Call 0x2,0xb
00ff 00e3 | | Load_Encached Natural_Cache
0100 03f1 | | Declare_Variable Discrete,With_Value
0101 BODY_00f0:
0101 e403 | | Load 0x2,0x3 ; Debug Table 0x4.0x2 = 0x101,0x1
0102 e002 | | Load 0x0,0x2
0103 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0104 e602 | | Load 0x3,0x2
0105 e603 | | Load 0x3,0x3
0106 e7ff | | Load 0x3,-0x1
0107 01cf | | Execute Vector,Slice_Read
0108 01cc | | Execute Vector,Catenate
0109 85fd | | Call 0x2,-0x3
010a e403 | | Load 0x2,0x3 ; Debug Table 0x4.0x3 = 0x10a,0x2
010b e002 | | Load 0x0,0x2
010c 1816 | | Execute Package,Field_Execute,Field_Number 0x16
010d 00d1 | | Pop_Control Pop_Count_1
010e e403 | | Load 0x2,0x3 ; Debug Table 0x4.0x4 = 0x10e,0x3
010f 4820 |H | Short_Literal 0x20
0110 480d |H | Short_Literal 0xd
0111 8407 | | Call 0x2,0x7
0112 00d1 | | Pop_Control Pop_Count_1
0113 e403 | | Load 0x2,0x3 ; Debug Table 0x4.0x5 = 0x113,0x4
0114 8406 | | Call 0x2,0x6
0115 e7ff | | Load 0x3,-0x1
0116 01dc | | Execute Vector,Last
0117 0273 | s | Execute Discrete,Plus
0118 0248 | H | Execute Discrete,Check_In_Integer
0119 e603 | | Load 0x3,0x3
011a 0272 | r | Execute Discrete,Minus
011b e5fe | | Load 0x2,-0x2
011c 027b | { | Execute Discrete,Greater_Equal
011d 6809 |h | Jump_Zero 0x127
011e e603 | | Load 0x3,0x3 ; Debug Table 0x4.0x6 = 0x11e,0x5
011f 0a01 | | Execute_Immediate Plus,0x1
0120 0248 | H | Execute Discrete,Check_In_Integer
0121 e7ff | | Load 0x3,-0x1
0122 01dc | | Execute Vector,Last
0123 e7ff | | Load 0x3,-0x1
0124 01cf | | Execute Vector,Slice_Read
0125 840c | | Call 0x2,0xc
0126 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0127 e603 | | Load 0x3,0x3 ; Debug Table 0x4.0x7 = 0x127,0x6
0128 0a01 | | Execute_Immediate Plus,0x1
0129 0248 | H | Execute Discrete,Check_In_Integer
012a e7ff | | Load 0x3,-0x1
012b 01dc | | Execute Vector,Last
012c e7ff | | Load 0x3,-0x1
012d 01cf | | Execute Vector,Slice_Read
012e 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
012f 0000 | | .XXX[0x1]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133 | 3 | .CONST 0x0133 ; Address of begin
0131 0004 | | .CONST 0x0004 ; Address of exception handler
0132 0001 | | .CONST 0x0001 ; Number of locals
0133 BODY_0130:
0133 INIT_0130:
0133 e7ff | | Load 0x3,-0x1 ; Debug Table 0x5 = .DEBUG 0x0133,0x02bc,0x0802,0x0002,0x0036,0x58f4,0x0000,0x018d
; Debug Table 0x5.0x0 = 0x133,0x1
0134 01d9 | | Execute Vector,Reverse_Bounds
0135 0263 | c | Execute Discrete,Above_Bound
0136 703f |p? | Jump_Nonzero 0x176
0137 e603 | | Load 0x3,0x3 ; Debug Table 0x5.0x1 = 0x137,0x2
0138 e7ff | | Load 0x3,-0x1
0139 01d7 | | Execute Vector,Field_Read
013a 00d8 | | Load_Top At_Offset_0
013b 4800 |H | Short_Literal 0x0
013c 481f |H | Short_Literal 0x1f
013d 0262 | b | Execute Discrete,In_Range
013e 7003 |p | Jump_Nonzero 0x142
013f 0b7f | | Execute_Immediate Case_Compare,0x7f
0140 701f |p | Jump_Nonzero 0x160
0141 7832 |x2 | Jump 0x174 ; Debug Table 0x5.0x2 = 0x141,0x5
0142 e603 | | Load 0x3,0x3 ; Debug Table 0x5.0x3 = 0x142,0x3
0143 e7ff | | Load 0x3,-0x1
0144 01d7 | | Execute Vector,Field_Read
0145 0a40 | @ | Execute_Immediate Plus,0x40
0146 00d8 | | Load_Top At_Offset_0
0147 00e8 | | Load_Encached Character_Cache
0148 0260 | ` | Execute Discrete,In_Type
0149 7002 |p | Jump_Nonzero 0x14c
014a 48e0 |H | Short_Literal 0xe0
014b 0257 | W | Execute Discrete,Raise
014c 485e |H^ | Short_Literal 0x5e
014d e7ff | | Load 0x3,-0x1
014e 01dd | | Execute Vector,First
014f e603 | | Load 0x3,0x3
0150 0aff | | Execute_Immediate Plus,-0x1
0151 0248 | H | Execute Discrete,Check_In_Integer
0152 e7ff | | Load 0x3,-0x1
0153 01cf | | Execute Vector,Slice_Read
0154 01cb | | Execute Vector,Append
0155 01cb | | Execute Vector,Append
0156 e603 | | Load 0x3,0x3
0157 0a01 | | Execute_Immediate Plus,0x1
0158 0248 | H | Execute Discrete,Check_In_Integer
0159 e7ff | | Load 0x3,-0x1
015a 01dc | | Execute Vector,Last
015b e7ff | | Load 0x3,-0x1
015c 01cf | | Execute Vector,Slice_Read
015d 840d | | Call 0x2,0xd
015e 01cc | | Execute Vector,Catenate
015f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0160 e7ff | | Load 0x3,-0x1 ; Debug Table 0x5.0x4 = 0x160,0x4
0161 01dd | | Execute Vector,First
0162 e603 | | Load 0x3,0x3
0163 0aff | | Execute_Immediate Plus,-0x1
0164 0248 | H | Execute Discrete,Check_In_Integer
0165 e7ff | | Load 0x3,-0x1
0166 01cf | | Execute Vector,Slice_Read
0167 0092 01da | | Action Push_String_Extended,0x1da ; "^?"
0169 01cc | | Execute Vector,Catenate
016a e603 | | Load 0x3,0x3
016b 0a01 | | Execute_Immediate Plus,0x1
016c 0248 | H | Execute Discrete,Check_In_Integer
016d e7ff | | Load 0x3,-0x1
016e 01dc | | Execute Vector,Last
016f e7ff | | Load 0x3,-0x1
0170 01cf | | Execute Vector,Slice_Read
0171 840d | | Call 0x2,0xd
0172 01cc | | Execute Vector,Catenate
0173 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0174 00d1 | | Pop_Control Pop_Count_1
0175 3fc1 |? | Loop_Increasing 0x137
0176 e7ff | | Load 0x3,-0x1 ; Debug Table 0x5.0x5 = 0x176,0x6
0177 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017d | } | .CONST 0x017d ; Address of begin
0179 0194 | | .CONST 0x0194 ; Address of exception handler
017a 0002 | | .CONST 0x0002 ; Number of locals
017b INIT_0178:
017b e7ff | | Load 0x3,-0x1 ; Debug Table 0x6 = .DEBUG 0x017b,0x02ca,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0219
; Debug Table 0x6.0x0 = 0x17b,0xffff
017c 840d | | Call 0x2,0xd
017d BODY_0178:
017d e602 | | Load 0x3,0x2 ; Debug Table 0x6.0x1 = 0x17d,0x1
017e 01db | | Execute Vector,Length
017f e403 | | Load 0x2,0x3
0180 8406 | | Call 0x2,0x6
0181 0273 | s | Execute Discrete,Plus
0182 e5fe | | Load 0x2,-0x2
0183 027b | { | Execute Discrete,Greater_Equal
0184 6806 |h | Jump_Zero 0x18b
0185 e403 | | Load 0x2,0x3 ; Debug Table 0x6.0x2 = 0x185,0x2
0186 e602 | | Load 0x3,0x2
0187 840c | | Call 0x2,0xc
0188 8408 | | Call 0x2,0x8
0189 00d1 | | Pop_Control Pop_Count_1
018a 7804 |x | Jump 0x18f
018b e403 | | Load 0x2,0x3 ; Debug Table 0x6.0x3 = 0x18b,0x3
018c e602 | | Load 0x3,0x2
018d 8408 | | Call 0x2,0x8
018e 00d1 | | Pop_Control Pop_Count_1
018f e403 | | Load 0x2,0x3 ; Debug Table 0x6.0x4 = 0x18f,0x4
0190 4820 |H | Short_Literal 0x20
0191 e002 | | Load 0x0,0x2
0192 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0193 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0194 TRAP_0178:
0194 0007 | | Action Break_Optional
0195 840a | | Call 0x2,0xa ; Debug Table 0x6.0x5 = 0x195,0x5
0196 4502 |E | Exit_Suprogram New_Top_Offset 0x2
0197 0000 | | .XXX[0x1]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 01a3 | | .CONST 0x01a3 ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0002 | | .CONST 0x0002 ; Number of locals
019b INIT_0198:
019b e7ff | | Load 0x3,-0x1 ; Debug Table 0x7 = .DEBUG 0x019b,0x02d8,0x0801,0x0002,0x0036,0x58f4,0x0000,0x025c
; Debug Table 0x7.0x0 = 0x19b,0xffff
019c 01da | | Execute Vector,Bounds
019d 00e9 | | Load_Encached String_Cache
019e 035b | [ | Declare_Type Array,Constrained
019f 0337 | 7 | Declare_Variable Array
01a0 e7ff | | Load 0x3,-0x1
01a1 e602 | | Load 0x3,0x2
01a2 01d4 | | Execute Vector,Structure_Write
01a3 BODY_0198:
01a3 e602 | | Load 0x3,0x2 ; Debug Table 0x7.0x1 = 0x1a3,0x1
01a4 01d9 | | Execute Vector,Reverse_Bounds
01a5 0263 | c | Execute Discrete,Above_Bound
01a6 700c |p | Jump_Nonzero 0x1b3
01a7 e604 | | Load 0x3,0x4 ; Debug Table 0x7.0x2 = 0x1a7,0x2
01a8 e602 | | Load 0x3,0x2
01a9 01d7 | | Execute Vector,Field_Read
01aa 4821 |H! | Short_Literal 0x21
01ab 487e |H~ | Short_Literal 0x7e
01ac 0261 | a | Execute Discrete,Not_In_Range
01ad 6804 |h | Jump_Zero 0x1b2
01ae 485f |H_ | Short_Literal 0x5f ; Debug Table 0x7.0x3 = 0x1ae,0x3
01af e604 | | Load 0x3,0x4
01b0 e602 | | Load 0x3,0x2
01b1 01d6 | | Execute Vector,Field_Write
01b2 3ff4 |? | Loop_Increasing 0x1a7
01b3 485f |H_ | Short_Literal 0x5f ; Debug Table 0x7.0x4 = 0x1b3,0x4
01b4 e602 | | Load 0x3,0x2
01b5 e005 | | Load 0x0,0x5
01b6 181c | | Execute Package,Field_Execute,Field_Number 0x1c
01b7 840e | | Call 0x2,0xe
01b8 4502 |E | Exit_Suprogram New_Top_Offset 0x2
01b9 0000 0000 | | .BLANK 0000[0x7]
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c3 | | .CONST 0x01c3 ; Address of begin
01c1 01ce | | .CONST 0x01ce ; Address of exception handler
01c2 0001 | | .CONST 0x0001 ; Number of locals
01c3 BODY_01c0:
01c3 INIT_01c0:
01c3 e403 | | Load 0x2,0x3 ; Debug Table 0x8 = .DEBUG 0x01c3,0x02e4,0x0804,0x0002,0x0036,0x58f4,0x0000,0x02c8
; Debug Table 0x8.0x0 = 0x1c3,0x1
01c4 4801 |H | Short_Literal 0x1
01c5 4801 |H | Short_Literal 0x1
01c6 4803 |H | Short_Literal 0x3
01c7 e006 | | Load 0x0,0x6
01c8 1815 | | Execute Package,Field_Execute,Field_Number 0x15
01c9 e006 | | Load 0x0,0x6
01ca 181b | | Execute Package,Field_Execute,Field_Number 0x1b
01cb e002 | | Load 0x0,0x2
01cc 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01cd 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01ce TRAP_01c0:
01ce 0007 | | Action Break_Optional
01cf e403 | | Load 0x2,0x3 ; Debug Table 0x8.0x1 = 0x1cf,0x2
01d0 0092 01db | | Action Push_String_Extended,0x1db ; "??:??:??"
01d2 e002 | | Load 0x0,0x2
01d3 1810 | | Execute Package,Field_Execute,Field_Number 0x10
01d4 4501 |E | Exit_Suprogram New_Top_Offset 0x1
01d5 ; --------------------------------------------------------------------------------------
01d5 ; STRING TABLE
01d5 ; --------------------------------------------------------------------------------------
01d5 0010 | | .STRTAB 0x0010->0x01dd ; "--- "
01d6 0012 | | .STRTAB 0x0012->0x01df ; "+++ "
01d7 0014 | | .STRTAB 0x0014->0x01e1 ; "!!! "
01d8 0016 | | .STRTAB 0x0016->0x01e3 ; "*** "
01d9 0018 | | .STRTAB 0x0018->0x01e5 ; " => "
01da 001a | | .STRTAB 0x001a->0x01e7 ; "^?"
01db 001a | | .STRTAB 0x001a->0x01e8 ; "??:??:??"
01dc 0020 | | .STREND 0x0020->0x01ec
01dd 2d2d 2d20 |--- | .STRTAB_STRINGS
01ec 0000 0000 | | .BLANK 0000[0x4]
01f0 ; --------------------------------------------------------------------------------------
01f0 ; Debug Table
01f0 ; --------------------------------------------------------------------------------------
01f0 0003 0009 | | .CONST 0x0003,0x0009
01f2 000b 023a | :| .DEBUG 0x000b,0x023a,0x8000,0x0000,0x0036,0x5684,0x0000,0x0007
01fa 001b 023c | <| .DEBUG 0x001b,0x023c,0xa801,0x0002,0x0036,0x5684,0x0000,0x0007
0202 00ab 0290 | | .DEBUG 0x00ab,0x0290,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0099
020a 00c3 029a | | .DEBUG 0x00c3,0x029a,0x0802,0x0002,0x0036,0x58f4,0x0000,0x00c0
0212 00f3 02aa | | .DEBUG 0x00f3,0x02aa,0x0802,0x0002,0x0036,0x58f4,0x0000,0x0119
021a 0133 02bc | 3 | .DEBUG 0x0133,0x02bc,0x0802,0x0002,0x0036,0x58f4,0x0000,0x018d
0222 017b 02ca | { | .DEBUG 0x017b,0x02ca,0x0801,0x0002,0x0036,0x58f4,0x0000,0x0219
022a 019b 02d8 | | .DEBUG 0x019b,0x02d8,0x0801,0x0002,0x0036,0x58f4,0x0000,0x025c
0232 01c3 02e4 | | .DEBUG 0x01c3,0x02e4,0x0804,0x0002,0x0036,0x58f4,0x0000,0x02c8
023a ; --------------------------------------------------------------------------------------
023a ; Debug3 Subtable 0x0
023a ; --------------------------------------------------------------------------------------
023a 0000 0000 | | .DBG3TAB 0x0000,0x0000
023c ; --------------------------------------------------------------------------------------
023c ; Debug3 Subtable 0x1
023c ; --------------------------------------------------------------------------------------
023c 0012 0017 | | .DBG3TAB 0x0012,0x0017
023e 001b ffff | | .CONST 0x001b,0xffff
0240 001b fffe | | .CONST 0x001b,0xfffe
0242 001b fffd | | .CONST 0x001b,0xfffd
0244 001b fffc | | .CONST 0x001b,0xfffc
0246 001b fffb | | .CONST 0x001b,0xfffb
0248 0020 fffa | | .CONST 0x0020,0xfffa
024a 0026 fff9 | & | .CONST 0x0026,0xfff9
024c 002b fff8 | + | .CONST 0x002b,0xfff8
024e 002d fff7 | - | .CONST 0x002d,0xfff7
0250 002f fff6 | / | .CONST 0x002f,0xfff6
0252 0031 fff5 | 1 | .CONST 0x0031,0xfff5
0254 0033 fff4 | 3 | .CONST 0x0033,0xfff4
0256 0035 fff3 | 5 | .CONST 0x0035,0xfff3
0258 0037 fff2 | 7 | .CONST 0x0037,0xfff2
025a 0039 fff1 | 9 | .CONST 0x0039,0xfff1
025c 003b fff0 | ; | .CONST 0x003b,0xfff0
025e 003d ffef | = | .CONST 0x003d,0xffef
0260 003f ffee | ? | .CONST 0x003f,0xffee
0262 0043 0001 | C | .CONST 0x0043,0x0001
0264 0048 0002 | H | .CONST 0x0048,0x0002
0266 004a 0004 | J | .CONST 0x004a,0x0004
0268 004f 0005 | O | .CONST 0x004f,0x0005
026a 0057 0006 | W | .CONST 0x0057,0x0006
026c 005d 0007 | ] | .CONST 0x005d,0x0007
026e 0063 0008 | c | .CONST 0x0063,0x0008
0270 0069 0009 | i | .CONST 0x0069,0x0009
0272 006e 000a | n | .CONST 0x006e,0x000a
0274 0072 000b | r | .CONST 0x0072,0x000b
0276 0076 000c | v | .CONST 0x0076,0x000c
0278 007a 000d | z | .CONST 0x007a,0x000d
027a 007b 000e | { | .CONST 0x007b,0x000e
027c 0081 0010 | | .CONST 0x0081,0x0010
027e 0086 0011 | | .CONST 0x0086,0x0011
0280 008a 0012 | | .CONST 0x008a,0x0012
0282 008d 0013 | | .CONST 0x008d,0x0013
0284 0091 0014 | | .CONST 0x0091,0x0014
0286 0092 0015 | | .CONST 0x0092,0x0015
0288 0096 000f | | .CONST 0x0096,0x000f
028a 009a 0016 | | .CONST 0x009a,0x0016
028c 009e 0003 | | .CONST 0x009e,0x0003
028e 00a4 0017 | | .CONST 0x00a4,0x0017
0290 ; --------------------------------------------------------------------------------------
0290 ; Debug3 Subtable 0x2
0290 ; --------------------------------------------------------------------------------------
0290 0000 0004 | | .DBG3TAB 0x0000,0x0004
0292 00ab 0001 | | .CONST 0x00ab,0x0001
0294 00af 0002 | | .CONST 0x00af,0x0002
0296 00b3 0003 | | .CONST 0x00b3,0x0003
0298 00b9 0004 | | .CONST 0x00b9,0x0004
029a ; --------------------------------------------------------------------------------------
029a ; Debug3 Subtable 0x3
029a ; --------------------------------------------------------------------------------------
029a 0001 0006 | | .DBG3TAB 0x0001,0x0006
029c 00c3 ffff | | .CONST 0x00c3,0xffff
029e 00cb 0001 | | .CONST 0x00cb,0x0001
02a0 00d0 0002 | | .CONST 0x00d0,0x0002
02a2 00d8 0004 | | .CONST 0x00d8,0x0004
02a4 00de 0005 | | .CONST 0x00de,0x0005
02a6 00e3 0006 | | .CONST 0x00e3,0x0006
02a8 00e5 0007 | | .CONST 0x00e5,0x0007
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x4
02aa ; --------------------------------------------------------------------------------------
02aa 0002 0006 | | .DBG3TAB 0x0002,0x0006
02ac 00f3 ffff | | .CONST 0x00f3,0xffff
02ae 00f7 fffe | | .CONST 0x00f7,0xfffe
02b0 0101 0001 | | .CONST 0x0101,0x0001
02b2 010a 0002 | | .CONST 0x010a,0x0002
02b4 010e 0003 | | .CONST 0x010e,0x0003
02b6 0113 0004 | | .CONST 0x0113,0x0004
02b8 011e 0005 | | .CONST 0x011e,0x0005
02ba 0127 0006 | ' | .CONST 0x0127,0x0006
02bc ; --------------------------------------------------------------------------------------
02bc ; Debug3 Subtable 0x5
02bc ; --------------------------------------------------------------------------------------
02bc 0000 0006 | | .DBG3TAB 0x0000,0x0006
02be 0133 0001 | 3 | .CONST 0x0133,0x0001
02c0 0137 0002 | 7 | .CONST 0x0137,0x0002
02c2 0141 0005 | A | .CONST 0x0141,0x0005
02c4 0142 0003 | B | .CONST 0x0142,0x0003
02c6 0160 0004 | ` | .CONST 0x0160,0x0004
02c8 0176 0006 | v | .CONST 0x0176,0x0006
02ca ; --------------------------------------------------------------------------------------
02ca ; Debug3 Subtable 0x6
02ca ; --------------------------------------------------------------------------------------
02ca 0001 0005 | | .DBG3TAB 0x0001,0x0005
02cc 017b ffff | { | .CONST 0x017b,0xffff
02ce 017d 0001 | } | .CONST 0x017d,0x0001
02d0 0185 0002 | | .CONST 0x0185,0x0002
02d2 018b 0003 | | .CONST 0x018b,0x0003
02d4 018f 0004 | | .CONST 0x018f,0x0004
02d6 0195 0005 | | .CONST 0x0195,0x0005
02d8 ; --------------------------------------------------------------------------------------
02d8 ; Debug3 Subtable 0x7
02d8 ; --------------------------------------------------------------------------------------
02d8 0001 0004 | | .DBG3TAB 0x0001,0x0004
02da 019b ffff | | .CONST 0x019b,0xffff
02dc 01a3 0001 | | .CONST 0x01a3,0x0001
02de 01a7 0002 | | .CONST 0x01a7,0x0002
02e0 01ae 0003 | | .CONST 0x01ae,0x0003
02e2 01b3 0004 | | .CONST 0x01b3,0x0004
02e4 ; --------------------------------------------------------------------------------------
02e4 ; Debug3 Subtable 0x8
02e4 ; --------------------------------------------------------------------------------------
02e4 0000 0002 | | .DBG3TAB 0x0000,0x0002
02e6 01c3 0001 | | .CONST 0x01c3,0x0001
02e8 01cf 0002 | | .CONST 0x01cf,0x0002
02ea 0000 0000 | | .BLANK 0000[0x116]