.TITLE BSE0 .GLOBL PATQ1,INITPG,LOFREE,LOSTR,HISTR .PSECT BASECD,RO,I LOC=. .=LOC+5634 JSR PC, PATQ1 .PSECT PATQ1,RO,I PATQ1: MOV LOFREE(R5), LOSTR(R5) MOV LOFREE(R5), HISTR(R5) JSR PC, INITPG RTS PC .END