Subversion Repositories System09

*
** 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