DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦3ada7c34f⟧

    Length: 1024 (0x400)
    Notes: 00_class, 5813_R1K_CODE, 75_tag, NULL, R1k_Segment, seg_0500e0

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

Disassembly

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 0140       | @  |		.CONST	0x0140								; 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 0000       |    |		.CONST	0x0000								; 0, wired, #pages in seg - 1)
0008 ; --------------------------------------------------------------------------------------
0008 ; SUBPROGRAM
0008 ; --------------------------------------------------------------------------------------
0008 005d       | ]  |		.CONST	0x005d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0013       |    |		.CONST	0x0013								; Number of locals
000b			INIT_0008:
000b e001       |    |		Load	0x0,0x1								; Debug Table 0x0 = .DEBUG	0x000b,0x017a,0x8000,0x0000,0x0058,0x7725,0x0000,0x002b
													; Debug Table 0x0.0x0 = 0xb,0xffff
000c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
000d e002       |    |		Load	0x0,0x2
000e 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
000f e003       |    |		Load	0x0,0x3
0010 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
0011 02a0       |    |		Declare_Subprogram	Null_Subprogram
0012 4803       |H   |		Short_Literal	0x3
0013 032e       | .  |		Declare_Type	Record,Defined,Visible
0014 4fff       |O   |		Short_Literal	-0x1							; Debug Table 0x0.0x1 = 0x14,0xfffe
0015 4801       |H   |		Short_Literal	0x1
0016 00e2       |    |		Load_Encached	Integer_Cache
0017 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0018 e004       |    |		Load	0x0,0x4								; Debug Table 0x0.0x2 = 0x18,0xfffd
0019 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
001a e005       |    |		Load	0x0,0x5
001b 1b12       |    |		Execute	Package,Field_Read,Field_Number 0x12
001c 00e1       |    |		Load_Encached	Boolean_Cache
001d e006       |    |		Load	0x0,0x6
001e 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
001f 00e2       |    |		Load_Encached	Integer_Cache
0020 e007       |    |		Load	0x0,0x7
0021 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
0022 e20e       |    |		Load	0x1,0xe
0023 e20d       |    |		Load	0x1,0xd
0024 e008       |    |		Load	0x0,0x8
0025 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0026 e008       |    |		Load	0x0,0x8
0027 1b10       |    |		Execute	Package,Field_Read,Field_Number 0x10
0028 e007       |    |		Load	0x0,0x7
0029 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
002a e007       |    |		Load	0x0,0x7
002b 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
002c e003       |    |		Load	0x0,0x3
002d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002e e009       |    |		Load	0x0,0x9
002f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0030 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0031 e00a       |    |		Load	0x0,0xa
0032 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0033 029f 0063  |   c|		Declare_Subprogram	INIT_0060,For_Call
0035 480f       |H   |		Short_Literal	0xf
0036 032e       | .  |		Declare_Type	Record,Defined,Visible
0037 00e3       |    |		Load_Encached	Natural_Cache						; Debug Table 0x0.0x3 = 0x37,0xfffc
0038 00e3       |    |		Load_Encached	Natural_Cache
0039 00da       |    |		Load_Top	At_Offset_2
003a e00b       |    |		Load	0x0,0xb
003b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
003c e00c       |    |		Load	0x0,0xc
003d 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
003e e00d       |    |		Load	0x0,0xd
003f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0040 00f0       |    |		Load_Encached	Segment_Cache
0041 e00e       |    |		Load	0x0,0xe
0042 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0043 e00f       |    |		Load	0x0,0xf
0044 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0045 e010       |    |		Load	0x0,0x10
0046 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0047 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
0049 4800       |H   |		Short_Literal	0x0
004a 4803       |H   |		Short_Literal	0x3
004b 4805       |H   |		Short_Literal	0x5
004c 4800       |H   |		Short_Literal	0x0
004d 4803       |H   |		Short_Literal	0x3
004e 4802       |H   |		Short_Literal	0x2
004f 031e       |    |		Declare_Type	Variant_Record,Defined,Visible
0050 029a 010b  |    |		Declare_Subprogram	INIT_0108,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x4 = 0x50,0xfffb
0052 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x5 = 0x52,0xfffa
0054 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x6 = 0x54,0xfff9
0056 00bf       |    |		Action	Accept_Activation						; Debug Table 0x0.0x7 = 0x56,0xfff8
													; Debug Table 0x0.0x8 = 0x56,0xfff7
