
 .ABS
 .TITLE DTEST
KSF=700301
KRB=700312
TSF=700401
TCF=700402
TLS=700406
DRCF=707002
DRSF=707001
DRDA=707004
DRCL=707201
 .LOC 100
      DRCL
ST    KSF
      JMP  .-1
      KRB
      TAD  C1
      DAC  CHAR
      TAD  C2
      SMA
      JMP  ST
      JMS  CRLF
      LAC  CHAR
      TAD  CHAR
      TAD  CHAR
      TAD  CHAR
      TAD  CHAR
      CLL!RAL
      DAC  ADR
      LAC  M10
      DAC* WC
      JMS  BLOCK
BSTRT 0
      0
      0
      0
      0
      0
      0
      0
      0
      0
      0
BLOCK 0
      LAC  BLOCK
      DAC* CA
      LAC  ADR
      TAD  DRUM
      DRCF
      DRDA
      DRSF
      JMP  .-1
      LAC  M10
      DAC  COUNT1
OUT   ISZ  BLOCK
      LAC  M6
      DAC  COUNT2
      LAC* BLOCK
      RAL
      DAC* BLOCK
LOOP  LAC* BLOCK
      RAL
      RTL
      DAC* BLOCK
      AND  MASK
      TAD  C260
      JMS  TYPE
      ISZ  COUNT2
      JMP  LOOP
      JMS  CRLF
      ISZ  COUNT1
      JMP  OUT
      JMS  CRLF
      JMP  ST
C1    777540
C2    777446
CHAR  0
ADR   0
M10   777766
M6    777772
WC    017764
CA    017765
DRUM  770000
COUNT1 0
COUNT2 0
MASK  000007
C260  260
TYPE  0
      TLS
      TSF
      JMP  .-1
      TCF
      JMP* TYPE
CRLF  0
      LAC  CR
      JMS  TYPE
      LAC  LF
      JMS  TYPE
      JMP* CRLF
CR    215
LF    212
 .END ST
