80-80 list with cleared print area

               org  400
     start     sw   1
               r
               l    099,299
               w    start

0..405..410..415...
,0011L0992992400
1   11      1   1

....5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80
,008015,022029,036040,041048,062416L077/,055404,405412/400099,0011L0992992400
1      1      1      1      1      1   11      1      1      1   ww      w   w

               job  80-80 list with cleared print area
               org  1
     load      sw   s2,s3      setting my own word marks...
     s2        sw   s4,s5
     s3        sw   l1,c1
     s4        sw   s6,s7
     s5        sw   begin,end
     l1        lca  crdend     load the program
     c1        cs              clear 300-399
     s6        sw   c2,r
     s7        sw   l2,w
     c2        cs   start,99   clear card area and 81-99, start program
     begin     sw   1
               r
               lca  099,299    load card, clear 281-299
               w    start
     crdend    equ  *
               org  400
     start     sw   1
     r         r
     l2        lca  099,299
     w         w    start
     end       dcw  #1
               end