URL
https://opencores.org/ocsvn/System09/System09/trunk
Subversion Repositories System09
[/] [System09/] [trunk/] [src/] [Flex9/] [f9-init.asm] - Rev 159
Go to most recent revision | Compare with Previous | Blame | View Log
*
** FLEX INITIATION
*
ORG $CA00
ZCA00 BRA ZCA08
ZCA02 JSR >ZCAAC
RTS
ZCA06 SUBB #$A0
ZCA08 LDA #$39
STA >ZD3FD
LDX >MEMEND
LEAX $00A1,X
STX >ZCA06
JSR [TINVEC]
LDX >INVEC
STX >INCH+1
STX >INCH2+1
LDX >OUTVEC
STX >OUTCH+1
STX >OUTCH2+1
LDX >STAVEC
STX >ZCD4E+1
LDX #Z00A0
LDB #$B9
ZCA38 LDA ,X
STB ,X
NOP
CMPB ,X
BNE ZCA4C
STA ,X
LEAX $0400,X
CMPX >ZCA06
BNE ZCA38
ZCA4C LEAX $FF5F,X
STX >MEMEND
LDX #WARMS
STX >ESCVEC
LDX #TTLSTR
JSR >PSTRG1
JSR >PCRLF1
BSR ZCA02
JSR >PCRLF1
LDX #FCB
LDA #$01
STA ,X
JSR >FMS
BEQ ZCA7B
LDA $01,X
JSR >ZD200
JMP >WARM1
ZCA7B LDX #LINBUF
ZCA7E STX >LINPTR
LDX #FCB
JSR >FMS
BEQ ZCA8E
PSHS Y,X
JMP >ZD2D7
ZCA8E LDX >LINPTR
STA ,X+
CMPA #$0D
BNE ZCA7E
LDX #FCB
JSR >ZD1F4
LDX #LINBUF
STX >LINPTR
LDX #WARM1
STX >ZCC43
JMP >ZD32E
ZCAAC LDX #DATSTR
JSR >PSTRG1
JSR >INBUF1
BSR ZCACB
BCS ZCAAC
STA >MONTH
BSR ZCACB
BCS ZCAAC
ZCAC0 STA >DAY
BSR ZCACB
BCS ZCAAC
STA >YEAR
RTS
ZCACB JSR >INDEC1
BCS ZCADB
LDA >LODOFF+1
TSTB
BEQ ZCAD9
ANDCC #$FE
RTS
ZCAD9 ORCC #$01
ZCADB RTS
TTLSTR FCC "6809 FLEX V3.01"
FCB $04
DATSTR FCC "DATE (MM,DD,YY)? "
FCB $04
END
Go to most recent revision | Compare with Previous | Blame | View Log