ORG   $2000
MLI      EQU   $BF00
PARMS    EQU   $6500
*-------------------------------
* ACOS Quickloader v1.0
* Written by -DC- on 04/21/90
*-------------------------------
* Filename location must be at $4000
*-------------------------------
         LDA   #$0A
         STA   PARMS
         LDA   #$00
         STA   PARMS+1
         LDA   #$40
         STA   PARMS+2
         JSR   MLI
         HEX   C40065
         BCS   ERROR      ;Error detected
         LDA   PARMS+11   ;Lo for date
         AND   #%11111110
         ROR
         STA   $2000      ;Data loc. for year
         LDA   PARMS+11
         AND   #%00000001
         ROL
         ROL
         ROL
         STA   $2001
         LDA   PARMS+10
         AND   #%11100000
         ROL
         ROL
         ROL
         ROL
         EOR   $2001
         STA   $2001      ;Correct month
         LDA   PARMS+10
         AND   #%00011111
         STA   $2002      ;Correct day
         RTS
ERROR    STA   $2001
         LDA   #$DC
         STA   $2000      ;Error message
         RTS