|
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, 5811_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0
└─⟦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 5811 |X | .CONST 0x5811 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0278 | x | .CONST 0x0278 ; 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 0014 | | .CONST 0x0014 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0027 | ' | .CONST 0x0027 ; Number of locals
000b INIT_0008:
000b 029a 001b | | Declare_Subprogram INIT_0018,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0 = .DEBUG 0x000b,0x02aa,0xc000,0x0000,0x0036,0xfb44,0x0000,0x0006
; Debug Table 0x0.0x0 = 0xb,0xffff
000d 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xd,0xfffe
000e 0007 | | Action Break_Optional ; Debug Table 0x0.0x2 = 0xe,0xfffd
000f 00bf | | Action Accept_Activation ; Debug Table 0x0.0x3 = 0xf,0xfffc
0010 029d 0153 | S| Declare_Subprogram INIT_0150,For_Outer_Call ; Debug Table 0x1 = .DEBUG 0x0010,0x02b4,0xc000,0x0000,0x0036,0xfb74,0x0000,0x0007
; Debug Table 0x1.0x0 = 0x10,0xffff
0012 1d26 | & | Execute_Immediate Reference_Lex_1,0x26 ; Debug Table 0x1.0x1 = 0x12,0xfffe
0013 00c7 | | Action Elaborate_Subprogram
0014 BODY_0008:
0014 00bc | | Action Signal_Activated
0015 00bb | | Action Signal_Completion
0016 0000 0000 | | .XXX[0x2]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 002c | , | .CONST 0x002c ; Address of begin
0019 0004 | | .CONST 0x0004 ; Address of exception handler
001a 000b | | .CONST 0x000b ; Number of locals
001b INIT_0018:
001b e217 | | Load 0x1,0x17 ; Debug Table 0x2 = .DEBUG 0x001b,0x02ba,0x1001,0x0000,0x0036,0xfb44,0x0000,0x00e1
; Debug Table 0x2.0x0 = 0x1b,0xffff
001c 02c7 | | Declare_Variable Any
001d e402 | | Load 0x2,0x2
001e 1c00 | | Execute_Immediate Run_Utility,0x0
001f 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x1 = 0x1f,0xfffe
0020 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x2 = 0x20,0xfffd
0021 00e3 | | Load_Encached Natural_Cache ; Debug Table 0x2.0x3 = 0x21,0xfffc
0022 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x4 = 0x22,0xfffb
0023 e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x5 = 0x23,0xfffa
0024 0c00 | | Execute_Immediate Greater_Equal,0x0
0025 00e1 | | Load_Encached Boolean_Cache
0026 03f1 | | Declare_Variable Discrete,With_Value
0027 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x6 = 0x27,0xfff9
0028 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x2.0x7 = 0x28,0xfff8
0029 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x2.0x8 = 0x29,0xfff7
002a 029f 018b | | Declare_Subprogram INIT_0188,For_Call
002c BODY_0018:
002c e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0x9 = 0x2c,0x1
002d e215 | | Load 0x1,0x15
002e 0119 | | Execute Any,Check_In_Formal_Type
002f 8223 | # | Call 0x1,0x23
0030 680a |h | Jump_Zero 0x3b
0031 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0xa = 0x31,0x2
0032 00ea | | Load_Encached Null_String_Cache
0033 0092 01a8 | | Action Push_String_Extended,0x1a8 ; "Only the stack of a single task can be displayed"
0035 0092 01a9 | | Action Push_String_Extended,0x1a9 ; "Task not specified"
0037 e001 | | Load 0x0,0x1
0038 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0039 c5fb | | Store 0x2,-0x5
003a 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0xb = 0x3a,0x3
003b 8225 | % | Call 0x1,0x25 ; Debug Table 0x2.0xc = 0x3b,0x4
003c 6806 |h | Jump_Zero 0x43
003d 0092 01aa | | Action Push_String_Extended,0x1aa ; "Program has terminated"
; Debug Table 0x2.0xd = 0x3d,0x5
003f e001 | | Load 0x0,0x1
0040 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0041 c5fb | | Store 0x2,-0x5
0042 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0xe = 0x42,0x6
0043 e5ff | | Load 0x2,-0x1 ; Debug Table 0x2.0xf = 0x43,0x7
0044 e215 | | Load 0x1,0x15
0045 0119 | | Execute Any,Check_In_Formal_Type
0046 8222 | " | Call 0x1,0x22
0047 7006 |p | Jump_Nonzero 0x4e
0048 0092 01ab | | Action Push_String_Extended,0x1ab ; "Task does not exist"
; Debug Table 0x2.0x10 = 0x48,0x8
004a e001 | | Load 0x0,0x1
004b 1811 | | Execute Package,Field_Execute,Field_Number 0x11
004c c5fb | | Store 0x2,-0x5
004d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0x11 = 0x4d,0x9
004e e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x12 = 0x4e,0xa
004f 7006 |p | Jump_Nonzero 0x56
0050 0092 01ac | | Action Push_String_Extended,0x1ac ; "0 illegal for Starting_Frame"
; Debug Table 0x2.0x13 = 0x50,0xb
0052 e001 | | Load 0x0,0x1
0053 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0054 c5fb | | Store 0x2,-0x5
0055 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0x14 = 0x55,0xc
0056 0092 01ad | | Action Push_String_Extended,0x1ad ; "Stack of task "
; Debug Table 0x2.0x15 = 0x56,0xd
0058 e5ff | | Load 0x2,-0x1
0059 e215 | | Load 0x1,0x15
005a 0119 | | Execute Any,Check_In_Formal_Type
005b 8224 | $ | Call 0x1,0x24
005c 01cc | | Execute Vector,Catenate
005d 0092 01ae | | Action Push_String_Extended,0x1ae ; ":"
005f 01cc | | Execute Vector,Catenate
0060 821a | | Call 0x1,0x1a
0061 821b | | Call 0x1,0x1b ; Debug Table 0x2.0x16 = 0x61,0xe
0062 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x17 = 0x62,0xf
0063 0120 | | Execute Any,Is_Value
0064 6802 |h | Jump_Zero 0x67
0065 e217 | | Load 0x1,0x17
0066 7803 |x | Jump 0x6a
0067 e402 | | Load 0x2,0x2
0068 e217 | | Load 0x1,0x17
0069 0119 | | Execute Any,Check_In_Formal_Type
006a e5fb | | Load 0x2,-0x5
006b 4801 |H | Short_Literal 0x1
006c e5ff | | Load 0x2,-0x1
006d e215 | | Load 0x1,0x15
006e 0119 | | Execute Any,Check_In_Formal_Type
006f 821f | | Call 0x1,0x1f
0070 c5fb | | Store 0x2,-0x5
0071 c402 | | Store 0x2,0x2
0072 4802 |H | Short_Literal 0x2 ; Debug Table 0x2.0x18 = 0x72,0x10
0073 e5fb | | Load 0x2,-0x5
0074 e001 | | Load 0x0,0x1
0075 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0076 6807 |h | Jump_Zero 0x7e
0077 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x19 = 0x77,0x11
0078 0092 01af | | Action Push_String_Extended,0x1af ; "Error stopping task"
007a e001 | | Load 0x0,0x1
007b 1815 | | Execute Package,Field_Execute,Field_Number 0x15
007c c5fb | | Store 0x2,-0x5
007d 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0x1a = 0x7d,0x12
007e e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x1b = 0x7e,0x13
007f 00e1 | | Load_Encached Boolean_Cache
0080 00e3 | | Load_Encached Natural_Cache
0081 e407 | | Load 0x2,0x7
0082 e5ff | | Load 0x2,-0x1
0083 e215 | | Load 0x1,0x15
0084 0119 | | Execute Any,Check_In_Formal_Type
0085 8221 | ! | Call 0x1,0x21
0086 c403 | | Store 0x2,0x3
0087 c408 | | Store 0x2,0x8
0088 c5fb | | Store 0x2,-0x5
0089 4802 |H | Short_Literal 0x2 ; Debug Table 0x2.0x1c = 0x89,0x14
008a e5fb | | Load 0x2,-0x5
008b e001 | | Load 0x0,0x1
008c 1810 | | Execute Package,Field_Execute,Field_Number 0x10
008d 680a |h | Jump_Zero 0x98
008e e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x1d = 0x8e,0x15
008f e5ff | | Load 0x2,-0x1
0090 e215 | | Load 0x1,0x15
0091 0119 | | Execute Any,Check_In_Formal_Type
0092 e402 | | Load 0x2,0x2
0093 e217 | | Load 0x1,0x17
0094 0119 | | Execute Any,Check_In_Formal_Type
0095 8227 | ' | Call 0x1,0x27
0096 c5fb | | Store 0x2,-0x5
0097 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0x1e = 0x97,0x16
0098 e407 | | Load 0x2,0x7 ; Debug Table 0x2.0x1f = 0x98,0x17
0099 7012 |p | Jump_Nonzero 0xac
009a e408 | | Load 0x2,0x8
009b 7010 |p | Jump_Nonzero 0xac
009c e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x20 = 0x9c,0x18
009d 0092 01b0 | | Action Push_String_Extended,0x1b0 ; "Unable to find frames. Negative frame numbers not supported."
009f e001 | | Load 0x0,0x1
00a0 1815 | | Execute Package,Field_Execute,Field_Number 0x15
00a1 c5fb | | Store 0x2,-0x5
00a2 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x21 = 0xa2,0x19
00a3 e5ff | | Load 0x2,-0x1
00a4 e215 | | Load 0x1,0x15
00a5 0119 | | Execute Any,Check_In_Formal_Type
00a6 e402 | | Load 0x2,0x2
00a7 e217 | | Load 0x1,0x17
00a8 0119 | | Execute Any,Check_In_Formal_Type
00a9 8227 | ' | Call 0x1,0x27
00aa c5fb | | Store 0x2,-0x5
00ab 4505 |E | Exit_Suprogram New_Top_Offset 0x5 ; Debug Table 0x2.0x22 = 0xab,0x1a
00ac e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x23 = 0xac,0x1b
00ad 0d00 | | Execute_Immediate Less,0x0
00ae 680f |h | Jump_Zero 0xbe
00af e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x24 = 0xaf,0x1c
00b0 e5fe | | Load 0x2,-0x2
00b1 0273 | s | Execute Discrete,Plus
00b2 0d01 | | Execute_Immediate Less,0x1
00b3 6803 |h | Jump_Zero 0xb7
00b4 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x25 = 0xb4,0x1d
00b5 a409 | | Store_Unchecked 0x2,0x9
00b6 7809 |x | Jump 0xc0
00b7 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x26 = 0xb7,0x1e
00b8 e5fe | | Load 0x2,-0x2
00b9 0273 | s | Execute Discrete,Plus
00ba 0a01 | | Execute_Immediate Plus,0x1
00bb 0248 | H | Execute Discrete,Check_In_Integer
00bc a409 | | Store_Unchecked 0x2,0x9
00bd 7802 |x | Jump 0xc0
00be e5fe | | Load 0x2,-0x2 ; Debug Table 0x2.0x27 = 0xbe,0x1f
00bf a409 | | Store_Unchecked 0x2,0x9
00c0 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x28 = 0xc0,0x20
00c1 0aff | | Execute_Immediate Plus,-0x1
00c2 0248 | H | Execute Discrete,Check_In_Integer
00c3 a40a | | Store_Unchecked 0x2,0xa
00c4 840b | | Call 0x2,0xb ; Debug Table 0x2.0x29 = 0xc4,0x21
00c5 e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x2a = 0xc5,0x22
00c6 00e1 | | Load_Encached Boolean_Cache
00c7 e5fc | | Load 0x2,-0x4
00c8 e21d | | Load 0x1,0x1d
00c9 025b | [ | Execute Discrete,Check_In_Type
00ca e409 | | Load 0x2,0x9
00cb e5ff | | Load 0x2,-0x1
00cc e215 | | Load 0x1,0x15
00cd 0119 | | Execute Any,Check_In_Formal_Type
00ce 821e | | Call 0x1,0x1e
00cf c406 | | Store 0x2,0x6
00d0 c5fb | | Store 0x2,-0x5
00d1 4802 |H | Short_Literal 0x2 ; Debug Table 0x2.0x2b = 0xd1,0x23
00d2 e5fb | | Load 0x2,-0x5
00d3 e001 | | Load 0x0,0x1
00d4 1810 | | Execute Package,Field_Execute,Field_Number 0x10
00d5 6830 |h0 | Jump_Zero 0x106
00d6 e406 | | Load 0x2,0x6
00d7 682e |h. | Jump_Zero 0x106
00d8 e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x2c = 0xd8,0x24
00d9 0f01 | | Execute_Immediate Equal,0x1
00da 6812 |h | Jump_Zero 0xed
00db e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x2d = 0xdb,0x25
00dc 00ea | | Load_Encached Null_String_Cache
00dd 0092 01ad | | Action Push_String_Extended,0x1ad ; "Stack of task "
00df e5ff | | Load 0x2,-0x1
00e0 e215 | | Load 0x1,0x15
00e1 0119 | | Execute Any,Check_In_Formal_Type
00e2 8224 | $ | Call 0x1,0x24
00e3 01cc | | Execute Vector,Catenate
00e4 0092 01b1 | | Action Push_String_Extended,0x1b1 ; " is empty."
00e6 01cc | | Execute Vector,Catenate
00e7 0092 01b2 | | Action Push_String_Extended,0x1b2 ; "Empty stack"
00e9 e001 | | Load 0x0,0x1
00ea 1817 | | Execute Package,Field_Execute,Field_Number 0x17
00eb c5fb | | Store 0x2,-0x5
00ec 781c |x | Jump 0x109
00ed e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x2e = 0xed,0x26
00ee 00ea | | Load_Encached Null_String_Cache
00ef 0092 01b3 | | Action Push_String_Extended,0x1b3 ; "Task "
00f1 e5ff | | Load 0x2,-0x1
00f2 e215 | | Load 0x1,0x15
00f3 0119 | | Execute Any,Check_In_Formal_Type
00f4 8224 | $ | Call 0x1,0x24
00f5 01cc | | Execute Vector,Catenate
00f6 0092 01b4 | | Action Push_String_Extended,0x1b4 ; " has no frame at depth "
00f8 01cc | | Execute Vector,Catenate
00f9 4820 |H | Short_Literal 0x20
00fa 4800 |H | Short_Literal 0x0
00fb 480a |H | Short_Literal 0xa
00fc e409 | | Load 0x2,0x9
00fd e002 | | Load 0x0,0x2
00fe 1816 | | Execute Package,Field_Execute,Field_Number 0x16
00ff 01cc | | Execute Vector,Catenate
0100 0092 01b5 | | Action Push_String_Extended,0x1b5 ; "Illegal frame"
0102 e001 | | Load 0x0,0x1
0103 1817 | | Execute Package,Field_Execute,Field_Number 0x17
0104 c5fb | | Store 0x2,-0x5
0105 7803 |x | Jump 0x109
0106 e001 | | Load 0x0,0x1 ; Debug Table 0x2.0x2f = 0x106,0x27
0107 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0108 c5fb | | Store 0x2,-0x5
0109 e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x30 = 0x109,0x28
010a 0a01 | | Execute_Immediate Plus,0x1
010b c405 | | Store 0x2,0x5
010c 780f |x | Jump 0x11c
010d e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x31 = 0x10d,0x2a
010e 00e1 | | Load_Encached Boolean_Cache
010f e5fc | | Load 0x2,-0x4
0110 e21d | | Load 0x1,0x1d
0111 025b | [ | Execute Discrete,Check_In_Type
0112 e405 | | Load 0x2,0x5
0113 e5ff | | Load 0x2,-0x1
0114 e215 | | Load 0x1,0x15
0115 0119 | | Execute Any,Check_In_Formal_Type
0116 821e | | Call 0x1,0x1e
0117 c406 | | Store 0x2,0x6
0118 c5fb | | Store 0x2,-0x5
0119 e405 | | Load 0x2,0x5 ; Debug Table 0x2.0x32 = 0x119,0x2b
011a 0a01 | | Execute_Immediate Plus,0x1
011b c405 | | Store 0x2,0x5
011c e405 | | Load 0x2,0x5 ; Debug Table 0x2.0x33 = 0x11c,0x29
011d e404 | | Load 0x2,0x4
011e 027a | z | Execute Discrete,Less_Equal
011f 6804 |h | Jump_Zero 0x124
0120 e406 | | Load 0x2,0x6
0121 7002 |p | Jump_Nonzero 0x124
0122 821c | | Call 0x1,0x1c
0123 6fe9 |o | Jump_Zero 0x10d
0124 e406 | | Load 0x2,0x6 ; Debug Table 0x2.0x34 = 0x124,0x2c
0125 7019 |p | Jump_Nonzero 0x13f
0126 e403 | | Load 0x2,0x3
0127 e405 | | Load 0x2,0x5
0128 0272 | r | Execute Discrete,Minus
0129 0c01 | | Execute_Immediate Greater_Equal,0x1
012a 6814 |h | Jump_Zero 0x13f
012b 0092 01b6 | | Action Push_String_Extended,0x1b6 ; " "
; Debug Table 0x2.0x35 = 0x12b,0x2d
012d 821a | | Call 0x1,0x1a
012e e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x36 = 0x12e,0x2e
012f 7003 |p | Jump_Nonzero 0x133
0130 0092 01b7 | | Action Push_String_Extended,0x1b7 ; "at least "
; Debug Table 0x2.0x37 = 0x130,0x2f
0132 821a | | Call 0x1,0x1a
0133 e403 | | Load 0x2,0x3 ; Debug Table 0x2.0x38 = 0x133,0x30
0134 e405 | | Load 0x2,0x5
0135 0272 | r | Execute Discrete,Minus
0136 0a01 | | Execute_Immediate Plus,0x1
0137 0248 | H | Execute Discrete,Check_In_Integer
0138 00e0 | | Load_Encached Standard_Cache
0139 1818 | | Execute Package,Field_Execute,Field_Number 0x18
013a 0092 01b8 | | Action Push_String_Extended,0x1b8 ; " more ...."
013c 01cc | | Execute Vector,Catenate
013d 821a | | Call 0x1,0x1a
013e 821b | | Call 0x1,0x1b ; Debug Table 0x2.0x39 = 0x13e,0x31
013f e5fb | | Load 0x2,-0x5 ; Debug Table 0x2.0x3a = 0x13f,0x32
0140 e5ff | | Load 0x2,-0x1
0141 e215 | | Load 0x1,0x15
0142 0119 | | Execute Any,Check_In_Formal_Type
0143 e402 | | Load 0x2,0x2
0144 e217 | | Load 0x1,0x17
0145 0119 | | Execute Any,Check_In_Formal_Type
0146 8227 | ' | Call 0x1,0x27
0147 c5fb | | Store 0x2,-0x5
0148 4505 |E | Exit_Suprogram New_Top_Offset 0x5
0149 0000 0000 | | .BLANK 0000[0x7]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 015a | Z | .CONST 0x015a ; Address of begin
0151 0004 | | .CONST 0x0004 ; Address of exception handler
0152 0003 | | .CONST 0x0003 ; Number of locals
0153 INIT_0150:
0153 e001 | | Load 0x0,0x1 ; Debug Table 0x3 = .DEBUG 0x0153,0x0332,0x1001,0x0000,0x0036,0xfb74,0x0000,0x0008
; Debug Table 0x3.0x0 = 0x153,0xffff
0154 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0155 02c7 | | Declare_Variable Any
0156 e402 | | Load 0x2,0x2
0157 1c00 | | Execute_Immediate Run_Utility,0x0
0158 029f 019b | | Declare_Subprogram INIT_0198,For_Call ; Debug Table 0x3.0x1 = 0x158,0xfffe
015a BODY_0150:
015a e218 | | Load 0x1,0x18 ; Debug Table 0x3.0x2 = 0x15a,0x1
015b e217 | | Load 0x1,0x17
015c 0119 | | Execute Any,Check_In_Formal_Type
015d e5ff | | Load 0x2,-0x1
015e e217 | | Load 0x1,0x17
015f 0119 | | Execute Any,Check_In_Formal_Type
0160 8219 | | Call 0x1,0x19
0161 6801 |h | Jump_Zero 0x163
0162 4503 |E | Exit_Suprogram New_Top_Offset 0x3 ; Debug Table 0x3.0x3 = 0x162,0x2
0163 e402 | | Load 0x2,0x2 ; Debug Table 0x3.0x4 = 0x163,0x3
0164 e5ff | | Load 0x2,-0x1
0165 e217 | | Load 0x1,0x17
0166 0119 | | Execute Any,Check_In_Formal_Type
0167 e5fe | | Load 0x2,-0x2
0168 e215 | | Load 0x1,0x15
0169 0119 | | Execute Any,Check_In_Formal_Type
016a 8220 | | Call 0x1,0x20
016b c402 | | Store 0x2,0x2
016c 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x5 = 0x16c,0x4
016d e402 | | Load 0x2,0x2
016e e001 | | Load 0x0,0x1
016f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0170 6816 |h | Jump_Zero 0x187
0171 4802 |H | Short_Literal 0x2 ; Debug Table 0x3.0x6 = 0x171,0x5
0172 e5fd | | Load 0x2,-0x3
0173 e001 | | Load 0x0,0x1
0174 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0175 680c |h | Jump_Zero 0x182
0176 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x7 = 0x176,0x6
0177 480a |H | Short_Literal 0xa
0178 e5fd | | Load 0x2,-0x3
0179 e001 | | Load 0x0,0x1
017a 1820 | | Execute Package,Field_Execute,Field_Number 0x20
017b 01cb | | Execute Vector,Append
017c 8403 | | Call 0x2,0x3
017d 01cc | | Execute Vector,Catenate
017e e001 | | Load 0x0,0x1
017f 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0180 c5fd | | Store 0x2,-0x3
0181 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0182 e5fd | | Load 0x2,-0x3 ; Debug Table 0x3.0x8 = 0x182,0x7
0183 8403 | | Call 0x2,0x3
0184 e001 | | Load 0x0,0x1
0185 1815 | | Execute Package,Field_Execute,Field_Number 0x15
0186 c5fd | | Store 0x2,-0x3
0187 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 018b | | .CONST 0x018b ; Address of begin
0189 0190 | | .CONST 0x0190 ; Address of exception handler
018a 0001 | | .CONST 0x0001 ; Number of locals
018b BODY_0188:
018b INIT_0188:
018b e409 | | Load 0x2,0x9 ; Debug Table 0x4 = .DEBUG 0x018b,0x0346,0x1004,0x0000,0x0036,0xfb74,0x0000,0x01b7
; Debug Table 0x4.0x0 = 0x18b,0x1
018c e40a | | Load 0x2,0xa
018d 0273 | s | Execute Discrete,Plus
018e c404 | | Store 0x2,0x4
018f 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0190 TRAP_0188:
0190 010d | | Execute Exception,Is_Numeric_Error
0191 6803 |h | Jump_Zero 0x195
0192 6011 |` | Indirect_Literal Discrete,0x1a4,{0x00000000, 0x7fffffff} ; Debug Table 0x4.0x1 = 0x192,0x2
0193 a404 | | Store_Unchecked 0x2,0x4
0194 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0195 0100 | | Execute Exception,Raise
0196 0000 0000 | | .XXX[0x2]
0198 ; --------------------------------------------------------------------------------------
0198 ; SUBPROGRAM
0198 ; --------------------------------------------------------------------------------------
0198 019b | | .CONST 0x019b ; Address of begin
0199 0004 | | .CONST 0x0004 ; Address of exception handler
019a 0001 | | .CONST 0x0001 ; Number of locals
019b BODY_0198:
019b INIT_0198:
019b 0092 01b9 | | Action Push_String_Extended,0x1b9 ; "Problem encountered re-starting task after stopping it: \x0a"
; Debug Table 0x5 = .DEBUG 0x019b,0x034c,0x1002,0x0000,0x0036,0xfb74,0x0000,0x0020
; Debug Table 0x5.0x0 = 0x19b,0x1
019d e402 | | Load 0x2,0x2
019e e001 | | Load 0x0,0x1
019f 1820 | | Execute Package,Field_Execute,Field_Number 0x20
01a0 01cc | | Execute Vector,Catenate
01a1 00ca | | Action Exit_Nullary_Function
01a2 0000 0000 | | .XXX[0x2]
01a4 0000 0000 | | .LITERAL {0x00000000, 0x7fffffff}
01a8 ; --------------------------------------------------------------------------------------
01a8 ; STRING TABLE
01a8 ; --------------------------------------------------------------------------------------
01a8 0026 | & | .STRTAB 0x0026->0x01bb ; "Only the stack of a single task can be displayed"
01a9 0054 | T | .STRTAB 0x0054->0x01d3 ; "Task not specified"
01aa 0064 | d | .STRTAB 0x0064->0x01dc ; "Program has terminated"
01ab 0078 | x | .STRTAB 0x0078->0x01e7 ; "Task does not exist"
01ac 0089 | | .STRTAB 0x0089->0x01f0 ; "0 illegal for Starting_Frame"
01ad 00a3 | | .STRTAB 0x00a3->0x01fe ; "Stack of task "
01ae 00af | | .STRTAB 0x00af->0x0205 ; ":"
01af 00ae | | .STRTAB 0x00ae->0x0206 ; "Error stopping task"
01b0 00bf | | .STRTAB 0x00bf->0x020f ; "Unable to find frames. Negative frame numbers not supported."
01b1 00fa | | .STRTAB 0x00fa->0x022e ; " is empty."
01b2 0102 | | .STRTAB 0x0102->0x0233 ; "Empty stack"
01b3 010b | | .STRTAB 0x010b->0x0238 ; "Task "
01b4 010e | | .STRTAB 0x010e->0x023b ; " has no frame at depth "
01b5 0123 | # | .STRTAB 0x0123->0x0246 ; "Illegal frame"
01b6 012e | . | .STRTAB 0x012e->0x024d ; " "
01b7 0130 | 0 | .STRTAB 0x0130->0x024f ; "at least "
01b8 0137 | 7 | .STRTAB 0x0137->0x0253 ; " more ...."
01b9 013f | ? | .STRTAB 0x013f->0x0258 ; "Problem encountered re-starting task after stopping it: \x0a"
01ba 0176 | v | .STREND 0x0176->0x0275
01bb 4f6e 6c79 |Only| .STRTAB_STRINGS
0275 0000 0000 | | .XXX[0x3]
0277 0000 | |
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug Table
0278 ; --------------------------------------------------------------------------------------
0278 0003 0006 | | .CONST 0x0003,0x0006
027a 000b 02aa | | .DEBUG 0x000b,0x02aa,0xc000,0x0000,0x0036,0xfb44,0x0000,0x0006
0282 0010 02b4 | | .DEBUG 0x0010,0x02b4,0xc000,0x0000,0x0036,0xfb74,0x0000,0x0007
028a 001b 02ba | | .DEBUG 0x001b,0x02ba,0x1001,0x0000,0x0036,0xfb44,0x0000,0x00e1
0292 0153 0332 | S 2| .DEBUG 0x0153,0x0332,0x1001,0x0000,0x0036,0xfb74,0x0000,0x0008
029a 018b 0346 | F| .DEBUG 0x018b,0x0346,0x1004,0x0000,0x0036,0xfb74,0x0000,0x01b7
02a2 019b 034c | L| .DEBUG 0x019b,0x034c,0x1002,0x0000,0x0036,0xfb74,0x0000,0x0020
02aa ; --------------------------------------------------------------------------------------
02aa ; Debug3 Subtable 0x0
02aa ; --------------------------------------------------------------------------------------
02aa 0004 0000 | | .DBG3TAB 0x0004,0x0000
02ac 000b ffff | | .CONST 0x000b,0xffff
02ae 000d fffe | | .CONST 0x000d,0xfffe
02b0 000e fffd | | .CONST 0x000e,0xfffd
02b2 000f fffc | | .CONST 0x000f,0xfffc
02b4 ; --------------------------------------------------------------------------------------
02b4 ; Debug3 Subtable 0x1
02b4 ; --------------------------------------------------------------------------------------
02b4 0002 0000 | | .DBG3TAB 0x0002,0x0000
02b6 0010 ffff | | .CONST 0x0010,0xffff
02b8 0012 fffe | | .CONST 0x0012,0xfffe
02ba ; --------------------------------------------------------------------------------------
02ba ; Debug3 Subtable 0x2
02ba ; --------------------------------------------------------------------------------------
02ba 0009 0032 | 2| .DBG3TAB 0x0009,0x0032
02bc 001b ffff | | .CONST 0x001b,0xffff
02be 001f fffe | | .CONST 0x001f,0xfffe
02c0 0020 fffd | | .CONST 0x0020,0xfffd
02c2 0021 fffc | ! | .CONST 0x0021,0xfffc
02c4 0022 fffb | " | .CONST 0x0022,0xfffb
02c6 0023 fffa | # | .CONST 0x0023,0xfffa
02c8 0027 fff9 | ' | .CONST 0x0027,0xfff9
02ca 0028 fff8 | ( | .CONST 0x0028,0xfff8
02cc 0029 fff7 | ) | .CONST 0x0029,0xfff7
02ce 002c 0001 | , | .CONST 0x002c,0x0001
02d0 0031 0002 | 1 | .CONST 0x0031,0x0002
02d2 003a 0003 | : | .CONST 0x003a,0x0003
02d4 003b 0004 | ; | .CONST 0x003b,0x0004
02d6 003d 0005 | = | .CONST 0x003d,0x0005
02d8 0042 0006 | B | .CONST 0x0042,0x0006
02da 0043 0007 | C | .CONST 0x0043,0x0007
02dc 0048 0008 | H | .CONST 0x0048,0x0008
02de 004d 0009 | M | .CONST 0x004d,0x0009
02e0 004e 000a | N | .CONST 0x004e,0x000a
02e2 0050 000b | P | .CONST 0x0050,0x000b
02e4 0055 000c | U | .CONST 0x0055,0x000c
02e6 0056 000d | V | .CONST 0x0056,0x000d
02e8 0061 000e | a | .CONST 0x0061,0x000e
02ea 0062 000f | b | .CONST 0x0062,0x000f
02ec 0072 0010 | r | .CONST 0x0072,0x0010
02ee 0077 0011 | w | .CONST 0x0077,0x0011
02f0 007d 0012 | } | .CONST 0x007d,0x0012
02f2 007e 0013 | ~ | .CONST 0x007e,0x0013
02f4 0089 0014 | | .CONST 0x0089,0x0014
02f6 008e 0015 | | .CONST 0x008e,0x0015
02f8 0097 0016 | | .CONST 0x0097,0x0016
02fa 0098 0017 | | .CONST 0x0098,0x0017
02fc 009c 0018 | | .CONST 0x009c,0x0018
02fe 00a2 0019 | | .CONST 0x00a2,0x0019
0300 00ab 001a | | .CONST 0x00ab,0x001a
0302 00ac 001b | | .CONST 0x00ac,0x001b
0304 00af 001c | | .CONST 0x00af,0x001c
0306 00b4 001d | | .CONST 0x00b4,0x001d
0308 00b7 001e | | .CONST 0x00b7,0x001e
030a 00be 001f | | .CONST 0x00be,0x001f
030c 00c0 0020 | | .CONST 0x00c0,0x0020
030e 00c4 0021 | !| .CONST 0x00c4,0x0021
0310 00c5 0022 | "| .CONST 0x00c5,0x0022
0312 00d1 0023 | #| .CONST 0x00d1,0x0023
0314 00d8 0024 | $| .CONST 0x00d8,0x0024
0316 00db 0025 | %| .CONST 0x00db,0x0025
0318 00ed 0026 | &| .CONST 0x00ed,0x0026
031a 0106 0027 | '| .CONST 0x0106,0x0027
031c 0109 0028 | (| .CONST 0x0109,0x0028
031e 010d 002a | *| .CONST 0x010d,0x002a
0320 0119 002b | +| .CONST 0x0119,0x002b
0322 011c 0029 | )| .CONST 0x011c,0x0029
0324 0124 002c | $ ,| .CONST 0x0124,0x002c
0326 012b 002d | + -| .CONST 0x012b,0x002d
0328 012e 002e | . .| .CONST 0x012e,0x002e
032a 0130 002f | 0 /| .CONST 0x0130,0x002f
032c 0133 0030 | 3 0| .CONST 0x0133,0x0030
032e 013e 0031 | > 1| .CONST 0x013e,0x0031
0330 013f 0032 | ? 2| .CONST 0x013f,0x0032
0332 ; --------------------------------------------------------------------------------------
0332 ; Debug3 Subtable 0x3
0332 ; --------------------------------------------------------------------------------------
0332 0002 0007 | | .DBG3TAB 0x0002,0x0007
0334 0153 ffff | S | .CONST 0x0153,0xffff
0336 0158 fffe | X | .CONST 0x0158,0xfffe
0338 015a 0001 | Z | .CONST 0x015a,0x0001
033a 0162 0002 | b | .CONST 0x0162,0x0002
033c 0163 0003 | c | .CONST 0x0163,0x0003
033e 016c 0004 | l | .CONST 0x016c,0x0004
0340 0171 0005 | q | .CONST 0x0171,0x0005
0342 0176 0006 | v | .CONST 0x0176,0x0006
0344 0182 0007 | | .CONST 0x0182,0x0007
0346 ; --------------------------------------------------------------------------------------
0346 ; Debug3 Subtable 0x4
0346 ; --------------------------------------------------------------------------------------
0346 0000 0002 | | .DBG3TAB 0x0000,0x0002
0348 018b 0001 | | .CONST 0x018b,0x0001
034a 0192 0002 | | .CONST 0x0192,0x0002
034c ; --------------------------------------------------------------------------------------
034c ; Debug3 Subtable 0x5
034c ; --------------------------------------------------------------------------------------
034c 0000 0001 | | .DBG3TAB 0x0000,0x0001
034e 019b 0001 | | .CONST 0x019b,0x0001
0350 0000 0000 | | .BLANK 0000[0xb0]