IDENT     DDS,0
          PERIPH
TAPECHN   EQU       12B
          ORG       0
          DATA      5
          ORG       6
          DATA      2400B          START TRACE
          DCN      TAPECHN         REMOVE THIS CARD FOR LIVE DEAD START
          FNC       5000B,TAPECHN
          FNC       0010B,TAPECHN
          FNC       1401B,TAPECHN
          ACN       TAPECHN
          LDC       80
          IAM       100,TAPECHN
          LDN       0
          IAM       0,TAPECHN
          END