> SETCCP/SRC % Copy file to CCP tracks on disk : (A%=0:X%=1:os%=(&FFF4 &FF00)256: os%=6 >&8000:"Running Z80...":ș "OS_GetEnv" A$:"Z80 "+A$,A$," ",1+A$," "))): 2$unix%=os%=8:quit%=?&80<>0:?&80=0 < :" at line ";: F< mcode% &800:start%=&100:ver$="0.01":name$="SETCCP/COM" P: Z8OSWORD=&FFF1:CLICOM=&FFB9:PR_TEXT=&FFB3:OSNEWL=&FFE7 dPR2HEX=&FFAD:OSNEWL=&FFE7 n: x CPM Entries: bdos=5 ,bdos_string=9:bdos_open=15:bdos_close=16 "bdos_readseq=20:bdos_setdma=26 :  Memory locations: FCB1=&5C:FCB2=&6C:DMA=&80 : P=0 1 P%=start%:O%=mcode% [OPT P*3+4 JP Start .SyntaxMsg ,M "Syntax: SETCCP filename":B 13:B 10  M "$" .NotFoundMsg #M "File not found":B 13:B 10 " M "$" ,: 6 .NotFound @#LD DE,NotFoundMsg:JR ErrorAbort J .Syntax TLD DE,SyntaxMsg ^.ErrorAbort hLD C,bdos_string: bdos rRET |:  .Start LD A,(FCB1+1) :CP " ":JR Z,Syntax :\ No parameters : =XOR A:LD (FCB1+32),A :\ Set rc to zero  &D400-&D5FF DMLD HL,Save_10 :\ Save 01/0-01/9 -> &D600-&DFFF N.SaveSectors XLD A,&7F:JP OSWORD b: l3.Save_08 :\ First two sectors of CCP v B 0 :\ Drive 0 )W CCP+0:W 0 :\ Will load to &D400 B 3:B &4B :\ WRITE "B 0:B 8 :\ Sector 00/8 $B &22 :\ Two sectors  B &FF : 3.Save_10 :\ Final six sectors of CCP  B 0 :\ Drive 0 )W CCP+512:W 0 :\ Will load to &D600 B 3:B &4B :\ WRITE "B 1:B 0 :\ Sector 01/0 $B &26 :\ Six sectors  B &FF :  .Addr 0W CCP :\ Current loading address  >.CCP :\ CCP loaded to here to write to disk *] 4: >OA$="*Save "+name$+" "+~mcode%+" "+~O%+" FFFF0000 "+~(&FFF20000 start%) H A$: quit%: A$:*Quit