|
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 0170 | p | .CONST 0x0170 ; 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 0056 | V | .CONST 0x0056 ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 001c | | .CONST 0x001c ; Number of locals
000b INIT_0008:
000b 03a9 | | Declare_Type Heap_Access,Indirect_Literal,Visible ; Debug Table 0x0 = .DEBUG 0x000b,0x01e2,0x0000,0x0000,0x0059,0x88b5,0x0000,0x0571
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 029a 005b | [| Declare_Subprogram INIT_0058,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x1 = 0xc,0xfffe
000e 029a 007b | {| Declare_Subprogram INIT_0078,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xe,0xfffd
0010 029a 009b | | Declare_Subprogram INIT_0098,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0x10,0xfffc
0012 029a 00c3 | | Declare_Subprogram INIT_00c0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 4800 |H | Short_Literal 0x0 ; Debug Table 0x0.0x5 = 0x14,0xfffa
0015 4802 |H | Short_Literal 0x2
0016 029f 00cb | | Declare_Subprogram INIT_00c8,For_Call
0018 03fe | | Declare_Type Discrete,Defined,Visible
0019 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x6 = 0x19,0xfff9
001a 032b | + | Declare_Type Record,Incomplete,Visible
001b 029a 00e3 | | Declare_Subprogram INIT_00e0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x7 = 0x1b,0xfff8
001d 029a 00fb | | Declare_Subprogram INIT_00f8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x8 = 0x1d,0xfff7
001f 4801 |H | Short_Literal 0x1 ; Debug Table 0x0.0x9 = 0x1f,0xfff6
0020 032b | + | Declare_Type Record,Incomplete,Visible
0021 029a 0123 | #| Declare_Subprogram INIT_0120,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xa = 0x21,0xfff5
0023 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xb = 0x23,0xfff4
0025 029a 013b | ;| Declare_Subprogram INIT_0138,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xc = 0x25,0xfff3
0027 029a 0143 | C| Declare_Subprogram INIT_0140,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xd = 0x27,0xfff2
0029 029a 014b | K| Declare_Subprogram INIT_0148,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0xe = 0x29,0xfff1
002b 4802 |H | Short_Literal 0x2 ; Debug Table 0x0.0xf = 0x2b,0xfff0
002c 032a | * | Declare_Type Record,Incomplete
002d 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x0.0x10 = 0x2d,0xffef
002e 02a0 | | Declare_Subprogram Null_Subprogram
002f e20d | | Load 0x1,0xd
0030 03a3 | | Complete_Type Heap_Access,By_Defining
0031 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x11 = 0x31,0xffee
; Debug Table 0x0.0x12 = 0x31,0xffed
0032 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0033 02a0 | | Declare_Subprogram Null_Subprogram
0034 e213 | | Load 0x1,0x13
0035 0326 | & | Complete_Type Record,By_Defining
0036 e001 | | Load 0x0,0x1 ; Debug Table 0x0.0x13 = 0x36,0xffec
0037 1b17 | | Execute Package,Field_Read,Field_Number 0x17
0038 02a0 | | Declare_Subprogram Null_Subprogram
0039 e216 | | Load 0x1,0x16
003a 0326 | & | Complete_Type Record,By_Defining
003b 00bf | | Action Accept_Activation
003c e002 | | Load 0x0,0x2 ; Debug Table 0x1 = .DEBUG 0x003c,0x020c,0x0000,0x0000,0x0059,0x8c95,0x0000,0x0008
; Debug Table 0x1.0x0 = 0x3c,0xffff
003d 1b19 | | Execute Package,Field_Read,Field_Number 0x19
003e 00d9 | | Load_Top At_Offset_1
003f 0325 | % | Complete_Type Record,By_Renaming
0040 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x40,0xfffe
0041 00c7 | | Action Elaborate_Subprogram
0042 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x42,0xfffd
0043 00c7 | | Action Elaborate_Subprogram
0044 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x44,0xfffc
0045 00c7 | | Action Elaborate_Subprogram
0046 1d11 | | Execute_Immediate Reference_Lex_1,0x11 ; Debug Table 0x1.0x4 = 0x46,0xfffb
0047 00c7 | | Action Elaborate_Subprogram
0048 1d14 | | Execute_Immediate Reference_Lex_1,0x14 ; Debug Table 0x1.0x5 = 0x48,0xfffa
0049 00c7 | | Action Elaborate_Subprogram
004a 1d15 | | Execute_Immediate Reference_Lex_1,0x15 ; Debug Table 0x1.0x6 = 0x4a,0xfff9
004b 00c7 | | Action Elaborate_Subprogram
004c 1d17 | | Execute_Immediate Reference_Lex_1,0x17 ; Debug Table 0x1.0x7 = 0x4c,0xfff8
004d 00c7 | | Action Elaborate_Subprogram
004e 1d18 | | Execute_Immediate Reference_Lex_1,0x18 ; Debug Table 0x1.0x8 = 0x4e,0xfff7
004f 00c7 | | Action Elaborate_Subprogram
0050 1d19 | | Execute_Immediate Reference_Lex_1,0x19 ; Debug Table 0x1.0x9 = 0x50,0xfff6
0051 00c7 | | Action Elaborate_Subprogram
0052 1d1a | | Execute_Immediate Reference_Lex_1,0x1a ; Debug Table 0x1.0xa = 0x52,0xfff5
0053 00c7 | | Action Elaborate_Subprogram
0054 1d1b | | Execute_Immediate Reference_Lex_1,0x1b ; Debug Table 0x1.0xb = 0x54,0xfff4
0055 00c7 | | Action Elaborate_Subprogram
0056 BODY_0008:
0056 00bc | | Action Signal_Activated
0057 00bb | | Action Signal_Completion
0058 ; --------------------------------------------------------------------------------------
0058 ; SUBPROGRAM
0058 ; --------------------------------------------------------------------------------------
0058 005b | [ | .CONST 0x005b ; Address of begin
0059 0070 | p | .CONST 0x0070 ; Address of exception handler
005a 0001 | | .CONST 0x0001 ; Number of locals
005b BODY_0058:
005b INIT_0058:
005b e20d | | Load 0x1,0xd ; Debug Table 0x2 = .DEBUG 0x005b,0x0226,0x0001,0x0000,0x0059,0x88b5,0x0000,0x0576
; Debug Table 0x2.0x0 = 0x5b,0x1
005c e003 | | Load 0x0,0x3
005d 1811 | | Execute Package,Field_Execute,Field_Number 0x11
005e e004 | | Load 0x0,0x4
005f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
0060 039c | | Declare_Variable Heap_Access,By_Allocation
0061 a5fd | | Store_Unchecked 0x2,-0x3
0062 e5fd | | Load 0x2,-0x3 ; Debug Table 0x2.0x1 = 0x62,0x2
; Debug Table 0x2.0x2 = 0x62,0x3
0063 0219 | | Execute Heap_Access,All_Read
0064 e005 | | Load 0x0,0x5
0065 1b12 | | Execute Package,Field_Read,Field_Number 0x12
0066 00d9 | | Load_Top At_Offset_1
0067 e5fe | | Load 0x2,-0x2
0068 4803 |H | Short_Literal 0x3
0069 e5ff | | Load 0x2,-0x1
006a 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
006b 0229 | ) | Execute Access,All_Read
006c 171d | | Execute Task,Entry_Call,Field_Number 0x1d
006d 00d1 | | Pop_Control Pop_Count_1
006e c5fc | | Store 0x2,-0x4
006f 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0070 TRAP_0058:
0070 010a | | Execute Exception,Is_Tasking_Error
0071 6803 |h | Jump_Zero 0x75
0072 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x3 = 0x72,0x4
0073 a5fc | | Store_Unchecked 0x2,-0x4
0074 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0075 480d |H | Short_Literal 0xd ; Debug Table 0x2.0x4 = 0x75,0x5
0076 a5fc | | Store_Unchecked 0x2,-0x4
0077 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007d | } | .CONST 0x007d ; Address of begin
0079 0004 | | .CONST 0x0004 ; Address of exception handler
007a 0003 | | .CONST 0x0003 ; Number of locals
007b INIT_0078:
007b 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3 = .DEBUG 0x007b,0x0232,0x0001,0x0000,0x0059,0x88b5,0x0000,0x058f
; Debug Table 0x3.0x0 = 0x7b,0xffff
007c 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x1 = 0x7c,0xfffe
007d BODY_0078:
007d 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x3.0x2 = 0x7d,0x1
007e 00e1 | | Load_Encached Boolean_Cache
007f e006 | | Load 0x0,0x6
0080 1b0d | | Execute Package,Field_Read,Field_Number 0xd
0081 e5fe | | Load 0x2,-0x2
0082 e5ff | | Load 0x2,-0x1
0083 0217 | | Execute Heap_Access,All_Reference
0084 e002 | | Load 0x0,0x2
0085 181c | | Execute Package,Field_Execute,Field_Number 0x1c
0086 c5fd | | Store 0x2,-0x3
0087 005b | [ | Store_Top Discrete,At_Offset_3
0088 0059 | Y | Store_Top Discrete,At_Offset_1
0089 00d9 | | Load_Top At_Offset_1 ; Debug Table 0x3.0x3 = 0x89,0x2
008a 6803 |h | Jump_Zero 0x8e
008b 4800 |H | Short_Literal 0x0 ; Debug Table 0x3.0x4 = 0x8b,0x3
008c a5fc | | Store_Unchecked 0x2,-0x4
008d 4503 |E | Exit_Suprogram New_Top_Offset 0x3
008e 4806 |H | Short_Literal 0x6 ; Debug Table 0x3.0x5 = 0x8e,0x4
008f a5fc | | Store_Unchecked 0x2,-0x4
0090 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0091 0000 0000 | | .BLANK 0000[0x7]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b | | .CONST 0x009b ; Address of begin
0099 00ae | | .CONST 0x00ae ; Address of exception handler
009a 0001 | | .CONST 0x0001 ; Number of locals
009b BODY_0098:
009b INIT_0098:
009b e5fd | | Load 0x2,-0x3 ; Debug Table 0x4 = .DEBUG 0x009b,0x0240,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05a6
; Debug Table 0x4.0x0 = 0x9b,0x1
009c 0219 | | Execute Heap_Access,All_Read
009d e005 | | Load 0x0,0x5
009e 1b12 | | Execute Package,Field_Read,Field_Number 0x12
009f 00d9 | | Load_Top At_Offset_1
00a0 e5fe | | Load 0x2,-0x2
00a1 4803 |H | Short_Literal 0x3
00a2 e5ff | | Load 0x2,-0x1
00a3 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00a4 0229 | ) | Execute Access,All_Read
00a5 171e | | Execute Task,Entry_Call,Field_Number 0x1e
00a6 00d1 | | Pop_Control Pop_Count_1
00a7 c5fc | | Store 0x2,-0x4
00a8 00d1 | | Pop_Control Pop_Count_1
00a9 e20d | | Load 0x1,0xd ; Debug Table 0x4.0x1 = 0xa9,0x2
00aa a5fd | | Store_Unchecked 0x2,-0x3
00ab 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x2 = 0xab,0x3
00ac a5fc | | Store_Unchecked 0x2,-0x4
00ad 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ae TRAP_0098:
00ae 010a | | Execute Exception,Is_Tasking_Error
00af 6805 |h | Jump_Zero 0xb5
00b0 e20d | | Load 0x1,0xd ; Debug Table 0x4.0x3 = 0xb0,0x4
00b1 a5fd | | Store_Unchecked 0x2,-0x3
00b2 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x4 = 0xb2,0x5
00b3 a5fc | | Store_Unchecked 0x2,-0x4
00b4 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00b5 e20d | | Load 0x1,0xd ; Debug Table 0x4.0x5 = 0xb5,0x6
00b6 a5fd | | Store_Unchecked 0x2,-0x3
00b7 480d |H | Short_Literal 0xd ; Debug Table 0x4.0x6 = 0xb7,0x7
00b8 a5fc | | Store_Unchecked 0x2,-0x4
00b9 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ba 0000 0000 | | .BLANK 0000[0x6]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3 | | .CONST 0x00c3 ; Address of begin
00c1 0004 | | .CONST 0x0004 ; Address of exception handler
00c2 0001 | | .CONST 0x0001 ; Number of locals
00c3 BODY_00c0:
00c3 INIT_00c0:
00c3 48e2 |H | Short_Literal 0xe2 ; Debug Table 0x5 = .DEBUG 0x00c3,0x0250,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05bb
; Debug Table 0x5.0x0 = 0xc3,0x1
00c4 0257 | W | Execute Discrete,Raise
00c5 0000 0000 | | .XXX[0x3]
00c7 0000 | |
00c8 ; --------------------------------------------------------------------------------------
00c8 ; SUBPROGRAM
00c8 ; --------------------------------------------------------------------------------------
00c8 00cb | | .CONST 0x00cb ; Address of begin
00c9 0004 | | .CONST 0x0004 ; Address of exception handler
00ca 0001 | | .CONST 0x0001 ; Number of locals
00cb BODY_00c8:
00cb INIT_00c8:
00cb 4603 |F | Jump_Case 0x4 ; Debug Table 0x6 = .DEBUG 0x00cb,0x0254,0x0005,0x0000,0x0059,0x88b5,0x0000,0x05cb
00cc 4302 |C | Exit_Subprogram From_Utility,New_Top_Offset 0x2 ; case 0x0
00cd 7802 |x | Jump 0xd0 ; case 0x1
00ce 7805 |x | Jump 0xd4 ; case 0x2
00cf 7809 |x | Jump 0xd9 ; case 0x3
00d0 00da | | Load_Top At_Offset_2
00d1 0091 015a | Z| Action Push_String_Extended_Indexed,0x15a ; "PERFECT"
00d3 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00d4 00db | | Load_Top At_Offset_3
00d5 00db | | Load_Top At_Offset_3
00d6 00e0 | | Load_Encached Standard_Cache
00d7 181b | | Execute Package,Field_Execute,Field_Number 0x1b
00d8 4202 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x2
00d9 00da | | Load_Top At_Offset_2
00da 00e0 | | Load_Encached Standard_Cache
00db 181c | | Execute Package,Field_Execute,Field_Number 0x1c
00dc 4201 |B | Exit_Subprogram From_Utility,With_Result,New_Top_Offset 0x1
00dd 0000 0000 | | .XXX[0x3]
00df 0000 | |
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3 | | .CONST 0x00e3 ; Address of begin
00e1 00ef | | .CONST 0x00ef ; Address of exception handler
00e2 0001 | | .CONST 0x0001 ; Number of locals
00e3 BODY_00e0:
00e3 INIT_00e0:
00e3 e5fd | | Load 0x2,-0x3 ; Debug Table 0x7 = .DEBUG 0x00e3,0x0256,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05d6
; Debug Table 0x7.0x0 = 0xe3,0x1
00e4 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e5 4801 |H | Short_Literal 0x1
00e6 e5ff | | Load 0x2,-0x1
00e7 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
00e8 0229 | ) | Execute Access,All_Read
00e9 171f | | Execute Task,Entry_Call,Field_Number 0x1f
00ea e5fd | | Load 0x2,-0x3
00eb 3800 |8 | Execute Record,Field_Write,Field_Number 0x0
00ec 4800 |H | Short_Literal 0x0 ; Debug Table 0x7.0x1 = 0xec,0x2
00ed a5fc | | Store_Unchecked 0x2,-0x4
00ee 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00ef TRAP_00e0:
00ef 010a | | Execute Exception,Is_Tasking_Error
00f0 6803 |h | Jump_Zero 0xf4
00f1 4801 |H | Short_Literal 0x1 ; Debug Table 0x7.0x2 = 0xf1,0x3
00f2 a5fc | | Store_Unchecked 0x2,-0x4
00f3 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f4 480d |H | Short_Literal 0xd ; Debug Table 0x7.0x3 = 0xf4,0x4
00f5 a5fc | | Store_Unchecked 0x2,-0x4
00f6 4503 |E | Exit_Suprogram New_Top_Offset 0x3
00f7 0000 | | .XXX[0x1]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd | | .CONST 0x00fd ; Address of begin
00f9 0115 | | .CONST 0x0115 ; Address of exception handler
00fa 0002 | | .CONST 0x0002 ; Number of locals
00fb INIT_00f8:
00fb e001 | | Load 0x0,0x1 ; Debug Table 0x8 = .DEBUG 0x00fb,0x0260,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05ef
; Debug Table 0x8.0x0 = 0xfb,0xffff
00fc 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00fd BODY_00f8:
00fd e001 | | Load 0x0,0x1 ; Debug Table 0x8.0x1 = 0xfd,0x1
00fe 1b0f | | Execute Package,Field_Read,Field_Number 0xf
00ff e5fd | | Load 0x2,-0x3
0100 e5fe | | Load 0x2,-0x2
0101 e5ff | | Load 0x2,-0x1
0102 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0103 e001 | | Load 0x0,0x1
0104 1816 | | Execute Package,Field_Execute,Field_Number 0x16
0105 00d1 | | Pop_Control Pop_Count_1
0106 0059 | Y | Store_Top Discrete,At_Offset_1
0107 00d8 | | Load_Top At_Offset_0 ; Debug Table 0x8.0x2 = 0x107,0x2
0108 4602 |F | Jump_Case 0x3
0109 7802 |x | Jump 0x10c ; case 0x0
010a 7804 |x | Jump 0x10f ; case 0x1
010b 7806 |x | Jump 0x112 ; case 0x2
010c 4800 |H | Short_Literal 0x0 ; Debug Table 0x8.0x3 = 0x10c,0x3
010d a5fc | | Store_Unchecked 0x2,-0x4
010e 4503 |E | Exit_Suprogram New_Top_Offset 0x3
010f 4801 |H | Short_Literal 0x1 ; Debug Table 0x8.0x4 = 0x10f,0x4
0110 a5fc | | Store_Unchecked 0x2,-0x4
0111 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0112 4802 |H | Short_Literal 0x2 ; Debug Table 0x8.0x5 = 0x112,0x5
0113 a5fc | | Store_Unchecked 0x2,-0x4
0114 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0115 TRAP_00f8:
0115 0007 | | Action Break_Optional
0116 4802 |H | Short_Literal 0x2 ; Debug Table 0x8.0x6 = 0x116,0x6
0117 a5fc | | Store_Unchecked 0x2,-0x4
0118 4503 |E | Exit_Suprogram New_Top_Offset 0x3
0119 0000 0000 | | .BLANK 0000[0x7]
0120 ; --------------------------------------------------------------------------------------
0120 ; SUBPROGRAM
0120 ; --------------------------------------------------------------------------------------
0120 0123 | # | .CONST 0x0123 ; Address of begin
0121 0004 | | .CONST 0x0004 ; Address of exception handler
0122 0001 | | .CONST 0x0001 ; Number of locals
0123 BODY_0120:
0123 INIT_0120:
0123 00db | | Load_Top At_Offset_3 ; Debug Table 0x9 = .DEBUG 0x0123,0x0270,0x0001,0x0000,0x0059,0x88b5,0x0000,0x060b
; Debug Table 0x9.0x0 = 0x123,0x1
0124 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0125 00db | | Load_Top At_Offset_3
0126 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0127 e001 | | Load 0x0,0x1
0128 1818 | | Execute Package,Field_Execute,Field_Number 0x18
0129 4502 |E | Exit_Suprogram New_Top_Offset 0x2
012a 0000 0000 | | .BLANK 0000[0x6]
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 00da | | Load_Top At_Offset_2 ; Debug Table 0xa = .DEBUG 0x0133,0x0274,0x0001,0x0000,0x0059,0x88b5,0x0000,0x0617
; Debug Table 0xa.0x0 = 0x133,0x1
0134 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0135 e001 | | Load 0x0,0x1
0136 1819 | | Execute Package,Field_Execute,Field_Number 0x19
0137 4501 |E | Exit_Suprogram New_Top_Offset 0x1
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 013b | ; | .CONST 0x013b ; Address of begin
0139 0004 | | .CONST 0x0004 ; Address of exception handler
013a 0001 | | .CONST 0x0001 ; Number of locals
013b BODY_0138:
013b INIT_0138:
013b 00da | | Load_Top At_Offset_2 ; Debug Table 0xb = .DEBUG 0x013b,0x0278,0x0002,0x0000,0x0059,0x88b5,0x0000,0x061f
; Debug Table 0xb.0x0 = 0x13b,0x1
013c 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
013d e001 | | Load 0x0,0x1
013e 181a | | Execute Package,Field_Execute,Field_Number 0x1a
013f 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0140 ; --------------------------------------------------------------------------------------
0140 ; SUBPROGRAM
0140 ; --------------------------------------------------------------------------------------
0140 0143 | C | .CONST 0x0143 ; Address of begin
0141 0004 | | .CONST 0x0004 ; Address of exception handler
0142 0001 | | .CONST 0x0001 ; Number of locals
0143 BODY_0140:
0143 INIT_0140:
0143 00da | | Load_Top At_Offset_2 ; Debug Table 0xc = .DEBUG 0x0143,0x027c,0x0002,0x0000,0x0059,0x88b5,0x0000,0x062a
; Debug Table 0xc.0x0 = 0x143,0x1
0144 3400 |4 | Execute Record,Field_Reference,Field_Number 0x0
0145 e001 | | Load 0x0,0x1
0146 181b | | Execute Package,Field_Execute,Field_Number 0x1b
0147 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0148 ; --------------------------------------------------------------------------------------
0148 ; SUBPROGRAM
0148 ; --------------------------------------------------------------------------------------
0148 014e | N | .CONST 0x014e ; Address of begin
0149 0157 | W | .CONST 0x0157 ; Address of exception handler
014a 0002 | | .CONST 0x0002 ; Number of locals
014b INIT_0148:
014b e006 | | Load 0x0,0x6 ; Debug Table 0xd = .DEBUG 0x014b,0x0280,0x0002,0x0000,0x0059,0x88b5,0x0000,0x0633
; Debug Table 0xd.0x0 = 0x14b,0xffff
014c 1b12 | | Execute Package,Field_Read,Field_Number 0x12
014d 0322 | " | Declare_Variable Record
014e BODY_0148:
014e 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x1 = 0x14e,0x1
014f 4801 |H | Short_Literal 0x1
0150 e5ff | | Load 0x2,-0x1
0151 3c00 |< | Execute Record,Field_Read,Field_Number 0x0
0152 0229 | ) | Execute Access,All_Read
0153 1722 | " | Execute Task,Entry_Call,Field_Number 0x22
0154 00d1 | | Pop_Control Pop_Count_1
0155 00d8 | | Load_Top At_Offset_0 ; Debug Table 0xd.0x2 = 0x155,0x2
0156 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0157 TRAP_0148:
0157 0007 | | Action Break_Optional
0158 4831 |H1 | Short_Literal 0x31 ; Debug Table 0xd.0x3 = 0x158,0x3
0159 0257 | W | Execute Discrete,Raise
015a ; --------------------------------------------------------------------------------------
015a ; STRING TABLE
015a ; --------------------------------------------------------------------------------------
015a 0008 | | .STRTAB 0x0008->0x015e ; "PERFECT"
015b 000d | | .STRTAB 0x000d->0x0161 ; "PREFIX"
015c 0011 | | .STRTAB 0x0011->0x0164 ; "NONE_POSSIBLE"
015d 001c | | .STREND 0x001c->0x016b
015e 5045 5246 |PERF| .STRTAB_STRINGS
016b 0000 0000 | | .BLANK 0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; Debug Table
0170 ; --------------------------------------------------------------------------------------
0170 0003 000e | | .CONST 0x0003,0x000e
0172 000b 01e2 | | .DEBUG 0x000b,0x01e2,0x0000,0x0000,0x0059,0x88b5,0x0000,0x0571
017a 003c 020c | < | .DEBUG 0x003c,0x020c,0x0000,0x0000,0x0059,0x8c95,0x0000,0x0008
0182 005b 0226 | [ &| .DEBUG 0x005b,0x0226,0x0001,0x0000,0x0059,0x88b5,0x0000,0x0576
018a 007b 0232 | { 2| .DEBUG 0x007b,0x0232,0x0001,0x0000,0x0059,0x88b5,0x0000,0x058f
0192 009b 0240 | @| .DEBUG 0x009b,0x0240,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05a6
019a 00c3 0250 | P| .DEBUG 0x00c3,0x0250,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05bb
01a2 00cb 0254 | T| .DEBUG 0x00cb,0x0254,0x0005,0x0000,0x0059,0x88b5,0x0000,0x05cb
01aa 00e3 0256 | V| .DEBUG 0x00e3,0x0256,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05d6
01b2 00fb 0260 | `| .DEBUG 0x00fb,0x0260,0x0001,0x0000,0x0059,0x88b5,0x0000,0x05ef
01ba 0123 0270 | # p| .DEBUG 0x0123,0x0270,0x0001,0x0000,0x0059,0x88b5,0x0000,0x060b
01c2 0133 0274 | 3 t| .DEBUG 0x0133,0x0274,0x0001,0x0000,0x0059,0x88b5,0x0000,0x0617
01ca 013b 0278 | ; x| .DEBUG 0x013b,0x0278,0x0002,0x0000,0x0059,0x88b5,0x0000,0x061f
01d2 0143 027c | C || .DEBUG 0x0143,0x027c,0x0002,0x0000,0x0059,0x88b5,0x0000,0x062a
01da 014b 0280 | K | .DEBUG 0x014b,0x0280,0x0002,0x0000,0x0059,0x88b5,0x0000,0x0633
01e2 ; --------------------------------------------------------------------------------------
01e2 ; Debug3 Subtable 0x0
01e2 ; --------------------------------------------------------------------------------------
01e2 0014 0000 | | .DBG3TAB 0x0014,0x0000
01e4 000b ffff | | .CONST 0x000b,0xffff
01e6 000c fffe | | .CONST 0x000c,0xfffe
01e8 000e fffd | | .CONST 0x000e,0xfffd
01ea 0010 fffc | | .CONST 0x0010,0xfffc
01ec 0012 fffb | | .CONST 0x0012,0xfffb
01ee 0014 fffa | | .CONST 0x0014,0xfffa
01f0 0019 fff9 | | .CONST 0x0019,0xfff9
01f2 001b fff8 | | .CONST 0x001b,0xfff8
01f4 001d fff7 | | .CONST 0x001d,0xfff7
01f6 001f fff6 | | .CONST 0x001f,0xfff6
01f8 0021 fff5 | ! | .CONST 0x0021,0xfff5
01fa 0023 fff4 | # | .CONST 0x0023,0xfff4
01fc 0025 fff3 | % | .CONST 0x0025,0xfff3
01fe 0027 fff2 | ' | .CONST 0x0027,0xfff2
0200 0029 fff1 | ) | .CONST 0x0029,0xfff1
0202 002b fff0 | + | .CONST 0x002b,0xfff0
0204 002d ffef | - | .CONST 0x002d,0xffef
0206 0031 ffee | 1 | .CONST 0x0031,0xffee
0208 0031 ffed | 1 | .CONST 0x0031,0xffed
020a 0036 ffec | 6 | .CONST 0x0036,0xffec
020c ; --------------------------------------------------------------------------------------
020c ; Debug3 Subtable 0x1
020c ; --------------------------------------------------------------------------------------
020c 000c 0000 | | .DBG3TAB 0x000c,0x0000
020e 003c ffff | < | .CONST 0x003c,0xffff
0210 0040 fffe | @ | .CONST 0x0040,0xfffe
0212 0042 fffd | B | .CONST 0x0042,0xfffd
0214 0044 fffc | D | .CONST 0x0044,0xfffc
0216 0046 fffb | F | .CONST 0x0046,0xfffb
0218 0048 fffa | H | .CONST 0x0048,0xfffa
021a 004a fff9 | J | .CONST 0x004a,0xfff9
021c 004c fff8 | L | .CONST 0x004c,0xfff8
021e 004e fff7 | N | .CONST 0x004e,0xfff7
0220 0050 fff6 | P | .CONST 0x0050,0xfff6
0222 0052 fff5 | R | .CONST 0x0052,0xfff5
0224 0054 fff4 | T | .CONST 0x0054,0xfff4
0226 ; --------------------------------------------------------------------------------------
0226 ; Debug3 Subtable 0x2
0226 ; --------------------------------------------------------------------------------------
0226 0000 0005 | | .DBG3TAB 0x0000,0x0005
0228 005b 0001 | [ | .CONST 0x005b,0x0001
022a 0062 0002 | b | .CONST 0x0062,0x0002
022c 0062 0003 | b | .CONST 0x0062,0x0003
022e 0072 0004 | r | .CONST 0x0072,0x0004
0230 0075 0005 | u | .CONST 0x0075,0x0005
0232 ; --------------------------------------------------------------------------------------
0232 ; Debug3 Subtable 0x3
0232 ; --------------------------------------------------------------------------------------
0232 0002 0004 | | .DBG3TAB 0x0002,0x0004
0234 007b ffff | { | .CONST 0x007b,0xffff
0236 007c fffe | | | .CONST 0x007c,0xfffe
0238 007d 0001 | } | .CONST 0x007d,0x0001
023a 0089 0002 | | .CONST 0x0089,0x0002
023c 008b 0003 | | .CONST 0x008b,0x0003
023e 008e 0004 | | .CONST 0x008e,0x0004
0240 ; --------------------------------------------------------------------------------------
0240 ; Debug3 Subtable 0x4
0240 ; --------------------------------------------------------------------------------------
0240 0000 0007 | | .DBG3TAB 0x0000,0x0007
0242 009b 0001 | | .CONST 0x009b,0x0001
0244 00a9 0002 | | .CONST 0x00a9,0x0002
0246 00ab 0003 | | .CONST 0x00ab,0x0003
0248 00b0 0004 | | .CONST 0x00b0,0x0004
024a 00b2 0005 | | .CONST 0x00b2,0x0005
024c 00b5 0006 | | .CONST 0x00b5,0x0006
024e 00b7 0007 | | .CONST 0x00b7,0x0007
0250 ; --------------------------------------------------------------------------------------
0250 ; Debug3 Subtable 0x5
0250 ; --------------------------------------------------------------------------------------
0250 0000 0001 | | .DBG3TAB 0x0000,0x0001
0252 00c3 0001 | | .CONST 0x00c3,0x0001
0254 ; --------------------------------------------------------------------------------------
0254 ; Debug3 Subtable 0x6
0254 ; --------------------------------------------------------------------------------------
0254 0000 0000 | | .DBG3TAB 0x0000,0x0000
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug3 Subtable 0x7
0256 ; --------------------------------------------------------------------------------------
0256 0000 0004 | | .DBG3TAB 0x0000,0x0004
0258 00e3 0001 | | .CONST 0x00e3,0x0001
025a 00ec 0002 | | .CONST 0x00ec,0x0002
025c 00f1 0003 | | .CONST 0x00f1,0x0003
025e 00f4 0004 | | .CONST 0x00f4,0x0004
0260 ; --------------------------------------------------------------------------------------
0260 ; Debug3 Subtable 0x8
0260 ; --------------------------------------------------------------------------------------
0260 0001 0006 | | .DBG3TAB 0x0001,0x0006
0262 00fb ffff | | .CONST 0x00fb,0xffff
0264 00fd 0001 | | .CONST 0x00fd,0x0001
0266 0107 0002 | | .CONST 0x0107,0x0002
0268 010c 0003 | | .CONST 0x010c,0x0003
026a 010f 0004 | | .CONST 0x010f,0x0004
026c 0112 0005 | | .CONST 0x0112,0x0005
026e 0116 0006 | | .CONST 0x0116,0x0006
0270 ; --------------------------------------------------------------------------------------
0270 ; Debug3 Subtable 0x9
0270 ; --------------------------------------------------------------------------------------
0270 0000 0001 | | .DBG3TAB 0x0000,0x0001
0272 0123 0001 | # | .CONST 0x0123,0x0001
0274 ; --------------------------------------------------------------------------------------
0274 ; Debug3 Subtable 0xa
0274 ; --------------------------------------------------------------------------------------
0274 0000 0001 | | .DBG3TAB 0x0000,0x0001
0276 0133 0001 | 3 | .CONST 0x0133,0x0001
0278 ; --------------------------------------------------------------------------------------
0278 ; Debug3 Subtable 0xb
0278 ; --------------------------------------------------------------------------------------
0278 0000 0001 | | .DBG3TAB 0x0000,0x0001
027a 013b 0001 | ; | .CONST 0x013b,0x0001
027c ; --------------------------------------------------------------------------------------
027c ; Debug3 Subtable 0xc
027c ; --------------------------------------------------------------------------------------
027c 0000 0001 | | .DBG3TAB 0x0000,0x0001
027e 0143 0001 | C | .CONST 0x0143,0x0001
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug3 Subtable 0xd
0280 ; --------------------------------------------------------------------------------------
0280 0001 0003 | | .DBG3TAB 0x0001,0x0003
0282 014b ffff | K | .CONST 0x014b,0xffff
0284 014e 0001 | N | .CONST 0x014e,0x0001
0286 0155 0002 | U | .CONST 0x0155,0x0002
0288 0158 0003 | X | .CONST 0x0158,0x0003
028a 0000 0000 | | .BLANK 0000[0x176]