;=================
;    SCR.DECL     
; SCREEN-EDITOR   
; VERSION C-128   
;=================
;                 
;13.8.1986        
;                 
;GLOBALE LABELS   
;(LOKAL ZU JEDEM  
; EDITORAUFRUF)   
;=================
ORG $DB00         
;                 
<MYBANK EQU 0     
;LAGE DES CODES   
PHYSTOP EQU *     
;ENDE SPEICHER    
;FUER TEXT        
;                 
;=================
;***KONSTANTEN*** 
;                 
<MXCOL40  EQU 40  
<MXCOL80  EQU 80  
<MXLIN    EQU 25  
<ZAHL     EQU 4   
<SCRLC40  EQU 36  
<SCRLC80  EQU 76  
<SCRLL    EQU 0   
<MZEIL    EQU 6   
<MSPAL    EQU 15  
;                 
<CXIND    EQU $11 
<AXIND    EQU $14 
<MXIND    EQU $20 
;[ZNRH-ZNRL]      
;                 
<MXLEN    EQU $20 
;LENGTH STRING    
;(FIND / CHANGE)  
;                 
;***  Z-PAGE   ***
;                 
;ZUGRIFF (..),Y   
;                 
<SP     EQU $A    
<TP     EQU $C    
<IND    EQU $E    
;3 BYTES LAENGE   
<BASIS  EQU $11   
<ENDE   EQU $13   
<TMEM   EQU $15   
;                 
;**TEXT-SPALTEN **
;                 
<TZEIL  EQU $17   
<TSPAL  EQU $19   
<ASPAL  EQU $1A   
<ANFSPA EQU $1B   
<TXTLEN EQU $1C   
<LBND   EQU $1D   
<RBND   EQU $1E   
;                 
;***BILD-ZEIGER***
;                 
<SSPAL  EQU $1F   
<SZEIL  EQU $20   
<XSPAL  EQU $21   
<XZEIL  EQU $22   
;                 
<SCLEN  EQU $23   
;                 
;***BILD-ZEILEN***
;                 
<SCTOP  EQU $24   
<SCBOT  EQU $25   
;                 
<MSKFLG EQU $26   
<BNDFLG EQU $27   
<TABFLG EQU $28   
<COLFLG EQU $29   
<TOPFLG EQU $2A   
;                 
;**HILFSREGISTER**
;                 
<MMFLAG EQU $2B   
<XREG   EQU $2C   
<YREG   EQU $2D   
<ZAEHL  EQU $2E   
<LFD    EQU $2F   
;                 
<SCRLH  EQU $30   
<SCRLV  EQU $31   
<SCRLM  EQU $32   
;                 
<CODE   EQU $34   
<TEFLAG EQU $35   
<FEHLER EQU $36   
<ENDFLG EQU $37   
<COMFLG EQU $38   
<FNDFLG EQU $39   
;                 
;*****************
;LOKALE VARIABLEN 
;FUER FIND/CHANGE:
;                 
<LAENG1 EQU $3A   
<LAENG2 EQU $3B   
<BOTTOM EQU $3C   
<FMODUS EQU $3D   
<FMASKE EQU $3E   
<SPALT1 EQU $3F   
<SPALT2 EQU $40   
<TRENN  EQU $41   
;                 
;WIEDER GLOBAL:   
;                 
<FZAEHL EQU $42   
;(L/H)            
;**RECHENREGISTER*
;                 
<MOR    EQU $44   
<MND    EQU $45   
;(L/H)            
<ERG    EQU $47   
;(L/H)            
<ZL     EQU $49   
<ZH     EQU $4A   
<NL     EQU $4B   
<NH     EQU $4C   
<HL     EQU $4D   
<HH     EQU $4E   
;                 
;** BLOCK MOVE: **
<ABANF  EQU $4F   
<ABEND  EQU $51   
<NBEND  EQU $53   
;                 
;*FUNKTIONSTASTEN*
<RECFLG EQU $55   
<RECLEN EQU $56   
;                 
;**HILFSREGISTER**
<XLOCAL EQU $57   
;(80 ZEICHEN I/O) 
;                 
<MXCOL  EQU $58   
<SCRLC  EQU $59   
;                 
;*** TABELLEN: ***
;                 
;=1=              
FLAG    EQU $1320 
APOS    EQU $1332 
;                 
;=2=              
ZNRL    EQU $1340 
AZEIL   EQU $1352 
ANFZEI  EQU $1353 
TXTBOT  EQU $1354 
MASK    EQU $1355 
BNDS    EQU $1356 
TABU    EQU $1357 
;                 
;=3=              
ZNRH    EQU $1360 
;                 
STRNG1  EQU $1380 
STRNG2  EQU $1300 
;                 
TAB     EQU $13A0 
;LAENGE=          
;<SCRLCOL+2 BYTES 
KEYSTR  EQU $FF45 
<LKEYSTR EQU $40  
;STRINGLAENGE     
;                 
;=================
EXP *             
; EXPORTIERE ALLE 
; LABELS