;*****************
;*    PCODE-1    *
;*  INTERPRETER  *
;*  FUER P-CODE  *
;* GRUNDROUTINEN *
;*  VERSION 1.3  *
;*  >>  C64  <<  *
;*  22.11.1985   *
;*****************
ORG $801          
;  SYS (INIT)     
;  FUER BASIC     
DFD LLINK,1985    
DFD 158,"2087 "   
DFD "PASCAL1.4",0 
LLINK DFD 0,0     
;*** ROUTINEN *** 
ERRPTR  EQU $0300 
ERRTAB  EQU $A326 
READY   EQU $A474 
BASCLR  EQU $A660 
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 
CLRCHN  EQU $FFCC 
BSOUT   EQU $FFD2 
;-----------------
BASERR            
; X ENTHAELT CODE 
;>=128,FALLS BREAK
TXA               
BPL BASER1        
LDA #30;"BREAK"   
BASER1 ASL        
TAX               
LDA ERRTAB,X      
;*****************
;*    PCODE-2    *
;*  INTERPRETER  *
;*EINGABE/AUSGABE*
;*REAL-ARITHMETIK*
;*    MENGEN     *
;* VERSION 1.31  *
;* >>  C-64  <<  *
;*  22.11.1985   *
;*****************
ORG 4252          
;                 
;*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 
;-----------------
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  
;=================
;INITIALISIERUNG  
; PASCALCOMPILER  
; >>   C-64   <<  
;                 
;   23.11.1985    
;=================
ORG 5611          
;(=START)         
;-----------------
TRENN   EQU $6000 
;OBJECT<->SOURCE  
EDITOR  EQU $7F00 
;ENDE OBJECT      
;                 
<SELECT EQU 1     
<P1     EQU 47    
<P2     EQU 49    
;                 
BUFFER  EQU 907   
RETURN  EQU 16421 
PC      EQU 16497 
;                 
MENUE   EQU 40704 
;=RETURN IM EDITOR
COMPILE EQU $4000 
;-----------------
MEMTOP  EQU $FF99 
MEMBOT  EQU $FF9C 
;-----------------
;    PASCAL 1.4   
;                 
; M-CODE ROUTINEN 
;  FUER DEN C-64  
;    (FETCH.E)    
;22.11.1985       
;                 
ORG $4000         
;-----------------
SOURCE  EQU 641   
;MIT OFFSET $6000 
<OFFSET EQU $60   
TARGET  EQU $A000 
<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 
;-----------------
READST  EQU $FFB7 
SETLFS  EQU $FFBA 
SETNAM  EQU $FFBD 
OPEN    EQU $FFC0 
CLOSE   EQU $FFC3 
CHKIN   EQU $FFC6 
CHKOUT  EQU $FFC9 
CHRIN   EQU $FFCF 
CHROUT  EQU $FFD2 
CLRCHN  EQU $FFCC 
;================ 
; SCREEN-EDITOR   
; (TEIL 1 C-64)   
;                 
;14.6.1985        
;                 
ORG $8000         
;                 
;================ 
GETIN  EQU $FFE4  
;===============  
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       
;================ 
; SCREEN-EDITOR   
; (TEIL 2 C-64)   
;                 
;14.6.1985        
;                 
ORG 34666         
;                 
;================ 
GETIN  EQU $FFE4  
;===============  
;**BLOCK-MOVE**   
BLOCK  EQU $A3BF  
<ABANF EQU $5F    
<ABEND EQU $5A    
<NBEND EQU $58    
;================ 
; SCREEN-EDITOR   
;(TEIL3.1  C-64)  
;                 
;17.11.1985       
;                 
ORG 36140         
;                 
;================ 
REPEAT EQU 650    
;================ 
; SCREEN-EDITOR   
;(TEIL3.2  C-64)  
;                 
;17.11.1985       
;                 
ORG 38012         
;                 
;================ 
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  
;                 
REPEAT EQU 650    
;=================
; SCREEN-EDITOR   
; (TEIL 4 C-64)   
;                 
;  23.11.1985     
;                 
ORG 39264         
;================ 
TEMPFLG EQU 907   
RSMEFLG EQU 908   
PNT     EQU 909   
COMP    EQU 923   
;===============  
READY  EQU $A474  
BASCLR EQU $A660  
BASINT EQU $E3BF  
VEKTOR EQU $E453  
BASCMD EQU $A7E7  
;(BEFPNT) ALT!    
;                 
CHKIN  EQU $FFC6  
CHKOUT EQU $FFC9  
CHRIN  EQU $FFCF  
CHROUT EQU $FFD2  
CLOSE  EQU $FFC3  
CLRCHN EQU $FFCC  
LOAD   EQU $FFD5  
MEMTOP EQU $FF99  
MEMBOT EQU $FF9C  
OPEN   EQU $FFC0  
READST EQU $FFB7  
SAVE   EQU $FFD8  
SETLFS EQU $FFBA  
SETMSG EQU $FF90  
SETNAM EQU $FFBD  
;                 
REPEAT EQU 650    
ERRPTR EQU $300   
BEFPNT EQU $308   
;                 
<CHGET EQU $0073  
<CHGOT EQU $0079  
;===============