
// Copyright RICHARDS COMPUTER PRODUCTS (C) 1982
// Modified by Martin Richards to run under the modern BCPL Cintcode System

// Most are give global numbers above 800 but some can use the global
// numbers in libhdr.h

// LIBHDR
GLOBAL $(
START:801
STOP:802
STARTINIT:803
MCRESULT:811
RESULT2:815
ABORT:823
FREEVEC:825
GETVEC:826
LEVEL:827;LONGJUMP:828
MAXVEC:829
CALL:831
OPSYS:835
MOVE:836
MULDIV:837
TRAP:838
COMPCH:842
CALLCO:843
COWAIT:844
CREATECO:845
DELETECO:846
RESUMECO:847
CNSLINSTR:852
CNSLOUTSTR:853
CAPCH:859
DELFILE:864
FINDINPUT:866
FINDOUTPUT:867
RENAME:870
ENDREAD:871
ENDWRITE:872
INPUT:873
OUTPUT:874
RDBIN:875
RDCH:876
TESTSTR:877
READN:878
SELECTINPUT:879
SELECTOUTPUT:880
WRBIN:881
WRCH:882
UNRDCH:883
NEWLINE:884
NEWPAGE:885
WRITED:888
WRITEF:890
WRITEHEX:891
WRITEN:892
WRITES:894
COMPSTRING:895
FINDARG:896
RDARGS:897
RDITEM:898
SPLIT:899
GLOBIN:900
GLOBUNIN:901
LOADSEG:904
READWORDS:906
TESTFLAGS:908
WRITEWORDS:909
RANDOM:911
TIME:912
MODE:915
RUNPROG:918
CALLBYTE:921
SAVE:923
FILETOVEC:925
VECTOFILE:926
SOUND:928
ENVELOPE:929
READVEC:968
READ:969
VDU:970 //200
ADVAL:971 //201
SAVEVEC:974 //204
$)

MANIFEST $(
CONSOLE.KEY=1
MORE.INPUT=2
ENDSTREAMCH=-1
FIRSTFREEGLOBAL=250
GLOBWORD=-888
TICKSPERSEC=100
STYPE.TERM=4
STYPE.INT=8

co.pptr   = 0
co.parent = 1
co.list   = 2
co.fn     = 3
co.size   = 4
co.c      = 5

$)

