/ Fill the first page with 7777's
*0200
START,  CLA
        TAD PGLEN
        CMA IAC
        DCA COUNTR
        DCA ADDR
LOOP,   TAD FVAL
        DCA I ADDR
        ISZ ADDR
        ISZ COUNTR
        JMP LOOP
        HLT

PGLEN,  0200
COUNTR, 0000
ADDR,   0000
FVAL,   7777