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

⟦1fb391b22⟧

    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 0150       | P  |		.CONST	0x0150								; 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 001c       |    |		.CONST	0x001c								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0010       |    |		.CONST	0x0010								; Number of locals
000b			INIT_0008:
000b 029a 0023  |   #|		Declare_Subprogram	INIT_0020,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0 = .DEBUG	0x000b,0x0182,0x8000,0x0000,0x0058,0x6a05,0x0000,0x000d
													; Debug Table 0x0.0x0 = 0xb,0xffff
000d 029a 006b  |   k|		Declare_Subprogram	INIT_0068,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x1 = 0xd,0xfffe
000f 029a 00b3  |    |		Declare_Subprogram	INIT_00b0,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x2 = 0xf,0xfffd
0011 029a 00fb  |    |		Declare_Subprogram	INIT_00f8,For_Outer_Call,Visible,Unelaborated	; Debug Table 0x0.0x3 = 0x11,0xfffc
0013 00bf       |    |		Action	Accept_Activation
0014 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd				; Debug Table 0x1 = .DEBUG	0x0014,0x018c,0x8000,0x0000,0x0058,0x6c95,0x0000,0x0013
													; Debug Table 0x1.0x0 = 0x14,0xffff
0015 00c7       |    |		Action	Elaborate_Subprogram
0016 1d0e       |    |		Execute_Immediate	Reference_Lex_1,0xe				; Debug Table 0x1.0x1 = 0x16,0xfffe
0017 00c7       |    |		Action	Elaborate_Subprogram
0018 1d0f       |    |		Execute_Immediate	Reference_Lex_1,0xf				; Debug Table 0x1.0x2 = 0x18,0xfffd
0019 00c7       |    |		Action	Elaborate_Subprogram
001a 1d10       |    |		Execute_Immediate	Reference_Lex_1,0x10				; Debug Table 0x1.0x3 = 0x1a,0xfffc
001b 00c7       |    |		Action	Elaborate_Subprogram
001c			BODY_0008:
001c 00bc       |    |		Action	Signal_Activated
001d 00bb       |    |		Action	Signal_Completion
001e 0000 0000  |    |		.XXX[0x2]
0020 ; --------------------------------------------------------------------------------------
0020 ; SUBPROGRAM
0020 ; --------------------------------------------------------------------------------------
0020 002a       | *  |		.CONST	0x002a								; Address of begin
0021 0004       |    |		.CONST	0x0004								; Address of exception handler
0022 0003       |    |		.CONST	0x0003								; Number of locals
0023			INIT_0020:
0023 e001       |    |		Load	0x0,0x1								; Debug Table 0x2 = .DEBUG	0x0023,0x0196,0x0001,0x0000,0x0058,0x6a05,0x0000,0x000e
													; Debug Table 0x2.0x0 = 0x23,0xffff
