;********************************************* ;Vorspann zur Uebersetzung von verschieblichen ;Treibern mit oder ohne CSEG und DSEG ;FILE :TRVOR.MAC ;AUTOR:Lutz Elssner, Robotron-Messelektronik "Otto Schoen" Dresden ;STAND:17.11.89 ;-------------------------------------------- IF ADRESSE IF1 .PRINTX *Uebersetzung auf Adresse 0000H* ;-------------------------------------------- IF SEG .PRINTX *Treiber besteht aus CSEG und DSEG* ELSE .PRINTX *Treiber enthaelt keine SEGMENT-Pseudooperationen* ENDIF ;-------------------------------------------- IF FUNKT .PRINTX *fuer zeichenweise E/A-Geraete* .PRINTX *mit Eintragung in E/A-Tabelle* ELSE .PRINTX *ohne Parametertest* .PRINTX *ohne Eintragung in E/A-Tabelle* ENDIF ;-------------------------------------------- IF FRES .PRINTX *automatische Ausfuehrung des CCP-Kommandos RES* ELSE .PRINTX *Meldung, wenn Kommandos mit EXT nachgeladen* ENDIF ;-------------------------------------------- IF ANZ .PRINTX *Anzeige der Adressen des installierten Treibers* ELSE .PRINTX *alle Bildschirmausgaben vom TRR werden unterdrueckt* ENDIF ;-------------------------------------------- IF LOWADR .PRINTX *Treiber wird lueckenlos unter TPA geladen* ELSE .PRINTX *Treiber beginnt auf einer xx00H Adresse* ENDIF ;-------------------------------------------- ENDIF GLOBAL TR0,CODBEG,RESBEG,CODEND,DATBEG,DATEND GLOBAL SEG,MINADR,LOWADR,FUNKT,FRES,ANZ GLOBAL SCPV,CGGV,DSEV,CGGAD,DSEAD ;Versionstest GLOBAL BIORSL,EOFRAM,SYSANF ;wird nur fuer RBASIC gebraucht ;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC IF SEG CSEG ENDIF TR0: .PHASE 0 CODBEG: IF SEG ROM DEFL $ .DEPHASE ;DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD DSEG .PHASE DATEN DATBEG: RAM DEFL $ .DEPHASE ENDIF ;--------------------------------------------- ELSE IF1 .PRINTX *Uebersetzung auf Adresse 0701H* ENDIF GLOBAL TR0701,ENDADR ;CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC IF SEG CSEG ENDIF TR0701: .PHASE 0701H CODBEG: IF SEG ROM DEFL $ .DEPHASE ;DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD DSEG .PHASE DATEN+0701H DATBEG: RAM DEFL $ .DEPHASE ENDIF ENDIF ;*********************************************