/****TEST PROGRAM FOR USR*****/
 MQL=7421
 MQA=7501
 FIELD 0
*0200
 TAD I (7746)
 AND (7776)
 DCA I (7746)
 CDF 00
 CIF 10
 JMS I (7700)
 10
 CLA
 CDF 00
 CIF 10
 JMS I (200)
 1
D1, DEVICE DTA0
 6201
 JMP ERR1
 CLA
 TAD D1+1
 CDF 00
 CIF 10
 JMS I (200)
 3
D2, NAME 
 0
 JMP ERR2
 CDF 00
 CIF 00
 JMS I D1
 4111
 0200
 D2
 JMP ERR3
 CLA
 TAD D1+1
 CDF 00
 CIF 10
 JMS I (200)
 4
 NAME
 1
 JMP ERR4
NAME, FILENAME TEST.SV
 HLT
ERR1, CIF 10
 JMS I (200)
 7
 1
ERR2, CIF 10
 JMS I (200)
 7
 3
ERR3, CIF 10
 JMS I (200)
 7
 7
ERR4,  CIF 10
 JMS I (200)
 7
 4
$