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

⟦4d6ee7795⟧

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

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 5800       |X   |		.CONST	0x5800								; Diana Version, RCG Major Version, RCG minor version
0002 0000       |    |		.CONST	0x0000								; Zero
0003 01d8       |    |		.CONST	0x01d8								; 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 0010       |    |		.CONST	0x0010								; Address of begin
0009 0004       |    |		.CONST	0x0004								; Address of exception handler
000a 0001       |    |		.CONST	0x0001								; Number of locals
000b			INIT_0008:
000b 029a 001b  |    |		Declare_Subprogram	INIT_0018,For_Outer_Call,Visible,Unelaborated
000d 00bf       |    |		Action	Accept_Activation
000e 1d0d       |    |		Execute_Immediate	Reference_Lex_1,0xd
000f 00c7       |    |		Action	Elaborate_Subprogram
0010			BODY_0008:
0010 00bc       |    |		Action	Signal_Activated
0011 00bb       |    |		Action	Signal_Completion
0012 0000 0000  |    |		.BLANK	0000[0x6]
0018 ; --------------------------------------------------------------------------------------
0018 ; SUBPROGRAM
0018 ; --------------------------------------------------------------------------------------
0018 0026       | &  |		.CONST	0x0026								; Address of begin
0019 0004       |    |		.CONST	0x0004								; Address of exception handler
001a 0006       |    |		.CONST	0x0006								; Number of locals
001b			INIT_0018:
001b 0092 0193  |    |		Action	Push_String_Extended,0x193					; "!Machine.Queues.User_To_Printer_Map"
001d e001       |    |		Load	0x0,0x1
001e 1921       | !  |		Execute	Package,Field_Reference,Field_Number 0x21
001f 0007       |    |		Action	Break_Optional
0020 029f 002b  |   +|		Declare_Subprogram	INIT_0028,For_Call
0022 029f 004b  |   K|		Declare_Subprogram	INIT_0048,For_Call
0024 029f 006b  |   k|		Declare_Subprogram	INIT_0068,For_Call
0026			BODY_0018:
0026 8406       |    |		Call	0x2,0x6
0027 4503       |E   |		Exit_Suprogram	New_Top_Offset 0x3
0028 ; --------------------------------------------------------------------------------------
0028 ; SUBPROGRAM
0028 ; --------------------------------------------------------------------------------------
0028 0039       | 9  |		.CONST	0x0039								; Address of begin
0029 003b       | ;  |		.CONST	0x003b								; Address of exception handler
002a 0007       |    |		.CONST	0x0007								; Number of locals
002b			INIT_0028:
002b e002       |    |		Load	0x0,0x2
002c 1b0d       |    |		Execute	Package,Field_Read,Field_Number 0xd
002d 02c7       |    |		Declare_Variable	Any
002e 00d8       |    |		Load_Top	At_Offset_0
002f 1c00       |    |		Execute_Immediate	Run_Utility,0x0
0030 00e2       |    |		Load_Encached	Integer_Cache
0031 029f 007b  |   {|		Declare_Subprogram	INIT_0078,For_Call
0033 029f 00a3  |    |		Declare_Subprogram	INIT_00a0,For_Call
0035 029f 00c3  |    |		Declare_Subprogram	INIT_00c0,For_Call
0037 029f 0113  |    |		Declare_Subprogram	INIT_0110,For_Call
0039			BODY_0028:
0039 8607       |    |		Call	0x3,0x7
003a 0831       | 1  |		Execute_Immediate	Raise,0x31
003b			TRAP_0028:
003b 00d8       |    |		Load_Top	At_Offset_0
003c 0107       |    |		Execute	Exception,Get_Name
003d 4920       |I   |		Short_Literal	0x120
003e 492f       |I/  |		Short_Literal	0x12f
003f 0262       | b  |		Execute	Discrete,In_Range
0040 6804       |h   |		Jump_Zero	0x45
0041 e5ff       |    |		Load	0x2,-0x1
0042 0335       | 5  |		Declare_Variable	Array,Duplicate
0043 00cd       |    |		Action	Spare6_Action
0044 00ca       |    |		Action	Exit_Nullary_Function
0045 0100       |    |		Execute	Exception,Raise
0046 0000 0000  |    |		.XXX[0x2]
0048 ; --------------------------------------------------------------------------------------
0048 ; SUBPROGRAM
0048 ; --------------------------------------------------------------------------------------
0048 004b       | K  |		.CONST	0x004b								; Address of begin
0049 0004       |    |		.CONST	0x0004								; Address of exception handler
004a 0001       |    |		.CONST	0x0001								; Number of locals
004b			BODY_0048:
004b			INIT_0048:
004b 00da       |    |		Load_Top	At_Offset_2
004c 01db       |    |		Execute	Vector,Length
004d 0c02       |    |		Execute_Immediate	Greater_Equal,0x2
004e 6810       |h   |		Jump_Zero	0x5f
004f 00da       |    |		Load_Top	At_Offset_2
0050 01dd       |    |		Execute	Vector,First
0051 00db       |    |		Load_Top	At_Offset_3
0052 01dd       |    |		Execute	Vector,First
0053 0a01       |    |		Execute_Immediate	Plus,0x1
0054 00d8       |    |		Load_Top	At_Offset_0
0055 00e2       |    |		Load_Encached	Integer_Cache
0056 0260       | `  |		Execute	Discrete,In_Type
0057 7001       |p   |		Jump_Nonzero	0x59
0058 0801       |    |		Execute_Immediate	Raise,0x1
0059 e7ff       |    |		Load	0x3,-0x1
005a 01cf       |    |		Execute	Vector,Slice_Read
005b 0092 0194  |    |		Action	Push_String_Extended,0x194					; "!!"
005d 01df       |    |		Execute	Vector,Equal
005e 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
005f 4800       |H   |		Short_Literal	0x0
0060 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0061 0000 0000  |    |		.BLANK	0000[0x7]
0068 ; --------------------------------------------------------------------------------------
0068 ; SUBPROGRAM
0068 ; --------------------------------------------------------------------------------------
0068 006e       | n  |		.CONST	0x006e								; Address of begin
0069 0004       |    |		.CONST	0x0004								; Address of exception handler
006a 0003       |    |		.CONST	0x0003								; Number of locals
006b			INIT_0068:
006b 8404       |    |		Call	0x2,0x4
006c 029f 013b  |   ;|		Declare_Subprogram	INIT_0138,For_Call
006e			BODY_0068:
006e 00d9       |    |		Load_Top	At_Offset_1
006f 8405       |    |		Call	0x2,0x5
0070 6802       |h   |		Jump_Zero	0x73
0071 8603       |    |		Call	0x3,0x3
0072 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0073 e5fe       |    |		Load	0x2,-0x2
0074 e003       |    |		Load	0x0,0x3
0075 180f       |    |		Execute	Package,Field_Execute,Field_Number 0xf
0076 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0077 0000       |    |		.XXX[0x1]
0078 ; --------------------------------------------------------------------------------------
0078 ; SUBPROGRAM
0078 ; --------------------------------------------------------------------------------------
0078 007b       | {  |		.CONST	0x007b								; Address of begin
0079 0004       |    |		.CONST	0x0004								; Address of exception handler
007a 0001       |    |		.CONST	0x0001								; Number of locals
007b			BODY_0078:
007b			INIT_0078:
007b 00db       |    |		Load_Top	At_Offset_3
007c 01db       |    |		Execute	Vector,Length
007d 680b       |h   |		Jump_Zero	0x89
007e 00db       |    |		Load_Top	At_Offset_3
007f 01dd       |    |		Execute	Vector,First
0080 e9fe       |    |		Load	0x4,-0x2
0081 01d7       |    |		Execute	Vector,Field_Read
0082 0f2a       | *  |		Execute_Immediate	Equal,0x2a
0083 6805       |h   |		Jump_Zero	0x89
0084 4801       |H   |		Short_Literal	0x1
0085 e9fe       |    |		Load	0x4,-0x2
0086 e9ff       |    |		Load	0x4,-0x1
0087 8403       |    |		Call	0x2,0x3
0088 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0089 4801       |H   |		Short_Literal	0x1
008a 0092 0195  |    |		Action	Push_String_Extended,0x195					; "others"
008c e9ff       |    |		Load	0x4,-0x1
008d 8403       |    |		Call	0x2,0x3
008e 6802       |h   |		Jump_Zero	0x91
008f 4801       |H   |		Short_Literal	0x1
0090 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0091 00da       |    |		Load_Top	At_Offset_2
0092 0092 0196  |    |		Action	Push_String_Extended,0x196					; "@"
0094 01df       |    |		Execute	Vector,Equal
0095 6802       |h   |		Jump_Zero	0x98
0096 4801       |H   |		Short_Literal	0x1
0097 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
0098 4801       |H   |		Short_Literal	0x1
0099 e9fe       |    |		Load	0x4,-0x2
009a e9ff       |    |		Load	0x4,-0x1
009b 8403       |    |		Call	0x2,0x3
009c 4402       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x2
009d 0000 0000  |    |		.XXX[0x3]
009f 0000       |    |
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 4801       |H   |		Short_Literal	0x1
00a4 0092 0197  |    |		Action	Push_String_Extended,0x197					; "<Default>"
00a6 e9ff       |    |		Load	0x4,-0x1
00a7 8403       |    |		Call	0x2,0x3
00a8 6805       |h   |		Jump_Zero	0xae
00a9 e004       |    |		Load	0x0,0x4
00aa 1819       |    |		Execute	Package,Field_Execute,Field_Number 0x19
00ab e004       |    |		Load	0x0,0x4
00ac 181c       |    |		Execute	Package,Field_Execute,Field_Number 0x1c
00ad 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00ae 4801       |H   |		Short_Literal	0x1
00af 0092 0198  |    |		Action	Push_String_Extended,0x198					; "Others"
00b1 e9ff       |    |		Load	0x4,-0x1
00b2 8403       |    |		Call	0x2,0x3
00b3 6802       |h   |		Jump_Zero	0xb6
00b4 00da       |    |		Load_Top	At_Offset_2
00b5 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00b6 0092 0199  |    |		Action	Push_String_Extended,0x199					; "*"
00b8 00db       |    |		Load_Top	At_Offset_3
00b9 01cc       |    |		Execute	Vector,Catenate
00ba 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
00bb 0000 0000  |    |		.BLANK	0000[0x5]
00c0 ; --------------------------------------------------------------------------------------
00c0 ; SUBPROGRAM
00c0 ; --------------------------------------------------------------------------------------
00c0 00c5       |    |		.CONST	0x00c5								; Address of begin
00c1 0004       |    |		.CONST	0x0004								; Address of exception handler
00c2 0003       |    |		.CONST	0x0003								; Number of locals
00c3			INIT_00c0:
00c3 00e3       |    |		Load_Encached	Natural_Cache
00c4 03e9       |    |		Declare_Variable	Discrete,Duplicate
00c5			BODY_00c0:
00c5 e603       |    |		Load	0x3,0x3
00c6 4fff       |O   |		Short_Literal	-0x1
00c7 027f       |    |		Execute	Discrete,Equal
00c8 6803       |h   |		Jump_Zero	0xcc
00c9 e9ff       |    |		Load	0x4,-0x1
00ca 01dd       |    |		Execute	Vector,First
00cb a603       |    |		Store_Unchecked	0x3,0x3
00cc e603       |    |		Load	0x3,0x3
00cd 005a       | Z  |		Store_Top	Discrete,At_Offset_2
00ce 00cf       |    |		Action	Mark_Auxiliary
00cf 7804       |x   |		Jump	0xd4
00d0 00da       |    |		Load_Top	At_Offset_2
00d1 0a01       |    |		Execute_Immediate	Plus,0x1
00d2 005b       | [  |		Store_Top	Discrete,At_Offset_3
00d3 00c9       |    |		Action	Pop_Auxiliary_Loop
00d4 00da       |    |		Load_Top	At_Offset_2
00d5 e9ff       |    |		Load	0x4,-0x1
00d6 01dc       |    |		Execute	Vector,Last
00d7 027a       | z  |		Execute	Discrete,Less_Equal
00d8 6805       |h   |		Jump_Zero	0xde
00d9 00da       |    |		Load_Top	At_Offset_2
00da e9ff       |    |		Load	0x4,-0x1
00db 01d7       |    |		Execute	Vector,Field_Read
00dc 0f20       |    |		Execute_Immediate	Equal,0x20
00dd 77f2       |w   |		Jump_Nonzero	0xd0
00de 00ce       |    |		Action	Pop_Auxiliary
00df 00d9       |    |		Load_Top	At_Offset_1
00e0 a603       |    |		Store_Unchecked	0x3,0x3
00e1 00cf       |    |		Action	Mark_Auxiliary
00e2 7804       |x   |		Jump	0xe7
00e3 e603       |    |		Load	0x3,0x3
00e4 0a01       |    |		Execute_Immediate	Plus,0x1
00e5 c603       |    |		Store	0x3,0x3
00e6 00c9       |    |		Action	Pop_Auxiliary_Loop
00e7 e603       |    |		Load	0x3,0x3
00e8 e9ff       |    |		Load	0x4,-0x1
00e9 01dc       |    |		Execute	Vector,Last
00ea 027a       | z  |		Execute	Discrete,Less_Equal
00eb 6805       |h   |		Jump_Zero	0xf1
00ec e603       |    |		Load	0x3,0x3
00ed e9ff       |    |		Load	0x4,-0x1
00ee 01d7       |    |		Execute	Vector,Field_Read
00ef 0e20       |    |		Execute_Immediate	Not_Equal,0x20
00f0 77f2       |w   |		Jump_Nonzero	0xe3
00f1 00ce       |    |		Action	Pop_Auxiliary
00f2 00d9       |    |		Load_Top	At_Offset_1
00f3 e9ff       |    |		Load	0x4,-0x1
00f4 01dc       |    |		Execute	Vector,Last
00f5 027a       | z  |		Execute	Discrete,Less_Equal
00f6 6811       |h   |		Jump_Zero	0x108
00f7 e603       |    |		Load	0x3,0x3
00f8 e9ff       |    |		Load	0x4,-0x1
00f9 01dc       |    |		Execute	Vector,Last
00fa 027d       | }  |		Execute	Discrete,Greater
00fb 6804       |h   |		Jump_Zero	0x100
00fc e9ff       |    |		Load	0x4,-0x1
00fd 01dc       |    |		Execute	Vector,Last
00fe 0059       | Y  |		Store_Top	Discrete,At_Offset_1
00ff 7803       |x   |		Jump	0x103
0100 e603       |    |		Load	0x3,0x3
0101 0aff       |    |		Execute_Immediate	Plus,-0x1
0102 0059       | Y  |		Store_Top	Discrete,At_Offset_1
0103 00d9       |    |		Load_Top	At_Offset_1
0104 00d9       |    |		Load_Top	At_Offset_1
0105 e9ff       |    |		Load	0x4,-0x1
0106 01cf       |    |		Execute	Vector,Slice_Read
0107 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
0108 00ea       |    |		Load_Encached	Null_String_Cache
0109 4401       |D   |		Exit_Subprogram	With_Value,New_Top_Offset 0x1
010a 0000 0000  |    |		.BLANK	0000[0x6]
0110 ; --------------------------------------------------------------------------------------
0110 ; SUBPROGRAM
0110 ; --------------------------------------------------------------------------------------
0110 0117       |    |		.CONST	0x0117								; Address of begin
0111 0004       |    |		.CONST	0x0004								; Address of exception handler
0112 0003       |    |		.CONST	0x0003								; Number of locals
0113			INIT_0110:
0113 e5ff       |    |		Load	0x2,-0x1
0114 8605       |    |		Call	0x3,0x5
0115 029f 016b  |   k|		Declare_Subprogram	INIT_0168,For_Call
0117			BODY_0110:
0117 e602       |    |		Load	0x3,0x2
0118 00ea       |    |		Load_Encached	Null_String_Cache
0119 e402       |    |		Load	0x2,0x2
011a 4800       |H   |		Short_Literal	0x0
011b e002       |    |		Load	0x0,0x2
011c 1815       |    |		Execute	Package,Field_Execute,Field_Number 0x15
011d c602       |    |		Store	0x3,0x2
011e 00cf       |    |		Action	Mark_Auxiliary
011f 7804       |x   |		Jump	0x124
0120 4fff       |O   |		Short_Literal	-0x1
0121 a603       |    |		Store_Unchecked	0x3,0x3
0122 8803       |    |		Call	0x4,0x3
0123 00c9       |    |		Action	Pop_Auxiliary_Loop
0124 e602       |    |		Load	0x3,0x2
0125 e002       |    |		Load	0x0,0x2
0126 184b       | K  |		Execute	Package,Field_Execute,Field_Number 0x4b
0127 6ff8       |o   |		Jump_Zero	0x120
0128 00ce       |    |		Action	Pop_Auxiliary
0129 e602       |    |		Load	0x3,0x2
012a e002       |    |		Load	0x0,0x2
012b 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
012c c602       |    |		Store	0x3,0x2
012d e5ff       |    |		Load	0x2,-0x1
012e 0335       | 5  |		Declare_Variable	Array,Duplicate
012f 00cd       |    |		Action	Spare6_Action
0130 00cb       |    |		Action	Pop_Block_With_Result
0131 00ca       |    |		Action	Exit_Nullary_Function
0132 0000 0000  |    |		.BLANK	0000[0x6]
0138 ; --------------------------------------------------------------------------------------
0138 ; SUBPROGRAM
0138 ; --------------------------------------------------------------------------------------
0138 0152       | R  |		.CONST	0x0152								; Address of begin
0139 0004       |    |		.CONST	0x0004								; Address of exception handler
013a 0004       |    |		.CONST	0x0004								; Number of locals
013b			INIT_0138:
013b 4801       |H   |		Short_Literal	0x1
013c e602       |    |		Load	0x3,0x2
013d 0092 0194  |    |		Action	Push_String_Extended,0x194					; "!!"
013f e001       |    |		Load	0x0,0x1
0140 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
0141 0a02       |    |		Execute_Immediate	Plus,0x2
0142 00e3       |    |		Load_Encached	Natural_Cache
0143 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
0144 4801       |H   |		Short_Literal	0x1
0145 e602       |    |		Load	0x3,0x2
0146 0092 019a  |    |		Action	Push_String_Extended,0x19a					; "."
0148 e001       |    |		Load	0x0,0x1
0149 181d       |    |		Execute	Package,Field_Execute,Field_Number 0x1d
014a 0aff       |    |		Execute_Immediate	Plus,-0x1
014b 00e3       |    |		Load_Encached	Natural_Cache
014c 03ec       |    |		Declare_Variable	Discrete,With_Value,With_Constraint
014d 00d9       |    |		Load_Top	At_Offset_1
014e 00d9       |    |		Load_Top	At_Offset_1
014f e602       |    |		Load	0x3,0x2
0150 01cf       |    |		Execute	Vector,Slice_Read
0151 0007       |    |		Action	Break_Optional
0152			BODY_0138:
0152 0092 019b  |    |		Action	Push_String_Extended,0x19b					; "<PROGRESS>"
0154 00ea       |    |		Load_Encached	Null_String_Cache
0155 0092 019c  |    |		Action	Push_String_Extended,0x19c					; "!Machine"
0157 0092 019c  |    |		Action	Push_String_Extended,0x19c					; "!Machine"
0159 0092 019d  |    |		Action	Push_String_Extended,0x19d					; "Queue.Cancel(Request_Id =>"
015b e5fe       |    |		Load	0x2,-0x2
015c 00e0       |    |		Load_Encached	Standard_Cache
015d 1818       |    |		Execute	Package,Field_Execute,Field_Number 0x18
015e 01cc       |    |		Execute	Vector,Catenate
015f 0092 019e  |    |		Action	Push_String_Extended,0x19e					; ");"
0161 01cc       |    |		Execute	Vector,Catenate
0162 e804       |    |		Load	0x4,0x4
0163 e005       |    |		Load	0x0,0x5
0164 180d       |    |		Execute	Package,Field_Execute,Field_Number 0xd
0165 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0166 0000 0000  |    |		.XXX[0x2]
0168 ; --------------------------------------------------------------------------------------
0168 ; SUBPROGRAM
0168 ; --------------------------------------------------------------------------------------
0168 0172       | r  |		.CONST	0x0172								; Address of begin
0169 0004       |    |		.CONST	0x0004								; Address of exception handler
016a 0004       |    |		.CONST	0x0004								; Number of locals
016b			INIT_0168:
016b e602       |    |		Load	0x3,0x2
016c e002       |    |		Load	0x0,0x2
016d 1866       | f  |		Execute	Package,Field_Execute,Field_Number 0x66
016e 00d8       |    |		Load_Top	At_Offset_0
016f 8606       |    |		Call	0x3,0x6
0170 00d9       |    |		Load_Top	At_Offset_1
0171 8606       |    |		Call	0x3,0x6
0172			BODY_0168:
0172 00d9       |    |		Load_Top	At_Offset_1
0173 01db       |    |		Execute	Vector,Length
0174 0d02       |    |		Execute_Immediate	Less,0x2
0175 7010       |p   |		Jump_Nonzero	0x186
0176 00d9       |    |		Load_Top	At_Offset_1
0177 01dd       |    |		Execute	Vector,First
0178 00da       |    |		Load_Top	At_Offset_2
0179 01dd       |    |		Execute	Vector,First
017a 0a01       |    |		Execute_Immediate	Plus,0x1
017b 00d8       |    |		Load_Top	At_Offset_0
017c 00e2       |    |		Load_Encached	Integer_Cache
017d 0260       | `  |		Execute	Discrete,In_Type
017e 7001       |p   |		Jump_Nonzero	0x180
017f 0801       |    |		Execute_Immediate	Raise,0x1
0180 00db       |    |		Load_Top	At_Offset_3
0181 01cf       |    |		Execute	Vector,Slice_Read
0182 0092 019f  |    |		Action	Push_String_Extended,0x19f					; "--"
0184 01de       |    |		Execute	Vector,Not_Equal
0185 680c       |h   |		Jump_Zero	0x192
0186 e802       |    |		Load	0x4,0x2
0187 00da       |    |		Load_Top	At_Offset_2
0188 8604       |    |		Call	0x3,0x4
0189 6808       |h   |		Jump_Zero	0x192
018a e602       |    |		Load	0x3,0x2
018b e002       |    |		Load	0x0,0x2
018c 181b       |    |		Execute	Package,Field_Execute,Field_Number 0x1b
018d c602       |    |		Store	0x3,0x2
018e 00d8       |    |		Load_Top	At_Offset_0
018f 00cb       |    |		Action	Pop_Block_With_Result
0190 00cb       |    |		Action	Pop_Block_With_Result
0191 00ca       |    |		Action	Exit_Nullary_Function
0192 4501       |E   |		Exit_Suprogram	New_Top_Offset 0x1
0193 ; --------------------------------------------------------------------------------------
0193 ; STRING TABLE
0193 ; --------------------------------------------------------------------------------------
0193 001c       |    |		.STRTAB	0x001c->0x01a1							; "!Machine.Queues.User_To_Printer_Map"
0194 003d       | =  |		.STRTAB	0x003d->0x01b2							; "!!"
0195 003d       | =  |		.STRTAB	0x003d->0x01b3							; "others"
0196 0041       | A  |		.STRTAB	0x0041->0x01b6							; "@"
0197 0040       | @  |		.STRTAB	0x0040->0x01b7							; "<Default>"
0198 0047       | G  |		.STRTAB	0x0047->0x01bb							; "Others"
0199 004b       | K  |		.STRTAB	0x004b->0x01be							; "*"
019a 004a       | J  |		.STRTAB	0x004a->0x01bf							; "."
019b 0049       | I  |		.STRTAB	0x0049->0x01bf							; "<PROGRESS>"
019c 0051       | Q  |		.STRTAB	0x0051->0x01c4							; "!Machine"
019d 0057       | W  |		.STRTAB	0x0057->0x01c8							; "Queue.Cancel(Request_Id =>"
019e 006f       | o  |		.STRTAB	0x006f->0x01d5							; ");"
019f 006f       | o  |		.STRTAB	0x006f->0x01d6							; "--"
01a0 006f       | o  |		.STREND 0x006f->0x01d7
01a1 214d 6163  |!Mac|		.STRTAB_STRINGS
01d8 ; --------------------------------------------------------------------------------------
01d8 ; Debug Table
01d8 ; --------------------------------------------------------------------------------------
01d8 0004 0000  |    |		.DEBUG4	0x0004,0x0000,0x68e7,0x0000,0x0001,0x000b
01de 000b 0000  |    |		.DBG4T	0x000b,0x0000,0x8000,0x0000
01e2 001b 020a  |    |		.DBG4T	0x001b,0x020a,0x8001,0x8000
01e6 002b 0215  | +  |		.DBG4T	0x002b,0x0215,0x0002,0x0000
01ea 004b 021e  | K  |		.DBG4T	0x004b,0x021e,0x0002,0x0000
01ee 006b 0221  | k !|		.DBG4T	0x006b,0x0221,0x0004,0x0000
01f2 007b 0227  | { '|		.DBG4T	0x007b,0x0227,0x0002,0x0000
01f6 00a3 0230  |   0|		.DBG4T	0x00a3,0x0230,0x0002,0x0000
01fa 00c3 0237  |   7|		.DBG4T	0x00c3,0x0237,0x0002,0x4000
01fe 0113 0256  |   V|		.DBG4T	0x0113,0x0256,0x0004,0x4000
0202 013b 0265  | ; e|		.DBG4T	0x013b,0x0265,0x0004,0x0000
0206 016b 026b  | k k|		.DBG4T	0x016b,0x026b,0x0004,0x0000
020a ; --------------------------------------------------------------------------------------
020a ; Debug chain
020a ; --------------------------------------------------------------------------------------
020a 0004 0001  |    |		.DBGLEN	0x0004,0x0001
020c 001b 001d  |    |		.DBGLNO	0x001b,0x001d,0x0020,0x0022,0x0026
0211 0002 0003  |    |		.XXX[0x4]
0213 0004 0005  |    |
0215 ; --------------------------------------------------------------------------------------
0215 ; Debug chain
0215 ; --------------------------------------------------------------------------------------
0215 0005 0002  |    |		.DBGLEN	0x0005,0x0002
0217 002b 0030  | + 0|		.DBGLNO	0x002b,0x0030,0x0031,0x0033,0x0035,0x0039,0x0041
021e ; --------------------------------------------------------------------------------------
021e ; Debug chain
021e ; --------------------------------------------------------------------------------------
021e 0000 0001  |    |		.DBGLEN	0x0000,0x0001
0220 004b       | K  |		.DBGLNO	0x004b
0221 ; --------------------------------------------------------------------------------------
0221 ; Debug chain
0221 ; --------------------------------------------------------------------------------------
0221 0001 0003  |    |		.DBGLEN	0x0001,0x0003
0223 006b 006e  | k n|		.DBGLNO	0x006b,0x006e,0x0071,0x0073
0227 ; --------------------------------------------------------------------------------------
0227 ; Debug chain
0227 ; --------------------------------------------------------------------------------------
0227 0000 0007  |    |		.DBGLEN	0x0000,0x0007
0229 007b 0084  | {  |		.DBGLNO	0x007b,0x0084,0x0089,0x008f,0x0091,0x0096,0x0098
0230 ; --------------------------------------------------------------------------------------
0230 ; Debug chain
0230 ; --------------------------------------------------------------------------------------
0230 0000 0005  |    |		.DBGLEN	0x0000,0x0005
0232 00a3 00a9  |    |		.DBGLNO	0x00a3,0x00a9,0x00ae,0x00b4,0x00b6
0237 ; --------------------------------------------------------------------------------------
0237 ; Debug chain
0237 ; --------------------------------------------------------------------------------------
0237 0001 000e  |    |		.DBGLEN	0x0001,0x000e
0239 00c3 00c5  |    |		.DBGLNO	0x00c3,0x00c5,0x00c9,0x00cc,0x00d0,0x00d4,0x00df,0x00e3,0x00e7,0x00f2,0x00f7,0x00fc,0x0100,0x0103,0x0108
0248 0001 0002  |    |		.XXX[0xe]
024a 0003 0005  |    |
024c 0004 0006  |    |
024e 0008 0007  |    |
0250 0009 000a  |    |
0252 000b 000c  |    |
0254 000d 000e  |    |
0256 ; --------------------------------------------------------------------------------------
0256 ; Debug chain
0256 ; --------------------------------------------------------------------------------------
0256 0001 0006  |    |		.DBGLEN	0x0001,0x0006
0258 0113 0117  |    |		.DBGLNO	0x0113,0x0117,0x0120,0x0122,0x0124,0x0129,0x012d
025f 0001 0003  |    |		.XXX[0x6]
0261 0004 0002  |    |
0263 0005 0006  |    |
0265 ; --------------------------------------------------------------------------------------
0265 ; Debug chain
0265 ; --------------------------------------------------------------------------------------
0265 0003 0001  |    |		.DBGLEN	0x0003,0x0001
0267 013b 0144  | ; D|		.DBGLNO	0x013b,0x0144,0x014d,0x0152
026b ; --------------------------------------------------------------------------------------
026b ; Debug chain
026b ; --------------------------------------------------------------------------------------
026b 0003 0004  |    |		.DBGLEN	0x0003,0x0004
026d 016b 016e  | k n|		.DBGLNO	0x016b,0x016e,0x0170,0x0172,0x0186,0x018a,0x018e
0274 0000 0000  |    |		.BLANK	0000[0x18c]