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

⟦7e7b922c8⟧

    Length: 2048 (0x800)
    Notes: 00_class, 5900_R1K_CODE, 74_tag, NULL, R1k_Segment, seg_0314bd

Derivation

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

Disassembly

0000 000f       |    |		.CONST	0x000f								; Version of machine code
0001 5900       |Y   |		.CONST	0x5900								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01a0       |    |		.CONST	0x01a0								; 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 007d       | }  |		.CONST	0x007d								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0028       | (  |		.CONST	0x0028								; Number of locals
000b			INIT_0008:
000b 4800       |H   |		Short_Literal	0x0
000c 481f       |H   |		Short_Literal	0x1f
000d 00e8       |    |		Load_Encached	Character_Cache
000e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
000f 4820       |H   |		Short_Literal	0x20
0010 487e       |H~  |		Short_Literal	0x7e
0011 00e8       |    |		Load_Encached	Character_Cache
0012 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0013 4841       |HA  |		Short_Literal	0x41
0014 485a       |HZ  |		Short_Literal	0x5a
0015 00e8       |    |		Load_Encached	Character_Cache
0016 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0017 4861       |Ha  |		Short_Literal	0x61
0018 487a       |Hz  |		Short_Literal	0x7a
0019 00e8       |    |		Load_Encached	Character_Cache
001a 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001b 4830       |H0  |		Short_Literal	0x30
001c 4839       |H9  |		Short_Literal	0x39
001d 00e8       |    |		Load_Encached	Character_Cache
001e 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
001f 4800       |H   |		Short_Literal	0x0
0020 4809       |H   |		Short_Literal	0x9
0021 00e2       |    |		Load_Encached	Integer_Cache
0022 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0023 4801       |H   |		Short_Literal	0x1
0024 481a       |H   |		Short_Literal	0x1a
0025 00e2       |    |		Load_Encached	Integer_Cache
0026 03f9       |    |		Declare_Type	Discrete,Constrained,Visible
0027 029a 0083  |    |		Declare_Subprogram	INIT_0080,For_Outer_Call,Visible,Unelaborated
0029 029a 0093  |    |		Declare_Subprogram	INIT_0090,For_Outer_Call,Visible,Unelaborated
002b 029a 009b  |    |		Declare_Subprogram	INIT_0098,For_Outer_Call,Visible,Unelaborated
002d 029a 00ab  |    |		Declare_Subprogram	INIT_00a8,For_Outer_Call,Visible,Unelaborated
002f 029a 00bb  |    |		Declare_Subprogram	INIT_00b8,For_Outer_Call,Visible,Unelaborated
0031 029a 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Outer_Call,Visible,Unelaborated
0033 029a 00cb  |    |		Declare_Subprogram	INIT_00c8,For_Outer_Call,Visible,Unelaborated
0035 029a 00d3  |    |		Declare_Subprogram	INIT_00d0,For_Outer_Call,Visible,Unelaborated
0037 029a 00db  |    |		Declare_Subprogram	INIT_00d8,For_Outer_Call,Visible,Unelaborated
0039 029a 00e3  |    |		Declare_Subprogram	INIT_00e0,For_Outer_Call,Visible,Unelaborated
003b 029a 00f3  |    |		Declare_Subprogram	INIT_00f0,For_Outer_Call,Visible,Unelaborated
003d 029a 0103  |    |		Declare_Subprogram	INIT_0100,For_Outer_Call,Visible,Unelaborated
003f 029a 0113  |    |		Declare_Subprogram	INIT_0110,For_Outer_Call,Visible,Unelaborated
0041 029a 0123  |   #|		Declare_Subprogram	INIT_0120,For_Outer_Call,Visible,Unelaborated
0043 029a 0133  |   3|		Declare_Subprogram	INIT_0130,For_Outer_Call,Visible,Unelaborated
0045 029a 0153  |   S|		Declare_Subprogram	INIT_0150,For_Outer_Call,Visible,Unelaborated
0047 029a 0163  |   c|		Declare_Subprogram	INIT_0160,For_Outer_Call,Visible,Unelaborated
0049 029a 0173  |   s|		Declare_Subprogram	INIT_0170,For_Outer_Call,Visible,Unelaborated
004b 029a 0183  |    |		Declare_Subprogram	INIT_0180,For_Outer_Call,Visible,Unelaborated
004d 029a 0193  |    |		Declare_Subprogram	INIT_0190,For_Outer_Call,Visible,Unelaborated
004f 0093 0000  |    |		push_full_address	0x0
0051 6036       |`6  |		Indirect_Literal	Discrete,0x88,{0x80000000, 0x00010000}
0052 0273       | s  |		Execute	Discrete,Plus
0053 0129       | )  |		Execute	Any,Make_Visible
0054 00bf       |    |		Action	Accept_Activation
0055 1d14       |    |		Execute_Immediate	Reference_Lex_1,0x14
0056 00c7       |    |		Action	Elaborate_Subprogram
0057 1d15       |    |		Execute_Immediate	Reference_Lex_1,0x15
0058 00c7       |    |		Action	Elaborate_Subprogram
0059 1d16       |    |		Execute_Immediate	Reference_Lex_1,0x16
005a 00c7       |    |		Action	Elaborate_Subprogram
005b 1d17       |    |		Execute_Immediate	Reference_Lex_1,0x17
005c 00c7       |    |		Action	Elaborate_Subprogram
005d 1d18       |    |		Execute_Immediate	Reference_Lex_1,0x18
005e 00c7       |    |		Action	Elaborate_Subprogram
005f 1d19       |    |		Execute_Immediate	Reference_Lex_1,0x19
0060 00c7       |    |		Action	Elaborate_Subprogram
0061 1d1a       |    |		Execute_Immediate	Reference_Lex_1,0x1a
0062 00c7       |    |		Action	Elaborate_Subprogram
0063 1d1b       |    |		Execute_Immediate	Reference_Lex_1,0x1b
0064 00c7       |    |		Action	Elaborate_Subprogram
0065 1d1c       |    |		Execute_Immediate	Reference_Lex_1,0x1c
0066 00c7       |    |		Action	Elaborate_Subprogram
0067 1d1d       |    |		Execute_Immediate	Reference_Lex_1,0x1d
0068 00c7       |    |		Action	Elaborate_Subprogram
0069 1d1e       |    |		Execute_Immediate	Reference_Lex_1,0x1e
006a 00c7       |    |		Action	Elaborate_Subprogram
006b 1d1f       |    |		Execute_Immediate	Reference_Lex_1,0x1f
006c 00c7       |    |		Action	Elaborate_Subprogram
006d 1d20       |    |		Execute_Immediate	Reference_Lex_1,0x20
006e 00c7       |    |		Action	Elaborate_Subprogram
006f 1d21       | !  |		Execute_Immediate	Reference_Lex_1,0x21
0070 00c7       |    |		Action	Elaborate_Subprogram
0071 1d22       | "  |		Execute_Immediate	Reference_Lex_1,0x22
0072 00c7       |    |		Action	Elaborate_Subprogram
0073 1d23       | #  |		Execute_Immediate	Reference_Lex_1,0x23
0074 00c7       |    |		Action	Elaborate_Subprogram
0075 1d24       | $  |		Execute_Immediate	Reference_Lex_1,0x24
0076 00c7       |    |		Action	Elaborate_Subprogram
0077 1d25       | %  |		Execute_Immediate	Reference_Lex_1,0x25
0078 00c7       |    |		Action	Elaborate_Subprogram
0079 1d26       | &  |		Execute_Immediate	Reference_Lex_1,0x26
007a 00c7       |    |		Action	Elaborate_Subprogram
007b 1d27       | '  |		Execute_Immediate	Reference_Lex_1,0x27
007c 00c7       |    |		Action	Elaborate_Subprogram
007d			BODY_0008:
007d 00bc       |    |		Action	Signal_Activated
007e 00bb       |    |		Action	Signal_Completion
007f 0000       |    |		.XXX[0x1]
0080 ; --------------------------------------------------------------------------------------
0080 ; SUBPROGRAM
0080 ; --------------------------------------------------------------------------------------
0080 0083       |    |		.CONST	0x0083								; Address of begin
0081 0004       |    |		.CONST	0x0004								; Address of exception handler
0082 0001       |    |		.CONST	0x0001								; Number of locals
0083			BODY_0080:
0083			INIT_0080:
0083 00da       |    |		Load_Top	At_Offset_2
0084 8216       |    |		Call	0x1,0x16
0085 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0086 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0087 0000       |    |		.XXX[0x1]
0088 8000 0000  |    |		.LITERAL	{0x80000000, 0x00010000}
008c 0000 0000  |    |		.BLANK	0000[0x4]
0090 ; --------------------------------------------------------------------------------------
0090 ; SUBPROGRAM
0090 ; --------------------------------------------------------------------------------------
0090 0093       |    |		.CONST	0x0093								; Address of begin
0091 0004       |    |		.CONST	0x0004								; Address of exception handler
0092 0001       |    |		.CONST	0x0001								; Number of locals
0093			BODY_0090:
0093			INIT_0090:
0093 00da       |    |		Load_Top	At_Offset_2
0094 8217       |    |		Call	0x1,0x17
0095 0053       | S  |		Store_Top_Uncheched	Discrete,At_Offset_3
0096 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0097 0000       |    |		.XXX[0x1]
0098 ; --------------------------------------------------------------------------------------
0098 ; SUBPROGRAM
0098 ; --------------------------------------------------------------------------------------
0098 009b       |    |		.CONST	0x009b								; Address of begin
0099 0004       |    |		.CONST	0x0004								; Address of exception handler
009a 0001       |    |		.CONST	0x0001								; Number of locals
009b			BODY_0098:
009b			INIT_0098:
009b 00da       |    |		Load_Top	At_Offset_2
009c 821b       |    |		Call	0x1,0x1b
009d 6808       |h   |		Jump_Zero	0xa6
009e 00da       |    |		Load_Top	At_Offset_2
009f 0ae0       |    |		Execute_Immediate	Plus,-0x20
00a0 00d8       |    |		Load_Top	At_Offset_0
00a1 00e8       |    |		Load_Encached	Character_Cache
00a2 0260       | `  |		Execute	Discrete,In_Type
00a3 7001       |p   |		Jump_Nonzero	0xa5
00a4 0801       |    |		Execute_Immediate	Raise,0x1
00a5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a6 00da       |    |		Load_Top	At_Offset_2
00a7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00a8 ; --------------------------------------------------------------------------------------
00a8 ; SUBPROGRAM
00a8 ; --------------------------------------------------------------------------------------
00a8 00ab       |    |		.CONST	0x00ab								; Address of begin
00a9 0004       |    |		.CONST	0x0004								; Address of exception handler
00aa 0001       |    |		.CONST	0x0001								; Number of locals
00ab			BODY_00a8:
00ab			INIT_00a8:
00ab 00da       |    |		Load_Top	At_Offset_2
00ac 821a       |    |		Call	0x1,0x1a
00ad 6808       |h   |		Jump_Zero	0xb6
00ae 00da       |    |		Load_Top	At_Offset_2
00af 0a20       |    |		Execute_Immediate	Plus,0x20
00b0 00d8       |    |		Load_Top	At_Offset_0
00b1 00e8       |    |		Load_Encached	Character_Cache
00b2 0260       | `  |		Execute	Discrete,In_Type
00b3 7001       |p   |		Jump_Nonzero	0xb5
00b4 0801       |    |		Execute_Immediate	Raise,0x1
00b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b6 00da       |    |		Load_Top	At_Offset_2
00b7 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b8 ; --------------------------------------------------------------------------------------
00b8 ; SUBPROGRAM
00b8 ; --------------------------------------------------------------------------------------
00b8 00bb       |    |		.CONST	0x00bb								; Address of begin
00b9 0004       |    |		.CONST	0x0004								; Address of exception handler
00ba 0001       |    |		.CONST	0x0001								; Number of locals
00bb			BODY_00b8:
00bb			INIT_00b8:
00bb 00da       |    |		Load_Top	At_Offset_2
00bc e20d       |    |		Load	0x1,0xd
00bd 0260       | `  |		Execute	Discrete,In_Type
00be 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bf 0000       |    |		.XXX[0x1]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c3       |    |		.CONST	0x00c3								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0001       |    |		.CONST	0x0001								; Number of locals
00c3			BODY_00c0:
00c3			INIT_00c0:
00c3 00da       |    |		Load_Top	At_Offset_2
00c4 e20e       |    |		Load	0x1,0xe
00c5 0260       | `  |		Execute	Discrete,In_Type
00c6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00c7 0000       |    |		.XXX[0x1]
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 00da       |    |		Load_Top	At_Offset_2
00cc e20f       |    |		Load	0x1,0xf
00cd 0260       | `  |		Execute	Discrete,In_Type
00ce 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00cf 0000       |    |		.XXX[0x1]
00d0 ; --------------------------------------------------------------------------------------
00d0 ; SUBPROGRAM
00d0 ; --------------------------------------------------------------------------------------
00d0 00d3       |    |		.CONST	0x00d3								; Address of begin
00d1 0004       |    |		.CONST	0x0004								; Address of exception handler
00d2 0001       |    |		.CONST	0x0001								; Number of locals
00d3			BODY_00d0:
00d3			INIT_00d0:
00d3 00da       |    |		Load_Top	At_Offset_2
00d4 e210       |    |		Load	0x1,0x10
00d5 0260       | `  |		Execute	Discrete,In_Type
00d6 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00d7 0000       |    |		.XXX[0x1]
00d8 ; --------------------------------------------------------------------------------------
00d8 ; SUBPROGRAM
00d8 ; --------------------------------------------------------------------------------------
00d8 00db       |    |		.CONST	0x00db								; Address of begin
00d9 0004       |    |		.CONST	0x0004								; Address of exception handler
00da 0001       |    |		.CONST	0x0001								; Number of locals
00db			BODY_00d8:
00db			INIT_00d8:
00db 00da       |    |		Load_Top	At_Offset_2
00dc e211       |    |		Load	0x1,0x11
00dd 0260       | `  |		Execute	Discrete,In_Type
00de 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00df 0000       |    |		.XXX[0x1]
00e0 ; --------------------------------------------------------------------------------------
00e0 ; SUBPROGRAM
00e0 ; --------------------------------------------------------------------------------------
00e0 00e3       |    |		.CONST	0x00e3								; Address of begin
00e1 0004       |    |		.CONST	0x0004								; Address of exception handler
00e2 0001       |    |		.CONST	0x0001								; Number of locals
00e3			BODY_00e0:
00e3			INIT_00e0:
00e3 00da       |    |		Load_Top	At_Offset_2
00e4 821a       |    |		Call	0x1,0x1a
00e5 7003       |p   |		Jump_Nonzero	0xe9
00e6 00da       |    |		Load_Top	At_Offset_2
00e7 821b       |    |		Call	0x1,0x1b
00e8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00e9 4801       |H   |		Short_Literal	0x1
00ea 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00eb 0000 0000  |    |		.BLANK	0000[0x5]
00f0 ; --------------------------------------------------------------------------------------
00f0 ; SUBPROGRAM
00f0 ; --------------------------------------------------------------------------------------
00f0 00f3       |    |		.CONST	0x00f3								; Address of begin
00f1 0004       |    |		.CONST	0x0004								; Address of exception handler
00f2 0001       |    |		.CONST	0x0001								; Number of locals
00f3			BODY_00f0:
00f3			INIT_00f0:
00f3 00da       |    |		Load_Top	At_Offset_2
00f4 821d       |    |		Call	0x1,0x1d
00f5 7003       |p   |		Jump_Nonzero	0xf9
00f6 00da       |    |		Load_Top	At_Offset_2
00f7 821c       |    |		Call	0x1,0x1c
00f8 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00f9 4801       |H   |		Short_Literal	0x1
00fa 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00fb 0000 0000  |    |		.BLANK	0000[0x5]
0100 ; --------------------------------------------------------------------------------------
0100 ; SUBPROGRAM
0100 ; --------------------------------------------------------------------------------------
0100 0103       |    |		.CONST	0x0103								; Address of begin
0101 0004       |    |		.CONST	0x0004								; Address of exception handler
0102 0001       |    |		.CONST	0x0001								; Number of locals
0103			BODY_0100:
0103			INIT_0100:
0103 00da       |    |		Load_Top	At_Offset_2
0104 8219       |    |		Call	0x1,0x19
0105 6804       |h   |		Jump_Zero	0x10a
0106 00da       |    |		Load_Top	At_Offset_2
0107 821e       |    |		Call	0x1,0x1e
0108 0f00       |    |		Execute_Immediate	Equal,0x0
0109 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010a 4800       |H   |		Short_Literal	0x0
010b 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010c 0000 0000  |    |		.BLANK	0000[0x4]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0113       |    |		.CONST	0x0113								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0001       |    |		.CONST	0x0001								; Number of locals
0113			BODY_0110:
0113			INIT_0110:
0113 00da       |    |		Load_Top	At_Offset_2
0114 821c       |    |		Call	0x1,0x1c
0115 6808       |h   |		Jump_Zero	0x11e
0116 00da       |    |		Load_Top	At_Offset_2
0117 0ad0       |    |		Execute_Immediate	Plus,-0x30
0118 00d8       |    |		Load_Top	At_Offset_0
0119 e212       |    |		Load	0x1,0x12
011a 0260       | `  |		Execute	Discrete,In_Type
011b 7001       |p   |		Jump_Nonzero	0x11d
011c 0801       |    |		Execute_Immediate	Raise,0x1
011d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
011e e228       | (  |		Load	0x1,0x28
011f 0257       | W  |		Execute	Discrete,Raise
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 00da       |    |		Load_Top	At_Offset_2
0124 0a30       | 0  |		Execute_Immediate	Plus,0x30
0125 00d8       |    |		Load_Top	At_Offset_0
0126 00e8       |    |		Load_Encached	Character_Cache
0127 0260       | `  |		Execute	Discrete,In_Type
0128 7001       |p   |		Jump_Nonzero	0x12a
0129 0801       |    |		Execute_Immediate	Raise,0x1
012a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
012b 0000 0000  |    |		.BLANK	0000[0x5]
0130 ; --------------------------------------------------------------------------------------
0130 ; SUBPROGRAM
0130 ; --------------------------------------------------------------------------------------
0130 0133       | 3  |		.CONST	0x0133								; Address of begin
0131 0004       |    |		.CONST	0x0004								; Address of exception handler
0132 0001       |    |		.CONST	0x0001								; Number of locals
0133			BODY_0130:
0133			INIT_0130:
0133 00da       |    |		Load_Top	At_Offset_2
0134 821a       |    |		Call	0x1,0x1a
0135 6808       |h   |		Jump_Zero	0x13e
0136 00da       |    |		Load_Top	At_Offset_2
0137 0ac0       |    |		Execute_Immediate	Plus,-0x40
0138 00d8       |    |		Load_Top	At_Offset_0
0139 e213       |    |		Load	0x1,0x13
013a 0260       | `  |		Execute	Discrete,In_Type
013b 7001       |p   |		Jump_Nonzero	0x13d
013c 0801       |    |		Execute_Immediate	Raise,0x1
013d 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
013e 00da       |    |		Load_Top	At_Offset_2
013f 821b       |    |		Call	0x1,0x1b
0140 6808       |h   |		Jump_Zero	0x149
0141 00da       |    |		Load_Top	At_Offset_2
0142 0aa0       |    |		Execute_Immediate	Plus,-0x60
0143 00d8       |    |		Load_Top	At_Offset_0
0144 e213       |    |		Load	0x1,0x13
0145 0260       | `  |		Execute	Discrete,In_Type
0146 7001       |p   |		Jump_Nonzero	0x148
0147 0801       |    |		Execute_Immediate	Raise,0x1
0148 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0149 e228       | (  |		Load	0x1,0x28
014a 0257       | W  |		Execute	Discrete,Raise
014b 0000 0000  |    |		.BLANK	0000[0x5]
0150 ; --------------------------------------------------------------------------------------
0150 ; SUBPROGRAM
0150 ; --------------------------------------------------------------------------------------
0150 0153       | S  |		.CONST	0x0153								; Address of begin
0151 0004       |    |		.CONST	0x0004								; Address of exception handler
0152 0001       |    |		.CONST	0x0001								; Number of locals
0153			BODY_0150:
0153			INIT_0150:
0153 00da       |    |		Load_Top	At_Offset_2
0154 0a40       | @  |		Execute_Immediate	Plus,0x40
0155 00d8       |    |		Load_Top	At_Offset_0
0156 00e8       |    |		Load_Encached	Character_Cache
0157 0260       | `  |		Execute	Discrete,In_Type
0158 7001       |p   |		Jump_Nonzero	0x15a
0159 0801       |    |		Execute_Immediate	Raise,0x1
015a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
015b 0000 0000  |    |		.BLANK	0000[0x5]
0160 ; --------------------------------------------------------------------------------------
0160 ; SUBPROGRAM
0160 ; --------------------------------------------------------------------------------------
0160 0163       | c  |		.CONST	0x0163								; Address of begin
0161 0004       |    |		.CONST	0x0004								; Address of exception handler
0162 0001       |    |		.CONST	0x0001								; Number of locals
0163			BODY_0160:
0163			INIT_0160:
0163 00da       |    |		Load_Top	At_Offset_2
0164 0a60       | `  |		Execute_Immediate	Plus,0x60
0165 00d8       |    |		Load_Top	At_Offset_0
0166 00e8       |    |		Load_Encached	Character_Cache
0167 0260       | `  |		Execute	Discrete,In_Type
0168 7001       |p   |		Jump_Nonzero	0x16a
0169 0801       |    |		Execute_Immediate	Raise,0x1
016a 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
016b 0000 0000  |    |		.BLANK	0000[0x5]
0170 ; --------------------------------------------------------------------------------------
0170 ; SUBPROGRAM
0170 ; --------------------------------------------------------------------------------------
0170 0173       | s  |		.CONST	0x0173								; Address of begin
0171 0004       |    |		.CONST	0x0004								; Address of exception handler
0172 0001       |    |		.CONST	0x0001								; Number of locals
0173			BODY_0170:
0173			INIT_0170:
0173 e5fd       |    |		Load	0x2,-0x3
0174 6804       |h   |		Jump_Zero	0x179
0175 00da       |    |		Load_Top	At_Offset_2
0176 e5fe       |    |		Load	0x2,-0x2
0177 027f       |    |		Execute	Discrete,Equal
0178 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0179 00da       |    |		Load_Top	At_Offset_2
017a 8216       |    |		Call	0x1,0x16
017b e5fe       |    |		Load	0x2,-0x2
017c 8216       |    |		Call	0x1,0x16
017d 027f       |    |		Execute	Discrete,Equal
017e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
017f 0000       |    |		.XXX[0x1]
0180 ; --------------------------------------------------------------------------------------
0180 ; SUBPROGRAM
0180 ; --------------------------------------------------------------------------------------
0180 0183       |    |		.CONST	0x0183								; Address of begin
0181 0004       |    |		.CONST	0x0004								; Address of exception handler
0182 0001       |    |		.CONST	0x0001								; Number of locals
0183			BODY_0180:
0183			INIT_0180:
0183 e5fd       |    |		Load	0x2,-0x3
0184 6804       |h   |		Jump_Zero	0x189
0185 00da       |    |		Load_Top	At_Offset_2
0186 e5fe       |    |		Load	0x2,-0x2
0187 027c       | |  |		Execute	Discrete,Less
0188 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0189 00da       |    |		Load_Top	At_Offset_2
018a 8216       |    |		Call	0x1,0x16
018b e5fe       |    |		Load	0x2,-0x2
018c 8216       |    |		Call	0x1,0x16
018d 027c       | |  |		Execute	Discrete,Less
018e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
018f 0000       |    |		.XXX[0x1]
0190 ; --------------------------------------------------------------------------------------
0190 ; SUBPROGRAM
0190 ; --------------------------------------------------------------------------------------
0190 0193       |    |		.CONST	0x0193								; Address of begin
0191 0004       |    |		.CONST	0x0004								; Address of exception handler
0192 0001       |    |		.CONST	0x0001								; Number of locals
0193			BODY_0190:
0193			INIT_0190:
0193 e5fd       |    |		Load	0x2,-0x3
0194 6804       |h   |		Jump_Zero	0x199
0195 00da       |    |		Load_Top	At_Offset_2
0196 e5fe       |    |		Load	0x2,-0x2
0197 027d       | }  |		Execute	Discrete,Greater
0198 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
0199 00da       |    |		Load_Top	At_Offset_2
019a 8216       |    |		Call	0x1,0x16
019b e5fe       |    |		Load	0x2,-0x2
019c 8216       |    |		Call	0x1,0x16
019d 027d       | }  |		Execute	Discrete,Greater
019e 4403       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x3
019f 0000       |    |		.XXX[0x1]
01a0 ; --------------------------------------------------------------------------------------
01a0 ; Debug Table
01a0 ; --------------------------------------------------------------------------------------
01a0 0004 0008  |    |		.DEBUG4	0x0004,0x0008,0xdeba,0x0000,0x0001,0x0016
01a6 000b 01fe  |    |		.DBG4T	0x000b,0x01fe,0x8000,0x0000
01aa 0055 021c  | U  |		.DBG4T	0x0055,0x021c,0x8000,0x8000
01ae 0083 0246  |   F|		.DBG4T	0x0083,0x0246,0x0001,0x0000
01b2 0093 0249  |   I|		.DBG4T	0x0093,0x0249,0x0001,0x0000
01b6 009b 024c  |   L|		.DBG4T	0x009b,0x024c,0x0002,0x0000
01ba 00ab 0251  |   Q|		.DBG4T	0x00ab,0x0251,0x0002,0x0000
01be 00bb 0256  |   V|		.DBG4T	0x00bb,0x0256,0x0002,0x0000
01c2 00c3 0259  |   Y|		.DBG4T	0x00c3,0x0259,0x0002,0x0000
01c6 00cb 025c  |   \|		.DBG4T	0x00cb,0x025c,0x0002,0x0000
01ca 00d3 025f  |   _|		.DBG4T	0x00d3,0x025f,0x0002,0x0000
01ce 00db 0262  |   b|		.DBG4T	0x00db,0x0262,0x0002,0x0000
01d2 00e3 0265  |   e|		.DBG4T	0x00e3,0x0265,0x0002,0x0000
01d6 00f3 0268  |   h|		.DBG4T	0x00f3,0x0268,0x0002,0x0000
01da 0103 026b  |   k|		.DBG4T	0x0103,0x026b,0x0002,0x0000
01de 0113 026e  |   n|		.DBG4T	0x0113,0x026e,0x0002,0x0000
01e2 0123 0273  | # s|		.DBG4T	0x0123,0x0273,0x0002,0x0000
01e6 0133 0276  | 3 v|		.DBG4T	0x0133,0x0276,0x0002,0x0000
01ea 0153 027d  | S }|		.DBG4T	0x0153,0x027d,0x0002,0x0000
01ee 0163 0280  | c  |		.DBG4T	0x0163,0x0280,0x0002,0x0000
01f2 0173 0283  | s  |		.DBG4T	0x0173,0x0283,0x0002,0x0000
01f6 0183 0288  |    |		.DBG4T	0x0183,0x0288,0x0002,0x0000
01fa 0193 028d  |    |		.DBG4T	0x0193,0x028d,0x0002,0x0000
01fe ; --------------------------------------------------------------------------------------
01fe ; Debug chain
01fe ; --------------------------------------------------------------------------------------
01fe 001c 0000  |    |		.DBGLEN	0x001c,0x0000
0200 000b 000f  |    |		.DBGLNO	0x000b,0x000f,0x0013,0x0017,0x001b,0x001f,0x0023,0x0027,0x0029,0x002b,0x002d,0x002f,0x0031,0x0033,0x0035,0x0037,0x0039,0x003b,0x003d,0x003f,0x0041,0x0043,0x0045,0x0047,0x0049,0x004b,0x004d,0x004f
021c ; --------------------------------------------------------------------------------------
021c ; Debug chain
021c ; --------------------------------------------------------------------------------------
021c 0014 0000  |    |		.DBGLEN	0x0014,0x0000
021e 0055 0057  | U W|		.DBGLNO	0x0055,0x0057,0x0059,0x005b,0x005d,0x005f,0x0061,0x0063,0x0065,0x0067,0x0069,0x006b,0x006d,0x006f,0x0071,0x0073,0x0075,0x0077,0x0079,0x007b
0232 0002 0003  |    |		.XXX[0x14]
0234 0004 0005  |    |
0236 0006 0007  |    |
0238 0008 0009  |    |
023a 000a 000b  |    |
023c 000c 000d  |    |
023e 000e 000f  |    |
0240 0010 0011  |    |
0242 0012 0013  |    |
0244 0014 0015  |    |
0246 ; --------------------------------------------------------------------------------------
0246 ; Debug chain
0246 ; --------------------------------------------------------------------------------------
0246 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0248 0083       |    |		.DBGLNO	0x0083
0249 ; --------------------------------------------------------------------------------------
0249 ; Debug chain
0249 ; --------------------------------------------------------------------------------------
0249 0000 0001  |    |		.DBGLEN	0x0000,0x0001
024b 0093       |    |		.DBGLNO	0x0093
024c ; --------------------------------------------------------------------------------------
024c ; Debug chain
024c ; --------------------------------------------------------------------------------------
024c 0000 0003  |    |		.DBGLEN	0x0000,0x0003
024e 009b 009e  |    |		.DBGLNO	0x009b,0x009e,0x00a6
0251 ; --------------------------------------------------------------------------------------
0251 ; Debug chain
0251 ; --------------------------------------------------------------------------------------
0251 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0253 00ab 00ae  |    |		.DBGLNO	0x00ab,0x00ae,0x00b6
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0258 00bb       |    |		.DBGLNO	0x00bb
0259 ; --------------------------------------------------------------------------------------
0259 ; Debug chain
0259 ; --------------------------------------------------------------------------------------
0259 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025b 00c3       |    |		.DBGLNO	0x00c3
025c ; --------------------------------------------------------------------------------------
025c ; Debug chain
025c ; --------------------------------------------------------------------------------------
025c 0000 0001  |    |		.DBGLEN	0x0000,0x0001
025e 00cb       |    |		.DBGLNO	0x00cb
025f ; --------------------------------------------------------------------------------------
025f ; Debug chain
025f ; --------------------------------------------------------------------------------------
025f 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0261 00d3       |    |		.DBGLNO	0x00d3
0262 ; --------------------------------------------------------------------------------------
0262 ; Debug chain
0262 ; --------------------------------------------------------------------------------------
0262 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0264 00db       |    |		.DBGLNO	0x00db
0265 ; --------------------------------------------------------------------------------------
0265 ; Debug chain
0265 ; --------------------------------------------------------------------------------------
0265 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0267 00e3       |    |		.DBGLNO	0x00e3
0268 ; --------------------------------------------------------------------------------------
0268 ; Debug chain
0268 ; --------------------------------------------------------------------------------------
0268 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026a 00f3       |    |		.DBGLNO	0x00f3
026b ; --------------------------------------------------------------------------------------
026b ; Debug chain
026b ; --------------------------------------------------------------------------------------
026b 0000 0001  |    |		.DBGLEN	0x0000,0x0001
026d 0103       |    |		.DBGLNO	0x0103
026e ; --------------------------------------------------------------------------------------
026e ; Debug chain
026e ; --------------------------------------------------------------------------------------
026e 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0270 0113 0116  |    |		.DBGLNO	0x0113,0x0116,0x011e
0273 ; --------------------------------------------------------------------------------------
0273 ; Debug chain
0273 ; --------------------------------------------------------------------------------------
0273 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0275 0123       | #  |		.DBGLNO	0x0123
0276 ; --------------------------------------------------------------------------------------
0276 ; Debug chain
0276 ; --------------------------------------------------------------------------------------
0276 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0278 0133 0136  | 3 6|		.DBGLNO	0x0133,0x0136,0x013e,0x0141,0x0149
027d ; --------------------------------------------------------------------------------------
027d ; Debug chain
027d ; --------------------------------------------------------------------------------------
027d 0000 0001  |    |		.DBGLEN	0x0000,0x0001
027f 0153       | S  |		.DBGLNO	0x0153
0280 ; --------------------------------------------------------------------------------------
0280 ; Debug chain
0280 ; --------------------------------------------------------------------------------------
0280 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0282 0163       | c  |		.DBGLNO	0x0163
0283 ; --------------------------------------------------------------------------------------
0283 ; Debug chain
0283 ; --------------------------------------------------------------------------------------
0283 0000 0003  |    |		.DBGLEN	0x0000,0x0003
0285 0173 0175  | s u|		.DBGLNO	0x0173,0x0175,0x0179
0288 ; --------------------------------------------------------------------------------------
0288 ; Debug chain
0288 ; --------------------------------------------------------------------------------------
0288 0000 0003  |    |		.DBGLEN	0x0000,0x0003
028a 0183 0185  |    |		.DBGLNO	0x0183,0x0185,0x0189
028d ; --------------------------------------------------------------------------------------
028d ; Debug chain
028d ; --------------------------------------------------------------------------------------
028d 0000 0003  |    |		.DBGLEN	0x0000,0x0003
028f 0193 0195  |    |		.DBGLNO	0x0193,0x0195,0x0199
0292 0000 0000  |    |		.BLANK	0000[0x16e]