OCLOSE LAC OFILAD
       TAD (-1
       DAC 17
       LAC OWC
       DAC* 17    /DEPOSIT WPC
       DZM* 17    /NO CHECKSUM
       DZM* 17    /NULL
       DZM* 17    /NULL
       LAC OBLOCK
       JMS DROUT
       FILE1
       JMS MAPOUT  /RESTORE MAP
       JMP ORETN
/MEMORY SETUP
/SAVE BLOCK AT MEMA IN SYS001
/BRING IN SYS002 TO MEMB
MEMSET 0
       LAC MEM1
       JMS DROUT
       MEMA
       LAC MEM2
       JMS DRIN
       MEMB
       JMP* MEMSET
MEM1   SYS001
MEM2   SYS002
/
/MEMORY RESTORE
/RESTORE MEMA ONLY
/MEMB AREA DOES NOT MATTER
MEMRES 0
       LAC MEM1
       JMS DRIN
       MEMA
       JMP* MEMRES