[an error occurred while processing this directive]
*===========================*
*     *
*===========================*

*---  ZERO PAGE ---* 

LGW      EQU ¤20
RGW      EQU ¤21
UGW      EQU ¤22
DGW      EQU ¤23
CH       EQU ¤24
CV       EQU ¤25
BASL     EQU ¤28
BASH     EQU ¤29
CURSOR   EQU ¤2D
RNDL     EQU ¤4E
RNDH     EQU ¤4F
COLOR    EQU ¤32
BUFS     EQU ¤D0
SCALC    EQU ¤C9
ALIN     EQU ¤75
BAS      EQU ¤B8
MEM      EQU ¤C9
OPER     EQU ¤4E

*---   ---*
   
EXITCODE EQU ¤DF  

*---  -   ---*

CLOCKID  EQU ¤02
MEMORID  EQU ¤10
PAPERID  EQU ¤4B
TEACID   EQU ¤BD
SHUGID   EQU ¤F0
NETID    EQU ¤EA

*---   ,   ---*

USERMEM  EQU ¤56C
ERRFLAG  EQU ¤D8
PROMPT   EQU ¤33
STATUS   EQU ¤48
SEGM     EQU ¤E8
PERR     EQU ¤571
PWARM    EQU ¤575
DEFSLOT  EQU ¤B813
DEFDRV   EQU ¤B811
FMSLOT   EQU ¤BA97
FMDRV    EQU ¤BA98

*----   ----*

VEKTDRV  EQU ¤3F5
VEKTUSR  EQU ¤0A

*--- ,  ---*

RWTSGO   EQU ¤03E3
RWTSGO1  EQU ¤03D9

*--- ,  ---*

SYSERR   EQU ¤1844

*---   ---*

COUT     EQU ¤FDE1     A         
COUT1    EQU ¤FDE4     A  
COUT2    EQU ¤FC0E     A    .
CLREOL   EQU ¤FCA5     
CLREOP   EQU ¤FC4B          
CROUT    EQU ¤FD92   
PRHEX    EQU ¤FDD7    
PRBYTE   EQU ¤FDCE   
PRNTAX   EQU ¤F93C   A  X
PRBLNK   EQU ¤FF5A   X 
PRBLNK2  EQU ¤FF5C   2 
SWSCR    EQU ¤F800    (X- . A-)
RDCHAR   EQU ¤FB74    
BELL1    EQU ¤FCB8   1   1  0.1 .
KEYIN    EQU ¤FD11      . . 
KEYIN1   EQU ¤FD16    ,  Y- 
IOSAVE   EQU ¤FF4B   
IOREST   EQU ¤FF40    ( S)
WAIT     EQU ¤FB94   (5*A*A+27*A+26)/2 mks
BASCALC  EQU ¤FB2B      (A-.)
XPAGE    EQU ¤F85E  A-.   
INIT     EQU ¤FBEF    
VTAB     EQU ¤FC61     
SCROLL   EQU ¤FC77       

*-      "" -*

INSET    EQU ¤F71A
INEXIT   EQU ¤F744
INWORK   EQU ¤F77C
CONTROLL EQU ¤8D    ;   
 
*-----   RWTS -----*

RWTS     EQU ¤0557
RWSLOT   EQU ¤0558
RWDRV    EQU ¤0559
RWTOM    EQU ¤055A
RWTREK   EQU ¤055B
RWSECT   EQU ¤055C
ACTION   EQU ¤055D
RWBUFL   EQU ¤055F
RWBUFH   EQU ¤0560
RWMODE   EQU ¤0563
RWERR    EQU ¤0564

. I: 2

[an error occurred while processing this directive]