> SOURCE2 % Load Acorn CPM tracks from disk C 25-Feb-1992 : Initial version - MOS 0.55 doesn't have MULTI7F (: 2A%=0:X%=1:os%=(&FFF4 &FF00)256:os%=6 >&8000:"Running Z80...":ș "OS_GetEnv" A$:"Z80 "+A$,A$," ",1+A$," "))): < ?&FFF7=&6C:A$=$&600 A$="" F$unix%=os%=8:quit%=?&80<>0:?&80=0 P :" at line ";: Zasm$="^.AsmZ80_402" d5 mcode% &800:start%=&100:ver$="0.01":name$="CPM" n: xA?&FFF7<>&C3:"Key0 "+A$+"|M"+name$+"|M":"FX138,0,192":asm$ : 8OSWORD=&FFF1:CLICOM=&FFB9:PR_TEXT=&FFB3:OSNEWL=&FFE7 : P=0 1 P%=start%:O%=mcode% [OPT P*3+4 -JR NZ,P%+3:POP AF :\ Realign stack PR_TEXT *M "Looking for CPM on drive 0...":NOP LD HL,Load_00: LoadSectors LD HL,&EB00:LD DE,&EAF0 &D400-&D5FF ^@LD HL,Load_10: LoadSectors :\ Load 01/0-01/9 -> &D600-&DFFF hCLD HL,Load_20 :\ Load 02/0-02/9 -> &E000-&E9FF r.LoadSectors |LD A,&7F:JP OSWORD :  .Load_00 %B 0 :\ Drive 0 &W &E9F0:W 0 :\ Addr=&E9F0 B 3:B &53 :\ 'B 0:B 0 :\ Sector 00/0 +B &28 :\ Eight sectors  B &FF :  .Load_08 %B 0 :\ Drive 0 &W &D400:W 0 :\ Addr=&D400 B 3:B &53 :\ 'B 0:B 8 :\ Sector 00/8 )B &22 :\ Two sectors  B &FF &: 0 .Load_10 :%B 0 :\ Drive 0 D&W &D600:W 0 :\ Addr=&D600 NB 3:B &53 :\ X'B 1:B 0 :\ Sector 01/0 b)B &2A :\ Ten sectors l B &FF v:  .Load_20 %B 0 :\ Drive 0 &W &E000:W 0 :\ Addr=&E000 B 3:B &53 :\ 'B 2:B 0 :\ Sector 02/0 )B &2A :\ Ten sectors  B &FF : ] : unix%:name$=name$+",240" OA$="*Save "+name$+" "+~mcode%+" "+~O%+" FFFF0000 "+~(&FFF20000 start%)  A$:quit%: A$:*Quit