DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 DFS Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 DFS Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦88ad3b6d9⟧ SEG

    Length: 3072 (0xc00)
    Types: SEG
    Notes: 5811_R1K_CODE
    Names: »794643.SEG«

Derivation

└─⟦24d56d853⟧ Bits:30000744 8mm tape, Rational 1000, DFS, D_12_6_5 SEQ293
    └─ ⟦this⟧ »794643.SEG« 
└─⟦9031b0687⟧ Bits:30000407 8mm tape, Rational 1000, DFS, D_12_7_3
    └─ ⟦this⟧ »794643.SEG« 
└─⟦b4205821b⟧ Bits:30000743 8mm tape, Rational 1000, DFS, D_12_7_3 SEQ288
    └─ ⟦this⟧ »794643.SEG« 
└─⟦b434774df⟧ Bits:30000528 8mm tape, Rational 1000, DFS, D_12_6_5
    └─ ⟦this⟧ »794643.SEG« 
└─⟦bc1274df5⟧ Bits:30000750 8mm tape, Rational 1000, DFS backup from PAM's R1000
    └─ ⟦this⟧ »794643.SEG« 

Disassembly

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 0280       |    |		.CONST	0x0280								; 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 0002       |    |		.CONST	0x0002								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 0061       | a  |		.CONST	0x0061								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0021       | !  |		.CONST	0x0021								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x02f2,0x8000,0x0000,0x0036,0xbf64,0x0000,0x0007
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
000d 0129       | )  |		Execute	Any,Make_Visible
000e 4807       |H   |		Short_Literal	0x7							; Debug Table 0x0.0x1 = 0xe,0xfffe
000f 032b       | +  |		Declare_Type	Record,Incomplete,Visible
0010 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x2 = 0x10,0xfffd
0011 0007       |    |		Action	Break_Optional							; Debug Table 0x0.0x3 = 0x11,0xfffc
0012 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x12,0xfffb
0014 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x14,0xfffa
0016 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x16,0xfff9
0018 029a 015b  |   [|		Declare_Subprogram	INIT_0158,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x7 = 0x18,0xfff8
001a e001       |    |		Load	0x0,0x1								; Debug Table 0x0.0x8 = 0x1a,0xfff7
001b 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
001c 00e9       |    |		Load_Encached	String_Cache						; Debug Table 0x0.0x9 = 0x1c,0xfff6
001d 02a0       |    |		Declare_Subprogram	Null_Subprogram
001e 4818       |H   |		Short_Literal	0x18
001f 03d3       |    |		Declare_Type	Access,Defined,Accesses_Protected
0020 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0x0.0xa = 0x20,0xfff5
0021 00e1       |    |		Load_Encached	Boolean_Cache
0022 00db       |    |		Load_Top	At_Offset_3
0023 e20d       |    |		Load	0x1,0xd
0024 e213       |    |		Load	0x1,0x13
0025 e20d       |    |		Load	0x1,0xd
0026 e214       |    |		Load	0x1,0x14
0027 02a0       |    |		Declare_Subprogram	Null_Subprogram
0028 e20e       |    |		Load	0x1,0xe
0029 0326       | &  |		Complete_Type	Record,By_Defining
002a 00bf       |    |		Action	Accept_Activation
002b 0007       |    |		Action	Break_Optional							; Debug Table 0x1 = .DEBUG	0x002b,0x030a,0x8000,0x0000,0x0036,0xbfa4,0x0000,0x0015
													; Debug Table 0x1.0x0 = 0x2b,0xffff
002c 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x1 = 0x2c,0xfffe
002d 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x2 = 0x2d,0xfffd
002e e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x3 = 0x2e,0xfffc
002f 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
0030 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x4 = 0x30,0xfffb
0031 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0032 e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0x5 = 0x32,0xfffa
0033 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0034 e002       |    |		Load	0x0,0x2								; Debug Table 0x1.0x6 = 0x34,0xfff9
0035 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0036 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x7 = 0x36,0xfff8
0037 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x8 = 0x37,0xfff7
0038 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0x9 = 0x38,0xfff6
0039 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xa = 0x39,0xfff5
003a 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xb = 0x3a,0xfff4
003b 0007       |    |		Action	Break_Optional							; Debug Table 0x1.0xc = 0x3b,0xfff3
003c e001       |    |		Load	0x0,0x1								; Debug Table 0x1.0xd = 0x3c,0xfff2
003d 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
003e 0322       | "  |		Declare_Variable	Record
003f 4900       |I   |		Short_Literal	0x100
0040 00d9       |    |		Load_Top	At_Offset_1
0041 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0042 4802       |H   |		Short_Literal	0x2
0043 00d9       |    |		Load_Top	At_Offset_1
0044 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0045 6222       |b"  |		Indirect_Literal	Discrete,0x268,{0x00000000, 0x00000801}
0046 00d9       |    |		Load_Top	At_Offset_1
0047 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0048 e003       |    |		Load	0x0,0x3								; Debug Table 0x1.0xe = 0x48,0xfff1
0049 190d       |    |		Execute	Package,Field_Reference,Field_Number 0xd
004a 0007       |    |		Action	Break_Optional
004b 029d 016b  |   k|		Declare_Subprogram	INIT_0168,For_Outer_Call			; Debug Table 0x1.0xf = 0x4b,0xfff0
004d 029d 017b  |   {|		Declare_Subprogram	INIT_0178,For_Outer_Call			; Debug Table 0x1.0x10 = 0x4d,0xffef
004f 029d 018b  |    |		Declare_Subprogram	INIT_0188,For_Outer_Call			; Debug Table 0x1.0x11 = 0x4f,0xffee
0051 029d 01ab  |    |		Declare_Subprogram	INIT_01a8,For_Outer_Call			; Debug Table 0x1.0x12 = 0x51,0xffed
0053 029d 01c3  |    |		Declare_Subprogram	INIT_01c0,For_Outer_Call			; Debug Table 0x1.0x13 = 0x53,0xffec
0055 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x14 = 0x55,0xffeb
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x15 = 0x57,0xffea
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 029d 01e3  |    |		Declare_Subprogram	INIT_01e0,For_Outer_Call			; Debug Table 0x1.0x16 = 0x59,0xffe9
005b 029d 0203  |    |		Declare_Subprogram	INIT_0200,For_Outer_Call			; Debug Table 0x1.0x17 = 0x5b,0xffe8
005d 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1.0x18 = 0x5d,0xffe7
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x19 = 0x5f,0xffe6
0060 00c7       |    |		Action	Elaborate_Subprogram
0061			BODY_0008:
0061 00bc       |    |		Action	Signal_Activated
0062 00bb       |    |		Action	Signal_Completion
0063 0000 0000  |    |		.BLANK	0000[0x5]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006f       | o  |		.CONST	0x006f								; Address of begin
0069 00be       |    |		.CONST	0x00be								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b 00e5       |    |		Load_Encached	Long_Integer_Cache					; Debug Table 0x2 = .DEBUG	0x006b,0x0340,0x0001,0x0000,0x0036,0xbf64,0x0000,0x0018
													; Debug Table 0x2.0x0 = 0x6b,0xffff
006c 0602       |    |		Execute_Immediate	Set_Value_Unchecked,0x2
006d e218       |    |		Load	0x1,0x18							; Debug Table 0x2.0x1 = 0x6d,0xfffe
006e 0007       |    |		Action	Break_Optional
006f			BODY_0068:
006f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x2 = 0x6f,0x1
0070 e5fd       |    |		Load	0x2,-0x3
0071 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
0072 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x3 = 0x72,0x2
0073 e5fd       |    |		Load	0x2,-0x3
0074 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
0075 4800       |H   |		Short_Literal	0x0							; Debug Table 0x2.0x4 = 0x75,0x3
0076 e5ff       |    |		Load	0x2,-0x1
0077 00db       |    |		Load_Top	At_Offset_3
0078 4820       |H   |		Short_Literal	0x20
0079 026d       | m  |		Execute	Discrete,Exponentiate
007a 0271       | q  |		Execute	Discrete,Times
007b e001       |    |		Load	0x0,0x1
007c 181e       |    |		Execute	Package,Field_Execute,Field_Number 0x1e
007d e5fd       |    |		Load	0x2,-0x3
007e 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
007f e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x5 = 0x7f,0x4
0080 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0081 821e       |    |		Call	0x1,0x1e
0082 e5fd       |    |		Load	0x2,-0x3
0083 3803       |8   |		Execute	Record,Field_Write,Field_Number 0x3
0084 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x6 = 0x84,0x5
0085 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0086 e004       |    |		Load	0x0,0x4
0087 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0088 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0089 6813       |h   |		Jump_Zero	0x9d
008a e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x2.0x7 = 0x8a,0x6
008b 0f00       |    |		Execute_Immediate	Equal,0x0
008c e5fd       |    |		Load	0x2,-0x3
008d 3801       |8   |		Execute	Record,Field_Write,Field_Number 0x1
008e e219       |    |		Load	0x1,0x19							; Debug Table 0x2.0x8 = 0x8e,0x7
008f e5fd       |    |		Load	0x2,-0x3
0090 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
0091 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x9 = 0x91,0x8
0092 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0093 e004       |    |		Load	0x0,0x4
0094 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0095 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0096 680a       |h   |		Jump_Zero	0xa1
0097 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0xa = 0x97,0x9
0098 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0099 e004       |    |		Load	0x0,0x4
009a 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
009b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
009c 7804       |x   |		Jump	0xa1
009d e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0xb = 0x9d,0xa
009e 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
009f e5fd       |    |		Load	0x2,-0x3
00a0 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
00a1 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0xc = 0xa1,0xb
00a2 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00a3 821f       |    |		Call	0x1,0x1f
00a4 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0xd = 0xa4,0xc
00a5 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00a6 4801       |H   |		Short_Literal	0x1
00a7 4800       |H   |		Short_Literal	0x0
00a8 e002       |    |		Load	0x0,0x2
00a9 1825       | %  |		Execute	Package,Field_Execute,Field_Number 0x25
00aa 4801       |H   |		Short_Literal	0x1
00ab 4801       |H   |		Short_Literal	0x1
00ac 4800       |H   |		Short_Literal	0x0
00ad 4800       |H   |		Short_Literal	0x0
00ae 4800       |H   |		Short_Literal	0x0
00af e5fd       |    |		Load	0x2,-0x3
00b0 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00b1 e004       |    |		Load	0x0,0x4
00b2 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
00b3 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00b4 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00b5 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0xe = 0xb5,0xd
00b6 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00b7 821e       |    |		Call	0x1,0x1e
00b8 e5fd       |    |		Load	0x2,-0x3
00b9 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
00ba 4801       |H   |		Short_Literal	0x1							; Debug Table 0x2.0xf = 0xba,0xe
00bb e5fd       |    |		Load	0x2,-0x3
00bc 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
00bd 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00be			TRAP_0068:
00be 61a5       |a   |		Indirect_Literal	Discrete,0x264,{0x00000000, 0x36bf6401}
00bf 010f       |    |		Execute	Exception,Equal
00c0 7003       |p   |		Jump_Nonzero	0xc4
00c1 619e       |a   |		Indirect_Literal	Discrete,0x260,{0x00000000, 0x36bf6402}
00c2 010f       |    |		Execute	Exception,Equal
00c3 6802       |h   |		Jump_Zero	0xc6
00c4 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x10 = 0xc4,0xf
00c5 0101       |    |		Execute	Exception,Reraise
00c6 e5fd       |    |		Load	0x2,-0x3							; Debug Table 0x2.0x11 = 0xc6,0x10
00c7 821a       |    |		Call	0x1,0x1a
00c8 821c       |    |		Call	0x1,0x1c
00c9 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
00ca 0000 0000  |    |		.BLANK	0000[0x6]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00db       |    |		.CONST	0x00db								; Address of begin
00d1 00ec       |    |		.CONST	0x00ec								; Address of exception handler
00d2 0002       |    |		.CONST	0x0002								; Number of locals
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3 = .DEBUG	0x00d3,0x0366,0x0001,0x0000,0x0036,0xbf64,0x0000,0x002b
													; Debug Table 0x3.0x0 = 0xd3,0xffff
00d4 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00d5 7002       |p   |		Jump_Nonzero	0xd8
00d6 4887       |H   |		Short_Literal	0x87
00d7 0257       | W  |		Execute	Discrete,Raise
00d8 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x3.0x1 = 0xd8,0xfffe
00d9 3405       |4   |		Execute	Record,Field_Reference,Field_Number 0x5
00da 0007       |    |		Action	Break_Optional
00db			BODY_00d0:
00db 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x2 = 0xdb,0x1
00dc e5fe       |    |		Load	0x2,-0x2
00dd 017d       | }  |		Execute	Record,Structure_Write
00de 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x3 = 0xde,0x2
00df 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
00e0 0a01       |    |		Execute_Immediate	Plus,0x1
00e1 00d9       |    |		Load_Top	At_Offset_1
00e2 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
00e3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x4 = 0xe3,0x3
00e4 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00e5 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
00e6 0f02       |    |		Execute_Immediate	Equal,0x2
00e7 6803       |h   |		Jump_Zero	0xeb
00e8 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x3.0x5 = 0xe8,0x4
00e9 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
00ea 821d       |    |		Call	0x1,0x1d
00eb 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00ec			TRAP_00d0:
00ec 6177       |aw  |		Indirect_Literal	Discrete,0x264,{0x00000000, 0x36bf6401}
00ed 010f       |    |		Execute	Exception,Equal
00ee 6802       |h   |		Jump_Zero	0xf1
00ef 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0xef,0x5
00f0 0101       |    |		Execute	Exception,Reraise
00f1 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x3.0x7 = 0xf1,0x6
00f2 821a       |    |		Call	0x1,0x1a
00f3 821c       |    |		Call	0x1,0x1c
00f4 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
00f5 0000 0000  |    |		.XXX[0x3]
00f7 0000       |    |
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 00fd       |    |		.CONST	0x00fd								; Address of begin
00f9 014f       | O  |		.CONST	0x014f								; Address of exception handler
00fa 0002       |    |		.CONST	0x0002								; Number of locals
00fb			INIT_00f8:
00fb e218       |    |		Load	0x1,0x18							; Debug Table 0x4 = .DEBUG	0x00fb,0x0378,0x0001,0x0000,0x0036,0xbf64,0x0000,0x0037
													; Debug Table 0x4.0x0 = 0xfb,0xffff
00fc 0007       |    |		Action	Break_Optional
00fd			BODY_00f8:
00fd 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x1 = 0xfd,0x1
00fe 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
00ff 684c       |hL  |		Jump_Zero	0x14c
0100 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x2 = 0x100,0x2
0101 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0102 e5ff       |    |		Load	0x2,-0x1
0103 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0104 017f       |    |		Execute	Record,Equal
0105 680c       |h   |		Jump_Zero	0x112
0106 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x3 = 0x106,0x3
0107 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0108 4801       |H   |		Short_Literal	0x1
0109 e5ff       |    |		Load	0x2,-0x1
010a 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
010b e004       |    |		Load	0x0,0x4
010c 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
010d 1816       |    |		Execute	Package,Field_Execute,Field_Number 0x16
010e 0059       | Y  |		Store_Top	Discrete,At_Offset_1
010f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0x4 = 0x10f,0x4
0110 a5fe       |    |		Store_Unchecked	0x2,-0x2
0111 7836       |x6  |		Jump	0x148
0112 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x5 = 0x112,0x5
0113 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0114 e5ff       |    |		Load	0x2,-0x1
0115 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0116 8221       | !  |		Call	0x1,0x21
0117 0f00       |    |		Execute_Immediate	Equal,0x0
0118 a5fe       |    |		Store_Unchecked	0x2,-0x2
0119 e5fe       |    |		Load	0x2,-0x2							; Debug Table 0x4.0x6 = 0x119,0x6
011a 681f       |h   |		Jump_Zero	0x13a
011b 00db       |    |		Load_Top	At_Offset_3
011c 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
011d 701c       |p   |		Jump_Nonzero	0x13a
011e 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x7 = 0x11e,0x7
011f 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0120 e004       |    |		Load	0x0,0x4
0121 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0122 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0123 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0x8 = 0x123,0x8
0124 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0125 e004       |    |		Load	0x0,0x4
0126 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0127 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0128 7002       |p   |		Jump_Nonzero	0x12b
0129 4887       |H   |		Short_Literal	0x87
012a 0257       | W  |		Execute	Discrete,Raise
012b e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x9 = 0x12b,0x9
012c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
012d 4800       |H   |		Short_Literal	0x0
012e 4800       |H   |		Short_Literal	0x0
012f 4801       |H   |		Short_Literal	0x1
0130 4800       |H   |		Short_Literal	0x0
0131 e5ff       |    |		Load	0x2,-0x1
0132 3402       |4   |		Execute	Record,Field_Reference,Field_Number 0x2
0133 e5ff       |    |		Load	0x2,-0x1
0134 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0135 e004       |    |		Load	0x0,0x4
0136 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0137 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0138 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0139 7809       |x   |		Jump	0x143
013a 0007       |    |		Action	Break_Optional							; Debug Table 0x4.0xa = 0x13a,0xa
013b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xb = 0x13b,0xb
013c 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
013d e004       |    |		Load	0x0,0x4
013e 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
013f 180e       |    |		Execute	Package,Field_Execute,Field_Number 0xe
0140 7002       |p   |		Jump_Nonzero	0x143
0141 4887       |H   |		Short_Literal	0x87
0142 0257       | W  |		Execute	Discrete,Raise
0143 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x4.0xc = 0x143,0xc
0144 3404       |4   |		Execute	Record,Field_Reference,Field_Number 0x4
0145 e004       |    |		Load	0x0,0x4
0146 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0147 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0148 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0xd = 0x148,0xd
0149 e5ff       |    |		Load	0x2,-0x1
014a 3800       |8   |		Execute	Record,Field_Write,Field_Number 0x0
014b 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
014c 4800       |H   |		Short_Literal	0x0							; Debug Table 0x4.0xe = 0x14c,0xe
014d a5fe       |    |		Store_Unchecked	0x2,-0x2
014e 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
014f			TRAP_00f8:
014f 6114       |a   |		Indirect_Literal	Discrete,0x264,{0x00000000, 0x36bf6401}
0150 010f       |    |		Execute	Exception,Equal
0151 6802       |h   |		Jump_Zero	0x154
0152 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0xf = 0x152,0xf
0153 0101       |    |		Execute	Exception,Reraise
0154 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x4.0x10 = 0x154,0x10
0155 821a       |    |		Call	0x1,0x1a
0156 821c       |    |		Call	0x1,0x1c
0157 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0158 ; --------------------------------------------------------------------------------------
0158 ; SUBPROGRAM
0158 ; --------------------------------------------------------------------------------------
0158 015b       | [  |		.CONST	0x015b								; Address of begin
0159 0160       | `  |		.CONST	0x0160								; Address of exception handler
015a 0001       |    |		.CONST	0x0001								; Number of locals
015b			BODY_0158:
015b			INIT_0158:
015b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x5 = .DEBUG	0x015b,0x039c,0x0002,0x0000,0x0036,0xbf64,0x0000,0x0043
													; Debug Table 0x5.0x0 = 0x15b,0x1
015c 3c06       |<   |		Execute	Record,Field_Read,Field_Number 0x6
015d 0227       | '  |		Execute	Access,All_Reference
015e 0335       | 5  |		Declare_Variable	Array,Duplicate
015f 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0160			TRAP_0158:
0160 0007       |    |		Action	Break_Optional
0161 00ea       |    |		Load_Encached	Null_String_Cache					; Debug Table 0x5.0x1 = 0x161,0x2
0162 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0163 0000 0000  |    |		.BLANK	0000[0x5]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 016b       | k  |		.CONST	0x016b								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0001       |    |		.CONST	0x0001								; Number of locals
016b			BODY_0168:
016b			INIT_0168:
016b 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0x6 = .DEBUG	0x016b,0x03a2,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x00af
													; Debug Table 0x6.0x0 = 0x16b,0x1
016c e214       |    |		Load	0x1,0x14
016d 03b6       |    |		Declare_Variable	Access,By_Allocation,With_Value
016e e5fe       |    |		Load	0x2,-0x2
016f 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0170 60f3       |`   |		Indirect_Literal	Discrete,0x264,{0x00000000, 0x36bf6401}		; Debug Table 0x6.0x1 = 0x170,0x2
0171 0257       | W  |		Execute	Discrete,Raise
0172 0000 0000  |    |		.BLANK	0000[0x6]
0178 ; --------------------------------------------------------------------------------------
0178 ; SUBPROGRAM
0178 ; --------------------------------------------------------------------------------------
0178 017b       | {  |		.CONST	0x017b								; Address of begin
0179 0004       |    |		.CONST	0x0004								; Address of exception handler
017a 0001       |    |		.CONST	0x0001								; Number of locals
017b			BODY_0178:
017b			INIT_0178:
017b 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x7 = .DEBUG	0x017b,0x03a8,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x00c9
													; Debug Table 0x7.0x0 = 0x17b,0x1
017c 0092 026c  |   l|		Action	Push_String_Extended,0x26c					; "unexpected exception: "
017e e5ff       |    |		Load	0x2,-0x1
017f 01cc       |    |		Execute	Vector,Catenate
0180 821b       |    |		Call	0x1,0x1b
0181 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0182 0000 0000  |    |		.BLANK	0000[0x6]
0188 ; --------------------------------------------------------------------------------------
0188 ; SUBPROGRAM
0188 ; --------------------------------------------------------------------------------------
0188 01a0       |    |		.CONST	0x01a0								; Address of begin
0189 0004       |    |		.CONST	0x0004								; Address of exception handler
018a 0005       |    |		.CONST	0x0005								; Number of locals
018b			INIT_0188:
018b 00f0       |    |		Load_Encached	Segment_Cache						; Debug Table 0x8 = .DEBUG	0x018b,0x03ac,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x00e2
													; Debug Table 0x8.0x0 = 0x18b,0xffff
018c 00db       |    |		Load_Top	At_Offset_3
018d e005       |    |		Load	0x0,0x5
018e 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
018f 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
0190 4801       |H   |		Short_Literal	0x1							; Debug Table 0x8.0x1 = 0x190,0xfffe
0191 60ca       |`   |		Indirect_Literal	Discrete,0x25c,{0x00000000, 0x00002000}
0192 00e1       |    |		Load_Encached	Boolean_Cache
0193 02a0       |    |		Declare_Subprogram	Null_Subprogram
0194 4801       |H   |		Short_Literal	0x1
0195 035d       | ]  |		Declare_Type	Array,Defined
0196 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x2 = 0x196,0xfffd
0197 02a0       |    |		Declare_Subprogram	Null_Subprogram
0198 03ad       |    |		Declare_Type	Heap_Access,Defined
0199 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x3 = 0x199,0xfffc
019a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x8.0x4 = 0x19a,0xfffb
019b 00d9       |    |		Load_Top	At_Offset_1
019c e402       |    |		Load	0x2,0x2
019d 039c       |    |		Declare_Variable	Heap_Access,By_Allocation
019e 0031       | 1  |		Store_Top	Heap_Access,At_Offset_1
019f 0007       |    |		Action	Break_Optional							; Debug Table 0x8.0x5 = 0x19f,0xfffa
01a0			BODY_0188:
01a0 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2					; Debug Table 0x8.0x6 = 0x1a0,0x1
01a1 0000 0000  |    |		.BLANK	0000[0x7]
01a8 ; --------------------------------------------------------------------------------------
01a8 ; SUBPROGRAM
01a8 ; --------------------------------------------------------------------------------------
01a8 01b3       |    |		.CONST	0x01b3								; Address of begin
01a9 0004       |    |		.CONST	0x0004								; Address of exception handler
01aa 0002       |    |		.CONST	0x0002								; Number of locals
01ab			INIT_01a8:
01ab e001       |    |		Load	0x0,0x1								; Debug Table 0x9 = .DEBUG	0x01ab,0x03bc,0x0002,0x0000,0x0036,0xbfa4,0x0000,0x011e
													; Debug Table 0x9.0x0 = 0x1ab,0xffff
01ac 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
01ad 0322       | "  |		Declare_Variable	Record
01ae 00db       |    |		Load_Top	At_Offset_3
01af e001       |    |		Load	0x0,0x1
01b0 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
01b1 00d9       |    |		Load_Top	At_Offset_1
01b2 017d       | }  |		Execute	Record,Structure_Write
01b3			BODY_01a8:
01b3 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x1 = 0x1b3,0x1
01b4 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
01b5 0f02       |    |		Execute_Immediate	Equal,0x2
01b6 6807       |h   |		Jump_Zero	0x1be
01b7 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x2 = 0x1b7,0x2
01b8 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
01b9 0a01       |    |		Execute_Immediate	Plus,0x1
01ba 00d9       |    |		Load_Top	At_Offset_1
01bb 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
01bc 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x9.0x3 = 0x1bc,0x3
01bd 821d       |    |		Call	0x1,0x1d
01be 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x9.0x4 = 0x1be,0x4
01bf 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
01c0 ; --------------------------------------------------------------------------------------
01c0 ; SUBPROGRAM
01c0 ; --------------------------------------------------------------------------------------
01c0 01c6       |    |		.CONST	0x01c6								; Address of begin
01c1 0004       |    |		.CONST	0x0004								; Address of exception handler
01c2 0003       |    |		.CONST	0x0003								; Number of locals
01c3			INIT_01c0:
01c3 00e1       |    |		Load_Encached	Boolean_Cache						; Debug Table 0xa = .DEBUG	0x01c3,0x03c8,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x0155
													; Debug Table 0xa.0x0 = 0x1c3,0xffff
01c4 e006       |    |		Load	0x0,0x6								; Debug Table 0xa.0x1 = 0x1c4,0xfffe
01c5 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c6			BODY_01c0:
01c6 e006       |    |		Load	0x0,0x6								; Debug Table 0xa.0x2 = 0x1c6,0x1
01c7 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
01c8 00e1       |    |		Load_Encached	Boolean_Cache
01c9 e5ff       |    |		Load	0x2,-0x1
01ca 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01cb e007       |    |		Load	0x0,0x7
01cc 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01cd 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
01ce 005b       | [  |		Store_Top	Discrete,At_Offset_3
01cf 0059       | Y  |		Store_Top	Discrete,At_Offset_1
01d0 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xa.0x3 = 0x1d0,0x2
01d1 7008       |p   |		Jump_Nonzero	0x1da
01d2 e007       |    |		Load	0x0,0x7								; Debug Table 0xa.0x4 = 0x1d2,0x3
01d3 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
01d4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
01d5 e5ff       |    |		Load	0x2,-0x1
01d6 3c00       |<   |		Execute	Record,Field_Read,Field_Number 0x0
01d7 e007       |    |		Load	0x0,0x7
01d8 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
01d9 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
01da 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
01db 0000 0000  |    |		.BLANK	0000[0x5]
01e0 ; --------------------------------------------------------------------------------------
01e0 ; SUBPROGRAM
01e0 ; --------------------------------------------------------------------------------------
01e0 01e3       |    |		.CONST	0x01e3								; Address of begin
01e1 0004       |    |		.CONST	0x0004								; Address of exception handler
01e2 0001       |    |		.CONST	0x0001								; Number of locals
01e3			BODY_01e0:
01e3			INIT_01e0:
01e3 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xb = .DEBUG	0x01e3,0x03d4,0x0002,0x0000,0x0036,0xbfa4,0x0000,0x02ae
													; Debug Table 0xb.0x0 = 0x1e3,0x1
01e4 e004       |    |		Load	0x0,0x4
01e5 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01e6 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01e7 680c       |h   |		Jump_Zero	0x1f4
01e8 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x1 = 0x1e8,0x2
01e9 e004       |    |		Load	0x0,0x4
01ea 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01eb 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01ec 6805       |h   |		Jump_Zero	0x1f2
01ed 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x2 = 0x1ed,0x3
01ee 00db       |    |		Load_Top	At_Offset_3
01ef e008       |    |		Load	0x0,0x8
01f0 1850       | P  |		Execute	Package,Field_Execute,Field_Number 0x50
01f1 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f2 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x3 = 0x1f2,0x4
01f3 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01f4 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xb.0x4 = 0x1f4,0x5
01f5 e004       |    |		Load	0x0,0x4
01f6 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
01f7 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
01f8 6802       |h   |		Jump_Zero	0x1fb
01f9 4800       |H   |		Short_Literal	0x0							; Debug Table 0xb.0x5 = 0x1f9,0x6
01fa 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01fb 4801       |H   |		Short_Literal	0x1							; Debug Table 0xb.0x6 = 0x1fb,0x7
01fc 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
01fd 0000 0000  |    |		.XXX[0x3]
01ff 0000       |    |
0200 ; --------------------------------------------------------------------------------------
0200 ; SUBPROGRAM
0200 ; --------------------------------------------------------------------------------------
0200 022c       | ,  |		.CONST	0x022c								; Address of begin
0201 0004       |    |		.CONST	0x0004								; Address of exception handler
0202 0006       |    |		.CONST	0x0006								; Number of locals
0203			INIT_0200:
0203 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc = .DEBUG	0x0203,0x03e4,0x0002,0x0000,0x0036,0xbfa4,0x0000,0x02ed
													; Debug Table 0xc.0x0 = 0x203,0xffff
0204 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
0205 6802       |h   |		Jump_Zero	0x208
0206 4887       |H   |		Short_Literal	0x87
0207 0257       | W  |		Execute	Discrete,Raise
0208 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0xc.0x1 = 0x208,0xfffe
0209 3c01       |<   |		Execute	Record,Field_Read,Field_Number 0x1
020a 0f02       |    |		Execute_Immediate	Equal,0x2
020b 7002       |p   |		Jump_Nonzero	0x20e
020c 4887       |H   |		Short_Literal	0x87
020d 0257       | W  |		Execute	Discrete,Raise
020e 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x2 = 0x20e,0xfffd
020f e001       |    |		Load	0x0,0x1
0210 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
0211 e001       |    |		Load	0x0,0x1
0212 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0213 03f1       |    |		Declare_Variable	Discrete,With_Value
0214 e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x3 = 0x214,0xfffc
0215 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0216 0322       | "  |		Declare_Variable	Record
0217 e5ff       |    |		Load	0x2,-0x1
0218 e001       |    |		Load	0x0,0x1
0219 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
021a 00d9       |    |		Load_Top	At_Offset_1
021b 017d       | }  |		Execute	Record,Structure_Write
021c e5fe       |    |		Load	0x2,-0x2							; Debug Table 0xc.0x4 = 0x21c,0xfffb
021d e001       |    |		Load	0x0,0x1
021e 1822       | "  |		Execute	Package,Field_Execute,Field_Number 0x22
021f e001       |    |		Load	0x0,0x1
0220 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0221 03f1       |    |		Declare_Variable	Discrete,With_Value
0222 e001       |    |		Load	0x0,0x1								; Debug Table 0xc.0x5 = 0x222,0xfffa
0223 1b16       |    |		Execute	Package,Field_Read,Field_Number 0x16
0224 0322       | "  |		Declare_Variable	Record
0225 e5fe       |    |		Load	0x2,-0x2
0226 e001       |    |		Load	0x0,0x1
0227 181a       |    |		Execute	Package,Field_Execute,Field_Number 0x1a
0228 00d9       |    |		Load_Top	At_Offset_1
0229 017d       | }  |		Execute	Record,Structure_Write
022a 029f 0253  |   S|		Declare_Subprogram	INIT_0250,For_Call				; Debug Table 0xc.0x6 = 0x22a,0xfff9
022c			BODY_0200:
022c 00d9       |    |		Load_Top	At_Offset_1						; Debug Table 0xc.0x7 = 0x22c,0x1
022d 8406       |    |		Call	0x2,0x6
022e 00d1       |    |		Pop_Control	Pop_Count_1
022f 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0x8 = 0x22f,0x2
0230 e402       |    |		Load	0x2,0x2
0231 0a01       |    |		Execute_Immediate	Plus,0x1
0232 0248       | H  |		Execute	Discrete,Check_In_Integer
0233 027f       |    |		Execute	Discrete,Equal
0234 6818       |h   |		Jump_Zero	0x24d
0235 00cf       |    |		Action	Mark_Auxiliary
0236 0007       |    |		Action	Break_Optional							; Debug Table 0xc.0x9 = 0x236,0x3
0237 e403       |    |		Load	0x2,0x3								; Debug Table 0xc.0xa = 0x237,0x4
0238 00db       |    |		Load_Top	At_Offset_3
0239 8220       |    |		Call	0x1,0x20
023a 7002       |p   |		Jump_Nonzero	0x23d
023b 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0xb = 0x23b,0x5
023c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
023d 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0xc = 0x23d,0x6
023e 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
023f e404       |    |		Load	0x2,0x4
0240 027f       |    |		Execute	Discrete,Equal
0241 7008       |p   |		Jump_Nonzero	0x24a
0242 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xc.0xd = 0x242,0x7
0243 8406       |    |		Call	0x2,0x6
0244 00d1       |    |		Pop_Control	Pop_Count_1
0245 e403       |    |		Load	0x2,0x3								; Debug Table 0xc.0xe = 0x245,0x8
0246 8406       |    |		Call	0x2,0x6
0247 00d1       |    |		Pop_Control	Pop_Count_1
0248 00c9       |    |		Action	Pop_Auxiliary_Loop
0249 7fed       |    |		Jump	0x237
024a 00ce       |    |		Action	Pop_Auxiliary
024b 4801       |H   |		Short_Literal	0x1							; Debug Table 0xc.0xf = 0x24b,0x9
024c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
024d 4800       |H   |		Short_Literal	0x0							; Debug Table 0xc.0x10 = 0x24d,0xa
024e 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
024f 0000       |    |		.XXX[0x1]
0250 ; --------------------------------------------------------------------------------------
0250 ; SUBPROGRAM
0250 ; --------------------------------------------------------------------------------------
0250 0253       | S  |		.CONST	0x0253								; Address of begin
0251 0004       |    |		.CONST	0x0004								; Address of exception handler
0252 0001       |    |		.CONST	0x0001								; Number of locals
0253			BODY_0250:
0253			INIT_0250:
0253 00da       |    |		Load_Top	At_Offset_2						; Debug Table 0xd = .DEBUG	0x0253,0x0408,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x0344
													; Debug Table 0xd.0x0 = 0x253,0x1
0254 3c02       |<   |		Execute	Record,Field_Read,Field_Number 0x2
0255 0a01       |    |		Execute_Immediate	Plus,0x1
0256 00db       |    |		Load_Top	At_Offset_3
0257 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0258 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0259 0000 0000  |    |		.XXX[0x3]
025b 0000       |    |
025c 0000 0000  |    |		.LITERAL	{0x00000000, 0x00002000}
0260 0000 0000  |    |		.LITERAL	{0x00000000, 0x36bf6402}
0264 0000 0000  |    |		.LITERAL	{0x00000000, 0x36bf6401}
0268 0000 0000  |    |		.LITERAL	{0x00000000, 0x00000801}
026c ; --------------------------------------------------------------------------------------
026c ; STRING TABLE
026c ; --------------------------------------------------------------------------------------
026c 0004       |    |		.STRTAB	0x0004->0x026e							; "unexpected exception: "
026d 0018       |    |		.STREND 0x0018->0x0279
026e 756e 6578  |unex|		.STRTAB_STRINGS
0279 0000 0000  |    |		.BLANK	0000[0x7]
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug Table
0280 ; --------------------------------------------------------------------------------------
0280 0003 000e  |    |		.CONST	0x0003,0x000e
0282 000b 02f2  |    |		.DEBUG	0x000b,0x02f2,0x8000,0x0000,0x0036,0xbf64,0x0000,0x0007
028a 002b 030a  | +  |		.DEBUG	0x002b,0x030a,0x8000,0x0000,0x0036,0xbfa4,0x0000,0x0015
0292 006b 0340  | k @|		.DEBUG	0x006b,0x0340,0x0001,0x0000,0x0036,0xbf64,0x0000,0x0018
029a 00d3 0366  |   f|		.DEBUG	0x00d3,0x0366,0x0001,0x0000,0x0036,0xbf64,0x0000,0x002b
02a2 00fb 0378  |   x|		.DEBUG	0x00fb,0x0378,0x0001,0x0000,0x0036,0xbf64,0x0000,0x0037
02aa 015b 039c  | [  |		.DEBUG	0x015b,0x039c,0x0002,0x0000,0x0036,0xbf64,0x0000,0x0043
02b2 016b 03a2  | k  |		.DEBUG	0x016b,0x03a2,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x00af
02ba 017b 03a8  | {  |		.DEBUG	0x017b,0x03a8,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x00c9
02c2 018b 03ac  |    |		.DEBUG	0x018b,0x03ac,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x00e2
02ca 01ab 03bc  |    |		.DEBUG	0x01ab,0x03bc,0x0002,0x0000,0x0036,0xbfa4,0x0000,0x011e
02d2 01c3 03c8  |    |		.DEBUG	0x01c3,0x03c8,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x0155
02da 01e3 03d4  |    |		.DEBUG	0x01e3,0x03d4,0x0002,0x0000,0x0036,0xbfa4,0x0000,0x02ae
02e2 0203 03e4  |    |		.DEBUG	0x0203,0x03e4,0x0002,0x0000,0x0036,0xbfa4,0x0000,0x02ed
02ea 0253 0408  | S  |		.DEBUG	0x0253,0x0408,0x0001,0x0000,0x0036,0xbfa4,0x0000,0x0344
02f2 ; --------------------------------------------------------------------------------------
02f2 ; Debug3 Subtable 0x0
02f2 ; --------------------------------------------------------------------------------------
02f2 000b 0000  |    |		.DBG3TAB	0x000b,0x0000
02f4 000b ffff  |    |		.CONST	0x000b,0xffff
02f6 000e fffe  |    |		.CONST	0x000e,0xfffe
02f8 0010 fffd  |    |		.CONST	0x0010,0xfffd
02fa 0011 fffc  |    |		.CONST	0x0011,0xfffc
02fc 0012 fffb  |    |		.CONST	0x0012,0xfffb
02fe 0014 fffa  |    |		.CONST	0x0014,0xfffa
0300 0016 fff9  |    |		.CONST	0x0016,0xfff9
0302 0018 fff8  |    |		.CONST	0x0018,0xfff8
0304 001a fff7  |    |		.CONST	0x001a,0xfff7
0306 001c fff6  |    |		.CONST	0x001c,0xfff6
0308 0020 fff5  |    |		.CONST	0x0020,0xfff5
030a ; --------------------------------------------------------------------------------------
030a ; Debug3 Subtable 0x1
030a ; --------------------------------------------------------------------------------------
030a 001a 0000  |    |		.DBG3TAB	0x001a,0x0000
030c 002b ffff  | +  |		.CONST	0x002b,0xffff
030e 002c fffe  | ,  |		.CONST	0x002c,0xfffe
0310 002d fffd  | -  |		.CONST	0x002d,0xfffd
0312 002e fffc  | .  |		.CONST	0x002e,0xfffc
0314 0030 fffb  | 0  |		.CONST	0x0030,0xfffb
0316 0032 fffa  | 2  |		.CONST	0x0032,0xfffa
0318 0034 fff9  | 4  |		.CONST	0x0034,0xfff9
031a 0036 fff8  | 6  |		.CONST	0x0036,0xfff8
031c 0037 fff7  | 7  |		.CONST	0x0037,0xfff7
031e 0038 fff6  | 8  |		.CONST	0x0038,0xfff6
0320 0039 fff5  | 9  |		.CONST	0x0039,0xfff5
0322 003a fff4  | :  |		.CONST	0x003a,0xfff4
0324 003b fff3  | ;  |		.CONST	0x003b,0xfff3
0326 003c fff2  | <  |		.CONST	0x003c,0xfff2
0328 0048 fff1  | H  |		.CONST	0x0048,0xfff1
032a 004b fff0  | K  |		.CONST	0x004b,0xfff0
032c 004d ffef  | M  |		.CONST	0x004d,0xffef
032e 004f ffee  | O  |		.CONST	0x004f,0xffee
0330 0051 ffed  | Q  |		.CONST	0x0051,0xffed
0332 0053 ffec  | S  |		.CONST	0x0053,0xffec
0334 0055 ffeb  | U  |		.CONST	0x0055,0xffeb
0336 0057 ffea  | W  |		.CONST	0x0057,0xffea
0338 0059 ffe9  | Y  |		.CONST	0x0059,0xffe9
033a 005b ffe8  | [  |		.CONST	0x005b,0xffe8
033c 005d ffe7  | ]  |		.CONST	0x005d,0xffe7
033e 005f ffe6  | _  |		.CONST	0x005f,0xffe6
0340 ; --------------------------------------------------------------------------------------
0340 ; Debug3 Subtable 0x2
0340 ; --------------------------------------------------------------------------------------
0340 0002 0010  |    |		.DBG3TAB	0x0002,0x0010
0342 006b ffff  | k  |		.CONST	0x006b,0xffff
0344 006d fffe  | m  |		.CONST	0x006d,0xfffe
0346 006f 0001  | o  |		.CONST	0x006f,0x0001
0348 0072 0002  | r  |		.CONST	0x0072,0x0002
034a 0075 0003  | u  |		.CONST	0x0075,0x0003
034c 007f 0004  |    |		.CONST	0x007f,0x0004
034e 0084 0005  |    |		.CONST	0x0084,0x0005
0350 008a 0006  |    |		.CONST	0x008a,0x0006
0352 008e 0007  |    |		.CONST	0x008e,0x0007
0354 0091 0008  |    |		.CONST	0x0091,0x0008
0356 0097 0009  |    |		.CONST	0x0097,0x0009
0358 009d 000a  |    |		.CONST	0x009d,0x000a
035a 00a1 000b  |    |		.CONST	0x00a1,0x000b
035c 00a4 000c  |    |		.CONST	0x00a4,0x000c
035e 00b5 000d  |    |		.CONST	0x00b5,0x000d
0360 00ba 000e  |    |		.CONST	0x00ba,0x000e
0362 00c4 000f  |    |		.CONST	0x00c4,0x000f
0364 00c6 0010  |    |		.CONST	0x00c6,0x0010
0366 ; --------------------------------------------------------------------------------------
0366 ; Debug3 Subtable 0x3
0366 ; --------------------------------------------------------------------------------------
0366 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0368 00d3 ffff  |    |		.CONST	0x00d3,0xffff
036a 00d8 fffe  |    |		.CONST	0x00d8,0xfffe
036c 00db 0001  |    |		.CONST	0x00db,0x0001
036e 00de 0002  |    |		.CONST	0x00de,0x0002
0370 00e3 0003  |    |		.CONST	0x00e3,0x0003
0372 00e8 0004  |    |		.CONST	0x00e8,0x0004
0374 00ef 0005  |    |		.CONST	0x00ef,0x0005
0376 00f1 0006  |    |		.CONST	0x00f1,0x0006
0378 ; --------------------------------------------------------------------------------------
0378 ; Debug3 Subtable 0x4
0378 ; --------------------------------------------------------------------------------------
0378 0001 0010  |    |		.DBG3TAB	0x0001,0x0010
037a 00fb ffff  |    |		.CONST	0x00fb,0xffff
037c 00fd 0001  |    |		.CONST	0x00fd,0x0001
037e 0100 0002  |    |		.CONST	0x0100,0x0002
0380 0106 0003  |    |		.CONST	0x0106,0x0003
0382 010f 0004  |    |		.CONST	0x010f,0x0004
0384 0112 0005  |    |		.CONST	0x0112,0x0005
0386 0119 0006  |    |		.CONST	0x0119,0x0006
0388 011e 0007  |    |		.CONST	0x011e,0x0007
038a 0123 0008  | #  |		.CONST	0x0123,0x0008
038c 012b 0009  | +  |		.CONST	0x012b,0x0009
038e 013a 000a  | :  |		.CONST	0x013a,0x000a
0390 013b 000b  | ;  |		.CONST	0x013b,0x000b
0392 0143 000c  | C  |		.CONST	0x0143,0x000c
0394 0148 000d  | H  |		.CONST	0x0148,0x000d
0396 014c 000e  | L  |		.CONST	0x014c,0x000e
0398 0152 000f  | R  |		.CONST	0x0152,0x000f
039a 0154 0010  | T  |		.CONST	0x0154,0x0010
039c ; --------------------------------------------------------------------------------------
039c ; Debug3 Subtable 0x5
039c ; --------------------------------------------------------------------------------------
039c 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
039e 015b 0001  | [  |		.CONST	0x015b,0x0001
03a0 0161 0002  | a  |		.CONST	0x0161,0x0002
03a2 ; --------------------------------------------------------------------------------------
03a2 ; Debug3 Subtable 0x6
03a2 ; --------------------------------------------------------------------------------------
03a2 0000 0002  |    |		.DBG3TAB	0x0000,0x0002
03a4 016b 0001  | k  |		.CONST	0x016b,0x0001
03a6 0170 0002  | p  |		.CONST	0x0170,0x0002
03a8 ; --------------------------------------------------------------------------------------
03a8 ; Debug3 Subtable 0x7
03a8 ; --------------------------------------------------------------------------------------
03a8 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
03aa 017b 0001  | {  |		.CONST	0x017b,0x0001
03ac ; --------------------------------------------------------------------------------------
03ac ; Debug3 Subtable 0x8
03ac ; --------------------------------------------------------------------------------------
03ac 0006 0001  |    |		.DBG3TAB	0x0006,0x0001
03ae 018b ffff  |    |		.CONST	0x018b,0xffff
03b0 0190 fffe  |    |		.CONST	0x0190,0xfffe
03b2 0196 fffd  |    |		.CONST	0x0196,0xfffd
03b4 0199 fffc  |    |		.CONST	0x0199,0xfffc
03b6 019a fffb  |    |		.CONST	0x019a,0xfffb
03b8 019f fffa  |    |		.CONST	0x019f,0xfffa
03ba 01a0 0001  |    |		.CONST	0x01a0,0x0001
03bc ; --------------------------------------------------------------------------------------
03bc ; Debug3 Subtable 0x9
03bc ; --------------------------------------------------------------------------------------
03bc 0001 0004  |    |		.DBG3TAB	0x0001,0x0004
03be 01ab ffff  |    |		.CONST	0x01ab,0xffff
03c0 01b3 0001  |    |		.CONST	0x01b3,0x0001
03c2 01b7 0002  |    |		.CONST	0x01b7,0x0002
03c4 01bc 0003  |    |		.CONST	0x01bc,0x0003
03c6 01be 0004  |    |		.CONST	0x01be,0x0004
03c8 ; --------------------------------------------------------------------------------------
03c8 ; Debug3 Subtable 0xa
03c8 ; --------------------------------------------------------------------------------------
03c8 0002 0003  |    |		.DBG3TAB	0x0002,0x0003
03ca 01c3 ffff  |    |		.CONST	0x01c3,0xffff
03cc 01c4 fffe  |    |		.CONST	0x01c4,0xfffe
03ce 01c6 0001  |    |		.CONST	0x01c6,0x0001
03d0 01d0 0002  |    |		.CONST	0x01d0,0x0002
03d2 01d2 0003  |    |		.CONST	0x01d2,0x0003
03d4 ; --------------------------------------------------------------------------------------
03d4 ; Debug3 Subtable 0xb
03d4 ; --------------------------------------------------------------------------------------
03d4 0000 0007  |    |		.DBG3TAB	0x0000,0x0007
03d6 01e3 0001  |    |		.CONST	0x01e3,0x0001
03d8 01e8 0002  |    |		.CONST	0x01e8,0x0002
03da 01ed 0003  |    |		.CONST	0x01ed,0x0003
03dc 01f2 0004  |    |		.CONST	0x01f2,0x0004
03de 01f4 0005  |    |		.CONST	0x01f4,0x0005
03e0 01f9 0006  |    |		.CONST	0x01f9,0x0006
03e2 01fb 0007  |    |		.CONST	0x01fb,0x0007
03e4 ; --------------------------------------------------------------------------------------
03e4 ; Debug3 Subtable 0xc
03e4 ; --------------------------------------------------------------------------------------
03e4 0007 000a  |    |		.DBG3TAB	0x0007,0x000a
03e6 0203 ffff  |    |		.CONST	0x0203,0xffff
03e8 0208 fffe  |    |		.CONST	0x0208,0xfffe
03ea 020e fffd  |    |		.CONST	0x020e,0xfffd
03ec 0214 fffc  |    |		.CONST	0x0214,0xfffc
03ee 021c fffb  |    |		.CONST	0x021c,0xfffb
03f0 0222 fffa  | "  |		.CONST	0x0222,0xfffa
03f2 022a fff9  | *  |		.CONST	0x022a,0xfff9
03f4 022c 0001  | ,  |		.CONST	0x022c,0x0001
03f6 022f 0002  | /  |		.CONST	0x022f,0x0002
03f8 0236 0003  | 6  |		.CONST	0x0236,0x0003
03fa 0237 0004  | 7  |		.CONST	0x0237,0x0004
03fc 023b 0005  | ;  |		.CONST	0x023b,0x0005
03fe 023d 0006  | =  |		.CONST	0x023d,0x0006
0400 0242 0007  | B  |		.CONST	0x0242,0x0007
0402 0245 0008  | E  |		.CONST	0x0245,0x0008
0404 024b 0009  | K  |		.CONST	0x024b,0x0009
0406 024d 000a  | M  |		.CONST	0x024d,0x000a
0408 ; --------------------------------------------------------------------------------------
0408 ; Debug3 Subtable 0xd
0408 ; --------------------------------------------------------------------------------------
0408 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
040a 0253 0001  | S  |		.CONST	0x0253,0x0001
040c 0000 0000  |    |		.BLANK	0000[0x1f4]