0057 1d11       |    |		Execute_Immediate	Reference_Lex_1,0x11				; Debug Table 0x1 = .DEBUG	0x0057,0x018e,0x8000,0x0000,0x0058,0x7c75,0x0000,0x0005
													; Debug Table 0x1.0x0 = 0x57,0xffff
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d12       |    |		Execute_Immediate	Reference_Lex_1,0x12				; Debug Table 0x1.0x1 = 0x59,0xfffe
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d13       |    |		Execute_Immediate	Reference_Lex_1,0x13				; Debug Table 0x1.0x2 = 0x5b,0xfffd
005c 00c7       |    |		Action	Elaborate_Subprogram
005d			BODY_0008:
005d 00bc       |    |		Action	Signal_Activated
005e 00bb       |    |		Action	Signal_Completion
005f 0000       |    |		.XXX[0x1]
0060 ; --------------------------------------------------------------------------------------
0060 ; SUBPROGRAM
0060 ; --------------------------------------------------------------------------------------
0060 0063       | c  |		.CONST	0x0063								; Address of begin
0061 0004       |    |		.CONST	0x0004								; Address of exception handler
0062 0001       |    |		.CONST	0x0001								; Number of locals
0063			BODY_0060:
0063			INIT_0060:
0063 4608       |F   |		Jump_Case	0x9							; Debug Table 0x2 = .DEBUG	0x0063,0x0196,0x0005,0x0000,0x0058,0x7725,0x0000,0x004f
0064 7808       |x   |		Jump	0x6d								; case 0x0
0065 7829       |x)  |		Jump	0x8f								; case 0x1
0066 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
0067 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
0068 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
0069 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
006a 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
006b 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x7
006c 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x8
006d 00da       |    |		Load_Top	At_Offset_2
006e 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
006f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0070 00da       |    |		Load_Top	At_Offset_2
0071 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0072 0125       | %  |		Execute	Any,Set_Constraint
0073 00da       |    |		Load_Top	At_Offset_2
0074 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0075 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0076 4800       |H   |		Short_Literal	0x0
0077 00db       |    |		Load_Top	At_Offset_3
0078 3802       |8   |		Execute	Record,Field_Write,Field_Number 0x2
0079 4801       |H   |		Short_Literal	0x1
007a 00db       |    |		Load_Top	At_Offset_3
007b 3804       |8   |		Execute	Record,Field_Write,Field_Number 0x4
007c 4800       |H   |		Short_Literal	0x0
007d 00db       |    |		Load_Top	At_Offset_3
007e 3805       |8   |		Execute	Record,Field_Write,Field_Number 0x5
007f 4801       |H   |		Short_Literal	0x1
0080 00db       |    |		Load_Top	At_Offset_3
0081 3806       |8   |		Execute	Record,Field_Write,Field_Number 0x6
0082 00da       |    |		Load_Top	At_Offset_2
0083 340a       |4   |		Execute	Record,Field_Reference,Field_Number 0xa
0084 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0085 00da       |    |		Load_Top	At_Offset_2
0086 340b       |4   |		Execute	Record,Field_Reference,Field_Number 0xb
0087 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0088 00da       |    |		Load_Top	At_Offset_2
0089 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
008a 0125       | %  |		Execute	Any,Set_Constraint
008b 00da       |    |		Load_Top	At_Offset_2
008c 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
008d 1c00       |    |		Execute_Immediate	Run_Utility,0x0
008e 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
008f 00da       |    |		Load_Top	At_Offset_2
0090 3400       |4   |		Execute	Record,Field_Reference,Field_Number 0x0
0091 1c01       |    |		Execute_Immediate	Run_Utility,0x1
0092 00da       |    |		Load_Top	At_Offset_2
0093 3401       |4   |		Execute	Record,Field_Reference,Field_Number 0x1
0094 0125       | %  |		Execute	Any,Set_Constraint
0095 00da       |    |		Load_Top	At_Offset_2
0096 340e       |4   |		Execute	Record,Field_Reference,Field_Number 0xe
0097 0125       | %  |		Execute	Any,Set_Constraint
0098 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
0099 0000 0000  |    |		.BLANK	0000[0x7]
00a0 ; --------------------------------------------------------------------------------------
00a0 ; SUBPROGRAM
00a0 ; --------------------------------------------------------------------------------------
00a0 00a3       |    |		.CONST	0x00a3								; Address of begin
00a1 0004       |    |		.CONST	0x0004								; Address of exception handler
00a2 0001       |    |		.CONST	0x0001								; Number of locals
00a3			BODY_00a0:
00a3			INIT_00a0:
00a3 4608       |F   |		Jump_Case	0x9							; Debug Table 0x3 = .DEBUG	0x00a3,0x0198,0x0005,0x0000,0x0058,0x7725,0x0000,0x00bc
00a4 7808       |x   |		Jump	0xad								; case 0x0
00a5 7823       |x#  |		Jump	0xc9								; case 0x1
00a6 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x2
00a7 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x3
00a8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x4
00a9 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x5
00aa 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2				; case 0x6
00ab 7833       |x3  |		Jump	0xdf								; case 0x7
00ac 7845       |xE  |		Jump	0xf2								; case 0x8
00ad 00da       |    |		Load_Top	At_Offset_2
00ae 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
00af 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b0 00da       |    |		Load_Top	At_Offset_2
00b1 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
00b2 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b3 00da       |    |		Load_Top	At_Offset_2
00b4 2208       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x8
00b5 00da       |    |		Load_Top	At_Offset_2
00b6 2508       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x8
00b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b8 00da       |    |		Load_Top	At_Offset_2
00b9 2209       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x9
00ba 00da       |    |		Load_Top	At_Offset_2
00bb 2509       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x9
00bc 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00bd 00da       |    |		Load_Top	At_Offset_2
00be 2405       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x5
00bf 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c0 00da       |    |		Load_Top	At_Offset_2
00c1 220a       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0xa
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 250a       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0xa
00c4 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c5 00da       |    |		Load_Top	At_Offset_2
00c6 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
00c7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00c8 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00c9 00da       |    |		Load_Top	At_Offset_2
00ca 2403       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x3
00cb 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00cc 00da       |    |		Load_Top	At_Offset_2
00cd 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
00ce 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00cf 00da       |    |		Load_Top	At_Offset_2
00d0 2208       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x8
00d1 00da       |    |		Load_Top	At_Offset_2
00d2 2508       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0x8
00d3 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 2209       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0x9
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 220a       |"   |		Execute	Variant_Record,Field_Constrain,Field_Number 0xa
00d8 00da       |    |		Load_Top	At_Offset_2
00d9 250a       |%   |		Execute	Variant_Record,Field_Reference,Indirect,Field_Number 0xa
00da 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00db 00da       |    |		Load_Top	At_Offset_2
00dc 2406       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x6
00dd 1c01       |    |		Execute_Immediate	Run_Utility,0x1
00de 4302       |C   |		Exit_Subprogram	From_Utility,New_Top_Offset 0x2
00df e5fd       |    |		Load	0x2,-0x3
00e0 e5fe       |    |		Load	0x2,-0x2
00e1 e5fd       |    |		Load	0x2,-0x3
00e2 e5fe       |    |		Load	0x2,-0x2
00e3 e00e       |    |		Load	0x0,0xe
00e4 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e5 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00e6 e5fd       |    |		Load	0x2,-0x3
00e7 e00f       |    |		Load	0x0,0xf
00e8 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00e9 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00ea e5fd       |    |		Load	0x2,-0x3
00eb e010       |    |		Load	0x0,0x10
00ec 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ed 1c07       |    |		Execute_Immediate	Run_Utility,0x7
00ee 4803       |H   |		Short_Literal	0x3
00ef e5ff       |    |		Load	0x2,-0x1
00f0 031b       |    |		Declare_Type	Variant_Record,Constrained
00f1 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
00f2 e5fd       |    |		Load	0x2,-0x3
00f3 e5fe       |    |		Load	0x2,-0x2
00f4 e5ff       |    |		Load	0x2,-0x1
00f5 02fc       |    |		Declare_Variable	Variant_Record,With_Constraint
00f6 e5fd       |    |		Load	0x2,-0x3
00f7 e5fe       |    |		Load	0x2,-0x2
00f8 e00e       |    |		Load	0x0,0xe
00f9 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00fa 1c08       |    |		Execute_Immediate	Run_Utility,0x8
00fb 2d08       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x8
00fc e5fd       |    |		Load	0x2,-0x3
00fd e00f       |    |		Load	0x0,0xf
00fe 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
00ff 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0100 2d09       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0x9
0101 e5fd       |    |		Load	0x2,-0x3
0102 e010       |    |		Load	0x0,0x10
0103 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0104 1c08       |    |		Execute_Immediate	Run_Utility,0x8
0105 2d0a       |-   |		Execute	Variant_Record,Field_Append,Fixed,Indirect,Field_Number 0xa
0106 016a       | j  |		QQ_execute	Variant_Record,XXX
0107 4203       |B   |		Exit_Subprogram	From_Utility,With_Result,New_Top_Offset 0x3
0108 ; --------------------------------------------------------------------------------------
0108 ; SUBPROGRAM
0108 ; --------------------------------------------------------------------------------------
0108 010d       |    |		.CONST	0x010d								; Address of begin
0109 0004       |    |		.CONST	0x0004								; Address of exception handler
010a 0002       |    |		.CONST	0x0002								; Number of locals
010b			INIT_0108:
010b e00c       |    |		Load	0x0,0xc								; Debug Table 0x4 = .DEBUG	0x010b,0x019a,0x0001,0x0000,0x0058,0x7725,0x0000,0x0105
													; Debug Table 0x4.0x0 = 0x10b,0xffff
