org  420
               ctl  6611
  420start     CS   332
  424          CS
  425          CS
  426          BSS  rf,C
  431          R
  432          LCA  alfbet,180
  439          P
  440          W
  441testb     BSS  compar,B
  446testg     BSS  consol,G
  451testd     BSS  disk,D
  456          B    start
  460rf        LCA  fours,180
  467          RF
  469          RF
  471          R
  472          W
  473          B    testb
  477disk      MCW  %F0,dskadr
  484          MCW  %F1,dskadr,W
  492          MCW  %F3,dskadr
  499          LCA  %F1,dskadr,W
  507          LCA  %F3,dskadr
  514          BIN  testn,Y  Any disk-unit error condition
  519testn     BIN  testx,N  Access inoperable
  524testx     BIN  testv,X  Unequal-address compare
  529testv     BIN  testw,V  Read-write parity chk or read-back chk err
  534testw     BIN  diskx,W  Wrong-length record
  539diskx     B    start
  543consol    MCW  %T0,reset,W
  551          LCA  %T0,reset,W
  559          BIN  test1,Q
  564test1     BIN  consx,*
  569consx     B    testd
  573compar    C    sevens,test7
  580          BE   eq
  585          BL   low
  590          BH   high
  595after     MCW  threes,sevens
  602after2    MCW  three2,test7
  609          sw   sevens-3,test7-3
  616          sw   after&1,after2&1
  623          A    four,after&3
  630          A    four,after2&3
  637          cw   after&1,after2&1
  644          BCE  done,sevens,/
  652          B    compar
  656eq        BCE  eq3,s,S
  664eq2       LCA  error,290
  671          W
  672          B    eq3
  676eq3       A    one,count
  683          BCE  eq4,count,0
  691          B    after
  695eq4       A    one,s
  702          BCE  done,s,V
  710          B    after
  714low       BCE  eq3,s,T
  722          B    eq2
  726high      BCE  eq3,s,U
  734          B    eq2
  738done      LCA  s2,s
  745          MCW  reset,count
  752          LCA  rset7,sevens
  759          LCA  rset7a,test7
  766          MCW  1529,after&3
  773          MCW  1526,after2&3
  780          B    testg
               dcw  @ABCDEFGHIJKLMNOPQRSTUVWXYZ01234567890,.&%/@#*@
     alfbet    dc   @ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789@
               dcw  @4444444444444444444444444444444444444444@
     fours     dc   @4444444444444444444444444444444444444444@
     dskadr    equ  *&1
               dcw  @00000000@
               dcw  @"@   GMWM
               org  1153
               dcw  @"@   GMWM
     reset     dcw  1
               dcw  234567890
               dcw  @"@   GMWM
     sevens    dcw  7777
     test7     dcw  7777
     four      dcw  004
     S         dcw  @S@
     error     dcw  @ERROR@
     one       dcw  1
     count     dcw  0
     S2        dcw  @S@
               dc   @               @
     threes    dcw  3333
               dc   8888123491239876789000011352
               dc   @TUVWAB@
               dc   36567877770000999977770987
               dc   @VWXY@
               dc   4454444555555444344444444444
               dc   @@%*)IIIIEFGHOPQR788/@
               org  1400
     three2    dcw  3333
               dc   8888123491239876789000011352
               dc   @TUVW.)%@@
               dc   12344567
               dc   @////TTTTUUUURSTUOPQR@
               dc   44444444667867894444789954444567
               dc   @RRRROPQRSTUV8889@
     rset7     dcw  7777
     rset7a    dcw  7777
               dcw  @U07@
               dcw  @S07@
               end  start