64'er/64ER_CD.iso/91xx/9107a.d64/ciauhr.src

Text File | 1995-03-30 | 2KB | 218 lines

ORG $C000

:LO =$FA
:HI =$FB
:MI =$FC
:BYT=$FD
;--------------
:BYTEFAC=$B3A2
:MEMMULT=$BA28
:MEMPLUS=$B867
:FACMEM =$BBD4
:MEMFAC =$BBA2
:FACINT =$BC9B
;--------------
:TODHR  =$DC0B
:TODMN  =$DC0A
:TODSC  =$DC09
:TODTH  =$DC08

:START

SEI
LDA #$A0
JSR COPY
LDA #$E0
JSR COPY
LDX #0
:OWNROUT
LDA PRG,X
STA $F6DD,X ;╒MLENKUNG AUF EIGENE
INX         ;╥OUTINE
CPX #16
BNE OWNROUT
LDA 1
AND #%11111000
ORA #%00000101
STA 1
LDA $DC0E
ORA #%10000000
STA $DC0E
LDA #0
STA TODHR
STA TODMN
STA TODSC
STA TODTH
CLI
RTS

:COPY  ;KOPIERT ╥OM INS
STA HI ;DARUNTERLIEGENDE ╥AM
LDA #0
STA LO
LDX #0
LDY #0
:L1
LDA (LO),Y
STA (LO),Y
INY
BNE L1
INC HI
INX
CPX #$20
BNE L1
RTS

:PRG
SEI
NOP
NOP
NOP
JMP GETTIME
SEI
JMP SETTIME



:SETTIME
PHP
LDY #0
LDA ($22),Y
JSR GETBYT
CMP #18
BCC KLEINER
SEC
SBC #18
ORA #%10000000;PM -FLG SETZEN
:KLEINER
STA TODHR
INY
LDA ($22),Y
JSR GETBYT
STA TODMN
INY
LDA ($22),Y
JSR GETBYT
STA TODSC
LDA #0
STA TODTH
PLP
CLI
RTS


:GETBYT
SEC
SBC #48
ASL
ASL
ASL
ASL
STA BYT
INY
LDA ($22),Y
SEC
SBC #48
ORA BYT
RTS

:BCDCONV
TAY
AND #%00001111
STA SMOD+1
TYA
LSR
LSR
LSR
LSR
TAX
LDA TAB,X
CLC
:SMOD
ADC #00
RTS

:TAB
B 0,10,20,30,40,50,60,70,80,90

:GETTIME
PHP
LDX #0
TXA
:SETZERO
STA CONST,X
INX
CPX #5
BNE SETZERO

LDA TODHR
BPL NOTPM
AND #%01111111
CLC
ADC #18
:NOTPM
LDX #<FLP216000
LDY #>FLP216000
JSR CONVHEX
LDA TODMN
LDX #<FLP3600
LDY #>FLP3600
JSR CONVHEX
LDA TODSC
LDX #<FLP60
LDY #>FLP60
JSR CONVHEX
LDA TODTH
LDX #<FLP6
LDY #>FLP6
JSR CONVHEX

LDA #<CONST
LDY #>CONST
JSR MEMFAC
LSR $66  ;OHNE VZ
JSR FACINT
LDA $65
LDX $64
LDY $63
PLP
CLI
RTS

:CONVHEX
STX FAKT+1
STY FAKT+3
JSR BCDCONV
TAY
JSR BYTEFAC
:FAKT
LDA #<FLP216000
LDY #>FLP216000
JSR MEMMULT
LDA #<CONST
LDY #>CONST
JSR MEMPLUS
LDX #<CONST
LDY #>CONST
JSR FACMEM
RTS


:CONST
B 0,0,0,0,0

:FLP216000
B $92,$D2,$F0,0,0 ;= 216000
:FLP3600
B $8C,$E1,0,0,0   ;=   3600
:FLP60
B $86,$F0,0,0,0   ;=     60
:FLP6
B $83,$C0,0,0,0   ;=      6