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