010c 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010d			BODY_0108:
010d e00c       |    |		Load	0x0,0xc								; Debug Table 0x4.0x1 = 0x10d,0x1
010e 1b0e       |    |		Execute	Package,Field_Read,Field_Number 0xe
010f e5fd       |    |		Load	0x2,-0x3
0110 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0111 e5fd       |    |		Load	0x2,-0x3
0112 2c05       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x5
0113 4800       |H   |		Short_Literal	0x0
0114 e5fd       |    |		Load	0x2,-0x3
0115 2404       |$   |		Execute	Variant_Record,Field_Reference,Fixed,Direct,Field_Number 0x4
0116 3c07       |<   |		Execute	Record,Field_Read,Field_Number 0x7
0117 e00c       |    |		Load	0x0,0xc
0118 181f       |    |		Execute	Package,Field_Execute,Field_Number 0x1f
0119 00d2       |    |		Pop_Control	Pop_Count_2
011a 0059       | Y  |		Store_Top	Discrete,At_Offset_1
011b 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
011c 0000 0000  |    |		.BLANK	0000[0x4]
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 0x5 = .DEBUG	0x0123,0x01a0,0x0001,0x0000,0x0058,0x7725,0x0000,0x011c
													; Debug Table 0x5.0x0 = 0x123,0x1
