rtpconfig macro ;;#######################################################; ;; ;; ;; C O N F I G U R A T I O N S E C T I O N ;; ;; ;; ;;#######################################################; TRUE EQU -1 FALSE EQU 0 TRS80 EQU FALSE ;;SET TO TRUE FOR 4300H TPA SYSTEMS Z80CPU EQU FALSE ;;TRUE IF Z80 AVAILABLE (USED IN BLKMOVE) ;; ;; FOR USER'S WHO WISH TO ROM: ;; UNDERCPM EQU TRUE ;;SET TO TRUE IF ROM/RAM TO BE MIXED ELSE FALSE RAMADDR EQU 0000H ;;ELSE SET THIS TO ADDR OF AVAILABLE RAM ;; ;; FOR USER'S WHO WISH TO RE-CONFIGURE RTP SIZE ;; OR ARITHMETIC OPTIONS ;; IWIDTHSTUF EQU TRUE ;;ICOLON ROUTINE INCLUDED IF TRUE CHAINSTUF EQU TRUE ;;RTPCHAIN INCLUDED IF TRUE CHARSTUF EQU TRUE ;;CHAR ARRAY COMPARES INCLUDED IF TRUE BITSTUF EQU TRUE ;;TST,CLR,SET BIT, SHL,SHR INCLUDED IF TRUE FILESTUF EQU TRUE ;;CP/M FILE I/O INCLUDED IF TRUE RANDOMSTUF EQU TRUE ;;CP/M 2 RANDOM FILE STUFF INCLUDED IF TRUE ;; ;; ARITHMETIC ;; BCD EQU FALSE ;;BCD stuff to be included if true BFLOAT EQU TRUE ;;set to true if floating point stuff HARDWARE EQU FALSE ;;SET TO TRUE IF 9511 HARDWARE PRESENT AUTOENGR EQU FALSE ;;SPECIAL CUSTOMER ;;PRINTER SWITCH + SPECIAL ROUTINES ;; ;; NOTE THAT BCD AND BFLOAT SHOULD NOT BE BOTH TRUE ;; IF BFLOAT IF AUTOENGR ADATA EQU 88H ;;Auto Engr special board ACTRL EQU 89H ELSE ADATA EQU 18H ACTRL EQU 19H ;;FOR ALTOS ACS8000 COMPUTER ENDIF ENDIF PRINTDEBUG EQU TRUE IF TRS80 BOOT EQU 4200H BDOS EQU 4205H ELSE BOOT EQU 0 BDOS EQU 5 ENDIF ;;#######################################################; ;; ;; ;; RUN-TIME PACKAGE PROGRAM ORG STATEMENT ;; ;; ;; ;;#######################################################; IF TRS80 ORG 4300H ELSE ORG 100H ENDIF ENDM