home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
borland
/
jnfb88.arc
/
PROCPU.ARC
/
PROCPU.PRO
< prev
Wrap
Text File
|
1987-10-27
|
412b
|
18 lines
/* Listing 4 -- PROCPU.PRO which calls the assembly language
subroutine */
code = 2500
global predicates
getcpu(integer) - (o) language asm
goal
getcpu(CPU), /* Call ASM subroutine. */
makewindow(1,77,7,"",10,20,10,40), /* Write result */
write("Processor is 80",CPU),
nl,
write("<RET>"),
readln(_),
removewindow.