|
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: 5807_R1K_CODE
Names: »1266706.SEG«
└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
└─ ⟦this⟧ »1266706.SEG«
└─ ⟦this⟧ »1266706.SEG«
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
└─ ⟦this⟧ »1266706.SEG«
└─ ⟦this⟧ »1266706.SEG«
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
└─ ⟦this⟧ »1266706.SEG«
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
└─ ⟦this⟧ »1266706.SEG«
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
└─ ⟦this⟧ »1266706.SEG«
0000 000f | | .CONST 0x000f ; Version of machine code
0001 5807 |X | .CONST 0x5807 ; Diana Version, RCG Major Version, RCG minor version
0002 0000 | | .CONST 0x0000 ; Zero
0003 0180 | | .CONST 0x0180 ; 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 001e | | .CONST 0x001e ; Address of begin
0009 0004 | | .CONST 0x0004 ; Address of exception handler
000a 0010 | | .CONST 0x0010 ; Number of locals
000b INIT_0008:
000b 0007 | | Action Break_Optional ; Debug Table 0x0 = .DEBUG 0x000b,0x01b2,0x8000,0x0000,0x000e,0x89c4,0x0000,0x0007
; Debug Table 0x0.0x0 = 0xb,0xffff
000c 0007 | | Action Break_Optional ; Debug Table 0x0.0x1 = 0xc,0xfffe
000d 029a 0023 | #| Declare_Subprogram INIT_0020,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x2 = 0xd,0xfffd
000f 029a 00cb | | Declare_Subprogram INIT_00c8,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x3 = 0xf,0xfffc
0011 029a 00d3 | | Declare_Subprogram INIT_00d0,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x4 = 0x11,0xfffb
0013 029a 0133 | 3| Declare_Subprogram INIT_0130,For_Outer_Call,Visible,Unelaborated ; Debug Table 0x0.0x5 = 0x13,0xfffa
0015 00bf | | Action Accept_Activation
0016 1d0d | | Execute_Immediate Reference_Lex_1,0xd ; Debug Table 0x1 = .DEBUG 0x0016,0x01c0,0x8000,0x0000,0x000e,0x89d4,0x0000,0x000d
; Debug Table 0x1.0x0 = 0x16,0xffff
0017 00c7 | | Action Elaborate_Subprogram
0018 1d0e | | Execute_Immediate Reference_Lex_1,0xe ; Debug Table 0x1.0x1 = 0x18,0xfffe
0019 00c7 | | Action Elaborate_Subprogram
001a 1d0f | | Execute_Immediate Reference_Lex_1,0xf ; Debug Table 0x1.0x2 = 0x1a,0xfffd
001b 00c7 | | Action Elaborate_Subprogram
001c 1d10 | | Execute_Immediate Reference_Lex_1,0x10 ; Debug Table 0x1.0x3 = 0x1c,0xfffc
001d 00c7 | | Action Elaborate_Subprogram
001e BODY_0008:
001e 00bc | | Action Signal_Activated
001f 00bb | | Action Signal_Completion
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 003e | > | .CONST 0x003e ; Address of begin
0021 00a5 | | .CONST 0x00a5 ; Address of exception handler
0022 000b | | .CONST 0x000b ; Number of locals
0023 INIT_0020:
0023 48c8 |H | Short_Literal 0xc8 ; Debug Table 0x2 = .DEBUG 0x0023,0x01ca,0x0002,0x0000,0x000e,0x89c4,0x0000,0x0015
; Debug Table 0x2.0x0 = 0x23,0xffff
0024 e001 | | Load 0x0,0x1
0025 1b0e | | Execute Package,Field_Read,Field_Number 0xe
0026 1c08 | | Execute_Immediate Run_Utility,0x8
0027 e402 | | Load 0x2,0x2
0028 1c00 | | Execute_Immediate Run_Utility,0x0
0029 00e5 | | Load_Encached Long_Integer_Cache ; Debug Table 0x2.0x1 = 0x29,0xfffe
002a 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002b e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x2 = 0x2b,0xfffd
002c 1b0e | | Execute Package,Field_Read,Field_Number 0xe
002d 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
002e e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x3 = 0x2e,0xfffc
002f 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0030 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x4 = 0x30,0xfffb
0031 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
0032 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x5 = 0x32,0xfffa
0033 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
0034 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x2.0x6 = 0x34,0xfff9
0035 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x7 = 0x35,0xfff8
0036 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0037 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x2.0x8 = 0x37,0xfff7
0038 e002 | | Load 0x0,0x2 ; Debug Table 0x2.0x9 = 0x38,0xfff6
0039 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
003a 0322 | " | Declare_Variable Record
003b 0007 | | Action Break_Optional ; Debug Table 0x2.0xa = 0x3b,0xfff5
003c 0007 | | Action Break_Optional ; Debug Table 0x2.0xb = 0x3c,0xfff4
003d 0007 | | Action Break_Optional ; Debug Table 0x2.0xc = 0x3d,0xfff3
003e BODY_0020:
003e 4800 |H | Short_Literal 0x0 ; Debug Table 0x2.0xd = 0x3e,0x1
003f a40a | | Store_Unchecked 0x2,0xa
0040 e003 | | Load 0x0,0x3 ; Debug Table 0x2.0xe = 0x40,0x2
0041 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0042 a407 | | Store_Unchecked 0x2,0x7
0043 e407 | | Load 0x2,0x7 ; Debug Table 0x2.0xf = 0x43,0x3
0044 e002 | | Load 0x0,0x2
0045 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
0046 e002 | | Load 0x0,0x2
0047 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
0048 a405 | | Store_Unchecked 0x2,0x5
0049 e407 | | Load 0x2,0x7 ; Debug Table 0x2.0x10 = 0x49,0x4
004a e405 | | Load 0x2,0x5
004b e002 | | Load 0x0,0x2
004c 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
004d a406 | | Store_Unchecked 0x2,0x6
004e e406 | | Load 0x2,0x6 ; Debug Table 0x2.0x11 = 0x4e,0x5
004f e002 | | Load 0x0,0x2
0050 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
0051 a409 | | Store_Unchecked 0x2,0x9
0052 4fff |O | Short_Literal -0x1 ; Debug Table 0x2.0x12 = 0x52,0x6
0053 a408 | | Store_Unchecked 0x2,0x8
0054 0007 | | Action Break_Optional ; Debug Table 0x2.0x13 = 0x54,0x7
0055 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x14 = 0x55,0x8
0056 e409 | | Load 0x2,0x9
0057 0275 | u | Execute Discrete,Unary_Minus
0058 027a | z | Execute Discrete,Less_Equal
0059 702e |p. | Jump_Nonzero 0x88
005a e409 | | Load 0x2,0x9 ; Debug Table 0x2.0x15 = 0x5a,0x9
005b e408 | | Load 0x2,0x8
005c 0273 | s | Execute Discrete,Plus
005d e002 | | Load 0x0,0x2
005e 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
005f 025b | [ | Execute Discrete,Check_In_Type
0060 e405 | | Load 0x2,0x5
0061 e002 | | Load 0x0,0x2
0062 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0063 e40b | | Load 0x2,0xb
0064 017d | } | Execute Record,Structure_Write
0065 e40b | | Load 0x2,0xb ; Debug Table 0x2.0x16 = 0x65,0xa
0066 e002 | | Load 0x0,0x2
0067 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
0068 0b7e | ~ | Execute_Immediate Case_Compare,0x7e
0069 7005 |p | Jump_Nonzero 0x6f
006a e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x17 = 0x6a,0xe
006b 0aff | | Execute_Immediate Plus,-0x1
006c 0248 | H | Execute Discrete,Check_In_Integer
006d a408 | | Store_Unchecked 0x2,0x8
006e 7817 |x | Jump 0x86
006f 0007 | | Action Break_Optional ; Debug Table 0x2.0x18 = 0x6f,0xb
0070 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x19 = 0x70,0x401
0071 0007 | | Action Break_Optional
0072 4802 |H | Short_Literal 0x2 ; Debug Table 0x2.0x1a = 0x72,0x402
0073 0007 | | Action Break_Optional
0074 009c | | Action Load_Dynamic ; Debug Table 0x2.0x1b = 0x74,0x403
0075 0007 | | Action Break_Optional
0076 0107 | | Execute Exception,Get_Name ; Debug Table 0x2.0x1c = 0x76,0x404
0077 0007 | | Action Break_Optional
0078 c403 | | Store 0x2,0x3 ; Debug Table 0x2.0x1d = 0x78,0x405
0079 e408 | | Load 0x2,0x8 ; Debug Table 0x2.0x1e = 0x79,0x406
007a 0007 | | Action Break_Optional
007b 4802 |H | Short_Literal 0x2 ; Debug Table 0x2.0x1f = 0x7b,0x407
007c 0007 | | Action Break_Optional
007d 009c | | Action Load_Dynamic ; Debug Table 0x2.0x20 = 0x7d,0x408
007e 0007 | | Action Break_Optional
007f 0106 | | Execute Exception,Address ; Debug Table 0x2.0x21 = 0x7f,0x409
0080 0007 | | Action Break_Optional
0081 c404 | | Store 0x2,0x4 ; Debug Table 0x2.0x22 = 0x81,0x40a
0082 4801 |H | Short_Literal 0x1 ; Debug Table 0x2.0x23 = 0x82,0xc
0083 a40a | | Store_Unchecked 0x2,0xa
0084 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x2.0x24 = 0x84,0xd
0085 7802 |x | Jump 0x88
0086 00d1 | | Pop_Control Pop_Count_1
0087 7fcd | | Jump 0x55
0088 e40a | | Load 0x2,0xa ; Debug Table 0x2.0x25 = 0x88,0xf
0089 6818 |h | Jump_Zero 0xa2
008a e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x26 = 0x8a,0x10
008b e403 | | Load 0x2,0x3
008c e004 | | Load 0x0,0x4
008d 1813 | | Execute Package,Field_Execute,Field_Number 0x13
008e e001 | | Load 0x0,0x1
008f 1810 | | Execute Package,Field_Execute,Field_Number 0x10
0090 00d1 | | Pop_Control Pop_Count_1
0091 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x27 = 0x91,0x11
0092 e001 | | Load 0x0,0x1
0093 1825 | % | Execute Package,Field_Execute,Field_Number 0x25
0094 7002 |p | Jump_Nonzero 0x97
0095 60a2 |` | Indirect_Literal Discrete,0x138,{0x00000000, 0x0e89d401} ; Debug Table 0x2.0x28 = 0x95,0x12
0096 0257 | W | Execute Discrete,Raise
0097 e402 | | Load 0x2,0x2 ; Debug Table 0x2.0x29 = 0x97,0x13
0098 e001 | | Load 0x0,0x1
0099 1813 | | Execute Package,Field_Execute,Field_Number 0x13
009a 0092 013c | <| Action Push_String_Extended,0x13c ; ", from PC = "
009c 01cc | | Execute Vector,Catenate
009d e404 | | Load 0x2,0x4
009e e005 | | Load 0x0,0x5
009f 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00a0 01cc | | Execute Vector,Catenate
00a1 00ca | | Action Exit_Nullary_Function
00a2 0092 013d | =| Action Push_String_Extended,0x13d ; "<What exception? I see no exception here.>"
; Debug Table 0x2.0x2a = 0xa2,0x14
00a4 00ca | | Action Exit_Nullary_Function
00a5 TRAP_0020:
00a5 0007 | | Action Break_Optional
00a6 e40a | | Load 0x2,0xa ; Debug Table 0x2.0x2b = 0xa6,0x15
00a7 681b |h | Jump_Zero 0xc3
00a8 0092 013e | >| Action Push_String_Extended,0x13e ; "<Exception: Unit ="
; Debug Table 0x2.0x2c = 0xa8,0x16
00aa e403 | | Load 0x2,0x3
00ab 09f8 | | Execute_Immediate Binary_Scale,-0x8
00ac 00e0 | | Load_Encached Standard_Cache
00ad 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00ae 01cc | | Execute Vector,Catenate
00af 0092 013f | ?| Action Push_String_Extended,0x13f ; ", Ord ="
00b1 01cc | | Execute Vector,Catenate
00b2 e403 | | Load 0x2,0x3
00b3 48ff |H | Short_Literal 0xff
00b4 0279 | y | Execute Discrete,And
00b5 00e0 | | Load_Encached Standard_Cache
00b6 1818 | | Execute Package,Field_Execute,Field_Number 0x18
00b7 01cc | | Execute Vector,Catenate
00b8 0092 013c | <| Action Push_String_Extended,0x13c ; ", from PC = "
00ba 01cc | | Execute Vector,Catenate
00bb e404 | | Load 0x2,0x4
00bc e005 | | Load 0x0,0x5
00bd 1811 | | Execute Package,Field_Execute,Field_Number 0x11
00be 01cc | | Execute Vector,Catenate
00bf 0092 0140 | @| Action Push_String_Extended,0x140 ; ">"
00c1 01cc | | Execute Vector,Catenate
00c2 00ca | | Action Exit_Nullary_Function
00c3 0092 0141 | A| Action Push_String_Extended,0x141 ; "<Unable to load exception variable>"
; Debug Table 0x2.0x2d = 0xc3,0x17
00c5 00ca | | Action Exit_Nullary_Function
00c6 0000 0000 | | .XXX[0x2]
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 e004 | | Load 0x0,0x4 ; Debug Table 0x3 = .DEBUG 0x00cb,0x0228,0x0002,0x0000,0x000e,0x89c4,0x0000,0x001a
; Debug Table 0x3.0x0 = 0xcb,0x1
00cc 1823 | # | Execute Package,Field_Execute,Field_Number 0x23
00cd 00ca | | Action Exit_Nullary_Function
00ce 0000 0000 | | .XXX[0x2]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00e3 | | .CONST 0x00e3 ; Address of begin
00d1 0129 | ) | .CONST 0x0129 ; Address of exception handler
00d2 0008 | | .CONST 0x0008 ; Number of locals
00d3 INIT_00d0:
00d3 e002 | | Load 0x0,0x2 ; Debug Table 0x4 = .DEBUG 0x00d3,0x022c,0x0002,0x0000,0x000e,0x89c4,0x0000,0x001f
; Debug Table 0x4.0x0 = 0xd3,0xffff
00d4 1b0e | | Execute Package,Field_Read,Field_Number 0xe
00d5 0600 | | Execute_Immediate Set_Value_Unchecked,0x0
00d6 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x1 = 0xd6,0xfffe
00d7 1b27 | ' | Execute Package,Field_Read,Field_Number 0x27
00d8 e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x2 = 0xd8,0xfffd
00d9 1b28 | ( | Execute Package,Field_Read,Field_Number 0x28
00da 00e2 | | Load_Encached Integer_Cache ; Debug Table 0x4.0x3 = 0xda,0xfffc
00db e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x4 = 0xdb,0xfffb
00dc 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
00dd 00e1 | | Load_Encached Boolean_Cache ; Debug Table 0x4.0x5 = 0xdd,0xfffa
00de e002 | | Load 0x0,0x2 ; Debug Table 0x4.0x6 = 0xde,0xfff9
00df 1b5a | Z | Execute Package,Field_Read,Field_Number 0x5a
00e0 0322 | " | Declare_Variable Record
00e1 0007 | | Action Break_Optional ; Debug Table 0x4.0x7 = 0xe1,0xfff8
00e2 0007 | | Action Break_Optional ; Debug Table 0x4.0x8 = 0xe2,0xfff7
00e3 BODY_00d0:
00e3 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x9 = 0xe3,0x1
00e4 a407 | | Store_Unchecked 0x2,0x7
00e5 e003 | | Load 0x0,0x3 ; Debug Table 0x4.0xa = 0xe5,0x2
00e6 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00e7 e002 | | Load 0x0,0x2
00e8 183a | : | Execute Package,Field_Execute,Field_Number 0x3a
00e9 e002 | | Load 0x0,0x2
00ea 183e | > | Execute Package,Field_Execute,Field_Number 0x3e
00eb a403 | | Store_Unchecked 0x2,0x3
00ec e003 | | Load 0x0,0x3 ; Debug Table 0x4.0xb = 0xec,0x3
00ed 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00ee e403 | | Load 0x2,0x3
00ef e002 | | Load 0x0,0x2
00f0 184d | M | Execute Package,Field_Execute,Field_Number 0x4d
00f1 a404 | | Store_Unchecked 0x2,0x4
00f2 e404 | | Load 0x2,0x4 ; Debug Table 0x4.0xc = 0xf2,0x4
00f3 e002 | | Load 0x0,0x2
00f4 1830 | 0 | Execute Package,Field_Execute,Field_Number 0x30
00f5 a406 | | Store_Unchecked 0x2,0x6
00f6 4fff |O | Short_Literal -0x1 ; Debug Table 0x4.0xd = 0xf6,0x5
00f7 a405 | | Store_Unchecked 0x2,0x5
00f8 0007 | | Action Break_Optional ; Debug Table 0x4.0xe = 0xf8,0x6
00f9 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0xf = 0xf9,0x7
00fa e406 | | Load 0x2,0x6
00fb 0275 | u | Execute Discrete,Unary_Minus
00fc 027a | z | Execute Discrete,Less_Equal
00fd 7025 |p% | Jump_Nonzero 0x123
00fe e406 | | Load 0x2,0x6 ; Debug Table 0x4.0x10 = 0xfe,0x8
00ff e405 | | Load 0x2,0x5
0100 0273 | s | Execute Discrete,Plus
0101 e002 | | Load 0x0,0x2
0102 1b29 | ) | Execute Package,Field_Read,Field_Number 0x29
0103 025b | [ | Execute Discrete,Check_In_Type
0104 e403 | | Load 0x2,0x3
0105 e002 | | Load 0x0,0x2
0106 185b | [ | Execute Package,Field_Execute,Field_Number 0x5b
0107 e408 | | Load 0x2,0x8
0108 017d | } | Execute Record,Structure_Write
0109 e408 | | Load 0x2,0x8 ; Debug Table 0x4.0x11 = 0x109,0x9
010a e002 | | Load 0x0,0x2
010b 185c | \ | Execute Package,Field_Execute,Field_Number 0x5c
010c 0b7e | ~ | Execute_Immediate Case_Compare,0x7e
010d 7005 |p | Jump_Nonzero 0x113
010e e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x12 = 0x10e,0xd
010f 0aff | | Execute_Immediate Plus,-0x1
0110 0248 | H | Execute Discrete,Check_In_Integer
0111 a405 | | Store_Unchecked 0x2,0x5
0112 780e |x | Jump 0x121
0113 0007 | | Action Break_Optional ; Debug Table 0x4.0x13 = 0x113,0xa
0114 e405 | | Load 0x2,0x5 ; Debug Table 0x4.0x14 = 0x114,0x401
0115 0007 | | Action Break_Optional
0116 4802 |H | Short_Literal 0x2 ; Debug Table 0x4.0x15 = 0x116,0x402
0117 0007 | | Action Break_Optional
0118 009c | | Action Load_Dynamic ; Debug Table 0x4.0x16 = 0x118,0x403
0119 0007 | | Action Break_Optional
011a 0106 | | Execute Exception,Address ; Debug Table 0x4.0x17 = 0x11a,0x404
011b 0007 | | Action Break_Optional
011c c402 | | Store 0x2,0x2 ; Debug Table 0x4.0x18 = 0x11c,0x405
011d 4801 |H | Short_Literal 0x1 ; Debug Table 0x4.0x19 = 0x11d,0xb
011e a407 | | Store_Unchecked 0x2,0x7
011f 00d1 | | Pop_Control Pop_Count_1 ; Debug Table 0x4.0x1a = 0x11f,0xc
0120 7802 |x | Jump 0x123
0121 00d1 | | Pop_Control Pop_Count_1
0122 7fd6 | | Jump 0xf9
0123 e407 | | Load 0x2,0x7 ; Debug Table 0x4.0x1b = 0x123,0xe
0124 6802 |h | Jump_Zero 0x127
0125 e402 | | Load 0x2,0x2 ; Debug Table 0x4.0x1c = 0x125,0xf
0126 00ca | | Action Exit_Nullary_Function
0127 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1d = 0x127,0x10
0128 00ca | | Action Exit_Nullary_Function
0129 TRAP_00d0:
0129 0007 | | Action Break_Optional
012a 4800 |H | Short_Literal 0x0 ; Debug Table 0x4.0x1e = 0x12a,0x11
012b 00ca | | Action Exit_Nullary_Function
012c 0000 0000 | | .BLANK 0000[0x4]
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 e5ff | | Load 0x2,-0x1 ; Debug Table 0x5 = .DEBUG 0x0133,0x026c,0x0002,0x0000,0x000e,0x89c4,0x0000,0x0026
; Debug Table 0x5.0x0 = 0x133,0x1
0134 e004 | | Load 0x0,0x4
0135 1813 | | Execute Package,Field_Execute,Field_Number 0x13
0136 4401 |D | Exit_Subprogram With_Value,New_Top_Offset 0x1
0137 0000 | | .XXX[0x1]
0138 0000 0000 | | .LITERAL {0x00000000, 0x0e89d401}
013c ; --------------------------------------------------------------------------------------
013c ; STRING TABLE
013c ; --------------------------------------------------------------------------------------
013c 000e | | .STRTAB 0x000e->0x0143 ; ", from PC = "
013d 0018 | | .STRTAB 0x0018->0x0149 ; "<What exception? I see no exception here.>"
013e 0040 | @ | .STRTAB 0x0040->0x015e ; "<Exception: Unit ="
013f 0050 | P | .STRTAB 0x0050->0x0167 ; ", Ord ="
0140 0055 | U | .STRTAB 0x0055->0x016a ; ">"
0141 0054 | T | .STRTAB 0x0054->0x016b ; "<Unable to load exception variable>"
0142 0075 | u | .STREND 0x0075->0x017c
0143 2c20 6672 |, fr| .STRTAB_STRINGS
017d 0000 0000 | | .XXX[0x3]
017f 0000 | |
0180 ; --------------------------------------------------------------------------------------
0180 ; Debug Table
0180 ; --------------------------------------------------------------------------------------
0180 0003 0006 | | .CONST 0x0003,0x0006
0182 000b 01b2 | | .DEBUG 0x000b,0x01b2,0x8000,0x0000,0x000e,0x89c4,0x0000,0x0007
018a 0016 01c0 | | .DEBUG 0x0016,0x01c0,0x8000,0x0000,0x000e,0x89d4,0x0000,0x000d
0192 0023 01ca | # | .DEBUG 0x0023,0x01ca,0x0002,0x0000,0x000e,0x89c4,0x0000,0x0015
019a 00cb 0228 | (| .DEBUG 0x00cb,0x0228,0x0002,0x0000,0x000e,0x89c4,0x0000,0x001a
01a2 00d3 022c | ,| .DEBUG 0x00d3,0x022c,0x0002,0x0000,0x000e,0x89c4,0x0000,0x001f
01aa 0133 026c | 3 l| .DEBUG 0x0133,0x026c,0x0002,0x0000,0x000e,0x89c4,0x0000,0x0026
01b2 ; --------------------------------------------------------------------------------------
01b2 ; Debug3 Subtable 0x0
01b2 ; --------------------------------------------------------------------------------------
01b2 0006 0000 | | .DBG3TAB 0x0006,0x0000
01b4 000b ffff | | .CONST 0x000b,0xffff
01b6 000c fffe | | .CONST 0x000c,0xfffe
01b8 000d fffd | | .CONST 0x000d,0xfffd
01ba 000f fffc | | .CONST 0x000f,0xfffc
01bc 0011 fffb | | .CONST 0x0011,0xfffb
01be 0013 fffa | | .CONST 0x0013,0xfffa
01c0 ; --------------------------------------------------------------------------------------
01c0 ; Debug3 Subtable 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 0004 0000 | | .DBG3TAB 0x0004,0x0000
01c2 0016 ffff | | .CONST 0x0016,0xffff
01c4 0018 fffe | | .CONST 0x0018,0xfffe
01c6 001a fffd | | .CONST 0x001a,0xfffd
01c8 001c fffc | | .CONST 0x001c,0xfffc
01ca ; --------------------------------------------------------------------------------------
01ca ; Debug3 Subtable 0x2
01ca ; --------------------------------------------------------------------------------------
01ca 000d 0021 | !| .DBG3TAB 0x000d,0x0021
01cc 0023 ffff | # | .CONST 0x0023,0xffff
01ce 0029 fffe | ) | .CONST 0x0029,0xfffe
01d0 002b fffd | + | .CONST 0x002b,0xfffd
01d2 002e fffc | . | .CONST 0x002e,0xfffc
01d4 0030 fffb | 0 | .CONST 0x0030,0xfffb
01d6 0032 fffa | 2 | .CONST 0x0032,0xfffa
01d8 0034 fff9 | 4 | .CONST 0x0034,0xfff9
01da 0035 fff8 | 5 | .CONST 0x0035,0xfff8
01dc 0037 fff7 | 7 | .CONST 0x0037,0xfff7
01de 0038 fff6 | 8 | .CONST 0x0038,0xfff6
01e0 003b fff5 | ; | .CONST 0x003b,0xfff5
01e2 003c fff4 | < | .CONST 0x003c,0xfff4
01e4 003d fff3 | = | .CONST 0x003d,0xfff3
01e6 003e 0001 | > | .CONST 0x003e,0x0001
01e8 0040 0002 | @ | .CONST 0x0040,0x0002
01ea 0043 0003 | C | .CONST 0x0043,0x0003
01ec 0049 0004 | I | .CONST 0x0049,0x0004
01ee 004e 0005 | N | .CONST 0x004e,0x0005
01f0 0052 0006 | R | .CONST 0x0052,0x0006
01f2 0054 0007 | T | .CONST 0x0054,0x0007
01f4 0055 0008 | U | .CONST 0x0055,0x0008
01f6 005a 0009 | Z | .CONST 0x005a,0x0009
01f8 0065 000a | e | .CONST 0x0065,0x000a
01fa 006a 000e | j | .CONST 0x006a,0x000e
01fc 006f 000b | o | .CONST 0x006f,0x000b
01fe 0070 0401 | p | .CONST 0x0070,0x0401
0200 0072 0402 | r | .CONST 0x0072,0x0402
0202 0074 0403 | t | .CONST 0x0074,0x0403
0204 0076 0404 | v | .CONST 0x0076,0x0404
0206 0078 0405 | x | .CONST 0x0078,0x0405
0208 0079 0406 | y | .CONST 0x0079,0x0406
020a 007b 0407 | { | .CONST 0x007b,0x0407
020c 007d 0408 | } | .CONST 0x007d,0x0408
020e 007f 0409 | | .CONST 0x007f,0x0409
0210 0081 040a | | .CONST 0x0081,0x040a
0212 0082 000c | | .CONST 0x0082,0x000c
0214 0084 000d | | .CONST 0x0084,0x000d
0216 0088 000f | | .CONST 0x0088,0x000f
0218 008a 0010 | | .CONST 0x008a,0x0010
021a 0091 0011 | | .CONST 0x0091,0x0011
021c 0095 0012 | | .CONST 0x0095,0x0012
021e 0097 0013 | | .CONST 0x0097,0x0013
0220 00a2 0014 | | .CONST 0x00a2,0x0014
0222 00a6 0015 | | .CONST 0x00a6,0x0015
0224 00a8 0016 | | .CONST 0x00a8,0x0016
0226 00c3 0017 | | .CONST 0x00c3,0x0017
0228 ; --------------------------------------------------------------------------------------
0228 ; Debug3 Subtable 0x3
0228 ; --------------------------------------------------------------------------------------
0228 0000 0001 | | .DBG3TAB 0x0000,0x0001
022a 00cb 0001 | | .CONST 0x00cb,0x0001
022c ; --------------------------------------------------------------------------------------
022c ; Debug3 Subtable 0x4
022c ; --------------------------------------------------------------------------------------
022c 0009 0016 | | .DBG3TAB 0x0009,0x0016
022e 00d3 ffff | | .CONST 0x00d3,0xffff
0230 00d6 fffe | | .CONST 0x00d6,0xfffe
0232 00d8 fffd | | .CONST 0x00d8,0xfffd
0234 00da fffc | | .CONST 0x00da,0xfffc
0236 00db fffb | | .CONST 0x00db,0xfffb
0238 00dd fffa | | .CONST 0x00dd,0xfffa
023a 00de fff9 | | .CONST 0x00de,0xfff9
023c 00e1 fff8 | | .CONST 0x00e1,0xfff8
023e 00e2 fff7 | | .CONST 0x00e2,0xfff7
0240 00e3 0001 | | .CONST 0x00e3,0x0001
0242 00e5 0002 | | .CONST 0x00e5,0x0002
0244 00ec 0003 | | .CONST 0x00ec,0x0003
0246 00f2 0004 | | .CONST 0x00f2,0x0004
0248 00f6 0005 | | .CONST 0x00f6,0x0005
024a 00f8 0006 | | .CONST 0x00f8,0x0006
024c 00f9 0007 | | .CONST 0x00f9,0x0007
024e 00fe 0008 | | .CONST 0x00fe,0x0008
0250 0109 0009 | | .CONST 0x0109,0x0009
0252 010e 000d | | .CONST 0x010e,0x000d
0254 0113 000a | | .CONST 0x0113,0x000a
0256 0114 0401 | | .CONST 0x0114,0x0401
0258 0116 0402 | | .CONST 0x0116,0x0402
025a 0118 0403 | | .CONST 0x0118,0x0403
025c 011a 0404 | | .CONST 0x011a,0x0404
025e 011c 0405 | | .CONST 0x011c,0x0405
0260 011d 000b | | .CONST 0x011d,0x000b
0262 011f 000c | | .CONST 0x011f,0x000c
0264 0123 000e | # | .CONST 0x0123,0x000e
0266 0125 000f | % | .CONST 0x0125,0x000f
0268 0127 0010 | ' | .CONST 0x0127,0x0010
026a 012a 0011 | * | .CONST 0x012a,0x0011
026c ; --------------------------------------------------------------------------------------
026c ; Debug3 Subtable 0x5
026c ; --------------------------------------------------------------------------------------
026c 0000 0001 | | .DBG3TAB 0x0000,0x0001
026e 0133 0001 | 3 | .CONST 0x0133,0x0001
0270 0000 0000 | | .BLANK 0000[0x190]