home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / ACE-R11-SCR3.ARC / DATE.S < prev    next >
Encoding:
Text File  |  2019-04-13  |  836 b   |  60 lines
  1. ;DATE PROGRAM
  2.  
  3. .SEQ ACEHEAD.S
  4. .ORG ACE┴PP┴DDRESS
  5. .OBJ "@:DATE"
  6.  
  7. JMP MAIN
  8. .BYTE ACE╔─1,ACE╔─2,ACE╔─3
  9. .BYTE 64,0  ;** STACK,RESERVED
  10.  
  11. MAIN = *
  12.    LDA #<DATE┬UF
  13.    LDY #>DATE┬UF
  14.    JSR GETDATE
  15.    LDY #7
  16. -  LDA DATE┬UF,Y
  17.    JSR GETASC
  18.    PHA
  19.    TXA
  20.    LDX DATE╬UM╞IELDS,Y
  21.    STA DATE╬UM+1,X
  22.    PLA
  23.    STA DATE╬UM,X
  24.    DEY
  25.    BPL -
  26.    LDA #13
  27.    STA DATE╬UM+21
  28.    LDA #<DATE╬UM
  29.    LDY #>DATE╬UM
  30.    STA ZP
  31.    STY ZP+1
  32.    LDA #22
  33.    LDY #0
  34.    LDX #STDOUT
  35.    JMP WRITE
  36.  
  37. GETASC = *  ;( .┴=BCD ) : .┴=ASCHI, .╪=ASCLO
  38.    PHA
  39.    AND #$0F
  40.    ORA #$30
  41.    TAX
  42.    PLA
  43.    LSR
  44.    LSR
  45.    LSR
  46.    LSR
  47.    ORA #$30
  48.    RTS
  49.  
  50. DATE╬UM = *
  51.         ;0123456789012345678901
  52.    .ASC "1993/05/16-18:04:50.3Z"
  53. DATE╬UM╞IELDS = *
  54.    .BYTE 0,2,5,8,11,14,17,20
  55. DATE╙TR = *
  56.         ;0123456789012345678901234567
  57.    .ASC "╙UN-16-═AY-1993  06:03:50 PM"
  58.    .BYTE 0
  59. DATE┬UF = *
  60.