     packb     headr
     * Convert the five-digit number in )02, which is destroyed,
     * to a three-character address in )02.                       )0T)0U
     * to a three-character address in )0C.                          )0U
     * to a three-character address in the index rgister )0D.
     * the argument )01 must be )02-3.
     * This is needed to work around a limitation of Autocoder, which
     * cannot handle such things as A+X1-3.
     * There must be a word mark at )02-4.
     * uses 26 characters of instructions + adcon lit + 1 digit   )0T)0U 
     * uses 33 characters of instructions + adcon lit + 1 digit   )0C)0U
     * uses 33 characters of instructions + 1 digit + )0D
     )00       equ  *&1
               mcw  )02,)0D    low-order digits to index register
               mcw  )02,)0C    low-order digits to output            )0U
     )0j       s    @1@,)01   Subtract one from thousands
               mcw  %T0,201,w  Debug if )0E is present               )0E
               bm   )0k,)01    Done?
               ma   @|00@,)02     Bump output by 1000             )0T)0U
               ma   @|00@,)0C     Bump output by 1000                )0U
               sbr  )0D,1000&)0D  Bump output by 1000
               b    )0j
     )0k       equ  *&1