0024 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0025 02c7       |    |		Declare_Variable	Any
0026 00d8       |    |		Load_Top	At_Offset_0
0027 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0028 e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x1 = 0x28,0xfffe
0029 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
002a			BODY_0020:
002a e002       |    |		Load	0x0,0x2								; Debug Table 0x2.0x2 = 0x2a,0x1
002b 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
002c 00da       |    |		Load_Top	At_Offset_2
002d 0120       |    |		Execute	Any,Is_Value
002e 6803       |h   |		Jump_Zero	0x32
002f e001       |    |		Load	0x0,0x1
0030 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0031 7801       |x   |		Jump	0x33
0032 00da       |    |		Load_Top	At_Offset_2
0033 e5fd       |    |		Load	0x2,-0x3
0034 e5fe       |    |		Load	0x2,-0x2
0035 e5ff       |    |		Load	0x2,-0x1
0036 8210       |    |		Call	0x1,0x10
0037 c402       |    |		Store	0x2,0x2
0038 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0039 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x3 = 0x39,0x2
003a e002       |    |		Load	0x0,0x2
003b 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
003c 680c       |h   |		Jump_Zero	0x49
003d e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x2.0x4 = 0x3d,0x3
003e 0092 0140  |   @|		Action	Push_String_Extended,0x140					; "looking for "
0040 e5fd       |    |		Load	0x2,-0x3
0041 e5fe       |    |		Load	0x2,-0x2
0042 e5ff       |    |		Load	0x2,-0x1
0043 e003       |    |		Load	0x0,0x3
0044 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0045 01cc       |    |		Execute	Vector,Catenate
0046 00da       |    |		Load_Top	At_Offset_2
0047 e004       |    |		Load	0x0,0x4
0048 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0049 e005       |    |		Load	0x0,0x5								; Debug Table 0x2.0x5 = 0x49,0x4
004a 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
004b e005       |    |		Load	0x0,0x5
004c 1b13       |    |		Execute	Package,Field_Read,Field_Number 0x13
004d e5fb       |    |		Load	0x2,-0x5
004e 00f0       |    |		Load_Encached	Segment_Cache
004f e5fa       |    |		Load	0x2,-0x6
0050 e402       |    |		Load	0x2,0x2
0051 e005       |    |		Load	0x0,0x5
0052 1b21       | !  |		Execute	Package,Field_Read,Field_Number 0x21
0053 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0054 c5f9       |    |		Store	0x2,-0x7
0055 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0056 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x2.0x6 = 0x56,0x5
0057 e002       |    |		Load	0x0,0x2
0058 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0059 700b       |p   |		Jump_Nonzero	0x65
005a e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x2.0x7 = 0x5a,0x6
005b 0092 0141  |   A|		Action	Push_String_Extended,0x141					; "opening "
005d 00db       |    |		Load_Top	At_Offset_3
005e e001       |    |		Load	0x0,0x1
005f 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
0060 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
0061 01cc       |    |		Execute	Vector,Catenate
0062 00da       |    |		Load_Top	At_Offset_2
0063 e004       |    |		Load	0x0,0x4
0064 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0065 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
0066 0000 0000  |    |		.XXX[0x2]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 0072       | r  |		.CONST	0x0072								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b e001       |    |		Load	0x0,0x1								; Debug Table 0x3 = .DEBUG	0x006b,0x01a8,0x0001,0x0000,0x0058,0x6a05,0x0000,0x003f
													; Debug Table 0x3.0x0 = 0x6b,0xffff
006c 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
006d 02c7       |    |		Declare_Variable	Any
006e 00d8       |    |		Load_Top	At_Offset_0
006f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0070 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x1 = 0x70,0xfffe
0071 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0072			BODY_0068:
0072 e002       |    |		Load	0x0,0x2								; Debug Table 0x3.0x2 = 0x72,0x1
0073 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0074 00da       |    |		Load_Top	At_Offset_2
0075 0120       |    |		Execute	Any,Is_Value
0076 6803       |h   |		Jump_Zero	0x7a
0077 e001       |    |		Load	0x0,0x1
0078 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0079 7801       |x   |		Jump	0x7b
007a 00da       |    |		Load_Top	At_Offset_2
007b e5fd       |    |		Load	0x2,-0x3
007c e5fe       |    |		Load	0x2,-0x2
007d e5ff       |    |		Load	0x2,-0x1
007e 8210       |    |		Call	0x1,0x10
007f c402       |    |		Store	0x2,0x2
0080 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0081 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x3 = 0x81,0x2
0082 e002       |    |		Load	0x0,0x2
0083 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0084 680c       |h   |		Jump_Zero	0x91
0085 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x3.0x4 = 0x85,0x3
0086 0092 0140  |   @|		Action	Push_String_Extended,0x140					; "looking for "
0088 e5fd       |    |		Load	0x2,-0x3
0089 e5fe       |    |		Load	0x2,-0x2
008a e5ff       |    |		Load	0x2,-0x1
008b e003       |    |		Load	0x0,0x3
008c 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
008d 01cc       |    |		Execute	Vector,Catenate
008e 00da       |    |		Load_Top	At_Offset_2
008f e004       |    |		Load	0x0,0x4
0090 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
0091 e005       |    |		Load	0x0,0x5								; Debug Table 0x3.0x5 = 0x91,0x4
0092 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
0093 e005       |    |		Load	0x0,0x5
0094 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
0095 e5fb       |    |		Load	0x2,-0x5
0096 00f0       |    |		Load_Encached	Segment_Cache
0097 e5fa       |    |		Load	0x2,-0x6
0098 e402       |    |		Load	0x2,0x2
0099 e005       |    |		Load	0x0,0x5
009a 1b25       | %  |		Execute	Package,Field_Read,Field_Number 0x25
009b 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
009c c5f9       |    |		Store	0x2,-0x7
009d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
009e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x3.0x6 = 0x9e,0x5
009f e002       |    |		Load	0x0,0x2
00a0 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00a1 700b       |p   |		Jump_Nonzero	0xad
00a2 e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x3.0x7 = 0xa2,0x6
00a3 0092 0141  |   A|		Action	Push_String_Extended,0x141					; "opening "
00a5 00db       |    |		Load_Top	At_Offset_3
00a6 e001       |    |		Load	0x0,0x1
00a7 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00a8 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00a9 01cc       |    |		Execute	Vector,Catenate
00aa 00da       |    |		Load_Top	At_Offset_2
00ab e004       |    |		Load	0x0,0x4
00ac 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00ad 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00ae 0000 0000  |    |		.XXX[0x2]
00b0 ; --------------------------------------------------------------------------------------
00b0 ; SUBPROGRAM
00b0 ; --------------------------------------------------------------------------------------
00b0 00ba       |    |		.CONST	0x00ba								; Address of begin
00b1 0004       |    |		.CONST	0x0004								; Address of exception handler
00b2 0003       |    |		.CONST	0x0003								; Number of locals
00b3			INIT_00b0:
00b3 e001       |    |		Load	0x0,0x1								; Debug Table 0x4 = .DEBUG	0x00b3,0x01ba,0x0001,0x0000,0x0058,0x6a05,0x0000,0x0070
													; Debug Table 0x4.0x0 = 0xb3,0xffff