0124 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0125 00db       |    |		Load_Top	At_Offset_3
0126 e00b       |    |		Load	0x0,0xb
0127 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
0128 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0129 0000 0000  |    |		.BLANK	0000[0x7]
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 00db       |    |		Load_Top	At_Offset_3						; Debug Table 0x6 = .DEBUG	0x0133,0x01a4,0x0001,0x0000,0x0058,0x7725,0x0000,0x012c
													; Debug Table 0x6.0x0 = 0x133,0x1
0134 2c04       |,   |		Execute	Variant_Record,Field_Read,Fixed,Direct,Field_Number 0x4
0135 00db       |    |		Load_Top	At_Offset_3
0136 e00b       |    |		Load	0x0,0xb
0137 1817       |    |		Execute	Package,Field_Execute,Field_Number 0x17
0138 4502       |E   |		Exit_Suprogram	New_Top_Offset 0x2
0139 0000 0000  |    |		.BLANK	0000[0x7]
0140 ; --------------------------------------------------------------------------------------
0140 ; Debug Table
0140 ; --------------------------------------------------------------------------------------
0140 0003 0007  |    |		.CONST	0x0003,0x0007
0142 000b 017a  |   z|		.DEBUG	0x000b,0x017a,0x8000,0x0000,0x0058,0x7725,0x0000,0x002b
014a 0057 018e  | W  |		.DEBUG	0x0057,0x018e,0x8000,0x0000,0x0058,0x7c75,0x0000,0x0005
0152 0063 0196  | c  |		.DEBUG	0x0063,0x0196,0x0005,0x0000,0x0058,0x7725,0x0000,0x004f
015a 00a3 0198  |    |		.DEBUG	0x00a3,0x0198,0x0005,0x0000,0x0058,0x7725,0x0000,0x00bc
0162 010b 019a  |    |		.DEBUG	0x010b,0x019a,0x0001,0x0000,0x0058,0x7725,0x0000,0x0105
016a 0123 01a0  | #  |		.DEBUG	0x0123,0x01a0,0x0001,0x0000,0x0058,0x7725,0x0000,0x011c
0172 0133 01a4  | 3  |		.DEBUG	0x0133,0x01a4,0x0001,0x0000,0x0058,0x7725,0x0000,0x012c
017a ; --------------------------------------------------------------------------------------
017a ; Debug3 Subtable 0x0
017a ; --------------------------------------------------------------------------------------
017a 0009 0000  |    |		.DBG3TAB	0x0009,0x0000
017c 000b ffff  |    |		.CONST	0x000b,0xffff
017e 0014 fffe  |    |		.CONST	0x0014,0xfffe
0180 0018 fffd  |    |		.CONST	0x0018,0xfffd
0182 0037 fffc  | 7  |		.CONST	0x0037,0xfffc
0184 0050 fffb  | P  |		.CONST	0x0050,0xfffb
0186 0052 fffa  | R  |		.CONST	0x0052,0xfffa
0188 0054 fff9  | T  |		.CONST	0x0054,0xfff9
018a 0056 fff8  | V  |		.CONST	0x0056,0xfff8
018c 0056 fff7  | V  |		.CONST	0x0056,0xfff7
018e ; --------------------------------------------------------------------------------------
018e ; Debug3 Subtable 0x1
018e ; --------------------------------------------------------------------------------------
018e 0003 0000  |    |		.DBG3TAB	0x0003,0x0000
0190 0057 ffff  | W  |		.CONST	0x0057,0xffff
0192 0059 fffe  | Y  |		.CONST	0x0059,0xfffe
0194 005b fffd  | [  |		.CONST	0x005b,0xfffd
0196 ; --------------------------------------------------------------------------------------
0196 ; Debug3 Subtable 0x2
0196 ; --------------------------------------------------------------------------------------
0196 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
0198 ; --------------------------------------------------------------------------------------
0198 ; Debug3 Subtable 0x3
0198 ; --------------------------------------------------------------------------------------
0198 0000 0000  |    |		.DBG3TAB	0x0000,0x0000
019a ; --------------------------------------------------------------------------------------
019a ; Debug3 Subtable 0x4
019a ; --------------------------------------------------------------------------------------
019a 0001 0001  |    |		.DBG3TAB	0x0001,0x0001
019c 010b ffff  |    |		.CONST	0x010b,0xffff
019e 010d 0001  |    |		.CONST	0x010d,0x0001
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug3 Subtable 0x5
01a0 ; --------------------------------------------------------------------------------------
01a0 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01a2 0123 0001  | #  |		.CONST	0x0123,0x0001
01a4 ; --------------------------------------------------------------------------------------
01a4 ; Debug3 Subtable 0x6
01a4 ; --------------------------------------------------------------------------------------
01a4 0000 0001  |    |		.DBG3TAB	0x0000,0x0001
01a6 0133 0001  | 3  |		.CONST	0x0133,0x0001
01a8 0000 0000  |    |		.BLANK	0000[0x58]