         Edinburgh IMP77 Compiler - Version 8.4
    1 %BEGIN
				NO_APP
		.Ltext0:
				.align	2
		PRINTNAME.5987:
		.LFB186:
				.loc 1 1 0
				.cfi_startproc
			.LVL215:
		 		link.w %fp,#0
				.cfi_offset 14, -8
				.cfi_def_cfa 14, 8
    2 %STRING(255)%FN PRINTNAME(%INTEGER N)
		.LVL0:
		 		link.w %fp,#-768
		 		move.l %d2,-(%sp)
		 		move.l %a1,%d2
				.loc 1 2 0
		 		move.l 12(%fp),-(%sp)
		 		move.l 8(%fp),-(%sp)
		 		jsr _imp_initialise
			.LVL216:
				.loc 1 423 0
		 		clr.l -(%sp)
		 		clr.l -(%sp)
		 		pea 16.w
		 		jsr FAULT.6092
			.LVL217:
    3 %INTEGER V, K
    4 %owninteger count=0
    5       count=count+1
		 		move.l COUNT.5991,%d0
		 		addq.l #1,%d0
		 		move.l %d0,COUNT.5991
    6        %if count=1 %then %result="JAMES"
		 		moveq #1,%d1
		 		cmp.l %d0,%d1
		 		jeq .L5
		.L2:
    7       %if count=2 %then %result="JIM"
		 		moveq #2,%d1
		 		cmp.l %d0,%d1
		 		jeq .L6
		.L4:
		 		pea 256.w
		 		pea -768(%fp)
		 		move.l %a1,-(%sp)
		 		jsr memcpy
		.LVL2:
		 		lea (12,%sp),%sp
		 		jra .L1
		.L6:
    8       %result="???"
		 		pea 256.w
		 		pea -256(%fp)
		 		move.l %a1,-(%sp)
		 		jsr memcpy
		.LVL1:
		 		lea (12,%sp),%sp
		.L1:
		 		pea 256.w
		 		pea -512(%fp)
		 		move.l %a1,-(%sp)
		 		jsr memcpy
		.LVL3:
		 		lea (12,%sp),%sp
		 		jra .L1
		.LFE186:
				.align	2
		SWRITE.6049:
		.LFB188:
    9 %END
		 		move.l %d2,%a0
		 		move.l -772(%fp),%d2
		 		unlk %fp
		 		rts
		.L5:
?K unused
?V unused
?N unused
   10
   11 %STRING(255)%FN MESSAGE(%INTEGER N)
				.loc 1 11 0
				.cfi_startproc
			.LVL25:
		 		link.w %fp,#-4424
				.cfi_offset 14, -8
				.cfi_def_cfa 14, 8
		 		movem.l #15928,-(%sp)
				.cfi_offset 2, -4464
				.cfi_offset 3, -4460
				.cfi_offset 4, -4456
				.cfi_offset 5, -4452
				.cfi_offset 6, -4448
				.cfi_offset 10, -4444
				.cfi_offset 11, -4440
				.cfi_offset 12, -4436
		 		move.l %a1,%d2
		 		move.l 8(%fp),%d3
   12 !***********************************************************************
   13 !*       OUTPUTS AN ERROR MESSAGE STORED IN A COMPRESSED FORMAT        *
   14 !*       1  %REPEAT is not required                                    *
   15 !*       2  Label & has already been set in this block                 *
   16 !*       4  & is not a Switch name at current textual level            *
   17 !*       5  Switch name & in expression or assignment                  *
   18 !*       6  Switch label &(#) set a second time                        *
   19 !*       7  Name & has already been declared                           *
   20 !*       8  Routine or fn & has more parameters than specified         *
   21 !*       9  Parameter # of & differs in type from specification        *
   22 !*      10  Routine or fn & has fewer parameters than specified        *
   23 !*      11  Label & referenced at line # has not been set              *
   24 !*      12  %CYCLE at line # has two control clauses                   *
   25 !*      13  %REPEAT for %CYCLE at line # is missing                    *
   26 !*      14  %END is not required                                       *
   27 !*      15  # %ENDs are missing                                        *
   28 !*      16  Name & has not been declared                               *
   29 !*      17  Name & does not require parameters or subscripts           *
   30 !*      18  # too few parameters provided for &                        *
   31 !*      19  # too many parameters provided for &                       *
   32 !*      20  # too few subscripts provided for array &                  *
   33 !*      21  # too many subscripts provided for array &                 *
   34 !*      22  Actual parameter # of & conflicts with specification       *
   35 !*      23  Routine name & in an expression                            *
   36 !*      24  Integer operator has Real operands                         *
   37 !*      25  Real expression in integer context                         *
   38 !*      26  # is not a valid %EVENT number                             *
   39 !*      27  & is not a routine name                                    *
   40 !*      28  Routine or fn & has specification but no body              *
   41 !*      29  %FUNCTION name & not in expression                         *
   42 !*      30  %RETURN outwith routine body                               *
   43 !*      31  %RESULT outwith fn or map body                             *
   44 !*      34  Too many textual levels                                    *
   45 !*      37  Array & has too many dimensions                            *
   46 !*      38  Array & has upper bound # less than lower bound            *
   47 !*      39  Size of Array & is more than X'FFFFFF' bytes               *
   48 !*      40  Declaration is not at head of block                        *
   49 !*      41  Constant cannot be evaluated at compile time               *
   50 !*      42  # is an invalid repetition factor                          *
   51 !*      43  %CONSTANT name & not in expression                         *
   52 !*      44  Invalid constant initialising & after # items              *
   53 !*      45  Array initialising items expected ## items given #         *
   54 !*      46  Invalid %EXTERNAL %EXTRINSIC or variable %SPEC             *
   55 !*      47  %ELSE already given at line #                              *
   56 !*      48  %ELSE invalid after %ON %EVENT                             *
   57 !*      49  Attempt to initialise %EXTRINSIC or %FORMAT &              *
   58 !*      50  Subscript of # is outwith the bounds of &                  *
   59 !*      51  %FINISH is not required                                    *
   60 !*      52  %REPEAT instead of %FINISH for %START at line #            *
   61 !*      53  %FINISH for %START at line # is missing                    *
   62 !*      54  %EXIT outwith %CYCLE %REPEAT body                          *
   63 !*      55  %CONTINUE outwith %CYCLE %REPEAT body                      *
   64 !*      56  %EXTERNALROUTINE & at wrong textual level                  *
   65 !*      57  Executable statement found at textual level zero           *
   66 !*      58  Program among external routines                            *
   67 !*      59  %FINISH instead of %REPEAT for %CYCLE at line #            *
   68 !*      61  Name & has already been used in this %FORMAT               *
   69 !*      62  & is not a %RECORD or %RECORD %FORMAT name                 *
   70 !*      63  %RECORD length is greater than # bytes                     *
   71 !*      64  Name & requires a subname in this context                  *
   72 !*      65  Subname & is not in the %RECORD %FORMAT                    *
   73 !*      66  Expression assigned to record &                            *
   74 !*      67  Records && and & have different formats                    *
   75 !*      69  Subname && is attached to & which is not of type %RECORD   *
   76 !*      70  String declaration has invalid max length of #             *
   77 !*      71  & is not a String variable                                 *
   78 !*      72  Arithmetic operator in a String expression                 *
   79 !*      73  Arithmetic constant in a String expression                 *
   80 !*      74  Resolution is not the correct format                       *
   81 !*      75  String expression contains a sub expression                *
   82 !*      76  String variable & in arithmetic expression                 *
   83 !*      77  String constant in arithmetic expression                   *
   84 !*      78  String operator '.' in arithmetic expression               *
   85 !*      80  Pointer variable & compared with expression                *
   86 !*      81  Pointer variable & equivalenced to expression              *
   87 !*      82  & is not a pointer name                                    *
   88 !*      83  && and & are not equivalent in type                        *
   89 !*      86  Global pointer && equivalenced to local &                  *
   90 !*      87  %FORMAT name & use in expression                           *
   91 !*      90  Untyped name & used in expression                          *
   92 !*      91  %FOR control variable & not integer                        *
   93 !*      92  %FOR clause has zero step                                  *
   94 !*      93  %FOR clause has noninteger number of traverses             *
   95 !*      95  Name & not valid in assembler                              *
   96 !*      96  Operand # not valid in assembler                           *
   97 !*      97  Assembler construction not valid                           *
   98 !*      98  Addressability                                             *
   99 !*      99  Facility not supported by target hardware                  *
  100 !*     101  Source line has too many continuations                     *
  101 !*     102  Workfile of # Kbytes is too small                          *
  102 !*     103  Dictionary completely full                                 *
  103 !*     104  Dictionary completely full                                 *
  104 !*     105  Too many textual levels                                    *
  105 !*     106  String constant too long                                   *
  106 !*     107  Compiler tables are completely full                        *
  107 !*     108  Condition too complicated                                  *
  108 !*     109  Compiler inconsistent                                      *
  109 !*     110  Input ended                                                *
  110 !*     201  Long integers are inefficient as subscripts                *
  111 !*     202  Name & not used                                            *
  112 !*     203  Label & not used                                           *
  113 !*     204  Global %FOR control variable &                             *
  114 !*     205  Name & not addressable                                     *
  115 !*     206  Semicolon in comment text                                  *
  116 !*     207  %CONSTANT variable & not initialised                       *
  117 !*     208  Unsupported precision used - nearest available substituted *
  118 !*     209  Target machine is word addressed?                          *
  119 !*     210  Redundant %ALIAS provided                                  *
  120 !*     255  SEE IMP MANUAL                                             *
  121 !***********************************************************************
  122 %CONSTBYTEINTEGERARRAY OUTTT(0:63)='?','A','B','C','D','E','F','G',
  123                                         'H','I','J','K','L','M','N',
  124                                         'O','P','Q','R','S','T','U',
  125                                         'V','W','X','Y','Z','&','-',
  126                                         '/','''','(',')',
  127                                         'a','b','c','d','e','f','g',
  128                                         'h','i','j','k','l','m','n',
  129                                         'o','p','q','r','s','t','u',
  130                                         'v','w','x','y','z','.','%',
  131                                         '#','?'(2)
  132 %CONSTINTEGER WORDMAX= 780,DEFAULT= 776
  133 %CONSTshortINTEGERARRAY WORD(0:WORDMAX)=0,%C
				.loc 1 133 0
		 		pea 1562.w
		 		pea .LC15
		 		pea -1562(%fp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL26:
  134               1, 32769, 32771, 32772, 32773,     2, 32775, 32776,
  135           32777, 32778, 32780, 32781, 32782, 32783, 32784,     4,
  136           32776, 32771, 32772, 32785, 32786, 32788, 32789, 32790,
  137           32792, 32794,     5, 32786, 32788, 32776, 32782, 32795,
  138           32797, 32798,     6, 32786, 32800, 32801, 32781, 32785,
  139           32802, 32804,     7, 32805, 32776, 32777, 32778, 32780,
  140           32806,     8, 32808, 32797, 32810, 32776, 32777, 32811,
  141           32812, 32814, 32815,     9, 32817, 32819, 32820, 32776,
  142           32821, 32782, 32823, 32824, 32825,    10, 32808, 32797,
  143           32810, 32776, 32777, 32828, 32812, 32814, 32815,    11,
  144           32775, 32776, 32829, 32789, 32831, 32819, 32777, 32772,
  145           32780, 32781,    12, 32832, 32789, 32831, 32819, 32777,
  146           32834, 32835, 32837,    13, 32769, 32839, 32832, 32789,
  147           32831, 32819, 32771, 32840,    14, 32842, 32771, 32772,
  148           32773,    15, 32819, 32843, 32844, 32840,    16, 32805,
  149           32776, 32777, 32772, 32780, 32806,    17, 32805, 32776,
  150           32845, 32772, 32846, 32812, 32797, 32848,    18, 32819,
  151           32850, 32851, 32812, 32852, 32839, 32776,    19, 32819,
  152           32850, 32854, 32812, 32852, 32839, 32776,    20, 32819,
  153           32850, 32851, 32848, 32852, 32839, 32855, 32776,    21,
  154           32819, 32850, 32854, 32848, 32852, 32839, 32855, 32776,
  155              22, 32856, 32858, 32819, 32820, 32776, 32860, 32862,
  156           32825,    23, 32808, 32788, 32776, 32782, 32863, 32795,
  157              24, 32864, 32866, 32777, 32868, 32869,    25, 32868,
  158           32795, 32782, 32871, 32873,    26, 32819, 32771, 32772,
  159           32785, 32875, 32876, 32878,    27, 32776, 32771, 32772,
  160           32785, 32880, 32788,    28, 32808, 32797, 32810, 32776,
  161           32777, 32825, 32882, 32883, 32884,    29, 32885, 32788,
  162           32776, 32772, 32782, 32795,    30, 32887, 32889, 32880,
  163           32884,    31, 32891, 32889, 32810, 32797, 32893, 32884,
  164              34, 32894, 32854, 32792, 32895,    37, 32897, 32776,
  165           32777, 32850, 32854, 32898,    38, 32897, 32776, 32777,
  166           32900, 32901, 32819, 32902, 32814, 32903, 32901,    39,
  167           32904, 32820, 32897, 32776, 32771, 32811, 32814, 32905,
  168           32907,    40, 32908, 32771, 32772, 32789, 32911, 32820,
  169           32784,    41, 32912, 32914, 32916, 32917, 32789, 32919,
  170           32804,    42, 32819, 32771, 32863, 32921, 32923, 32925,
  171              43, 32927, 32788, 32776, 32772, 32782, 32795,    44,
  172           32929, 32931, 32933, 32776, 32936, 32819, 32937,    45,
  173           32897, 32933, 32937, 32938, 32940, 32937, 32941, 32819,
  174              46, 32929, 32942, 32944, 32797, 32946, 32948,    47,
  175           32949, 32778, 32941, 32789, 32831, 32819,    48, 32949,
  176           32921, 32936, 32950, 32876,    49, 32951, 32953, 32954,
  177           32944, 32797, 32956, 32776,    50, 32958, 32820, 32819,
  178           32771, 32889, 32960, 32961, 32820, 32776,    51, 32963,
  179           32771, 32772, 32773,    52, 32769, 32965, 32820, 32963,
  180           32839, 32967, 32789, 32831, 32819,    53, 32963, 32839,
  181           32967, 32789, 32831, 32819, 32771, 32840,    54, 32969,
  182           32889, 32832, 32769, 32884,    55, 32970, 32889, 32832,
  183           32769, 32884,    56, 32972, 32776, 32789, 32976, 32792,
  184           32794,    57, 32977, 32979, 32981, 32789, 32792, 32794,
  185           32982,    58, 32983, 32985, 32986, 32988,    59, 32963,
  186           32965, 32820, 32769, 32839, 32832, 32789, 32831, 32819,
  187              61, 32805, 32776, 32777, 32778, 32780, 32990, 32782,
  188           32783, 32956,    62, 32776, 32771, 32772, 32785, 32991,
  189           32797, 32991, 32956, 32788,    63, 32991, 32993, 32771,
  190           32995, 32814, 32819, 32907,    64, 32805, 32776, 32997,
  191           32785, 32999, 32782, 32783, 32873,    65, 33001, 32776,
  192           32771, 32772, 32782, 32960, 32991, 32956,    66, 33003,
  193           33005, 32953, 33007, 32776,    67, 33009, 33011, 33012,
  194           32776, 33013, 33014, 33016,    69, 33001, 33011, 32771,
  195           33018, 32953, 32776, 33020, 32771, 32772, 32820, 32823,
  196           32991,    70, 33021, 33023, 32777, 32921, 33026, 32993,
  197           32820, 32819,    71, 32776, 32771, 32772, 32785, 33021,
  198           32946,    72, 33027, 32866, 32782, 32785, 33021, 32795,
  199              73, 33027, 32931, 32782, 32785, 33021, 32795,    74,
  200           33029, 32771, 32772, 32960, 33031, 33033,    75, 33021,
  201           32795, 33035, 32785, 33037, 32795,    76, 33021, 32946,
  202           32776, 32782, 33038, 32795,    77, 33021, 32931, 32782,
  203           33038, 32795,    78, 33021, 32866, 33040, 32782, 33038,
  204           32795,    80, 33041, 32946, 32776, 33043, 32862, 32795,
  205              81, 33041, 32946, 32776, 33045, 32953, 32795,    82,
  206           32776, 32771, 32772, 32785, 33048, 32788,    83, 33011,
  207           33012, 32776, 32844, 32772, 33050, 32782, 32823,    86,
  208           33052, 33048, 33011, 33045, 32953, 33054, 32776,    87,
  209           32956, 32788, 32776, 33055, 32782, 32795,    90, 33056,
  210           32788, 32776, 32990, 32782, 32795,    91, 33058, 32835,
  211           32946, 32776, 32772, 32871,    92, 33058, 33059, 32777,
  212           32982, 33061,    93, 33058, 33059, 32777, 33062, 32878,
  213           32820, 33064,    90, 33056, 32788, 32776, 32990, 33066,
  214           32946,    95, 32805, 32776, 32772, 32875, 32782, 33067,
  215              96, 33069, 32819, 32772, 32875, 32782, 33067,    97,
  216           33071, 33073, 32772, 32875,    98, 33076,    99, 33079,
  217           32772, 33081, 33083, 33084, 33086,   101, 33088, 32831,
  218           32777, 32850, 32854, 33090,   102, 33093, 32820, 32819,
  219           33095, 32771, 32850, 33097,   103, 33098, 33100, 33102,
  220             104, 33098, 33100, 33102,   105, 32894, 32854, 32792,
  221           32895,   106, 33021, 32931, 32850, 33103,   107, 33104,
  222           33106, 32844, 33100, 33102,   108, 33108, 32850, 33110,
  223             109, 33104, 33113,   110, 33116, 33117,   201, 33118,
  224           33119, 32844, 33121, 33066, 32848,   202, 32805, 32776,
  225           32772, 32990,   203, 32775, 32776, 32772, 32990,   204,
  226           33052, 33058, 32835, 32946, 32776,   205, 32805, 32776,
  227           32772, 33124,   206, 33127, 32782, 33129, 33131,   207,
  228           32927, 32946, 32776, 32772, 33132,   208, 33135, 33138,
  229           32990, 33140, 33141, 33143, 33145,   209, 33148, 33150,
  230           32771, 33152, 33153,   210, 33155, 33157, 32852,   255,
  231           33159, 33160, 33161,     0
  232 %CONSTINTEGERARRAY LETT(0: 394)=0,%C
				.loc 1 232 0
		 		pea 1580.w
		 		pea .LC16
		 		pea -3142(%fp)
		 		jsr (%a2)
			.LVL27:
  233         X'7890A80B',X'02A00000',X'53980000',X'5D7E8000',
  234         X'652E3AD3',X'652C8000',X'190C52D8',X'36000000',
  235         X'510E6000',X'436652C3',X'49C80000',X'452CB700',
  236         X'672E8000',X'53700000',X'69453980',X'4565F1D6',
  237         X'42000000',X'27BD3A47',X'50000000',X'5D0DB280',
  238         X'43A00000',X'47AE594B',X'5DA00000',X'692F1A6B',
  239         X'43600000',X'592ED2D8',X'4BC6194B',X'679D37DC',
  240         X'5F900000',X'439E74CF',X'5D6CB768',X'590C52D8',
  241         X'36FFB000',X'672C77DD',X'48000000',X'694DB280',
  242         X'1D0DB280',X'492C7643',X'652C8000',X'257EBA53',
  243         X'5D280000',X'4D700000',X'5B7E5280',X'610E50DB',
  244         X'4BA4B966',X'69443700',X'6784B1D3',X'4D4CB200',
  245         X'210E50DB',X'4BA4B900',X'7A000000',X'5F300000',
  246         X'494CD34B',X'65980000',X'69CE1280',X'4D95F680',
  247         X'6784B1D3',X'4D4C70E9',X'537DC000',X'4D2EF2E4',
  248         X'652CD2E5',X'4B7472C8',X'594DD280',X'781B2199',
  249         X'0A000000',X'69BDE000',X'477DDA65',X'5F600000',
  250         X'47643AE7',X'4B980000',X'4D7E4000',X'5B4E79D3',
  251         X'5D380000',X'7829C200',X'7829C266',X'4394A000',
  252         X'497CB980',X'652E3AD3',X'65280000',X'67AC59C7',
  253         X'654E1A66',X'697DE000',X'4D2EE000',X'6195FB53',
  254         X'492C8000',X'5B0DDC80',X'439650F2',X'031E9AC3',
  255         X'58000000',X'610E50DB',X'4BA4B900',X'477DD359',
  256         X'531E9980',X'6F4E9400',X'43700000',X'137692CF',
  257         X'4B900000',X'5F84B943',X'697E4000',X'252C3600',
  258         X'5F84B943',X'5D266000',X'537692CF',X'4B900000',
  259         X'477DDA4B',X'71A00000',X'6D0D94C8',X'782AC29D',
  260         X'28000000',X'5DADB14B',X'64000000',X'657EBA53',
  261         X'5D280000',X'45AE8000',X'5D780000',X'457C9C80',
  262         X'7832A707',X'2849E700',X'7890AA2B',X'24700000',
  263         X'5FAE9BD3',X'69400000',X'7890A9AB',X'18A00000',
  264         X'5B0E0000',X'297DE000',X'592ED2D9',X'66000000',
  265         X'039650F2',X'494DB2DD',X'674DF766',X'6B8612E4',
  266         X'457EB748',X'592E7980',X'597EF2E4',X'274F5280',
  267         X'30F0C30D',X'0C30CF00',X'45CE92E6',X'092C7643',
  268         X'650E94DF',X'5C000000',X'512C3200',X'077DD9E9',
  269         X'43768000',X'470DD75F',X'68000000',X'45280000',
  270         X'4BB4366B',X'43A4B200',X'477DB853',X'59280000',
  271         X'5376D0D9',X'53200000',X'652E12E9',X'53A537DC',
  272         X'4D0C7A5F',X'64000000',X'7819E727',X'2809CA00',
  273         X'1376D0D9',X'53200000',X'477DD9E9',X'43768000',
  274         X'53753A53',X'436539D3',X'5D380000',X'433692E4',
  275         X'53A4B6E6',X'4BC612C7',X'692C8000',X'7BE80000',
  276         X'4F4ED2DC',X'782B0A0B',X'24702600',X'782B0A25',
  277         X'12726486',X'6D0E54C3',X'4564A000',X'789A0286',
  278         X'7829898A',X'7879C000',X'03A692DB',X'61A00000',
  279         X'69780000',X'53753A53',X'436539CA',X'7831E91B',
  280         X'02A00000',X'27AC59C7',X'654E1A00',X'6944A000',
  281         X'457EB749',X'66000000',X'78312713',X'26400000',
  282         X'53767A4B',X'43200000',X'789A80A5',X'28000000',
  283         X'782B04A8',X'7819E729',X'1272A280',X'782B0A0B',
  284         X'24702625',X'1EAA849D',X'0A000000',X'6F95F74E',
  285         X'0BC4B1EB',X'690C564A',X'67A43A4B',X'5B2DDA00',
  286         X'4D7EB748',X'752E5780',X'2195F3E5',X'43680000',
  287         X'436DF74E',X'4BC692E5',X'5D0D8000',X'657EBA53',
  288         X'5D2E6000',X'6B9CB200',X'7890A19F',X'24200000',
  289         X'592DD3E9',X'50000000',X'4F94B0E9',X'4B900000',
  290         X'652E3AD3',X'652E6000',X'67AC5743',X'5B280000',
  291         X'27AC5743',X'5B280000',X'0BC6194B',X'679D37DC',
  292         X'439E74CF',X'5D2C8000',X'652C77E5',X'48000000',
  293         X'252C77E5',X'49980000',X'36D80000',X'43748000',
  294         X'510ED280',X'494CD34B',X'652DDA00',X'4D7E56C3',
  295         X'69980000',X'43A690C7',X'512C8000',X'6F4531D0',
  296         X'27A654DD',X'4E000000',X'492C7643',X'650E94DF',
  297         X'5C000000',X'5B0F0000',X'03953A51',X'5B2E94C6',
  298         X'252E77D9',X'6BA537DC',X'477E594B',X'47A00000',
  299         X'4D7E56C3',X'68000000',X'477DDA43',X'53766000',
  300         X'67AC4000',X'43953A51',X'5B2E94C6',X'3DDBC000',
  301         X'217D3769',X'4B900000',X'477DB843',X'652C8000',
  302         X'4B8EB4ED',X'4364B747',X'4B200000',X'617D3769',
  303         X'4B900000',X'4B8EB4ED',X'4364B768',X'0F65F143',
  304         X'58000000',X'597C70D8',X'6B9CA000',X'2B769CE1',
  305         X'4B200000',X'7831E900',X'47643AE7',X'4A000000',
  306         X'67A4B800',X'5D7DD4DD',X'692CF2E4',X'69943B4B',
  307         X'659CB980',X'43980000',X'439E72DB',X'4564B900',
  308         X'1F84B943',X'5D200000',X'039E72DB',X'4564B900',
  309         X'477DD9E9',X'65AC7A53',X'5F700000',X'0324994B',
  310         X'679C3153',X'594E9C80',X'0D0C74D9',X'53A72000',
  311         X'67AE185F',X'65A4B200',X'45C80000',X'690E53CB',
  312         X'68000000',X'510E526F',X'4394A000',X'277EB947',
  313         X'4A000000',X'477DDA53',X'5DAC3A53',X'5F766000',
  314         X'2F7E55CD',X'5364A000',X'17173A4B',X'66000000',
  315         X'676C3658',X'094C7A53',X'5F743972',X'477DB859',
  316         X'4BA4B672',X'4DAD9600',X'597DD380',X'077DB853',
  317         X'592E4000',X'690C564B',X'66000000',X'077DD253',
  318         X'694DF700',X'477DB859',X'531C3A4B',X'48000000',
  319         X'537477DD',X'674E7A4B',X'5DA00000',X'13761AE8',
  320         X'4B7492C8',X'197DD380',X'537692CF',X'4B966000',
  321         X'5374B34D',X'531D32DD',X'68000000',X'4324994B',
  322         X'679C3159',X'4A000000',X'272DB4C7',X'5F65F700',
  323         X'477DB6CB',X'5DA00000',X'692F1A00',X'53753A53',
  324         X'436539CB',X'48000000',X'2B767AE1',X'617E5A4B',
  325         X'48000000',X'6194B1D3',X'674DF700',X'38000000',
  326         X'5D2C394B',X'67A00000',X'43B434D9',X'43159280',
  327         X'67AC59E9',X'53A6BA4B',X'48000000',X'290E53CB',
  328         X'68000000',X'5B0C7453',X'5D280000',X'6F7E5200',
  329         X'4324994B',X'679CB27E',X'252C9ADD',X'490DDA00',
  330         X'78098483',X'26000000',X'2628A000',X'126A0000',
  331         X'1A09CA83',X'18000000'
  332 %INTEGER I,J,K,M,Q,S
  333 %STRING(70)OMESS
  334       OMESS=" "
  335       %CYCLE I=1,1,WORDMAX-1
  336          ->FOUND %IF N=WORD(I)
				.loc 1 336 0
		 		pea 70.w
		 		pea -4422(%fp)
		 		pea -3398(%fp)
		 		jsr _imp_strncpy
			.LVL28:
			.LBB132:
				.loc 1 336 0
		 		move.w -1560(%fp),%a0
		 		lea (36,%sp),%sp
		 		cmp.l %d3,%a0
		 		jeq .L25
		 		lea (-1558,%fp),%a0
				.loc 1 336 0
		 		move.w (%a0)+,%a1
		 		cmp.l %a1,%d3
		 		jeq .L19
  337       %REPEAT
  338       I=DEFAULT
				.loc 1 338 0
		 		move.l #776,%d0
			.LVL31:
			.L17:
			.L19:
			.LDL4:
  339 FOUND:
  340       J=1
				.loc 1 340 0
		 		cmp.l #779,%d0
		 		jne .L18
			.LBE132:
  341       %CYCLE
				.loc 1 341 0
		 		moveq #1,%d0
			.LVL29:
			.L18:
			.LDL2:
			.LDL3:
		 		addq.l #1,%d0
			.LVL30:
				.loc 1 341 0
		 		moveq #1,%d0
		 		jra .L19
			.LVL43:
			.L24:
			.LBE138:
  342          K=WORD(I+J)
				.loc 1 342 0
		 		move.w -1560(%fp,%d0.l*2),%d0
			.LVL32:
  343          %IF K&X'8000'=0 %THEN %EXIT
				.loc 1 343 0
		 		btst #0,%d0
		 		jeq .L20
			.L21:
			.LVL33:
			.LDL5:
			.LDL6:
		 		and.l #32767,%d0
			.LVL34:
		 		lsl.l #2,%d0
		 		lea -3142(%fp,%d0.l),%a4
			.LBB133:
			.LBB134:
  344          K=K&X'7FFF'
  345          OMESS=OMESS." " %UNLESS J=1
  346          {%UNTIL M&1=0} %CYCLE
  347             M=LETT(K); S=25
				.loc 1 347 0 discriminator 1
		 		move.l (%a4)+,%d3
			.LVL39:
  348             {%UNTIL S<0} %CYCLE
				.loc 1 348 0 discriminator 1
		 		moveq #25,%d2
			.LBB137:
			.LBB135:
  349                Q=M>>S&63;
				.loc 1 349 0
		 		move.l %d3,%d0
		 		lsr.l %d2,%d0
  350                %IF Q\=0 %THEN OMESS=OMESS.TOSTRING(OUTTT(Q))
				.loc 1 350 0
		 		bftst %d0{#26:#6}
		 		jeq .L24
			.LVL46:
			.LBB139:
			.LBB136:
  351                S=S-6
				.loc 1 351 0
		 		subq.l #6,%d2
			.LVL44:
  352             %REPEAT %UNTIL S<0
				.loc 1 352 0
		 		moveq #-5,%d0
		 		cmp.l %d2,%d0
		 		jeq .L22
			.LVL45:
			.L23:
  353             K=K+1
				.loc 1 353 0
		 		move.l %fp,%d6
			.LVL35:
		 		add.l #-3654,%d6
			.LVL36:
		 		move.l %fp,%d4
			.LVL37:
		 		add.l #-3398,%d4
			.LVL38:
			.L22:
			.LBE134:
			.LBE133:
				.loc 1 353 0 discriminator 1
		 		lea _imp_join,%a3
			.LBE135:
			.LBE137:
		 		move.l %fp,%d5
			.LVL40:
		 		add.l #-4166,%d5
			.LVL41:
		 		lea _imp_strncpy,%a2
		 		jra .L23
			.LVL42:
			.L25:
			.LBB138:
				.loc 1 353 0
		 		move.l %d6,-(%sp)
		 		move.l %d4,-(%sp)
		 		lea (-3910,%fp),%a1
		 		jsr (%a3)
			.LVL47:
			.LBE136:
			.LBE139:
		 		pea 70.w
		 		move.l %d5,-(%sp)
		 		move.l %d4,-(%sp)
		 		jsr (%a2)
			.LVL48:
		 		lea (20,%sp),%sp
		 		jra .L24
			.LVL49:
			.L20:
  354          %REPEAT %UNTIL M&1=0
  355          J=J+1
  356       %REPEAT
  357       %RESULT=OMESS
				.loc 1 357 0
		 		pea 256.w
		 		pea -3398(%fp)
		 		move.l %d2,-(%sp)
		 		jsr memcpy
			.LVL50:
  358 %END
				.loc 1 358 0
		 		move.l %d2,%a0
		 		movem.l -4456(%fp),#7292
		 		unlk %fp
			.LVL51:
		 		rts
				.cfi_endproc
			.LFE187:
				.align	2
			WARN.6230:
			.LFB190:
  359 %STRING(16)%FN SWRITE(%INTEGER VALUE, PLACES)
		.LVL4:
		 		link.w %fp,#-2816
		 		movem.l #16176,-(%sp)
		 		move.l %a1,%d7
		 		move.l 8(%fp),%d2
  360 %STRING (16) S
  361 %STRING(1)SIGN
  362 %INTEGER D0, D1, D2
  363       PLACES=PLACES&15
		 		moveq #15,%d4
		 		and.l 12(%fp),%d4
		.LVL5:
  364       SIGN=" "
  365       S=""
  366       %IF VALUE<0 %THEN SIGN="-" %AND VALUE=-VALUE
		 		pea 1.w
		 		pea -2816(%fp)
		 		pea -512(%fp)
		 		lea _imp_strncpy,%a2
		 		jsr (%a2)
		.LVL6:
		 		lea (24,%sp),%sp
		 		tst.l %d2
		 		jlt .L15
		.LVL8:
		.L8:
		.LBB122:
		.LBB123:
  367       D0=VALUE
		 		pea 16.w
		 		pea -2560(%fp)
		 		pea -256(%fp)
		 		jsr (%a2)
		.LVL7:
  368       %CYCLE
  369          D1=D0//10
		 		move.l %d2,%d1
		 		muls.l #1717986919,%d0:%d1
		 		asr.l #2,%d0
		 		add.l %d2,%d2
		 		subx.l %d2,%d2
		.LVL10:
		 		sub.l %d2,%d0
		 		move.l %d0,%d2
		.LVL11:
		.LBB125:
		.LBB124:
		 		move.l %d3,-(%sp)
		 		move.l %d6,-(%sp)
		 		lea (-768,%fp),%a1
		 		jsr (%a3)
		.LVL12:
		.LBE124:
		.LBE125:
		 		pea 16.w
		 		move.l %d5,-(%sp)
		 		move.l %d3,-(%sp)
		 		jsr (%a2)
		.LVL13:
		 		lea (20,%sp),%sp
		 		tst.l %d2
		 		jne .L9
		.L10:
		.LBB126:
		.LBB127:
		 		pea 1.w
		 		pea -2304(%fp)
		 		pea -512(%fp)
		 		jsr _imp_strncpy
		.LVL23:
  370          D2=D0-10*D1
  371          S=TOSTRING(D2+'0').S
  372          D0=D1
		 		neg.l %d2
		.LVL24:
		 		lea (12,%sp),%sp
		 		jra .L8
		.LFE188:
				.section	.rodata
				.align	2
		.LC15:
		 		.word	0
		 		.word	1
		 		.word	-32767
		 		.word	-32765
		 		.word	-32764
		 		.word	-32763
		 		.word	2
		 		.word	-32761
		 		.word	-32760
		 		.word	-32759
		 		.word	-32758
		 		.word	-32756
		 		.word	-32755
		 		.word	-32754
		 		.word	-32753
		 		.word	-32752
		 		.word	4
		 		.word	-32760
		 		.word	-32765
		 		.word	-32764
		 		.word	-32751
		 		.word	-32750
		 		.word	-32748
		 		.word	-32747
		 		.word	-32746
		 		.word	-32744
		 		.word	-32742
		 		.word	5
		 		.word	-32750
		 		.word	-32748
		 		.word	-32760
		 		.word	-32754
		 		.word	-32741
		 		.word	-32739
		 		.word	-32738
		 		.word	6
		 		.word	-32750
		 		.word	-32736
		 		.word	-32735
		 		.word	-32755
		 		.word	-32751
		 		.word	-32734
		 		.word	-32732
		 		.word	7
		 		.word	-32731
		 		.word	-32760
		 		.word	-32759
		 		.word	-32758
		 		.word	-32756
		 		.word	-32730
		 		.word	8
		 		.word	-32728
		 		.word	-32739
		 		.word	-32726
		 		.word	-32760
		 		.word	-32759
		 		.word	-32725
		 		.word	-32724
		 		.word	-32722
		 		.word	-32721
		 		.word	9
		 		.word	-32719
		 		.word	-32717
		 		.word	-32716
		 		.word	-32760
		 		.word	-32715
		 		.word	-32754
		 		.word	-32713
		 		.word	-32712
		 		.word	-32711
		 		.word	10
		 		.word	-32728
		 		.word	-32739
		 		.word	-32726
		 		.word	-32760
		 		.word	-32759
		 		.word	-32708
		 		.word	-32724
		 		.word	-32722
		 		.word	-32721
		 		.word	11
		 		.word	-32761
		 		.word	-32760
		 		.word	-32707
		 		.word	-32747
		 		.word	-32705
		 		.word	-32717
		 		.word	-32759
		 		.word	-32764
		 		.word	-32756
		 		.word	-32755
		 		.word	12
		 		.word	-32704
		 		.word	-32747
		 		.word	-32705
		 		.word	-32717
		 		.word	-32759
		 		.word	-32702
		 		.word	-32701
		 		.word	-32699
		 		.word	13
		 		.word	-32767
		 		.word	-32697
		 		.word	-32704
		 		.word	-32747
		 		.word	-32705
		 		.word	-32717
		 		.word	-32765
		 		.word	-32696
		 		.word	14
		 		.word	-32694
		 		.word	-32765
		 		.word	-32764
		 		.word	-32763
		 		.word	15
		 		.word	-32717
		 		.word	-32693
		 		.word	-32692
		 		.word	-32696
		 		.word	16
		 		.word	-32731
		 		.word	-32760
		 		.word	-32759
		 		.word	-32764
		 		.word	-32756
		 		.word	-32730
		 		.word	17
		 		.word	-32731
		 		.word	-32760
		 		.word	-32691
		 		.word	-32764
		 		.word	-32690
		 		.word	-32724
		 		.word	-32739
		 		.word	-32688
		 		.word	18
		 		.word	-32717
		 		.word	-32686
		 		.word	-32685
		 		.word	-32724
		 		.word	-32684
		 		.word	-32697
		 		.word	-32760
		 		.word	19
		 		.word	-32717
		 		.word	-32686
		 		.word	-32682
		 		.word	-32724
		 		.word	-32684
		 		.word	-32697
		 		.word	-32760
		 		.word	20
		 		.word	-32717
		 		.word	-32686
		 		.word	-32685
		 		.word	-32688
		 		.word	-32684
		 		.word	-32697
		 		.word	-32681
		 		.word	-32760
		 		.word	21
		 		.word	-32717
		 		.word	-32686
		 		.word	-32682
		 		.word	-32688
		 		.word	-32684
		 		.word	-32697
		 		.word	-32681
		 		.word	-32760
		 		.word	22
		 		.word	-32680
		 		.word	-32678
		 		.word	-32717
		 		.word	-32716
		 		.word	-32760
		 		.word	-32676
		 		.word	-32674
		 		.word	-32711
		 		.word	23
		 		.word	-32728
		 		.word	-32748
		 		.word	-32760
		 		.word	-32754
		 		.word	-32673
		 		.word	-32741
		 		.word	24
		 		.word	-32672
		 		.word	-32670
		 		.word	-32759
		 		.word	-32668
		 		.word	-32667
		 		.word	25
		 		.word	-32668
		 		.word	-32741
		 		.word	-32754
		 		.word	-32665
		 		.word	-32663
		 		.word	26
		 		.word	-32717
		 		.word	-32765
		 		.word	-32764
		 		.word	-32751
		 		.word	-32661
		 		.word	-32660
		 		.word	-32658
		 		.word	27
		 		.word	-32760
		 		.word	-32765
		 		.word	-32764
		 		.word	-32751
		 		.word	-32656
		 		.word	-32748
		 		.word	28
		 		.word	-32728
		 		.word	-32739
		 		.word	-32726
		 		.word	-32760
		 		.word	-32759
		 		.word	-32711
		 		.word	-32654
		 		.word	-32653
		 		.word	-32652
		 		.word	29
		 		.word	-32651
		 		.word	-32748
		 		.word	-32760
		 		.word	-32764
		 		.word	-32754
		 		.word	-32741
		 		.word	30
		 		.word	-32649
		 		.word	-32647
		 		.word	-32656
		 		.word	-32652
		 		.word	31
		 		.word	-32645
		 		.word	-32647
		 		.word	-32726
		 		.word	-32739
		 		.word	-32643
		 		.word	-32652
		 		.word	34
		 		.word	-32642
		 		.word	-32682
		 		.word	-32744
		 		.word	-32641
		 		.word	37
		 		.word	-32639
		 		.word	-32760
		 		.word	-32759
		 		.word	-32686
		 		.word	-32682
		 		.word	-32638
		 		.word	38
		 		.word	-32639
		 		.word	-32760
		 		.word	-32759
		 		.word	-32636
		 		.word	-32635
		 		.word	-32717
		 		.word	-32634
		 		.word	-32722
		 		.word	-32633
		 		.word	-32635
		 		.word	39
		 		.word	-32632
		 		.word	-32716
		 		.word	-32639
		 		.word	-32760
		 		.word	-32765
		 		.word	-32725
		 		.word	-32722
		 		.word	-32631
		 		.word	-32629
		 		.word	40
		 		.word	-32628
		 		.word	-32765
		 		.word	-32764
		 		.word	-32747
		 		.word	-32625
		 		.word	-32716
		 		.word	-32752
		 		.word	41
		 		.word	-32624
		 		.word	-32622
		 		.word	-32620
		 		.word	-32619
		 		.word	-32747
		 		.word	-32617
		 		.word	-32732
		 		.word	42
		 		.word	-32717
		 		.word	-32765
		 		.word	-32673
		 		.word	-32615
		 		.word	-32613
		 		.word	-32611
		 		.word	43
		 		.word	-32609
		 		.word	-32748
		 		.word	-32760
		 		.word	-32764
		 		.word	-32754
		 		.word	-32741
		 		.word	44
		 		.word	-32607
		 		.word	-32605
		 		.word	-32603
		 		.word	-32760
		 		.word	-32600
		 		.word	-32717
		 		.word	-32599
		 		.word	45
		 		.word	-32639
		 		.word	-32603
		 		.word	-32599
		 		.word	-32598
		 		.word	-32596
		 		.word	-32599
		 		.word	-32595
		 		.word	-32717
		 		.word	46
		 		.word	-32607
		 		.word	-32594
		 		.word	-32592
		 		.word	-32739
		 		.word	-32590
		 		.word	-32588
		 		.word	47
		 		.word	-32587
		 		.word	-32758
		 		.word	-32595
		 		.word	-32747
		 		.word	-32705
		 		.word	-32717
		 		.word	48
		 		.word	-32587
		 		.word	-32615
		 		.word	-32600
		 		.word	-32586
		 		.word	-32660
		 		.word	49
		 		.word	-32585
		 		.word	-32583
		 		.word	-32582
		 		.word	-32592
		 		.word	-32739
		 		.word	-32580
		 		.word	-32760
		 		.word	50
		 		.word	-32578
		 		.word	-32716
		 		.word	-32717
		 		.word	-32765
		 		.word	-32647
		 		.word	-32576
		 		.word	-32575
		 		.word	-32716
		 		.word	-32760
		 		.word	51
		 		.word	-32573
		 		.word	-32765
		 		.word	-32764
		 		.word	-32763
		 		.word	52
		 		.word	-32767
		 		.word	-32571
		 		.word	-32716
		 		.word	-32573
		 		.word	-32697
		 		.word	-32569
		 		.word	-32747
		 		.word	-32705
		 		.word	-32717
		 		.word	53
		 		.word	-32573
		 		.word	-32697
		 		.word	-32569
		 		.word	-32747
		 		.word	-32705
		 		.word	-32717
		 		.word	-32765
		 		.word	-32696
		 		.word	54
		 		.word	-32567
		 		.word	-32647
		 		.word	-32704
		 		.word	-32767
		 		.word	-32652
		 		.word	55
		 		.word	-32566
		 		.word	-32647
		 		.word	-32704
		 		.word	-32767
		 		.word	-32652
		 		.word	56
		 		.word	-32564
		 		.word	-32760
		 		.word	-32747
		 		.word	-32560
		 		.word	-32744
		 		.word	-32742
		 		.word	57
		 		.word	-32559
		 		.word	-32557
		 		.word	-32555
		 		.word	-32747
		 		.word	-32744
		 		.word	-32742
		 		.word	-32554
		 		.word	58
		 		.word	-32553
		 		.word	-32551
		 		.word	-32550
		 		.word	-32548
		 		.word	59
		 		.word	-32573
		 		.word	-32571
		 		.word	-32716
		 		.word	-32767
		 		.word	-32697
		 		.word	-32704
		 		.word	-32747
		 		.word	-32705
		 		.word	-32717
		 		.word	61
		 		.word	-32731
		 		.word	-32760
		 		.word	-32759
		 		.word	-32758
		 		.word	-32756
		 		.word	-32546
		 		.word	-32754
		 		.word	-32753
		 		.word	-32580
		 		.word	62
		 		.word	-32760
		 		.word	-32765
		 		.word	-32764
		 		.word	-32751
		 		.word	-32545
		 		.word	-32739
		 		.word	-32545
		 		.word	-32580
		 		.word	-32748
		 		.word	63
		 		.word	-32545
		 		.word	-32543
		 		.word	-32765
		 		.word	-32541
		 		.word	-32722
		 		.word	-32717
		 		.word	-32629
		 		.word	64
		 		.word	-32731
		 		.word	-32760
		 		.word	-32539
		 		.word	-32751
		 		.word	-32537
		 		.word	-32754
		 		.word	-32753
		 		.word	-32663
		 		.word	65
		 		.word	-32535
		 		.word	-32760
		 		.word	-32765
		 		.word	-32764
		 		.word	-32754
		 		.word	-32576
		 		.word	-32545
		 		.word	-32580
		 		.word	66
		 		.word	-32533
		 		.word	-32531
		 		.word	-32583
		 		.word	-32529
		 		.word	-32760
		 		.word	67
		 		.word	-32527
		 		.word	-32525
		 		.word	-32524
		 		.word	-32760
		 		.word	-32523
		 		.word	-32522
		 		.word	-32520
		 		.word	69
		 		.word	-32535
		 		.word	-32525
		 		.word	-32765
		 		.word	-32518
		 		.word	-32583
		 		.word	-32760
		 		.word	-32516
		 		.word	-32765
		 		.word	-32764
		 		.word	-32716
		 		.word	-32713
		 		.word	-32545
		 		.word	70
		 		.word	-32515
		 		.word	-32513
		 		.word	-32759
		 		.word	-32615
		 		.word	-32510
		 		.word	-32543
		 		.word	-32716
		 		.word	-32717
		 		.word	71
		 		.word	-32760
		 		.word	-32765
		 		.word	-32764
		 		.word	-32751
		 		.word	-32515
		 		.word	-32590
		 		.word	72
		 		.word	-32509
		 		.word	-32670
		 		.word	-32754
		 		.word	-32751
		 		.word	-32515
		 		.word	-32741
		 		.word	73
		 		.word	-32509
		 		.word	-32605
		 		.word	-32754
		 		.word	-32751
		 		.word	-32515
		 		.word	-32741
		 		.word	74
		 		.word	-32507
		 		.word	-32765
		 		.word	-32764
		 		.word	-32576
		 		.word	-32505
		 		.word	-32503
		 		.word	75
		 		.word	-32515
		 		.word	-32741
		 		.word	-32501
		 		.word	-32751
		 		.word	-32499
		 		.word	-32741
		 		.word	76
		 		.word	-32515
		 		.word	-32590
		 		.word	-32760
		 		.word	-32754
		 		.word	-32498
		 		.word	-32741
		 		.word	77
		 		.word	-32515
		 		.word	-32605
		 		.word	-32754
		 		.word	-32498
		 		.word	-32741
		 		.word	78
		 		.word	-32515
		 		.word	-32670
		 		.word	-32496
		 		.word	-32754
		 		.word	-32498
		 		.word	-32741
		 		.word	80
		 		.word	-32495
		 		.word	-32590
		 		.word	-32760
		 		.word	-32493
		 		.word	-32674
		 		.word	-32741
		 		.word	81
		 		.word	-32495
		 		.word	-32590
		 		.word	-32760
		 		.word	-32491
		 		.word	-32583
		 		.word	-32741
		 		.word	82
		 		.word	-32760
		 		.word	-32765
		 		.word	-32764
		 		.word	-32751
		 		.word	-32488
		 		.word	-32748
		 		.word	83
		 		.word	-32525
		 		.word	-32524
		 		.word	-32760
		 		.word	-32692
		 		.word	-32764
		 		.word	-32486
		 		.word	-32754
		 		.word	-32713
		 		.word	86
		 		.word	-32484
		 		.word	-32488
		 		.word	-32525
		 		.word	-32491
		 		.word	-32583
		 		.word	-32482
		 		.word	-32760
		 		.word	87
		 		.word	-32580
		 		.word	-32748
		 		.word	-32760
		 		.word	-32481
		 		.word	-32754
		 		.word	-32741
		 		.word	90
		 		.word	-32480
		 		.word	-32748
		 		.word	-32760
		 		.word	-32546
		 		.word	-32754
		 		.word	-32741
		 		.word	91
		 		.word	-32478
		 		.word	-32701
		 		.word	-32590
		 		.word	-32760
		 		.word	-32764
		 		.word	-32665
		 		.word	92
		 		.word	-32478
		 		.word	-32477
		 		.word	-32759
		 		.word	-32554
		 		.word	-32475
		 		.word	93
		 		.word	-32478
		 		.word	-32477
		 		.word	-32759
		 		.word	-32474
		 		.word	-32658
		 		.word	-32716
		 		.word	-32472
		 		.word	90
		 		.word	-32480
		 		.word	-32748
		 		.word	-32760
		 		.word	-32546
		 		.word	-32470
		 		.word	-32590
		 		.word	95
		 		.word	-32731
		 		.word	-32760
		 		.word	-32764
		 		.word	-32661
		 		.word	-32754
		 		.word	-32469
		 		.word	96
		 		.word	-32467
		 		.word	-32717
		 		.word	-32764
		 		.word	-32661
		 		.word	-32754
		 		.word	-32469
		 		.word	97
		 		.word	-32465
		 		.word	-32463
		 		.word	-32764
		 		.word	-32661
		 		.word	98
		 		.word	-32460
		 		.word	99
		 		.word	-32457
		 		.word	-32764
		 		.word	-32455
		 		.word	-32453
		 		.word	-32452
		 		.word	-32450
		 		.word	101
		 		.word	-32448
		 		.word	-32705
		 		.word	-32759
		 		.word	-32686
		 		.word	-32682
		 		.word	-32446
		 		.word	102
		 		.word	-32443
		 		.word	-32716
		 		.word	-32717
		 		.word	-32441
		 		.word	-32765
		 		.word	-32686
		 		.word	-32439
		 		.word	103
		 		.word	-32438
		 		.word	-32436
		 		.word	-32434
		 		.word	104
		 		.word	-32438
		 		.word	-32436
		 		.word	-32434
		 		.word	105
		 		.word	-32642
		 		.word	-32682
		 		.word	-32744
		 		.word	-32641
		 		.word	106
		 		.word	-32515
		 		.word	-32605
		 		.word	-32686
		 		.word	-32433
		 		.word	107
		 		.word	-32432
		 		.word	-32430
		 		.word	-32692
		 		.word	-32436
		 		.word	-32434
		 		.word	108
		 		.word	-32428
		 		.word	-32686
		 		.word	-32426
		 		.word	109
		 		.word	-32432
		 		.word	-32423
		 		.word	110
		 		.word	-32420
		 		.word	-32419
		 		.word	201
		 		.word	-32418
		 		.word	-32417
		 		.word	-32692
		 		.word	-32415
		 		.word	-32470
		 		.word	-32688
		 		.word	202
		 		.word	-32731
		 		.word	-32760
		 		.word	-32764
		 		.word	-32546
		 		.word	203
		 		.word	-32761
		 		.word	-32760
		 		.word	-32764
		 		.word	-32546
		 		.word	204
		 		.word	-32484
		 		.word	-32478
		 		.word	-32701
		 		.word	-32590
		 		.word	-32760
		 		.word	205
		 		.word	-32731
		 		.word	-32760
		 		.word	-32764
		 		.word	-32412
		 		.word	206
		 		.word	-32409
		 		.word	-32754
		 		.word	-32407
		 		.word	-32405
		 		.word	207
		 		.word	-32609
		 		.word	-32590
		 		.word	-32760
		 		.word	-32764
		 		.word	-32404
		 		.word	208
		 		.word	-32401
		 		.word	-32398
		 		.word	-32546
		 		.word	-32396
		 		.word	-32395
		 		.word	-32393
		 		.word	-32391
		 		.word	209
		 		.word	-32388
		 		.word	-32386
		 		.word	-32765
		 		.word	-32384
		 		.word	-32383
		 		.word	210
		 		.word	-32381
		 		.word	-32379
		 		.word	-32684
		 		.word	255
		 		.word	-32377
		 		.word	-32376
		 		.word	-32375
		 		.word	0
				.align	2
			.LC16:
		 		.long	0
		 		.long	2022746123
		 		.long	44040192
		 		.long	1402470400
		 		.long	1568571392
		 		.long	1697528531
		 		.long	1697415168
		 		.long	420238040
		 		.long	905969664
		 		.long	1359896576
		 		.long	1130779331
		 		.long	1237843968
		 		.long	1160558336
		 		.long	1731100672
		 		.long	1399848960
		 		.long	1766144384
		 		.long	1164308950
		 		.long	1107296256
		 		.long	666712647
		 		.long	1342177280
		 		.long	1561178752
		 		.long	1134559232
		 		.long	1202608459
		 		.long	1570766848
		 		.long	1764694635
		 		.long	1130364928
		 		.long	1496240856
		 		.long	1271273803
		 		.long	1738356700
		 		.long	1603272704
		 		.long	1134458063
		 		.long	1567405928
		 		.long	1493979864
		 		.long	922726400
		 		.long	1730967517
		 		.long	1207959552
		 		.long	1766699648
		 		.long	487436928
		 		.long	1227650627
		 		.long	1697415168
		 		.long	629062227
		 		.long	1562902528
		 		.long	1299185664
		 		.long	1535005312
		 		.long	1628328155
		 		.long	1269086566
		 		.long	1766078208
		 		.long	1736749523
		 		.long	1296871936
		 		.long	554586331
		 		.long	1269086464
		 		.long	2046820352
		 		.long	1596981248
		 		.long	1229771595
		 		.long	1704460288
		 		.long	1775112832
		 		.long	1301673600
		 		.long	1736749523
		 		.long	1296855273
		 		.long	1400750080
		 		.long	1294922468
		 		.long	1697436389
		 		.long	1265922760
		 		.long	1498272384
		 		.long	2015043993
		 		.long	167772160
		 		.long	1774051328
		 		.long	1199430245
		 		.long	1600126976
		 		.long	1197751015
		 		.long	1268252672
		 		.long	1300119552
		 		.long	1531869651
		 		.long	1563951104
		 		.long	2016002560
		 		.long	2016002662
		 		.long	1133813760
		 		.long	1232910720
		 		.long	1697528531
		 		.long	1697120256
		 		.long	1739348423
		 		.long	1699617382
		 		.long	1769857024
		 		.long	1294917632
		 		.long	1637219155
		 		.long	1227653120
		 		.long	1527635072
		 		.long	1133924594
		 		.long	52337347
		 		.long	1476395008
		 		.long	1628328155
		 		.long	1269086464
		 		.long	1199428441
		 		.long	1394514304
		 		.long	1867420672
		 		.long	1131413504
		 		.long	326537935
		 		.long	1267728384
		 		.long	1602533699
		 		.long	1769881600
		 		.long	623654400
		 		.long	1602533699
		 		.long	1562796032
		 		.long	1400279759
		 		.long	1267728384
		 		.long	1199430219
		 		.long	1906311168
		 		.long	1829606600
		 		.long	2016068253
		 		.long	671088640
		 		.long	1571664203
		 		.long	1677721600
		 		.long	1702804051
		 		.long	1562902528
		 		.long	1169063936
		 		.long	1568145408
		 		.long	1165794432
		 		.long	2016585479
		 		.long	675931904
		 		.long	2022746667
		 		.long	611319808
		 		.long	1605278675
		 		.long	1765801984
		 		.long	2022746539
		 		.long	413138944
		 		.long	1527644160
		 		.long	696115200
		 		.long	1496240857
		 		.long	1711276032
		 		.long	60182770
		 		.long	1229828829
		 		.long	1733162854
		 		.long	1803948772
		 		.long	1165932360
		 		.long	1496217984
		 		.long	1501491940
		 		.long	659509888
		 		.long	821084941
		 		.long	204525312
		 		.long	1171165926
		 		.long	153908803
		 		.long	1695454431
		 		.long	1543503872
		 		.long	1361850880
		 		.long	125688297
		 		.long	1131839488
		 		.long	1192089439
		 		.long	1744830464
		 		.long	1160249344
		 		.long	1270101611
		 		.long	1134866944
		 		.long	1199421523
		 		.long	1495793664
		 		.long	1400295641
		 		.long	1394606080
		 		.long	1697518313
		 		.long	1403336668
		 		.long	1292663391
		 		.long	1677721600
		 		.long	2014963495
		 		.long	671730176
		 		.long	326553817
		 		.long	1394606080
		 		.long	1199430121
		 		.long	1131839488
		 		.long	1400191571
		 		.long	1130707411
		 		.long	1563951104
		 		.long	1127650020
		 		.long	1403303654
		 		.long	1271272135
		 		.long	1764524032
		 		.long	2078801920
		 		.long	1330565852
		 		.long	2016086539
		 		.long	611329536
		 		.long	2016086565
		 		.long	309486726
		 		.long	1829655747
		 		.long	1164222464
		 		.long	2023359110
		 		.long	2015988106
		 		.long	2021244928
		 		.long	61248219
		 		.long	1637875712
		 		.long	1769472000
		 		.long	1400191571
		 		.long	1130707402
		 		.long	2016536859
		 		.long	44040192
		 		.long	665606599
		 		.long	1699617280
		 		.long	1766105088
		 		.long	1165932361
		 		.long	1711276032
		 		.long	2016487187
		 		.long	641728512
		 		.long	1400273483
		 		.long	1126170624
		 		.long	2023391397
		 		.long	671088640
		 		.long	2016085160
		 		.long	2014963497
		 		.long	309502592
		 		.long	2016086539
		 		.long	611329573
		 		.long	514491549
		 		.long	167772160
		 		.long	1872099150
		 		.long	197439979
		 		.long	1762416202
		 		.long	1738816075
		 		.long	1529731584
		 		.long	1300150088
		 		.long	1965971328
		 		.long	563475429
		 		.long	1130889216
		 		.long	1131280206
		 		.long	1271304933
		 		.long	1561165824
		 		.long	1702804051
		 		.long	1563320320
		 		.long	1805431296
		 		.long	2022744479
		 		.long	606076928
		 		.long	1496175593
		 		.long	1342177280
		 		.long	1335144681
		 		.long	1267728384
		 		.long	1697528531
		 		.long	1697538048
		 		.long	1739347779
		 		.long	1529348096
		 		.long	665605955
		 		.long	1529348096
		 		.long	197531979
		 		.long	1738356700
		 		.long	1134458063
		 		.long	1563197440
		 		.long	1697413093
		 		.long	1207959552
		 		.long	623671269
		 		.long	1234698240
		 		.long	920125440
		 		.long	1131708416
		 		.long	1359925888
		 		.long	1229771595
		 		.long	1697503744
		 		.long	1300125379
		 		.long	1771569152
		 		.long	1134989511
		 		.long	1361870848
		 		.long	1866805712
		 		.long	665212125
		 		.long	1308622848
		 		.long	1227650627
		 		.long	1695454431
		 		.long	1543503872
		 		.long	1527709696
		 		.long	60111441
		 		.long	1529779398
		 		.long	623802329
		 		.long	1805989852
		 		.long	1199462731
		 		.long	1201668096
		 		.long	1300125379
		 		.long	1744830464
		 		.long	1199430211
		 		.long	1400266752
		 		.long	1739341824
		 		.long	1133853265
		 		.long	1529779398
		 		.long	1037811712
		 		.long	561854313
		 		.long	1267728384
		 		.long	1199421507
		 		.long	1697415168
		 		.long	1267643629
		 		.long	1130673991
		 		.long	1260388352
		 		.long	1635596137
		 		.long	1267728384
		 		.long	1267643629
		 		.long	1130674024
		 		.long	258339139
		 		.long	1476395008
		 		.long	1501327576
		 		.long	1805426688
		 		.long	729193697
		 		.long	1260388352
		 		.long	2016536832
		 		.long	1197751015
		 		.long	1241513984
		 		.long	1738848256
		 		.long	1568527581
		 		.long	1764553444
		 		.long	1771322187
		 		.long	1704769920
		 		.long	1134034944
		 		.long	1134457563
		 		.long	1164228864
		 		.long	528791875
		 		.long	1562378240
		 		.long	60715739
		 		.long	1164228864
		 		.long	1199430121
		 		.long	1705802323
		 		.long	1601175552
		 		.long	52730187
		 		.long	1738289491
		 		.long	1498324096
		 		.long	218920153
		 		.long	1403461632
		 		.long	1739462751
		 		.long	1705292288
		 		.long	1170735104
		 		.long	1762546635
		 		.long	1744830464
		 		.long	1359893103
		 		.long	1133813760
		 		.long	662616391
		 		.long	1241513984
		 		.long	1199430227
		 		.long	1571568211
		 		.long	1601593344
		 		.long	796808653
		 		.long	1399103488
		 		.long	387398219
		 		.long	1711276032
		 		.long	1735145048
		 		.long	156006995
		 		.long	1601452402
		 		.long	1199421529
		 		.long	1269085810
		 		.long	1303221760
		 		.long	1501418368
		 		.long	125679699
		 		.long	1496203264
		 		.long	1762416203
		 		.long	1711276032
		 		.long	125686355
		 		.long	1766717184
		 		.long	1199421529
		 		.long	1394358859
		 		.long	1207959552
		 		.long	1400141789
		 		.long	1733196363
		 		.long	1570766848
		 		.long	326507240
		 		.long	1265930952
		 		.long	427676544
		 		.long	1400279759
		 		.long	1268146176
		 		.long	1400157005
		 		.long	1394422493
		 		.long	1744830464
		 		.long	1126472011
		 		.long	1738289497
		 		.long	1241513984
		 		.long	657306823
		 		.long	1600517888
		 		.long	1199421131
		 		.long	1570766848
		 		.long	1764694528
		 		.long	1400191571
		 		.long	1130707403
		 		.long	1207959552
		 		.long	729184993
		 		.long	1635670603
		 		.long	1207959552
		 		.long	1637134803
		 		.long	1733162752
		 		.long	939524096
		 		.long	1563179339
		 		.long	1738539008
		 		.long	1135883481
		 		.long	1125487232
		 		.long	1739348457
		 		.long	1403435595
		 		.long	1207959552
		 		.long	688804811
		 		.long	1744830464
		 		.long	1527542867
		 		.long	1562902528
		 		.long	1870549504
		 		.long	1126472011
		 		.long	1738322558
		 		.long	623680221
		 		.long	1225644544
		 		.long	2013889667
		 		.long	637534208
		 		.long	640196608
		 		.long	308936704
		 		.long	436849283
		 		.long	402653184
				.text
				.align	2
			MESSAGE.6001:
			.LFB187:
  373       %REPEAT %UNTIL D0=0
		 		move.l %fp,%d3
		 		add.l #-256,%d3
		 		move.l %fp,%d6
		 		add.l #-1792,%d6
		 		lea _imp_join,%a3
		.LBE123:
		.LBE122:
		 		move.l %fp,%d5
		 		add.l #-2048,%d5
		 		lea _imp_strncpy,%a2
		.L9:
		.LVL9:
  374       S=SIGN.S
  375       S=" ".S %WHILE LENGTH(S)<=PLACES
  376       %RESULT=S
		 		move.l %fp,%d2
		.LVL14:
		 		add.l #-256,%d2
		 		move.l %d2,-(%sp)
		 		pea -512(%fp)
		 		lea (-768,%fp),%a1
		 		jsr _imp_join
		.LVL15:
		.LBE127:
		.LBE126:
		 		pea 16.w
		 		pea -1536(%fp)
		 		move.l %d2,-(%sp)
		 		jsr _imp_strncpy
		.LVL16:
		 		clr.l %d0
		 		move.b -256(%fp),%d0
		 		lea (20,%sp),%sp
		 		cmp.l %d4,%d0
		 		jgt .L11
		.LBB128:
		.LBB129:
		 		clr.l %d0
		 		move.b -256(%fp),%d0
		 		lea (20,%sp),%sp
		 		cmp.l %d0,%d4
		 		jge .L12
		.L11:
		 		pea 256.w
		 		pea -256(%fp)
		 		move.l %d7,-(%sp)
		 		jsr memcpy
		.LVL19:
  377 %END
		 		move.l %d7,%a0
		 		movem.l -2848(%fp),#3324
		.LVL20:
		 		unlk %fp
		.LVL21:
		 		rts
		.LVL22:
		.L15:
  378 %ROUTINE FAULT(%INTEGER N, DATA, IDENT)
				.loc 1 378 0
				.cfi_startproc
			.LVL92:
		 		link.w %fp,#-12032
				.cfi_offset 14, -8
				.cfi_def_cfa 14, 8
		 		movem.l #16188,-(%sp)
				.cfi_offset 2, -12080
				.cfi_offset 3, -12076
				.cfi_offset 4, -12072
				.cfi_offset 5, -12068
				.cfi_offset 6, -12064
				.cfi_offset 7, -12060
				.cfi_offset 10, -12056
				.cfi_offset 11, -12052
				.cfi_offset 12, -12048
				.cfi_offset 13, -12044
		 		move.l 8(%fp),%d3
			.LVL93:
  379 !***********************************************************************
		 		move.l %fp,%d5
		 		add.l #-768,%d5
		 		lea _imp_join,%a3
		.LBE129:
		.LBE128:
		 		move.l %fp,%d3
		 		add.l #-1280,%d3
		 		lea _imp_strncpy,%a2
		.L12:
		.LBB131:
		.LBB130:
		 		move.l %d2,-(%sp)
		 		move.l %d5,-(%sp)
		 		lea (-1024,%fp),%a1
		 		jsr (%a3)
		.LVL17:
		.LBE130:
		.LBE131:
		 		pea 16.w
		 		move.l %d3,-(%sp)
		 		move.l %d2,-(%sp)
		 		jsr (%a2)
		.LVL18:
		.LDL1:
  380 !*    SETS UP AN ERROR MESSAGE AND SHOVES IT OUT ONTO THE LISTING      *
  381 !*    AN ALSO OPTIONALLY TO THE TERMINAL                               *
  382 !***********************************************************************
  383 %INTEGER I, J, S, T, Q, QMAX, LENGTH
  384 %STRING(255)MESS1,MESS2,WK1,WK2
  385       MESS1=""; MESS2=""
  386       %IF N=100 %THEN %START;           ! SYNTAX FAULTS ARE SPECIAL
				.loc 1 386 0
		 		lea (24,%sp),%sp
		 		moveq #100,%d0
		 		cmp.l %d3,%d0
		 		jeq .L46
			.L32:
			.LBB154:
			.LBB155:
			.LBB156:
			.LBB157:
  387          MESS1="
				.loc 1 387 0
		 		pea 255.w
		 		pea -11776(%fp)
		 		pea -256(%fp)
		 		lea _imp_strncpy,%a2
		 		jsr (%a2)
			.LVL94:
  388 *    Failed to analyse line ".SWRITE(99,2)."
  389      "
				.loc 1 389 0
		 		pea 2.w
		 		pea 99.w
		 		move.l %fp,%d3
			.LVL141:
		 		add.l #-12032,%d3
			.LVL142:
		 		move.l %d3,%a1
		 		jsr SWRITE.6049
			.LVL143:
		 		move.l %fp,%d2
			.LVL144:
		 		add.l #-2816,%d2
			.LVL145:
		 		pea 256.w
		 		move.l %d3,-(%sp)
		 		move.l %d2,-(%sp)
		 		jsr memcpy
			.LVL146:
			.LBE174:
		 		move.l %d2,-(%sp)
		 		pea -10752(%fp)
		 		add.l #-8192,%d2
			.LVL147:
		 		move.l %d2,%a1
		 		lea _imp_join,%a2
		 		jsr (%a2)
			.LVL148:
			.LBE173:
		 		pea -2560(%fp)
		 		move.l %d2,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr (%a2)
			.LVL149:
			.LBE172:
			.LBE171:
		 		lea (36,%sp),%sp
		 		pea 255.w
		 		pea -11264(%fp)
		 		pea -256(%fp)
		 		jsr _imp_strncpy
			.LVL150:
  390          J=0;  S=0;  T=0;  Q=DATA;  QMAX=IDENT>>16
  391          LENGTH=IDENT&X'FFFF'
  392          %IF Q=QMAX %THEN S=T
				.loc 1 392 0
		 		pea 255.w
		 		pea -11520(%fp)
		 		pea -512(%fp)
		 		jsr (%a2)
			.LVL95:
  393       %FINISH %ELSE %START
  394          MESS1="
				.loc 1 394 0
		 		lea (12,%sp),%sp
		 		jra .L33
			.LVL151:
			.L47:
			.LBB175:
			.LBB176:
			.LBB177:
			.LBB178:
  395 *".SWRITE(99, 4)."   "
  396          MESS1=MESS1."FAULT".SWRITE(N,2)
				.loc 1 396 0
		 		pea 4.w
		 		pea 99.w
		 		move.l %fp,%d2
			.LVL96:
		 		add.l #-12032,%d2
			.LVL97:
		 		move.l %d2,%a1
		 		lea SWRITE.6049,%a5
		 		jsr (%a5)
			.LVL98:
		 		move.l %fp,%d5
			.LVL99:
		 		add.l #-9728,%d5
			.LVL100:
		 		move.l #256,%d4
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d5,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL101:
			.LBE157:
		 		move.l %d5,-(%sp)
		 		pea -9984(%fp)
		 		add.l #-512,%d5
			.LVL102:
		 		move.l %d5,%a1
		 		lea _imp_join,%a3
		 		jsr (%a3)
			.LVL103:
			.LBE156:
		 		pea -9472(%fp)
		 		move.l %d5,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr (%a3)
			.LVL104:
			.LBE155:
			.LBE154:
		 		lea (36,%sp),%sp
		 		pea 255.w
		 		pea -10496(%fp)
		 		add.l #9984,%d5
			.LVL105:
		 		move.l %d5,-(%sp)
		 		lea _imp_strncpy,%a4
		 		jsr (%a4)
			.LVL106:
			.LBB158:
			.LBB159:
			.LBB160:
  397          MESS2=MESSAGE(N)
  398          %IF MESS2->WK1.("##").WK2 %THEN %C
				.loc 1 398 0
		 		pea 2.w
		 		move.l %d3,-(%sp)
		 		move.l %d2,%a1
		 		jsr (%a5)
			.LVL107:
		 		move.l %fp,%d7
			.LVL108:
		 		add.l #-8448,%d7
			.LVL109:
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d7,-(%sp)
		 		jsr (%a2)
			.LVL110:
			.LBE160:
			.LBB161:
		 		lea (32,%sp),%sp
		 		pea -8704(%fp)
		 		move.l %d5,-(%sp)
		 		move.l %fp,%d6
			.LVL111:
		 		add.l #-8960,%d6
			.LVL112:
		 		move.l %d6,%a1
		 		jsr (%a3)
			.LVL113:
			.LBE161:
		 		move.l %d7,-(%sp)
		 		move.l %d6,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr (%a3)
			.LVL114:
			.LBE159:
			.LBE158:
		 		pea 255.w
		 		pea -9216(%fp)
		 		move.l %d5,-(%sp)
		 		jsr (%a4)
			.LVL115:
			.LBB162:
				.loc 1 398 0
		 		pea -1024(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d4,-(%sp)
		 		pea -7680(%fp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL119:
		 		lea (12,%sp),%sp
		 		pea -768(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d4,-(%sp)
		 		pea -7936(%fp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL120:
		 		lea (12,%sp),%sp
		 		jsr _imp_resolve
			.LVL121:
		 		lea (544,%sp),%sp
		 		tst.l %d0
		 		jne .L47
			.L34:
  399             MESS2=WK1.SWRITE(IDENT,1).WK2
				.loc 1 399 0
		 		move.l %d3,-(%sp)
		 		move.l %d2,%a1
		 		jsr MESSAGE.6001
			.LVL116:
		 		add.l #-7936,%d5
		 		lea (32,%sp),%sp
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d5,-(%sp)
		 		jsr (%a2)
			.LVL117:
			.LBE162:
		 		pea 255.w
		 		move.l %d5,-(%sp)
		 		pea -512(%fp)
		 		jsr (%a4)
			.LVL118:
  400          %IF MESS2->WK1.("#").WK2 %THEN %C
				.loc 1 400 0
		 		pea -1024(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l #256,%d2
		 		move.l %d2,-(%sp)
		 		pea -6400(%fp)
		 		move.l %d0,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL122:
		 		lea (12,%sp),%sp
		 		pea -768(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d2,-(%sp)
		 		pea -6656(%fp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL123:
		 		lea (12,%sp),%sp
		 		jsr _imp_resolve
			.LVL124:
		 		lea (520,%sp),%sp
		 		tst.l %d0
		 		jne .L48
			.L35:
  401             MESS2=WK1.SWRITE(DATA,1).WK2
				.loc 1 401 0
		 		pea 1.w
		 		move.l 16(%fp),-(%sp)
		 		move.l %d2,%d4
		 		move.l %d2,%a1
		 		jsr SWRITE.6049
			.LVL152:
		 		add.l #5120,%d2
		 		pea 256.w
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		jsr (%a2)
			.LVL153:
			.LBE178:
		 		move.l %d2,-(%sp)
		 		pea -768(%fp)
		 		add.l #-256,%d2
		 		move.l %d2,%a1
		 		jsr (%a3)
			.LVL154:
			.LBE177:
		 		pea -1024(%fp)
		 		move.l %d2,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr (%a3)
			.LVL155:
			.LBE176:
			.LBE175:
		 		lea (36,%sp),%sp
		 		pea 255.w
		 		pea -7424(%fp)
		 		pea -512(%fp)
		 		jsr _imp_strncpy
			.LVL156:
		 		lea (12,%sp),%sp
		 		jra .L34
			.L48:
			.LBB179:
			.LBB180:
			.LBB181:
			.LBB182:
  402          %IF MESS2->WK1.("&&").WK2 %THEN %C
				.loc 1 402 0
		 		pea -1024(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l #256,%d2
		 		move.l %d2,-(%sp)
		 		pea -5120(%fp)
		 		move.l %d0,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL125:
		 		lea (12,%sp),%sp
		 		pea -768(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d2,-(%sp)
		 		pea -5376(%fp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL126:
		 		lea (12,%sp),%sp
		 		jsr _imp_resolve
			.LVL127:
		 		lea (520,%sp),%sp
		 		tst.l %d0
		 		jne .L49
			.L36:
  403             MESS2=WK1.PRINTNAME(DATA).WK2
				.loc 1 403 0
		 		pea 1.w
		 		move.l 12(%fp),-(%sp)
		 		move.l %fp,%d4
			.LVL157:
		 		add.l #-12032,%d4
			.LVL158:
		 		move.l %d4,%a1
		 		jsr SWRITE.6049
			.LVL159:
		 		move.l %fp,%d2
			.LVL160:
		 		add.l #-5632,%d2
			.LVL161:
		 		pea 256.w
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		jsr (%a2)
			.LVL162:
			.LBE182:
		 		move.l %d2,-(%sp)
		 		pea -768(%fp)
		 		add.l #-256,%d2
			.LVL163:
		 		move.l %d2,%a1
		 		lea _imp_join,%a2
		 		jsr (%a2)
			.LVL164:
			.LBE181:
		 		pea -1024(%fp)
		 		move.l %d2,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr (%a2)
			.LVL165:
			.LBE180:
			.LBE179:
		 		lea (36,%sp),%sp
		 		pea 255.w
		 		pea -6144(%fp)
		 		pea -512(%fp)
		 		jsr _imp_strncpy
			.LVL166:
		 		lea (12,%sp),%sp
		 		jra .L35
			.LVL167:
			.L49:
			.LBB183:
			.LBB184:
			.LBB185:
			.LBB186:
  404          %IF MESS2->WK1.("&").WK2 %THEN %C
				.loc 1 404 0
		 		pea -1024(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l #256,%d2
		 		move.l %d2,-(%sp)
		 		pea -3840(%fp)
		 		move.l %d0,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL128:
		 		lea (12,%sp),%sp
		 		pea -768(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d2,-(%sp)
		 		pea -4096(%fp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL129:
		 		lea (12,%sp),%sp
		 		jsr _imp_resolve
			.LVL130:
		 		lea (520,%sp),%sp
		 		tst.l %d0
		 		jne .L50
			.L37:
  405                MESS2=WK1.PRINTNAME(IDENT).WK2
				.loc 1 405 0
		 		move.l 12(%fp),-(%sp)
		 		move.l %fp,%d4
			.LVL168:
		 		add.l #-12032,%d4
			.LVL169:
		 		move.l %d4,%a1
		 		jsr PRINTNAME.5987
			.LVL170:
		 		move.l %fp,%d2
			.LVL171:
		 		add.l #-4352,%d2
			.LVL172:
		 		pea 256.w
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		jsr (%a2)
			.LVL173:
			.LBE186:
		 		move.l %d2,-(%sp)
		 		pea -768(%fp)
		 		add.l #-256,%d2
			.LVL174:
		 		move.l %d2,%a1
		 		lea _imp_join,%a2
		 		jsr (%a2)
			.LVL175:
			.LBE185:
		 		pea -1024(%fp)
		 		move.l %d2,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr (%a2)
			.LVL176:
			.LBE184:
			.LBE183:
		 		lea (32,%sp),%sp
		 		pea 255.w
		 		pea -4864(%fp)
		 		pea -512(%fp)
		 		jsr _imp_strncpy
			.LVL177:
		 		lea (12,%sp),%sp
		 		jra .L36
			.LVL178:
			.L50:
			.LBB187:
			.LBB188:
			.LBB189:
			.LBB190:
  406          %IF N>100 %THEN MESS2=MESS2." Disaster"
				.loc 1 406 0
		 		moveq #100,%d0
		 		cmp.l %d3,%d0
		 		jlt .L51
			.LVL131:
			.L33:
		 		move.l %fp,%d2
			.LVL132:
		 		add.l #-1536,%d2
			.LVL133:
		 		move.l #256,%d3
		 		move.l %d3,-(%sp)
		 		pea -2304(%fp)
		 		move.l %d2,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL134:
			.LBB163:
			.LBB164:
				.loc 2 589 0
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d3,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL135:
		 		lea (12,%sp),%sp
		 		jsr _imp_printstring
			.LVL136:
			.LBE164:
			.LBE163:
  407       %FINISH
				.loc 1 407 0
		 		move.l 16(%fp),-(%sp)
		 		move.l %fp,%d4
			.LVL179:
		 		add.l #-12032,%d4
			.LVL180:
		 		move.l %d4,%a1
		 		jsr PRINTNAME.5987
			.LVL181:
		 		move.l %fp,%d2
			.LVL182:
		 		add.l #-3072,%d2
			.LVL183:
		 		pea 256.w
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		jsr (%a2)
			.LVL184:
			.LBE190:
		 		move.l %d2,-(%sp)
		 		pea -768(%fp)
		 		add.l #-256,%d2
			.LVL185:
		 		move.l %d2,%a1
		 		lea _imp_join,%a2
		 		jsr (%a2)
			.LVL186:
			.LBE189:
		 		pea -1024(%fp)
		 		move.l %d2,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr (%a2)
			.LVL187:
			.LBE188:
			.LBE187:
		 		lea (32,%sp),%sp
		 		pea 255.w
		 		pea -3584(%fp)
		 		pea -512(%fp)
		 		jsr _imp_strncpy
			.LVL188:
		 		lea (12,%sp),%sp
		 		jra .L37
			.LVL189:
			.L51:
			.LBB191:
			.LBB192:
  408          PRINTSTRING(MESS1)
  409          PRINTSTRING(MESS2) %IF MESS2#""
				.loc 1 409 0
		 		pea -2560(%fp)
		 		move.l %fp,%d2
			.LVL190:
		 		add.l #-512,%d2
			.LVL191:
		 		move.l %d2,-(%sp)
		 		lea (-1280,%fp),%a1
		 		jsr _imp_join
			.LVL192:
			.LBE192:
			.LBE191:
		 		pea 255.w
		 		pea -2816(%fp)
		 		move.l %d2,-(%sp)
		 		jsr _imp_strncpy
			.LVL193:
		 		move.l %fp,%d3
			.LVL194:
		 		add.l #-1536,%d3
			.LVL195:
		 		move.l #256,%d4
		 		move.l %d4,-(%sp)
		 		pea -2304(%fp)
		 		move.l %d3,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL196:
			.LBB193:
			.LBB165:
				.loc 2 589 0
		 		lea (-224,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d4,-(%sp)
		 		move.l %d3,-(%sp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL197:
		 		lea (12,%sp),%sp
		 		jsr _imp_printstring
			.LVL198:
			.LBE165:
			.LBE193:
  410          NEWLINE
  411       %IF N=109 %THEN %MONITOR
				.loc 1 411 0
		 		lea (268,%sp),%sp
		 		pea -2048(%fp)
		 		pea -512(%fp)
		 		jsr _imp_strcmp
			.LVL137:
		 		addq.l #8,%sp
		 		tst.l %d0
		 		jne .L52
			.LBB166:
			.LBB167:
				.loc 2 661 0
		 		jsr _imp_newline
			.LVL138:
			.L31:
			.LBE167:
			.LBE166:
				.loc 1 411 0
		 		add.l %d4,%sp
		 		pea -2048(%fp)
		 		move.l %d2,-(%sp)
		 		jsr _imp_strcmp
			.LVL199:
		 		addq.l #8,%sp
		 		tst.l %d0
		 		jeq .L53
		 		move.l %fp,%d2
			.LVL200:
		 		add.l #-1280,%d2
			.LVL201:
		 		move.l #256,%d3
		 		move.l %d3,-(%sp)
		 		pea -1792(%fp)
		 		move.l %d2,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL202:
			.LBB194:
			.LBB195:
				.loc 2 589 0
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d3,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL203:
		 		lea (12,%sp),%sp
		 		jsr _imp_printstring
			.LVL204:
			.LBE195:
			.LBE194:
			.LBB197:
			.LBB168:
				.loc 2 661 0
		 		lea (268,%sp),%sp
		 		jsr _imp_newline
			.LVL205:
			.L41:
			.LDL7:
			.LBE168:
			.LBE197:
			.LBB198:
			.LBB199:
				.loc 2 862 0
		 		clr.l -(%sp)
		 		jsr exit
			.LVL206:
			.L40:
			.L53:
			.LBE199:
			.LBE198:
			.LBB200:
			.LBB169:
				.loc 2 661 0
		 		jsr _imp_newline
			.LVL207:
		 		jra .L41
			.LVL208:
			.L52:
		 		move.l %fp,%d2
			.LVL209:
		 		add.l #-1280,%d2
			.LVL210:
		 		move.l #256,%d3
		 		move.l %d3,-(%sp)
		 		pea -1792(%fp)
		 		move.l %d2,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL211:
			.LBE169:
			.LBE200:
			.LBB201:
			.LBB196:
				.loc 2 589 0
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d3,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL212:
		 		lea (12,%sp),%sp
		 		jsr _imp_printstring
			.LVL213:
			.LBE196:
			.LBE201:
			.LBB202:
			.LBB170:
				.loc 2 661 0
		 		lea (268,%sp),%sp
		 		jsr _imp_newline
			.LVL214:
		 		jra .L31
			.LBE170:
			.LBE202:
				.cfi_endproc
			.LFE189:
				.align	2
				.globl	main
			main:
			.LFB185:
  412 !      %IF N=109 %THEN PARM_DCOMP=1 %AND CODEOUT
  413       %IF N>100 %THEN %STOP
  414 %END
?I unused
  415 %ROUTINE WARN(%INTEGER N,V)
				.loc 1 415 0
				.cfi_startproc
			.LVL52:
		 		link.w %fp,#-4096
				.cfi_offset 14, -8
				.cfi_def_cfa 14, 8
		 		movem.l #14384,-(%sp)
				.cfi_offset 2, -4124
				.cfi_offset 3, -4120
				.cfi_offset 4, -4116
				.cfi_offset 10, -4112
				.cfi_offset 11, -4108
			.LBB140:
				.loc 1 415 0
		 		movem.l -12072(%fp),#15612
		 		unlk %fp
			.LVL139:
		 		rts
			.LVL140:
			.L46:
			.LBB171:
			.LBB172:
			.LBB173:
			.LBB174:
  416 %STRING(30) T; %STRING(120) S
  417       S=MESSAGE(N+200)
  418       %IF S->S.("&").T %THEN S=S.PRINTNAME(V).T
				.loc 1 418 0
		 		pea -256(%fp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d2,-(%sp)
		 		pea -3328(%fp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL62:
		 		lea (12,%sp),%sp
		 		move.l %d3,-(%sp)
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d2,-(%sp)
		 		pea -3584(%fp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL63:
		 		lea (12,%sp),%sp
		 		jsr _imp_resolve
			.LVL64:
		 		lea (548,%sp),%sp
		 		tst.l %d0
		 		jne .L30
			.LVL65:
			.L29:
			.LBB141:
			.LBB142:
			.LBB143:
  419       PRINTSTRING("
				.loc 1 419 0
		 		move.l 8(%fp),%d0
		 		add.l #200,%d0
		 		move.l %d0,-(%sp)
		 		move.l %fp,%d4
			.LVL53:
		 		add.l #-4096,%d4
			.LVL54:
		 		move.l %d4,%a1
		 		jsr MESSAGE.6001
			.LVL55:
		 		move.l %fp,%d3
			.LVL56:
		 		add.l #-3840,%d3
			.LVL57:
		 		move.l #256,%d2
		 		move.l %d2,-(%sp)
		 		move.l %d4,-(%sp)
		 		move.l %d3,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL58:
			.LBE140:
		 		pea 120.w
		 		move.l %d3,-(%sp)
		 		add.l #3328,%d3
			.LVL59:
		 		move.l %d3,-(%sp)
			.LVL60:
		 		jsr _imp_strncpy
			.LVL61:
  420 ?  Warning :- ".S." at line No".SWRITE(101,1))
  421       NEWLINE
				.loc 1 421 0 discriminator 1
		 		pea 1.w
		 		pea 101.w
		 		move.l %fp,%d2
			.LVL66:
		 		add.l #-4096,%d2
			.LVL67:
		 		move.l %d2,%a1
		 		jsr SWRITE.6049
			.LVL68:
		 		move.l %fp,%d4
			.LVL69:
		 		add.l #-1024,%d4
			.LVL70:
		 		move.l #256,%d3
		 		move.l %d3,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d4,-(%sp)
		 		lea memcpy,%a2
		 		jsr (%a2)
			.LVL71:
			.LBE143:
			.LBB144:
			.LBB145:
		 		pea -512(%fp)
		 		pea -1536(%fp)
		 		add.l #2304,%d2
		 		move.l %d2,%a1
		 		lea _imp_join,%a3
		 		jsr (%a3)
			.LVL72:
			.LBE145:
		 		pea -1280(%fp)
		 		move.l %d2,-(%sp)
		 		add.l #-256,%d2
		 		move.l %d2,%a1
		 		jsr (%a3)
			.LVL73:
			.LBE144:
		 		lea (36,%sp),%sp
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		add.l #1280,%d2
		 		move.l %d2,%a1
		 		jsr (%a3)
			.LVL74:
		 		move.l %d3,-(%sp)
		 		pea -2304(%fp)
		 		move.l %d2,-(%sp)
		 		jsr (%a2)
			.LVL75:
			.LBE142:
			.LBE141:
			.LBB146:
			.LBB147:
				.file 2 "/home/gtoal/src/i2c/perms/visible.h"
				.loc 2 589 0 discriminator 1
		 		lea (-256,%sp),%sp
		 		move.l %sp,%d0
		 		move.l %d3,-(%sp)
		 		move.l %d2,-(%sp)
		 		move.l %d0,-(%sp)
		 		jsr (%a2)
			.LVL76:
		 		lea (12,%sp),%sp
		 		jsr _imp_printstring
			.LVL77:
			.LBE147:
			.LBE146:
			.LBB148:
			.LBB149:
				.loc 2 661 0 discriminator 1
		 		lea (276,%sp),%sp
		 		jsr _imp_newline
			.LVL78:
			.LBE149:
			.LBE148:
				.loc 1 421 0
		 		move.l 12(%fp),-(%sp)
		 		move.l %d4,%d3
			.LVL82:
		 		move.l %d4,%a1
		 		jsr PRINTNAME.5987
			.LVL83:
		 		move.l %fp,%d2
			.LVL84:
		 		add.l #-2560,%d2
			.LVL85:
		 		pea 256.w
		 		move.l %d4,-(%sp)
		 		move.l %d2,-(%sp)
		 		jsr (%a2)
			.LVL86:
			.LBE153:
		 		move.l %d2,-(%sp)
		 		add.l #2048,%d2
			.LVL87:
		 		move.l %d2,-(%sp)
			.LVL88:
		 		add.l #1280,%d3
		 		move.l %d3,%a1
		 		lea _imp_join,%a2
		 		jsr (%a2)
			.LVL89:
			.LBE152:
		 		pea -256(%fp)
		 		move.l %d3,-(%sp)
		 		lea (-768,%fp),%a1
		 		jsr (%a2)
			.LVL90:
			.LBE151:
			.LBE150:
		 		lea (32,%sp),%sp
		 		pea 120.w
		 		pea -3072(%fp)
		 		move.l %d2,-(%sp)
		 		jsr _imp_strncpy
			.LVL91:
		 		lea (12,%sp),%sp
		 		jra .L29
				.cfi_endproc
			.LFE190:
				.align	2
			FAULT.6092:
			.LFB189:
  422 %END
  423     FAULT(16,0,0)
				.loc 1 423 0 discriminator 1
		 		movem.l -4116(%fp),#3100
			.LVL79:
		 		unlk %fp
			.LVL80:
		 		rts
			.LVL81:
			.L30:
			.LBB150:
			.LBB151:
			.LBB152:
			.LBB153:
  424       WARN(2,76)
				.loc 1 424 0
		 		pea 76.w
		 		pea 2.w
		 		jsr WARN.6230
			.LVL218:
			.LBB203:
			.LBB204:
				.loc 2 862 0
		 		clr.l -(%sp)
		 		jsr exit
			.LVL219:
			.LBE204:
			.LBE203:
				.cfi_endproc
			.LFE185:
				.local	COUNT.5991
				.comm	COUNT.5991,4,2
			.Letext0:
				.file 3 "/home/gtoal/src/i2c/perms/imptypes.h"
				.file 4 "/usr/m68k-linux-gnu/include/bits/types.h"
				.file 5 "/usr/m68k-linux-gnu/include/bits/types/sig_atomic_t.h"
				.file 6 "/usr/m68k-linux-gnu/include/bits/types/__sigset_t.h"
				.file 7 "/usr/m68k-linux-gnu/include/bits/setjmp.h"
				.file 8 "/usr/m68k-linux-gnu/include/setjmp.h"
				.file 9 "/home/gtoal/src/i2c/perms/psignal.h"
				.file 10 "/home/gtoal/src/i2c/perms/externalfile.h"
				.file 11 "/home/gtoal/src/i2c/perms/internal/internal.h"
				.file 12 "<built-in>"
  425 %ENDOFPROGRAM
  101 Statements compiled
