;----------------   
;ROM-C-64.E         
;24.6.1985          
;                   
;SCREEN-EDITOR:     
;                   
ORG $8000           
;----------------   
<BASIS EQU 43       
<ENDE  EQU 45       
<TMEM  EQU 55       
;----------------   
;**BLOCK-MOVE**     
BLOCK  EQU $A3BF    
<ABANF EQU $5F      
<ABEND EQU $5A      
<NBEND EQU $58      
;----------------   
CHKIN  EQU $FFC6    
CHKOUT EQU $FFC9    
CHRIN  EQU $FFCF    
CHROUT EQU $FFD2    
CLOSE  EQU $FFC3    
CLRCHN EQU $FFCC    
LOAD   EQU $FFD5    
MEMBOT EQU $FF9C    
OPEN   EQU $FFC0    
READST EQU $FFB7    
SAVE   EQU $FFD8    
SETLFS EQU $FFBA    
SETMSG EQU $FF90    
SETNAM EQU $FFBD    
GETIN  EQU $FFE4    
;----------------   
REPEAT EQU 650      
;----------------   
VICREG EQU 53280    
SCREEN EQU $400     
COLOR  EQU $D800    
;                   
<COL00 EQU 3        
<COL01 EQU 5        
;RAND:CYAN/GRUEN    
<COL1  EQU 1        
;COMMANDOS:WEISS    
<COL2  EQU 6        
;TEXT: BLAU         
;----------------   
READY   EQU $A474   
BASCLR  EQU $A660   
BASINT  EQU $E3BF   
;----------------   
;                   
;PASCAL PCODE...    
;                   
ORG $801            
;----------------   
ERRPTR  EQU $0300   
ERRTAB  EQU $A326   
READY   EQU S.O.4   
BASCLR  EQU S.O.    
INTFLP  EQU $B391   
WRTADR  EQU $BDCD   
;16 BIT OHNE VZ.    
;    A=H X=L        
WRTSTR  EQU $AB1E   
FLPSTR  EQU $BDDD   
USYS    EQU $E130   
<SYSAD  EQU $14     
VEKTOR  EQU $E453   
;-----------------  
;*SYSTEMVARIABLEN*  
<ST     EQU $90     
<LENGTH EQU $B7     
<LOGFIL EQU $B8     
<SECOND EQU $B9     
<DEVICE EQU $BA     
<FILNAM EQU $BB     
<INDEV  EQU $99     
;LFD.EINGABEGERAET  
<STRPTR EQU $22     
;FUER STRFLP        
<VAR    EQU $49     
;VARIABLENZEIGER    
;FUER REALS         
<FAC    EQU $61     
TAB     EQU $100    
;16 BYTES FUER      
;FILENAMEN BZW.     
;ASCII-ZAHL         
TABI    EQU $200    
;EINGABE-PUFFER     
;(Z.B. 80 BYTES)    
;** ARITHMETIK **   
LDFAC   EQU $BBA2   
LDARG   EQU $BA8C   
INTFLP  EQU $B391   
VGLFLT  EQU $BC5B   
FLPINT  EQU $B1BF   
FACVAR  EQU $BBD0   
;*** ROUTINEN ***   
STRFLP  EQU $B7B5   
FLPSTR  EQU $BDDD   
TESTNR  EQU $F30F   
READST  EQU $FFB7   
FOPEN   EQU $FFC0   
FCLOSE  EQU $FFC3   
CHKIN   EQU $FFC6   
CKOUT   EQU $FFC9   
CLRCHN  EQU $FFCC   
BASIN   EQU $FFCF   
BSOUT   EQU $FFD2   
;-----------------  
MEMBOT  EQU 642     
<CHRGOT EQU $79     
<ZEIGER EQU $7A     
<DEZPKT EQU $5F     
<INTH   EQU $64     
<INTL   EQU $65     
READY   EQU $A474   
ASCFLP  EQU $BCF3   
FLPINT  EQU $B1BF   
PACK    EQU $BBD4   
;-----------------  
OPADR               
DFD $B86A-1; +      
DFD $B853-1; -      
DFD $BA2B-1; *      
DFD $BB12-1; /      
DFD $BF7D-1; ^      
;                   
DFD $BFB4-1; +/-    
DFD $BC58-1; ABS    
DFD $BF71-1; SQRT   
DFD $B9EA-1; LN     
DFD $BFED-1; EXP    
DFD $E26B-1; SIN    
DFD $E264-1; COS    
DFD $E2B4-1; TAN    
DFD $E30E-1; ATN    
;-----------------