
                     * PAG
                     *************************************************
                     *** BUILD - BUILD TEXT FILE UTILITY             *
                     *************************************************
                     *
                     * 'BUILD' UTILITY COPYRIGHT (C). 1979 BY
                     *
                     * TECHNICAL SYSTEM CONSULTANTS. INC.
                     * BOX 2570
                     * WEST LAFAYETTE. INDIANA 47906
                     * USA
                     
                     * BY FLD ON 15-10-2011 FOR VEGAS 6809
                     
                     **  SYMBOL DEFINITIONS;
                     
               C840  SYSFCB  EQU    $C840
               CC14  BUFPTR  EQU    $CC14
               CD03  WARMS   EQU    $CD03
               CD15  GETCHR  EQU    $CD15
               CD1B  INBUFF  EQU    $CD1B
               CD1E  PSTRNG  EQU    $CD1E
               CD2D  GETFIL  EQU    $CD2D
               CD33  SETEXT  EQU    $CD33
               CD3F  RPTERR  EQU    $CD3F
               D403  FMSCLS  EQU    $D403
               D406  FMS     EQU    $D406
                     
                     
  C100                       ORG    $C100
                     ** MAIN PROGRAM
                     
  C100 20   01       BUILD   BRA    BUILD1    SKIP VERSION NUMBER
  C102 01                    FCB    1         VERSION NUMBER
                     
  C103 8E   C840     BUILD1  LDX    #SYSFCB   POINT TO FCB
  C106 BD   CD2D             JSR    GETFIL    GET FILE NAME
  C109 25   5C               BCS    ERROR
  C10B 86   01               LDA    #$01      DEFAULT TEXT EXTENTION
  C10D BD   CD33             JSR    SETEXT    SET IT
  C110 86   02       OWRITE  LDA    #$02      OPEN FOR WRITE
  C112 A7   84               STA    ,X        PUT IN FCB
  C114 BD   D406             JSR    FMS
  C117 27   29               BEQ    NXTLIN    BRANCH IF NO ERROR
  C119 A6   01               LDA    1,X       GET ERROR TYPE
  C11B 81   03               CMPA   #$03      IS IT FILE EXISTS
  C11D 26   48               BNE    ERROR     CANT FIX ANY THING ELSE
  C11F 8E   C188             LDX    #DELETE   PROMPT FOR DELETE
 >C122 BD   C179             JSR    ASKYN     GET ANSWER
  C125 26   43               BNE    EXIT      EXIT IF NOT
  C127 8E   C1B3             LDX    #SHURE    ARE YOU SURE
 >C12A BD   C179             JSR    ASKYN     EXIT IF NOT
  C12D 26   3B               BNE    EXIT
  C12F 8E   C840             LDX    #SYSFCB   POINT TO FCB
  C132 86   0C               LDA    #$0C      DELETE FILE
  C134 A7   84               STA    ,X
  C136 BD   D406             JSR    FMS
  C139 26   2C               BNE    ERROR
  C13B A6   88 24            LDA    36,X      RECOVER FILE NAME
  C13E A7   04               STA    4,X       PUT IT BACK
  C140 20   CE               BRA    OWRITE    TRY AGAIN
                     
  C142 8E   C184     NXTLIN  LDX    #PROMPT   PROMPT FOR INPUT
  C145 BD   CD1E             JSR    PSTRNG    PRINT IT
  C148 BD   CD1B             JSR    INBUFF    GET LINE
 >C14B BD   C170             JSR    NXTCHR    GET FIRST CHAR.
  C14E 81   23               CMPA   #$23      '#' IS IT END OF INPUT?
  C150 27   18               BEQ    EXIT
  C152 34   02       WRNXT   PSHS   A         SAVE IT
  C154 8E   C840             LDX    #SYSFCB
  C157 BD   D406             JSR    FMS       WRITE BYTE
  C15A 35   02               PULS   A         RECOVER BYTE
  C15C 26   09               BNE    ERROR
  C15E 81   0D               CMPA   #$0D      END OF LINE?
  C160 27   E0               BEQ    NXTLIN    THEN GET ANOTHER
 >C162 BD   C170             JSR    NXTCHR    GET NEXT CHAR.
  C165 20   EB               BRA    WRNXT     LOOP TILL DONE
                     
  C167 BD   CD3F     ERROR   JSR    RPTERR    REPORT ERROR
  C16A BD   D403     EXIT    JSR    FMSCLS    CLOSE FILES
  C16D 7E   CD03             JMP    WARMS     EXIT
                     
  C170 BE   CC14     NXTCHR  LDX    BUFPTR    POINT TO INPUT BUFFER
  C173 A6   80               LDA    ,X+       GET CHAR
  C175 BF   CC14             STX    BUFPTR    SAVE POINTER
  C178 39                    RTS
                     
  C179 BD   CD1E     ASKYN   JSR    PSTRNG    PRINT STRING
  C17C BD   CD15             JSR    GETCHR    GET ANSWER
  C17F 84   5F               ANDA   #$5F      '_' MAKE UPPER CASE
  C181 81   4F               CMPA   #$4F      'O' IS IT YES?
  C183 39                    RTS
                     
  C184 20 20 3D      PROMPT  FCC    /  =/
  C187 04                    FCB    4
  C188 4C 45 20 46   DELETE  FCC    /LE FICHIER EXISTANT PEUT/
  C18C 49 43 48 49   
  C190 45 52 20 45   
  C194 58 49 53 54   
  C198 41 4E 54 20   
  C19C 50 45 55 54   
  C1A0 2D 49 4C 20           FCC    /-IL ETRE DETRUIT? /
  C1A4 45 54 52 45   
  C1A8 20 44 45 54   
  C1AC 52 55 49 54   
  C1B0 3F 20         
  C1B2 04                    FCB    4
  C1B3 45 54 45 53   SHURE   FCC    /ETES VOUS SUR ? /
  C1B7 20 56 4F 55   
  C1BB 53 20 53 55   
  C1BF 52 20 3F 20   
  C1C3 04                    FCB    4
                     
                             END    BUILD

0 ERROR(S) DETECTED

SYMBOL TABLE:

ASKYN  C179   BUFPTR CC14   BUILD  C100   BUILD1 C103   DELETE C188   
ERROR  C167   EXIT   C16A   FMS    D406   FMSCLS D403   GETCHR CD15   
GETFIL CD2D   INBUFF CD1B   NXTCHR C170   NXTLIN C142   OWRITE C110   
PROMPT C184   PSTRNG CD1E   RPTERR CD3F   SETEXT CD33   SHURE  C1B3   
SYSFCB C840   WARMS  CD03   WRNXT  C152   




