*    M$UNIT - MAY 29 2006 - VERSION 1
*
*    CONVERT LOGICAL MAGTAPE UNIT NUMBER
*    TO A PHYSICAL NUMBER
*    LOGICAL UNITS 1-8 ARE CONVERTED TO PHYSICAL UNITS 0-7
*
*    HONEYWELL X16 16 BIT COMPUTER SOFTWARE
*
*    PROGRAM LENGTH: 15 WORDS
*
*    THIS SOURCE IS RECREATED FROM THE EXISTING SLST FILE: 
*    - SLST-DAP-16.IMG (WHICH ORIGINATES FROM HONEYWELL)
*
*    THE SOURCE IS RECREATED BY: THEO ENGEL (THEO.ENGEL@HETNET.NL)
*
*    CALLING SEQUENCE:
*    (A-REG = LOGICAL UNIT NUMBER)
*    CALL  M$UNIT
*    (A-REG = PHYSICAL DEVICE NUMBER)
*
     SUBR  M$UNIT,UNIT
     REL
UNIT DAC   *-*               A = LOGICAL UNIT +
     ADD   PTAB              POINTER TO CONVERSION TABLE
     STA   INDX              = POINTER INTO TABLE
     LDA*  INDX              GET PHYSICAL DEVICE NUMBER
     JMP*  UNIT              RETURN
INDX OCT   0
PTAB DAC   *
*
     OCT   1                 LU 1 = DEV 1
     OCT   2                 LU 2 = DEV 2
     OCT   3                 LU 3 = DEV 3
     OCT   0                 LU 4 = DEV 0
     OCT   4                 LU 5 = DEV 4
     OCT   5                 LU 6 = DEV 5
     OCT   6                 LU 7 = DEV 6
     OCT   7                 LU 8 = DEV 7
     END