> TestOsw7F  Test OSWORD &77, &7F : (! ctrl% 31:X%=ctrl%:Y%=X%256 2"osw%=&7F:drv%=0:mem%=&FFFF7C00 <: F87:0,7);"^^^ I/O memory ^^^ ---- vvv Language vvv" Ptrk%=0:sec%=0 Z dC 0,16);"OSW: ";~osw%;" Trk: ";trk%;" Sec: ";sec%;" Result: " n:Toggle IO/Lang :Sec+1"'":Toggle &77/&7F :Sec-1" 20;13;"D:Drive "; 5A%=:(A%&DF)=68:13: "Select drive: "drv%:A%=0  A%=32:osw%=osw%8  A%=9:mem%=mem%&FFFE0000 G A%=127:A%=0:sec%=sec%-1:sec%<0:sec%=9:trk%=trk%-1:trk%<0:trk%=0 / A%:sec%=sec%+1:sec%>9:sec%=0:trk%=trk%+1 0 : : 5ݤdisk(addr%,cmd%,drv%,trk%,sec%,num%,den%): fs% " fs%=fs: fs%<>4:*FX143,18,4 ,W:X%?0=drv%:X%!1=addr%:X%?5=3:X%?6=cmd%:X%?7=trk%:X%?8=sec%:X%?9=num%&20:X%?10=&1E 6H"IN: "h0(?X%,2)" "h0(X%!1,8);: A%=5 10:" "h0(X%?A%,2);:: @A%=osw%:&FFF1:A%=X%?10 J) A%<>&10: fs%<>4:"FX143,18,"+ fs% T=A% ^!ݤfs: A%,E%,Y%:=(&FFDA)&FF h#ݤh0(A%,N%)="0000000"+~A%,N%)