dos_compilers/Digital Research PLI-86 v1/DIOMOD.DCL
2024-06-30 12:01:25 -07:00

62 lines
2.9 KiB
Plaintext
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/******************************************************************************
* *
* D e c l a r a t i o n s f o r I B M D O S e n t r y p o i n t s *
* *
******************************************************************************/
declare
/* F i x e d V a l u e s */
dfcb0 entry returns(pointer),
dfcb1 entry returns(pointer),
dbuff entry returns(pointer),
memptr entry returns(pointer),
memsiz entry returns(fixed(15)),
memwds entry returns(fixed(15)),
/******************************************************************************
* I B M D O S F u n c t i o n D e c l a r a t i o n s *
******************************************************************************/
/* 0 */ reboot entry,
/* 1 */ rdcon entry returns(char(1)),
/* 2 */ wrcon entry (character(1)),
/* 3 */ rdrdr entry returns(char(1)),
/* 4 */ wrpun entry (char(1)),
/* 5 */ wrlst entry (char(1)),
/* 6a */ coninp entry returns(char(1)),
/* 6b */ conout entry (char(1)),
/* 7 */ din1 entry returns(char(1)),
/* 8 */ din2 entry returns(char(1)),
/* 9 */ wrstr entry (pointer),
/* 10 */ rdbuf entry (pointer),
/* 11 */ break entry returns(fixed(7)),
/* 12a */ clrkb1 entry (fixed(7)) returns(char(1)),
/* 12b */ clrkb2 entry (fixed(7),pointer),
/* 13 */ reset entry,
/* 14 */ select entry (fixed(7)) returns(fixed(7)),
/* 15 */ open entry (pointer) returns(fixed(7)),
/* 16 */ close entry (pointer) returns(fixed(7)),
/* 17 */ sear entry (pointer) returns(fixed(7)),
/* 18 */ searn entry (pointer) returns(fixed(7)),
/* 19 */ delete entry (pointer) returns(fixed(7)),
/* 20 */ rdseq entry (pointer) returns(fixed(7)),
/* 21 */ wrseq entry (pointer) returns(fixed(7)),
/* 22 */ make entry (pointer) returns(fixed(7)),
/* 23 */ rename entry (pointer) returns(fixed(7)),
/* 25 */ curdsk entry returns(fixed(7)),
/* 26 */ setdma entry (pointer),
/* 27 */ alltbl entry (pointer,pointer,pointer,pointer),
/* 33 */ rdran entry (pointer) returns(fixed(7)),
/* 34 */ wrran entry (pointer) returns(fixed(7)),
/* 35 */ filsiz entry (pointer) returns(fixed(7)),
/* 36 */ setrec entry (pointer),
/* 38 */ newseg entry (pointer),
/* 39 */ blockrd entry (pointer,bit(16),pointer,pointer),
/* 40 */ blockwr entry (pointer,bit(16),pointer,pointer),
/* 41 */ parsfn entry (pointer,pointer,fixed(7)) returns(fixed(7)),
/* 42 */ getdate entry (pointer,pointer,pointer),
/* 43 */ setdate entry (fixed(15),fixed(7),fixed(7)) returns(fixed(7)),
/* 44 */ gettime entry (pointer,pointer,pointer,pointer),
/* 45 */ settime entry (fixed(7),fixed(7),fixed(7),fixed(7))
returns(fixed(7)),
/* 46 */ setver entry (fixed(7));