@TI
@CREATE-FILE COVE:PROG,,
@CREATE-FILE COVE-IO:PROG,,
@CREATE-FILE COVE-MAIN:BRF,,
@SET-FILE-ACCESS COVE:PROG N N RWACD
@(KOS)G:B
)1PASS
)9ASSM COVE-IO
)2PASS
)9ASSM COVE-IO
)9EXIT
@MEMORY 26000 27777
@DUMP COVE-IO
@(KOS)G:B
)9ASSM COVE-MAIN,,COVE-MAIN
)9EXIT
@NRL
PROG-FILE COVE
LOAD COVE-MAIN
EXIT
@PLACE-PROGRAM COVE-IO
@PLACE-PROGRAM COVE
@MEMORY 0 27777
@DUMP COVE 0 2
@DELETE-FILE COVE-IO:PROG
@DELETE-FILE COVE-MAIN:BRF
@SET-FILE-ACCESS COVE:PROG RC RC RWACD