00b4 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00b5 02c7       |    |		Declare_Variable	Any
00b6 00d8       |    |		Load_Top	At_Offset_0
00b7 1c00       |    |		Execute_Immediate	Run_Utility,0x0
00b8 e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x1 = 0xb8,0xfffe
00b9 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00ba			BODY_00b0:
00ba e002       |    |		Load	0x0,0x2								; Debug Table 0x4.0x2 = 0xba,0x1
00bb 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
00bc 00da       |    |		Load_Top	At_Offset_2
00bd 0120       |    |		Execute	Any,Is_Value
00be 6803       |h   |		Jump_Zero	0xc2
00bf e001       |    |		Load	0x0,0x1
00c0 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
00c1 7801       |x   |		Jump	0xc3
00c2 00da       |    |		Load_Top	At_Offset_2
00c3 e5fd       |    |		Load	0x2,-0x3
00c4 e5fe       |    |		Load	0x2,-0x2
00c5 e5ff       |    |		Load	0x2,-0x1
00c6 8210       |    |		Call	0x1,0x10
00c7 c402       |    |		Store	0x2,0x2
00c8 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00c9 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x3 = 0xc9,0x2
00ca e002       |    |		Load	0x0,0x2
00cb 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00cc 680c       |h   |		Jump_Zero	0xd9
00cd e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4.0x4 = 0xcd,0x3
00ce 0092 0140  |   @|		Action	Push_String_Extended,0x140					; "looking for "
00d0 e5fd       |    |		Load	0x2,-0x3
00d1 e5fe       |    |		Load	0x2,-0x2
00d2 e5ff       |    |		Load	0x2,-0x1
00d3 e003       |    |		Load	0x0,0x3
00d4 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
00d5 01cc       |    |		Execute	Vector,Catenate
00d6 00da       |    |		Load_Top	At_Offset_2
00d7 e004       |    |		Load	0x0,0x4
00d8 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00d9 e005       |    |		Load	0x0,0x5								; Debug Table 0x4.0x5 = 0xd9,0x4
00da 1b19       |    |		Execute	Package,Field_Read,Field_Number 0x19
00db e005       |    |		Load	0x0,0x5
00dc 1b15       |    |		Execute	Package,Field_Read,Field_Number 0x15
00dd e5fb       |    |		Load	0x2,-0x5
00de 00f0       |    |		Load_Encached	Segment_Cache
00df e5fa       |    |		Load	0x2,-0x6
00e0 e402       |    |		Load	0x2,0x2
00e1 e005       |    |		Load	0x0,0x5
00e2 1b29       | )  |		Execute	Package,Field_Read,Field_Number 0x29
00e3 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
00e4 c5f9       |    |		Store	0x2,-0x7
00e5 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00e6 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x4.0x6 = 0xe6,0x5
00e7 e002       |    |		Load	0x0,0x2
00e8 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
00e9 700b       |p   |		Jump_Nonzero	0xf5
00ea e5fc       |    |		Load	0x2,-0x4							; Debug Table 0x4.0x7 = 0xea,0x6
00eb 0092 0141  |   A|		Action	Push_String_Extended,0x141					; "opening "
00ed 00db       |    |		Load_Top	At_Offset_3
00ee e001       |    |		Load	0x0,0x1
00ef 1b35       | 5  |		Execute	Package,Field_Read,Field_Number 0x35
00f0 183e       | >  |		Execute	Package,Field_Execute,Field_Number 0x3e
00f1 01cc       |    |		Execute	Vector,Catenate
00f2 00da       |    |		Load_Top	At_Offset_2
00f3 e004       |    |		Load	0x0,0x4
00f4 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
00f5 4507       |E   |		Exit_Suprogram	New_Top_Offset 0x7
00f6 0000 0000  |    |		.XXX[0x2]
00f8 ; --------------------------------------------------------------------------------------
00f8 ; SUBPROGRAM
00f8 ; --------------------------------------------------------------------------------------
00f8 0102       |    |		.CONST	0x0102								; Address of begin
00f9 0004       |    |		.CONST	0x0004								; Address of exception handler
00fa 0003       |    |		.CONST	0x0003								; Number of locals
00fb			INIT_00f8:
00fb e001       |    |		Load	0x0,0x1								; Debug Table 0x5 = .DEBUG	0x00fb,0x01cc,0x0001,0x0000,0x0058,0x6a05,0x0000,0x00a1
													; Debug Table 0x5.0x0 = 0xfb,0xffff
