Mtns EQU #9000
 ORG #A000
MtnCopy LD A,(PlPhi)
 LD C,A
 LD HL,Mtns
 LD DE,#CA00
MtnC1 LD L,C
 LD B,32
MtnC2 LD A,(HL)
 LD (DE),A
 INC DE
 INC L
 DJNZ MtnC2
 INC H
 LD A,D
 CP #CC
 JR NZ,MtnC1
 RET
PlPhi EQU #7801
ORG #675D
zPutMtns JP MtnCopy