/ Use a subroutine to fill the first page
/ with whatever value is on the SR.
*0200
MAIN,   CLA OSR
        DCA FVAL
        JMS FILLER
        HLT

FILLER, 0000
        CLA
        TAD PGLEN
        CMA IAC
        DCA COUNTR
        DCA ADDR
LOOP,   TAD FVAL
        DCA I ADDR
        ISZ ADDR
        ISZ COUNTR
        JMP LOOP
        JMP I FILLER

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