24 lines
585 B
Text
24 lines
585 B
Text
rem - Set the CP/M user area (0 to 15)
|
|
procedure setuser (user = integer)
|
|
var hl, bc, a_psw = integer
|
|
hl = 0
|
|
bc = 20H rem - BDOS set user function
|
|
a_psw = 0
|
|
call (5H,hl,user,bc,a_psw)
|
|
end
|
|
|
|
rem - Set the logged drive ('A' to 'P')
|
|
procedure setdrive (drive = char)
|
|
var hl, de, bc, a_psw = integer
|
|
rem -- make sure drive letter is upper case!
|
|
if drive >= 'a' then drive = drive - 32
|
|
hl = 0
|
|
de = drive - 65
|
|
bc = 0EH rem - BDOS set drive function
|
|
a_psw = 0
|
|
call (5H,hl,de,bc,a_psw)
|
|
end
|
|
|
|
setuser 0
|
|
setdrive 'A'
|
|
rename "INPUT.TXT" to "OUTPUT.TXT"
|