00fc 1b14       |    |		Execute	Package,Field_Read,Field_Number 0x14
00fd 02ff       |    |		Declare_Variable	Variant_Record
00fe 00d8       |    |		Load_Top	At_Offset_0
00ff 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0100 e002       |    |		Load	0x0,0x2								; Debug Table 0x5.0x1 = 0x100,0xfffe
0101 1b11       |    |		Execute	Package,Field_Read,Field_Number 0x11
0102			BODY_00f8:
0102 487e       |H~  |		Short_Literal	0x7e							; Debug Table 0x5.0x2 = 0x102,0x1
0103 a5fb       |    |		Store_Unchecked	0x2,-0x5
0104 e001       |    |		Load	0x0,0x1								; Debug Table 0x5.0x3 = 0x104,0x2
0105 1810       |    |		Execute	Package,Field_Execute,Field_Number 0x10
0106 c5fc       |    |		Store	0x2,-0x4
0107 e5ff       |    |		Load	0x2,-0x1							; Debug Table 0x5.0x4 = 0x107,0x3
0108 01db       |    |		Execute	Vector,Length
0109 6805       |h   |		Jump_Zero	0x10f
010a e5ff       |    |		Load	0x2,-0x1
010b 0092 0142  |   B|		Action	Push_String_Extended,0x142					; "<>"
010d 01df       |    |		Execute	Vector,Equal
010e 6803       |h   |		Jump_Zero	0x112
010f 4800       |H   |		Short_Literal	0x0							; Debug Table 0x5.0x5 = 0x10f,0x4
0110 a5fb       |    |		Store_Unchecked	0x2,-0x5
0111 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0112 e006       |    |		Load	0x0,0x6								; Debug Table 0x5.0x6 = 0x112,0x5
0113 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0114 00da       |    |		Load_Top	At_Offset_2
0115 e5fd       |    |		Load	0x2,-0x3
0116 e5fe       |    |		Load	0x2,-0x2
0117 e5ff       |    |		Load	0x2,-0x1
0118 e003       |    |		Load	0x0,0x3
0119 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
011a e006       |    |		Load	0x0,0x6
011b 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
011c 00d1       |    |		Pop_Control	Pop_Count_1
011d 0059       | Y  |		Store_Top	Discrete,At_Offset_1
011e 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x7 = 0x11e,0x6
011f e002       |    |		Load	0x0,0x2
0120 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
0121 7008       |p   |		Jump_Nonzero	0x12a
0122 e006       |    |		Load	0x0,0x6								; Debug Table 0x5.0x8 = 0x122,0x7
0123 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0124 00da       |    |		Load_Top	At_Offset_2
0125 e5ff       |    |		Load	0x2,-0x1
0126 e006       |    |		Load	0x0,0x6
0127 1811       |    |		Execute	Package,Field_Execute,Field_Number 0x11
0128 00d1       |    |		Pop_Control	Pop_Count_1
0129 0059       | Y  |		Store_Top	Discrete,At_Offset_1
012a 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0x9 = 0x12a,0x8
012b e002       |    |		Load	0x0,0x2
012c 1814       |    |		Execute	Package,Field_Execute,Field_Number 0x14
012d 680f       |h   |		Jump_Zero	0x13d
012e e006       |    |		Load	0x0,0x6								; Debug Table 0x5.0xa = 0x12e,0x9
012f 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
0130 e5fc       |    |		Load	0x2,-0x4
0131 0120       |    |		Execute	Any,Is_Value
0132 6803       |h   |		Jump_Zero	0x136
0133 e001       |    |		Load	0x0,0x1
0134 1b0f       |    |		Execute	Package,Field_Read,Field_Number 0xf
0135 7801       |x   |		Jump	0x137
0136 e5fc       |    |		Load	0x2,-0x4
0137 00db       |    |		Load_Top	At_Offset_3
0138 e006       |    |		Load	0x0,0x6
0139 1812       |    |		Execute	Package,Field_Execute,Field_Number 0x12
013a c5fc       |    |		Store	0x2,-0x4
013b c5fb       |    |		Store	0x2,-0x5
013c 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
013d 00d8       |    |		Load_Top	At_Offset_0						; Debug Table 0x5.0xb = 0x13d,0xa
013e a5fb       |    |		Store_Unchecked	0x2,-0x5
013f 4504       |E   |		Exit_Suprogram	New_Top_Offset 0x4
0140 ; --------------------------------------------------------------------------------------
0140 ; STRING TABLE
0140 ; --------------------------------------------------------------------------------------
0140 0008       |    |		.STRTAB	0x0008->0x0144							; "looking for "
0141 0012       |    |		.STRTAB	0x0012->0x014a							; "opening "
0142 0018       |    |		.STRTAB	0x0018->0x014e							; "<>"
0143 0018       |    |		.STREND 0x0018->0x014f
0144 6c6f 6f6b  |look|		.STRTAB_STRINGS
014f 0000       |    |		.XXX[0x1]
0150 ; --------------------------------------------------------------------------------------
0150 ; Debug Table
0150 ; --------------------------------------------------------------------------------------
0150 0003 0006  |    |		.CONST	0x0003,0x0006
0152 000b 0182  |    |		.DEBUG	0x000b,0x0182,0x8000,0x0000,0x0058,0x6a05,0x0000,0x000d
015a 0014 018c  |    |		.DEBUG	0x0014,0x018c,0x8000,0x0000,0x0058,0x6c95,0x0000,0x0013
0162 0023 0196  | #  |		.DEBUG	0x0023,0x0196,0x0001,0x0000,0x0058,0x6a05,0x0000,0x000e
016a 006b 01a8  | k  |		.DEBUG	0x006b,0x01a8,0x0001,0x0000,0x0058,0x6a05,0x0000,0x003f
0172 00b3 01ba  |    |		.DEBUG	0x00b3,0x01ba,0x0001,0x0000,0x0058,0x6a05,0x0000,0x0070
017a 00fb 01cc  |    |		.DEBUG	0x00fb,0x01cc,0x0001,0x0000,0x0058,0x6a05,0x0000,0x00a1
0182 ; --------------------------------------------------------------------------------------
0182 ; Debug3 Subtable 0x0
0182 ; --------------------------------------------------------------------------------------
0182 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
0184 000b ffff  |    |		.CONST	0x000b,0xffff
0186 000d fffe  |    |		.CONST	0x000d,0xfffe
0188 000f fffd  |    |		.CONST	0x000f,0xfffd
018a 0011 fffc  |    |		.CONST	0x0011,0xfffc
018c ; --------------------------------------------------------------------------------------
018c ; Debug3 Subtable 0x1
018c ; --------------------------------------------------------------------------------------
018c 0004 0000  |    |		.DBG3TAB	0x0004,0x0000
018e 0014 ffff  |    |		.CONST	0x0014,0xffff
0190 0016 fffe  |    |		.CONST	0x0016,0xfffe
0192 0018 fffd  |    |		.CONST	0x0018,0xfffd
0194 001a fffc  |    |		.CONST	0x001a,0xfffc
0196 ; --------------------------------------------------------------------------------------
0196 ; Debug3 Subtable 0x2
0196 ; --------------------------------------------------------------------------------------
0196 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
0198 0023 ffff  | #  |		.CONST	0x0023,0xffff
019a 0028 fffe  | (  |		.CONST	0x0028,0xfffe
019c 002a 0001  | *  |		.CONST	0x002a,0x0001
019e 0039 0002  | 9  |		.CONST	0x0039,0x0002
01a0 003d 0003  | =  |		.CONST	0x003d,0x0003
01a2 0049 0004  | I  |		.CONST	0x0049,0x0004
01a4 0056 0005  | V  |		.CONST	0x0056,0x0005
01a6 005a 0006  | Z  |		.CONST	0x005a,0x0006
01a8 ; --------------------------------------------------------------------------------------
01a8 ; Debug3 Subtable 0x3
01a8 ; --------------------------------------------------------------------------------------
01a8 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
01aa 006b ffff  | k  |		.CONST	0x006b,0xffff
01ac 0070 fffe  | p  |		.CONST	0x0070,0xfffe
01ae 0072 0001  | r  |		.CONST	0x0072,0x0001
01b0 0081 0002  |    |		.CONST	0x0081,0x0002
01b2 0085 0003  |    |		.CONST	0x0085,0x0003
01b4 0091 0004  |    |		.CONST	0x0091,0x0004
01b6 009e 0005  |    |		.CONST	0x009e,0x0005
01b8 00a2 0006  |    |		.CONST	0x00a2,0x0006
01ba ; --------------------------------------------------------------------------------------
01ba ; Debug3 Subtable 0x4
01ba ; --------------------------------------------------------------------------------------
01ba 0002 0006  |    |		.DBG3TAB	0x0002,0x0006
01bc 00b3 ffff  |    |		.CONST	0x00b3,0xffff
01be 00b8 fffe  |    |		.CONST	0x00b8,0xfffe
01c0 00ba 0001  |    |		.CONST	0x00ba,0x0001
01c2 00c9 0002  |    |		.CONST	0x00c9,0x0002
01c4 00cd 0003  |    |		.CONST	0x00cd,0x0003
01c6 00d9 0004  |    |		.CONST	0x00d9,0x0004
01c8 00e6 0005  |    |		.CONST	0x00e6,0x0005
01ca 00ea 0006  |    |		.CONST	0x00ea,0x0006
01cc ; --------------------------------------------------------------------------------------
01cc ; Debug3 Subtable 0x5
01cc ; --------------------------------------------------------------------------------------
01cc 0002 000a  |    |		.DBG3TAB	0x0002,0x000a
01ce 00fb ffff  |    |		.CONST	0x00fb,0xffff
01d0 0100 fffe  |    |		.CONST	0x0100,0xfffe
01d2 0102 0001  |    |		.CONST	0x0102,0x0001
01d4 0104 0002  |    |		.CONST	0x0104,0x0002
01d6 0107 0003  |    |		.CONST	0x0107,0x0003
01d8 010f 0004  |    |		.CONST	0x010f,0x0004
01da 0112 0005  |    |		.CONST	0x0112,0x0005
01dc 011e 0006  |    |		.CONST	0x011e,0x0006
01de 0122 0007  | "  |		.CONST	0x0122,0x0007
01e0 012a 0008  | *  |		.CONST	0x012a,0x0008
01e2 012e 0009  | .  |		.CONST	0x012e,0x0009
01e4 013d 000a  | =  |		.CONST	0x013d,0x000a
01e6 0000 0000  |    |		.BLANK	0000[0x1a]